(defun find-ustr-cuisui (cuisui &key (srl *current-srl*))
"Return the single ustr for cuisui"
(collect-umlisp-query (mrconso (cui lui sui stt str suppress ksuilrl) srl kcuisui
(defun find-ustr-cuisui (cuisui &key (srl *current-srl*))
"Return the single ustr for cuisui"
(collect-umlisp-query (mrconso (cui lui sui stt str suppress ksuilrl) srl kcuisui