(defun find-ucxt-cuisui (cui sui &key (srl *current-srl*))
(ensure-cui-integer cui)
(ensure-sui-integer sui)
- (collect-umlisp-query (mrcxt (sab code cxn cxl cxs cui2 hcd rela xc)
+ (collect-umlisp-query (mrcxt (sab rank code cxn cxl cxs cui2 hcd rela xc)
srl kcuisui (make-cuisui cui sui) :lrl ksrl)
- (make-instance 'ucxt :sab sab :code code
+ (make-instance 'ucxt :sab sab :code code
+ :rank rank
:cxn (ensure-integer cxn) :cxl cxl :cxs cxs :hcd hcd
:rela rela :xc xc
:cui2 (ensure-integer cui2))))
"Find usab for a key"
(collect-umlisp-query-eval ('mrsab '(vcui rcui vsab rsab son sf sver vstart
vend imeta rmeta slc scc srl tfr cfr cxty
- ttyl atnl lat cenc curver sabin)
+ ttyl atnl lat cenc curver sabin
+ ssn scit)
nil key-name key :single t)
(make-instance 'usab :vcui (ensure-integer vcui)
- :rcui (ensure-integer rcui) :vsab vsab :rsab rsab :son son
- :sf sf :sver sver :vstart vstart :vend vend :imeta imeta
- :rmeta rmeta :slc slc :scc scc :srl (ensure-integer srl)
- :tfr (ensure-integer tfr) :cfr (ensure-integer cfr)
- :cxty cxty :ttyl ttyl :atnl atnl :lat lat :cenc cenc
- :curver curver :sabin sabin)))
+ :rcui (ensure-integer rcui) :vsab vsab :rsab rsab :son son
+ :sf sf :sver sver :vstart vstart :vend vend :imeta imeta
+ :rmeta rmeta :slc slc :scc scc :srl (ensure-integer srl)
+ :tfr (ensure-integer tfr) :cfr (ensure-integer cfr)
+ :cxty cxty :ttyl ttyl :atnl atnl :lat lat :cenc cenc
+ :curver curver :sabin sabin
+ :ssn ssn :scit scit)))
(defun find-usab-rsab (rsab)
"Find usab for rsab"
(ignore-errors (sql-execute "drop table USTATS" conn))
(sql-execute "create table USTATS (NAME varchar(160), COUNT bigint, SRL integer)" conn)
- (dotimes (srl 4)
+ (dotimes (srl 5)
(insert-ustats-count conn "Concept Count" "MRCONSO" "distinct CUI" "KCUILRL" srl)
(insert-ustats-count conn "Term Count" "MRCONSO" "distinct KCUILUI" "KCUILRL" srl)
(insert-ustats-count conn "Distinct Term Count" "MRCONSO" "distinct LUI" "KLUILRL" srl)