source: cprs/trunk/CPRS-Chart/fNotes.dfm@ 996

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

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