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

PSOFIXSU.m

Go to the documentation of this file.

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  Apr 09, 2024@21:27:43                                                                                                                                                                                                     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