(: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))
;;;; Created: Apr 2000
;;;;
;;;; This file, part of UMLisp, is
-;;;; Copyright (c) 2000-2010 by Kevin M. Rosenberg, M.D.
+;;;; Copyright (c) 2000-2011 by Kevin M. Rosenberg, M.D.
;;;;
;;;; UMLisp users are granted the rights to distribute and use this software
;;;; as governed by the terms of the GNU General Public License.
;;; Paths for files
-(defparameter *release* "2010AA")
+(defparameter *release* "2011AA")
(defparameter *umls-path*
- (make-pathname :directory (list :absolute "srv" "umls" *release*))
+ (make-pathname :directory (list :absolute "srv" "umls" *release* *release*))
"Path for base of UMLS data files")
(defparameter *meta-dir*
#:suistr
#:print-umlsclass
#:find-ucon-cui #:make-ucon-cui
+ #:find-ucon-aui
#:find-uconso-cui
#:find-uconso-sui
#:find-uconso-cuisui
(in-package #:umlisp)
-(defvar +umls-sql-map+
+(defparameter +umls-sql-map+
'((:2004aa . "KUMLS2004AA")
(:2006ac . "KUMLS2006AC")
(:2006ad . "MTS2006AD")
(:2009ab . "MTS2009AB")
- (:2010aa . "MTS2010AA")))
-(defvar +default-umls-db+ "MTS2010AA")
+ (:2010aa . "MTS2010AA_ALL")
+ (:2011aa . "UMLS2011AA")))
+(defvar +default-umls-db+ "MTS2010AA_ALL")
(defun lookup-db-name (db)
(cdr (assoc (ensure-keyword db) +umls-sql-map+)))