source:
WorldVistAEHR/trunk/r/PHARMACY_BENEFITS_MANAGEMENT-PSU/PSUCP3.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 388 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | PSUCP3 ;BIR/REG - PBM UTILITY TO PURGE ^XTMP and ^XTMP ;25 AUG 1998 |
2 | ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005 | |
3 | EN ; | |
4 | N PSUI,PSUPDT,PSUCDT,PSUI1,PSUI2 | |
5 | D NOW^%DTC | |
6 | S PSUCDT=X | |
7 | S PSUI="PSU" | |
8 | F S PSUI=$O(^XTMP(PSUI)) Q:$E(PSUI,1,3)'="PSU" D | |
9 | .K ^XTMP(PSUI) Q | |
10 | .S PSUPDT=$P($G(^XTMP(PSUI,0)),"^",1) | |
11 | .I PSUPDT="" K ^XTMP(PSUI) Q | |
12 | .I PSUPDT<PSUCDT K ^XTMP(PSUI) Q | |
13 | ; | |
14 | Q ;ALL PURGED |
Note:
See TracBrowser
for help on using the repository browser.