ORXPAR02 ; ; 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 ^ORXPAR03
DATA ; parameter data
;;57,"VAL",2,0)
;;further details for any of the meds, click the name of the medication.
;;58,"KEY")
;;ORWUH WHATSTHIS^lstCNoK
;;58,"VAL")
;;-1
;;58,"VAL",1,0)
;;Next of Kin
;;58,"VAL",2,0)
;;
;;58,"VAL",3,0)
;;This lists the name and address of the next of kin.
;;59,"KEY")
;;ORWUH WHATSTHIS^lstCNotif
;;59,"VAL")
;;-1
;;59,"VAL",1,0)
;;Notifications
;;59,"VAL",2,0)
;;
;;59,"VAL",3,0)
;;A list of active notifications or alerts appears here. To view the
;;59,"VAL",4,0)
;;notification in detail, and potentially take action on it:
;;59,"VAL",5,0)
;;
;;59,"VAL",6,0)
;;1) Click on the notification to select it.
;;59,"VAL",7,0)
;;
;;59,"VAL",8,0)
;;2) Choose 'View | Details...' from the menu.
;;59,"VAL",9,0)
;;
;;59,"VAL",10,0)
;;The window that appears depends on the notification selected.
;;60,"KEY")
;;ORWUH WHATSTHIS^lstCPostings
;;60,"VAL")
;;-1
;;60,"VAL",1,0)
;;Postings
;;60,"VAL",2,0)
;;
;;60,"VAL",3,0)
;;A list of active crises/warning notes and directives appears here. To see
;;60,"VAL",4,0)
;;the full text of the note:
;;60,"VAL",5,0)
;;
;;60,"VAL",6,0)
;;1) Click on the note to select it.
;;60,"VAL",7,0)
;;
;;60,"VAL",8,0)
;;2) Choose 'View | Details...' from the menu.
;;60,"VAL",9,0)
;;
;;60,"VAL",10,0)
;;A window with the full text of the note will appear.
;;61,"KEY")
;;ORWUH WHATSTHIS^lstCProblems
;;61,"VAL")
;;-1
;;61,"VAL",1,0)
;;Problems
;;61,"VAL",2,0)
;;
;;61,"VAL",3,0)
;;A thumbnail view of the problem list is presented here. To view a
;;61,"VAL",4,0)
;;problem in greater detail:
;;61,"VAL",5,0)
;;
;;61,"VAL",6,0)
;;1) Click on the problem to select it.
;;61,"VAL",7,0)
;;
;;61,"VAL",8,0)
;;2) Choose 'View | Details...' from the menu.
;;61,"VAL",9,0)
;;
;;61,"VAL",10,0)
;;A window containing detailed information about the selected problem will
;;61,"VAL",11,0)
;;appear.
;;62,"KEY")
;;ORWUH WHATSTHIS^lstCVisits
;;62,"VAL")
;;-1
;;62,"VAL",1,0)
;;Visits
;;62,"VAL",2,0)
;;
;;62,"VAL",3,0)
;;A list of clinic visits and hospital admissions appears here. To see the
;;62,"VAL",4,0)
;;progress note from a clinic visit or discharge summary from an admission:
;;62,"VAL",5,0)
;;
;;62,"VAL",6,0)
;;1) Click on the visit to select it.
;;62,"VAL",7,0)
;;
;;62,"VAL",8,0)
;;2) Choose 'View | Details...' from the menu.
;;62,"VAL",9,0)
;;
;;62,"VAL",10,0)
;;A window with the note or summary will appear.
;;63,"KEY")
;;ORWUH WHATSTHIS^memCsltData
;;63,"VAL")
;;-1
;;63,"VAL",1,0)
;;Consult Report
;;63,"VAL",2,0)
;;
;;63,"VAL",3,0)
;;The text of a consult report is listed here.
;;64,"KEY")
;;ORWUH WHATSTHIS^memNotesData
;;64,"VAL")
;;-1
;;64,"VAL",1,0)
;;Progress Note
;;64,"VAL",2,0)
;;
;;64,"VAL",3,0)
;;Progress notes may be viewed and written here. When writing progress
;;64,"VAL",4,0)
;;notes, you may use the 'Action' menu to:
;;64,"VAL",5,0)
;;
;;64,"VAL",6,0)
;;1) Link the note to a problem.
;;64,"VAL",7,0)
;;
;;64,"VAL",8,0)
;;2) Place orders.
;;64,"VAL",9,0)
;;
;;64,"VAL",10,0)
;;3) View recent lab results to include into the note.
;;64,"VAL",11,0)
;;
;;64,"VAL",12,0)
;;The edit menu may be used to copy other places in the chart which many
;;64,"VAL",13,0)
;;then be pasted into a note.
;;65,"KEY")
;;ORWUH WHATSTHIS^memRadData
;;65,"VAL")
;;-1
;;65,"VAL",1,0)
;;Radiology Report
;;65,"VAL",2,0)
;;
;;65,"VAL",3,0)
;;The text of a radiology report is listed here.
;;66,"KEY")
;;ORWUH WHATSTHIS^memSpecData
;;66,"VAL")
;;-1
;;66,"VAL",1,0)
;;Specials Report
;;66,"VAL",2,0)
;;
;;66,"VAL",3,0)
;;The text of reports is displayed here.
;;67,"KEY")
;;ORWUH WHATSTHIS^memSummData
;;67,"VAL")
;;-1
;;67,"VAL",1,0)
;;Summary
;;67,"VAL",2,0)
;;
;;67,"VAL",3,0)
;;The text of the selected discharge summary appears here.
;;68,"KEY")
;;ORWUH WHATSTHIS^lstCsltList
;;68,"VAL")
;;-1
;;68,"VAL",1,0)
;;Consult List
;;68,"VAL",2,0)
;;
;;68,"VAL",3,0)
;;A list of pending and completed consults is listed here. To view a
;;68,"VAL",4,0)
;;consult, click on the title.
;;69,"KEY")
;;ORWUH WHATSTHIS^outMedsSheet
;;69,"VAL")
;;-1
;;69,"VAL",1,0)
;;Med Profile
;;69,"VAL",2,0)
;;
;;69,"VAL",3,0)
;;The selected item in this list determines what will be seen in the grid to
;;69,"VAL",4,0)
;;the right. You may toggle between inpatient and outpatient medication
;;69,"VAL",5,0)
;;profiles. 'Scratch Pad' is a place were new med orders may be composed.
;;69,"VAL",6,0)
;;They will not be placed, however, until they are moved to an inpatient or
;;69,"VAL",7,0)
;;outpatient sheet.
;;70,"KEY")
;;ORWUH WHATSTHIS^lstMedsWrite
;;70,"VAL")
;;-1
;;70,"VAL",1,0)
;;Write Prescriptions
;;70,"VAL",2,0)
;;
;;70,"VAL",3,0)
;;This list contains commonly prescribed medications or VA drug classes
;;70,"VAL",4,0)
;;(depending on your selected preference). To write a new medication order:
;;70,"VAL",5,0)
;;
;;70,"VAL",6,0)
;;1) Click on a medication or 'other'.
;;70,"VAL",7,0)
;;
;;70,"VAL",8,0)
;;2) Upon selecting an item from the list, a dialog will appear that will
;;70,"VAL",9,0)
;;allow you to enter instructions for the medication.
;;70,"VAL",10,0)
;;
;;70,"VAL",11,0)
;;When closing this dialog, the new medication will be placed on the current
;;70,"VAL",12,0)
;;medications grid.
;;71,"KEY")
;;ORWUH WHATSTHIS^lstNotesList
;;71,"VAL")
;;-1
;;71,"VAL",1,0)
;;Notes List
;;71,"VAL",2,0)
;;
;;71,"VAL",3,0)
;;Titles of existing progress notes are listed here. To view a progress
;;71,"VAL",4,0)
;;note, simply click on the title. To write a new progress note:
;;71,"VAL",5,0)
;;
;;71,"VAL",6,0)
;;1) Click on 'New Progress Note', at the very top of the list.
;;71,"VAL",7,0)
;;
;;71,"VAL",8,0)
;;2) When 'New Progress Note' is clicked, a list of boilerplates appears.
;;71,"VAL",9,0)
;;You may select a boilerplate or just begin typing.
;;71,"VAL",10,0)
;;
;;71,"VAL",11,0)
;;3) To sign the progress note, choose 'Action | Sign' from the menu.
;;71,"VAL",12,0)
;;
;;71,"VAL",13,0)
;;The set of notes listed may be changed by choosing items from the 'View'
;;71,"VAL",14,0)
;;menu.
;;72,"KEY")
;;ORWUH WHATSTHIS^outOrdersSheet
;;72,"VAL")
;;-1
;;72,"VAL",1,0)
;;Order Sheet
;;72,"VAL",2,0)
;;
;;72,"VAL",3,0)
;;A list of possible order's sheets appears here. You may choose from
;;72,"VAL",4,0)
;;current orders, admission orders (if the patient is currently an
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORXPAR02 7143 printed Sep 23, 2025@20:14:20 Page 2
ORXPAR02 ; ; 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 ^ORXPAR03
DATA ; parameter data
+1 ;;57,"VAL",2,0)
+2 ;;further details for any of the meds, click the name of the medication.
+3 ;;58,"KEY")
+4 ;;ORWUH WHATSTHIS^lstCNoK
+5 ;;58,"VAL")
+6 ;;-1
+7 ;;58,"VAL",1,0)
+8 ;;Next of Kin
+9 ;;58,"VAL",2,0)
+10 ;;
+11 ;;58,"VAL",3,0)
+12 ;;This lists the name and address of the next of kin.
+13 ;;59,"KEY")
+14 ;;ORWUH WHATSTHIS^lstCNotif
+15 ;;59,"VAL")
+16 ;;-1
+17 ;;59,"VAL",1,0)
+18 ;;Notifications
+19 ;;59,"VAL",2,0)
+20 ;;
+21 ;;59,"VAL",3,0)
+22 ;;A list of active notifications or alerts appears here. To view the
+23 ;;59,"VAL",4,0)
+24 ;;notification in detail, and potentially take action on it:
+25 ;;59,"VAL",5,0)
+26 ;;
+27 ;;59,"VAL",6,0)
+28 ;;1) Click on the notification to select it.
+29 ;;59,"VAL",7,0)
+30 ;;
+31 ;;59,"VAL",8,0)
+32 ;;2) Choose 'View | Details...' from the menu.
+33 ;;59,"VAL",9,0)
+34 ;;
+35 ;;59,"VAL",10,0)
+36 ;;The window that appears depends on the notification selected.
+37 ;;60,"KEY")
+38 ;;ORWUH WHATSTHIS^lstCPostings
+39 ;;60,"VAL")
+40 ;;-1
+41 ;;60,"VAL",1,0)
+42 ;;Postings
+43 ;;60,"VAL",2,0)
+44 ;;
+45 ;;60,"VAL",3,0)
+46 ;;A list of active crises/warning notes and directives appears here. To see
+47 ;;60,"VAL",4,0)
+48 ;;the full text of the note:
+49 ;;60,"VAL",5,0)
+50 ;;
+51 ;;60,"VAL",6,0)
+52 ;;1) Click on the note to select it.
+53 ;;60,"VAL",7,0)
+54 ;;
+55 ;;60,"VAL",8,0)
+56 ;;2) Choose 'View | Details...' from the menu.
+57 ;;60,"VAL",9,0)
+58 ;;
+59 ;;60,"VAL",10,0)
+60 ;;A window with the full text of the note will appear.
+61 ;;61,"KEY")
+62 ;;ORWUH WHATSTHIS^lstCProblems
+63 ;;61,"VAL")
+64 ;;-1
+65 ;;61,"VAL",1,0)
+66 ;;Problems
+67 ;;61,"VAL",2,0)
+68 ;;
+69 ;;61,"VAL",3,0)
+70 ;;A thumbnail view of the problem list is presented here. To view a
+71 ;;61,"VAL",4,0)
+72 ;;problem in greater detail:
+73 ;;61,"VAL",5,0)
+74 ;;
+75 ;;61,"VAL",6,0)
+76 ;;1) Click on the problem to select it.
+77 ;;61,"VAL",7,0)
+78 ;;
+79 ;;61,"VAL",8,0)
+80 ;;2) Choose 'View | Details...' from the menu.
+81 ;;61,"VAL",9,0)
+82 ;;
+83 ;;61,"VAL",10,0)
+84 ;;A window containing detailed information about the selected problem will
+85 ;;61,"VAL",11,0)
+86 ;;appear.
+87 ;;62,"KEY")
+88 ;;ORWUH WHATSTHIS^lstCVisits
+89 ;;62,"VAL")
+90 ;;-1
+91 ;;62,"VAL",1,0)
+92 ;;Visits
+93 ;;62,"VAL",2,0)
+94 ;;
+95 ;;62,"VAL",3,0)
+96 ;;A list of clinic visits and hospital admissions appears here. To see the
+97 ;;62,"VAL",4,0)
+98 ;;progress note from a clinic visit or discharge summary from an admission:
+99 ;;62,"VAL",5,0)
+100 ;;
+101 ;;62,"VAL",6,0)
+102 ;;1) Click on the visit to select it.
+103 ;;62,"VAL",7,0)
+104 ;;
+105 ;;62,"VAL",8,0)
+106 ;;2) Choose 'View | Details...' from the menu.
+107 ;;62,"VAL",9,0)
+108 ;;
+109 ;;62,"VAL",10,0)
+110 ;;A window with the note or summary will appear.
+111 ;;63,"KEY")
+112 ;;ORWUH WHATSTHIS^memCsltData
+113 ;;63,"VAL")
+114 ;;-1
+115 ;;63,"VAL",1,0)
+116 ;;Consult Report
+117 ;;63,"VAL",2,0)
+118 ;;
+119 ;;63,"VAL",3,0)
+120 ;;The text of a consult report is listed here.
+121 ;;64,"KEY")
+122 ;;ORWUH WHATSTHIS^memNotesData
+123 ;;64,"VAL")
+124 ;;-1
+125 ;;64,"VAL",1,0)
+126 ;;Progress Note
+127 ;;64,"VAL",2,0)
+128 ;;
+129 ;;64,"VAL",3,0)
+130 ;;Progress notes may be viewed and written here. When writing progress
+131 ;;64,"VAL",4,0)
+132 ;;notes, you may use the 'Action' menu to:
+133 ;;64,"VAL",5,0)
+134 ;;
+135 ;;64,"VAL",6,0)
+136 ;;1) Link the note to a problem.
+137 ;;64,"VAL",7,0)
+138 ;;
+139 ;;64,"VAL",8,0)
+140 ;;2) Place orders.
+141 ;;64,"VAL",9,0)
+142 ;;
+143 ;;64,"VAL",10,0)
+144 ;;3) View recent lab results to include into the note.
+145 ;;64,"VAL",11,0)
+146 ;;
+147 ;;64,"VAL",12,0)
+148 ;;The edit menu may be used to copy other places in the chart which many
+149 ;;64,"VAL",13,0)
+150 ;;then be pasted into a note.
+151 ;;65,"KEY")
+152 ;;ORWUH WHATSTHIS^memRadData
+153 ;;65,"VAL")
+154 ;;-1
+155 ;;65,"VAL",1,0)
+156 ;;Radiology Report
+157 ;;65,"VAL",2,0)
+158 ;;
+159 ;;65,"VAL",3,0)
+160 ;;The text of a radiology report is listed here.
+161 ;;66,"KEY")
+162 ;;ORWUH WHATSTHIS^memSpecData
+163 ;;66,"VAL")
+164 ;;-1
+165 ;;66,"VAL",1,0)
+166 ;;Specials Report
+167 ;;66,"VAL",2,0)
+168 ;;
+169 ;;66,"VAL",3,0)
+170 ;;The text of reports is displayed here.
+171 ;;67,"KEY")
+172 ;;ORWUH WHATSTHIS^memSummData
+173 ;;67,"VAL")
+174 ;;-1
+175 ;;67,"VAL",1,0)
+176 ;;Summary
+177 ;;67,"VAL",2,0)
+178 ;;
+179 ;;67,"VAL",3,0)
+180 ;;The text of the selected discharge summary appears here.
+181 ;;68,"KEY")
+182 ;;ORWUH WHATSTHIS^lstCsltList
+183 ;;68,"VAL")
+184 ;;-1
+185 ;;68,"VAL",1,0)
+186 ;;Consult List
+187 ;;68,"VAL",2,0)
+188 ;;
+189 ;;68,"VAL",3,0)
+190 ;;A list of pending and completed consults is listed here. To view a
+191 ;;68,"VAL",4,0)
+192 ;;consult, click on the title.
+193 ;;69,"KEY")
+194 ;;ORWUH WHATSTHIS^outMedsSheet
+195 ;;69,"VAL")
+196 ;;-1
+197 ;;69,"VAL",1,0)
+198 ;;Med Profile
+199 ;;69,"VAL",2,0)
+200 ;;
+201 ;;69,"VAL",3,0)
+202 ;;The selected item in this list determines what will be seen in the grid to
+203 ;;69,"VAL",4,0)
+204 ;;the right. You may toggle between inpatient and outpatient medication
+205 ;;69,"VAL",5,0)
+206 ;;profiles. 'Scratch Pad' is a place were new med orders may be composed.
+207 ;;69,"VAL",6,0)
+208 ;;They will not be placed, however, until they are moved to an inpatient or
+209 ;;69,"VAL",7,0)
+210 ;;outpatient sheet.
+211 ;;70,"KEY")
+212 ;;ORWUH WHATSTHIS^lstMedsWrite
+213 ;;70,"VAL")
+214 ;;-1
+215 ;;70,"VAL",1,0)
+216 ;;Write Prescriptions
+217 ;;70,"VAL",2,0)
+218 ;;
+219 ;;70,"VAL",3,0)
+220 ;;This list contains commonly prescribed medications or VA drug classes
+221 ;;70,"VAL",4,0)
+222 ;;(depending on your selected preference). To write a new medication order:
+223 ;;70,"VAL",5,0)
+224 ;;
+225 ;;70,"VAL",6,0)
+226 ;;1) Click on a medication or 'other'.
+227 ;;70,"VAL",7,0)
+228 ;;
+229 ;;70,"VAL",8,0)
+230 ;;2) Upon selecting an item from the list, a dialog will appear that will
+231 ;;70,"VAL",9,0)
+232 ;;allow you to enter instructions for the medication.
+233 ;;70,"VAL",10,0)
+234 ;;
+235 ;;70,"VAL",11,0)
+236 ;;When closing this dialog, the new medication will be placed on the current
+237 ;;70,"VAL",12,0)
+238 ;;medications grid.
+239 ;;71,"KEY")
+240 ;;ORWUH WHATSTHIS^lstNotesList
+241 ;;71,"VAL")
+242 ;;-1
+243 ;;71,"VAL",1,0)
+244 ;;Notes List
+245 ;;71,"VAL",2,0)
+246 ;;
+247 ;;71,"VAL",3,0)
+248 ;;Titles of existing progress notes are listed here. To view a progress
+249 ;;71,"VAL",4,0)
+250 ;;note, simply click on the title. To write a new progress note:
+251 ;;71,"VAL",5,0)
+252 ;;
+253 ;;71,"VAL",6,0)
+254 ;;1) Click on 'New Progress Note', at the very top of the list.
+255 ;;71,"VAL",7,0)
+256 ;;
+257 ;;71,"VAL",8,0)
+258 ;;2) When 'New Progress Note' is clicked, a list of boilerplates appears.
+259 ;;71,"VAL",9,0)
+260 ;;You may select a boilerplate or just begin typing.
+261 ;;71,"VAL",10,0)
+262 ;;
+263 ;;71,"VAL",11,0)
+264 ;;3) To sign the progress note, choose 'Action | Sign' from the menu.
+265 ;;71,"VAL",12,0)
+266 ;;
+267 ;;71,"VAL",13,0)
+268 ;;The set of notes listed may be changed by choosing items from the 'View'
+269 ;;71,"VAL",14,0)
+270 ;;menu.
+271 ;;72,"KEY")
+272 ;;ORWUH WHATSTHIS^outOrdersSheet
+273 ;;72,"VAL")
+274 ;;-1
+275 ;;72,"VAL",1,0)
+276 ;;Order Sheet
+277 ;;72,"VAL",2,0)
+278 ;;
+279 ;;72,"VAL",3,0)
+280 ;;A list of possible order's sheets appears here. You may choose from
+281 ;;72,"VAL",4,0)
+282 ;;current orders, admission orders (if the patient is currently an
