source:
WorldVistAEHR/trunk/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 |
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.