Context Navigation

fNotes.dfm@ 1797

Last change on this file since 1797 was 1703, checked in by healthsevak, 10 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