Routine: DINIT0FL

DINIT0FL ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM  30 Mar 1999

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0FM S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y

ENTRY ;

 ;;^DIST(.404,.442,40,7,4)

 ;;=^^^^0

 ;;^DIST(.404,.442,40,7,7)

 ;;=^3

 ;;^DIST(.404,.443,0)

 ;;=DDXP FF BLK3^.441^0

 ;;^DIST(.404,.443,15,0)

 ;;=^^2^2^2920925

 ;;^DIST(.404,.443,15,1,0)

 ;;=Block for subpage containing fields from the OTHER NAME FOR FORMAT

 ;;^DIST(.404,.443,15,2,0)

 ;;=multiple.  Used in defining a foreign file format.

 ;;^DIST(.404,.443,40,0)

 ;;=^.4044I^2^2

 ;;^DIST(.404,.443,40,1,0)

 ;;=1^OTHER NAME^3

 ;;^DIST(.404,.443,40,1,1)

 ;;=.01

 ;;^DIST(.404,.443,40,1,2)

 ;;=2,20^15^2,8^0

 ;;^DIST(.404,.443,40,2,0)

 ;;=2^DESCRIPTION (WP)^3

 ;;^DIST(.404,.443,40,2,1)

 ;;=1

 ;;^DIST(.404,.443,40,2,2)

 ;;=4,20^1^4,2^0

 ;;^DIST(.404,.4611,0)

 ;;=DDMP SPECS 1^.44

 ;;^DIST(.404,.4611,15,0)

 ;;=^^2^2^2950216

 ;;^DIST(.404,.4611,15,1,0)

 ;;=Block contains specifications of data import including source file, VA

 ;;^DIST(.404,.4611,15,2,0)

 ;;=FileMan target file, and format of the incoming data.

 ;;^DIST(.404,.4611,40,0)

 ;;=^.4044I^23^21

 ;;^DIST(.404,.4611,40,1,0)

 ;;=1^DATA IMPORT^1

 ;;^DIST(.404,.4611,40,1,2)

 ;;=^^1,35

 ;;^DIST(.404,.4611,40,2,0)

 ;;=2^Page 1^1

 ;;^DIST(.404,.4611,40,2,2)

 ;;=^^1,72

 ;;^DIST(.404,.4611,40,3,0)

 ;;=1.1^===========^1

 ;;^DIST(.404,.4611,40,3,2)

 ;;=^^2,35^1

 ;;^DIST(.404,.4611,40,4,0)

 ;;=6^SOURCE FILE^1

 ;;^DIST(.404,.4611,40,4,2)

 ;;=^^4,53^1

 ;;^DIST(.404,.4611,40,5,0)

 ;;=6.1^-----------^1

 ;;^DIST(.404,.4611,40,5,2)

 ;;=^^5,53^1

 ;;^DIST(.404,.4611,40,6,0)

 ;;=6.2^Full path^2^^PTH

 ;;^DIST(.404,.4611,40,6,2)

 ;;=6,61^19^6,50

 ;;^DIST(.404,.4611,40,6,3)

 ;;=!M

 ;;^DIST(.404,.4611,40,6,3.1)

 ;;=S Y=$$PWD^%ZISH

 ;;^DIST(.404,.4611,40,6,4)

 ;;=1

 ;;^DIST(.404,.4611,40,6,20)

 ;;=F^^1:245

 ;;^DIST(.404,.4611,40,6,21,0)

 ;;=^^2^2^2950216

 ;;^DIST(.404,.4611,40,6,21,1,0)

 ;;=Enter the full path to the host file that contains the data you want to

 ;;^DIST(.404,.4611,40,6,21,2,0)

 ;;=import.  Do not include the name of the file itself.

 ;;^DIST(.404,.4611,40,6,23)

 ;;=S DDMPHOST("PATH")=X

 ;;^DIST(.404,.4611,40,7,0)

 ;;=6.3^Host file name^2^^HST_FL

 ;;^DIST(.404,.4611,40,7,2)

 ;;=7,61^19^7,45

 ;;^DIST(.404,.4611,40,7,4)

 ;;=1

 ;;^DIST(.404,.4611,40,7,20)

 ;;=F^^1:100

 ;;^DIST(.404,.4611,40,7,21,0)

 ;;=^^1^1^2960611

 ;;^DIST(.404,.4611,40,7,21,1,0)

 ;;=^D HOSTHELP^DDMPSM1

 ;;^DIST(.404,.4611,40,7,23)

 ;;=S DDMPHOST("FILE")=X

 ;;^DIST(.404,.4611,40,8,0)

 ;;=7^VA FILEMAN FILE^1

 ;;^DIST(.404,.4611,40,8,2)

 ;;=^^10,51^1

 ;;^DIST(.404,.4611,40,9,0)

 ;;=7.1^---------------^1

 ;;^DIST(.404,.4611,40,9,2)

 ;;=^^11,51^1

 ;;^DIST(.404,.4611,40,10,0)

 ;;=7.2^Primary file^2^^F_SEL

 ;;^DIST(.404,.4611,40,10,2)

 ;;=12,61^18^12,47

 ;;^DIST(.404,.4611,40,10,13)

 ;;=D FILESEL^DDMPSM

 ;;^DIST(.404,.4611,40,10,20)

 ;;=P^^1:ANEF

 ;;^DIST(.404,.4611,40,10,21,0)

 ;;=^^3^3^2960918

 ;;^DIST(.404,.4611,40,10,21,1,0)

 ;;=Enter the name or number of the VA FileMan file into which the data will

 ;;^DIST(.404,.4611,40,10,21,2,0)

 ;;=be imported.  If the FileMan file is specified in the source file, enter

 ;;^DIST(.404,.4611,40,10,21,3,0)

 ;;=nothing here.

 ;;^DIST(.404,.4611,40,10,23)

 ;;=S DDMPSELF=X

 ;;^DIST(.404,.4611,40,10,24)

 ;;=S DIR("S")="N DIFILE,DIAC S DIFILE=Y,DIAC=""WR"" D ^DIAC I DIAC"

 ;;^DIST(.404,.4611,40,11,0)

 ;;=5^DATA FORMAT^1

 ;;^DIST(.404,.4611,40,11,2)

 ;;=^^4,16

 ;;^DIST(.404,.4611,40,12,0)

 ;;=5.1^-----------^1

 ;;^DIST(.404,.4611,40,12,2)

 ;;=^^5,16^1

 ;;^DIST(.404,.4611,40,13,0)

 ;;=5.2^Internal or external^2^^INT_EXT

 ;;^DIST(.404,.4611,40,13,2)

 ;;=6,23^8^6,1

 ;;^DIST(.404,.4611,40,13,3)

 ;;=External

 ;;^DIST(.404,.4611,40,13,20)

 ;;=S^OM^E:EXTERNAL;I:INTERNAL

 ;;^DIST(.404,.4611,40,13,21,0)

 ;;=^^3^3^2950216

 ;;^DIST(.404,.4611,40,13,21,1,0)

 ;;=Specify whether the imported data is in internal or external format.

 ;;^DIST(.404,.4611,40,13,21,2,0)

 ;;=Internal format means the way the data is stored inside of VA FileMan

 ;;^DIST(.404,.4611,40,13,21,3,0)

 ;;=files.  External means the format that a user enter.

 ;;^DIST(.404,.4611,40,13,23)

 ;;=S DDMPIORE=X

 ;;^DIST(.404,.4611,40,14,0)

 ;;=5.3^Foreign format^2^^FOR_FMT

 ;;^DIST(.404,.4611,40,14,2)

 ;;=8,23^17^8,7

 ;;^DIST(.404,.4611,40,14,13)

 ;;=D FF^DDMPSM

 ;;^DIST(.404,.4611,40,14,20)

 ;;=P^^.44:EAM

 ;;^DIST(.404,.4611,40,14,21,0)

 ;;=^^6^6^2950228

 ;;^DIST(.404,.4611,40,14,21,1,0)

 ;;=Enter the foreign format that corresponds to the structure of the data

 ;;^DIST(.404,.4611,40,14,21,2,0)

 ;;=being imported.  These formats are stored in the Foreign Format file.  If

 ;;^DIST(.404,.4611,40,14,21,3,0)

 ;;=you do not choose a format here, you must specify whether the incoming

 ;;^DIST(.404,.4611,40,14,21,4,0)

 ;;=data is fixed length, what the field delimiter is (if any), and whether

 ;;^DIST(.404,.4611,40,14,21,5,0)

 ;;=some field values are quoted.  If you enter a format here, any attributes

 ;;^DIST(.404,.4611,40,14,21,6,0)

 ;;=of the format that you specified below will be deleted.

 ;;^DIST(.404,.4611,40,16,0)

 ;;=5.5^Data fixed length?^2^^FIX

 ;;^DIST(.404,.4611,40,16,2)

 ;;=10,23^3^10,4^1

 ;;^DIST(.404,.4611,40,16,13)

 ;;=S DDMPSMFF("FIXED")=DDSEXT

 ;;^DIST(.404,.4611,40,16,20)

 ;;=Y

 ;;^DIST(.404,.4611,40,16,21,0)

 ;;=^^4^4^2950216

 ;;^DIST(.404,.4611,40,16,21,1,0)

 ;;=Enter YES or NO.

 ;;^DIST(.404,.4611,40,16,21,2,0)

 ;;=If the incoming data is in fixed length fields, enter YES.

 ;;^DIST(.404,.4611,40,16,21,3,0)

 ;;=If the fields are delimited by a special character, enter NO and enter the

 ;;^DIST(.404,.4611,40,16,21,4,0)

 ;;=field delimiter at the prompt below.

 ;;^DIST(.404,.4611,40,17,0)

 ;;=5.6^Field delimiter^2^^FLD_DLM

 ;;^DIST(.404,.4611,40,17,2)

 ;;=11,23^3^11,6

 ;;^DIST(.404,.4611,40,17,13)

 ;;=S DDMPSMFF("FDELIM")=DDSEXT

 ;;^DIST(.404,.4611,40,17,20)

 ;;=F^^1:15

 ;;^DIST(.404,.4611,40,17,21,0)

 ;;=^^8^8^2960823

 ;;^DIST(.404,.4611,40,17,21,1,0)

 ;;=If the incoming data is not in fixed length fields, enter the character or

 ;;^DIST(.404,.4611,40,17,21,2,0)

 ;;=characters that separate fields.

 ;;^DIST(.404,.4611,40,17,21,3,0)

