source: FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGP53PST.m@ 1641

Last change on this file since 1641 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 734 bytes
Line 
1RGP53PST ;BIR/PTD-RG*1*53 PATCH POST-INIT ROUTINE ;12/19/07
2 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**53**;30 Apr 99;Build 2
3 ;
4EN ;Delete the Primary View Reject Exceptions Query Global
5 I $D(^XTMP("RGPVREJ")) D
6 .K ^XTMP("RGPVREJ")
7 .D BMES^XPDUTL(" Primary View Reject exception query global ^XTMP('RGPVREJ') deleted.")
8 .D MES^XPDUTL(" This data will be placed in ^XTMP('RGPVREJ_ICN') in the future.")
9 ;
10 ;Delete the Primary View Display Query Global
11 I $D(^XTMP("RGPVMPI")) D
12 .K ^XTMP("RGPVMPI")
13 .D BMES^XPDUTL(" Primary View Display query global ^XTMP('RGPVMPI') deleted.")
14 .D MES^XPDUTL(" This data will be placed in ^XTMP('RGPVMPI_ICN') in the future.")
15 D BMES^XPDUTL(" Post-install routine completed successfully.")
16 Q
17 ;
Note: See TracBrowser for help on using the repository browser.