source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fNotes.dfm@ 1742

Last change on this file since 1742 was 1703, checked in by healthsevak, 10 years ago

updated this file to version 28 and Implemented the OpenSource based spell check feature

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