Return to DINIT0F7.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

DINIT0F7	;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="" ^DINIT0F8 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
	Q
ENTRY	;
	;;^DIST(.404,.404034,40,9,3)
	;;=!M
	;;^DIST(.404,.404034,40,9,3.1)
	;;=S Y=$G(DDGFCC0)
	;;^DIST(.404,.404034,40,9,20)
	;;=DD^^.4044,5.1
	;;^DIST(.404,.404034,40,9,23)
	;;=S DDGFCC=X
	;;^DIST(.404,.404034,40,10,0)
	;;=7^DATA COORDINATE^2
	;;^DIST(.404,.404034,40,10,2)
	;;=9,23^7^9,6
	;;^DIST(.404,.404034,40,10,3)
	;;=!M
	;;^DIST(.404,.404034,40,10,3.1)
	;;=S Y=$G(DDGFDC0)
	;;^DIST(.404,.404034,40,10,4)
	;;=1
	;;^DIST(.404,.404034,40,10,20)
	;;=DD^^.4044,4.1
	;;^DIST(.404,.404034,40,10,23)
	;;=S DDGFDC=X
	;;^DIST(.404,.404041,0)
	;;=DDGF FIELD FORM ONLY^.4044
	;;^DIST(.404,.404041,40,0)
	;;=^.4044I^17^14
	;;^DIST(.404,.404041,40,1,0)
	;;=1^ Form Only Field Properties ^1
	;;^DIST(.404,.404041,40,1,2)
	;;=^^1,25
	;;^DIST(.404,.404041,40,2,0)
	;;=2^FIELD ORDER^3
	;;^DIST(.404,.404041,40,2,1)
	;;=.01
	;;^DIST(.404,.404041,40,2,2)
	;;=3,26^4^3,13
	;;^DIST(.404,.404041,40,5,0)
	;;=8^DEFAULT^3
	;;^DIST(.404,.404041,40,5,1)
	;;=6
	;;^DIST(.404,.404041,40,5,2)
	;;=8,26^50^8,17
	;;^DIST(.404,.404041,40,5,13)
	;;=D:X'="!M" PUT^DDSVAL(.4044,.DA,6.01,"")
	;;^DIST(.404,.404041,40,7,0)
	;;=11^BRANCHING LOGIC^3
	;;^DIST(.404,.404041,40,7,1)
	;;=10
	;;^DIST(.404,.404041,40,7,2)
	;;=12,26^50^12,9
	;;^DIST(.404,.404041,40,8,0)
	;;=12^PRE ACTION^3
	;;^DIST(.404,.404041,40,8,1)
	;;=11
	;;^DIST(.404,.404041,40,8,2)
	;;=13,26^50^13,14
	;;^DIST(.404,.404041,40,9,0)
	;;=13^POST ACTION^3
	;;^DIST(.404,.404041,40,9,1)
	;;=12
	;;^DIST(.404,.404041,40,9,2)
	;;=14,26^50^14,13
	;;^DIST(.404,.404041,40,10,0)
	;;=14^POST ACTION ON CHANGE^3
	;;^DIST(.404,.404041,40,10,1)
	;;=13
	;;^DIST(.404,.404041,40,10,2)
	;;=15,26^50^15,3
	;;^DIST(.404,.404041,40,11,0)
	;;=9^EXECUTABLE CAPTION^3
	;;^DIST(.404,.404041,40,11,1)
	;;=1.1
	;;^DIST(.404,.404041,40,11,2)
	;;=9,26^50^9,6
	;;^DIST(.404,.404041,40,11,13)
	;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
	;;^DIST(.404,.404041,40,12,0)
	;;=10^EXECUTABLE DEFAULT^3
	;;^DIST(.404,.404041,40,12,1)
	;;=6.01
	;;^DIST(.404,.404041,40,12,2)
	;;=10,26^50^10,6
	;;^DIST(.404,.404041,40,12,13)
	;;=D PUT^DDSVAL(.4044,.DA,6,$S(X="":"",1:"!M"))
	;;^DIST(.404,.404041,40,13,0)
	;;=3^FORM ONLY FIELD PARAMETERS...^2
	;;^DIST(.404,.404041,40,13,2)
	;;=3,73^1^3,43^1
	;;^DIST(.404,.404041,40,13,7)
	;;=^11
	;;^DIST(.404,.404041,40,13,20)
	;;=F^^0:0
	;;^DIST(.404,.404041,40,13,21,0)
	;;=^^1^1^2940928^
	;;^DIST(.404,.404041,40,13,21,1,0)
	;;=Press <RET> to edit the properties of this form-only field
	;;^DIST(.404,.404041,40,14,0)
	;;=4^OTHER PARAMETERS...^2
	;;^DIST(.404,.404041,40,14,2)
	;;=4,26^1^4,6^1
	;;^DIST(.404,.404041,40,14,7)
	;;=^21
	;;^DIST(.404,.404041,40,14,20)
	;;=F^^0:0
	;;^DIST(.404,.404041,40,14,21,0)
	;;=^^1^1^2940928^
	;;^DIST(.404,.404041,40,14,21,1,0)
	;;=Press <RET> to edit additional properties of this form-only field
	;;^DIST(.404,.404041,40,15,0)
	;;=7^CAPTION^2
	;;^DIST(.404,.404041,40,15,2)
	;;=7,26^50^7,17
	;;^DIST(.404,.404041,40,15,3)
	;;=!M
	;;^DIST(.404,.404041,40,15,3.1)
	;;=S Y=$G(DDGFCAP0)
	;;^DIST(.404,.404041,40,15,13)
	;;=D FOCAP^DDGFU
	;;^DIST(.404,.404041,40,15,20)
	;;=DD^^.4044,1
	;;^DIST(.404,.404041,40,15,23)
	;;=S DDGFCAP=X
	;;^DIST(.404,.404041,40,16,0)
	;;=5^SUPPRESS COLON AFTER CAPTION?^2
	;;^DIST(.404,.404041,40,16,2)
	;;=4,73^3^4,43^1
	;;^DIST(.404,.404041,40,16,3)
	;;=!M
	;;^DIST(.404,.404041,40,16,3.1)
	;;=S Y=$G(DDGFSUP0)
	;;^DIST(.404,.404041,40,16,20)
	;;=DD^^.4044,5.2
	;;^DIST(.404,.404041,40,16,23)
	;;=S DDGFSUP=X
	;;^DIST(.404,.404041,40,17,0)
	;;=6^UNIQUE NAME^3
	;;^DIST(.404,.404041,40,17,1)
	;;=3.1
	;;^DIST(.404,.404041,40,17,2)
	;;=5,26^50^5,13
	;;^DIST(.404,.404042,0)
	;;=DDGF FIELD FORM ONLY PARAMS^.4044
	;;^DIST(.404,.404042,40,0)
	;;=^.4044I^9^8
	;;^DIST(.404,.404042,40,1,0)
	;;=1^ Other Form Only Field Parameters ^1
	;;^DIST(.404,.404042,40,1,2)
	;;=^^1,22
	;;^DIST(.404,.404042,40,2,0)
	;;=2^READ TYPE^3
	;;^DIST(.404,.404042,40,2,1)
	;;=20.1
	;;^DIST(.404,.404042,40,2,2)
	;;=3,20^15^3,9
	;;^DIST(.404,.404042,40,2,4)
	;;=1
	;;^DIST(.404,.404042,40,3,0)
	;;=3^PARAMETERS^3
	;;^DIST(.404,.404042,40,3,1)
	;;=20.2
	;;^DIST(.404,.404042,40,3,2)
	;;=4,20^2^4,8
	;;^DIST(.404,.404042,40,4,0)
	;;=4^QUALIFIERS^3
	;;^DIST(.404,.404042,40,4,1)
	;;=20.3
	;;^DIST(.404,.404042,40,4,2)
	;;=5,20^52^5,8
	;;^DIST(.404,.404042,40,5,0)
	;;=6^INPUT TRANSFORM^3
	;;^DIST(.404,.404042,40,5,1)
	;;=22
	;;^DIST(.404,.404042,40,5,2)
	;;=9,20^52^9,3
	;;^DIST(.404,.404042,40,6,0)
	;;=5^HELP (WP)^3