Context Navigation

fProbs.dfm@ 611

Last change on this file since 611 was 460, checked in by Kevin Toppenberg, 16 years ago
Uploading from OR_30_258
File size: 16.9 KB

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

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

Download in other formats:

Original Format