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

PSJ0030.m

Go to the documentation of this file.

PSJ0030 ;BIR/RSB-UTILITY ROUTINE FOR PSJ*5.0*30 ;19 Feb 99 / 12:53 PM

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

 K ^DD(57.5,0,"ID",30),^DD(57.5,0,"ID","ATC DEVICE") Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJ0030   180     printed  Sep 23, 2025@19:41:29                                                                                                                                                                                                      Page 2

PSJ0030   ;BIR/RSB-UTILITY ROUTINE FOR PSJ*5.0*30 ;19 Feb 99 / 12:53 PM

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

 +2       ;

 +3        KILL ^DD(57.5,0,"ID",30),^DD(57.5,0,"ID","ATC DEVICE")

           QUIT