- (max (cui-lrl (parse-ui (nth 0 x)))
- (kmrcl:aif (cui-lrl (parse-ui (nth 1 x))) kmrcl::it 0)))))
- ("MRSAT.RRF" "KSRL" "SMALLINT" 0
- (lambda (x) (write-to-string (sab-srl (nth 9 x)))))
- ("MRREL.RRF" "KSRL" "SMALLINT" 0
- (lambda (x) (write-to-string (sab-srl (nth 10 x)))))
- ("MRRANK.RRF" "KSRL" "SMALLINT" 0
- (lambda (x) (write-to-string (sab-srl (nth 1 x)))))
- ("MRDEF.RRF" "KSRL" "SMALLINT" 0
- (lambda (x) (write-to-string (sab-srl (nth 4 x)))))
- ("MRCXT.RRF" "KSRL" "SMALLINT" 0
- (lambda (x) (write-to-string (sab-srl (nth 2 x)))))
- ("MRXW_ENG.RRF" "KLRL" "SMALLINT" 0
+ (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