Changeset 636 for FOIAVistA/tag/r/RPC_BROKER-XWB/XWBTCPM.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• RPC_BROKER-XWB/XWBTCPM.m (modified) (4 diffs)

FOIAVistA/tag/r/RPC_BROKER-XWB/XWBTCPM.m

@@ -1 @@
-XWBTCPM ;ISF/RWF - BROKER TCP/IP PROCESS HANDLER ;01/04/2006  62562.56228
- ;;1.1;RPC BROKER;**35,43**;Mar 28, 1997
+XWBTCPM ;ISF/RWF - BROKER TCP/IP PROCESS HANDLER ;8/29/07  22:11
+ ;;1.1;RPC BROKER;**35,43,49**;Mar 28, 1997;Build 6
  ;Based on: XWBTCPC & XWBTCPL, Modified by ISF/RWF
  ;Changed to be started by UCX or %ZISTCPS
@@ -38 +38 @@
  ;GTM specific code
  S @("$ZINTERRUPT=""I $$JOBEXAM^ZU($ZPOSITION)""")
- S XWBTDEV=$P X "U XWBTDEV:(nowrap:nodelimiter)"
+ S XWBTDEV=$P X "U XWBTDEV:(nowrap:nodelimiter:ioerror=""TRAP"")"
  S %="",@("%=$ZTRNLNM(""REMOTE_HOST"")") S:$L(%) IO("GTM-IP")=%
  G CONNTYPE
@@ -44 +44 @@
 ESET ;Set inital error trap
  S U="^",$ETRAP="D ^%ZTER H" ;Set up the error trap
+ S X="",@^%ZOSF("TRAP") ;Clear old trap
  Q
  ;Find the type of connection and jump to the processing routine.
@@ -155 +156 @@
  D ^%ZTER ;%ZTER clears $ZE and $ZCODE
  D LOG("In ETRAP: "_XWBERC) ;Log
- I (XWBERC["READ")!(XWBERC["WRITE")!(XWBERC["SYSTEM-F") D EXIT HALT
+ I (XWBERC["READ")!(XWBERC["WRITE")!(XWBERC["SYSTEM-F")!(XWBERC["IOEOF") D EXIT HALT
  U XWBTDEV
  I $G(XWBT("PCNT")) L ^XUTL("XUSYS",$J,0)