DINIT27K ;SFISC/DPC-ORACLE (DELIMITED) FOREIGN FORMAT ;6/10/93 13:35
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT28 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.44,.009,0)
;;=ORACLE (DELIMITED)^,^^^^0^1^0^1^1^^1
;;^DIST(.44,.009,1)
;;=D ORACTL^DDXPLIB
;;^DIST(.44,.009,3,0)
;;=^^7^7^2930125^
;;^DIST(.44,.009,3,1,0)
;;=Use this format to export data to an Oracle table. Data will be exported
;;^DIST(.44,.009,3,2,0)
;;=in comma-delimited format and non-numeric fields will be surrounded by
;;^DIST(.44,.009,3,3,0)
;;=quotes. The user will be prompted for field names. The field names
;;^DIST(.44,.009,3,4,0)
;;=should be the column_names in the Oracle table. Also, the user will need
;;^DIST(.44,.009,3,5,0)
;;=to supply the maximum length of a record to be exported. By default, data
;;^DIST(.44,.009,3,6,0)
;;=will be imported into a table with the same name as that of the export
;;^DIST(.44,.009,3,7,0)
;;=template.
;;^DIST(.44,.009,4,0)
;;=^^13^13^2930125^
;;^DIST(.44,.009,4,1,0)
;;=This format produces a control file to be used with Oracle's SQL*LOADER
;;^DIST(.44,.009,4,2,0)
;;=utility to load data into a preexisting Oracle table. The control file is
;;^DIST(.44,.009,4,3,0)
;;=complete as created, but you may edit the file to modify the import. By
;;^DIST(.44,.009,4,4,0)
;;=default, the data will be imported into a table with the same name as that
;;^DIST(.44,.009,4,5,0)
;;=of the export template. So, either that table must exist in your Oracle
;;^DIST(.44,.009,4,6,0)
;;=table_space with the columns specified when the export template was built
;;^DIST(.44,.009,4,7,0)
;;=or the exported file will need to be modified to show the correct
;;^DIST(.44,.009,4,8,0)
;;=table_name. A minimum syntax for loading an export file named
;;^DIST(.44,.009,4,9,0)
;;=INTO_ORACLE.CTL would be:
;;^DIST(.44,.009,4,10,0)
;;= |TAB|
;;^DIST(.44,.009,4,11,0)
;;= SQLLOAD USERID=username/password, CONTROL=INTO_ORACLE.CTL|TAB|
;;^DIST(.44,.009,4,12,0)
;;=
;;^DIST(.44,.009,4,13,0)
;;=Of course, other options are available. Consult your Oracle documentation.
;;^DIST(.44,.009,5,0)
;;=^.441^^
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT27K 2538 printed Sep 23, 2025@20:27:15 Page 2
DINIT27K ;SFISC/DPC-ORACLE (DELIMITED) FOREIGN FORMAT ;6/10/93 13:35
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 FOR I=1:2
SET X=$TEXT(ENTRY+I)
if X=""
GOTO ^DINIT28
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DIST(.44,.009,0)
+2 ;;=ORACLE (DELIMITED)^,^^^^0^1^0^1^1^^1
+3 ;;^DIST(.44,.009,1)
+4 ;;=D ORACTL^DDXPLIB
+5 ;;^DIST(.44,.009,3,0)
+6 ;;=^^7^7^2930125^
+7 ;;^DIST(.44,.009,3,1,0)
+8 ;;=Use this format to export data to an Oracle table. Data will be exported
+9 ;;^DIST(.44,.009,3,2,0)
+10 ;;=in comma-delimited format and non-numeric fields will be surrounded by
+11 ;;^DIST(.44,.009,3,3,0)
+12 ;;=quotes. The user will be prompted for field names. The field names
+13 ;;^DIST(.44,.009,3,4,0)
+14 ;;=should be the column_names in the Oracle table. Also, the user will need
+15 ;;^DIST(.44,.009,3,5,0)
+16 ;;=to supply the maximum length of a record to be exported. By default, data
+17 ;;^DIST(.44,.009,3,6,0)
+18 ;;=will be imported into a table with the same name as that of the export
+19 ;;^DIST(.44,.009,3,7,0)
+20 ;;=template.
+21 ;;^DIST(.44,.009,4,0)
+22 ;;=^^13^13^2930125^
+23 ;;^DIST(.44,.009,4,1,0)
+24 ;;=This format produces a control file to be used with Oracle's SQL*LOADER
+25 ;;^DIST(.44,.009,4,2,0)
+26 ;;=utility to load data into a preexisting Oracle table. The control file is
+27 ;;^DIST(.44,.009,4,3,0)
+28 ;;=complete as created, but you may edit the file to modify the import. By
+29 ;;^DIST(.44,.009,4,4,0)
+30 ;;=default, the data will be imported into a table with the same name as that
+31 ;;^DIST(.44,.009,4,5,0)
+32 ;;=of the export template. So, either that table must exist in your Oracle
+33 ;;^DIST(.44,.009,4,6,0)
+34 ;;=table_space with the columns specified when the export template was built
+35 ;;^DIST(.44,.009,4,7,0)
+36 ;;=or the exported file will need to be modified to show the correct
+37 ;;^DIST(.44,.009,4,8,0)
+38 ;;=table_name. A minimum syntax for loading an export file named
+39 ;;^DIST(.44,.009,4,9,0)
+40 ;;=INTO_ORACLE.CTL would be:
+41 ;;^DIST(.44,.009,4,10,0)
+42 ;;= |TAB|
+43 ;;^DIST(.44,.009,4,11,0)
+44 ;;= SQLLOAD USERID=username/password, CONTROL=INTO_ORACLE.CTL|TAB|
+45 ;;^DIST(.44,.009,4,12,0)
+46 ;;=
+47 ;;^DIST(.44,.009,4,13,0)
+48 ;;=Of course, other options are available. Consult your Oracle documentation.
+49 ;;^DIST(.44,.009,5,0)
+50 ;;=^.441^^
