VBECP3.m

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 ---VBECP3   2228     printed  Mar 13, 2025@21:49:20                                                                                                                                                                                                      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