PSJ0030.m

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

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