source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fDCSumm.dfm@ 1714

Last change on this file since 1714 was 1702, checked in by healthsevak, 10 years ago

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