- 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 Feb 18, 2025@23:55:54 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