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

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

Initial Upload of Official WV CPRS 1.0.26.76
File size: 29.1 KB
RevLine 
[456]1inherited frmConsults: TfrmConsults
2 Left = 247
3 Top = 174
4 Width = 723
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 = 715
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 = 630
28 Height = 416
29 OnResize = pnlRightResize
30 object sptVert: TSplitter
31 Left = 0
32 Top = 350
33 Width = 630
34 Height = 4
35 Cursor = crVSplit
36 Align = alBottom
37 end
38 object pnlRead: TPanel
39 Left = 0
40 Top = 0
41 Width = 630
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 = 630
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 = 630
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 = 630
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 = 630
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 = 630
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 = 630
140 Height = 67
141 Align = alTop
142 BevelOuter = bvNone
143 TabOrder = 0
144 OnResize = pnlFieldsResize
145 DesignSize = (
146 630
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 = 402
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 = 307
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 = 556
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 = 566
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 HideSelection = False
438 Indent = 15
439 PopupMenu = popNoteList
440 ReadOnly = True
441 TabOrder = 0
442 OnAddition = tvConsultsAddition
443 OnClick = tvConsultsClick
444 OnCollapsed = tvConsultsCollapsed
445 OnDeletion = tvConsultsDeletion
446 OnExit = tvConsultsExit
447 OnExpanded = tvConsultsExpanded
448 OnKeyUp = tvConsultsKeyUp
449 OnMouseMove = FormMouseMove
450 Caption = 'Consults'
451 NodePiece = 0
452 ShortNodeCaptions = True
453 end
454 end
455 end
456 object popNoteMemo: TPopupMenu
457 OnPopup = popNoteMemoPopup
458 Left = 589
459 Top = 304
460 object popNoteMemoCut: TMenuItem
461 Caption = 'Cu&t'
462 ShortCut = 16472
463 OnClick = popNoteMemoCutClick
464 end
465 object popNoteMemoCopy: TMenuItem
466 Caption = '&Copy'
467 ShortCut = 16451
468 OnClick = popNoteMemoCopyClick
469 end
470 object popNoteMemoPaste: TMenuItem
471 Caption = '&Paste'
472 ShortCut = 16470
473 OnClick = popNoteMemoPasteClick
474 end
475 object popNoteMemoPaste2: TMenuItem
476 Caption = 'Paste2'
477 ShortCut = 8237
478 Visible = False
479 OnClick = popNoteMemoPasteClick
480 end
481 object popNoteMemoReformat: TMenuItem
482 Caption = 'Re&format Paragraph'
483 ShortCut = 24658
484 OnClick = popNoteMemoReformatClick
485 end
486 object popNoteMemoSaveContinue: TMenuItem
487 Caption = 'Save && Continue Editing'
488 ShortCut = 24659
489 Visible = False
490 OnClick = popNoteMemoSaveContinueClick
491 end
492 object Z11: TMenuItem
493 Caption = '-'
494 end
495 object popNoteMemoFind: TMenuItem
496 Caption = '&Find in Selected Note/Consult'
497 OnClick = popNoteMemoFindClick
498 end
499 object popNoteMemoReplace: TMenuItem
500 Caption = '&Replace Text'
501 OnClick = popNoteMemoReplaceClick
502 end
503 object N14: TMenuItem
504 Caption = '-'
505 end
506 object popNoteMemoGrammar: TMenuItem
507 Caption = 'Check &Grammar'
508 OnClick = popNoteMemoGrammarClick
509 end
510 object popNoteMemoSpell: TMenuItem
511 Caption = 'C&heck Spelling'
512 OnClick = popNoteMemoSpellClick
513 end
514 object N5: TMenuItem
515 Caption = '-'
516 end
517 object popNoteMemoTemplate: TMenuItem
518 Caption = 'Copy into New &Template'
519 OnClick = popNoteMemoTemplateClick
520 end
521 object Z10: TMenuItem
522 Caption = '-'
523 end
524 object popNoteMemoSignList: TMenuItem
525 Caption = 'Add to Signature &List'
526 OnClick = mnuActSignatureListClick
527 end
528 object popNoteMemoDelete: TMenuItem
529 Caption = '&Delete Note...'
530 OnClick = mnuActNoteDeleteClick
531 end
532 object popNoteMemoEdit: TMenuItem
533 Caption = '&Edit Note...'
534 OnClick = mnuActNoteEditClick
535 end
536 object popNoteMemoAddend: TMenuItem
537 Caption = '&Make Addendum...'
538 OnClick = mnuActMakeAddendumClick
539 end
540 object popNoteMemoSave: TMenuItem
541 Caption = 'S&ave without Signature'
542 OnClick = mnuActSignatureSaveClick
543 end
544 object popNoteMemoSign: TMenuItem
545 Caption = '&Sign Note Now...'
546 OnClick = mnuActSignatureSignClick
547 end
548 object popNoteMemoAddlSign: TMenuItem
549 Caption = '&Identify Additional Signers'
550 OnClick = popNoteMemoAddlSignClick
551 end
552 object N7: TMenuItem
553 Caption = '-'
554 end
555 object popNoteMemoPrint: TMenuItem
556 Caption = 'P&rint Note'
557 OnClick = popNoteMemoPrintClick
558 end
559 object N15: TMenuItem
560 Caption = '-'
561 end
562 object popNoteMemoPreview: TMenuItem
563 Caption = 'Previe&w/Print Current Template'
564 ShortCut = 16471
565 OnClick = popNoteMemoPreviewClick
566 end
567 object popNoteMemoInsTemplate: TMenuItem
568 Caption = 'Insert Current Template'
569 ShortCut = 16429
570 OnClick = popNoteMemoInsTemplateClick
571 end
572 object popNoteMemoEncounter: TMenuItem
573 Caption = 'Edit Encounter Information'
574 ShortCut = 16453
575 OnClick = cmdPCEClick
576 end
577 end
578 object popConsultList: TPopupMenu
579 Left = 523
580 Top = 308
581 object popConsultAll: TMenuItem
582 Tag = 1
583 Caption = '&All Consults'
584 OnClick = mnuViewClick
585 end
586 object popConsultStatus: TMenuItem
587 Tag = 2
588 Caption = 'Consults by Stat&us'
589 OnClick = mnuViewClick
590 end
591 object popConsultService: TMenuItem
592 Tag = 4
593 Caption = 'Consults by &Service'
594 OnClick = mnuViewClick
595 end
596 object popConsultDates: TMenuItem
597 Tag = 5
598 Caption = 'Consults by Date &Range'
599 OnClick = mnuViewClick
600 end
601 object popConsultCustom: TMenuItem
602 Tag = 6
603 Caption = '&Custom View..'
604 OnClick = mnuViewClick
605 end
606 end
607 object mnuConsults: TMainMenu
608 Left = 461
609 Top = 305
610 object mnuView: TMenuItem
611 Caption = '&View'
612 GroupIndex = 3
613 object mnuViewChart: TMenuItem
614 Caption = 'Chart &Tab'
615 object mnuChartCover: TMenuItem
616 Tag = 1
617 Caption = 'Cover &Sheet'
618 ShortCut = 16467
619 OnClick = mnuChartTabClick
620 end
621 object mnuChartProbs: TMenuItem
622 Tag = 2
623 Caption = '&Problem List'
624 ShortCut = 16464
625 OnClick = mnuChartTabClick
626 end
627 object mnuChartMeds: TMenuItem
628 Tag = 3
629 Caption = '&Medications'
630 ShortCut = 16461
631 OnClick = mnuChartTabClick
632 end
633 object mnuChartOrders: TMenuItem
634 Tag = 4
635 Caption = '&Orders'
636 ShortCut = 16463
637 OnClick = mnuChartTabClick
638 end
639 object mnuChartNotes: TMenuItem
640 Tag = 6
641 Caption = 'Progress &Notes'
642 ShortCut = 16462
643 OnClick = mnuChartTabClick
644 end
645 object mnuChartCslts: TMenuItem
646 Tag = 7
647 Caption = 'Consul&ts'
648 ShortCut = 16468
649 OnClick = mnuChartTabClick
650 end
651 object mnuChartSurgery: TMenuItem
652 Tag = 11
653 Caption = 'S&urgery'
654 ShortCut = 16469
655 OnClick = mnuChartTabClick
656 end
657 object mnuChartDCSumm: TMenuItem
658 Tag = 8
659 Caption = '&Discharge Summaries'
660 ShortCut = 16452
661 OnClick = mnuChartTabClick
662 end
663 object mnuChartLabs: TMenuItem
664 Tag = 9
665 Caption = '&Laboratory'
666 ShortCut = 16460
667 OnClick = mnuChartTabClick
668 end
669 object mnuChartReports: TMenuItem
670 Tag = 10
671 Caption = '&Reports'
672 ShortCut = 16466
673 OnClick = mnuChartTabClick
674 end
675 end
676 object mnuViewInformation: TMenuItem
677 Caption = 'Information'
678 OnClick = mnuViewInformationClick
679 object mnuViewDemo: TMenuItem
680 Tag = 1
681 Caption = 'De&mographics...'
682 OnClick = ViewInfo
683 end
684 object mnuViewVisits: TMenuItem
685 Tag = 2
686 Caption = 'Visits/Pr&ovider...'
687 OnClick = ViewInfo
688 end
689 object mnuViewPrimaryCare: TMenuItem
690 Tag = 3
691 Caption = 'Primary &Care...'
692 OnClick = ViewInfo
693 end
694 object mnuViewMyHealtheVet: TMenuItem
695 Tag = 4
696 Caption = 'MyHealthe&Vet...'
697 OnClick = ViewInfo
698 end
699 object mnuInsurance: TMenuItem
700 Tag = 5
701 Caption = '&Insurance...'
702 OnClick = ViewInfo
703 end
704 object mnuViewFlags: TMenuItem
705 Tag = 6
706 Caption = '&Flags...'
707 OnClick = ViewInfo
708 end
709 object mnuViewRemoteData: TMenuItem
710 Tag = 7
711 Caption = 'Remote &Data...'
712 OnClick = ViewInfo
713 end
714 object mnuViewReminders: TMenuItem
715 Tag = 8
716 Caption = '&Reminders...'
717 Enabled = False
718 OnClick = ViewInfo
719 end
720 object mnuViewPostings: TMenuItem
721 Tag = 9
722 Caption = '&Postings...'
723 OnClick = ViewInfo
724 end
725 end
726 object Z3: TMenuItem
727 Caption = '-'
728 end
729 object mnuViewAll: TMenuItem
730 Tag = 1
731 Caption = '&All Consults'
732 OnClick = mnuViewClick
733 end
734 object mnuViewByStatus: TMenuItem
735 Tag = 2
736 Caption = 'Consults by Stat&us'
737 OnClick = mnuViewClick
738 end
739 object mnuViewByService: TMenuItem
740 Tag = 4
741 Caption = 'Consults by &Service'
742 OnClick = mnuViewClick
743 end
744 object mnuViewByDate: TMenuItem
745 Tag = 5
746 Caption = 'Consults by Date &Range'
747 OnClick = mnuViewClick
748 end
749 object mnuViewCustom: TMenuItem
750 Tag = 6
751 Caption = 'Custo&m View'
752 OnClick = mnuViewClick
753 end
754 object N4: TMenuItem
755 Caption = '-'
756 end
757 object mnuViewSaveAsDefault: TMenuItem
758 Caption = 'Sa&ve as Default View'
759 OnClick = mnuViewSaveAsDefaultClick
760 end
761 object mnuViewReturntoDefault: TMenuItem
762 Caption = 'Return to De&fault View'
763 OnClick = mnuViewReturntoDefaultClick
764 end
765 object N13: TMenuItem
766 Caption = '-'
767 end
768 object mnuIconLegend: TMenuItem
769 Caption = 'Icon Legend'
770 OnClick = mnuIconLegendClick
771 end
772 end
773 object mnuAct: TMenuItem
774 Caption = '&Action'
775 GroupIndex = 4
776 object mnuActNew: TMenuItem
777 Caption = '&New...'
778 Hint = 'Add consults or procedures'
779 object mnuActNewConsultRequest: TMenuItem
780 Tag = 1
781 Caption = '&Consult...'
782 Hint = 'Creates a new consult'
783 OnClick = mnuActNewConsultRequestClick
784 end
785 object mnuActNewProcedure: TMenuItem
786 Tag = 9
787 Caption = '&Procedure...'
788 Hint = 'Creates a new procedure'
789 OnClick = mnuActNewProcedureClick
790 end
791 end
792 object Z2: TMenuItem
793 Caption = '-'
794 end
795 object mnuActConsultRequest: TMenuItem
796 Caption = '&Consult Tracking...'
797 Hint = 'Actions related to the selected consult'
798 object mnuActReceive: TMenuItem
799 Tag = 1
800 Caption = '&Receive'
801 OnClick = mnuActConsultClick
802 end
803 object mnuActSchedule: TMenuItem
804 Tag = 10
805 Caption = 'Schedu&le'
806 OnClick = mnuActConsultClick
807 end
808 object mnuActDeny: TMenuItem
809 Tag = 2
810 Caption = '&Cancel (Deny)'
811 OnClick = mnuActConsultClick
812 end
813 object mnuActEditResubmit: TMenuItem
814 Caption = '&Edit/Resubmit'
815 OnClick = mnuActEditResubmitClick
816 end
817 object mnuActDiscontinue: TMenuItem
818 Tag = 3
819 Caption = '&Discontinue'
820 OnClick = mnuActConsultClick
821 end
822 object mnuActForward: TMenuItem
823 Tag = 4
824 Caption = '&Forward'
825 OnClick = mnuActConsultClick
826 end
827 object mnuActAddComment: TMenuItem
828 Tag = 5
829 Caption = '&Add Comment'
830 OnClick = mnuActConsultClick
831 end
832 object mnuActSigFindings: TMenuItem
833 Tag = 8
834 Caption = '&Significant Findings'
835 OnClick = mnuActConsultClick
836 end
837 object mnuActAdminComplete: TMenuItem
838 Tag = 9
839 Caption = 'Ad&ministrative Complete'
840 OnClick = mnuActConsultClick
841 end
842 object N3: TMenuItem
843 Caption = '-'
844 end
845 object mnuActDisplayDetails: TMenuItem
846 Caption = 'Display De&tails'
847 OnClick = mnuActDisplayDetailsClick
848 end
849 object mnuActDisplayResults: TMenuItem
850 Caption = 'Display Res&ults'
851 OnClick = mnuActDisplayResultsClick
852 end
853 object mnuActDisplaySF513: TMenuItem
854 Caption = 'Display SF &513'
855 OnClick = mnuActDisplaySF513Click
856 end
857 object mnuActPrintSF513: TMenuItem
858 Caption = '&Print SF 513'
859 OnClick = mnuActPrintSF513Click
860 end
861 end
862 object N1: TMenuItem
863 Caption = '-'
864 end
865 object mnuActConsultResults: TMenuItem
866 Caption = 'Consult &Results...'
867 object mnuActComplete: TMenuItem
868 Tag = 6
869 Caption = 'Complete/&Update Results...'
870 ShortCut = 24661
871 OnClick = mnuActCompleteClick
872 end
873 object mnuActMakeAddendum: TMenuItem
874 Tag = 7
875 Caption = '&Make Addendum...'
876 Hint = 'Makes an addendum for the currently selected consult'
877 ShortCut = 24653
878 OnClick = mnuActMakeAddendumClick
879 end
880 object mnuActAddIDEntry: TMenuItem
881 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
882 OnClick = mnuActAddIDEntryClick
883 end
884 object mnuActAttachtoIDParent: TMenuItem
885 Caption = 'Attach to Interdisciplinary Note'
886 OnClick = mnuActAttachtoIDParentClick
887 end
888 object mnuActDetachFromIDParent: TMenuItem
889 Caption = 'Detac&h from Interdisciplinary Note'
890 OnClick = mnuActDetachFromIDParentClick
891 end
892 object N12: TMenuItem
893 Caption = '-'
894 end
895 object mnuActAttachMed: TMenuItem
896 Caption = 'A&ttach Medicine Results'
897 OnClick = mnuActAttachMedClick
898 end
899 object mnuActRemoveMed: TMenuItem
900 Caption = 'Remo&ve Medicine Results'
901 OnClick = mnuActRemoveMedClick
902 end
903 object N9: TMenuItem
904 Caption = '-'
905 end
906 object mnuActChange: TMenuItem
907 Caption = '&Change Title...'
908 ShortCut = 24643
909 OnClick = mnuActChangeClick
910 end
911 object mnuActLoadBoiler: TMenuItem
912 Caption = 'Reload &Boilerplate Text'
913 OnClick = mnuActLoadBoilerClick
914 end
915 object N2: TMenuItem
916 Caption = '-'
917 end
918 object mnuActSignatureList: TMenuItem
919 Caption = 'Add to Signature &List'
920 Hint =
921 'Adds the currently displayed consult to list of things to be sig' +
922 'ned'
923 OnClick = mnuActSignatureListClick
924 end
925 object mnuActNoteDelete: TMenuItem
926 Caption = '&Delete Note...'
927 ShortCut = 24644
928 OnClick = mnuActNoteDeleteClick
929 end
930 object mnuActNoteEdit: TMenuItem
931 Caption = '&Edit Note...'
932 ShortCut = 24645
933 OnClick = mnuActNoteEditClick
934 end
935 object mnuActSignatureSave: TMenuItem
936 Caption = 'S&ave Without Signature'
937 Hint = 'Saves the consult that is being edited'
938 ShortCut = 24641
939 OnClick = mnuActSignatureSaveClick
940 end
941 object mnuActSignatureSign: TMenuItem
942 Caption = 'Si&gn Note Now...'
943 ShortCut = 24647
944 OnClick = mnuActSignatureSignClick
945 end
946 object mnuActIdentifyAddlSigners: TMenuItem
947 Caption = '&Identify Additional Signers'
948 OnClick = mnuActIdentifyAddlSignersClick
949 end
950 object N8: TMenuItem
951 Caption = '-'
952 end
953 object mnuActNotePrint: TMenuItem
954 Caption = 'P&rint Note'
955 OnClick = mnuActNotePrintClick
956 end
957 end
958 end
959 object mnuOptions: TMenuItem
960 Caption = '&Options'
961 GroupIndex = 4
962 OnClick = mnuOptionsClick
963 object mnuEditTemplates: TMenuItem
964 Caption = 'Edit &Templates...'
965 OnClick = mnuEditTemplatesClick
966 end
967 object mnuNewTemplate: TMenuItem
968 Caption = 'Create &New Template...'
969 OnClick = mnuNewTemplateClick
970 end
971 object N6: TMenuItem
972 Caption = '-'
973 end
974 object mnuEditSharedTemplates: TMenuItem
975 Caption = 'Edit &Shared Templates...'
976 OnClick = mnuEditSharedTemplatesClick
977 end
978 object mnuNewSharedTemplate: TMenuItem
979 Caption = '&Create New Shared Template...'
980 OnClick = mnuNewSharedTemplateClick
981 end
982 object N10: TMenuItem
983 Caption = '-'
984 end
985 object mnuEditDialgFields: TMenuItem
986 Caption = 'Edit Template &Fields'
987 OnClick = mnuEditDialgFieldsClick
988 end
989 end
990 end
991 object timAutoSave: TTimer
992 Enabled = False
993 Interval = 300000
994 OnTimer = timAutoSaveTimer
995 Left = 602
996 Top = 110
997 end
998 object popNoteList: TPopupMenu
999 OnPopup = popNoteListPopup
1000 Left = 395
1001 Top = 307
1002 object popNoteListExpandSelected: TMenuItem
1003 Caption = '&Expand Selected'
1004 OnClick = popNoteListExpandSelectedClick
1005 end
1006 object popNoteListExpandAll: TMenuItem
1007 Caption = 'E&xpand All'
1008 OnClick = popNoteListExpandAllClick
1009 end
1010 object popNoteListCollapseSelected: TMenuItem
1011 Caption = 'C&ollapse Selected'
1012 OnClick = popNoteListCollapseSelectedClick
1013 end
1014 object popNoteListCollapseAll: TMenuItem
1015 Caption = 'Co&llapse All'
1016 OnClick = popNoteListCollapseAllClick
1017 end
1018 object N11: TMenuItem
1019 Caption = '-'
1020 end
1021 object popNoteListAddIDEntry: TMenuItem
1022 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
1023 OnClick = mnuActAddIDEntryClick
1024 end
1025 object popNoteListAttachtoIDParent: TMenuItem
1026 Caption = 'Attach to Interdisciplinary Note'
1027 OnClick = mnuActAttachtoIDParentClick
1028 end
1029 object popNoteListDetachFromIDParent: TMenuItem
1030 Caption = 'Detac&h from Interdisciplinary Note'
1031 OnClick = mnuActDetachFromIDParentClick
1032 end
1033 end
1034 object dlgFindText: TFindDialog
1035 Options = [frDown, frHideUpDown]
1036 OnFind = dlgFindTextFind
1037 Left = 628
1038 Top = 303
1039 end
1040 object dlgReplaceText: TReplaceDialog
1041 OnFind = dlgReplaceTextFind
1042 OnReplace = dlgReplaceTextReplace
1043 Left = 665
1044 Top = 303
1045 end
1046end
Note: See TracBrowser for help on using the repository browser.