source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWUPX01.m@ 1724

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