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