Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORKX3201

ORKX3201.m

Go to the documentation of this file.
  1. ORKX3201 ; slc/CLA - Package Level Parameter Data ; Dec 11, 1998@14:57:23
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17, 1997
  1. LOAD ; load data into ^TMP (expects ROOT to be defined)
  1. S I=1 F S REF=$T(DATA+I) Q:REF="" S VAL=$T(DATA+I+1) D
  1. . S I=I+2,REF=$P(REF,";",3,999),VAL=$P(VAL,";",3,999)
  1. . S @(ROOT_REF)=VAL
  1. Q
  1. DATA ; parameter data
  1. ;;2718,"KEY")
  1. ;;ORK PROCESSING FLAG^GLUCOPHAGE-LAB RESULTS
  1. ;;2718,"VAL")
  1. ;;Enabled
  1. ;;2719,"KEY")
  1. ;;ORK CLINICAL DANGER LEVEL^GLUCOPHAGE-LAB RESULTS
  1. ;;2719,"VAL")
  1. ;;High
  1. ;;2839,"KEY")
  1. ;;ORK GLUCOPHAGE CREATININE^1
  1. ;;2839,"VAL")
  1. ;;60
  1. ;;2840,"KEY")
  1. ;;ORK POLYPHARMACY^1
  1. ;;2840,"VAL")
  1. ;;7