Return to DINIT0F8.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Initial revision

DINIT0F8	;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="" ^DINIT0F9 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
	Q
ENTRY	;
	;;^DIST(.404,.404042,40,6,1)
	;;=21
	;;^DIST(.404,.404042,40,6,2)
	;;=7,20^1^7,9
	;;^DIST(.404,.404042,40,8,0)
	;;=7^SCREEN^3
	;;^DIST(.404,.404042,40,8,1)
	;;=24
	;;^DIST(.404,.404042,40,8,2)
	;;=10,20^52^10,12
	;;^DIST(.404,.404042,40,9,0)
	;;=8^SAVE CODE^3
	;;^DIST(.404,.404042,40,9,1)
	;;=23
	;;^DIST(.404,.404042,40,9,2)
	;;=11,20^52^11,9
	;;^DIST(.404,.404051,0)
	;;=DDGF FIELD COMPUTED^.4044
	;;^DIST(.404,.404051,40,0)
	;;=^.4044I^8^8
	;;^DIST(.404,.404051,40,1,0)
	;;=1^ Computed Field Properties ^1
	;;^DIST(.404,.404051,40,1,2)
	;;=^^1,26
	;;^DIST(.404,.404051,40,2,0)
	;;=2^FIELD ORDER^3
	;;^DIST(.404,.404051,40,2,1)
	;;=.01
	;;^DIST(.404,.404051,40,2,2)
	;;=3,24^4^3,11
	;;^DIST(.404,.404051,40,3,0)
	;;=3^OTHER PARAMETERS...^2
	;;^DIST(.404,.404051,40,3,2)
	;;=4,24^1^4,4^1
	;;^DIST(.404,.404051,40,3,7)
	;;=^11
	;;^DIST(.404,.404051,40,3,20)
	;;=F^^1:1
	;;^DIST(.404,.404051,40,3,21,0)
	;;=^^1^1^2930916^
	;;^DIST(.404,.404051,40,3,21,1,0)
	;;=Press 'RETURN' to edit additional properties of this Data Dictionary field
	;;^DIST(.404,.404051,40,4,0)
	;;=4^SUPPRESS COLON AFTER CAPTION?^2
	;;^DIST(.404,.404051,40,4,2)
	;;=4,71^3^4,41^1
	;;^DIST(.404,.404051,40,4,3)
	;;=!M
	;;^DIST(.404,.404051,40,4,3.1)
	;;=S Y=DDGFSUP0
	;;^DIST(.404,.404051,40,4,20)
	;;=DD^^.4044,5.2
	;;^DIST(.404,.404051,40,4,23)
	;;=S DDGFSUP=X
	;;^DIST(.404,.404051,40,5,0)
	;;=5^UNIQUE NAME^3
	;;^DIST(.404,.404051,40,5,1)
	;;=3.1
	;;^DIST(.404,.404051,40,5,2)
	;;=5,24^50^5,11
	;;^DIST(.404,.404051,40,6,0)
	;;=6^CAPTION^2
	;;^DIST(.404,.404051,40,6,2)
	;;=7,24^50^7,15
	;;^DIST(.404,.404051,40,6,3)
	;;=!M
	;;^DIST(.404,.404051,40,6,3.1)
	;;=S Y=DDGFCAP0
	;;^DIST(.404,.404051,40,6,13)
	;;=D COMPCAP^DDGFU
	;;^DIST(.404,.404051,40,6,20)
	;;=DD^^.4044,1
	;;^DIST(.404,.404051,40,6,23)
	;;=S DDGFCAP=X
	;;^DIST(.404,.404051,40,7,0)
	;;=7^EXECUTABLE CAPTION^3
	;;^DIST(.404,.404051,40,7,1)
	;;=1.1
	;;^DIST(.404,.404051,40,7,2)
	;;=8,24^50^8,4
	;;^DIST(.404,.404051,40,7,13)
	;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
	;;^DIST(.404,.404051,40,8,0)
	;;=8^COMPUTED EXPRESSION^3
	;;^DIST(.404,.404051,40,8,1)
	;;=30
	;;^DIST(.404,.404051,40,8,2)
	;;=10,24^50^10,3
	;;^DIST(.404,.404051,40,8,4)
	;;=1
	;;^DIST(.404,.404052,0)
	;;=DDGF FIELD COMPUTED OTHER^.4044
	;;^DIST(.404,.404052,40,0)
	;;=^.4044I^8^5
	;;^DIST(.404,.404052,40,1,0)
	;;=1^ Other Computed Field Properties ^1
	;;^DIST(.404,.404052,40,1,2)
	;;=^^1,6
	;;^DIST(.404,.404052,40,5,0)
	;;=3^DATA LENGTH^2
	;;^DIST(.404,.404052,40,5,2)
	;;=5,25^3^5,12
	;;^DIST(.404,.404052,40,5,3)
	;;=!M
	;;^DIST(.404,.404052,40,5,3.1)
	;;=S Y=$G(DDGFDL0)
	;;^DIST(.404,.404052,40,5,20)
	;;=DD^^.4044,4.2
	;;^DIST(.404,.404052,40,5,23)
	;;=S DDGFDL=X
	;;^DIST(.404,.404052,40,6,0)
	;;=4^CAPTION COORDINATE^2
	;;^DIST(.404,.404052,40,6,2)
	;;=6,25^7^6,5
	;;^DIST(.404,.404052,40,6,3)
	;;=!M
	;;^DIST(.404,.404052,40,6,3.1)
	;;=S Y=$G(DDGFCC0)
	;;^DIST(.404,.404052,40,6,20)
	;;=DD^^.4044,5.1
	;;^DIST(.404,.404052,40,6,23)
	;;=S DDGFCC=X
	;;^DIST(.404,.404052,40,7,0)
	;;=5^DATA COORDINATE^2
	;;^DIST(.404,.404052,40,7,2)
	;;=7,25^7^7,8
	;;^DIST(.404,.404052,40,7,3)
	;;=!M
	;;^DIST(.404,.404052,40,7,3.1)
	;;=S Y=$G(DDGFDC0)
	;;^DIST(.404,.404052,40,7,20)
	;;=DD^^.4044,4.1
	;;^DIST(.404,.404052,40,7,23)
	;;=S DDGFDC=X
	;;^DIST(.404,.404052,40,8,0)
	;;=2^RIGHT JUSTIFY^3
	;;^DIST(.404,.404052,40,8,1)
	;;=6.3
	;;^DIST(.404,.404052,40,8,2)
	;;=3,25^3^3,10
	;;^DIST(.404,.404061,0)
	;;=DDGF BLOCK ADD
	;;^DIST(.404,.404061,40,0)
	;;=^.4044I^1^1
	;;^DIST(.404,.404061,40,1,0)
	;;=1^Select NEW BLOCK NAME^2
	;;^DIST(.404,.404061,40,1,2)
	;;=3,26^30^3,3
	;;^DIST(.404,.404061,40,1,12)
	;;=S DDACT="EX"
	;;^DIST(.404,.404061,40,1,20)
	;;=P^^DIST(.404,:QEALMZF
	;;^DIST(.404,.404061,40,1,23)
	;;=S DDGFBNUM=X,DDGFBNAM=DDSEXT
	;;^DIST(.404,.404061,40,1,24)
	;;=S DIR("S")="I Y'<1"
	;;^DIST(.404,.404062,0)
	;;=DDGF BLOCK ADD NEW
	;;^DIST(.404,.404062,40,0)
	;;=^.4044I^2^2
	;;^DIST(.404,.404062,40,1,0)
	;;=1^!M^1
	;;^DIST(.404,.404062,40,1,.1)
	;;=S Y="Are you adding "_DDGFBNAM
	;;^DIST(.404,.404062,40,1,2)
	;;=^^3,3
	;;^DIST(.404,.404062,40,2,0)
	;;=2^as a new block on this page?^2
	;;^DIST(.404,.404062,40,2,2)
	;;=4,32^3^4,3^1
	;;^DIST(.404,.404062,40,2,12)
	;;=S DDACT="EX"
	;;^DIST(.404,.404062,40,2,20)
	;;=Y
	;;^DIST(.404,.404062,40,2,23)
	;;=S DDGFANS=X
	;;^DIST(.404,.404063,0)
	;;=DDGF BLOCK ADD DUPLICATE
	;;^DIST(.404,.404063,40,0)
	;;=^.4044I^3^3