PSJ0026.m

PSJ0026 ;BIR/RPS-UTILITY ROUTINE FOR PSJ*5.0*26 ;09 Mar 99 / 2:48 PM

 ;;5.0; INPATIENT MEDICATIONS ;**26**;16 DEC 97

 N PSJY

 S PSJY=""

 F PSJY=0:0 S PSJY=$O(^PS(53.5,"AC",PSJY)) Q:PSJY=""  D

 .I '$G(^PS(53.5,+PSJY,0)) D

 ..K ^PS(53.5,"AC",+PSJY)

 Q

PSJ0026   ;BIR/RPS-UTILITY ROUTINE FOR PSJ*5.0*26 ;09 Mar 99 / 2:48 PM

 +1       ;;5.0; INPATIENT MEDICATIONS ;**26**;16 DEC 97

 +2        NEW PSJY

 +3        SET PSJY=""

 +4        FOR PSJY=0:0

               SET PSJY=$ORDER(^PS(53.5,"AC",PSJY))

               IF PSJY=""

                   QUIT 

               Begin DoDot:1

 +5                IF '$GET(^PS(53.5,+PSJY,0))

                       Begin DoDot:2

 +6                        KILL ^PS(53.5,"AC",+PSJY)

                       End DoDot:2

               End DoDot:1

 +7        QUIT