VBECP3 ;HIOFO;RLM VBECS PATCH 3 Post Install Routine ; 04/30/09 14:40
;;1.0;VBECS;**3**;Apr 14, 2005;Build 21
;
; Note: This routine supports data exchange with an FDA registered
; medical device. As such, it may not be changed in any way without
; prior written approval from the medical device manufacturer.
;
; Integration Agreements:
; Reference to FILESEC^DDMOD supported by DBIA #2916
; Reference to ^XMD supported by DBIA #10113
; Reference to ^XPDUTL supported by DBIA #10141
; Reference to $$GET1^DIQ supported by DBIA #2056
; Reference to $$SITE^VASITE supported by DBIA #10112
ENV ; Environment Check
;Don't install the patch if 6002.03 hasn't been installed.
q:$d(^VBEC(6002.03))
s XPDQUIT=1
;Send a message showing unsuccessful installation.
s ^TMP("VBEC",$J,1,0)="Patch VBEC*1.0*3 installation failed at "_$P($$SITE^VASITE,"^",2)
s XMSUB="VBEC*1.0*3 Patch Installation Failure",XMTEXT="^TMP(""VBEC"",$J,",XMDUN="VBECS Patch Monitor"
s ^TMP("VBEC",$J,2,0)="VBECS does not appear to be installed"
d PATCH
d ^XMD k ^TMP("VBEC",$J)
q
POST ;Post Install entry point
k DISEC
s DISEC("DD")=""
s DISEC("RD")=""
s DISEC("WR")=""
s DISEC("DEL")=""
s DISEC("LAYGO")=""
s DISEC("AUDIT")=""
s DIFIL=6002.03
;Update the security in file 6002.03
d FILESEC^DDMOD(DIFIL,.DISEC,"DIMSGA")
;Send a message showing successful installation.
K ^TMP("VBEC",$J)
s ^TMP("VBEC",$J,1,0)="Patch VBEC*1.0*3 has been installed by "_$$GET1^DIQ(200,DUZ_",",".01","E","VBECN","ERR")_" at "_$P($$SITE^VASITE,"^",2)
s XMSUB="VBEC*1.0*3 Patch Installation verification",XMTEXT="^TMP(""VBEC"",$J)",XMDUN="VBECS Patch Monitor"
s ^TMP("VBEC",$J,2,0)=$s($D(DIMSGA):"",1:"No ")_"errors encountered updating 6002.03"
d PATCH
s XMY("G.VBEC@DOMAIN.EXT")=""
d SENDMSG^XMXAPI(DUZ,XMSUB,XMTEXT,.XMY)
;d ^XMD
k ^TMP("VBEC",$J)
q
PATCH ;
s ^TMP("VBEC",$J,3,0)=" ",^TMP("VBEC",$J,4,0)=" ",^TMP("VBEC",$J,5,0)="Previous Patches:"
;Update the loop in this line to reflect all released patches
f VBECI=0:1:2 s VBECA=$$PATCH^XPDUTL("VBEC*1.0*"_VBECI),^TMP("VBEC",$J,(VBECI+6),0)="Patch VBEC*1.0*"_VBECI_" "_$S(VBECA=1:"has",1:"hasn't")_" been installed."
q
EOR ;VBECP3
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVBECP3 2228 printed Nov 22, 2024@17:54:17 Page 2
VBECP3 ;HIOFO;RLM VBECS PATCH 3 Post Install Routine ; 04/30/09 14:40
+1 ;;1.0;VBECS;**3**;Apr 14, 2005;Build 21
+2 ;
+3 ; Note: This routine supports data exchange with an FDA registered
+4 ; medical device. As such, it may not be changed in any way without
+5 ; prior written approval from the medical device manufacturer.
+6 ;
+7 ; Integration Agreements:
+8 ; Reference to FILESEC^DDMOD supported by DBIA #2916
+9 ; Reference to ^XMD supported by DBIA #10113
+10 ; Reference to ^XPDUTL supported by DBIA #10141
+11 ; Reference to $$GET1^DIQ supported by DBIA #2056
+12 ; Reference to $$SITE^VASITE supported by DBIA #10112
ENV ; Environment Check
+1 ;Don't install the patch if 6002.03 hasn't been installed.
+2
*** ERROR ***
if $d(^VBEC(6002.03))
QUIT
+3 SET XPDQUIT=1
+4 ;Send a message showing unsuccessful installation.
+5 SET ^TMP("VBEC",$JOB,1,0)="Patch VBEC*1.0*3 installation failed at "_$PIECE($$SITE^VASITE,"^",2)
+6 SET XMSUB="VBEC*1.0*3 Patch Installation Failure"
SET XMTEXT="^TMP(""VBEC"",$J,"
SET XMDUN="VBECS Patch Monitor"
+7 SET ^TMP("VBEC",$JOB,2,0)="VBECS does not appear to be installed"
+8 DO PATCH
+9 DO ^XMD
KILL ^TMP("VBEC",$JOB)
+10 QUIT
POST ;Post Install entry point
+1 KILL DISEC
+2 SET DISEC("DD")=""
+3 SET DISEC("RD")=""
+4 SET DISEC("WR")=""
+5 SET DISEC("DEL")=""
+6 SET DISEC("LAYGO")=""
+7 SET DISEC("AUDIT")=""
+8 SET DIFIL=6002.03
+9 ;Update the security in file 6002.03
+10 DO FILESEC^DDMOD(DIFIL,.DISEC,"DIMSGA")
+11 ;Send a message showing successful installation.
+12 KILL ^TMP("VBEC",$JOB)
+13 SET ^TMP("VBEC",$JOB,1,0)="Patch VBEC*1.0*3 has been installed by "_$$GET1^DIQ(200,DUZ_",",".01","E","VBECN","ERR")_" at "_$PIECE($$SITE^VASITE,"^",2)
+14 SET XMSUB="VBEC*1.0*3 Patch Installation verification"
SET XMTEXT="^TMP(""VBEC"",$J)"
SET XMDUN="VBECS Patch Monitor"
+15
*** ERROR ***
SET ^TMP("VBEC",$JOB,2,0)=$s($DATA(DIMSGA):"",1:"No ")_"errors encountered updating 6002.03"
+16 DO PATCH
+17 SET XMY("G.VBEC@DOMAIN.EXT")=""
+18 DO SENDMSG^XMXAPI(DUZ,XMSUB,XMTEXT,.XMY)
+19 ;d ^XMD
+20 KILL ^TMP("VBEC",$JOB)
+21 QUIT
PATCH ;
+1 SET ^TMP("VBEC",$JOB,3,0)=" "
SET ^TMP("VBEC",$JOB,4,0)=" "
SET ^TMP("VBEC",$JOB,5,0)="Previous Patches:"
+2 ;Update the loop in this line to reflect all released patches
+3 FOR VBECI=0:1:2
SET VBECA=$$PATCH^XPDUTL("VBEC*1.0*"_VBECI)
SET ^TMP("VBEC",$JOB,(VBECI+6),0)="Patch VBEC*1.0*"_VBECI_" "_$SELECT(VBECA=1:"has",1:"hasn't")_" been installed."
+4 QUIT
EOR ;VBECP3
