source: cprs/branches/tmg-cprs/CPRS-Chart/fNotes.dfm@ 453

Last change on this file since 453 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69
File size: 35.7 KB
Line 
1inherited frmNotes: TfrmNotes
2 Left = 227
3 Top = 163
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 = 350
19 Width = 679
20 end
21 inherited sptHorz: TSplitter
22 Left = 64
23 Height = 350
24 OnCanResize = sptHorzCanResize
25 end
26 inherited pnlLeft: TPanel
27 Width = 64
28 Height = 350
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 = 305
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 = 308
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 = 329
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 = 286
82 Align = alClient
83 BevelOuter = bvNone
84 TabOrder = 0
85 object splDrawers: TSplitter
86 Left = 0
87 Top = 283
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 = 283
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 = 350
146 object sptVert: TSplitter
147 Left = 0
148 Top = 301
149 Width = 611
150 Height = 4
151 Cursor = crVSplit
152 Align = alBottom
153 end
154 object memPCEShow: TRichEdit
155 Left = 0
156 Top = 305
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 = 301
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 = 234
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 = 301
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 WebBrowser1: TWebBrowser
355 Left = 0
356 Top = 116
357 Width = 611
358 Height = 185
359 TabStop = False
360 Align = alClient
361 TabOrder = 2
362 OnCommandStateChange = WebBrowser1CommandStateChange
363 OnDocumentComplete = WebBrowser1DocumentComplete
364 ControlData = {
365 4C000000263F00001F1300000000000000000000000000000000000000000000
366 000000004C000000000000000000000001000000E0D057007335CF11AE690800
367 2B2E126208000000000000004C0000000114020000000000C000000000000046
368 8000000000000000000000000000000000000000000000000000000000000000
369 00000000000000000100000000000000000000000000000000000000}
370 end
371 object memNote: TRichEdit
372 Left = 0
373 Top = 116
374 Width = 611
375 Height = 185
376 Align = alClient
377 Color = clCream
378 Ctl3D = True
379 Font.Charset = DEFAULT_CHARSET
380 Font.Color = clWindowText
381 Font.Height = -11
382 Font.Name = 'Courier New'
383 Font.Style = []
384 Lines.Strings = (
385
386 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRUSTVWXYZabcdefghijkl' +
387 'mnopqrstuvwxyz12')
388 ParentCtl3D = False
389 ParentFont = False
390 PlainText = True
391 PopupMenu = popNoteMemo
392 ReadOnly = True
393 ScrollBars = ssBoth
394 TabOrder = 1
395 WordWrap = False
396 OnMouseMove = FormMouseMove
397 end
398 object lvNotes: TCaptionListView
399 Left = 0
400 Top = 19
401 Width = 611
402 Height = 94
403 Align = alTop
404 Columns = <
405 item
406 Caption = 'Date'
407 Width = 100
408 end
409 item
410 AutoSize = True
411 Caption = 'Title'
412 end
413 item
414 AutoSize = True
415 Caption = 'Subject'
416 end
417 item
418 AutoSize = True
419 Caption = 'Author'
420 end
421 item
422 AutoSize = True
423 Caption = 'Location'
424 end
425 item
426 Caption = 'fmdate'
427 Width = 0
428 end
429 item
430 Caption = 'TIUDA'
431 Width = 0
432 end>
433 Constraints.MinHeight = 50
434 HideSelection = False
435 ReadOnly = True
436 RowSelect = True
437 TabOrder = 0
438 ViewStyle = vsReport
439 Visible = False
440 OnColumnClick = lvNotesColumnClick
441 OnCompare = lvNotesCompare
442 OnMouseMove = FormMouseMove
443 OnResize = lvNotesResize
444 OnSelectItem = lvNotesSelectItem
445 Caption = 'No Progress Notes Found'
446 end
447 end
448 end
449 object mnuNotes: TMainMenu [4]
450 Left = 601
451 Top = 304
452 object mnuView: TMenuItem
453 Caption = '&View'
454 GroupIndex = 3
455 object mnuViewChart: TMenuItem
456 Caption = 'Chart &Tab'
457 object mnuChartCover: TMenuItem
458 Tag = 1
459 Caption = 'Cover &Sheet'
460 ShortCut = 16467
461 OnClick = mnuChartTabClick
462 end
463 object mnuChartProbs: TMenuItem
464 Tag = 2
465 Caption = '&Problem List'
466 ShortCut = 16464
467 OnClick = mnuChartTabClick
468 end
469 object mnuChartMeds: TMenuItem
470 Tag = 3
471 Caption = '&Medications'
472 ShortCut = 16461
473 OnClick = mnuChartTabClick
474 end
475 object mnuChartOrders: TMenuItem
476 Tag = 4
477 Caption = '&Orders'
478 ShortCut = 16463
479 OnClick = mnuChartTabClick
480 end
481 object mnuChartNotes: TMenuItem
482 Tag = 6
483 Caption = 'Progress &Notes'
484 ShortCut = 16462
485 OnClick = mnuChartTabClick
486 end
487 object mnuChartCslts: TMenuItem
488 Tag = 7
489 Caption = 'Consul&ts'
490 ShortCut = 16468
491 OnClick = mnuChartTabClick
492 end
493 object mnuChartSurgery: TMenuItem
494 Tag = 11
495 Caption = 'S&urgery'
496 ShortCut = 16469
497 OnClick = mnuChartTabClick
498 end
499 object mnuChartDCSumm: TMenuItem
500 Tag = 8
501 Caption = '&Discharge Summaries'
502 ShortCut = 16452
503 OnClick = mnuChartTabClick
504 end
505 object mnuChartLabs: TMenuItem
506 Tag = 9
507 Caption = '&Laboratory'
508 ShortCut = 16460
509 OnClick = mnuChartTabClick
510 end
511 object mnuChartReports: TMenuItem
512 Tag = 10
513 Caption = '&Reports'
514 ShortCut = 16466
515 OnClick = mnuChartTabClick
516 end
517 end
518 object mnuViewInformation: TMenuItem
519 Caption = 'Information'
520 OnClick = mnuViewInformationClick
521 object mnuViewDemo: TMenuItem
522 Tag = 1
523 Caption = 'De&mographics...'
524 OnClick = ViewInfo
525 end
526 object mnuViewVisits: TMenuItem
527 Tag = 2
528 Caption = 'Visits/Pr&ovider...'
529 OnClick = ViewInfo
530 end
531 object mnuViewPrimaryCare: TMenuItem
532 Tag = 3
533 Caption = 'Primary &Care...'
534 OnClick = ViewInfo
535 end
536 object mnuViewMyHealtheVet: TMenuItem
537 Tag = 4
538 Caption = 'MyHealthe&Vet...'
539 OnClick = ViewInfo
540 end
541 object mnuInsurance: TMenuItem
542 Tag = 5
543 Caption = '&Insurance...'
544 OnClick = ViewInfo
545 end
546 object mnuViewFlags: TMenuItem
547 Tag = 6
548 Caption = '&Flags...'
549 OnClick = ViewInfo
550 end
551 object mnuViewRemoteData: TMenuItem
552 Tag = 7
553 Caption = 'Remote &Data...'
554 OnClick = ViewInfo
555 end
556 object mnuViewReminders: TMenuItem
557 Tag = 8
558 Caption = '&Reminders...'
559 Enabled = False
560 OnClick = ViewInfo
561 end
562 object mnuViewPostings: TMenuItem
563 Tag = 9
564 Caption = '&Postings...'
565 OnClick = ViewInfo
566 end
567 end
568 object Z3: TMenuItem
569 Caption = '-'
570 end
571 object mnuViewAll: TMenuItem
572 Tag = 1
573 Caption = '&Signed Notes (All)'
574 OnClick = mnuViewClick
575 end
576 object mnuViewByAuthor: TMenuItem
577 Tag = 4
578 Caption = 'Signed Notes by &Author'
579 OnClick = mnuViewClick
580 end
581 object mnuViewByDate: TMenuItem
582 Tag = 5
583 Caption = 'Signed Notes by Date &Range'
584 OnClick = mnuViewClick
585 end
586 object mnuViewUncosigned: TMenuItem
587 Tag = 3
588 Caption = 'Un&cosigned Notes'
589 OnClick = mnuViewClick
590 end
591 object mnuViewUnsigned: TMenuItem
592 Tag = 2
593 Caption = '&Unsigned Notes'
594 OnClick = mnuViewClick
595 end
596 object mnuViewCustom: TMenuItem
597 Tag = 6
598 Caption = 'Custo&m View'
599 OnClick = mnuViewClick
600 end
601 object mnuSearchForText: TMenuItem
602 Tag = 7
603 Caption = 'Search for Te&xt (Within Current View)'
604 OnClick = mnuViewClick
605 end
606 object N1: TMenuItem
607 Caption = '-'
608 end
609 object mnuViewSaveAsDefault: TMenuItem
610 Caption = 'Sa&ve as Default View'
611 OnClick = mnuViewSaveAsDefaultClick
612 end
613 object ReturntoDefault1: TMenuItem
614 Caption = 'Return to De&fault View'
615 OnClick = mnuViewReturntoDefaultClick
616 end
617 object Z1: TMenuItem
618 Caption = '-'
619 end
620 object mnuViewDetail: TMenuItem
621 Caption = '&Details'
622 OnClick = mnuViewDetailClick
623 end
624 object N6: TMenuItem
625 Caption = '-'
626 end
627 object mnuIconLegend: TMenuItem
628 Caption = 'Icon Legend'
629 OnClick = mnuIconLegendClick
630 end
631 end
632 object mnuAct: TMenuItem
633 Caption = '&Action'
634 GroupIndex = 4
635 object mnuActNew: TMenuItem
636 Caption = '&New Progress Note...'
637 Hint = 'Creates a new progress note'
638 ShortCut = 24654
639 OnClick = mnuActNewClick
640 end
641 object mnuActAddend: TMenuItem
642 Caption = '&Make Addendum...'
643 Hint = 'Makes an addendum for the currently selected note'
644 ShortCut = 24653
645 OnClick = mnuActAddendClick
646 end
647 object mnuActAddIDEntry: TMenuItem
648 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
649 OnClick = mnuActAddIDEntryClick
650 end
651 object mnuActAttachtoIDParent: TMenuItem
652 Caption = 'A&ttach to Interdisciplinary Note'
653 OnClick = mnuActAttachtoIDParentClick
654 end
655 object mnuActDetachFromIDParent: TMenuItem
656 Caption = 'Detac&h from Interdisciplinary Note'
657 OnClick = mnuActDetachFromIDParentClick
658 end
659 object Z4: TMenuItem
660 Caption = '-'
661 end
662 object mnuActChange: TMenuItem
663 Caption = '&Change Title...'
664 ShortCut = 24643
665 OnClick = mnuActChangeClick
666 end
667 object mnuActLoadBoiler: TMenuItem
668 Caption = 'Reload &Boilerplate Text'
669 OnClick = mnuActLoadBoilerClick
670 end
671 object Z2: TMenuItem
672 Caption = '-'
673 end
674 object mnuActSignList: TMenuItem
675 Caption = 'Add to Signature &List'
676 Hint = 'Adds the currently displayed note to list of things to be signed'
677 OnClick = mnuActSignListClick
678 end
679 object mnuActDelete: TMenuItem
680 Caption = '&Delete Progress Note...'
681 ShortCut = 24644
682 OnClick = mnuActDeleteClick
683 end
684 object mnuActEdit: TMenuItem
685 Caption = '&Edit Progress Note...'
686 ShortCut = 24645
687 OnClick = mnuActEditClick
688 end
689 object mnuActSave: TMenuItem
690 Caption = 'S&ave without Signature'
691 Hint = 'Saves the note that is being edited'
692 ShortCut = 24641
693 OnClick = mnuActSaveClick
694 end
695 object mnuActSign: TMenuItem
696 Caption = 'Si&gn Note Now...'
697 ShortCut = 24647
698 OnClick = mnuActSignClick
699 end
700 object mnuActIdentifyAddlSigners: TMenuItem
701 Caption = '&Identify Additional Signers'
702 OnClick = mnuActIdentifyAddlSignersClick
703 end
704 end
705 object mnuOptions: TMenuItem
706 Caption = '&Options'
707 GroupIndex = 4
708 OnClick = mnuOptionsClick
709 object mnuEditTemplates: TMenuItem
710 Caption = 'Edit &Templates...'
711 OnClick = mnuEditTemplatesClick
712 end
713 object mnuNewTemplate: TMenuItem
714 Caption = 'Create &New Template...'
715 OnClick = mnuNewTemplateClick
716 end
717 object N2: TMenuItem
718 Caption = '-'
719 end
720 object mnuEditSharedTemplates: TMenuItem
721 Caption = 'Edit &Shared Templates...'
722 OnClick = mnuEditSharedTemplatesClick
723 end
724 object mnuNewSharedTemplate: TMenuItem
725 Caption = '&Create New Shared Template...'
726 OnClick = mnuNewSharedTemplateClick
727 end
728 object N3: TMenuItem
729 Caption = '-'
730 OnClick = cmdChangeClick
731 end
732 object mnuEditDialgFields: TMenuItem
733 Caption = 'Edit Template &Fields'
734 OnClick = mnuEditDialgFieldsClick
735 end
736 end
737 end
738 object popNoteMemo: TPopupMenu [5]
739 OnPopup = popNoteMemoPopup
740 Left = 540
741 Top = 304
742 object popNoteMemoCut: TMenuItem
743 Caption = 'Cu&t'
744 ShortCut = 16472
745 OnClick = popNoteMemoCutClick
746 end
747 object popNoteMemoCopy: TMenuItem
748 Caption = '&Copy'
749 ShortCut = 16451
750 OnClick = popNoteMemoCopyClick
751 end
752 object popNoteMemoPaste: TMenuItem
753 Caption = '&Paste'
754 ShortCut = 16470
755 OnClick = popNoteMemoPasteClick
756 end
757 object popNoteMemoPaste2: TMenuItem
758 Caption = 'Paste2'
759 ShortCut = 8237
760 Visible = False
761 OnClick = popNoteMemoPasteClick
762 end
763 object popNoteMemoReformat: TMenuItem
764 Caption = 'Reformat Paragraph'
765 ShortCut = 24658
766 OnClick = popNoteMemoReformatClick
767 end
768 object popNoteMemoSaveContinue: TMenuItem
769 Caption = 'Save && Continue Editing'
770 ShortCut = 24659
771 Visible = False
772 OnClick = popNoteMemoSaveContinueClick
773 end
774 object Z11: TMenuItem
775 Caption = '-'
776 end
777 object popNoteMemoFind: TMenuItem
778 Caption = '&Find in Selected Note'
779 OnClick = popNoteMemoFindClick
780 end
781 object popNoteMemoReplace: TMenuItem
782 Caption = '&Replace Text'
783 OnClick = popNoteMemoReplaceClick
784 end
785 object N7: TMenuItem
786 Caption = '-'
787 OnClick = cmdChangeClick
788 end
789 object popNoteMemoGrammar: TMenuItem
790 Caption = 'Check &Grammar'
791 OnClick = popNoteMemoGrammarClick
792 end
793 object popNoteMemoSpell: TMenuItem
794 Caption = 'C&heck Spelling'
795 OnClick = popNoteMemoSpellClick
796 end
797 object Z12: TMenuItem
798 Caption = '-'
799 end
800 object popNoteMemoTemplate: TMenuItem
801 Caption = 'Copy into New &Template'
802 OnClick = popNoteMemoTemplateClick
803 end
804 object Z10: TMenuItem
805 Caption = '-'
806 end
807 object popNoteMemoSignList: TMenuItem
808 Caption = 'Add to Signature &List'
809 OnClick = mnuActSignListClick
810 end
811 object popNoteMemoDelete: TMenuItem
812 Caption = '&Delete Progress Note...'
813 OnClick = mnuActDeleteClick
814 end
815 object popNoteMemoEdit: TMenuItem
816 Caption = '&Edit Progress Note...'
817 OnClick = mnuActEditClick
818 end
819 object popNoteMemoAddend: TMenuItem
820 Caption = '&Make Addendum...'
821 OnClick = mnuActAddendClick
822 end
823 object popNoteMemoSave: TMenuItem
824 Caption = 'S&ave without Signature'
825 OnClick = mnuActSaveClick
826 end
827 object popNoteMemoSign: TMenuItem
828 Caption = '&Sign Note Now...'
829 OnClick = mnuActSignClick
830 end
831 object popNoteMemoAddlSign: TMenuItem
832 Caption = '&Identify Additional Signers'
833 OnClick = popNoteMemoAddlSignClick
834 end
835 object N8: TMenuItem
836 Caption = '-'
837 end
838 object popNoteMemoPreview: TMenuItem
839 Caption = 'Previe&w/Print Current Template'
840 ShortCut = 16471
841 OnClick = popNoteMemoPreviewClick
842 end
843 object popNoteMemoInsTemplate: TMenuItem
844 Caption = 'Insert Current Template'
845 ShortCut = 16429
846 OnClick = popNoteMemoInsTemplateClick
847 end
848 object popNoteMemoEncounter: TMenuItem
849 Caption = 'Edit Encounter Information'
850 ShortCut = 16453
851 OnClick = cmdPCEClick
852 end
853 end
854 object popNoteList: TPopupMenu [6]
855 OnPopup = popNoteListPopup
856 Left = 500
857 Top = 305
858 object popNoteListAll: TMenuItem
859 Tag = 1
860 Caption = '&Signed Notes (All)'
861 OnClick = mnuViewClick
862 end
863 object popNoteListByAuthor: TMenuItem
864 Tag = 4
865 Caption = 'Signed Notes by &Author'
866 OnClick = mnuViewClick
867 end
868 object popNoteListByDate: TMenuItem
869 Tag = 5
870 Caption = 'Signed Notes by Date &Range'
871 OnClick = mnuViewClick
872 end
873 object popNoteListUncosigned: TMenuItem
874 Tag = 3
875 Caption = 'Un&cosigned Notes'
876 OnClick = mnuViewClick
877 end
878 object popNoteListUnsigned: TMenuItem
879 Tag = 2
880 Caption = '&Unsigned Notes'
881 OnClick = mnuViewClick
882 end
883 object popNoteListCustom: TMenuItem
884 Tag = 6
885 Caption = 'Cus&tom View'
886 OnClick = mnuViewClick
887 end
888 object popSearchForText: TMenuItem
889 Tag = 7
890 Caption = 'Search for Te&xt (Within Current View)'
891 OnClick = mnuViewClick
892 end
893 object N4: TMenuItem
894 Caption = '-'
895 end
896 object popNoteListExpandSelected: TMenuItem
897 Caption = '&Expand Selected'
898 OnClick = popNoteListExpandSelectedClick
899 end
900 object popNoteListExpandAll: TMenuItem
901 Caption = 'E&xpand All'
902 OnClick = popNoteListExpandAllClick
903 end
904 object popNoteListCollapseSelected: TMenuItem
905 Caption = 'C&ollapse Selected'
906 OnClick = popNoteListCollapseSelectedClick
907 end
908 object popNoteListCollapseAll: TMenuItem
909 Caption = 'Co&llapse All'
910 OnClick = popNoteListCollapseAllClick
911 end
912 object N5: TMenuItem
913 Caption = '-'
914 end
915 object popNoteListAddIDEntry: TMenuItem
916 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
917 OnClick = mnuActAddIDEntryClick
918 end
919 object popNoteListAttachtoIDParent: TMenuItem
920 Caption = 'A&ttach to Interdisciplinary Note'
921 OnClick = mnuActAttachtoIDParentClick
922 end
923 object popNoteListDetachFromIDParent: TMenuItem
924 Caption = 'Detac&h from Interdisciplinary Note'
925 OnClick = mnuActDetachFromIDParentClick
926 end
927 end
928 object timAutoSave: TTimer [7]
929 Enabled = False
930 Interval = 300000
931 OnTimer = timAutoSaveTimer
932 Left = 592
933 Top = 27
934 end
935 object dlgFindText: TFindDialog [8]
936 Options = [frDown, frHideUpDown]
937 OnFind = dlgFindTextFind
938 Left = 452
939 Top = 312
940 end
941 object dlgReplaceText: TReplaceDialog [9]
942 OnFind = dlgReplaceTextFind
943 OnReplace = dlgReplaceTextReplace
944 Left = 413
945 Top = 312
946 end
947 inherited DKLanguageController1: TDKLanguageController
948 LangData = {
949 080066726D4E6F746573010200000001000000070043617074696F6E02000000
950 080048656C7046696C65018D0000000D0073687050616765426F74746F6D0000
951 0700737074486F727A00000700706E6C4C65667400000800706E6C5269676874
952 000008006C626C4E6F746573010100000003000000070043617074696F6E0009
953 006C626C53706163653100000A00636D644E65774E6F74650101000000040000
954 00070043617074696F6E000600636D6450434501010000000500000007004361
955 7074696F6E000A00706E6C4472617765727300000A0073706C44726177657273
956 000008006C73744E6F7465730000070074764E6F746573010100000006000000
957 070043617074696F6E0007007370745665727400000A006D656D50434553686F
958 7701010000000700000005004C696E6573000800706E6C577269746500000A00
959 6D656D4E65774E6F746500000900706E6C4669656C647300000B0062766C4E65
960 775469746C6500000A006C626C52656644617465010200000009000000070043
961 617074696F6E08000000040048696E740009006C626C417574686F7201020000
962 000B000000070043617074696F6E0A000000040048696E740008006C626C5669
963 73697401010000000C000000070043617074696F6E000B006C626C436F736967
964 6E657201020000000E000000070043617074696F6E0D000000040048696E7400
965 0A006C626C5375626A65637401010000000F000000070043617074696F6E000B
966 006C626C4E65775469746C65010200000011000000070043617074696F6E1000
967 0000040048696E74000900636D644368616E6765010100000012000000070043
968 617074696F6E000A007478745375626A65637401030000001500000007004361
969 7074696F6E13000000040048696E7414000000040054657874000700706E6C52
970 656164000008006C626C5469746C65010100000016000000070043617074696F
971 6E0007007370744C69737400000B0057656242726F7773657231000007006D65
972 6D4E6F746501010000001700000005004C696E65730007006C764E6F74657301
973 080000001F000000070043617074696F6E180000001200436F6C756D6E735B30
974 5D2E43617074696F6E190000001200436F6C756D6E735B315D2E43617074696F
975 6E1A0000001200436F6C756D6E735B325D2E43617074696F6E1B000000120043
976 6F6C756D6E735B335D2E43617074696F6E1C0000001200436F6C756D6E735B34
977 5D2E43617074696F6E1D0000001200436F6C756D6E735B355D2E43617074696F
978 6E1E0000001200436F6C756D6E735B365D2E43617074696F6E0008006D6E754E
979 6F746573000007006D6E7556696577010100000020000000070043617074696F
980 6E000C006D6E7556696577436861727401010000002100000007004361707469
981 6F6E000D006D6E754368617274436F7665720101000000220000000700436170
982 74696F6E000D006D6E75436861727450726F6273010100000023000000070043
983 617074696F6E000C006D6E7543686172744D6564730101000000240000000700
984 43617074696F6E000E006D6E7543686172744F72646572730101000000250000
985 00070043617074696F6E000D006D6E7543686172744E6F746573010100000026
986 000000070043617074696F6E000D006D6E75436861727443736C747301010000
987 0027000000070043617074696F6E000F006D6E75436861727453757267657279
988 010100000028000000070043617074696F6E000E006D6E754368617274444353
989 756D6D010100000029000000070043617074696F6E000C006D6E754368617274
990 4C61627301010000002A000000070043617074696F6E000F006D6E7543686172
991 745265706F72747301010000002B000000070043617074696F6E0012006D6E75
992 56696577496E666F726D6174696F6E01010000002C000000070043617074696F
993 6E000B006D6E755669657744656D6F01010000002D000000070043617074696F
994 6E000D006D6E755669657756697369747301010000002E000000070043617074
995 696F6E0012006D6E75566965775072696D6172794361726501010000002F0000
996 00070043617074696F6E0013006D6E75566965774D794865616C746865566574
997 010100000030000000070043617074696F6E000C006D6E75496E737572616E63
998 65010100000031000000070043617074696F6E000C006D6E7556696577466C61
999 6773010100000032000000070043617074696F6E0011006D6E75566965775265
1000 6D6F746544617461010100000033000000070043617074696F6E0010006D6E75
1001 5669657752656D696E64657273010100000034000000070043617074696F6E00
1002 0F006D6E7556696577506F7374696E6773010100000035000000070043617074
1003 696F6E0002005A3300000A006D6E7556696577416C6C01010000003600000007
1004 0043617074696F6E000F006D6E75566965774279417574686F72010100000037
1005 000000070043617074696F6E000D006D6E755669657742794461746501010000
1006 0038000000070043617074696F6E0011006D6E7556696577556E636F7369676E
1007 6564010100000039000000070043617074696F6E000F006D6E7556696577556E
1008 7369676E656401010000003A000000070043617074696F6E000D006D6E755669
1009 6577437573746F6D01010000003B000000070043617074696F6E0010006D6E75
1010 536561726368466F725465787401010000003C000000070043617074696F6E00
1011 02004E31000014006D6E755669657753617665417344656661756C7401010000
1012 003D000000070043617074696F6E00100052657475726E746F44656661756C74
1013 3101010000003E000000070043617074696F6E0002005A3100000D006D6E7556
1014 69657744657461696C01010000003F000000070043617074696F6E0002004E36
1015 00000D006D6E7549636F6E4C6567656E64010100000040000000070043617074
1016 696F6E0006006D6E75416374010100000041000000070043617074696F6E0009
1017 006D6E754163744E6577010200000042000000070043617074696F6E43000000
1018 040048696E74000C006D6E75416374416464656E640102000000440000000700
1019 43617074696F6E45000000040048696E740010006D6E75416374416464494445
1020 6E747279010100000046000000070043617074696F6E0016006D6E7541637441
1021 7474616368746F4944506172656E74010100000047000000070043617074696F
1022 6E0018006D6E7541637444657461636846726F6D4944506172656E7401010000
1023 0048000000070043617074696F6E0002005A3400000C006D6E75416374436861
1024 6E6765010100000049000000070043617074696F6E0010006D6E754163744C6F
1025 6164426F696C657201010000004A000000070043617074696F6E0002005A3200
1026 000E006D6E754163745369676E4C69737401020000004B000000070043617074
1027 696F6E4C000000040048696E74000C006D6E7541637444656C65746501010000
1028 004D000000070043617074696F6E000A006D6E75416374456469740101000000
1029 4E000000070043617074696F6E000A006D6E754163745361766501020000004F
1030 000000070043617074696F6E50000000040048696E74000A006D6E7541637453
1031 69676E010100000051000000070043617074696F6E0019006D6E754163744964
1032 656E746966794164646C5369676E657273010100000052000000070043617074
1033 696F6E000A006D6E754F7074696F6E7301010000005300000007004361707469
1034 6F6E0010006D6E754564697454656D706C617465730101000000540000000700
1035 43617074696F6E000E006D6E754E657754656D706C6174650101000000550000
1036 00070043617074696F6E0002004E32000016006D6E7545646974536861726564
1037 54656D706C61746573010100000056000000070043617074696F6E0014006D6E
1038 754E657753686172656454656D706C6174650101000000570000000700436170
1039 74696F6E0002004E33000012006D6E75456469744469616C674669656C647301
1040 0100000058000000070043617074696F6E000B00706F704E6F74654D656D6F00
1041 000E00706F704E6F74654D656D6F437574010100000059000000070043617074
1042 696F6E000F00706F704E6F74654D656D6F436F707901010000005A0000000700
1043 43617074696F6E001000706F704E6F74654D656D6F506173746501010000005B
1044 000000070043617074696F6E001100706F704E6F74654D656D6F506173746532
1045 01010000005C000000070043617074696F6E001300706F704E6F74654D656D6F
1046 5265666F726D617401010000005D000000070043617074696F6E001700706F70
1047 4E6F74654D656D6F53617665436F6E74696E756501010000005E000000070043
1048 617074696F6E0003005A313100000F00706F704E6F74654D656D6F46696E6401
1049 010000005F000000070043617074696F6E001200706F704E6F74654D656D6F52
1050 65706C616365010100000060000000070043617074696F6E0002004E37000012
1051 00706F704E6F74654D656D6F4772616D6D617201010000006100000007004361
1052 7074696F6E001000706F704E6F74654D656D6F5370656C6C0101000000620000
1053 00070043617074696F6E0003005A313200001300706F704E6F74654D656D6F54
1054 656D706C617465010100000063000000070043617074696F6E0003005A313000
1055 001300706F704E6F74654D656D6F5369676E4C69737401010000006400000007
1056 0043617074696F6E001100706F704E6F74654D656D6F44656C65746501010000
1057 0065000000070043617074696F6E000F00706F704E6F74654D656D6F45646974
1058 010100000066000000070043617074696F6E001100706F704E6F74654D656D6F
1059 416464656E64010100000067000000070043617074696F6E000F00706F704E6F
1060 74654D656D6F53617665010100000068000000070043617074696F6E000F0070
1061 6F704E6F74654D656D6F5369676E010100000069000000070043617074696F6E
1062 001300706F704E6F74654D656D6F4164646C5369676E01010000006A00000007
1063 0043617074696F6E0002004E3800001200706F704E6F74654D656D6F50726576
1064 69657701010000006B000000070043617074696F6E001600706F704E6F74654D
1065 656D6F496E7354656D706C61746501010000006C000000070043617074696F6E
1066 001400706F704E6F74654D656D6F456E636F756E74657201010000006D000000
1067 070043617074696F6E000B00706F704E6F74654C69737400000E00706F704E6F
1068 74654C697374416C6C01010000006E000000070043617074696F6E001300706F
1069 704E6F74654C6973744279417574686F7201010000006F000000070043617074
1070 696F6E001100706F704E6F74654C697374427944617465010100000070000000
1071 070043617074696F6E001500706F704E6F74654C697374556E636F7369676E65
1072 64010100000071000000070043617074696F6E001300706F704E6F74654C6973
1073 74556E7369676E6564010100000072000000070043617074696F6E001100706F
1074 704E6F74654C697374437573746F6D010100000073000000070043617074696F
1075 6E001000706F70536561726368466F7254657874010100000074000000070043
1076 617074696F6E0002004E3400001900706F704E6F74654C697374457870616E64
1077 53656C6563746564010100000075000000070043617074696F6E001400706F70
1078 4E6F74654C697374457870616E64416C6C010100000076000000070043617074
1079 696F6E001B00706F704E6F74654C697374436F6C6C6170736553656C65637465
1080 64010100000077000000070043617074696F6E001600706F704E6F74654C6973
1081 74436F6C6C61707365416C6C010100000078000000070043617074696F6E0002
1082 004E3500001500706F704E6F74654C6973744164644944456E74727901010000
1083 0079000000070043617074696F6E001B00706F704E6F74654C69737441747461
1084 6368746F4944506172656E7401010000007A000000070043617074696F6E001D
1085 00706F704E6F74654C69737444657461636846726F6D4944506172656E740101
1086 0000007B000000070043617074696F6E000B0074696D4175746F536176650000
1087 0B00646C6746696E645465787400000E00646C675265706C6163655465787400
1088 00}
1089 end
1090end
Note: See TracBrowser for help on using the repository browser.