ORKX3201.m

ORKX3201 ; slc/CLA - Package Level Parameter Data ; Dec 11, 1998@14:57:23

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;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 VAL=$T(DATA+I+1) D

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

 . S @(ROOT_REF)=VAL

 Q

DATA ; parameter data

 ;;2718,"KEY")

 ;;ORK PROCESSING FLAG^GLUCOPHAGE-LAB RESULTS

 ;;2718,"VAL")

 ;;Enabled

 ;;2719,"KEY")

 ;;ORK CLINICAL DANGER LEVEL^GLUCOPHAGE-LAB RESULTS

 ;;2719,"VAL")

 ;;High

 ;;2839,"KEY")

 ;;ORK GLUCOPHAGE CREATININE^1

 ;;2839,"VAL")

 ;;60

 ;;2840,"KEY")

 ;;ORK POLYPHARMACY^1

 ;;2840,"VAL")

 ;;7

ORKX3201  ; slc/CLA - Package Level Parameter Data ; Dec 11, 1998@14:57:23

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;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 VAL=$TEXT(DATA+I+1)

               Begin DoDot:1

 +2                SET I=I+2

                   SET REF=$PIECE(REF,";",3,999)

                   SET VAL=$PIECE(VAL,";",3,999)

 +3                SET @(ROOT_REF)=VAL

               End DoDot:1

 +4        QUIT 

DATA      ; parameter data

 +1       ;;2718,"KEY")

 +2       ;;ORK PROCESSING FLAG^GLUCOPHAGE-LAB RESULTS

 +3       ;;2718,"VAL")

 +4       ;;Enabled

 +5       ;;2719,"KEY")

 +6       ;;ORK CLINICAL DANGER LEVEL^GLUCOPHAGE-LAB RESULTS

 +7       ;;2719,"VAL")

 +8       ;;High

 +9       ;;2839,"KEY")

 +10      ;;ORK GLUCOPHAGE CREATININE^1

 +11      ;;2839,"VAL")

 +12      ;;60

 +13      ;;2840,"KEY")

 +14      ;;ORK POLYPHARMACY^1

 +15      ;;2840,"VAL")

 +16      ;;7