source:
WorldVistAEHR/tag/Release_6_08/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJLOAD.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
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.