INHDINP.m

INHDINP ;DGH; 27 Oct 98 14:27;DINPACS selective routing

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

 ;COPYRIGHT 1991-2000 SAIC

 ;

 ;Contains tag SRMC with selective routing logic.

 Q

 ;

SRMC(DINPDATA) ;Selective routing entry point

 ;INPUT:

 ; DINPDATA must be passed by reference as INSRDATA

 ;

 ;Default if no array exists is to broadcast

 I '$D(@INA@("DMISID","DINP")) S DINPDATA=0 Q

 N I,J

 ;Build INSRDATA array

 S I="" F  S I=$O(@INA@("DMISID","DINP",I)) Q:'$L(I)  S DINPDATA(I)=""

 Q

 ;

INHDINP   ;DGH; 27 Oct 98 14:27;DINPACS selective routing

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

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;

 +4       ;Contains tag SRMC with selective routing logic.

 +5        QUIT 

 +6       ;

SRMC(DINPDATA) ;Selective routing entry point

 +1       ;INPUT:

 +2       ; DINPDATA must be passed by reference as INSRDATA

 +3       ;

 +4       ;Default if no array exists is to broadcast

 +5        IF '$DATA(@INA@("DMISID","DINP"))

               SET DINPDATA=0

               QUIT 

 +6        NEW I,J

 +7       ;Build INSRDATA array

 +8        SET I=""

           FOR 

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

               IF '$LENGTH(I)

                   QUIT 

               SET DINPDATA(I)=""

 +9        QUIT 

 +10      ;