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

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

initial load of WorldVistAEHR
File size: 6.6 KB
RevLine 
[613]1DINIT0FK ;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="" ^DINIT0FL S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.404052,40,8,1)
8 ;;=6.3
9 ;;^DIST(.404,.404052,40,8,2)
10 ;;=3,25^3^3,10
11 ;;^DIST(.404,.404061,0)
12 ;;=DDGF BLOCK ADD
13 ;;^DIST(.404,.404061,40,0)
14 ;;=^.4044I^1^1
15 ;;^DIST(.404,.404061,40,1,0)
16 ;;=1^Select NEW BLOCK NAME^2
17 ;;^DIST(.404,.404061,40,1,2)
18 ;;=3,26^30^3,3
19 ;;^DIST(.404,.404061,40,1,12)
20 ;;=S DDACT="EX"
21 ;;^DIST(.404,.404061,40,1,20)
22 ;;=P^^DIST(.404,:QEALMZF
23 ;;^DIST(.404,.404061,40,1,23)
24 ;;=S DDGFBNUM=X,DDGFBNAM=DDSEXT
25 ;;^DIST(.404,.404061,40,1,24)
26 ;;=S DIR("S")="I Y'<1"
27 ;;^DIST(.404,.404062,0)
28 ;;=DDGF BLOCK ADD NEW
29 ;;^DIST(.404,.404062,40,0)
30 ;;=^.4044I^2^2
31 ;;^DIST(.404,.404062,40,1,0)
32 ;;=1^!M^1
33 ;;^DIST(.404,.404062,40,1,.1)
34 ;;=S Y="Are you adding "_DDGFBNAM
35 ;;^DIST(.404,.404062,40,1,2)
36 ;;=^^3,3
37 ;;^DIST(.404,.404062,40,2,0)
38 ;;=2^as a new block on this page?^2
39 ;;^DIST(.404,.404062,40,2,2)
40 ;;=4,32^3^4,3^1
41 ;;^DIST(.404,.404062,40,2,12)
42 ;;=S DDACT="EX"
43 ;;^DIST(.404,.404062,40,2,20)
44 ;;=Y
45 ;;^DIST(.404,.404062,40,2,23)
46 ;;=S DDGFANS=X
47 ;;^DIST(.404,.404063,0)
48 ;;=DDGF BLOCK ADD DUPLICATE
49 ;;^DIST(.404,.404063,40,0)
50 ;;=^.4044I^3^3
51 ;;^DIST(.404,.404063,40,1,0)
52 ;;=1^!M^1
53 ;;^DIST(.404,.404063,40,1,.1)
54 ;;=S Y="Block "_DDGFBNAM
55 ;;^DIST(.404,.404063,40,1,2)
56 ;;=^^3,3
57 ;;^DIST(.404,.404063,40,2,0)
58 ;;=2^already exists on this page!^1
59 ;;^DIST(.404,.404063,40,2,2)
60 ;;=^^4,3
61 ;;^DIST(.404,.404063,40,3,0)
62 ;;=3^OK^2
63 ;;^DIST(.404,.404063,40,3,2)
64 ;;=6,18^1^6,15^1
65 ;;^DIST(.404,.404063,40,3,12)
66 ;;=S DDACT="EX"
67 ;;^DIST(.404,.404063,40,3,20)
68 ;;=F^^0:0
69 ;;^DIST(.404,.404063,40,3,21,0)
70 ;;=^^1^1^2940928
71 ;;^DIST(.404,.404063,40,3,21,1,0)
72 ;;=Press <RET> to close this page
73 ;;^DIST(.404,.404071,0)
74 ;;=DDGF BLOCK DELETE
75 ;;^DIST(.404,.404071,40,0)
76 ;;=^.4044I^4^4
77 ;;^DIST(.404,.404071,40,1,0)
78 ;;=1^Block^1
79 ;;^DIST(.404,.404071,40,1,2)
80 ;;=^^1,1
81 ;;^DIST(.404,.404071,40,2,0)
82 ;;=4^Do you want to delete it from the BLOCK file?^2
83 ;;^DIST(.404,.404071,40,2,2)
84 ;;=3,47^3^3,1^1
85 ;;^DIST(.404,.404071,40,2,12)
86 ;;=S:X]"" DDACT="EX" I X="" D HLP^DDSUTL($C(7)_"A response is required. Enter either YES or NO.") S DDSBR=2
87 ;;^DIST(.404,.404071,40,2,20)
88 ;;=Y
89 ;;^DIST(.404,.404071,40,2,23)
90 ;;=S DDGFANS=X
91 ;;^DIST(.404,.404071,40,3,0)
92 ;;=2^!M^1
93 ;;^DIST(.404,.404071,40,3,.1)
94 ;;=S Y=DDGFBK
95 ;;^DIST(.404,.404071,40,3,2)
96 ;;=^^1,7
97 ;;^DIST(.404,.404071,40,4,0)
98 ;;=3^is not used on any other forms.^1
99 ;;^DIST(.404,.404071,40,4,2)
100 ;;=^^2,1
101 ;;^DIST(.404,.404081,0)
102 ;;=DDGF HEADER BLOCK SELECT
103 ;;^DIST(.404,.404081,40,0)
104 ;;=^.4044I^2^2
105 ;;^DIST(.404,.404081,40,1,0)
106 ;;=1^ Add a New Header Block ^1
107 ;;^DIST(.404,.404081,40,1,2)
108 ;;=^^1,20
109 ;;^DIST(.404,.404081,40,2,0)
110 ;;=2^Select New Header Block Name^2
111 ;;^DIST(.404,.404081,40,2,2)
112 ;;=3,33^30^3,3
113 ;;^DIST(.404,.404081,40,2,12)
114 ;;=S DDACT="EX"
115 ;;^DIST(.404,.404081,40,2,20)
116 ;;=P^^DIST(.404,:QEALMZF
117 ;;^DIST(.404,.404081,40,2,23)
118 ;;=S DDGFBNUM=X,DDGFBNAM=DDSEXT
119 ;;^DIST(.404,.441,0)
120 ;;=DDXP FF BLK1^.44
121 ;;^DIST(.404,.441,15,0)
122 ;;=^^2^2^2930107
123 ;;^DIST(.404,.441,15,1,0)
124 ;;=Block makes up page 1 of DDXP FF FORM. It is used to define a foreign
125 ;;^DIST(.404,.441,15,2,0)
126 ;;=format.
127 ;;^DIST(.404,.441,40,0)
128 ;;=^.4044I^21^16
129 ;;^DIST(.404,.441,40,1,0)
130 ;;=1^FOREIGN FILE FORMAT^3
131 ;;^DIST(.404,.441,40,1,1)
132 ;;=.01
133 ;;^DIST(.404,.441,40,1,2)
134 ;;=1,42^30^1,21^0
135 ;;^DIST(.404,.441,40,3,0)
136 ;;=3^!M^1
137 ;;^DIST(.404,.441,40,3,.1)
138 ;;=N I S Y="" F I=1:1:21+$L($G(DDXPFMNM)) S Y=Y_"="
139 ;;^DIST(.404,.441,40,3,2)
140 ;;=^^2,21
141 ;;^DIST(.404,.441,40,4,0)
142 ;;=4^FIELD DELIMITER^3
143 ;;^DIST(.404,.441,40,4,1)
144 ;;=1
145 ;;^DIST(.404,.441,40,4,2)
146 ;;=4,23^15^4,6^0
147 ;;^DIST(.404,.441,40,5,0)
148 ;;=5^RECORD LENGTH FIXED?^3
149 ;;^DIST(.404,.441,40,5,1)
150 ;;=5
151 ;;^DIST(.404,.441,40,5,2)
152 ;;=4,69^3^4,48^1
153 ;;^DIST(.404,.441,40,6,0)
154 ;;=4.7^RECORD DELIMITER^3
155 ;;^DIST(.404,.441,40,6,1)
156 ;;=2
157 ;;^DIST(.404,.441,40,6,2)
158 ;;=6,23^15^6,5^0
159 ;;^DIST(.404,.441,40,7,0)
160 ;;=7^MAXIMUM OUTPUT LENGTH^3
161 ;;^DIST(.404,.441,40,7,1)
162 ;;=7
163 ;;^DIST(.404,.441,40,7,2)
164 ;;=5,69^5^5,46^0
165 ;;^DIST(.404,.441,40,7,3)
166 ;;=80
167 ;;^DIST(.404,.441,40,8,0)
168 ;;=8^NEED FOREIGN FIELD NAMES?^3
169 ;;^DIST(.404,.441,40,8,1)
170 ;;=6
171 ;;^DIST(.404,.441,40,8,2)
172 ;;=6,69^3^6,43^1
173 ;;^DIST(.404,.441,40,9,0)
174 ;;=9^FILE HEADER^3
175 ;;^DIST(.404,.441,40,9,1)
176 ;;=20
177 ;;^DIST(.404,.441,40,9,2)
178 ;;=8,23^40^8,10^0
179 ;;^DIST(.404,.441,40,10,0)
180 ;;=10^FILE TRAILER^3
181 ;;^DIST(.404,.441,40,10,1)
182 ;;=25
183 ;;^DIST(.404,.441,40,10,2)
184 ;;=9,23^40^9,9^0
185 ;;^DIST(.404,.441,40,11,0)
186 ;;=11^DATE FORMAT^3
187 ;;^DIST(.404,.441,40,11,1)
188 ;;=27
189 ;;^DIST(.404,.441,40,11,2)
190 ;;=10,23^40^10,10^0
191 ;;^DIST(.404,.441,40,16,0)
192 ;;=16^Go to next page to document format.^1
193 ;;^DIST(.404,.441,40,16,2)
194 ;;=^^17,45
195 ;;^DIST(.404,.441,40,17,0)
196 ;;=2^PAGE 1^1
197 ;;^DIST(.404,.441,40,17,2)
198 ;;=^^1,74
199 ;;^DIST(.404,.441,40,18,0)
200 ;;=12^QUOTE NON-NUMERIC?^3
201 ;;^DIST(.404,.441,40,18,1)
202 ;;=8
203 ;;^DIST(.404,.441,40,18,2)
204 ;;=13,23^3^13,4^1
205 ;;^DIST(.404,.441,40,19,0)
206 ;;=13^PROMPT FOR DATA TYPE?^3
207 ;;^DIST(.404,.441,40,19,1)
208 ;;=9
209 ;;^DIST(.404,.441,40,19,2)
210 ;;=14,23^3^14,1^1
211 ;;^DIST(.404,.441,40,20,0)
212 ;;=4.5^SEND LAST DELIMITER?^3
213 ;;^DIST(.404,.441,40,20,1)
214 ;;=10
215 ;;^DIST(.404,.441,40,20,2)
216 ;;=5,23^3^5,2^1
217 ;;^DIST(.404,.441,40,20,3)
218 ;;=YES
219 ;;^DIST(.404,.441,40,21,0)
220 ;;=11.5^SUBSTITUTE FOR NULL^3
221 ;;^DIST(.404,.441,40,21,1)
222 ;;=11
223 ;;^DIST(.404,.441,40,21,2)
224 ;;=12,23^15^12,2^0
225 ;;^DIST(.404,.442,0)
226 ;;=DDXP FF BLK2^.44^0
227 ;;^DIST(.404,.442,15,0)
228 ;;=^^2^2^2920925
229 ;;^DIST(.404,.442,15,1,0)
230 ;;=Contains fields for page 2 of form used to define Foreign Formats.
231 ;;^DIST(.404,.442,15,2,0)
232 ;;=Primarily used to document the format.
233 ;;^DIST(.404,.442,40,0)
234 ;;=^.4044I^7^7
235 ;;^DIST(.404,.442,40,1,0)
236 ;;=1^FOREIGN FILE FORMAT: ^1
237 ;;^DIST(.404,.442,40,1,2)
238 ;;=^^1,21
239 ;;^DIST(.404,.442,40,2,0)
240 ;;=2^^3
241 ;;^DIST(.404,.442,40,2,1)
242 ;;=.01
243 ;;^DIST(.404,.442,40,2,2)
244 ;;=1,42^30
245 ;;^DIST(.404,.442,40,2,4)
246 ;;=^^^1
247 ;;^DIST(.404,.442,40,3,0)
248 ;;=2.5^PAGE 2^1
249 ;;^DIST(.404,.442,40,3,2)
250 ;;=^^1,74
251 ;;^DIST(.404,.442,40,4,0)
252 ;;=3^!M^1
253 ;;^DIST(.404,.442,40,4,.1)
254 ;;=N I S Y="" F I=1:1:21+$L($G(DDXPFMNM)) S Y=Y_"="
255 ;;^DIST(.404,.442,40,4,2)
256 ;;=^^2,21
257 ;;^DIST(.404,.442,40,5,0)
258 ;;=4^DESCRIPTION (WP)^3
259 ;;^DIST(.404,.442,40,5,1)
260 ;;=30
261 ;;^DIST(.404,.442,40,5,2)
262 ;;=4,44^1^4,26^0
263 ;;^DIST(.404,.442,40,6,0)
264 ;;=5^USAGE NOTES (WP)^3
265 ;;^DIST(.404,.442,40,6,1)
266 ;;=31
267 ;;^DIST(.404,.442,40,6,2)
268 ;;=6,44^1^6,26^0
269 ;;^DIST(.404,.442,40,7,0)
270 ;;=6^Select OTHER NAME FOR FORMAT^3
271 ;;^DIST(.404,.442,40,7,1)
272 ;;=50
273 ;;^DIST(.404,.442,40,7,2)
274 ;;=10,44^22^10,14^0
Note: See TracBrowser for help on using the repository browser.