source: cprs/branches/foia-cprs/CPRS-Chart/fProbs.dfm@ 459

Last change on this file since 459 was 459, checked in by Kevin Toppenberg, 17 years ago

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