source:
FOIAVistA/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJ0030.m@
1757
Last change on this file since 1757 was 628, checked in by , 15 years ago | |
---|---|
File size: 176 bytes |
Line | |
---|---|
1 | PSJ0030 ;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.