Context Navigation

fProbs.dfm@ 1751

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

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

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

Download in other formats:

Original Format