PSOFIXSU ;BHAM ISC/RTR - DELETE BAD P NODES IN SUSPENSE FILE
 ;;6.0;OUTPATIENT PHARMACY;**51**;APRIL 1993
 W !!,"Checking suspense file  "
 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 "."
 W !!,"Finished!",! K ZZ Q