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

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

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