XT73P113 ;OAK-OIFO/TKW KIDs Post-Init for XT*7.3*113 ;10/15/08 16:12
;;7.3;TOOLKIT;**113**;Apr 25, 1995;Build 5
;;Per VHA Directive 2004-038, this routine should not be modified.
;;
;;KIDs Post-Init
;
EN ; Delete menu item
D BMES^XPDUTL("Put 'Purge Duplicate Record File' option OUT OF ORDER")
N RSLT
S RSLT=$$LKOPT^XPDMENU("XDR PURGE")
I RSLT'>0 D Q
. D BMES^XPDUTL("Option XDR PURGE (Purge Duplicate Record File) is not on your system.")
. Q
D OUT^XPDMENU("XDR PURGE","Inactivated with patch XT*7.3*113")
D BMES^XPDUTL("Delete 'Purge Duplicate Record File' OPTION from the 'Manager Utilities' menu.")
S RSLT=$$DELETE^XPDMENU("XDR MANAGER UTILITIES","XDR PURGE")
Q:RSLT=1
D MES^XPDUTL(" *** Deletion FAILED!! ***")
D MES^XPDUTL(" Use the 'Menu Management' option to delete the 'XPD PURGE' menu item")
D MES^XPDUTL(" from the 'XDR MANAGER UTILITIES' Menu Option.")
Q
;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXT73P113 922 printed Dec 13, 2024@02:40:31 Page 2
XT73P113 ;OAK-OIFO/TKW KIDs Post-Init for XT*7.3*113 ;10/15/08 16:12
+1 ;;7.3;TOOLKIT;**113**;Apr 25, 1995;Build 5
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;;
+4 ;;KIDs Post-Init
+5 ;
EN ; Delete menu item
+1 DO BMES^XPDUTL("Put 'Purge Duplicate Record File' option OUT OF ORDER")
+2 NEW RSLT
+3 SET RSLT=$$LKOPT^XPDMENU("XDR PURGE")
+4 IF RSLT'>0
Begin DoDot:1
+5 DO BMES^XPDUTL("Option XDR PURGE (Purge Duplicate Record File) is not on your system.")
+6 QUIT
End DoDot:1
QUIT
+7 DO OUT^XPDMENU("XDR PURGE","Inactivated with patch XT*7.3*113")
+8 DO BMES^XPDUTL("Delete 'Purge Duplicate Record File' OPTION from the 'Manager Utilities' menu.")
+9 SET RSLT=$$DELETE^XPDMENU("XDR MANAGER UTILITIES","XDR PURGE")
+10 if RSLT=1
QUIT
+11 DO MES^XPDUTL(" *** Deletion FAILED!! ***")
+12 DO MES^XPDUTL(" Use the 'Menu Management' option to delete the 'XPD PURGE' menu item")
+13 DO MES^XPDUTL(" from the 'XDR MANAGER UTILITIES' Menu Option.")
+14 QUIT
+15 ;
+16 ;
