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

PSJ0026.m

Go to the documentation of this file.

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)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJ0026   258     printed  Apr 09, 2024@21:04:20                                                                                                                                                                                                      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