Last change
on this file since 1765 was 628, checked in by George Lilly, 15 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.