Context Navigation

fFrame.dfm@ 1695

Last change on this file since 1695 was 1679, checked in by healthsevak, 10 years ago
Updating the working copy to CPRS version 28
File size: 34.5 KB

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

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

Download in other formats:

Original Format