source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0FI.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.7 KB
RevLine 
[613]1DINIT0FI ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;3:27 PM 20 Apr 1999
2 ;;22.0;VA FileMan;**8**;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="" ^DINIT0FJ S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.404031,40,15,20)
8 ;;=DD^^.4044,5.2
9 ;;^DIST(.404,.404031,40,15,23)
10 ;;=S DDGFSUP=X
11 ;;^DIST(.404,.404031,40,16,0)
12 ;;=6^UNIQUE NAME^3
13 ;;^DIST(.404,.404031,40,16,1)
14 ;;=3.1
15 ;;^DIST(.404,.404031,40,16,2)
16 ;;=5,26^50^5,13
17 ;;^DIST(.404,.404031,40,17,0)
18 ;;=9^EXECUTABLE CAPTION^3
19 ;;^DIST(.404,.404031,40,17,1)
20 ;;=1.1
21 ;;^DIST(.404,.404031,40,17,2)
22 ;;=9,26^50^9,6
23 ;;^DIST(.404,.404031,40,17,13)
24 ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"),"I")
25 ;;^DIST(.404,.404032,0)
26 ;;=DDGF FIELD DD OTHER SINGLE^.4044
27 ;;^DIST(.404,.404032,40,0)
28 ;;=^.4044I^13^10
29 ;;^DIST(.404,.404032,40,1,0)
30 ;;=1^ Other Parameters ^1
31 ;;^DIST(.404,.404032,40,1,2)
32 ;;=^^1,27
33 ;;^DIST(.404,.404032,40,2,0)
34 ;;=2^REQUIRED^3
35 ;;^DIST(.404,.404032,40,2,1)
36 ;;=6.1
37 ;;^DIST(.404,.404032,40,2,2)
38 ;;=3,23^3^3,13
39 ;;^DIST(.404,.404032,40,3,0)
40 ;;=4^DISABLE EDITING^3
41 ;;^DIST(.404,.404032,40,3,1)
42 ;;=6.4
43 ;;^DIST(.404,.404032,40,3,2)
44 ;;=4,23^9^4,6
45 ;;^DIST(.404,.404032,40,7,0)
46 ;;=7^DATA LENGTH^2
47 ;;^DIST(.404,.404032,40,7,2)
48 ;;=7,23^3^7,10
49 ;;^DIST(.404,.404032,40,7,3)
50 ;;=!M
51 ;;^DIST(.404,.404032,40,7,3.1)
52 ;;=S Y=$G(DDGFDL0)
53 ;;^DIST(.404,.404032,40,7,4)
54 ;;=1
55 ;;^DIST(.404,.404032,40,7,20)
56 ;;=DD^^.4044,4.2
57 ;;^DIST(.404,.404032,40,7,23)
58 ;;=S DDGFDL=X
59 ;;^DIST(.404,.404032,40,8,0)
60 ;;=8^CAPTION COORDINATE^2
61 ;;^DIST(.404,.404032,40,8,2)
62 ;;=8,23^7^8,3
63 ;;^DIST(.404,.404032,40,8,3)
64 ;;=!M
65 ;;^DIST(.404,.404032,40,8,3.1)
66 ;;=S Y=$G(DDGFCC0)
67 ;;^DIST(.404,.404032,40,8,20)
68 ;;=DD^^.4044,5.1
69 ;;^DIST(.404,.404032,40,8,23)
70 ;;=S DDGFCC=X
71 ;;^DIST(.404,.404032,40,9,0)
72 ;;=9^DATA COORDINATE^2
73 ;;^DIST(.404,.404032,40,9,2)
74 ;;=9,23^7^9,6
75 ;;^DIST(.404,.404032,40,9,3)
76 ;;=!M
77 ;;^DIST(.404,.404032,40,9,3.1)
78 ;;=S Y=$G(DDGFDC0)
79 ;;^DIST(.404,.404032,40,9,4)
80 ;;=1
81 ;;^DIST(.404,.404032,40,9,20)
82 ;;=DD^^.4044,4.1
83 ;;^DIST(.404,.404032,40,9,23)
84 ;;=S DDGFDC=X
85 ;;^DIST(.404,.404032,40,10,0)
86 ;;=10^DATA VALIDATION^3
87 ;;^DIST(.404,.404032,40,10,1)
88 ;;=14
89 ;;^DIST(.404,.404032,40,10,2)
90 ;;=11,23^49^11,6
91 ;;^DIST(.404,.404032,40,11,0)
92 ;;=5^RIGHT JUSTIFY^3
93 ;;^DIST(.404,.404032,40,11,1)
94 ;;=6.3
95 ;;^DIST(.404,.404032,40,11,2)
96 ;;=4,52^3^4,37
97 ;;^DIST(.404,.404032,40,12,0)
98 ;;=6^SUB PAGE LINK^3
99 ;;^DIST(.404,.404032,40,12,1)
100 ;;=8
101 ;;^DIST(.404,.404032,40,12,2)
102 ;;=5,23^5^5,8
103 ;;^DIST(.404,.404032,40,13,0)
104 ;;=3^DISPLAY GROUP^3
105 ;;^DIST(.404,.404032,40,13,1)
106 ;;=3
107 ;;^DIST(.404,.404032,40,13,2)
108 ;;=3,52^20^3,37
109 ;;^DIST(.404,.404033,0)
110 ;;=DDGF FIELD DD OTHER MULTIPLE^.4044
111 ;;^DIST(.404,.404033,40,0)
112 ;;=^.4044I^12^9
113 ;;^DIST(.404,.404033,40,1,0)
114 ;;=1^ Other Parameters ^1
115 ;;^DIST(.404,.404033,40,1,2)
116 ;;=^^1,14^1
117 ;;^DIST(.404,.404033,40,2,0)
118 ;;=2^SUB PAGE LINK^3
119 ;;^DIST(.404,.404033,40,2,1)
120 ;;=8
121 ;;^DIST(.404,.404033,40,2,2)
122 ;;=3,23^3^3,8
123 ;;^DIST(.404,.404033,40,3,0)
124 ;;=3^DISALLOW LAYGO^3
125 ;;^DIST(.404,.404033,40,3,1)
126 ;;=6.5
127 ;;^DIST(.404,.404033,40,3,2)
128 ;;=4,23^3^4,7
129 ;;^DIST(.404,.404033,40,7,0)
130 ;;=7^CAPTION COORDINATE^2
131 ;;^DIST(.404,.404033,40,7,2)
132 ;;=10,23^7^10,3
133 ;;^DIST(.404,.404033,40,7,3)
134 ;;=!M
135 ;;^DIST(.404,.404033,40,7,3.1)
136 ;;=S Y=$G(DDGFCC0)
137 ;;^DIST(.404,.404033,40,7,20)
138 ;;=DD^^.4044,5.1
139 ;;^DIST(.404,.404033,40,7,23)
140 ;;=S DDGFCC=X
141 ;;^DIST(.404,.404033,40,8,0)
142 ;;=8^DATA COORDINATE^2
143 ;;^DIST(.404,.404033,40,8,2)
144 ;;=11,23^7^11,6
145 ;;^DIST(.404,.404033,40,8,3)
146 ;;=!M
147 ;;^DIST(.404,.404033,40,8,3.1)
148 ;;=S Y=$G(DDGFDC0)
149 ;;^DIST(.404,.404033,40,8,4)
150 ;;=1
151 ;;^DIST(.404,.404033,40,8,20)
152 ;;=DD^^.4044,4.1
153 ;;^DIST(.404,.404033,40,8,23)
154 ;;=S DDGFDC=X
155 ;;^DIST(.404,.404033,40,9,0)
156 ;;=6^DATA LENGTH^2
157 ;;^DIST(.404,.404033,40,9,2)
158 ;;=9,23^3^9,10
159 ;;^DIST(.404,.404033,40,9,3)
160 ;;=!M
161 ;;^DIST(.404,.404033,40,9,3.1)
162 ;;=S Y=$G(DDGFDL0)
163 ;;^DIST(.404,.404033,40,9,4)
164 ;;=1
165 ;;^DIST(.404,.404033,40,9,20)
166 ;;=DD^^.4044,4.2
167 ;;^DIST(.404,.404033,40,9,23)
168 ;;=S DDGFDL=X
169 ;;^DIST(.404,.404033,40,10,0)
170 ;;=4^RIGHT JUSTIFY^3
171 ;;^DIST(.404,.404033,40,10,1)
172 ;;=6.3
173 ;;^DIST(.404,.404033,40,10,2)
174 ;;=6,23^3^6,8
175 ;;^DIST(.404,.404033,40,11,0)
176 ;;=5^DISPLAY GROUP^3
177 ;;^DIST(.404,.404033,40,11,1)
178 ;;=3
179 ;;^DIST(.404,.404033,40,11,2)
180 ;;=7,23^20^7,8
181 ;;^DIST(.404,.404033,40,12,0)
182 ;;=4^ASK 'OK'^3
183 ;;^DIST(.404,.404033,40,12,1)
184 ;;=6.6
185 ;;^DIST(.404,.404033,40,12,2)
186 ;;=5,23^3^5,13
187 ;;^DIST(.404,.404034,0)
188 ;;=DDGF FIELD DD OTHER WP^.4044
189 ;;^DIST(.404,.404034,40,0)
190 ;;=^.4044I^10^7
191 ;;^DIST(.404,.404034,40,1,0)
192 ;;=1^ Other Parameters ^1
193 ;;^DIST(.404,.404034,40,1,2)
194 ;;=^^1,14^1
195 ;;^DIST(.404,.404034,40,2,0)
196 ;;=2^REQUIRED^3
197 ;;^DIST(.404,.404034,40,2,1)
198 ;;=6.1
199 ;;^DIST(.404,.404034,40,2,2)
200 ;;=3,23^3^3,13
201 ;;^DIST(.404,.404034,40,3,0)
202 ;;=3^DISABLE EDITING^3
203 ;;^DIST(.404,.404034,40,3,1)
204 ;;=6.4
205 ;;^DIST(.404,.404034,40,3,2)
206 ;;=4,23^3^4,6
207 ;;^DIST(.404,.404034,40,3,14)
208 ;;=I X=2 D HLP^DDSUTL("Word processing fields are always reachable. To make the field uneditable, enter 'YES'.") S DDSERROR=1
209 ;;^DIST(.404,.404034,40,7,0)
210 ;;=4^DISPLAY GROUP^3
211 ;;^DIST(.404,.404034,40,7,1)
212 ;;=3
213 ;;^DIST(.404,.404034,40,7,2)
214 ;;=5,23^20^5,8
215 ;;^DIST(.404,.404034,40,8,0)
216 ;;=5^DATA LENGTH^2
217 ;;^DIST(.404,.404034,40,8,2)
218 ;;=7,23^3^7,10
219 ;;^DIST(.404,.404034,40,8,3)
220 ;;=!M
221 ;;^DIST(.404,.404034,40,8,3.1)
222 ;;=S Y=$G(DDGFDL0)
223 ;;^DIST(.404,.404034,40,8,4)
224 ;;=1
225 ;;^DIST(.404,.404034,40,8,20)
226 ;;=DD^^.4044,4.2
227 ;;^DIST(.404,.404034,40,8,23)
228 ;;=S DDGFDL=X
229 ;;^DIST(.404,.404034,40,9,0)
230 ;;=6^CAPTION COORDINATE^2
231 ;;^DIST(.404,.404034,40,9,2)
232 ;;=8,23^7^8,3
233 ;;^DIST(.404,.404034,40,9,3)
234 ;;=!M
235 ;;^DIST(.404,.404034,40,9,3.1)
236 ;;=S Y=$G(DDGFCC0)
237 ;;^DIST(.404,.404034,40,9,20)
238 ;;=DD^^.4044,5.1
239 ;;^DIST(.404,.404034,40,9,23)
240 ;;=S DDGFCC=X
241 ;;^DIST(.404,.404034,40,10,0)
242 ;;=7^DATA COORDINATE^2
243 ;;^DIST(.404,.404034,40,10,2)
244 ;;=9,23^7^9,6
245 ;;^DIST(.404,.404034,40,10,3)
246 ;;=!M
247 ;;^DIST(.404,.404034,40,10,3.1)
248 ;;=S Y=$G(DDGFDC0)
249 ;;^DIST(.404,.404034,40,10,4)
250 ;;=1
251 ;;^DIST(.404,.404034,40,10,20)
252 ;;=DD^^.4044,4.1
253 ;;^DIST(.404,.404034,40,10,23)
254 ;;=S DDGFDC=X
255 ;;^DIST(.404,.404041,0)
256 ;;=DDGF FIELD FORM ONLY^.4044
257 ;;^DIST(.404,.404041,40,0)
258 ;;=^.4044I^17^14
259 ;;^DIST(.404,.404041,40,1,0)
260 ;;=1^ Form Only Field Properties ^1
261 ;;^DIST(.404,.404041,40,1,2)
262 ;;=^^1,25
263 ;;^DIST(.404,.404041,40,2,0)
264 ;;=2^FIELD ORDER^3
265 ;;^DIST(.404,.404041,40,2,1)
266 ;;=.01
267 ;;^DIST(.404,.404041,40,2,2)
268 ;;=3,26^4^3,13
269 ;;^DIST(.404,.404041,40,5,0)
270 ;;=8^DEFAULT^3
271 ;;^DIST(.404,.404041,40,5,1)
272 ;;=6
273 ;;^DIST(.404,.404041,40,5,2)
274 ;;=8,26^50^8,17
275 ;;^DIST(.404,.404041,40,5,13)
276 ;;=D:X'="!M" PUT^DDSVAL(.4044,.DA,6.01,"")
277 ;;^DIST(.404,.404041,40,7,0)
278 ;;=11^BRANCHING LOGIC^3
279 ;;^DIST(.404,.404041,40,7,1)
280 ;;=10
281 ;;^DIST(.404,.404041,40,7,2)
282 ;;=12,26^50^12,9
Note: See TracBrowser for help on using the repository browser.