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

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

initial load of WorldVistAEHR
File size: 6.6 KB
RevLine 
[613]1DINIT0FC ;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="" ^DINIT0FD S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.11023,40,3,1)
8 ;;=6
9 ;;^DIST(.404,.11023,40,3,2)
10 ;;=1,20^3
11 ;;^DIST(.404,.11023,40,3,13)
12 ;;=D BLDLOG^DIKCFORM(DA(1))
13 ;;^DIST(.404,.11023,40,4,0)
14 ;;=4^^4^^FIELD DISPLAY
15 ;;^DIST(.404,.11023,40,4,2)
16 ;;=1,27^43
17 ;;^DIST(.404,.11023,40,4,30)
18 ;;=N DIKCFIL,DIKCFLD S DIKCFIL={FILE},DIKCFLD={FIELD} S Y="["_DIKCFIL_","_DIKCFLD_"] "_$P($G(^DD(+DIKCFIL,+DIKCFLD,0)),U)
19 ;;^DIST(.404,.11024,0)
20 ;;=DIKC EDIT UI CRV HDR^.11
21 ;;^DIST(.404,.11024,40,0)
22 ;;=^.4044I^8^8
23 ;;^DIST(.404,.11024,40,1,0)
24 ;;=1^Order...^1
25 ;;^DIST(.404,.11024,40,1,2)
26 ;;=^^1,2
27 ;;^DIST(.404,.11024,40,2,0)
28 ;;=2^Subscr^1
29 ;;^DIST(.404,.11024,40,2,2)
30 ;;=^^1,12
31 ;;^DIST(.404,.11024,40,3,0)
32 ;;=3^Length^1
33 ;;^DIST(.404,.11024,40,3,2)
34 ;;=^^1,20
35 ;;^DIST(.404,.11024,40,4,0)
36 ;;=4^[File,Field] Field Name^1
37 ;;^DIST(.404,.11024,40,4,2)
38 ;;=^^1,28
39 ;;^DIST(.404,.11024,40,5,0)
40 ;;=5^--------^1
41 ;;^DIST(.404,.11024,40,5,2)
42 ;;=^^2,2
43 ;;^DIST(.404,.11024,40,6,0)
44 ;;=6^------^1
45 ;;^DIST(.404,.11024,40,6,2)
46 ;;=^^2,12
47 ;;^DIST(.404,.11024,40,7,0)
48 ;;=7^------^1
49 ;;^DIST(.404,.11024,40,7,2)
50 ;;=^^2,20
51 ;;^DIST(.404,.11024,40,8,0)
52 ;;=8^-----------------------^1
53 ;;^DIST(.404,.11024,40,8,2)
54 ;;=^^2,28
55 ;;^DIST(.404,.11025,0)
56 ;;=DIKC EDIT UI FIELD CRV^.114
57 ;;^DIST(.404,.11025,11)
58 ;;=K DIKCCRV
59 ;;^DIST(.404,.11025,12)
60 ;;=I $D(DIKCCRV) D BLDLOG^DIKCFORM(DA(1)) K DIKCCRV
61 ;;^DIST(.404,.11025,40,0)
62 ;;=^.4044I^9^9
63 ;;^DIST(.404,.11025,40,1,0)
64 ;;=1^ Field-Type Cross Reference Value ^1
65 ;;^DIST(.404,.11025,40,1,2)
66 ;;=^^1,23
67 ;;^DIST(.404,.11025,40,2,0)
68 ;;=2^Order Number^3
69 ;;^DIST(.404,.11025,40,2,1)
70 ;;=.01
71 ;;^DIST(.404,.11025,40,2,2)
72 ;;=3,18^3^3,4
73 ;;^DIST(.404,.11025,40,2,4)
74 ;;=^^^1
75 ;;^DIST(.404,.11025,40,3,0)
76 ;;=3^Subscript Number^3
77 ;;^DIST(.404,.11025,40,3,1)
78 ;;=.5
79 ;;^DIST(.404,.11025,40,3,2)
80 ;;=3,58^3^3,40
81 ;;^DIST(.404,.11025,40,3,4)
82 ;;=^^^1
83 ;;^DIST(.404,.11025,40,4,0)
84 ;;=4^Field^3^^FIELD
85 ;;^DIST(.404,.11025,40,4,1)
86 ;;=3
87 ;;^DIST(.404,.11025,40,4,2)
88 ;;=4,18^20^4,11
89 ;;^DIST(.404,.11025,40,4,4)
90 ;;=^^^1
91 ;;^DIST(.404,.11025,40,5,0)
92 ;;=5^File^3
93 ;;^DIST(.404,.11025,40,5,1)
94 ;;=2
95 ;;^DIST(.404,.11025,40,5,2)
96 ;;=4,58^20^4,52
97 ;;^DIST(.404,.11025,40,5,4)
98 ;;=^^^1
99 ;;^DIST(.404,.11025,40,6,0)
100 ;;=6^Field Name^4
101 ;;^DIST(.404,.11025,40,6,2)
102 ;;=5,18^60^5,6
103 ;;^DIST(.404,.11025,40,6,30)
104 ;;=N DIKCFIL,DIKCFLD S Y="",DIKCFIL=+{FILE},DIKCFLD=+{FIELD} I DIKCFIL,DIKCFLD S Y=$P($G(^DD(DIKCFIL,DIKCFLD,0)),U) S:$L(Y)>60 Y=$E(Y,1,57)_"..."
105 ;;^DIST(.404,.11025,40,7,0)
106 ;;=7^Maximum Length^3
107 ;;^DIST(.404,.11025,40,7,1)
108 ;;=6
109 ;;^DIST(.404,.11025,40,7,2)
110 ;;=7,18^3^7,2
111 ;;^DIST(.404,.11025,40,7,13)
112 ;;=S DIKCCRV=1
113 ;;^DIST(.404,.11025,40,8,0)
114 ;;=8^Collation^3
115 ;;^DIST(.404,.11025,40,8,1)
116 ;;=7
117 ;;^DIST(.404,.11025,40,8,2)
118 ;;=7,58^9^7,47
119 ;;^DIST(.404,.11025,40,9,0)
120 ;;=9^Lookup Prompt^3
121 ;;^DIST(.404,.11025,40,9,1)
122 ;;=8
123 ;;^DIST(.404,.11025,40,9,2)
124 ;;=8,18^30^8,3
125 ;;^DIST(.404,.310101,0)
126 ;;=DIKK EDIT HDR^.31
127 ;;^DIST(.404,.310101,40,0)
128 ;;=^.4044I^4^4
129 ;;^DIST(.404,.310101,40,1,0)
130 ;;=1^Number^4
131 ;;^DIST(.404,.310101,40,1,2)
132 ;;=1,9^16^1,1
133 ;;^DIST(.404,.310101,40,1,30)
134 ;;=S Y=DA
135 ;;^DIST(.404,.310101,40,2,0)
136 ;;=2^EDIT A KEY^1
137 ;;^DIST(.404,.310101,40,2,2)
138 ;;=^^1,36
139 ;;^DIST(.404,.310101,40,3,0)
140 ;;=3^Page 1 of 1^1
141 ;;^DIST(.404,.310101,40,3,2)
142 ;;=^^1,69
143 ;;^DIST(.404,.310101,40,4,0)
144 ;;=4^-------------------------------------------------------------------------------^1
145 ;;^DIST(.404,.310101,40,4,2)
146 ;;=^^2,1
147 ;;^DIST(.404,.310102,0)
148 ;;=DIKK EDIT MAIN^.31
149 ;;^DIST(.404,.310102,40,0)
150 ;;=^.4044I^3^3
151 ;;^DIST(.404,.310102,40,1,0)
152 ;;=1^File^3
153 ;;^DIST(.404,.310102,40,1,1)
154 ;;=.01
155 ;;^DIST(.404,.310102,40,1,2)
156 ;;=1,9^20^1,3
157 ;;^DIST(.404,.310102,40,1,4)
158 ;;=^^^2
159 ;;^DIST(.404,.310102,40,2,0)
160 ;;=2^Name^3
161 ;;^DIST(.404,.310102,40,2,1)
162 ;;=.02
163 ;;^DIST(.404,.310102,40,2,2)
164 ;;=1,39^1^1,33
165 ;;^DIST(.404,.310102,40,2,13)
166 ;;=D NAMEPAC^DIKKFORM
167 ;;^DIST(.404,.310102,40,3,0)
168 ;;=3^Priority^3
169 ;;^DIST(.404,.310102,40,3,1)
170 ;;=1
171 ;;^DIST(.404,.310102,40,3,2)
172 ;;=1,71^9^1,61
173 ;;^DIST(.404,.310102,40,3,14)
174 ;;=D PRIOVAL^DIKKFORM
175 ;;^DIST(.404,.310103,0)
176 ;;=DIKK EDIT FIELD HDR^.31
177 ;;^DIST(.404,.310103,40,0)
178 ;;=^.4044I^10^10
179 ;;^DIST(.404,.310103,40,1,0)
180 ;;=1^KEY FIELDS:^1
181 ;;^DIST(.404,.310103,40,1,2)
182 ;;=^^1,1
183 ;;^DIST(.404,.310103,40,2,0)
184 ;;=2^==========^1
185 ;;^DIST(.404,.310103,40,2,2)
186 ;;=^^2,1
187 ;;^DIST(.404,.310103,40,3,0)
188 ;;=3^Field^1
189 ;;^DIST(.404,.310103,40,3,2)
190 ;;=^^3,1
191 ;;^DIST(.404,.310103,40,4,0)
192 ;;=4^Seq No.^1
193 ;;^DIST(.404,.310103,40,4,2)
194 ;;=^^3,22
195 ;;^DIST(.404,.310103,40,5,0)
196 ;;=5^File^1
197 ;;^DIST(.404,.310103,40,5,2)
198 ;;=^^3,31
199 ;;^DIST(.404,.310103,40,6,0)
200 ;;=6^Field Name^1
201 ;;^DIST(.404,.310103,40,6,2)
202 ;;=^^3,53
203 ;;^DIST(.404,.310103,40,7,0)
204 ;;=7^-----^1
205 ;;^DIST(.404,.310103,40,7,2)
206 ;;=^^4,1
207 ;;^DIST(.404,.310103,40,8,0)
208 ;;=8^-------^1
209 ;;^DIST(.404,.310103,40,8,2)
210 ;;=^^4,22
211 ;;^DIST(.404,.310103,40,9,0)
212 ;;=9^----^1
213 ;;^DIST(.404,.310103,40,9,2)
214 ;;=^^4,31
215 ;;^DIST(.404,.310103,40,10,0)
216 ;;=10^----------^1
217 ;;^DIST(.404,.310103,40,10,2)
218 ;;=^^4,53
219 ;;^DIST(.404,.310104,0)
220 ;;=DIKK EDIT FIELD^.312
221 ;;^DIST(.404,.310104,40,0)
222 ;;=^.4044I^4^4
223 ;;^DIST(.404,.310104,40,1,0)
224 ;;=1^^3
225 ;;^DIST(.404,.310104,40,1,1)
226 ;;=.01
227 ;;^DIST(.404,.310104,40,1,2)
228 ;;=1,1^20
229 ;;^DIST(.404,.310104,40,2,0)
230 ;;=2^^3
231 ;;^DIST(.404,.310104,40,2,1)
232 ;;=1
233 ;;^DIST(.404,.310104,40,2,2)
234 ;;=1,24^3
235 ;;^DIST(.404,.310104,40,3,0)
236 ;;=3^^3
237 ;;^DIST(.404,.310104,40,3,1)
238 ;;=.02
239 ;;^DIST(.404,.310104,40,3,2)
240 ;;=1,31^20
241 ;;^DIST(.404,.310104,40,3,3)
242 ;;=!M
243 ;;^DIST(.404,.310104,40,3,3.1)
244 ;;=S Y=$$GET^DDSVAL(.31,DA(1),.01)
245 ;;^DIST(.404,.310104,40,3,4)
246 ;;=^^^1
247 ;;^DIST(.404,.310104,40,4,0)
248 ;;=4^^4
249 ;;^DIST(.404,.310104,40,4,2)
250 ;;=1,53^25
251 ;;^DIST(.404,.310104,40,4,30)
252 ;;==$P($G(^DD({FILE},{FIELD},0)),U)
253 ;;^DIST(.404,.310105,0)
254 ;;=DIKK EDIT UI IDENTIFIER^.11
255 ;;^DIST(.404,.310105,40,0)
256 ;;=^.4044I^2^2
257 ;;^DIST(.404,.310105,40,1,0)
258 ;;=1^^3
259 ;;^DIST(.404,.310105,40,1,1)
260 ;;=.02
261 ;;^DIST(.404,.310105,40,1,2)
262 ;;=1,44^30
263 ;;^DIST(.404,.310105,40,2,0)
264 ;;=2^^3
265 ;;^DIST(.404,.310105,40,2,1)
266 ;;=.11
267 ;;^DIST(.404,.310105,40,2,2)
268 ;;=2,19^61
269 ;;^DIST(.404,.310106,0)
270 ;;=DIKK EDIT UNIQUENESS INDEX^.31
271 ;;^DIST(.404,.310106,11)
272 ;;=D:$$GET^DDSVAL(.31,DA,3)="" UNED^DDSUTL("DETAILS","","",1)
273 ;;^DIST(.404,.310106,40,0)
274 ;;=^.4044I^2^2
275 ;;^DIST(.404,.310106,40,1,0)
276 ;;=1^Uniqueness Index^3
277 ;;^DIST(.404,.310106,40,1,1)
278 ;;=3
279 ;;^DIST(.404,.310106,40,1,2)
280 ;;=1,19^20^1,1
Note: See TracBrowser for help on using the repository browser.