Return to DINIT0F4.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Initial commit

DINIT0F4	;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="" ^DINIT0F5 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
	Q
ENTRY	;
	;;^DIST(.404,.403041,40,1,20)
	;;=P^^DIST(.403,+DDGFFM,40,:QEAMZF
	;;^DIST(.404,.403041,40,1,23)
	;;=S DDGFPAGE=X
	;;^DIST(.404,.403051,0)
	;;=DDGF FORM EDIT^.403
	;;^DIST(.404,.403051,40,0)
	;;=^.4044I^11^11
	;;^DIST(.404,.403051,40,1,0)
	;;=1^ Form Properties ^1
	;;^DIST(.404,.403051,40,1,2)
	;;=^^1,29
	;;^DIST(.404,.403051,40,2,0)
	;;=2^NAME^3
	;;^DIST(.404,.403051,40,2,1)
	;;=.01
	;;^DIST(.404,.403051,40,2,2)
	;;=3,20^30^3,14
	;;^DIST(.404,.403051,40,2,4)
	;;=1
	;;^DIST(.404,.403051,40,3,0)
	;;=4^PRE ACTION^3
	;;^DIST(.404,.403051,40,3,1)
	;;=11
	;;^DIST(.404,.403051,40,3,2)
	;;=6,20^54^6,8
	;;^DIST(.404,.403051,40,4,0)
	;;=5^POST ACTION^3
	;;^DIST(.404,.403051,40,4,1)
	;;=12
	;;^DIST(.404,.403051,40,4,2)
	;;=7,20^54^7,7
	;;^DIST(.404,.403051,40,5,0)
	;;=8^DESCRIPTION^3
	;;^DIST(.404,.403051,40,5,1)
	;;=15
	;;^DIST(.404,.403051,40,5,2)
	;;=11,20^1^11,7
	;;^DIST(.404,.403051,40,6,0)
	;;=6^DATA VALIDATION^3
	;;^DIST(.404,.403051,40,6,1)
	;;=20
	;;^DIST(.404,.403051,40,6,2)
	;;=8,20^54^8,3
	;;^DIST(.404,.403051,40,7,0)
	;;=9^RECORD SELECTION PAGE^3
	;;^DIST(.404,.403051,40,7,1)
	;;=21
	;;^DIST(.404,.403051,40,7,2)
	;;=11,69^5^11,46
	;;^DIST(.404,.403051,40,8,0)
	;;=7^POST SAVE^3
	;;^DIST(.404,.403051,40,8,1)
	;;=14
	;;^DIST(.404,.403051,40,8,2)
	;;=9,20^54^9,9
	;;^DIST(.404,.403051,40,9,0)
	;;=3^TITLE^3
	;;^DIST(.404,.403051,40,9,1)
	;;=6
	;;^DIST(.404,.403051,40,9,2)
	;;=4,20^50^4,13
	;;^DIST(.404,.403051,40,10,0)
	;;=10^READ ACCESS^3
	;;^DIST(.404,.403051,40,10,1)
	;;=1
	;;^DIST(.404,.403051,40,10,2)
	;;=13,20^15^13,7
	;;^DIST(.404,.403051,40,11,0)
	;;=11^WRITE ACCESS^3
	;;^DIST(.404,.403051,40,11,1)
	;;=2
	;;^DIST(.404,.403051,40,11,2)
	;;=14,20^15^14,6
	;;^DIST(.404,.403061,0)
	;;=DDGF HEADER BLOCK EDIT^.4031
	;;^DIST(.404,.403061,40,0)
	;;=^.4044I^2^2
	;;^DIST(.404,.403061,40,1,0)
	;;=2^HEADER BLOCK^3
	;;^DIST(.404,.403061,40,1,1)
	;;=1
	;;^DIST(.404,.403061,40,1,2)
	;;=3,17^30^3,3
	;;^DIST(.404,.403061,40,1,13)
	;;=D:X]"" PUT^DDSVALF("NAME","DDGF BLOCK EDIT 2","",DDSEXT,"I")
	;;^DIST(.404,.403061,40,1,14)
	;;=D HBVAL^DDGFU
	;;^DIST(.404,.403061,40,2,0)
	;;=1^ Edit Header Block Parameters ^1
	;;^DIST(.404,.403061,40,2,2)
	;;=^^1,24
	;;^DIST(.404,.404011,0)
	;;=DDGF FIELD ADD
	;;^DIST(.404,.404011,40,0)
	;;=^.4044I^3^3
	;;^DIST(.404,.404011,40,1,0)
	;;=1^Select BLOCK^2
	;;^DIST(.404,.404011,40,1,2)
	;;=1,15^30^1,1
	;;^DIST(.404,.404011,40,1,3)
	;;=!M
	;;^DIST(.404,.404011,40,1,3.1)
	;;=N X,DA,DIC S DA(2)=+DDGFFM,DA(1)=+DDGFPG,X=" ",DIC="^DIST(.403,"_DA(2)_",""40"","_DA(1)_",""40"",",DIC(0)="M" D ^DIC S Y=$S(Y=-1:"",1:"`"_+Y) I Y="",$P($G(^DIST(.403,+DDGFFM,40,+DDGFPG,40,0)),U,4)=1 S Y=+$O(^(0)),Y=$S(Y:"`"_Y,1:"")
	;;^DIST(.404,.404011,40,1,13)
	;;=I X]"" D PUT^DDSVALF("FIELD ORDER","","",$O(^DIST(.404,X,40,"B",""),-1)+1\1) D:$D(DUZ)#2 RECALL^DILFD(.4032,X_","_+DDGFPG_","_+DDGFFM_",",DUZ),RECALL^DILFD(.404,X_",",DUZ)
	;;^DIST(.404,.404011,40,1,20)
	;;=P^^DIST(.403,+DDGFFM,40,+DDGFPG,40,:QEAFMZ
	;;^DIST(.404,.404011,40,1,23)
	;;=S DDGFBLCK=X
	;;^DIST(.404,.404011,40,2,0)
	;;=2^FIELD ORDER^2
	;;^DIST(.404,.404011,40,2,2)
	;;=2,15^4^2,2
	;;^DIST(.404,.404011,40,2,3)
	;;=!M
	;;^DIST(.404,.404011,40,2,3.1)
	;;=N V S V=$$GET^DDSVALF("BLOCK") I V]"" S Y=$O(^DIST(.404,V,40,"B",""),-1)+1\1
	;;^DIST(.404,.404011,40,2,20)
	;;=N^^0:99.9:1
	;;^DIST(.404,.404011,40,2,21,0)
	;;=^^1^1^2940630^
	;;^DIST(.404,.404011,40,2,21,1,0)
	;;=This must be a number not already used
	;;^DIST(.404,.404011,40,2,22)
	;;=N V S V=$$GET^DDSVALF("BLOCK") I V]"",$O(^DIST(.404,V,40,"B",X,""))]"" K X
	;;^DIST(.404,.404011,40,2,23)
	;;=S DDGFFORD=X
	;;^DIST(.404,.404011,40,3,0)
	;;=3^FIELD TYPE^2
	;;^DIST(.404,.404011,40,3,2)
	;;=3,15^30^3,3
	;;^DIST(.404,.404011,40,3,3)
	;;=DATA DICTIONARY
	;;^DIST(.404,.404011,40,3,20)
	;;=DD^^.4044,2
	;;^DIST(.404,.404011,40,3,23)
	;;=S DDGFTYPE=X
	;;^DIST(.404,.404021,0)
	;;=DDGF FIELD CAPTION ONLY^.4044
	;;^DIST(.404,.404021,40,0)
	;;=^.4044I^9^6
	;;^DIST(.404,.404021,40,1,0)
	;;=1^ Caption-Only Field Properties ^1
	;;^DIST(.404,.404021,40,1,2)
	;;=^^1,22
	;;^DIST(.404,.404021,40,2,0)
	;;=2^FIELD ORDER^3
	;;^DIST(.404,.404021,40,2,1)
	;;=.01
	;;^DIST(.404,.404021,40,2,2)
	;;=3,21^4^3,8
	;;^DIST(.404,.404021,40,6,0)
	;;=3^CAPTION^2
	;;^DIST(.404,.404021,40,6,2)
	;;=4,21^50^4,12
	;;^DIST(.404,.404021,40,6,3)
	;;=!M
	;;^DIST(.404,.404021,40,6,3.1)
	;;=S Y=DDGFCAP0
	;;^DIST(.404,.404021,40,6,4)
	;;=1