- 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