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

Last change on this file since 1800 was 1679, checked in by healthsevak, 10 years ago

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