- (aif (car (mutex-sql-query
- (format nil "select VCUI,RCUI,VSAB,RSAB,SON,SF,SVER,MSTART,MEND,IMETA,RMETA,SLC,SCC,SRL,TFR,CFR,CXTY,TTYL,ATNL,LAT,CENC,CURVER,SABIN from MRSAB where ~A='~A'" key-name key)))
- (destructuring-bind
- (vcui rcui vsab rsab son sf sver mstart mend imeta rmeta slc scc srl tfr cfr cxty ttyl atnl lat cenc curver sabin) it
- (make-instance 'usab :vcui (ensure-integer vcui)
- :rcui (ensure-integer rcui)
- :vsab vsab :rsab rsab :son son :sf sf :sver sver :mstart mstart
- :mend mend :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))))
+ (with-umlisp-query ('mrsab '(vcui rcui vsab rsab son sf sver mstart mend imeta rmeta slc scc srl tfr cfr cxty ttyl atnl lat cenc curver sabin) nil key-name key :single t)
+ (destructuring-bind
+ (vcui rcui vsab rsab son sf sver mstart mend imeta rmeta slc scc srl tfr cfr cxty ttyl atnl lat cenc curver sabin) tuple
+ (make-instance 'usab :vcui (ensure-integer vcui)
+ :rcui (ensure-integer rcui)
+ :vsab vsab :rsab rsab :son son :sf sf :sver sver :mstart mstart
+ :mend mend :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))))