source: cprs/trunk/CPRS-Chart/fDCSumm.dfm@ 1671

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

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