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

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

initial load of WorldVistAEHR
File size: 6.6 KB
RevLine 
[613]1DINIT0F4 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;12:26 PM 14 Aug 2000
2 ;;22.0;VA FileMan;**8,42**;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="" ^DINIT0F5 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.00101,0)
8 ;;=DICATT^1
9 ;;^DIST(.404,.00101,40,0)
10 ;;=^.4044I^17^16
11 ;;^DIST(.404,.00101,40,1,0)
12 ;;=1^FIELD LABEL^2^^LABEL
13 ;;^DIST(.404,.00101,40,1,2)
14 ;;=2,14^30^2,1
15 ;;^DIST(.404,.00101,40,1,3)
16 ;;=!M
17 ;;^DIST(.404,.00101,40,1,3.1)
18 ;;=S Y=$P($G(^DD(DICATTA,DICATTF,0)),U)
19 ;;^DIST(.404,.00101,40,1,10)
20 ;;=S DDSBR=20 I X="" S DDSSTACK=9
21 ;;^DIST(.404,.00101,40,1,20)
22 ;;=DD^^0,.01
23 ;;^DIST(.404,.00101,40,2,0)
24 ;;=2^TITLE^2^^TITLE
25 ;;^DIST(.404,.00101,40,2,2)
26 ;;=4,18^60^4,11
27 ;;^DIST(.404,.00101,40,2,3)
28 ;;=!M
29 ;;^DIST(.404,.00101,40,2,3.1)
30 ;;=S Y=$G(^DD(DICATTA,DICATTF,.1))
31 ;;^DIST(.404,.00101,40,2,11)
32 ;;=I $$GET^DDSVALF(1)="" S DDACT="EX"
33 ;;^DIST(.404,.00101,40,2,20)
34 ;;=F^^1:99
35 ;;^DIST(.404,.00101,40,2,22)
36 ;;=I +X=X K X
37 ;;^DIST(.404,.00101,40,3,0)
38 ;;=11^DESCRIPTION...^2^^DESCRIPTION
39 ;;^DIST(.404,.00101,40,3,2)
40 ;;=11,17^1^11,2^1
41 ;;^DIST(.404,.00101,40,3,10)
42 ;;=S DDSSTACK=1.1
43 ;;^DIST(.404,.00101,40,3,20)
44 ;;=F^^1:1
45 ;;^DIST(.404,.00101,40,4,0)
46 ;;=3^AUDIT^2^^AUDIT
47 ;;^DIST(.404,.00101,40,4,2)
48 ;;=5,18^16^5,11
49 ;;^DIST(.404,.00101,40,4,3)
50 ;;=!M
51 ;;^DIST(.404,.00101,40,4,3.1)
52 ;;=S Y=$P($G(^DD(DICATTA,DICATTF,"AUDIT")),U)
53 ;;^DIST(.404,.00101,40,4,20)
54 ;;=DD^^0,1.1
55 ;;^DIST(.404,.00101,40,5,0)
56 ;;=4^AUDIT CONDITION^2^^AUDIT CONDITION
57 ;;^DIST(.404,.00101,40,5,2)
58 ;;=6,18^60^6,1
59 ;;^DIST(.404,.00101,40,5,3)
60 ;;=!M
61 ;;^DIST(.404,.00101,40,5,3.1)
62 ;;=S Y=$G(^DD(DICATTA,DICATTF,"AX"))
63 ;;^DIST(.404,.00101,40,5,20)
64 ;;=DD^^0,1.2
65 ;;^DIST(.404,.00101,40,6,0)
66 ;;=5^READ ACCESS^2^^READ ACCESS
67 ;;^DIST(.404,.00101,40,6,2)
68 ;;=7,18^13^7,5
69 ;;^DIST(.404,.00101,40,6,3)
70 ;;=!M
71 ;;^DIST(.404,.00101,40,6,3.1)
72 ;;=S Y=$G(^DD(DICATTA,DICATTF,8))
73 ;;^DIST(.404,.00101,40,6,20)
74 ;;=DD^^0,8
75 ;;^DIST(.404,.00101,40,7,0)
76 ;;=6^DELETE ACCESS^2^^DELETE ACCESS
77 ;;^DIST(.404,.00101,40,7,2)
78 ;;=8,18^13^8,3
79 ;;^DIST(.404,.00101,40,7,3)
80 ;;=!M
81 ;;^DIST(.404,.00101,40,7,3.1)
82 ;;=S Y=$G(^DD(DICATTA,DICATTF,8.5))
83 ;;^DIST(.404,.00101,40,7,20)
84 ;;=DD^^0,8.5
85 ;;^DIST(.404,.00101,40,8,0)
86 ;;=7^WRITE ACCESS^2^^WRITE ACCESS
87 ;;^DIST(.404,.00101,40,8,2)
88 ;;=9,18^13^9,4
89 ;;^DIST(.404,.00101,40,8,3)
90 ;;=!M
91 ;;^DIST(.404,.00101,40,8,3.1)
92 ;;=S Y=$G(^DD(DICATTA,DICATTF,9))
93 ;;^DIST(.404,.00101,40,8,20)
94 ;;=DD^^0,9
95 ;;^DIST(.404,.00101,40,9,0)
96 ;;=12^TECHNICAL DESCRIPTION...^2
97 ;;^DIST(.404,.00101,40,9,2)
98 ;;=11,49^1^11,24^1
99 ;;^DIST(.404,.00101,40,9,10)
100 ;;=S DDSSTACK=1.2
101 ;;^DIST(.404,.00101,40,9,20)
102 ;;=F^^1:1
103 ;;^DIST(.404,.00101,40,10,0)
104 ;;=18^MANDATORY^2^^MANDATORY
105 ;;^DIST(.404,.00101,40,10,2)
106 ;;=15,17^3^15,6
107 ;;^DIST(.404,.00101,40,10,3)
108 ;;=!M
109 ;;^DIST(.404,.00101,40,10,3.1)
110 ;;=S Y=$S(DICATT2["R":"YES",DICATT2'["C"&'DICATT2:"NO",1:"")
111 ;;^DIST(.404,.00101,40,10,10)
112 ;;=S DDSBR=98
113 ;;^DIST(.404,.00101,40,10,20)
114 ;;=Y
115 ;;^DIST(.404,.00101,40,12,0)
116 ;;=98^HELP-PROMPT^2^^HELP-PROMPT
117 ;;^DIST(.404,.00101,40,12,2)
118 ;;=16,17^61^16,4
119 ;;^DIST(.404,.00101,40,12,3)
120 ;;=!M
121 ;;^DIST(.404,.00101,40,12,3.1)
122 ;;=S Y=$G(^DD(DICATTA,DICATTF,3))
123 ;;^DIST(.404,.00101,40,12,20)
124 ;;=DD^^0,3
125 ;;^DIST(.404,.00101,40,13,0)
126 ;;=99^XECUTABLE HELP^2^^XECUTABLE HELP
127 ;;^DIST(.404,.00101,40,13,2)
128 ;;=17,17^61^17,1
129 ;;^DIST(.404,.00101,40,13,3)
130 ;;=!M
131 ;;^DIST(.404,.00101,40,13,3.1)
132 ;;=S Y=$G(^DD(DICATTA,DICATTF,4))
133 ;;^DIST(.404,.00101,40,13,20)
134 ;;=DD^^0,4
135 ;;^DIST(.404,.00101,40,14,0)
136 ;;=20^DATA TYPE...^2^^TYPE
137 ;;^DIST(.404,.00101,40,14,2)
138 ;;=2,60^20^2,47^1
139 ;;^DIST(.404,.00101,40,14,3)
140 ;;=!M
141 ;;^DIST(.404,.00101,40,14,3.1)
142 ;;=S Y=$$TYPE^DICATTD
143 ;;^DIST(.404,.00101,40,14,4)
144 ;;=1
145 ;;^DIST(.404,.00101,40,14,10)
146 ;;=S DDSBR=18 D BRANCH^DICATTD
147 ;;^DIST(.404,.00101,40,14,11)
148 ;;=I $G(DICATTDK) S DDACT="EX"
149 ;;^DIST(.404,.00101,40,14,20)
150 ;;=S^M^1:DATE;2:NUMERIC;3:SET;4:FREE TEXT;5:WORD-PROCESSING;6:COMPUTED;7:POINTER;8:VARIABLE-POINTER;9:MUMPS
151 ;;^DIST(.404,.00101,40,14,24)
152 ;;=D SCREEN^DICATTD
153 ;;^DIST(.404,.00101,40,15,0)
154 ;;=.5^^4^^FIELD NUMBER
155 ;;^DIST(.404,.00101,40,15,2)
156 ;;=1,1^77
157 ;;^DIST(.404,.00101,40,15,30)
158 ;;=D NUMBER^DICATTD
159 ;;^DIST(.404,.00101,40,16,0)
160 ;;=8^SOURCE^2^^SOURCE
161 ;;^DIST(.404,.00101,40,16,2)
162 ;;=10,18^61^10,10
163 ;;^DIST(.404,.00101,40,16,3)
164 ;;=!M
165 ;;^DIST(.404,.00101,40,16,3.1)
166 ;;=S Y=$G(^DD(DICATTA,DICATTF,10))
167 ;;^DIST(.404,.00101,40,16,20)
168 ;;=DD^^0,10
169 ;;^DIST(.404,.00101,40,17,0)
170 ;;=20.5^IS THIS FIELD MULTIPLE...^2^^MULTIPLE
171 ;;^DIST(.404,.00101,40,17,2)
172 ;;=13,49^3^13,23^1
173 ;;^DIST(.404,.00101,40,17,3)
174 ;;=!M
175 ;;^DIST(.404,.00101,40,17,3.1)
176 ;;=S Y="N"
177 ;;^DIST(.404,.00101,40,17,4)
178 ;;=^^^0
179 ;;^DIST(.404,.00101,40,17,10)
180 ;;=S:DICATT2'["X"&X DDSSTACK=5 I DICATT4="",DUZ(0)="@" S DDSSTACK=$S(X:5,1:3)
181 ;;^DIST(.404,.00101,40,17,11)
182 ;;=I DICATT4="",'$G(DICATTLN) S DDSBR=98
183 ;;^DIST(.404,.00101,40,17,20)
184 ;;=Y
185 ;;^DIST(.404,.00102,0)
186 ;;=DICATT1^1
187 ;;^DIST(.404,.00102,40,0)
188 ;;=^.4044I^6^6
189 ;;^DIST(.404,.00102,40,1,0)
190 ;;=21^EARLIEST DATE^2^^EARLIEST DATE
191 ;;^DIST(.404,.00102,40,1,2)
192 ;;=1,29^18^1,14
193 ;;^DIST(.404,.00102,40,1,3)
194 ;;=!M
195 ;;^DIST(.404,.00102,40,1,3.1)
196 ;;=D EARLY^DICATTD1
197 ;;^DIST(.404,.00102,40,1,10)
198 ;;=S:'Y DDSBR=23
199 ;;^DIST(.404,.00102,40,1,20)
200 ;;=F
201 ;;^DIST(.404,.00102,40,1,21,0)
202 ;;=^^1^1^2981103
203 ;;^DIST(.404,.00102,40,1,21,1,0)
204 ;;=Enter a date, or "DT" to mean the current date at time of data entry
205 ;;^DIST(.404,.00102,40,1,22)
206 ;;=N Y,%DT I X'="DT" S %DT="" D ^%DT K:Y<0 X
207 ;;^DIST(.404,.00102,40,2,0)
208 ;;=22^LATEST DATE^2^^LATEST DATE
209 ;;^DIST(.404,.00102,40,2,2)
210 ;;=2,29^20^2,16
211 ;;^DIST(.404,.00102,40,2,3)
212 ;;=!M
213 ;;^DIST(.404,.00102,40,2,3.1)
214 ;;=D LATEST^DICATTD1
215 ;;^DIST(.404,.00102,40,2,20)
216 ;;=F
217 ;;^DIST(.404,.00102,40,2,21,0)
218 ;;=^^1^1^2981103
219 ;;^DIST(.404,.00102,40,2,21,1,0)
220 ;;=Enter a date, or "DT" to mean the current date at time of data entry
221 ;;^DIST(.404,.00102,40,2,22)
222 ;;=N Y,%DT I X'="DT" S %DT="" D ^%DT K:Y<0 X
223 ;;^DIST(.404,.00102,40,3,0)
224 ;;=23^CAN DATE BE IMPRECISE^2^^CAN DATE BE IMPRECISE
225 ;;^DIST(.404,.00102,40,3,2)
226 ;;=3,29^3^3,6
227 ;;^DIST(.404,.00102,40,3,3)
228 ;;=!M
229 ;;^DIST(.404,.00102,40,3,3.1)
230 ;;=S Y=$E("YN",$P(DICATT5,"""",2)["X"+1)
231 ;;^DIST(.404,.00102,40,3,20)
232 ;;=Y
233 ;;^DIST(.404,.00102,40,3,21,0)
234 ;;=^^1^1^2981031
235 ;;^DIST(.404,.00102,40,3,21,1,0)
236 ;;=E.G., Would 'FEB, 1999' be allowed?
237 ;;^DIST(.404,.00102,40,4,0)
238 ;;=24^CAN TIME OF DAY BE ENTERED^2^^CAN TIME OF DAY BE ENTERED
239 ;;^DIST(.404,.00102,40,4,2)
240 ;;=4,29^3^4,1
241 ;;^DIST(.404,.00102,40,4,3)
242 ;;=!M
243 ;;^DIST(.404,.00102,40,4,3.1)
244 ;;=S Y=$E("NY",$P(DICATT5,"""",2)["T"+1)
245 ;;^DIST(.404,.00102,40,4,10)
246 ;;=S:X=2 DDSBR="COM"
Note: See TracBrowser for help on using the repository browser.