source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY243R.m

ORY243R  ;SLCOIFO - Pre and Post-init for patch OR*3*243 ;4/25/07  14:12
        ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242
        ;
        ; DBIA 2336   EN^XPAR   ^TMP($J,"XPARRSTR")
        ;
PARAM   ; DO NOT REMOVE WITH VBECS - main (initial) parameter transport routine
        K ^TMP($J,"XPARRSTR")
        N ENT,IDX,ROOT,REF,VAL,I
        S ROOT=$NAME(^TMP($J,"XPARRSTR")),ROOT=$E(ROOT,1,$L(ROOT)-1)_","  ;DBIA 2336
        D LOAD
XX2     S IDX=0,ENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"
        F  S IDX=$O(^TMP($J,"XPARRSTR",IDX)) Q:'IDX  D
        . N PAR,INST,ORVAL,ORERR K ORVAL
        . S PAR=$P(^TMP($J,"XPARRSTR",IDX,"KEY"),U),INST=$P(^("KEY"),U,2)
        . M ORVAL=^TMP($J,"XPARRSTR",IDX,"VAL")
        . D EN^XPAR(ENT,PAR,INST,.ORVAL,.ORERR)  ;DBIA 2336
        K ^TMP($J,"XPARRSTR")
        Q
LOAD    ; load data into ^TMP (expects ROOT to be defined)
        S I=1 F  S REF=$T(DATA+I) Q:REF=""  S VAL=$T(DATA+I+1) D
        . S I=I+2,REF=$P(REF,";",3,999),VAL=$P(VAL,";",3,999)
        . S @(ROOT_REF)=VAL
        Q
        ;
DATA    ; parameter data
        ;;7240,"KEY")
        ;;ORB ARCHIVE PERIOD^MEDICATIONS EXPIRING - OUTPT
        ;;7240,"VAL")
        ;;30
        ;;7241,"KEY")
        ;;ORB DELETE MECHANISM^MEDICATIONS EXPIRING - OUTPT
        ;;7241,"VAL")
        ;;All Recipients
        ;;7242,"KEY")
        ;;ORB FORWARD BACKUP REVIEWER^MEDICATIONS EXPIRING - OUTPT
        ;;7242,"VAL")
        ;;0
        ;;7243,"KEY")
        ;;ORB FORWARD SUPERVISOR^MEDICATIONS EXPIRING - OUTPT
        ;;7243,"VAL")
        ;;0
        ;;7244,"KEY")
        ;;ORB FORWARD SURROGATES^MEDICATIONS EXPIRING - OUTPT
        ;;7244,"VAL")
        ;;0
        ;;7245,"KEY")
        ;;ORB PROCESSING FLAG^MEDICATIONS EXPIRING - OUTPT
        ;;7245,"VAL")
        ;;Disabled
        ;;7246,"KEY")
        ;;ORB PROVIDER RECIPIENTS^MEDICATIONS EXPIRING - OUTPT
        ;;7246,"VAL")
        ;;OAPT
        ;;7247,"KEY")
        ;;ORB URGENCY^MEDICATIONS EXPIRING - OUTPT
        ;;7247,"VAL")
        ;;High
        ;;6064,"KEY")
        ;;ORWOR EXPIRED ORDERS^1
        ;;6064,"VAL")
        ;;72
        ;;11559,"KEY")
        ;;ORWLR LC CHANGED TO WC^1
        ;;11559,"VAL")
        ;;Please contact the ward staff to insure the specimen is collected.
        ;;11560,"KEY")
        ;;OR VBECS SUPPRESS NURS ADMIN
        ;;11560,"VAL")
        ;;0