(:oracle "NUMBER(2,0)")
(t "INTEGER")))
:database conn)
+ ;; KCON deprecated by KPFENG field in MRCONSO
+ #+nil
(dolist (tuple (query "select distinct cui from MRCONSO order by cui"
:database conn))
(let ((cui (car tuple)))
(sql-create-indexes conn +custom-index-cols+)
(sql-create-special-tables conn)))
-(defun create-umls-db (&key (extension ".trans") (skip-translation nil))
+(defun create-umls-db (&key (extension "-trans") (skip-translation nil))
"SQL Databases: initializes entire database via SQL copy commands.
This is much faster that using create-umls-db-insert."
(ensure-ucols+ufiles)
(sql-create-indexes conn +custom-index-cols+)
(sql-create-special-tables conn))))
-(defun translate-all-files (&optional (extension ".trans"))
+(defun translate-all-files (&optional (extension "-trans"))
"Copy translated files and return postgresql copy commands to import"
(make-noneng-index-file extension)
(dolist (f (remove "MRXW_NONENG.RRF" *umls-files* :test #'string= :key #'fil))
nil "COPY ~a FROM '~a' using delimiters '|' with null as ''"
(table file) (ufile-pathname file extension)))
-(defun mysql-copy-cmd (file extension &key local-file)
+(defun mysql-copy-cmd (file extension &key (local-file t))
"Return mysql copy statement for a file"
(format
nil
"LOAD DATA ~AINFILE \"~a\" INTO TABLE ~a FIELDS TERMINATED BY \"|\""
(if local-file "LOCAL " "")
- (ufile-pathname file extension) (table file)))
+ (namestring (ufile-pathname file extension)) (table file)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;