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

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

initial load of WorldVistAEHR
File size: 6.6 KB
RevLine 
[613]1DINIT0F9 ;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="" ^DINIT0FA S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.00116,40,4,2)
8 ;;=6,23^54^6,15
9 ;;^DIST(.404,.00116,40,4,3)
10 ;;=!M
11 ;;^DIST(.404,.00116,40,4,3.1)
12 ;;=S Y=$G(^DD(DICATTA,DICATTF,10))
13 ;;^DIST(.404,.00116,40,4,20)
14 ;;=DD^^0,10
15 ;;^DIST(.404,.00116,40,5,0)
16 ;;=.5^ ^4^^MULTIPLE FIELD NUMBER
17 ;;^DIST(.404,.00116,40,5,2)
18 ;;=1,2^77^1,1^1
19 ;;^DIST(.404,.00116,40,5,30)
20 ;;=D NUMBER^DICATTD
21 ;;^DIST(.404,.00117,0)
22 ;;=DICATTMUL^1
23 ;;^DIST(.404,.00117,40,0)
24 ;;=^.4044I^2^2
25 ;;^DIST(.404,.00117,40,1,0)
26 ;;=1^SHOULD USER SEE AN "ADDING A NEW ENTRY" MESSAGE^2
27 ;;^DIST(.404,.00117,40,1,2)
28 ;;=2,52^3^2,3
29 ;;^DIST(.404,.00117,40,1,3)
30 ;;=!M
31 ;;^DIST(.404,.00117,40,1,3.1)
32 ;;=D LAYGODEF^DICATTDE
33 ;;^DIST(.404,.00117,40,1,20)
34 ;;=Y
35 ;;^DIST(.404,.00117,40,2,0)
36 ;;=2^HAVING ENTERED OR EDITED ONE MULTIPLE, SHOULD USER BE ASKED ANOTHER^2
37 ;;^DIST(.404,.00117,40,2,2)
38 ;;=3,72^3^3,3
39 ;;^DIST(.404,.00117,40,2,3)
40 ;;=!M
41 ;;^DIST(.404,.00117,40,2,3.1)
42 ;;=S Y=$E("NY",$G(DICATT2)["M"+1)
43 ;;^DIST(.404,.00117,40,2,20)
44 ;;=Y
45 ;;^DIST(.404,.00118,0)
46 ;;=DICATT SCREEN^1
47 ;;^DIST(.404,.00118,40,0)
48 ;;=^.4044I^3^3
49 ;;^DIST(.404,.00118,40,1,0)
50 ;;=65^SHOULD ENTRIES BE SCREENED^2
51 ;;^DIST(.404,.00118,40,1,2)
52 ;;=2,31^3^2,3
53 ;;^DIST(.404,.00118,40,1,3)
54 ;;=!M
55 ;;^DIST(.404,.00118,40,1,3.1)
56 ;;=S Y=$E("NY",$G(^DD(DICATTA,DICATTF,12.1))]""+1)
57 ;;^DIST(.404,.00118,40,1,12)
58 ;;=D UNED^DDSUTL(66,,,'X),UNED^DDSUTL(67,,,'X) I 'X D PUT^DDSVALF(66,,,""),PUT^DDSVALF(67,,,"")
59 ;;^DIST(.404,.00118,40,1,20)
60 ;;=Y
61 ;;^DIST(.404,.00118,40,1,21,0)
62 ;;=^^2^2^2981215
63 ;;^DIST(.404,.00118,40,1,21,1,0)
64 ;;=Answer YES if there is a condition which should prohibit
65 ;;^DIST(.404,.00118,40,1,21,2,0)
66 ;;=the selection of all choices at all times.
67 ;;^DIST(.404,.00118,40,2,0)
68 ;;=66^MUMPS CODE THAT WILL SET DIC("S")^2
69 ;;^DIST(.404,.00118,40,2,2)
70 ;;=4,3^72^3,3
71 ;;^DIST(.404,.00118,40,2,3)
72 ;;=!M
73 ;;^DIST(.404,.00118,40,2,3.1)
74 ;;=S Y=$G(^DD(DICATTA,DICATTF,12.1))
75 ;;^DIST(.404,.00118,40,2,10)
76 ;;=D REQ^DDSUTL(67,,,X]"")
77 ;;^DIST(.404,.00118,40,2,20)
78 ;;=F^U
79 ;;^DIST(.404,.00118,40,2,21,0)
80 ;;=^^3^3^2981215
81 ;;^DIST(.404,.00118,40,2,21,1,0)
82 ;;=Enter a MUMPS statement which begins with 'S DIC("S")=' and contains code
83 ;;^DIST(.404,.00118,40,2,21,2,0)
84 ;;=to set $T. When the DIC("S") is executed, the variable 'Y' holds internal
85 ;;^DIST(.404,.00118,40,2,21,3,0)
86 ;;=code being screened.
87 ;;^DIST(.404,.00118,40,2,22)
88 ;;=D ^DIM
89 ;;^DIST(.404,.00118,40,3,0)
90 ;;=67^EXPLANATION OF SCREEN^2
91 ;;^DIST(.404,.00118,40,3,2)
92 ;;=6,3^72^5,3
93 ;;^DIST(.404,.00118,40,3,3)
94 ;;=!M
95 ;;^DIST(.404,.00118,40,3,3.1)
96 ;;=S Y=$G(^DD(DICATTA,DICATTF,12))
97 ;;^DIST(.404,.00118,40,3,20)
98 ;;=F^^1:245
99 ;;^DIST(.404,.00118,40,3,22)
100 ;;=K:X?.P X
101 ;;^DIST(.404,.10011,0)
102 ;;=DIPTED^.4
103 ;;^DIST(.404,.10011,40,0)
104 ;;=^.4044I^14^12
105 ;;^DIST(.404,.10011,40,1,0)
106 ;;=1^TEMPLATE NAME^3
107 ;;^DIST(.404,.10011,40,1,1)
108 ;;=.01
109 ;;^DIST(.404,.10011,40,1,2)
110 ;;=1,16^30^1,1
111 ;;^DIST(.404,.10011,40,2,0)
112 ;;=3^DATE LAST MODIFIED^3
113 ;;^DIST(.404,.10011,40,2,1)
114 ;;=2
115 ;;^DIST(.404,.10011,40,2,2)
116 ;;=4,28^17^4,8
117 ;;^DIST(.404,.10011,40,2,4)
118 ;;=^^^1
119 ;;^DIST(.404,.10011,40,3,0)
120 ;;=4^DATE LAST USED^3
121 ;;^DIST(.404,.10011,40,3,1)
122 ;;=7
123 ;;^DIST(.404,.10011,40,3,2)
124 ;;=5,28^11^5,12
125 ;;^DIST(.404,.10011,40,3,4)
126 ;;=^^^1
127 ;;^DIST(.404,.10011,40,4,0)
128 ;;=6^READ ACCESS^3
129 ;;^DIST(.404,.10011,40,4,1)
130 ;;=3
131 ;;^DIST(.404,.10011,40,4,2)
132 ;;=6,28^13^6,15
133 ;;^DIST(.404,.10011,40,5,0)
134 ;;=7^WRITE ACCESS^3
135 ;;^DIST(.404,.10011,40,5,1)
136 ;;=6
137 ;;^DIST(.404,.10011,40,5,2)
138 ;;=7,28^13^7,14
139 ;;^DIST(.404,.10011,40,6,0)
140 ;;=8^USER #^3
141 ;;^DIST(.404,.10011,40,6,1)
142 ;;=5
143 ;;^DIST(.404,.10011,40,6,2)
144 ;;=8,28^9^8,20
145 ;;^DIST(.404,.10011,40,7,0)
146 ;;=9^DESCRIPTION...^3
147 ;;^DIST(.404,.10011,40,7,1)
148 ;;=10
149 ;;^DIST(.404,.10011,40,7,2)
150 ;;=10,28^1^10,13^1
151 ;;^DIST(.404,.10011,40,8,0)
152 ;;=11^SUB-HEADER SUPPRESSED^3
153 ;;^DIST(.404,.10011,40,8,1)
154 ;;=707
155 ;;^DIST(.404,.10011,40,8,2)
156 ;;=14,28^3^14,5
157 ;;^DIST(.404,.10011,40,10,0)
158 ;;=2^TEMPLATE TYPE^3
159 ;;^DIST(.404,.10011,40,10,1)
160 ;;=8
161 ;;^DIST(.404,.10011,40,10,2)
162 ;;=1,71^9^1,56
163 ;;^DIST(.404,.10011,40,10,4)
164 ;;=^^^1
165 ;;^DIST(.404,.10011,40,12,0)
166 ;;=10^HEADER^2
167 ;;^DIST(.404,.10011,40,12,2)
168 ;;=13,4^76^12,4
169 ;;^DIST(.404,.10011,40,12,3)
170 ;;=!M
171 ;;^DIST(.404,.10011,40,12,3.1)
172 ;;=S Y=$G(^DIPT(DA,"H"))
173 ;;^DIST(.404,.10011,40,12,20)
174 ;;=F^^F
175 ;;^DIST(.404,.10011,40,12,22)
176 ;;=I '$$DHD^DIP3(X,+$P($G(^DIPT(DA,0)),U,4),0) K X
177 ;;^DIST(.404,.10011,40,12,23)
178 ;;=S ^DIPT(DA,"H")=$S(DDSEXT="":"@",1:DDSEXT)
179 ;;^DIST(.404,.10011,40,13,0)
180 ;;=5^^4
181 ;;^DIST(.404,.10011,40,13,2)
182 ;;=2,20^44
183 ;;^DIST(.404,.10011,40,13,30)
184 ;;=S Y=$G(^DIPT(DA,"ROU")),Y=$S(Y]"":"(Compiled as '"_Y_"' routine)",1:"(Not Compiled)")
185 ;;^DIST(.404,.10011,40,14,0)
186 ;;=12^(Print Fields on Next Page...)^1^^EDIT FIELD
187 ;;^DIST(.404,.10011,40,14,2)
188 ;;=^^16,20
189 ;;^DIST(.404,.10012,0)
190 ;;=DIPTED2^.4
191 ;;^DIST(.404,.10012,11)
192 ;;=D EDIT^DIPTED(DA)
193 ;;^DIST(.404,.10012,40,0)
194 ;;=^.4044I^1^1
195 ;;^DIST(.404,.10012,40,1,0)
196 ;;=1^ ^1
197 ;;^DIST(.404,.10012,40,1,2)
198 ;;=^^1,1
199 ;;^DIST(.404,.110101,0)
200 ;;=DIKC EDIT MAIN^.11
201 ;;^DIST(.404,.110101,40,0)
202 ;;=^.4044I^14^11
203 ;;^DIST(.404,.110101,40,1,0)
204 ;;=1^File^3
205 ;;^DIST(.404,.110101,40,1,1)
206 ;;=.01
207 ;;^DIST(.404,.110101,40,1,2)
208 ;;=1,15^20^1,9
209 ;;^DIST(.404,.110101,40,1,13)
210 ;;=D BLDLOG^DIKCFORM(DA)
211 ;;^DIST(.404,.110101,40,1,14)
212 ;;=D VALFILE^DIKCFORM
213 ;;^DIST(.404,.110101,40,2,0)
214 ;;=3^Index Name^3
215 ;;^DIST(.404,.110101,40,2,1)
216 ;;=.02
217 ;;^DIST(.404,.110101,40,2,2)
218 ;;=2,15^30^2,3
219 ;;^DIST(.404,.110101,40,2,13)
220 ;;=D NAMECHG^DIKCFORM
221 ;;^DIST(.404,.110101,40,2,14)
222 ;;=D NAMEVAL^DIKCFORM
223 ;;^DIST(.404,.110101,40,3,0)
224 ;;=5^Short Description^3
225 ;;^DIST(.404,.110101,40,3,1)
226 ;;=.11
227 ;;^DIST(.404,.110101,40,3,2)
228 ;;=4,20^60^4,1
229 ;;^DIST(.404,.110101,40,4,0)
230 ;;=6^Description (wp)^3
231 ;;^DIST(.404,.110101,40,4,1)
232 ;;=.1
233 ;;^DIST(.404,.110101,40,4,2)
234 ;;=5,20^1^5,2
235 ;;^DIST(.404,.110101,40,5,0)
236 ;;=8^Type^3
237 ;;^DIST(.404,.110101,40,5,1)
238 ;;=.2
239 ;;^DIST(.404,.110101,40,5,2)
240 ;;=7,15^8^7,9
241 ;;^DIST(.404,.110101,40,5,13)
242 ;;=D TYPECHG^DIKCFORM
243 ;;^DIST(.404,.110101,40,5,14)
244 ;;=D TYPEVAL^DIKCFORM
245 ;;^DIST(.404,.110101,40,7,0)
246 ;;=10^Execution^3
247 ;;^DIST(.404,.110101,40,7,1)
248 ;;=.4
249 ;;^DIST(.404,.110101,40,7,2)
250 ;;=10,15^6^10,4
251 ;;^DIST(.404,.110101,40,8,0)
252 ;;=9^Activity^3
253 ;;^DIST(.404,.110101,40,8,1)
254 ;;=.41
255 ;;^DIST(.404,.110101,40,8,2)
256 ;;=9,15^5^9,5
257 ;;^DIST(.404,.110101,40,9,0)
258 ;;=11^Use^3
259 ;;^DIST(.404,.110101,40,9,1)
260 ;;=.42
261 ;;^DIST(.404,.110101,40,9,2)
262 ;;=12,15^16^12,10
263 ;;^DIST(.404,.110101,40,9,14)
264 ;;=D USEVAL^DIKCFORM
Note: See TracBrowser for help on using the repository browser.