STANDARD DATA DICTIONARY #704.006 -- CP_PROTOCOL_LOCATION FILE                                                    3/24/25    PAGE 1
STORED IN ^MDC(704.006,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                     (VERSION 1.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file will be used by the Clinical Flowsheets application to determine the target for an outbound admission, discharge, and
transfer (ADT) message.  Messages are sent to a target via Health Level 7 messaging (HL7).  
 
NOTE: A target is defined here as a receiving CIS or other COTS product that has expressed a desire to be notified when a patient
admission, transfer or discharge has occurred for a specific hospital location.  


              DD ACCESS: @
              RD ACCESS: @
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
           AUDIT ACCESS: @

   APPLICATION GROUP(S): MDCP

SECONDARY KEY:      A (#86)
  Uniqueness Index: D (#915)
       File, Field: 1) SUBSCRIBER (704.006,.01)  2) DIVISION (704.006,.02)  3) ID (704.006,.06)

PRIMARY KEY:        P (#87)
  Uniqueness Index: C (#914)
       File, Field: 1) ID (704.006,.06)

POINTED TO BY: A08_TARGET field (#.21) of the CP_MOVEMENT_AUDIT File (#704.005) 
               

CROSS
REFERENCED BY: SUBSCRIBER(B), EVENT_TYPE(INSTA08)

INDEXED BY:    MESSAGE_TYPE & EVENT_TYPE & DIVISION (AMSGDIV), MESSAGE_TYPE & EVENT_TYPE & DIVISION & WARD (AMSGDIVWARD), ID (C),
               SUBSCRIBER & DIVISION & ID (D), DIVISION (LOCDEV)




704.006,.01   SUBSCRIBER             0;1 POINTER TO PROTOCOL FILE (#101) (Required) (Key field)

              LAST EDITED:      MAR 30, 2009 
              HELP-PROMPT:      Answer with subscriber PROTOCOL identifier. 
              DESCRIPTION:
                                This field identifies the subscriber protocol to be used to send the message.  

              CROSS-REFERENCE:  704.006^B 
                                1)= S ^MDC(704.006,"B",$E(X,1,30),DA)=""
                                2)= K ^MDC(704.006,"B",$E(X,1,30),DA)
                                This index quickly sorts file entries based on subscriber protocol identification.  


              RECORD INDEXES:   D (#915)

704.006,.02   DIVISION               0;2 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) (Key field)

              LAST EDITED:      APR 01, 2009 
              HELP-PROMPT:      Answer with MEDICAL CENTER DIVISION identifier. 
              DESCRIPTION:
                                This field identifies the target MEDICAL CENTER DIVISION for the message.  

              FIELD INDEX:      LOCDEV (#916)    REGULAR    IR    LOOKUP & SORTING
                  Short Descr:  Index division, then location.
                  Description:  This cross reference will allow us to determine which targets will receive our message.  
                    Set Logic:  S ^MDC(704.006,"LOCDEV",$E(X,1,30),DA)=""
                   Kill Logic:  K ^MDC(704.006,"LOCDEV",$E(X,1,30),DA)
                   Whole Kill:  K ^MDC(704.006,"LOCDEV")
                         X(1):  DIVISION  (704.006,.02)  (Subscr 1)  (Len 30)  (forwards)

              RECORD INDEXES:   AMSGDIV (#912), AMSGDIVWARD (#913), D (#915)

704.006,.03   WARD                   0;3 POINTER TO WARD LOCATION FILE (#42)

              LAST EDITED:      APR 01, 2009 
              HELP-PROMPT:      Answer with WARD LOCATION identifier. 
              DESCRIPTION:
                                This field identifies the target WARD location for the message.  

              RECORD INDEXES:   AMSGDIVWARD (#913)

704.006,.04   MESSAGE_TYPE           0;4 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
              LAST EDITED:      APR 01, 2009 
              HELP-PROMPT:      Answer must be 3 characters in length 
              DESCRIPTION:
                                This field is the type of message to be sent.  A sample MESSAGE TYPE could be "ADT" .  

              RECORD INDEXES:   AMSGDIV (#912), AMSGDIVWARD (#913)

704.006,.05   EVENT_TYPE             0;5 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
              LAST EDITED:      NOV 01, 2011 
              HELP-PROMPT:      Answer must be 3 characters in length 
              DESCRIPTION:
                                This is the message's EVENT TYPE.  A sample EVENT TYPE could be "A01" 

              CROSS-REFERENCE:  704.006^INSTA08 
                                1)= S ^MDC(704.006,"INSTA08",$E(X,1,30),DA)=""
                                2)= K ^MDC(704.006,"INSTA08",$E(X,1,30),DA)
                                This cross reference allows the Flowsheets GUI to easily find 3rd party devices that accept A08
                                messages.  


              RECORD INDEXES:   AMSGDIV (#912), AMSGDIVWARD (#913)

704.006,.06   ID                     0;6 FREE TEXT (Key field)

              INPUT TRANSFORM:  K:$L(X)>32!($L(X)<32) X
              LAST EDITED:      APR 01, 2009 
              HELP-PROMPT:      Answer with a 32 character, alpha-numeric GUID for the message. 
              DESCRIPTION:      This field will be the alpha-numeric portion of the message's Global Unique Identifier (GUID), if
                                the message is generated.  A sample ID could be "C42AC54282B642F4950E179A3D43AA85".  

              FIELD INDEX:      C (#914)    REGULAR    IR    LOOKUP & SORTING
                   Unique for:  Key P (#87), File #704.006
                  Short Descr:  Uniqueness Index for Key 'P' of File #704.006
                    Set Logic:  S ^MDC(704.006,"C",X,DA)=""
                   Kill Logic:  K ^MDC(704.006,"C",X,DA)
                   Whole Kill:  K ^MDC(704.006,"C")
                         X(1):  ID  (704.006,.06)  (Subscr 1)

              RECORD INDEXES:   D (#915)

704.006,.07   NAME                   0;7 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
              LAST EDITED:      MAR 30, 2009 
              HELP-PROMPT:      Answer must be 1-30 characters in length. 
              DESCRIPTION:
                                This field is the assigned name for the message.  A sample NAME could be  "ADMIT2DEVICEX" .  



      FILES POINTED TO                      FIELDS

MEDICAL CENTER DIVISION (#40.8)   DIVISION (#.02)

PROTOCOL (#101)                   SUBSCRIBER (#.01)

WARD LOCATION (#42)               WARD (#.03)


File #704.006

  Record Indexes:

  AMSGDIV (#912)    RECORD    REGULAR    IR    SORTING ONLY
      Short Descr:  Message type, event type, division
      Description:  This index will allow quick sorting of protocols by MESSAGE TYPE, EVENT TYPE, and DIVISION.  
        Set Logic:  S ^MDC(704.006,"AMSGDIV",$E(X(1),1,3),$E(X(2),1,3),X(3),DA)=""
       Kill Logic:  K ^MDC(704.006,"AMSGDIV",$E(X(1),1,3),$E(X(2),1,3),X(3),DA)
       Whole Kill:  K ^MDC(704.006,"AMSGDIV")
             X(1):  MESSAGE_TYPE  (704.006,.04)  (Subscr 1)  (Len 3)  (forwards)
             X(2):  EVENT_TYPE  (704.006,.05)  (Subscr 2)  (Len 3)  (forwards)
             X(3):  DIVISION  (704.006,.02)  (Subscr 3)  (forwards)

  AMSGDIVWARD (#913)    RECORD    REGULAR    IR    SORTING ONLY
      Short Descr:  Message type, event type, division, ward
      Description:  This index will allow quick determination whether or not to generate an HL7 message based on the target message
                    type, event type, division, and ward location.  
        Set Logic:  S ^MDC(704.006,"AMSGDIVWARD",$E(X(1),1,3),$E(X(2),1,3),X(3),X(4),DA)=""
       Kill Logic:  K ^MDC(704.006,"AMSGDIVWARD",$E(X(1),1,3),$E(X(2),1,3),X(3),X(4),DA)
       Whole Kill:  K ^MDC(704.006,"AMSGDIVWARD")
             X(1):  MESSAGE_TYPE  (704.006,.04)  (Subscr 1)  (Len 3)  (forwards)
             X(2):  EVENT_TYPE  (704.006,.05)  (Subscr 2)  (Len 3)  (forwards)
             X(3):  DIVISION  (704.006,.02)  (Subscr 3)  (forwards)
             X(4):  WARD  (704.006,.03)  (Subscr 4)  (forwards)

  D (#915)    RECORD    REGULAR    IR    LOOKUP & SORTING
       Unique for:  Key A (#86), File #704.006
      Short Descr:  Uniqueness Index for Key 'A' of File #704.006
        Set Logic:  S ^MDC(704.006,"D",X(1),X(2),X(3),DA)=""
       Kill Logic:  K ^MDC(704.006,"D",X(1),X(2),X(3),DA)
       Whole Kill:  K ^MDC(704.006,"D")
             X(1):  SUBSCRIBER  (704.006,.01)  (Subscr 1)
             X(2):  DIVISION  (704.006,.02)  (Subscr 2)
             X(3):  ID  (704.006,.06)  (Subscr 3)


INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):