IVM29PT.m

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 ---IVM29PT   1345     printed  Apr 09, 2024@21:02:35                                                                                                                                                                                                     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