source: cprs/trunk/CPRS-Chart/fProbs.dfm@ 1071

Last change on this file since 1071 was 830, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27
File size: 18.8 KB
Line 
1inherited 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
766end
Note: See TracBrowser for help on using the repository browser.