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:
273 bytes
|
Rev | Line | |
---|
[628] | 1 | PSOFIXSU ;BHAM ISC/RTR - DELETE BAD P NODES IN SUSPENSE FILE
|
---|
| 2 | ;;6.0;OUTPATIENT PHARMACY;**51**;APRIL 1993
|
---|
| 3 | W !!,"Checking suspense file "
|
---|
| 4 | F ZZ=0:0 S ZZ=$O(^PS(52.5,ZZ)) Q:'ZZ I $D(^PS(52.5,ZZ,"P")),'$D(^PS(52.5,ZZ,0)) K ^PS(52.5,ZZ,"P") W "."
|
---|
| 5 | W !!,"Finished!",! K ZZ Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.