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

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

Upgrade to version 27
File size: 31.7 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
13 ExplicitHeight = 467
[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
663 end
664 object popConsultList: TPopupMenu
665 Left = 523
666 Top = 308
667 object popConsultAll: TMenuItem
668 Tag = 1
669 Caption = '&All Consults'
670 OnClick = mnuViewClick
671 end
672 object popConsultStatus: TMenuItem
673 Tag = 2
674 Caption = 'Consults by Stat&us'
675 OnClick = mnuViewClick
676 end
677 object popConsultService: TMenuItem
678 Tag = 4
679 Caption = 'Consults by &Service'
680 OnClick = mnuViewClick
681 end
682 object popConsultDates: TMenuItem
683 Tag = 5
684 Caption = 'Consults by Date &Range'
685 OnClick = mnuViewClick
686 end
687 object popConsultCustom: TMenuItem
688 Tag = 6
689 Caption = '&Custom View..'
690 OnClick = mnuViewClick
691 end
692 end
693 object mnuConsults: TMainMenu
694 Left = 461
695 Top = 305
696 object mnuView: TMenuItem
697 Caption = '&View'
698 GroupIndex = 3
699 object mnuViewChart: TMenuItem
700 Caption = 'Chart &Tab'
701 object mnuChartCover: TMenuItem
702 Tag = 1
703 Caption = 'Cover &Sheet'
704 ShortCut = 16467
705 OnClick = mnuChartTabClick
706 end
707 object mnuChartProbs: TMenuItem
708 Tag = 2
709 Caption = '&Problem List'
710 ShortCut = 16464
711 OnClick = mnuChartTabClick
712 end
713 object mnuChartMeds: TMenuItem
714 Tag = 3
715 Caption = '&Medications'
716 ShortCut = 16461
717 OnClick = mnuChartTabClick
718 end
719 object mnuChartOrders: TMenuItem
720 Tag = 4
721 Caption = '&Orders'
722 ShortCut = 16463
723 OnClick = mnuChartTabClick
724 end
725 object mnuChartNotes: TMenuItem
726 Tag = 6
727 Caption = 'Progress &Notes'
728 ShortCut = 16462
729 OnClick = mnuChartTabClick
730 end
731 object mnuChartCslts: TMenuItem
732 Tag = 7
733 Caption = 'Consul&ts'
734 ShortCut = 16468
735 OnClick = mnuChartTabClick
736 end
737 object mnuChartSurgery: TMenuItem
738 Tag = 11
739 Caption = 'S&urgery'
740 ShortCut = 16469
741 OnClick = mnuChartTabClick
742 end
743 object mnuChartDCSumm: TMenuItem
744 Tag = 8
745 Caption = '&Discharge Summaries'
746 ShortCut = 16452
747 OnClick = mnuChartTabClick
748 end
749 object mnuChartLabs: TMenuItem
750 Tag = 9
751 Caption = '&Laboratory'
752 ShortCut = 16460
753 OnClick = mnuChartTabClick
754 end
755 object mnuChartReports: TMenuItem
756 Tag = 10
757 Caption = '&Reports'
758 ShortCut = 16466
759 OnClick = mnuChartTabClick
760 end
761 end
762 object mnuViewInformation: TMenuItem
763 Caption = 'Information'
764 OnClick = mnuViewInformationClick
765 object mnuViewDemo: TMenuItem
766 Tag = 1
767 Caption = 'De&mographics...'
768 OnClick = ViewInfo
769 end
770 object mnuViewVisits: TMenuItem
771 Tag = 2
772 Caption = 'Visits/Pr&ovider...'
773 OnClick = ViewInfo
774 end
775 object mnuViewPrimaryCare: TMenuItem
776 Tag = 3
777 Caption = 'Primary &Care...'
778 OnClick = ViewInfo
779 end
780 object mnuViewMyHealtheVet: TMenuItem
781 Tag = 4
782 Caption = 'MyHealthe&Vet...'
783 OnClick = ViewInfo
784 end
785 object mnuInsurance: TMenuItem
786 Tag = 5
787 Caption = '&Insurance...'
788 OnClick = ViewInfo
789 end
790 object mnuViewFlags: TMenuItem
791 Tag = 6
792 Caption = '&Flags...'
793 OnClick = ViewInfo
794 end
795 object mnuViewRemoteData: TMenuItem
796 Tag = 7
797 Caption = 'Remote &Data...'
798 OnClick = ViewInfo
799 end
800 object mnuViewReminders: TMenuItem
801 Tag = 8
802 Caption = '&Reminders...'
803 Enabled = False
804 OnClick = ViewInfo
805 end
806 object mnuViewPostings: TMenuItem
807 Tag = 9
808 Caption = '&Postings...'
809 OnClick = ViewInfo
810 end
811 end
812 object Z3: TMenuItem
813 Caption = '-'
814 end
815 object mnuViewAll: TMenuItem
816 Tag = 1
817 Caption = '&All Consults'
818 OnClick = mnuViewClick
819 end
820 object mnuViewByStatus: TMenuItem
821 Tag = 2
822 Caption = 'Consults by Stat&us'
823 OnClick = mnuViewClick
824 end
825 object mnuViewByService: TMenuItem
826 Tag = 4
827 Caption = 'Consults by &Service'
828 OnClick = mnuViewClick
829 end
830 object mnuViewByDate: TMenuItem
831 Tag = 5
832 Caption = 'Consults by Date &Range'
833 OnClick = mnuViewClick
834 end
835 object mnuViewCustom: TMenuItem
836 Tag = 6
837 Caption = 'Custo&m View'
838 OnClick = mnuViewClick
839 end
840 object N4: TMenuItem
841 Caption = '-'
842 end
843 object mnuViewSaveAsDefault: TMenuItem
844 Caption = 'Sa&ve as Default View'
845 OnClick = mnuViewSaveAsDefaultClick
846 end
847 object mnuViewReturntoDefault: TMenuItem
848 Caption = 'Return to De&fault View'
849 OnClick = mnuViewReturntoDefaultClick
850 end
851 object N13: TMenuItem
852 Caption = '-'
853 end
854 object mnuIconLegend: TMenuItem
855 Caption = 'Icon Legend'
856 OnClick = mnuIconLegendClick
857 end
858 end
859 object mnuAct: TMenuItem
860 Caption = '&Action'
861 GroupIndex = 4
862 object mnuActNew: TMenuItem
863 Caption = '&New...'
864 Hint = 'Add consults or procedures'
865 object mnuActNewConsultRequest: TMenuItem
866 Tag = 1
867 Caption = '&Consult...'
868 Hint = 'Creates a new consult'
869 OnClick = mnuActNewConsultRequestClick
870 end
871 object mnuActNewProcedure: TMenuItem
872 Tag = 9
873 Caption = '&Procedure...'
874 Hint = 'Creates a new procedure'
875 OnClick = mnuActNewProcedureClick
876 end
877 end
878 object Z2: TMenuItem
879 Caption = '-'
880 end
881 object mnuActConsultRequest: TMenuItem
882 Caption = '&Consult Tracking...'
883 Hint = 'Actions related to the selected consult'
884 object mnuActReceive: TMenuItem
885 Tag = 1
886 Caption = '&Receive'
887 OnClick = mnuActConsultClick
888 end
889 object mnuActSchedule: TMenuItem
890 Tag = 10
891 Caption = 'Schedu&le'
892 OnClick = mnuActConsultClick
893 end
894 object mnuActDeny: TMenuItem
895 Tag = 2
896 Caption = '&Cancel (Deny)'
897 OnClick = mnuActConsultClick
898 end
899 object mnuActEditResubmit: TMenuItem
900 Caption = '&Edit/Resubmit'
901 OnClick = mnuActEditResubmitClick
902 end
903 object mnuActDiscontinue: TMenuItem
904 Tag = 3
905 Caption = '&Discontinue'
906 OnClick = mnuActConsultClick
907 end
908 object mnuActForward: TMenuItem
909 Tag = 4
910 Caption = '&Forward'
911 OnClick = mnuActConsultClick
912 end
913 object mnuActAddComment: TMenuItem
914 Tag = 5
915 Caption = '&Add Comment'
916 OnClick = mnuActConsultClick
917 end
918 object mnuActSigFindings: TMenuItem
919 Tag = 8
920 Caption = '&Significant Findings'
921 OnClick = mnuActConsultClick
922 end
923 object mnuActAdminComplete: TMenuItem
924 Tag = 9
925 Caption = 'Ad&ministrative Complete'
926 OnClick = mnuActConsultClick
927 end
928 object N3: TMenuItem
929 Caption = '-'
930 end
931 object mnuActDisplayDetails: TMenuItem
932 Caption = 'Display De&tails'
933 OnClick = mnuActDisplayDetailsClick
934 end
935 object mnuActDisplayResults: TMenuItem
936 Caption = 'Display Res&ults'
937 OnClick = mnuActDisplayResultsClick
938 end
939 object mnuActDisplaySF513: TMenuItem
940 Caption = 'Display SF &513'
941 OnClick = mnuActDisplaySF513Click
942 end
943 object mnuActPrintSF513: TMenuItem
944 Caption = '&Print SF 513'
945 OnClick = mnuActPrintSF513Click
946 end
947 end
948 object N1: TMenuItem
949 Caption = '-'
950 end
951 object mnuActConsultResults: TMenuItem
952 Caption = 'Consult &Results...'
953 object mnuActComplete: TMenuItem
954 Tag = 6
955 Caption = 'Complete/&Update Results...'
956 ShortCut = 24661
957 OnClick = mnuActCompleteClick
958 end
959 object mnuActMakeAddendum: TMenuItem
960 Tag = 7
961 Caption = '&Make Addendum...'
962 Hint = 'Makes an addendum for the currently selected consult'
963 ShortCut = 24653
964 OnClick = mnuActMakeAddendumClick
965 end
966 object mnuActAddIDEntry: TMenuItem
967 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
968 OnClick = mnuActAddIDEntryClick
969 end
970 object mnuActAttachtoIDParent: TMenuItem
971 Caption = 'Attach to Interdisciplinary Note'
972 OnClick = mnuActAttachtoIDParentClick
973 end
974 object mnuActDetachFromIDParent: TMenuItem
975 Caption = 'Detac&h from Interdisciplinary Note'
976 OnClick = mnuActDetachFromIDParentClick
977 end
978 object N12: TMenuItem
979 Caption = '-'
980 end
981 object mnuActAttachMed: TMenuItem
982 Caption = 'A&ttach Medicine Results'
983 OnClick = mnuActAttachMedClick
984 end
985 object mnuActRemoveMed: TMenuItem
986 Caption = 'Remo&ve Medicine Results'
987 OnClick = mnuActRemoveMedClick
988 end
989 object N9: TMenuItem
990 Caption = '-'
991 end
992 object mnuActChange: TMenuItem
993 Caption = '&Change Title...'
994 ShortCut = 24643
995 OnClick = mnuActChangeClick
996 end
997 object mnuActLoadBoiler: TMenuItem
998 Caption = 'Reload &Boilerplate Text'
999 OnClick = mnuActLoadBoilerClick
1000 end
1001 object N2: TMenuItem
1002 Caption = '-'
1003 end
1004 object mnuActSignatureList: TMenuItem
1005 Caption = 'Add to Signature &List'
1006 Hint =
1007 'Adds the currently displayed consult to list of things to be sig' +
1008 'ned'
1009 OnClick = mnuActSignatureListClick
1010 end
1011 object mnuActNoteDelete: TMenuItem
1012 Caption = '&Delete Note...'
1013 ShortCut = 24644
1014 OnClick = mnuActNoteDeleteClick
1015 end
1016 object mnuActNoteEdit: TMenuItem
1017 Caption = '&Edit Note...'
1018 ShortCut = 24645
1019 OnClick = mnuActNoteEditClick
1020 end
1021 object mnuActSignatureSave: TMenuItem
1022 Caption = 'S&ave Without Signature'
1023 Hint = 'Saves the consult that is being edited'
1024 ShortCut = 24641
1025 OnClick = mnuActSignatureSaveClick
1026 end
1027 object mnuActSignatureSign: TMenuItem
1028 Caption = 'Si&gn Note Now...'
1029 ShortCut = 24647
1030 OnClick = mnuActSignatureSignClick
1031 end
1032 object mnuActIdentifyAddlSigners: TMenuItem
1033 Caption = '&Identify Additional Signers'
1034 OnClick = mnuActIdentifyAddlSignersClick
1035 end
1036 object N8: TMenuItem
1037 Caption = '-'
1038 end
1039 object mnuActNotePrint: TMenuItem
1040 Caption = 'P&rint Note'
1041 OnClick = mnuActNotePrintClick
1042 end
1043 end
1044 end
1045 object mnuOptions: TMenuItem
1046 Caption = '&Options'
1047 GroupIndex = 4
1048 OnClick = mnuOptionsClick
1049 object mnuEditTemplates: TMenuItem
1050 Caption = 'Edit &Templates...'
1051 OnClick = mnuEditTemplatesClick
1052 end
1053 object mnuNewTemplate: TMenuItem
1054 Caption = 'Create &New Template...'
1055 OnClick = mnuNewTemplateClick
1056 end
1057 object N6: TMenuItem
1058 Caption = '-'
1059 end
1060 object mnuEditSharedTemplates: TMenuItem
1061 Caption = 'Edit &Shared Templates...'
1062 OnClick = mnuEditSharedTemplatesClick
1063 end
1064 object mnuNewSharedTemplate: TMenuItem
1065 Caption = '&Create New Shared Template...'
1066 OnClick = mnuNewSharedTemplateClick
1067 end
1068 object N10: TMenuItem
1069 Caption = '-'
1070 end
1071 object mnuEditDialgFields: TMenuItem
1072 Caption = 'Edit Template &Fields'
1073 OnClick = mnuEditDialgFieldsClick
1074 end
1075 end
1076 end
1077 object timAutoSave: TTimer
1078 Enabled = False
1079 Interval = 300000
1080 OnTimer = timAutoSaveTimer
1081 Left = 602
1082 Top = 110
1083 end
1084 object popNoteList: TPopupMenu
1085 OnPopup = popNoteListPopup
1086 Left = 395
1087 Top = 307
1088 object popNoteListExpandSelected: TMenuItem
1089 Caption = '&Expand Selected'
1090 OnClick = popNoteListExpandSelectedClick
1091 end
1092 object popNoteListExpandAll: TMenuItem
1093 Caption = 'E&xpand All'
1094 OnClick = popNoteListExpandAllClick
1095 end
1096 object popNoteListCollapseSelected: TMenuItem
1097 Caption = 'C&ollapse Selected'
1098 OnClick = popNoteListCollapseSelectedClick
1099 end
1100 object popNoteListCollapseAll: TMenuItem
1101 Caption = 'Co&llapse All'
1102 OnClick = popNoteListCollapseAllClick
1103 end
1104 object N11: TMenuItem
1105 Caption = '-'
1106 end
1107 object popNoteListAddIDEntry: TMenuItem
1108 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
1109 OnClick = mnuActAddIDEntryClick
1110 end
1111 object popNoteListAttachtoIDParent: TMenuItem
1112 Caption = 'Attach to Interdisciplinary Note'
1113 OnClick = mnuActAttachtoIDParentClick
1114 end
1115 object popNoteListDetachFromIDParent: TMenuItem
1116 Caption = 'Detac&h from Interdisciplinary Note'
1117 OnClick = mnuActDetachFromIDParentClick
1118 end
1119 end
1120 object dlgFindText: TFindDialog
1121 Options = [frDown, frHideUpDown]
1122 OnFind = dlgFindTextFind
1123 Left = 628
1124 Top = 303
1125 end
1126 object dlgReplaceText: TReplaceDialog
1127 OnFind = dlgReplaceTextFind
1128 OnReplace = dlgReplaceTextReplace
1129 Left = 665
1130 Top = 303
1131 end
[829]1132 object imgLblNotes: TVA508ImageListLabeler
1133 Components = <
1134 item
1135 Component = tvCsltNotes
1136 end>
1137 Labels = <>
1138 RemoteLabeler = dmodShared.imgLblNotes
1139 Left = 16
1140 Top = 48
1141 end
1142 object imgLblImages: TVA508ImageListLabeler
1143 Components = <
1144 item
1145 Component = tvCsltNotes
1146 end>
1147 Labels = <>
1148 RemoteLabeler = dmodShared.imgLblImages
1149 Left = 8
1150 Top = 88
1151 end
1152 object imgLblConsults: TVA508ImageListLabeler
1153 Components = <
1154 item
1155 Component = tvConsults
1156 end>
1157 Labels = <>
1158 RemoteLabeler = dmodShared.imgLblConsults
1159 Left = 56
1160 Top = 96
1161 end
[456]1162end
Note: See TracBrowser for help on using the repository browser.