Routine: DINIT0F5

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

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"")"

DINIT0F5.m