- '(("MRCONSO.RRF" "KPFSTR" "TEXT"
- (slot-value (find-ucol "STR" "MRCONSO.RRF") 'max)
- (lambda (x) (pfstr-hash (parse-ui (nth 0 x)))))
+ '(#+nil ("MRCONSO.RRF" "KPFSTR" "TEXT"
+ (slot-value (find-ucol "STR" "MRCONSO.RRF") 'max)
+ (lambda (x) (pfstr-hash (parse-ui (nth 0 x)))))
+ ;; Set to 1 if term is prefered term for english
+ ("MRCONSO.RRF" "KPFENG" "TINYINT" 0
+ (lambda (x) (if (and (string-equal (nth 1 x) "ENG") ; LAT
+ (string-equal (nth 2 x) "P") ; ts
+ (string-equal (nth 4 x) "PF")) ; stt
+ "1"
+ "0")))