BPS15PST ;ALB/ESG - Post-install for BPS*1.0*15 ;02/13/2013
;;1.0;E CLAIMS MGMT ENGINE;**15**;JUN 2004;Build 13
;;Per VHA Directive 2004-038, this routine should not be modified.
;
; ePharmacy Operating Rules - BPS*1*15 patch post install
;
Q
;
POST ; Entry Point for post-install
D BMES^XPDUTL(" Starting post-install of BPS*1*15")
N XPDIDTOT
S XPDIDTOT=1
D OPT(1) ; 1. remove the IB DRUGS NON COVERED REPORT from a BPS parent menu
;
;If HL7 listener port number detected is not 5000 send notification e-mail message
N PORT S PORT=$$EPPORT^BPSJUTL D:PORT'=5000 EMAIL(PORT)
;
;
EX ; exit point
;
D BMES^XPDUTL(" Finished post-install of BPS*1*15")
Q
;
OPT(BPSXPD) ; remove the IB DRUGS NON COVERED REPORT from the BPS MENU MAINTENANCE parent menu
N RES
D BMES^XPDUTL(" STEP "_BPSXPD_" of "_XPDIDTOT)
D MES^XPDUTL("-------------")
D MES^XPDUTL("Removing the 'Drugs non covered report' from an ECME parent menu ... ")
;
S RES=$$DELETE^XPDMENU("BPS MENU MAINTENANCE","IB DRUGS NON COVERED REPORT")
I RES D MES^XPDUTL(" Menu option successfully removed!") G OPTX
;
D MES^XPDUTL(" Menu option already removed.")
OPTX ;
D MES^XPDUTL(" Done.")
D UPDATE^XPDID(BPSXPD)
Q
;
EMAIL(PORT) ; send email when patch is installed if port number detected is not 5000
N SUBJ,MSG,XMTO,GLO,GLB,XMINSTR,SITE
S SITE=$$SITE^VASITE
S SUBJ="BPS*1*15 installed at Station# "_$P(SITE,U,3)_" - "_$P(SITE,U,2)
S SUBJ=$E(SUBJ,1,65)
S MSG(2)=""
S MSG(3)=" Name: "_$P(SITE,U,2)
S MSG(4)=" Station#: "_$P(SITE,U,3)
S MSG(5)=" Domain: "_$G(^XMB("NETNAME"))
S MSG(6)=" Date/Time: "_$$FMTE^XLFDT($$NOW^XLFDT,"5ZPM")
S MSG(7)=" By: "_$P($G(^VA(200,DUZ,0)),U,1)
S MSG(8)=""
S MSG(9)="Port number detected = "_PORT
S MSG(10)=""
S MSG(11)="Patch Version: "_$S(+$G(XPDA):$G(^XPD(9.7,+$G(XPDA),2)),1:"Unknown Install File ien")
;
;Copy mesage to EPOR team
S XMTO(DUZ)=""
S XMTO("peter.hartley@domain.ext")=""
S XMTO("eric.gustafson@domain.ext")=""
S XMTO("cynthia.fawcett@domain.ext")=""
S XMTO("bill.losey@domain.ext")=""
S XMINSTR("FROM")="BPS.1.15.POST"
;
D SENDMSG^XMXAPI(DUZ,SUBJ,"MSG",.XMTO,.XMINSTR)
I '$D(^TMP("XMERR",$J)) G EMAILX ; no email problems
;
D MES^XPDUTL("MailMan reported a problem trying to send the notification message.")
D MES^XPDUTL(" ")
S (GLO,GLB)="^TMP(""XMERR"","_$J
S GLO=GLO_")"
F S GLO=$Q(@GLO) Q:GLO'[GLB D MES^XPDUTL(" "_GLO_" = "_$G(@GLO))
D MES^XPDUTL(" ")
;
EMAILX ;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPS15PST 2554 printed Nov 22, 2024@17:00:33 Page 2
BPS15PST ;ALB/ESG - Post-install for BPS*1.0*15 ;02/13/2013
+1 ;;1.0;E CLAIMS MGMT ENGINE;**15**;JUN 2004;Build 13
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 ; ePharmacy Operating Rules - BPS*1*15 patch post install
+5 ;
+6 QUIT
+7 ;
POST ; Entry Point for post-install
+1 DO BMES^XPDUTL(" Starting post-install of BPS*1*15")
+2 NEW XPDIDTOT
+3 SET XPDIDTOT=1
+4 ; 1. remove the IB DRUGS NON COVERED REPORT from a BPS parent menu
DO OPT(1)
+5 ;
+6 ;If HL7 listener port number detected is not 5000 send notification e-mail message
+7 NEW PORT
SET PORT=$$EPPORT^BPSJUTL
if PORT'=5000
DO EMAIL(PORT)
+8 ;
+9 ;
EX ; exit point
+1 ;
+2 DO BMES^XPDUTL(" Finished post-install of BPS*1*15")
+3 QUIT
+4 ;
OPT(BPSXPD) ; remove the IB DRUGS NON COVERED REPORT from the BPS MENU MAINTENANCE parent menu
+1 NEW RES
+2 DO BMES^XPDUTL(" STEP "_BPSXPD_" of "_XPDIDTOT)
+3 DO MES^XPDUTL("-------------")
+4 DO MES^XPDUTL("Removing the 'Drugs non covered report' from an ECME parent menu ... ")
+5 ;
+6 SET RES=$$DELETE^XPDMENU("BPS MENU MAINTENANCE","IB DRUGS NON COVERED REPORT")
+7 IF RES
DO MES^XPDUTL(" Menu option successfully removed!")
GOTO OPTX
+8 ;
+9 DO MES^XPDUTL(" Menu option already removed.")
OPTX ;
+1 DO MES^XPDUTL(" Done.")
+2 DO UPDATE^XPDID(BPSXPD)
+3 QUIT
+4 ;
EMAIL(PORT) ; send email when patch is installed if port number detected is not 5000
+1 NEW SUBJ,MSG,XMTO,GLO,GLB,XMINSTR,SITE
+2 SET SITE=$$SITE^VASITE
+3 SET SUBJ="BPS*1*15 installed at Station# "_$PIECE(SITE,U,3)_" - "_$PIECE(SITE,U,2)
+4 SET SUBJ=$EXTRACT(SUBJ,1,65)
+5 SET MSG(2)=""
+6 SET MSG(3)=" Name: "_$PIECE(SITE,U,2)
+7 SET MSG(4)=" Station#: "_$PIECE(SITE,U,3)
+8 SET MSG(5)=" Domain: "_$GET(^XMB("NETNAME"))
+9 SET MSG(6)=" Date/Time: "_$$FMTE^XLFDT($$NOW^XLFDT,"5ZPM")
+10 SET MSG(7)=" By: "_$PIECE($GET(^VA(200,DUZ,0)),U,1)
+11 SET MSG(8)=""
+12 SET MSG(9)="Port number detected = "_PORT
+13 SET MSG(10)=""
+14 SET MSG(11)="Patch Version: "_$SELECT(+$GET(XPDA):$GET(^XPD(9.7,+$GET(XPDA),2)),1:"Unknown Install File ien")
+15 ;
+16 ;Copy mesage to EPOR team
+17 SET XMTO(DUZ)=""
+18 SET XMTO("peter.hartley@domain.ext")=""
+19 SET XMTO("eric.gustafson@domain.ext")=""
+20 SET XMTO("cynthia.fawcett@domain.ext")=""
+21 SET XMTO("bill.losey@domain.ext")=""
+22 SET XMINSTR("FROM")="BPS.1.15.POST"
+23 ;
+24 DO SENDMSG^XMXAPI(DUZ,SUBJ,"MSG",.XMTO,.XMINSTR)
+25 ; no email problems
IF '$DATA(^TMP("XMERR",$JOB))
GOTO EMAILX
+26 ;
+27 DO MES^XPDUTL("MailMan reported a problem trying to send the notification message.")
+28 DO MES^XPDUTL(" ")
+29 SET (GLO,GLB)="^TMP(""XMERR"","_$JOB
+30 SET GLO=GLO_")"
+31 FOR
SET GLO=$QUERY(@GLO)
if GLO'[GLB
QUIT
DO MES^XPDUTL(" "_GLO_" = "_$GET(@GLO))
+32 DO MES^XPDUTL(" ")
+33 ;
EMAILX ;
+1 QUIT
