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