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

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

initial load of WorldVistAEHR
File size: 7.2 KB
RevLine 
[613]1DINIT0F8 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;04:54 PM 17 Dec 2002
2 ;;22.0;VA FileMan;**8,42,76,118**;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="" ^DINIT0F9 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.00109,40,24,3)
8 ;;=!M
9 ;;^DIST(.404,.00109,40,24,3.1)
10 ;;=D Y^DICATTD3(12,2)
11 ;;^DIST(.404,.00109,40,24,20)
12 ;;=F^^1:70
13 ;;^DIST(.404,.00109,40,24,22)
14 ;;=D C^DICATTD3
15 ;;^DIST(.404,.00109,40,25,0)
16 ;;=59^CODE^2^^CODE13
17 ;;^DIST(.404,.00109,40,25,2)
18 ;;=14,8^4^14,2
19 ;;^DIST(.404,.00109,40,25,3)
20 ;;=!M
21 ;;^DIST(.404,.00109,40,25,3.1)
22 ;;=D Y^DICATTD3(13,1)
23 ;;^DIST(.404,.00109,40,25,20)
24 ;;=F^^1:20
25 ;;^DIST(.404,.00109,40,25,22)
26 ;;=D C^DICATTD3
27 ;;^DIST(.404,.00109,40,26,0)
28 ;;=60^WILL STAND FOR^2^^MEANS13
29 ;;^DIST(.404,.00109,40,26,2)
30 ;;=14,30^30^14,14
31 ;;^DIST(.404,.00109,40,26,3)
32 ;;=!M
33 ;;^DIST(.404,.00109,40,26,3.1)
34 ;;=D Y^DICATTD3(13,2)
35 ;;^DIST(.404,.00109,40,26,20)
36 ;;=F^^1:70
37 ;;^DIST(.404,.00109,40,26,22)
38 ;;=D C^DICATTD3
39 ;;^DIST(.404,.0011,0)
40 ;;=DICATTW1^1
41 ;;^DIST(.404,.0011,40,0)
42 ;;=^.4044I^1^1
43 ;;^DIST(.404,.0011,40,1,0)
44 ;;=1^ ^2
45 ;;^DIST(.404,.0011,40,1,2)
46 ;;=1,4^1^1,1^1
47 ;;^DIST(.404,.0011,40,1,11)
48 ;;=S DDACT="CL"
49 ;;^DIST(.404,.0011,40,1,20)
50 ;;=F
51 ;;^DIST(.404,.00111,0)
52 ;;=DICATTW2^1
53 ;;^DIST(.404,.00111,11)
54 ;;=D WORD^DICATTD0(23)
55 ;;^DIST(.404,.00111,40,0)
56 ;;=^.4044I^1^1
57 ;;^DIST(.404,.00111,40,1,0)
58 ;;=1^ ^1
59 ;;^DIST(.404,.00111,40,1,2)
60 ;;=1,4^1^1,1^1
61 ;;^DIST(.404,.00111,40,1,11)
62 ;;=S DDACT="CL"
63 ;;^DIST(.404,.00111,40,1,20)
64 ;;=F
65 ;;^DIST(.404,.00112,0)
66 ;;=DICATTM^1
67 ;;^DIST(.404,.00112,40,0)
68 ;;=^.4044I^3^2
69 ;;^DIST(.404,.00112,40,2,0)
70 ;;=16^SUBSCRIPT^2^^SUBSCRIPT
71 ;;^DIST(.404,.00112,40,2,2)
72 ;;=1,18^33^1,7
73 ;;^DIST(.404,.00112,40,2,3)
74 ;;=!M
75 ;;^DIST(.404,.00112,40,2,3.1)
76 ;;=D SUBDEF^DICATTDM
77 ;;^DIST(.404,.00112,40,2,4)
78 ;;=1
79 ;;^DIST(.404,.00112,40,2,11)
80 ;;=D SUBHELP^DICATTDM
81 ;;^DIST(.404,.00112,40,2,14)
82 ;;=N % S %=$$CHKSUB^DICATTDM(X) I '% S DDSERROR=1 D HLP^DDSUTL(%)
83 ;;^DIST(.404,.00112,40,2,20)
84 ;;=F^^1:33
85 ;;^DIST(.404,.00112,40,2,22)
86 ;;=K:X?1P.E!(X[" ")!(X[",")!(X[":")!(X[";")!(X["""")!(X["=") X
87 ;;^DIST(.404,.00112,40,3,0)
88 ;;=17^PIECE-POSITION^2^^PIECE
89 ;;^DIST(.404,.00112,40,3,2)
90 ;;=2,18^8^2,2
91 ;;^DIST(.404,.00112,40,3,3)
92 ;;=!M
93 ;;^DIST(.404,.00112,40,3,3.1)
94 ;;=D PIECDEF^DICATTDM
95 ;;^DIST(.404,.00112,40,3,4)
96 ;;=1
97 ;;^DIST(.404,.00112,40,3,11)
98 ;;=D PIECHELP^DICATTDM
99 ;;^DIST(.404,.00112,40,3,20)
100 ;;=F^^1:8
101 ;;^DIST(.404,.00112,40,3,14)
102 ;;=N % S %=$$CHKPIEC^DICATTDM(X) I '% S DDSERROR=1 D HLP^DDSUTL(%)
103 ;;^DIST(.404,.00113,0)
104 ;;=DICATT9^1
105 ;;^DIST(.404,.00113,40,0)
106 ;;=^.4044I^3^3
107 ;;^DIST(.404,.00113,40,1,0)
108 ;;=99^ARE YOU SURE YOU WANT TO DELETE THE ENTIRE FIELD^2^^DELETING
109 ;;^DIST(.404,.00113,40,1,2)
110 ;;=3,53^3^3,3
111 ;;^DIST(.404,.00113,40,1,3)
112 ;;=!M
113 ;;^DIST(.404,.00113,40,1,3.1)
114 ;;=S Y="N"
115 ;;^DIST(.404,.00113,40,1,12)
116 ;;=D POST9^DICATTDK
117 ;;^DIST(.404,.00113,40,1,20)
118 ;;=Y
119 ;;^DIST(.404,.00113,40,2,0)
120 ;;=99.1^*****************************************************^1
121 ;;^DIST(.404,.00113,40,2,2)
122 ;;=^^2,3
123 ;;^DIST(.404,.00113,40,3,0)
124 ;;=99.2^*****************************************************^1
125 ;;^DIST(.404,.00113,40,3,2)
126 ;;=^^4,3
127 ;;^DIST(.404,.00114,0)
128 ;;=DICATTS^1
129 ;;^DIST(.404,.00114,40,0)
130 ;;=^.4044I^2^2
131 ;;^DIST(.404,.00114,40,1,0)
132 ;;=76^SUBSCRIPT^2^^MUL SUBSCRIPT
133 ;;^DIST(.404,.00114,40,1,2)
134 ;;=2,26^33^2,15
135 ;;^DIST(.404,.00114,40,1,3)
136 ;;=!M
137 ;;^DIST(.404,.00114,40,1,3.1)
138 ;;=S Y="" I DICATT4="" F Y=+$O(^DD(DICATTA,"GL","A"),-1):1 Q:'$D(^(Y))
139 ;;^DIST(.404,.00114,40,1,4)
140 ;;=1
141 ;;^DIST(.404,.00114,40,1,11)
142 ;;=D SUBHELP^DICATTDM
143 ;;^DIST(.404,.00114,40,1,14)
144 ;;=N % S %=$$CHKSUB^DICATTDM(X) I '% S DDSERROR=1 D HLP^DDSUTL(%)
145 ;;^DIST(.404,.00114,40,1,20)
146 ;;=F^^1:33
147 ;;^DIST(.404,.00114,40,1,22)
148 ;;=K:X?1P.E!(X[",")!(X[":")!(X["""")!(X["=") X
149 ;;^DIST(.404,.00114,40,1,24)
150 ;;=D SUBHELP^DICATTDM
151 ;;^DIST(.404,.00114,40,2,0)
152 ;;=76.1^SUB-DICTIONARY NUMBER^2
153 ;;^DIST(.404,.00114,40,2,2)
154 ;;=3,26^22^3,3
155 ;;^DIST(.404,.00114,40,2,3)
156 ;;=!M
157 ;;^DIST(.404,.00114,40,2,3.1)
158 ;;=S Y="" I DICATT4=Y D SUBDIC^DICATTD5
159 ;;^DIST(.404,.00114,40,2,4)
160 ;;=1
161 ;;^DIST(.404,.00114,40,2,11)
162 ;;=D HLP^DDSUTL("^DD number must be between "_DICATTA_" and "_(DICATTA\1+1)_" and not already used")
163 ;;^DIST(.404,.00114,40,2,20)
164 ;;=N^^0:9999999999999:9
165 ;;^DIST(.404,.00114,40,2,22)
166 ;;=D CHKDIC^DICATTD5
167 ;;^DIST(.404,.00115,0)
168 ;;=DICATTVP^1
169 ;;^DIST(.404,.00115,40,0)
170 ;;=^.4044I^6^6
171 ;;^DIST(.404,.00115,40,1,0)
172 ;;=1^MESSAGE^2
173 ;;^DIST(.404,.00115,40,1,2)
174 ;;=2,10^28^2,1
175 ;;^DIST(.404,.00115,40,1,4)
176 ;;=0
177 ;;^DIST(.404,.00115,40,1,20)
178 ;;=F^^1:30
179 ;;^DIST(.404,.00115,40,2,0)
180 ;;=4^SCREEN^2
181 ;;^DIST(.404,.00115,40,2,2)
182 ;;=5,9^60^5,1
183 ;;^DIST(.404,.00115,40,2,10)
184 ;;=D UNED^DDSUTL(5,,,X="","")
185 ;;^DIST(.404,.00115,40,2,20)
186 ;;=DD^^.12,1
187 ;;^DIST(.404,.00115,40,2,21,0)
188 ;;=^^3^3^2981127
189 ;;^DIST(.404,.00115,40,2,21,1,0)
190 ;;=Enter (optionally) a MUMPS statement which begins with 'S DIC("S")=' and
191 ;;^DIST(.404,.00115,40,2,21,2,0)
192 ;;=contains code which sets $T to "1" for selectable Entries. Entry numbers
193 ;;^DIST(.404,.00115,40,2,21,3,0)
194 ;;=will be in the variable 'Y' when evaluation by DIC("S") takes place.
195 ;;^DIST(.404,.00115,40,3,0)
196 ;;=3^SHOULD USER BE ALLOWED TO ADD A NEW ENTRY^2
197 ;;^DIST(.404,.00115,40,3,2)
198 ;;=4,44^3^4,1
199 ;;^DIST(.404,.00115,40,3,20)
200 ;;=S^^y:YES;n:NO
201 ;;^DIST(.404,.00115,40,4,0)
202 ;;=5^EXPLANATION OF SCREEN^2
203 ;;^DIST(.404,.00115,40,4,2)
204 ;;=6,24^45^6,1
205 ;;^DIST(.404,.00115,40,4,20)
206 ;;=F^^1:240
207 ;;^DIST(.404,.00115,40,5,0)
208 ;;=2^PREFIX^2
209 ;;^DIST(.404,.00115,40,5,2)
210 ;;=3,9^10^3,1
211 ;;^DIST(.404,.00115,40,5,4)
212 ;;=0
213 ;;^DIST(.404,.00115,40,5,20)
214 ;;=F^^1:10
215 ;;^DIST(.404,.00115,40,5,22)
216 ;;=I X["." K X
217 ;;^DIST(.404,.00115,40,6,0)
218 ;;=.5^^4
219 ;;^DIST(.404,.00115,40,6,2)
220 ;;=1,20^30
221 ;;^DIST(.404,.00115,40,6,30)
222 ;;=S Y="VARIABLE-POINTER #"_$G(DICATTVP)
223 ;;^DIST(.404,.00116,0)
224 ;;=DICATT MUL^1
225 ;;^DIST(.404,.00116,40,0)
226 ;;=^.4044I^7^7
227 ;;^DIST(.404,.00116,40,1,0)
228 ;;=1^MULTIPLE-FIELD LABEL^2^^MULTIPLE LABEL
229 ;;^DIST(.404,.00116,40,1,2)
230 ;;=3,23^30^3,1
231 ;;^DIST(.404,.00116,40,1,3)
232 ;;=!M
233 ;;^DIST(.404,.00116,40,1,3.1)
234 ;;=S Y=$P($G(^DD(DICATTA,DICATTF,0)),U)
235 ;;^DIST(.404,.00116,40,1,10)
236 ;;=I X="" S DDSSTACK=9
237 ;;^DIST(.404,.00116,40,1,20)
238 ;;=DD^^0,.01
239 ;;^DIST(.404,.00116,40,2,0)
240 ;;=5^READ ACCESS^2^^MULTIPLE READ ACCESS
241 ;;^DIST(.404,.00116,40,2,2)
242 ;;=4,23^13^4,10
243 ;;^DIST(.404,.00116,40,2,3)
244 ;;=!M
245 ;;^DIST(.404,.00116,40,2,3.1)
246 ;;=S Y=$G(^DD(DICATTA,DICATTF,8))
247 ;;^DIST(.404,.00116,40,2,11)
248 ;;=I $G(DICATTDK) S DDACT="EX"
249 ;;^DIST(.404,.00116,40,2,20)
250 ;;=DD^^0,8
251 ;;^DIST(.404,.00116,40,3,0)
252 ;;=7^WRITE ACCESS^2^^MULTIPLE WRITE ACCESS
253 ;;^DIST(.404,.00116,40,3,2)
254 ;;=5,23^13^5,9
255 ;;^DIST(.404,.00116,40,3,3)
256 ;;=!M
257 ;;^DIST(.404,.00116,40,3,3.1)
258 ;;=S Y=$G(^DD(DICATTA,DICATTF,9))
259 ;;^DIST(.404,.00116,40,3,20)
260 ;;=DD^^0,9
261 ;;^DIST(.404,.00116,40,4,0)
262 ;;=8^SOURCE^2^^MULTIPLE SOURCE
263 ;;^DIST(.404,.00116,40,6,0)
264 ;;=11^DESCRIPTION...^2
265 ;;^DIST(.404,.00116,40,6,2)
266 ;;=7,17^1^7,2^1
267 ;;^DIST(.404,.00116,40,6,10)
268 ;;=S DDSSTACK=1.1
269 ;;^DIST(.404,.00116,40,6,20)
270 ;;=F^^1:1
271 ;;^DIST(.404,.00116,40,7,0)
272 ;;=12^TECHNICAL DESCRIPTION...^2
273 ;;^DIST(.404,.00116,40,7,2)
274 ;;=7,49^1^7,24^1
275 ;;^DIST(.404,.00116,40,7,10)
276 ;;=S DDSSTACK=1.2
277 ;;^DIST(.404,.00116,40,7,20)
278 ;;=F^^1:1
Note: See TracBrowser for help on using the repository browser.