DINIT27K.m

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 ---DINIT27K   2538     printed  Apr 09, 2024@21:48:06                                                                                                                                                                                                    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^^