Context Navigation

fConsults.dfm@ 1727

Last change on this file since 1727 was 1698, checked in by healthsevak, 10 years ago
Implemented the OpenSource based spell check feature
File size: 32.4 KB

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

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

Download in other formats:

Original Format