X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=parse-rrf.lisp;h=2d943ea55508c2c5f1331fb5a67e8b57723ef7c1;hp=65992bf5a6cd792952b2781dbd0a77dce79ca576;hb=HEAD;hpb=00c4e7706f1570cf0c5198019afdd05548ae30cc diff --git a/parse-rrf.lisp b/parse-rrf.lisp index 65992bf..5e28ed5 100644 --- a/parse-rrf.lisp +++ b/parse-rrf.lisp @@ -246,11 +246,11 @@ SNOMED SRL changed from 4 to 9. So we create a new scale ~ (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.RRF" "KLRL" "TINYINT" 0 + #+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.RRF" "KLRLUS" "TINYINT" 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))))) @@ -316,7 +316,7 @@ SNOMED SRL changed from 4 to 9. So we create a new scale ~ (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))))) - #+nil ("MRCOC.RRF" "KPFSTR2" "TEXT" 1024 (lambda (x) (pfstr-hash (parse-ui (vff "MRCOC.RRF" "CUI2" x))))) + #+mrcoc ("MRCOC.RRF" "KPFSTR2" "TEXT" 1024 (lambda (x) (pfstr-hash (parse-ui (vff "MRCOC.RRF" "CUI2" x))))) ("MRSAT.RRF" "KCUILUI" "BIGINT" 0 (lambda (x) (write-to-string (make-cuilui @@ -350,12 +350,13 @@ SNOMED SRL changed from 4 to 9. So we create a new scale ~ "Custom columns to create.(filename, col, sqltype, value-func).") (defparameter +index-cols+ - '(("CUI1" "MRCOC") ("CUI" "MRCONSO") ("LUI" "MRCONSO") - ("SRL" "MRCONSO") ("KSRLUS" "MRCONSO") ("AUI" "MRCONSO") ("KPFENG" "MRCONSO") - ("SUI" "MRCONSO") ("SAUI" "MRCONSO") ("CODE" "MRCONSO") - ("SCUI" "MRCONSO") - ("CUI" "MRDEF") - ("CUI1" "MRREL") ("CUI2" "MRREL") ("SAB" "MRREL") + '( #+mrcoc ("CUI1" "MRCOC") #+mrcoc ("KLRL" "MRCOC") #+mrcoc ("KLRLUS" "MRCOC") + ("CUI" "MRCONSO") ("LUI" "MRCONSO") + ("SRL" "MRCONSO") ("KSRLUS" "MRCONSO") ("AUI" "MRCONSO") ("KPFENG" "MRCONSO") + ("SUI" "MRCONSO") ("SAUI" "MRCONSO") ("CODE" "MRCONSO") + ("SCUI" "MRCONSO") + ("CUI" "MRDEF") + ("CUI1" "MRREL") ("CUI2" "MRREL") ("SAB" "MRREL") ("RUI" "MRREL") ("AUI1" "MRREL") ("AUI2" "MRREL") ("CUI" "MRSAT") ("LUI" "MRSAT") ("SUI" "MRSAT") ("METAUI" "MRSAT") ("ATN" "MRSAT") @@ -372,8 +373,8 @@ SNOMED SRL changed from 4 to 9. So we create a new scale ~ ("KCUISUI" "MRXNS_ENG") ("KCUISUI" "MRXW_NONENG") ("KSRL" "MRDEF") ("KSRL" "MRRANK")("KSRL" "MRREL") ("KSRL" "MRSAT") ("KSRLUS" "MRDEF") ("KSRLUS" "MRRANK")("KSRLUS" "MRREL") ("KSRLUS" "MRSAT") - ("KLRL" "MRCOC") ("KLRL" "MRSTY") ("KLRL" "MRXW_ENG") ("KLRL" "MRXNW_ENG") - ("KLRLUS" "MRCOC") ("KLRLUS" "MRSTY") ("KLRLUS" "MRXW_ENG") ("KLRLUS" "MRXNW_ENG") + ("KLRL" "MRSTY") ("KLRL" "MRXW_ENG") ("KLRL" "MRXNW_ENG") + ("KLRLUS" "MRSTY") ("KLRLUS" "MRXW_ENG") ("KLRLUS" "MRXNW_ENG") ("KLRL" "MRXNS_ENG") ("KLRL" "MRXW_NONENG") ("KLRLUS" "MRXNS_ENG") ("KLRLUS" "MRXW_NONENG") ;; LEX indices @@ -461,6 +462,3 @@ SNOMED SRL changed from 4 to 9. So we create a new scale ~ (defun gen-ufiles-custom () (make-ufile "META" "MRXW_NONENG.RRF" "Custom NonEnglish Index" 5 0 0 (fields (find-ufile "MRXW_ENG.RRF")))) - - -