INHVPMN.m

INHVPMN ;JKB,KAC,DJL,CHEM ; 17 Aug 1999 16:54:18; PMN Receiver - Determine destination for inbound msg

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

 ;COPYRIGHT 1991-2000 SAIC

 ;CHCS TOOLS_450; GEN 3; 26-SEP-1996

 ;COPYRIGHT 1995 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 PMNDST

 ;

 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

 ;

PMNDST ; Build array containing valid inbound PMN destinations.

 ;

 ; Output:

 ;   INDEST   - array containing valid PMN inbound destinations

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

 ;                      INTERFACE DESTINATION name for inbound msg

 ;

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

 K INDEST

 S INDEST="PMN"

 S INDEST("PMNA28")="HL DG ADD PERSON - IN (PMN)"

 Q

 ;

INHVPMN   ;JKB,KAC,DJL,CHEM ; 17 Aug 1999 16:54:18; PMN Receiver - Determine destination for inbound msg

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

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;CHCS TOOLS_450; GEN 3; 26-SEP-1996

 +4       ;COPYRIGHT 1995 SAIC

 +5        QUIT 

 +6       ;

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 PMNDST

 +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      ;

PMNDST    ; Build array containing valid inbound PMN destinations.

 +1       ;

 +2       ; Output:

 +3       ;   INDEST   - array containing valid PMN inbound destinations

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

 +5       ;                      INTERFACE DESTINATION name for inbound msg

 +6       ;

 +7       ; array already exists?

           IF $GET(INDEST)="PMN"

               QUIT 

 +8        KILL INDEST

 +9        SET INDEST="PMN"

 +10       SET INDEST("PMNA28")="HL DG ADD PERSON - IN (PMN)"

 +11       QUIT 

 +12      ;