Routine: VBEC2P1

VBEC2P1 ;RLM/VBEC - VBECS PATCH PREINSTALL ROUTINE ; Jan 04, 2018@15:33

 ;;2.0;VBEC;**1**;Jun 05, 2015;Build 13

 ; Use of ^XPDUTL is supported by Integration Agreement: 10141

 ; Use of ^XMXAPI is supported by Integration Agreement: 2729

 ; Use of ^XPDIP is supported by Integration Agreement: 2067

ENV ;Environment Check

 K XPDQUIT,MSG

 I '(+$O(^LAB(60,"B","VBEC PATIENT REFLEX TEST",0))) D

  . S MSG(1)="The ""VBEC PATIENT REFLEX TEST"" test has not been created."

  . S MSG(2)="Please create the test with the following information"

  . S MSG(3)="and continue with the patch installation."

  . S MSG(4)=""

  . S MSG(5)=" NAME: VBEC PATIENT REFLEX TEST          TYPE: NEITHER"

  . S MSG(6)="  SUBSCRIPT: WORKLOAD                   HIGHEST URGENCY ALLOWED: ROUTINE"

  . S MSG(7)="  PRINT NAME: VBEC PATIENT REFLEX       CREATION DATE:"

  . S MSG(8)=""

  . S MSG(9)=""

  . S XPDQUIT=2 D MES^XPDUTL(.MSG)

PRE ;Pre Init

 ;Update version field

 N DIC,X,Y,Z

 S DIC(0)="BX",DIC="^DIC(9.4,",X="VBECS" D ^DIC Q:Y<0

 S Z=$$PKGVER^XPDIP(+Y,"2.0")

POST ;Post Init

 ;Send a message showing successful installation.

 K ^TMP("VBEC",$J)

 s ^TMP("VBEC",$J,1,0)="Patch VBEC*2*1 has been installed by "_$$GET1^DIQ(200,DUZ_",",".01","E","VBECN","ERR")_" at "_$P($$SITE^VASITE,"^",2)

 s ^TMP("VBEC",$J,2,0)=" "

 S VBECLAB=+$O(^LAB(60,"B","VBEC PATIENT REFLEX TEST",0)) I VBECLAB S VBECLAB1=$P($G(^LAB(60,VBECLAB,0)),"^")

 s ^TMP("VBEC",$J,3,0)=" NOTE! Reflex test has not been created!"

 I $G(VBECLAB1)]"" s ^TMP("VBEC",$J,3,0)=VBECLAB1_" has been created with IEN "_VBECLAB

 s ^TMP("VBEC",$J,4,0)=" "

 s ^TMP("VBEC",$J,5,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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVBEC2P1   1927     printed  Mar 13, 2025@21:48:36                                                                                                                                                                                                     Page 2

VBEC2P1   ;RLM/VBEC - VBECS PATCH PREINSTALL ROUTINE ; Jan 04, 2018@15:33

 +1       ;;2.0;VBEC;**1**;Jun 05, 2015;Build 13

 +2       ; Use of ^XPDUTL is supported by Integration Agreement: 10141

 +3       ; Use of ^XMXAPI is supported by Integration Agreement: 2729

 +4       ; Use of ^XPDIP is supported by Integration Agreement: 2067

ENV       ;Environment Check

 +1        KILL XPDQUIT,MSG

 +2        IF '(+$ORDER(^LAB(60,"B","VBEC PATIENT REFLEX TEST",0)))

               Begin DoDot:1

 +3                SET MSG(1)="The ""VBEC PATIENT REFLEX TEST"" test has not been created."

 +4                SET MSG(2)="Please create the test with the following information"

 +5                SET MSG(3)="and continue with the patch installation."

 +6                SET MSG(4)=""

 +7                SET MSG(5)=" NAME: VBEC PATIENT REFLEX TEST          TYPE: NEITHER"

 +8                SET MSG(6)="  SUBSCRIPT: WORKLOAD                   HIGHEST URGENCY ALLOWED: ROUTINE"

 +9                SET MSG(7)="  PRINT NAME: VBEC PATIENT REFLEX       CREATION DATE:"

 +10               SET MSG(8)=""

 +11               SET MSG(9)=""

 +12               SET XPDQUIT=2

                   DO MES^XPDUTL(.MSG)

               End DoDot:1

 +13       QUIT

PRE       ;Pre Init

 +1       ;Update version field

 +2        NEW DIC,X,Y,Z

 +3        SET DIC(0)="BX"

           SET DIC="^DIC(9.4,"

           SET X="VBECS"

           DO ^DIC

           if Y<0

               QUIT

 +4        SET Z=$$PKGVER^XPDIP(+Y,"2.0")

 +5        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*1 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 VBECLAB=+$ORDER(^LAB(60,"B","VBEC PATIENT REFLEX TEST",0))

           IF VBECLAB

               SET VBECLAB1=$PIECE($GET(^LAB(60,VBECLAB,0)),"^")

 +6        SET ^TMP("VBEC",$JOB,3,0)=" NOTE! Reflex test has not been created!"

 +7        IF $GET(VBECLAB1)]""

               SET ^TMP("VBEC",$JOB,3,0)=VBECLAB1_" has been created with IEN "_VBECLAB

 +8        SET ^TMP("VBEC",$JOB,4,0)=" "

 +9        SET ^TMP("VBEC",$JOB,5,0)="Current version is: "_$$VERSION^XPDUTL("VBEC")

 +10       SET XMSUB="VBEC*2*1 Patch Installation verification"

           SET XMTEXT="^TMP(""VBEC"",$J)"

           SET XMDUN="VBECS Patch Monitor"

 +11       SET XMY("G.VBEC@DOMAIN.EXT")=""

 +12       DO SENDMSG^XMXAPI(DUZ,XMSUB,XMTEXT,.XMY)

 +13       KILL ^TMP("VBEC",$JOB),XMY,XMSUB,VBECLAB,VBECLAB1

 +14       QUIT

VBEC2P1.m