ORBX3101.m

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

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