DICATT SCREEN (.00118)    BLOCK (.404)

Name Value
NAME DICATT SCREEN
DATA DICTIONARY NUMBER 1
FIELD
  • FIELD ORDER:   65
    CAPTION:   SHOULD ENTRIES BE SCREENED
    POST ACTION:   D UNED^DDSUTL(66,,,'X),UNED^DDSUTL(67,,,'X) I 'X D PUT^DDSVALF(66,,,""),PUT^DDSVALF(67,,,"")
    FIELD TYPE:   FORM ONLY
    READ TYPE:   YES OR NO
    HELP:   
    Answer YES if there is a condition which should prohibit
    the selection of all choices at all times.
    
    DATA COORDINATE:   2,31
    DATA LENGTH:   3
    CAPTION COORDINATE:   2,3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$E("NY",$G(^DD(DICATTA,DICATTF,12.1))]""+1)
  • FIELD ORDER:   66
    CAPTION:   MUMPS CODE THAT WILL SET DIC("S")
    BRANCHING LOGIC:   D REQ^DDSUTL(67,,,X]"")
    FIELD TYPE:   FORM ONLY
    READ TYPE:   FREE TEXT
    PARAMETERS:   U
    HELP:   
    Enter a MUMPS statement which begins with 'S DIC("S")=' and contains code
    to set $T.  When the DIC("S") is executed, the variable 'Y' holds internal
    code being screened.
    
    INPUT TRANSFORM:   D ^DIM
    DATA COORDINATE:   4,3
    DATA LENGTH:   72
    CAPTION COORDINATE:   3,3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(^DD(DICATTA,DICATTF,12.1))
  • FIELD ORDER:   67
    CAPTION:   EXPLANATION OF SCREEN
    FIELD TYPE:   FORM ONLY
    READ TYPE:   FREE TEXT
    QUALIFIERS:   1:245
    INPUT TRANSFORM:   K:X?.P X
    DATA COORDINATE:   6,3
    DATA LENGTH:   72
    CAPTION COORDINATE:   5,3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(^DD(DICATTA,DICATTF,12))