IVM2034P.m

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 ---IVM2034P   1844     printed  Apr 09, 2024@21:04:16                                                                                                                                                                                                    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