Return to DINIT0F0.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Initial revision

DINIT0F0	;SFISC/MKO-FORMS AND BLOCKS FOR FORM EDITOR ;01:25 PM  23 Nov 1994
	;;21.0;VA FileMan;;Dec 28, 1994
	;Per VHA Directive 10-93-142, 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,.40301,0)
	;;=DDGF BLOCK EDIT^^^0^2930413^2941115.0919^^.403^0^0^1
	;;^DIST(.403,.40301,40,0)
	;;=^.4031I^2^2
	;;^DIST(.403,.40301,40,1,0)
	;;=1^^1,2^^^1^17,77
	;;^DIST(.403,.40301,40,1,1)
	;;=Edit Block Parameters
	;;^DIST(.403,.40301,40,1,40,0)
	;;=^.4032PI^.403012^2
	;;^DIST(.403,.40301,40,1,40,.403011,0)
	;;=.403011^1^1,1^e
	;;^DIST(.403,.40301,40,1,40,.403012,0)
	;;=.403012^2^10,1^e
	;;^DIST(.403,.40301,40,1,40,.403012,1)
	;;=PAGE:BLOCK:.01
	;;^DIST(.403,.40301,40,2,0)
	;;=11^^5,11^^^1^16,65
	;;^DIST(.403,.40301,40,2,1)
	;;=Page 11
	;;^DIST(.403,.40301,40,2,40,0)
	;;=^.4032PI^.403013^1
	;;^DIST(.403,.40301,40,2,40,.403013,0)
	;;=.403013^1^1,1^e
	;;^DIST(.403,.40302,0)
	;;=DDGF PAGE ADD^^^0^2930419^2940908.0956^^.403^0^1^1
	;;^DIST(.403,.40302,40,0)
	;;=^.4031I^2^2
	;;^DIST(.403,.40302,40,1,0)
	;;=1^^4,18^^^1^8,43
	;;^DIST(.403,.40302,40,1,1)
	;;=Add a New Page
	;;^DIST(.403,.40302,40,1,40,0)
	;;=^.4032PI^.403021^1
	;;^DIST(.403,.40302,40,1,40,.403021,0)
	;;=.403021^1^1,1^e
	;;^DIST(.403,.40302,40,2,0)
	;;=11^^4,15^^^1^9,49
	;;^DIST(.403,.40302,40,2,1)
	;;=Select New Page Number
	;;^DIST(.403,.40302,40,2,40,0)
	;;=^.4032PI^.403022^1
	;;^DIST(.403,.40302,40,2,40,.403022,0)
	;;=.403022^1^1,1^e
	;;^DIST(.403,.40303,0)
	;;=DDGF PAGE EDIT^^^0^2930419^2941115.0829^^.403^0^0^1
	;;^DIST(.403,.40303,40,0)
	;;=^.4031I^1^1
	;;^DIST(.403,.40303,40,1,0)
	;;=1^^1,3^^^1^17,77
	;;^DIST(.403,.40303,40,1,1)
	;;=Edit a Page
	;;^DIST(.403,.40303,40,1,40,0)
	;;=^.4032PI^.403031^1
	;;^DIST(.403,.40303,40,1,40,.403031,0)
	;;=.403031^1^1,1^e
	;;^DIST(.403,.40303,40,1,40,.403031,11)
	;;=I $$GET^DDSVALF("IS THIS A POP UP PAGE?") N DDGFI F DDGFI="PREVIOUS","NEXT" D UNED^DDSUTL(DDGFI_" PAGE","","",1)
	;;^DIST(.403,.40304,0)
	;;=DDGF PAGE SELECT^^^0^2930419^2941122.1340^^.403^0^1^1
	;;^DIST(.403,.40304,40,0)
	;;=^.4031I^1^1
	;;^DIST(.403,.40304,40,1,0)
	;;=1^^4,10^^^1^8,56
	;;^DIST(.403,.40304,40,1,1)
	;;=Select a Page
	;;^DIST(.403,.40304,40,1,40,0)
	;;=^.4032PI^.403041^1
	;;^DIST(.403,.40304,40,1,40,.403041,0)
	;;=.403041^1^3,3^e
	;;^DIST(.403,.40305,0)
	;;=DDGF FORM EDIT^^^0^2930427^2941115.1504^^.403^0^0^1
	;;^DIST(.403,.40305,40,0)
	;;=^.4031I^1^1
	;;^DIST(.403,.40305,40,1,0)
	;;=1^^1,2^^^1^16,76
	;;^DIST(.403,.40305,40,1,1)
	;;=Form Edit
	;;^DIST(.403,.40305,40,1,40,0)
	;;=^.4032PI^.403051^1
	;;^DIST(.403,.40305,40,1,40,.403051,0)
	;;=.403051^1^1,1^e
	;;^DIST(.403,.40306,0)
	;;=DDGF HEADER BLOCK EDIT^^^0^2930504^2941115.0924^^.403^0^0^1
	;;^DIST(.403,.40306,40,0)
	;;=^.4031I^1^1
	;;^DIST(.403,.40306,40,1,0)
	;;=1^^2,1^^^1^14,76
	;;^DIST(.403,.40306,40,1,1)
	;;=Edit/Delete the Header Block
	;;^DIST(.403,.40306,40,1,40,0)
	;;=^.4032PI^.403061^2
	;;^DIST(.403,.40306,40,1,40,.403012,0)
	;;=.403012^2^5,1^e
	;;^DIST(.403,.40306,40,1,40,.403012,1)
	;;=PAGE:1
	;;^DIST(.403,.40306,40,1,40,.403061,0)
	;;=.403061^1^1,1^e
	;;^DIST(.403,.40401,0)
	;;=DDGF FIELD ADD^^^0^2930331^2941122.1344^^.404^0^1^1
	;;^DIST(.403,.40401,20)
	;;=D VAL1^DDGFU
	;;^DIST(.403,.40401,40,0)
	;;=^.4031I^1^1
	;;^DIST(.403,.40401,40,1,0)
	;;=1^^4,12^^^1^10,59
	;;^DIST(.403,.40401,40,1,1)
	;;=New field
	;;^DIST(.403,.40401,40,1,40,0)
	;;=^.4032PI^.404011^1
	;;^DIST(.403,.40401,40,1,40,.404011,0)
	;;=.404011^1^3,3^e
	;;^DIST(.403,.40402,0)
	;;=DDGF FIELD CAPTION ONLY^^^0^2930409^2941123.13^^.404^0^0^1
	;;^DIST(.403,.40402,40,0)
	;;=^.4031I^1^1
	;;^DIST(.403,.40402,40,1,0)
	;;=1^^1,2^^^1^9,75
	;;^DIST(.403,.40402,40,1,1)
	;;=Caption only field
	;;^DIST(.403,.40402,40,1,40,0)
	;;=^.4032PI^.404021^1
	;;^DIST(.403,.40402,40,1,40,.404021,0)
	;;=.404021^1^1,3^e
	;;^DIST(.403,.40403,0)
	;;=DDGF FIELD DD^^^0^2930510^2941123.1313^^.404^0^0^1
	;;^DIST(.403,.40403,40,0)
	;;=^.4031I^4^4
	;;^DIST(.403,.40403,40,1,0)
	;;=1^^1,1^^^1^16,77
	;;^DIST(.403,.40403,40,1,1)
	;;=Page 1
	;;^DIST(.403,.40403,40,1,40,0)
	;;=^.4032PI^.404031^1
	;;^DIST(.403,.40403,40,1,40,.404031,0)
	;;=.404031^1^1,1^e
	;;^DIST(.403,.40403,40,2,0)
	;;=11^^3,3^^^1^15,75
	;;^DIST(.403,.40403,40,2,1)
	;;=Single-Valued Field (Other)
	;;^DIST(.403,.40403,40,2,40,0)
	;;=^.4032PI^.404032^1
	;;^DIST(.403,.40403,40,2,40,.404032,0)
	;;=.404032^1^1,1^e
	;;^DIST(.403,.40403,40,3,0)
	;;=21^^3,17^^^1^15,60
	;;^DIST(.403,.40403,40,3,1)
	;;=Multiple-Valued Field (Other)
	;;^DIST(.403,.40403,40,3,40,0)
	;;=^.4032PI^.404033^1
	;;^DIST(.403,.40403,40,3,40,.404033,0)
	;;=.404033^1^1,1^e
	;;^DIST(.403,.40403,40,4,0)
	;;=31^^3,17^^^1^13,60