PSJLOAD ;BIR/DMA - USE ^%ZOSF("LOAD") TO GET ROUTINE ;28 Aug 02 / 4:29 PM
 ;;5.0; INPATIENT MEDICATIONS ;**89**;16 DEC 97
 K ^TMP($J) S X="PSJ089",XCNP=0,DIF="^TMP($J," X ^%ZOSF("LOAD")
 M @XPDGREF@(1)=^TMP($J)
 K ^TMP($J) S X="PSJORREN",XCNP=0,DIF="^TMP($J," X ^%ZOSF("LOAD")
 M @XPDGREF@(2)=^TMP($J)
 Q