Routine: DINIT0FF

DINIT0FF ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;06:21 PM  2 Apr 2001 [ 04/02/2003   8:25 AM ]

 ;;22.0;VA FileMan;**1001**;APR 1, 2003

 ;;22.0;VA FileMan;**8,62,82**;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="" ^DINIT0FG S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y

ENTRY ;

 ;;^DIST(.404,.402011,40,11,21,0)

 ;;=^^5^5^3010402

 ;;^DIST(.404,.402011,40,11,21,1,0)

 ;;=Enter a valid MUMPS routine name of from 3 to 8 characters.  This must

 ;;^DIST(.404,.402011,40,11,21,2,0)

 ;;=be entered without a leading up-arrow, and cannot begin with "DI".

 ;;^DIST(.404,.402011,40,11,21,3,0)

 ;;=It must name a routine currently on the system.

 ;;^DIST(.404,.402011,40,11,21,4,0)

 ;;=This special lookup routine will be executed instead of the standard

 ;;^DIST(.404,.402011,40,11,21,5,0)

 ;;=FileMan lookup logic, whenever a call is made to ^DIC.

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

 ;;=12^CROSS-REFERENCE ROUTINE^2^^CROSS-REFERENCE ROUTINE

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

 ;;=17,26^6^17,1

 ;;^DIST(.404,.402011,40,12,3)

 ;;=!M

 ;;^DIST(.404,.402011,40,12,3.1)

 ;;=S Y=$G(^DD(DA,0,"DIK"))

 ;;^DIST(.404,.402011,40,12,14)

 ;;=I X?1"DI".E!(X'?3U.3NU),X]"" S DDSERROR=1

 ;;^DIST(.404,.402011,40,12,20)

 ;;=F

 ;;^DIST(.404,.402011,40,12,21,0)

 ;;=^^11^11^2981029

 ;;^DIST(.404,.402011,40,12,21,1,0)

;;=

 ;;^DIST(.404,.402011,40,12,21,2,0)

 ;;=Enter a valid MUMPS routine name of from 3 to 6 characters.  This must

 ;;^DIST(.404,.402011,40,12,21,3,0)

 ;;=be entered without a leading up-arrow, and cannot begin with "DI".

 ;;^DIST(.404,.402011,40,12,21,4,0)

;;=

 ;;^DIST(.404,.402011,40,12,21,5,0)

 ;;=This will become the namespace of the compiled routine(s).

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

;;=

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

 ;;=If a NEW routine name is entered, but the cross-references are not

 ;;^DIST(.404,.402011,40,12,21,8,0)

 ;;=compiled at this time, the routine name will be automatically deleted.

 ;;^DIST(.404,.402011,40,12,21,9,0)

;;=

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

 ;;=If the routine name is deleted, the cross-references are considered

 ;;^DIST(.404,.402011,40,12,21,11,0)

 ;;=un-compiled, and FileMan will not use the routine for re-indexing.

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

 ;;=1.8^DEVELOPER^3

 ;;^DIST(.404,.402011,40,13,1)

 ;;=20

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

 ;;=5,36^35^5,25

 ;;^DIST(.404,.402011,40,15,0)

 ;;=1.2^Select APPLICATION GROUP^3

 ;;^DIST(.404,.402011,40,15,1)

 ;;=10

 ;;^DIST(.404,.402011,40,15,2)

 ;;=4,36^5^4,10

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

 ;;=.1^^4^^NUMBER

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

 ;;=3,49^18

 ;;^DIST(.404,.402011,40,16,30)

 ;;=S Y="(File # "_DA_")"

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

 ;;=.2^FILE NAME^2^^NAME

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

 ;;=2,12^45^2,1

 ;;^DIST(.404,.402011,40,17,3)

 ;;=!M

 ;;^DIST(.404,.402011,40,17,3.1)

 ;;=S Y=$P($G(^DIC(DA,0)),U)

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

 ;;=I X="" S DDACT="EX"

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

 ;;=F^^3:45

 ;;^DIST(.404,.402011,40,18,0)

 ;;=13^^4^^FORMERLY COMPILED AS

 ;;^DIST(.404,.402011,40,18,2)

 ;;=17,37^31

 ;;^DIST(.404,.402011,40,18,30)

 ;;=S Y="" I '$D(^DD(DA,0,"DIK")) S Y=$G(^("DIKOLD")) S:Y]"" Y="(formerly compiled as '"_Y_"')"

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

 ;;=DDGF BLOCK EDIT 1^.4032

 ;;^DIST(.404,.403011,11)

 ;;=I $$GET^DDSVAL(DIE,.DA,3)="d" D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",1)

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

 ;;=^.4044I^10^8

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

 ;;=1^ Block Properties Stored in FORM File ^1

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

 ;;=^^1,20^1

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

 ;;=3^BLOCK ORDER^3

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

 ;;=1

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

 ;;=3,69^4^3,56

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

 ;;=1

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

 ;;=4^TYPE OF BLOCK^3

 ;;^DIST(.404,.403011,40,3,1)

 ;;=3

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

 ;;=4,18^7^4,3

 ;;^DIST(.404,.403011,40,3,4)

 ;;=1

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

 ;;=D:X="d" PUT^DDSVAL(.404,$$GET^DDSVAL(DIE,.DA,.01),2,"") D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",$E(1,X="d"))

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

 ;;=6^POINTER LINK^3

 ;;^DIST(.404,.403011,40,5,1)

 ;;=4

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

 ;;=6,18^57^6,4

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

 ;;=2^BLOCK NAME^3

 ;;^DIST(.404,.403011,40,6,1)

 ;;=.01

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

 ;;=3,18^30^3,6

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

 ;;=7^PRE ACTION^3

 ;;^DIST(.404,.403011,40,8,1)

 ;;=11

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

 ;;=7,18^57^7,6

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

 ;;=9^POST ACTION^3

 ;;^DIST(.404,.403011,40,9,1)

 ;;=12

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

 ;;=8,18^57^8,5

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

 ;;=5^OTHER PARAMETERS...^2

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

 ;;=4,69^1^4,49^1

 ;;^DIST(.404,.403011,40,10,7)

 ;;=^11

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

 ;;=F^^0:0

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

 ;;=^^1^1^2940928

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

 ;;=Press <RET> to edit additional properties of the block

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

 ;;=DDGF BLOCK EDIT 2^.404

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

 ;;=^.4044I^7^7

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

 ;;=1^----------------- Block Properties Stored in BLOCK File ------------------^1

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

 ;;=^^1,2^1

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

 ;;=2^NAME^2

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

 ;;=3,16^30^3,10

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

 ;;=!M

 ;;^DIST(.404,.403012,40,2,3.1)

 ;;=S Y=DDGFBKNO

 ;;^DIST(.404,.403012,40,2,20)

 ;;=DD^^.404,.01

 ;;^DIST(.404,.403012,40,2,23)

 ;;=S DDGFBKNN=X

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

 ;;=3^DESCRIPTION (WP)^3

 ;;^DIST(.404,.403012,40,3,1)

 ;;=15

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

 ;;=3,69^1^3,51

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

 ;;=4^DD NUMBER^3

 ;;^DIST(.404,.403012,40,4,1)

 ;;=1

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

 ;;=4,16^16^4,5

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

 ;;=5^DISABLE NAVIGATION^3

 ;;^DIST(.404,.403012,40,5,1)

 ;;=2

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

 ;;=4,69^5^4,49

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

 ;;=6^PRE ACTION^3

 ;;^DIST(.404,.403012,40,6,1)

 ;;=11

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

 ;;=6,16^59^6,4

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

 ;;=7^POST ACTION^3

 ;;^DIST(.404,.403012,40,7,1)

 ;;=12

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

 ;;=7,16^59^7,3

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

 ;;=DDGF BLOCK EDIT OTHER^.4032

 ;;^DIST(.404,.403013,11)

 ;;=I $$GET^DDSVAL(DIE,.DA,"REPLICATION")<2 N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION","ASK 'OK'" D UNED^DDSUTL(DDGFZ,"","",1)

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

 ;;=^.4044I^9^9

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

 ;;=1^ Other Block Parameters ^1

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

 ;;=^^1,16

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

 ;;=2^BLOCK COORDINATE^2

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

 ;;=3,24^7^3,6

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

 ;;=!M

 ;;^DIST(.404,.403013,40,2,3.1)

 ;;=S Y=DDGFBKCO

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

 ;;=1

 ;;^DIST(.404,.403013,40,2,20)

 ;;=DD^^.4032,2

 ;;^DIST(.404,.403013,40,2,23)

 ;;=S DDGFBKCN=X

DINIT0FF  ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;06:21 PM  2 Apr 2001 [ 04/02/2003   8:25 AM ]

 +1       ;;22.0;VA FileMan;**1001**;APR 1, 2003

 +2       ;;22.0;VA FileMan;**8,62,82**;Mar 30, 1999

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

 +4        FOR I=1:2

               SET X=$TEXT(ENTRY+I)

               IF X=""

                   GOTO ^DINIT0FG

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

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

               SET @X=Y

 +5        QUIT

ENTRY     ;

 +1       ;;^DIST(.404,.402011,40,11,21,0)

 +2       ;;=^^5^5^3010402

 +3       ;;^DIST(.404,.402011,40,11,21,1,0)

 +4       ;;=Enter a valid MUMPS routine name of from 3 to 8 characters.  This must

 +5       ;;^DIST(.404,.402011,40,11,21,2,0)

 +6       ;;=be entered without a leading up-arrow, and cannot begin with "DI".

 +7       ;;^DIST(.404,.402011,40,11,21,3,0)

 +8       ;;=It must name a routine currently on the system.

 +9       ;;^DIST(.404,.402011,40,11,21,4,0)

 +10      ;;=This special lookup routine will be executed instead of the standard

 +11      ;;^DIST(.404,.402011,40,11,21,5,0)

 +12      ;;=FileMan lookup logic, whenever a call is made to ^DIC.

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

 +14      ;;=12^CROSS-REFERENCE ROUTINE^2^^CROSS-REFERENCE ROUTINE

 +15      ;;^DIST(.404,.402011,40,12,2)

 +16      ;;=17,26^6^17,1

 +17      ;;^DIST(.404,.402011,40,12,3)

 +18      ;;=!M

 +19      ;;^DIST(.404,.402011,40,12,3.1)

 +20      ;;=S Y=$G(^DD(DA,0,"DIK"))

 +21      ;;^DIST(.404,.402011,40,12,14)

 +22      ;;=I X?1"DI".E!(X'?3U.3NU),X]"" S DDSERROR=1

 +23      ;;^DIST(.404,.402011,40,12,20)

 +24      ;;=F

 +25      ;;^DIST(.404,.402011,40,12,21,0)

 +26      ;;=^^11^11^2981029

 +27      ;;^DIST(.404,.402011,40,12,21,1,0)

 +28      ;;=

 +29      ;;^DIST(.404,.402011,40,12,21,2,0)

 +30      ;;=Enter a valid MUMPS routine name of from 3 to 6 characters.  This must

 +31      ;;^DIST(.404,.402011,40,12,21,3,0)

 +32      ;;=be entered without a leading up-arrow, and cannot begin with "DI".

 +33      ;;^DIST(.404,.402011,40,12,21,4,0)

 +34      ;;=

 +35      ;;^DIST(.404,.402011,40,12,21,5,0)

 +36      ;;=This will become the namespace of the compiled routine(s).

 +37      ;;^DIST(.404,.402011,40,12,21,6,0)

 +38      ;;=

 +39      ;;^DIST(.404,.402011,40,12,21,7,0)

 +40      ;;=If a NEW routine name is entered, but the cross-references are not

 +41      ;;^DIST(.404,.402011,40,12,21,8,0)

 +42      ;;=compiled at this time, the routine name will be automatically deleted.

 +43      ;;^DIST(.404,.402011,40,12,21,9,0)

 +44      ;;=

 +45      ;;^DIST(.404,.402011,40,12,21,10,0)

 +46      ;;=If the routine name is deleted, the cross-references are considered

 +47      ;;^DIST(.404,.402011,40,12,21,11,0)

 +48      ;;=un-compiled, and FileMan will not use the routine for re-indexing.

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

 +50      ;;=1.8^DEVELOPER^3

 +51      ;;^DIST(.404,.402011,40,13,1)

 +52      ;;=20

 +53      ;;^DIST(.404,.402011,40,13,2)

 +54      ;;=5,36^35^5,25

 +55      ;;^DIST(.404,.402011,40,15,0)

 +56      ;;=1.2^Select APPLICATION GROUP^3

 +57      ;;^DIST(.404,.402011,40,15,1)

 +58      ;;=10

 +59      ;;^DIST(.404,.402011,40,15,2)

 +60      ;;=4,36^5^4,10

 +61      ;;^DIST(.404,.402011,40,16,0)

 +62      ;;=.1^^4^^NUMBER

 +63      ;;^DIST(.404,.402011,40,16,2)

 +64      ;;=3,49^18

 +65      ;;^DIST(.404,.402011,40,16,30)

 +66      ;;=S Y="(File # "_DA_")"

 +67      ;;^DIST(.404,.402011,40,17,0)

 +68      ;;=.2^FILE NAME^2^^NAME

 +69      ;;^DIST(.404,.402011,40,17,2)

 +70      ;;=2,12^45^2,1

 +71      ;;^DIST(.404,.402011,40,17,3)

 +72      ;;=!M

 +73      ;;^DIST(.404,.402011,40,17,3.1)

 +74      ;;=S Y=$P($G(^DIC(DA,0)),U)

 +75      ;;^DIST(.404,.402011,40,17,13)

 +76      ;;=I X="" S DDACT="EX"

 +77      ;;^DIST(.404,.402011,40,17,20)

 +78      ;;=F^^3:45

 +79      ;;^DIST(.404,.402011,40,18,0)

 +80      ;;=13^^4^^FORMERLY COMPILED AS

 +81      ;;^DIST(.404,.402011,40,18,2)

 +82      ;;=17,37^31

 +83      ;;^DIST(.404,.402011,40,18,30)

 +84      ;;=S Y="" I '$D(^DD(DA,0,"DIK")) S Y=$G(^("DIKOLD")) S:Y]"" Y="(formerly compiled as '"_Y_"')"

 +85      ;;^DIST(.404,.403011,0)

 +86      ;;=DDGF BLOCK EDIT 1^.4032

 +87      ;;^DIST(.404,.403011,11)

 +88      ;;=I $$GET^DDSVAL(DIE,.DA,3)="d" D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",1)

 +89      ;;^DIST(.404,.403011,40,0)

 +90      ;;=^.4044I^10^8

 +91      ;;^DIST(.404,.403011,40,1,0)

 +92      ;;=1^ Block Properties Stored in FORM File ^1

 +93      ;;^DIST(.404,.403011,40,1,2)

 +94      ;;=^^1,20^1

 +95      ;;^DIST(.404,.403011,40,2,0)

 +96      ;;=3^BLOCK ORDER^3

 +97      ;;^DIST(.404,.403011,40,2,1)

 +98      ;;=1

 +99      ;;^DIST(.404,.403011,40,2,2)

 +100     ;;=3,69^4^3,56

 +101     ;;^DIST(.404,.403011,40,2,4)

 +102     ;;=1

 +103     ;;^DIST(.404,.403011,40,3,0)

 +104     ;;=4^TYPE OF BLOCK^3

 +105     ;;^DIST(.404,.403011,40,3,1)

 +106     ;;=3

 +107     ;;^DIST(.404,.403011,40,3,2)

 +108     ;;=4,18^7^4,3

 +109     ;;^DIST(.404,.403011,40,3,4)

 +110     ;;=1

 +111     ;;^DIST(.404,.403011,40,3,13)

 +112     ;;=D:X="d" PUT^DDSVAL(.404,$$GET^DDSVAL(DIE,.DA,.01),2,"") D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",$E(1,X="d"))

 +113     ;;^DIST(.404,.403011,40,5,0)

 +114     ;;=6^POINTER LINK^3

 +115     ;;^DIST(.404,.403011,40,5,1)

 +116     ;;=4

 +117     ;;^DIST(.404,.403011,40,5,2)

 +118     ;;=6,18^57^6,4

 +119     ;;^DIST(.404,.403011,40,6,0)

 +120     ;;=2^BLOCK NAME^3

 +121     ;;^DIST(.404,.403011,40,6,1)

 +122     ;;=.01

 +123     ;;^DIST(.404,.403011,40,6,2)

 +124     ;;=3,18^30^3,6

 +125     ;;^DIST(.404,.403011,40,8,0)

 +126     ;;=7^PRE ACTION^3

 +127     ;;^DIST(.404,.403011,40,8,1)

 +128     ;;=11

 +129     ;;^DIST(.404,.403011,40,8,2)

 +130     ;;=7,18^57^7,6

 +131     ;;^DIST(.404,.403011,40,9,0)

 +132     ;;=9^POST ACTION^3

 +133     ;;^DIST(.404,.403011,40,9,1)

 +134     ;;=12

 +135     ;;^DIST(.404,.403011,40,9,2)

 +136     ;;=8,18^57^8,5

 +137     ;;^DIST(.404,.403011,40,10,0)

 +138     ;;=5^OTHER PARAMETERS...^2

 +139     ;;^DIST(.404,.403011,40,10,2)

 +140     ;;=4,69^1^4,49^1

 +141     ;;^DIST(.404,.403011,40,10,7)

 +142     ;;=^11

 +143     ;;^DIST(.404,.403011,40,10,20)

 +144     ;;=F^^0:0

 +145     ;;^DIST(.404,.403011,40,10,21,0)

 +146     ;;=^^1^1^2940928

 +147     ;;^DIST(.404,.403011,40,10,21,1,0)

 +148     ;;=Press <RET> to edit additional properties of the block

 +149     ;;^DIST(.404,.403012,0)

 +150     ;;=DDGF BLOCK EDIT 2^.404

 +151     ;;^DIST(.404,.403012,40,0)

 +152     ;;=^.4044I^7^7

 +153     ;;^DIST(.404,.403012,40,1,0)

 +154     ;;=1^----------------- Block Properties Stored in BLOCK File ------------------^1

 +155     ;;^DIST(.404,.403012,40,1,2)

 +156     ;;=^^1,2^1

 +157     ;;^DIST(.404,.403012,40,2,0)

 +158     ;;=2^NAME^2

 +159     ;;^DIST(.404,.403012,40,2,2)

 +160     ;;=3,16^30^3,10

 +161     ;;^DIST(.404,.403012,40,2,3)

 +162     ;;=!M

 +163     ;;^DIST(.404,.403012,40,2,3.1)

 +164     ;;=S Y=DDGFBKNO

 +165     ;;^DIST(.404,.403012,40,2,20)

 +166     ;;=DD^^.404,.01

 +167     ;;^DIST(.404,.403012,40,2,23)

 +168     ;;=S DDGFBKNN=X

 +169     ;;^DIST(.404,.403012,40,3,0)

 +170     ;;=3^DESCRIPTION (WP)^3

 +171     ;;^DIST(.404,.403012,40,3,1)

 +172     ;;=15

 +173     ;;^DIST(.404,.403012,40,3,2)

 +174     ;;=3,69^1^3,51

 +175     ;;^DIST(.404,.403012,40,4,0)

 +176     ;;=4^DD NUMBER^3

 +177     ;;^DIST(.404,.403012,40,4,1)

 +178     ;;=1

 +179     ;;^DIST(.404,.403012,40,4,2)

 +180     ;;=4,16^16^4,5

 +181     ;;^DIST(.404,.403012,40,5,0)

 +182     ;;=5^DISABLE NAVIGATION^3

 +183     ;;^DIST(.404,.403012,40,5,1)

 +184     ;;=2

 +185     ;;^DIST(.404,.403012,40,5,2)

 +186     ;;=4,69^5^4,49

 +187     ;;^DIST(.404,.403012,40,6,0)

 +188     ;;=6^PRE ACTION^3

 +189     ;;^DIST(.404,.403012,40,6,1)

 +190     ;;=11

 +191     ;;^DIST(.404,.403012,40,6,2)

 +192     ;;=6,16^59^6,4

 +193     ;;^DIST(.404,.403012,40,7,0)

 +194     ;;=7^POST ACTION^3

 +195     ;;^DIST(.404,.403012,40,7,1)

 +196     ;;=12

 +197     ;;^DIST(.404,.403012,40,7,2)

 +198     ;;=7,16^59^7,3

 +199     ;;^DIST(.404,.403013,0)

 +200     ;;=DDGF BLOCK EDIT OTHER^.4032

 +201     ;;^DIST(.404,.403013,11)

 +202     ;;=I $$GET^DDSVAL(DIE,.DA,"REPLICATION")<2 N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION","ASK 'OK'" D UNED^DDSUTL(DDGFZ,"","",1)

 +203     ;;^DIST(.404,.403013,40,0)

 +204     ;;=^.4044I^9^9

 +205     ;;^DIST(.404,.403013,40,1,0)

 +206     ;;=1^ Other Block Parameters ^1

 +207     ;;^DIST(.404,.403013,40,1,2)

 +208     ;;=^^1,16

 +209     ;;^DIST(.404,.403013,40,2,0)

 +210     ;;=2^BLOCK COORDINATE^2

 +211     ;;^DIST(.404,.403013,40,2,2)

 +212     ;;=3,24^7^3,6

 +213     ;;^DIST(.404,.403013,40,2,3)

 +214     ;;=!M

 +215     ;;^DIST(.404,.403013,40,2,3.1)

 +216     ;;=S Y=DDGFBKCO

 +217     ;;^DIST(.404,.403013,40,2,4)

 +218     ;;=1

 +219     ;;^DIST(.404,.403013,40,2,20)

 +220     ;;=DD^^.4032,2

 +221     ;;^DIST(.404,.403013,40,2,23)

 +222     ;;=S DDGFBKCN=X

DINIT0FF.m