source: cprs/branches/foia-cprs/CPRS-Chart/fDCSumm.dfm@ 1154

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

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