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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJ0026 258 printed Sep 23, 2025@19:41:28 Page 2
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
