Context Navigation

fFrame.dfm@ 1719

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

Line
1	object frmFrame: TfrmFrame
2	Left = 77
3	Top = 0
4	Width = 684
5	Height = 487
6	Caption = 'p'
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
32	Height = 441
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
48	Height = 441
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
77	Width = 39
78	Height = 39
79	Align = alLeft
80	BevelWidth = 2
81	ParentShowHint = False
82	ShowHint = True
83	TabOrder = 8
84	object imgCCOW: TImage
85	Left = 2
86	Top = 2
87	Width = 35
88	Height = 35
89	Align = alClient
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
122	Left = 39
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
204	Left = 226
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
265	Left = 394
266	Top = 1
267	Width = 31
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
325	Left = 520
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
340	TabOrder = 5
341	OnClick = pnlCIRNClick
342	OnEnter = pnlPrimaryCareEnter
343	OnExit = pnlPrimaryCareExit
344	OnMouseDown = pnlCIRNMouseDown
345	OnMouseUp = pnlCIRNMouseUp
346	object lblCIRN: TLabel
347	Left = 2
348	Top = 2
349	Width = 45
350	Height = 13
351	Align = alTop
352	Alignment = taCenter
353	Caption = 'Remote'
354	Enabled = False
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
361	OnClick = pnlCIRNClick
362	end
363	object lblCIRNData: TLabel
364	Left = 2
365	Top = 15
366	Width = 45
367	Height = 13
368	Align = alTop
369	Alignment = taCenter
370	Caption = 'Data'
371	Enabled = False
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
378	OnClick = pnlCIRNClick
379	end
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
395	end
396	object pnlReminders: TKeyClickPanel
397	Left = 569
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
412	TabOrder = 6
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
440	Left = 485
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
450	TabOrder = 4
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
480	Left = 604
481	Top = 1
482	Width = 70
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
495	TabOrder = 7
496	TabStop = True
497	OnClick = pnlPostingsClick
498	OnEnter = pnlPrimaryCareEnter
499	OnExit = pnlPrimaryCareExit
500	OnMouseDown = pnlPostingsMouseDown
501	OnMouseUp = pnlPostingsMouseUp
502	object lblPtPostings: TStaticText
503	Left = 5
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
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
591	end
592	object stsArea: TStatusBar
593	Left = 1
594	Top = 419
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
626	Top = 397
627	Width = 647
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
645	Height = 355
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
689	Left = 180
690	Top = 128
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'
797	RadioItem = True
798	OnClick = mnuFontSizeClick
799	end
800	object mnu10pt1: TMenuItem
801	Tag = 10
802	Caption = '10 pt'
803	RadioItem = True
804	OnClick = mnuFontSizeClick
805	end
806	object mnu12pt1: TMenuItem
807	Tag = 12
808	Caption = '12 pt'
809	RadioItem = True
810	OnClick = mnuFontSizeClick
811	end
812	object mnu14pt1: TMenuItem
813	Tag = 14
814	Caption = '14 pt'
815	RadioItem = True
816	OnClick = mnuFontSizeClick
817	end
818	object mnu18pt1: TMenuItem
819	Tag = 18
820	Caption = '18 pt'
821	RadioItem = True
822	OnClick = mnuFontSizeClick
823	end
824	object mnu24pt1: TMenuItem
825	Tag = 24
826	Caption = '24 pt'
827	RadioItem = True
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
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
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
956	object mnuToolsGraphing: TMenuItem
957	Caption = '&Graphing...'
958	ShortCut = 16455
959	OnClick = mnuToolsGraphingClick
960	end
961	object LabInfo1: TMenuItem
962	Caption = '&Lab Test Information...'
963	OnClick = LabInfo1Click
964	end
965	object mnuToolsOptions: TMenuItem
966	Caption = '&Options...'
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'
1025	Left = 260
1026	Top = 257
1027	end
1028	object popAlerts: TPopupMenu
1029	AutoPopup = False
1030	Left = 320
1031	Top = 200
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
1047	OnShortCut = AppEventsShortCut
1048	Left = 336
1049	Top = 256
1050	end
1051	end

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

Download in other formats:

Original Format