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

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

initial load of WorldVistAEHR
File size: 6.7 KB
RevLine 
[613]1DINIT0F6 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;05:50 PM 23 Mar 2001
2 ;;22.0;VA FileMan;**33,76**;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="" ^DINIT0F7 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.00106,40,5,0)
8 ;;=83^LENGTH OF FIELD^2^^LENGTH
9 ;;^DIST(.404,.00106,40,5,2)
10 ;;=8,19^3^8,2
11 ;;^DIST(.404,.00106,40,5,3)
12 ;;=!M
13 ;;^DIST(.404,.00106,40,5,3.1)
14 ;;=I DICATT2["J" S Y=+$P(DICATT2,"J",2)
15 ;;^DIST(.404,.00106,40,5,20)
16 ;;=N^^1:250:0
17 ;;^DIST(.404,.00106,40,5,21,0)
18 ;;=^^2^2^2981106
19 ;;^DIST(.404,.00106,40,5,21,1,0)
20 ;;=MAXIMUM NUMBER OF CHARACTERS
21 ;;^DIST(.404,.00106,40,5,21,2,0)
22 ;;= (not more than 250)
23 ;;^DIST(.404,.00106,40,6,0)
24 ;;=81^SHOULD VALUE ALWAYS BE ROUNDED^2^^ROUNDED
25 ;;^DIST(.404,.00106,40,6,2)
26 ;;=6,65^3^6,33
27 ;;^DIST(.404,.00106,40,6,3)
28 ;;=!M
29 ;;^DIST(.404,.00106,40,6,3.1)
30 ;;=I DICATT2[";" S Y=$E("NY",DICATT5[" S X=$J(X,0,"+1)
31 ;;^DIST(.404,.00106,40,6,20)
32 ;;=Y
33 ;;^DIST(.404,.00106,40,7,0)
34 ;;=82^WHEN TOTALLING, SHOULD SUMS BE SUMS OF COMPONENT FIELDS^2^^TOTALLING
35 ;;^DIST(.404,.00106,40,7,2)
36 ;;=7,65^3^7,8
37 ;;^DIST(.404,.00106,40,7,3)
38 ;;=!M
39 ;;^DIST(.404,.00106,40,7,3.1)
40 ;;=I $D(^DD(DICATTA,DICATTF,9.02)) S Y="Y"
41 ;;^DIST(.404,.00106,40,7,20)
42 ;;=Y
43 ;;^DIST(.404,.00107,0)
44 ;;=DICATT7^1
45 ;;^DIST(.404,.00107,40,0)
46 ;;=^.4044I^2^2
47 ;;^DIST(.404,.00107,40,1,0)
48 ;;=84^POINT TO WHICH FILE^2^^FILE
49 ;;^DIST(.404,.00107,40,1,2)
50 ;;=2,27^39^2,6
51 ;;^DIST(.404,.00107,40,1,3)
52 ;;=!M
53 ;;^DIST(.404,.00107,40,1,3.1)
54 ;;=S Y=$P($G(^DIC(+$P(DICATT2,"P",2),0)),U)
55 ;;^DIST(.404,.00107,40,1,11)
56 ;;=S:$G(DICATTSC)=7 DDACT="CL"
57 ;;^DIST(.404,.00107,40,1,20)
58 ;;=P^^1:EOFIZ
59 ;;^DIST(.404,.00107,40,1,24)
60 ;;=S DIR("S")="I Y-1.1 N DIFILE,DIAC S DIFILE=+Y,DIAC=""RD"" D ^DIAC I %"
61 ;;^DIST(.404,.00107,40,2,0)
62 ;;=85^SHALL 'ADDING A NEW FILE ENTRY ("LAYGO") BE ALLOWED^2^^LAYGO
63 ;;^DIST(.404,.00107,40,2,2)
64 ;;=4,59^3^4,6
65 ;;^DIST(.404,.00107,40,2,3)
66 ;;=!M
67 ;;^DIST(.404,.00107,40,2,3.1)
68 ;;=S Y="N" I DICATT2["P" S Y=$E("YN",DICATT2["'"+1)
69 ;;^DIST(.404,.00107,40,2,14)
70 ;;=N DIFILE,DIAC S DIAC="LAYGO",DIFILE=$$GET^DDSVALF(84,,,"I","") D ^DIAC I $P($G(^DD(DIFILE,0,"DI")),U,2)["Y"!'DIAC S DDSERROR=1 D HLP^DDSUTL("NO LAYGO-ING TO THIS FILE!")
71 ;;^DIST(.404,.00107,40,2,20)
72 ;;=Y
73 ;;^DIST(.404,.00108,0)
74 ;;=DICATT8^1
75 ;;^DIST(.404,.00108,40,0)
76 ;;=^.4044I^14^14
77 ;;^DIST(.404,.00108,40,1,0)
78 ;;=91^VARIABLE-POINTER FILE #1^2^^VP 1
79 ;;^DIST(.404,.00108,40,1,2)
80 ;;=2,29^30^2,3
81 ;;^DIST(.404,.00108,40,1,3)
82 ;;=!M
83 ;;^DIST(.404,.00108,40,1,3.1)
84 ;;=D Y^DICATTD8(1,1)
85 ;;^DIST(.404,.00108,40,1,4)
86 ;;=1
87 ;;^DIST(.404,.00108,40,1,20)
88 ;;=P^^1:EOFIZM
89 ;;^DIST(.404,.00108,40,1,24)
90 ;;=D DICS^DICATTD8
91 ;;^DIST(.404,.00108,40,2,0)
92 ;;=92^VARIABLE-POINTER FILE #2^2^^VP 2
93 ;;^DIST(.404,.00108,40,2,2)
94 ;;=3,29^30^3,3
95 ;;^DIST(.404,.00108,40,2,3)
96 ;;=!M
97 ;;^DIST(.404,.00108,40,2,3.1)
98 ;;=D Y^DICATTD8(2,1)
99 ;;^DIST(.404,.00108,40,2,20)
100 ;;=P^^1:EOFIZM
101 ;;^DIST(.404,.00108,40,2,24)
102 ;;=D DICS^DICATTD8
103 ;;^DIST(.404,.00108,40,3,0)
104 ;;=91.1^ORDER...^2^^ORDER1
105 ;;^DIST(.404,.00108,40,3,2)
106 ;;=2,70^4^2,61^1
107 ;;^DIST(.404,.00108,40,3,3)
108 ;;=!M
109 ;;^DIST(.404,.00108,40,3,3.1)
110 ;;=D Y^DICATTD8(1,3)
111 ;;^DIST(.404,.00108,40,3,10)
112 ;;=S:X DICATTVP=1,DDSSTACK=8
113 ;;^DIST(.404,.00108,40,3,20)
114 ;;=N^^1:99:1
115 ;;^DIST(.404,.00108,40,4,0)
116 ;;=92.1^ORDER...^2^^ORDER2
117 ;;^DIST(.404,.00108,40,4,2)
118 ;;=3,70^4^3,61^1
119 ;;^DIST(.404,.00108,40,4,3)
120 ;;=!M
121 ;;^DIST(.404,.00108,40,4,3.1)
122 ;;=D Y^DICATTD8(2,3)
123 ;;^DIST(.404,.00108,40,4,10)
124 ;;=S:X DICATTVP=2,DDSSTACK=8
125 ;;^DIST(.404,.00108,40,4,20)
126 ;;=N^^1:99:1
127 ;;^DIST(.404,.00108,40,5,0)
128 ;;=93^VARIABLE-POINTER FILE #3^2
129 ;;^DIST(.404,.00108,40,5,2)
130 ;;=4,29^30^4,3
131 ;;^DIST(.404,.00108,40,5,3)
132 ;;=!M
133 ;;^DIST(.404,.00108,40,5,3.1)
134 ;;=D Y^DICATTD8(3,1)
135 ;;^DIST(.404,.00108,40,5,20)
136 ;;=P^^1:EOFIZM
137 ;;^DIST(.404,.00108,40,5,24)
138 ;;=D DICS^DICATTD8
139 ;;^DIST(.404,.00108,40,6,0)
140 ;;=93.1^ORDER...^2^^ORDER3
141 ;;^DIST(.404,.00108,40,6,2)
142 ;;=4,70^4^4,61^1
143 ;;^DIST(.404,.00108,40,6,3)
144 ;;=!M
145 ;;^DIST(.404,.00108,40,6,3.1)
146 ;;=D Y^DICATTD8(3,3)
147 ;;^DIST(.404,.00108,40,6,10)
148 ;;=S:X DICATTVP=3,DDSSTACK=8
149 ;;^DIST(.404,.00108,40,6,20)
150 ;;=N^^1:99:1
151 ;;^DIST(.404,.00108,40,7,0)
152 ;;=94.1^ORDER...^2^^ORDER4
153 ;;^DIST(.404,.00108,40,7,2)
154 ;;=5,70^4^5,61^1
155 ;;^DIST(.404,.00108,40,7,3)
156 ;;=!M
157 ;;^DIST(.404,.00108,40,7,3.1)
158 ;;=D Y^DICATTD8(4,3)
159 ;;^DIST(.404,.00108,40,7,10)
160 ;;=S:X DICATTVP=4,DDSSTACK=8
161 ;;^DIST(.404,.00108,40,7,20)
162 ;;=N^^1:99:1
163 ;;^DIST(.404,.00108,40,8,0)
164 ;;=95.1^ORDER...^2^^ORDER5
165 ;;^DIST(.404,.00108,40,8,2)
166 ;;=6,70^4^6,61^1
167 ;;^DIST(.404,.00108,40,8,3)
168 ;;=!M
169 ;;^DIST(.404,.00108,40,8,3.1)
170 ;;=D Y^DICATTD8(5,3)
171 ;;^DIST(.404,.00108,40,8,10)
172 ;;=S:X DICATTVP=5,DDSSTACK=8
173 ;;^DIST(.404,.00108,40,8,20)
174 ;;=N^^1:99:1
175 ;;^DIST(.404,.00108,40,9,0)
176 ;;=96.1^ORDER...^2^^ORDER6
177 ;;^DIST(.404,.00108,40,9,2)
178 ;;=7,70^4^7,61^1
179 ;;^DIST(.404,.00108,40,9,3)
180 ;;=!M
181 ;;^DIST(.404,.00108,40,9,3.1)
182 ;;=D Y^DICATTD8(6,3)
183 ;;^DIST(.404,.00108,40,9,10)
184 ;;=S:X DICATTVP=6,DDSSTACK=8
185 ;;^DIST(.404,.00108,40,9,20)
186 ;;=N^^1:99:1
187 ;;^DIST(.404,.00108,40,10,0)
188 ;;=97.1^ORDER...^2^^ORDER7
189 ;;^DIST(.404,.00108,40,10,2)
190 ;;=8,70^4^8,61^1
191 ;;^DIST(.404,.00108,40,10,3)
192 ;;=!M
193 ;;^DIST(.404,.00108,40,10,3.1)
194 ;;=D Y^DICATTD8(7,3)
195 ;;^DIST(.404,.00108,40,10,10)
196 ;;=S:X DICATTVP=7,DDSSTACK=8
197 ;;^DIST(.404,.00108,40,10,20)
198 ;;=N^^1:99:1
199 ;;^DIST(.404,.00108,40,11,0)
200 ;;=94^VARIABLE-POINTER FILE #4^2^^VP4
201 ;;^DIST(.404,.00108,40,11,2)
202 ;;=5,29^30^5,3
203 ;;^DIST(.404,.00108,40,11,3)
204 ;;=!M
205 ;;^DIST(.404,.00108,40,11,3.1)
206 ;;=D Y^DICATTD8(4,1)
207 ;;^DIST(.404,.00108,40,11,20)
208 ;;=P^^1:EOFIZM
209 ;;^DIST(.404,.00108,40,11,24)
210 ;;=D DICS^DICATTD8
211 ;;^DIST(.404,.00108,40,12,0)
212 ;;=95^VARIABLE-POINTER FILE #5^2^^VP 5
213 ;;^DIST(.404,.00108,40,12,2)
214 ;;=6,29^30^6,3
215 ;;^DIST(.404,.00108,40,12,3)
216 ;;=!M
217 ;;^DIST(.404,.00108,40,12,3.1)
218 ;;=D Y^DICATTD8(5,1)
219 ;;^DIST(.404,.00108,40,12,20)
220 ;;=P^^1:EOFIZM
221 ;;^DIST(.404,.00108,40,12,24)
222 ;;=D DICS^DICATTD8
223 ;;^DIST(.404,.00108,40,13,0)
224 ;;=96^VARIABLE-POINTER FILE #6^2^^VP 6
225 ;;^DIST(.404,.00108,40,13,2)
226 ;;=7,29^30^7,3
227 ;;^DIST(.404,.00108,40,13,3)
228 ;;=!M
229 ;;^DIST(.404,.00108,40,13,3.1)
230 ;;=D Y^DICATTD8(6,1)
231 ;;^DIST(.404,.00108,40,13,20)
232 ;;=P^^1:EOFIZM
233 ;;^DIST(.404,.00108,40,13,24)
234 ;;=D DICS^DICATTD8
235 ;;^DIST(.404,.00108,40,14,0)
236 ;;=97^VARIABLE-POINTER FILE #7^2^^VP 7
237 ;;^DIST(.404,.00108,40,14,2)
238 ;;=8,29^30^8,3
239 ;;^DIST(.404,.00108,40,14,3)
240 ;;=!M
241 ;;^DIST(.404,.00108,40,14,3.1)
242 ;;=D Y^DICATTD8(7,1)
243 ;;^DIST(.404,.00108,40,14,20)
244 ;;=P^^1:EOFIZM
245 ;;^DIST(.404,.00108,40,14,24)
246 ;;=D DICS^DICATTD8
247 ;;^DIST(.404,.00109,0)
248 ;;=DICATT3^1
249 ;;^DIST(.404,.00109,40,0)
250 ;;=^.4044I^26^26
251 ;;^DIST(.404,.00109,40,1,0)
252 ;;=35^CODE^2^^CODE1
253 ;;^DIST(.404,.00109,40,1,2)
254 ;;=2,8^4^2,2
255 ;;^DIST(.404,.00109,40,1,3)
256 ;;=!M
257 ;;^DIST(.404,.00109,40,1,3.1)
258 ;;=D Y^DICATTD3(1,1)
Note: See TracBrowser for help on using the repository browser.