Return to DINIT0F2.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

DINIT0F2	;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="" ^DINIT0F3 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
	Q
ENTRY	;
	;;^DIST(.404,.403011,0)
	;;=DDGF BLOCK EDIT 1^.4032
	;;^DIST(.404,.403011,11)
	;;=I $$GET^DDSVAL(DIE,.DA,3)="d" D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",1)
	;;^DIST(.404,.403011,40,0)
	;;=^.4044I^10^8
	;;^DIST(.404,.403011,40,1,0)
	;;=1^ Block Properties Stored in FORM File ^1
	;;^DIST(.404,.403011,40,1,2)
	;;=^^1,20^1
	;;^DIST(.404,.403011,40,2,0)
	;;=3^BLOCK ORDER^3
	;;^DIST(.404,.403011,40,2,1)
	;;=1
	;;^DIST(.404,.403011,40,2,2)
	;;=3,69^4^3,56
	;;^DIST(.404,.403011,40,2,4)
	;;=1
	;;^DIST(.404,.403011,40,3,0)
	;;=4^TYPE OF BLOCK^3
	;;^DIST(.404,.403011,40,3,1)
	;;=3
	;;^DIST(.404,.403011,40,3,2)
	;;=4,18^7^4,3
	;;^DIST(.404,.403011,40,3,4)
	;;=1
	;;^DIST(.404,.403011,40,3,13)
	;;=D:X="d" PUT^DDSVAL(.404,$$GET^DDSVAL(DIE,.DA,.01),2,"") D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",$E(1,X="d"))
	;;^DIST(.404,.403011,40,5,0)
	;;=6^POINTER LINK^3
	;;^DIST(.404,.403011,40,5,1)
	;;=4
	;;^DIST(.404,.403011,40,5,2)
	;;=6,18^57^6,4
	;;^DIST(.404,.403011,40,6,0)
	;;=2^BLOCK NAME^3
	;;^DIST(.404,.403011,40,6,1)
	;;=.01
	;;^DIST(.404,.403011,40,6,2)
	;;=3,18^30^3,6
	;;^DIST(.404,.403011,40,8,0)
	;;=7^PRE ACTION^3
	;;^DIST(.404,.403011,40,8,1)
	;;=11
	;;^DIST(.404,.403011,40,8,2)
	;;=7,18^57^7,6
	;;^DIST(.404,.403011,40,9,0)
	;;=9^POST ACTION^3
	;;^DIST(.404,.403011,40,9,1)
	;;=12
	;;^DIST(.404,.403011,40,9,2)
	;;=8,18^57^8,5
	;;^DIST(.404,.403011,40,10,0)
	;;=5^OTHER PARAMETERS...^2
	;;^DIST(.404,.403011,40,10,2)
	;;=4,69^1^4,49^1
	;;^DIST(.404,.403011,40,10,7)
	;;=^11
	;;^DIST(.404,.403011,40,10,20)
	;;=F^^0:0
	;;^DIST(.404,.403011,40,10,21,0)
	;;=^^1^1^2940928^
	;;^DIST(.404,.403011,40,10,21,1,0)
	;;=Press <RET> to edit additional properties of the block
	;;^DIST(.404,.403012,0)
	;;=DDGF BLOCK EDIT 2^.404
	;;^DIST(.404,.403012,40,0)
	;;=^.4044I^7^7
	;;^DIST(.404,.403012,40,1,0)
	;;=1^----------------- Block Properties Stored in BLOCK File ------------------^1
	;;^DIST(.404,.403012,40,1,2)
	;;=^^1,2^1
	;;^DIST(.404,.403012,40,2,0)
	;;=2^NAME^2
	;;^DIST(.404,.403012,40,2,2)
	;;=3,16^30^3,10
	;;^DIST(.404,.403012,40,2,3)
	;;=!M
	;;^DIST(.404,.403012,40,2,3.1)
	;;=S Y=DDGFBKNO
	;;^DIST(.404,.403012,40,2,20)
	;;=DD^^.404,.01
	;;^DIST(.404,.403012,40,2,23)
	;;=S DDGFBKNN=X
	;;^DIST(.404,.403012,40,3,0)
	;;=3^DESCRIPTION (WP)^3
	;;^DIST(.404,.403012,40,3,1)
	;;=15
	;;^DIST(.404,.403012,40,3,2)
	;;=3,69^1^3,51
	;;^DIST(.404,.403012,40,4,0)
	;;=4^DD NUMBER^3
	;;^DIST(.404,.403012,40,4,1)
	;;=1
	;;^DIST(.404,.403012,40,4,2)
	;;=4,16^16^4,5
	;;^DIST(.404,.403012,40,5,0)
	;;=5^DISABLE NAVIGATION^3
	;;^DIST(.404,.403012,40,5,1)
	;;=2
	;;^DIST(.404,.403012,40,5,2)
	;;=4,69^5^4,49
	;;^DIST(.404,.403012,40,6,0)
	;;=6^PRE ACTION^3
	;;^DIST(.404,.403012,40,6,1)
	;;=11
	;;^DIST(.404,.403012,40,6,2)
	;;=6,16^59^6,4
	;;^DIST(.404,.403012,40,7,0)
	;;=7^POST ACTION^3
	;;^DIST(.404,.403012,40,7,1)
	;;=12
	;;^DIST(.404,.403012,40,7,2)
	;;=7,16^59^7,3
	;;^DIST(.404,.403013,0)
	;;=DDGF BLOCK EDIT OTHER^.4032
	;;^DIST(.404,.403013,11)
	;;=I $$GET^DDSVAL(DIE,.DA,"REPLICATION")<2 N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION" D UNED^DDSUTL(DDGFZ,"","",1)
	;;^DIST(.404,.403013,40,0)
	;;=^.4044I^8^8
	;;^DIST(.404,.403013,40,1,0)
	;;=1^ Other Block Parameters ^1
	;;^DIST(.404,.403013,40,1,2)
	;;=^^1,16
	;;^DIST(.404,.403013,40,2,0)
	;;=2^BLOCK COORDINATE^2
	;;^DIST(.404,.403013,40,2,2)
	;;=3,24^7^3,6
	;;^DIST(.404,.403013,40,2,3)
	;;=!M
	;;^DIST(.404,.403013,40,2,3.1)
	;;=S Y=DDGFBKCO
	;;^DIST(.404,.403013,40,2,4)
	;;=1
	;;^DIST(.404,.403013,40,2,20)
	;;=DD^^.4032,2
	;;^DIST(.404,.403013,40,2,23)
	;;=S DDGFBKCN=X
	;;^DIST(.404,.403013,40,3,0)
	;;=3^Parameters for Repeating Blocks^1
	;;^DIST(.404,.403013,40,3,2)
	;;=^^5,3
	;;^DIST(.404,.403013,40,4,0)
	;;=4^REPLICATION^3
	;;^DIST(.404,.403013,40,4,1)
	;;=5
	;;^DIST(.404,.403013,40,4,2)
	;;=7,24^3^7,11
	;;^DIST(.404,.403013,40,4,13)
	;;=Q:DDSOLD>1&(X>1)  N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION" D UNED^DDSUTL(DDGFZ,"","",X<2) D:X<2 PUT^DDSVAL(DIE,.DA,DDGFZ)
	;;^DIST(.404,.403013,40,5,0)
	;;=5^INDEX^3
	;;^DIST(.404,.403013,40,5,1)
	;;=6
	;;^DIST(.404,.403013,40,5,2)
	;;=8,24^30^8,17
	;;^DIST(.404,.403013,40,6,0)
	;;=6^INITIAL POSITION^3
	;;^DIST(.404,.403013,40,6,1)
	;;=7
	;;^DIST(.404,.403013,40,6,2)
	;;=9,24^5^9,6
	;;^DIST(.404,.403013,40,7,0)
	;;=7^DISALLOW LAYGO^3
	;;^DIST(.404,.403013,40,7,1)
	;;=8