ORXPAR07 ; ; 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
G ^ORXPAR08
DATA ; parameter data
;;885,"VAL",26,0)
;;any time during a session by this method. The defined filters remain in
;;885,"VAL",27,0)
;;effect for the duration of the session or until changed again. To quickly
;;885,"VAL",28,0)
;;return to the user's default or preferred view, Click the Preferred View
;;885,"VAL",29,0)
;;button.
;;886,"KEY")
;;ORWUH WHATSTHIS^wgProbData
;;886,"VAL")
;;Patient Problem List
;;886,"VAL",1,0)
;;Patient Problem List
;;886,"VAL",2,0)
;;
;;886,"VAL",3,0)
;;This grid displays the current patient's problems. It may be
;;886,"VAL",4,0)
;;filtered to display All problems, Active Problems, Inactive Problems
;;886,"VAL",5,0)
;;or Removed problems by selecting the appropriate item from the
;;886,"VAL",6,0)
;;View menu. The ability to use certain display filters may be
;;886,"VAL",7,0)
;;restricted for some users.
;;886,"VAL",8,0)
;;
;;886,"VAL",9,0)
;;The actions Change (or Edit), Inactivate, Verify, Annotate, Remove
;;886,"VAL",10,0)
;;and Restore may be selected from the upper Action menu. They are also
;;886,"VAL",11,0)
;;available via a popup menu that appears with a right mouse button click.
;;886,"VAL",12,0)
;;As is the case for display filters, some actions are restricted for
;;886,"VAL",13,0)
;;certain users. If an action is restricted, the user will not be able to
;;886,"VAL",14,0)
;;select it.
;;886,"VAL",15,0)
;;
;;886,"VAL",16,0)
;;NOTE: A PROBLEM MUST BE SELECTED BEFORE ANY ACTIONS ARE AVAILABLE.
;;886,"VAL",17,0)
;;If you select the Action Menu, or right click and find all options grayed,
;;886,"VAL",18,0)
;;then you have not selected a problem to act on. Select a problem from the
;;886,"VAL",19,0)
;;list by clicking on it.
;;886,"VAL",20,0)
;;
;;886,"VAL",21,0)
;;As a convenience, you may double click on a problem in the list to Change
;;886,"VAL",22,0)
;;(Edit) it.
;;886,"VAL",23,0)
;;
;;886,"VAL",24,0)
;;The Change, Annotate, Remove and Restore options cause a form to appear on
;;886,"VAL",25,0)
;;the right. Use the form to further characterize and describe the problem.
;;886,"VAL",26,0)
;;
;;886,"VAL",27,0)
;;The inactivate action will either cause a list item to disappear (this
;;886,"VAL",28,0)
;;will happen in the case that the display filter is set to Active only) or
;;886,"VAL",29,0)
;;an 'I' indicating its new status will appear next to it on the list.
;;886,"VAL",30,0)
;;
;;886,"VAL",31,0)
;;The Verify action will cause the unverified indicator ('u') to be removed
;;886,"VAL",32,0)
;;from the line.
;;887,"KEY")
;;ORWUH WHATSTHIS^lstCatPick
;;887,"VAL")
;;Problem Category Selection
;;887,"VAL",1,0)
;;Problem Category Selection
;;887,"VAL",2,0)
;;
;;887,"VAL",3,0)
;;Problem ctegories are comprised of one or more related problems. Typically
;;887,"VAL",4,0)
;;they are defined for a particular user or department.
;;887,"VAL",5,0)
;;
;;887,"VAL",6,0)
;;Select a category from the list by clicking on it. This action will cause
;;887,"VAL",7,0)
;;the constituent problems to appear in the Problem Selection List below.
;;887,"VAL",8,0)
;;Individual problems from the Problem Selection List may be selected for
;;887,"VAL",9,0)
;;addition to the patient's list.
;;893,"KEY")
;;ORB PROCESSING FLAG^IMAGING RESULTS AMENDED
;;893,"VAL")
;;Disabled
;;895,"KEY")
;;ORB PROCESSING FLAG^STAT IMAGING REQUEST
;;895,"VAL")
;;Disabled
;;896,"KEY")
;;ORB PROCESSING FLAG^URGENT IMAGING REQUEST
;;896,"VAL")
;;Disabled
;;900,"KEY")
;;ORK PROCESSING FLAG^LAB ORDER FREQ RESTRICTIONS
;;900,"VAL")
;;Enabled
;;901,"KEY")
;;ORK CLINICAL DANGER LEVEL^LAB ORDER FREQ RESTRICTIONS
;;901,"VAL")
;;Moderate
;;945,"KEY")
;;ORQQLR DATE RANGE INPT^1
;;945,"VAL")
;;2
;;946,"KEY")
;;ORPF LAST ORDER PURGED^1
;;946,"VAL")
;;
;;949,"KEY")
;;ORQQPX SEARCH ITEMS^1
;;949,"VAL")
;;VA-INFLUENZA VACCINE
;;950,"KEY")
;;ORQQPX SEARCH ITEMS^2
;;950,"VAL")
;;VA-PNEUMOVAX
;;951,"KEY")
;;ORQQPX SEARCH ITEMS^3
;;951,"VAL")
;;VA-BREAST EXAM
;;952,"KEY")
;;ORQQPX SEARCH ITEMS^4
;;952,"VAL")
;;VA-DIGITAL RECTAL (PROSTATE) EXAM
;;953,"KEY")
;;ORQQPX SEARCH ITEMS^5
;;953,"VAL")
;;VA-MAMMOGRAM
;;954,"KEY")
;;ORQQPX SEARCH ITEMS^6
;;954,"VAL")
;;VA-FLEXISIGMOIDOSCOPY
;;955,"KEY")
;;ORQQPX SEARCH ITEMS^7
;;955,"VAL")
;;VA-PAP SMEAR
;;956,"KEY")
;;ORQQPX SEARCH ITEMS^8
;;956,"VAL")
;;VA-TOBACCO EDUCATION
;;957,"KEY")
;;ORQQPX SEARCH ITEMS^9
;;957,"VAL")
;;VA-BREAST SELF EXAM EDUCATION
;;958,"KEY")
;;ORQQPX SEARCH ITEMS^10
;;958,"VAL")
;;VA-ADVANCED DIRECTIVES EDUCATION
;;1000,"KEY")
;;ORB DELETE MECHANISM^IMAGING RESULTS AMENDED
;;1000,"VAL")
;;Individual Recipient
;;1003,"KEY")
;;ORB PROVIDER RECIPIENTS^FOOD/DRUG INTERACTION
;;1003,"VAL")
;;
;;1005,"KEY")
;;ORB URGENCY^IMAGING RESULTS AMENDED
;;1005,"VAL")
;;Moderate
;;1007,"KEY")
;;ORB URGENCY^STAT IMAGING REQUEST
;;1007,"VAL")
;;Moderate
;;1008,"KEY")
;;ORB URGENCY^URGENT IMAGING REQUEST
;;1008,"VAL")
;;Moderate
;;1009,"KEY")
;;ORK CLINICAL DANGER LEVEL^GLUCOPHAGE-CONTRAST MEDIA
;;1009,"VAL")
;;High
;;1011,"KEY")
;;ORK CLINICAL DANGER LEVEL^ERROR MESSAGE
;;1011,"VAL")
;;Low
;;1012,"KEY")
;;ORK PROCESSING FLAG^ERROR MESSAGE
;;1012,"VAL")
;;Enabled
;;1015,"KEY")
;;ORB ARCHIVE PERIOD^ABNORMAL IMAGING RESULTS
;;1015,"VAL")
;;30
;;1016,"KEY")
;;ORB ARCHIVE PERIOD^ABNORMAL LAB RESULTS (ACTION)
;;1016,"VAL")
;;30
;;1017,"KEY")
;;ORB ARCHIVE PERIOD^ADMISSION
;;1017,"VAL")
;;30
;;1018,"KEY")
;;ORB ARCHIVE PERIOD^CONSULT/REQUEST CANCEL/HOLD
;;1018,"VAL")
;;30
;;1019,"KEY")
;;ORB ARCHIVE PERIOD^CONSULT/REQUEST RESOLUTION
;;1019,"VAL")
;;30
;;1021,"KEY")
;;ORB ARCHIVE PERIOD^CRITICAL LAB RESULT (INFO)
;;1021,"VAL")
;;30
;;1022,"KEY")
;;ORB ARCHIVE PERIOD^DECEASED PATIENT
;;1022,"VAL")
;;30
;;1023,"KEY")
;;ORB ARCHIVE PERIOD^DISCHARGE
;;1023,"VAL")
;;30
;;1024,"KEY")
;;ORB ARCHIVE PERIOD^DNR EXPIRING
;;1024,"VAL")
;;30
;;1025,"KEY")
;;ORB ARCHIVE PERIOD^ERROR MESSAGE
;;1025,"VAL")
;;30
;;1026,"KEY")
;;ORB ARCHIVE PERIOD^FLAGGED ORDERS
;;1026,"VAL")
;;30
;;1027,"KEY")
;;ORB ARCHIVE PERIOD^FOOD/DRUG INTERACTION
;;1027,"VAL")
;;30
;;1028,"KEY")
;;ORB ARCHIVE PERIOD^FREE TEXT
;;1028,"VAL")
;;30
;;1030,"KEY")
;;ORB ARCHIVE PERIOD^IMAGING PATIENT EXAMINED
;;1030,"VAL")
;;30
;;1031,"KEY")
;;ORB ARCHIVE PERIOD^IMAGING REQUEST CANCEL/HELD
;;1031,"VAL")
;;30
;;1032,"KEY")
;;ORB ARCHIVE PERIOD^IMAGING RESULTS
;;1032,"VAL")
;;30
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORXPAR07 7094 printed Sep 23, 2025@20:14:25 Page 2
ORXPAR07 ; ; 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 GOTO ^ORXPAR08
DATA ; parameter data
+1 ;;885,"VAL",26,0)
+2 ;;any time during a session by this method. The defined filters remain in
+3 ;;885,"VAL",27,0)
+4 ;;effect for the duration of the session or until changed again. To quickly
+5 ;;885,"VAL",28,0)
+6 ;;return to the user's default or preferred view, Click the Preferred View
+7 ;;885,"VAL",29,0)
+8 ;;button.
+9 ;;886,"KEY")
+10 ;;ORWUH WHATSTHIS^wgProbData
+11 ;;886,"VAL")
+12 ;;Patient Problem List
+13 ;;886,"VAL",1,0)
+14 ;;Patient Problem List
+15 ;;886,"VAL",2,0)
+16 ;;
+17 ;;886,"VAL",3,0)
+18 ;;This grid displays the current patient's problems. It may be
+19 ;;886,"VAL",4,0)
+20 ;;filtered to display All problems, Active Problems, Inactive Problems
+21 ;;886,"VAL",5,0)
+22 ;;or Removed problems by selecting the appropriate item from the
+23 ;;886,"VAL",6,0)
+24 ;;View menu. The ability to use certain display filters may be
+25 ;;886,"VAL",7,0)
+26 ;;restricted for some users.
+27 ;;886,"VAL",8,0)
+28 ;;
+29 ;;886,"VAL",9,0)
+30 ;;The actions Change (or Edit), Inactivate, Verify, Annotate, Remove
+31 ;;886,"VAL",10,0)
+32 ;;and Restore may be selected from the upper Action menu. They are also
+33 ;;886,"VAL",11,0)
+34 ;;available via a popup menu that appears with a right mouse button click.
+35 ;;886,"VAL",12,0)
+36 ;;As is the case for display filters, some actions are restricted for
+37 ;;886,"VAL",13,0)
+38 ;;certain users. If an action is restricted, the user will not be able to
+39 ;;886,"VAL",14,0)
+40 ;;select it.
+41 ;;886,"VAL",15,0)
+42 ;;
+43 ;;886,"VAL",16,0)
+44 ;;NOTE: A PROBLEM MUST BE SELECTED BEFORE ANY ACTIONS ARE AVAILABLE.
+45 ;;886,"VAL",17,0)
+46 ;;If you select the Action Menu, or right click and find all options grayed,
+47 ;;886,"VAL",18,0)
+48 ;;then you have not selected a problem to act on. Select a problem from the
+49 ;;886,"VAL",19,0)
+50 ;;list by clicking on it.
+51 ;;886,"VAL",20,0)
+52 ;;
+53 ;;886,"VAL",21,0)
+54 ;;As a convenience, you may double click on a problem in the list to Change
+55 ;;886,"VAL",22,0)
+56 ;;(Edit) it.
+57 ;;886,"VAL",23,0)
+58 ;;
+59 ;;886,"VAL",24,0)
+60 ;;The Change, Annotate, Remove and Restore options cause a form to appear on
+61 ;;886,"VAL",25,0)
+62 ;;the right. Use the form to further characterize and describe the problem.
+63 ;;886,"VAL",26,0)
+64 ;;
+65 ;;886,"VAL",27,0)
+66 ;;The inactivate action will either cause a list item to disappear (this
+67 ;;886,"VAL",28,0)
+68 ;;will happen in the case that the display filter is set to Active only) or
+69 ;;886,"VAL",29,0)
+70 ;;an 'I' indicating its new status will appear next to it on the list.
+71 ;;886,"VAL",30,0)
+72 ;;
+73 ;;886,"VAL",31,0)
+74 ;;The Verify action will cause the unverified indicator ('u') to be removed
+75 ;;886,"VAL",32,0)
+76 ;;from the line.
+77 ;;887,"KEY")
+78 ;;ORWUH WHATSTHIS^lstCatPick
+79 ;;887,"VAL")
+80 ;;Problem Category Selection
+81 ;;887,"VAL",1,0)
+82 ;;Problem Category Selection
+83 ;;887,"VAL",2,0)
+84 ;;
+85 ;;887,"VAL",3,0)
+86 ;;Problem ctegories are comprised of one or more related problems. Typically
+87 ;;887,"VAL",4,0)
+88 ;;they are defined for a particular user or department.
+89 ;;887,"VAL",5,0)
+90 ;;
+91 ;;887,"VAL",6,0)
+92 ;;Select a category from the list by clicking on it. This action will cause
+93 ;;887,"VAL",7,0)
+94 ;;the constituent problems to appear in the Problem Selection List below.
+95 ;;887,"VAL",8,0)
+96 ;;Individual problems from the Problem Selection List may be selected for
+97 ;;887,"VAL",9,0)
+98 ;;addition to the patient's list.
+99 ;;893,"KEY")
+100 ;;ORB PROCESSING FLAG^IMAGING RESULTS AMENDED
+101 ;;893,"VAL")
+102 ;;Disabled
+103 ;;895,"KEY")
+104 ;;ORB PROCESSING FLAG^STAT IMAGING REQUEST
+105 ;;895,"VAL")
+106 ;;Disabled
+107 ;;896,"KEY")
+108 ;;ORB PROCESSING FLAG^URGENT IMAGING REQUEST
+109 ;;896,"VAL")
+110 ;;Disabled
+111 ;;900,"KEY")
+112 ;;ORK PROCESSING FLAG^LAB ORDER FREQ RESTRICTIONS
+113 ;;900,"VAL")
+114 ;;Enabled
+115 ;;901,"KEY")
+116 ;;ORK CLINICAL DANGER LEVEL^LAB ORDER FREQ RESTRICTIONS
+117 ;;901,"VAL")
+118 ;;Moderate
+119 ;;945,"KEY")
+120 ;;ORQQLR DATE RANGE INPT^1
+121 ;;945,"VAL")
+122 ;;2
+123 ;;946,"KEY")
+124 ;;ORPF LAST ORDER PURGED^1
+125 ;;946,"VAL")
+126 ;;
+127 ;;949,"KEY")
+128 ;;ORQQPX SEARCH ITEMS^1
+129 ;;949,"VAL")
+130 ;;VA-INFLUENZA VACCINE
+131 ;;950,"KEY")
+132 ;;ORQQPX SEARCH ITEMS^2
+133 ;;950,"VAL")
+134 ;;VA-PNEUMOVAX
+135 ;;951,"KEY")
+136 ;;ORQQPX SEARCH ITEMS^3
+137 ;;951,"VAL")
+138 ;;VA-BREAST EXAM
+139 ;;952,"KEY")
+140 ;;ORQQPX SEARCH ITEMS^4
+141 ;;952,"VAL")
+142 ;;VA-DIGITAL RECTAL (PROSTATE) EXAM
+143 ;;953,"KEY")
+144 ;;ORQQPX SEARCH ITEMS^5
+145 ;;953,"VAL")
+146 ;;VA-MAMMOGRAM
+147 ;;954,"KEY")
+148 ;;ORQQPX SEARCH ITEMS^6
+149 ;;954,"VAL")
+150 ;;VA-FLEXISIGMOIDOSCOPY
+151 ;;955,"KEY")
+152 ;;ORQQPX SEARCH ITEMS^7
+153 ;;955,"VAL")
+154 ;;VA-PAP SMEAR
+155 ;;956,"KEY")
+156 ;;ORQQPX SEARCH ITEMS^8
+157 ;;956,"VAL")
+158 ;;VA-TOBACCO EDUCATION
+159 ;;957,"KEY")
+160 ;;ORQQPX SEARCH ITEMS^9
+161 ;;957,"VAL")
+162 ;;VA-BREAST SELF EXAM EDUCATION
+163 ;;958,"KEY")
+164 ;;ORQQPX SEARCH ITEMS^10
+165 ;;958,"VAL")
+166 ;;VA-ADVANCED DIRECTIVES EDUCATION
+167 ;;1000,"KEY")
+168 ;;ORB DELETE MECHANISM^IMAGING RESULTS AMENDED
+169 ;;1000,"VAL")
+170 ;;Individual Recipient
+171 ;;1003,"KEY")
+172 ;;ORB PROVIDER RECIPIENTS^FOOD/DRUG INTERACTION
+173 ;;1003,"VAL")
+174 ;;
+175 ;;1005,"KEY")
+176 ;;ORB URGENCY^IMAGING RESULTS AMENDED
+177 ;;1005,"VAL")
+178 ;;Moderate
+179 ;;1007,"KEY")
+180 ;;ORB URGENCY^STAT IMAGING REQUEST
+181 ;;1007,"VAL")
+182 ;;Moderate
+183 ;;1008,"KEY")
+184 ;;ORB URGENCY^URGENT IMAGING REQUEST
+185 ;;1008,"VAL")
+186 ;;Moderate
+187 ;;1009,"KEY")
+188 ;;ORK CLINICAL DANGER LEVEL^GLUCOPHAGE-CONTRAST MEDIA
+189 ;;1009,"VAL")
+190 ;;High
+191 ;;1011,"KEY")
+192 ;;ORK CLINICAL DANGER LEVEL^ERROR MESSAGE
+193 ;;1011,"VAL")
+194 ;;Low
+195 ;;1012,"KEY")
+196 ;;ORK PROCESSING FLAG^ERROR MESSAGE
+197 ;;1012,"VAL")
+198 ;;Enabled
+199 ;;1015,"KEY")
+200 ;;ORB ARCHIVE PERIOD^ABNORMAL IMAGING RESULTS
+201 ;;1015,"VAL")
+202 ;;30
+203 ;;1016,"KEY")
+204 ;;ORB ARCHIVE PERIOD^ABNORMAL LAB RESULTS (ACTION)
+205 ;;1016,"VAL")
+206 ;;30
+207 ;;1017,"KEY")
+208 ;;ORB ARCHIVE PERIOD^ADMISSION
+209 ;;1017,"VAL")
+210 ;;30
+211 ;;1018,"KEY")
+212 ;;ORB ARCHIVE PERIOD^CONSULT/REQUEST CANCEL/HOLD
+213 ;;1018,"VAL")
+214 ;;30
+215 ;;1019,"KEY")
+216 ;;ORB ARCHIVE PERIOD^CONSULT/REQUEST RESOLUTION
+217 ;;1019,"VAL")
+218 ;;30
+219 ;;1021,"KEY")
+220 ;;ORB ARCHIVE PERIOD^CRITICAL LAB RESULT (INFO)
+221 ;;1021,"VAL")
+222 ;;30
+223 ;;1022,"KEY")
+224 ;;ORB ARCHIVE PERIOD^DECEASED PATIENT
+225 ;;1022,"VAL")
+226 ;;30
+227 ;;1023,"KEY")
+228 ;;ORB ARCHIVE PERIOD^DISCHARGE
+229 ;;1023,"VAL")
+230 ;;30
+231 ;;1024,"KEY")
+232 ;;ORB ARCHIVE PERIOD^DNR EXPIRING
+233 ;;1024,"VAL")
+234 ;;30
+235 ;;1025,"KEY")
+236 ;;ORB ARCHIVE PERIOD^ERROR MESSAGE
+237 ;;1025,"VAL")
+238 ;;30
+239 ;;1026,"KEY")
+240 ;;ORB ARCHIVE PERIOD^FLAGGED ORDERS
+241 ;;1026,"VAL")
+242 ;;30
+243 ;;1027,"KEY")
+244 ;;ORB ARCHIVE PERIOD^FOOD/DRUG INTERACTION
+245 ;;1027,"VAL")
+246 ;;30
+247 ;;1028,"KEY")
+248 ;;ORB ARCHIVE PERIOD^FREE TEXT
+249 ;;1028,"VAL")
+250 ;;30
+251 ;;1030,"KEY")
+252 ;;ORB ARCHIVE PERIOD^IMAGING PATIENT EXAMINED
+253 ;;1030,"VAL")
+254 ;;30
+255 ;;1031,"KEY")
+256 ;;ORB ARCHIVE PERIOD^IMAGING REQUEST CANCEL/HELD
+257 ;;1031,"VAL")
+258 ;;30
+259 ;;1032,"KEY")
+260 ;;ORB ARCHIVE PERIOD^IMAGING RESULTS
+261 ;;1032,"VAL")
+262 ;;30
