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

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

initial load of WorldVistAEHR
File size: 6.6 KB
RevLine 
[613]1DINIT0F7 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM 30 Mar 1999
2 ;;22.0;VA FileMan;;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="" ^DINIT0F8 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.00109,40,1,4)
8 ;;=1
9 ;;^DIST(.404,.00109,40,1,20)
10 ;;=F^^1:20
11 ;;^DIST(.404,.00109,40,1,22)
12 ;;=D C^DICATTD3
13 ;;^DIST(.404,.00109,40,2,0)
14 ;;=36^WILL STAND FOR^2^^MEANS1
15 ;;^DIST(.404,.00109,40,2,2)
16 ;;=2,30^30^2,14
17 ;;^DIST(.404,.00109,40,2,3)
18 ;;=!M
19 ;;^DIST(.404,.00109,40,2,3.1)
20 ;;=D Y^DICATTD3(1,2)
21 ;;^DIST(.404,.00109,40,2,4)
22 ;;=1
23 ;;^DIST(.404,.00109,40,2,20)
24 ;;=F^^1:70
25 ;;^DIST(.404,.00109,40,2,22)
26 ;;=D C^DICATTD3
27 ;;^DIST(.404,.00109,40,3,0)
28 ;;=37^CODE^2^^CODE2
29 ;;^DIST(.404,.00109,40,3,2)
30 ;;=3,8^4^3,2
31 ;;^DIST(.404,.00109,40,3,3)
32 ;;=!M
33 ;;^DIST(.404,.00109,40,3,3.1)
34 ;;=D Y^DICATTD3(2,1)
35 ;;^DIST(.404,.00109,40,3,20)
36 ;;=F^^1:20
37 ;;^DIST(.404,.00109,40,3,22)
38 ;;=D C^DICATTD3
39 ;;^DIST(.404,.00109,40,4,0)
40 ;;=38^WILL STAND FOR^2^^MEANS2
41 ;;^DIST(.404,.00109,40,4,2)
42 ;;=3,30^30^3,14
43 ;;^DIST(.404,.00109,40,4,3)
44 ;;=!M
45 ;;^DIST(.404,.00109,40,4,3.1)
46 ;;=D Y^DICATTD3(2,2)
47 ;;^DIST(.404,.00109,40,4,20)
48 ;;=F^^1:70
49 ;;^DIST(.404,.00109,40,4,22)
50 ;;=D C^DICATTD3
51 ;;^DIST(.404,.00109,40,5,0)
52 ;;=39^CODE^2^^CODE3
53 ;;^DIST(.404,.00109,40,5,2)
54 ;;=4,8^4^4,2
55 ;;^DIST(.404,.00109,40,5,3)
56 ;;=!M
57 ;;^DIST(.404,.00109,40,5,3.1)
58 ;;=D Y^DICATTD3(3,1)
59 ;;^DIST(.404,.00109,40,5,20)
60 ;;=F^^1:20
61 ;;^DIST(.404,.00109,40,5,22)
62 ;;=D C^DICATTD3
63 ;;^DIST(.404,.00109,40,6,0)
64 ;;=40^WILL STAND FOR^2^^MEANS3
65 ;;^DIST(.404,.00109,40,6,2)
66 ;;=4,30^30^4,14
67 ;;^DIST(.404,.00109,40,6,3)
68 ;;=!M
69 ;;^DIST(.404,.00109,40,6,3.1)
70 ;;=D Y^DICATTD3(3,2)
71 ;;^DIST(.404,.00109,40,6,20)
72 ;;=F^^1:70
73 ;;^DIST(.404,.00109,40,6,22)
74 ;;=D C^DICATTD3
75 ;;^DIST(.404,.00109,40,7,0)
76 ;;=41^CODE^2^^CODE4
77 ;;^DIST(.404,.00109,40,7,2)
78 ;;=5,8^4^5,2
79 ;;^DIST(.404,.00109,40,7,3)
80 ;;=!M
81 ;;^DIST(.404,.00109,40,7,3.1)
82 ;;=D Y^DICATTD3(4,1)
83 ;;^DIST(.404,.00109,40,7,20)
84 ;;=F^^1:20
85 ;;^DIST(.404,.00109,40,7,22)
86 ;;=D C^DICATTD3
87 ;;^DIST(.404,.00109,40,8,0)
88 ;;=42^WILL STAND FOR^2^^MEANS4
89 ;;^DIST(.404,.00109,40,8,2)
90 ;;=5,30^30^5,14
91 ;;^DIST(.404,.00109,40,8,3)
92 ;;=!M
93 ;;^DIST(.404,.00109,40,8,3.1)
94 ;;=D Y^DICATTD3(4,2)
95 ;;^DIST(.404,.00109,40,8,20)
96 ;;=F^^1:70
97 ;;^DIST(.404,.00109,40,8,22)
98 ;;=D C^DICATTD3
99 ;;^DIST(.404,.00109,40,9,0)
100 ;;=43^CODE^2^^CODE5
101 ;;^DIST(.404,.00109,40,9,2)
102 ;;=6,8^4^6,2
103 ;;^DIST(.404,.00109,40,9,3)
104 ;;=!M
105 ;;^DIST(.404,.00109,40,9,3.1)
106 ;;=D Y^DICATTD3(5,1)
107 ;;^DIST(.404,.00109,40,9,20)
108 ;;=F^^1:20
109 ;;^DIST(.404,.00109,40,9,22)
110 ;;=D C^DICATTD3
111 ;;^DIST(.404,.00109,40,10,0)
112 ;;=44^WILL STAND FOR^2^^MEANS5
113 ;;^DIST(.404,.00109,40,10,2)
114 ;;=6,30^30^6,14
115 ;;^DIST(.404,.00109,40,10,3)
116 ;;=!M
117 ;;^DIST(.404,.00109,40,10,3.1)
118 ;;=D Y^DICATTD3(5,2)
119 ;;^DIST(.404,.00109,40,10,20)
120 ;;=F^^1:70
121 ;;^DIST(.404,.00109,40,10,22)
122 ;;=D C^DICATTD3
123 ;;^DIST(.404,.00109,40,11,0)
124 ;;=45^CODE^2^^CODE6
125 ;;^DIST(.404,.00109,40,11,2)
126 ;;=7,8^4^7,2
127 ;;^DIST(.404,.00109,40,11,3)
128 ;;=!M
129 ;;^DIST(.404,.00109,40,11,3.1)
130 ;;=D Y^DICATTD3(6,1)
131 ;;^DIST(.404,.00109,40,11,20)
132 ;;=F^^1:20
133 ;;^DIST(.404,.00109,40,11,22)
134 ;;=D C^DICATTD3
135 ;;^DIST(.404,.00109,40,12,0)
136 ;;=46^WILL STAND FOR^2^^MEANS6
137 ;;^DIST(.404,.00109,40,12,2)
138 ;;=7,30^30^7,14
139 ;;^DIST(.404,.00109,40,12,3)
140 ;;=!M
141 ;;^DIST(.404,.00109,40,12,3.1)
142 ;;=D Y^DICATTD3(6,2)
143 ;;^DIST(.404,.00109,40,12,20)
144 ;;=F^^1:70
145 ;;^DIST(.404,.00109,40,12,22)
146 ;;=D C^DICATTD3
147 ;;^DIST(.404,.00109,40,13,0)
148 ;;=47^CODE^2^^CODE7
149 ;;^DIST(.404,.00109,40,13,2)
150 ;;=8,8^4^8,2
151 ;;^DIST(.404,.00109,40,13,3)
152 ;;=!M
153 ;;^DIST(.404,.00109,40,13,3.1)
154 ;;=D Y^DICATTD3(7,1)
155 ;;^DIST(.404,.00109,40,13,20)
156 ;;=F^^1:20
157 ;;^DIST(.404,.00109,40,13,22)
158 ;;=D C^DICATTD3
159 ;;^DIST(.404,.00109,40,14,0)
160 ;;=48^WILL STAND FOR^2^^MEANS7
161 ;;^DIST(.404,.00109,40,14,2)
162 ;;=8,30^30^8,14
163 ;;^DIST(.404,.00109,40,14,3)
164 ;;=!M
165 ;;^DIST(.404,.00109,40,14,3.1)
166 ;;=D Y^DICATTD3(7,2)
167 ;;^DIST(.404,.00109,40,14,20)
168 ;;=F^^1:70
169 ;;^DIST(.404,.00109,40,14,22)
170 ;;=D C^DICATTD3
171 ;;^DIST(.404,.00109,40,15,0)
172 ;;=49^CODE^2^^CODE8
173 ;;^DIST(.404,.00109,40,15,2)
174 ;;=9,8^4^9,2
175 ;;^DIST(.404,.00109,40,15,3)
176 ;;=!M
177 ;;^DIST(.404,.00109,40,15,3.1)
178 ;;=D Y^DICATTD3(8,1)
179 ;;^DIST(.404,.00109,40,15,20)
180 ;;=F^^1:20
181 ;;^DIST(.404,.00109,40,15,22)
182 ;;=D C^DICATTD3
183 ;;^DIST(.404,.00109,40,16,0)
184 ;;=50^WILL STAND FOR^2^^MEANS8
185 ;;^DIST(.404,.00109,40,16,2)
186 ;;=9,30^30^9,14
187 ;;^DIST(.404,.00109,40,16,3)
188 ;;=!M
189 ;;^DIST(.404,.00109,40,16,3.1)
190 ;;=D Y^DICATTD3(8,2)
191 ;;^DIST(.404,.00109,40,16,20)
192 ;;=F^^1:70
193 ;;^DIST(.404,.00109,40,16,22)
194 ;;=D C^DICATTD3
195 ;;^DIST(.404,.00109,40,17,0)
196 ;;=51^CODE^2^^CODE9
197 ;;^DIST(.404,.00109,40,17,2)
198 ;;=10,8^4^10,2
199 ;;^DIST(.404,.00109,40,17,3)
200 ;;=!M
201 ;;^DIST(.404,.00109,40,17,3.1)
202 ;;=D Y^DICATTD3(9,1)
203 ;;^DIST(.404,.00109,40,17,20)
204 ;;=F^^1:20
205 ;;^DIST(.404,.00109,40,17,22)
206 ;;=D C^DICATTD3
207 ;;^DIST(.404,.00109,40,18,0)
208 ;;=52^WILL STAND FOR^2^^MEANS9
209 ;;^DIST(.404,.00109,40,18,2)
210 ;;=10,30^30^10,14
211 ;;^DIST(.404,.00109,40,18,3)
212 ;;=!M
213 ;;^DIST(.404,.00109,40,18,3.1)
214 ;;=D Y^DICATTD3(9,2)
215 ;;^DIST(.404,.00109,40,18,20)
216 ;;=F^^1:70
217 ;;^DIST(.404,.00109,40,18,22)
218 ;;=D C^DICATTD3
219 ;;^DIST(.404,.00109,40,19,0)
220 ;;=53^CODE^2^^CODE10
221 ;;^DIST(.404,.00109,40,19,2)
222 ;;=11,8^4^11,2
223 ;;^DIST(.404,.00109,40,19,3)
224 ;;=!M
225 ;;^DIST(.404,.00109,40,19,3.1)
226 ;;=D Y^DICATTD3(10,1)
227 ;;^DIST(.404,.00109,40,19,20)
228 ;;=F^^1:20
229 ;;^DIST(.404,.00109,40,19,22)
230 ;;=D C^DICATTD3
231 ;;^DIST(.404,.00109,40,20,0)
232 ;;=54^WILL STAND FOR^2^^MEANS10
233 ;;^DIST(.404,.00109,40,20,2)
234 ;;=11,30^30^11,14
235 ;;^DIST(.404,.00109,40,20,3)
236 ;;=!M
237 ;;^DIST(.404,.00109,40,20,3.1)
238 ;;=D Y^DICATTD3(10,2)
239 ;;^DIST(.404,.00109,40,20,20)
240 ;;=F^^1:70
241 ;;^DIST(.404,.00109,40,20,22)
242 ;;=D C^DICATTD3
243 ;;^DIST(.404,.00109,40,21,0)
244 ;;=55^CODE^2^^CODE11
245 ;;^DIST(.404,.00109,40,21,2)
246 ;;=12,8^4^12,2
247 ;;^DIST(.404,.00109,40,21,3)
248 ;;=!M
249 ;;^DIST(.404,.00109,40,21,3.1)
250 ;;=D Y^DICATTD3(11,1)
251 ;;^DIST(.404,.00109,40,21,20)
252 ;;=F^^1:20
253 ;;^DIST(.404,.00109,40,21,22)
254 ;;=D C^DICATTD3
255 ;;^DIST(.404,.00109,40,22,0)
256 ;;=56^WILL STAND FOR^2^^MEANS11
257 ;;^DIST(.404,.00109,40,22,2)
258 ;;=12,30^30^12,14
259 ;;^DIST(.404,.00109,40,22,3)
260 ;;=!M
261 ;;^DIST(.404,.00109,40,22,3.1)
262 ;;=D Y^DICATTD3(11,2)
263 ;;^DIST(.404,.00109,40,22,20)
264 ;;=F^^1:70
265 ;;^DIST(.404,.00109,40,22,22)
266 ;;=D C^DICATTD3
267 ;;^DIST(.404,.00109,40,23,0)
268 ;;=57^CODE^2^^CODE12
269 ;;^DIST(.404,.00109,40,23,2)
270 ;;=13,8^4^13,2
271 ;;^DIST(.404,.00109,40,23,3)
272 ;;=!M
273 ;;^DIST(.404,.00109,40,23,3.1)
274 ;;=D Y^DICATTD3(12,1)
275 ;;^DIST(.404,.00109,40,23,20)
276 ;;=F^^1:20
277 ;;^DIST(.404,.00109,40,23,22)
278 ;;=D C^DICATTD3
279 ;;^DIST(.404,.00109,40,24,0)
280 ;;=58^WILL STAND FOR^2^^MEANS12
281 ;;^DIST(.404,.00109,40,24,2)
282 ;;=13,30^30^13,14
Note: See TracBrowser for help on using the repository browser.