IVM2034P ;HEC/KSD - Post-Install Driver for IVM*2*34; 12/7/00 8:48am ; 5/13/02 8:26am
;;2.0;INCOME VERIFICATION MATCH;**34**;12.07.2000
;
EN ; Entry Point used as a driver for post-installation updates
; (assumes: TCPDATA array - install question responses)
;
S (TCPDATA(1),TCPDATA(2),TCPDATA(3))="" ;install questions no longer used
D NOTIFY
Q
;
NOTIFY ; Generates a notification message that the facility has
; installed the patch in a production account.
;
N DIFROM,IVMSITE,IVMNOW,IVMTEXT,SERVLINE,XMTEXT,XMSUB,XMDUZ,XMY,Y,%,IVMPORT,IVMIP
;
; Quit if not VA production primary domain
Q:$G(^XMB("NETNAME"))'[".DOMAIN.EXT"
X ^%ZOSF("UCI") S %=^%ZOSF("PROD")
S:%'["," Y=$P(Y,",")
Q:Y'=%
;
NOTIFY2 ;
;
D BMES^XPDUTL(">>> Sending a 'completed installation' notification to the HEC...")
;
S IVMSITE=$$SITE^VASITE ; get facility name/station#
S IVMNOW=$$NOW^XLFDT ; current date/time
;
;S X="QDQMGR." ;FOR TESTING ONLY
S X="" ; *** USE THIS FOR PRODUCTION ***
;
S XMSUB="Patch IVM*2*34 Installed "_"("_$P(IVMSITE,"^",3)_")" ;subj
S XMDUZ="REGISTRATION PACKAGE" ;sender
S XMY(DUZ)="",XMY(.5)="" ;local recipients
S XMY("G.IRM SOFTWARE SECTION@"_X_"IVM.DOMAIN.EXT")="" ;remote recipient
S XMY("S.AYC PATCH SERVER@"_X_"IVM.DOMAIN.EXT")="" ;remote server option
;
; Notification MSG text
S XMTEXT="IVMTEXT("
S SERVLINE="PATCHID:IVM*2*34|"_$P(IVMSITE,"^",3)_"|"_IVMNOW
S SERVLINE=SERVLINE_"|"_TCPDATA(2)_"|"_TCPDATA(3)
S IVMTEXT(1)=SERVLINE
S IVMTEXT(2)=""
S IVMTEXT(3)=""
S IVMTEXT(4)=""
S IVMTEXT(5)=" Facility Name :"_$P(IVMSITE,"^",2)
S IVMTEXT(6)=" Station Number :"_$P(IVMSITE,"^",3)
S IVMTEXT(7)=" Installed IVM*2*34 patch on: "_$$FMTE^XLFDT(IVMNOW)
;
D ^XMD
;
D BMES^XPDUTL(" Notification message sent.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVM2034P 1844 printed Dec 13, 2024@02:00:29 Page 2
IVM2034P ;HEC/KSD - Post-Install Driver for IVM*2*34; 12/7/00 8:48am ; 5/13/02 8:26am
+1 ;;2.0;INCOME VERIFICATION MATCH;**34**;12.07.2000
+2 ;
EN ; Entry Point used as a driver for post-installation updates
+1 ; (assumes: TCPDATA array - install question responses)
+2 ;
+3 ;install questions no longer used
SET (TCPDATA(1),TCPDATA(2),TCPDATA(3))=""
+4 DO NOTIFY
+5 QUIT
+6 ;
NOTIFY ; Generates a notification message that the facility has
+1 ; installed the patch in a production account.
+2 ;
+3 NEW DIFROM,IVMSITE,IVMNOW,IVMTEXT,SERVLINE,XMTEXT,XMSUB,XMDUZ,XMY,Y,%,IVMPORT,IVMIP
+4 ;
+5 ; Quit if not VA production primary domain
+6 if $GET(^XMB("NETNAME"))'[".DOMAIN.EXT"
QUIT
+7 XECUTE ^%ZOSF("UCI")
SET %=^%ZOSF("PROD")
+8 if %'[","
SET Y=$PIECE(Y,",")
+9 if Y'=%
QUIT
+10 ;
NOTIFY2 ;
+1 ;
+2 DO BMES^XPDUTL(">>> Sending a 'completed installation' notification to the HEC...")
+3 ;
+4 ; get facility name/station#
SET IVMSITE=$$SITE^VASITE
+5 ; current date/time
SET IVMNOW=$$NOW^XLFDT
+6 ;
+7 ;S X="QDQMGR." ;FOR TESTING ONLY
+8 ; *** USE THIS FOR PRODUCTION ***
SET X=""
+9 ;
+10 ;subj
SET XMSUB="Patch IVM*2*34 Installed "_"("_$PIECE(IVMSITE,"^",3)_")"
+11 ;sender
SET XMDUZ="REGISTRATION PACKAGE"
+12 ;local recipients
SET XMY(DUZ)=""
SET XMY(.5)=""
+13 ;remote recipient
SET XMY("G.IRM SOFTWARE SECTION@"_X_"IVM.DOMAIN.EXT")=""
+14 ;remote server option
SET XMY("S.AYC PATCH SERVER@"_X_"IVM.DOMAIN.EXT")=""
+15 ;
+16 ; Notification MSG text
+17 SET XMTEXT="IVMTEXT("
+18 SET SERVLINE="PATCHID:IVM*2*34|"_$PIECE(IVMSITE,"^",3)_"|"_IVMNOW
+19 SET SERVLINE=SERVLINE_"|"_TCPDATA(2)_"|"_TCPDATA(3)
+20 SET IVMTEXT(1)=SERVLINE
+21 SET IVMTEXT(2)=""
+22 SET IVMTEXT(3)=""
+23 SET IVMTEXT(4)=""
+24 SET IVMTEXT(5)=" Facility Name :"_$PIECE(IVMSITE,"^",2)
+25 SET IVMTEXT(6)=" Station Number :"_$PIECE(IVMSITE,"^",3)
+26 SET IVMTEXT(7)=" Installed IVM*2*34 patch on: "_$$FMTE^XLFDT(IVMNOW)
+27 ;
+28 DO ^XMD
+29 ;
+30 DO BMES^XPDUTL(" Notification message sent.")
+31 QUIT
