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 ---[H[J[2J[HHLOSRVR3 803 printed Oct 16, 2024@17:59:58 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
