221 lines
4.1 KiB
Mathematica
221 lines
4.1 KiB
Mathematica
ORWUPX01 ; ; Aug 21, 2000@13:26:02
|
|
;;3.0;ORDER ENTRY/RESULTS REPORTING;**10**;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
|
|
;;273,"KEY")
|
|
;;ORWOR CATEGORY SEQUENCE^10
|
|
;;273,"VAL")
|
|
;;M.A.S.
|
|
;;274,"KEY")
|
|
;;ORWOR CATEGORY SEQUENCE^30
|
|
;;274,"VAL")
|
|
;;VITALS/MEASUREMENTS
|
|
;;275,"KEY")
|
|
;;ORWOR CATEGORY SEQUENCE^40
|
|
;;275,"VAL")
|
|
;;NURSING
|
|
;;276,"KEY")
|
|
;;ORWOR CATEGORY SEQUENCE^50
|
|
;;276,"VAL")
|
|
;;DIETETICS
|
|
;;277,"KEY")
|
|
;;ORWOR CATEGORY SEQUENCE^60
|
|
;;277,"VAL")
|
|
;;IV MEDICATIONS
|
|
;;278,"KEY")
|
|
;;ORWOR CATEGORY SEQUENCE^70
|
|
;;278,"VAL")
|
|
;;INPATIENT MEDICATIONS
|
|
;;279,"KEY")
|
|
;;ORWOR CATEGORY SEQUENCE^80
|
|
;;279,"VAL")
|
|
;;IMAGING
|
|
;;280,"KEY")
|
|
;;ORWOR CATEGORY SEQUENCE^90
|
|
;;280,"VAL")
|
|
;;CONSULTS
|
|
;;281,"KEY")
|
|
;;ORWOR CATEGORY SEQUENCE^100
|
|
;;281,"VAL")
|
|
;;PROCEDURES
|
|
;;282,"KEY")
|
|
;;ORWOR CATEGORY SEQUENCE^110
|
|
;;282,"VAL")
|
|
;;SURGERY
|
|
;;283,"KEY")
|
|
;;ORWOR CATEGORY SEQUENCE^120
|
|
;;283,"VAL")
|
|
;;OTHER HOSPITAL SERVICES
|
|
;;284,"KEY")
|
|
;;ORWOR CATEGORY SEQUENCE^35
|
|
;;284,"VAL")
|
|
;;ACTIVITY
|
|
;;285,"KEY")
|
|
;;ORWOR CATEGORY SEQUENCE^75
|
|
;;285,"VAL")
|
|
;;LABORATORY
|
|
;;380,"KEY")
|
|
;;ORWOR CATEGORY SEQUENCE^20
|
|
;;380,"VAL")
|
|
;;ALLERGIES
|
|
;;630,"KEY")
|
|
;;ORWT TOOLS MENU^2
|
|
;;630,"VAL")
|
|
;;&Calculator=Calc.exe
|
|
;;631,"KEY")
|
|
;;ORWT TOOLS MENU^1
|
|
;;631,"VAL")
|
|
;;&Time=Clock.exe
|
|
;;632,"KEY")
|
|
;;ORWT TOOLS MENU^3
|
|
;;632,"VAL")
|
|
;;&Windows Introduction=WinHlp32 Windows.hlp
|
|
;;1216,"KEY")
|
|
;;ORWOR CATEGORY SEQUENCE^65
|
|
;;1216,"VAL")
|
|
;;OUTPATIENT MEDICATIONS
|
|
;;1217,"KEY")
|
|
;;ORWOR COVER RETRIEVAL^CWAD (Postings)
|
|
;;1217,"VAL")
|
|
;;NO
|
|
;;1218,"KEY")
|
|
;;ORWOR COVER RETRIEVAL^Encounters
|
|
;;1218,"VAL")
|
|
;;YES
|
|
;;1219,"KEY")
|
|
;;ORWOR COVER RETRIEVAL^Lab Results
|
|
;;1219,"VAL")
|
|
;;YES
|
|
;;1220,"KEY")
|
|
;;ORWOR COVER RETRIEVAL^Medications
|
|
;;1220,"VAL")
|
|
;;NO
|
|
;;1221,"KEY")
|
|
;;ORWOR COVER RETRIEVAL^Problem List
|
|
;;1221,"VAL")
|
|
;;NO
|
|
;;1222,"KEY")
|
|
;;ORWOR COVER RETRIEVAL^Reminders
|
|
;;1222,"VAL")
|
|
;;YES
|
|
;;1223,"KEY")
|
|
;;ORWOR COVER RETRIEVAL^Vitals
|
|
;;1223,"VAL")
|
|
;;NO
|
|
;;1224,"KEY")
|
|
;;ORWOR DISABLE ORDERING^1
|
|
;;1224,"VAL")
|
|
;;NO
|
|
;;2750,"KEY")
|
|
;;ORWDQ DO^10
|
|
;;2750,"VAL")
|
|
;;FHWN1
|
|
;;2751,"KEY")
|
|
;;ORWDQ DO^20
|
|
;;2751,"VAL")
|
|
;;FHWN2
|
|
;;2862,"KEY")
|
|
;;ORWOR TIMEOUT COUNTDOWN^1
|
|
;;2862,"VAL")
|
|
;;20
|
|
;;3022,"KEY")
|
|
;;ORWDX NEW MED^Inpatient
|
|
;;3022,"VAL")
|
|
;;PSJ OR PAT OE
|
|
;;3023,"KEY")
|
|
;;ORWDX NEW MED^Outpatient
|
|
;;3023,"VAL")
|
|
;;PSO OERR
|
|
;;3151,"KEY")
|
|
;;ORWDXM ORDER MENU STYLE^1
|
|
;;3151,"VAL")
|
|
;;Mnemonics Included
|
|
;;3470,"KEY")
|
|
;;ORWDX NEW PROCEDURE^1
|
|
;;3470,"VAL")
|
|
;;GMRCOR REQUEST
|
|
;;3471,"KEY")
|
|
;;ORWDX NEW CONSULT^1
|
|
;;3471,"VAL")
|
|
;;GMRCOR CONSULT
|
|
;;3472,"KEY")
|
|
;;ORWOR WRITE ORDERS LIST^52
|
|
;;3472,"VAL")
|
|
;;PSJ OR PAT OE
|
|
;;3473,"KEY")
|
|
;;ORWOR WRITE ORDERS LIST^99
|
|
;;3473,"VAL")
|
|
;;OR GXTEXT WORD PROCESSING ORDER
|
|
;;3474,"KEY")
|
|
;;ORWOR WRITE ORDERS LIST^80
|
|
;;3474,"VAL")
|
|
;;GMRCOR CONSULT
|
|
;;3475,"KEY")
|
|
;;ORWOR WRITE ORDERS LIST^85
|
|
;;3475,"VAL")
|
|
;;GMRCOR REQUEST
|
|
;;3476,"KEY")
|
|
;;ORWOR WRITE ORDERS LIST^55
|
|
;;3476,"VAL")
|
|
;;PSO OERR
|
|
;;3477,"KEY")
|
|
;;ORWOR WRITE ORDERS LIST^60
|
|
;;3477,"VAL")
|
|
;;LR OTHER LAB TESTS
|
|
;;3478,"KEY")
|
|
;;ORWOR WRITE ORDERS LIST^70
|
|
;;3478,"VAL")
|
|
;;RA OERR EXAM
|
|
;;3479,"KEY")
|
|
;;ORWOR WRITE ORDERS LIST^58
|
|
;;3479,"VAL")
|
|
;;PSJI OR PAT FLUID OE
|
|
;;3480,"KEY")
|
|
;;ORWOR WRITE ORDERS LIST^90
|
|
;;3480,"VAL")
|
|
;;GMRVOR
|
|
;;3481,"KEY")
|
|
;;ORWOR WRITE ORDERS LIST^30
|
|
;;3481,"VAL")
|
|
;;FHW1
|
|
;;3482,"KEY")
|
|
;;ORWOR WRITE ORDERS LIST^20
|
|
;;3482,"VAL")
|
|
;;GMRAOR ALLERGY ENTER/EDIT
|
|
;;3537,"KEY")
|
|
;;ORWRP CIRN REMOTE DATA ALLOW^1
|
|
;;3537,"VAL")
|
|
;;NO
|
|
;;3538,"KEY")
|
|
;;ORWOR BROADCAST MESSAGES^1
|
|
;;3538,"VAL")
|
|
;;YES
|
|
;;3539,"KEY")
|
|
;;ORWOR AUTO CLOSE PT MSG^1
|
|
;;3539,"VAL")
|
|
;;5
|
|
;;3551,"KEY")
|
|
;;ORWDP WINPRINT DEFAULT^1
|
|
;;3551,"VAL")
|
|
;;NO
|
|
;;3552,"KEY")
|
|
;;ORWOR AUTOSAVE NOTE^1
|
|
;;3552,"VAL")
|
|
;;180
|
|
;;3553,"KEY")
|
|
;;ORWOR DISABLE HOLD ORDERS^1
|
|
;;3553,"VAL")
|
|
;;NO
|
|
;;3554,"KEY")
|
|
;;ORWT TOOLS MENU^4
|
|
;;3554,"VAL")
|
|
;;&Notepad=Notepad.exe
|
|
;;3594,"KEY")
|
|
;;ORWOR VERIFY NOTE TITLE^1
|
|
;;3594,"VAL")
|
|
;;YES
|