source: cprs/trunk/CPRS-Chart/Consults/fConsults.dfm@ 1727

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

Updating the working copy to CPRS version 28
File size: 31.9 KB
RevLine 
[456]1inherited frmConsults: TfrmConsults
[829]2 Left = 402
3 Top = 80
[456]4 HelpContext = 6000
5 Caption = 'Consults Page'
[829]6 ClientHeight = 421
7 ClientWidth = 715
[456]8 Menu = mnuConsults
9 OnDestroy = FormDestroy
10 OnHide = FormHide
11 OnShow = FormShow
[829]12 ExplicitWidth = 723
[1679]13 ExplicitHeight = 475
[456]14 PixelsPerInch = 96
15 TextHeight = 13
16 inherited shpPageBottom: TShape
17 Top = 416
18 Width = 715
[829]19 ExplicitTop = 416
20 ExplicitWidth = 715
[456]21 end
22 inherited sptHorz: TSplitter
23 Left = 83
24 Width = 2
25 Height = 416
26 OnCanResize = sptHorzCanResize
[829]27 ExplicitLeft = 83
28 ExplicitWidth = 2
29 ExplicitHeight = 416
[456]30 end
31 inherited pnlRight: TPanel [2]
32 Left = 85
33 Width = 630
34 Height = 416
[829]35 OnExit = pnlRightExit
[456]36 OnResize = pnlRightResize
[829]37 ExplicitLeft = 85
38 ExplicitWidth = 630
39 ExplicitHeight = 416
[456]40 object sptVert: TSplitter
41 Left = 0
42 Top = 350
43 Width = 630
44 Height = 4
45 Cursor = crVSplit
46 Align = alBottom
47 end
48 object pnlRead: TPanel
49 Left = 0
50 Top = 0
51 Width = 630
52 Height = 350
53 Align = alClient
54 BevelOuter = bvNone
55 TabOrder = 0
56 object lblTitle: TOROffsetLabel
57 Left = 0
58 Top = 0
59 Width = 630
60 Height = 19
61 Align = alTop
62 Caption = 'Details of Selected Consult'
63 Font.Charset = DEFAULT_CHARSET
64 Font.Color = clWindowText
65 Font.Height = -11
66 Font.Name = 'MS Sans Serif'
67 Font.Style = []
68 HorzOffset = 2
69 ParentFont = False
70 ParentShowHint = False
71 ShowHint = True
72 Transparent = False
73 VertOffset = 6
74 WordWrap = False
75 end
76 object memConsult: TRichEdit
77 Left = 0
78 Top = 19
79 Width = 630
80 Height = 331
81 Align = alClient
82 Color = clCream
83 Ctl3D = True
84 Font.Charset = DEFAULT_CHARSET
85 Font.Color = clWindowText
86 Font.Height = -11
87 Font.Name = 'Courier New'
88 Font.Style = []
89 Lines.Strings = (
90
91 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRUSTVWXYZabcdefghijkl' +
92 'mnopqrstuvwxyz12')
93 ParentCtl3D = False
94 ParentFont = False
95 PlainText = True
96 PopupMenu = popNoteMemo
97 ReadOnly = True
98 ScrollBars = ssBoth
99 TabOrder = 0
100 WantReturns = False
101 WordWrap = False
102 end
103 end
104 object memPCEShow: TRichEdit
105 Left = 0
106 Top = 354
107 Width = 630
108 Height = 62
109 Align = alBottom
110 Color = clCream
111 TabOrder = 2
112 WantReturns = False
113 end
114 object pnlResults: TPanel
115 Left = 0
116 Top = 0
117 Width = 630
118 Height = 350
119 Align = alClient
120 BevelOuter = bvNone
121 TabOrder = 1
122 OnResize = pnlResultsResize
123 object memResults: TRichEdit
124 Left = 0
125 Top = 67
126 Width = 630
127 Height = 283
128 Align = alClient
129 Font.Charset = ANSI_CHARSET
130 Font.Color = clWindowText
131 Font.Height = -11
132 Font.Name = 'Courier New'
133 Font.Style = []
134 ParentFont = False
135 PopupMenu = popNoteMemo
136 ScrollBars = ssBoth
137 TabOrder = 1
138 WantTabs = True
139 OnChange = memResultChange
140 OnKeyDown = memResultsKeyDown
141 end
142 object pnlFields: TPanel
143 Left = 0
144 Top = 0
145 Width = 630
146 Height = 67
147 Align = alTop
148 BevelOuter = bvNone
149 TabOrder = 0
150 OnResize = pnlFieldsResize
151 DesignSize = (
152 630
153 67)
154 object bvlNewTitle: TBevel
155 Left = 5
156 Top = 5
157 Width = 117
158 Height = 15
159 end
160 object lblRefDate: TStaticText
161 Left = 237
162 Top = 6
163 Width = 101
164 Height = 17
165 Hint = 'Press "Change..." to change date/time of note.'
166 Alignment = taCenter
167 Caption = 'Oct 20,1999@15:30'
168 ParentShowHint = False
169 ShowAccelChar = False
170 ShowHint = True
171 TabOrder = 3
172 end
173 object lblAuthor: TStaticText
174 Left = 402
175 Top = 6
176 Width = 152
177 Height = 17
178 Hint = 'Press "Change..." to select a different author.'
179 Alignment = taRightJustify
180 Anchors = [akTop, akRight]
181 Caption = 'Winchester,Charles Emerson III'
182 ParentShowHint = False
183 ShowAccelChar = False
184 ShowHint = True
185 TabOrder = 4
186 end
187 object lblVisit: TStaticText
188 Left = 6
189 Top = 21
190 Width = 204
191 Height = 17
192 Caption = 'Vst: 10/20/99 Pulmonary Clinic, Dr. Welby'
193 ShowAccelChar = False
194 TabOrder = 5
195 end
196 object lblCosigner: TStaticText
197 Left = 307
198 Top = 21
199 Width = 243
200 Height = 13
201 Hint = 'Press "Change..." to select a different cosigner.'
202 Alignment = taRightJustify
203 Anchors = [akTop, akRight]
204 AutoSize = False
205 Caption = 'Expected Cosigner: Winchester,Charles Emerson III'
206 ParentShowHint = False
207 ShowAccelChar = False
208 ShowHint = True
209 TabOrder = 6
210 end
211 object lblSubject: TStaticText
212 Left = 6
213 Top = 43
214 Width = 43
215 Height = 17
216 Caption = 'Subject:'
217 TabOrder = 7
218 end
219 object lblNewTitle: TStaticText
220 Left = 6
221 Top = 6
222 Width = 119
223 Height = 17
224 Hint = 'Press "Change..." to select a different title.'
225 Caption = ' General Medicine Note '
226 Color = clCream
227 Font.Charset = DEFAULT_CHARSET
228 Font.Color = clWindowText
229 Font.Height = -11
230 Font.Name = 'MS Sans Serif'
231 Font.Style = []
232 ParentColor = False
233 ParentFont = False
234 ParentShowHint = False
235 ShowAccelChar = False
236 ShowHint = True
237 TabOrder = 2
238 end
239 object cmdChange: TButton
240 Left = 556
241 Top = 6
242 Width = 58
243 Height = 21
244 Anchors = [akTop, akRight]
245 Caption = 'Change...'
246 TabOrder = 0
247 OnClick = cmdChangeClick
248 end
249 object txtSubject: TCaptionEdit
250 Left = 48
251 Top = 40
252 Width = 566
253 Height = 21
254 Hint = 'Subject is limited to a maximum of 80 characters.'
255 Anchors = [akLeft, akTop, akRight]
256 MaxLength = 80
257 ParentShowHint = False
258 ShowHint = True
259 TabOrder = 1
260 Text = 'txtSubject'
261 Caption = 'Subject'
262 end
263 end
264 end
265 end
266 inherited pnlLeft: TPanel [3]
267 Width = 83
268 Height = 416
[829]269 OnExit = pnlLeftExit
[456]270 OnResize = pnlLeftResize
[829]271 ExplicitWidth = 83
272 ExplicitHeight = 416
[456]273 object splConsults: TSplitter
274 Left = 0
275 Top = 161
276 Width = 83
277 Height = 3
278 Cursor = crVSplit
279 Align = alTop
280 end
281 object pnlAction: TPanel
282 Left = 0
283 Top = 164
284 Width = 83
285 Height = 231
286 Align = alClient
287 BevelOuter = bvNone
288 TabOrder = 1
289 object splDrawers: TSplitter
290 Left = 0
291 Top = 228
292 Width = 83
293 Height = 3
294 Cursor = crVSplit
295 Align = alBottom
296 end
297 object cmdNewConsult: TORAlignButton
298 Left = 0
299 Top = 21
300 Width = 83
301 Height = 21
[829]302 Align = alTop
[456]303 Caption = 'New Consult'
304 Constraints.MinHeight = 21
[829]305 Default = True
306 TabOrder = 1
[456]307 OnClick = cmdNewConsultClick
[829]308 OnExit = cmdNewConsultExit
[456]309 end
310 object cmdNewProc: TORAlignButton
311 Left = 0
312 Top = 42
313 Width = 83
314 Height = 21
[829]315 Align = alTop
[456]316 Caption = 'New Procedure'
317 Constraints.MinHeight = 21
[829]318 TabOrder = 2
[456]319 OnClick = cmdNewProcClick
320 end
321 object cmdEditResubmit: TORAlignButton
322 Left = 0
323 Top = 0
324 Width = 83
325 Height = 21
[829]326 Align = alTop
[456]327 Caption = 'Edit/Resubmit'
328 Constraints.MinHeight = 21
329 Font.Charset = DEFAULT_CHARSET
330 Font.Color = clWindowText
331 Font.Height = -11
332 Font.Name = 'MS Sans Serif'
333 Font.Style = []
334 ParentFont = False
[829]335 TabOrder = 0
[456]336 Visible = False
337 OnClick = cmdEditResubmitClick
[829]338 OnExit = cmdEditResubmitExit
[456]339 end
340 object lstNotes: TORListBox
341 Left = 0
342 Top = 63
343 Width = 83
344 Height = 24
345 Style = lbOwnerDrawFixed
346 ItemHeight = 13
347 ParentShowHint = False
348 PopupMenu = popNoteMemo
349 ShowHint = True
350 TabOrder = 4
351 Visible = False
352 OnClick = lstNotesClick
353 ItemTipColor = clWindow
354 LongList = False
355 Pieces = '2,3'
356 TabPositions = '10'
357 end
358 object tvCsltNotes: TORTreeView
359 Left = 0
360 Top = 63
361 Width = 83
362 Height = 165
363 Align = alClient
364 Constraints.MinWidth = 30
365 HideSelection = False
[829]366 Images = dmodShared.imgNotes
[456]367 Indent = 19
368 PopupMenu = popNoteList
369 ReadOnly = True
[829]370 StateImages = dmodShared.imgImages
371 TabOrder = 3
[456]372 OnChange = tvCsltNotesChange
373 OnClick = tvCsltNotesClick
374 OnCollapsed = tvCsltNotesCollapsed
375 OnDragDrop = tvCsltNotesDragDrop
376 OnDragOver = tvCsltNotesDragOver
377 OnExpanded = tvCsltNotesExpanded
378 OnStartDrag = tvCsltNotesStartDrag
379 Caption = 'Consult Notes'
380 NodePiece = 0
381 end
382 end
383 object cmdPCE: TORAlignButton
384 Left = 0
385 Top = 395
386 Width = 83
387 Height = 21
[829]388 Align = alBottom
[456]389 Caption = 'Encounter'
390 Enabled = False
391 TabOrder = 2
392 Visible = False
393 OnClick = cmdPCEClick
394 end
395 object pnlConsultList: TPanel
396 Left = 0
397 Top = 0
398 Width = 83
399 Height = 161
400 Align = alTop
401 BevelOuter = bvNone
402 TabOrder = 0
403 object lblConsults: TOROffsetLabel
404 Left = 0
405 Top = 0
406 Width = 83
407 Height = 19
408 Align = alTop
409 Caption = 'Consults'
410 HorzOffset = 2
411 Transparent = True
412 VertOffset = 6
413 WordWrap = False
414 end
415 object lstConsults: TORListBox
416 Left = 0
417 Top = 19
418 Width = 83
419 Height = 142
420 Align = alClient
421 Ctl3D = True
422 ItemHeight = 13
423 ParentCtl3D = False
424 ParentShowHint = False
425 PopupMenu = popConsultList
426 ShowHint = True
427 TabOrder = 1
428 Visible = False
429 OnClick = lstConsultsClick
430 ItemTipColor = clWindow
431 LongList = False
432 Pieces = '2,3,4,5'
433 TabPositions = '10,15,42'
434 end
435 object tvConsults: TORTreeView
436 Left = 0
437 Top = 19
438 Width = 83
439 Height = 142
440 Align = alClient
441 HideSelection = False
[829]442 Images = dmodShared.imgConsults
443 Indent = 19
[456]444 PopupMenu = popNoteList
445 ReadOnly = True
446 TabOrder = 0
447 OnClick = tvConsultsClick
448 OnCollapsed = tvConsultsCollapsed
449 OnExit = tvConsultsExit
450 OnExpanded = tvConsultsExpanded
451 OnKeyUp = tvConsultsKeyUp
452 Caption = 'Consults'
453 NodePiece = 0
454 ShortNodeCaptions = True
455 end
456 end
457 end
[829]458 inherited amgrMain: TVA508AccessibilityManager
459 Data = (
460 (
461 'Component = pnlRead'
462 'Status = stsDefault')
463 (
464 'Component = memConsult'
465 'Status = stsDefault')
466 (
467 'Component = memPCEShow'
468 'Status = stsDefault')
469 (
470 'Component = pnlResults'
471 'Status = stsDefault')
472 (
473 'Component = memResults'
474 'Status = stsDefault')
475 (
476 'Component = pnlFields'
477 'Status = stsDefault')
478 (
479 'Component = lblRefDate'
480 'Status = stsDefault')
481 (
482 'Component = lblAuthor'
483 'Status = stsDefault')
484 (
485 'Component = lblVisit'
486 'Status = stsDefault')
487 (
488 'Component = lblCosigner'
489 'Status = stsDefault')
490 (
491 'Component = lblSubject'
492 'Status = stsDefault')
493 (
494 'Component = lblNewTitle'
495 'Status = stsDefault')
496 (
497 'Component = cmdChange'
498 'Status = stsDefault')
499 (
500 'Component = txtSubject'
501 'Status = stsDefault')
502 (
503 'Component = pnlAction'
504 'Status = stsDefault')
505 (
506 'Component = cmdNewConsult'
507 'Status = stsDefault')
508 (
509 'Component = cmdNewProc'
510 'Status = stsDefault')
511 (
512 'Component = cmdEditResubmit'
513 'Status = stsDefault')
514 (
515 'Component = lstNotes'
516 'Status = stsDefault')
517 (
518 'Component = tvCsltNotes'
519 'Status = stsDefault')
520 (
521 'Component = cmdPCE'
522 'Status = stsDefault')
523 (
524 'Component = pnlConsultList'
525 'Status = stsDefault')
526 (
527 'Component = lstConsults'
528 'Status = stsDefault')
529 (
530 'Component = tvConsults'
531 'Status = stsDefault')
532 (
533 'Component = pnlLeft'
534 'Status = stsDefault')
535 (
536 'Component = pnlRight'
537 'Status = stsDefault')
538 (
539 'Component = frmConsults'
540 'Status = stsDefault'))
541 end
[456]542 object popNoteMemo: TPopupMenu
543 OnPopup = popNoteMemoPopup
544 Left = 589
545 Top = 304
546 object popNoteMemoCut: TMenuItem
547 Caption = 'Cu&t'
548 ShortCut = 16472
549 OnClick = popNoteMemoCutClick
550 end
551 object popNoteMemoCopy: TMenuItem
552 Caption = '&Copy'
553 ShortCut = 16451
554 OnClick = popNoteMemoCopyClick
555 end
556 object popNoteMemoPaste: TMenuItem
557 Caption = '&Paste'
558 ShortCut = 16470
559 OnClick = popNoteMemoPasteClick
560 end
561 object popNoteMemoPaste2: TMenuItem
562 Caption = 'Paste2'
563 ShortCut = 8237
564 Visible = False
565 OnClick = popNoteMemoPasteClick
566 end
567 object popNoteMemoReformat: TMenuItem
568 Caption = 'Re&format Paragraph'
569 ShortCut = 24658
570 OnClick = popNoteMemoReformatClick
571 end
572 object popNoteMemoSaveContinue: TMenuItem
573 Caption = 'Save && Continue Editing'
574 ShortCut = 24659
575 Visible = False
576 OnClick = popNoteMemoSaveContinueClick
577 end
578 object Z11: TMenuItem
579 Caption = '-'
580 end
581 object popNoteMemoFind: TMenuItem
582 Caption = '&Find in Selected Note/Consult'
583 OnClick = popNoteMemoFindClick
584 end
585 object popNoteMemoReplace: TMenuItem
586 Caption = '&Replace Text'
587 OnClick = popNoteMemoReplaceClick
588 end
589 object N14: TMenuItem
590 Caption = '-'
591 end
592 object popNoteMemoGrammar: TMenuItem
593 Caption = 'Check &Grammar'
594 OnClick = popNoteMemoGrammarClick
595 end
596 object popNoteMemoSpell: TMenuItem
597 Caption = 'C&heck Spelling'
598 OnClick = popNoteMemoSpellClick
599 end
600 object N5: TMenuItem
601 Caption = '-'
602 end
603 object popNoteMemoTemplate: TMenuItem
604 Caption = 'Copy into New &Template'
605 OnClick = popNoteMemoTemplateClick
606 end
607 object Z10: TMenuItem
608 Caption = '-'
609 end
610 object popNoteMemoSignList: TMenuItem
611 Caption = 'Add to Signature &List'
612 OnClick = mnuActSignatureListClick
613 end
614 object popNoteMemoDelete: TMenuItem
615 Caption = '&Delete Note...'
616 OnClick = mnuActNoteDeleteClick
617 end
618 object popNoteMemoEdit: TMenuItem
619 Caption = '&Edit Note...'
620 OnClick = mnuActNoteEditClick
621 end
622 object popNoteMemoAddend: TMenuItem
623 Caption = '&Make Addendum...'
624 OnClick = mnuActMakeAddendumClick
625 end
626 object popNoteMemoSave: TMenuItem
627 Caption = 'S&ave without Signature'
628 OnClick = mnuActSignatureSaveClick
629 end
630 object popNoteMemoSign: TMenuItem
631 Caption = '&Sign Note Now...'
632 OnClick = mnuActSignatureSignClick
633 end
634 object popNoteMemoAddlSign: TMenuItem
635 Caption = '&Identify Additional Signers'
636 OnClick = popNoteMemoAddlSignClick
637 end
638 object N7: TMenuItem
639 Caption = '-'
640 end
641 object popNoteMemoPrint: TMenuItem
642 Caption = 'P&rint Note'
643 OnClick = popNoteMemoPrintClick
644 end
645 object N15: TMenuItem
646 Caption = '-'
647 end
648 object popNoteMemoPreview: TMenuItem
649 Caption = 'Previe&w/Print Current Template'
650 ShortCut = 16471
651 OnClick = popNoteMemoPreviewClick
652 end
653 object popNoteMemoInsTemplate: TMenuItem
654 Caption = 'Insert Current Template'
655 ShortCut = 16429
656 OnClick = popNoteMemoInsTemplateClick
657 end
658 object popNoteMemoEncounter: TMenuItem
659 Caption = 'Edit Encounter Information'
660 ShortCut = 16453
661 OnClick = cmdPCEClick
662 end
[1679]663 object popNoteMemoViewCslt: TMenuItem
664 Caption = 'View Consult Details'
665 ShortCut = 24661
666 OnClick = popNoteMemoViewCsltClick
667 end
[456]668 end
669 object popConsultList: TPopupMenu
670 Left = 523
671 Top = 308
672 object popConsultAll: TMenuItem
673 Tag = 1
674 Caption = '&All Consults'
675 OnClick = mnuViewClick
676 end
677 object popConsultStatus: TMenuItem
678 Tag = 2
679 Caption = 'Consults by Stat&us'
680 OnClick = mnuViewClick
681 end
682 object popConsultService: TMenuItem
683 Tag = 4
684 Caption = 'Consults by &Service'
685 OnClick = mnuViewClick
686 end
687 object popConsultDates: TMenuItem
688 Tag = 5
689 Caption = 'Consults by Date &Range'
690 OnClick = mnuViewClick
691 end
692 object popConsultCustom: TMenuItem
693 Tag = 6
694 Caption = '&Custom View..'
695 OnClick = mnuViewClick
696 end
697 end
698 object mnuConsults: TMainMenu
699 Left = 461
700 Top = 305
701 object mnuView: TMenuItem
702 Caption = '&View'
703 GroupIndex = 3
704 object mnuViewChart: TMenuItem
705 Caption = 'Chart &Tab'
706 object mnuChartCover: TMenuItem
707 Tag = 1
708 Caption = 'Cover &Sheet'
709 ShortCut = 16467
710 OnClick = mnuChartTabClick
711 end
712 object mnuChartProbs: TMenuItem
713 Tag = 2
714 Caption = '&Problem List'
715 ShortCut = 16464
716 OnClick = mnuChartTabClick
717 end
718 object mnuChartMeds: TMenuItem
719 Tag = 3
720 Caption = '&Medications'
721 ShortCut = 16461
722 OnClick = mnuChartTabClick
723 end
724 object mnuChartOrders: TMenuItem
725 Tag = 4
726 Caption = '&Orders'
727 ShortCut = 16463
728 OnClick = mnuChartTabClick
729 end
730 object mnuChartNotes: TMenuItem
731 Tag = 6
732 Caption = 'Progress &Notes'
733 ShortCut = 16462
734 OnClick = mnuChartTabClick
735 end
736 object mnuChartCslts: TMenuItem
737 Tag = 7
738 Caption = 'Consul&ts'
739 ShortCut = 16468
740 OnClick = mnuChartTabClick
741 end
742 object mnuChartSurgery: TMenuItem
743 Tag = 11
744 Caption = 'S&urgery'
745 ShortCut = 16469
746 OnClick = mnuChartTabClick
747 end
748 object mnuChartDCSumm: TMenuItem
749 Tag = 8
750 Caption = '&Discharge Summaries'
751 ShortCut = 16452
752 OnClick = mnuChartTabClick
753 end
754 object mnuChartLabs: TMenuItem
755 Tag = 9
756 Caption = '&Laboratory'
757 ShortCut = 16460
758 OnClick = mnuChartTabClick
759 end
760 object mnuChartReports: TMenuItem
761 Tag = 10
762 Caption = '&Reports'
763 ShortCut = 16466
764 OnClick = mnuChartTabClick
765 end
766 end
767 object mnuViewInformation: TMenuItem
768 Caption = 'Information'
769 OnClick = mnuViewInformationClick
770 object mnuViewDemo: TMenuItem
771 Tag = 1
772 Caption = 'De&mographics...'
773 OnClick = ViewInfo
774 end
775 object mnuViewVisits: TMenuItem
776 Tag = 2
777 Caption = 'Visits/Pr&ovider...'
778 OnClick = ViewInfo
779 end
780 object mnuViewPrimaryCare: TMenuItem
781 Tag = 3
782 Caption = 'Primary &Care...'
783 OnClick = ViewInfo
784 end
785 object mnuViewMyHealtheVet: TMenuItem
786 Tag = 4
787 Caption = 'MyHealthe&Vet...'
788 OnClick = ViewInfo
789 end
790 object mnuInsurance: TMenuItem
791 Tag = 5
792 Caption = '&Insurance...'
793 OnClick = ViewInfo
794 end
795 object mnuViewFlags: TMenuItem
796 Tag = 6
797 Caption = '&Flags...'
798 OnClick = ViewInfo
799 end
800 object mnuViewRemoteData: TMenuItem
801 Tag = 7
802 Caption = 'Remote &Data...'
803 OnClick = ViewInfo
804 end
805 object mnuViewReminders: TMenuItem
806 Tag = 8
807 Caption = '&Reminders...'
808 Enabled = False
809 OnClick = ViewInfo
810 end
811 object mnuViewPostings: TMenuItem
812 Tag = 9
813 Caption = '&Postings...'
814 OnClick = ViewInfo
815 end
816 end
817 object Z3: TMenuItem
818 Caption = '-'
819 end
820 object mnuViewAll: TMenuItem
821 Tag = 1
822 Caption = '&All Consults'
823 OnClick = mnuViewClick
824 end
825 object mnuViewByStatus: TMenuItem
826 Tag = 2
827 Caption = 'Consults by Stat&us'
828 OnClick = mnuViewClick
829 end
830 object mnuViewByService: TMenuItem
831 Tag = 4
832 Caption = 'Consults by &Service'
833 OnClick = mnuViewClick
834 end
835 object mnuViewByDate: TMenuItem
836 Tag = 5
837 Caption = 'Consults by Date &Range'
838 OnClick = mnuViewClick
839 end
840 object mnuViewCustom: TMenuItem
841 Tag = 6
842 Caption = 'Custo&m View'
843 OnClick = mnuViewClick
844 end
845 object N4: TMenuItem
846 Caption = '-'
847 end
848 object mnuViewSaveAsDefault: TMenuItem
849 Caption = 'Sa&ve as Default View'
850 OnClick = mnuViewSaveAsDefaultClick
851 end
852 object mnuViewReturntoDefault: TMenuItem
853 Caption = 'Return to De&fault View'
854 OnClick = mnuViewReturntoDefaultClick
855 end
856 object N13: TMenuItem
857 Caption = '-'
858 end
859 object mnuIconLegend: TMenuItem
860 Caption = 'Icon Legend'
861 OnClick = mnuIconLegendClick
862 end
863 end
864 object mnuAct: TMenuItem
865 Caption = '&Action'
866 GroupIndex = 4
867 object mnuActNew: TMenuItem
868 Caption = '&New...'
869 Hint = 'Add consults or procedures'
870 object mnuActNewConsultRequest: TMenuItem
871 Tag = 1
872 Caption = '&Consult...'
873 Hint = 'Creates a new consult'
874 OnClick = mnuActNewConsultRequestClick
875 end
876 object mnuActNewProcedure: TMenuItem
877 Tag = 9
878 Caption = '&Procedure...'
879 Hint = 'Creates a new procedure'
880 OnClick = mnuActNewProcedureClick
881 end
882 end
883 object Z2: TMenuItem
884 Caption = '-'
885 end
886 object mnuActConsultRequest: TMenuItem
887 Caption = '&Consult Tracking...'
888 Hint = 'Actions related to the selected consult'
889 object mnuActReceive: TMenuItem
890 Tag = 1
891 Caption = '&Receive'
892 OnClick = mnuActConsultClick
893 end
894 object mnuActSchedule: TMenuItem
895 Tag = 10
896 Caption = 'Schedu&le'
897 OnClick = mnuActConsultClick
898 end
899 object mnuActDeny: TMenuItem
900 Tag = 2
901 Caption = '&Cancel (Deny)'
902 OnClick = mnuActConsultClick
903 end
904 object mnuActEditResubmit: TMenuItem
905 Caption = '&Edit/Resubmit'
906 OnClick = mnuActEditResubmitClick
907 end
908 object mnuActDiscontinue: TMenuItem
909 Tag = 3
910 Caption = '&Discontinue'
911 OnClick = mnuActConsultClick
912 end
913 object mnuActForward: TMenuItem
914 Tag = 4
915 Caption = '&Forward'
916 OnClick = mnuActConsultClick
917 end
918 object mnuActAddComment: TMenuItem
919 Tag = 5
920 Caption = '&Add Comment'
921 OnClick = mnuActConsultClick
922 end
923 object mnuActSigFindings: TMenuItem
924 Tag = 8
925 Caption = '&Significant Findings'
926 OnClick = mnuActConsultClick
927 end
928 object mnuActAdminComplete: TMenuItem
929 Tag = 9
930 Caption = 'Ad&ministrative Complete'
931 OnClick = mnuActConsultClick
932 end
933 object N3: TMenuItem
934 Caption = '-'
935 end
936 object mnuActDisplayDetails: TMenuItem
937 Caption = 'Display De&tails'
938 OnClick = mnuActDisplayDetailsClick
939 end
940 object mnuActDisplayResults: TMenuItem
941 Caption = 'Display Res&ults'
942 OnClick = mnuActDisplayResultsClick
943 end
944 object mnuActDisplaySF513: TMenuItem
945 Caption = 'Display SF &513'
946 OnClick = mnuActDisplaySF513Click
947 end
948 object mnuActPrintSF513: TMenuItem
949 Caption = '&Print SF 513'
950 OnClick = mnuActPrintSF513Click
951 end
952 end
953 object N1: TMenuItem
954 Caption = '-'
955 end
956 object mnuActConsultResults: TMenuItem
957 Caption = 'Consult &Results...'
958 object mnuActComplete: TMenuItem
959 Tag = 6
960 Caption = 'Complete/&Update Results...'
961 ShortCut = 24661
962 OnClick = mnuActCompleteClick
963 end
964 object mnuActMakeAddendum: TMenuItem
965 Tag = 7
966 Caption = '&Make Addendum...'
967 Hint = 'Makes an addendum for the currently selected consult'
968 ShortCut = 24653
969 OnClick = mnuActMakeAddendumClick
970 end
971 object mnuActAddIDEntry: TMenuItem
972 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
973 OnClick = mnuActAddIDEntryClick
974 end
975 object mnuActAttachtoIDParent: TMenuItem
976 Caption = 'Attach to Interdisciplinary Note'
977 OnClick = mnuActAttachtoIDParentClick
978 end
979 object mnuActDetachFromIDParent: TMenuItem
980 Caption = 'Detac&h from Interdisciplinary Note'
981 OnClick = mnuActDetachFromIDParentClick
982 end
983 object N12: TMenuItem
984 Caption = '-'
985 end
986 object mnuActAttachMed: TMenuItem
987 Caption = 'A&ttach Medicine Results'
988 OnClick = mnuActAttachMedClick
989 end
990 object mnuActRemoveMed: TMenuItem
991 Caption = 'Remo&ve Medicine Results'
992 OnClick = mnuActRemoveMedClick
993 end
994 object N9: TMenuItem
995 Caption = '-'
996 end
997 object mnuActChange: TMenuItem
998 Caption = '&Change Title...'
999 ShortCut = 24643
1000 OnClick = mnuActChangeClick
1001 end
1002 object mnuActLoadBoiler: TMenuItem
1003 Caption = 'Reload &Boilerplate Text'
1004 OnClick = mnuActLoadBoilerClick
1005 end
1006 object N2: TMenuItem
1007 Caption = '-'
1008 end
1009 object mnuActSignatureList: TMenuItem
1010 Caption = 'Add to Signature &List'
1011 Hint =
1012 'Adds the currently displayed consult to list of things to be sig' +
1013 'ned'
1014 OnClick = mnuActSignatureListClick
1015 end
1016 object mnuActNoteDelete: TMenuItem
1017 Caption = '&Delete Note...'
1018 ShortCut = 24644
1019 OnClick = mnuActNoteDeleteClick
1020 end
1021 object mnuActNoteEdit: TMenuItem
1022 Caption = '&Edit Note...'
1023 ShortCut = 24645
1024 OnClick = mnuActNoteEditClick
1025 end
1026 object mnuActSignatureSave: TMenuItem
1027 Caption = 'S&ave Without Signature'
1028 Hint = 'Saves the consult that is being edited'
1029 ShortCut = 24641
1030 OnClick = mnuActSignatureSaveClick
1031 end
1032 object mnuActSignatureSign: TMenuItem
1033 Caption = 'Si&gn Note Now...'
1034 ShortCut = 24647
1035 OnClick = mnuActSignatureSignClick
1036 end
1037 object mnuActIdentifyAddlSigners: TMenuItem
1038 Caption = '&Identify Additional Signers'
1039 OnClick = mnuActIdentifyAddlSignersClick
1040 end
1041 object N8: TMenuItem
1042 Caption = '-'
1043 end
1044 object mnuActNotePrint: TMenuItem
1045 Caption = 'P&rint Note'
1046 OnClick = mnuActNotePrintClick
1047 end
1048 end
1049 end
1050 object mnuOptions: TMenuItem
1051 Caption = '&Options'
1052 GroupIndex = 4
1053 OnClick = mnuOptionsClick
1054 object mnuEditTemplates: TMenuItem
1055 Caption = 'Edit &Templates...'
1056 OnClick = mnuEditTemplatesClick
1057 end
1058 object mnuNewTemplate: TMenuItem
1059 Caption = 'Create &New Template...'
1060 OnClick = mnuNewTemplateClick
1061 end
1062 object N6: TMenuItem
1063 Caption = '-'
1064 end
1065 object mnuEditSharedTemplates: TMenuItem
1066 Caption = 'Edit &Shared Templates...'
1067 OnClick = mnuEditSharedTemplatesClick
1068 end
1069 object mnuNewSharedTemplate: TMenuItem
1070 Caption = '&Create New Shared Template...'
1071 OnClick = mnuNewSharedTemplateClick
1072 end
1073 object N10: TMenuItem
1074 Caption = '-'
1075 end
1076 object mnuEditDialgFields: TMenuItem
1077 Caption = 'Edit Template &Fields'
1078 OnClick = mnuEditDialgFieldsClick
1079 end
1080 end
1081 end
1082 object timAutoSave: TTimer
1083 Enabled = False
1084 Interval = 300000
1085 OnTimer = timAutoSaveTimer
1086 Left = 602
1087 Top = 110
1088 end
1089 object popNoteList: TPopupMenu
1090 OnPopup = popNoteListPopup
1091 Left = 395
1092 Top = 307
1093 object popNoteListExpandSelected: TMenuItem
1094 Caption = '&Expand Selected'
1095 OnClick = popNoteListExpandSelectedClick
1096 end
1097 object popNoteListExpandAll: TMenuItem
1098 Caption = 'E&xpand All'
1099 OnClick = popNoteListExpandAllClick
1100 end
1101 object popNoteListCollapseSelected: TMenuItem
1102 Caption = 'C&ollapse Selected'
1103 OnClick = popNoteListCollapseSelectedClick
1104 end
1105 object popNoteListCollapseAll: TMenuItem
1106 Caption = 'Co&llapse All'
1107 OnClick = popNoteListCollapseAllClick
1108 end
1109 object N11: TMenuItem
1110 Caption = '-'
1111 end
1112 object popNoteListAddIDEntry: TMenuItem
1113 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
1114 OnClick = mnuActAddIDEntryClick
1115 end
1116 object popNoteListAttachtoIDParent: TMenuItem
1117 Caption = 'Attach to Interdisciplinary Note'
1118 OnClick = mnuActAttachtoIDParentClick
1119 end
1120 object popNoteListDetachFromIDParent: TMenuItem
1121 Caption = 'Detac&h from Interdisciplinary Note'
1122 OnClick = mnuActDetachFromIDParentClick
1123 end
1124 end
1125 object dlgFindText: TFindDialog
1126 Options = [frDown, frHideUpDown]
1127 OnFind = dlgFindTextFind
1128 Left = 628
1129 Top = 303
1130 end
1131 object dlgReplaceText: TReplaceDialog
1132 OnFind = dlgReplaceTextFind
1133 OnReplace = dlgReplaceTextReplace
1134 Left = 665
1135 Top = 303
1136 end
[829]1137 object imgLblNotes: TVA508ImageListLabeler
1138 Components = <
1139 item
1140 Component = tvCsltNotes
1141 end>
1142 Labels = <>
1143 RemoteLabeler = dmodShared.imgLblNotes
1144 Left = 16
1145 Top = 48
1146 end
1147 object imgLblImages: TVA508ImageListLabeler
1148 Components = <
1149 item
1150 Component = tvCsltNotes
1151 end>
1152 Labels = <>
1153 RemoteLabeler = dmodShared.imgLblImages
1154 Left = 8
1155 Top = 88
1156 end
1157 object imgLblConsults: TVA508ImageListLabeler
1158 Components = <
1159 item
1160 Component = tvConsults
1161 end>
1162 Labels = <>
1163 RemoteLabeler = dmodShared.imgLblConsults
1164 Left = 56
1165 Top = 96
1166 end
[456]1167end
Note: See TracBrowser for help on using the repository browser.