HL7 INTERFACE BLK1 (314)    BLOCK (.404)

Name Value
NAME HL7 INTERFACE BLK1
DATA DICTIONARY NUMBER 101
FIELD
  1. FIELD ORDER:   1
    CAPTION:   NAME
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   2,19
    DATA LENGTH:   55
    CAPTION COORDINATE:   2,13
  2. FIELD ORDER:   2
    CAPTION:   DESCRIPTION (wp)
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   4,19
    DATA LENGTH:   1
    CAPTION COORDINATE:   4,1
  3. FIELD ORDER:   4
    CAPTION:   ENTRY ACTION
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   7,15
    DATA LENGTH:   64
    CAPTION COORDINATE:   7,1
  4. FIELD ORDER:   5
    CAPTION:   EXIT ACTION
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   9,15
    DATA LENGTH:   64
    CAPTION COORDINATE:   9,2
  5. 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)
  6. 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