Context Navigation

fNotes.dfm@ 912

Last change on this file since 912 was 830, checked in by Kevin Toppenberg, 14 years ago
Upgrading to version 27
File size: 27.9 KB

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

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

Download in other formats:

Original Format