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

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

initial load of WorldVistAEHR
File size: 6.6 KB
Line 
1DINIT0F1 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;2:11 PM 11 Jan 2000
2 ;;22.0;VA FileMan;**20**;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="" ^DINIT0F2 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.403,.001,40,18,0)
8 ;;=8^^10,3^^^1^17,77
9 ;;^DIST(.403,.001,40,18,1)
10 ;;=Page 8
11 ;;^DIST(.403,.001,40,18,11)
12 ;;=D PRE8^DICATTD8
13 ;;^DIST(.403,.001,40,18,12)
14 ;;=D POST8^DICATTD8
15 ;;^DIST(.403,.001,40,18,40,0)
16 ;;=^.4032IP^.00115^1
17 ;;^DIST(.403,.001,40,18,40,.00115,0)
18 ;;=.00115^1^2,3^e
19 ;;^DIST(.403,.001,40,19,0)
20 ;;=10^^1,1
21 ;;^DIST(.403,.001,40,19,1)
22 ;;=Page 10
23 ;;^DIST(.403,.001,40,19,40,0)
24 ;;=^.4032IP^.00116^1
25 ;;^DIST(.403,.001,40,19,40,.00116,0)
26 ;;=.00116^1^1,1^e
27 ;;^DIST(.403,.001,40,20,0)
28 ;;=5^^14,1^^^1^17,78
29 ;;^DIST(.403,.001,40,20,1)
30 ;;=Page 5
31 ;;^DIST(.403,.001,40,20,12)
32 ;;=I DICATT4="",DUZ(0)="@" S DDSSTACK=4
33 ;;^DIST(.403,.001,40,20,40,0)
34 ;;=^.4032IP^.00117^1
35 ;;^DIST(.403,.001,40,20,40,.00117,0)
36 ;;=.00117^1^1,1^e
37 ;;^DIST(.403,.001,40,21,0)
38 ;;=6^^7,3^^^1^13,77
39 ;;^DIST(.403,.001,40,21,1)
40 ;;=Page 6
41 ;;^DIST(.403,.001,40,21,40,0)
42 ;;=^.4032IP^.00118^1
43 ;;^DIST(.403,.001,40,21,40,.00118,0)
44 ;;=.00118^1^1,1^e
45 ;;^DIST(.403,.1001,0)
46 ;;=DIPTED^@^^^2980611.1708^2990303.0831^^.4^0^0^1
47 ;;^DIST(.403,.1001,14)
48 ;;=D SAVEFLDS^DIPTED(DA)
49 ;;^DIST(.403,.1001,40,0)
50 ;;=^.4031I^2^2
51 ;;^DIST(.403,.1001,40,1,0)
52 ;;=1^^1,1^2
53 ;;^DIST(.403,.1001,40,1,1)
54 ;;=Page 1
55 ;;^DIST(.403,.1001,40,1,40,0)
56 ;;=^.4032IP^.10011^1
57 ;;^DIST(.403,.1001,40,1,40,.10011,0)
58 ;;=.10011^1^1,1^e
59 ;;^DIST(.403,.1001,40,2,0)
60 ;;=2^^1,1^^1
61 ;;^DIST(.403,.1001,40,2,1)
62 ;;=Page 2
63 ;;^DIST(.403,.1001,40,2,40,0)
64 ;;=^.4032IP^.10012^1
65 ;;^DIST(.403,.1001,40,2,40,.10012,0)
66 ;;=.10012^1^1,1^e
67 ;;^DIST(.403,.1101,0)
68 ;;=DIKC EDIT^^^^2970612.1058^3000110.1335^^.11^0^0^1
69 ;;^DIST(.403,.1101,14)
70 ;;=D POSTSV^DIKCFORM
71 ;;^DIST(.403,.1101,20)
72 ;;=D FORMDV^DIKCFORM
73 ;;^DIST(.403,.1101,40,0)
74 ;;=^.4031I^2^4
75 ;;^DIST(.403,.1101,40,1,0)
76 ;;=1^^1,1^2^2
77 ;;^DIST(.403,.1101,40,1,1)
78 ;;=Page 1
79 ;;^DIST(.403,.1101,40,1,40,0)
80 ;;=^.4032IP^.110101^2
81 ;;^DIST(.403,.1101,40,1,40,.110101,0)
82 ;;=.110101^2^4,1^e
83 ;;^DIST(.403,.1101,40,1,40,.110102,0)
84 ;;=.110102^1^1,1^d
85 ;;^DIST(.403,.1101,40,2,0)
86 ;;=2^^1,1^1^1
87 ;;^DIST(.403,.1101,40,2,1)
88 ;;=Page 2
89 ;;^DIST(.403,.1101,40,2,40,0)
90 ;;=^.4032IP^.110103^4
91 ;;^DIST(.403,.1101,40,2,40,.110103,0)
92 ;;=.110103^4^10,1^e
93 ;;^DIST(.403,.1101,40,2,40,.110104,0)
94 ;;=.110104^3^6,2^e
95 ;;^DIST(.403,.1101,40,2,40,.110104,2)
96 ;;=5^^f
97 ;;^DIST(.403,.1101,40,2,40,.110105,0)
98 ;;=.110105^2^3,1^d
99 ;;^DIST(.403,.1101,40,2,40,.110106,0)
100 ;;=.110106^1^1,1^d
101 ;;^DIST(.403,.1101,40,3,0)
102 ;;=2.1^^6,1^^^1^17,79
103 ;;^DIST(.403,.1101,40,3,1)
104 ;;=Page 2.1
105 ;;^DIST(.403,.1101,40,3,11)
106 ;;=S DIKCPG21=1
107 ;;^DIST(.403,.1101,40,3,12)
108 ;;=K DIKCPG21
109 ;;^DIST(.403,.1101,40,3,40,0)
110 ;;=^.4032IP^.110107^1
111 ;;^DIST(.403,.1101,40,3,40,.110107,0)
112 ;;=.110107^1^1,1^e
113 ;;^DIST(.403,.1101,40,3,40,.110107,11)
114 ;;=K DIKCCRV D BKPRE21^DIKCFORM
115 ;;^DIST(.403,.1101,40,3,40,.110107,12)
116 ;;=I $D(DIKCCRV)#2 D BLDLOG^DIKCFORM(DA(1)) K DIKCCRV
117 ;;^DIST(.403,.1101,40,4,0)
118 ;;=2.2^^10,1^^^1^17,79
119 ;;^DIST(.403,.1101,40,4,1)
120 ;;=Page 2.2
121 ;;^DIST(.403,.1101,40,4,40,0)
122 ;;=^.4032IP^.110108^1
123 ;;^DIST(.403,.1101,40,4,40,.110108,0)
124 ;;=.110108^1^1,1^e
125 ;;^DIST(.403,.1101,40,4,40,.110108,11)
126 ;;=K DIKCCRV
127 ;;^DIST(.403,.1101,40,4,40,.110108,12)
128 ;;=I $D(DIKCCRV)#2 D BLDLOG^DIKCFORM(DA(1)) K DIKCCRV
129 ;;^DIST(.403,.1102,0)
130 ;;=DIKC EDIT UI^^^^2970612.1058^2981229.1134^^.11^0^0^1
131 ;;^DIST(.403,.1102,14)
132 ;;=D POSTSV^DIKCFORM
133 ;;^DIST(.403,.1102,40,0)
134 ;;=^.4031I^2^2
135 ;;^DIST(.403,.1102,40,1,0)
136 ;;=1^^1,1
137 ;;^DIST(.403,.1102,40,1,1)
138 ;;=Page 1
139 ;;^DIST(.403,.1102,40,1,40,0)
140 ;;=^.4032IP^.11021^2
141 ;;^DIST(.403,.1102,40,1,40,.11021,0)
142 ;;=.11021^2^3,1^e
143 ;;^DIST(.403,.1102,40,1,40,.11022,0)
144 ;;=.11022^1^1,1^d
145 ;;^DIST(.403,.1102,40,1,40,.11023,0)
146 ;;=.11023^4^11,3^e
147 ;;^DIST(.403,.1102,40,1,40,.11023,2)
148 ;;=4^^f^1
149 ;;^DIST(.403,.1102,40,1,40,.11024,0)
150 ;;=.11024^3^9,2^e
151 ;;^DIST(.403,.1102,40,2,0)
152 ;;=1.1^^7,1^^^1^15,79
153 ;;^DIST(.403,.1102,40,2,1)
154 ;;=Page 1.1^ORDER,4,1
155 ;;^DIST(.403,.1102,40,2,40,0)
156 ;;=^.4032IP^.11025^1
157 ;;^DIST(.403,.1102,40,2,40,.11025,0)
158 ;;=.11025^1^1,1^e
159 ;;^DIST(.403,.3101,0)
160 ;;=DIKK EDIT^^^^2970721.144^2990311.1203^^.31^0^0^1
161 ;;^DIST(.403,.3101,20)
162 ;;=D FORMDV^DIKKFORM
163 ;;^DIST(.403,.3101,40,0)
164 ;;=^.4031I^3^3
165 ;;^DIST(.403,.3101,40,1,0)
166 ;;=1^^1,1^2
167 ;;^DIST(.403,.3101,40,1,1)
168 ;;=Page 1
169 ;;^DIST(.403,.3101,40,1,40,0)
170 ;;=^.4032IP^.310101^6
171 ;;^DIST(.403,.3101,40,1,40,.310101,0)
172 ;;=.310101^1^1,1^d
173 ;;^DIST(.403,.3101,40,1,40,.310102,0)
174 ;;=.310102^2^3,1^e
175 ;;^DIST(.403,.3101,40,1,40,.310103,0)
176 ;;=.310103^3^5,3^d
177 ;;^DIST(.403,.3101,40,1,40,.310104,0)
178 ;;=.310104^4^9,3^e
179 ;;^DIST(.403,.3101,40,1,40,.310104,2)
180 ;;=5
181 ;;^DIST(.403,.3101,40,1,40,.310105,0)
182 ;;=.310105^5^15,1^d
183 ;;^DIST(.403,.3101,40,1,40,.310105,1)
184 ;;=UNIQUENESS INDEX
185 ;;^DIST(.403,.3101,40,1,40,.310106,0)
186 ;;=.310106^6^15,1^e
187 ;;^DIST(.403,.3101,40,2,0)
188 ;;=1.1^^1,1^^^1^17,79
189 ;;^DIST(.403,.3101,40,2,1)
190 ;;=Page 1.1^DETAILS,DIKK EDIT UNIQUENESS INDEX,1
191 ;;^DIST(.403,.3101,40,2,40,0)
192 ;;=^.4032IP^.310107^4
193 ;;^DIST(.403,.3101,40,2,40,.310107,0)
194 ;;=.310107^1^1,1^d
195 ;;^DIST(.403,.3101,40,2,40,.310107,1)
196 ;;=UNIQUENESS INDEX
197 ;;^DIST(.403,.3101,40,2,40,.310108,0)
198 ;;=.310108^2^2,3^e
199 ;;^DIST(.403,.3101,40,2,40,.310108,1)
200 ;;=UNIQUENESS INDEX
201 ;;^DIST(.403,.3101,40,2,40,.310109,0)
202 ;;=.310109^3^8,3^d
203 ;;^DIST(.403,.3101,40,2,40,.31011,0)
204 ;;=.31011^4^10,3^e
205 ;;^DIST(.403,.3101,40,2,40,.31011,1)
206 ;;=UNIQUENESS INDEX
207 ;;^DIST(.403,.3101,40,2,40,.31011,2)
208 ;;=4^^f^1
209 ;;^DIST(.403,.3101,40,3,0)
210 ;;=1.2^^8,2^^^1^16,78
211 ;;^DIST(.403,.3101,40,3,1)
212 ;;=Page 1.2^ORDER,DIKK EDIT UI FIELD REP,1.1
213 ;;^DIST(.403,.3101,40,3,40,0)
214 ;;=^.4032IP^.310111^1
215 ;;^DIST(.403,.3101,40,3,40,.310111,0)
216 ;;=.310111^1^1,1^e
217 ;;^DIST(.403,.3101,40,3,40,.310111,11)
218 ;;=K DIKKCRV
219 ;;^DIST(.403,.3101,40,3,40,.310111,12)
220 ;;=I $D(DIKKCRV) D BLDLOG^DIKCFORM(DA(1)) K DIKKCRV
221 ;;^DIST(.403,.40001,0)
222 ;;=DIBTED^@^^^2980904.1357^2990130.0900^^.401^0^0^1
223 ;;^DIST(.403,.40001,12)
224 ;;=D SAVEFLDS^DIBTED(DA)
225 ;;^DIST(.403,.40001,40,0)
226 ;;=^.4031I^2^2
227 ;;^DIST(.403,.40001,40,1,0)
228 ;;=1^^1,1^2
229 ;;^DIST(.403,.40001,40,1,1)
230 ;;=Page 1
231 ;;^DIST(.403,.40001,40,1,40,0)
232 ;;=^.4032IP^.400011^1
233 ;;^DIST(.403,.40001,40,1,40,.400011,0)
234 ;;=.400011^1^1,1^e
235 ;;^DIST(.403,.40001,40,2,0)
236 ;;=2^^1,1^^1
237 ;;^DIST(.403,.40001,40,2,1)
238 ;;=Page 2
239 ;;^DIST(.403,.40001,40,2,40,0)
240 ;;=^.4032IP^.400012^1
241 ;;^DIST(.403,.40001,40,2,40,.400012,0)
242 ;;=.400012^1^1,1^e
243 ;;^DIST(.403,.40101,0)
244 ;;=DIETED^@^^^2980801.074^2990303.0830^^.402^0^0^1
245 ;;^DIST(.403,.40101,14)
246 ;;=D SAVEFLDS^DIETED(DA)
247 ;;^DIST(.403,.40101,40,0)
248 ;;=^.4031I^2^2
Note: See TracBrowser for help on using the repository browser.