Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
305 bytes
|
Rev | Line | |
---|
[613] | 1 | PSJLOAD ;BIR/DMA - USE ^%ZOSF("LOAD") TO GET ROUTINE ;28 Aug 02 / 4:29 PM
|
---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;**89**;16 DEC 97
|
---|
| 3 | K ^TMP($J) S X="PSJ089",XCNP=0,DIF="^TMP($J," X ^%ZOSF("LOAD")
|
---|
| 4 | M @XPDGREF@(1)=^TMP($J)
|
---|
| 5 | K ^TMP($J) S X="PSJORREN",XCNP=0,DIF="^TMP($J," X ^%ZOSF("LOAD")
|
---|
| 6 | M @XPDGREF@(2)=^TMP($J)
|
---|
| 7 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.