(defun find-uso-cui (cui &key (srl *current-srl*) (english-only nil) limit)
(ensure-cui-integer cui)
- (collect-umlisp-query (mrconso (aui sab code srl tty saui sdui scui lat str sui)
+ (collect-umlisp-query (mrconso (aui sab code srl tty saui sdui scui lat str sui ts)
srl cui cui :lrl srl :limit limit
:filter (when english-only "LAT='ENG'"))
(make-instance 'uso :aui aui :sab sab :code code :srl srl :tty tty
:cui cui :sui sui :saui saui :sdui sdui :scui scui
- :lat lat :str str)))
+ :lat lat :str str :ts ts)))
(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 lat
- str) srl aui aui :lrl srl :single t)
+ str ts) 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 :lat lat
- :str str)))
+ :str str :ts ts)))
(defun find-uhier-cui (cui &key (srl *current-srl*))
(ensure-cui-integer cui)