DICATT2 (.00103) BLOCK (.404)
Name
Value
NAME
DICATT2
DATA DICTIONARY NUMBER
1
FIELD
FIELD ORDER: 31
CAPTION: INCLUSIVE LOWER BOUND
FIELD TYPE: FORM ONLY
READ TYPE: FREE TEXT
QUALIFIERS: 1:20
HELP:
Enter the lowest allowable number
INPUT TRANSFORM: K:+X'=X!(X'["."&($L(X)>15))!(X["."&($L($P(+X,"."))+$L($P(+X,".",2))>15)) X
UNIQUE NAME: LOWER BOUND
DATA COORDINATE: 1,38
DATA LENGTH: 20
CAPTION COORDINATE: 1,15
DEFAULT: !M
EXECUTABLE DEFAULT: I DICATT5["X<" S Y=+$P(DICATT5,"X<",2)
FIELD ORDER: 32
CAPTION: INCLUSIVE UPPER BOUND
FIELD TYPE: FORM ONLY
READ TYPE: FREE TEXT
QUALIFIERS: 1:20
HELP:
Enter the highest allowable number
INPUT TRANSFORM: K:+X'=X!(X'["."&($L(X)>15))!(X["."&($L($P(+X,"."))+$L($P(+X,"."))>15)) X
UNIQUE NAME: UPPER BOUND
DATA COORDINATE: 2,38
DATA LENGTH: 20
CAPTION COORDINATE: 2,15
DEFAULT: !M
EXECUTABLE DEFAULT: I DICATT5["X>" S Y=+$P(DICATT5,"X>",2)
FIELD ORDER: 33
CAPTION: IS THIS A DOLLAR AMOUNT
POST ACTION: I X=1 D PUT^
DDSVALF
(34,,,2,"") S DDSBR="COM"
FIELD TYPE: FORM ONLY
READ TYPE: YES OR NO
UNIQUE NAME: DOLLAR AMOUNT
DATA COORDINATE: 3,38
DATA LENGTH: 3
CAPTION COORDINATE: 3,13
DEFAULT: !M
EXECUTABLE DEFAULT: S Y=$E("NY",DICATT5["""$"""+1)
FIELD ORDER: 34
CAPTION: MAXIMUM NUMBER OF FRACTIONAL DIGITS
FIELD TYPE: FORM ONLY
READ TYPE: NUMERIC
QUALIFIERS: 0:9
UNIQUE NAME: FRACTIONAL DIGITS
DATA COORDINATE: 4,38
DATA LENGTH: 1
CAPTION COORDINATE: 4,1
DEFAULT: !M
EXECUTABLE DEFAULT: S Y=$S(DICATT5["""$""":2,1:$P(DICATT5,"1"".""",2)-1) S:Y<0 Y=0
