+ (make-instance 'uso :aui aui :sab sab :code code :srl srl :tty tty
+ :cui cui :sui sui :saui saui :sdui sdui :scui scui)))
+
+(defun find-uso-aui (aui &key (srl *current-srl*))
+ (ensure-sui-integer aui)
+ (collect-umlisp-query (mrconso (sab cui sui code srl tty saui sdui scui) srl aui
+ aui :lrl srl :single t)
+ (make-instance 'uso :aui aui :cui cui :sab sab :code code :srl srl :tty tty
+ :sui sui :saui saui :sdui sdui :scui scui)))