source: cprs/trunk/CPRS-Chart/fSurgery.dfm@ 1023

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

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