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

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

initial load of WorldVistAEHR
File size: 6.8 KB
Line 
1DINIT0FA ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;8:28 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="" ^DINIT0FB S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.110101,40,10,0)
8 ;;=2^Root File^3
9 ;;^DIST(.404,.110101,40,10,1)
10 ;;=.51
11 ;;^DIST(.404,.110101,40,10,2)
12 ;;=1,60^20^1,49
13 ;;^DIST(.404,.110101,40,10,4)
14 ;;=^^^1
15 ;;^DIST(.404,.110101,40,11,0)
16 ;;=4^Root Type^3
17 ;;^DIST(.404,.110101,40,11,1)
18 ;;=.5
19 ;;^DIST(.404,.110101,40,11,2)
20 ;;=2,60^16^2,49
21 ;;^DIST(.404,.110101,40,11,4)
22 ;;=^^^1
23 ;;^DIST(.404,.110101,40,14,0)
24 ;;=7^!M^1
25 ;;^DIST(.404,.110101,40,14,.1)
26 ;;=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)")
27 ;;^DIST(.404,.110101,40,14,2)
28 ;;=^^5,23
29 ;;^DIST(.404,.110102,0)
30 ;;=DIKC EDIT HDR 1^.11
31 ;;^DIST(.404,.110102,40,0)
32 ;;=^.4044I^4^4
33 ;;^DIST(.404,.110102,40,1,0)
34 ;;=1^EDIT AN INDEX^1
35 ;;^DIST(.404,.110102,40,1,2)
36 ;;=^^1,34
37 ;;^DIST(.404,.110102,40,2,0)
38 ;;=2^Number^4
39 ;;^DIST(.404,.110102,40,2,2)
40 ;;=1,9^15^1,1
41 ;;^DIST(.404,.110102,40,2,30)
42 ;;=S Y=DA
43 ;;^DIST(.404,.110102,40,3,0)
44 ;;=3^Page 1 of 2^1
45 ;;^DIST(.404,.110102,40,3,2)
46 ;;=^^1,69
47 ;;^DIST(.404,.110102,40,4,0)
48 ;;=4^-------------------------------------------------------------------------------^1
49 ;;^DIST(.404,.110102,40,4,2)
50 ;;=^^2,1
51 ;;^DIST(.404,.110103,0)
52 ;;=DIKC EDIT LOGIC^.11
53 ;;^DIST(.404,.110103,40,0)
54 ;;=^.4044I^28^5
55 ;;^DIST(.404,.110103,40,1,0)
56 ;;=1^Set Logic^3
57 ;;^DIST(.404,.110103,40,1,1)
58 ;;=1.1
59 ;;^DIST(.404,.110103,40,1,2)
60 ;;=3,13^67^3,2
61 ;;^DIST(.404,.110103,40,1,14)
62 ;;=D VALLOG^DIKCFORM
63 ;;^DIST(.404,.110103,40,2,0)
64 ;;=2^Kill Logic^3
65 ;;^DIST(.404,.110103,40,2,1)
66 ;;=2.1
67 ;;^DIST(.404,.110103,40,2,2)
68 ;;=4,13^67^4,1
69 ;;^DIST(.404,.110103,40,2,14)
70 ;;=D VALLOG^DIKCFORM
71 ;;^DIST(.404,.110103,40,18,0)
72 ;;=3^Whole Kill^3
73 ;;^DIST(.404,.110103,40,18,1)
74 ;;=2.5
75 ;;^DIST(.404,.110103,40,18,2)
76 ;;=5,13^67^5,1
77 ;;^DIST(.404,.110103,40,18,14)
78 ;;=D VALLOG^DIKCFORM
79 ;;^DIST(.404,.110103,40,27,0)
80 ;;=8^Set Condition^3
81 ;;^DIST(.404,.110103,40,27,1)
82 ;;=1.4
83 ;;^DIST(.404,.110103,40,27,2)
84 ;;=7,17^63^7,2
85 ;;^DIST(.404,.110103,40,27,14)
86 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Set Condition.")
87 ;;^DIST(.404,.110103,40,28,0)
88 ;;=9^Kill Condition^3
89 ;;^DIST(.404,.110103,40,28,1)
90 ;;=2.4
91 ;;^DIST(.404,.110103,40,28,2)
92 ;;=8,17^63^8,1
93 ;;^DIST(.404,.110103,40,28,14)
94 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Kill Condition.")
95 ;;^DIST(.404,.110104,0)
96 ;;=DIKC EDIT CRV^.114
97 ;;^DIST(.404,.110104,40,0)
98 ;;=^.4044I^5^5
99 ;;^DIST(.404,.110104,40,1,0)
100 ;;=1^^3^^ORDER
101 ;;^DIST(.404,.110104,40,1,1)
102 ;;=.01
103 ;;^DIST(.404,.110104,40,1,2)
104 ;;=1,3^3
105 ;;^DIST(.404,.110104,40,1,10)
106 ;;=S DDSSTACK=$S($$GET^DDSVAL(.114,.DA,1)="F":2.1,1:2.2)
107 ;;^DIST(.404,.110104,40,1,13)
108 ;;=D:DDSOLD'="" BLDLOG^DIKCFORM(DA(1))
109 ;;^DIST(.404,.110104,40,2,0)
110 ;;=2^^3
111 ;;^DIST(.404,.110104,40,2,1)
112 ;;=.5
113 ;;^DIST(.404,.110104,40,2,2)
114 ;;=1,12^3
115 ;;^DIST(.404,.110104,40,2,13)
116 ;;=D BLDLOG^DIKCFORM(DA(1))
117 ;;^DIST(.404,.110104,40,3,0)
118 ;;=3^^3
119 ;;^DIST(.404,.110104,40,3,1)
120 ;;=1
121 ;;^DIST(.404,.110104,40,3,2)
122 ;;=1,19^8
123 ;;^DIST(.404,.110104,40,3,10)
124 ;;=S:X'=DDSOLD DDSSTACK=$S(X="F":2.1,1:2.2)
125 ;;^DIST(.404,.110104,40,3,13)
126 ;;=D CRVTYPE^DIKCFORM
127 ;;^DIST(.404,.110104,40,4,0)
128 ;;=5^^4
129 ;;^DIST(.404,.110104,40,4,2)
130 ;;=1,36^43
131 ;;^DIST(.404,.110104,40,4,30)
132 ;;=N FIL,FLD,TYP S TYP={TYPE OF VALUE;I} S:TYP="F" FIL=+{FILE},FLD=+{FIELD},Y=$S('FIL!'FLD:"",$P($G(^DD(FIL,FLD,0)),U)="":"",1:$P(^(0),U)_" (#"_FLD_")") S:TYP="C" Y={COMPUTED CODE} S:$L($G(Y))>43 Y=$E(Y,1,40)_"..."
133 ;;^DIST(.404,.110104,40,5,0)
134 ;;=4^^3
135 ;;^DIST(.404,.110104,40,5,1)
136 ;;=6
137 ;;^DIST(.404,.110104,40,5,2)
138 ;;=1,29^3
139 ;;^DIST(.404,.110104,40,5,13)
140 ;;=D:$$GET^DDSVAL(.114,.DA,.5) BLDLOG^DIKCFORM(DA(1))
141 ;;^DIST(.404,.110105,0)
142 ;;=DIKC EDIT CRV HDR^.11
143 ;;^DIST(.404,.110105,40,0)
144 ;;=^.4044I^12^11
145 ;;^DIST(.404,.110105,40,1,0)
146 ;;=1^CROSS-REFERENCE VALUES:^1
147 ;;^DIST(.404,.110105,40,1,2)
148 ;;=^^1,1
149 ;;^DIST(.404,.110105,40,3,0)
150 ;;=2^Order...^1
151 ;;^DIST(.404,.110105,40,3,2)
152 ;;=^^2,2
153 ;;^DIST(.404,.110105,40,4,0)
154 ;;=7^--------^1
155 ;;^DIST(.404,.110105,40,4,2)
156 ;;=^^3,2
157 ;;^DIST(.404,.110105,40,5,0)
158 ;;=3^Subscr^1
159 ;;^DIST(.404,.110105,40,5,2)
160 ;;=^^2,12
161 ;;^DIST(.404,.110105,40,6,0)
162 ;;=8^------^1
163 ;;^DIST(.404,.110105,40,6,2)
164 ;;=^^3,12
165 ;;^DIST(.404,.110105,40,7,0)
166 ;;=4^Type^1
167 ;;^DIST(.404,.110105,40,7,2)
168 ;;=^^2,20
169 ;;^DIST(.404,.110105,40,8,0)
170 ;;=9^----^1
171 ;;^DIST(.404,.110105,40,8,2)
172 ;;=^^3,20
173 ;;^DIST(.404,.110105,40,9,0)
174 ;;=6^Field or Computed Expression^1
175 ;;^DIST(.404,.110105,40,9,2)
176 ;;=^^2,37
177 ;;^DIST(.404,.110105,40,10,0)
178 ;;=11^-------------------------------------^1
179 ;;^DIST(.404,.110105,40,10,2)
180 ;;=^^3,37
181 ;;^DIST(.404,.110105,40,11,0)
182 ;;=5^Length^1
183 ;;^DIST(.404,.110105,40,11,2)
184 ;;=^^2,29
185 ;;^DIST(.404,.110105,40,12,0)
186 ;;=10^------^1
187 ;;^DIST(.404,.110105,40,12,2)
188 ;;=^^3,29
189 ;;^DIST(.404,.110106,0)
190 ;;=DIKC EDIT HDR 2^.11
191 ;;^DIST(.404,.110106,40,0)
192 ;;=^.4044I^4^4
193 ;;^DIST(.404,.110106,40,1,0)
194 ;;=1^Number^4
195 ;;^DIST(.404,.110106,40,1,2)
196 ;;=1,9^15^1,1
197 ;;^DIST(.404,.110106,40,1,30)
198 ;;=S Y=DA
199 ;;^DIST(.404,.110106,40,2,0)
200 ;;=2^EDIT AN INDEX^1
201 ;;^DIST(.404,.110106,40,2,2)
202 ;;=^^1,34
203 ;;^DIST(.404,.110106,40,3,0)
204 ;;=3^Page 2 of 2^1
205 ;;^DIST(.404,.110106,40,3,2)
206 ;;=^^1,69
207 ;;^DIST(.404,.110106,40,4,0)
208 ;;=4^-------------------------------------------------------------------------------^1
209 ;;^DIST(.404,.110106,40,4,2)
210 ;;=^^2,1
211 ;;^DIST(.404,.110107,0)
212 ;;=DIKC EDIT FIELD CRV^.114
213 ;;^DIST(.404,.110107,40,0)
214 ;;=^.4044I^12^12
215 ;;^DIST(.404,.110107,40,1,0)
216 ;;=1^ Field-Type Cross Reference Value ^1
217 ;;^DIST(.404,.110107,40,1,2)
218 ;;=^^1,23
219 ;;^DIST(.404,.110107,40,2,0)
220 ;;=2^Order Number^3
221 ;;^DIST(.404,.110107,40,2,1)
222 ;;=.01
223 ;;^DIST(.404,.110107,40,2,2)
224 ;;=3,18^3^3,4
225 ;;^DIST(.404,.110107,40,2,11)
226 ;;=I $G(DIKCPG21),$$GET^DDSVAL(DIE,.DA,3)="" S DDSBR="FIELD" K DIKCPG21
227 ;;^DIST(.404,.110107,40,2,13)
228 ;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1
229 ;;^DIST(.404,.110107,40,3,0)
230 ;;=3^Subscript Number^3
231 ;;^DIST(.404,.110107,40,3,1)
232 ;;=.5
233 ;;^DIST(.404,.110107,40,3,2)
234 ;;=3,58^3^3,40
235 ;;^DIST(.404,.110107,40,3,3)
236 ;;=!M
237 ;;^DIST(.404,.110107,40,3,3.1)
238 ;;=S Y=$S($$GET^DDSVAL(.11,DA(1),.2)="R":$$GET^DDSVAL(.114,.DA,.01),1:"")
239 ;;^DIST(.404,.110107,40,3,13)
240 ;;=I X=""!(DDSOLD="") S DIKCCRV=1 D:X="" PUT^DDSVAL(.114,.DA,6) I DDSOLD="" N DIKCTYPE S DIKCTYPE=$P($G(^DD(+$$GET^DDSVAL(.114,.DA,2),+$$GET^DDSVAL(.114,.DA,3),0)),U,2) D:DIKCTYPE["F"!(DIKCTYPE["K") PUT^DDSVAL(.114,.DA,6,30)
241 ;;^DIST(.404,.110107,40,4,0)
242 ;;=10^Transform for Storage^3
243 ;;^DIST(.404,.110107,40,4,1)
244 ;;=5
245 ;;^DIST(.404,.110107,40,4,2)
246 ;;=9,25^53^9,2
247 ;;^DIST(.404,.110107,40,4,13)
248 ;;=D TRANS^DIKCFORM
Note: See TracBrowser for help on using the repository browser.