|
Last change
on this file since 1128 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
