Annotation of freem_fileman/DINIT0F0.m, revision 1.1.1.1
1.1 snw 1: DINIT0F0 ;SFISC/MKO-FORMS AND BLOCKS FOR FORM EDITOR ;01:25 PM 23 Nov 1994
2: ;;21.0;VA FileMan;;Dec 28, 1994
3: ;Per VHA Directive 10-93-142, this routine should not be modified.
4: D PRE^DINIT29P
5: F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F1 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
6: Q
7: ENTRY ;
8: ;;^DIST(.403,.40301,0)
9: ;;=DDGF BLOCK EDIT^^^0^2930413^2941115.0919^^.403^0^0^1
10: ;;^DIST(.403,.40301,40,0)
11: ;;=^.4031I^2^2
12: ;;^DIST(.403,.40301,40,1,0)
13: ;;=1^^1,2^^^1^17,77
14: ;;^DIST(.403,.40301,40,1,1)
15: ;;=Edit Block Parameters
16: ;;^DIST(.403,.40301,40,1,40,0)
17: ;;=^.4032PI^.403012^2
18: ;;^DIST(.403,.40301,40,1,40,.403011,0)
19: ;;=.403011^1^1,1^e
20: ;;^DIST(.403,.40301,40,1,40,.403012,0)
21: ;;=.403012^2^10,1^e
22: ;;^DIST(.403,.40301,40,1,40,.403012,1)
23: ;;=PAGE:BLOCK:.01
24: ;;^DIST(.403,.40301,40,2,0)
25: ;;=11^^5,11^^^1^16,65
26: ;;^DIST(.403,.40301,40,2,1)
27: ;;=Page 11
28: ;;^DIST(.403,.40301,40,2,40,0)
29: ;;=^.4032PI^.403013^1
30: ;;^DIST(.403,.40301,40,2,40,.403013,0)
31: ;;=.403013^1^1,1^e
32: ;;^DIST(.403,.40302,0)
33: ;;=DDGF PAGE ADD^^^0^2930419^2940908.0956^^.403^0^1^1
34: ;;^DIST(.403,.40302,40,0)
35: ;;=^.4031I^2^2
36: ;;^DIST(.403,.40302,40,1,0)
37: ;;=1^^4,18^^^1^8,43
38: ;;^DIST(.403,.40302,40,1,1)
39: ;;=Add a New Page
40: ;;^DIST(.403,.40302,40,1,40,0)
41: ;;=^.4032PI^.403021^1
42: ;;^DIST(.403,.40302,40,1,40,.403021,0)
43: ;;=.403021^1^1,1^e
44: ;;^DIST(.403,.40302,40,2,0)
45: ;;=11^^4,15^^^1^9,49
46: ;;^DIST(.403,.40302,40,2,1)
47: ;;=Select New Page Number
48: ;;^DIST(.403,.40302,40,2,40,0)
49: ;;=^.4032PI^.403022^1
50: ;;^DIST(.403,.40302,40,2,40,.403022,0)
51: ;;=.403022^1^1,1^e
52: ;;^DIST(.403,.40303,0)
53: ;;=DDGF PAGE EDIT^^^0^2930419^2941115.0829^^.403^0^0^1
54: ;;^DIST(.403,.40303,40,0)
55: ;;=^.4031I^1^1
56: ;;^DIST(.403,.40303,40,1,0)
57: ;;=1^^1,3^^^1^17,77
58: ;;^DIST(.403,.40303,40,1,1)
59: ;;=Edit a Page
60: ;;^DIST(.403,.40303,40,1,40,0)
61: ;;=^.4032PI^.403031^1
62: ;;^DIST(.403,.40303,40,1,40,.403031,0)
63: ;;=.403031^1^1,1^e
64: ;;^DIST(.403,.40303,40,1,40,.403031,11)
65: ;;=I $$GET^DDSVALF("IS THIS A POP UP PAGE?") N DDGFI F DDGFI="PREVIOUS","NEXT" D UNED^DDSUTL(DDGFI_" PAGE","","",1)
66: ;;^DIST(.403,.40304,0)
67: ;;=DDGF PAGE SELECT^^^0^2930419^2941122.1340^^.403^0^1^1
68: ;;^DIST(.403,.40304,40,0)
69: ;;=^.4031I^1^1
70: ;;^DIST(.403,.40304,40,1,0)
71: ;;=1^^4,10^^^1^8,56
72: ;;^DIST(.403,.40304,40,1,1)
73: ;;=Select a Page
74: ;;^DIST(.403,.40304,40,1,40,0)
75: ;;=^.4032PI^.403041^1
76: ;;^DIST(.403,.40304,40,1,40,.403041,0)
77: ;;=.403041^1^3,3^e
78: ;;^DIST(.403,.40305,0)
79: ;;=DDGF FORM EDIT^^^0^2930427^2941115.1504^^.403^0^0^1
80: ;;^DIST(.403,.40305,40,0)
81: ;;=^.4031I^1^1
82: ;;^DIST(.403,.40305,40,1,0)
83: ;;=1^^1,2^^^1^16,76
84: ;;^DIST(.403,.40305,40,1,1)
85: ;;=Form Edit
86: ;;^DIST(.403,.40305,40,1,40,0)
87: ;;=^.4032PI^.403051^1
88: ;;^DIST(.403,.40305,40,1,40,.403051,0)
89: ;;=.403051^1^1,1^e
90: ;;^DIST(.403,.40306,0)
91: ;;=DDGF HEADER BLOCK EDIT^^^0^2930504^2941115.0924^^.403^0^0^1
92: ;;^DIST(.403,.40306,40,0)
93: ;;=^.4031I^1^1
94: ;;^DIST(.403,.40306,40,1,0)
95: ;;=1^^2,1^^^1^14,76
96: ;;^DIST(.403,.40306,40,1,1)
97: ;;=Edit/Delete the Header Block
98: ;;^DIST(.403,.40306,40,1,40,0)
99: ;;=^.4032PI^.403061^2
100: ;;^DIST(.403,.40306,40,1,40,.403012,0)
101: ;;=.403012^2^5,1^e
102: ;;^DIST(.403,.40306,40,1,40,.403012,1)
103: ;;=PAGE:1
104: ;;^DIST(.403,.40306,40,1,40,.403061,0)
105: ;;=.403061^1^1,1^e
106: ;;^DIST(.403,.40401,0)
107: ;;=DDGF FIELD ADD^^^0^2930331^2941122.1344^^.404^0^1^1
108: ;;^DIST(.403,.40401,20)
109: ;;=D VAL1^DDGFU
110: ;;^DIST(.403,.40401,40,0)
111: ;;=^.4031I^1^1
112: ;;^DIST(.403,.40401,40,1,0)
113: ;;=1^^4,12^^^1^10,59
114: ;;^DIST(.403,.40401,40,1,1)
115: ;;=New field
116: ;;^DIST(.403,.40401,40,1,40,0)
117: ;;=^.4032PI^.404011^1
118: ;;^DIST(.403,.40401,40,1,40,.404011,0)
119: ;;=.404011^1^3,3^e
120: ;;^DIST(.403,.40402,0)
121: ;;=DDGF FIELD CAPTION ONLY^^^0^2930409^2941123.13^^.404^0^0^1
122: ;;^DIST(.403,.40402,40,0)
123: ;;=^.4031I^1^1
124: ;;^DIST(.403,.40402,40,1,0)
125: ;;=1^^1,2^^^1^9,75
126: ;;^DIST(.403,.40402,40,1,1)
127: ;;=Caption only field
128: ;;^DIST(.403,.40402,40,1,40,0)
129: ;;=^.4032PI^.404021^1
130: ;;^DIST(.403,.40402,40,1,40,.404021,0)
131: ;;=.404021^1^1,3^e
132: ;;^DIST(.403,.40403,0)
133: ;;=DDGF FIELD DD^^^0^2930510^2941123.1313^^.404^0^0^1
134: ;;^DIST(.403,.40403,40,0)
135: ;;=^.4031I^4^4
136: ;;^DIST(.403,.40403,40,1,0)
137: ;;=1^^1,1^^^1^16,77
138: ;;^DIST(.403,.40403,40,1,1)
139: ;;=Page 1
140: ;;^DIST(.403,.40403,40,1,40,0)
141: ;;=^.4032PI^.404031^1
142: ;;^DIST(.403,.40403,40,1,40,.404031,0)
143: ;;=.404031^1^1,1^e
144: ;;^DIST(.403,.40403,40,2,0)
145: ;;=11^^3,3^^^1^15,75
146: ;;^DIST(.403,.40403,40,2,1)
147: ;;=Single-Valued Field (Other)
148: ;;^DIST(.403,.40403,40,2,40,0)
149: ;;=^.4032PI^.404032^1
150: ;;^DIST(.403,.40403,40,2,40,.404032,0)
151: ;;=.404032^1^1,1^e
152: ;;^DIST(.403,.40403,40,3,0)
153: ;;=21^^3,17^^^1^15,60
154: ;;^DIST(.403,.40403,40,3,1)
155: ;;=Multiple-Valued Field (Other)
156: ;;^DIST(.403,.40403,40,3,40,0)
157: ;;=^.4032PI^.404033^1
158: ;;^DIST(.403,.40403,40,3,40,.404033,0)
159: ;;=.404033^1^1,1^e
160: ;;^DIST(.403,.40403,40,4,0)
161: ;;=31^^3,17^^^1^13,60
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT0F0.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman