RGP53PST.m

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 ---RGP53PST   751     printed  Apr 09, 2024@20:46:45                                                                                                                                                                                                     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      ;