classes.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: umlisp -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:     classes.lisp
   6 ;;;; Purpose:  Class defintions for UMLisp
   7 ;;;; Author:   Kevin M. Rosenberg
   8 ;;;; Created:  Apr 2000
   9 ;;;;
  10 ;;;; $Id$
  11 ;;;;
  12 ;;;; This file, part of UMLisp, is
  13 ;;;;    Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
  14 ;;;;
  15 ;;;; UMLisp users are granted the rights to distribute and use this software
  16 ;;;; as governed by the terms of the GNU General Public License.
  17 ;;;; *************************************************************************
  18
  19 (in-package #:umlisp-orf)
  20
  21 (defclass umlsclass (hyperobject)
  22   ()
  23   (:metaclass hyperobject-class)
  24   (:description "Parent class of all UMLS objects. It is based on the HYPEROBJECT-CLASS metaclass that provides object printing functions."))
  25
  26
  27 (defclass usrl (umlsclass)
  28   ((sab :value-type string :initarg :sab :reader sab)
  29    (srl :value-type fixnum :initarg :srl :reader srl))
  30   (:metaclass hyperobject-class)
  31   (:user-name "Source Restriction Level")
  32   (:default-print-slots sab srl)
  33   (:description "Custom Table: Source Restriction Level"))
  34
  35
  36 (defclass urank (umlsclass)
  37   ((rank :value-type fixnum :initarg :rank :reader rank)
  38    (sab :value-type string :initarg :sab :reader sab)
  39    (tty :value-type string :initarg :tty :reader tty)
  40    (supres :value-type string :initarg :supres :reader supres))
  41   (:metaclass hyperobject-class)
  42   (:user-name "Rank")
  43   (:default-print-slots rank sab tty supres))
  44
  45 (defclass udef (umlsclass)
  46   ((def :value-type cdata :initarg :def :reader def)
  47    (sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab))
  48   (:metaclass hyperobject-class)
  49   (:user-name "Definition")
  50   (:default-print-slots sab def))
  51
  52 (defclass usat (umlsclass)
  53   ((sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab)
  54    (code :value-type string :initarg :code :reader code)
  55    (atn :value-type string :initarg :atn :reader atn)
  56    (atv :value-type cdata :initarg :atv :reader atv))
  57   (:metaclass hyperobject-class)
  58   (:user-name "Simple Attribute")
  59   (:default-print-slots sab code atn atv))
  60
  61 (defclass usab (umlsclass)
  62   ((vcui :value-type fixnum :initarg :vcui :reader vcui :print-formatter fmt-cui)
  63    (rcui :value-type fixnum :initarg :rcui :reader rcui :print-formatter fmt-cui)
  64    (vsab :value-type string :initarg :vsab :reader vsab)
  65    (rsab :value-type string :initarg :rsab :reader rsab :hyperlink find-ustr-sab
  66          :hyperlink-parameters (("subobjects" . "no")))
  67    (son :value-type string :initarg :son :reader son)
  68    (sf :value-type string :initarg :sf :reader sf)
  69    (sver :value-type string :initarg :sver :reader sver)
  70    (vstart :value-type string :initarg :vstart :reader vstart)
  71    (vend :value-type string :initarg :vend :reader vend)
  72    (imeta :value-type string :initarg :imeta :reader imeta)
  73    (rmeta :value-type string :initarg :rmeta :reader rmeta)
  74    (slc :value-type cdata :initarg :slc :reader slc)
  75    (scc :value-type cdata :initarg :scc :reader scc)
  76    (srl :value-type fixnum :initarg :srl :reader srl)
  77    (tfr :value-type fixnum :initarg :tfr :reader tfr :print-formatter fmt-comma-integer)
  78    (cfr :value-type fixnum :initarg :cfr :reader cfr :print-formatter fmt-comma-integer)
  79    (cxty :value-type string :initarg :cxty :reader cxty)
  80    (ttyl :value-type string :initarg :ttyl :reader ttyl)
  81    (atnl :value-type string :initarg :atnl :reader atnl)
  82    (lat :value-type string :initarg :lat :reader lat)
  83    (cenc :value-type string :initarg :cenc :reader cenc)
  84    (curver :value-type string :initarg :curver :reader curver)
  85    (sabin :value-type string :initarg :sabin :reader sabin))
  86   (:metaclass hyperobject-class)
  87   (:user-name "Source Abbreviation")
  88   (:default-print-slots vcui rcui vsab rsab son sf sver vstart vend imeta
  89                 rmeta slc scc srl tfr cfr cxty ttyl atnl lat cenc
  90                 curver sabin))
  91
  92 (defclass uso (umlsclass)
  93   ((sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab)
  94    (code :value-type string :initarg :code :reader code)
  95    (tty :value-type string :initarg :tty :reader tty :hyperlink find-btty-tty)
  96    (srl :value-type fixnum :initarg :srl :reader srl))
  97   (:metaclass hyperobject-class)
  98   (:user-name "Source")
  99   (:default-print-slots sab code tty srl))
 100
 101 (defclass ucxt (umlsclass)
 102   ((sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab)
 103    (code :value-type string :initarg :code :reader code)
 104    (rnk :value-type fixnum :initarg :rnk :reader rnk)
 105    (cxn :value-type fixnum :initarg :cxn :reader cxn)
 106    (cxl :value-type string :initarg :cxl :reader cxl)
 107    (cxs :value-type cdata :initarg :cxs :reader cxs)
 108    (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :hyperlink find-ucon-cui
 109          :print-formatter fmt-cui)
 110    (hcd :value-type string :initarg :hcd :reader hcd)
 111    (rela :value-type string :initarg :rela :reader rela)
 112    (xc :value-type string  :initarg :xc :reader xc))
 113   (:metaclass hyperobject-class)
 114   (:user-name "Context")
 115   (:default-print-slots sab code rnk cxn cxl hcd rela xc cui2 cxs))
 116
 117 (defclass ustr (umlsclass)
 118   ((sui :value-type fixnum :initarg :sui :reader sui :print-formatter fmt-sui
 119         :hyperlink find-ustr-sui)
 120    (cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
 121         :hyperlink find-ucon-cui)
 122    (lui :value-type fixnum :initarg :lui :reader lui :print-formatter fmt-lui
 123         :hyperlink find-uterm-lui)
 124    (cuisui :value-type integer :initarg :cuisui :reader cuisui )
 125    (str :value-type cdata :initarg :str :reader str)
 126    (lrl :value-type fixnum :initarg :lrl :reader lrl)
 127    (stt :value-type string :initarg :stt :reader stt)
 128    (s#so :reader s#so :subobject (find-uso-cuisui cui sui))
 129    (s#sat :reader s#sat :subobject (find-usat-ui cui lui sui))
 130    (s#cxt :reader s#cxt :subobject (find-ucxt-cuisui cui sui)))
 131   (:metaclass hyperobject-class)
 132   (:user-name "String")
 133   (:default-print-slots sui stt lrl str))
 134
 135 (defclass ulo (umlsclass)
 136   ((isn :value-type string :initarg :isn :reader isn)
 137    (fr :value-type fixnum :initarg :fr :reader fr)
 138    (un :value-type string :initarg :un :reader un)
 139    (sui :value-type fixnum :initarg :sui :reader sui :print-formatter fmt-sui)
 140    (sna :value-type string :initarg :sna :reader sna)
 141    (soui :value-type string :initarg :soui :reader soui))
 142   (:metaclass hyperobject-class)
 143   (:user-name "Locator")
 144   (:default-print-slots isn fr un sna soui sui))
 145
 146 (defclass uterm (umlsclass)
 147   ((lui :value-type fixnum :initarg :lui :reader lui :print-formatter fmt-lui
 148         :hyperlink find-uterm-lui)
 149    (cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
 150         :hyperlink find-ucon-cui)
 151    (lat :value-type string :initarg :lat :reader lat)
 152    (ts :value-type string  :initarg :ts :reader ts)
 153    (lrl :value-type fixnum :initarg :lrl :reader lrl)
 154    (s#str :reader s#str :subobject (find-ustr-cuilui cui lui))
 155    (s#sat :reader s#sat :subobject (find-usat-ui cui lui)))
 156   (:metaclass hyperobject-class)
 157   (:user-name "Term")
 158   (:default-print-slots lui lat ts lrl))
 159
 160 (defclass usty (umlsclass)
 161   ((tui :value-type fixnum :initarg :tui :reader tui :print-formatter fmt-tui
 162         :hyperlink find-ucon-tui
 163         :hyperlink-parameters (("subobjects" . "no")))
 164    (sty :value-type string :initarg :sty :reader sty))
 165   (:metaclass hyperobject-class)
 166   (:user-name "Semantic Type")
 167   (:default-print-slots tui sty))
 168
 169 (defclass urel (umlsclass)
 170   ((rel :value-type string :initarg :rel :reader rel :hyperlink find-brel-rel)
 171    (cui1 :value-type fixnum :initarg :cui1 :reader cui1 :print-formatter fmt-cui)
 172    (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :hyperlink find-ucon-sui
 173          :print-formatter fmt-cui)
 174    (pfstr2 :value-type cdata :initarg :pfstr2 :reader pfstr2)
 175    (rela :value-type string :initarg :rela :reader rela)
 176    (sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab)
 177    (sl :value-type string  :initarg :sl :reader sl)
 178    (mg :value-type string  :initarg :mg :reader mg))
 179   (:metaclass hyperobject-class)
 180   (:user-name "Relationship")
 181   (:default-print-slots rel rela sab sl mg cui2 pfstr2))
 182
 183 (defclass ucoc (umlsclass)
 184   ((cui1 :value-type fixnum :initarg :cui1 :reader cui1 :print-formatter fmt-cui)
 185    (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :print-formatter fmt-cui
 186          :hyperlink find-ucon-cui)
 187    (pfstr2 :value-type cdata :initarg :pfstr2 :reader pfstr2)
 188    (soc :value-type string :initarg :soc :reader soc)
 189    (cot :value-type string :initarg :cot :reader cot)
 190    (cof :value-type fixnum :initarg :cof :reader cof)
 191    (coa :value-type cdata :initarg :coa :reader coa))
 192   (:metaclass hyperobject-class)
 193   (:user-name "Co-occuring Concept")
 194   (:default-print-slots soc cot cof coa cui2 pfstr2))
 195
 196
 197 (defclass uatx (umlsclass)
 198   ((sab :value-type string :initarg :sab :reader sab)
 199    (rel :value-type string :initarg :rel :reader rel)
 200    (atx :value-type cdata :initarg :atx :reader atx))
 201   (:metaclass hyperobject-class)
 202   (:user-name "Associated Expression")
 203   (:default-print-slots sab rel atx))
 204
 205 (defclass ucon (umlsclass)
 206   ((cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
 207         :hyperlink find-ucon-cui)
 208    (lrl :value-type fixnum :initarg :lrl :reader lrl)
 209    (pfstr :value-type cdata :initarg :pfstr :reader pfstr)
 210    (s#def :reader s#def :subobject (find-udef-cui cui))
 211    (s#sty :reader s#sty :subobject (find-usty-cui cui))
 212    (s#atx :reader s#atx :subobject (find-uatx-cui cui))
 213    (s#lo :reader s#lo :subobject (find-ulo-cui cui))
 214    (s#term :reader s#term :subobject (find-uterm-cui cui))
 215    (s#sat :reader s#sat :subobject (find-usat-ui cui))
 216    (s#rel :reader s#rel :subobject (find-urel-cui cui))
 217    (s#coc :reader s#coc :subobject (find-ucoc-cui cui)))
 218   (:metaclass hyperobject-class)
 219   (:user-name "Concept")
 220   (:default-print-slots cui lrl pfstr))
 221
 222 (defclass uxw (umlsclass)
 223   ((wd :value-type string :initarg :wd :reader wd)
 224    (cui :value-type fixnum :initform nil :initarg :cui :reader cui :print-formatter fmt-cui)
 225    (lui :value-type fixnum :initform nil :initarg :lui :reader lui :print-formatter fmt-lui)
 226    (sui :value-type fixnum :initform nil :initarg :sui :reader sui :print-formatter fmt-sui))
 227   (:metaclass hyperobject-class)
 228   (:user-name "XW Index" "XW Indices")
 229   (:default-print-slots wd cui lui sui))
 230
 231 (defclass uxw-noneng (umlsclass)
 232   ((lat :value-type string :initarg :lat :reader lat)
 233    (wd :value-type string :initarg :wd :reader wd)
 234    (cui :value-type fixnum :initform nil :initarg :cui :reader cui :print-formatter fmt-cui)
 235    (lui :value-type fixnum :initform nil :initarg :lui :reader lui :print-formatter fmt-lui)
 236    (sui :value-type fixnum :initform nil :initarg :sui :reader sui :print-formatter fmt-sui)
 237    (lrl :value-type fixnum :initform nil :initarg :lrl :reader lrl))
 238   (:metaclass hyperobject-class)
 239   (:user-name "XW Non-English Index" "XW Non-English Indices")
 240   (:default-print-slots wd cui lui sui))
 241
 242 (defclass uxnw (umlsclass)
 243   ((lat :value-type string :initarg :lat :reader lat)
 244    (nwd :value-type string :initarg :nwd :reader nwd)
 245    (cuilist :value-type list :initarg :cuilist :reader uxnw-cuilist))
 246   (:metaclass hyperobject-class)
 247   (:user-name "XNW Index" "XNW Indices")
 248   (:default-print-slots lat nwd cuilist))
 249
 250 (defclass uxns (umlsclass)
 251   ((lat :value-type string :initarg :lat :reader lat)
 252    (nstr :value-type string :initarg :nstr :reader nstr)
 253    (cuilist :value-type list :initarg :cuilist :reader cuilist))
 254   (:metaclass hyperobject-class)
 255   (:user-name "XNS Index" "XNS Indices")
 256   (:default-print-slots lat nstr cuilist))
 257
 258
 259 ;;; LEX objects
 260
 261 (defclass lexterm (umlsclass)
 262   ((eui :value-type fixnum :initarg :eui :reader eui :print-formatter fmt-eui
 263         :hyperlink find-lexterm-eui)
 264    (wrd :value-type string :initarg :wrd :reader wrd)
 265    (s#abr :reader s#abr :subobject (find-labr-eui eui))
 266    (s#agr :reader s#agr :subobject (find-lagr-eui eui))
 267    (s#cmp :reader s#cmp :subobject (find-lcmp-eui eui))
 268    (s#mod :reader s#mod :subobject (find-lmod-eui eui))
 269    (s#nom :reader s#nom :subobject (find-lnom-eui eui))
 270    (s#prn :reader s#prn :subobject (find-lprn-eui eui))
 271    (s#prp :reader s#prp :subobject (find-lprp-eui eui))
 272    (s#spl :reader s#spl :subobject (find-lspl-eui eui))
 273    (s#trm :reader s#trm :subobject (find-ltrm-eui eui))
 274    (s#typ :reader s#typ :subobject (find-ltyp-eui eui)))
 275   (:metaclass hyperobject-class)
 276   (:user-name "Lexical Term")
 277   (:default-print-slots eui wrd))
 278
 279
 280 (defclass labr  (umlsclass)
 281   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 282    (bas :value-type string :initarg :bas :reader bas)
 283    (abr :value-type string :initarg :abr :reader abr)
 284    (eui2 :value-type integer :initarg :eui2 :reader eui2 :print-formatter fmt-eui)
 285    (bas2 :value-type string :initarg :bas2 :reader bas2))
 286   (:metaclass hyperobject-class)
 287   (:user-name "Abbreviations and Acronym")
 288   (:default-print-slots eui bas abr eui2 bas2))
 289
 290 (defclass lagr  (umlsclass)
 291   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 292    (str :value-type string :initarg :str :reader str)
 293    (sca :value-type string :initarg :sca :reader sca)
 294    (agr :value-type string :initarg :agr :reader agr)
 295    (cit :value-type string :initarg :cit :reader cit)
 296    (bas :value-type string :initarg :bas :reader bas))
 297   (:metaclass hyperobject-class)
 298   (:user-name "Agreement and Inflection")
 299   (:default-print-slots eui str sca agr cit bas))
 300
 301 (defclass lcmp  (umlsclass)
 302   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 303    (bas :value-type string :initarg :bas :reader bas)
 304    (sca :value-type string :initarg :sca :reader sca)
 305    (com :value-type string :initarg :com :reader com))
 306   (:metaclass hyperobject-class)
 307   (:user-name "Complementation")
 308   (:default-print-slots eui bas sca com))
 309
 310 (defclass lmod  (umlsclass)
 311   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 312    (bas :value-type string :initarg :bas :reader bas)
 313    (sca :value-type string :initarg :sca :reader sca)
 314    (psnmod :value-type string :initarg :psnmod :reader psnmod)
 315    (fea :value-type string :initarg :fea :reader fea))
 316   (:metaclass hyperobject-class)
 317   (:user-name "Modifier")
 318   (:default-print-slots eui bas sca psnmod fea))
 319
 320 (defclass lnom  (umlsclass)
 321   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 322    (bas :value-type string :initarg :bas :reader bas)
 323    (sca :value-type string :initarg :sca :reader sca)
 324    (eui2 :value-type integer :initarg :eui2 :reader eui2 :print-formatter fmt-eui)
 325    (bas2 :value-type string :initarg :bas2 :reader bas2)
 326    (sca2 :value-type string :initarg :sca2 :reader sca2))
 327   (:metaclass hyperobject-class)
 328   (:user-name "Nominalization")
 329   (:default-print-slots eui bas sca eui2 bas2 sca2))
 330
 331 (defclass lprn  (umlsclass)
 332   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 333    (bas :value-type string :initarg :bas :reader bas)
 334    (num :value-type string :initarg :num :reader num)
 335    (gnd :value-type string :initarg :gnd :reader gnd)
 336    (cas :value-type string :initarg :cas :reader cas)
 337    (pos :value-type string :initarg :pos :reader pos)
 338    (qnt :value-type string :initarg :qnt :reader qnt)
 339    (fea :value-type string :initarg :fea :reader fea))
 340   (:metaclass hyperobject-class)
 341   (:user-name "Pronoun")
 342   (:default-print-slots eui bas num gnd cas pos qnt fea))
 343
 344 (defclass lprp  (umlsclass)
 345   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 346    (bas :value-type string :initarg :bas :reader bas)
 347    (str :value-type string :initarg :str :reader str)
 348    (sca :value-type string :initarg :sca :reader sca)
 349    (fea :value-type string :initarg :fea :reader fea))
 350   (:metaclass hyperobject-class)
 351   (:user-name "Property" "Properties")
 352   (:default-print-slots eui bas str sca fea))
 353
 354
 355 (defclass lspl  (umlsclass)
 356   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 357    (spv :value-type string :initarg :spv :reader spv)
 358    (bas :value-type string :initarg :bas :reader bas))
 359   (:metaclass hyperobject-class)
 360   (:user-name "Spelling Variant")
 361   (:default-print-slots eui spv bas))
 362
 363
 364 (defclass ltrm  (umlsclass)
 365   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 366    (bas :value-type string :initarg :bas :reader bas)
 367    (gen :value-type string :initarg :gen :reader gen))
 368   (:metaclass hyperobject-class)
 369   (:user-name "Trade Mark")
 370   (:default-print-slots eui bas gen))
 371
 372 (defclass ltyp  (umlsclass)
 373   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 374    (bas :value-type string :initarg :bas :reader bas)
 375    (sca :value-type string :initarg :sca :reader sca)
 376    (typ :value-type string :initarg :typ :reader typ))
 377   (:metaclass hyperobject-class)
 378   (:user-name "Inflection Type")
 379   (:default-print-slots eui bas sca typ))
 380
 381 (defclass lwd (umlsclass)
 382   ((wrd :value-type string :initarg :wrd :reader wrd)
 383    (euilist :value-type list :initarg :euilist :reader euilist))
 384   (:metaclass hyperobject-class)
 385   (:user-name "Lexical Word Index" "Lexical Word Indices")
 386   (:default-print-slots wrd euilist))
 387
 388 ;;; Semantic NET objects
 389
 390 (defclass sdef (umlsclass)
 391   ((rt :value-type string :initarg :rt :reader rt)
 392    (ui :value-type integer :initarg :ui :reader ui :print-formatter fmt-tui)
 393    (styrl :value-type string :initarg :styrl :reader styrl)
 394    (stnrtn :value-type string :initarg :stnrtn :reader stnrtn)
 395    (def :value-type string :initarg :def :reader def)
 396    (ex :value-type string :initarg :ex :reader ex)
 397    (un :value-type string :initarg :un :reader un)
 398    (rh :value-type string :initarg :rh :reader rh)
 399    (abr :value-type string :initarg :abr :reader abr)
 400    (rin :value-type string :initarg :rin :reader rin))
 401   (:metaclass hyperobject-class)
 402   (:user-name "Basic information about Semantic Types and Relation")
 403   (:default-print-slots rt ui styrl stnrtn def ex un rh abr rin))
 404
 405 (defclass sstr (umlsclass)
 406   ((styrl :value-type string :initarg :styrl :reader styrl)
 407    (rl :value-type string :initarg :rl :reader rl)
 408    (styrl2 :value-type string :initarg :styrl2 :reader styrl2)
 409    (ls :value-type string :initarg :ls :reader ls))
 410   (:metaclass hyperobject-class)
 411   (:user-name "Structure of the Network")
 412   (:default-print-slots styrl rl styrl2 ls))
 413
 414 (defclass sstre1 (umlsclass)
 415   ((ui :value-type integer :initarg :ui :reader ui :print-formatter fmt-tui)
 416    (ui2 :value-type integer :initarg :ui2 :reader ui2 :print-formatter fmt-tui)
 417    (ui3 :value-type integer :initarg :ui3 :reader ui3 :print-formatter fmt-tui))
 418   (:metaclass hyperobject-class)
 419   (:user-name "Fully Inherited Set of Relation (TUIs)"
 420               "Fully Inherited Set of Relations (TUIs)")
 421   (:default-print-slots ui ui2 ui3))
 422
 423 (defclass sstre2 (umlsclass)
 424   ((sty :value-type string :initarg :ui :reader sty)
 425    (rl :value-type string :initarg :ui2 :reader rl)
 426    (sty2 :value-type string :initarg :ui3 :reader sty2))
 427   (:metaclass hyperobject-class)
 428   (:user-name "Fully Inherited Set of Relation (strings)"
 429               "Fully Inherited Set of Relations (strings)")
 430   (:default-print-slots sty rl sty2))
 431
 432
 433 ;;; **************************
 434 ;;; Local Classes
 435 ;;; **************************
 436
 437 (defclass ustats (umlsclass)
 438   ((name :value-type string :initarg :name :reader name)
 439    (hits :value-type integer :initarg :hits :reader hits
 440          :user-name "count"
 441          :print-formatter fmt-comma-integer)
 442    (srl :value-type fixnum :initarg :srl :reader srl))
 443   (:metaclass hyperobject-class)
 444   (:default-initargs :name nil :hits nil :srl nil)
 445   (:user-name "UMLS Statistic")
 446   (:default-print-slots name hits srl)
 447   (:documentation "Custom Table: UMLS Database statistics."))
 448
 449
 450 (defclass bsab (umlsclass)
 451   ((sab :value-type string :initarg :sab :reader sab
 452         :hyperlink find-ustr-sab
 453         :hyperlink-parameters (("subobjects" . "no")))
 454    (name :value-type string :initarg :name :reader name)
 455    (hits :value-type fixnum :initarg :hits :reader hits
 456          :user-name "count"
 457          :print-formatter fmt-comma-integer))
 458   (:metaclass hyperobject-class)
 459   (:default-initargs :sab nil :name nil :hits nil)
 460   (:user-name "Source of Abbreviation")
 461   (:default-print-slots sab name hits)
 462   (:documentation "Bonus SAB file"))
 463
 464 (defclass btty (umlsclass)
 465   ((tty :value-type string :initarg :tty :reader tty)
 466    (name :value-type string :initarg :name :reader name)
 467    (hits :value-type fixnum :initarg :hits :reader hits
 468          :user-name "count"
 469          :print-formatter fmt-comma-integer))
 470   (:metaclass hyperobject-class)
 471   (:default-initargs :tty nil :name nil :hits nil)
 472   (:user-name "Bonus TTY")
 473   (:default-print-slots tty name hits)
 474   (:documentation "Bonus TTY file"))
 475
 476 (defclass brel (umlsclass)
 477   ((sab :value-type string :initarg :sab :reader sab)
 478    (sl :value-type string :initarg :sl :reader sl)
 479    (rel :value-type string :initarg :rel :reader rel)
 480    (rela :value-type string :initarg :rela :reader rela)
 481    (hits :value-type fixnum :initarg :hits :reader hits
 482          :user-name "count"
 483          :print-formatter fmt-comma-integer))
 484   (:metaclass hyperobject-class)
 485   (:default-initargs :sab nil :sl nil :rel nil :rela nil :hits nil)
 486   (:user-name "Bonus REL")
 487   (:default-print-slots sab sl rel rela hits)
 488   (:documentation "Bonus REL file"))
 489
 490 (defclass batn (umlsclass)
 491   ((sab :value-type string :initarg :sab :reader sab)
 492    (atn :value-type string :initarg :atn :reader atn)
 493    (hits :value-type fixnum :initarg :hits :reader hits
 494          :user-name "count"
 495          :print-formatter fmt-comma-intger))
 496   (:metaclass hyperobject-class)
 497   (:default-initargs :sab nil :atn nil)
 498   (:user-name "Bonus ATN")
 499   (:default-print-slots sab atn hits)
 500   (:documentation "Bonus ATN file"))