INHCEIS.m

INHCEIS ;DGH; 4 Jun 98 13:46;Multiple CEIS selective routing

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

 ;COPYRIGHT 1991-2000 SAIC

 ;CHCS TOOLS_460; GEN 1; 15-JUN-1998

 ;COPYRIGHT 1997 SAIC

 ;

 ;Contains tag SRMC with selective routing logic.

 Q

 ;

SRMC(CEISDATA) ;Selective routing entry point

 ;INPUT:

 ; CEISDATA must be passed by reference as INSRDATA

 ;

 ;If there is only one entry in the MHCMIS SITE PARAMETER FILE,

 ;set flag to broadcast (no subordinate destinations should be defined).

 S X=0,X=$O(^XXDBE(30203,X)) I '$O(^XXDBE(30203,X)) S CEISDATA=0 Q

 ;Default if no array exists is to broadcast

 I '$D(@INA@("DMISID","CEIS")) S CEISDATA=0 Q

 N I,J

 ;Build INSRDATA array

 S I="" F  S I=$O(@INA@("DMISID","CEIS",I)) Q:'I  S CEISDATA(I)=""

 Q

 ;

INHCEIS   ;DGH; 4 Jun 98 13:46;Multiple CEIS selective routing

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

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;CHCS TOOLS_460; GEN 1; 15-JUN-1998

 +4       ;COPYRIGHT 1997 SAIC

 +5       ;

 +6       ;Contains tag SRMC with selective routing logic.

 +7        QUIT 

 +8       ;

SRMC(CEISDATA) ;Selective routing entry point

 +1       ;INPUT:

 +2       ; CEISDATA must be passed by reference as INSRDATA

 +3       ;

 +4       ;If there is only one entry in the MHCMIS SITE PARAMETER FILE,

 +5       ;set flag to broadcast (no subordinate destinations should be defined).

 +6        SET X=0

           SET X=$ORDER(^XXDBE(30203,X))

           IF '$ORDER(^XXDBE(30203,X))

               SET CEISDATA=0

               QUIT 

 +7       ;Default if no array exists is to broadcast

 +8        IF '$DATA(@INA@("DMISID","CEIS"))

               SET CEISDATA=0

               QUIT 

 +9        NEW I,J

 +10      ;Build INSRDATA array

 +11       SET I=""

           FOR 

               SET I=$ORDER(@INA@("DMISID","CEIS",I))

               IF 'I

                   QUIT 

               SET CEISDATA(I)=""

 +12       QUIT 

 +13      ;