source: FOIAVistA/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJPST50.m@ 1800

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

initial load of FOIAVistA 6/30/08 version

File size: 282 bytes
Line 
1PSJPST50 ;BIR/MV-POE POST INIT ;6 DEC 00 / 3:11 PM
2 ;;5.0; INPATIENT MEDICATIONS ;**50**;16 DEC 97
3 ;
4POE ;Queue IV conversion to re-allign OI
5 Q:$$PATCH^XPDUTL("PSJ*5.0*50")
6 S ZTDTH=$H,ZTRTN="CNIV^PSJUTL1()",ZTIO="",ZTDESC="Inpatient medications order conversion"
7 D ^%ZTLOAD
8 Q
Note: See TracBrowser for help on using the repository browser.