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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJLOAD 312 printed Dec 13, 2024@02:07:35 Page 2
PSJLOAD ;BIR/DMA - USE ^%ZOSF("LOAD") TO GET ROUTINE ;28 Aug 02 / 4:29 PM
+1 ;;5.0; INPATIENT MEDICATIONS ;**89**;16 DEC 97
+2 KILL ^TMP($JOB)
SET X="PSJ089"
SET XCNP=0
SET DIF="^TMP($J,"
XECUTE ^%ZOSF("LOAD")
+3 MERGE @XPDGREF@(1)=^TMP($JOB)
+4 KILL ^TMP($JOB)
SET X="PSJORREN"
SET XCNP=0
SET DIF="^TMP($J,"
XECUTE ^%ZOSF("LOAD")
+5 MERGE @XPDGREF@(2)=^TMP($JOB)
+6 QUIT
