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