X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=parse-rrf.lisp;fp=parse-rrf.lisp;h=abe5a0a0f3b3f1cfaa584d458946c0a9576be41e;hb=f894817b99c5b9624ebb7a0388f415ace23b8ce5;hp=59f48269aa4bc3bc7520cf0a804f9d89e849559c;hpb=8a55a4e96c348baf47946391970d0c0f86c5345a;p=umlisp.git

diff --git a/parse-rrf.lisp b/parse-rrf.lisp
index 59f4826..abe5a0a 100644
--- a/parse-rrf.lisp
+++ b/parse-rrf.lisp
@@ -222,7 +222,7 @@ used in the United States. We create a new scale (SRLUS) where SRL to SRLUS mapp
                                                  (parse-ui (vff "MRCONSO.RRF" "SUI" x))))))
       ("MRCONSO.RRF" "KCUILUI" "BIGINT" 0
        (lambda (x) (write-to-string (make-cuilui (parse-ui (vff "MRCONSO.RRF" "CUI" x))
-                                                 (parse-ui (vff "MRCONSO.RRF" "SUI" 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