source: FOIAVistA/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJ0030.m@ 851

Last change on this file since 851 was 628, checked in by George Lilly, 16 years ago

initial load of FOIAVistA 6/30/08 version
File size: 176 bytes
Line 
1PSJ0030 ;BIR/RSB-UTILITY ROUTINE FOR PSJ*5.0*30 ;19 Feb 99 / 12:53 PM
2 ;;5.0; INPATIENT MEDICATIONS ;**30**;16 DEC 97
3 ;
4 K ^DD(57.5,0,"ID",30),^DD(57.5,0,"ID","ATC DEVICE") Q
Note: See TracBrowser for help on using the repository browser.