source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJLOAD.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 305 bytes
Line 
1PSJLOAD ;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.