PSUCP3 ;BIR/REG - PBM UTILITY TO PURGE ^XTMP and ^XTMP ;25 AUG 1998 
 ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
EN ;
 N PSUI,PSUPDT,PSUCDT,PSUI1,PSUI2
 D NOW^%DTC
 S PSUCDT=X
 S PSUI="PSU"
 F  S PSUI=$O(^XTMP(PSUI)) Q:$E(PSUI,1,3)'="PSU"  D
 .K ^XTMP(PSUI) Q
 .S PSUPDT=$P($G(^XTMP(PSUI,0)),"^",1)
 .I PSUPDT="" K ^XTMP(PSUI) Q
 .I PSUPDT<PSUCDT K ^XTMP(PSUI) Q
 ;
 Q   ;ALL PURGED