"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"