Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
388 bytes
|
Rev | Line | |
---|
[628] | 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.