source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0F5.m@ 1800

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