VBECP10 ;HIOFO;RLM VBECS PATCH 3 Post Install Routine ; 04/30/09 14:40
;;1.0;VBECS;**10**;Apr 14, 2005;Build 15
;
; 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
;Send a message showing successful installation.
K ^TMP("VBEC",$J)
s ^TMP("VBEC",$J,1,0)="Patch VBEC*1.0*10 has been installed by "_$$GET1^DIQ(200,DUZ_",",".01","E","VBECN","ERR")_" at "_$P($$SITE^VASITE,"^",2)
s XMSUB="VBEC*1.0*10 Patch Installation verification",XMTEXT="^TMP(""VBEC"",$J)",XMDUN="VBECS Patch Monitor"
d PATCH
s XMY("G.VBEC@DOMAIN.EXT")=""
d SENDMSG^XMXAPI(DUZ,XMSUB,XMTEXT,.XMY)
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=1:1:9999 s VBECA=$$PATCH^XPDUTL("VBEC*1.0*"_VBECI) i VBECA s ^TMP("VBEC",$J,(VBECI+6),0)="Patch VBEC*1.0*"_VBECI_" has been installed."
q
EOR ;VBECP10
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVBECP10 1406 printed Oct 16, 2024@18:44:38 Page 2
VBECP10 ;HIOFO;RLM VBECS PATCH 3 Post Install Routine ; 04/30/09 14:40
+1 ;;1.0;VBECS;**10**;Apr 14, 2005;Build 15
+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 ;Send a message showing successful installation.
+2 KILL ^TMP("VBEC",$JOB)
+3 SET ^TMP("VBEC",$JOB,1,0)="Patch VBEC*1.0*10 has been installed by "_$$GET1^DIQ(200,DUZ_",",".01","E","VBECN","ERR")_" at "_$PIECE($$SITE^VASITE,"^",2)
+4 SET XMSUB="VBEC*1.0*10 Patch Installation verification"
SET XMTEXT="^TMP(""VBEC"",$J)"
SET XMDUN="VBECS Patch Monitor"
+5 DO PATCH
+6 SET XMY("G.VBEC@DOMAIN.EXT")=""
+7 DO SENDMSG^XMXAPI(DUZ,XMSUB,XMTEXT,.XMY)
+8 KILL ^TMP("VBEC",$JOB)
+9 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=1:1:9999
SET VBECA=$$PATCH^XPDUTL("VBEC*1.0*"_VBECI)
IF VBECA
SET ^TMP("VBEC",$JOB,(VBECI+6),0)="Patch VBEC*1.0*"_VBECI_" has been installed."
+4 QUIT
EOR ;VBECP10
