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