:pfstr kpfstr
:lrl (ensure-integer kcuilrl))))
-(defun find-ucon-cui-all (&key (srl *current-srl*))
+(defun find-cui-ucon-all (&key (srl *current-srl*))
"Return list of CUIs for all ucons"
(collect-umlisp-query (mrcon (cui) srl nil nil :order (cui asc)
:distinct t)
:cui2 (ensure-integer cui2) :rela rela :sab sab :sl sl
:mg mg :pfstr2 kpfstr2)))
+(defun find-cui2-urel-cui (cui &key (srl *current-srl*))
+ "Return a list of urel for cui"
+ (ensure-cui-integer cui)
+ (collect-umlisp-query (mrrel (cui2) srl cui1
+ cui :lrl "KSRL")
+ cui2))
+
(defun find-urel-cui2 (cui2 &key (srl *current-srl*))
"Return a list of urel for cui2"
(ensure-cui-integer cui2)