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 Dec 13, 2024@02:29:26 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
