Return to DINIT0F1.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Initial commit

DINIT0F1	;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="" ^DINIT0F2 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
	Q
ENTRY	;
	;;^DIST(.403,.40403,40,4,1)
	;;=Word Processing Field (Other)
	;;^DIST(.403,.40403,40,4,40,0)
	;;=^.4032PI^.404034^1
	;;^DIST(.403,.40403,40,4,40,.404034,0)
	;;=.404034^1^1,1^e
	;;^DIST(.403,.40404,0)
	;;=DDGF FIELD FORM ONLY^^^0^2930510^2941123.1312^^.404^0^0^1
	;;^DIST(.403,.40404,40,0)
	;;=^.4031I^3^3
	;;^DIST(.403,.40404,40,1,0)
	;;=1^^1,1^^^1^16,77
	;;^DIST(.403,.40404,40,1,1)
	;;=Form Only Field
	;;^DIST(.403,.40404,40,1,40,0)
	;;=^.4032PI^.404041^1
	;;^DIST(.403,.40404,40,1,40,.404041,0)
	;;=.404041^1^1,1^e
	;;^DIST(.403,.40404,40,2,0)
	;;=11^^3,3^^^1^15,75
	;;^DIST(.403,.40404,40,2,1)
	;;=Other Form Only Field Params
	;;^DIST(.403,.40404,40,2,40,0)
	;;=^.4032PI^.404042^1
	;;^DIST(.403,.40404,40,2,40,.404042,0)
	;;=.404042^1^1,1^e
	;;^DIST(.403,.40404,40,3,0)
	;;=21^^3,3^^^1^15,75
	;;^DIST(.403,.40404,40,3,1)
	;;=Other Parameters
	;;^DIST(.403,.40404,40,3,40,0)
	;;=^.4032PI^.404032^1
	;;^DIST(.403,.40404,40,3,40,.404032,0)
	;;=.404032^1^1,1^e
	;;^DIST(.403,.40405,0)
	;;=DDGF FIELD COMPUTED^^^0^2930916^2941123.1311^^.404^0^0^1
	;;^DIST(.403,.40405,40,0)
	;;=^.4031I^2^2
	;;^DIST(.403,.40405,40,1,0)
	;;=1^^1,2^^^1^12,76
	;;^DIST(.403,.40405,40,1,1)
	;;=Computed Field
	;;^DIST(.403,.40405,40,1,40,0)
	;;=^.4032PI^.404051^1
	;;^DIST(.403,.40405,40,1,40,.404051,0)
	;;=.404051^1^1,1^e
	;;^DIST(.403,.40405,40,2,0)
	;;=11^^3,16^^^1^11,63
	;;^DIST(.403,.40405,40,2,1)
	;;=Other Parameters
	;;^DIST(.403,.40405,40,2,40,0)
	;;=^.4032PI^.404052^1
	;;^DIST(.403,.40405,40,2,40,.404052,0)
	;;=.404052^1^1,3^e
	;;^DIST(.403,.40406,0)
	;;=DDGF BLOCK ADD^^^0^2930413^2941115.1052^^.404^0^1^1
	;;^DIST(.403,.40406,40,0)
	;;=^.4031I^3^3
	;;^DIST(.403,.40406,40,1,0)
	;;=1^^3,9^^^1^7,65
	;;^DIST(.403,.40406,40,1,1)
	;;=Add a New Block
	;;^DIST(.403,.40406,40,1,40,0)
	;;=^.4032PI^.404061^1
	;;^DIST(.403,.40406,40,1,40,.404061,0)
	;;=.404061^1^1,1^e
	;;^DIST(.403,.40406,40,2,0)
	;;=11^^6,12^^^1^11,61
	;;^DIST(.403,.40406,40,2,1)
	;;=Add a New Block to Page
	;;^DIST(.403,.40406,40,2,40,0)
	;;=^.4032PI^.404062^1
	;;^DIST(.403,.40406,40,2,40,.404062,0)
	;;=.404062^1^1,1^e
	;;^DIST(.403,.40406,40,3,0)
	;;=21^^6,17^^^1^13,57
	;;^DIST(.403,.40406,40,3,1)
	;;=Duplicate Block Message
	;;^DIST(.403,.40406,40,3,40,0)
	;;=^.4032PI^.404063^1
	;;^DIST(.403,.40406,40,3,40,.404063,0)
	;;=.404063^1^1,1^e
	;;^DIST(.403,.40407,0)
	;;=DDGF BLOCK DELETE^^^0^2930809^2940628^^.404^0^1^1
	;;^DIST(.403,.40407,40,0)
	;;=^.4031I^1^1
	;;^DIST(.403,.40407,40,1,0)
	;;=1^^5,9^^^1^11,62
	;;^DIST(.403,.40407,40,1,1)
	;;=Page 1
	;;^DIST(.403,.40407,40,1,40,0)
	;;=^.4032PI^.404071^1
	;;^DIST(.403,.40407,40,1,40,.404071,0)
	;;=.404071^1^3,3^e
	;;^DIST(.403,.40408,0)
	;;=DDGF HEADER BLOCK SELECT^^^0^2930504^2940928.1204^^.404^0^1^1
	;;^DIST(.403,.40408,40,0)
	;;=^.4031I^1^1
	;;^DIST(.403,.40408,40,1,0)
	;;=1^^4,5^^^1^8,68
	;;^DIST(.403,.40408,40,1,1)
	;;=Add a New Header Block
	;;^DIST(.403,.40408,40,1,40,0)
	;;=^.4032PI^.404081^1
	;;^DIST(.403,.40408,40,1,40,.404081,0)
	;;=.404081^1^1,1^e