- Timestamp:
- Dec 4, 2009, 12:11:15 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0F5.m
r613 r623 1 DINIT0F5 ;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 6 ENTRY ; 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"")" 1 DINIT0F5 ;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 6 ENTRY ; 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 TracChangeset
for help on using the changeset viewer.