source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORBX3101.m@ 846

ORBX3101 ; SLC/CLA - Data for Pkg Level Parameters; Sep 30, 1998@11:03:28

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**31**;Dec 17, 1997

LOAD ; load data into ^TMP (expects ROOT to be defined)

 S I=1 F  S REF=$T(DATA+I) Q:REF=""  S ORVAL=$T(DATA+I+1) D

 . S I=I+2,REF=$P(REF,";",3,999),ORVAL=$P(ORVAL,";",3,999)

 . S @(ROOT_REF)=ORVAL

 Q

DATA ; parameter data

 ;;2773,"KEY")

 ;;ORB PROCESSING FLAG^UNVERIFIED ORDER

 ;;2773,"VAL")

 ;;Disabled

 ;;2775,"KEY")

 ;;ORB URGENCY^UNVERIFIED ORDER

 ;;2775,"VAL")

 ;;High

 ;;2776,"KEY")

 ;;ORB DELETE MECHANISM^UNVERIFIED ORDER

 ;;2776,"VAL")

 ;;All Recipients

 ;;2777,"KEY")

 ;;ORB PROVIDER RECIPIENTS^UNVERIFIED ORDER

 ;;2777,"VAL")

 ;;T

 ;;2778,"KEY")

 ;;ORB ARCHIVE PERIOD^UNVERIFIED ORDER

 ;;2778,"VAL")

 ;;30

 ;;2779,"KEY")

 ;;ORB FORWARD SUPERVISOR^UNVERIFIED ORDER

 ;;2779,"VAL")

 ;;0

 ;;2780,"KEY")

 ;;ORB FORWARD SURROGATES^UNVERIFIED ORDER

 ;;2780,"VAL")

 ;;0

 ;;2828,"KEY")

 ;;ORB UNVERIFIED ORDER^1

 ;;2828,"VAL")

 ;;2

 ;;2831,"KEY")

 ;;ORB UNVERIFIED MED ORDER^1

 ;;2831,"VAL")

 ;;2