source:
WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJPST50.m@
1800
| Last change on this file since 1800 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 282 bytes | |
| Line | |
|---|---|
| 1 | PSJPST50 ;BIR/MV-POE POST INIT ;6 DEC 00 / 3:11 PM |
| 2 | ;;5.0; INPATIENT MEDICATIONS ;**50**;16 DEC 97 |
| 3 | ; |
| 4 | POE ;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.
