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 Oct 16, 2024@18:38:41 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
