source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0FE.m@ 1397

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

initial load of FOIAVistA 6/30/08 version
File size: 7.7 KB
Line 
1DINIT0FE ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;06:21 PM 2 Apr 2001
2 ;;22.0;VA FileMan;**62,82**;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="" ^DINIT0FF S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.400011,40,3,2)
8 ;;=5,28^11^5,12
9 ;;^DIST(.404,.400011,40,3,4)
10 ;;=^^^1
11 ;;^DIST(.404,.400011,40,4,0)
12 ;;=6^READ ACCESS^3
13 ;;^DIST(.404,.400011,40,4,1)
14 ;;=3
15 ;;^DIST(.404,.400011,40,4,2)
16 ;;=6,28^13^6,15
17 ;;^DIST(.404,.400011,40,5,0)
18 ;;=7^WRITE ACCESS^3
19 ;;^DIST(.404,.400011,40,5,1)
20 ;;=6
21 ;;^DIST(.404,.400011,40,5,2)
22 ;;=7,28^13^7,14
23 ;;^DIST(.404,.400011,40,6,0)
24 ;;=8^USER #^3
25 ;;^DIST(.404,.400011,40,6,1)
26 ;;=5
27 ;;^DIST(.404,.400011,40,6,2)
28 ;;=8,28^9^8,20
29 ;;^DIST(.404,.400011,40,7,0)
30 ;;=9^DESCRIPTION...^3
31 ;;^DIST(.404,.400011,40,7,1)
32 ;;=10
33 ;;^DIST(.404,.400011,40,7,2)
34 ;;=10,28^1^10,13^1
35 ;;^DIST(.404,.400011,40,8,0)
36 ;;=12^(Sort Fields on Next Page...)^1
37 ;;^DIST(.404,.400011,40,8,2)
38 ;;=^^16,20
39 ;;^DIST(.404,.400011,40,9,0)
40 ;;=13^PRINT TEMPLATE^3
41 ;;^DIST(.404,.400011,40,9,1)
42 ;;=491620
43 ;;^DIST(.404,.400011,40,9,2)
44 ;;=12,28^35^12,12
45 ;;^DIST(.404,.400012,0)
46 ;;=DIBTED2^.401
47 ;;^DIST(.404,.400012,11)
48 ;;=D EDIT^DIBTED(DA)
49 ;;^DIST(.404,.400012,40,0)
50 ;;=^.4044I^1^1
51 ;;^DIST(.404,.400012,40,1,0)
52 ;;=1^ ^1
53 ;;^DIST(.404,.400012,40,1,2)
54 ;;=^^1,1
55 ;;^DIST(.404,.401011,0)
56 ;;=DIETED^.402
57 ;;^DIST(.404,.401011,40,0)
58 ;;=^.4044I^9^9
59 ;;^DIST(.404,.401011,40,1,0)
60 ;;=1^TEMPLATE NAME^3
61 ;;^DIST(.404,.401011,40,1,1)
62 ;;=.01
63 ;;^DIST(.404,.401011,40,1,2)
64 ;;=1,16^30^1,1
65 ;;^DIST(.404,.401011,40,2,0)
66 ;;=3^DATE LAST MODIFIED^3
67 ;;^DIST(.404,.401011,40,2,1)
68 ;;=2
69 ;;^DIST(.404,.401011,40,2,2)
70 ;;=4,28^17^4,8
71 ;;^DIST(.404,.401011,40,2,4)
72 ;;=^^^1
73 ;;^DIST(.404,.401011,40,3,0)
74 ;;=4^DATE LAST USED^3
75 ;;^DIST(.404,.401011,40,3,1)
76 ;;=7
77 ;;^DIST(.404,.401011,40,3,2)
78 ;;=5,28^11^5,12
79 ;;^DIST(.404,.401011,40,3,4)
80 ;;=^^^1
81 ;;^DIST(.404,.401011,40,4,0)
82 ;;=5^^4
83 ;;^DIST(.404,.401011,40,4,2)
84 ;;=2,20^44
85 ;;^DIST(.404,.401011,40,4,30)
86 ;;=S Y=$G(^DIE(DA,"ROU")),S=$S(Y]"":"(Compiled as '"_Y_"' routine)",1:"(Not Compiled)")
87 ;;^DIST(.404,.401011,40,5,0)
88 ;;=6^READ ACCESS^3
89 ;;^DIST(.404,.401011,40,5,1)
90 ;;=3
91 ;;^DIST(.404,.401011,40,5,2)
92 ;;=6,28^13^6,15
93 ;;^DIST(.404,.401011,40,6,0)
94 ;;=7^WRITE ACCESS^3
95 ;;^DIST(.404,.401011,40,6,1)
96 ;;=6
97 ;;^DIST(.404,.401011,40,6,2)
98 ;;=7,28^13^7,14
99 ;;^DIST(.404,.401011,40,7,0)
100 ;;=8^USER #^3
101 ;;^DIST(.404,.401011,40,7,1)
102 ;;=5
103 ;;^DIST(.404,.401011,40,7,2)
104 ;;=8,28^9^8,20
105 ;;^DIST(.404,.401011,40,8,0)
106 ;;=9^DESCRIPTION...^3
107 ;;^DIST(.404,.401011,40,8,1)
108 ;;=10
109 ;;^DIST(.404,.401011,40,8,2)
110 ;;=10,28^1^10,13^1
111 ;;^DIST(.404,.401011,40,9,0)
112 ;;=12^(Edit Fields on Next Page...)^1^^EDIT FIELD
113 ;;^DIST(.404,.401011,40,9,2)
114 ;;=^^16,20
115 ;;^DIST(.404,.401012,0)
116 ;;=DIETED2^.402
117 ;;^DIST(.404,.401012,40,0)
118 ;;=^.4044I^1^1
119 ;;^DIST(.404,.401012,40,1,0)
120 ;;=1^ ^1
121 ;;^DIST(.404,.401012,40,1,2)
122 ;;=^^1,1
123 ;;^DIST(.404,.402011,0)
124 ;;=DIEDIT^1
125 ;;^DIST(.404,.402011,11)
126 ;;=D PRE^DIU20
127 ;;^DIST(.404,.402011,40,0)
128 ;;=^.4044I^18^17
129 ;;^DIST(.404,.402011,40,1,0)
130 ;;=1^DESCRIPTION...^3
131 ;;^DIST(.404,.402011,40,1,1)
132 ;;=4
133 ;;^DIST(.404,.402011,40,1,2)
134 ;;=3,36^1^3,21^1
135 ;;^DIST(.404,.402011,40,2,0)
136 ;;=2^DATA DICTIONARY ACCESS^2^^DATA DICTIONARY ACCESS
137 ;;^DIST(.404,.402011,40,2,2)
138 ;;=6,36^13^6,12
139 ;;^DIST(.404,.402011,40,2,3)
140 ;;=!M
141 ;;^DIST(.404,.402011,40,2,3.1)
142 ;;=S Y=$G(^DIC(DA,0,"DD"))
143 ;;^DIST(.404,.402011,40,2,14)
144 ;;=D ACCVAL^DIU20(X)
145 ;;^DIST(.404,.402011,40,2,20)
146 ;;=F
147 ;;^DIST(.404,.402011,40,3,0)
148 ;;=3^READ ACCESS^2^^READ ACCESS
149 ;;^DIST(.404,.402011,40,3,2)
150 ;;=7,36^13^7,23
151 ;;^DIST(.404,.402011,40,3,3)
152 ;;=!M
153 ;;^DIST(.404,.402011,40,3,3.1)
154 ;;=S Y=$G(^DIC(DA,0,"RD"))
155 ;;^DIST(.404,.402011,40,3,14)
156 ;;=D ACCVAL^DIU20(X)
157 ;;^DIST(.404,.402011,40,3,20)
158 ;;=F
159 ;;^DIST(.404,.402011,40,4,0)
160 ;;=4^WRITE ACCESS^2^^WRITE ACCESS
161 ;;^DIST(.404,.402011,40,4,2)
162 ;;=8,36^13^8,22
163 ;;^DIST(.404,.402011,40,4,3)
164 ;;=!M
165 ;;^DIST(.404,.402011,40,4,3.1)
166 ;;=S Y=$G(^DIC(DA,0,"WR"))
167 ;;^DIST(.404,.402011,40,4,14)
168 ;;=D ACCVAL^DIU20(X)
169 ;;^DIST(.404,.402011,40,4,20)
170 ;;=F
171 ;;^DIST(.404,.402011,40,5,0)
172 ;;=5^DELETE ACCESS^2^^DELETE ACCESS
173 ;;^DIST(.404,.402011,40,5,2)
174 ;;=9,36^13^9,21
175 ;;^DIST(.404,.402011,40,5,3)
176 ;;=!M
177 ;;^DIST(.404,.402011,40,5,3.1)
178 ;;=S Y=$G(^DIC(DA,0,"DEL"))
179 ;;^DIST(.404,.402011,40,5,14)
180 ;;=D ACCVAL^DIU20(X)
181 ;;^DIST(.404,.402011,40,5,20)
182 ;;=F
183 ;;^DIST(.404,.402011,40,6,0)
184 ;;=6^LAYGO ACCESS^2^^LAYGO ACCESS
185 ;;^DIST(.404,.402011,40,6,2)
186 ;;=10,36^13^10,22
187 ;;^DIST(.404,.402011,40,6,3)
188 ;;=!M
189 ;;^DIST(.404,.402011,40,6,3.1)
190 ;;=S Y=$G(^DIC(DA,0,"LAYGO"))
191 ;;^DIST(.404,.402011,40,6,14)
192 ;;=D ACCVAL^DIU20(X)
193 ;;^DIST(.404,.402011,40,6,20)
194 ;;=F
195 ;;^DIST(.404,.402011,40,7,0)
196 ;;=7^AUDIT ACCESS^2^^AUDIT ACCESS
197 ;;^DIST(.404,.402011,40,7,2)
198 ;;=11,36^13^11,22
199 ;;^DIST(.404,.402011,40,7,3)
200 ;;=!M
201 ;;^DIST(.404,.402011,40,7,3.1)
202 ;;=S Y=$G(^DIC(DA,0,"AUDIT"))
203 ;;^DIST(.404,.402011,40,7,14)
204 ;;=D ACCVAL^DIU20(X)
205 ;;^DIST(.404,.402011,40,7,20)
206 ;;=F
207 ;;^DIST(.404,.402011,40,8,0)
208 ;;=8^DD AUDIT^2^^DD AUDIT
209 ;;^DIST(.404,.402011,40,8,2)
210 ;;=12,36^3^12,26
211 ;;^DIST(.404,.402011,40,8,3)
212 ;;=!M
213 ;;^DIST(.404,.402011,40,8,3.1)
214 ;;=I $D(^DD(DA,0,"DDA")) S Y=$P("NO^YES",U,^("DDA")="Y"+1)
215 ;;^DIST(.404,.402011,40,8,20)
216 ;;=Y
217 ;;^DIST(.404,.402011,40,8,21,0)
218 ;;=^^1^1^2981023
219 ;;^DIST(.404,.402011,40,8,21,1,0)
220 ;;=Enter YES if you want to audit the Data Dictionary changes
221 ;;^DIST(.404,.402011,40,9,0)
222 ;;=9^ASK 'OK' WHEN LOOKING UP AN ENTRY^2^^ASK OK
223 ;;^DIST(.404,.402011,40,9,2)
224 ;;=13,36^3^13,1
225 ;;^DIST(.404,.402011,40,9,3)
226 ;;=!M
227 ;;^DIST(.404,.402011,40,9,3.1)
228 ;;=S Y=$G(^DIC(DA,0,"GL")) I Y["(" S Y=$G(@(Y_"0)")),Y=$P("YES^NO",U,$P(Y,U,2)'["O"+1)
229 ;;^DIST(.404,.402011,40,9,20)
230 ;;=Y
231 ;;^DIST(.404,.402011,40,9,21,0)
232 ;;=^^3^3^2981023
233 ;;^DIST(.404,.402011,40,9,21,1,0)
234 ;;=Answer YES to cause a lookup into this file to verify the
235 ;;^DIST(.404,.402011,40,9,21,2,0)
236 ;;=selection by prompting with
237 ;;^DIST(.404,.402011,40,9,21,3,0)
238 ;;= '...OK? YES// '
239 ;;^DIST(.404,.402011,40,9.5,0)
240 ;;=9.5^FILE SCREEN^2^^FILE SCREEN
241 ;;^DIST(.404,.402011,40,9.5,2)
242 ;;=14,26^40^14,13
243 ;;^DIST(.404,.402011,40,9.5,3)
244 ;;=!M
245 ;;^DIST(.404,.402011,40,9.5,3.1)
246 ;;=S Y=$G(^DD(DA,0,"SCR"))
247 ;;^DIST(.404,.402011,40,9.5,14)
248 ;;=D ^DIM I '$D(X) S DDSERROR=1
249 ;;^DIST(.404,.402011,40,9.5,20)
250 ;;=F^UF^3:200
251 ;;^DIST(.404,.402011,40,9.5,21,0)
252 ;;=^^3^3^3010402
253 ;;^DIST(.404,.402011,40,9.5,21,1,0)
254 ;;=A line of MUMPS code can be entered here. It should set the $T switch TRUE
255 ;;^DIST(.404,.402011,40,9.5,21,2,0)
256 ;;=or FALSE. At the time of execution, 'Y' is the number of a File entry
257 ;;^DIST(.404,.402011,40,9.5,21,3,0)
258 ;;=which we want to FILTER for lookup. Thus this code is a 'permanent DIC("S")' for the File. MISUSE OF THIS CAN DISENABLE THE FILE!
259 ;;^DIST(.404,.402011,40,10,0)
260 ;;=10^POST-SELECTION ACTION^2^^POST-SELECTION ACTION
261 ;;^DIST(.404,.402011,40,10,2)
262 ;;=15,26^52^15,3
263 ;;^DIST(.404,.402011,40,10,3)
264 ;;=!M
265 ;;^DIST(.404,.402011,40,10,3.1)
266 ;;=S Y=$G(^DD(DA,0,"ACT"))
267 ;;^DIST(.404,.402011,40,10,14)
268 ;;=D ^DIM I '$D(X) S DDSERROR=1
269 ;;^DIST(.404,.402011,40,10,20)
270 ;;=F^UF^3:250
271 ;;^DIST(.404,.402011,40,10,21,0)
272 ;;=^^3^3^3010402
273 ;;^DIST(.404,.402011,40,10,21,1,0)
274 ;;=If a line of MUMPS code is entered here, it will be executed
275 ;;^DIST(.404,.402011,40,10,21,2,0)
276 ;;=every time after a selection from the File is made.
277 ;;^DIST(.404,.402011,40,10,21,3,0)
278 ;;=At the time of execution, 'Y' is the return value from the "DIC" lookup.
279 ;;^DIST(.404,.402011,40,11,0)
280 ;;=11^LOOK-UP PROGRAM^2^^LOOK-UP PROGRAM
281 ;;^DIST(.404,.402011,40,11,2)
282 ;;=16,26^8^16,9
283 ;;^DIST(.404,.402011,40,11,3)
284 ;;=!M
285 ;;^DIST(.404,.402011,40,11,3.1)
286 ;;=S Y=$G(^DD(DA,0,"DIC"))
287 ;;^DIST(.404,.402011,40,11,14)
288 ;;=I X]"",'$$ROUEXIST^DILIBF(X)!(X?1"DI".E)!(X'?3U.5UN) S DDSERROR=1
289 ;;^DIST(.404,.402011,40,11,20)
290 ;;=F^FO
Note: See TracBrowser for help on using the repository browser.