source: cprs/trunk/CPRS-Chart/Orders/fOrders.dfm@ 901

Last change on this file since 901 was 829, checked in by Kevin Toppenberg, 14 years ago

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