IVM29PT ;ALB/KCL - POST-INSTALL FOR PATCH IVM*2*9 ; 15-DEC-1997
;;2.0;INCOME VERIFICATION MATCH;**9**; 21-OCT-94
;
;
EN ; Entry point for post-install
;
D NOTIFY ; send 'installation' notification msg
;
Q
;
;
NOTIFY ; --
; This function will generate a notification message that the facility has installed the patch in a production account.
;
N DIFROM,IVMSITE,IVMTEXT,XMTEXT,XMSUB,XMDUZ,XMY,Y
;
; if not in production account, do not send notification message (exit)
X ^%ZOSF("UCI") I Y'=^%ZOSF("PROD") Q
;
D BMES^XPDUTL(">>> Sending a 'completed installation' notification to the HEC...")
;
; get facility name/station number
S IVMSITE=$$SITE^VASITE
;
S XMSUB="Patch IVM*2*9 Installed "_"("_$P(IVMSITE,"^",3)_")" ; subject
S XMDUZ="IVM PACKAGE" ; sender
S XMY(DUZ)="",XMY(.5)="" ; local recipient
S XMY("G.ENROLLMENT EXTRACT@IVM.DOMAIN.EXT")="" ; remote recipient
;
; message text
S XMTEXT="IVMTEXT("
S IVMTEXT(1)=" Facility Name: "_$P(IVMSITE,"^",2)
S IVMTEXT(2)=" Station Number: "_$P(IVMSITE,"^",3)
S IVMTEXT(3)=" Installed By: "_$P($G(^VA(200,+$G(DUZ),0)),"^")
S IVMTEXT(4)=""
S IVMTEXT(5)=" Installed IVM*2*9 patch on: "_$$FMTE^XLFDT($$NOW^XLFDT)
;
D ^XMD
;
D BMES^XPDUTL("Notification message sent.")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVM29PT 1345 printed Dec 13, 2024@02:01:04 Page 2
IVM29PT ;ALB/KCL - POST-INSTALL FOR PATCH IVM*2*9 ; 15-DEC-1997
+1 ;;2.0;INCOME VERIFICATION MATCH;**9**; 21-OCT-94
+2 ;
+3 ;
EN ; Entry point for post-install
+1 ;
+2 ; send 'installation' notification msg
DO NOTIFY
+3 ;
+4 QUIT
+5 ;
+6 ;
NOTIFY ; --
+1 ; This function will generate a notification message that the facility has installed the patch in a production account.
+2 ;
+3 NEW DIFROM,IVMSITE,IVMTEXT,XMTEXT,XMSUB,XMDUZ,XMY,Y
+4 ;
+5 ; if not in production account, do not send notification message (exit)
+6 XECUTE ^%ZOSF("UCI")
IF Y'=^%ZOSF("PROD")
QUIT
+7 ;
+8 DO BMES^XPDUTL(">>> Sending a 'completed installation' notification to the HEC...")
+9 ;
+10 ; get facility name/station number
+11 SET IVMSITE=$$SITE^VASITE
+12 ;
+13 ; subject
SET XMSUB="Patch IVM*2*9 Installed "_"("_$PIECE(IVMSITE,"^",3)_")"
+14 ; sender
SET XMDUZ="IVM PACKAGE"
+15 ; local recipient
SET XMY(DUZ)=""
SET XMY(.5)=""
+16 ; remote recipient
SET XMY("G.ENROLLMENT EXTRACT@IVM.DOMAIN.EXT")=""
+17 ;
+18 ; message text
+19 SET XMTEXT="IVMTEXT("
+20 SET IVMTEXT(1)=" Facility Name: "_$PIECE(IVMSITE,"^",2)
+21 SET IVMTEXT(2)=" Station Number: "_$PIECE(IVMSITE,"^",3)
+22 SET IVMTEXT(3)=" Installed By: "_$PIECE($GET(^VA(200,+$GET(DUZ),0)),"^")
+23 SET IVMTEXT(4)=""
+24 SET IVMTEXT(5)=" Installed IVM*2*9 patch on: "_$$FMTE^XLFDT($$NOW^XLFDT)
+25 ;
+26 DO ^XMD
+27 ;
+28 DO BMES^XPDUTL("Notification message sent.")
+29 ;
+30 QUIT
