45 lines
1.0 KiB
Mathematica
45 lines
1.0 KiB
Mathematica
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
|