DINIT0F5 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;20JAN2013
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
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^7^2,11
;;^DIST(.404,.00104,40,1,3)
;;=!M
;;^DIST(.404,.00104,40,1,3.1)
;;=S Y=+$P(DICATT5,"$L(X)<",2) S:'Y Y=""
;;^DIST(.404,.00104,40,1,4)
;;=1
;;^DIST(.404,.00104,40,1,20)
;;=F^^1:7
;;^DIST(.404,.00104,40,1,22)
;;=K:X'?1.N!'X X
;;^DIST(.404,.00104,40,2,0)
;;=69^MAXIMUM LENGTH^2^^MAXIMUM LENGTH
;;^DIST(.404,.00104,40,2,2)
;;=3,27^7^3,11
;;^DIST(.404,.00104,40,2,3)
;;=!M
;;^DIST(.404,.00104,40,2,3.1)
;;=S Y=+$P(DICATT5,"$L(X)>",2) S:'Y Y=""
;;^DIST(.404,.00104,40,2,4)
;;=1
;;^DIST(.404,.00104,40,2,20)
;;=F^^1:7
;;^DIST(.404,.00104,40,2,22)
;;=K:X'?1.N!(X<1) X I $D(X) K:X>($G(^DD("STRING_LIMIT"),255)-5) X
;;^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,.00104,40,3,22)
;;=S X="I "_X D ^DIM S:$D(X) X=$E(X,3,999)
;;^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"")"
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0F5 8946 printed Dec 13, 2024@02:50:14 Page 2
DINIT0F5 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;20JAN2013
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 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
+8 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^7^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) S:'Y Y=""
+107 ;;^DIST(.404,.00104,40,1,4)
+108 ;;=1
+109 ;;^DIST(.404,.00104,40,1,20)
+110 ;;=F^^1:7
+111 ;;^DIST(.404,.00104,40,1,22)
+112 ;;=K:X'?1.N!'X X
+113 ;;^DIST(.404,.00104,40,2,0)
+114 ;;=69^MAXIMUM LENGTH^2^^MAXIMUM LENGTH
+115 ;;^DIST(.404,.00104,40,2,2)
+116 ;;=3,27^7^3,11
+117 ;;^DIST(.404,.00104,40,2,3)
+118 ;;=!M
+119 ;;^DIST(.404,.00104,40,2,3.1)
+120 ;;=S Y=+$P(DICATT5,"$L(X)>",2) S:'Y Y=""
+121 ;;^DIST(.404,.00104,40,2,4)
+122 ;;=1
+123 ;;^DIST(.404,.00104,40,2,20)
+124 ;;=F^^1:7
+125 ;;^DIST(.404,.00104,40,2,22)
+126 ;;=K:X'?1.N!(X<1) X I $D(X) K:X>($G(^DD("STRING_LIMIT"),255)-5) X
+127 ;;^DIST(.404,.00104,40,3,0)
+128 ;;=70^PATTERN MATCH (IN 'X')^2^^PATTERN MATCH
+129 ;;^DIST(.404,.00104,40,3,2)
+130 ;;=4,27^30^4,3
+131 ;;^DIST(.404,.00104,40,3,3)
+132 ;;=!M
+133 ;;^DIST(.404,.00104,40,3,3.1)
+134 ;;=D PRE4^DICATTD4
+135 ;;^DIST(.404,.00104,40,3,20)
+136 ;;=F^U^3:80
+137 ;;^DIST(.404,.00104,40,3,21,0)
+138 ;;=^^1^1^2981104
+139 ;;^DIST(.404,.00104,40,3,21,1,0)
+140 ;;=Example: "X?1.A" or "X'?.P"
+141 ;;^DIST(.404,.00104,40,3,22)
+142 ;;=S X="I "_X D ^DIM S:$D(X) X=$E(X,3,999)
+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"")"
