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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORWUPX01 4399 printed Dec 13, 2024@02:37:48 Page 2
ORWUPX01 ; ; Aug 21, 2000@13:26:02
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10**;Dec 17, 1997
LOAD ; load data into ^TMP (expects ROOT to be defined)
+1 SET I=1
FOR
SET REF=$TEXT(DATA+I)
if REF=""
QUIT
SET VAL=$TEXT(DATA+I+1)
Begin DoDot:1
+2 SET I=I+2
SET REF=$PIECE(REF,";",3,999)
SET VAL=$PIECE(VAL,";",3,999)
+3 SET @(ROOT_REF)=VAL
End DoDot:1
+4 QUIT
DATA ; parameter data
+1 ;;273,"KEY")
+2 ;;ORWOR CATEGORY SEQUENCE^10
+3 ;;273,"VAL")
+4 ;;M.A.S.
+5 ;;274,"KEY")
+6 ;;ORWOR CATEGORY SEQUENCE^30
+7 ;;274,"VAL")
+8 ;;VITALS/MEASUREMENTS
+9 ;;275,"KEY")
+10 ;;ORWOR CATEGORY SEQUENCE^40
+11 ;;275,"VAL")
+12 ;;NURSING
+13 ;;276,"KEY")
+14 ;;ORWOR CATEGORY SEQUENCE^50
+15 ;;276,"VAL")
+16 ;;DIETETICS
+17 ;;277,"KEY")
+18 ;;ORWOR CATEGORY SEQUENCE^60
+19 ;;277,"VAL")
+20 ;;IV MEDICATIONS
+21 ;;278,"KEY")
+22 ;;ORWOR CATEGORY SEQUENCE^70
+23 ;;278,"VAL")
+24 ;;INPATIENT MEDICATIONS
+25 ;;279,"KEY")
+26 ;;ORWOR CATEGORY SEQUENCE^80
+27 ;;279,"VAL")
+28 ;;IMAGING
+29 ;;280,"KEY")
+30 ;;ORWOR CATEGORY SEQUENCE^90
+31 ;;280,"VAL")
+32 ;;CONSULTS
+33 ;;281,"KEY")
+34 ;;ORWOR CATEGORY SEQUENCE^100
+35 ;;281,"VAL")
+36 ;;PROCEDURES
+37 ;;282,"KEY")
+38 ;;ORWOR CATEGORY SEQUENCE^110
+39 ;;282,"VAL")
+40 ;;SURGERY
+41 ;;283,"KEY")
+42 ;;ORWOR CATEGORY SEQUENCE^120
+43 ;;283,"VAL")
+44 ;;OTHER HOSPITAL SERVICES
+45 ;;284,"KEY")
+46 ;;ORWOR CATEGORY SEQUENCE^35
+47 ;;284,"VAL")
+48 ;;ACTIVITY
+49 ;;285,"KEY")
+50 ;;ORWOR CATEGORY SEQUENCE^75
+51 ;;285,"VAL")
+52 ;;LABORATORY
+53 ;;380,"KEY")
+54 ;;ORWOR CATEGORY SEQUENCE^20
+55 ;;380,"VAL")
+56 ;;ALLERGIES
+57 ;;630,"KEY")
+58 ;;ORWT TOOLS MENU^2
+59 ;;630,"VAL")
+60 ;;&Calculator=Calc.exe
+61 ;;631,"KEY")
+62 ;;ORWT TOOLS MENU^1
+63 ;;631,"VAL")
+64 ;;&Time=Clock.exe
+65 ;;632,"KEY")
+66 ;;ORWT TOOLS MENU^3
+67 ;;632,"VAL")
+68 ;;&Windows Introduction=WinHlp32 Windows.hlp
+69 ;;1216,"KEY")
+70 ;;ORWOR CATEGORY SEQUENCE^65
+71 ;;1216,"VAL")
+72 ;;OUTPATIENT MEDICATIONS
+73 ;;1217,"KEY")
+74 ;;ORWOR COVER RETRIEVAL^CWAD (Postings)
+75 ;;1217,"VAL")
+76 ;;NO
+77 ;;1218,"KEY")
+78 ;;ORWOR COVER RETRIEVAL^Encounters
+79 ;;1218,"VAL")
+80 ;;YES
+81 ;;1219,"KEY")
+82 ;;ORWOR COVER RETRIEVAL^Lab Results
+83 ;;1219,"VAL")
+84 ;;YES
+85 ;;1220,"KEY")
+86 ;;ORWOR COVER RETRIEVAL^Medications
+87 ;;1220,"VAL")
+88 ;;NO
+89 ;;1221,"KEY")
+90 ;;ORWOR COVER RETRIEVAL^Problem List
+91 ;;1221,"VAL")
+92 ;;NO
+93 ;;1222,"KEY")
+94 ;;ORWOR COVER RETRIEVAL^Reminders
+95 ;;1222,"VAL")
+96 ;;YES
+97 ;;1223,"KEY")
+98 ;;ORWOR COVER RETRIEVAL^Vitals
+99 ;;1223,"VAL")
+100 ;;NO
+101 ;;1224,"KEY")
+102 ;;ORWOR DISABLE ORDERING^1
+103 ;;1224,"VAL")
+104 ;;NO
+105 ;;2750,"KEY")
+106 ;;ORWDQ DO^10
+107 ;;2750,"VAL")
+108 ;;FHWN1
+109 ;;2751,"KEY")
+110 ;;ORWDQ DO^20
+111 ;;2751,"VAL")
+112 ;;FHWN2
+113 ;;2862,"KEY")
+114 ;;ORWOR TIMEOUT COUNTDOWN^1
+115 ;;2862,"VAL")
+116 ;;20
+117 ;;3022,"KEY")
+118 ;;ORWDX NEW MED^Inpatient
+119 ;;3022,"VAL")
+120 ;;PSJ OR PAT OE
+121 ;;3023,"KEY")
+122 ;;ORWDX NEW MED^Outpatient
+123 ;;3023,"VAL")
+124 ;;PSO OERR
+125 ;;3151,"KEY")
+126 ;;ORWDXM ORDER MENU STYLE^1
+127 ;;3151,"VAL")
+128 ;;Mnemonics Included
+129 ;;3470,"KEY")
+130 ;;ORWDX NEW PROCEDURE^1
+131 ;;3470,"VAL")
+132 ;;GMRCOR REQUEST
+133 ;;3471,"KEY")
+134 ;;ORWDX NEW CONSULT^1
+135 ;;3471,"VAL")
+136 ;;GMRCOR CONSULT
+137 ;;3472,"KEY")
+138 ;;ORWOR WRITE ORDERS LIST^52
+139 ;;3472,"VAL")
+140 ;;PSJ OR PAT OE
+141 ;;3473,"KEY")
+142 ;;ORWOR WRITE ORDERS LIST^99
+143 ;;3473,"VAL")
+144 ;;OR GXTEXT WORD PROCESSING ORDER
+145 ;;3474,"KEY")
+146 ;;ORWOR WRITE ORDERS LIST^80
+147 ;;3474,"VAL")
+148 ;;GMRCOR CONSULT
+149 ;;3475,"KEY")
+150 ;;ORWOR WRITE ORDERS LIST^85
+151 ;;3475,"VAL")
+152 ;;GMRCOR REQUEST
+153 ;;3476,"KEY")
+154 ;;ORWOR WRITE ORDERS LIST^55
+155 ;;3476,"VAL")
+156 ;;PSO OERR
+157 ;;3477,"KEY")
+158 ;;ORWOR WRITE ORDERS LIST^60
+159 ;;3477,"VAL")
+160 ;;LR OTHER LAB TESTS
+161 ;;3478,"KEY")
+162 ;;ORWOR WRITE ORDERS LIST^70
+163 ;;3478,"VAL")
+164 ;;RA OERR EXAM
+165 ;;3479,"KEY")
+166 ;;ORWOR WRITE ORDERS LIST^58
+167 ;;3479,"VAL")
+168 ;;PSJI OR PAT FLUID OE
+169 ;;3480,"KEY")
+170 ;;ORWOR WRITE ORDERS LIST^90
+171 ;;3480,"VAL")
+172 ;;GMRVOR
+173 ;;3481,"KEY")
+174 ;;ORWOR WRITE ORDERS LIST^30
+175 ;;3481,"VAL")
+176 ;;FHW1
+177 ;;3482,"KEY")
+178 ;;ORWOR WRITE ORDERS LIST^20
+179 ;;3482,"VAL")
+180 ;;GMRAOR ALLERGY ENTER/EDIT
+181 ;;3537,"KEY")
+182 ;;ORWRP CIRN REMOTE DATA ALLOW^1
+183 ;;3537,"VAL")
+184 ;;NO
+185 ;;3538,"KEY")
+186 ;;ORWOR BROADCAST MESSAGES^1
+187 ;;3538,"VAL")
+188 ;;YES
+189 ;;3539,"KEY")
+190 ;;ORWOR AUTO CLOSE PT MSG^1
+191 ;;3539,"VAL")
+192 ;;5
+193 ;;3551,"KEY")
+194 ;;ORWDP WINPRINT DEFAULT^1
+195 ;;3551,"VAL")
+196 ;;NO
+197 ;;3552,"KEY")
+198 ;;ORWOR AUTOSAVE NOTE^1
+199 ;;3552,"VAL")
+200 ;;180
+201 ;;3553,"KEY")
+202 ;;ORWOR DISABLE HOLD ORDERS^1
+203 ;;3553,"VAL")
+204 ;;NO
+205 ;;3554,"KEY")
+206 ;;ORWT TOOLS MENU^4
+207 ;;3554,"VAL")
+208 ;;&Notepad=Notepad.exe
+209 ;;3594,"KEY")
+210 ;;ORWOR VERIFY NOTE TITLE^1
+211 ;;3594,"VAL")
+212 ;;YES
