- ORXPAR09 ; ; 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
- Q
- DATA ; parameter data
- ;;1135,"VAL")
- ;;0
- ;;1136,"KEY")
- ;;ORB FORWARD SURROGATES^TRANSFER FROM PSYCHIATRY
- ;;1136,"VAL")
- ;;0
- ;;1137,"KEY")
- ;;ORB FORWARD SURROGATES^ORDER REQUIRES CO-SIGNATURE
- ;;1137,"VAL")
- ;;0
- ;;1139,"KEY")
- ;;ORB FORWARD SURROGATES^SITE-FLAGGED ORDER
- ;;1139,"VAL")
- ;;0
- ;;1140,"KEY")
- ;;ORB FORWARD SURROGATES^LAB ORDER CANCELED
- ;;1140,"VAL")
- ;;0
- ;;1141,"KEY")
- ;;ORB FORWARD SURROGATES^STAT ORDER
- ;;1141,"VAL")
- ;;0
- ;;1142,"KEY")
- ;;ORB FORWARD SURROGATES^STAT RESULTS
- ;;1142,"VAL")
- ;;0
- ;;1143,"KEY")
- ;;ORB FORWARD SURROGATES^DNR EXPIRING
- ;;1143,"VAL")
- ;;0
- ;;1144,"KEY")
- ;;ORB FORWARD SURROGATES^FREE TEXT
- ;;1144,"VAL")
- ;;0
- ;;1145,"KEY")
- ;;ORB FORWARD SURROGATES^MEDICATIONS EXPIRING
- ;;1145,"VAL")
- ;;0
- ;;1146,"KEY")
- ;;ORB FORWARD SURROGATES^UNVERIFIED MEDICATION ORDER
- ;;1146,"VAL")
- ;;0
- ;;1147,"KEY")
- ;;ORB FORWARD SURROGATES^NEW ORDER
- ;;1147,"VAL")
- ;;0
- ;;1148,"KEY")
- ;;ORB FORWARD SURROGATES^STAT IMAGING REQUEST
- ;;1148,"VAL")
- ;;0
- ;;1149,"KEY")
- ;;ORB FORWARD SURROGATES^URGENT IMAGING REQUEST
- ;;1149,"VAL")
- ;;0
- ;;1150,"KEY")
- ;;ORB FORWARD SURROGATES^IMAGING RESULTS AMENDED
- ;;1150,"VAL")
- ;;0
- ;;1151,"KEY")
- ;;ORB FORWARD SURROGATES^ORDER CHECK
- ;;1151,"VAL")
- ;;0
- ;;1152,"KEY")
- ;;ORB FORWARD SURROGATES^FOOD/DRUG INTERACTION
- ;;1152,"VAL")
- ;;0
- ;;1153,"KEY")
- ;;ORB FORWARD SURROGATES^ERROR MESSAGE
- ;;1153,"VAL")
- ;;0
- ;;1156,"KEY")
- ;;ORB SYSTEM ENABLE/DISABLE^1
- ;;1156,"VAL")
- ;;Disable
- ;;1178,"KEY")
- ;;ORK DEBUG ENABLE/DISABLE^1
- ;;1178,"VAL")
- ;;Disable
- ;;1179,"KEY")
- ;;ORB URGENCY^ERROR MESSAGE
- ;;1179,"VAL")
- ;;Low
- ;;1222,"KEY")
- ;;ORK CLINICAL DANGER LEVEL^POLYPHARMACY
- ;;1222,"VAL")
- ;;Moderate
- ;;1223,"KEY")
- ;;ORK PROCESSING FLAG^POLYPHARMACY
- ;;1223,"VAL")
- ;;Enabled
- ;;1246,"KEY")
- ;;ORK PROCESSING FLAG^DISPENSE DRUG NOT SELECTED
- ;;1246,"VAL")
- ;;Enabled
- ;;1247,"KEY")
- ;;ORK CLINICAL DANGER LEVEL^DISPENSE DRUG NOT SELECTED
- ;;1247,"VAL")
- ;;Moderate
- ;;1389,"KEY")
- ;;ORB DELETE MECHANISM^LAB RESULTS
- ;;1389,"VAL")
- ;;Individual Recipient
- ;;1390,"KEY")
- ;;ORB URGENCY^LAB RESULTS
- ;;1390,"VAL")
- ;;Moderate
- ;;1391,"KEY")
- ;;ORB PROVIDER RECIPIENTS^LAB RESULTS
- ;;1391,"VAL")
- ;;OAPT
- ;;1599,"KEY")
- ;;ORB PROVIDER RECIPIENTS^FREE TEXT
- ;;1599,"VAL")
- ;;O
- ;;1649,"KEY")
- ;;ORWT TOOLS MENU^1
- ;;1649,"VAL")
- ;;&Calculator=Calc.exe
- ;;1650,"KEY")
- ;;ORWT TOOLS MENU^2
- ;;1650,"VAL")
- ;;&Time=Clock.exe
- ;;1651,"KEY")
- ;;ORWT TOOLS MENU^3
- ;;1651,"VAL")
- ;;&Windows Introduction=WinHlp32 Windows.hlp
- ;;1773,"KEY")
- ;;ORCH CONTEXT NOTES^1
- ;;1773,"VAL")
- ;;;;1;;100
- ;;1774,"KEY")
- ;;ORCH CONTEXT SUMMRIES^1
- ;;1774,"VAL")
- ;;;;1;
- ;;1775,"KEY")
- ;;ORCH CONTEXT PROBLEMS^1
- ;;1775,"VAL")
- ;;;;A;1
- ;;1776,"KEY")
- ;;ORCH CONTEXT ORDERS^1
- ;;1776,"VAL")
- ;;;;2;ALL;L
- ;;1777,"KEY")
- ;;ORCH CONTEXT INPT MEDS^1
- ;;1777,"VAL")
- ;;;;1
- ;;1778,"KEY")
- ;;ORCH CONTEXT XRAYS^1
- ;;1778,"VAL")
- ;;T-1826;T;;;10
- ;;1779,"KEY")
- ;;ORCH CONTEXT OUTPT LABS^1
- ;;1779,"VAL")
- ;;T-180;NOW;C
- ;;1780,"KEY")
- ;;ORCH CONTEXT INPT LABS^1
- ;;1780,"VAL")
- ;;T-7;NOW;C
- ;;1781,"KEY")
- ;;ORCH CONTEXT CONSULTS^1
- ;;1781,"VAL")
- ;;;;;
- ;;1782,"KEY")
- ;;ORCH CONTEXT REPORTS^1
- ;;1782,"VAL")
- ;;T-1826;T;;;10
- ;;1790,"KEY")
- ;;OR SIGNED ON CHART^1
- ;;1790,"VAL")
- ;;NO
- ;;1817,"KEY")
- ;;ORB ARCHIVE PERIOD^ABNORMAL LAB RESULT (INFO)
- ;;1817,"VAL")
- ;;30
- ;;1818,"KEY")
- ;;ORB ARCHIVE PERIOD^CRITICAL LAB RESULTS (ACTION)
- ;;1818,"VAL")
- ;;30
- ;;1819,"KEY")
- ;;ORB DELETE MECHANISM^CRITICAL LAB RESULTS (ACTION)
- ;;1819,"VAL")
- ;;Individual Recipient
- ;;1820,"KEY")
- ;;ORB DELETE MECHANISM^ABNORMAL LAB RESULT (INFO)
- ;;1820,"VAL")
- ;;Individual Recipient
- ;;1821,"KEY")
- ;;ORB FORWARD SUPERVISOR^ABNORMAL LAB RESULT (INFO)
- ;;1821,"VAL")
- ;;0
- ;;1822,"KEY")
- ;;ORB FORWARD SUPERVISOR^CRITICAL LAB RESULTS (ACTION)
- ;;1822,"VAL")
- ;;0
- ;;1823,"KEY")
- ;;ORB FORWARD SURROGATES^CRITICAL LAB RESULTS (ACTION)
- ;;1823,"VAL")
- ;;0
- ;;1824,"KEY")
- ;;ORB FORWARD SURROGATES^ABNORMAL LAB RESULT (INFO)
- ;;1824,"VAL")
- ;;0
- ;;1825,"KEY")
- ;;ORB PROCESSING FLAG^ABNORMAL LAB RESULT (INFO)
- ;;1825,"VAL")
- ;;Disabled
- ;;1826,"KEY")
- ;;ORB PROCESSING FLAG^CRITICAL LAB RESULTS (ACTION)
- ;;1826,"VAL")
- ;;Disabled
- ;;1827,"KEY")
- ;;ORB PROVIDER RECIPIENTS^CRITICAL LAB RESULTS (ACTION)
- ;;1827,"VAL")
- ;;OAPT
- ;;1828,"KEY")
- ;;ORB PROVIDER RECIPIENTS^ABNORMAL LAB RESULT (INFO)
- ;;1828,"VAL")
- ;;OAPT
- ;;1829,"KEY")
- ;;ORB URGENCY^ABNORMAL LAB RESULT (INFO)
- ;;1829,"VAL")
- ;;Moderate
- ;;1830,"KEY")
- ;;ORB URGENCY^CRITICAL LAB RESULTS (ACTION)
- ;;1830,"VAL")
- ;;High
- ;;1842,"KEY")
- ;;ORPF SETUP ACTION^1
- ;;1842,"VAL")
- ;;-1
- ;;1907,"KEY")
- ;;ORB PROVIDER RECIPIENTS^IMAGING REQUEST CANCEL/HELD
- ;;1907,"VAL")
- ;;O
- ;;1971,"KEY")
- ;;ORLP DEFAULT CLINIC START DATE^1
- ;;1971,"VAL")
- ;;T
- ;;1972,"KEY")
- ;;ORLP DEFAULT CLINIC STOP DATE^1
- ;;1972,"VAL")
- ;;T
- ;;1973,"KEY")
- ;;ORQQAP SEARCH RANGE START^1
- ;;1973,"VAL")
- ;;T
- ;;1974,"KEY")
- ;;ORQQAP SEARCH RANGE STOP^1
- ;;1974,"VAL")
- ;;T+90
- ;;1975,"KEY")
- ;;ORQQVS SEARCH RANGE START^1
- ;;1975,"VAL")
- ;;T-365
- ;;1976,"KEY")
- ;;ORQQVS SEARCH RANGE STOP^1
- ;;1976,"VAL")
- ;;T
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORXPAR09 5638 printed Jan 18, 2025@03:39:16 Page 2
- ORXPAR09 ; ; Dec 17, 1997@11:35:35
- +1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
- +2 ;;
- 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 ;;1135,"VAL")
- +2 ;;0
- +3 ;;1136,"KEY")
- +4 ;;ORB FORWARD SURROGATES^TRANSFER FROM PSYCHIATRY
- +5 ;;1136,"VAL")
- +6 ;;0
- +7 ;;1137,"KEY")
- +8 ;;ORB FORWARD SURROGATES^ORDER REQUIRES CO-SIGNATURE
- +9 ;;1137,"VAL")
- +10 ;;0
- +11 ;;1139,"KEY")
- +12 ;;ORB FORWARD SURROGATES^SITE-FLAGGED ORDER
- +13 ;;1139,"VAL")
- +14 ;;0
- +15 ;;1140,"KEY")
- +16 ;;ORB FORWARD SURROGATES^LAB ORDER CANCELED
- +17 ;;1140,"VAL")
- +18 ;;0
- +19 ;;1141,"KEY")
- +20 ;;ORB FORWARD SURROGATES^STAT ORDER
- +21 ;;1141,"VAL")
- +22 ;;0
- +23 ;;1142,"KEY")
- +24 ;;ORB FORWARD SURROGATES^STAT RESULTS
- +25 ;;1142,"VAL")
- +26 ;;0
- +27 ;;1143,"KEY")
- +28 ;;ORB FORWARD SURROGATES^DNR EXPIRING
- +29 ;;1143,"VAL")
- +30 ;;0
- +31 ;;1144,"KEY")
- +32 ;;ORB FORWARD SURROGATES^FREE TEXT
- +33 ;;1144,"VAL")
- +34 ;;0
- +35 ;;1145,"KEY")
- +36 ;;ORB FORWARD SURROGATES^MEDICATIONS EXPIRING
- +37 ;;1145,"VAL")
- +38 ;;0
- +39 ;;1146,"KEY")
- +40 ;;ORB FORWARD SURROGATES^UNVERIFIED MEDICATION ORDER
- +41 ;;1146,"VAL")
- +42 ;;0
- +43 ;;1147,"KEY")
- +44 ;;ORB FORWARD SURROGATES^NEW ORDER
- +45 ;;1147,"VAL")
- +46 ;;0
- +47 ;;1148,"KEY")
- +48 ;;ORB FORWARD SURROGATES^STAT IMAGING REQUEST
- +49 ;;1148,"VAL")
- +50 ;;0
- +51 ;;1149,"KEY")
- +52 ;;ORB FORWARD SURROGATES^URGENT IMAGING REQUEST
- +53 ;;1149,"VAL")
- +54 ;;0
- +55 ;;1150,"KEY")
- +56 ;;ORB FORWARD SURROGATES^IMAGING RESULTS AMENDED
- +57 ;;1150,"VAL")
- +58 ;;0
- +59 ;;1151,"KEY")
- +60 ;;ORB FORWARD SURROGATES^ORDER CHECK
- +61 ;;1151,"VAL")
- +62 ;;0
- +63 ;;1152,"KEY")
- +64 ;;ORB FORWARD SURROGATES^FOOD/DRUG INTERACTION
- +65 ;;1152,"VAL")
- +66 ;;0
- +67 ;;1153,"KEY")
- +68 ;;ORB FORWARD SURROGATES^ERROR MESSAGE
- +69 ;;1153,"VAL")
- +70 ;;0
- +71 ;;1156,"KEY")
- +72 ;;ORB SYSTEM ENABLE/DISABLE^1
- +73 ;;1156,"VAL")
- +74 ;;Disable
- +75 ;;1178,"KEY")
- +76 ;;ORK DEBUG ENABLE/DISABLE^1
- +77 ;;1178,"VAL")
- +78 ;;Disable
- +79 ;;1179,"KEY")
- +80 ;;ORB URGENCY^ERROR MESSAGE
- +81 ;;1179,"VAL")
- +82 ;;Low
- +83 ;;1222,"KEY")
- +84 ;;ORK CLINICAL DANGER LEVEL^POLYPHARMACY
- +85 ;;1222,"VAL")
- +86 ;;Moderate
- +87 ;;1223,"KEY")
- +88 ;;ORK PROCESSING FLAG^POLYPHARMACY
- +89 ;;1223,"VAL")
- +90 ;;Enabled
- +91 ;;1246,"KEY")
- +92 ;;ORK PROCESSING FLAG^DISPENSE DRUG NOT SELECTED
- +93 ;;1246,"VAL")
- +94 ;;Enabled
- +95 ;;1247,"KEY")
- +96 ;;ORK CLINICAL DANGER LEVEL^DISPENSE DRUG NOT SELECTED
- +97 ;;1247,"VAL")
- +98 ;;Moderate
- +99 ;;1389,"KEY")
- +100 ;;ORB DELETE MECHANISM^LAB RESULTS
- +101 ;;1389,"VAL")
- +102 ;;Individual Recipient
- +103 ;;1390,"KEY")
- +104 ;;ORB URGENCY^LAB RESULTS
- +105 ;;1390,"VAL")
- +106 ;;Moderate
- +107 ;;1391,"KEY")
- +108 ;;ORB PROVIDER RECIPIENTS^LAB RESULTS
- +109 ;;1391,"VAL")
- +110 ;;OAPT
- +111 ;;1599,"KEY")
- +112 ;;ORB PROVIDER RECIPIENTS^FREE TEXT
- +113 ;;1599,"VAL")
- +114 ;;O
- +115 ;;1649,"KEY")
- +116 ;;ORWT TOOLS MENU^1
- +117 ;;1649,"VAL")
- +118 ;;&Calculator=Calc.exe
- +119 ;;1650,"KEY")
- +120 ;;ORWT TOOLS MENU^2
- +121 ;;1650,"VAL")
- +122 ;;&Time=Clock.exe
- +123 ;;1651,"KEY")
- +124 ;;ORWT TOOLS MENU^3
- +125 ;;1651,"VAL")
- +126 ;;&Windows Introduction=WinHlp32 Windows.hlp
- +127 ;;1773,"KEY")
- +128 ;;ORCH CONTEXT NOTES^1
- +129 ;;1773,"VAL")
- +130 ;;;;1;;100
- +131 ;;1774,"KEY")
- +132 ;;ORCH CONTEXT SUMMRIES^1
- +133 ;;1774,"VAL")
- +134 ;;;;1;
- +135 ;;1775,"KEY")
- +136 ;;ORCH CONTEXT PROBLEMS^1
- +137 ;;1775,"VAL")
- +138 ;;;;A;1
- +139 ;;1776,"KEY")
- +140 ;;ORCH CONTEXT ORDERS^1
- +141 ;;1776,"VAL")
- +142 ;;;;2;ALL;L
- +143 ;;1777,"KEY")
- +144 ;;ORCH CONTEXT INPT MEDS^1
- +145 ;;1777,"VAL")
- +146 ;;;;1
- +147 ;;1778,"KEY")
- +148 ;;ORCH CONTEXT XRAYS^1
- +149 ;;1778,"VAL")
- +150 ;;T-1826;T;;;10
- +151 ;;1779,"KEY")
- +152 ;;ORCH CONTEXT OUTPT LABS^1
- +153 ;;1779,"VAL")
- +154 ;;T-180;NOW;C
- +155 ;;1780,"KEY")
- +156 ;;ORCH CONTEXT INPT LABS^1
- +157 ;;1780,"VAL")
- +158 ;;T-7;NOW;C
- +159 ;;1781,"KEY")
- +160 ;;ORCH CONTEXT CONSULTS^1
- +161 ;;1781,"VAL")
- +162 ;;;;;
- +163 ;;1782,"KEY")
- +164 ;;ORCH CONTEXT REPORTS^1
- +165 ;;1782,"VAL")
- +166 ;;T-1826;T;;;10
- +167 ;;1790,"KEY")
- +168 ;;OR SIGNED ON CHART^1
- +169 ;;1790,"VAL")
- +170 ;;NO
- +171 ;;1817,"KEY")
- +172 ;;ORB ARCHIVE PERIOD^ABNORMAL LAB RESULT (INFO)
- +173 ;;1817,"VAL")
- +174 ;;30
- +175 ;;1818,"KEY")
- +176 ;;ORB ARCHIVE PERIOD^CRITICAL LAB RESULTS (ACTION)
- +177 ;;1818,"VAL")
- +178 ;;30
- +179 ;;1819,"KEY")
- +180 ;;ORB DELETE MECHANISM^CRITICAL LAB RESULTS (ACTION)
- +181 ;;1819,"VAL")
- +182 ;;Individual Recipient
- +183 ;;1820,"KEY")
- +184 ;;ORB DELETE MECHANISM^ABNORMAL LAB RESULT (INFO)
- +185 ;;1820,"VAL")
- +186 ;;Individual Recipient
- +187 ;;1821,"KEY")
- +188 ;;ORB FORWARD SUPERVISOR^ABNORMAL LAB RESULT (INFO)
- +189 ;;1821,"VAL")
- +190 ;;0
- +191 ;;1822,"KEY")
- +192 ;;ORB FORWARD SUPERVISOR^CRITICAL LAB RESULTS (ACTION)
- +193 ;;1822,"VAL")
- +194 ;;0
- +195 ;;1823,"KEY")
- +196 ;;ORB FORWARD SURROGATES^CRITICAL LAB RESULTS (ACTION)
- +197 ;;1823,"VAL")
- +198 ;;0
- +199 ;;1824,"KEY")
- +200 ;;ORB FORWARD SURROGATES^ABNORMAL LAB RESULT (INFO)
- +201 ;;1824,"VAL")
- +202 ;;0
- +203 ;;1825,"KEY")
- +204 ;;ORB PROCESSING FLAG^ABNORMAL LAB RESULT (INFO)
- +205 ;;1825,"VAL")
- +206 ;;Disabled
- +207 ;;1826,"KEY")
- +208 ;;ORB PROCESSING FLAG^CRITICAL LAB RESULTS (ACTION)
- +209 ;;1826,"VAL")
- +210 ;;Disabled
- +211 ;;1827,"KEY")
- +212 ;;ORB PROVIDER RECIPIENTS^CRITICAL LAB RESULTS (ACTION)
- +213 ;;1827,"VAL")
- +214 ;;OAPT
- +215 ;;1828,"KEY")
- +216 ;;ORB PROVIDER RECIPIENTS^ABNORMAL LAB RESULT (INFO)
- +217 ;;1828,"VAL")
- +218 ;;OAPT
- +219 ;;1829,"KEY")
- +220 ;;ORB URGENCY^ABNORMAL LAB RESULT (INFO)
- +221 ;;1829,"VAL")
- +222 ;;Moderate
- +223 ;;1830,"KEY")
- +224 ;;ORB URGENCY^CRITICAL LAB RESULTS (ACTION)
- +225 ;;1830,"VAL")
- +226 ;;High
- +227 ;;1842,"KEY")
- +228 ;;ORPF SETUP ACTION^1
- +229 ;;1842,"VAL")
- +230 ;;-1
- +231 ;;1907,"KEY")
- +232 ;;ORB PROVIDER RECIPIENTS^IMAGING REQUEST CANCEL/HELD
- +233 ;;1907,"VAL")
- +234 ;;O
- +235 ;;1971,"KEY")
- +236 ;;ORLP DEFAULT CLINIC START DATE^1
- +237 ;;1971,"VAL")
- +238 ;;T
- +239 ;;1972,"KEY")
- +240 ;;ORLP DEFAULT CLINIC STOP DATE^1
- +241 ;;1972,"VAL")
- +242 ;;T
- +243 ;;1973,"KEY")
- +244 ;;ORQQAP SEARCH RANGE START^1
- +245 ;;1973,"VAL")
- +246 ;;T
- +247 ;;1974,"KEY")
- +248 ;;ORQQAP SEARCH RANGE STOP^1
- +249 ;;1974,"VAL")
- +250 ;;T+90
- +251 ;;1975,"KEY")
- +252 ;;ORQQVS SEARCH RANGE START^1
- +253 ;;1975,"VAL")
- +254 ;;T-365
- +255 ;;1976,"KEY")
- +256 ;;ORQQVS SEARCH RANGE STOP^1
- +257 ;;1976,"VAL")
- +258 ;;T