INHVDBSS.m

INHVDBSS ;JKB,KAC,DJL ; 20 Feb 96 16:11; DBSS Receiver - Determine destination for inbound msg

 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 ;COPYRIGHT 1991-2000 SAIC

 ;

 Q

 ;

DEST ; Determine destination for an inbound DBSS messages.

 ;

 ; Called by:

 ;   -  eXec'd from IN^INHUSEN where the context includes the input vars 

 ;      & expects the output vars documented below.

 ;

 ; Input: 

 ;   INTYP    - (req) msg type

 ;   INEVN    - (req) event type

 ;

 ; Variables:

 ;   X        - scratch

 ;

 ; Output:

 ;   INDST    - INTERFACE DESTINATION name

 ;   INDSTP   - INTERFACE DESTINATION ptr

 ;              Undefined if destination determination fails.

 ;   INDEST   - array containing valid DBSS inbound destinations based 

 ;              on sending application

 ;              Format: INDEST(msg-type_event-type)=

 ;                      INTERFACE DESTINATION name for inbound msg

 ;

 K INDSTP

 N X

 ;

 ; Build INDEST array

 D DBSSND

 ;

 S X=$G(INTYP)_$G(INEVN)

 I $D(INDEST(X)) S INDST=INDEST(X) I $D(^INRHD("B",INDST)) S INDSTP=$O(^(INDST,0))

 Q

 ;

DBSSND ; Build array containing valid inbound DBSS destinations.

 ;

 ; Output:

 ;   INDEST   - array containing valid DBSS inbound destinations

 ;              Format: INDEST(msg-type_event-type)=

 ;                      INTERFACE DESTINATION name for inbound msg

 ;

 Q:$G(INDEST)="DBSS"  ; array already exists?

 K INDEST

 S INDEST="DBSS"

 S INDEST("ADTA08")="HL DBSS UPDATE PATIENT -IN"

 S INDEST("ADTA18")="HL DBSS MERGE PATIENT -IN"

 S INDEST("ORUR01")="HL LAB DBSS RESULT -IN"

 S INDEST("ORRO02")="INCOMING ACK"

 Q

 ;

INHVDBSS  ;JKB,KAC,DJL ; 20 Feb 96 16:11; DBSS Receiver - Determine destination for inbound msg

 +1       ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;

 +4        QUIT 

 +5       ;

DEST      ; Determine destination for an inbound DBSS messages.

 +1       ;

 +2       ; Called by:

 +3       ;   -  eXec'd from IN^INHUSEN where the context includes the input vars 

 +4       ;      & expects the output vars documented below.

 +5       ;

 +6       ; Input: 

 +7       ;   INTYP    - (req) msg type

 +8       ;   INEVN    - (req) event type

 +9       ;

 +10      ; Variables:

 +11      ;   X        - scratch

 +12      ;

 +13      ; Output:

 +14      ;   INDST    - INTERFACE DESTINATION name

 +15      ;   INDSTP   - INTERFACE DESTINATION ptr

 +16      ;              Undefined if destination determination fails.

 +17      ;   INDEST   - array containing valid DBSS inbound destinations based 

 +18      ;              on sending application

 +19      ;              Format: INDEST(msg-type_event-type)=

 +20      ;                      INTERFACE DESTINATION name for inbound msg

 +21      ;

 +22       KILL INDSTP

 +23       NEW X

 +24      ;

 +25      ; Build INDEST array

 +26       DO DBSSND

 +27      ;

 +28       SET X=$GET(INTYP)_$GET(INEVN)

 +29       IF $DATA(INDEST(X))

               SET INDST=INDEST(X)

               IF $DATA(^INRHD("B",INDST))

                   SET INDSTP=$ORDER(^(INDST,0))

 +30       QUIT 

 +31      ;

DBSSND    ; Build array containing valid inbound DBSS destinations.

 +1       ;

 +2       ; Output:

 +3       ;   INDEST   - array containing valid DBSS inbound destinations

 +4       ;              Format: INDEST(msg-type_event-type)=

 +5       ;                      INTERFACE DESTINATION name for inbound msg

 +6       ;

 +7       ; array already exists?

           IF $GET(INDEST)="DBSS"

               QUIT 

 +8        KILL INDEST

 +9        SET INDEST="DBSS"

 +10       SET INDEST("ADTA08")="HL DBSS UPDATE PATIENT -IN"

 +11       SET INDEST("ADTA18")="HL DBSS MERGE PATIENT -IN"

 +12       SET INDEST("ORUR01")="HL LAB DBSS RESULT -IN"

 +13       SET INDEST("ORRO02")="INCOMING ACK"

 +14       QUIT 

 +15      ;