"SQL Databases: initializes entire database via SQL copy commands.
This is much faster that using create-umls-db-insert."
(ensure-ucols+ufiles)
"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)
(sql-create-custom-tables conn)
(sql-create-indexes conn +custom-index-cols+)
(sql-create-indexes conn)
(sql-create-custom-tables conn)
(sql-create-indexes conn +custom-index-cols+)
"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))
"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))
(incf translated-lines)))
(dolist (input-ufile input-ufiles)
(with-umls-ufile (line input-ufile)
(incf translated-lines)))
(dolist (input-ufile input-ufiles)
(with-umls-ufile (line input-ufile)
((< input-lines translated-lines)
(format t "Translated file ~A incomplete, deleting...~%" output-path)
(delete-file output-path)
((< input-lines translated-lines)
(format t "Translated file ~A incomplete, deleting...~%" output-path)
(delete-file output-path)
((eql input-lines translated-lines)
(format t "Translated file ~A already exists: skipping...~%" output-path)
t)
((eql input-lines translated-lines)
(format t "Translated file ~A already exists: skipping...~%" output-path)
t)
((> translated-lines input-lines)
(error "Shouldn't happen. Translated lines of ~A is ~D, greater than input lines ~D"
output-path translated-lines input-lines)
((> translated-lines input-lines)
(error "Shouldn't happen. Translated lines of ~A is ~D, greater than input lines ~D"
output-path translated-lines input-lines)
nil "COPY ~a FROM '~a' using delimiters '|' with null as ''"
(table file) (ufile-pathname file extension)))
nil "COPY ~a FROM '~a' using delimiters '|' with null as ''"
(table file) (ufile-pathname file extension)))
"Return mysql copy statement for a file"
(format
nil
"LOAD DATA ~AINFILE \"~a\" INTO TABLE ~a FIELDS TERMINATED BY \"|\""
(if local-file "LOCAL " "")
"Return mysql copy statement for a file"
(format
nil
"LOAD DATA ~AINFILE \"~a\" INTO TABLE ~a FIELDS TERMINATED BY \"|\""
(if local-file "LOCAL " "")