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

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

initial load of WorldVistAEHR
File size: 6.6 KB
RevLine 
[613]1DINIT0FJ ;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="" ^DINIT0FK S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.404041,40,8,0)
8 ;;=12^PRE ACTION^3
9 ;;^DIST(.404,.404041,40,8,1)
10 ;;=11
11 ;;^DIST(.404,.404041,40,8,2)
12 ;;=13,26^50^13,14
13 ;;^DIST(.404,.404041,40,9,0)
14 ;;=13^POST ACTION^3
15 ;;^DIST(.404,.404041,40,9,1)
16 ;;=12
17 ;;^DIST(.404,.404041,40,9,2)
18 ;;=14,26^50^14,13
19 ;;^DIST(.404,.404041,40,10,0)
20 ;;=14^POST ACTION ON CHANGE^3
21 ;;^DIST(.404,.404041,40,10,1)
22 ;;=13
23 ;;^DIST(.404,.404041,40,10,2)
24 ;;=15,26^50^15,3
25 ;;^DIST(.404,.404041,40,11,0)
26 ;;=9^EXECUTABLE CAPTION^3
27 ;;^DIST(.404,.404041,40,11,1)
28 ;;=1.1
29 ;;^DIST(.404,.404041,40,11,2)
30 ;;=9,26^50^9,6
31 ;;^DIST(.404,.404041,40,11,13)
32 ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
33 ;;^DIST(.404,.404041,40,12,0)
34 ;;=10^EXECUTABLE DEFAULT^3
35 ;;^DIST(.404,.404041,40,12,1)
36 ;;=6.01
37 ;;^DIST(.404,.404041,40,12,2)
38 ;;=10,26^50^10,6
39 ;;^DIST(.404,.404041,40,12,13)
40 ;;=D PUT^DDSVAL(.4044,.DA,6,$S(X="":"",1:"!M"))
41 ;;^DIST(.404,.404041,40,13,0)
42 ;;=3^FORM ONLY FIELD PARAMETERS...^2
43 ;;^DIST(.404,.404041,40,13,2)
44 ;;=3,73^1^3,43^1
45 ;;^DIST(.404,.404041,40,13,7)
46 ;;=^11
47 ;;^DIST(.404,.404041,40,13,20)
48 ;;=F^^0:0
49 ;;^DIST(.404,.404041,40,13,21,0)
50 ;;=^^1^1^2940928
51 ;;^DIST(.404,.404041,40,13,21,1,0)
52 ;;=Press <RET> to edit the properties of this form-only field
53 ;;^DIST(.404,.404041,40,14,0)
54 ;;=4^OTHER PARAMETERS...^2
55 ;;^DIST(.404,.404041,40,14,2)
56 ;;=4,26^1^4,6^1
57 ;;^DIST(.404,.404041,40,14,7)
58 ;;=^21
59 ;;^DIST(.404,.404041,40,14,20)
60 ;;=F^^0:0
61 ;;^DIST(.404,.404041,40,14,21,0)
62 ;;=^^1^1^2940928
63 ;;^DIST(.404,.404041,40,14,21,1,0)
64 ;;=Press <RET> to edit additional properties of this form-only field
65 ;;^DIST(.404,.404041,40,15,0)
66 ;;=7^CAPTION^2
67 ;;^DIST(.404,.404041,40,15,2)
68 ;;=7,26^50^7,17
69 ;;^DIST(.404,.404041,40,15,3)
70 ;;=!M
71 ;;^DIST(.404,.404041,40,15,3.1)
72 ;;=S Y=$G(DDGFCAP0)
73 ;;^DIST(.404,.404041,40,15,13)
74 ;;=D FOCAP^DDGFU
75 ;;^DIST(.404,.404041,40,15,20)
76 ;;=DD^^.4044,1
77 ;;^DIST(.404,.404041,40,15,23)
78 ;;=S DDGFCAP=X
79 ;;^DIST(.404,.404041,40,16,0)
80 ;;=5^SUPPRESS COLON AFTER CAPTION?^2
81 ;;^DIST(.404,.404041,40,16,2)
82 ;;=4,73^3^4,43^1
83 ;;^DIST(.404,.404041,40,16,3)
84 ;;=!M
85 ;;^DIST(.404,.404041,40,16,3.1)
86 ;;=S Y=$G(DDGFSUP0)
87 ;;^DIST(.404,.404041,40,16,20)
88 ;;=DD^^.4044,5.2
89 ;;^DIST(.404,.404041,40,16,23)
90 ;;=S DDGFSUP=X
91 ;;^DIST(.404,.404041,40,17,0)
92 ;;=6^UNIQUE NAME^3
93 ;;^DIST(.404,.404041,40,17,1)
94 ;;=3.1
95 ;;^DIST(.404,.404041,40,17,2)
96 ;;=5,26^50^5,13
97 ;;^DIST(.404,.404042,0)
98 ;;=DDGF FIELD FORM ONLY PARAMS^.4044
99 ;;^DIST(.404,.404042,40,0)
100 ;;=^.4044I^9^8
101 ;;^DIST(.404,.404042,40,1,0)
102 ;;=1^ Other Form Only Field Parameters ^1
103 ;;^DIST(.404,.404042,40,1,2)
104 ;;=^^1,22
105 ;;^DIST(.404,.404042,40,2,0)
106 ;;=2^READ TYPE^3
107 ;;^DIST(.404,.404042,40,2,1)
108 ;;=20.1
109 ;;^DIST(.404,.404042,40,2,2)
110 ;;=3,20^15^3,9
111 ;;^DIST(.404,.404042,40,2,4)
112 ;;=1
113 ;;^DIST(.404,.404042,40,3,0)
114 ;;=3^PARAMETERS^3
115 ;;^DIST(.404,.404042,40,3,1)
116 ;;=20.2
117 ;;^DIST(.404,.404042,40,3,2)
118 ;;=4,20^2^4,8
119 ;;^DIST(.404,.404042,40,4,0)
120 ;;=4^QUALIFIERS^3
121 ;;^DIST(.404,.404042,40,4,1)
122 ;;=20.3
123 ;;^DIST(.404,.404042,40,4,2)
124 ;;=5,20^52^5,8
125 ;;^DIST(.404,.404042,40,5,0)
126 ;;=6^INPUT TRANSFORM^3
127 ;;^DIST(.404,.404042,40,5,1)
128 ;;=22
129 ;;^DIST(.404,.404042,40,5,2)
130 ;;=9,20^52^9,3
131 ;;^DIST(.404,.404042,40,6,0)
132 ;;=5^HELP (WP)^3
133 ;;^DIST(.404,.404042,40,6,1)
134 ;;=21
135 ;;^DIST(.404,.404042,40,6,2)
136 ;;=7,20^1^7,9
137 ;;^DIST(.404,.404042,40,8,0)
138 ;;=7^SCREEN^3
139 ;;^DIST(.404,.404042,40,8,1)
140 ;;=24
141 ;;^DIST(.404,.404042,40,8,2)
142 ;;=10,20^52^10,12
143 ;;^DIST(.404,.404042,40,9,0)
144 ;;=8^SAVE CODE^3
145 ;;^DIST(.404,.404042,40,9,1)
146 ;;=23
147 ;;^DIST(.404,.404042,40,9,2)
148 ;;=11,20^52^11,9
149 ;;^DIST(.404,.404051,0)
150 ;;=DDGF FIELD COMPUTED^.4044
151 ;;^DIST(.404,.404051,40,0)
152 ;;=^.4044I^8^8
153 ;;^DIST(.404,.404051,40,1,0)
154 ;;=1^ Computed Field Properties ^1
155 ;;^DIST(.404,.404051,40,1,2)
156 ;;=^^1,26
157 ;;^DIST(.404,.404051,40,2,0)
158 ;;=2^FIELD ORDER^3
159 ;;^DIST(.404,.404051,40,2,1)
160 ;;=.01
161 ;;^DIST(.404,.404051,40,2,2)
162 ;;=3,24^4^3,11
163 ;;^DIST(.404,.404051,40,3,0)
164 ;;=3^OTHER PARAMETERS...^2
165 ;;^DIST(.404,.404051,40,3,2)
166 ;;=4,24^1^4,4^1
167 ;;^DIST(.404,.404051,40,3,7)
168 ;;=^11
169 ;;^DIST(.404,.404051,40,3,20)
170 ;;=F^^1:1
171 ;;^DIST(.404,.404051,40,3,21,0)
172 ;;=^^1^1^2930916
173 ;;^DIST(.404,.404051,40,3,21,1,0)
174 ;;=Press 'RETURN' to edit additional properties of this Data Dictionary field
175 ;;^DIST(.404,.404051,40,4,0)
176 ;;=4^SUPPRESS COLON AFTER CAPTION?^2
177 ;;^DIST(.404,.404051,40,4,2)
178 ;;=4,71^3^4,41^1
179 ;;^DIST(.404,.404051,40,4,3)
180 ;;=!M
181 ;;^DIST(.404,.404051,40,4,3.1)
182 ;;=S Y=DDGFSUP0
183 ;;^DIST(.404,.404051,40,4,20)
184 ;;=DD^^.4044,5.2
185 ;;^DIST(.404,.404051,40,4,23)
186 ;;=S DDGFSUP=X
187 ;;^DIST(.404,.404051,40,5,0)
188 ;;=5^UNIQUE NAME^3
189 ;;^DIST(.404,.404051,40,5,1)
190 ;;=3.1
191 ;;^DIST(.404,.404051,40,5,2)
192 ;;=5,24^50^5,11
193 ;;^DIST(.404,.404051,40,6,0)
194 ;;=6^CAPTION^2
195 ;;^DIST(.404,.404051,40,6,2)
196 ;;=7,24^50^7,15
197 ;;^DIST(.404,.404051,40,6,3)
198 ;;=!M
199 ;;^DIST(.404,.404051,40,6,3.1)
200 ;;=S Y=DDGFCAP0
201 ;;^DIST(.404,.404051,40,6,13)
202 ;;=D COMPCAP^DDGFU
203 ;;^DIST(.404,.404051,40,6,20)
204 ;;=DD^^.4044,1
205 ;;^DIST(.404,.404051,40,6,23)
206 ;;=S DDGFCAP=X
207 ;;^DIST(.404,.404051,40,7,0)
208 ;;=7^EXECUTABLE CAPTION^3
209 ;;^DIST(.404,.404051,40,7,1)
210 ;;=1.1
211 ;;^DIST(.404,.404051,40,7,2)
212 ;;=8,24^50^8,4
213 ;;^DIST(.404,.404051,40,7,13)
214 ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
215 ;;^DIST(.404,.404051,40,8,0)
216 ;;=8^COMPUTED EXPRESSION^3
217 ;;^DIST(.404,.404051,40,8,1)
218 ;;=30
219 ;;^DIST(.404,.404051,40,8,2)
220 ;;=10,24^50^10,3
221 ;;^DIST(.404,.404051,40,8,4)
222 ;;=1
223 ;;^DIST(.404,.404052,0)
224 ;;=DDGF FIELD COMPUTED OTHER^.4044
225 ;;^DIST(.404,.404052,40,0)
226 ;;=^.4044I^8^5
227 ;;^DIST(.404,.404052,40,1,0)
228 ;;=1^ Other Computed Field Properties ^1
229 ;;^DIST(.404,.404052,40,1,2)
230 ;;=^^1,6
231 ;;^DIST(.404,.404052,40,5,0)
232 ;;=3^DATA LENGTH^2
233 ;;^DIST(.404,.404052,40,5,2)
234 ;;=5,25^3^5,12
235 ;;^DIST(.404,.404052,40,5,3)
236 ;;=!M
237 ;;^DIST(.404,.404052,40,5,3.1)
238 ;;=S Y=$G(DDGFDL0)
239 ;;^DIST(.404,.404052,40,5,20)
240 ;;=DD^^.4044,4.2
241 ;;^DIST(.404,.404052,40,5,23)
242 ;;=S DDGFDL=X
243 ;;^DIST(.404,.404052,40,6,0)
244 ;;=4^CAPTION COORDINATE^2
245 ;;^DIST(.404,.404052,40,6,2)
246 ;;=6,25^7^6,5
247 ;;^DIST(.404,.404052,40,6,3)
248 ;;=!M
249 ;;^DIST(.404,.404052,40,6,3.1)
250 ;;=S Y=$G(DDGFCC0)
251 ;;^DIST(.404,.404052,40,6,20)
252 ;;=DD^^.4044,5.1
253 ;;^DIST(.404,.404052,40,6,23)
254 ;;=S DDGFCC=X
255 ;;^DIST(.404,.404052,40,7,0)
256 ;;=5^DATA COORDINATE^2
257 ;;^DIST(.404,.404052,40,7,2)
258 ;;=7,25^7^7,8
259 ;;^DIST(.404,.404052,40,7,3)
260 ;;=!M
261 ;;^DIST(.404,.404052,40,7,3.1)
262 ;;=S Y=$G(DDGFDC0)
263 ;;^DIST(.404,.404052,40,7,20)
264 ;;=DD^^.4044,4.1
265 ;;^DIST(.404,.404052,40,7,23)
266 ;;=S DDGFDC=X
267 ;;^DIST(.404,.404052,40,8,0)
268 ;;=2^RIGHT JUSTIFY^3
Note: See TracBrowser for help on using the repository browser.