HLOSRVR3.m

HLOSRVR3 ;IRMFO/OAK/CJM - Reading messages, sending acks;03/24/2004  14:43 ;08/16/2011

 ;;1.6;HEALTH LEVEL SEVEN;**138,147,157**;Oct 13, 1995;Build 8

 ;Per VHA Directive 2004-038, this routine should not be modified.

 ;

ERROR ;error trap

 ;

 S $ETRAP="Q:$QUIT """" Q"

 D END^HLOSRVR

 ;

 I ($ECODE["TOOMANYFILES")!($ECODE["EDITED") Q:$QUIT "" Q

 ;

 ;multi-listener should stop execution, only a single server may continue

 I $P($G(HLCSTATE("LINK","SERVER")),"^",2)'="S" D  Q:$QUIT "" Q

 .;don't log these errors unless logging is turned on

 .I $G(^HLTMP("LOG ALL ERRORS")) D ^%ZTER Q

 .I ($ECODE["READ")!($ECODE["NOTOPEN")!($ECODE["DEVNOTOPN")!($ECODE["WRITE")!($ECODE["OPENERR")!($ECODE["DSCON") Q

 .D ^%ZTER

 .Q

 ;

 ;single listener should return to the process manager

 Q:$Q "" Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---HLOSRVR3   803     printed  Mar 13, 2025@21:04:04                                                                                                                                                                                                     Page 2

HLOSRVR3  ;IRMFO/OAK/CJM - Reading messages, sending acks;03/24/2004  14:43 ;08/16/2011

 +1       ;;1.6;HEALTH LEVEL SEVEN;**138,147,157**;Oct 13, 1995;Build 8

 +2       ;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

ERROR     ;error trap

 +1       ;

 +2        SET $ETRAP="Q:$QUIT """" Q"

 +3        DO END^HLOSRVR

 +4       ;

 +5        IF ($ECODE["TOOMANYFILES")!($ECODE["EDITED")

               if $QUIT

                   QUIT ""

               QUIT 

 +6       ;

 +7       ;multi-listener should stop execution, only a single server may continue

 +8        IF $PIECE($GET(HLCSTATE("LINK","SERVER")),"^",2)'="S"

               Begin DoDot:1

 +9       ;don't log these errors unless logging is turned on

 +10               IF $GET(^HLTMP("LOG ALL ERRORS"))

                       DO ^%ZTER

                       QUIT 

 +11               IF ($ECODE["READ")!($ECODE["NOTOPEN")!($ECODE["DEVNOTOPN")!($ECODE["WRITE")!($ECODE["OPENERR")!($ECODE["DSCON")

                       QUIT 

 +12               DO ^%ZTER

 +13               QUIT 

               End DoDot:1

               if $QUIT

                   QUIT ""

               QUIT 

 +14      ;

 +15      ;single listener should return to the process manager

 +16       if $QUIT

               QUIT ""

           QUIT