DINIT0FI ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;3:27 PM  20 Apr 1999
 ;;22.0;VA FileMan;**8**;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="" ^DINIT0FJ S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
 Q
ENTRY ;
 ;;^DIST(.404,.404031,40,15,20)
 ;;=DD^^.4044,5.2
 ;;^DIST(.404,.404031,40,15,23)
 ;;=S DDGFSUP=X
 ;;^DIST(.404,.404031,40,16,0)
 ;;=6^UNIQUE NAME^3
 ;;^DIST(.404,.404031,40,16,1)
 ;;=3.1
 ;;^DIST(.404,.404031,40,16,2)
 ;;=5,26^50^5,13
 ;;^DIST(.404,.404031,40,17,0)
 ;;=9^EXECUTABLE CAPTION^3
 ;;^DIST(.404,.404031,40,17,1)
 ;;=1.1
 ;;^DIST(.404,.404031,40,17,2)
 ;;=9,26^50^9,6
 ;;^DIST(.404,.404031,40,17,13)
 ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"),"I")
 ;;^DIST(.404,.404032,0)
 ;;=DDGF FIELD DD OTHER SINGLE^.4044
 ;;^DIST(.404,.404032,40,0)
 ;;=^.4044I^13^10
 ;;^DIST(.404,.404032,40,1,0)
 ;;=1^ Other Parameters ^1
 ;;^DIST(.404,.404032,40,1,2)
 ;;=^^1,27
 ;;^DIST(.404,.404032,40,2,0)
 ;;=2^REQUIRED^3
 ;;^DIST(.404,.404032,40,2,1)
 ;;=6.1
 ;;^DIST(.404,.404032,40,2,2)
 ;;=3,23^3^3,13
 ;;^DIST(.404,.404032,40,3,0)
 ;;=4^DISABLE EDITING^3
 ;;^DIST(.404,.404032,40,3,1)
 ;;=6.4
 ;;^DIST(.404,.404032,40,3,2)
 ;;=4,23^9^4,6
 ;;^DIST(.404,.404032,40,7,0)
 ;;=7^DATA LENGTH^2
 ;;^DIST(.404,.404032,40,7,2)
 ;;=7,23^3^7,10
 ;;^DIST(.404,.404032,40,7,3)
 ;;=!M
 ;;^DIST(.404,.404032,40,7,3.1)
 ;;=S Y=$G(DDGFDL0)
 ;;^DIST(.404,.404032,40,7,4)
 ;;=1
 ;;^DIST(.404,.404032,40,7,20)
 ;;=DD^^.4044,4.2
 ;;^DIST(.404,.404032,40,7,23)
 ;;=S DDGFDL=X
 ;;^DIST(.404,.404032,40,8,0)
 ;;=8^CAPTION COORDINATE^2
 ;;^DIST(.404,.404032,40,8,2)
 ;;=8,23^7^8,3
 ;;^DIST(.404,.404032,40,8,3)
 ;;=!M
 ;;^DIST(.404,.404032,40,8,3.1)
 ;;=S Y=$G(DDGFCC0)
 ;;^DIST(.404,.404032,40,8,20)
 ;;=DD^^.4044,5.1
 ;;^DIST(.404,.404032,40,8,23)
 ;;=S DDGFCC=X
 ;;^DIST(.404,.404032,40,9,0)
 ;;=9^DATA COORDINATE^2
 ;;^DIST(.404,.404032,40,9,2)
 ;;=9,23^7^9,6
 ;;^DIST(.404,.404032,40,9,3)
 ;;=!M
 ;;^DIST(.404,.404032,40,9,3.1)
 ;;=S Y=$G(DDGFDC0)
 ;;^DIST(.404,.404032,40,9,4)
 ;;=1
 ;;^DIST(.404,.404032,40,9,20)
 ;;=DD^^.4044,4.1
 ;;^DIST(.404,.404032,40,9,23)
 ;;=S DDGFDC=X
 ;;^DIST(.404,.404032,40,10,0)
 ;;=10^DATA VALIDATION^3
 ;;^DIST(.404,.404032,40,10,1)
 ;;=14
 ;;^DIST(.404,.404032,40,10,2)
 ;;=11,23^49^11,6
 ;;^DIST(.404,.404032,40,11,0)
 ;;=5^RIGHT JUSTIFY^3
 ;;^DIST(.404,.404032,40,11,1)
 ;;=6.3
 ;;^DIST(.404,.404032,40,11,2)
 ;;=4,52^3^4,37
 ;;^DIST(.404,.404032,40,12,0)
 ;;=6^SUB PAGE LINK^3
 ;;^DIST(.404,.404032,40,12,1)
 ;;=8
 ;;^DIST(.404,.404032,40,12,2)
 ;;=5,23^5^5,8
 ;;^DIST(.404,.404032,40,13,0)
 ;;=3^DISPLAY GROUP^3
 ;;^DIST(.404,.404032,40,13,1)
 ;;=3
 ;;^DIST(.404,.404032,40,13,2)
 ;;=3,52^20^3,37
 ;;^DIST(.404,.404033,0)
 ;;=DDGF FIELD DD OTHER MULTIPLE^.4044
 ;;^DIST(.404,.404033,40,0)
 ;;=^.4044I^12^9
 ;;^DIST(.404,.404033,40,1,0)
 ;;=1^ Other Parameters ^1
 ;;^DIST(.404,.404033,40,1,2)
 ;;=^^1,14^1
 ;;^DIST(.404,.404033,40,2,0)
 ;;=2^SUB PAGE LINK^3
 ;;^DIST(.404,.404033,40,2,1)
 ;;=8
 ;;^DIST(.404,.404033,40,2,2)
 ;;=3,23^3^3,8
 ;;^DIST(.404,.404033,40,3,0)
 ;;=3^DISALLOW LAYGO^3
 ;;^DIST(.404,.404033,40,3,1)
 ;;=6.5
 ;;^DIST(.404,.404033,40,3,2)
 ;;=4,23^3^4,7
 ;;^DIST(.404,.404033,40,7,0)
 ;;=7^CAPTION COORDINATE^2
 ;;^DIST(.404,.404033,40,7,2)
 ;;=10,23^7^10,3
 ;;^DIST(.404,.404033,40,7,3)
 ;;=!M
 ;;^DIST(.404,.404033,40,7,3.1)
 ;;=S Y=$G(DDGFCC0)
 ;;^DIST(.404,.404033,40,7,20)
 ;;=DD^^.4044,5.1
 ;;^DIST(.404,.404033,40,7,23)
 ;;=S DDGFCC=X
 ;;^DIST(.404,.404033,40,8,0)
 ;;=8^DATA COORDINATE^2
 ;;^DIST(.404,.404033,40,8,2)
 ;;=11,23^7^11,6
 ;;^DIST(.404,.404033,40,8,3)
 ;;=!M
 ;;^DIST(.404,.404033,40,8,3.1)
 ;;=S Y=$G(DDGFDC0)
 ;;^DIST(.404,.404033,40,8,4)
 ;;=1
 ;;^DIST(.404,.404033,40,8,20)
 ;;=DD^^.4044,4.1
 ;;^DIST(.404,.404033,40,8,23)
 ;;=S DDGFDC=X
 ;;^DIST(.404,.404033,40,9,0)
 ;;=6^DATA LENGTH^2
 ;;^DIST(.404,.404033,40,9,2)
 ;;=9,23^3^9,10
 ;;^DIST(.404,.404033,40,9,3)
 ;;=!M
 ;;^DIST(.404,.404033,40,9,3.1)
 ;;=S Y=$G(DDGFDL0)
 ;;^DIST(.404,.404033,40,9,4)
 ;;=1
 ;;^DIST(.404,.404033,40,9,20)
 ;;=DD^^.4044,4.2
 ;;^DIST(.404,.404033,40,9,23)
 ;;=S DDGFDL=X
 ;;^DIST(.404,.404033,40,10,0)
 ;;=4^RIGHT JUSTIFY^3
 ;;^DIST(.404,.404033,40,10,1)
 ;;=6.3
 ;;^DIST(.404,.404033,40,10,2)
 ;;=6,23^3^6,8
 ;;^DIST(.404,.404033,40,11,0)
 ;;=5^DISPLAY GROUP^3
 ;;^DIST(.404,.404033,40,11,1)
 ;;=3
 ;;^DIST(.404,.404033,40,11,2)
 ;;=7,23^20^7,8
 ;;^DIST(.404,.404033,40,12,0)
 ;;=4^ASK 'OK'^3
 ;;^DIST(.404,.404033,40,12,1)
 ;;=6.6
 ;;^DIST(.404,.404033,40,12,2)
 ;;=5,23^3^5,13
 ;;^DIST(.404,.404034,0)
 ;;=DDGF FIELD DD OTHER WP^.4044
 ;;^DIST(.404,.404034,40,0)
 ;;=^.4044I^10^7
 ;;^DIST(.404,.404034,40,1,0)
 ;;=1^ Other Parameters ^1
 ;;^DIST(.404,.404034,40,1,2)
 ;;=^^1,14^1
 ;;^DIST(.404,.404034,40,2,0)
 ;;=2^REQUIRED^3
 ;;^DIST(.404,.404034,40,2,1)
 ;;=6.1
 ;;^DIST(.404,.404034,40,2,2)
 ;;=3,23^3^3,13
 ;;^DIST(.404,.404034,40,3,0)
 ;;=3^DISABLE EDITING^3
 ;;^DIST(.404,.404034,40,3,1)
 ;;=6.4
 ;;^DIST(.404,.404034,40,3,2)
 ;;=4,23^3^4,6
 ;;^DIST(.404,.404034,40,3,14)
 ;;=I X=2 D HLP^DDSUTL("Word processing fields are always reachable.  To make the field uneditable, enter 'YES'.") S DDSERROR=1
 ;;^DIST(.404,.404034,40,7,0)
 ;;=4^DISPLAY GROUP^3
 ;;^DIST(.404,.404034,40,7,1)
 ;;=3
 ;;^DIST(.404,.404034,40,7,2)
 ;;=5,23^20^5,8
 ;;^DIST(.404,.404034,40,8,0)
 ;;=5^DATA LENGTH^2
 ;;^DIST(.404,.404034,40,8,2)
 ;;=7,23^3^7,10
 ;;^DIST(.404,.404034,40,8,3)
 ;;=!M
 ;;^DIST(.404,.404034,40,8,3.1)
 ;;=S Y=$G(DDGFDL0)
 ;;^DIST(.404,.404034,40,8,4)
 ;;=1
 ;;^DIST(.404,.404034,40,8,20)
 ;;=DD^^.4044,4.2
 ;;^DIST(.404,.404034,40,8,23)
 ;;=S DDGFDL=X
 ;;^DIST(.404,.404034,40,9,0)
 ;;=6^CAPTION COORDINATE^2
 ;;^DIST(.404,.404034,40,9,2)
 ;;=8,23^7^8,3
 ;;^DIST(.404,.404034,40,9,3)
 ;;=!M
 ;;^DIST(.404,.404034,40,9,3.1)
 ;;=S Y=$G(DDGFCC0)
 ;;^DIST(.404,.404034,40,9,20)
 ;;=DD^^.4044,5.1
 ;;^DIST(.404,.404034,40,9,23)
 ;;=S DDGFCC=X
 ;;^DIST(.404,.404034,40,10,0)
 ;;=7^DATA COORDINATE^2
 ;;^DIST(.404,.404034,40,10,2)
 ;;=9,23^7^9,6
 ;;^DIST(.404,.404034,40,10,3)
 ;;=!M
 ;;^DIST(.404,.404034,40,10,3.1)
 ;;=S Y=$G(DDGFDC0)
 ;;^DIST(.404,.404034,40,10,4)
 ;;=1
 ;;^DIST(.404,.404034,40,10,20)
 ;;=DD^^.4044,4.1
 ;;^DIST(.404,.404034,40,10,23)
 ;;=S DDGFDC=X
 ;;^DIST(.404,.404041,0)
 ;;=DDGF FIELD FORM ONLY^.4044
 ;;^DIST(.404,.404041,40,0)
 ;;=^.4044I^17^14
 ;;^DIST(.404,.404041,40,1,0)
 ;;=1^ Form Only Field Properties ^1
 ;;^DIST(.404,.404041,40,1,2)
 ;;=^^1,25
 ;;^DIST(.404,.404041,40,2,0)
 ;;=2^FIELD ORDER^3
 ;;^DIST(.404,.404041,40,2,1)
 ;;=.01
 ;;^DIST(.404,.404041,40,2,2)
 ;;=3,26^4^3,13
 ;;^DIST(.404,.404041,40,5,0)
 ;;=8^DEFAULT^3
 ;;^DIST(.404,.404041,40,5,1)
 ;;=6
 ;;^DIST(.404,.404041,40,5,2)
 ;;=8,26^50^8,17
 ;;^DIST(.404,.404041,40,5,13)
 ;;=D:X'="!M" PUT^DDSVAL(.4044,.DA,6.01,"")
 ;;^DIST(.404,.404041,40,7,0)
 ;;=11^BRANCHING LOGIC^3
 ;;^DIST(.404,.404041,40,7,1)
 ;;=10
 ;;^DIST(.404,.404041,40,7,2)
 ;;=12,26^50^12,9