RGP53PST ;BIR/PTD-RG*1*53 PATCH POST-INIT ROUTINE ;12/19/07
 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**53**;30 Apr 99;Build 2
 ;
EN ;Delete the Primary View Reject Exceptions Query Global
 I $D(^XTMP("RGPVREJ")) D
 .K ^XTMP("RGPVREJ")
 .D BMES^XPDUTL(" Primary View Reject exception query global ^XTMP('RGPVREJ') deleted.")
 .D MES^XPDUTL(" This data will be placed in ^XTMP('RGPVREJ_ICN') in the future.")
 ;
 ;Delete the Primary View Display Query Global
 I $D(^XTMP("RGPVMPI")) D
 .K ^XTMP("RGPVMPI")
 .D BMES^XPDUTL(" Primary View Display query global ^XTMP('RGPVMPI') deleted.")
 .D MES^XPDUTL(" This data will be placed in ^XTMP('RGPVMPI_ICN') in the future.")
 D BMES^XPDUTL(" Post-install routine completed successfully.")
 Q
 ;