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 | |
| Line | |
|---|---|
| 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.
