source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrders.dfm@ 1806

Last change on this file since 1806 was 460, checked in by Kevin Toppenberg, 16 years ago

Uploading from OR_30_258
File size: 15.3 KB
RevLine 
[459]1inherited frmOrders: TfrmOrders
[460]2 Left = 451
3 Top = 250
4 Width = 774
[459]5 Height = 579
6 HelpContext = 4000
7 Caption = 'Orders Page'
8 HelpFile = 'overvw'
9 Menu = mnuOrders
10 OnDestroy = FormDestroy
11 OnShow = FormShow
12 PixelsPerInch = 96
13 TextHeight = 13
14 inherited shpPageBottom: TShape
15 Top = 528
[460]16 Width = 766
[459]17 end
18 inherited sptHorz: TSplitter
19 Left = 117
20 Height = 528
[460]21 OnMoved = sptHorzMoved
[459]22 end
23 inherited pnlLeft: TPanel
24 Width = 117
25 Height = 528
26 object OROffsetLabel1: TOROffsetLabel
27 Left = 0
28 Top = 0
29 Width = 117
30 Height = 19
31 Align = alTop
32 Caption = 'View Orders'
33 HorzOffset = 2
34 Transparent = False
35 VertOffset = 6
36 WordWrap = False
37 end
38 object lblWrite: TLabel
39 Left = 0
40 Top = 97
41 Width = 117
42 Height = 19
43 Align = alTop
44 AutoSize = False
45 Caption = 'Write Orders'
46 ParentShowHint = False
47 ShowHint = True
48 Layout = tlBottom
49 OnMouseMove = lblWriteMouseMove
50 end
51 object sptVert: TSplitter
52 Left = 0
53 Top = 75
54 Width = 117
55 Height = 4
56 Cursor = crVSplit
57 Align = alTop
58 end
59 object lstSheets: TORListBox
60 Left = 0
61 Top = 19
62 Width = 117
63 Height = 56
64 Align = alTop
65 ItemHeight = 13
66 ParentShowHint = False
67 ShowHint = True
68 TabOrder = 0
69 OnClick = lstSheetsClick
70 Caption = 'View Orders'
71 ItemTipColor = clWindow
72 LongList = False
73 Pieces = '2'
74 end
75 object lstWrite: TORListBox
76 Left = 0
77 Top = 116
78 Width = 117
79 Height = 412
80 Align = alClient
81 ItemHeight = 13
82 ParentShowHint = False
83 ShowHint = True
84 TabOrder = 2
85 OnClick = lstWriteClick
86 Caption = 'Write Orders'
87 ItemTipColor = clWindow
88 LongList = False
89 Pieces = '2'
90 end
91 object btnDelayedOrder: TORAlignButton
92 Left = 0
93 Top = 79
94 Width = 117
95 Height = 18
96 Caption = 'Write Delayed Orders'
97 TabOrder = 1
98 OnClick = btnDelayedOrderClick
99 Align = alTop
100 Alignment = taLeftJustify
101 end
102 end
103 inherited pnlRight: TPanel
104 Left = 121
[460]105 Width = 645
[459]106 Height = 528
107 ParentColor = True
108 ParentCtl3D = False
109 ParentFont = False
110 OnResize = pnlRightResize
111 object lblOrders: TOROffsetLabel
112 Left = 0
113 Top = 0
[460]114 Width = 645
[459]115 Height = 19
116 Align = alTop
117 Caption = 'Active Orders'
118 HorzOffset = 2
119 Transparent = False
120 VertOffset = 6
121 WordWrap = False
122 end
123 object imgHide: TImage
124 Left = 520
125 Top = 0
126 Width = 16
127 Height = 16
128 Hint = 'All Active Orders not Visible'
129 AutoSize = True
130 ParentShowHint = False
131 Picture.Data = {
132 07544269746D6170F6000000424DF60000000000000076000000280000001000
133 0000100000000100040000000000800000000000000000000000100000001000
134 0000000000000000800000800000008080008000000080008000808000008080
135 8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
136 FF003333000000000EEE33330FF00FBFB0EE33330F0BFB0BFB0E33330FF000BF
137 BFB033330FFF0BFBFBF033300000BF0FBFB0000FBFB0F0FB0BF0E0FB00000000
138 BF00E0BFBFBFBFB0F0F0E0FBFB0000000FF0E0BFBFBFBFB0FFF0E0FBFB00000F
139 0000E00FBFBFB0FF0FF0003000000FFF0F0333330FFFFFFF0033333300000000
140 0333}
141 ShowHint = True
142 Transparent = True
143 end
144 object hdrOrders: THeaderControl
145 Left = 0
146 Top = 19
[460]147 Width = 645
[459]148 Height = 17
149 DragReorder = False
150 Sections = <
151 item
152 ImageIndex = -1
153 Width = 0
154 end
155 item
156 ImageIndex = -1
157 MinWidth = 16
158 Text = 'Service'
159 Width = 50
160 end
161 item
162 ImageIndex = -1
163 MinWidth = 20
164 Text = 'Order'
165 Width = 210
166 end
167 item
168 ImageIndex = -1
169 MinWidth = 16
170 Text = 'Start / Stop'
171 Width = 100
172 end
173 item
174 ImageIndex = -1
175 MinWidth = 16
176 Text = 'Provider'
177 Width = 60
178 end
179 item
180 ImageIndex = -1
181 MinWidth = 16
[460]182 Text = 'Nurse'
[459]183 Width = 40
184 end
185 item
186 ImageIndex = -1
187 MinWidth = 16
[460]188 Text = 'Clerk'
[459]189 Width = 35
190 end
191 item
192 ImageIndex = -1
193 MinWidth = 16
194 Text = 'Chart'
195 Width = 35
196 end
197 item
198 ImageIndex = -1
199 MinWidth = 16
[460]200 Text = 'Status'
[459]201 Width = 50
202 end
203 item
204 ImageIndex = -1
205 MinWidth = 25
206 Text = 'Location'
207 Width = 40
208 end>
[460]209 OnSectionClick = hdrOrdersSectionClick
[459]210 OnSectionResize = hdrOrdersSectionResize
211 OnMouseDown = hdrOrdersMouseDown
212 OnMouseUp = hdrOrdersMouseUp
213 end
214 object lstOrders: TCaptionListBox
215 Left = 0
216 Top = 36
[460]217 Width = 645
[459]218 Height = 492
219 Style = lbOwnerDrawVariable
220 Align = alClient
221 Color = clCream
222 Ctl3D = False
223 ItemHeight = 32
224 MultiSelect = True
225 ParentCtl3D = False
226 PopupMenu = popOrder
227 TabOrder = 1
228 OnDblClick = lstOrdersDblClick
229 OnDrawItem = lstOrdersDrawItem
230 OnMeasureItem = lstOrdersMeasureItem
231 RightClickSelect = True
232 Caption = 'Active Orders'
233 end
234 end
235 object mnuOrders: TMainMenu
236 Left = 136
237 Top = 60
238 object mnuView: TMenuItem
239 Caption = '&View'
240 GroupIndex = 3
241 OnClick = mnuViewClick
242 object mnuViewChart: TMenuItem
243 Caption = 'Chart &Tab'
244 object mnuChartCover: TMenuItem
245 Tag = 1
246 Caption = 'Cover &Sheet'
247 ShortCut = 16467
248 OnClick = mnuChartTabClick
249 end
250 object mnuChartProbs: TMenuItem
251 Tag = 2
252 Caption = '&Problem List'
253 ShortCut = 16464
254 OnClick = mnuChartTabClick
255 end
256 object mnuChartMeds: TMenuItem
257 Tag = 3
258 Caption = '&Medications'
259 ShortCut = 16461
260 OnClick = mnuChartTabClick
261 end
262 object mnuChartOrders: TMenuItem
263 Tag = 4
264 Caption = '&Orders'
265 ShortCut = 16463
266 OnClick = mnuChartTabClick
267 end
268 object mnuChartNotes: TMenuItem
269 Tag = 6
270 Caption = 'Progress &Notes'
271 ShortCut = 16462
272 OnClick = mnuChartTabClick
273 end
274 object mnuChartCslts: TMenuItem
275 Tag = 7
276 Caption = 'Consul&ts'
277 ShortCut = 16468
278 OnClick = mnuChartTabClick
279 end
280 object mnuChartSurgery: TMenuItem
281 Tag = 11
282 Caption = 'S&urgery'
283 ShortCut = 16469
284 OnClick = mnuChartTabClick
285 end
286 object mnuChartDCSumm: TMenuItem
287 Tag = 8
288 Caption = '&Discharge Summaries'
289 ShortCut = 16452
290 OnClick = mnuChartTabClick
291 end
292 object mnuChartLabs: TMenuItem
293 Tag = 9
294 Caption = '&Laboratory'
295 ShortCut = 16460
296 OnClick = mnuChartTabClick
297 end
298 object mnuChartReports: TMenuItem
299 Tag = 10
300 Caption = '&Reports'
301 ShortCut = 16466
302 OnClick = mnuChartTabClick
303 end
304 end
[460]305 object mnuViewInformation: TMenuItem
306 Caption = 'Information'
307 OnClick = mnuViewInformationClick
308 object mnuViewDemo: TMenuItem
309 Tag = 1
310 Caption = 'De&mographics...'
311 OnClick = ViewInfo
312 end
313 object mnuViewVisits: TMenuItem
314 Tag = 2
315 Caption = 'Visits/Pr&ovider...'
316 OnClick = ViewInfo
317 end
318 object mnuViewPrimaryCare: TMenuItem
319 Tag = 3
320 Caption = 'Primary &Care...'
321 OnClick = ViewInfo
322 end
323 object mnuViewMyHealtheVet: TMenuItem
324 Tag = 4
325 Caption = 'MyHealthe&Vet...'
326 OnClick = ViewInfo
327 end
328 object mnuInsurance: TMenuItem
329 Tag = 5
330 Caption = '&Insurance...'
331 OnClick = ViewInfo
332 end
333 object mnuViewFlags: TMenuItem
334 Tag = 6
335 Caption = '&Flags...'
336 OnClick = ViewInfo
337 end
338 object mnuViewRemoteData: TMenuItem
339 Tag = 7
340 Caption = 'Remote &Data...'
341 OnClick = ViewInfo
342 end
343 object mnuViewReminders: TMenuItem
344 Tag = 8
345 Caption = '&Reminders...'
346 Enabled = False
347 OnClick = ViewInfo
348 end
349 object mnuViewPostings: TMenuItem
350 Tag = 9
351 Caption = '&Postings...'
352 OnClick = ViewInfo
353 end
354 end
[459]355 object Z1: TMenuItem
356 Caption = '-'
357 end
358 object mnuViewActive: TMenuItem
359 Caption = '&Active Orders (includes pending, recent activity)'
360 OnClick = mnuViewActiveClick
361 end
362 object mnuViewCurrent: TMenuItem
363 Caption = 'Current &Orders (active/pending status only)'
364 OnClick = mnuViewCurrentClick
365 end
366 object EventRealeasedOrder1: TMenuItem
367 Caption = 'Auto DC/Release Event Orders'
368 OnClick = EventRealeasedOrder1Click
369 end
370 object mnuViewExpiring: TMenuItem
371 Caption = '&Expiring Orders'
372 OnClick = mnuViewExpiringClick
373 end
374 object mnuViewUnsigned: TMenuItem
375 Caption = '&Unsigned Orders'
376 OnClick = mnuViewUnsignedClick
377 end
378 object mnuViewExpired: TMenuItem
379 Caption = '&Recently Expired Orders'
380 OnClick = mnuViewExpiredClick
381 end
382 object Z2: TMenuItem
383 Caption = '-'
384 end
385 object mnuViewCustom: TMenuItem
386 Caption = '&Custom Order View...'
387 OnClick = mnuViewCustomClick
388 end
389 object Z6: TMenuItem
390 Caption = '-'
391 end
392 object mnuViewDfltSave: TMenuItem
393 Caption = '&Save as Default View...'
394 OnClick = mnuViewDfltSaveClick
395 end
396 object mnuViewDfltShow: TMenuItem
397 Caption = '&Return to Default View'
398 OnClick = mnuViewDfltShowClick
399 end
400 object Z3: TMenuItem
401 Caption = '-'
402 end
403 object mnuViewDetail: TMenuItem
404 Caption = '&Details...'
405 OnClick = mnuViewDetailClick
406 end
407 object mnuViewResult: TMenuItem
408 Caption = '&Results...'
409 OnClick = mnuViewResultClick
410 end
411 object mnuViewResultsHistory: TMenuItem
412 Caption = 'Results History...'
413 OnClick = mnuViewResultsHistoryClick
414 end
415 end
416 object mnuAct: TMenuItem
417 Caption = '&Action'
418 GroupIndex = 4
419 OnClick = mnuActClick
420 object mnuActChange: TMenuItem
421 Caption = '&Change...'
422 OnClick = mnuActChangeClick
423 end
424 object mnuActCopy: TMenuItem
425 Caption = 'Copy to &New Order...'
426 OnClick = mnuActCopyClick
427 end
428 object mnuActDC: TMenuItem
429 Caption = '&Discontinue / Cancel...'
430 OnClick = mnuActDCClick
431 end
432 object mnuActRel: TMenuItem
433 Caption = 'Release Delayed Orders'
434 Visible = False
435 OnClick = mnuActRelClick
436 end
437 object mnuActChgEvnt: TMenuItem
438 Caption = 'Change Release Event'
439 OnClick = mnuActChgEvntClick
440 end
441 object mnuActHold: TMenuItem
442 Caption = '&Hold...'
443 OnClick = mnuActHoldClick
444 end
445 object mnuActUnhold: TMenuItem
446 Caption = 'Re&lease Hold...'
447 OnClick = mnuActUnholdClick
448 end
449 object mnuActRenew: TMenuItem
450 Caption = 'Rene&w...'
451 OnClick = mnuActRenewClick
452 end
453 object Z4: TMenuItem
454 Caption = '-'
455 end
456 object mnuActAlert: TMenuItem
457 Caption = '&Alert when Results...'
458 OnClick = mnuActAlertClick
459 end
460 object mnuActComplete: TMenuItem
461 Caption = 'Co&mplete...'
462 OnClick = mnuActCompleteClick
463 end
464 object mnuActFlag: TMenuItem
465 Caption = '&Flag...'
466 OnClick = mnuActFlagClick
467 end
468 object mnuActUnflag: TMenuItem
469 Caption = '&Unflag...'
470 OnClick = mnuActUnflagClick
471 end
472 object mnuActVerify: TMenuItem
473 Caption = '&Verify...'
474 OnClick = mnuActVerifyClick
475 end
476 object mnuActChartRev: TMenuItem
477 Caption = 'Char&t Review...'
478 OnClick = mnuActChartRevClick
479 end
480 object Z5: TMenuItem
481 Caption = '-'
482 end
483 object mnuActRelease: TMenuItem
484 Caption = 'R&elease without MD Signature...'
485 OnClick = mnuActReleaseClick
486 end
487 object mnuActOnChart: TMenuItem
488 Caption = 'Signature &On Chart...'
489 OnClick = mnuActOnChartClick
490 end
491 object mnuActSign: TMenuItem
492 Caption = 'Si&gn Selected...'
493 OnClick = mnuActSignClick
494 end
495 end
496 object mnuOpt: TMenuItem
497 Caption = '&Options'
498 GroupIndex = 5
499 OnClick = mnuOptClick
500 object mnuOptSaveQuick: TMenuItem
501 Caption = '&Save as Quick Order...'
502 OnClick = mnuOptSaveQuickClick
503 end
504 object mnuOptEditCommon: TMenuItem
505 Caption = '&Edit Common List...'
506 OnClick = mnuOptEditCommonClick
507 end
508 end
509 end
510 object popOrder: TPopupMenu
511 OnPopup = popOrderPopup
512 Left = 445
513 Top = 300
514 object popOrderDetail: TMenuItem
515 Caption = 'Detai&ls...'
516 OnClick = mnuViewDetailClick
517 end
518 object popOrderResult: TMenuItem
519 Caption = '&Results...'
520 OnClick = mnuViewResultClick
521 end
522 object popResultsHistory: TMenuItem
523 Caption = 'Results History...'
524 OnClick = mnuViewResultsHistoryClick
525 end
526 object N1: TMenuItem
527 Caption = '-'
528 end
529 object popOrderChange: TMenuItem
530 Tag = 1
531 Caption = '&Change...'
532 OnClick = mnuActChangeClick
533 end
534 object popOrderRel: TMenuItem
535 Caption = 'Release Delayed Orders'
536 Visible = False
537 OnClick = mnuActRelClick
538 end
539 object mnuChgEvnt: TMenuItem
540 Caption = 'Change Release Event'
541 OnClick = mnuActChgEvntClick
542 end
543 object popOrderCopy: TMenuItem
544 Tag = 1
545 Caption = 'Copy to &New Order...'
546 OnClick = mnuActCopyClick
547 end
548 object popOrderDC: TMenuItem
549 Tag = 1
550 Caption = '&Discontinue...'
551 OnClick = mnuActDCClick
552 end
553 object popOrderRenew: TMenuItem
554 Tag = 1
555 Caption = 'Rene&w...'
556 OnClick = mnuActRenewClick
557 end
558 object sepOrderVerify: TMenuItem
559 Caption = '-'
560 end
561 object popOrderVerify: TMenuItem
562 Tag = 2
563 Caption = '&Verify...'
564 OnClick = mnuActVerifyClick
565 end
566 object popOrderChartRev: TMenuItem
567 Tag = 2
568 Caption = 'Char&t Review'
569 OnClick = mnuActChartRevClick
570 end
571 object popOrderSign: TMenuItem
572 Tag = 1
573 Caption = '&Sign...'
574 OnClick = mnuActSignClick
575 end
[460]576 object mnuOptimizeFields: TMenuItem
577 Caption = 'Adjust Column Size'
578 Visible = False
579 OnClick = mnuOptimizeFieldsClick
580 end
[459]581 end
582end
Note: See TracBrowser for help on using the repository browser.