18 lines
734 B
Mathematica
18 lines
734 B
Mathematica
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
|
|
;
|