Context Navigation

fConsults.dfm@ 1169

Last change on this file since 1169 was 460, checked in by Kevin Toppenberg, 16 years ago
Uploading from OR_30_258
File size: 29.1 KB

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

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

Download in other formats:

Original Format