Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PSOFIXVR

PSOFIXVR.m

Go to the documentation of this file.

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  Apr 09, 2024@21:29:41                                                                                                                                                                                                     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