Routine: DINIT0F3

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

ENTRY ;

 ;;^DIST(.403,.40405,40,2,0)

 ;;=11^^3,16^^^1^11,63

 ;;^DIST(.403,.40405,40,2,1)

 ;;=Other Parameters

 ;;^DIST(.403,.40405,40,2,40,0)

 ;;=^.4032PI^.404052^1

 ;;^DIST(.403,.40405,40,2,40,.404052,0)

 ;;=.404052^1^1,3^e

 ;;^DIST(.403,.40406,0)

 ;;=DDGF BLOCK ADD^^^0^2930413^2990316.0924^^.404^0^1^1

 ;;^DIST(.403,.40406,40,0)

 ;;=^.4031I^3^3

 ;;^DIST(.403,.40406,40,1,0)

 ;;=1^^3,9^^^1^7,65

 ;;^DIST(.403,.40406,40,1,1)

 ;;=Add a New Block

 ;;^DIST(.403,.40406,40,1,40,0)

 ;;=^.4032PI^.404061^1

 ;;^DIST(.403,.40406,40,1,40,.404061,0)

 ;;=.404061^1^1,1^e

 ;;^DIST(.403,.40406,40,2,0)

 ;;=11^^6,12^^^1^11,61

 ;;^DIST(.403,.40406,40,2,1)

 ;;=Add a New Block to Page

 ;;^DIST(.403,.40406,40,2,40,0)

 ;;=^.4032PI^.404062^1

 ;;^DIST(.403,.40406,40,2,40,.404062,0)

 ;;=.404062^1^1,1^e

 ;;^DIST(.403,.40406,40,3,0)

 ;;=21^^6,17^^^1^13,57

 ;;^DIST(.403,.40406,40,3,1)

 ;;=Duplicate Block Message

 ;;^DIST(.403,.40406,40,3,40,0)

 ;;=^.4032PI^.404063^1

 ;;^DIST(.403,.40406,40,3,40,.404063,0)

 ;;=.404063^1^1,1^e

 ;;^DIST(.403,.40407,0)

 ;;=DDGF BLOCK DELETE^^^0^2930809^2981117.0720^^.404^0^1^1

 ;;^DIST(.403,.40407,40,0)

 ;;=^.4031I^1^1

 ;;^DIST(.403,.40407,40,1,0)

 ;;=1^^5,9^^^1^11,62

 ;;^DIST(.403,.40407,40,1,1)

 ;;=Page 1

 ;;^DIST(.403,.40407,40,1,40,0)

 ;;=^.4032PI^.404071^1

 ;;^DIST(.403,.40407,40,1,40,.404071,0)

 ;;=.404071^1^3,3^e

 ;;^DIST(.403,.40408,0)

 ;;=DDGF HEADER BLOCK SELECT^^^0^2930504^2940928.1204^^.404^0^1^1

 ;;^DIST(.403,.40408,40,0)

 ;;=^.4031I^1^1

 ;;^DIST(.403,.40408,40,1,0)

 ;;=1^^4,5^^^1^8,68

 ;;^DIST(.403,.40408,40,1,1)

 ;;=Add a New Header Block

 ;;^DIST(.403,.40408,40,1,40,0)

 ;;=^.4032PI^.404081^1

 ;;^DIST(.403,.40408,40,1,40,.404081,0)

 ;;=.404081^1^1,1^e

 ;;^DIST(.403,.441,0)

 ;;=DDXP FF FORM1^^^^2920925^2990324.0806^^.44^0^0^1

 ;;^DIST(.403,.441,20)

 ;;=D FORMVAL^DDXP1

 ;;^DIST(.403,.441,40,0)

 ;;=^.4031I^3^3

 ;;^DIST(.403,.441,40,1,0)

 ;;=1^^1,1^2^2^0

 ;;^DIST(.403,.441,40,1,1)

 ;;=PAGE 1

 ;;^DIST(.403,.441,40,1,15,0)

 ;;=^^1^1^2920925

 ;;^DIST(.403,.441,40,1,15,1,0)

 ;;=First page for Foreign Format definition.  It contains block DDXP FF BLK1.

 ;;^DIST(.403,.441,40,1,40,0)

 ;;=^.4032PI^.441^1

 ;;^DIST(.403,.441,40,1,40,.441,0)

 ;;=.441^1^1,1^e

 ;;^DIST(.403,.441,40,2,0)

 ;;=2^^1,1^1^1^0

 ;;^DIST(.403,.441,40,2,1)

 ;;=PAGE 2

 ;;^DIST(.403,.441,40,2,15,0)

 ;;=^^2^2^2920925

 ;;^DIST(.403,.441,40,2,15,1,0)

 ;;=Page 2 of the form used to define a Foreign Format.  It contains block

 ;;^DIST(.403,.441,40,2,15,2,0)

 ;;=DDXP FF BLK2 and subpage containing DDXP FF BLK3.

 ;;^DIST(.403,.441,40,2,40,0)

 ;;=^.4032PI^.442^1

 ;;^DIST(.403,.441,40,2,40,.442,0)

 ;;=.442^1^1,1^e

 ;;^DIST(.403,.441,40,3,0)

 ;;=3^^12,23^^^1^16,59

 ;;^DIST(.403,.441,40,3,1)

 ;;=POP-UP PAGE 1

 ;;^DIST(.403,.441,40,3,15,0)

 ;;=^^2^2^2920925

 ;;^DIST(.403,.441,40,3,15,1,0)

 ;;=This pop-up page is called from page 2 of DDXP FF FORM1.  It contains

 ;;^DIST(.403,.441,40,3,15,2,0)

 ;;=block DDXP FF BLK3, which has the OTHER NAME FOR FORMAT multiple.

 ;;^DIST(.403,.441,40,3,40,0)

 ;;=^.4032PI^.443^1

 ;;^DIST(.403,.441,40,3,40,.443,0)

 ;;=.443^1^1,1^e

 ;;^DIST(.403,.461,0)

 ;;=DDMP SPECIFY IMPORT^^^^2950216.1102^2990224.0835^^.46^0^1^1

 ;;^DIST(.403,.461,11)

 ;;=S (DDMPFDCT,DDMPOSET)=0

 ;;^DIST(.403,.461,20)

 ;;=D VAL^DDMPSM

 ;;^DIST(.403,.461,40,0)

 ;;=^.4031I^4^4

 ;;^DIST(.403,.461,40,1,0)

 ;;=1^^1,1^2^2

 ;;^DIST(.403,.461,40,1,1)

 ;;=Page 1

 ;;^DIST(.403,.461,40,1,40,0)

 ;;=^.4032IP^.4611^1

 ;;^DIST(.403,.461,40,1,40,.4611,0)

 ;;=.4611^1^1,1^e

 ;;^DIST(.403,.461,40,2,0)

 ;;=2^^1,1^1^1

 ;;^DIST(.403,.461,40,2,1)

 ;;=Page 2

 ;;^DIST(.403,.461,40,2,11)

 ;;=D PAGE2^DDMPSM1

 ;;^DIST(.403,.461,40,2,40,0)

 ;;=^.4032IP^.4612^1

 ;;^DIST(.403,.461,40,2,40,.4612,0)

 ;;=.4612^1^1,1^e

 ;;^DIST(.403,.461,40,3,0)

 ;;=3^^5,33^^^1^11,79

 ;;^DIST(.403,.461,40,3,1)

 ;;=Page 3

 ;;^DIST(.403,.461,40,3,40,0)

 ;;=^.4032IP^.4613^1

 ;;^DIST(.403,.461,40,3,40,.4613,0)

 ;;=.4613^1^2,2^e

 ;;^DIST(.403,.461,40,4,0)

 ;;=4^^6,18^^^1^12,64

 ;;^DIST(.403,.461,40,4,1)

 ;;=Page 4

 ;;^DIST(.403,.461,40,4,11)

 ;;=S DDMPFRP4=1

 ;;^DIST(.403,.461,40,4,15,0)

 ;;=^^3^3^2950301

 ;;^DIST(.403,.461,40,4,15,1,0)

 ;;=This page explains that all fields need a length for a fixed length

 ;;^DIST(.403,.461,40,4,15,2,0)

 ;;=import.  It gives user the option of deleting the last field entered or

 ;;^DIST(.403,.461,40,4,15,3,0)

 ;;=returning to length prompt.

 ;;^DIST(.403,.461,40,4,40,0)

 ;;=^.4032IP^.4614^1

 ;;^DIST(.403,.461,40,4,40,.4614,0)

 ;;=.4614^1^2,2^e

