DINIT0F0	;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;4APR2007
	;;22.0;VA FileMan;**152**;Mar 30, 1999;Build 10
	;Per VHA Directive 2004-038, this routine should not be modified.
	D PRE^DINIT29P
	F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F1 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
	Q
ENTRY	;
	;;^DIST(.403,.001,0)
	;;=DICATT^@^@^^2981031.1257^2990319.1306^^1^0^1^1
	;;^DIST(.403,.001,1)
	;;=2000000
	;;^DIST(.403,.001,3)
	;;=3000000
	;;^DIST(.403,.001,4)
	;;=N
	;;^DIST(.403,.001,5)
	;;=Y
	;;^DIST(.403,.001,6)
	;;=N
	;;^DIST(.403,.001,7)
	;;=N
	;;^DIST(.403,.001,15,0)
	;;=^^36^36^2981214
	;;^DIST(.403,.001,15,1,0)
	;;=Pages: 1          Main form
	;;^DIST(.403,.001,15,2,0)
	;;=       1.1, 1.2   DESCRIPTION and TECHNICAL DESCRIPTION  text
	;;^DIST(.403,.001,15,3,0)
	;;=       2.1-2.8    TYPE-specific   (2.1=DATE, etc)
	;;^DIST(.403,.001,15,4,0)
	;;=       3          SUBSCRIPT & PIECE-position
	;;^DIST(.403,.001,15,5,0)
	;;=       4          SUBSCRIPT & SUB-DICTIONARY NUMBER
	;;^DIST(.403,.001,15,6,0)
	;;=       5          Multiples
	;;^DIST(.403,.001,15,7,0)
	;;=       6          SCREEN for Pointers & Sets
	;;^DIST(.403,.001,15,8,0)
	;;=       8          VARIABLE-POINTER extra fields for each pointer
	;;^DIST(.403,.001,15,9,0)
	;;=       9          "ARE YOU SURE YOU WANT TO DELETE THE ENTIRE FIELD?"
	;;^DIST(.403,.001,15,10,0)
	;;=      10          Multiple-field
	;;^DIST(.403,.001,15,11,0)
	;;=                                                 
	;;^DIST(.403,.001,15,12,0)
	;;= 
	;;^DIST(.403,.001,15,13,0)
	;;= 
	;;^DIST(.403,.001,15,14,0)
	;;=Branching logic:
	;;^DIST(.403,.001,15,15,0)
	;;=              From Field 20.5 ("MULTIPLE?")
	;;^DIST(.403,.001,15,16,0)
	;;=       IS THIS FIELD NEW AND IS THE USER A PROGRAMMER?
	;;^DIST(.403,.001,15,17,0)
	;;=          |                                      |
	;;^DIST(.403,.001,15,18,0)
	;;=         NO                                     YES
	;;^DIST(.403,.001,15,19,0)
	;;=          |                                      |
	;;^DIST(.403,.001,15,20,0)
	;;=          |                               IS FIELD MULTIPLE?
	;;^DIST(.403,.001,15,21,0)
	;;=          |                                |              |
	;;^DIST(.403,.001,15,22,0)
	;;=          |                               YES            NO
	;;^DIST(.403,.001,15,23,0)
	;;=          |                                |              |
	;;^DIST(.403,.001,15,24,0)
	;;=IS FIELD EDITABLE & MULTIPLE?              |              |
	;;^DIST(.403,.001,15,25,0)
	;;=   |                    |                  |              |
	;;^DIST(.403,.001,15,26,0)
	;;=   |                   YES  --------->  Page 5         Page 3
	;;^DIST(.403,.001,15,27,0)
	;;=   |                                       |              |
	;;^DIST(.403,.001,15,28,0)
	;;=   |                                 PROGRAMMER?          |
	;;^DIST(.403,.001,15,29,0)
	;;=   |                                  |        |          |
	;;^DIST(.403,.001,15,30,0)
	;;=   |                                 YES      NO          |
	;;^DIST(.403,.001,15,31,0)
	;;=   |                                  |        |          |
	;;^DIST(.403,.001,15,32,0)
	;;=   |                                Page 4     |          | 
	;;^DIST(.403,.001,15,33,0)
	;;=   |                                  |        |          |
	;;^DIST(.403,.001,15,34,0)
	;;=    --------------------------------->|<------------------
	;;^DIST(.403,.001,15,35,0)
	;;=                                      |
	;;^DIST(.403,.001,15,36,0)
	;;=                           Field 98 (HELP-PROMPT)
	;;^DIST(.403,.001,20)
	;;=D POST^DICATTDE
	;;^DIST(.403,.001,40,0)
	;;=^.4031I^21^18
	;;^DIST(.403,.001,40,1,0)
	;;=1^^1,1
	;;^DIST(.403,.001,40,1,1)
	;;=Page 1
	;;^DIST(.403,.001,40,1,40,0)
	;;=^.4032IP^.00101^1
	;;^DIST(.403,.001,40,1,40,.00101,0)
	;;=.00101^1^1,1^e
	;;^DIST(.403,.001,40,1,40,.00101,11)
	;;=D PRE^DICATTD
	;;^DIST(.403,.001,40,2,0)
	;;=2.1^^4,3^^^1^12,70
	;;^DIST(.403,.001,40,2,1)
	;;=Page 2.1
	;;^DIST(.403,.001,40,2,12)
	;;=D POST1^DICATTD1
	;;^DIST(.403,.001,40,2,40,0)
	;;=^.4032IP^.00102^1
	;;^DIST(.403,.001,40,2,40,.00102,0)
	;;=.00102^1^2,3^e
	;;^DIST(.403,.001,40,3,0)
	;;=2.2^^4,3^^^1^9,70
	;;^DIST(.403,.001,40,3,1)
	;;=Page 2.2
	;;^DIST(.403,.001,40,3,12)
	;;=D POST2^DICATTD2
	;;^DIST(.403,.001,40,3,40,0)
	;;=^.4032IP^.00103^1
	;;^DIST(.403,.001,40,3,40,.00103,0)
	;;=.00103^1^2,3^e
	;;^DIST(.403,.001,40,6,0)
	;;=2.4^^3,8^^^1^7,67
	;;^DIST(.403,.001,40,6,1)
	;;=Page 2.4
	;;^DIST(.403,.001,40,6,12)
	;;=D POST4^DICATTD4
	;;^DIST(.403,.001,40,6,40,0)
	;;=^.4032IP^.00104^1
	;;^DIST(.403,.001,40,6,40,.00104,0)
	;;=.00104^1^1,1^e
	;;^DIST(.403,.001,40,7,0)
	;;=2.5^^4,2^^^1^8,78
	;;^DIST(.403,.001,40,7,1)
	;;=Page 2.5
	;;^DIST(.403,.001,40,7,40,0)
	;;=^.4032IP^.00105^1
	;;^DIST(.403,.001,40,7,40,.00105,0)
	;;=.00105^1^1,1^e
	;;^DIST(.403,.001,40,8,0)
	;;=2.6^^3,2^^^1^11,77
	;;^DIST(.403,.001,40,8,1)
	;;=Page 2.6
	;;^DIST(.403,.001,40,8,12)
	;;=D POST6^DICATTD6
	;;^DIST(.403,.001,40,8,40,0)
	;;=^.4032IP^.00106^1
	;;^DIST(.403,.001,40,8,40,.00106,0)
	;;=.00106^1^1,1^e
	;;^DIST(.403,.001,40,9,0)
	;;=2.7^^3,2^^^1^8,75
	;;^DIST(.403,.001,40,9,1)
	;;=Page 2.7
	;;^DIST(.403,.001,40,9,12)
	;;=D POST7^DICATTD7
	;;^DIST(.403,.001,40,9,40,0)
	;;=^.4032IP^.00107^1
	;;^DIST(.403,.001,40,9,40,.00107,0)
	;;=.00107^1^1,1^e
	;;^DIST(.403,.001,40,10,0)
	;;=2.8^^3,3^^^1^11,77
	;;^DIST(.403,.001,40,10,1)
	;;=Page 2.8
	;;^DIST(.403,.001,40,10,40,0)
	;;=^.4032IP^.00108^1
	;;^DIST(.403,.001,40,10,40,.00108,0)
	;;=.00108^1^1,1^e
	;;^DIST(.403,.001,40,11,0)
	;;=2.3^^3,6^^^1^17,70
	;;^DIST(.403,.001,40,11,1)
	;;=Page 2.3
	;;^DIST(.403,.001,40,11,12)
	;;=D POST3^DICATTD3
	;;^DIST(.403,.001,40,11,40,0)
	;;=^.4032IP^.00109^1
	;;^DIST(.403,.001,40,11,40,.00109,0)
	;;=.00109^1^1,1^e
	;;^DIST(.403,.001,40,12,0)
	;;=1.1^^1,1^^1
	;;^DIST(.403,.001,40,12,1)
	;;=Page 1.1
	;;^DIST(.403,.001,40,12,40,0)
	;;=^.4032IP^.0011^1
	;;^DIST(.403,.001,40,12,40,.0011,0)
	;;=.0011^1^1,1^e
	;;^DIST(.403,.001,40,12,40,.0011,11)
	;;=D WORD^DICATTD0(21)
	;;^DIST(.403,.001,40,13,0)
	;;=1.2^^1,1
	;;^DIST(.403,.001,40,13,1)
	;;=Page 1.2
	;;^DIST(.403,.001,40,13,40,0)
	;;=^.4032IP^.00111^1
	;;^DIST(.403,.001,40,13,40,.00111,0)
	;;=.00111^1^1,1^e
	;;^DIST(.403,.001,40,15,0)
	;;=3^^4,8^^^1^7,64
	;;^DIST(.403,.001,40,15,1)
	;;=Page 3
	;;^DIST(.403,.001,40,15,12)
	;;=D POST^DICATTDM
	;;^DIST(.403,.001,40,15,40,0)
	;;=^.4032IP^.00112^1
	;;^DIST(.403,.001,40,15,40,.00112,0)
	;;=.00112^1^2,2^e
	;;^DIST(.403,.001,40,16,0)
	;;=9^^3,10^^^1^7,70
	;;^DIST(.403,.001,40,16,1)
	;;=Page 9
	;;^DIST(.403,.001,40,16,40,0)
	;;=^.4032IP^.00113^1
	;;^DIST(.403,.001,40,16,40,.00113,0)
	;;=.00113^1^1,1^e
	;;^DIST(.403,.001,40,17,0)
	;;=4^^9,5^^^1^12,75
	;;^DIST(.403,.001,40,17,1)
	;;=Page 4
	;;^DIST(.403,.001,40,17,40,0)
	;;=^.4032IP^.00114^1
	;;^DIST(.403,.001,40,17,40,.00114,0)
	;;=.00114^1^1,1^e