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

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

initial load of WorldVistAEHR
File size: 7.0 KB
RevLine 
[613]1DINIT0FB ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;8:34 AM 18 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="" ^DINIT0FC S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.110107,40,4,14)
8 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Storage.")
9 ;;^DIST(.404,.110107,40,5,0)
10 ;;=7^Maximum Length^3
11 ;;^DIST(.404,.110107,40,5,1)
12 ;;=6
13 ;;^DIST(.404,.110107,40,5,2)
14 ;;=7,18^3^7,2
15 ;;^DIST(.404,.110107,40,5,13)
16 ;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1
17 ;;^DIST(.404,.110107,40,6,0)
18 ;;=8^Collation^3
19 ;;^DIST(.404,.110107,40,6,1)
20 ;;=7
21 ;;^DIST(.404,.110107,40,6,2)
22 ;;=7,58^9^7,47
23 ;;^DIST(.404,.110107,40,6,3)
24 ;;=forwards
25 ;;^DIST(.404,.110107,40,7,0)
26 ;;=9^Lookup Prompt^3
27 ;;^DIST(.404,.110107,40,7,1)
28 ;;=8
29 ;;^DIST(.404,.110107,40,7,2)
30 ;;=8,18^30^8,3
31 ;;^DIST(.404,.110107,40,8,0)
32 ;;=5^File^3
33 ;;^DIST(.404,.110107,40,8,1)
34 ;;=2
35 ;;^DIST(.404,.110107,40,8,2)
36 ;;=4,58^20^4,52
37 ;;^DIST(.404,.110107,40,8,3)
38 ;;=!M
39 ;;^DIST(.404,.110107,40,8,3.1)
40 ;;=S Y=$$GET^DDSVAL(.11,DA(1),.51)
41 ;;^DIST(.404,.110107,40,8,4)
42 ;;=1^^^1
43 ;;^DIST(.404,.110107,40,8,14)
44 ;;=N RF S RF=$$GET^DDSVAL(.11,DA(1),.51) I X'=RF S DDSERROR=1 D HLP^DDSUTL("This File number must equal the Root File number: "_RF_".")
45 ;;^DIST(.404,.110107,40,9,0)
46 ;;=4^Field^3^^FIELD
47 ;;^DIST(.404,.110107,40,9,1)
48 ;;=3
49 ;;^DIST(.404,.110107,40,9,2)
50 ;;=4,18^20^4,11
51 ;;^DIST(.404,.110107,40,9,4)
52 ;;=1
53 ;;^DIST(.404,.110107,40,9,13)
54 ;;=S:X=""!(DDSOLD="") DIKCCRV=1 I $$GET^DDSVAL(.114,.DA,.5) N DIKCTYPE S DIKCTYPE=$P($G(^DD($$GET^DDSVAL(.114,.DA,2),+X,0)),U,2) D PUT^DDSVAL(.114,.DA,6,$S(DIKCTYPE["F"!(DIKCTYPE["K"):30,1:""),"","I")
55 ;;^DIST(.404,.110107,40,10,0)
56 ;;=6^Field Name^4
57 ;;^DIST(.404,.110107,40,10,2)
58 ;;=5,18^60^5,6
59 ;;^DIST(.404,.110107,40,10,30)
60 ;;=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)_"..."
61 ;;^DIST(.404,.110107,40,11,0)
62 ;;=12^Transform for Display^3^^TRANSFORM FOR DISPLAY
63 ;;^DIST(.404,.110107,40,11,1)
64 ;;=5.5
65 ;;^DIST(.404,.110107,40,11,2)
66 ;;=11,25^53^11,2
67 ;;^DIST(.404,.110107,40,11,14)
68 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Display.")
69 ;;^DIST(.404,.110107,40,12,0)
70 ;;=11^Transform for Lookup^3
71 ;;^DIST(.404,.110107,40,12,1)
72 ;;=5.3
73 ;;^DIST(.404,.110107,40,12,2)
74 ;;=10,25^53^10,3
75 ;;^DIST(.404,.110107,40,12,14)
76 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Lookup.")
77 ;;^DIST(.404,.110108,0)
78 ;;=DIKC EDIT COMPUTED CRV^.114
79 ;;^DIST(.404,.110108,40,0)
80 ;;=^.4044I^8^7
81 ;;^DIST(.404,.110108,40,1,0)
82 ;;=1^ Computed-Type Cross Reference Value ^1
83 ;;^DIST(.404,.110108,40,1,2)
84 ;;=^^1,21
85 ;;^DIST(.404,.110108,40,2,0)
86 ;;=2^Order Number^3
87 ;;^DIST(.404,.110108,40,2,1)
88 ;;=.01
89 ;;^DIST(.404,.110108,40,2,2)
90 ;;=3,21^3^3,7
91 ;;^DIST(.404,.110108,40,2,13)
92 ;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1
93 ;;^DIST(.404,.110108,40,3,0)
94 ;;=3^Subscript Number^3
95 ;;^DIST(.404,.110108,40,3,1)
96 ;;=.5
97 ;;^DIST(.404,.110108,40,3,2)
98 ;;=4,21^3^4,3
99 ;;^DIST(.404,.110108,40,3,13)
100 ;;=S:X=""!(DDSOLD="") DIKCCRV=1
101 ;;^DIST(.404,.110108,40,4,0)
102 ;;=5^Maximum Length^3
103 ;;^DIST(.404,.110108,40,4,1)
104 ;;=6
105 ;;^DIST(.404,.110108,40,4,2)
106 ;;=5,21^3^5,5
107 ;;^DIST(.404,.110108,40,4,13)
108 ;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1
109 ;;^DIST(.404,.110108,40,5,0)
110 ;;=4^Lookup Prompt^3
111 ;;^DIST(.404,.110108,40,5,1)
112 ;;=8
113 ;;^DIST(.404,.110108,40,5,2)
114 ;;=4,48^30^4,33
115 ;;^DIST(.404,.110108,40,6,0)
116 ;;=6^Collation^3
117 ;;^DIST(.404,.110108,40,6,1)
118 ;;=7
119 ;;^DIST(.404,.110108,40,6,2)
120 ;;=5,48^9^5,37
121 ;;^DIST(.404,.110108,40,8,0)
122 ;;=7^Computed Code^3
123 ;;^DIST(.404,.110108,40,8,1)
124 ;;=4.5
125 ;;^DIST(.404,.110108,40,8,2)
126 ;;=7,18^60^7,3
127 ;;^DIST(.404,.110108,40,8,4)
128 ;;=1
129 ;;^DIST(.404,.110108,40,8,14)
130 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Computed Code.")
131 ;;^DIST(.404,.11021,0)
132 ;;=DIKC EDIT UI MAIN^.11
133 ;;^DIST(.404,.11021,40,0)
134 ;;=^.4044I^9^9
135 ;;^DIST(.404,.11021,40,1,0)
136 ;;=1^File^3
137 ;;^DIST(.404,.11021,40,1,1)
138 ;;=.01
139 ;;^DIST(.404,.11021,40,1,2)
140 ;;=1,15^20^1,9
141 ;;^DIST(.404,.11021,40,1,13)
142 ;;=D BLDLOG^DIKCFORM(DA)
143 ;;^DIST(.404,.11021,40,1,14)
144 ;;=D VALFILE^DIKCFORM
145 ;;^DIST(.404,.11021,40,2,0)
146 ;;=2^Root File^3
147 ;;^DIST(.404,.11021,40,2,1)
148 ;;=.51
149 ;;^DIST(.404,.11021,40,2,2)
150 ;;=1,60^20^1,49
151 ;;^DIST(.404,.11021,40,2,4)
152 ;;=^^^1
153 ;;^DIST(.404,.11021,40,3,0)
154 ;;=3^Index Name^3
155 ;;^DIST(.404,.11021,40,3,1)
156 ;;=.02
157 ;;^DIST(.404,.11021,40,3,2)
158 ;;=2,15^30^2,3
159 ;;^DIST(.404,.11021,40,3,13)
160 ;;=D NAMECHG^DIKCFORM
161 ;;^DIST(.404,.11021,40,3,14)
162 ;;=D NAMEVAL^DIKCFORM
163 ;;^DIST(.404,.11021,40,4,0)
164 ;;=4^Root Type^3
165 ;;^DIST(.404,.11021,40,4,1)
166 ;;=.5
167 ;;^DIST(.404,.11021,40,4,2)
168 ;;=2,60^16^2,49
169 ;;^DIST(.404,.11021,40,4,4)
170 ;;=^^^1
171 ;;^DIST(.404,.11021,40,5,0)
172 ;;=5^Short Description^3
173 ;;^DIST(.404,.11021,40,5,1)
174 ;;=.11
175 ;;^DIST(.404,.11021,40,5,2)
176 ;;=4,20^60^4,1
177 ;;^DIST(.404,.11021,40,5,11)
178 ;;=D HLP^DDSUTL(X)
179 ;;^DIST(.404,.11021,40,6,0)
180 ;;=6^Description (wp)^3
181 ;;^DIST(.404,.11021,40,6,1)
182 ;;=.1
183 ;;^DIST(.404,.11021,40,6,2)
184 ;;=5,20^1^5,2
185 ;;^DIST(.404,.11021,40,7,0)
186 ;;=7^!M^1
187 ;;^DIST(.404,.11021,40,7,.1)
188 ;;=N WPROOT S WPROOT=$$GET^DDSVAL(.11,.DA,.1),Y=$S(WPROOT]"":$G(@WPROOT@(1,0)),1:""),Y=$S(Y]"":"["_$E(Y,1,56)_"]",1:"(empty)")
189 ;;^DIST(.404,.11021,40,7,2)
190 ;;=^^5,23
191 ;;^DIST(.404,.11021,40,8,0)
192 ;;=8^Set Logic^3
193 ;;^DIST(.404,.11021,40,8,1)
194 ;;=1.1
195 ;;^DIST(.404,.11021,40,8,2)
196 ;;=14,13^67^14,2
197 ;;^DIST(.404,.11021,40,8,4)
198 ;;=^^^2
199 ;;^DIST(.404,.11021,40,8,11)
200 ;;=D HLP^DDSUTL(X)
201 ;;^DIST(.404,.11021,40,9,0)
202 ;;=9^Kill Logic^3
203 ;;^DIST(.404,.11021,40,9,1)
204 ;;=2.1
205 ;;^DIST(.404,.11021,40,9,2)
206 ;;=15,13^67^15,1
207 ;;^DIST(.404,.11021,40,9,4)
208 ;;=^^^2
209 ;;^DIST(.404,.11021,40,9,11)
210 ;;=D HLP^DDSUTL(X)
211 ;;^DIST(.404,.11022,0)
212 ;;=DIKC EDIT UI HDR^.11
213 ;;^DIST(.404,.11022,40,0)
214 ;;=^.4044I^4^4
215 ;;^DIST(.404,.11022,40,1,0)
216 ;;=1^Number^4
217 ;;^DIST(.404,.11022,40,1,2)
218 ;;=1,9^15^1,1
219 ;;^DIST(.404,.11022,40,1,30)
220 ;;=S Y=DA
221 ;;^DIST(.404,.11022,40,2,0)
222 ;;=2^EDIT A UNIQUENESS INDEX^1
223 ;;^DIST(.404,.11022,40,2,2)
224 ;;=^^1,30
225 ;;^DIST(.404,.11022,40,3,0)
226 ;;=3^Page 1 of 1^1
227 ;;^DIST(.404,.11022,40,3,2)
228 ;;=^^1,69
229 ;;^DIST(.404,.11022,40,4,0)
230 ;;=4^-------------------------------------------------------------------------------^1
231 ;;^DIST(.404,.11022,40,4,2)
232 ;;=^^2,1
233 ;;^DIST(.404,.11023,0)
234 ;;=DIKC EDIT UI CRV^.114
235 ;;^DIST(.404,.11023,40,0)
236 ;;=^.4044I^4^4
237 ;;^DIST(.404,.11023,40,1,0)
238 ;;=1^^3^^ORDER
239 ;;^DIST(.404,.11023,40,1,1)
240 ;;=.01
241 ;;^DIST(.404,.11023,40,1,2)
242 ;;=1,3^3
243 ;;^DIST(.404,.11023,40,1,4)
244 ;;=^^^2
245 ;;^DIST(.404,.11023,40,1,14)
246 ;;=I X="" D HLP^DDSUTL($C(7)_"Deletion not allowed.") S DDSERROR=1
247 ;;^DIST(.404,.11023,40,2,0)
248 ;;=2^^3^^SUBSCRIPT
249 ;;^DIST(.404,.11023,40,2,1)
250 ;;=.5
251 ;;^DIST(.404,.11023,40,2,2)
252 ;;=1,12^3
253 ;;^DIST(.404,.11023,40,2,4)
254 ;;=^^^1
255 ;;^DIST(.404,.11023,40,3,0)
256 ;;=3^^3^^LENGTH
Note: See TracBrowser for help on using the repository browser.