Context Navigation

fFrame.dfm@ 1710

Last change on this file since 1710 was 1693, checked in by healthsevak, 10 years ago
Committing the files for first time to this new branch
File size: 34.5 KB

Rev	Line
[830]	1	inherited frmFrame: TfrmFrame
[1693]	2	Left = 219
	3	Top = 102
[456]	4	Caption = 'p'
[1693]	5	ClientHeight = 633
	6	ClientWidth = 793
[456]	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
[1693]	18	ExplicitWidth = 801
	19	ExplicitHeight = 687
[456]	20	PixelsPerInch = 96
	21	TextHeight = 13
[830]	22	object pnlNoPatientSelected: TPanel [0]
[456]	23	Left = 0
	24	Top = 0
[1693]	25	Width = 793
	26	Height = 633
[456]	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
[830]	38	object pnlPatientSelected: TPanel [1]
[456]	39	Left = 0
	40	Top = 0
[1693]	41	Width = 793
	42	Height = 633
[456]	43	Align = alClient
	44	TabOrder = 0
	45	object bvlPageTop: TBevel
	46	Left = 1
	47	Top = 41
[1693]	48	Width = 791
[456]	49	Height = 1
	50	Align = alTop
[830]	51	ExplicitWidth = 674
[456]	52	end
	53	object pnlToolbar: TPanel
	54	Left = 1
	55	Top = 1
[1693]	56	Width = 791
[456]	57	Height = 40
	58	Align = alTop
	59	BevelOuter = bvNone
	60	TabOrder = 0
	61	object bvlToolTop: TBevel
	62	Left = 0
	63	Top = 0
[1693]	64	Width = 791
[456]	65	Height = 1
	66	Align = alTop
	67	Style = bsRaised
[830]	68	ExplicitWidth = 674
[456]	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
[830]	128	Font.Height = -11
[456]	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
[1693]	163	Width = 64
	164	Height = 17
	165	Caption = '000-00-0000'
[456]	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
[830]	180	Left = 175
[456]	181	Top = 19
[830]	182	Width = 4
	183	Height = 4
[456]	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
[830]	202	Width = 119
[456]	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
[1693]	220	OnMouseDown = pnlVisitMouseDown
	221	OnMouseUp = pnlVisitMouseUp
[456]	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
[1693]	238	OnMouseDown = pnlVisitMouseDown
	239	OnMouseUp = pnlVisitMouseUp
[456]	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
[1693]	256	OnMouseDown = pnlVisitMouseDown
	257	OnMouseUp = pnlVisitMouseUp
[456]	258	end
	259	end
	260	object pnlPrimaryCare: TKeyClickPanel
[830]	261	Left = 345
[456]	262	Top = 1
[1693]	263	Width = 117
[456]	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
[1693]	321	Left = 686
[456]	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
[1693]	363	Left = 721
[456]	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
[1693]	428	Left = 462
[456]	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
[830]	462	Top = 0
[456]	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
[1693]	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
[830]	536	object pnlRemoteData: TKeyClickPanel
[1693]	537	Left = 613
[830]	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
[456]	647	end
	648	object stsArea: TStatusBar
	649	Left = 1
[1693]	650	Top = 611
	651	Width = 791
[456]	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
[1693]	678	Top = 589
	679	Width = 791
[456]	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
[1693]	691	OnMouseDown = tabPageMouseDown
[456]	692	OnMouseUp = tabPageMouseUp
	693	end
	694	object pnlPage: TPanel
	695	Left = 1
	696	Top = 42
[1693]	697	Width = 791
	698	Height = 547
[456]	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
[830]	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	(
[1693]	829	'Component = pnlCVnFlag'
	830	'Status = stsDefault')
	831	(
	832	'Component = btnCombatVet'
	833	'Status = stsDefault')
	834	(
	835	'Component = pnlFlag'
	836	'Status = stsDefault')
	837	(
[830]	838	'Component = pnlRemoteData'
	839	'Status = stsDefault')
	840	(
	841	'Component = pnlVistaWeb'
	842	'Status = stsDefault')
	843	(
	844	'Component = pnlCIRN'
	845	'Status = stsDefault'))
	846	end
[456]	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
[1693]	928	object mnuEditRedo: TMenuItem
	929	Caption = 'Re&do'
	930	ShortCut = 16473
	931	OnClick = mnuEditRedoClick
	932	end
[456]	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
[1693]	1166	Top = 148
[456]	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'
[830]	1191	ShortCut = 16451
[456]	1192	OnClick = mnuFileNextClick
	1193	end
	1194	object mnuAlertForward: TMenuItem
	1195	Caption = 'Forward'
[830]	1196	ShortCut = 16454
[456]	1197	OnClick = mnuAlertForwardClick
	1198	end
	1199	object mnuAlertRenew: TMenuItem
	1200	Caption = 'Renew'
[830]	1201	ShortCut = 16466
[456]	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
[830]	1211	object compAccessTabPage: TVA508ComponentAccessibility
	1212	Component = tabPage
	1213	OnCaptionQuery = compAccessTabPageCaptionQuery
	1214	Left = 56
	1215	Top = 48
	1216	end
[456]	1217	end

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

Download in other formats:

Original Format