- 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 Feb 19, 2025@00:04:20 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