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

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

revised back to 6/30/08 version

File size: 7.1 KB
RevLine 
[623]1DINIT0F5 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;05:51 PM 23 Mar 2001
2 ;;22.0;VA FileMan;**76**;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="" ^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^1^1
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,56^3^2,5
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="" S:'X DICATT2N="WL" I DUZ(0)="@",DICATT4="" S DDSSTACK=4
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,.00106,0)
170 ;;=DICATT6^1
171 ;;^DIST(.404,.00106,40,0)
172 ;;=^.4044I^8^8
173 ;;^DIST(.404,.00106,40,1,0)
174 ;;=78^^2^^COMPUTED EXPRESSION
175 ;;^DIST(.404,.00106,40,1,2)
176 ;;=3,2^73
177 ;;^DIST(.404,.00106,40,1,3)
178 ;;=!M
179 ;;^DIST(.404,.00106,40,1,3.1)
180 ;;=S Y=$G(^DD(DICATTA,DICATTF,9.1))
181 ;;^DIST(.404,.00106,40,1,4)
182 ;;=1
183 ;;^DIST(.404,.00106,40,1,13)
184 ;;=D VAL6^DICATTD6
185 ;;^DIST(.404,.00106,40,1,20)
186 ;;=F^U^1:250
187 ;;^DIST(.404,.00106,40,1,21,0)
188 ;;=^^3^3^2981118
189 ;;^DIST(.404,.00106,40,1,21,1,0)
190 ;;=A Computed Expression consists of Field Names, Operators (including "_"
191 ;;^DIST(.404,.00106,40,1,21,2,0)
192 ;;=for concatenation), Functions, and literal strings (e.g., "Name: ") and
193 ;;^DIST(.404,.00106,40,1,21,3,0)
194 ;;=digits.
195 ;;^DIST(.404,.00106,40,2,0)
196 ;;=77^COMPUTED-FIELD EXPRESSION:^1^^COMP
197 ;;^DIST(.404,.00106,40,2,2)
198 ;;=^^2,2
199 ;;^DIST(.404,.00106,40,3,0)
200 ;;=80^NUMBER OF FRACTIONAL DIGITS TO OUTPUT^2^^FRACTIONAL DIGITS
201 ;;^DIST(.404,.00106,40,3,2)
202 ;;=5,65^1^5,26
203 ;;^DIST(.404,.00106,40,3,3)
204 ;;=!M
205 ;;^DIST(.404,.00106,40,3,3.1)
206 ;;=S Y=$P($P(DICATT2,"J",2),",",2),Y=$S(Y?1N.E:+Y,1:"")
207 ;;^DIST(.404,.00106,40,3,20)
208 ;;=N^^0:9:0
209 ;;^DIST(.404,.00106,40,3,21,0)
210 ;;=^^2^2^2981118
211 ;;^DIST(.404,.00106,40,3,21,1,0)
212 ;;=Enter the number of digits that should normally appear to the
213 ;;^DIST(.404,.00106,40,3,21,2,0)
214 ;;=right of the decimal point when this Field's value is displayed.
215 ;;^DIST(.404,.00106,40,4,0)
216 ;;=79^TYPE OF RESULT^2^^COMPTYPE
217 ;;^DIST(.404,.00106,40,4,2)
218 ;;=4,29^17^4,13
219 ;;^DIST(.404,.00106,40,4,10)
220 ;;=D BR79^DICATTD6
221 ;;^DIST(.404,.00106,40,4,20)
222 ;;=S^M^D:DATE;N:NUMERIC;B:BOOLEAN;S:STRING;m:MULTIPLE-VALUED;mp:MULTIPLE POINTER;p:POINTER
223 ;;^DIST(.404,.00106,40,4,21,0)
224 ;;=^^4^4^2981118
225 ;;^DIST(.404,.00106,40,4,21,1,0)
226 ;;=The typical Computed Field is STRING-valued, i.e., alphanumeric.
227 ;;^DIST(.404,.00106,40,4,21,2,0)
228 ;;=If NUMERIC, the indented questions will be asked.
229 ;;^DIST(.404,.00106,40,4,21,3,0)
230 ;;=BOOLEAN values are "true-false".
231 ;;^DIST(.404,.00106,40,4,21,4,0)
232 ;;=If the computation returns a number that is actually an Entry number in a File, call it a POINTER.
233 ;;^DIST(.404,.00106,40,8,0)
234 ;;=83.1^POINT TO FILE^2
235 ;;^DIST(.404,.00106,40,8,2)
236 ;;=8,46^27^8,30
237 ;;^DIST(.404,.00106,40,8,3)
238 ;;=!M
239 ;;^DIST(.404,.00106,40,8,3.1)
240 ;;=S Y=+$P(DICATT2,"p",2),Y=$S(Y:$P($G(^DIC(Y,0)),U),1:"")
241 ;;^DIST(.404,.00106,40,8,20)
242 ;;=P^^1:EOFIZ
243 ;;^DIST(.404,.00106,40,8,24)
244 ;;=S DIR("S")="I $$OKFILE^DICOMPX(Y,""W"")"
Note: See TracBrowser for help on using the repository browser.