Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
305 bytes
|
Line | |
---|
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.