Return to DINIT0F6.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

DINIT0F6	;SFISC/MKO-FORMS AND BLOCKS FOR FORM EDITOR ;11/23/94  1:24 PM
	;;21.0;VA FileMan;;Dec 28, 1994
	;Per VHA Directive 10-93-142, this routine should not be modified.
	F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F7 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
	Q
ENTRY	;
	;;^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^11^8
	;;^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,.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