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

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

revised back to 6/30/08 version
File size: 6.7 KB
RevLine 
[623]1DINIT0F0 ;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 D PRE^DINIT29P
5 F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F1 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
6 Q
7ENTRY ;
8 ;;^DIST(.403,.001,0)
9 ;;=DICATT^@^@^^2981031.1257^2990319.1306^^1^0^1^1
10 ;;^DIST(.403,.001,1)
11 ;;=2000000
12 ;;^DIST(.403,.001,3)
13 ;;=3000000
14 ;;^DIST(.403,.001,4)
15 ;;=N
16 ;;^DIST(.403,.001,5)
17 ;;=Y
18 ;;^DIST(.403,.001,6)
19 ;;=N
20 ;;^DIST(.403,.001,7)
21 ;;=N
22 ;;^DIST(.403,.001,15,0)
23 ;;=^^36^36^2981214
24 ;;^DIST(.403,.001,15,1,0)
25 ;;=Pages: 1 Main form
26 ;;^DIST(.403,.001,15,2,0)
27 ;;= 1.1, 1.2 DESCRIPTION and TECHNICAL DESCRIPTION text
28 ;;^DIST(.403,.001,15,3,0)
29 ;;= 2.1-2.8 TYPE-specific (2.1=DATE, etc)
30 ;;^DIST(.403,.001,15,4,0)
31 ;;= 3 SUBSCRIPT & PIECE-position
32 ;;^DIST(.403,.001,15,5,0)
33 ;;= 4 SUBSCRIPT & SUB-DICTIONARY NUMBER
34 ;;^DIST(.403,.001,15,6,0)
35 ;;= 5 Multiples
36 ;;^DIST(.403,.001,15,7,0)
37 ;;= 6 SCREEN for Pointers & Sets
38 ;;^DIST(.403,.001,15,8,0)
39 ;;= 8 VARIABLE-POINTER extra fields for each pointer
40 ;;^DIST(.403,.001,15,9,0)
41 ;;= 9 "ARE YOU SURE YOU WANT TO DELETE THE ENTIRE FIELD?"
42 ;;^DIST(.403,.001,15,10,0)
43 ;;= 10 Multiple-field
44 ;;^DIST(.403,.001,15,11,0)
45 ;;=
46 ;;^DIST(.403,.001,15,12,0)
47 ;;=
48 ;;^DIST(.403,.001,15,13,0)
49 ;;=
50 ;;^DIST(.403,.001,15,14,0)
51 ;;=Branching logic:
52 ;;^DIST(.403,.001,15,15,0)
53 ;;= From Field 20.5 ("MULTIPLE?")
54 ;;^DIST(.403,.001,15,16,0)
55 ;;= IS THIS FIELD NEW AND IS THE USER A PROGRAMMER?
56 ;;^DIST(.403,.001,15,17,0)
57 ;;= | |
58 ;;^DIST(.403,.001,15,18,0)
59 ;;= NO YES
60 ;;^DIST(.403,.001,15,19,0)
61 ;;= | |
62 ;;^DIST(.403,.001,15,20,0)
63 ;;= | IS FIELD MULTIPLE?
64 ;;^DIST(.403,.001,15,21,0)
65 ;;= | | |
66 ;;^DIST(.403,.001,15,22,0)
67 ;;= | YES NO
68 ;;^DIST(.403,.001,15,23,0)
69 ;;= | | |
70 ;;^DIST(.403,.001,15,24,0)
71 ;;=IS FIELD EDITABLE & MULTIPLE? | |
72 ;;^DIST(.403,.001,15,25,0)
73 ;;= | | | |
74 ;;^DIST(.403,.001,15,26,0)
75 ;;= | YES ---------> Page 5 Page 3
76 ;;^DIST(.403,.001,15,27,0)
77 ;;= | | |
78 ;;^DIST(.403,.001,15,28,0)
79 ;;= | PROGRAMMER? |
80 ;;^DIST(.403,.001,15,29,0)
81 ;;= | | | |
82 ;;^DIST(.403,.001,15,30,0)
83 ;;= | YES NO |
84 ;;^DIST(.403,.001,15,31,0)
85 ;;= | | | |
86 ;;^DIST(.403,.001,15,32,0)
87 ;;= | Page 4 | |
88 ;;^DIST(.403,.001,15,33,0)
89 ;;= | | | |
90 ;;^DIST(.403,.001,15,34,0)
91 ;;= --------------------------------->|<------------------
92 ;;^DIST(.403,.001,15,35,0)
93 ;;= |
94 ;;^DIST(.403,.001,15,36,0)
95 ;;= Field 98 (HELP-PROMPT)
96 ;;^DIST(.403,.001,20)
97 ;;=D POST^DICATTDE
98 ;;^DIST(.403,.001,40,0)
99 ;;=^.4031I^21^18
100 ;;^DIST(.403,.001,40,1,0)
101 ;;=1^^1,1
102 ;;^DIST(.403,.001,40,1,1)
103 ;;=Page 1
104 ;;^DIST(.403,.001,40,1,40,0)
105 ;;=^.4032IP^.00101^1
106 ;;^DIST(.403,.001,40,1,40,.00101,0)
107 ;;=.00101^1^1,1^e
108 ;;^DIST(.403,.001,40,1,40,.00101,11)
109 ;;=D PRE^DICATTD
110 ;;^DIST(.403,.001,40,2,0)
111 ;;=2.1^^4,3^^^1^12,70
112 ;;^DIST(.403,.001,40,2,1)
113 ;;=Page 2.1
114 ;;^DIST(.403,.001,40,2,12)
115 ;;=D POST1^DICATTD1
116 ;;^DIST(.403,.001,40,2,40,0)
117 ;;=^.4032IP^.00102^1
118 ;;^DIST(.403,.001,40,2,40,.00102,0)
119 ;;=.00102^1^2,3^e
120 ;;^DIST(.403,.001,40,3,0)
121 ;;=2.2^^4,3^^^1^9,70
122 ;;^DIST(.403,.001,40,3,1)
123 ;;=Page 2.2
124 ;;^DIST(.403,.001,40,3,12)
125 ;;=D POST2^DICATTD2
126 ;;^DIST(.403,.001,40,3,40,0)
127 ;;=^.4032IP^.00103^1
128 ;;^DIST(.403,.001,40,3,40,.00103,0)
129 ;;=.00103^1^2,3^e
130 ;;^DIST(.403,.001,40,6,0)
131 ;;=2.4^^3,8^^^1^7,67
132 ;;^DIST(.403,.001,40,6,1)
133 ;;=Page 2.4
134 ;;^DIST(.403,.001,40,6,12)
135 ;;=D POST4^DICATTD4
136 ;;^DIST(.403,.001,40,6,40,0)
137 ;;=^.4032IP^.00104^1
138 ;;^DIST(.403,.001,40,6,40,.00104,0)
139 ;;=.00104^1^1,1^e
140 ;;^DIST(.403,.001,40,7,0)
141 ;;=2.5^^4,6^^^1^6,75
142 ;;^DIST(.403,.001,40,7,1)
143 ;;=Page 2.5
144 ;;^DIST(.403,.001,40,7,40,0)
145 ;;=^.4032IP^.00105^1
146 ;;^DIST(.403,.001,40,7,40,.00105,0)
147 ;;=.00105^1^1,1^e
148 ;;^DIST(.403,.001,40,8,0)
149 ;;=2.6^^3,2^^^1^11,77
150 ;;^DIST(.403,.001,40,8,1)
151 ;;=Page 2.6
152 ;;^DIST(.403,.001,40,8,12)
153 ;;=D POST6^DICATTD6
154 ;;^DIST(.403,.001,40,8,40,0)
155 ;;=^.4032IP^.00106^1
156 ;;^DIST(.403,.001,40,8,40,.00106,0)
157 ;;=.00106^1^1,1^e
158 ;;^DIST(.403,.001,40,9,0)
159 ;;=2.7^^3,2^^^1^8,75
160 ;;^DIST(.403,.001,40,9,1)
161 ;;=Page 2.7
162 ;;^DIST(.403,.001,40,9,12)
163 ;;=D POST7^DICATTD7
164 ;;^DIST(.403,.001,40,9,40,0)
165 ;;=^.4032IP^.00107^1
166 ;;^DIST(.403,.001,40,9,40,.00107,0)
167 ;;=.00107^1^1,1^e
168 ;;^DIST(.403,.001,40,10,0)
169 ;;=2.8^^3,3^^^1^11,77
170 ;;^DIST(.403,.001,40,10,1)
171 ;;=Page 2.8
172 ;;^DIST(.403,.001,40,10,40,0)
173 ;;=^.4032IP^.00108^1
174 ;;^DIST(.403,.001,40,10,40,.00108,0)
175 ;;=.00108^1^1,1^e
176 ;;^DIST(.403,.001,40,11,0)
177 ;;=2.3^^3,6^^^1^17,70
178 ;;^DIST(.403,.001,40,11,1)
179 ;;=Page 2.3
180 ;;^DIST(.403,.001,40,11,12)
181 ;;=D POST3^DICATTD3
182 ;;^DIST(.403,.001,40,11,40,0)
183 ;;=^.4032IP^.00109^1
184 ;;^DIST(.403,.001,40,11,40,.00109,0)
185 ;;=.00109^1^1,1^e
186 ;;^DIST(.403,.001,40,12,0)
187 ;;=1.1^^1,1^^1
188 ;;^DIST(.403,.001,40,12,1)
189 ;;=Page 1.1
190 ;;^DIST(.403,.001,40,12,40,0)
191 ;;=^.4032IP^.0011^1
192 ;;^DIST(.403,.001,40,12,40,.0011,0)
193 ;;=.0011^1^1,1^e
194 ;;^DIST(.403,.001,40,12,40,.0011,11)
195 ;;=D WORD^DICATTD0(21)
196 ;;^DIST(.403,.001,40,13,0)
197 ;;=1.2^^1,1
198 ;;^DIST(.403,.001,40,13,1)
199 ;;=Page 1.2
200 ;;^DIST(.403,.001,40,13,40,0)
201 ;;=^.4032IP^.00111^1
202 ;;^DIST(.403,.001,40,13,40,.00111,0)
203 ;;=.00111^1^1,1^e
204 ;;^DIST(.403,.001,40,15,0)
205 ;;=3^^4,8^^^1^7,64
206 ;;^DIST(.403,.001,40,15,1)
207 ;;=Page 3
208 ;;^DIST(.403,.001,40,15,12)
209 ;;=D POST^DICATTDM
210 ;;^DIST(.403,.001,40,15,40,0)
211 ;;=^.4032IP^.00112^1
212 ;;^DIST(.403,.001,40,15,40,.00112,0)
213 ;;=.00112^1^2,2^e
214 ;;^DIST(.403,.001,40,16,0)
215 ;;=9^^3,10^^^1^7,70
216 ;;^DIST(.403,.001,40,16,1)
217 ;;=Page 9
218 ;;^DIST(.403,.001,40,16,40,0)
219 ;;=^.4032IP^.00113^1
220 ;;^DIST(.403,.001,40,16,40,.00113,0)
221 ;;=.00113^1^1,1^e
222 ;;^DIST(.403,.001,40,17,0)
223 ;;=4^^9,5^^^1^12,75
224 ;;^DIST(.403,.001,40,17,1)
225 ;;=Page 4
226 ;;^DIST(.403,.001,40,17,40,0)
227 ;;=^.4032IP^.00114^1
228 ;;^DIST(.403,.001,40,17,40,.00114,0)
229 ;;=.00114^1^1,1^e
Note: See TracBrowser for help on using the repository browser.