VBEC2P3 ;RLM/VBEC - VBECS PATCH PREINSTALL ROUTINE ; Jan 04, 2018@15:33
;;2.0;VBEC;**3**;Jan 14 2019;Build 3
; Use of ^XPDUTL is supported by Integration Agreement: 10141
; Use of ^XMXAPI is supported by Integration Agreement: 2729
ENV ;Environment Check
Q
PRE ;Pre Init
Q
POST ;Post Init
;Send a message showing successful installation.
K ^TMP("VBEC",$J)
s ^TMP("VBEC",$J,1,0)="Patch VBEC*2*3 has been installed by "_$$GET1^DIQ(200,DUZ_",",".01","E","VBECN","ERR")_" at "_$P($$SITE^VASITE,"^",2)
s ^TMP("VBEC",$J,2,0)=" "
s ^TMP("VBEC",$J,3,0)="Current version is: "_$$VERSION^XPDUTL("VBEC")
s XMSUB="VBEC*2*1 Patch Installation verification",XMTEXT="^TMP(""VBEC"",$J)",XMDUN="VBECS Patch Monitor"
s XMY("G.VBEC@DOMAIN.EXT")=""
d SENDMSG^XMXAPI(DUZ,XMSUB,XMTEXT,.XMY)
k ^TMP("VBEC",$J),XMY,XMSUB,VBECLAB,VBECLAB1
q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVBEC2P3 850 printed Sep 23, 2025@20:19:46 Page 2
VBEC2P3 ;RLM/VBEC - VBECS PATCH PREINSTALL ROUTINE ; Jan 04, 2018@15:33
+1 ;;2.0;VBEC;**3**;Jan 14 2019;Build 3
+2 ; Use of ^XPDUTL is supported by Integration Agreement: 10141
+3 ; Use of ^XMXAPI is supported by Integration Agreement: 2729
ENV ;Environment Check
+1 QUIT
PRE ;Pre Init
+1 QUIT
POST ;Post Init
+1 ;Send a message showing successful installation.
+2 KILL ^TMP("VBEC",$JOB)
+3 SET ^TMP("VBEC",$JOB,1,0)="Patch VBEC*2*3 has been installed by "_$$GET1^DIQ(200,DUZ_",",".01","E","VBECN","ERR")_" at "_$PIECE($$SITE^VASITE,"^",2)
+4 SET ^TMP("VBEC",$JOB,2,0)=" "
+5 SET ^TMP("VBEC",$JOB,3,0)="Current version is: "_$$VERSION^XPDUTL("VBEC")
+6 SET XMSUB="VBEC*2*1 Patch Installation verification"
SET XMTEXT="^TMP(""VBEC"",$J)"
SET XMDUN="VBECS Patch Monitor"
+7 SET XMY("G.VBEC@DOMAIN.EXT")=""
+8 DO SENDMSG^XMXAPI(DUZ,XMSUB,XMTEXT,.XMY)
+9 KILL ^TMP("VBEC",$JOB),XMY,XMSUB,VBECLAB,VBECLAB1
+10 QUIT
