Merge lp:~jontai/openvista-gtm-integration/bug398084 into lp:openvista-gtm-integration

[Jon Tai]

[Jon Tai (jontai)]

Joel, I've made the change you suggested. Looking at the ^%ZOSV implemenations for the other platforms, I don't see any of them calling LOGOPT^XQ12, so I wonder if we should just remove this line altogether. In fact, the only place LOGOPT^XQ12 is called is in ^XQ. Thoughts?

[jeff.apple (jeff-apple)]

review: Approve

[lp:~jontai/openvista-gtm-integration/bug398084]

76. By Jon Tai on 2009-07-13

Remove the call to LOGOPT^XQ12 entirely. None of the other ZOSV* implementations call it directly - it should already be called from XQ. Besides, we log all access in syslog, so we should be OK either way.

[Jon Tai (jontai)]

Joel and I discussed this and we agreed to remove the call to LOGOPT^XQ12 entirely.

=== modified file 'mumps/ZOSVGUX.m'
--- mumps/ZOSVGUX.m	2009-06-24 03:19:27 +0000
+++ mumps/ZOSVGUX.m	2009-07-11 07:17:26 +0000
@@ -1,4 +1,4 @@
-%ZOSV ;SFISC/AC,PUG/TOAD,HOU/DHW,MSC/JDA/JKT - View commands & special functions. ;23JUN2009
+%ZOSV ;SFISC/AC,PUG/TOAD,HOU/DHW,MSC/JDA/JKT - View commands & special functions. ;10JUL2009
  ;;8.0;KERNEL;**275,MSC**;Jul 10, 1995
  ;
 ACTJ() ; # active jobs
@@ -54,7 +54,7 @@
  S LOGTEXT=LOGTEXT_" logged in as "_$$GET1^DIQ(200,DUZ,.01) ; VistA user
  D LOG(LOGTEXT,"authpriv.info","OpenVista")
  I 'ISOK W "??",*7 Q
- D LOGOPT^XQ12 ;keep in option audit.
+ I $G(XQAUDIT) D LOGOPT^XQ12 ;keep in option audit.
  K XMB,XMTEXT,XMY S XMB="XUPROGMODE",XMB(1)=DUZ,XMB(2)=$I D ^XMB:$L($T(^XMB)) D BYE^XUSCLEAN K ZTPAC,X,XMB
  ;D UCI S XUCI=Y,XQZ="PRGM^ZUA[MGR]",XUSLNT=1 D DO^%XUCI
  F  BREAK