source: cprs/branches/foia-cprs/CPRS-Chart/fNotes.dfm@ 1440

Last change on this file since 1440 was 460, checked in by Kevin Toppenberg, 17 years ago

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