Context Navigation

fFrame.dfm@ 1545

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

Line
1	inherited frmFrame: TfrmFrame
2	Left = 196
3	Top = 119
4	Caption = 'p'
5	ClientHeight = 574
6	ClientWidth = 687
7	FormStyle = fsMDIForm
8	Menu = mnuFrame
9	OldCreateOrder = True
10	Visible = True
11	OnActivate = FormActivate
12	OnClose = FormClose
13	OnCloseQuery = FormCloseQuery
14	OnCreate = FormCreate
15	OnDestroy = FormDestroy
16	OnHelp = FormHelp
17	OnResize = FormResize
18	ExplicitLeft = 196
19	ExplicitTop = 119
20	ExplicitWidth = 695
21	ExplicitHeight = 620
22	PixelsPerInch = 96
23	TextHeight = 13
24	object pnlNoPatientSelected: TPanel [0]
25	Left = 0
26	Top = 0
27	Width = 687
28	Height = 574
29	Align = alClient
30	Caption = 'No patient is currently selected'
31	Font.Charset = DEFAULT_CHARSET
32	Font.Color = clWindowText
33	Font.Height = -19
34	Font.Name = 'MS Sans Serif'
35	Font.Style = []
36	ParentFont = False
37	TabOrder = 1
38	Visible = False
39	end
40	object pnlPatientSelected: TPanel [1]
41	Left = 0
42	Top = 0
43	Width = 687
44	Height = 574
45	Align = alClient
46	TabOrder = 0
47	object bvlPageTop: TBevel
48	Left = 1
49	Top = 41
50	Width = 685
51	Height = 1
52	Align = alTop
53	ExplicitWidth = 674
54	end
55	object pnlToolbar: TPanel
56	Left = 1
57	Top = 1
58	Width = 685
59	Height = 40
60	Align = alTop
61	BevelOuter = bvNone
62	Caption = 'object pnlRemoteData: TKeyClickPanel'
63	TabOrder = 0
64	object bvlToolTop: TBevel
65	Left = 0
66	Top = 0
67	Width = 685
68	Height = 1
69	Align = alTop
70	Style = bsRaised
71	ExplicitWidth = 674
72	end
73	object pnlCCOW: TPanel
74	Left = 0
75	Top = 1
76	Width = 39
77	Height = 39
78	Align = alLeft
79	BevelWidth = 2
80	ParentShowHint = False
81	ShowHint = True
82	TabOrder = 8
83	object imgCCOW: TImage
84	Left = 2
85	Top = 2
86	Width = 35
87	Height = 35
88	Align = alClient
89	Center = True
90	Picture.Data = {
91	07544269746D617052030000424D520300000000000052020000280000001000
92	000010000000010008000000000000010000120B0000120B0000870000008700
93	00003F3E3F003A393A007B351600BCB6B30082340900642700008D3F0D00985B
94	3400B19A8C00B5A59B008B3700008A3700008936000088360000873500008635
95	00008535000083340000813300007D3100007D3200007B3100007A3000007830
96	0000772F0000762F0000742E00006F2C00006E2B00006C2B00006A2A00006829
97	0000662800006528000061260000602600005C2400005B240000592300005823
98	0000562200008B3801008C3902008C3903008C3A04008C3B05008D3B06008D3C
99	07008E3E0A008F420F009045130090481900935025009B6440009F6D4C00A275
100	5800A6806700AA897300AD917F00B8AEA700053A0D00063B0E000C3F14000E41
101	16000A3C17002351360000007F0000007B000101800001017F00040480000707
102	820007078100080882000A0A82000D0D7200101085000E0E7200131386001313
103	7500171787001919880021218A0025258C0023237B002B2B8E002C2C8E002F2F
104	8F002C2C79003535840039398500FFFFFF00DFDFDF00BFBFBF00BEBEBE00BCBC
105	BC00BBBBBB00B9B9B900B8B8B800B7B7B700B4B4B400B2B2B200B1B1B100ACAC
106	AC00A9A9A900A7A7A700A6A6A600A4A4A400A2A2A2009F9F9F00989898009797
107	970094949400929292008F8F8F008C8C8C008B8B8B0089898900858585008484
108	840083838300818181007F7F7F007E7E7E007D7D7D007B7B7B007A7A7A007979
109	79007777770076767600747474000A0A0A000707070001010100000000005D04
110	868686865D868686865D5D5D5D5D5D865B5B5B5B865B5B5B5B865D5D5D5D865B
111	8686868686868686865B865D5D5D865B865D865D5D5D865D865B865D5D5D865B
112	8686868686868686865B865D5D5D0A865B5B5B5B865B5B5B5B865D5D5D5D0A0A
113	868686865D868686865D5D5D5D5D0A0A0A0A0A0A5D5D5D5D5D0C0C5D5D5D0A0A
114	0A0A0A0A5D5D5D5D5D0C0C5D5D5D0A0A0A0A0A0A5D5D5D5D5D5D5D5D5D5D5D29
115	0A0A0A5D5D5D5D5D5D0C0C5D5D5D5D5D0A0A5D5D5D5D5D5D5D0C0C0C5D5D5D0A
116	0A0A2F5D5D5D5D5D5D5D0C0C0C5D5D0A0A0A305D5D5D5D5D5D5D5D0C0C5D5D02
117	0A0A025D5D5D5D5D0C0C0C0C0C5D5D5D5D5D5D5D5D5D5D5D0C0C0C0C5D5D}
118	end
119	end
120	object pnlPatient: TKeyClickPanel
121	Left = 39
122	Top = 1
123	Width = 187
124	Height = 39
125	Hint = 'Click for more patient information.'
126	Align = alLeft
127	BevelWidth = 2
128	Color = clInfoBk
129	Font.Charset = DEFAULT_CHARSET
130	Font.Color = clInfoBk
131	Font.Height = -11
132	Font.Name = 'MS Sans Serif'
133	Font.Style = []
134	ParentFont = False
135	ParentShowHint = False
136	ShowHint = True
137	TabOrder = 0
138	TabStop = True
139	OnClick = pnlPatientClick
140	OnEnter = pnlPrimaryCareEnter
141	OnExit = pnlPrimaryCareExit
142	OnMouseDown = pnlPatientMouseDown
143	OnMouseUp = pnlPatientMouseUp
144	object lblPtName: TStaticText
145	Left = 6
146	Top = 4
147	Width = 118
148	Height = 17
149	Caption = 'No Patient Selected'
150	Font.Charset = ANSI_CHARSET
151	Font.Color = clInfoText
152	Font.Height = -12
153	Font.Name = 'MS Sans Serif'
154	Font.Style = [fsBold]
155	ParentFont = False
156	ParentShowHint = False
157	ShowHint = False
158	TabOrder = 0
159	OnClick = pnlPatientClick
160	OnMouseDown = pnlPatientMouseDown
161	OnMouseUp = pnlPatientMouseUp
162	end
163	object lblPtSSN: TStaticText
164	Left = 6
165	Top = 19
166	Width = 4
167	Height = 4
168	Font.Charset = DEFAULT_CHARSET
169	Font.Color = clInfoText
170	Font.Height = -11
171	Font.Name = 'MS Sans Serif'
172	Font.Style = []
173	ParentFont = False
174	ParentShowHint = False
175	ShowHint = False
176	TabOrder = 1
177	OnClick = pnlPatientClick
178	OnMouseDown = pnlPatientMouseDown
179	OnMouseUp = pnlPatientMouseUp
180	end
181	object lblPtAge: TStaticText
182	Left = 175
183	Top = 19
184	Width = 4
185	Height = 4
186	Alignment = taRightJustify
187	Font.Charset = DEFAULT_CHARSET
188	Font.Color = clInfoText
189	Font.Height = -11
190	Font.Name = 'MS Sans Serif'
191	Font.Style = []
192	ParentFont = False
193	ParentShowHint = False
194	ShowHint = False
195	TabOrder = 2
196	OnClick = pnlPatientClick
197	OnMouseDown = pnlPatientMouseDown
198	OnMouseUp = pnlPatientMouseUp
199	end
200	end
201	object pnlVisit: TKeyClickPanel
202	Left = 226
203	Top = 1
204	Width = 119
205	Height = 39
206	Hint = 'Click to change provider/location.'
207	Align = alLeft
208	BevelWidth = 2
209	Font.Charset = DEFAULT_CHARSET
210	Font.Color = clBtnFace
211	Font.Height = -11
212	Font.Name = 'MS Sans Serif'
213	Font.Style = []
214	ParentFont = False
215	ParentShowHint = False
216	ShowHint = True
217	TabOrder = 1
218	TabStop = True
219	OnClick = pnlVisitClick
220	OnEnter = pnlPrimaryCareEnter
221	OnExit = pnlPrimaryCareExit
222	object lblPtLocation: TStaticText
223	Left = 6
224	Top = 4
225	Width = 4
226	Height = 4
227	Font.Charset = DEFAULT_CHARSET
228	Font.Color = clWindowText
229	Font.Height = -12
230	Font.Name = 'MS Sans Serif'
231	Font.Style = [fsBold]
232	ParentFont = False
233	ParentShowHint = False
234	ShowAccelChar = False
235	ShowHint = False
236	TabOrder = 0
237	OnClick = pnlVisitClick
238	end
239	object lblPtProvider: TStaticText
240	Left = 6
241	Top = 19
242	Width = 4
243	Height = 4
244	Font.Charset = DEFAULT_CHARSET
245	Font.Color = clBtnText
246	Font.Height = -11
247	Font.Name = 'MS Sans Serif'
248	Font.Style = []
249	ParentFont = False
250	ParentShowHint = False
251	ShowHint = False
252	TabOrder = 1
253	OnClick = pnlVisitClick
254	end
255	end
256	object pnlPrimaryCare: TKeyClickPanel
257	Left = 345
258	Top = 1
259	Width = 67
260	Height = 39
261	Hint = 'Primary Care Team / Primary Care Provider'
262	Align = alClient
263	BevelWidth = 2
264	Font.Charset = DEFAULT_CHARSET
265	Font.Color = clBtnFace
266	Font.Height = -11
267	Font.Name = 'MS Sans Serif'
268	Font.Style = []
269	ParentFont = False
270	ParentShowHint = False
271	ShowHint = True
272	TabOrder = 2
273	TabStop = True
274	OnClick = pnlPrimaryCareClick
275	OnEnter = pnlPrimaryCareEnter
276	OnExit = pnlPrimaryCareExit
277	OnMouseDown = pnlPrimaryCareMouseDown
278	OnMouseUp = pnlPrimaryCareMouseUp
279	object lblPtCare: TStaticText
280	Left = 6
281	Top = 4
282	Width = 4
283	Height = 4
284	Font.Charset = DEFAULT_CHARSET
285	Font.Color = clBtnText
286	Font.Height = -11
287	Font.Name = 'MS Sans Serif'
288	Font.Style = []
289	ParentFont = False
290	ParentShowHint = False
291	ShowHint = False
292	TabOrder = 0
293	OnClick = pnlPrimaryCareClick
294	OnMouseDown = pnlPrimaryCareMouseDown
295	OnMouseUp = pnlPrimaryCareMouseUp
296	end
297	object lblPtAttending: TStaticText
298	Left = 6
299	Top = 19
300	Width = 4
301	Height = 4
302	Font.Charset = DEFAULT_CHARSET
303	Font.Color = clBtnText
304	Font.Height = -11
305	Font.Name = 'MS Sans Serif'
306	Font.Style = []
307	ParentFont = False
308	ParentShowHint = False
309	ShowHint = False
310	TabOrder = 1
311	OnClick = pnlPrimaryCareClick
312	OnMouseDown = pnlPrimaryCareMouseDown
313	OnMouseUp = pnlPrimaryCareMouseUp
314	end
315	end
316	object pnlReminders: TKeyClickPanel
317	Left = 580
318	Top = 1
319	Width = 35
320	Height = 39
321	Align = alRight
322	BevelWidth = 2
323	Caption = 'Reminders'
324	Font.Charset = DEFAULT_CHARSET
325	Font.Color = clBtnFace
326	Font.Height = -11
327	Font.Name = 'MS Sans Serif'
328	Font.Style = []
329	ParentFont = False
330	ParentShowHint = False
331	ShowHint = True
332	TabOrder = 6
333	TabStop = True
334	OnClick = pnlRemindersClick
335	OnEnter = pnlPrimaryCareEnter
336	OnExit = pnlPrimaryCareExit
337	OnMouseDown = pnlRemindersMouseDown
338	OnMouseUp = pnlRemindersMouseUp
339	object imgReminder: TImage
340	Left = 2
341	Top = 2
342	Width = 31
343	Height = 35
344	Align = alClient
345	Center = True
346	OnMouseDown = pnlRemindersMouseDown
347	OnMouseUp = pnlRemindersMouseUp
348	end
349	object anmtRemSearch: TAnimate
350	Left = 2
351	Top = 2
352	Width = 31
353	Height = 35
354	Align = alClient
355	Visible = False
356	end
357	end
358	object pnlFlag: TKeyClickPanel
359	Left = 472
360	Top = 1
361	Width = 35
362	Height = 39
363	Hint = 'Click to display patient record flags.'
364	Align = alRight
365	BevelWidth = 2
366	Caption = 'Flag'
367	ParentShowHint = False
368	ShowHint = True
369	TabOrder = 4
370	TabStop = True
371	OnClick = pnlFlagClick
372	OnEnter = pnlFlagEnter
373	OnExit = pnlFlagExit
374	OnMouseDown = pnlFlagMouseDown
375	OnMouseUp = pnlFlagMouseUp
376	object lblFlag: TLabel
377	Left = 2
378	Top = 2
379	Width = 31
380	Height = 35
381	Align = alClient
382	Alignment = taCenter
383	Caption = 'Flag'
384	Enabled = False
385	Font.Charset = DEFAULT_CHARSET
386	Font.Color = clBtnFace
387	Font.Height = -11
388	Font.Name = 'MS Sans Serif'
389	Font.Style = [fsBold]
390	ParentFont = False
391	Layout = tlCenter
392	WordWrap = True
393	OnClick = pnlFlagClick
394	OnMouseDown = pnlFlagMouseDown
395	OnMouseUp = pnlFlagMouseUp
396	ExplicitWidth = 25
397	ExplicitHeight = 13
398	end
399	end
400	object pnlPostings: TKeyClickPanel
401	Left = 615
402	Top = 1
403	Width = 70
404	Height = 39
405	Hint = 'Click to display patient postings.'
406	Align = alRight
407	BevelWidth = 2
408	Font.Charset = DEFAULT_CHARSET
409	Font.Color = clBtnFace
410	Font.Height = -11
411	Font.Name = 'MS Sans Serif'
412	Font.Style = []
413	ParentFont = False
414	ParentShowHint = False
415	ShowHint = True
416	TabOrder = 7
417	TabStop = True
418	OnClick = pnlPostingsClick
419	OnEnter = pnlPrimaryCareEnter
420	OnExit = pnlPrimaryCareExit
421	OnMouseDown = pnlPostingsMouseDown
422	OnMouseUp = pnlPostingsMouseUp
423	object lblPtPostings: TStaticText
424	Left = 5
425	Top = 4
426	Width = 57
427	Height = 13
428	Alignment = taCenter
429	AutoSize = False
430	Caption = 'No Postings'
431	Font.Charset = DEFAULT_CHARSET
432	Font.Color = clBtnText
433	Font.Height = -11
434	Font.Name = 'MS Sans Serif'
435	Font.Style = []
436	ParentFont = False
437	ParentShowHint = False
438	ShowHint = False
439	TabOrder = 0
440	OnClick = pnlPostingsClick
441	OnMouseDown = pnlPostingsMouseDown
442	OnMouseUp = pnlPostingsMouseUp
443	end
444	object lblPtCWAD: TStaticText
445	Left = 6
446	Top = 19
447	Width = 57
448	Height = 13
449	Alignment = taCenter
450	AutoSize = False
451	Font.Charset = DEFAULT_CHARSET
452	Font.Color = clMaroon
453	Font.Height = -12
454	Font.Name = 'MS Sans Serif'
455	Font.Style = [fsBold]
456	ParentFont = False
457	ParentShowHint = False
458	ShowHint = False
459	TabOrder = 1
460	OnClick = pnlPostingsClick
461	OnMouseDown = pnlPostingsMouseDown
462	OnMouseUp = pnlPostingsMouseUp
463	end
464	end
465	object paVAA: TKeyClickPanel
466	Left = 412
467	Top = 1
468	Width = 60
469	Height = 39
470	Align = alRight
471	BevelOuter = bvNone
472	Font.Charset = DEFAULT_CHARSET
473	Font.Color = clBtnFace
474	Font.Height = -11
475	Font.Name = 'MS Sans Serif'
476	Font.Style = []
477	ParentFont = False
478	ParentShowHint = False
479	ShowHint = False
480	TabOrder = 3
481	Visible = False
482	DesignSize = (
483	60
484	39)
485	object laVAA2: TButton
486	Left = 0
487	Top = 19
488	Width = 59
489	Height = 20
490	Hint = 'Click to display patient insurance data'
491	Anchors = [akLeft, akTop, akRight, akBottom]
492	Caption = 'laVAA2'
493	ParentShowHint = False
494	ShowHint = True
495	TabOrder = 1
496	OnClick = laVAA2Click
497	end
498	object laMHV: TButton
499	Left = 0
500	Top = 0
501	Width = 59
502	Height = 18
503	Hint = 'Click to display MHV data'
504	Anchors = [akLeft, akTop, akRight, akBottom]
505	Caption = 'laMHV'
506	ParentShowHint = False
507	ShowHint = True
508	TabOrder = 0
509	OnClick = laMHVClick
510	end
511	end
512	object pnlRemoteData: TKeyClickPanel
513	Left = 507
514	Top = 1
515	Width = 73
516	Height = 39
517	Align = alRight
518	BevelWidth = 2
519	Caption = 'Remote Data'
520	Font.Charset = DEFAULT_CHARSET
521	Font.Color = clBtnFace
522	Font.Height = -11
523	Font.Name = 'MS Sans Serif'
524	Font.Style = []
525	ParentFont = False
526	ParentShowHint = False
527	ShowHint = True
528	TabOrder = 5
529	TabStop = True
530	OnClick = pnlCIRNClick
531	OnEnter = pnlPrimaryCareEnter
532	OnExit = pnlPrimaryCareExit
533	OnMouseDown = pnlCIRNMouseDown
534	OnMouseUp = pnlCIRNMouseUp
535	object pnlVistaWeb: TKeyClickPanel
536	Left = 2
537	Top = 2
538	Width = 69
539	Height = 18
540	Hint = 'Click to open VistaWeb'
541	Align = alTop
542	BevelWidth = 2
543	Caption = 'VistaWeb'
544	Font.Charset = DEFAULT_CHARSET
545	Font.Color = clBtnFace
546	Font.Height = -11
547	Font.Name = 'MS Sans Serif'
548	Font.Style = []
549	ParentFont = False
550	ParentShowHint = False
551	ShowHint = True
552	TabOrder = 0
553	TabStop = True
554	OnClick = pnlVistaWebClick
555	OnEnter = pnlPrimaryCareEnter
556	OnExit = pnlPrimaryCareExit
557	OnMouseDown = pnlVistaWebMouseDown
558	OnMouseUp = pnlVistaWebMouseUp
559	object lblVistaWeb: TLabel
560	Left = 2
561	Top = 2
562	Width = 65
563	Height = 14
564	Align = alClient
565	Alignment = taCenter
566	Caption = 'VistaWeb'
567	Font.Charset = DEFAULT_CHARSET
568	Font.Color = clInfoText
569	Font.Height = -8
570	Font.Name = 'MS Sans Serif'
571	Font.Style = []
572	ParentFont = False
573	Layout = tlCenter
574	OnClick = pnlVistaWebClick
575	ExplicitWidth = 46
576	ExplicitHeight = 13
577	end
578	end
579	object pnlCIRN: TKeyClickPanel
580	Left = 2
581	Top = 20
582	Width = 69
583	Height = 17
584	Align = alClient
585	BevelWidth = 2
586	Caption = 'Remote Data'
587	Font.Charset = DEFAULT_CHARSET
588	Font.Color = clBtnFace
589	Font.Height = -11
590	Font.Name = 'MS Sans Serif'
591	Font.Style = []
592	ParentFont = False
593	ParentShowHint = False
594	ShowHint = True
595	TabOrder = 1
596	TabStop = True
597	OnClick = pnlCIRNClick
598	OnEnter = pnlPrimaryCareEnter
599	OnExit = pnlPrimaryCareExit
600	OnMouseDown = pnlCIRNMouseDown
601	OnMouseUp = pnlCIRNMouseUp
602	object lblCIRN: TLabel
603	Left = 2
604	Top = 2
605	Width = 65
606	Height = 13
607	Align = alClient
608	Alignment = taCenter
609	Caption = 'Remote Data'
610	Enabled = False
611	Font.Charset = DEFAULT_CHARSET
612	Font.Color = clBtnFace
613	Font.Height = -8
614	Font.Name = 'MS Sans Serif'
615	Font.Style = []
616	ParentFont = False
617	Layout = tlCenter
618	OnClick = pnlCIRNClick
619	ExplicitWidth = 63
620	end
621	end
622	end
623	end
624	object stsArea: TStatusBar
625	Left = 1
626	Top = 552
627	Width = 685
628	Height = 21
629	Panels = <
630	item
631	Width = 200
632	end
633	item
634	Width = 224
635	end
636	item
637	Style = psOwnerDraw
638	Width = 50
639	end
640	item
641	Width = 94
642	end
643	item
644	Width = 38
645	end
646	item
647	Width = 33
648	end>
649	PopupMenu = popAlerts
650	SizeGrip = False
651	end
652	object tabPage: TTabControl
653	Left = 1
654	Top = 530
655	Width = 685
656	Height = 22
657	Align = alBottom
658	Font.Charset = DEFAULT_CHARSET
659	Font.Color = clWindowText
660	Font.Height = -12
661	Font.Name = 'MS Sans Serif'
662	Font.Style = []
663	ParentFont = False
664	TabOrder = 1
665	TabPosition = tpBottom
666	OnChange = tabPageChange
667	OnMouseUp = tabPageMouseUp
668	end
669	object pnlPage: TPanel
670	Left = 1
671	Top = 42
672	Width = 685
673	Height = 488
674	Align = alClient
675	BevelOuter = bvNone
676	Font.Charset = DEFAULT_CHARSET
677	Font.Color = clWindowText
678	Font.Height = -12
679	Font.Name = 'MS Sans Serif'
680	Font.Style = []
681	ParentFont = False
682	TabOrder = 2
683	object lstCIRNLocations: TORListBox
684	Left = 424
685	Top = 0
686	Width = 209
687	Height = 78
688	TabStop = False
689	Style = lbOwnerDrawFixed
690	Font.Charset = DEFAULT_CHARSET
691	Font.Color = clBlue
692	Font.Height = -12
693	Font.Name = 'MS Sans Serif'
694	Font.Style = []
695	ItemHeight = 13
696	ParentFont = False
697	ParentShowHint = False
698	PopupMenu = popCIRN
699	ShowHint = False
700	TabOrder = 0
701	Visible = False
702	OnClick = lstCIRNLocationsClick
703	OnExit = lstCIRNLocationsExit
704	Caption = 'Remote Data'
705	ItemTipColor = clWindow
706	LongList = False
707	Pieces = '2,3,4'
708	TabPositions = '16'
709	OnChange = lstCIRNLocationsChange
710	RightClickSelect = True
711	CheckBoxes = True
712	CheckEntireLine = True
713	end
714	end
715	end
716	inherited amgrMain: TVA508AccessibilityManager
717	Left = 8
718	Top = 48
719	Data = (
720	(
721	'Component = pnlNoPatientSelected'
722	'Status = stsDefault')
723	(
724	'Component = pnlPatientSelected'
725	'Status = stsDefault')
726	(
727	'Component = pnlToolbar'
728	'Status = stsDefault')
729	(
730	'Component = pnlCCOW'
731	'Status = stsDefault')
732	(
733	'Component = pnlPatient'
734	'Status = stsDefault')
735	(
736	'Component = lblPtName'
737	'Status = stsDefault')
738	(
739	'Component = lblPtSSN'
740	'Status = stsDefault')
741	(
742	'Component = lblPtAge'
743	'Status = stsDefault')
744	(
745	'Component = pnlVisit'
746	'Status = stsDefault')
747	(
748	'Component = lblPtLocation'
749	'Status = stsDefault')
750	(
751	'Component = lblPtProvider'
752	'Status = stsDefault')
753	(
754	'Component = pnlPrimaryCare'
755	'Status = stsDefault')
756	(
757	'Component = lblPtCare'
758	'Status = stsDefault')
759	(
760	'Component = lblPtAttending'
761	'Status = stsDefault')
762	(
763	'Component = pnlReminders'
764	'Status = stsDefault')
765	(
766	'Component = anmtRemSearch'
767	'Status = stsDefault')
768	(
769	'Component = pnlFlag'
770	'Status = stsDefault')
771	(
772	'Component = pnlPostings'
773	'Status = stsDefault')
774	(
775	'Component = lblPtPostings'
776	'Status = stsDefault')
777	(
778	'Component = lblPtCWAD'
779	'Status = stsDefault')
780	(
781	'Component = paVAA'
782	'Status = stsDefault')
783	(
784	'Component = laVAA2'
785	'Property = Hint'
786	'Status = stsOK')
787	(
788	'Component = laMHV'
789	'Property = Hint'
790	'Status = stsOK')
791	(
792	'Component = stsArea'
793	'Status = stsDefault')
794	(
795	'Component = tabPage'
796	'Status = stsDefault')
797	(
798	'Component = pnlPage'
799	'Status = stsDefault')
800	(
801	'Component = lstCIRNLocations'
802	'Status = stsDefault')
803	(
804	'Component = frmFrame'
805	'Status = stsDefault')
806	(
807	'Component = pnlRemoteData'
808	'Status = stsDefault')
809	(
810	'Component = pnlVistaWeb'
811	'Status = stsDefault')
812	(
813	'Component = pnlCIRN'
814	'Status = stsDefault'))
815	end
816	object mnuFrame: TMainMenu
817	Left = 180
818	Top = 128
819	object mnuFile: TMenuItem
820	Caption = '&File'
821	GroupIndex = 1
822	object mnuFileOpen: TMenuItem
823	Caption = 'Select &New Patient...'
824	OnClick = mnuFileOpenClick
825	end
826	object mnuFileRefresh: TMenuItem
827	Caption = 'Refresh Patient &Information'
828	OnClick = mnuFileRefreshClick
829	end
830	object mnuFileResumeContext: TMenuItem
831	Caption = 'Rejoin patient link'
832	object mnuFileResumeContextSet: TMenuItem
833	Caption = 'Set new context'
834	OnClick = mnuFileResumeContextSetClick
835	end
836	object Useexistingcontext1: TMenuItem
837	Caption = 'Use existing context'
838	OnClick = mnuFileResumeContextGetClick
839	end
840	end
841	object mnuFileBreakContext: TMenuItem
842	Caption = 'Break patient link'
843	OnClick = mnuFileBreakContextClick
844	end
845	object mnuFileEncounter: TMenuItem
846	Caption = '&Update Provider / Location...'
847	OnClick = mnuFileEncounterClick
848	end
849	object mnuFileReview: TMenuItem
850	Caption = '&Review/Sign Changes...'
851	OnClick = mnuFileReviewClick
852	end
853	object Z7: TMenuItem
854	Caption = '-'
855	Visible = False
856	end
857	object mnuFileNext: TMenuItem
858	Caption = 'Next Noti&fication'
859	OnClick = mnuFileNextClick
860	end
861	object mnuFileNotifRemove: TMenuItem
862	Caption = 'Remo&ve Current Notification'
863	OnClick = mnuFileNotifRemoveClick
864	end
865	object Z1: TMenuItem
866	Caption = '-'
867	end
868	object mnuFilePrintSetup: TMenuItem
869	Caption = 'Print &Setup...'
870	Enabled = False
871	OnClick = mnuFilePrintSetupClick
872	end
873	object mnuFilePrintSelectedItems: TMenuItem
874	Caption = 'Print Selected Items'
875	Enabled = False
876	OnClick = mnuFilePrintSelectedItemsClick
877	end
878	object mnuFilePrint: TMenuItem
879	Caption = '&Print...'
880	Enabled = False
881	OnClick = mnuFilePrintClick
882	end
883	object mnuFileExit: TMenuItem
884	Caption = 'E&xit'
885	OnClick = mnuFileExitClick
886	end
887	end
888	object mnuEdit: TMenuItem
889	Caption = '&Edit'
890	GroupIndex = 2
891	OnClick = mnuEditClick
892	object mnuEditUndo: TMenuItem
893	Caption = '&Undo'
894	ShortCut = 16474
895	OnClick = mnuEditUndoClick
896	end
897	object Z3: TMenuItem
898	Caption = '-'
899	end
900	object mnuEditCut: TMenuItem
901	Caption = 'Cu&t'
902	ShortCut = 16472
903	OnClick = mnuEditCutClick
904	end
905	object mnuEditCopy: TMenuItem
906	Caption = '&Copy'
907	ShortCut = 16451
908	OnClick = mnuEditCopyClick
909	end
910	object mnuEditPaste: TMenuItem
911	Caption = '&Paste'
912	ShortCut = 16470
913	OnClick = mnuEditPasteClick
914	end
915	object Z4: TMenuItem
916	Caption = '-'
917	end
918	object mnuEditPref: TMenuItem
919	Caption = 'P&references'
920	object Prefs1: TMenuItem
921	Caption = '&Fonts'
922	object mnu8pt: TMenuItem
923	Tag = 8
924	Caption = '8 pt'
925	RadioItem = True
926	OnClick = mnuFontSizeClick
927	end
928	object mnu10pt1: TMenuItem
929	Tag = 10
930	Caption = '10 pt'
931	RadioItem = True
932	OnClick = mnuFontSizeClick
933	end
934	object mnu12pt1: TMenuItem
935	Tag = 12
936	Caption = '12 pt'
937	RadioItem = True
938	OnClick = mnuFontSizeClick
939	end
940	object mnu14pt1: TMenuItem
941	Tag = 14
942	Caption = '14 pt'
943	RadioItem = True
944	OnClick = mnuFontSizeClick
945	end
946	object mnu18pt1: TMenuItem
947	Tag = 18
948	Caption = '18 pt'
949	RadioItem = True
950	OnClick = mnuFontSizeClick
951	end
952	end
953	end
954	end
955	object mnuView: TMenuItem
956	Caption = '&View'
957	GroupIndex = 3
958	object mnuViewChart: TMenuItem
959	Caption = 'Chart &Tab'
960	object mnuChartCover: TMenuItem
961	Tag = 1
962	Caption = 'Cover &Sheet'
963	ShortCut = 16467
964	OnClick = mnuChartTabClick
965	end
966	object mnuChartProbs: TMenuItem
967	Tag = 2
968	Caption = '&Problem List'
969	ShortCut = 16464
970	OnClick = mnuChartTabClick
971	end
972	object mnuChartMeds: TMenuItem
973	Tag = 3
974	Caption = '&Medications'
975	ShortCut = 16461
976	OnClick = mnuChartTabClick
977	end
978	object mnuChartOrders: TMenuItem
979	Tag = 4
980	Caption = '&Orders'
981	ShortCut = 16463
982	OnClick = mnuChartTabClick
983	end
984	object mnuChartNotes: TMenuItem
985	Tag = 6
986	Caption = 'Progress &Notes'
987	ShortCut = 16462
988	OnClick = mnuChartTabClick
989	end
990	object mnuChartCslts: TMenuItem
991	Tag = 7
992	Caption = 'Consul&ts'
993	ShortCut = 16468
994	OnClick = mnuChartTabClick
995	end
996	object mnuChartSurgery: TMenuItem
997	Tag = 11
998	Caption = 'S&urgery'
999	ShortCut = 16469
1000	OnClick = mnuChartTabClick
1001	end
1002	object mnuChartDCSumm: TMenuItem
1003	Tag = 8
1004	Caption = '&Discharge Summaries'
1005	ShortCut = 16452
1006	OnClick = mnuChartTabClick
1007	end
1008	object mnuChartLabs: TMenuItem
1009	Tag = 9
1010	Caption = '&Laboratory'
1011	ShortCut = 16460
1012	OnClick = mnuChartTabClick
1013	end
1014	object mnuChartReports: TMenuItem
1015	Tag = 10
1016	Caption = '&Reports'
1017	ShortCut = 16466
1018	OnClick = mnuChartTabClick
1019	end
1020	end
1021	object mnuViewInformation: TMenuItem
1022	Caption = 'Information'
1023	OnClick = mnuViewInformationClick
1024	object mnuViewDemo: TMenuItem
1025	Tag = 1
1026	Caption = 'De&mographics...'
1027	OnClick = ViewInfo
1028	end
1029	object mnuViewVisits: TMenuItem
1030	Tag = 2
1031	Caption = 'Visits/Pr&ovider...'
1032	OnClick = ViewInfo
1033	end
1034	object mnuViewPrimaryCare: TMenuItem
1035	Tag = 3
1036	Caption = 'Primary &Care...'
1037	OnClick = ViewInfo
1038	end
1039	object mnuViewMyHealtheVet: TMenuItem
1040	Tag = 4
1041	Caption = 'MyHealthe&Vet...'
1042	OnClick = ViewInfo
1043	end
1044	object mnuInsurance: TMenuItem
1045	Tag = 5
1046	Caption = '&Insurance...'
1047	OnClick = ViewInfo
1048	end
1049	object mnuViewFlags: TMenuItem
1050	Tag = 6
1051	Caption = '&Flags...'
1052	OnClick = ViewInfo
1053	end
1054	object mnuViewRemoteData: TMenuItem
1055	Tag = 7
1056	Caption = 'Remote &Data...'
1057	OnClick = ViewInfo
1058	end
1059	object mnuViewReminders: TMenuItem
1060	Tag = 8
1061	Caption = '&Reminders...'
1062	OnClick = ViewInfo
1063	end
1064	object mnuViewPostings: TMenuItem
1065	Tag = 9
1066	Caption = '&Postings...'
1067	OnClick = ViewInfo
1068	end
1069	end
1070	end
1071	object mnuTools: TMenuItem
1072	Caption = '&Tools'
1073	GroupIndex = 8
1074	OnClick = mnuToolsClick
1075	object Z8: TMenuItem
1076	Caption = '-'
1077	end
1078	object mnuToolsGraphing: TMenuItem
1079	Caption = '&Graphing...'
1080	ShortCut = 16455
1081	OnClick = mnuToolsGraphingClick
1082	end
1083	object LabInfo1: TMenuItem
1084	Caption = '&Lab Test Information...'
1085	OnClick = LabInfo1Click
1086	end
1087	object mnuToolsOptions: TMenuItem
1088	Caption = '&Options...'
1089	OnClick = mnuToolsOptionsClick
1090	end
1091	end
1092	object mnuHelp: TMenuItem
1093	Caption = '&Help'
1094	GroupIndex = 9
1095	object mnuHelpContents: TMenuItem
1096	Caption = '&Contents'
1097	Hint = 'WinHlp32 cprs.hlp'
1098	OnClick = ToolClick
1099	end
1100	object mnuHelpTutor: TMenuItem
1101	Caption = '&Brief Tutorial'
1102	Enabled = False
1103	Visible = False
1104	end
1105	object Z5: TMenuItem
1106	Caption = '-'
1107	end
1108	object mnuHelpBroker: TMenuItem
1109	Caption = 'Last Broker Call'
1110	OnClick = mnuHelpBrokerClick
1111	end
1112	object mnuHelpLists: TMenuItem
1113	Caption = 'Show ListBox Data'
1114	OnClick = mnuHelpListsClick
1115	end
1116	object mnuHelpSymbols: TMenuItem
1117	Caption = 'Symbol Table'
1118	OnClick = mnuHelpSymbolsClick
1119	end
1120	object Z6: TMenuItem
1121	Caption = '-'
1122	end
1123	object mnuHelpAbout: TMenuItem
1124	Caption = '&About CPRS'
1125	OnClick = mnuHelpAboutClick
1126	end
1127	end
1128	end
1129	object popCIRN: TPopupMenu
1130	Left = 539
1131	Top = 60
1132	object popCIRNSelectAll: TMenuItem
1133	Caption = 'Select All'
1134	OnClick = popCIRNSelectAllClick
1135	end
1136	object popCIRNSelectNone: TMenuItem
1137	Caption = 'Select None'
1138	OnClick = popCIRNSelectNoneClick
1139	end
1140	object popCIRNClose: TMenuItem
1141	Caption = 'Close List'
1142	OnClick = popCIRNCloseClick
1143	end
1144	end
1145	object OROpenDlg: TOpenDialog
1146	Filter = 'Exe file (.exe)\|.exe'
1147	Left = 260
1148	Top = 257
1149	end
1150	object popAlerts: TPopupMenu
1151	AutoPopup = False
1152	Left = 320
1153	Top = 200
1154	object mnuAlertContinue: TMenuItem
1155	Caption = 'Continue'
1156	ShortCut = 16451
1157	OnClick = mnuFileNextClick
1158	end
1159	object mnuAlertForward: TMenuItem
1160	Caption = 'Forward'
1161	ShortCut = 16454
1162	OnClick = mnuAlertForwardClick
1163	end
1164	object mnuAlertRenew: TMenuItem
1165	Caption = 'Renew'
1166	ShortCut = 16466
1167	OnClick = mnuAlertRenewClick
1168	end
1169	end
1170	object AppEvents: TApplicationEvents
1171	OnActivate = AppEventsActivate
1172	OnShortCut = AppEventsShortCut
1173	Left = 336
1174	Top = 256
1175	end
1176	object compAccessTabPage: TVA508ComponentAccessibility
1177	Component = tabPage
1178	OnCaptionQuery = compAccessTabPageCaptionQuery
1179	Left = 56
1180	Top = 48
1181	end
1182	end

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

Download in other formats:

Original Format