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