source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0F2.m@ 1297

Last change on this file since 1297 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 6.7 KB
Line 
1DINIT0F2 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;12:02 PM 16 Sep 1999
2 ;;22.0;VA FileMan;**8**;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 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
5 Q
6ENTRY ;
7 ;;^DIST(.403,.40101,40,1,0)
8 ;;=1^^1,1^2
9 ;;^DIST(.403,.40101,40,1,1)
10 ;;=Page 1
11 ;;^DIST(.403,.40101,40,1,40,0)
12 ;;=^.4032IP^.401011^1
13 ;;^DIST(.403,.40101,40,1,40,.401011,0)
14 ;;=.401011^1^1,1^e
15 ;;^DIST(.403,.40101,40,2,0)
16 ;;=2^^1,1^^1
17 ;;^DIST(.403,.40101,40,2,1)
18 ;;=Page 2
19 ;;^DIST(.403,.40101,40,2,40,0)
20 ;;=^.4032IP^.401012^1
21 ;;^DIST(.403,.40101,40,2,40,.401012,0)
22 ;;=.401012^1^1,1^e
23 ;;^DIST(.403,.40101,40,2,40,.401012,11)
24 ;;=D EDIT^DIETED(DA)
25 ;;^DIST(.403,.40201,0)
26 ;;=DIEDIT^@^^^2981016.103^2990317.0933^^1^0^0^1
27 ;;^DIST(.403,.40201,20)
28 ;;=D POST^DIU20
29 ;;^DIST(.403,.40201,40,0)
30 ;;=^.4031I^1^1
31 ;;^DIST(.403,.40201,40,1,0)
32 ;;=1^^1,1
33 ;;^DIST(.403,.40201,40,1,1)
34 ;;=Page 1
35 ;;^DIST(.403,.40201,40,1,40,0)
36 ;;=^.4032IP^.402011^1
37 ;;^DIST(.403,.40201,40,1,40,.402011,0)
38 ;;=.402011^1^1,3^e
39 ;;^DIST(.403,.40301,0)
40 ;;=DDGF BLOCK EDIT^^^0^2930413^2990916.1055^^.403^0^0^1
41 ;;^DIST(.403,.40301,40,0)
42 ;;=^.4031I^2^2
43 ;;^DIST(.403,.40301,40,1,0)
44 ;;=1^^1,2^^^1^17,77
45 ;;^DIST(.403,.40301,40,1,1)
46 ;;=Edit Block Parameters
47 ;;^DIST(.403,.40301,40,1,40,0)
48 ;;=^.4032PI^.403012^2
49 ;;^DIST(.403,.40301,40,1,40,.403011,0)
50 ;;=.403011^1^1,1^e
51 ;;^DIST(.403,.40301,40,1,40,.403012,0)
52 ;;=.403012^2^10,1^e
53 ;;^DIST(.403,.40301,40,1,40,.403012,1)
54 ;;=PAGE:BLOCK:.01
55 ;;^DIST(.403,.40301,40,2,0)
56 ;;=11^^4,11^^^1^16,65
57 ;;^DIST(.403,.40301,40,2,1)
58 ;;=Page 11
59 ;;^DIST(.403,.40301,40,2,40,0)
60 ;;=^.4032PI^.403013^1
61 ;;^DIST(.403,.40301,40,2,40,.403013,0)
62 ;;=.403013^1^1,1^e
63 ;;^DIST(.403,.40302,0)
64 ;;=DDGF PAGE ADD^^^0^2930419^2990205.1327^^.403^0^1^1
65 ;;^DIST(.403,.40302,40,0)
66 ;;=^.4031I^2^2
67 ;;^DIST(.403,.40302,40,1,0)
68 ;;=1^^4,18^^^1^8,43
69 ;;^DIST(.403,.40302,40,1,1)
70 ;;=Add a New Page
71 ;;^DIST(.403,.40302,40,1,40,0)
72 ;;=^.4032PI^.403021^1
73 ;;^DIST(.403,.40302,40,1,40,.403021,0)
74 ;;=.403021^1^1,1^e
75 ;;^DIST(.403,.40302,40,2,0)
76 ;;=11^^4,15^^^1^9,49
77 ;;^DIST(.403,.40302,40,2,1)
78 ;;=Select New Page Number
79 ;;^DIST(.403,.40302,40,2,40,0)
80 ;;=^.4032PI^.403022^1
81 ;;^DIST(.403,.40302,40,2,40,.403022,0)
82 ;;=.403022^1^1,1^e
83 ;;^DIST(.403,.40303,0)
84 ;;=DDGF PAGE EDIT^^^0^2930419^2990205.1328^^.403^0^0^1
85 ;;^DIST(.403,.40303,40,0)
86 ;;=^.4031I^1^1
87 ;;^DIST(.403,.40303,40,1,0)
88 ;;=1^^1,3^^^1^17,77
89 ;;^DIST(.403,.40303,40,1,1)
90 ;;=Edit a Page
91 ;;^DIST(.403,.40303,40,1,40,0)
92 ;;=^.4032PI^.403031^1
93 ;;^DIST(.403,.40303,40,1,40,.403031,0)
94 ;;=.403031^1^1,1^e
95 ;;^DIST(.403,.40303,40,1,40,.403031,11)
96 ;;=I $$GET^DDSVALF("IS THIS A POP UP PAGE?") N DDGFI F DDGFI="PREVIOUS","NEXT" D UNED^DDSUTL(DDGFI_" PAGE","","",1)
97 ;;^DIST(.403,.40304,0)
98 ;;=DDGF PAGE SELECT^^^0^2930419^2990916.1055^^.403^0^1^1
99 ;;^DIST(.403,.40304,40,0)
100 ;;=^.4031I^1^1
101 ;;^DIST(.403,.40304,40,1,0)
102 ;;=1^^4,10^^^1^8,56
103 ;;^DIST(.403,.40304,40,1,1)
104 ;;=Select a Page
105 ;;^DIST(.403,.40304,40,1,40,0)
106 ;;=^.4032PI^.403041^1
107 ;;^DIST(.403,.40304,40,1,40,.403041,0)
108 ;;=.403041^1^3,3^e
109 ;;^DIST(.403,.40305,0)
110 ;;=DDGF FORM EDIT^^^0^2930427^2990302.0754^^.403^0^0^1
111 ;;^DIST(.403,.40305,40,0)
112 ;;=^.4031I^1^1
113 ;;^DIST(.403,.40305,40,1,0)
114 ;;=1^^1,2^^^1^16,76
115 ;;^DIST(.403,.40305,40,1,1)
116 ;;=Form Edit
117 ;;^DIST(.403,.40305,40,1,40,0)
118 ;;=^.4032PI^.403051^1
119 ;;^DIST(.403,.40305,40,1,40,.403051,0)
120 ;;=.403051^1^1,1^e
121 ;;^DIST(.403,.40306,0)
122 ;;=DDGF HEADER BLOCK EDIT^^^0^2930504^2941115.0924^^.403^0^0^1
123 ;;^DIST(.403,.40306,40,0)
124 ;;=^.4031I^1^1
125 ;;^DIST(.403,.40306,40,1,0)
126 ;;=1^^2,1^^^1^14,76
127 ;;^DIST(.403,.40306,40,1,1)
128 ;;=Edit/Delete the Header Block
129 ;;^DIST(.403,.40306,40,1,40,0)
130 ;;=^.4032PI^.403061^2
131 ;;^DIST(.403,.40306,40,1,40,.403012,0)
132 ;;=.403012^2^5,1^e
133 ;;^DIST(.403,.40306,40,1,40,.403012,1)
134 ;;=PAGE:1
135 ;;^DIST(.403,.40306,40,1,40,.403061,0)
136 ;;=.403061^1^1,1^e
137 ;;^DIST(.403,.40401,0)
138 ;;=DDGF FIELD ADD^^^0^2930331^2990916.1050^^.404^0^1^1
139 ;;^DIST(.403,.40401,20)
140 ;;=D VAL1^DDGFU
141 ;;^DIST(.403,.40401,40,0)
142 ;;=^.4031I^1^1
143 ;;^DIST(.403,.40401,40,1,0)
144 ;;=1^^4,12^^^1^10,59
145 ;;^DIST(.403,.40401,40,1,1)
146 ;;=New field
147 ;;^DIST(.403,.40401,40,1,40,0)
148 ;;=^.4032PI^.404011^1
149 ;;^DIST(.403,.40401,40,1,40,.404011,0)
150 ;;=.404011^1^3,3^e
151 ;;^DIST(.403,.40402,0)
152 ;;=DDGF FIELD CAPTION ONLY^^^0^2930409^2990916.1050^^.404^0^0^1
153 ;;^DIST(.403,.40402,40,0)
154 ;;=^.4031I^1^1
155 ;;^DIST(.403,.40402,40,1,0)
156 ;;=1^^1,2^^^1^9,75
157 ;;^DIST(.403,.40402,40,1,1)
158 ;;=Caption only field
159 ;;^DIST(.403,.40402,40,1,40,0)
160 ;;=^.4032PI^.404021^1
161 ;;^DIST(.403,.40402,40,1,40,.404021,0)
162 ;;=.404021^1^1,3^e
163 ;;^DIST(.403,.40403,0)
164 ;;=DDGF FIELD DD^^^0^2930510^2990916.1048^^.404^0^0^1
165 ;;^DIST(.403,.40403,40,0)
166 ;;=^.4031I^4^4
167 ;;^DIST(.403,.40403,40,1,0)
168 ;;=1^^1,1^^^1^16,77
169 ;;^DIST(.403,.40403,40,1,1)
170 ;;=Page 1
171 ;;^DIST(.403,.40403,40,1,40,0)
172 ;;=^.4032PI^.404031^1
173 ;;^DIST(.403,.40403,40,1,40,.404031,0)
174 ;;=.404031^1^1,1^e
175 ;;^DIST(.403,.40403,40,2,0)
176 ;;=11^^3,3^^^1^15,75
177 ;;^DIST(.403,.40403,40,2,1)
178 ;;=Single-Valued Field (Other)
179 ;;^DIST(.403,.40403,40,2,40,0)
180 ;;=^.4032PI^.404032^1
181 ;;^DIST(.403,.40403,40,2,40,.404032,0)
182 ;;=.404032^1^1,1^e
183 ;;^DIST(.403,.40403,40,3,0)
184 ;;=21^^3,17^^^1^15,60
185 ;;^DIST(.403,.40403,40,3,1)
186 ;;=Multiple-Valued Field (Other)
187 ;;^DIST(.403,.40403,40,3,40,0)
188 ;;=^.4032PI^.404033^1
189 ;;^DIST(.403,.40403,40,3,40,.404033,0)
190 ;;=.404033^1^1,1^e
191 ;;^DIST(.403,.40403,40,4,0)
192 ;;=31^^3,17^^^1^13,60
193 ;;^DIST(.403,.40403,40,4,1)
194 ;;=Word Processing Field (Other)
195 ;;^DIST(.403,.40403,40,4,40,0)
196 ;;=^.4032PI^.404034^1
197 ;;^DIST(.403,.40403,40,4,40,.404034,0)
198 ;;=.404034^1^1,1^e
199 ;;^DIST(.403,.40404,0)
200 ;;=DDGF FIELD FORM ONLY^^^0^2930510^2990310.0915^^.404^0^0^1
201 ;;^DIST(.403,.40404,40,0)
202 ;;=^.4031I^3^3
203 ;;^DIST(.403,.40404,40,1,0)
204 ;;=1^^1,1^^^1^16,77
205 ;;^DIST(.403,.40404,40,1,1)
206 ;;=Form Only Field
207 ;;^DIST(.403,.40404,40,1,40,0)
208 ;;=^.4032PI^.404041^1
209 ;;^DIST(.403,.40404,40,1,40,.404041,0)
210 ;;=.404041^1^1,1^e
211 ;;^DIST(.403,.40404,40,2,0)
212 ;;=11^^3,3^^^1^15,75
213 ;;^DIST(.403,.40404,40,2,1)
214 ;;=Other Form Only Field Params
215 ;;^DIST(.403,.40404,40,2,40,0)
216 ;;=^.4032PI^.404042^1
217 ;;^DIST(.403,.40404,40,2,40,.404042,0)
218 ;;=.404042^1^1,1^e
219 ;;^DIST(.403,.40404,40,3,0)
220 ;;=21^^3,3^^^1^15,75
221 ;;^DIST(.403,.40404,40,3,1)
222 ;;=Other Parameters
223 ;;^DIST(.403,.40404,40,3,40,0)
224 ;;=^.4032PI^.404032^1
225 ;;^DIST(.403,.40404,40,3,40,.404032,0)
226 ;;=.404032^1^1,1^e
227 ;;^DIST(.403,.40405,0)
228 ;;=DDGF FIELD COMPUTED^^^0^2930916^2990211.0855^^.404^0^0^1
229 ;;^DIST(.403,.40405,40,0)
230 ;;=^.4031I^2^2
231 ;;^DIST(.403,.40405,40,1,0)
232 ;;=1^^1,2^^^1^12,76
233 ;;^DIST(.403,.40405,40,1,1)
234 ;;=Computed Field
235 ;;^DIST(.403,.40405,40,1,40,0)
236 ;;=^.4032PI^.404051^1
237 ;;^DIST(.403,.40405,40,1,40,.404051,0)
238 ;;=.404051^1^1,1^e
Note: See TracBrowser for help on using the repository browser.