Context Navigation

fConsults.dfm@ 1686

Last change on this file since 1686 was 829, checked in by Kevin Toppenberg, 14 years ago
Upgrade to version 27
File size: 31.7 KB

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

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

Download in other formats:

Original Format