PSOFIXVR ;BHAM ISC/RTR - CLEAN UP RX VERIFY FILE
;;6.0;OUTPATIENT PHARMACY;**34**;SEPTEMBER 1993
K ^PS(52.4,"B") D WAIT^DICD
W !,"Checking RX Verify File."
F A=0:0 S A=$O(^PS(52.4,A)) Q:'A S $P(^PS(52.4,A,0),"^")=A,$P(^(0),"^",4)="",^PS(52.4,"B",A,A)="" W "."
W !!,"Finished",! K A Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOFIXVR 296 printed Dec 13, 2024@02:29:27 Page 2
PSOFIXVR ;BHAM ISC/RTR - CLEAN UP RX VERIFY FILE
+1 ;;6.0;OUTPATIENT PHARMACY;**34**;SEPTEMBER 1993
+2 KILL ^PS(52.4,"B")
DO WAIT^DICD
+3 WRITE !,"Checking RX Verify File."
+4 FOR A=0:0
SET A=$ORDER(^PS(52.4,A))
if 'A
QUIT
SET $PIECE(^PS(52.4,A,0),"^")=A
SET $PIECE(^(0),"^",4)=""
SET ^PS(52.4,"B",A,A)=""
WRITE "."
+5 WRITE !!,"Finished",!
KILL A
QUIT
