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

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

Uploading from OR_30_258
File size: 16.9 KB
RevLine 
[459]1inherited frmProblems: TfrmProblems
[460]2 Left = 627
3 Top = 64
[459]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
[460]25 OnMoved = sptHorzMoved
[459]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
[460]320 MinWidth = 20
[459]321 Text = 'Description'
322 Width = 65
323 end
324 item
325 ImageIndex = -1
[460]326 MinWidth = 16
[459]327 Text = 'Onset Date'
328 Width = 65
329 end
330 item
331 ImageIndex = -1
[460]332 MinWidth = 16
[459]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>
[460]391 OnSectionClick = HeaderControlSectionClick
[459]392 OnSectionResize = HeaderControlSectionResize
[460]393 OnMouseDown = HeaderControlMouseDown
394 OnMouseUp = HeaderControlMouseUp
[459]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
[460]453 object mnuOptimizeFields: TMenuItem
454 Caption = 'Adjust Column Size'
455 Visible = False
456 OnClick = mnuOptimizeFieldsClick
457 end
[459]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
[460]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
[459]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
687end
Note: See TracBrowser for help on using the repository browser.