| FIELD |
-
- FIELD ORDER: 1
- CAPTION: FIELD LABEL
- BRANCHING LOGIC: S DDSBR=20 I X="" S DDSSTACK=9
- FIELD TYPE: FORM ONLY
- READ TYPE: DATA DICTIONARY
- QUALIFIERS: 0,.01
- UNIQUE NAME: LABEL
- DATA COORDINATE: 2,14
- DATA LENGTH: 30
- CAPTION COORDINATE: 2,1
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$P($G(^DD(DICATTA,DICATTF,0)),U)
-
- FIELD ORDER: 18
- CAPTION: MANDATORY
- BRANCHING LOGIC: S DDSBR=98
- FIELD TYPE: FORM ONLY
- READ TYPE: YES OR NO
- UNIQUE NAME: MANDATORY
- DATA COORDINATE: 15,17
- DATA LENGTH: 3
- CAPTION COORDINATE: 15,6
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$S(DICATT2["R":"YES",DICATT2'["C"&'DICATT2:"NO",1:"")
-
- FIELD ORDER: 98
- CAPTION: HELP-PROMPT
- FIELD TYPE: FORM ONLY
- READ TYPE: DATA DICTIONARY
- QUALIFIERS: 0,3
- UNIQUE NAME: HELP-PROMPT
- DATA COORDINATE: 16,17
- DATA LENGTH: 61
- CAPTION COORDINATE: 16,4
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DD(DICATTA,DICATTF,3))
-
- FIELD ORDER: 99
- CAPTION: XECUTABLE HELP
- FIELD TYPE: FORM ONLY
- READ TYPE: DATA DICTIONARY
- QUALIFIERS: 0,4
- UNIQUE NAME: XECUTABLE HELP
- DATA COORDINATE: 17,17
- DATA LENGTH: 61
- CAPTION COORDINATE: 17,1
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DD(DICATTA,DICATTF,4))
-
- FIELD ORDER: 20
- CAPTION: DATA TYPE...
- BRANCHING LOGIC: S DDSBR=18 D BRANCH^DICATTD
- PRE ACTION: I $G(DICATTDK) S DDACT="EX"
- FIELD TYPE: FORM ONLY
- READ TYPE: POINTER
- PARAMETERS: M
- QUALIFIERS: .81:EOFIZ
- SCREEN: D SCREEN^DICATTD
- UNIQUE NAME: TYPE
- DATA COORDINATE: 2,60
- DATA LENGTH: 20
- CAPTION COORDINATE: 2,47
- SUPPRESS COLON AFTER CAPTION?: YES
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$$TYPE^DICATTD
-
- FIELD ORDER: .5
- FIELD TYPE: COMPUTED
- UNIQUE NAME: FIELD NUMBER
- COMPUTED EXPRESSION: D NUMBER^DICATTD
- DATA COORDINATE: 1,1
- DATA LENGTH: 77
-
- FIELD ORDER: 8
- CAPTION: SOURCE
- FIELD TYPE: FORM ONLY
- READ TYPE: DATA DICTIONARY
- QUALIFIERS: 0,10
- UNIQUE NAME: SOURCE
- DATA COORDINATE: 10,18
- DATA LENGTH: 61
- CAPTION COORDINATE: 10,10
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DD(DICATTA,DICATTF,10))
-
- FIELD ORDER: 20.5
- CAPTION: IS THIS FIELD MULTIPLE...
- BRANCHING LOGIC: S:DICATT2'["X"&X DDSSTACK=5 I DICATT4="",DUZ(0)="@" S DDSSTACK=$S(X:5,1:3)
- PRE ACTION: I DICATT4="",'$G(DICATTLN) S DDSBR=98
- FIELD TYPE: FORM ONLY
- READ TYPE: YES OR NO
- UNIQUE NAME: MULTIPLE
- DATA COORDINATE: 13,49
- DATA LENGTH: 3
- CAPTION COORDINATE: 13,23
- SUPPRESS COLON AFTER CAPTION?: YES
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y="N"
- DISABLE EDITING: NO
-
- FIELD ORDER: 2
- CAPTION: TITLE
- PRE ACTION: I $$GET^DDSVALF(1)="" S DDACT="EX"
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- QUALIFIERS: 1:99
- INPUT TRANSFORM: I +X=X K X
- UNIQUE NAME: TITLE
- DATA COORDINATE: 4,18
- DATA LENGTH: 60
- CAPTION COORDINATE: 4,11
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DD(DICATTA,DICATTF,.1))
-
- FIELD ORDER: 11
- CAPTION: DESCRIPTION...
- BRANCHING LOGIC: S DDSSTACK=1.1
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- QUALIFIERS: 1:1
- UNIQUE NAME: DESCRIPTION
- DATA COORDINATE: 11,17
- DATA LENGTH: 1
- CAPTION COORDINATE: 11,2
- SUPPRESS COLON AFTER CAPTION?: YES
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$$WPLUS^DICATTD0(21)
-
- FIELD ORDER: 3
- CAPTION: AUDIT
- FIELD TYPE: FORM ONLY
- READ TYPE: DATA DICTIONARY
- QUALIFIERS: 0,1.1
- UNIQUE NAME: AUDIT
- DATA COORDINATE: 5,18
- DATA LENGTH: 16
- CAPTION COORDINATE: 5,11
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$P($G(^DD(DICATTA,DICATTF,"AUDIT")),U)
-
- FIELD ORDER: 4
- CAPTION: AUDIT CONDITION
- FIELD TYPE: FORM ONLY
- READ TYPE: DATA DICTIONARY
- QUALIFIERS: 0,1.2
- UNIQUE NAME: AUDIT CONDITION
- DATA COORDINATE: 6,18
- DATA LENGTH: 60
- CAPTION COORDINATE: 6,1
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DD(DICATTA,DICATTF,"AX"))
-
- FIELD ORDER: 5
- CAPTION: READ ACCESS
- FIELD TYPE: FORM ONLY
- READ TYPE: DATA DICTIONARY
- QUALIFIERS: 0,8
- UNIQUE NAME: READ ACCESS
- DATA COORDINATE: 7,18
- DATA LENGTH: 13
- CAPTION COORDINATE: 7,5
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DD(DICATTA,DICATTF,8))
-
- FIELD ORDER: 6
- CAPTION: DELETE ACCESS
- FIELD TYPE: FORM ONLY
- READ TYPE: DATA DICTIONARY
- QUALIFIERS: 0,8.5
- UNIQUE NAME: DELETE ACCESS
- DATA COORDINATE: 8,18
- DATA LENGTH: 13
- CAPTION COORDINATE: 8,3
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DD(DICATTA,DICATTF,8.5))
-
- FIELD ORDER: 7
- CAPTION: WRITE ACCESS
- FIELD TYPE: FORM ONLY
- READ TYPE: DATA DICTIONARY
- QUALIFIERS: 0,9
- UNIQUE NAME: WRITE ACCESS
- DATA COORDINATE: 9,18
- DATA LENGTH: 13
- CAPTION COORDINATE: 9,4
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DD(DICATTA,DICATTF,9))
-
- FIELD ORDER: 12
- CAPTION: TECHNICAL DESCRIPTION...
- BRANCHING LOGIC: S DDSSTACK=1.2
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- QUALIFIERS: 1:1
- DATA COORDINATE: 11,49
- DATA LENGTH: 1
- CAPTION COORDINATE: 11,24
- SUPPRESS COLON AFTER CAPTION?: YES
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$$WPLUS^DICATTD0(23)
|
