|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
