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