Return to DINIT0F5.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

DINIT0F5	;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="" ^DINIT0F6 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
	Q
ENTRY	;
	;;^DIST(.404,.404021,40,6,13)
	;;=D:DDSOLD="!M" PUT^DDSVAL(.4044,.DA,1.1,"")
	;;^DIST(.404,.404021,40,6,20)
	;;=DD^^.4044,1
	;;^DIST(.404,.404021,40,6,23)
	;;=S DDGFCAP=X
	;;^DIST(.404,.404021,40,7,0)
	;;=5^EXECUTABLE CAPTION^3
	;;^DIST(.404,.404021,40,7,1)
	;;=1.1
	;;^DIST(.404,.404021,40,7,2)
	;;=7,21^50^7,1
	;;^DIST(.404,.404021,40,7,13)
	;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
	;;^DIST(.404,.404021,40,8,0)
	;;=6^CAPTION COORDINATE^2
	;;^DIST(.404,.404021,40,8,2)
	;;=8,21^7^8,1
	;;^DIST(.404,.404021,40,8,3)
	;;=!M
	;;^DIST(.404,.404021,40,8,3.1)
	;;=S Y=DDGFCC0
	;;^DIST(.404,.404021,40,8,4)
	;;=1
	;;^DIST(.404,.404021,40,8,20)
	;;=DD^^.4044,5.1
	;;^DIST(.404,.404021,40,8,23)
	;;=S DDGFCC=X
	;;^DIST(.404,.404021,40,9,0)
	;;=4^UNIQUE NAME^3
	;;^DIST(.404,.404021,40,9,1)
	;;=3.1
	;;^DIST(.404,.404021,40,9,2)
	;;=5,21^50^5,8
	;;^DIST(.404,.404031,0)
	;;=DDGF FIELD DD^.4044
	;;^DIST(.404,.404031,40,0)
	;;=^.4044I^17^14
	;;^DIST(.404,.404031,40,1,0)
	;;=1^ Data Dictionary Field Properties ^1
	;;^DIST(.404,.404031,40,1,2)
	;;=^^1,22
	;;^DIST(.404,.404031,40,2,0)
	;;=2^FIELD ORDER^3
	;;^DIST(.404,.404031,40,2,1)
	;;=.01
	;;^DIST(.404,.404031,40,2,2)
	;;=3,26^4^3,13
	;;^DIST(.404,.404031,40,3,0)
	;;=3^FIELD^3
	;;^DIST(.404,.404031,40,3,1)
	;;=4
	;;^DIST(.404,.404031,40,3,2)
	;;=3,66^10^3,59
	;;^DIST(.404,.404031,40,3,4)
	;;=1
	;;^DIST(.404,.404031,40,3,13)
	;;=D POSTCH1^DDGFU
	;;^DIST(.404,.404031,40,5,0)
	;;=8^DEFAULT^3
	;;^DIST(.404,.404031,40,5,1)
	;;=6
	;;^DIST(.404,.404031,40,5,2)
	;;=8,26^50^8,17
	;;^DIST(.404,.404031,40,5,13)
	;;=D:DDSOLD="!M" PUT^DDSVAL(.4044,.DA,6.01,"")
	;;^DIST(.404,.404031,40,7,0)
	;;=11^BRANCHING LOGIC^3
	;;^DIST(.404,.404031,40,7,1)
	;;=10
	;;^DIST(.404,.404031,40,7,2)
	;;=12,26^50^12,9
	;;^DIST(.404,.404031,40,8,0)
	;;=12^PRE ACTION^3
	;;^DIST(.404,.404031,40,8,1)
	;;=11
	;;^DIST(.404,.404031,40,8,2)
	;;=13,26^50^13,14
	;;^DIST(.404,.404031,40,9,0)
	;;=13^POST ACTION^3
	;;^DIST(.404,.404031,40,9,1)
	;;=12
	;;^DIST(.404,.404031,40,9,2)
	;;=14,26^50^14,13
	;;^DIST(.404,.404031,40,10,0)
	;;=14^POST ACTION ON CHANGE^3
	;;^DIST(.404,.404031,40,10,1)
	;;=13
	;;^DIST(.404,.404031,40,10,2)
	;;=15,26^50^15,3
	;;^DIST(.404,.404031,40,12,0)
	;;=10^EXECUTABLE DEFAULT^3
	;;^DIST(.404,.404031,40,12,1)
	;;=6.01
	;;^DIST(.404,.404031,40,12,2)
	;;=10,26^50^10,6
	;;^DIST(.404,.404031,40,12,13)
	;;=D PUT^DDSVAL(.4044,.DA,6,$S(X="":"",1:"!M"))
	;;^DIST(.404,.404031,40,13,0)
	;;=4^OTHER PARAMETERS...^2
	;;^DIST(.404,.404031,40,13,2)
	;;=4,26^1^4,6^1
	;;^DIST(.404,.404031,40,13,10)
	;;=N DDGFFLD,DDGFSUB S DDSSTACK=11,DDGFFLD=$$GET^DDSVAL(.4044,.DA,4) I DDGFFLD S DDGFSUB=+$P($G(^DD(DDGFDD,DDGFFLD,0)),U,2) S:DDGFSUB DDSSTACK=$S(DDGFSUB_$P($G(^DD(DDGFSUB,.01,0)),U,2)'["W":21,1:31)
	;;^DIST(.404,.404031,40,13,20)
	;;=F^^0:0
	;;^DIST(.404,.404031,40,13,21,0)
	;;=^^1^1^2940928^
	;;^DIST(.404,.404031,40,13,21,1,0)
	;;=Press <RET> to edit additional properties of this Data Dictionary field
	;;^DIST(.404,.404031,40,14,0)
	;;=7^CAPTION^2
	;;^DIST(.404,.404031,40,14,2)
	;;=7,26^50^7,17
	;;^DIST(.404,.404031,40,14,3)
	;;=!M
	;;^DIST(.404,.404031,40,14,3.1)
	;;=S Y=DDGFCAP0
	;;^DIST(.404,.404031,40,14,13)
	;;=D DDCAP^DDGFU
	;;^DIST(.404,.404031,40,14,20)
	;;=DD^^.4044,1
	;;^DIST(.404,.404031,40,14,23)
	;;=S DDGFCAP=X
	;;^DIST(.404,.404031,40,15,0)
	;;=5^SUPPRESS COLON AFTER CAPTION?^2
	;;^DIST(.404,.404031,40,15,2)
	;;=4,66^3^4,36^1
	;;^DIST(.404,.404031,40,15,3)
	;;=!M
	;;^DIST(.404,.404031,40,15,3.1)
	;;=S Y=DDGFSUP0
	;;^DIST(.404,.404031,40,15,20)
	;;=DD^^.4044,5.2
	;;^DIST(.404,.404031,40,15,23)
	;;=S DDGFSUP=X
	;;^DIST(.404,.404031,40,16,0)
	;;=6^UNIQUE NAME^3
	;;^DIST(.404,.404031,40,16,1)
	;;=3.1
	;;^DIST(.404,.404031,40,16,2)
	;;=5,26^50^5,13
	;;^DIST(.404,.404031,40,17,0)
	;;=9^EXECUTABLE CAPTION^3
	;;^DIST(.404,.404031,40,17,1)
	;;=1.1
	;;^DIST(.404,.404031,40,17,2)
	;;=9,26^50^9,6
	;;^DIST(.404,.404031,40,17,13)
	;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"),"I")
	;;^DIST(.404,.404032,0)
	;;=DDGF FIELD DD OTHER SINGLE^.4044
	;;^DIST(.404,.404032,40,0)
	;;=^.4044I^13^10
	;;^DIST(.404,.404032,40,1,0)
	;;=1^ Other Parameters ^1
	;;^DIST(.404,.404032,40,1,2)
	;;=^^1,27
	;;^DIST(.404,.404032,40,2,0)
	;;=2^REQUIRED^3
	;;^DIST(.404,.404032,40,2,1)
	;;=6.1
	;;^DIST(.404,.404032,40,2,2)
	;;=3,23^3^3,13
	;;^DIST(.404,.404032,40,3,0)
	;;=4^DISABLE EDITING^3
	;;^DIST(.404,.404032,40,3,1)
	;;=6.4