;;=

 ;;^DIST(.404,.4611,40,17,21,4,0)

 ;;=Identify the delimiter either by 1-15 characters or by the delimiter's 3

 ;;^DIST(.404,.4611,40,17,21,5,0)

 ;;=digit ascii value.  Up to 4 ascii-character values can be specified,

 ;;^DIST(.404,.4611,40,17,21,6,0)

 ;;=separated by commas.  Use the ascii value when the delimiter is a

 ;;^DIST(.404,.4611,40,17,21,7,0)

 ;;=non-printing character (e.g., <TAB>, ascii=009) or a character that has a

 ;;^DIST(.404,.4611,40,17,21,8,0)

 ;;=special meaning at a ScreenMan prompt (e.g., ^, ascii=094).

DINIT0FL  ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM  30 Mar 1999

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        FOR I=1:2

               SET X=$TEXT(ENTRY+I)

               IF X=""

                   GOTO ^DINIT0FM

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

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

               SET @X=Y

 +4        QUIT

ENTRY     ;

 +1       ;;^DIST(.404,.442,40,7,4)

 +2       ;;=^^^^0

 +3       ;;^DIST(.404,.442,40,7,7)

 +4       ;;=^3

 +5       ;;^DIST(.404,.443,0)

 +6       ;;=DDXP FF BLK3^.441^0

 +7       ;;^DIST(.404,.443,15,0)

 +8       ;;=^^2^2^2920925

 +9       ;;^DIST(.404,.443,15,1,0)

 +10      ;;=Block for subpage containing fields from the OTHER NAME FOR FORMAT

 +11      ;;^DIST(.404,.443,15,2,0)

 +12      ;;=multiple.  Used in defining a foreign file format.

 +13      ;;^DIST(.404,.443,40,0)

 +14      ;;=^.4044I^2^2

 +15      ;;^DIST(.404,.443,40,1,0)

 +16      ;;=1^OTHER NAME^3

 +17      ;;^DIST(.404,.443,40,1,1)

 +18      ;;=.01

 +19      ;;^DIST(.404,.443,40,1,2)

 +20      ;;=2,20^15^2,8^0

 +21      ;;^DIST(.404,.443,40,2,0)

 +22      ;;=2^DESCRIPTION (WP)^3

 +23      ;;^DIST(.404,.443,40,2,1)

 +24      ;;=1

 +25      ;;^DIST(.404,.443,40,2,2)

 +26      ;;=4,20^1^4,2^0

 +27      ;;^DIST(.404,.4611,0)

 +28      ;;=DDMP SPECS 1^.44

 +29      ;;^DIST(.404,.4611,15,0)

 +30      ;;=^^2^2^2950216

 +31      ;;^DIST(.404,.4611,15,1,0)

 +32      ;;=Block contains specifications of data import including source file, VA

 +33      ;;^DIST(.404,.4611,15,2,0)

 +34      ;;=FileMan target file, and format of the incoming data.

 +35      ;;^DIST(.404,.4611,40,0)

 +36      ;;=^.4044I^23^21

 +37      ;;^DIST(.404,.4611,40,1,0)

 +38      ;;=1^DATA IMPORT^1

 +39      ;;^DIST(.404,.4611,40,1,2)

 +40      ;;=^^1,35

 +41      ;;^DIST(.404,.4611,40,2,0)

 +42      ;;=2^Page 1^1

 +43      ;;^DIST(.404,.4611,40,2,2)

 +44      ;;=^^1,72

 +45      ;;^DIST(.404,.4611,40,3,0)

 +46      ;;=1.1^===========^1

 +47      ;;^DIST(.404,.4611,40,3,2)

 +48      ;;=^^2,35^1

 +49      ;;^DIST(.404,.4611,40,4,0)

 +50      ;;=6^SOURCE FILE^1

 +51      ;;^DIST(.404,.4611,40,4,2)

 +52      ;;=^^4,53^1

 +53      ;;^DIST(.404,.4611,40,5,0)

 +54      ;;=6.1^-----------^1

 +55      ;;^DIST(.404,.4611,40,5,2)

 +56      ;;=^^5,53^1

 +57      ;;^DIST(.404,.4611,40,6,0)

 +58      ;;=6.2^Full path^2^^PTH

 +59      ;;^DIST(.404,.4611,40,6,2)

 +60      ;;=6,61^19^6,50

 +61      ;;^DIST(.404,.4611,40,6,3)

 +62      ;;=!M

 +63      ;;^DIST(.404,.4611,40,6,3.1)

 +64      ;;=S Y=$$PWD^%ZISH

 +65      ;;^DIST(.404,.4611,40,6,4)

 +66      ;;=1

 +67      ;;^DIST(.404,.4611,40,6,20)

 +68      ;;=F^^1:245

 +69      ;;^DIST(.404,.4611,40,6,21,0)

 +70      ;;=^^2^2^2950216

 +71      ;;^DIST(.404,.4611,40,6,21,1,0)

 +72      ;;=Enter the full path to the host file that contains the data you want to

 +73      ;;^DIST(.404,.4611,40,6,21,2,0)

 +74      ;;=import.  Do not include the name of the file itself.

 +75      ;;^DIST(.404,.4611,40,6,23)

 +76      ;;=S DDMPHOST("PATH")=X

 +77      ;;^DIST(.404,.4611,40,7,0)

 +78      ;;=6.3^Host file name^2^^HST_FL

 +79      ;;^DIST(.404,.4611,40,7,2)

 +80      ;;=7,61^19^7,45

 +81      ;;^DIST(.404,.4611,40,7,4)

 +82      ;;=1

 +83      ;;^DIST(.404,.4611,40,7,20)

 +84      ;;=F^^1:100

 +85      ;;^DIST(.404,.4611,40,7,21,0)

 +86      ;;=^^1^1^2960611

 +87      ;;^DIST(.404,.4611,40,7,21,1,0)

 +88      ;;=^D HOSTHELP^DDMPSM1

 +89      ;;^DIST(.404,.4611,40,7,23)

 +90      ;;=S DDMPHOST("FILE")=X

 +91      ;;^DIST(.404,.4611,40,8,0)

 +92      ;;=7^VA FILEMAN FILE^1

 +93      ;;^DIST(.404,.4611,40,8,2)

 +94      ;;=^^10,51^1

 +95      ;;^DIST(.404,.4611,40,9,0)

 +96      ;;=7.1^---------------^1

 +97      ;;^DIST(.404,.4611,40,9,2)

 +98      ;;=^^11,51^1

 +99      ;;^DIST(.404,.4611,40,10,0)

 +100     ;;=7.2^Primary file^2^^F_SEL

 +101     ;;^DIST(.404,.4611,40,10,2)

 +102     ;;=12,61^18^12,47

 +103     ;;^DIST(.404,.4611,40,10,13)

 +104     ;;=D FILESEL^DDMPSM

 +105     ;;^DIST(.404,.4611,40,10,20)

 +106     ;;=P^^1:ANEF

 +107     ;;^DIST(.404,.4611,40,10,21,0)

 +108     ;;=^^3^3^2960918

 +109     ;;^DIST(.404,.4611,40,10,21,1,0)

 +110     ;;=Enter the name or number of the VA FileMan file into which the data will

 +111     ;;^DIST(.404,.4611,40,10,21,2,0)

 +112     ;;=be imported.  If the FileMan file is specified in the source file, enter

 +113     ;;^DIST(.404,.4611,40,10,21,3,0)

 +114     ;;=nothing here.

 +115     ;;^DIST(.404,.4611,40,10,23)

 +116     ;;=S DDMPSELF=X

 +117     ;;^DIST(.404,.4611,40,10,24)

 +118     ;;=S DIR("S")="N DIFILE,DIAC S DIFILE=Y,DIAC=""WR"" D ^DIAC I DIAC"

 +119     ;;^DIST(.404,.4611,40,11,0)

 +120     ;;=5^DATA FORMAT^1

 +121     ;;^DIST(.404,.4611,40,11,2)

 +122     ;;=^^4,16

 +123     ;;^DIST(.404,.4611,40,12,0)

 +124     ;;=5.1^-----------^1

 +125     ;;^DIST(.404,.4611,40,12,2)

 +126     ;;=^^5,16^1

 +127     ;;^DIST(.404,.4611,40,13,0)

 +128     ;;=5.2^Internal or external^2^^INT_EXT

 +129     ;;^DIST(.404,.4611,40,13,2)

 +130     ;;=6,23^8^6,1

 +131     ;;^DIST(.404,.4611,40,13,3)

 +132     ;;=External

 +133     ;;^DIST(.404,.4611,40,13,20)

 +134     ;;=S^OM^E:EXTERNAL;I:INTERNAL

 +135     ;;^DIST(.404,.4611,40,13,21,0)

 +136     ;;=^^3^3^2950216

 +137     ;;^DIST(.404,.4611,40,13,21,1,0)

 +138     ;;=Specify whether the imported data is in internal or external format.

 +139     ;;^DIST(.404,.4611,40,13,21,2,0)

 +140     ;;=Internal format means the way the data is stored inside of VA FileMan

 +141     ;;^DIST(.404,.4611,40,13,21,3,0)

 +142     ;;=files.  External means the format that a user enter.

 +143     ;;^DIST(.404,.4611,40,13,23)

 +144     ;;=S DDMPIORE=X

 +145     ;;^DIST(.404,.4611,40,14,0)

 +146     ;;=5.3^Foreign format^2^^FOR_FMT

 +147     ;;^DIST(.404,.4611,40,14,2)

 +148     ;;=8,23^17^8,7

 +149     ;;^DIST(.404,.4611,40,14,13)

 +150     ;;=D FF^DDMPSM

 +151     ;;^DIST(.404,.4611,40,14,20)

 +152     ;;=P^^.44:EAM

 +153     ;;^DIST(.404,.4611,40,14,21,0)

 +154     ;;=^^6^6^2950228

 +155     ;;^DIST(.404,.4611,40,14,21,1,0)

 +156     ;;=Enter the foreign format that corresponds to the structure of the data

 +157     ;;^DIST(.404,.4611,40,14,21,2,0)

 +158     ;;=being imported.  These formats are stored in the Foreign Format file.  If

 +159     ;;^DIST(.404,.4611,40,14,21,3,0)

 +160     ;;=you do not choose a format here, you must specify whether the incoming

 +161     ;;^DIST(.404,.4611,40,14,21,4,0)

 +162     ;;=data is fixed length, what the field delimiter is (if any), and whether

 +163     ;;^DIST(.404,.4611,40,14,21,5,0)

 +164     ;;=some field values are quoted.  If you enter a format here, any attributes

 +165     ;;^DIST(.404,.4611,40,14,21,6,0)

 +166     ;;=of the format that you specified below will be deleted.

 +167     ;;^DIST(.404,.4611,40,16,0)

 +168     ;;=5.5^Data fixed length?^2^^FIX

 +169     ;;^DIST(.404,.4611,40,16,2)

 +170     ;;=10,23^3^10,4^1

 +171     ;;^DIST(.404,.4611,40,16,13)

 +172     ;;=S DDMPSMFF("FIXED")=DDSEXT

 +173     ;;^DIST(.404,.4611,40,16,20)

 +174     ;;=Y

 +175     ;;^DIST(.404,.4611,40,16,21,0)

 +176     ;;=^^4^4^2950216

 +177     ;;^DIST(.404,.4611,40,16,21,1,0)

 +178     ;;=Enter YES or NO.

 +179     ;;^DIST(.404,.4611,40,16,21,2,0)

 +180     ;;=If the incoming data is in fixed length fields, enter YES.

 +181     ;;^DIST(.404,.4611,40,16,21,3,0)

 +182     ;;=If the fields are delimited by a special character, enter NO and enter the

 +183     ;;^DIST(.404,.4611,40,16,21,4,0)

 +184     ;;=field delimiter at the prompt below.

 +185     ;;^DIST(.404,.4611,40,17,0)

 +186     ;;=5.6^Field delimiter^2^^FLD_DLM

 +187     ;;^DIST(.404,.4611,40,17,2)

 +188     ;;=11,23^3^11,6

 +189     ;;^DIST(.404,.4611,40,17,13)

 +190     ;;=S DDMPSMFF("FDELIM")=DDSEXT

 +191     ;;^DIST(.404,.4611,40,17,20)

 +192     ;;=F^^1:15

 +193     ;;^DIST(.404,.4611,40,17,21,0)

 +194     ;;=^^8^8^2960823

 +195     ;;^DIST(.404,.4611,40,17,21,1,0)

 +196     ;;=If the incoming data is not in fixed length fields, enter the character or

 +197     ;;^DIST(.404,.4611,40,17,21,2,0)

 +198     ;;=characters that separate fields.

 +199     ;;^DIST(.404,.4611,40,17,21,3,0)

 +200     ;;=

 +201     ;;^DIST(.404,.4611,40,17,21,4,0)

 +202     ;;=Identify the delimiter either by 1-15 characters or by the delimiter's 3

 +203     ;;^DIST(.404,.4611,40,17,21,5,0)

 +204     ;;=digit ascii value.  Up to 4 ascii-character values can be specified,

 +205     ;;^DIST(.404,.4611,40,17,21,6,0)

 +206     ;;=separated by commas.  Use the ascii value when the delimiter is a

 +207     ;;^DIST(.404,.4611,40,17,21,7,0)

 +208     ;;=non-printing character (e.g., <TAB>, ascii=009) or a character that has a

 +209     ;;^DIST(.404,.4611,40,17,21,8,0)

 +210     ;;=special meaning at a ScreenMan prompt (e.g., ^, ascii=094).

DINIT0FL.m