Return to DINIT0F3.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Initial commit

DINIT0F3	;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="" ^DINIT0F4 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
	Q
ENTRY	;
	;;^DIST(.404,.403013,40,7,2)
	;;=10,24^3^10,8
	;;^DIST(.404,.403013,40,8,0)
	;;=8^FIELD FOR SELECTION^3
	;;^DIST(.404,.403013,40,8,1)
	;;=9
	;;^DIST(.404,.403013,40,8,2)
	;;=11,24^30^11,3
	;;^DIST(.404,.403021,0)
	;;=DDGF PAGE ADD^.4031
	;;^DIST(.404,.403021,40,0)
	;;=^.4044I^1^1
	;;^DIST(.404,.403021,40,1,0)
	;;=1^NEW PAGE NUMBER^2
	;;^DIST(.404,.403021,40,1,2)
	;;=3,20^5^3,3
	;;^DIST(.404,.403021,40,1,12)
	;;=S DDACT="EX"
	;;^DIST(.404,.403021,40,1,20)
	;;=DD^^.4031,.01
	;;^DIST(.404,.403021,40,1,23)
	;;=S DDGFPNUM=X
	;;^DIST(.404,.403022,0)
	;;=DDGF PAGE ADD ARE YOU SURE^.4031
	;;^DIST(.404,.403022,40,0)
	;;=^.4044I^2^2
	;;^DIST(.404,.403022,40,1,0)
	;;=1^!M^1
	;;^DIST(.404,.403022,40,1,.1)
	;;=S Y="Are you adding Page "_DDGFPNUM
	;;^DIST(.404,.403022,40,1,2)
	;;=^^3,3
	;;^DIST(.404,.403022,40,2,0)
	;;=2^as a new page on this form?^2
	;;^DIST(.404,.403022,40,2,2)
	;;=4,31^3^4,3^1
	;;^DIST(.404,.403022,40,2,12)
	;;=S DDACT="EX"
	;;^DIST(.404,.403022,40,2,20)
	;;=Y
	;;^DIST(.404,.403022,40,2,23)
	;;=S DDGFANS=X
	;;^DIST(.404,.403031,0)
	;;=DDGF PAGE EDIT^.4031
	;;^DIST(.404,.403031,40,0)
	;;=^.4044I^16^13
	;;^DIST(.404,.403031,40,1,0)
	;;=1^ Page Properties ^1
	;;^DIST(.404,.403031,40,1,2)
	;;=^^1,27
	;;^DIST(.404,.403031,40,2,0)
	;;=2^PAGE NUMBER^3
	;;^DIST(.404,.403031,40,2,1)
	;;=.01
	;;^DIST(.404,.403031,40,2,2)
	;;=3,21^5^3,8
	;;^DIST(.404,.403031,40,4,0)
	;;=4^HEADER BLOCK^3
	;;^DIST(.404,.403031,40,4,1)
	;;=1
	;;^DIST(.404,.403031,40,4,2)
	;;=5,21^30^5,7
	;;^DIST(.404,.403031,40,5,0)
	;;=8^NEXT PAGE^3
	;;^DIST(.404,.403031,40,5,1)
	;;=3
	;;^DIST(.404,.403031,40,5,2)
	;;=9,21^5^9,10
	;;^DIST(.404,.403031,40,6,0)
	;;=9^PREVIOUS PAGE^3
	;;^DIST(.404,.403031,40,6,1)
	;;=4
	;;^DIST(.404,.403031,40,6,2)
	;;=10,21^5^10,6
	;;^DIST(.404,.403031,40,7,0)
	;;=12^PRE ACTION^3
	;;^DIST(.404,.403031,40,7,1)
	;;=11
	;;^DIST(.404,.403031,40,7,2)
	;;=14,21^53^14,9
	;;^DIST(.404,.403031,40,8,0)
	;;=13^POST ACTION^3
	;;^DIST(.404,.403031,40,8,1)
	;;=12
	;;^DIST(.404,.403031,40,8,2)
	;;=15,21^53^15,8
	;;^DIST(.404,.403031,40,9,0)
	;;=11^DESCRIPTION (WP)^3
	;;^DIST(.404,.403031,40,9,1)
	;;=15
	;;^DIST(.404,.403031,40,9,2)
	;;=13,21^1^13,3
	;;^DIST(.404,.403031,40,12,0)
	;;=10^PARENT FIELD^3
	;;^DIST(.404,.403031,40,12,1)
	;;=8
	;;^DIST(.404,.403031,40,12,2)
	;;=11,21^53^11,7
	;;^DIST(.404,.403031,40,13,0)
	;;=6^IS THIS A POP UP PAGE?^2
	;;^DIST(.404,.403031,40,13,2)
	;;=7,67^3^7,44^1
	;;^DIST(.404,.403031,40,13,3)
	;;=!M
	;;^DIST(.404,.403031,40,13,3.1)
	;;=S:$G(DDGFLRC)]"" Y=1
	;;^DIST(.404,.403031,40,13,13)
	;;=N LRC,PP,NP S LRC="LOWER RIGHT COORDINATE",PP="PREVIOUS PAGE",NP="NEXT PAGE" D:X PUT^DDSVALF(LRC,"","","15,75"):$$GET^DDSVALF(LRC)="" D:'X PUT^DDSVALF(LRC) N PG F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X)) D:X PUT^DDSVAL(DIE,.DA,PG)
	;;^DIST(.404,.403031,40,13,20)
	;;=DD^^.4031,5
	;;^DIST(.404,.403031,40,14,0)
	;;=5^PAGE COORDINATE^2
	;;^DIST(.404,.403031,40,14,2)
	;;=7,21^7^7,4
	;;^DIST(.404,.403031,40,14,3)
	;;=!M
	;;^DIST(.404,.403031,40,14,3.1)
	;;=S Y=$G(DDGFTLC0)
	;;^DIST(.404,.403031,40,14,4)
	;;=1
	;;^DIST(.404,.403031,40,14,20)
	;;=DD^^.4031,2
	;;^DIST(.404,.403031,40,14,23)
	;;=S DDGFTLC=X
	;;^DIST(.404,.403031,40,15,0)
	;;=7^LOWER RIGHT COORDINATE^2
	;;^DIST(.404,.403031,40,15,2)
	;;=8,67^7^8,43
	;;^DIST(.404,.403031,40,15,3)
	;;=!M
	;;^DIST(.404,.403031,40,15,3.1)
	;;=S Y=$G(DDGFLRC0)
	;;^DIST(.404,.403031,40,15,13)
	;;=I DDSOLD=""!(X="") D PUT^DDSVALF("IS THIS A POP UP PAGE?","","",$S(X="":"",1:1),"I") N PG,NP,PP S NP="NEXT PAGE",PP="PREVIOUS PAGE" F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X]"")) D:X]"" PUT^DDSVAL(DIE,.DA,PG)
	;;^DIST(.404,.403031,40,15,20)
	;;=DD^^.4031,6
	;;^DIST(.404,.403031,40,15,23)
	;;=S DDGFLRC=X
	;;^DIST(.404,.403031,40,16,0)
	;;=3^PAGE NAME^2
	;;^DIST(.404,.403031,40,16,2)
	;;=4,21^30^4,10
	;;^DIST(.404,.403031,40,16,3)
	;;=!M
	;;^DIST(.404,.403031,40,16,3.1)
	;;=S Y=$G(DDGFPNM0)
	;;^DIST(.404,.403031,40,16,4)
	;;=1
	;;^DIST(.404,.403031,40,16,20)
	;;=DD^^.4031,7
	;;^DIST(.404,.403031,40,16,23)
	;;=S DDGFPNM=X
	;;^DIST(.404,.403041,0)
	;;=DDGF PAGE SELECT^.4031
	;;^DIST(.404,.403041,40,0)
	;;=^.4044I^1^1
	;;^DIST(.404,.403041,40,1,0)
	;;=1^Select PAGE^2
	;;^DIST(.404,.403041,40,1,2)
	;;=1,14^30^1,1
	;;^DIST(.404,.403041,40,1,3)
	;;=!M
	;;^DIST(.404,.403041,40,1,3.1)
	;;=S Y=$P(^DIST(.403,+DDGFFM,40,DDGFPAGE,0),U)
	;;^DIST(.404,.403041,40,1,12)
	;;=S DDACT="EX"