VBECP10.m

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 ---VBECP10   1406     printed  Apr 09, 2024@21:46:24                                                                                                                                                                                                     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