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

ORXPAR05.m

Go to the documentation of this file.
  1. ORXPAR05 ; ; Dec 17, 1997@11:35:35
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
  1. ;;
  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. G ^ORXPAR06
  1. DATA ; parameter data
  1. ;;471,"VAL")
  1. ;;LR OTHER LAB TESTS
  1. ;;472,"KEY")
  1. ;;ORW ADDORD INPT^10
  1. ;;472,"VAL")
  1. ;;PSJ OR PAT OE
  1. ;;473,"KEY")
  1. ;;ORW ADDORD INPT^12
  1. ;;473,"VAL")
  1. ;;GMRCOR REQUEST
  1. ;;474,"KEY")
  1. ;;ORW ADDORD INPT^13
  1. ;;474,"VAL")
  1. ;;RA OERR EXAM
  1. ;;475,"KEY")
  1. ;;ORW ADDORD INPT^16
  1. ;;475,"VAL")
  1. ;;OR GXMOVE TRANSFER
  1. ;;476,"KEY")
  1. ;;ORW ADDORD INPT^17
  1. ;;476,"VAL")
  1. ;;GMRVOR
  1. ;;479,"KEY")
  1. ;;ORB DELETE MECHANISM^ORDER CHECK
  1. ;;479,"VAL")
  1. ;;Individual Recipient
  1. ;;480,"KEY")
  1. ;;ORB PROCESSING FLAG^ORDER CHECK
  1. ;;480,"VAL")
  1. ;;Disabled
  1. ;;481,"KEY")
  1. ;;ORB URGENCY^ORDER CHECK
  1. ;;481,"VAL")
  1. ;;High
  1. ;;515,"KEY")
  1. ;;ORWOR CATEGORY SEQUENCE^20
  1. ;;515,"VAL")
  1. ;;ALLERGIES
  1. ;;542,"KEY")
  1. ;;ORK CLINICAL DANGER LEVEL^ORDER CHECKING NOT AVAILABLE
  1. ;;542,"VAL")
  1. ;;Low
  1. ;;543,"KEY")
  1. ;;ORK CLINICAL DANGER LEVEL^ESTIMATED CREATININE CLEARANCE
  1. ;;543,"VAL")
  1. ;;Moderate
  1. ;;544,"KEY")
  1. ;;ORK CLINICAL DANGER LEVEL^AMINOGLYCOSIDE ORDERED
  1. ;;544,"VAL")
  1. ;;High
  1. ;;545,"KEY")
  1. ;;ORK CLINICAL DANGER LEVEL^CLOZAPINE APPROPRIATENESS
  1. ;;545,"VAL")
  1. ;;High
  1. ;;546,"KEY")
  1. ;;ORK CLINICAL DANGER LEVEL^RENAL FUNCTIONS OVER AGE 65
  1. ;;546,"VAL")
  1. ;;Moderate
  1. ;;547,"KEY")
  1. ;;ORK CLINICAL DANGER LEVEL^CT & MRI PHYSICAL LIMITATIONS
  1. ;;547,"VAL")
  1. ;;High
  1. ;;548,"KEY")
  1. ;;ORK CLINICAL DANGER LEVEL^MISSING LAB TESTS FOR ANGIOGRAM PROCEDURE
  1. ;;548,"VAL")
  1. ;;High
  1. ;;549,"KEY")
  1. ;;ORK CLINICAL DANGER LEVEL^RECENT BARIUM STUDY
  1. ;;549,"VAL")
  1. ;;High
  1. ;;550,"KEY")
  1. ;;ORK CLINICAL DANGER LEVEL^BIOCHEM ABNORMALITY FOR CONTRAST MEDIA
  1. ;;550,"VAL")
  1. ;;High
  1. ;;551,"KEY")
  1. ;;ORK CLINICAL DANGER LEVEL^RECENT ORAL CHOLECYSTOGRAM
  1. ;;551,"VAL")
  1. ;;High
  1. ;;562,"KEY")
  1. ;;ORCDLR URGENCIES^1
  1. ;;562,"VAL")
  1. ;;STAT
  1. ;;563,"KEY")
  1. ;;ORCDLR URGENCIES^2
  1. ;;563,"VAL")
  1. ;;ASAP
  1. ;;564,"KEY")
  1. ;;ORCDLR URGENCIES^9
  1. ;;564,"VAL")
  1. ;;
  1. ;;697,"KEY")
  1. ;;ORB DELETE MECHANISM^FOOD/DRUG INTERACTION
  1. ;;697,"VAL")
  1. ;;Individual Recipient
  1. ;;698,"KEY")
  1. ;;ORB PROCESSING FLAG^FOOD/DRUG INTERACTION
  1. ;;698,"VAL")
  1. ;;Disabled
  1. ;;699,"KEY")
  1. ;;ORB URGENCY^FOOD/DRUG INTERACTION
  1. ;;699,"VAL")
  1. ;;Moderate
  1. ;;713,"KEY")
  1. ;;ORB DELETE MECHANISM^ERROR MESSAGE
  1. ;;713,"VAL")
  1. ;;All Recipients
  1. ;;714,"KEY")
  1. ;;ORB PROCESSING FLAG^ERROR MESSAGE
  1. ;;714,"VAL")
  1. ;;Disabled
  1. ;;718,"KEY")
  1. ;;ORK PROCESSING FLAG^ALLERGY-DRUG INTERACTION
  1. ;;718,"VAL")
  1. ;;Enabled
  1. ;;719,"KEY")
  1. ;;ORK PROCESSING FLAG^AMINOGLYCOSIDE ORDERED
  1. ;;719,"VAL")
  1. ;;Enabled
  1. ;;720,"KEY")
  1. ;;ORK PROCESSING FLAG^BIOCHEM ABNORMALITY FOR CONTRAST MEDIA
  1. ;;720,"VAL")
  1. ;;Enabled
  1. ;;721,"KEY")
  1. ;;ORK PROCESSING FLAG^CLOZAPINE APPROPRIATENESS
  1. ;;721,"VAL")
  1. ;;Enabled
  1. ;;722,"KEY")
  1. ;;ORK PROCESSING FLAG^CT & MRI PHYSICAL LIMITATIONS
  1. ;;722,"VAL")
  1. ;;Enabled
  1. ;;723,"KEY")
  1. ;;ORK PROCESSING FLAG^DRUG-DRUG INTERACTION
  1. ;;723,"VAL")
  1. ;;Enabled
  1. ;;724,"KEY")
  1. ;;ORK PROCESSING FLAG^DUPLICATE DRUG CLASS ORDER
  1. ;;724,"VAL")
  1. ;;Enabled
  1. ;;725,"KEY")
  1. ;;ORK PROCESSING FLAG^DUPLICATE DRUG ORDER
  1. ;;725,"VAL")
  1. ;;Enabled
  1. ;;726,"KEY")
  1. ;;ORK PROCESSING FLAG^ESTIMATED CREATININE CLEARANCE
  1. ;;726,"VAL")
  1. ;;Enabled
  1. ;;727,"KEY")
  1. ;;ORK PROCESSING FLAG^MISSING LAB TESTS FOR ANGIOGRAM PROCEDURE
  1. ;;727,"VAL")
  1. ;;Enabled
  1. ;;728,"KEY")
  1. ;;ORK PROCESSING FLAG^ORDER CHECKING NOT AVAILABLE
  1. ;;728,"VAL")
  1. ;;Enabled
  1. ;;730,"KEY")
  1. ;;ORK PROCESSING FLAG^RECENT BARIUM STUDY
  1. ;;730,"VAL")
  1. ;;Enabled
  1. ;;731,"KEY")
  1. ;;ORK PROCESSING FLAG^RECENT ORAL CHOLECYSTOGRAM
  1. ;;731,"VAL")
  1. ;;Enabled
  1. ;;732,"KEY")
  1. ;;ORK PROCESSING FLAG^RENAL FUNCTIONS OVER AGE 65
  1. ;;732,"VAL")
  1. ;;Enabled
  1. ;;747,"KEY")
  1. ;;ORK DUP ORDER RANGE RADIOLOGY^1
  1. ;;747,"VAL")
  1. ;;48
  1. ;;748,"KEY")
  1. ;;ORK DUP ORDER RANGE LAB^1
  1. ;;748,"VAL")
  1. ;;48
  1. ;;750,"KEY")
  1. ;;ORB PROVIDER RECIPIENTS^IMAGING PATIENT EXAMINED
  1. ;;750,"VAL")
  1. ;;O
  1. ;;751,"KEY")
  1. ;;ORWD ACTIVITY INPT^1
  1. ;;751,"VAL")
  1. ;;OR GXACTV AD LIB
  1. ;;752,"KEY")
  1. ;;ORWD ACTIVITY INPT^2
  1. ;;752,"VAL")
  1. ;;OR GXACTV BED REST
  1. ;;753,"KEY")
  1. ;;ORWD ACTIVITY INPT^3
  1. ;;753,"VAL")
  1. ;;OR GXACTV BATHROOM PRIVILEGES
  1. ;;754,"KEY")
  1. ;;ORWD ACTIVITY INPT^4
  1. ;;754,"VAL")
  1. ;;OR GXACTV AMBULATE
  1. ;;755,"KEY")
  1. ;;ORWD ACTIVITY INPT^5
  1. ;;755,"VAL")
  1. ;;OR GXACTV OUT OF BED
  1. ;;756,"KEY")
  1. ;;ORWD ACTIVITY INPT^6
  1. ;;756,"VAL")
  1. ;;OR GXACTV UP IN CHAIR
  1. ;;757,"KEY")
  1. ;;ORWD ACTIVITY INPT^7
  1. ;;757,"VAL")
  1. ;;OR GXACTV HOB UP
  1. ;;758,"KEY")
  1. ;;ORWD ACTIVITY INPT^8
  1. ;;758,"VAL")
  1. ;;OR GXACTV MAY LEAVE WARD
  1. ;;759,"KEY")
  1. ;;ORWD ACTIVITY INPT^9
  1. ;;759,"VAL")
  1. ;;OR GXACTV PROVIDE TRAPEZE
  1. ;;760,"KEY")
  1. ;;ORWD ACTIVITY INPT^10
  1. ;;760,"VAL")
  1. ;;OR GXACTV ROM EXERCISE
  1. ;;761,"KEY")
  1. ;;ORWD ACTIVITY INPT^11
  1. ;;761,"VAL")
  1. ;;OR GXACTV TURN PATIENT
  1. ;;762,"KEY")
  1. ;;ORWD PTCARE GENERAL INPT^1
  1. ;;762,"VAL")
  1. ;;OR GXTUBE CONDOM CATHETER
  1. ;;763,"KEY")
  1. ;;ORWD PTCARE GENERAL INPT^2
  1. ;;763,"VAL")
  1. ;;OR GXNURS GUAIAC STOOLS
  1. ;;764,"KEY")
  1. ;;ORWD PTCARE GENERAL INPT^3
  1. ;;764,"VAL")
  1. ;;OR GXRESP INCENTIVE SPIROMETER
  1. ;;765,"KEY")
  1. ;;ORWD PTCARE GENERAL INPT^4
  1. ;;765,"VAL")
  1. ;;OR GXSKIN DRESSING CHANGE
  1. ;;766,"KEY")
  1. ;;ORWD PTCARE HEMODYNAMICS INPT^1
  1. ;;766,"VAL")
  1. ;;OR GXHEMO ARTERIAL LINE
  1. ;;767,"KEY")
  1. ;;ORWD PTCARE HEMODYNAMICS INPT^2
  1. ;;767,"VAL")
  1. ;;OR GXHEMO ARTERIAL SHEATH
  1. ;;768,"KEY")
  1. ;;ORWD PTCARE HEMODYNAMICS INPT^3
  1. ;;768,"VAL")
  1. ;;OR GXHEMO VENOUS SHEATH
  1. ;;769,"KEY")
  1. ;;ORWD PTCARE HEMODYNAMICS INPT^4
  1. ;;769,"VAL")
  1. ;;OR GXHEMO SWAN GANZ CATHETER
  1. ;;770,"KEY")
  1. ;;ORWD PTCARE HEMODYNAMICS INPT^5
  1. ;;770,"VAL")
  1. ;;OR GXHEMO CARDIAC OUTPUT
  1. ;;771,"KEY")
  1. ;;ORWD PTCARE NURSING INPT^1
  1. ;;771,"VAL")
  1. ;;OR GXNURS CHEST TUBE
  1. ;;772,"KEY")
  1. ;;ORWD PTCARE NURSING INPT^2
  1. ;;772,"VAL")
  1. ;;OR GXNURS PUSH FLUIDS
  1. ;;773,"KEY")
  1. ;;ORWD PTCARE NURSING INPT^3
  1. ;;773,"VAL")
  1. ;;OR GXNURS NEURO CHECK
  1. ;;774,"KEY")
  1. ;;ORWD PTCARE NURSING INPT^4
  1. ;;774,"VAL")
  1. ;;OR GXNURS GLASCOW COMA
  1. ;;775,"KEY")
  1. ;;ORWD PTCARE NURSING INPT^5
  1. ;;775,"VAL")
  1. ;;OR GXNURS GUAIAC ASPIRATE
  1. ;;776,"KEY")
  1. ;;ORWD PTCARE NURSING INPT^6
  1. ;;776,"VAL")
  1. ;;OR GXNURS GUAIAC EMESIS
  1. ;;777,"KEY")
  1. ;;ORWD PTCARE NURSING INPT^7
  1. ;;777,"VAL")
  1. ;;OR GXNURS GUAIAC STOOLS
  1. ;;778,"KEY")
  1. ;;ORWD PTCARE NURSING INPT^8
  1. ;;778,"VAL")
  1. ;;OR GXNURS URINE PH
  1. ;;779,"KEY")
  1. ;;ORWD PTCARE NURSING INPT^9
  1. ;;779,"VAL")
  1. ;;OR GXNURS URINE SPEC GRAV
  1. ;;780,"KEY")
  1. ;;ORWD PTCARE OXYGEN INPT^1
  1. ;;780,"VAL")
  1. ;;OR GXOXGN O2 3 LT NASAL CANNULA
  1. ;;781,"KEY")
  1. ;;ORWD PTCARE OXYGEN INPT^2
  1. ;;781,"VAL")
  1. ;;OR GXOXGN O2 4 LT NASAL CANNULA
  1. ;;783,"KEY")
  1. ;;ORWD PTCARE OXYGEN INPT^3
  1. ;;783,"VAL")
  1. ;;OR GXOXGN MASK 35 PER CENT
  1. ;;784,"KEY")
  1. ;;ORWD PTCARE OXYGEN INPT^4
  1. ;;784,"VAL")
  1. ;;OR GXOXGN MASK 40 PER CENT
  1. ;;785,"KEY")
  1. ;;ORWD PTCARE OXYGEN INPT^5
  1. ;;785,"VAL")
  1. ;;OR GXOXGN MASK 50 PER CENT
  1. ;;786,"KEY")
  1. ;;ORWD PTCARE OXYGEN INPT^6