| FIELD |
-
- FIELD ORDER: 1
- CAPTION: NAME
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 2,19
- DATA LENGTH: 55
- CAPTION COORDINATE: 2,13
-
- FIELD ORDER: 2
- CAPTION: DESCRIPTION (wp)
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 4,19
- DATA LENGTH: 1
- CAPTION COORDINATE: 4,1
-
- FIELD ORDER: 4
- CAPTION: ENTRY ACTION
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 7,15
- DATA LENGTH: 64
- CAPTION COORDINATE: 7,1
-
- FIELD ORDER: 5
- CAPTION: EXIT ACTION
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 9,15
- DATA LENGTH: 64
- CAPTION COORDINATE: 9,2
-
- FIELD ORDER: 6
- CAPTION: TYPE
- BRANCHING LOGIC: S DDSBR="^^"_$S(X="E":"PAGE 2",1:"PAGE 3")
- FIELD TYPE: FORM ONLY
- READ TYPE: SET OF CODES
- PARAMETERS: M
- QUALIFIERS: E:event driver;S:subscriber
- SAVE CODE: D PUT^DDSVAL("^ORD(101,",.DA,4,X,"","I")
- UNIQUE NAME: TYPE
- DATA COORDINATE: 12,15
- DATA LENGTH: 15
- CAPTION COORDINATE: 12,9
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$$GET^DDSVAL("^ORD(101,",.DA,4)
-
- FIELD ORDER: 3
- CAPTION: !M
- EXECUTABLE CAPTION: N WP S WP=$$GET^DDSVAL(DIE,.DA,3.5),Y=$S(WP]"":$G(@WP@(1,0)),1:""),Y=$S(Y]"":"["_$E(Y,1,47)_"]",1:"(empty)")
- FIELD TYPE: CAPTION ONLY
- CAPTION COORDINATE: 4,21
|
