RMPR216P ;HDSO/DSK - RMPR*3.0*216 Post-Install Routine; May 02, 2024@17:00
;;3.0;PROSTHETICS;**216**;Feb 09, 1996;Build 20
;
; Reference to ^XUSEC in IA #10076
; Reference to BMES^XPDUTL in IA #10141
; Reference to ^XPDMENU in IA #1157
;
Q
;
EN ;
;Broadcast which options were placed out of order.
N RMPROPT
F RMPROPT="RMPR PURGE MENU","RMPR PURGE CLOSED","RMPR PURGE CANCELLED","RMPR PURGE SUS" D
. D BMES^XPDUTL("Option "_RMPROPT_" placed ""Out of Order"".")
;Delete RMPR PURGE MENU from RMPR UTILITIES
;so that the display order will reset after install.
D DELETE^XPDMENU("RMPR UTILITIES","RMPR PURGE MENU")
;Add purge menu back to the utilities menu so will display last
D ADD^XPDMENU("RMPR UTILITIES","RMPR PURGE MENU","","")
D MAIL
D BMES^XPDUTL("A MailMan message has been sent to the installer as well as")
D BMES^XPDUTL("holders of the RMPRMANAGER security key.")
Q
;
MAIL ;
N RMPRMIN,RMPRMY,RMPRX,RMPRMSUB,RMPRMTEXT
S RMPRMIN("FROM")="RMPR*3.0*216 Post-Install"
S RMPRMY(DUZ)=""
S RMPRX=""
F S RMPRX=$O(^XUSEC("RMPRMANAGER",RMPRX)) Q:RMPRX="" D
. S RMPRMY(RMPRX)=""
S RMPRMSUB="RMPR*3.0*216 Post-Install"
S ^XTMP("RMPR*3.0*216 POST INSTALL",0)=$$FMADD^XLFDT(DT,60)_"^"_DT_"^RMPR*3.0*216 POST INSTALL"
S ^XTMP("RMPR*3.0*216 POST INSTALL",1)="RMPR*3.0*216 is being released to adhere to a request received from the"
S ^XTMP("RMPR*3.0*216 POST INSTALL",2)="National Data Management Council (NDMC) to remediate issues related to"
S ^XTMP("RMPR*3.0*216 POST INSTALL",3)="Prosthetics purge options. There have been recent situations where sites"
S ^XTMP("RMPR*3.0*216 POST INSTALL",4)="used an option to purge data, and substantial efforts from Patient Care"
S ^XTMP("RMPR*3.0*216 POST INSTALL",5)="Services and HDSO Sustainment were required to restore the data. The VHA"
S ^XTMP("RMPR*3.0*216 POST INSTALL",6)="Business office for Prosthetics requested that the following menu options"
S ^XTMP("RMPR*3.0*216 POST INSTALL",7)="be placed ""OUT OF ORDER"":"
S ^XTMP("RMPR*3.0*216 POST INSTALL",8)=" "
S ^XTMP("RMPR*3.0*216 POST INSTALL",9)=" PGE Purge Obsolete Data"
S ^XTMP("RMPR*3.0*216 POST INSTALL",10)=" **> Out of order: (per patch RMPR*3.0*216)"
S ^XTMP("RMPR*3.0*216 POST INSTALL",11)=" PCL Purge Closed Purchasing Transactions"
S ^XTMP("RMPR*3.0*216 POST INSTALL",12)=" **> Out of order: (per patch RMPR*3.0*216)"
S ^XTMP("RMPR*3.0*216 POST INSTALL",13)=" PCX Purge Cancelled Transactions"
S ^XTMP("RMPR*3.0*216 POST INSTALL",14)=" **> Out of order: (per patch RMPR*3.0*216)"
S ^XTMP("RMPR*3.0*216 POST INSTALL",15)=" PSU Purge Suspense Records"
S ^XTMP("RMPR*3.0*216 POST INSTALL",16)=" **> Out of order: (per patch RMPR*3.0*216)"
S ^XTMP("RMPR*3.0*216 POST INSTALL",17)=" "
S ^XTMP("RMPR*3.0*216 POST INSTALL",18)="The Purge Obsolete Data [RMPR PURGE MENU] Main Menu will be placed ""OUT"
S ^XTMP("RMPR*3.0*216 POST INSTALL",19)="OF ORDER"" and the Purge Aged Purchasing Transactions [RMPR PURGE AGED]"
S ^XTMP("RMPR*3.0*216 POST INSTALL",20)="option will remain as a standalone option."
S RMPRMTEXT="^XTMP(""RMPR*3.0*216 POST INSTALL"")"
D SENDMSG^XMXAPI(DUZ,RMPRMSUB,RMPRMTEXT,.RMPRMY,.RMPRMIN,"","")
Q
;
BACKOUT ;place options back "in order"
N DIR,DTOUT,DUOUT,Y,RMPROPT
S DIR("A")="Do you wish to back out the RMPR*3.0*216 patch",DIR("B")="NO",DIR(0)="Y"
D ^DIR
I 'Y!($D(DTOUT))!($D(DUOUT)) Q
N DIR
S DIR("A",1)=" "
S DIR("A",2)="After completion, a MailMan message will be sent to holders of"
S DIR("A",3)="of the RMPRMANAGER security key as well as yourself."
S DIR("A")="Press enter to continue",DIR(0)="E"
D ^DIR
I 'Y!($D(DTOUT))!($D(DUOUT)) D Q
. W !!,"Aborting backout process"
;Removing out of order messages.
F RMPROPT="RMPR PURGE MENU","RMPR PURGE CLOSED","RMPR PURGE CANCELLED","RMPR PURGE SUS" D
. D OUT^XPDMENU(RMPROPT,"")
. D BMES^XPDUTL("Option "_RMPROPT_" - out of order message removed.")
;Removing RMPR PURGE AGED from RMPR UTIILITIES menu.
D DELETE^XPDMENU("RMPR UTILITIES","RMPR PURGE AGED")
D BMES^XPDUTL("Option RMPR PURGE AGED removed from RMPR UTILITIES menu.")
;Adding RMPR PURGE AGED to the RMPR PURGE MENU.
D ADD^XPDMENU("RMPR PURGE MENU","RMPR PURGE AGED","PAG","")
D BMES^XPDUTL("Option RMPR PURGE AGED added back to the RMPR PURGE MENU.")
;Restore display order for RMPR PURGE MENU under RMPR UTILITIES.
D ADD^XPDMENU("RMPR UTILITIES","RMPR PURGE MENU","PGE",8)
D BMES^XPDUTL("Option RMPR PURGE MENU placed back into original position")
D BMES^XPDUTL("within the RMPR UTILITIES menu.")
D BMES^XPDUTL("RMPR*3.0*216 backout completed.")
D BACKMAIL
Q
;
BACKMAIL ;
N RMPRMIN,RMPRMY,RMPRX,RMPRMSUB,RMPRMTEXT
S RMPRMIN("FROM")="RMPR*3.0*216 Patch Backout"
S RMPRMY(DUZ)=""
S RMPRX=""
F S RMPRX=$O(^XUSEC("RMPRMANAGER",RMPRX)) Q:RMPRX="" D
. S RMPRMY(RMPRX)=""
S RMPRMSUB="RMPR*3.0*216 Patch Back out"
S ^XTMP("RMPR*3.0*216 BACKOUT",0)=$$FMADD^XLFDT(DT,60)_"^"_DT_"^RMPR*3.0*216 Back out"
S ^XTMP("RMPR*3.0*216 BACKOUT",1)="The out of order message has been removed from the following options:"
S ^XTMP("RMPR*3.0*216 BACKOUT",2)=" "
S ^XTMP("RMPR*3.0*216 BACKOUT",3)=" PGE Purge Obsolete Data"
S ^XTMP("RMPR*3.0*216 BACKOUT",4)=" PCL Purge Closed Purchasing Transactions"
S ^XTMP("RMPR*3.0*216 BACKOUT",5)=" PCX Purge Cancelled Transactions"
S ^XTMP("RMPR*3.0*216 BACKOUT",6)=" PSU Purge Suspense Records"
S ^XTMP("RMPR*3.0*216 BACKOUT",7)=" "
S ^XTMP("RMPR*3.0*216 BACKOUT",8)="The ""PGE Purge Obsolete Data"" menu has been placed back into its"
S ^XTMP("RMPR*3.0*216 BACKOUT",9)="original position within the RMPR UTILITIES menu."
S ^XTMP("RMPR*3.0*216 BACKOUT",10)=" "
S ^XTMP("RMPR*3.0*216 BACKOUT",11)="Option ""PAG Purge Aged Purchasing Transactions"" has been placed back"
S ^XTMP("RMPR*3.0*216 BACKOUT",12)="into its original position within the ""PGE Purge Obsolete Data"" menu."
S RMPRMTEXT="^XTMP(""RMPR*3.0*216 BACKOUT"")"
D SENDMSG^XMXAPI(DUZ,RMPRMSUB,RMPRMTEXT,.RMPRMY,.RMPRMIN,"","")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPR216P 6110 printed Nov 22, 2024@17:41:56 Page 2
RMPR216P ;HDSO/DSK - RMPR*3.0*216 Post-Install Routine; May 02, 2024@17:00
+1 ;;3.0;PROSTHETICS;**216**;Feb 09, 1996;Build 20
+2 ;
+3 ; Reference to ^XUSEC in IA #10076
+4 ; Reference to BMES^XPDUTL in IA #10141
+5 ; Reference to ^XPDMENU in IA #1157
+6 ;
+7 QUIT
+8 ;
EN ;
+1 ;Broadcast which options were placed out of order.
+2 NEW RMPROPT
+3 FOR RMPROPT="RMPR PURGE MENU","RMPR PURGE CLOSED","RMPR PURGE CANCELLED","RMPR PURGE SUS"
Begin DoDot:1
+4 DO BMES^XPDUTL("Option "_RMPROPT_" placed ""Out of Order"".")
End DoDot:1
+5 ;Delete RMPR PURGE MENU from RMPR UTILITIES
+6 ;so that the display order will reset after install.
+7 DO DELETE^XPDMENU("RMPR UTILITIES","RMPR PURGE MENU")
+8 ;Add purge menu back to the utilities menu so will display last
+9 DO ADD^XPDMENU("RMPR UTILITIES","RMPR PURGE MENU","","")
+10 DO MAIL
+11 DO BMES^XPDUTL("A MailMan message has been sent to the installer as well as")
+12 DO BMES^XPDUTL("holders of the RMPRMANAGER security key.")
+13 QUIT
+14 ;
MAIL ;
+1 NEW RMPRMIN,RMPRMY,RMPRX,RMPRMSUB,RMPRMTEXT
+2 SET RMPRMIN("FROM")="RMPR*3.0*216 Post-Install"
+3 SET RMPRMY(DUZ)=""
+4 SET RMPRX=""
+5 FOR
SET RMPRX=$ORDER(^XUSEC("RMPRMANAGER",RMPRX))
if RMPRX=""
QUIT
Begin DoDot:1
+6 SET RMPRMY(RMPRX)=""
End DoDot:1
+7 SET RMPRMSUB="RMPR*3.0*216 Post-Install"
+8 SET ^XTMP("RMPR*3.0*216 POST INSTALL",0)=$$FMADD^XLFDT(DT,60)_"^"_DT_"^RMPR*3.0*216 POST INSTALL"
+9 SET ^XTMP("RMPR*3.0*216 POST INSTALL",1)="RMPR*3.0*216 is being released to adhere to a request received from the"
+10 SET ^XTMP("RMPR*3.0*216 POST INSTALL",2)="National Data Management Council (NDMC) to remediate issues related to"
+11 SET ^XTMP("RMPR*3.0*216 POST INSTALL",3)="Prosthetics purge options. There have been recent situations where sites"
+12 SET ^XTMP("RMPR*3.0*216 POST INSTALL",4)="used an option to purge data, and substantial efforts from Patient Care"
+13 SET ^XTMP("RMPR*3.0*216 POST INSTALL",5)="Services and HDSO Sustainment were required to restore the data. The VHA"
+14 SET ^XTMP("RMPR*3.0*216 POST INSTALL",6)="Business office for Prosthetics requested that the following menu options"
+15 SET ^XTMP("RMPR*3.0*216 POST INSTALL",7)="be placed ""OUT OF ORDER"":"
+16 SET ^XTMP("RMPR*3.0*216 POST INSTALL",8)=" "
+17 SET ^XTMP("RMPR*3.0*216 POST INSTALL",9)=" PGE Purge Obsolete Data"
+18 SET ^XTMP("RMPR*3.0*216 POST INSTALL",10)=" **> Out of order: (per patch RMPR*3.0*216)"
+19 SET ^XTMP("RMPR*3.0*216 POST INSTALL",11)=" PCL Purge Closed Purchasing Transactions"
+20 SET ^XTMP("RMPR*3.0*216 POST INSTALL",12)=" **> Out of order: (per patch RMPR*3.0*216)"
+21 SET ^XTMP("RMPR*3.0*216 POST INSTALL",13)=" PCX Purge Cancelled Transactions"
+22 SET ^XTMP("RMPR*3.0*216 POST INSTALL",14)=" **> Out of order: (per patch RMPR*3.0*216)"
+23 SET ^XTMP("RMPR*3.0*216 POST INSTALL",15)=" PSU Purge Suspense Records"
+24 SET ^XTMP("RMPR*3.0*216 POST INSTALL",16)=" **> Out of order: (per patch RMPR*3.0*216)"
+25 SET ^XTMP("RMPR*3.0*216 POST INSTALL",17)=" "
+26 SET ^XTMP("RMPR*3.0*216 POST INSTALL",18)="The Purge Obsolete Data [RMPR PURGE MENU] Main Menu will be placed ""OUT"
+27 SET ^XTMP("RMPR*3.0*216 POST INSTALL",19)="OF ORDER"" and the Purge Aged Purchasing Transactions [RMPR PURGE AGED]"
+28 SET ^XTMP("RMPR*3.0*216 POST INSTALL",20)="option will remain as a standalone option."
+29 SET RMPRMTEXT="^XTMP(""RMPR*3.0*216 POST INSTALL"")"
+30 DO SENDMSG^XMXAPI(DUZ,RMPRMSUB,RMPRMTEXT,.RMPRMY,.RMPRMIN,"","")
+31 QUIT
+32 ;
BACKOUT ;place options back "in order"
+1 NEW DIR,DTOUT,DUOUT,Y,RMPROPT
+2 SET DIR("A")="Do you wish to back out the RMPR*3.0*216 patch"
SET DIR("B")="NO"
SET DIR(0)="Y"
+3 DO ^DIR
+4 IF 'Y!($DATA(DTOUT))!($DATA(DUOUT))
QUIT
+5 NEW DIR
+6 SET DIR("A",1)=" "
+7 SET DIR("A",2)="After completion, a MailMan message will be sent to holders of"
+8 SET DIR("A",3)="of the RMPRMANAGER security key as well as yourself."
+9 SET DIR("A")="Press enter to continue"
SET DIR(0)="E"
+10 DO ^DIR
+11 IF 'Y!($DATA(DTOUT))!($DATA(DUOUT))
Begin DoDot:1
+12 WRITE !!,"Aborting backout process"
End DoDot:1
QUIT
+13 ;Removing out of order messages.
+14 FOR RMPROPT="RMPR PURGE MENU","RMPR PURGE CLOSED","RMPR PURGE CANCELLED","RMPR PURGE SUS"
Begin DoDot:1
+15 DO OUT^XPDMENU(RMPROPT,"")
+16 DO BMES^XPDUTL("Option "_RMPROPT_" - out of order message removed.")
End DoDot:1
+17 ;Removing RMPR PURGE AGED from RMPR UTIILITIES menu.
+18 DO DELETE^XPDMENU("RMPR UTILITIES","RMPR PURGE AGED")
+19 DO BMES^XPDUTL("Option RMPR PURGE AGED removed from RMPR UTILITIES menu.")
+20 ;Adding RMPR PURGE AGED to the RMPR PURGE MENU.
+21 DO ADD^XPDMENU("RMPR PURGE MENU","RMPR PURGE AGED","PAG","")
+22 DO BMES^XPDUTL("Option RMPR PURGE AGED added back to the RMPR PURGE MENU.")
+23 ;Restore display order for RMPR PURGE MENU under RMPR UTILITIES.
+24 DO ADD^XPDMENU("RMPR UTILITIES","RMPR PURGE MENU","PGE",8)
+25 DO BMES^XPDUTL("Option RMPR PURGE MENU placed back into original position")
+26 DO BMES^XPDUTL("within the RMPR UTILITIES menu.")
+27 DO BMES^XPDUTL("RMPR*3.0*216 backout completed.")
+28 DO BACKMAIL
+29 QUIT
+30 ;
BACKMAIL ;
+1 NEW RMPRMIN,RMPRMY,RMPRX,RMPRMSUB,RMPRMTEXT
+2 SET RMPRMIN("FROM")="RMPR*3.0*216 Patch Backout"
+3 SET RMPRMY(DUZ)=""
+4 SET RMPRX=""
+5 FOR
SET RMPRX=$ORDER(^XUSEC("RMPRMANAGER",RMPRX))
if RMPRX=""
QUIT
Begin DoDot:1
+6 SET RMPRMY(RMPRX)=""
End DoDot:1
+7 SET RMPRMSUB="RMPR*3.0*216 Patch Back out"
+8 SET ^XTMP("RMPR*3.0*216 BACKOUT",0)=$$FMADD^XLFDT(DT,60)_"^"_DT_"^RMPR*3.0*216 Back out"
+9 SET ^XTMP("RMPR*3.0*216 BACKOUT",1)="The out of order message has been removed from the following options:"
+10 SET ^XTMP("RMPR*3.0*216 BACKOUT",2)=" "
+11 SET ^XTMP("RMPR*3.0*216 BACKOUT",3)=" PGE Purge Obsolete Data"
+12 SET ^XTMP("RMPR*3.0*216 BACKOUT",4)=" PCL Purge Closed Purchasing Transactions"
+13 SET ^XTMP("RMPR*3.0*216 BACKOUT",5)=" PCX Purge Cancelled Transactions"
+14 SET ^XTMP("RMPR*3.0*216 BACKOUT",6)=" PSU Purge Suspense Records"
+15 SET ^XTMP("RMPR*3.0*216 BACKOUT",7)=" "
+16 SET ^XTMP("RMPR*3.0*216 BACKOUT",8)="The ""PGE Purge Obsolete Data"" menu has been placed back into its"
+17 SET ^XTMP("RMPR*3.0*216 BACKOUT",9)="original position within the RMPR UTILITIES menu."
+18 SET ^XTMP("RMPR*3.0*216 BACKOUT",10)=" "
+19 SET ^XTMP("RMPR*3.0*216 BACKOUT",11)="Option ""PAG Purge Aged Purchasing Transactions"" has been placed back"
+20 SET ^XTMP("RMPR*3.0*216 BACKOUT",12)="into its original position within the ""PGE Purge Obsolete Data"" menu."
+21 SET RMPRMTEXT="^XTMP(""RMPR*3.0*216 BACKOUT"")"
+22 DO SENDMSG^XMXAPI(DUZ,RMPRMSUB,RMPRMTEXT,.RMPRMY,.RMPRMIN,"","")
+23 QUIT
