+
+(defclass uconso (umlsclass)
+ ((cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
+ :hyperlink find-ucon-cui)
+ (pfstr :value-type cdata :initarg :pfstr :reader pfstr
+ :compute-cached-value (find-pfstr-cui cui))
+ (lat :value-type string :initarg :lat :reader lat)
+ (ts :value-type string :initarg :ts :reader ts)
+ (lui :value-type fixnum :initarg :lui :reader lui :print-formatter fmt-lui)
+ (stt :value-type string :initarg :stt :reader stt)
+ (sui :value-type fixnum :initarg :sui :reader sui :print-formatter fmt-sui)
+ (ispref :value-type string :initarg :ispref :reader ispref)
+ (aui :value-type fixnum :initarg :aui :reader aui :print-formatter fmt-aui)
+ (saui :value-type string :initarg :saui :reader saui)
+ (scui :value-type string :initarg :scui :reader scui)
+ (sdui :value-type string :initarg :sdui :reader sdui)
+ (sab :value-type string :initarg :sab :reader sab)
+ (tty :value-type string :initarg :tty :reader tty)
+ (code :value-type string :initarg :code :reader code)
+ (str :value-type string :initarg :str :reader str)
+ (srl :value-type fixnum :initarg :srl :reader srl)
+ (suppress :value-type string :initarg :suppress :reader suppress)
+ (cvf :value-type string :initarg :cvf :reader cvf)
+ (kpfeng :value-type string :initarg :kpfeng :reader kpfeng)
+ (kcuisui :value-type bigint :initarg :kcuisui :reader kcuisui)
+ (kcuilui :value-type bigint :initarg :kcuilui :reader kcuilui)
+ (kcuilrl :value-type fixnum :initarg :kcuilrl :reader kcuilrl)
+ (kluilrl :value-type fixnum :initarg :kluilrl :reader kluilrl)
+ (ksuilrl :value-type fixnum :initarg :ksuilrl :reader ksuilrl)
+ (s#def :reader s#def :subobject (find-udef-cui cui))
+ (s#so :reader s#so :subobject (find-uso-cui cui))
+ (s#hier :reader s#hier :subobject (find-uhier-cui cui))
+ (s#map :reader s#map :subobject (find-umap-cui cui))
+ (s#smap :reader s#smap :subobject (find-usmap-cui cui))
+ (s#sty :reader s#sty :subobject (find-usty-cui cui))
+ (s#term :reader s#term :subobject (find-uterm-cui cui))
+ (s#sat :reader s#sat :subobject (find-usat-ui cui))
+ (s#rel :reader s#rel :subobject (find-urel-cui cui))
+ (s#coc :reader s#coc :subobject (find-ucoc-cui cui)))
+ (:documentation "CONSO is a new concept from the RRF files. This object is a rather raw row from the MRCONSO table.")