source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORBX3101.m@ 808

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