- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOFIXSU 278 printed Feb 18, 2025@23:55:53 Page 2
- PSOFIXSU ;BHAM ISC/RTR - DELETE BAD P NODES IN SUSPENSE FILE
- +1 ;;6.0;OUTPATIENT PHARMACY;**51**;APRIL 1993
- +2 WRITE !!,"Checking suspense file "
- +3 FOR ZZ=0:0
- SET ZZ=$ORDER(^PS(52.5,ZZ))
- if 'ZZ
- QUIT
- IF $DATA(^PS(52.5,ZZ,"P"))
- IF '$DATA(^PS(52.5,ZZ,0))
- KILL ^PS(52.5,ZZ,"P")
- WRITE "."
- +4 WRITE !!,"Finished!",!
- KILL ZZ
- QUIT
