Context Navigation

fFrame.dfm@ 1138

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

Rev	Line
[830]	1	inherited frmFrame: TfrmFrame
	2	Left = 196
	3	Top = 119
[456]	4	Caption = 'p'
[830]	5	ClientHeight = 574
	6	ClientWidth = 687
[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
[830]	18	ExplicitLeft = 196
	19	ExplicitTop = 119
	20	ExplicitWidth = 695
	21	ExplicitHeight = 620
[456]	22	PixelsPerInch = 96
	23	TextHeight = 13
[830]	24	object pnlNoPatientSelected: TPanel [0]
[456]	25	Left = 0
	26	Top = 0
[830]	27	Width = 687
	28	Height = 574
[456]	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
[830]	40	object pnlPatientSelected: TPanel [1]
[456]	41	Left = 0
	42	Top = 0
[830]	43	Width = 687
	44	Height = 574
[456]	45	Align = alClient
	46	TabOrder = 0
	47	object bvlPageTop: TBevel
	48	Left = 1
	49	Top = 41
[830]	50	Width = 685
[456]	51	Height = 1
	52	Align = alTop
[830]	53	ExplicitWidth = 674
[456]	54	end
	55	object pnlToolbar: TPanel
	56	Left = 1
	57	Top = 1
[830]	58	Width = 685
[456]	59	Height = 40
	60	Align = alTop
	61	BevelOuter = bvNone
[830]	62	Caption = 'object pnlRemoteData: TKeyClickPanel'
[456]	63	TabOrder = 0
	64	object bvlToolTop: TBevel
	65	Left = 0
	66	Top = 0
[830]	67	Width = 685
[456]	68	Height = 1
	69	Align = alTop
	70	Style = bsRaised
[830]	71	ExplicitWidth = 674
[456]	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
[830]	131	Font.Height = -11
[456]	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
[830]	166	Width = 4
	167	Height = 4
[456]	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
[830]	182	Left = 175
[456]	183	Top = 19
[830]	184	Width = 4
	185	Height = 4
[456]	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
[830]	204	Width = 119
[456]	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
[830]	257	Left = 345
[456]	258	Top = 1
[830]	259	Width = 67
[456]	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
[830]	317	Left = 580
[456]	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
[830]	359	Left = 472
[456]	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
[830]	396	ExplicitWidth = 25
	397	ExplicitHeight = 13
[456]	398	end
	399	end
	400	object pnlPostings: TKeyClickPanel
[830]	401	Left = 615
[456]	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
[830]	466	Left = 412
[456]	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
[830]	500	Top = 0
[456]	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
[830]	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
[456]	623	end
	624	object stsArea: TStatusBar
	625	Left = 1
[830]	626	Top = 552
	627	Width = 685
[456]	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
[830]	654	Top = 530
	655	Width = 685
[456]	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
[830]	672	Width = 685
	673	Height = 488
[456]	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
[830]	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
[456]	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'
[830]	1156	ShortCut = 16451
[456]	1157	OnClick = mnuFileNextClick
	1158	end
	1159	object mnuAlertForward: TMenuItem
	1160	Caption = 'Forward'
[830]	1161	ShortCut = 16454
[456]	1162	OnClick = mnuAlertForwardClick
	1163	end
	1164	object mnuAlertRenew: TMenuItem
	1165	Caption = 'Renew'
[830]	1166	ShortCut = 16466
[456]	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
[830]	1176	object compAccessTabPage: TVA508ComponentAccessibility
	1177	Component = tabPage
	1178	OnCaptionQuery = compAccessTabPageCaptionQuery
	1179	Left = 56
	1180	Top = 48
	1181	end
[456]	1182	end

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

Download in other formats:

Original Format