ORXPAR06 ; ; 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 ^ORXPAR07
DATA ; parameter data
;;786,"VAL")
;;OR GXOXGN VENTILATOR
;;787,"KEY")
;;ORWD PTCARE RESP INPT^1
;;787,"VAL")
;;OR GXRESP TCDB
;;788,"KEY")
;;ORWD PTCARE RESP INPT^2
;;788,"VAL")
;;OR GXRESP CHEST PT
;;789,"KEY")
;;ORWD PTCARE RESP INPT^3
;;789,"VAL")
;;OR GXRESP SUCTION
;;790,"KEY")
;;ORWD PTCARE RESP INPT^4
;;790,"VAL")
;;OR GXRESP TRACH CARE
;;791,"KEY")
;;ORWD PTCARE SKIN INPT^1
;;791,"VAL")
;;OR GXSKIN COLD PACKS
;;792,"KEY")
;;ORWD PTCARE SKIN INPT^2
;;792,"VAL")
;;OR GXSKIN WARM PACKS
;;793,"KEY")
;;ORWD PTCARE SKIN INPT^3
;;793,"VAL")
;;OR GXSKIN WARM SOAKS
;;794,"KEY")
;;ORWD PTCARE SKIN INPT^4
;;794,"VAL")
;;OR GXSKIN AIR MATTRESS
;;795,"KEY")
;;ORWD PTCARE SKIN INPT^5
;;795,"VAL")
;;OR GXSKIN WATER MATTRESS
;;796,"KEY")
;;ORWD PTCARE SKIN INPT^6
;;796,"VAL")
;;OR GXSKIN SHEEPSKIN
;;797,"KEY")
;;ORWD PTCARE TUBES INPT^1
;;797,"VAL")
;;OR GXTUBE COLOSTOMY
;;798,"KEY")
;;ORWD PTCARE TUBES INPT^2
;;798,"VAL")
;;OR GXTUBE INDWELLING URINARY CATH
;;799,"KEY")
;;ORWD PTCARE TUBES INPT^3
;;799,"VAL")
;;OR GXTUBE HEMOVAC
;;800,"KEY")
;;ORWD PTCARE TUBES INPT^4
;;800,"VAL")
;;OR GXTUBE ILEOSTOMY
;;801,"KEY")
;;ORWD PTCARE TUBES INPT^5
;;801,"VAL")
;;OR GXTUBE JACKSON PRATT
;;802,"KEY")
;;ORWD PTCARE TUBES INPT^6
;;802,"VAL")
;;OR GXTUBE NASOGASTRIC
;;803,"KEY")
;;ORWD PTCARE TUBES INPT^7
;;803,"VAL")
;;OR GXTUBE PENROSE
;;804,"KEY")
;;ORWD PTCARE TUBES INPT^8
;;804,"VAL")
;;OR GXTUBE RECTAL TUBE
;;805,"KEY")
;;ORWD PTCARE TUBES INPT^9
;;805,"VAL")
;;OR GXTUBE UROSTOMY
;;830,"KEY")
;;ORLP DEFAULT LIST ORDER^1
;;830,"VAL")
;;Alphabetic
;;876,"KEY")
;;ORWUH WHATSTHIS^MYSTUFF
;;876,"VAL")
;;-1
;;877,"KEY")
;;ORK PROCESSING FLAG^GLUCOPHAGE-CONTRAST MEDIA
;;877,"VAL")
;;Enabled
;;881,"KEY")
;;ORWUH WHATSTHIS^
;;881,"VAL")
;;Problem Category Selection List
;;881,"VAL",1,0)
;;Each elemement on the list represents a category of problems. The list is typically personalized for the user or user's department. Select a particular category by clicking on it. Selection of a Category will cause a list of the individual
;;881,"VAL",2,0)
;;problems comprising the category to display in the Problem Selection List Below.
;;882,"KEY")
;;ORWUH WHATSTHIS^edProbEnt
;;882,"VAL")
;;Free Text Problem Entry
;;882,"VAL",1,0)
;;Free Text Problem Entry
;;882,"VAL",2,0)
;;
;;882,"VAL",3,0)
;;Enter the description for a problem to add to the patient's problem list.
;;882,"VAL",4,0)
;;After entering the text, press 'Enter'. A dialog box will appear on the
;;882,"VAL",5,0)
;;right, which allows further description, staging, and characterization
;;882,"VAL",6,0)
;;of the problem.
;;883,"KEY")
;;ORWUH WHATSTHIS^bbOtherProb
;;883,"VAL")
;;Problem Selection from Clinical Lexicon
;;883,"VAL",1,0)
;;Problem Selection from Clinical Lexicon
;;883,"VAL",2,0)
;;
;;883,"VAL",3,0)
;;Clicking this button will cause a dialog box to appear. Enter a problem
;;883,"VAL",4,0)
;;description or partial description into the edit box. Press 'Enter' or
;;883,"VAL",5,0)
;;click on the 'Search' button after the text has been entered.
;;883,"VAL",6,0)
;;
;;883,"VAL",7,0)
;;A list of descriptions consistent with the text entered will be returned
;;883,"VAL",8,0)
;;from a search of the lexicon. Select the coded description from the list
;;883,"VAL",9,0)
;;that best matches the text entry by clicking on it. If none of the list
;;883,"VAL",10,0)
;;items are an acceptable replacement for the text entered, the text entered
;;883,"VAL",11,0)
;;may be retained as the problem description. Simply press 'Enter' without
;;883,"VAL",12,0)
;;selection from the list in that case.
;;883,"VAL",13,0)
;;
;;883,"VAL",14,0)
;;Keep in mind, that searches of the Clinical Lexicon can consume a great
;;883,"VAL",15,0)
;;deal of time and resource, so it is best to keep the searches as narrow
;;883,"VAL",16,0)
;;as possible.
;;884,"KEY")
;;ORWUH WHATSTHIS^cbxRespProv
;;884,"VAL")
;;Change Responsible Provider
;;884,"VAL",1,0)
;;Change Responsible Provider
;;884,"VAL",2,0)
;;
;;884,"VAL",3,0)
;;The responsible provider for a problem may be changed from the default
;;884,"VAL",4,0)
;;value. Enter a new provider name or partial name into the combo box.
;;884,"VAL",5,0)
;;Pressing the 'Enter' key will cause a search of the provider table to
;;884,"VAL",6,0)
;;commence.
;;884,"VAL",7,0)
;;
;;884,"VAL",8,0)
;;A list of providers matching the text input will be returned. Select one
;;884,"VAL",9,0)
;;of the providers from the list by clicking on the appropriate list item.
;;884,"VAL",10,0)
;;
;;884,"VAL",11,0)
;;NOTE: Certain users may be restricted fromperforming this activity.
;;885,"KEY")
;;ORWUH WHATSTHIS^bbVuFilt
;;885,"VAL")
;;Set View Filters
;;885,"VAL",1,0)
;;Set View Filters
;;885,"VAL",2,0)
;;
;;885,"VAL",3,0)
;;Clicking this button will cause a dialog box to appear. The dialog allows
;;885,"VAL",4,0)
;;the user to filter a patient's problem list by patient type, location
;;885,"VAL",5,0)
;;and/or by provider.
;;885,"VAL",6,0)
;;
;;885,"VAL",7,0)
;;Click the appropriate radio button to confine the list to Out-Patient
;;885,"VAL",8,0)
;;visits or In-Patient visits. Click 'Both' to view problems for all visit
;;885,"VAL",9,0)
;;types.
;;885,"VAL",10,0)
;;
;;885,"VAL",11,0)
;;Select a provider from the drop down list to view problems for a single
;;885,"VAL",12,0)
;;provider, or select 'All' to view problems for all providers.
;;885,"VAL",13,0)
;;
;;885,"VAL",14,0)
;;The list box on the left will display a list of all of the patient's clinics
;;885,"VAL",15,0)
;;if the out-patient view was selected, or a list of hospital service names
;;885,"VAL",16,0)
;;if the in-patient view was selected. Viewing problems for specific
;;885,"VAL",17,0)
;;clinics/services is accomplished by highlighting an entry in the left side
;;885,"VAL",18,0)
;;list box, and clicking the '>' button. This action will cause the clinic
;;885,"VAL",19,0)
;;or service from the left to appear in the listbox on the right. The '>>'
;;885,"VAL",20,0)
;;button will move all items from the left to the right.
;;885,"VAL",21,0)
;;
;;885,"VAL",22,0)
;;To remove clinics/services from viewing, highlight the item on the right
;;885,"VAL",23,0)
;;and click the '<' button or use the '<<' button to remove them all.
;;885,"VAL",24,0)
;;
;;885,"VAL",25,0)
;;The user's default view filters are used initially, but may be changed at
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORXPAR06 7111 printed Apr 09, 2024@21:36:27 Page 2
ORXPAR06 ; ; 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 ^ORXPAR07
DATA ; parameter data
+1 ;;786,"VAL")
+2 ;;OR GXOXGN VENTILATOR
+3 ;;787,"KEY")
+4 ;;ORWD PTCARE RESP INPT^1
+5 ;;787,"VAL")
+6 ;;OR GXRESP TCDB
+7 ;;788,"KEY")
+8 ;;ORWD PTCARE RESP INPT^2
+9 ;;788,"VAL")
+10 ;;OR GXRESP CHEST PT
+11 ;;789,"KEY")
+12 ;;ORWD PTCARE RESP INPT^3
+13 ;;789,"VAL")
+14 ;;OR GXRESP SUCTION
+15 ;;790,"KEY")
+16 ;;ORWD PTCARE RESP INPT^4
+17 ;;790,"VAL")
+18 ;;OR GXRESP TRACH CARE
+19 ;;791,"KEY")
+20 ;;ORWD PTCARE SKIN INPT^1
+21 ;;791,"VAL")
+22 ;;OR GXSKIN COLD PACKS
+23 ;;792,"KEY")
+24 ;;ORWD PTCARE SKIN INPT^2
+25 ;;792,"VAL")
+26 ;;OR GXSKIN WARM PACKS
+27 ;;793,"KEY")
+28 ;;ORWD PTCARE SKIN INPT^3
+29 ;;793,"VAL")
+30 ;;OR GXSKIN WARM SOAKS
+31 ;;794,"KEY")
+32 ;;ORWD PTCARE SKIN INPT^4
+33 ;;794,"VAL")
+34 ;;OR GXSKIN AIR MATTRESS
+35 ;;795,"KEY")
+36 ;;ORWD PTCARE SKIN INPT^5
+37 ;;795,"VAL")
+38 ;;OR GXSKIN WATER MATTRESS
+39 ;;796,"KEY")
+40 ;;ORWD PTCARE SKIN INPT^6
+41 ;;796,"VAL")
+42 ;;OR GXSKIN SHEEPSKIN
+43 ;;797,"KEY")
+44 ;;ORWD PTCARE TUBES INPT^1
+45 ;;797,"VAL")
+46 ;;OR GXTUBE COLOSTOMY
+47 ;;798,"KEY")
+48 ;;ORWD PTCARE TUBES INPT^2
+49 ;;798,"VAL")
+50 ;;OR GXTUBE INDWELLING URINARY CATH
+51 ;;799,"KEY")
+52 ;;ORWD PTCARE TUBES INPT^3
+53 ;;799,"VAL")
+54 ;;OR GXTUBE HEMOVAC
+55 ;;800,"KEY")
+56 ;;ORWD PTCARE TUBES INPT^4
+57 ;;800,"VAL")
+58 ;;OR GXTUBE ILEOSTOMY
+59 ;;801,"KEY")
+60 ;;ORWD PTCARE TUBES INPT^5
+61 ;;801,"VAL")
+62 ;;OR GXTUBE JACKSON PRATT
+63 ;;802,"KEY")
+64 ;;ORWD PTCARE TUBES INPT^6
+65 ;;802,"VAL")
+66 ;;OR GXTUBE NASOGASTRIC
+67 ;;803,"KEY")
+68 ;;ORWD PTCARE TUBES INPT^7
+69 ;;803,"VAL")
+70 ;;OR GXTUBE PENROSE
+71 ;;804,"KEY")
+72 ;;ORWD PTCARE TUBES INPT^8
+73 ;;804,"VAL")
+74 ;;OR GXTUBE RECTAL TUBE
+75 ;;805,"KEY")
+76 ;;ORWD PTCARE TUBES INPT^9
+77 ;;805,"VAL")
+78 ;;OR GXTUBE UROSTOMY
+79 ;;830,"KEY")
+80 ;;ORLP DEFAULT LIST ORDER^1
+81 ;;830,"VAL")
+82 ;;Alphabetic
+83 ;;876,"KEY")
+84 ;;ORWUH WHATSTHIS^MYSTUFF
+85 ;;876,"VAL")
+86 ;;-1
+87 ;;877,"KEY")
+88 ;;ORK PROCESSING FLAG^GLUCOPHAGE-CONTRAST MEDIA
+89 ;;877,"VAL")
+90 ;;Enabled
+91 ;;881,"KEY")
+92 ;;ORWUH WHATSTHIS^
+93 ;;881,"VAL")
+94 ;;Problem Category Selection List
+95 ;;881,"VAL",1,0)
+96 ;;Each elemement on the list represents a category of problems. The list is typically personalized for the user or user's department. Select a particular category by clicking on it. Selection of a Category will cause a list of the individual
+97 ;;881,"VAL",2,0)
+98 ;;problems comprising the category to display in the Problem Selection List Below.
+99 ;;882,"KEY")
+100 ;;ORWUH WHATSTHIS^edProbEnt
+101 ;;882,"VAL")
+102 ;;Free Text Problem Entry
+103 ;;882,"VAL",1,0)
+104 ;;Free Text Problem Entry
+105 ;;882,"VAL",2,0)
+106 ;;
+107 ;;882,"VAL",3,0)
+108 ;;Enter the description for a problem to add to the patient's problem list.
+109 ;;882,"VAL",4,0)
+110 ;;After entering the text, press 'Enter'. A dialog box will appear on the
+111 ;;882,"VAL",5,0)
+112 ;;right, which allows further description, staging, and characterization
+113 ;;882,"VAL",6,0)
+114 ;;of the problem.
+115 ;;883,"KEY")
+116 ;;ORWUH WHATSTHIS^bbOtherProb
+117 ;;883,"VAL")
+118 ;;Problem Selection from Clinical Lexicon
+119 ;;883,"VAL",1,0)
+120 ;;Problem Selection from Clinical Lexicon
+121 ;;883,"VAL",2,0)
+122 ;;
+123 ;;883,"VAL",3,0)
+124 ;;Clicking this button will cause a dialog box to appear. Enter a problem
+125 ;;883,"VAL",4,0)
+126 ;;description or partial description into the edit box. Press 'Enter' or
+127 ;;883,"VAL",5,0)
+128 ;;click on the 'Search' button after the text has been entered.
+129 ;;883,"VAL",6,0)
+130 ;;
+131 ;;883,"VAL",7,0)
+132 ;;A list of descriptions consistent with the text entered will be returned
+133 ;;883,"VAL",8,0)
+134 ;;from a search of the lexicon. Select the coded description from the list
+135 ;;883,"VAL",9,0)
+136 ;;that best matches the text entry by clicking on it. If none of the list
+137 ;;883,"VAL",10,0)
+138 ;;items are an acceptable replacement for the text entered, the text entered
+139 ;;883,"VAL",11,0)
+140 ;;may be retained as the problem description. Simply press 'Enter' without
+141 ;;883,"VAL",12,0)
+142 ;;selection from the list in that case.
+143 ;;883,"VAL",13,0)
+144 ;;
+145 ;;883,"VAL",14,0)
+146 ;;Keep in mind, that searches of the Clinical Lexicon can consume a great
+147 ;;883,"VAL",15,0)
+148 ;;deal of time and resource, so it is best to keep the searches as narrow
+149 ;;883,"VAL",16,0)
+150 ;;as possible.
+151 ;;884,"KEY")
+152 ;;ORWUH WHATSTHIS^cbxRespProv
+153 ;;884,"VAL")
+154 ;;Change Responsible Provider
+155 ;;884,"VAL",1,0)
+156 ;;Change Responsible Provider
+157 ;;884,"VAL",2,0)
+158 ;;
+159 ;;884,"VAL",3,0)
+160 ;;The responsible provider for a problem may be changed from the default
+161 ;;884,"VAL",4,0)
+162 ;;value. Enter a new provider name or partial name into the combo box.
+163 ;;884,"VAL",5,0)
+164 ;;Pressing the 'Enter' key will cause a search of the provider table to
+165 ;;884,"VAL",6,0)
+166 ;;commence.
+167 ;;884,"VAL",7,0)
+168 ;;
+169 ;;884,"VAL",8,0)
+170 ;;A list of providers matching the text input will be returned. Select one
+171 ;;884,"VAL",9,0)
+172 ;;of the providers from the list by clicking on the appropriate list item.
+173 ;;884,"VAL",10,0)
+174 ;;
+175 ;;884,"VAL",11,0)
+176 ;;NOTE: Certain users may be restricted fromperforming this activity.
+177 ;;885,"KEY")
+178 ;;ORWUH WHATSTHIS^bbVuFilt
+179 ;;885,"VAL")
+180 ;;Set View Filters
+181 ;;885,"VAL",1,0)
+182 ;;Set View Filters
+183 ;;885,"VAL",2,0)
+184 ;;
+185 ;;885,"VAL",3,0)
+186 ;;Clicking this button will cause a dialog box to appear. The dialog allows
+187 ;;885,"VAL",4,0)
+188 ;;the user to filter a patient's problem list by patient type, location
+189 ;;885,"VAL",5,0)
+190 ;;and/or by provider.
+191 ;;885,"VAL",6,0)
+192 ;;
+193 ;;885,"VAL",7,0)
+194 ;;Click the appropriate radio button to confine the list to Out-Patient
+195 ;;885,"VAL",8,0)
+196 ;;visits or In-Patient visits. Click 'Both' to view problems for all visit
+197 ;;885,"VAL",9,0)
+198 ;;types.
+199 ;;885,"VAL",10,0)
+200 ;;
+201 ;;885,"VAL",11,0)
+202 ;;Select a provider from the drop down list to view problems for a single
+203 ;;885,"VAL",12,0)
+204 ;;provider, or select 'All' to view problems for all providers.
+205 ;;885,"VAL",13,0)
+206 ;;
+207 ;;885,"VAL",14,0)
+208 ;;The list box on the left will display a list of all of the patient's clinics
+209 ;;885,"VAL",15,0)
+210 ;;if the out-patient view was selected, or a list of hospital service names
+211 ;;885,"VAL",16,0)
+212 ;;if the in-patient view was selected. Viewing problems for specific
+213 ;;885,"VAL",17,0)
+214 ;;clinics/services is accomplished by highlighting an entry in the left side
+215 ;;885,"VAL",18,0)
+216 ;;list box, and clicking the '>' button. This action will cause the clinic
+217 ;;885,"VAL",19,0)
+218 ;;or service from the left to appear in the listbox on the right. The '>>'
+219 ;;885,"VAL",20,0)
+220 ;;button will move all items from the left to the right.
+221 ;;885,"VAL",21,0)
+222 ;;
+223 ;;885,"VAL",22,0)
+224 ;;To remove clinics/services from viewing, highlight the item on the right
+225 ;;885,"VAL",23,0)
+226 ;;and click the '<' button or use the '<<' button to remove them all.
+227 ;;885,"VAL",24,0)
+228 ;;
+229 ;;885,"VAL",25,0)
+230 ;;The user's default view filters are used initially, but may be changed at
