PSJLOAD.m

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 ---PSJLOAD   312     printed  Apr 09, 2024@21:11:42                                                                                                                                                                                                      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