;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: parse-2002.lisp
-;;;; Purpose: Parsing and SQL insertion routines for UMLisp which may
-;;;; change from year to year
-;;;; Author: Kevin M. Rosenberg
-;;;; Date Started: Apr 2000
+;;;; Name: parse-2002.lisp
+;;;; Purpose: Parsing and SQL insertion routines for UMLisp which may
+;;;; change from year to year
+;;;; Author: Kevin M. Rosenberg
+;;;; Created: Apr 2000
;;;;
-;;;; $Id: parse-2002.lisp,v 1.14 2003/06/11 01:42:03 kevin Exp $
+;;;; $Id$
;;;;
;;;; This file, part of UMLisp, is
-;;;; Copyright (c) 2000-2003 by Kevin M. Rosenberg, M.D.
+;;;; Copyright (c) 2000-2004 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.
(in-package #:umlisp)
-(eval-when (:compile-toplevel)
- (declaim (optimize (speed 3) (safety 1) (compilation-speed 0) (debug 3))))
-
;;; Pre-read data for custom fields into hash tables
(defvar *preparse-hash-init?* nil)
;;; sql-i - Integer (32-bit)
;;; sql-l - Big integer (64-bit)
;;; sql-f - Floating point
+;;; sql-c - Character data
(defparameter +col-datatypes+
'(("AV" sql-f) ("BTS" sql-i) ("CLS" sql-i) ("COF" sql-i) ("CUI1" sql-u)
("CUI2" sql-u) ("CUI" sql-u) ("CXN" sql-s) ("FR" sql-i) ("LRL" sql-s)
- ("LUI" sql-u) ("MAX" sql-s) ("MIN" sql-s) ("RANK" sql-s) ("REF" sql-s)
+ ("LUI" sql-u) ("MAX" sql-s) ("MIN" sql-s) ("RANK" sql-s) ("REF" sql-c)
("RNK" sql-s) ("RWS" sql-i) ("SRL" sql-s) ("SUI" sql-u) ("TUI" sql-u)
;;; Custom columns
("KCUISUI" sql-l) ("KCUILUI" sql-l) ("KCUILRL" sql-i) ("KLUILRL" sql-i)
("VCUI" "MRSAB") ("LAT" "MRSAB"))
"Columns in files to index")
-(defvar +relationship-abbreviations+
- '(("RB" "Broader" "has a broader relationship")
- ("RN" "Narrower" "has a narrower relationship")
- ("RO" "Other related" "has relationship other than synonymous, narrower, or broader")
- ("RL" "Like" "the two concepts are similar or 'alike'. In the current edition of the Metathesaurus, most relationships with this attribute are mappings provided by a source")
- ("RQ" "Unspecified" "unspecified source asserted relatedness, possibly synonymous")
- ("SY" "Source Synonymy" "source asserted synonymy")
- ("PAR" "Parent" "has parent relationship in a Metathesaurus source vocabulary")
- ("CHD" "Child" "has child relationship in a Metathesaurus source vocabulary")
- ("SIB" "Sibling" "has sibling relationship in a Metathesaurus source vocabulary")
- ("AQ" "Allowed" "is an allowed qualifier for a concept in a Metathesaurus source vocabulary")
- ("QB" "Qualified" "can be qualified by a concept in a Metathesaurus source vocabulary")))
(defparameter +custom-index-cols+
nil