Changeset 636 for FOIAVistA/tag/r/RPC_BROKER-XWB/XWBTCPL.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/XWBTCPL.m (modified) (2 diffs)

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

@@ -1 @@
-XWBTCPL ;SLC/KCM - Listener for TCP connects ;12/09/2004  07:33
+XWBTCPL ;SLC/KCM - Listener for TCP connects ;08/25/2004  12:08
  ;;1.1;RPC BROKER;**1,7,9,15,16,35**;Mar 28, 1997
  ;ISC-SF/EG - DHCP Broker
@@ -136 +136 @@
  . D UPDTREC(XWBTSKT,6) ;updt RPC BROKER SITE PARAMETER record as STOPPED
  . Q
- S XWBDEBUG=$G(XWBDEBUG)
  ;Set new trap
  S $ETRAP="Q:($ESTACK&'$QUIT)  Q:$ESTACK -9 S $ECODE="""" G RESTART^XWBTCPL"