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

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

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