source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fSurgery.dfm@ 1723

Last change on this file since 1723 was 1704, checked in by healthsevak, 10 years ago

Implemented the OpenSource based spell check feature

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