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

Last change on this file since 1800 was 1679, checked in by healthsevak, 10 years ago

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