DINIT0F3  ;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 ^DINIT0F4

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

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

               SET @X=Y

 +4        QUIT

ENTRY     ;

 +1       ;;^DIST(.403,.40405,40,2,0)

 +2       ;;=11^^3,16^^^1^11,63

 +3       ;;^DIST(.403,.40405,40,2,1)

 +4       ;;=Other Parameters

 +5       ;;^DIST(.403,.40405,40,2,40,0)

 +6       ;;=^.4032PI^.404052^1

 +7       ;;^DIST(.403,.40405,40,2,40,.404052,0)

 +8       ;;=.404052^1^1,3^e

 +9       ;;^DIST(.403,.40406,0)

 +10      ;;=DDGF BLOCK ADD^^^0^2930413^2990316.0924^^.404^0^1^1

 +11      ;;^DIST(.403,.40406,40,0)

 +12      ;;=^.4031I^3^3

 +13      ;;^DIST(.403,.40406,40,1,0)

 +14      ;;=1^^3,9^^^1^7,65

 +15      ;;^DIST(.403,.40406,40,1,1)

 +16      ;;=Add a New Block

 +17      ;;^DIST(.403,.40406,40,1,40,0)

 +18      ;;=^.4032PI^.404061^1

 +19      ;;^DIST(.403,.40406,40,1,40,.404061,0)

 +20      ;;=.404061^1^1,1^e

 +21      ;;^DIST(.403,.40406,40,2,0)

 +22      ;;=11^^6,12^^^1^11,61

 +23      ;;^DIST(.403,.40406,40,2,1)

 +24      ;;=Add a New Block to Page

 +25      ;;^DIST(.403,.40406,40,2,40,0)

 +26      ;;=^.4032PI^.404062^1

 +27      ;;^DIST(.403,.40406,40,2,40,.404062,0)

 +28      ;;=.404062^1^1,1^e

 +29      ;;^DIST(.403,.40406,40,3,0)

 +30      ;;=21^^6,17^^^1^13,57

 +31      ;;^DIST(.403,.40406,40,3,1)

 +32      ;;=Duplicate Block Message

 +33      ;;^DIST(.403,.40406,40,3,40,0)

 +34      ;;=^.4032PI^.404063^1

 +35      ;;^DIST(.403,.40406,40,3,40,.404063,0)

 +36      ;;=.404063^1^1,1^e

 +37      ;;^DIST(.403,.40407,0)

 +38      ;;=DDGF BLOCK DELETE^^^0^2930809^2981117.0720^^.404^0^1^1

 +39      ;;^DIST(.403,.40407,40,0)

 +40      ;;=^.4031I^1^1

 +41      ;;^DIST(.403,.40407,40,1,0)

 +42      ;;=1^^5,9^^^1^11,62

 +43      ;;^DIST(.403,.40407,40,1,1)

 +44      ;;=Page 1

 +45      ;;^DIST(.403,.40407,40,1,40,0)

 +46      ;;=^.4032PI^.404071^1

 +47      ;;^DIST(.403,.40407,40,1,40,.404071,0)

 +48      ;;=.404071^1^3,3^e

 +49      ;;^DIST(.403,.40408,0)

 +50      ;;=DDGF HEADER BLOCK SELECT^^^0^2930504^2940928.1204^^.404^0^1^1

 +51      ;;^DIST(.403,.40408,40,0)

 +52      ;;=^.4031I^1^1

 +53      ;;^DIST(.403,.40408,40,1,0)

 +54      ;;=1^^4,5^^^1^8,68

 +55      ;;^DIST(.403,.40408,40,1,1)

 +56      ;;=Add a New Header Block

 +57      ;;^DIST(.403,.40408,40,1,40,0)

 +58      ;;=^.4032PI^.404081^1

 +59      ;;^DIST(.403,.40408,40,1,40,.404081,0)

 +60      ;;=.404081^1^1,1^e

 +61      ;;^DIST(.403,.441,0)

 +62      ;;=DDXP FF FORM1^^^^2920925^2990324.0806^^.44^0^0^1

 +63      ;;^DIST(.403,.441,20)

 +64      ;;=D FORMVAL^DDXP1

 +65      ;;^DIST(.403,.441,40,0)

 +66      ;;=^.4031I^3^3

 +67      ;;^DIST(.403,.441,40,1,0)

 +68      ;;=1^^1,1^2^2^0

 +69      ;;^DIST(.403,.441,40,1,1)

 +70      ;;=PAGE 1

 +71      ;;^DIST(.403,.441,40,1,15,0)

 +72      ;;=^^1^1^2920925

 +73      ;;^DIST(.403,.441,40,1,15,1,0)

 +74      ;;=First page for Foreign Format definition.  It contains block DDXP FF BLK1.

 +75      ;;^DIST(.403,.441,40,1,40,0)

 +76      ;;=^.4032PI^.441^1

 +77      ;;^DIST(.403,.441,40,1,40,.441,0)

 +78      ;;=.441^1^1,1^e

 +79      ;;^DIST(.403,.441,40,2,0)

 +80      ;;=2^^1,1^1^1^0

 +81      ;;^DIST(.403,.441,40,2,1)

 +82      ;;=PAGE 2

 +83      ;;^DIST(.403,.441,40,2,15,0)

 +84      ;;=^^2^2^2920925

 +85      ;;^DIST(.403,.441,40,2,15,1,0)

 +86      ;;=Page 2 of the form used to define a Foreign Format.  It contains block

 +87      ;;^DIST(.403,.441,40,2,15,2,0)

 +88      ;;=DDXP FF BLK2 and subpage containing DDXP FF BLK3.

 +89      ;;^DIST(.403,.441,40,2,40,0)

 +90      ;;=^.4032PI^.442^1

 +91      ;;^DIST(.403,.441,40,2,40,.442,0)

 +92      ;;=.442^1^1,1^e

 +93      ;;^DIST(.403,.441,40,3,0)

 +94      ;;=3^^12,23^^^1^16,59

 +95      ;;^DIST(.403,.441,40,3,1)

 +96      ;;=POP-UP PAGE 1

 +97      ;;^DIST(.403,.441,40,3,15,0)

 +98      ;;=^^2^2^2920925

 +99      ;;^DIST(.403,.441,40,3,15,1,0)

 +100     ;;=This pop-up page is called from page 2 of DDXP FF FORM1.  It contains

 +101     ;;^DIST(.403,.441,40,3,15,2,0)

 +102     ;;=block DDXP FF BLK3, which has the OTHER NAME FOR FORMAT multiple.

 +103     ;;^DIST(.403,.441,40,3,40,0)

 +104     ;;=^.4032PI^.443^1

 +105     ;;^DIST(.403,.441,40,3,40,.443,0)

 +106     ;;=.443^1^1,1^e

 +107     ;;^DIST(.403,.461,0)

 +108     ;;=DDMP SPECIFY IMPORT^^^^2950216.1102^2990224.0835^^.46^0^1^1

 +109     ;;^DIST(.403,.461,11)

 +110     ;;=S (DDMPFDCT,DDMPOSET)=0

 +111     ;;^DIST(.403,.461,20)

 +112     ;;=D VAL^DDMPSM

 +113     ;;^DIST(.403,.461,40,0)

 +114     ;;=^.4031I^4^4

 +115     ;;^DIST(.403,.461,40,1,0)

 +116     ;;=1^^1,1^2^2

 +117     ;;^DIST(.403,.461,40,1,1)

 +118     ;;=Page 1

 +119     ;;^DIST(.403,.461,40,1,40,0)

 +120     ;;=^.4032IP^.4611^1

 +121     ;;^DIST(.403,.461,40,1,40,.4611,0)

 +122     ;;=.4611^1^1,1^e

 +123     ;;^DIST(.403,.461,40,2,0)

 +124     ;;=2^^1,1^1^1

 +125     ;;^DIST(.403,.461,40,2,1)

 +126     ;;=Page 2

 +127     ;;^DIST(.403,.461,40,2,11)

 +128     ;;=D PAGE2^DDMPSM1

 +129     ;;^DIST(.403,.461,40,2,40,0)

 +130     ;;=^.4032IP^.4612^1

 +131     ;;^DIST(.403,.461,40,2,40,.4612,0)

 +132     ;;=.4612^1^1,1^e

 +133     ;;^DIST(.403,.461,40,3,0)

 +134     ;;=3^^5,33^^^1^11,79

 +135     ;;^DIST(.403,.461,40,3,1)

 +136     ;;=Page 3

 +137     ;;^DIST(.403,.461,40,3,40,0)

 +138     ;;=^.4032IP^.4613^1

 +139     ;;^DIST(.403,.461,40,3,40,.4613,0)

 +140     ;;=.4613^1^2,2^e

 +141     ;;^DIST(.403,.461,40,4,0)

 +142     ;;=4^^6,18^^^1^12,64

 +143     ;;^DIST(.403,.461,40,4,1)

 +144     ;;=Page 4

 +145     ;;^DIST(.403,.461,40,4,11)

 +146     ;;=S DDMPFRP4=1

 +147     ;;^DIST(.403,.461,40,4,15,0)

 +148     ;;=^^3^3^2950301

 +149     ;;^DIST(.403,.461,40,4,15,1,0)

 +150     ;;=This page explains that all fields need a length for a fixed length

 +151     ;;^DIST(.403,.461,40,4,15,2,0)

 +152     ;;=import.  It gives user the option of deleting the last field entered or

 +153     ;;^DIST(.403,.461,40,4,15,3,0)

 +154     ;;=returning to length prompt.

 +155     ;;^DIST(.403,.461,40,4,40,0)

 +156     ;;=^.4032IP^.4614^1

 +157     ;;^DIST(.403,.461,40,4,40,.4614,0)

 +158     ;;=.4614^1^2,2^e

DINIT0F3.m