(:default-print-slots sui stt lrl str suppress))
+(defclass uso (umlsclass)
+ ((aui :value-type fixnum :initarg :aui :reader aui :print-formatter fmt-aui
+ :hyperlink find-ucon-aui)
+ (cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
+ :hyperlink find-ucon-cui)
+ (sui :value-type fixnum :initarg :sui :reader sui :print-formatter fmt-sui
+ :hyperlink find-ucon-sui)
+ (saui :value-type string :initarg :saui :reader saui)
+ (sdui :value-type string :initarg :sdui :reader sdui)
+ (scui :value-type string :initarg :scui :reader scui)
+ (tty :value-type string :initarg :tty :reader tty)
+ (code :value-type string :initarg :code :reader code)
+ (sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab)
+ (lat :value-type string :initarg :lat :reader lat)
+ (str :value-type cdata :initarg :str :reader str)
+ (srl :value-type fixnum :initarg :srl :reader srl)
+ (ts :value-type string :initarg :ts :reader ts))
+ (:metaclass hyperobject-class)
+ (:user-name "Source")
+ (:default-print-slots aui sab code saui sdui scui tty srl ts))
+
(defclass uterm (umlsclass)
((lui :value-type fixnum :initarg :lui :reader lui :print-formatter fmt-lui
:hyperlink find-uterm-lui)
(:default-print-slots tui sty))
(defclass urel (umlsclass)
- ((rel :value-type string :initarg :rel :reader rel :hyperlink find-brel-rel)
+ ((rel :value-type string :initarg :rel :reader rel)
(cui1 :value-type fixnum :initarg :cui1 :reader cui1 :print-formatter fmt-cui)
(aui1 :value-type fixnum :initarg :aui1 :reader aui1 :print-formatter fmt-aui)
(stype1 :value-type string :initarg :stype1 :reader stype1)
- (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :hyperlink find-ucon-sui
+ (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :hyperlink find-ucon-cui
:print-formatter fmt-cui)
(aui2 :value-type fixnum :initarg :aui2 :reader aui2 :hyperlink find-ucon-aui
:print-formatter fmt-aui)
(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.")
+ (:documentation "CONSO is a new concept from the RRF files.")
(:metaclass hyperobject-class)
(:user-name "Concept")
(:default-print-slots cui kcuilrl str sab))