Context Navigation

fNotes.dfm@ 1703

Last change on this file since 1703 was 1703, checked in by healthsevak, 9 years ago
updated this file to version 28 and Implemented the OpenSource based spell check feature
File size: 28.4 KB

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format