Context Navigation

fProbs.dfm@ 1680

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

Line
1	inherited frmProblems: TfrmProblems
2	Left = 627
3	Top = 64
4	HelpContext = 2000
5	Caption = 'Problems List Page'
6	ClientHeight = 355
7	ClientWidth = 631
8	HelpFile = 'overvw'
9	Menu = mnuProbs
10	OnDestroy = FormDestroy
11	OnHide = FormHide
12	OnMouseMove = FormMouseMove
13	OnShow = FormShow
14	ExplicitLeft = 627
15	ExplicitTop = 64
16	ExplicitWidth = 639
17	ExplicitHeight = 409
18	PixelsPerInch = 96
19	TextHeight = 13
20	inherited shpPageBottom: TShape
21	Top = 350
22	Width = 631
23	Constraints.MinHeight = 5
24	ExplicitTop = 358
25	ExplicitWidth = 631
26	end
27	inherited sptHorz: TSplitter
28	Left = 159
29	Width = 2
30	Height = 350
31	OnMoved = sptHorzMoved
32	ExplicitLeft = 159
33	ExplicitWidth = 2
34	ExplicitHeight = 358
35	end
36	inherited pnlLeft: TPanel
37	Width = 159
38	Height = 350
39	TabStop = True
40	ExplicitWidth = 159
41	ExplicitHeight = 358
42	object pnlButtons: TPanel
43	Left = 0
44	Top = 304
45	Width = 159
46	Height = 46
47	Align = alBottom
48	BevelOuter = bvNone
49	Constraints.MinHeight = 46
50	TabOrder = 3
51	object bbOtherProb: TORAlignButton
52	Left = 0
53	Top = 2
54	Width = 159
55	Height = 22
56	Align = alBottom
57	Caption = 'Other Problem'
58	TabOrder = 0
59	OnClick = bbOtherProbClick
60	OnExit = bbNewProbExit
61	OnMouseMove = FormMouseMove
62	end
63	object bbCancel: TORAlignButton
64	Left = 0
65	Top = 24
66	Width = 159
67	Height = 22
68	Align = alBottom
69	Caption = 'Cancel'
70	TabOrder = 1
71	OnClick = bbCancelClick
72	OnExit = bbNewProbExit
73	OnMouseMove = FormMouseMove
74	end
75	end
76	object pnlView: TPanel
77	Left = 0
78	Top = 0
79	Width = 159
80	Height = 304
81	Align = alClient
82	BevelOuter = bvNone
83	TabOrder = 1
84	ExplicitHeight = 312
85	object lblView: TOROffsetLabel
86	Left = 0
87	Top = 0
88	Width = 159
89	Height = 19
90	Align = alTop
91	Caption = 'View options'
92	HorzOffset = 2
93	Transparent = False
94	VertOffset = 6
95	WordWrap = False
96	end
97	object lstView: TORListBox
98	Left = 0
99	Top = 19
100	Width = 159
101	Height = 97
102	Align = alTop
103	ExtendedSelect = False
104	ItemHeight = 13
105	Items.Strings = (
106	'A^Active'
107	'I^Inactive'
108	'B^Both active and inactive'
109	'R^Removed')
110	ParentShowHint = False
111	ShowHint = True
112	TabOrder = 0
113	OnClick = lstViewClick
114	OnExit = lstViewExit
115	OnMouseMove = FormMouseMove
116	Caption = 'View options'
117	ItemTipColor = clWindow
118	LongList = False
119	Pieces = '2'
120	end
121	object bbNewProb: TORAlignButton
122	Tag = 100
123	Left = 0
124	Top = 116
125	Width = 159
126	Height = 24
127	Align = alTop
128	Caption = 'New problem'
129	TabOrder = 1
130	OnClick = lstProbActsClick
131	OnExit = bbNewProbExit
132	OnMouseMove = FormMouseMove
133	end
134	end
135	object pnlProbEnt: TPanel
136	Left = 0
137	Top = 0
138	Width = 159
139	Height = 304
140	Align = alClient
141	BevelOuter = bvNone
142	TabOrder = 2
143	Visible = False
144	OnResize = pnlProbEntResize
145	object lblProbEnt: TLabel
146	Left = 0
147	Top = 270
148	Width = 159
149	Height = 13
150	Align = alBottom
151	AutoSize = False
152	Caption = 'Enter new problem:'
153	ExplicitTop = 278
154	end
155	object edProbEnt: TCaptionEdit
156	Left = 0
157	Top = 283
158	Width = 159
159	Height = 21
160	Align = alBottom
161	TabOrder = 0
162	OnExit = lstViewExit
163	OnKeyPress = edProbEntKeyPress
164	Caption = 'Enter new problem'
165	end
166	end
167	object pnlProbList: TORAutoPanel
168	Left = 0
169	Top = 0
170	Width = 159
171	Height = 304
172	Align = alClient
173	BevelOuter = bvNone
174	Constraints.MinHeight = 90
175	TabOrder = 0
176	ExplicitHeight = 312
177	object sptProbPanel: TSplitter
178	Left = 0
179	Top = 157
180	Width = 159
181	Height = 3
182	Cursor = crVSplit
183	Align = alTop
184	end
185	object pnlProbCats: TPanel
186	Left = 0
187	Top = 0
188	Width = 159
189	Height = 157
190	Align = alTop
191	BevelOuter = bvNone
192	TabOrder = 0
193	object lblProbCats: TLabel
194	Left = 0
195	Top = 0
196	Width = 159
197	Height = 13
198	Align = alTop
199	AutoSize = False
200	Caption = 'Problem categories'
201	end
202	object lstCatPick: TORListBox
203	Left = 0
204	Top = 13
205	Width = 159
206	Height = 144
207	Hint = 'Select problem category'
208	Align = alClient
209	ExtendedSelect = False
210	ItemHeight = 13
211	ParentShowHint = False
212	ShowHint = True
213	TabOrder = 0
214	OnClick = lstCatPickClick
215	OnExit = lstViewExit
216	OnMouseMove = FormMouseMove
217	Caption = 'Problem categories'
218	ItemTipColor = clWindow
219	LongList = False
220	Pieces = '2'
221	end
222	end
223	object pnlProbs: TPanel
224	Left = 0
225	Top = 160
226	Width = 159
227	Height = 144
228	Align = alClient
229	BevelOuter = bvNone
230	TabOrder = 1
231	ExplicitHeight = 152
232	object lblProblems: TLabel
233	Left = 0
234	Top = 0
235	Width = 159
236	Height = 13
237	Align = alTop
238	AutoSize = False
239	Caption = 'Problems'
240	Constraints.MaxHeight = 13
241	Constraints.MinHeight = 13
242	end
243	object lstProbPick: TORListBox
244	Left = 0
245	Top = 13
246	Width = 159
247	Height = 131
248	Hint = 'Select problem to add'
249	Align = alClient
250	Ctl3D = False
251	ExtendedSelect = False
252	ItemHeight = 13
253	ParentCtl3D = False
254	ParentShowHint = False
255	ShowHint = True
256	TabOrder = 0
257	OnClick = lstProbPickClick
258	OnDblClick = lstProbPickDblClick
259	Caption = 'Problems'
260	ItemTipColor = clWindow
261	LongList = False
262	Pieces = '2,3'
263	ExplicitHeight = 139
264	end
265	end
266	end
267	end
268	inherited pnlRight: TPanel
269	Left = 161
270	Width = 470
271	Height = 350
272	OnExit = pnlRightExit
273	OnResize = pnlRightResize
274	ExplicitLeft = 161
275	ExplicitWidth = 470
276	ExplicitHeight = 350
277	object lblProbList: TOROffsetLabel
278	Left = 0
279	Top = 0
280	Width = 470
281	Height = 19
282	Align = alTop
283	Caption = 'Active Problems List'
284	HorzOffset = 2
285	Transparent = False
286	VertOffset = 6
287	WordWrap = False
288	end
289	object pnlProbDlg: TPanel
290	Left = 0
291	Top = 36
292	Width = 470
293	Height = 314
294	Align = alClient
295	TabOrder = 0
296	Visible = False
297	OnMouseMove = FormMouseMove
298	ExplicitHeight = 322
299	end
300	object wgProbData: TCaptionListBox
301	Left = 0
302	Top = 36
303	Width = 470
304	Height = 314
305	Style = lbOwnerDrawVariable
306	Align = alClient
307	Color = clCream
308	ItemHeight = 13
309	MultiSelect = True
310	ParentShowHint = False
311	PopupMenu = popProb
312	ShowHint = True
313	TabOrder = 1
314	OnClick = wgProbDataClick
315	OnDblClick = wgProbDataDblClick
316	OnDrawItem = wgProbDataDrawItem
317	OnMeasureItem = wgProbDataMeasureItem
318	OnMouseMove = FormMouseMove
319	Caption = 'Active Problems List'
320	end
321	object HeaderControl: THeaderControl
322	Left = 0
323	Top = 19
324	Width = 470
325	Height = 17
326	Sections = <
327	item
328	ImageIndex = -1
329	Text = 'Column 0'
330	Width = 0
331	end
332	item
333	ImageIndex = -1
334	Text = 'Stat/Ver'
335	Width = 65
336	end
337	item
338	ImageIndex = -1
339	MinWidth = 20
340	Text = 'Description'
341	Width = 65
342	end
343	item
344	ImageIndex = -1
345	MinWidth = 16
346	Text = 'Onset Date'
347	Width = 65
348	end
349	item
350	ImageIndex = -1
351	MinWidth = 16
352	Text = 'Last Updated'
353	Width = 80
354	end
355	item
356	ImageIndex = -1
357	Text = 'Column 5'
358	Width = 0
359	end
360	item
361	ImageIndex = -1
362	Text = 'Location'
363	Width = 65
364	end
365	item
366	ImageIndex = -1
367	Text = 'Provider'
368	Width = 65
369	end
370	item
371	ImageIndex = -1
372	Text = 'Service'
373	Width = 65
374	end
375	item
376	ImageIndex = -1
377	Text = 'Column 9'
378	Width = 0
379	end
380	item
381	ImageIndex = -1
382	Text = 'Column 10'
383	Width = 0
384	end
385	item
386	ImageIndex = -1
387	Text = 'Column 11'
388	Width = 0
389	end
390	item
391	ImageIndex = -1
392	Text = 'Column12'
393	Width = 0
394	end
395	item
396	ImageIndex = -1
397	Text = 'Column 13'
398	Width = 0
399	end
400	item
401	ImageIndex = -1
402	Text = 'Column 14'
403	Width = 0
404	end
405	item
406	ImageIndex = -1
407	Text = 'Inactive Flag'
408	Width = 0
409	end>
410	OnSectionClick = HeaderControlSectionClick
411	OnSectionResize = HeaderControlSectionResize
412	OnMouseDown = HeaderControlMouseDown
413	OnMouseUp = HeaderControlMouseUp
414	end
415	end
416	inherited amgrMain: TVA508AccessibilityManager
417	Data = (
418	(
419	'Component = pnlButtons'
420	'Status = stsDefault')
421	(
422	'Component = bbOtherProb'
423	'Status = stsDefault')
424	(
425	'Component = bbCancel'
426	'Status = stsDefault')
427	(
428	'Component = pnlView'
429	'Status = stsDefault')
430	(
431	'Component = lstView'
432	'Status = stsDefault')
433	(
434	'Component = bbNewProb'
435	'Status = stsDefault')
436	(
437	'Component = pnlProbEnt'
438	'Status = stsDefault')
439	(
440	'Component = edProbEnt'
441	'Status = stsDefault')
442	(
443	'Component = pnlProbList'
444	'Status = stsDefault')
445	(
446	'Component = pnlProbCats'
447	'Status = stsDefault')
448	(
449	'Component = lstCatPick'
450	'Status = stsDefault')
451	(
452	'Component = pnlProbs'
453	'Status = stsDefault')
454	(
455	'Component = lstProbPick'
456	'Status = stsDefault')
457	(
458	'Component = pnlProbDlg'
459	'Status = stsDefault')
460	(
461	'Component = wgProbData'
462	'Status = stsDefault')
463	(
464	'Component = HeaderControl'
465	'Status = stsDefault')
466	(
467	'Component = pnlLeft'
468	'Status = stsDefault')
469	(
470	'Component = pnlRight'
471	'Status = stsDefault')
472	(
473	'Component = frmProblems'
474	'Status = stsDefault'))
475	end
476	object popProb: TPopupMenu
477	Left = 282
478	Top = 313
479	object popChange: TMenuItem
480	Tag = 400
481	Caption = '&Change...'
482	Enabled = False
483	OnClick = lstProbActsClick
484	end
485	object popInactivate: TMenuItem
486	Tag = 200
487	Caption = '&Inactivate'
488	Enabled = False
489	OnClick = lstProbActsClick
490	end
491	object popVerify: TMenuItem
492	Tag = 250
493	Caption = '&Verify...'
494	Enabled = False
495	OnClick = lstProbActsClick
496	end
497	object N36: TMenuItem
498	Caption = '-'
499	Enabled = False
500	end
501	object popAnnotate: TMenuItem
502	Tag = 600
503	Caption = '&Annotate...'
504	Enabled = False
505	OnClick = lstProbActsClick
506	end
507	object N37: TMenuItem
508	Caption = '-'
509	Enabled = False
510	Visible = False
511	end
512	object popRemove: TMenuItem
513	Tag = 500
514	Caption = '&Remove...'
515	Enabled = False
516	OnClick = lstProbActsClick
517	end
518	object popRestore: TMenuItem
519	Tag = 550
520	Caption = 'Re&store'
521	Enabled = False
522	OnClick = lstProbActsClick
523	end
524	object N3: TMenuItem
525	Caption = '-'
526	end
527	object popViewDetails: TMenuItem
528	Tag = 300
529	Caption = 'View Details'
530	OnClick = lstProbActsClick
531	end
532	object mnuOptimizeFields: TMenuItem
533	Caption = 'Adjust Column Size'
534	Visible = False
535	OnClick = mnuOptimizeFieldsClick
536	end
537	end
538	object mnuProbs: TMainMenu
539	Left = 243
540	Top = 313
541	object mnuView: TMenuItem
542	Caption = '&View'
543	GroupIndex = 3
544	object mnuViewChart: TMenuItem
545	Caption = 'Chart &Tab'
546	object mnuChartCover: TMenuItem
547	Tag = 1
548	Caption = 'Cover &Sheet'
549	ShortCut = 16467
550	OnClick = mnuChartTabClick
551	end
552	object mnuChartProbs: TMenuItem
553	Tag = 2
554	Caption = '&Problem List'
555	ShortCut = 16464
556	OnClick = mnuChartTabClick
557	end
558	object mnuChartMeds: TMenuItem
559	Tag = 3
560	Caption = '&Medications'
561	ShortCut = 16461
562	OnClick = mnuChartTabClick
563	end
564	object mnuChartOrders: TMenuItem
565	Tag = 4
566	Caption = '&Orders'
567	ShortCut = 16463
568	OnClick = mnuChartTabClick
569	end
570	object mnuChartNotes: TMenuItem
571	Tag = 6
572	Caption = 'Progress &Notes'
573	ShortCut = 16462
574	OnClick = mnuChartTabClick
575	end
576	object mnuChartCslts: TMenuItem
577	Tag = 7
578	Caption = 'Consul&ts'
579	ShortCut = 16468
580	OnClick = mnuChartTabClick
581	end
582	object mnuChartSurgery: TMenuItem
583	Tag = 11
584	Caption = 'S&urgery'
585	ShortCut = 16469
586	OnClick = mnuChartTabClick
587	end
588	object mnuChartDCSumm: TMenuItem
589	Tag = 8
590	Caption = '&Discharge Summaries'
591	ShortCut = 16452
592	OnClick = mnuChartTabClick
593	end
594	object mnuChartLabs: TMenuItem
595	Tag = 9
596	Caption = '&Laboratory'
597	ShortCut = 16460
598	OnClick = mnuChartTabClick
599	end
600	object mnuChartReports: TMenuItem
601	Tag = 10
602	Caption = '&Reports'
603	ShortCut = 16466
604	OnClick = mnuChartTabClick
605	end
606	end
607	object mnuViewInformation: TMenuItem
608	Caption = 'Information'
609	OnClick = mnuViewInformationClick
610	object mnuViewDemo: TMenuItem
611	Tag = 1
612	Caption = 'De&mographics...'
613	OnClick = ViewInfo
614	end
615	object mnuViewVisits: TMenuItem
616	Tag = 2
617	Caption = 'Visits/Pr&ovider...'
618	OnClick = ViewInfo
619	end
620	object mnuViewPrimaryCare: TMenuItem
621	Tag = 3
622	Caption = 'Primary &Care...'
623	OnClick = ViewInfo
624	end
625	object mnuViewMyHealtheVet: TMenuItem
626	Tag = 4
627	Caption = 'MyHealthe&Vet...'
628	OnClick = ViewInfo
629	end
630	object mnuInsurance: TMenuItem
631	Tag = 5
632	Caption = '&Insurance...'
633	OnClick = ViewInfo
634	end
635	object mnuViewFlags: TMenuItem
636	Tag = 6
637	Caption = '&Flags...'
638	OnClick = ViewInfo
639	end
640	object mnuViewRemoteData: TMenuItem
641	Tag = 7
642	Caption = 'Remote &Data...'
643	OnClick = ViewInfo
644	end
645	object mnuViewReminders: TMenuItem
646	Tag = 8
647	Caption = '&Reminders...'
648	Enabled = False
649	OnClick = ViewInfo
650	end
651	object mnuViewPostings: TMenuItem
652	Tag = 9
653	Caption = '&Postings...'
654	OnClick = ViewInfo
655	end
656	end
657	object Z1: TMenuItem
658	Caption = '-'
659	end
660	object mnuViewActive: TMenuItem
661	Tag = 700
662	Caption = '&Active Problems'
663	OnClick = lstProbActsClick
664	end
665	object mnuViewInactive: TMenuItem
666	Tag = 800
667	Caption = '&Inactive Problems'
668	OnClick = lstProbActsClick
669	end
670	object mnuViewBoth: TMenuItem
671	Tag = 900
672	Caption = '&Both Active/Inactive Problems'
673	OnClick = lstProbActsClick
674	end
675	object mnuViewRemoved: TMenuItem
676	Tag = 950
677	Caption = '&Removed Problems'
678	OnClick = lstProbActsClick
679	end
680	object mnuViewFilters: TMenuItem
681	Tag = 975
682	Caption = 'Fi&lters...'
683	OnClick = lstProbActsClick
684	end
685	object mnuViewComments: TMenuItem
686	Caption = 'Show &Comments'
687	OnClick = mnuViewCommentsClick
688	end
689	object N2: TMenuItem
690	Caption = '-'
691	end
692	object mnuViewSave: TMenuItem
693	Caption = 'Sa&ve as Default View'
694	OnClick = mnuViewSaveClick
695	end
696	object mnuViewRestoreDefault: TMenuItem
697	Caption = 'Return to De&fault View'
698	OnClick = mnuViewRestoreDefaultClick
699	end
700	end
701	object mnuAct: TMenuItem
702	Caption = '&Action'
703	GroupIndex = 4
704	object mnuActNew: TMenuItem
705	Tag = 100
706	Caption = '&New Problem...'
707	OnClick = lstProbActsClick
708	end
709	object Z3: TMenuItem
710	Caption = '-'
711	end
712	object mnuActChange: TMenuItem
713	Tag = 400
714	Caption = '&Change...'
715	Enabled = False
716	OnClick = lstProbActsClick
717	end
718	object mnuActInactivate: TMenuItem
719	Tag = 200
720	Caption = '&Inactivate'
721	Enabled = False
722	OnClick = lstProbActsClick
723	end
724	object mnuActVerify: TMenuItem
725	Tag = 250
726	Caption = '&Verify...'
727	Enabled = False
728	OnClick = lstProbActsClick
729	end
730	object N1: TMenuItem
731	Caption = '-'
732	end
733	object mnuActAnnotate: TMenuItem
734	Tag = 600
735	Caption = '&Annotate...'
736	Enabled = False
737	OnClick = lstProbActsClick
738	end
739	object Z4: TMenuItem
740	Caption = '-'
741	Visible = False
742	end
743	object mnuActRemove: TMenuItem
744	Tag = 500
745	Caption = '&Remove'
746	Enabled = False
747	OnClick = lstProbActsClick
748	end
749	object mnuActRestore: TMenuItem
750	Tag = 550
751	Caption = 'Re&store'
752	Enabled = False
753	OnClick = lstProbActsClick
754	end
755	object N4: TMenuItem
756	Caption = '-'
757	end
758	object mnuActDetails: TMenuItem
759	Tag = 300
760	Caption = 'View &Details'
761	Enabled = False
762	OnClick = lstProbActsClick
763	end
764	end
765	end
766	end

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

Download in other formats:

Original Format