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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGP53PST 751 printed Dec 13, 2024@01:42:37 Page 2
RGP53PST ;BIR/PTD-RG*1*53 PATCH POST-INIT ROUTINE ;12/19/07
+1 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**53**;30 Apr 99;Build 2
+2 ;
EN ;Delete the Primary View Reject Exceptions Query Global
+1 IF $DATA(^XTMP("RGPVREJ"))
Begin DoDot:1
+2 KILL ^XTMP("RGPVREJ")
+3 DO BMES^XPDUTL(" Primary View Reject exception query global ^XTMP('RGPVREJ') deleted.")
+4 DO MES^XPDUTL(" This data will be placed in ^XTMP('RGPVREJ_ICN') in the future.")
End DoDot:1
+5 ;
+6 ;Delete the Primary View Display Query Global
+7 IF $DATA(^XTMP("RGPVMPI"))
Begin DoDot:1
+8 KILL ^XTMP("RGPVMPI")
+9 DO BMES^XPDUTL(" Primary View Display query global ^XTMP('RGPVMPI') deleted.")
+10 DO MES^XPDUTL(" This data will be placed in ^XTMP('RGPVMPI_ICN') in the future.")
End DoDot:1
+11 DO BMES^XPDUTL(" Post-install routine completed successfully.")
+12 QUIT
+13 ;
