- (lambda (x) (write-to-string (make-cuilui (parse-ui (nth 0 x)) (parse-ui (nth 3 x))))))
- ("MRCONSO.RRF" "KCUILRL" "INTEGER" 0
- (lambda (x) (write-to-string (cui-lrl (parse-ui (nth 0 x))))))
- ("MRCONSO.RRF" "KLUILRL" "INTEGER" 0
- (lambda (x) (write-to-string (lui-lrl (parse-ui (nth 3 x))))))
- ;; Deprecated, last in 2004AA -- skip index
- #+ignore
- ("MRLO.RRF" "KLRL" "INTEGER" 0
- (lambda (x) (write-to-string
- (if (zerop (length (nth 4 x)))
- (cui-lrl (parse-ui (nth 0 x)))
- (cuisui-lrl (make-cuisui (parse-ui (nth 0 x)) (parse-ui (nth 4 x))))))))
- ("MRSTY.RRF" "KLRL" "INTEGER" 0
- (lambda (x) (write-to-string (cui-lrl (parse-ui (nth 0 x))))))
- ("MRCOC.RRF" "KLRL" "INTEGER" 0
- (lambda (x) (write-to-string
- (max (cui-lrl (parse-ui (nth 0 x)))
- (kmrcl:aif (cui-lrl (parse-ui (nth 1 x))) kmrcl::it 0)))))
- ("MRSAT.RRF" "KSRL" "INTEGER" 0
- (lambda (x) (write-to-string (sab-srl (nth 9 x)))))
- ("MRREL.RRF" "KSRL" "INTEGER" 0
- (lambda (x) (write-to-string (sab-srl (nth 10 x)))))
- ("MRRANK.RRF" "KSRL" "INTEGER" 0
- (lambda (x) (write-to-string (sab-srl (nth 1 x)))))
- ("MRDEF.RRF" "KSRL" "INTEGER" 0
- (lambda (x) (write-to-string (sab-srl (nth 4 x)))))
- ("MRCXT.RRF" "KSRL" "INTEGER" 0
- (lambda (x) (write-to-string (sab-srl (nth 2 x)))))
- ("MRATX.RRF" "KSRL" "INTEGER" 0
- (lambda (x) (write-to-string (sab-srl (nth 1 x)))))
- ("MRXW_ENG.RRF" "KLRL" "INTEGER" 0
- (lambda (x) (write-to-string (cuisui-lrl (make-cuisui
- (parse-ui (nth 2 x))
- (parse-ui (nth 4 x)))))))
- ("MRXW_NONENG.RRF" "KLRL" "INTEGER" 0
- (lambda (x) (write-to-string (cuisui-lrl (make-cuisui
- (parse-ui (nth 2 x))
- (parse-ui (nth 4 x)))))))
- ("MRXNW_ENG.RRF" "KLRL" "INTEGER" 0
- (lambda (x) (write-to-string (cuisui-lrl (make-cuisui
- (parse-ui (nth 2 x))
- (parse-ui (nth 4 x)))))))
- ("MRXNS_ENG.RRF" "KLRL" "INTEGER" 0
- (lambda (x) (write-to-string (cuisui-lrl (make-cuisui
- (parse-ui (nth 2 x))
- (parse-ui (nth 4 x)))))))
- ("MRREL.RRF" "KPFSTR2" "TEXT" 1024
- (lambda (x) (pfstr-hash (parse-ui (nth 4 x)))))
- ("MRCOC.RRF" "KPFSTR2" "TEXT" 1024
- (lambda (x) (pfstr-hash (parse-ui (nth 2 x)))))
- ("MRCXT.RRF" "KCUISUI" "BIGINT" 0
- (lambda (x) (write-to-string (make-cuisui (parse-ui (nth 0 x)) (parse-ui (nth 1 x))))))
+ (lambda (x) (write-to-string (make-cuilui (parse-ui (vff "MRCONSO.RRF" "CUI" x))
+ (parse-ui (vff "MRCONSO.RRF" "LUI" x))))))
+ ("MRCONSO.RRF" "KCUILRL" "TINYINT" 0
+ (lambda (x) (write-to-string (cui-lrl (parse-ui (vff "MRCONSO.RRF" "CUI" x))))))
+ ("MRCONSO.RRF" "KCUILRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (cui-lrlus (parse-ui (vff "MRCONSO.RRF" "CUI" x))))))
+ ("MRCONSO.RRF" "KLUILRL" "TINYINT" 0
+ (lambda (x) (write-to-string (lui-lrl (parse-ui (vff "MRCONSO.RRF" "LUI" x))))))
+ ("MRCONSO.RRF" "KLUILRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (lui-lrlus (parse-ui (vff "MRCONSO.RRF" "LUI" x))))))
+ ("MRCONSO.RRF" "KSUILRL" "TINYINT" 0
+ (lambda (x) (write-to-string (sui-lrl (parse-ui (vff "MRCONSO.RRF" "SUI" x))))))
+ ("MRCONSO.RRF" "KSUILRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (sui-lrlus (parse-ui (vff "MRCONSO.RRF" "SUI" x))))))
+ ("MRCONSO.RRF" "KSRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (srl-to-srlus (parse-integer (vff "MRCONSO.RRF" "SRL" x))))))
+ ("MRSAB.RRF" "KSRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (srl-to-srlus (parse-integer (vff "MRSAB.RRF" "SRL" x))))))
+ ("MRSTY.RRF" "KLRL" "TINYINT" 0
+ (lambda (x) (write-to-string (cui-lrl (parse-ui (vff "MRSTY.RRF" "CUI" x))))))
+ ("MRSTY.RRF" "KLRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (cui-lrlus (parse-ui (vff "MRSTY.RRF" "CUI" x))))))
+ #+mrcoc ("MRCOC.RRF" "KLRL" "TINYINT" 0
+ (lambda (x) (write-to-string
+ (max (cui-lrl (parse-ui (vff "MRCOC.RRF" "CUI1" x)))
+ (kmrcl:aif (cui-lrl (parse-ui (vff "MRCOC.RRF" "CUI2" x))) kmrcl::it 0)))))
+ #+mrcoc ("MRCOC.RRF" "KLRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string
+ (max (cui-lrlus (parse-ui (vff "MRCOC.RRF" "CUI1" x)))
+ (kmrcl:aif (cui-lrl (parse-ui (vff "MRCOC.RRF" "CUI2" x))) kmrcl::it 0)))))
+ ("MRSAT.RRF" "KSRL" "TINYINT" 0
+ (lambda (x) (write-to-string (sab-srl (vff "MRSAT.RRF" "SAB" x)))))
+ ("MRSAT.RRF" "KSRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (sab-srlus (vff "MRSAT.RRF" "SAB" x)))))
+ ("MRREL.RRF" "KSRL" "TINYINT" 0
+ (lambda (x) (write-to-string (sab-srl (vff "MRREL.RRF" "SAB" x)))))
+ ("MRREL.RRF" "KSRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (sab-srlus (vff "MRREL.RRF" "SAB" x)))))
+ ("MRRANK.RRF" "KSRL" "TINYINT" 0
+ (lambda (x) (write-to-string (sab-srl (vff "MRRANK.RRF" "SAB" x)))))
+ ("MRRANK.RRF" "KSRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (sab-srlus (vff "MRRANK.RRF" "SAB" x)))))
+ ("MRHIER.RRF" "KSRL" "TINYINT" 0
+ (lambda (x) (write-to-string (sab-srl (vff "MRHIER.RRF" "SAB" x)))))
+ ("MRHIER.RRF" "KSRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (sab-srlus (vff "MRHIER.RRF" "SAB" x)))))
+ ("MRMAP.RRF" "KSRL" "TINYINT" 0
+ (lambda (x) (write-to-string (sab-srl (vff "MRMAP.RRF" "MAPSETSAB" x)))))
+ ("MRMAP.RRF" "KSRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (sab-srlus (vff "MRMAP.RRF" "MAPSETSAB" x)))))
+ ("MRSMAP.RRF" "KSRL" "TINYINT" 0
+ (lambda (x) (write-to-string (sab-srl (vff "MRSMAP.RRF" "MAPSETSAB" x)))))
+ ("MRSMAP.RRF" "KSRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (sab-srlus (vff "MRSMAP.RRF" "MAPSETSAB" x)))))
+ ("MRDEF.RRF" "KSRL" "TINYINT" 0
+ (lambda (x) (write-to-string (sab-srl (vff "MRDEF.RRF" "SAB" x)))))
+ ("MRDEF.RRF" "KSRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (sab-srlus (vff "MRDEF.RRF" "SAB" x)))))
+ ("MRXW_ENG.RRF" "KLRL" "TINYINT" 0
+ (lambda (x) (write-to-string (cuisui-lrl (make-cuisui
+ (parse-ui (vff "MRXW_ENG.RRF" "CUI" x))
+ (parse-ui (vff "MRXW_ENG.RRF" "SUI" x)))))))
+ ("MRXW_ENG.RRF" "KLRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (cuisui-lrlus (make-cuisui
+ (parse-ui (vff "MRXW_ENG.RRF" "CUI" x))
+ (parse-ui (vff "MRXW_ENG.RRF" "SUI" x)))))))
+ ("MRXW_NONENG.RRF" "KLRL" "TINYINT" 0
+ (lambda (x) (write-to-string (cuisui-lrl (make-cuisui
+ (parse-ui (vff "MRXW_NONENG.RRF" "CUI" x))
+ (parse-ui (vff "MRXW_NONENG.RRF" "SUI" x)))))))
+ ("MRXW_NONENG.RRF" "KLRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (cuisui-lrlus (make-cuisui
+ (parse-ui (vff "MRXW_NONENG.RRF" "CUI" x))
+ (parse-ui (vff "MRXW_NONENG.RRF" "SUI" x)))))))
+ ("MRXNW_ENG.RRF" "KLRL" "TINYINT" 0
+ (lambda (x) (write-to-string (cuisui-lrl (make-cuisui
+ (parse-ui (vff "MRXNW_ENG.RRF" "CUI" x))
+ (parse-ui (vff "MRXNW_ENG.RRF" "SUI" x)))))))
+ ("MRXNW_ENG.RRF" "KLRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (cuisui-lrlus (make-cuisui
+ (parse-ui (vff "MRXNW_ENG.RRF" "CUI" x))
+ (parse-ui (vff "MRXNW_ENG.RRF" "SUI" x)))))))
+ ("MRXNS_ENG.RRF" "KLRL" "TINYINT" 0
+ (lambda (x) (write-to-string (cuisui-lrl (make-cuisui
+ (parse-ui (vff "MRXNS_ENG.RRF" "CUI" x))
+ (parse-ui (vff "MRXNS_ENG.RRF" "SUI" x)))))))
+ ("MRXNS_ENG.RRF" "KLRLUS" "TINYINT" 0
+ (lambda (x) (write-to-string (cuisui-lrlus (make-cuisui
+ (parse-ui (vff "MRXNS_ENG.RRF" "CUI" x))
+ (parse-ui (vff "MRXNS_ENG.RRF" "SUI" x)))))))
+
+ #+nil ("MRREL.RRF" "KPFSTR2" "TEXT" 1024 (lambda (x) (pfstr-hash (parse-ui (vff "MRREL.RRF" "CUI2" x)))))
+ #+mrcoc ("MRCOC.RRF" "KPFSTR2" "TEXT" 1024 (lambda (x) (pfstr-hash (parse-ui (vff "MRCOC.RRF" "CUI2" x)))))
+