Context Navigation

fFrame.dfm@ 1427

Last change on this file since 1427 was 463, checked in by Kevin Toppenberg, 16 years ago
Uploading 1.0.26.76, OR_30_277
File size: 29.9 KB

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

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

Download in other formats:

Original Format