Index: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0F5.m
===================================================================
--- WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0F5.m	(revision 613)
+++ WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0F5.m	(revision 623)
@@ -1,266 +1,244 @@
-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 ;05:51 PM  23 Mar 2001
+ ;;22.0;VA FileMan;**76**;Mar 30, 1999
+ ;Per VHA Directive 10-93-142, 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^1^1
+ ;;^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,56^3^2,5
+ ;;^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="" S:'X DICATT2N="WL" I DUZ(0)="@",DICATT4="" S DDSSTACK=4
+ ;;^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,.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"")"
