Merge lp:~jeff-apple/openvista-gtm-integration/bug406633 into lp:openvista-gtm-integration

[jeff.apple]

[JSHER (joel-sher)]

Code looks good. Waiting for feedback from LMCNY test.

review: Approve

[lp:~jeff-apple/openvista-gtm-integration/bug406633]

83. By jeff.apple on 2009-07-31

Update header

=== modified file 'mumps/HLCSLNCH.m'
--- mumps/HLCSLNCH.m	2009-06-05 20:09:12 +0000
+++ mumps/HLCSLNCH.m	2009-07-31 16:45:22 +0000
@@ -112,7 +112,8 @@
  S X="HLJ(870,"""_HLDP_","")",@X@(4)="Halting",@X@(10)=$$NOW^XLFDT,(@X@(11),@X@(9))="@",@X@(14)=1
  I $P(HLPARM4,U,3)="C"&("N"[$P(HLPARM4,U,4)),'$P(HLPARM0,U,12) S @X@(4)="Shutdown"
  D FILE^HLDIE("","HLJ","","STOP","HLCSLNCH") ; HL*1.6*109
- I ^%ZOSF("OS")["OpenM",(($P(HLPARM4,U,3)="M"&($$OS^%ZOSV'["VMS"))!($P(HLPARM4,U,3)="S")) D
+ S $ETRAP=""
+ I ($P(HLPARM4,U,3)="M"&'$$NOTMULTI())!($P(HLPARM4,U,3)="S") D
  . ;pass task number to stop listener
  . S:$P(HLPARM0,U,12) X=$$ASKSTOP^%ZTLOAD(+$P(HLPARM0,U,12))
  . D CALL^%ZISTCP($P(HLPARM4,U),$P(HLPARM4,U,2),10)
 
=== modified file 'mumps/HLCSTCP.m'
--- mumps/HLCSTCP.m	2009-06-05 20:09:12 +0000
+++ mumps/HLCSTCP.m	2009-07-31 16:45:22 +0000
@@ -24,7 +24,7 @@
  S HLCSFAIL=1
  ;single threaded listener
  I $G(HLTCPCS)="S" D  Q
- . D ST1,MON("Listen"),LISTEN^%ZISTCP(HLTCPORT,"SERVER^HLCSTCP("""_HLDP_""")","S ZISQUIT=$$STOP^HLCSTCP()")
+ . D ST1,MON("Listen"),LISTEN^%ZISTCP(HLTCPORT,"SERVER^HLCSTCP("""_HLDP_""")")
  . ;couldn't open listener port
  . I HLCSFAIL D EXITS("Openfail") Q
  ;