+(defun find-uconso-cui-sab (cui sab &key (srl *current-srl*))
+ "Find uconso for a cui. If set SAB, the without-pfstr is on by default"
+ (ensure-cui-integer cui)
+ (unless (and cui (stringp sab))
+ (return-from find-uconso-cui-sab nil))
+
+ (collect-umlisp-query (mrconso (lat ts lui stt sui ispref aui saui scui sdui sab tty code str
+ srl suppress cvf kpfeng kcuisui kcuilui kcuilrl
+ kluilrl ksuilrl) srl cui cui
+ :filter (concatenate 'string "SAB='" sab "'"))
+ (make-instance 'uconso :cui cui :lat lat :ts ts :lui lui :stt stt :sui sui :ispref ispref
+ :aui aui :saui saui :scui scui :sdui sdui :sab sab :tty tty :code code
+ :str str :srl srl :suppress suppress :cvf cvf :kpfeng kpfeng
+ :kcuisui kcuisui :kcuilui kcuilui :kcuilrl kcuilrl :kluilrl kluilrl
+ :ksuilrl ksuilrl)))
+
+(defun find-uconso-sui-sab (sui sab &key (srl *current-srl*))
+ "Find uconso for a sui. If set SAB, the without-pfstr is on by default"
+ (ensure-sui-integer sui)
+ (unless (and sui (stringp sab))
+ (return-from find-uconso-sui-sab nil))
+
+ (collect-umlisp-query (mrconso (cui lat ts lui stt sui ispref aui saui scui sdui sab tty code str
+ srl suppress cvf kpfeng kcuisui kcuilui kcuilrl
+ kluilrl ksuilrl) srl sui sui
+ :filter (concatenate 'string "SAB='" sab "'"))
+ (make-instance 'uconso :cui cui :lat lat :ts ts :lui lui :stt stt :sui sui :ispref ispref
+ :aui aui :saui saui :scui scui :sdui sdui :sab sab :tty tty :code code
+ :str str :srl srl :suppress suppress :cvf cvf :kpfeng kpfeng
+ :kcuisui kcuisui :kcuilui kcuilui :kcuilrl kcuilrl :kluilrl kluilrl
+ :ksuilrl ksuilrl)))
+