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