X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=classes.lisp;h=21213bd15a52f16a2f8e6a46b4894ac9984f8dd3;hb=fab71e6fecf552789593d979b85cea58099f236d;hp=24ba9d1e0ba3c23d9d96fe5ede97878d366872f1;hpb=e8237c217aecf6887edddbe2ef7fe15134660a34;p=umlisp.git diff --git a/classes.lisp b/classes.lisp index 24ba9d1..21213bd 100644 --- a/classes.lisp +++ b/classes.lisp @@ -37,14 +37,15 @@ ((rank :value-type fixnum :initarg :rank :reader rank) (sab :value-type string :initarg :sab :reader sab) (tty :value-type string :initarg :tty :reader tty) - (supres :value-type string :initarg :supres :reader supres)) + (suppres :value-type string :initarg :suppres :reader suppres)) (:metaclass hyperobject-class) (:user-name "Rank") - (:default-print-slots rank sab tty supres)) + (:default-print-slots rank sab tty suppres)) (defclass udef (umlsclass) ((def :value-type cdata :initarg :def :reader def) - (sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab)) + (sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab) + (suppress :value-type string :initarg :suppress :reader suppress)) (:metaclass hyperobject-class) (:user-name "Definition") (:default-print-slots sab def)) @@ -67,8 +68,8 @@ (son :value-type string :initarg :son :reader son) (sf :value-type string :initarg :sf :reader sf) (sver :value-type string :initarg :sver :reader sver) - (vstart :value-type string :initarg :vstart :reader vstart) - (vend :value-type string :initarg :vend :reader vend) + (mstart :value-type string :initarg :mstart :reader mstart) + (mend :value-type string :initarg :mend :reader mend) (imeta :value-type string :initarg :imeta :reader imeta) (rmeta :value-type string :initarg :rmeta :reader rmeta) (slc :value-type cdata :initarg :slc :reader slc) @@ -82,28 +83,51 @@ (lat :value-type string :initarg :lat :reader lat) (cenc :value-type string :initarg :cenc :reader cenc) (curver :value-type string :initarg :curver :reader curver) - (sabin :value-type string :initarg :sabin :reader sabin)) + (sabin :value-type string :initarg :sabin :reader sabin) + (ssn :value-type string :initarg :ssn :reader ssn) + (scit :value-type string :initarg :scit :reader scit)) (:metaclass hyperobject-class) (:user-name "Source Abbreviation") (:default-print-slots vcui rcui vsab rsab son sf sver vstart vend imeta rmeta slc scc srl tfr cfr cxty ttyl atnl lat cenc - curver sabin)) + curver sabin ssn scit)) (defclass ucxt (umlsclass) ((sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab) (code :value-type string :initarg :code :reader code) (cxn :value-type fixnum :initarg :cxn :reader cxn) (cxl :value-type string :initarg :cxl :reader cxl) + (rnk :value-type string :initarg :rnk :reader rnk) (cxs :value-type cdata :initarg :cxs :reader cxs) (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) (hcd :value-type string :initarg :hcd :reader hcd) (rela :value-type string :initarg :rela :reader rela) - (xc :value-type string :initarg :xc :reader xc)) + (xc :value-type string :initarg :xc :reader xc) + (cvf :value-type string :initarg :cvf :reader cvf)) (:metaclass hyperobject-class) (:user-name "Context") (:default-print-slots sab code cxn cxl hcd rela xc cui2 cxs)) +(defclass uhier (umlsclass) + ((cui :value-type fixnum :initarg :cui :reader cui :hyperlink find-ucon-cui + :print-formatter fmt-cui) + (aui :value-type fixnum :initarg :aui :reader aui :hyperlink find-ucon-aui + :print-formatter fmt-aui) + (cxn :value-type fixnum :initarg :cxn :reader cxn) + (paui :value-type fixnum :initarg :paui :reader paui + :print-formatter fmt-aui) + (sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab) + (rela :value-type string :initarg :rela :reader rela) + (ptr :value-type string :initarg :ptr :reader ptr) + (hcd :value-type string :initarg :hcd :reader hcd) + (cvf :value-type string :initarg :cvf :reader cvf)) + (:metaclass hyperobject-class) + (:user-name "Context") + (:default-print-slots cxn paui sab rela ptr hcd)) + (defclass ustr (umlsclass) ((sui :value-type fixnum :initarg :sui :reader sui :print-formatter fmt-sui :hyperlink find-ustr-sui) @@ -115,12 +139,13 @@ (str :value-type cdata :initarg :str :reader str) (lrl :value-type fixnum :initarg :lrl :reader lrl) (stt :value-type string :initarg :stt :reader stt) + (suppress :value-type string :initarg :suppress :reader suppress) (s#so :reader s#so :subobject (find-uso-cuisui cui sui)) (s#sat :reader s#sat :subobject (find-usat-ui cui lui sui)) (s#cxt :reader s#cxt :subobject (find-ucxt-cuisui cui sui))) (:metaclass hyperobject-class) (:user-name "String") - (:default-print-slots sui stt lrl str)) + (:default-print-slots sui stt lrl str suppress)) (defclass uso (umlsclass) ((aui :value-type fixnum :initarg :aui :reader aui :print-formatter fmt-aui) @@ -176,27 +201,43 @@ (defclass urel (umlsclass) ((rel :value-type string :initarg :rel :reader rel :hyperlink find-brel-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 :print-formatter fmt-cui) + (aui2 :value-type fixnum :initarg :aui2 :reader aui2 :hyperlink find-ucon-aui + :print-formatter fmt-aui) (pfstr2 :value-type cdata :initarg :pfstr2 :reader pfstr2) + (stype2 :value-type string :initarg :stype2 :reader stype2) (rela :value-type string :initarg :rela :reader rela) + (rui :value-type string :initarg :rui :reader rui) + (srui :value-type string :initarg :srui :reader srui) (sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab) - (sl :value-type string :initarg :sl :reader sl)) + (sl :value-type string :initarg :sl :reader sl) + (rg :value-type string :initarg :rg :reader rg) + (dir :value-type string :initarg :dir :reader dir) + (suppress :value-type string :initarg :suppress :reader suppress) + (cvf :value-type string :initarg :cvf :reader cvf)) (:metaclass hyperobject-class) (:user-name "Relationship") - (:default-print-slots rel rela sab sl cui2 pfstr2)) + (:default-print-slots stype1 rel cui2 aui2 stype2 rela rui srui sab sl rg dir suppress pfstr2)) (defclass ucoc (umlsclass) ((cui1 :value-type fixnum :initarg :cui1 :reader cui1 :print-formatter fmt-cui) + (aui1 :value-type fixnum :initarg :aui1 :reader aui1 :print-formatter fmt-aui) (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :print-formatter fmt-cui :hyperlink find-ucon-cui) + (aui2 :value-type fixnum :initarg :aui2 :reader aui2 :print-formatter fmt-aui + :hyperlink find-ucon-aui) (pfstr2 :value-type cdata :initarg :pfstr2 :reader pfstr2) + (sab :value-type string :initarg :sab :reader sab) (cot :value-type string :initarg :cot :reader cot) (cof :value-type fixnum :initarg :cof :reader cof) - (coa :value-type cdata :initarg :coa :reader coa)) + (coa :value-type cdata :initarg :coa :reader coa) + (cvf :value-type string :initarg :cvf :reader cvf)) (:metaclass hyperobject-class) (:user-name "Co-occuring Concept") - (:default-print-slots cot cof coa cui2 pfstr2)) + (:default-print-slots cot cof coa cui2 aui2 sab pfstr2)) (defclass ucon (umlsclass) @@ -215,6 +256,60 @@ (:user-name "Concept") (:default-print-slots cui lrl pfstr)) +(defclass udoc (umlsclass) + ((key :value-type string :initarg :key :reader key) + (value :value-type cdata :initarg :value :reader value) + (type :value-type cdata :initarg :type :reader etype) + (expl :value-type cdata :initarg :expl :reader expl)) + (:metaclass hyperobject-class) + (:user-name "Abbreviation Documentation") + (:default-print-slots key value type expl)) + +(defclass umap (umlsclass) + ((mapsetcui :value-type fixnum :initarg :mapsetcui :reader mapsetcui) + (mapsetsab :value-type string :initarg :mapsetsab :reader mapsetsab) + (mapsubsetid :value-type string :initarg :mapsubsetid :reader mapsubsetid) + ;; fixme: will convert to integer + (maprank :value-type string :initarg :maprank :reader maprank) + (fromid :value-type string :initarg :fromid :reader fromid) + (fromsid :value-type string :initarg :fromsid :reader fromsid) + (fromexpr :value-type string :initarg :fromexpr :reader fromexpr) + (fromtype :value-type string :initarg :fromtype :reader fromtype) + (fromrule :value-type string :initarg :fromrule :reader fromrule) + (fromres :value-type string :initarg :fromres :reader fromres) + (rel :value-type string :initarg :rel :reader rel) + (rela :value-type string :initarg :rela :reader rela) + (toid :value-type string :initarg :toid :reader toid) + (tosid :value-type string :initarg :tosid :reader tosid) + (toexpr :value-type string :initarg :toexpr :reader toexpr) + (totype :value-type string :initarg :totype :reader totype) + (torule :value-type string :initarg :torule :reader torule) + (tores :value-type string :initarg :tores :reader tores) + (maprule :value-type string :initarg :maprule :reader maprule) + (maptype :value-type string :initarg :maptype :reader maptype) + (mapatn :value-type string :initarg :mapatn :reader mapatn) + (mapatv :value-type string :initarg :mapatv :reader mapatv) + (cvf :value-type string :initarg :cvf :reader cvf)) + (:metaclass hyperobject-class) + (:user-name "Mapping") + (:default-print-slots mapsetcui mapsetsab mapsubsetid maprank fromid fromsid fromexpr fromtype + fromrule fromres rel rela toid tosid toexpr totype torule tores maprule + maptype mapatn mapatv)) + +(defclass usmap (umlsclass) + ((mapsetcui :value-type fixnum :initarg :mapsetcui :reader mapsetcui) + (mapsetsab :value-type string :initarg :mapsetsab :reader mapsetsab) + (fromexpr :value-type string :initarg :fromexpr :reader fromexpr) + (fromtype :value-type string :initarg :fromtype :reader fromtype) + (rel :value-type string :initarg :rel :reader rel) + (rela :value-type string :initarg :rela :reader rela) + (toexpr :value-type string :initarg :toexpr :reader toexpr) + (totype :value-type string :initarg :totype :reader totype) + (cvf :value-type string :initarg :cvf :reader cvf)) + (:metaclass hyperobject-class) + (:user-name "Simple Mapping") + (:default-print-slots mapsetcui mapsetsab fromexpr fromtype rel rela toexpr totype)) + (defclass uxw (umlsclass) ((wd :value-type string :initarg :wd :reader wd) (cui :value-type fixnum :initform nil :initarg :cui :reader cui :print-formatter fmt-cui) @@ -442,55 +537,3 @@ (:default-print-slots name hits srl) (:documentation "Custom Table: UMLS Database statistics.")) - -(defclass bsab (umlsclass) - ((sab :value-type string :initarg :sab :reader sab - :hyperlink find-ustr-sab - :hyperlink-parameters (("subobjects" . "no"))) - (name :value-type string :initarg :name :reader name) - (hits :value-type fixnum :initarg :hits :reader hits - :user-name "count" - :print-formatter fmt-comma-integer)) - (:metaclass hyperobject-class) - (:default-initargs :sab nil :name nil :hits nil) - (:user-name "Source of Abbreviation") - (:default-print-slots sab name hits) - (:documentation "Bonus SAB file")) - -(defclass btty (umlsclass) - ((tty :value-type string :initarg :tty :reader tty) - (name :value-type string :initarg :name :reader name) - (hits :value-type fixnum :initarg :hits :reader hits - :user-name "count" - :print-formatter fmt-comma-integer)) - (:metaclass hyperobject-class) - (:default-initargs :tty nil :name nil :hits nil) - (:user-name "Bonus TTY") - (:default-print-slots tty name hits) - (:documentation "Bonus TTY file")) - -(defclass brel (umlsclass) - ((sab :value-type string :initarg :sab :reader sab) - (sl :value-type string :initarg :sl :reader sl) - (rel :value-type string :initarg :rel :reader rel) - (rela :value-type string :initarg :rela :reader rela) - (hits :value-type fixnum :initarg :hits :reader hits - :user-name "count" - :print-formatter fmt-comma-integer)) - (:metaclass hyperobject-class) - (:default-initargs :sab nil :sl nil :rel nil :rela nil :hits nil) - (:user-name "Bonus REL") - (:default-print-slots sab sl rel rela hits) - (:documentation "Bonus REL file")) - -(defclass batn (umlsclass) - ((sab :value-type string :initarg :sab :reader sab) - (atn :value-type string :initarg :atn :reader atn) - (hits :value-type fixnum :initarg :hits :reader hits - :user-name "count" - :print-formatter fmt-comma-intger)) - (:metaclass hyperobject-class) - (:default-initargs :sab nil :atn nil) - (:user-name "Bonus ATN") - (:default-print-slots sab atn hits) - (:documentation "Bonus ATN file"))