DICATTS (.00114)    BLOCK (.404)

Name Value
NAME DICATTS
DATA DICTIONARY NUMBER 1
FIELD
  • FIELD ORDER:   76
    CAPTION:   SUBSCRIPT
    PRE ACTION:   D SUBHELP^DICATTDM
    FIELD TYPE:   FORM ONLY
    READ TYPE:   FREE TEXT
    QUALIFIERS:   1:33
    INPUT TRANSFORM:   K:X?1P.E!(X[",")!(X[":")!(X["""")!(X["=")&(+X'=X) X I $D(X) N % S %=$$CHKSUB^DICATTDM(X) I '% K X D HLP^DDSUTL(%)
    SCREEN:   D SUBHELP^DICATTDM
    UNIQUE NAME:   MUL SUBSCRIPT
    DATA COORDINATE:   2,26
    DATA LENGTH:   33
    CAPTION COORDINATE:   2,15
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y="" I DICATT4="" F Y=+$O(^DD(DICATTA,"GL","A"),-1):1 Q:'$D(^(Y))
  • FIELD ORDER:   76.1
    CAPTION:   SUB-DICTIONARY NUMBER
    PRE ACTION:   D HLP^DDSUTL("^DD number must be between "_DICATTA_" and "_(DICATTA\1+1)_" and not already used")
    FIELD TYPE:   FORM ONLY
    READ TYPE:   NUMERIC
    QUALIFIERS:   0:9999999999999:9
    INPUT TRANSFORM:   D CHKDIC^DICATTD5
    DATA COORDINATE:   3,26
    DATA LENGTH:   22
    CAPTION COORDINATE:   3,3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y="" I DICATT4=Y D SUBDIC^DICATTD5