DINIT27J.m

DINIT27J ;SFISC/DPC-ORACLE (FIXED FORMAT) FOREIGN FORMAT ;2/26/93  10:59 AM

 ;;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="" ^DINIT27K S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y

 Q

ENTRY ;

 ;;^DIST(.44,.008,0)

 ;;=ORACLE (FIXED FORMAT)^^^^^1^1^255^1^^^1

 ;;^DIST(.44,.008,1)

 ;;=D ORACTL^DDXPLIB

 ;;^DIST(.44,.008,3,0)

 ;;=^^5^5^2930125^

 ;;^DIST(.44,.008,3,1,0)

 ;;=Use this format to export data to an Oracle table.  Data will be exported

 ;;^DIST(.44,.008,3,2,0)

 ;;=in fixed format.  The user will be prompted for the length of each field

 ;;^DIST(.44,.008,3,3,0)

 ;;=and the field name.  By default, the data will be imported into an Oracle

 ;;^DIST(.44,.008,3,4,0)

 ;;=table with the same name as the export template used to export the data.

 ;;^DIST(.44,.008,3,5,0)

 ;;=The field names should be the column_names in the Oracle table.

 ;;^DIST(.44,.008,4,0)

 ;;=^^14^14^2930125^

 ;;^DIST(.44,.008,4,1,0)

 ;;=This format produces a control file to be used with Oracle's SQL*LOADER

 ;;^DIST(.44,.008,4,2,0)

 ;;=utility to load data into a preexisting Oracle table.  The control file is

 ;;^DIST(.44,.008,4,3,0)

 ;;=complete as created, but you may edit the file to modify the import.  By

 ;;^DIST(.44,.008,4,4,0)

 ;;=default, the data will be imported into a table with the same name as that

 ;;^DIST(.44,.008,4,5,0)

 ;;=of the export template.  Spaces in the export template name will be

 ;;^DIST(.44,.008,4,6,0)

 ;;=converted to underscores (_). So, either that table must exist in your

 ;;^DIST(.44,.008,4,7,0)

 ;;=Oracle table_space with the columns specified when the export template was

 ;;^DIST(.44,.008,4,8,0)

 ;;=built or the exported file will need to be modified to show the correct

 ;;^DIST(.44,.008,4,9,0)

 ;;=table_name.  A minimum syntax for loading an export file named

 ;;^DIST(.44,.008,4,10,0)

 ;;=INTO_ORACLE.CTL would be:

 ;;^DIST(.44,.008,4,11,0)

 ;;=|TAB|

 ;;^DIST(.44,.008,4,12,0)

 ;;=       SQLLOAD USERID=username/password, CONTROL=INTO_ORACLE.CTL|TAB|

 ;;^DIST(.44,.008,4,13,0)

 ;;= 

 ;;^DIST(.44,.008,4,14,0)

 ;;=Of course, other options are available.  Consult your Oracle documentation.

 ;;^DIST(.44,.008,5,0)

 ;;=^.441^^

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DINIT27J   2504     printed  Apr 09, 2024@21:53:10                                                                                                                                                                                                    Page 2

DINIT27J  ;SFISC/DPC-ORACLE (FIXED FORMAT) FOREIGN FORMAT ;2/26/93  10:59 AM

 +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 ^DINIT27K

               SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)

               SET X=$EXTRACT(X,4,999)

               SET @X=Y

 +8        QUIT 

ENTRY     ;

 +1       ;;^DIST(.44,.008,0)

 +2       ;;=ORACLE (FIXED FORMAT)^^^^^1^1^255^1^^^1

 +3       ;;^DIST(.44,.008,1)

 +4       ;;=D ORACTL^DDXPLIB

 +5       ;;^DIST(.44,.008,3,0)

 +6       ;;=^^5^5^2930125^

 +7       ;;^DIST(.44,.008,3,1,0)

 +8       ;;=Use this format to export data to an Oracle table.  Data will be exported

 +9       ;;^DIST(.44,.008,3,2,0)

 +10      ;;=in fixed format.  The user will be prompted for the length of each field

 +11      ;;^DIST(.44,.008,3,3,0)

 +12      ;;=and the field name.  By default, the data will be imported into an Oracle

 +13      ;;^DIST(.44,.008,3,4,0)

 +14      ;;=table with the same name as the export template used to export the data.

 +15      ;;^DIST(.44,.008,3,5,0)

 +16      ;;=The field names should be the column_names in the Oracle table.

 +17      ;;^DIST(.44,.008,4,0)

 +18      ;;=^^14^14^2930125^

 +19      ;;^DIST(.44,.008,4,1,0)

 +20      ;;=This format produces a control file to be used with Oracle's SQL*LOADER

 +21      ;;^DIST(.44,.008,4,2,0)

 +22      ;;=utility to load data into a preexisting Oracle table.  The control file is

 +23      ;;^DIST(.44,.008,4,3,0)

 +24      ;;=complete as created, but you may edit the file to modify the import.  By

 +25      ;;^DIST(.44,.008,4,4,0)

 +26      ;;=default, the data will be imported into a table with the same name as that

 +27      ;;^DIST(.44,.008,4,5,0)

 +28      ;;=of the export template.  Spaces in the export template name will be

 +29      ;;^DIST(.44,.008,4,6,0)

 +30      ;;=converted to underscores (_). So, either that table must exist in your

 +31      ;;^DIST(.44,.008,4,7,0)

 +32      ;;=Oracle table_space with the columns specified when the export template was

 +33      ;;^DIST(.44,.008,4,8,0)

 +34      ;;=built or the exported file will need to be modified to show the correct

 +35      ;;^DIST(.44,.008,4,9,0)

 +36      ;;=table_name.  A minimum syntax for loading an export file named

 +37      ;;^DIST(.44,.008,4,10,0)

 +38      ;;=INTO_ORACLE.CTL would be:

 +39      ;;^DIST(.44,.008,4,11,0)

 +40      ;;=|TAB|

 +41      ;;^DIST(.44,.008,4,12,0)

 +42      ;;=       SQLLOAD USERID=username/password, CONTROL=INTO_ORACLE.CTL|TAB|

 +43      ;;^DIST(.44,.008,4,13,0)

 +44      ;;= 

 +45      ;;^DIST(.44,.008,4,14,0)

 +46      ;;=Of course, other options are available.  Consult your Oracle documentation.

 +47      ;;^DIST(.44,.008,5,0)

 +48      ;;=^.441^^