(son :value-type string :initarg :son :reader son)
(sf :value-type string :initarg :sf :reader sf)
(sver :value-type string :initarg :sver :reader sver)
- (mstart :value-type string :initarg :mstart :reader mstart)
- (mend :value-type string :initarg :mend :reader mend)
+ (vstart :value-type string :initarg :vstart :reader vstart)
+ (vend :value-type string :initarg :vend :reader vend)
(imeta :value-type string :initarg :imeta :reader imeta)
(rmeta :value-type string :initarg :rmeta :reader rmeta)
(slc :value-type cdata :initarg :slc :reader slc)
(defun find-usab-by-key (key-name key)
"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)
- nil key-name key :single t)
- (make-instance 'usab :vcui (ensure-integer vcui)
+ vend imeta rmeta slc scc srl tfr cfr cxty
+ ttyl atnl lat cenc curver sabin)
+ 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)