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)
  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 ucxt (umlsclass)
  93   ((sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab)
  94    (code :value-type string :initarg :code :reader code)
  95    (cxn :value-type fixnum :initarg :cxn :reader cxn)
  96    (cxl :value-type string :initarg :cxl :reader cxl)
  97    (cxs :value-type cdata :initarg :cxs :reader cxs)
  98    (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :hyperlink find-ucon-cui
  99          :print-formatter fmt-cui)
 100    (hcd :value-type string :initarg :hcd :reader hcd)
 101    (rela :value-type string :initarg :rela :reader rela)
 102    (xc :value-type string  :initarg :xc :reader xc))
 103   (:metaclass hyperobject-class)
 104   (:user-name "Context")
 105   (:default-print-slots sab code rnk cxn cxl hcd rela xc cui2 cxs))
 106
 107 (defclass ustr (umlsclass)
 108   ((sui :value-type fixnum :initarg :sui :reader sui :print-formatter fmt-sui
 109         :hyperlink find-ustr-sui)
 110    (cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
 111         :hyperlink find-ucon-cui)
 112    (lui :value-type fixnum :initarg :lui :reader lui :print-formatter fmt-lui
 113         :hyperlink find-uterm-lui)
 114    (cuisui :value-type integer :initarg :cuisui :reader cuisui )
 115    (str :value-type cdata :initarg :str :reader str)
 116    (lrl :value-type fixnum :initarg :lrl :reader lrl)
 117    (stt :value-type string :initarg :stt :reader stt)
 118    (s#so :reader s#so :subobject (find-uso-cuisui cui sui))
 119    (s#sat :reader s#sat :subobject (find-usat-ui cui lui sui))
 120    (s#cxt :reader s#cxt :subobject (find-ucxt-cuisui cui sui)))
 121   (:metaclass hyperobject-class)
 122   (:user-name "String")
 123   (:default-print-slots sui stt lrl str))
 124
 125 (defclass uso (umlsclass)
 126   ((aui :value-type fixnum :initarg :aui :reader aui :print-formatter fmt-aui)
 127    (cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
 128         :hyperlink find-ucon-cui)
 129    (sui :value-type fixnum :initarg :sui :reader sui :print-formatter fmt-sui
 130         :hyperlink find-ucon-sui)
 131    (saui :value-type string :initarg :saui :reader saui)
 132    (sdui :value-type string :initarg :sdui :reader sdui)
 133    (scui :value-type string :initarg :scui :reader scui)
 134    (tty :value-type string :initarg :tty :reader tty :hyperlink find-btty-tty)
 135    (sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab)
 136    (code :value-type string :initarg :code :reader code)
 137    (srl :value-type fixnum :initarg :srl :reader srl))
 138   (:metaclass hyperobject-class)
 139   (:user-name "Source")
 140   (:default-print-slots aui sab code saui sdui scui tty srl))
 141
 142 (defclass ulo (umlsclass)
 143   ((isn :value-type string :initarg :isn :reader isn)
 144    (fr :value-type fixnum :initarg :fr :reader fr)
 145    (un :value-type string :initarg :un :reader un)
 146    (sui :value-type fixnum :initarg :sui :reader sui :print-formatter fmt-sui)
 147    (sna :value-type string :initarg :sna :reader sna)
 148    (soui :value-type string :initarg :soui :reader soui))
 149   (:metaclass hyperobject-class)
 150   (:user-name "Locator")
 151   (:default-print-slots isn fr un sna soui sui))
 152
 153 (defclass uterm (umlsclass)
 154   ((lui :value-type fixnum :initarg :lui :reader lui :print-formatter fmt-lui
 155         :hyperlink find-uterm-lui)
 156    (cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
 157         :hyperlink find-ucon-cui)
 158    (lat :value-type string :initarg :lat :reader lat)
 159    (ts :value-type string  :initarg :ts :reader ts)
 160    (lrl :value-type fixnum :initarg :lrl :reader lrl)
 161    (s#str :reader s#str :subobject (find-ustr-cuilui cui lui))
 162    (s#sat :reader s#sat :subobject (find-usat-ui cui lui)))
 163   (:metaclass hyperobject-class)
 164   (:user-name "Term")
 165   (:default-print-slots lui lat ts lrl))
 166
 167 (defclass usty (umlsclass)
 168   ((tui :value-type fixnum :initarg :tui :reader tui :print-formatter fmt-tui
 169         :hyperlink find-ucon-tui
 170         :hyperlink-parameters (("subobjects" . "no")))
 171    (sty :value-type string :initarg :sty :reader sty))
 172   (:metaclass hyperobject-class)
 173   (:user-name "Semantic Type")
 174   (:default-print-slots tui sty))
 175
 176 (defclass urel (umlsclass)
 177   ((rel :value-type string :initarg :rel :reader rel :hyperlink find-brel-rel)
 178    (cui1 :value-type fixnum :initarg :cui1 :reader cui1 :print-formatter fmt-cui)
 179    (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :hyperlink find-ucon-sui
 180          :print-formatter fmt-cui)
 181    (pfstr2 :value-type cdata :initarg :pfstr2 :reader pfstr2)
 182    (rela :value-type string :initarg :rela :reader rela)
 183    (sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab)
 184    (sl :value-type string  :initarg :sl :reader sl))
 185   (:metaclass hyperobject-class)
 186   (:user-name "Relationship")
 187   (:default-print-slots rel rela sab sl mg cui2 pfstr2))
 188
 189 (defclass ucoc (umlsclass)
 190   ((cui1 :value-type fixnum :initarg :cui1 :reader cui1 :print-formatter fmt-cui)
 191    (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :print-formatter fmt-cui
 192          :hyperlink find-ucon-cui)
 193    (pfstr2 :value-type cdata :initarg :pfstr2 :reader pfstr2)
 194    (cot :value-type string :initarg :cot :reader cot)
 195    (cof :value-type fixnum :initarg :cof :reader cof)
 196    (coa :value-type cdata :initarg :coa :reader coa))
 197   (:metaclass hyperobject-class)
 198   (:user-name "Co-occuring Concept")
 199   (:default-print-slots soc cot cof coa cui2 pfstr2))
 200
 201
 202 (defclass ucon (umlsclass)
 203   ((cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
 204         :hyperlink find-ucon-cui)
 205    (lrl :value-type fixnum :initarg :lrl :reader lrl)
 206    (pfstr :value-type cdata :initarg :pfstr :reader pfstr)
 207    (s#def :reader s#def :subobject (find-udef-cui cui))
 208    (s#sty :reader s#sty :subobject (find-usty-cui cui))
 209    (s#lo :reader s#lo :subobject (find-ulo-cui cui))
 210    (s#term :reader s#term :subobject (find-uterm-cui cui))
 211    (s#sat :reader s#sat :subobject (find-usat-ui cui))
 212    (s#rel :reader s#rel :subobject (find-urel-cui cui))
 213    (s#coc :reader s#coc :subobject (find-ucoc-cui cui)))
 214   (:metaclass hyperobject-class)
 215   (:user-name "Concept")
 216   (:default-print-slots cui lrl pfstr))
 217
 218 (defclass uxw (umlsclass)
 219   ((wd :value-type string :initarg :wd :reader wd)
 220    (cui :value-type fixnum :initform nil :initarg :cui :reader cui :print-formatter fmt-cui)
 221    (lui :value-type fixnum :initform nil :initarg :lui :reader lui :print-formatter fmt-lui)
 222    (sui :value-type fixnum :initform nil :initarg :sui :reader sui :print-formatter fmt-sui))
 223   (:metaclass hyperobject-class)
 224   (:user-name "XW Index" "XW Indices")
 225   (:default-print-slots wd cui lui sui))
 226
 227 (defclass uxw-noneng (umlsclass)
 228   ((lat :value-type string :initarg :lat :reader lat)
 229    (wd :value-type string :initarg :wd :reader wd)
 230    (cui :value-type fixnum :initform nil :initarg :cui :reader cui :print-formatter fmt-cui)
 231    (lui :value-type fixnum :initform nil :initarg :lui :reader lui :print-formatter fmt-lui)
 232    (sui :value-type fixnum :initform nil :initarg :sui :reader sui :print-formatter fmt-sui)
 233    (lrl :value-type fixnum :initform nil :initarg :lrl :reader lrl))
 234   (:metaclass hyperobject-class)
 235   (:user-name "XW Non-English Index" "XW Non-English Indices")
 236   (:default-print-slots wd cui lui sui))
 237
 238 (defclass uxnw (umlsclass)
 239   ((lat :value-type string :initarg :lat :reader lat)
 240    (nwd :value-type string :initarg :nwd :reader nwd)
 241    (cuilist :value-type list :initarg :cuilist :reader uxnw-cuilist))
 242   (:metaclass hyperobject-class)
 243   (:user-name "XNW Index" "XNW Indices")
 244   (:default-print-slots lat nwd cuilist))
 245
 246 (defclass uxns (umlsclass)
 247   ((lat :value-type string :initarg :lat :reader lat)
 248    (nstr :value-type string :initarg :nstr :reader nstr)
 249    (cuilist :value-type list :initarg :cuilist :reader cuilist))
 250   (:metaclass hyperobject-class)
 251   (:user-name "XNS Index" "XNS Indices")
 252   (:default-print-slots lat nstr cuilist))
 253
 254
 255 ;;; LEX objects
 256
 257 (defclass lexterm (umlsclass)
 258   ((eui :value-type fixnum :initarg :eui :reader eui :print-formatter fmt-eui
 259         :hyperlink find-lexterm-eui)
 260    (wrd :value-type string :initarg :wrd :reader wrd)
 261    (s#abr :reader s#abr :subobject (find-labr-eui eui))
 262    (s#agr :reader s#agr :subobject (find-lagr-eui eui))
 263    (s#cmp :reader s#cmp :subobject (find-lcmp-eui eui))
 264    (s#mod :reader s#mod :subobject (find-lmod-eui eui))
 265    (s#nom :reader s#nom :subobject (find-lnom-eui eui))
 266    (s#prn :reader s#prn :subobject (find-lprn-eui eui))
 267    (s#prp :reader s#prp :subobject (find-lprp-eui eui))
 268    (s#spl :reader s#spl :subobject (find-lspl-eui eui))
 269    (s#trm :reader s#trm :subobject (find-ltrm-eui eui))
 270    (s#typ :reader s#typ :subobject (find-ltyp-eui eui)))
 271   (:metaclass hyperobject-class)
 272   (:user-name "Lexical Term")
 273   (:default-print-slots eui wrd))
 274
 275
 276 (defclass labr  (umlsclass)
 277   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 278    (bas :value-type string :initarg :bas :reader bas)
 279    (abr :value-type string :initarg :abr :reader abr)
 280    (eui2 :value-type integer :initarg :eui2 :reader eui2 :print-formatter fmt-eui)
 281    (bas2 :value-type string :initarg :bas2 :reader bas2))
 282   (:metaclass hyperobject-class)
 283   (:user-name "Abbreviations and Acronym")
 284   (:default-print-slots eui bas abr eui2 bas2))
 285
 286 (defclass lagr  (umlsclass)
 287   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 288    (str :value-type string :initarg :str :reader str)
 289    (sca :value-type string :initarg :sca :reader sca)
 290    (agr :value-type string :initarg :agr :reader agr)
 291    (cit :value-type string :initarg :cit :reader cit)
 292    (bas :value-type string :initarg :bas :reader bas))
 293   (:metaclass hyperobject-class)
 294   (:user-name "Agreement and Inflection")
 295   (:default-print-slots eui str sca agr cit bas))
 296
 297 (defclass lcmp  (umlsclass)
 298   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 299    (bas :value-type string :initarg :bas :reader bas)
 300    (sca :value-type string :initarg :sca :reader sca)
 301    (com :value-type string :initarg :com :reader com))
 302   (:metaclass hyperobject-class)
 303   (:user-name "Complementation")
 304   (:default-print-slots eui bas sca com))
 305
 306 (defclass lmod  (umlsclass)
 307   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 308    (bas :value-type string :initarg :bas :reader bas)
 309    (sca :value-type string :initarg :sca :reader sca)
 310    (psnmod :value-type string :initarg :psnmod :reader psnmod)
 311    (fea :value-type string :initarg :fea :reader fea))
 312   (:metaclass hyperobject-class)
 313   (:user-name "Modifier")
 314   (:default-print-slots eui bas sca psnmod fea))
 315
 316 (defclass lnom  (umlsclass)
 317   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 318    (bas :value-type string :initarg :bas :reader bas)
 319    (sca :value-type string :initarg :sca :reader sca)
 320    (eui2 :value-type integer :initarg :eui2 :reader eui2 :print-formatter fmt-eui)
 321    (bas2 :value-type string :initarg :bas2 :reader bas2)
 322    (sca2 :value-type string :initarg :sca2 :reader sca2))
 323   (:metaclass hyperobject-class)
 324   (:user-name "Nominalization")
 325   (:default-print-slots eui bas sca eui2 bas2 sca2))
 326
 327 (defclass lprn  (umlsclass)
 328   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 329    (bas :value-type string :initarg :bas :reader bas)
 330    (num :value-type string :initarg :num :reader num)
 331    (gnd :value-type string :initarg :gnd :reader gnd)
 332    (cas :value-type string :initarg :cas :reader cas)
 333    (pos :value-type string :initarg :pos :reader pos)
 334    (qnt :value-type string :initarg :qnt :reader qnt)
 335    (fea :value-type string :initarg :fea :reader fea))
 336   (:metaclass hyperobject-class)
 337   (:user-name "Pronoun")
 338   (:default-print-slots eui bas num gnd cas pos qnt fea))
 339
 340 (defclass lprp  (umlsclass)
 341   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 342    (bas :value-type string :initarg :bas :reader bas)
 343    (str :value-type string :initarg :str :reader str)
 344    (sca :value-type string :initarg :sca :reader sca)
 345    (fea :value-type string :initarg :fea :reader fea))
 346   (:metaclass hyperobject-class)
 347   (:user-name "Property" "Properties")
 348   (:default-print-slots eui bas str sca fea))
 349
 350
 351 (defclass lspl  (umlsclass)
 352   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 353    (spv :value-type string :initarg :spv :reader spv)
 354    (bas :value-type string :initarg :bas :reader bas))
 355   (:metaclass hyperobject-class)
 356   (:user-name "Spelling Variant")
 357   (:default-print-slots eui spv bas))
 358
 359
 360 (defclass ltrm  (umlsclass)
 361   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 362    (bas :value-type string :initarg :bas :reader bas)
 363    (gen :value-type string :initarg :gen :reader gen))
 364   (:metaclass hyperobject-class)
 365   (:user-name "Trade Mark")
 366   (:default-print-slots eui bas gen))
 367
 368 (defclass ltyp  (umlsclass)
 369   ((eui :value-type integer :initarg :eui :reader eui :print-formatter fmt-eui)
 370    (bas :value-type string :initarg :bas :reader bas)
 371    (sca :value-type string :initarg :sca :reader sca)
 372    (typ :value-type string :initarg :typ :reader typ))
 373   (:metaclass hyperobject-class)
 374   (:user-name "Inflection Type")
 375   (:default-print-slots eui bas sca typ))
 376
 377 (defclass lwd (umlsclass)
 378   ((wrd :value-type string :initarg :wrd :reader wrd)
 379    (euilist :value-type list :initarg :euilist :reader euilist))
 380   (:metaclass hyperobject-class)
 381   (:user-name "Lexical Word Index" "Lexical Word Indices")
 382   (:default-print-slots wrd euilist))
 383
 384 ;;; Semantic NET objects
 385
 386 (defclass sdef (umlsclass)
 387   ((rt :value-type string :initarg :rt :reader rt)
 388    (ui :value-type integer :initarg :ui :reader ui :print-formatter fmt-tui)
 389    (styrl :value-type string :initarg :styrl :reader styrl)
 390    (stnrtn :value-type string :initarg :stnrtn :reader stnrtn)
 391    (def :value-type string :initarg :def :reader def)
 392    (ex :value-type string :initarg :ex :reader ex)
 393    (un :value-type string :initarg :un :reader un)
 394    (rh :value-type string :initarg :rh :reader rh)
 395    (abr :value-type string :initarg :abr :reader abr)
 396    (rin :value-type string :initarg :rin :reader rin))
 397   (:metaclass hyperobject-class)
 398   (:user-name "Basic information about Semantic Types and Relation")
 399   (:default-print-slots rt ui styrl stnrtn def ex un rh abr rin))
 400
 401 (defclass sstr (umlsclass)
 402   ((styrl :value-type string :initarg :styrl :reader styrl)
 403    (rl :value-type string :initarg :rl :reader rl)
 404    (styrl2 :value-type string :initarg :styrl2 :reader styrl2)
 405    (ls :value-type string :initarg :ls :reader ls))
 406   (:metaclass hyperobject-class)
 407   (:user-name "Structure of the Network")
 408   (:default-print-slots styrl rl styrl2 ls))
 409
 410 (defclass sstre1 (umlsclass)
 411   ((ui :value-type integer :initarg :ui :reader ui :print-formatter fmt-tui)
 412    (ui2 :value-type integer :initarg :ui2 :reader ui2 :print-formatter fmt-tui)
 413    (ui3 :value-type integer :initarg :ui3 :reader ui3 :print-formatter fmt-tui))
 414   (:metaclass hyperobject-class)
 415   (:user-name "Fully Inherited Set of Relation (TUIs)"
 416               "Fully Inherited Set of Relations (TUIs)")
 417   (:default-print-slots ui ui2 ui3))
 418
 419 (defclass sstre2 (umlsclass)
 420   ((sty :value-type string :initarg :ui :reader sty)
 421    (rl :value-type string :initarg :ui2 :reader rl)
 422    (sty2 :value-type string :initarg :ui3 :reader sty2))
 423   (:metaclass hyperobject-class)
 424   (:user-name "Fully Inherited Set of Relation (strings)"
 425               "Fully Inherited Set of Relations (strings)")
 426   (:default-print-slots sty rl sty2))
 427
 428
 429 ;;; **************************
 430 ;;; Local Classes
 431 ;;; **************************
 432
 433 (defclass ustats (umlsclass)
 434   ((name :value-type string :initarg :name :reader name)
 435    (hits :value-type integer :initarg :hits :reader hits
 436          :user-name "count"
 437          :print-formatter fmt-comma-integer)
 438    (srl :value-type fixnum :initarg :srl :reader srl))
 439   (:metaclass hyperobject-class)
 440   (:default-initargs :name nil :hits nil :srl nil)
 441   (:user-name "UMLS Statistic")
 442   (:default-print-slots name hits srl)
 443   (:documentation "Custom Table: UMLS Database statistics."))
 444
 445
 446 (defclass bsab (umlsclass)
 447   ((sab :value-type string :initarg :sab :reader sab
 448         :hyperlink find-ustr-sab
 449         :hyperlink-parameters (("subobjects" . "no")))
 450    (name :value-type string :initarg :name :reader name)
 451    (hits :value-type fixnum :initarg :hits :reader hits
 452          :user-name "count"
 453          :print-formatter fmt-comma-integer))
 454   (:metaclass hyperobject-class)
 455   (:default-initargs :sab nil :name nil :hits nil)
 456   (:user-name "Source of Abbreviation")
 457   (:default-print-slots sab name hits)
 458   (:documentation "Bonus SAB file"))
 459
 460 (defclass btty (umlsclass)
 461   ((tty :value-type string :initarg :tty :reader tty)
 462    (name :value-type string :initarg :name :reader name)
 463    (hits :value-type fixnum :initarg :hits :reader hits
 464          :user-name "count"
 465          :print-formatter fmt-comma-integer))
 466   (:metaclass hyperobject-class)
 467   (:default-initargs :tty nil :name nil :hits nil)
 468   (:user-name "Bonus TTY")
 469   (:default-print-slots tty name hits)
 470   (:documentation "Bonus TTY file"))
 471
 472 (defclass brel (umlsclass)
 473   ((sab :value-type string :initarg :sab :reader sab)
 474    (sl :value-type string :initarg :sl :reader sl)
 475    (rel :value-type string :initarg :rel :reader rel)
 476    (rela :value-type string :initarg :rela :reader rela)
 477    (hits :value-type fixnum :initarg :hits :reader hits
 478          :user-name "count"
 479          :print-formatter fmt-comma-integer))
 480   (:metaclass hyperobject-class)
 481   (:default-initargs :sab nil :sl nil :rel nil :rela nil :hits nil)
 482   (:user-name "Bonus REL")
 483   (:default-print-slots sab sl rel rela hits)
 484   (:documentation "Bonus REL file"))
 485
 486 (defclass batn (umlsclass)
 487   ((sab :value-type string :initarg :sab :reader sab)
 488    (atn :value-type string :initarg :atn :reader atn)
 489    (hits :value-type fixnum :initarg :hits :reader hits
 490          :user-name "count"
 491          :print-formatter fmt-comma-intger))
 492   (:metaclass hyperobject-class)
 493   (:default-initargs :sab nil :atn nil)
 494   (:user-name "Bonus ATN")
 495   (:default-print-slots sab atn hits)
 496   (:documentation "Bonus ATN file"))