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 ---[H[J[2J[HDINIT27J   2504     printed  Sep 23, 2025@20:27:15                                                                                                                                                                                                    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^^