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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORBX3101 1075 printed Nov 22, 2024@17:37:42 Page 2
ORBX3101 ; SLC/CLA - Data for Pkg Level Parameters; Sep 30, 1998@11:03:28
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**31**;Dec 17, 1997
LOAD ; load data into ^TMP (expects ROOT to be defined)
+1 SET I=1
FOR
SET REF=$TEXT(DATA+I)
if REF=""
QUIT
SET ORVAL=$TEXT(DATA+I+1)
Begin DoDot:1
+2 SET I=I+2
SET REF=$PIECE(REF,";",3,999)
SET ORVAL=$PIECE(ORVAL,";",3,999)
+3 SET @(ROOT_REF)=ORVAL
End DoDot:1
+4 QUIT
DATA ; parameter data
+1 ;;2773,"KEY")
+2 ;;ORB PROCESSING FLAG^UNVERIFIED ORDER
+3 ;;2773,"VAL")
+4 ;;Disabled
+5 ;;2775,"KEY")
+6 ;;ORB URGENCY^UNVERIFIED ORDER
+7 ;;2775,"VAL")
+8 ;;High
+9 ;;2776,"KEY")
+10 ;;ORB DELETE MECHANISM^UNVERIFIED ORDER
+11 ;;2776,"VAL")
+12 ;;All Recipients
+13 ;;2777,"KEY")
+14 ;;ORB PROVIDER RECIPIENTS^UNVERIFIED ORDER
+15 ;;2777,"VAL")
+16 ;;T
+17 ;;2778,"KEY")
+18 ;;ORB ARCHIVE PERIOD^UNVERIFIED ORDER
+19 ;;2778,"VAL")
+20 ;;30
+21 ;;2779,"KEY")
+22 ;;ORB FORWARD SUPERVISOR^UNVERIFIED ORDER
+23 ;;2779,"VAL")
+24 ;;0
+25 ;;2780,"KEY")
+26 ;;ORB FORWARD SURROGATES^UNVERIFIED ORDER
+27 ;;2780,"VAL")
+28 ;;0
+29 ;;2828,"KEY")
+30 ;;ORB UNVERIFIED ORDER^1
+31 ;;2828,"VAL")
+32 ;;2
+33 ;;2831,"KEY")
+34 ;;ORB UNVERIFIED MED ORDER^1
+35 ;;2831,"VAL")
+36 ;;2
