source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0F5.m@ 711

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

initial load of FOIAVistA 6/30/08 version
File size: 8.1 KB
Line 
1DINIT0F5 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;9APR2007
2 ;;22.0;VA FileMan;**76,152**;Mar 30, 1999;Build 10
3 ;Per VHA Directive 2004-038, this routine should not be modified.
4 F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F6 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.00102,40,4,20)
8 ;;=Y
9 ;;^DIST(.404,.00102,40,4,21,0)
10 ;;=^^1^1^2981102
11 ;;^DIST(.404,.00102,40,4,21,1,0)
12 ;;=Can user enter time along with date, as in 'FEB23, 1999@7:30'
13 ;;^DIST(.404,.00102,40,5,0)
14 ;;=25^CAN SECONDS BE ENTERED^2^^SECONDS
15 ;;^DIST(.404,.00102,40,5,2)
16 ;;=5,29^3^5,5
17 ;;^DIST(.404,.00102,40,5,3)
18 ;;=!M
19 ;;^DIST(.404,.00102,40,5,3.1)
20 ;;=S Y=$E("NY",$P(DICATT5,"""",2)["S"+1)
21 ;;^DIST(.404,.00102,40,5,20)
22 ;;=Y
23 ;;^DIST(.404,.00102,40,6,0)
24 ;;=26^IS TIME REQUIRED^2^^IS TIME REQUIRED
25 ;;^DIST(.404,.00102,40,6,2)
26 ;;=6,29^3^6,11
27 ;;^DIST(.404,.00102,40,6,3)
28 ;;=!M
29 ;;^DIST(.404,.00102,40,6,3.1)
30 ;;=S Y=$E("NY",$P(DICATT5,"""",2)["R"+1)
31 ;;^DIST(.404,.00102,40,6,20)
32 ;;=Y
33 ;;^DIST(.404,.00102,40,6,21,0)
34 ;;=^^1^1^2981102
35 ;;^DIST(.404,.00102,40,6,21,1,0)
36 ;;=Must user enter TIME along with DATE?
37 ;;^DIST(.404,.00103,0)
38 ;;=DICATT2^1
39 ;;^DIST(.404,.00103,40,0)
40 ;;=^.4044I^4^4
41 ;;^DIST(.404,.00103,40,1,0)
42 ;;=31^INCLUSIVE LOWER BOUND^2^^LOWER BOUND
43 ;;^DIST(.404,.00103,40,1,2)
44 ;;=1,38^20^1,15
45 ;;^DIST(.404,.00103,40,1,3)
46 ;;=!M
47 ;;^DIST(.404,.00103,40,1,3.1)
48 ;;=I DICATT5["X<" S Y=+$P(DICATT5,"X<",2)
49 ;;^DIST(.404,.00103,40,1,4)
50 ;;=1
51 ;;^DIST(.404,.00103,40,1,20)
52 ;;=F^^1:20
53 ;;^DIST(.404,.00103,40,1,21,0)
54 ;;=^^1^1^2990219
55 ;;^DIST(.404,.00103,40,1,21,1,0)
56 ;;=Enter the lowest allowable number
57 ;;^DIST(.404,.00103,40,1,22)
58 ;;=K:+X'=X!(X'["."&($L(X)>15))!(X["."&($L($P(+X,"."))+$L($P(+X,".",2))>15)) X
59 ;;^DIST(.404,.00103,40,2,0)
60 ;;=32^INCLUSIVE UPPER BOUND^2^^UPPER BOUND
61 ;;^DIST(.404,.00103,40,2,2)
62 ;;=2,38^20^2,15
63 ;;^DIST(.404,.00103,40,2,3)
64 ;;=!M
65 ;;^DIST(.404,.00103,40,2,3.1)
66 ;;=I DICATT5["X>" S Y=+$P(DICATT5,"X>",2)
67 ;;^DIST(.404,.00103,40,2,4)
68 ;;=1
69 ;;^DIST(.404,.00103,40,2,20)
70 ;;=F^^1:20
71 ;;^DIST(.404,.00103,40,2,21,0)
72 ;;=^^1^1^2990219
73 ;;^DIST(.404,.00103,40,2,21,1,0)
74 ;;=Enter the highest allowable number
75 ;;^DIST(.404,.00103,40,2,22)
76 ;;=K:+X'=X!(X'["."&($L(X)>15))!(X["."&($L($P(+X,"."))+$L($P(+X,"."))>15)) X
77 ;;^DIST(.404,.00103,40,3,0)
78 ;;=33^IS THIS A DOLLAR AMOUNT^2^^DOLLAR AMOUNT
79 ;;^DIST(.404,.00103,40,3,2)
80 ;;=3,38^3^3,13
81 ;;^DIST(.404,.00103,40,3,3)
82 ;;=!M
83 ;;^DIST(.404,.00103,40,3,3.1)
84 ;;=S Y=$E("NY",DICATT5["""$"""+1)
85 ;;^DIST(.404,.00103,40,3,12)
86 ;;=I X=1 D PUT^DDSVALF(34,,,2,"") S DDSBR="COM"
87 ;;^DIST(.404,.00103,40,3,20)
88 ;;=Y
89 ;;^DIST(.404,.00103,40,4,0)
90 ;;=34^MAXIMUM NUMBER OF FRACTIONAL DIGITS^2^^FRACTIONAL DIGITS
91 ;;^DIST(.404,.00103,40,4,2)
92 ;;=4,38^1^4,1
93 ;;^DIST(.404,.00103,40,4,3)
94 ;;=!M
95 ;;^DIST(.404,.00103,40,4,3.1)
96 ;;=S Y=$S(DICATT5["""$""":2,1:$P(DICATT5,"1"".""",2)-1) S:Y<0 Y=0
97 ;;^DIST(.404,.00103,40,4,4)
98 ;;=0
99 ;;^DIST(.404,.00103,40,4,20)
100 ;;=N^^0:9
101 ;;^DIST(.404,.00104,0)
102 ;;=DICATT4^1
103 ;;^DIST(.404,.00104,40,0)
104 ;;=^.4044I^3^3
105 ;;^DIST(.404,.00104,40,1,0)
106 ;;=68^MINIMUM LENGTH^2^^MINIMUM LENGTH
107 ;;^DIST(.404,.00104,40,1,2)
108 ;;=2,27^3^2,11
109 ;;^DIST(.404,.00104,40,1,3)
110 ;;=!M
111 ;;^DIST(.404,.00104,40,1,3.1)
112 ;;=S Y=+$P(DICATT5,"$L(X)<",2)
113 ;;^DIST(.404,.00104,40,1,4)
114 ;;=1
115 ;;^DIST(.404,.00104,40,1,20)
116 ;;=N^^1:250:0
117 ;;^DIST(.404,.00104,40,2,0)
118 ;;=69^MAXIMUM LENGTH^2^^MAXIMUM LENGTH
119 ;;^DIST(.404,.00104,40,2,2)
120 ;;=3,27^3^3,11
121 ;;^DIST(.404,.00104,40,2,3)
122 ;;=!M
123 ;;^DIST(.404,.00104,40,2,3.1)
124 ;;=S Y=+$P(DICATT5,"$L(X)>",2)
125 ;;^DIST(.404,.00104,40,2,4)
126 ;;=1
127 ;;^DIST(.404,.00104,40,2,20)
128 ;;=N^^1:250:0
129 ;;^DIST(.404,.00104,40,3,0)
130 ;;=70^PATTERN MATCH (IN 'X')^2^^PATTERN MATCH
131 ;;^DIST(.404,.00104,40,3,2)
132 ;;=4,27^30^4,3
133 ;;^DIST(.404,.00104,40,3,3)
134 ;;=!M
135 ;;^DIST(.404,.00104,40,3,3.1)
136 ;;=D PRE4^DICATTD4
137 ;;^DIST(.404,.00104,40,3,20)
138 ;;=F^U^3:80
139 ;;^DIST(.404,.00104,40,3,21,0)
140 ;;=^^1^1^2981104
141 ;;^DIST(.404,.00104,40,3,21,1,0)
142 ;;=Example: "X?1.A" or "X'?.P"
143 ;;^DIST(.404,.00105,0)
144 ;;=DICATT5^1
145 ;;^DIST(.404,.00105,40,0)
146 ;;=^.4044I^2^2
147 ;;^DIST(.404,.00105,40,1,0)
148 ;;=75^SHALL THIS TEXT NORMALLY APPEAR IN WORD-WRAP MODE^2^^WORD-WRAP
149 ;;^DIST(.404,.00105,40,1,2)
150 ;;=2,53^3^2,2
151 ;;^DIST(.404,.00105,40,1,3)
152 ;;=!M
153 ;;^DIST(.404,.00105,40,1,3.1)
154 ;;=S Y=$E("YN",DICATT2["L"+1)
155 ;;^DIST(.404,.00105,40,1,12)
156 ;;=S DICATTMN="",DICATT2N="W"_$TR($G(DICATT2N),"WL")_$E("L",'X)
157 ;;^DIST(.404,.00105,40,1,20)
158 ;;=Y
159 ;;^DIST(.404,.00105,40,1,21,0)
160 ;;=^^4^4^2981120
161 ;;^DIST(.404,.00105,40,1,21,1,0)
162 ;;=Answer 'YES' if the text should normally be printed out in full lines,
163 ;;^DIST(.404,.00105,40,1,21,2,0)
164 ;;=breaking at word boundaries.
165 ;;^DIST(.404,.00105,40,1,21,3,0)
166 ;;=Answer 'NO' if the text should normally be printed out line-for-line as
167 ;;^DIST(.404,.00105,40,1,21,4,0)
168 ;;=it was entered.
169 ;;^DIST(.404,.00105,40,2,0)
170 ;;=76^SHALL "|" CHARACTERS IN THIS TEXT BE TREATED LIKE ANY OTHER CHARACTERS^2^^"|"
171 ;;^DIST(.404,.00105,40,2,2)
172 ;;=3,74^3^3,2
173 ;;^DIST(.404,.00105,40,2,3)
174 ;;=!M
175 ;;^DIST(.404,.00105,40,2,3.1)
176 ;;=S Y=$S(DICATT2["X"!(DICATT2["x")!(DICATT2=""):"Y",1:"N")
177 ;;^DIST(.404,.00105,40,2,12)
178 ;;=S DICATTMN="",DICATT2N="W"_$TR($G(DICATT2N),"WxX")_$E("x",X>0) I DUZ(0)="@",DICATT4="" S DDSSTACK=4
179 ;;^DIST(.404,.00105,40,2,20)
180 ;;=Y
181 ;;^DIST(.404,.00105,40,2,21,0)
182 ;;=^^4^4^2981120
183 ;;^DIST(.404,.00105,40,2,21,1,0)
184 ;;=Answer 'YES' if the internally-stored text may have "|" characters in it
185 ;;^DIST(.404,.00105,40,2,21,2,0)
186 ;;=(such as HL7 messages) that need to display exactly as they are stored.
187 ;;^DIST(.404,.00105,40,2,21,3,0)
188 ;;=Answer 'NO' if the internal text should normally be printed out with
189 ;;^DIST(.404,.00105,40,2,21,4,0)
190 ;;=anything that is delimited by "|" characters interpreted as variable.
191 ;;^DIST(.404,.00106,0)
192 ;;=DICATT6^1
193 ;;^DIST(.404,.00106,40,0)
194 ;;=^.4044I^8^8
195 ;;^DIST(.404,.00106,40,1,0)
196 ;;=78^^2^^COMPUTED EXPRESSION
197 ;;^DIST(.404,.00106,40,1,2)
198 ;;=3,2^73
199 ;;^DIST(.404,.00106,40,1,3)
200 ;;=!M
201 ;;^DIST(.404,.00106,40,1,3.1)
202 ;;=S Y=$G(^DD(DICATTA,DICATTF,9.1))
203 ;;^DIST(.404,.00106,40,1,4)
204 ;;=1
205 ;;^DIST(.404,.00106,40,1,13)
206 ;;=D VAL6^DICATTD6
207 ;;^DIST(.404,.00106,40,1,20)
208 ;;=F^U^1:250
209 ;;^DIST(.404,.00106,40,1,21,0)
210 ;;=^^3^3^2981118
211 ;;^DIST(.404,.00106,40,1,21,1,0)
212 ;;=A Computed Expression consists of Field Names, Operators (including "_"
213 ;;^DIST(.404,.00106,40,1,21,2,0)
214 ;;=for concatenation), Functions, and literal strings (e.g., "Name: ") and
215 ;;^DIST(.404,.00106,40,1,21,3,0)
216 ;;=digits.
217 ;;^DIST(.404,.00106,40,2,0)
218 ;;=77^COMPUTED-FIELD EXPRESSION:^1^^COMP
219 ;;^DIST(.404,.00106,40,2,2)
220 ;;=^^2,2
221 ;;^DIST(.404,.00106,40,3,0)
222 ;;=80^NUMBER OF FRACTIONAL DIGITS TO OUTPUT^2^^FRACTIONAL DIGITS
223 ;;^DIST(.404,.00106,40,3,2)
224 ;;=5,65^1^5,26
225 ;;^DIST(.404,.00106,40,3,3)
226 ;;=!M
227 ;;^DIST(.404,.00106,40,3,3.1)
228 ;;=S Y=$P($P(DICATT2,"J",2),",",2),Y=$S(Y?1N.E:+Y,1:"")
229 ;;^DIST(.404,.00106,40,3,20)
230 ;;=N^^0:9:0
231 ;;^DIST(.404,.00106,40,3,21,0)
232 ;;=^^2^2^2981118
233 ;;^DIST(.404,.00106,40,3,21,1,0)
234 ;;=Enter the number of digits that should normally appear to the
235 ;;^DIST(.404,.00106,40,3,21,2,0)
236 ;;=right of the decimal point when this Field's value is displayed.
237 ;;^DIST(.404,.00106,40,4,0)
238 ;;=79^TYPE OF RESULT^2^^COMPTYPE
239 ;;^DIST(.404,.00106,40,4,2)
240 ;;=4,29^17^4,13
241 ;;^DIST(.404,.00106,40,4,10)
242 ;;=D BR79^DICATTD6
243 ;;^DIST(.404,.00106,40,4,20)
244 ;;=S^M^D:DATE;N:NUMERIC;B:BOOLEAN;S:STRING;m:MULTIPLE-VALUED;mp:MULTIPLE POINTER;p:POINTER
245 ;;^DIST(.404,.00106,40,4,21,0)
246 ;;=^^4^4^2981118
247 ;;^DIST(.404,.00106,40,4,21,1,0)
248 ;;=The typical Computed Field is STRING-valued, i.e., alphanumeric.
249 ;;^DIST(.404,.00106,40,4,21,2,0)
250 ;;=If NUMERIC, the indented questions will be asked.
251 ;;^DIST(.404,.00106,40,4,21,3,0)
252 ;;=BOOLEAN values are "true-false".
253 ;;^DIST(.404,.00106,40,4,21,4,0)
254 ;;=If the computation returns a number that is actually an Entry number in a File, call it a POINTER.
255 ;;^DIST(.404,.00106,40,8,0)
256 ;;=83.1^POINT TO FILE^2
257 ;;^DIST(.404,.00106,40,8,2)
258 ;;=8,46^27^8,30
259 ;;^DIST(.404,.00106,40,8,3)
260 ;;=!M
261 ;;^DIST(.404,.00106,40,8,3.1)
262 ;;=S Y=+$P(DICATT2,"p",2),Y=$S(Y:$P($G(^DIC(Y,0)),U),1:"")
263 ;;^DIST(.404,.00106,40,8,20)
264 ;;=P^^1:EOFIZ
265 ;;^DIST(.404,.00106,40,8,24)
266 ;;=S DIR("S")="I $$OKFILE^DICOMPX(Y,""W"")"
Note: See TracBrowser for help on using the repository browser.