source: cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsults.dfm@ 459

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

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