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

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

initial load of WorldVistAEHR
File size: 6.6 KB
RevLine 
[613]1DINIT0FD ;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="" ^DINIT0FE S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.310106,40,1,13)
8 ;;=D:X=""!(DDSOLD="") UNED^DDSUTL("DETAILS","","",$S(X="":1,1:0))
9 ;;^DIST(.404,.310106,40,1,14)
10 ;;=D UIVAL^DIKKFORM
11 ;;^DIST(.404,.310106,40,2,0)
12 ;;=2^Index Details...^2^^DETAILS
13 ;;^DIST(.404,.310106,40,2,2)
14 ;;=3,19^1^3,2^1
15 ;;^DIST(.404,.310106,40,2,20)
16 ;;=F^^0:0
17 ;;^DIST(.404,.310106,40,2,21,0)
18 ;;=^^1^1^2970722
19 ;;^DIST(.404,.310106,40,2,21,1,0)
20 ;;=Press <Return> to view the properties of the Uniqueness Index.
21 ;;^DIST(.404,.310107,0)
22 ;;=DIKK EDIT UI HDR^.11
23 ;;^DIST(.404,.310107,40,0)
24 ;;=^.4044I^1^1
25 ;;^DIST(.404,.310107,40,1,0)
26 ;;=1^ Uniqueness Index ^1
27 ;;^DIST(.404,.310107,40,1,2)
28 ;;=^^1,31
29 ;;^DIST(.404,.310108,0)
30 ;;=DIKK EDIT UI^.11
31 ;;^DIST(.404,.310108,40,0)
32 ;;=^.4044I^9^9
33 ;;^DIST(.404,.310108,40,1,0)
34 ;;=1^File^3
35 ;;^DIST(.404,.310108,40,1,1)
36 ;;=.01
37 ;;^DIST(.404,.310108,40,1,2)
38 ;;=1,13^20^1,7
39 ;;^DIST(.404,.310108,40,1,4)
40 ;;=^^^1
41 ;;^DIST(.404,.310108,40,1,13)
42 ;;=D BLDLOG^DIKCFORM(DA)
43 ;;^DIST(.404,.310108,40,1,14)
44 ;;=D VALFILE^DIKCFORM
45 ;;^DIST(.404,.310108,40,2,0)
46 ;;=2^Root File^3
47 ;;^DIST(.404,.310108,40,2,1)
48 ;;=.51
49 ;;^DIST(.404,.310108,40,2,2)
50 ;;=1,56^20^1,45
51 ;;^DIST(.404,.310108,40,2,4)
52 ;;=^^^1
53 ;;^DIST(.404,.310108,40,3,0)
54 ;;=3^Index Name^3^^NAME
55 ;;^DIST(.404,.310108,40,3,1)
56 ;;=.02
57 ;;^DIST(.404,.310108,40,3,2)
58 ;;=2,13^30^2,1
59 ;;^DIST(.404,.310108,40,3,13)
60 ;;=D BLDLOG^DIKCFORM(DA)
61 ;;^DIST(.404,.310108,40,3,14)
62 ;;=D NAMEVAL^DIKCFORM
63 ;;^DIST(.404,.310108,40,4,0)
64 ;;=4^Root Type^3
65 ;;^DIST(.404,.310108,40,4,1)
66 ;;=.5
67 ;;^DIST(.404,.310108,40,4,2)
68 ;;=2,56^16^2,45
69 ;;^DIST(.404,.310108,40,4,4)
70 ;;=^^^1
71 ;;^DIST(.404,.310108,40,5,0)
72 ;;=5^Short Description^3
73 ;;^DIST(.404,.310108,40,5,1)
74 ;;=.11
75 ;;^DIST(.404,.310108,40,5,2)
76 ;;=4,20^56^4,1
77 ;;^DIST(.404,.310108,40,5,11)
78 ;;=D HLP^DDSUTL(X)
79 ;;^DIST(.404,.310108,40,6,0)
80 ;;=6^Description (wp)^3
81 ;;^DIST(.404,.310108,40,6,1)
82 ;;=.1
83 ;;^DIST(.404,.310108,40,6,2)
84 ;;=5,20^1^5,2
85 ;;^DIST(.404,.310108,40,7,0)
86 ;;=7^!M^1
87 ;;^DIST(.404,.310108,40,7,.1)
88 ;;=N WPROOT S WPROOT=$$GET^DDSVAL(.11,DA,.1),Y=$S(WPROOT]"":$G(@WPROOT@(1,0)),1:""),Y=$S(Y]"":"["_$E(Y,1,51)_"]",1:"(empty)")
89 ;;^DIST(.404,.310108,40,7,2)
90 ;;=^^5,23
91 ;;^DIST(.404,.310108,40,8,0)
92 ;;=8^Set Logic^3
93 ;;^DIST(.404,.310108,40,8,1)
94 ;;=1.1
95 ;;^DIST(.404,.310108,40,8,2)
96 ;;=14,13^63^14,2
97 ;;^DIST(.404,.310108,40,8,4)
98 ;;=^^^2
99 ;;^DIST(.404,.310108,40,8,11)
100 ;;=D HLP^DDSUTL(X)
101 ;;^DIST(.404,.310108,40,9,0)
102 ;;=9^Kill Logic^3
103 ;;^DIST(.404,.310108,40,9,1)
104 ;;=2.1
105 ;;^DIST(.404,.310108,40,9,2)
106 ;;=15,13^63^15,1
107 ;;^DIST(.404,.310108,40,9,4)
108 ;;=^^^2
109 ;;^DIST(.404,.310108,40,9,11)
110 ;;=D HLP^DDSUTL(X)
111 ;;^DIST(.404,.310109,0)
112 ;;=DIKK EDIT UI FIELD COLUMN HDR^.31
113 ;;^DIST(.404,.310109,40,0)
114 ;;=^.4044I^8^8
115 ;;^DIST(.404,.310109,40,1,0)
116 ;;=1^Order...^1
117 ;;^DIST(.404,.310109,40,1,2)
118 ;;=^^1,1
119 ;;^DIST(.404,.310109,40,2,0)
120 ;;=2^Subscr^1
121 ;;^DIST(.404,.310109,40,2,2)
122 ;;=^^1,11
123 ;;^DIST(.404,.310109,40,3,0)
124 ;;=3^Length^1
125 ;;^DIST(.404,.310109,40,3,2)
126 ;;=^^1,19
127 ;;^DIST(.404,.310109,40,4,0)
128 ;;=4^[File,Field] Field Name^1
129 ;;^DIST(.404,.310109,40,4,2)
130 ;;=^^1,27
131 ;;^DIST(.404,.310109,40,5,0)
132 ;;=5^--------^1
133 ;;^DIST(.404,.310109,40,5,2)
134 ;;=^^2,1
135 ;;^DIST(.404,.310109,40,6,0)
136 ;;=6^------^1
137 ;;^DIST(.404,.310109,40,6,2)
138 ;;=^^2,11
139 ;;^DIST(.404,.310109,40,7,0)
140 ;;=7^------^1
141 ;;^DIST(.404,.310109,40,7,2)
142 ;;=^^2,19
143 ;;^DIST(.404,.310109,40,8,0)
144 ;;=8^-----------------------^1
145 ;;^DIST(.404,.310109,40,8,2)
146 ;;=^^2,27
147 ;;^DIST(.404,.31011,0)
148 ;;=DIKK EDIT UI FIELD REP^.114
149 ;;^DIST(.404,.31011,40,0)
150 ;;=^.4044I^4^4
151 ;;^DIST(.404,.31011,40,1,0)
152 ;;=1^^3^^ORDER
153 ;;^DIST(.404,.31011,40,1,1)
154 ;;=.01
155 ;;^DIST(.404,.31011,40,1,2)
156 ;;=1,3^3
157 ;;^DIST(.404,.31011,40,1,4)
158 ;;=^^^2
159 ;;^DIST(.404,.31011,40,1,14)
160 ;;=I X="" D HLP^DDSUTL($C(7)_"Deletions not allowed.") S DDSERROR=1
161 ;;^DIST(.404,.31011,40,2,0)
162 ;;=2^^3^^SUBSCRIPT
163 ;;^DIST(.404,.31011,40,2,1)
164 ;;=.5
165 ;;^DIST(.404,.31011,40,2,2)
166 ;;=1,12^3
167 ;;^DIST(.404,.31011,40,2,4)
168 ;;=^^^1
169 ;;^DIST(.404,.31011,40,3,0)
170 ;;=3^^3
171 ;;^DIST(.404,.31011,40,3,1)
172 ;;=6
173 ;;^DIST(.404,.31011,40,3,2)
174 ;;=1,20^3
175 ;;^DIST(.404,.31011,40,3,13)
176 ;;=D BLDLOG^DIKCFORM(DA(1))
177 ;;^DIST(.404,.31011,40,4,0)
178 ;;=4^^4
179 ;;^DIST(.404,.31011,40,4,2)
180 ;;=1,27^49
181 ;;^DIST(.404,.31011,40,4,30)
182 ;;=N DIKKFIL,DIKKFLD S DIKKFIL={FILE},DIKKFLD={FIELD} S Y="["_DIKKFIL_","_DIKKFLD_"] "_$P($G(^DD(DIKKFIL,DIKKFLD,0)),U)
183 ;;^DIST(.404,.310111,0)
184 ;;=DIKK EDIT UI FIELD CRV^.114
185 ;;^DIST(.404,.310111,40,0)
186 ;;=^.4044I^9^9
187 ;;^DIST(.404,.310111,40,1,0)
188 ;;=1^ Field-Type Cross Reference Value ^1
189 ;;^DIST(.404,.310111,40,1,2)
190 ;;=^^1,23
191 ;;^DIST(.404,.310111,40,2,0)
192 ;;=2^Order Number^3
193 ;;^DIST(.404,.310111,40,2,1)
194 ;;=.01
195 ;;^DIST(.404,.310111,40,2,2)
196 ;;=3,18^3^3,4
197 ;;^DIST(.404,.310111,40,2,4)
198 ;;=^^^1
199 ;;^DIST(.404,.310111,40,3,0)
200 ;;=3^Subscript Number^3
201 ;;^DIST(.404,.310111,40,3,1)
202 ;;=.5
203 ;;^DIST(.404,.310111,40,3,2)
204 ;;=3,56^3^3,38
205 ;;^DIST(.404,.310111,40,3,4)
206 ;;=^^^1
207 ;;^DIST(.404,.310111,40,4,0)
208 ;;=4^Field^3^^FIELD
209 ;;^DIST(.404,.310111,40,4,1)
210 ;;=3
211 ;;^DIST(.404,.310111,40,4,2)
212 ;;=4,18^20^4,11
213 ;;^DIST(.404,.310111,40,4,4)
214 ;;=^^^1
215 ;;^DIST(.404,.310111,40,5,0)
216 ;;=5^File^3
217 ;;^DIST(.404,.310111,40,5,1)
218 ;;=2
219 ;;^DIST(.404,.310111,40,5,2)
220 ;;=4,56^20^4,50
221 ;;^DIST(.404,.310111,40,5,4)
222 ;;=^^^1
223 ;;^DIST(.404,.310111,40,6,0)
224 ;;=6^Field Name^4
225 ;;^DIST(.404,.310111,40,6,2)
226 ;;=5,18^58^5,6
227 ;;^DIST(.404,.310111,40,6,30)
228 ;;=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)_"..."
229 ;;^DIST(.404,.310111,40,7,0)
230 ;;=7^Maximum Length^3
231 ;;^DIST(.404,.310111,40,7,1)
232 ;;=6
233 ;;^DIST(.404,.310111,40,7,2)
234 ;;=7,18^3^7,2
235 ;;^DIST(.404,.310111,40,7,13)
236 ;;=S DIKCCRV=1
237 ;;^DIST(.404,.310111,40,8,0)
238 ;;=8^Collation^3
239 ;;^DIST(.404,.310111,40,8,1)
240 ;;=7
241 ;;^DIST(.404,.310111,40,8,2)
242 ;;=7,58^9^7,47
243 ;;^DIST(.404,.310111,40,9,0)
244 ;;=9^Lookup Prompt^3
245 ;;^DIST(.404,.310111,40,9,1)
246 ;;=8
247 ;;^DIST(.404,.310111,40,9,2)
248 ;;=8,18^30^8,3
249 ;;^DIST(.404,.400011,0)
250 ;;=DIBTED^.401
251 ;;^DIST(.404,.400011,40,0)
252 ;;=^.4044I^9^9
253 ;;^DIST(.404,.400011,40,1,0)
254 ;;=1^TEMPLATE NAME^3
255 ;;^DIST(.404,.400011,40,1,1)
256 ;;=.01
257 ;;^DIST(.404,.400011,40,1,2)
258 ;;=1,16^30^1,1
259 ;;^DIST(.404,.400011,40,2,0)
260 ;;=3^DATE LAST MODIFIED^3
261 ;;^DIST(.404,.400011,40,2,1)
262 ;;=2
263 ;;^DIST(.404,.400011,40,2,2)
264 ;;=4,28^17^4,8
265 ;;^DIST(.404,.400011,40,2,4)
266 ;;=^^^1
267 ;;^DIST(.404,.400011,40,3,0)
268 ;;=4^DATE LAST USED^3
269 ;;^DIST(.404,.400011,40,3,1)
270 ;;=7
Note: See TracBrowser for help on using the repository browser.