source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0FG.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.8 KB
RevLine 
[613]1DINIT0FG ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:43 AM 3 Jun 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="" ^DINIT0FH S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.403013,40,3,0)
8 ;;=3^Parameters for Repeating Blocks^1
9 ;;^DIST(.404,.403013,40,3,2)
10 ;;=^^5,3
11 ;;^DIST(.404,.403013,40,4,0)
12 ;;=4^REPLICATION^3
13 ;;^DIST(.404,.403013,40,4,1)
14 ;;=5
15 ;;^DIST(.404,.403013,40,4,2)
16 ;;=7,24^3^7,11
17 ;;^DIST(.404,.403013,40,4,13)
18 ;;=Q:DDSOLD>1&(X>1) N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION","ASK 'OK'" D UNED^DDSUTL(DDGFZ,"","",X<2) D:X<2 PUT^DDSVAL(DIE,.DA,DDGFZ)
19 ;;^DIST(.404,.403013,40,5,0)
20 ;;=5^INDEX^3
21 ;;^DIST(.404,.403013,40,5,1)
22 ;;=6
23 ;;^DIST(.404,.403013,40,5,2)
24 ;;=8,24^30^8,17
25 ;;^DIST(.404,.403013,40,6,0)
26 ;;=6^INITIAL POSITION^3
27 ;;^DIST(.404,.403013,40,6,1)
28 ;;=7
29 ;;^DIST(.404,.403013,40,6,2)
30 ;;=9,24^5^9,6
31 ;;^DIST(.404,.403013,40,7,0)
32 ;;=7^DISALLOW LAYGO^3
33 ;;^DIST(.404,.403013,40,7,1)
34 ;;=8
35 ;;^DIST(.404,.403013,40,7,2)
36 ;;=10,24^3^10,8
37 ;;^DIST(.404,.403013,40,8,0)
38 ;;=8^FIELD FOR SELECTION^3
39 ;;^DIST(.404,.403013,40,8,1)
40 ;;=9
41 ;;^DIST(.404,.403013,40,8,2)
42 ;;=11,24^30^11,3
43 ;;^DIST(.404,.403013,40,9,0)
44 ;;=9^ASK 'OK'^3
45 ;;^DIST(.404,.403013,40,9,1)
46 ;;=10
47 ;;^DIST(.404,.403013,40,9,2)
48 ;;=12,24^3^12,14
49 ;;^DIST(.404,.403021,0)
50 ;;=DDGF PAGE ADD^.4031
51 ;;^DIST(.404,.403021,40,0)
52 ;;=^.4044I^1^1
53 ;;^DIST(.404,.403021,40,1,0)
54 ;;=1^NEW PAGE NUMBER^2
55 ;;^DIST(.404,.403021,40,1,2)
56 ;;=3,20^5^3,3
57 ;;^DIST(.404,.403021,40,1,12)
58 ;;=S DDACT="EX"
59 ;;^DIST(.404,.403021,40,1,20)
60 ;;=DD^^.4031,.01
61 ;;^DIST(.404,.403021,40,1,23)
62 ;;=S DDGFPNUM=X
63 ;;^DIST(.404,.403022,0)
64 ;;=DDGF PAGE ADD ARE YOU SURE^.4031
65 ;;^DIST(.404,.403022,40,0)
66 ;;=^.4044I^2^2
67 ;;^DIST(.404,.403022,40,1,0)
68 ;;=1^!M^1
69 ;;^DIST(.404,.403022,40,1,.1)
70 ;;=S Y="Are you adding Page "_DDGFPNUM
71 ;;^DIST(.404,.403022,40,1,2)
72 ;;=^^3,3
73 ;;^DIST(.404,.403022,40,2,0)
74 ;;=2^as a new page on this form?^2
75 ;;^DIST(.404,.403022,40,2,2)
76 ;;=4,31^3^4,3^1
77 ;;^DIST(.404,.403022,40,2,12)
78 ;;=S DDACT="EX"
79 ;;^DIST(.404,.403022,40,2,20)
80 ;;=Y
81 ;;^DIST(.404,.403022,40,2,23)
82 ;;=S DDGFANS=X
83 ;;^DIST(.404,.403031,0)
84 ;;=DDGF PAGE EDIT^.4031
85 ;;^DIST(.404,.403031,40,0)
86 ;;=^.4044I^16^13
87 ;;^DIST(.404,.403031,40,1,0)
88 ;;=1^ Page Properties ^1
89 ;;^DIST(.404,.403031,40,1,2)
90 ;;=^^1,27
91 ;;^DIST(.404,.403031,40,2,0)
92 ;;=2^PAGE NUMBER^3
93 ;;^DIST(.404,.403031,40,2,1)
94 ;;=.01
95 ;;^DIST(.404,.403031,40,2,2)
96 ;;=3,21^5^3,8
97 ;;^DIST(.404,.403031,40,4,0)
98 ;;=4^HEADER BLOCK^3
99 ;;^DIST(.404,.403031,40,4,1)
100 ;;=1
101 ;;^DIST(.404,.403031,40,4,2)
102 ;;=5,21^30^5,7
103 ;;^DIST(.404,.403031,40,5,0)
104 ;;=8^NEXT PAGE^3
105 ;;^DIST(.404,.403031,40,5,1)
106 ;;=3
107 ;;^DIST(.404,.403031,40,5,2)
108 ;;=9,21^5^9,10
109 ;;^DIST(.404,.403031,40,6,0)
110 ;;=9^PREVIOUS PAGE^3
111 ;;^DIST(.404,.403031,40,6,1)
112 ;;=4
113 ;;^DIST(.404,.403031,40,6,2)
114 ;;=10,21^5^10,6
115 ;;^DIST(.404,.403031,40,7,0)
116 ;;=12^PRE ACTION^3
117 ;;^DIST(.404,.403031,40,7,1)
118 ;;=11
119 ;;^DIST(.404,.403031,40,7,2)
120 ;;=14,21^53^14,9
121 ;;^DIST(.404,.403031,40,8,0)
122 ;;=13^POST ACTION^3
123 ;;^DIST(.404,.403031,40,8,1)
124 ;;=12
125 ;;^DIST(.404,.403031,40,8,2)
126 ;;=15,21^53^15,8
127 ;;^DIST(.404,.403031,40,9,0)
128 ;;=11^DESCRIPTION (WP)^3
129 ;;^DIST(.404,.403031,40,9,1)
130 ;;=15
131 ;;^DIST(.404,.403031,40,9,2)
132 ;;=13,21^1^13,3
133 ;;^DIST(.404,.403031,40,12,0)
134 ;;=10^PARENT FIELD^3
135 ;;^DIST(.404,.403031,40,12,1)
136 ;;=8
137 ;;^DIST(.404,.403031,40,12,2)
138 ;;=11,21^53^11,7
139 ;;^DIST(.404,.403031,40,13,0)
140 ;;=6^IS THIS A POP UP PAGE?^2
141 ;;^DIST(.404,.403031,40,13,2)
142 ;;=7,67^3^7,44^1
143 ;;^DIST(.404,.403031,40,13,3)
144 ;;=!M
145 ;;^DIST(.404,.403031,40,13,3.1)
146 ;;=S:$G(DDGFLRC)]"" Y=1
147 ;;^DIST(.404,.403031,40,13,13)
148 ;;=N LRC,PP,NP S LRC="LOWER RIGHT COORDINATE",PP="PREVIOUS PAGE",NP="NEXT PAGE" D:X PUT^DDSVALF(LRC,"","","15,75"):$$GET^DDSVALF(LRC)="" D:'X PUT^DDSVALF(LRC) N PG F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X)) D:X PUT^DDSVAL(DIE,.DA,PG)
149 ;;^DIST(.404,.403031,40,13,20)
150 ;;=DD^^.4031,5
151 ;;^DIST(.404,.403031,40,14,0)
152 ;;=5^PAGE COORDINATE^2
153 ;;^DIST(.404,.403031,40,14,2)
154 ;;=7,21^7^7,4
155 ;;^DIST(.404,.403031,40,14,3)
156 ;;=!M
157 ;;^DIST(.404,.403031,40,14,3.1)
158 ;;=S Y=$G(DDGFTLC0)
159 ;;^DIST(.404,.403031,40,14,4)
160 ;;=1
161 ;;^DIST(.404,.403031,40,14,20)
162 ;;=DD^^.4031,2
163 ;;^DIST(.404,.403031,40,14,23)
164 ;;=S DDGFTLC=X
165 ;;^DIST(.404,.403031,40,15,0)
166 ;;=7^LOWER RIGHT COORDINATE^2
167 ;;^DIST(.404,.403031,40,15,2)
168 ;;=8,67^7^8,43
169 ;;^DIST(.404,.403031,40,15,3)
170 ;;=!M
171 ;;^DIST(.404,.403031,40,15,3.1)
172 ;;=S Y=$G(DDGFLRC0)
173 ;;^DIST(.404,.403031,40,15,13)
174 ;;=I DDSOLD=""!(X="") D PUT^DDSVALF("IS THIS A POP UP PAGE?","","",$S(X="":"",1:1),"I") N PG,NP,PP S NP="NEXT PAGE",PP="PREVIOUS PAGE" F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X]"")) D:X]"" PUT^DDSVAL(DIE,.DA,PG)
175 ;;^DIST(.404,.403031,40,15,20)
176 ;;=DD^^.4031,6
177 ;;^DIST(.404,.403031,40,15,23)
178 ;;=S DDGFLRC=X
179 ;;^DIST(.404,.403031,40,16,0)
180 ;;=3^PAGE NAME^2
181 ;;^DIST(.404,.403031,40,16,2)
182 ;;=4,21^30^4,10
183 ;;^DIST(.404,.403031,40,16,3)
184 ;;=!M
185 ;;^DIST(.404,.403031,40,16,3.1)
186 ;;=S Y=$G(DDGFPNM0)
187 ;;^DIST(.404,.403031,40,16,4)
188 ;;=1
189 ;;^DIST(.404,.403031,40,16,20)
190 ;;=DD^^.4031,7
191 ;;^DIST(.404,.403031,40,16,23)
192 ;;=S DDGFPNM=X
193 ;;^DIST(.404,.403041,0)
194 ;;=DDGF PAGE SELECT^.4031
195 ;;^DIST(.404,.403041,40,0)
196 ;;=^.4044I^1^1
197 ;;^DIST(.404,.403041,40,1,0)
198 ;;=1^Select PAGE^2
199 ;;^DIST(.404,.403041,40,1,2)
200 ;;=1,14^30^1,1
201 ;;^DIST(.404,.403041,40,1,3)
202 ;;=!M
203 ;;^DIST(.404,.403041,40,1,3.1)
204 ;;=S Y=$P(^DIST(.403,+DDGFFM,40,DDGFPAGE,0),U)
205 ;;^DIST(.404,.403041,40,1,12)
206 ;;=S DDACT="EX"
207 ;;^DIST(.404,.403041,40,1,20)
208 ;;=P^^DIST(.403,+DDGFFM,40,:QEAMZF
209 ;;^DIST(.404,.403041,40,1,23)
210 ;;=S DDGFPAGE=X
211 ;;^DIST(.404,.403051,0)
212 ;;=DDGF FORM EDIT^.403
213 ;;^DIST(.404,.403051,40,0)
214 ;;=^.4044I^11^11
215 ;;^DIST(.404,.403051,40,1,0)
216 ;;=1^ Form Properties ^1
217 ;;^DIST(.404,.403051,40,1,2)
218 ;;=^^1,29
219 ;;^DIST(.404,.403051,40,2,0)
220 ;;=2^NAME^3
221 ;;^DIST(.404,.403051,40,2,1)
222 ;;=.01
223 ;;^DIST(.404,.403051,40,2,2)
224 ;;=3,20^30^3,14
225 ;;^DIST(.404,.403051,40,2,4)
226 ;;=1
227 ;;^DIST(.404,.403051,40,3,0)
228 ;;=4^PRE ACTION^3
229 ;;^DIST(.404,.403051,40,3,1)
230 ;;=11
231 ;;^DIST(.404,.403051,40,3,2)
232 ;;=6,20^54^6,8
233 ;;^DIST(.404,.403051,40,4,0)
234 ;;=5^POST ACTION^3
235 ;;^DIST(.404,.403051,40,4,1)
236 ;;=12
237 ;;^DIST(.404,.403051,40,4,2)
238 ;;=7,20^54^7,7
239 ;;^DIST(.404,.403051,40,5,0)
240 ;;=8^DESCRIPTION^3
241 ;;^DIST(.404,.403051,40,5,1)
242 ;;=15
243 ;;^DIST(.404,.403051,40,5,2)
244 ;;=11,20^1^11,7
245 ;;^DIST(.404,.403051,40,6,0)
246 ;;=6^DATA VALIDATION^3
247 ;;^DIST(.404,.403051,40,6,1)
248 ;;=20
249 ;;^DIST(.404,.403051,40,6,2)
250 ;;=8,20^54^8,3
251 ;;^DIST(.404,.403051,40,7,0)
252 ;;=9^RECORD SELECTION PAGE^3
253 ;;^DIST(.404,.403051,40,7,1)
254 ;;=21
255 ;;^DIST(.404,.403051,40,7,2)
256 ;;=11,69^5^11,46
257 ;;^DIST(.404,.403051,40,8,0)
258 ;;=7^POST SAVE^3
259 ;;^DIST(.404,.403051,40,8,1)
260 ;;=14
261 ;;^DIST(.404,.403051,40,8,2)
262 ;;=9,20^54^9,9
263 ;;^DIST(.404,.403051,40,9,0)
264 ;;=3^TITLE^3
265 ;;^DIST(.404,.403051,40,9,1)
266 ;;=6
Note: See TracBrowser for help on using the repository browser.