Context Navigation

fConsults.dfm@ 1702

Last change on this file since 1702 was 1679, checked in by healthsevak, 10 years ago
Updating the working copy to CPRS version 28
File size: 31.9 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 = 475
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	object popNoteMemoViewCslt: TMenuItem
664	Caption = 'View Consult Details'
665	ShortCut = 24661
666	OnClick = popNoteMemoViewCsltClick
667	end
668	end
669	object popConsultList: TPopupMenu
670	Left = 523
671	Top = 308
672	object popConsultAll: TMenuItem
673	Tag = 1
674	Caption = '&All Consults'
675	OnClick = mnuViewClick
676	end
677	object popConsultStatus: TMenuItem
678	Tag = 2
679	Caption = 'Consults by Stat&us'
680	OnClick = mnuViewClick
681	end
682	object popConsultService: TMenuItem
683	Tag = 4
684	Caption = 'Consults by &Service'
685	OnClick = mnuViewClick
686	end
687	object popConsultDates: TMenuItem
688	Tag = 5
689	Caption = 'Consults by Date &Range'
690	OnClick = mnuViewClick
691	end
692	object popConsultCustom: TMenuItem
693	Tag = 6
694	Caption = '&Custom View..'
695	OnClick = mnuViewClick
696	end
697	end
698	object mnuConsults: TMainMenu
699	Left = 461
700	Top = 305
701	object mnuView: TMenuItem
702	Caption = '&View'
703	GroupIndex = 3
704	object mnuViewChart: TMenuItem
705	Caption = 'Chart &Tab'
706	object mnuChartCover: TMenuItem
707	Tag = 1
708	Caption = 'Cover &Sheet'
709	ShortCut = 16467
710	OnClick = mnuChartTabClick
711	end
712	object mnuChartProbs: TMenuItem
713	Tag = 2
714	Caption = '&Problem List'
715	ShortCut = 16464
716	OnClick = mnuChartTabClick
717	end
718	object mnuChartMeds: TMenuItem
719	Tag = 3
720	Caption = '&Medications'
721	ShortCut = 16461
722	OnClick = mnuChartTabClick
723	end
724	object mnuChartOrders: TMenuItem
725	Tag = 4
726	Caption = '&Orders'
727	ShortCut = 16463
728	OnClick = mnuChartTabClick
729	end
730	object mnuChartNotes: TMenuItem
731	Tag = 6
732	Caption = 'Progress &Notes'
733	ShortCut = 16462
734	OnClick = mnuChartTabClick
735	end
736	object mnuChartCslts: TMenuItem
737	Tag = 7
738	Caption = 'Consul&ts'
739	ShortCut = 16468
740	OnClick = mnuChartTabClick
741	end
742	object mnuChartSurgery: TMenuItem
743	Tag = 11
744	Caption = 'S&urgery'
745	ShortCut = 16469
746	OnClick = mnuChartTabClick
747	end
748	object mnuChartDCSumm: TMenuItem
749	Tag = 8
750	Caption = '&Discharge Summaries'
751	ShortCut = 16452
752	OnClick = mnuChartTabClick
753	end
754	object mnuChartLabs: TMenuItem
755	Tag = 9
756	Caption = '&Laboratory'
757	ShortCut = 16460
758	OnClick = mnuChartTabClick
759	end
760	object mnuChartReports: TMenuItem
761	Tag = 10
762	Caption = '&Reports'
763	ShortCut = 16466
764	OnClick = mnuChartTabClick
765	end
766	end
767	object mnuViewInformation: TMenuItem
768	Caption = 'Information'
769	OnClick = mnuViewInformationClick
770	object mnuViewDemo: TMenuItem
771	Tag = 1
772	Caption = 'De&mographics...'
773	OnClick = ViewInfo
774	end
775	object mnuViewVisits: TMenuItem
776	Tag = 2
777	Caption = 'Visits/Pr&ovider...'
778	OnClick = ViewInfo
779	end
780	object mnuViewPrimaryCare: TMenuItem
781	Tag = 3
782	Caption = 'Primary &Care...'
783	OnClick = ViewInfo
784	end
785	object mnuViewMyHealtheVet: TMenuItem
786	Tag = 4
787	Caption = 'MyHealthe&Vet...'
788	OnClick = ViewInfo
789	end
790	object mnuInsurance: TMenuItem
791	Tag = 5
792	Caption = '&Insurance...'
793	OnClick = ViewInfo
794	end
795	object mnuViewFlags: TMenuItem
796	Tag = 6
797	Caption = '&Flags...'
798	OnClick = ViewInfo
799	end
800	object mnuViewRemoteData: TMenuItem
801	Tag = 7
802	Caption = 'Remote &Data...'
803	OnClick = ViewInfo
804	end
805	object mnuViewReminders: TMenuItem
806	Tag = 8
807	Caption = '&Reminders...'
808	Enabled = False
809	OnClick = ViewInfo
810	end
811	object mnuViewPostings: TMenuItem
812	Tag = 9
813	Caption = '&Postings...'
814	OnClick = ViewInfo
815	end
816	end
817	object Z3: TMenuItem
818	Caption = '-'
819	end
820	object mnuViewAll: TMenuItem
821	Tag = 1
822	Caption = '&All Consults'
823	OnClick = mnuViewClick
824	end
825	object mnuViewByStatus: TMenuItem
826	Tag = 2
827	Caption = 'Consults by Stat&us'
828	OnClick = mnuViewClick
829	end
830	object mnuViewByService: TMenuItem
831	Tag = 4
832	Caption = 'Consults by &Service'
833	OnClick = mnuViewClick
834	end
835	object mnuViewByDate: TMenuItem
836	Tag = 5
837	Caption = 'Consults by Date &Range'
838	OnClick = mnuViewClick
839	end
840	object mnuViewCustom: TMenuItem
841	Tag = 6
842	Caption = 'Custo&m View'
843	OnClick = mnuViewClick
844	end
845	object N4: TMenuItem
846	Caption = '-'
847	end
848	object mnuViewSaveAsDefault: TMenuItem
849	Caption = 'Sa&ve as Default View'
850	OnClick = mnuViewSaveAsDefaultClick
851	end
852	object mnuViewReturntoDefault: TMenuItem
853	Caption = 'Return to De&fault View'
854	OnClick = mnuViewReturntoDefaultClick
855	end
856	object N13: TMenuItem
857	Caption = '-'
858	end
859	object mnuIconLegend: TMenuItem
860	Caption = 'Icon Legend'
861	OnClick = mnuIconLegendClick
862	end
863	end
864	object mnuAct: TMenuItem
865	Caption = '&Action'
866	GroupIndex = 4
867	object mnuActNew: TMenuItem
868	Caption = '&New...'
869	Hint = 'Add consults or procedures'
870	object mnuActNewConsultRequest: TMenuItem
871	Tag = 1
872	Caption = '&Consult...'
873	Hint = 'Creates a new consult'
874	OnClick = mnuActNewConsultRequestClick
875	end
876	object mnuActNewProcedure: TMenuItem
877	Tag = 9
878	Caption = '&Procedure...'
879	Hint = 'Creates a new procedure'
880	OnClick = mnuActNewProcedureClick
881	end
882	end
883	object Z2: TMenuItem
884	Caption = '-'
885	end
886	object mnuActConsultRequest: TMenuItem
887	Caption = '&Consult Tracking...'
888	Hint = 'Actions related to the selected consult'
889	object mnuActReceive: TMenuItem
890	Tag = 1
891	Caption = '&Receive'
892	OnClick = mnuActConsultClick
893	end
894	object mnuActSchedule: TMenuItem
895	Tag = 10
896	Caption = 'Schedu&le'
897	OnClick = mnuActConsultClick
898	end
899	object mnuActDeny: TMenuItem
900	Tag = 2
901	Caption = '&Cancel (Deny)'
902	OnClick = mnuActConsultClick
903	end
904	object mnuActEditResubmit: TMenuItem
905	Caption = '&Edit/Resubmit'
906	OnClick = mnuActEditResubmitClick
907	end
908	object mnuActDiscontinue: TMenuItem
909	Tag = 3
910	Caption = '&Discontinue'
911	OnClick = mnuActConsultClick
912	end
913	object mnuActForward: TMenuItem
914	Tag = 4
915	Caption = '&Forward'
916	OnClick = mnuActConsultClick
917	end
918	object mnuActAddComment: TMenuItem
919	Tag = 5
920	Caption = '&Add Comment'
921	OnClick = mnuActConsultClick
922	end
923	object mnuActSigFindings: TMenuItem
924	Tag = 8
925	Caption = '&Significant Findings'
926	OnClick = mnuActConsultClick
927	end
928	object mnuActAdminComplete: TMenuItem
929	Tag = 9
930	Caption = 'Ad&ministrative Complete'
931	OnClick = mnuActConsultClick
932	end
933	object N3: TMenuItem
934	Caption = '-'
935	end
936	object mnuActDisplayDetails: TMenuItem
937	Caption = 'Display De&tails'
938	OnClick = mnuActDisplayDetailsClick
939	end
940	object mnuActDisplayResults: TMenuItem
941	Caption = 'Display Res&ults'
942	OnClick = mnuActDisplayResultsClick
943	end
944	object mnuActDisplaySF513: TMenuItem
945	Caption = 'Display SF &513'
946	OnClick = mnuActDisplaySF513Click
947	end
948	object mnuActPrintSF513: TMenuItem
949	Caption = '&Print SF 513'
950	OnClick = mnuActPrintSF513Click
951	end
952	end
953	object N1: TMenuItem
954	Caption = '-'
955	end
956	object mnuActConsultResults: TMenuItem
957	Caption = 'Consult &Results...'
958	object mnuActComplete: TMenuItem
959	Tag = 6
960	Caption = 'Complete/&Update Results...'
961	ShortCut = 24661
962	OnClick = mnuActCompleteClick
963	end
964	object mnuActMakeAddendum: TMenuItem
965	Tag = 7
966	Caption = '&Make Addendum...'
967	Hint = 'Makes an addendum for the currently selected consult'
968	ShortCut = 24653
969	OnClick = mnuActMakeAddendumClick
970	end
971	object mnuActAddIDEntry: TMenuItem
972	Caption = 'Add Ne&w Entry to Interdisciplinary Note'
973	OnClick = mnuActAddIDEntryClick
974	end
975	object mnuActAttachtoIDParent: TMenuItem
976	Caption = 'Attach to Interdisciplinary Note'
977	OnClick = mnuActAttachtoIDParentClick
978	end
979	object mnuActDetachFromIDParent: TMenuItem
980	Caption = 'Detac&h from Interdisciplinary Note'
981	OnClick = mnuActDetachFromIDParentClick
982	end
983	object N12: TMenuItem
984	Caption = '-'
985	end
986	object mnuActAttachMed: TMenuItem
987	Caption = 'A&ttach Medicine Results'
988	OnClick = mnuActAttachMedClick
989	end
990	object mnuActRemoveMed: TMenuItem
991	Caption = 'Remo&ve Medicine Results'
992	OnClick = mnuActRemoveMedClick
993	end
994	object N9: TMenuItem
995	Caption = '-'
996	end
997	object mnuActChange: TMenuItem
998	Caption = '&Change Title...'
999	ShortCut = 24643
1000	OnClick = mnuActChangeClick
1001	end
1002	object mnuActLoadBoiler: TMenuItem
1003	Caption = 'Reload &Boilerplate Text'
1004	OnClick = mnuActLoadBoilerClick
1005	end
1006	object N2: TMenuItem
1007	Caption = '-'
1008	end
1009	object mnuActSignatureList: TMenuItem
1010	Caption = 'Add to Signature &List'
1011	Hint =
1012	'Adds the currently displayed consult to list of things to be sig' +
1013	'ned'
1014	OnClick = mnuActSignatureListClick
1015	end
1016	object mnuActNoteDelete: TMenuItem
1017	Caption = '&Delete Note...'
1018	ShortCut = 24644
1019	OnClick = mnuActNoteDeleteClick
1020	end
1021	object mnuActNoteEdit: TMenuItem
1022	Caption = '&Edit Note...'
1023	ShortCut = 24645
1024	OnClick = mnuActNoteEditClick
1025	end
1026	object mnuActSignatureSave: TMenuItem
1027	Caption = 'S&ave Without Signature'
1028	Hint = 'Saves the consult that is being edited'
1029	ShortCut = 24641
1030	OnClick = mnuActSignatureSaveClick
1031	end
1032	object mnuActSignatureSign: TMenuItem
1033	Caption = 'Si&gn Note Now...'
1034	ShortCut = 24647
1035	OnClick = mnuActSignatureSignClick
1036	end
1037	object mnuActIdentifyAddlSigners: TMenuItem
1038	Caption = '&Identify Additional Signers'
1039	OnClick = mnuActIdentifyAddlSignersClick
1040	end
1041	object N8: TMenuItem
1042	Caption = '-'
1043	end
1044	object mnuActNotePrint: TMenuItem
1045	Caption = 'P&rint Note'
1046	OnClick = mnuActNotePrintClick
1047	end
1048	end
1049	end
1050	object mnuOptions: TMenuItem
1051	Caption = '&Options'
1052	GroupIndex = 4
1053	OnClick = mnuOptionsClick
1054	object mnuEditTemplates: TMenuItem
1055	Caption = 'Edit &Templates...'
1056	OnClick = mnuEditTemplatesClick
1057	end
1058	object mnuNewTemplate: TMenuItem
1059	Caption = 'Create &New Template...'
1060	OnClick = mnuNewTemplateClick
1061	end
1062	object N6: TMenuItem
1063	Caption = '-'
1064	end
1065	object mnuEditSharedTemplates: TMenuItem
1066	Caption = 'Edit &Shared Templates...'
1067	OnClick = mnuEditSharedTemplatesClick
1068	end
1069	object mnuNewSharedTemplate: TMenuItem
1070	Caption = '&Create New Shared Template...'
1071	OnClick = mnuNewSharedTemplateClick
1072	end
1073	object N10: TMenuItem
1074	Caption = '-'
1075	end
1076	object mnuEditDialgFields: TMenuItem
1077	Caption = 'Edit Template &Fields'
1078	OnClick = mnuEditDialgFieldsClick
1079	end
1080	end
1081	end
1082	object timAutoSave: TTimer
1083	Enabled = False
1084	Interval = 300000
1085	OnTimer = timAutoSaveTimer
1086	Left = 602
1087	Top = 110
1088	end
1089	object popNoteList: TPopupMenu
1090	OnPopup = popNoteListPopup
1091	Left = 395
1092	Top = 307
1093	object popNoteListExpandSelected: TMenuItem
1094	Caption = '&Expand Selected'
1095	OnClick = popNoteListExpandSelectedClick
1096	end
1097	object popNoteListExpandAll: TMenuItem
1098	Caption = 'E&xpand All'
1099	OnClick = popNoteListExpandAllClick
1100	end
1101	object popNoteListCollapseSelected: TMenuItem
1102	Caption = 'C&ollapse Selected'
1103	OnClick = popNoteListCollapseSelectedClick
1104	end
1105	object popNoteListCollapseAll: TMenuItem
1106	Caption = 'Co&llapse All'
1107	OnClick = popNoteListCollapseAllClick
1108	end
1109	object N11: TMenuItem
1110	Caption = '-'
1111	end
1112	object popNoteListAddIDEntry: TMenuItem
1113	Caption = 'Add Ne&w Entry to Interdisciplinary Note'
1114	OnClick = mnuActAddIDEntryClick
1115	end
1116	object popNoteListAttachtoIDParent: TMenuItem
1117	Caption = 'Attach to Interdisciplinary Note'
1118	OnClick = mnuActAttachtoIDParentClick
1119	end
1120	object popNoteListDetachFromIDParent: TMenuItem
1121	Caption = 'Detac&h from Interdisciplinary Note'
1122	OnClick = mnuActDetachFromIDParentClick
1123	end
1124	end
1125	object dlgFindText: TFindDialog
1126	Options = [frDown, frHideUpDown]
1127	OnFind = dlgFindTextFind
1128	Left = 628
1129	Top = 303
1130	end
1131	object dlgReplaceText: TReplaceDialog
1132	OnFind = dlgReplaceTextFind
1133	OnReplace = dlgReplaceTextReplace
1134	Left = 665
1135	Top = 303
1136	end
1137	object imgLblNotes: TVA508ImageListLabeler
1138	Components = <
1139	item
1140	Component = tvCsltNotes
1141	end>
1142	Labels = <>
1143	RemoteLabeler = dmodShared.imgLblNotes
1144	Left = 16
1145	Top = 48
1146	end
1147	object imgLblImages: TVA508ImageListLabeler
1148	Components = <
1149	item
1150	Component = tvCsltNotes
1151	end>
1152	Labels = <>
1153	RemoteLabeler = dmodShared.imgLblImages
1154	Left = 8
1155	Top = 88
1156	end
1157	object imgLblConsults: TVA508ImageListLabeler
1158	Components = <
1159	item
1160	Component = tvConsults
1161	end>
1162	Labels = <>
1163	RemoteLabeler = dmodShared.imgLblConsults
1164	Left = 56
1165	Top = 96
1166	end
1167	end

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

Download in other formats:

Original Format