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

Last change on this file since 1690 was 1679, checked in by healthsevak, 10 years ago

Updating the working copy to CPRS version 28
File size: 18.7 KB
RevLine 
[456]1inherited frmProblems: TfrmProblems
[1679]2 Left = 303
3 Top = 268
[456]4 HelpContext = 2000
5 Caption = 'Problems List Page'
[830]6 ClientHeight = 355
7 ClientWidth = 631
[456]8 HelpFile = 'overvw'
9 Menu = mnuProbs
10 OnDestroy = FormDestroy
11 OnHide = FormHide
12 OnMouseMove = FormMouseMove
13 OnShow = FormShow
[830]14 ExplicitWidth = 639
15 ExplicitHeight = 409
[456]16 PixelsPerInch = 96
17 TextHeight = 13
18 inherited shpPageBottom: TShape
[830]19 Top = 350
[456]20 Width = 631
21 Constraints.MinHeight = 5
[830]22 ExplicitTop = 358
23 ExplicitWidth = 631
[456]24 end
25 inherited sptHorz: TSplitter
26 Left = 159
27 Width = 2
[830]28 Height = 350
[456]29 OnMoved = sptHorzMoved
[830]30 ExplicitLeft = 159
31 ExplicitWidth = 2
32 ExplicitHeight = 358
[456]33 end
34 inherited pnlLeft: TPanel
35 Width = 159
[830]36 Height = 350
37 ExplicitWidth = 159
[1679]38 ExplicitHeight = 350
[456]39 object pnlButtons: TPanel
40 Left = 0
[830]41 Top = 304
[456]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
[830]53 Align = alBottom
[456]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
[830]65 Align = alBottom
[456]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
[830]77 Height = 304
[456]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
[830]123 Align = alTop
[456]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
[830]135 Height = 304
[456]136 Align = alClient
137 BevelOuter = bvNone
138 TabOrder = 2
139 Visible = False
140 OnResize = pnlProbEntResize
141 object lblProbEnt: TLabel
142 Left = 0
[830]143 Top = 270
[456]144 Width = 159
145 Height = 13
146 Align = alBottom
147 AutoSize = False
148 Caption = 'Enter new problem:'
[830]149 ExplicitTop = 278
[456]150 end
151 object edProbEnt: TCaptionEdit
152 Left = 0
[830]153 Top = 283
[456]154 Width = 159
155 Height = 21
[830]156 Align = alBottom
[456]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
[830]167 Height = 304
[456]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'
[1679]203 TabStop = False
[456]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
[830]223 Height = 144
[456]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
[830]242 Height = 131
[456]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
[830]265 Height = 350
[456]266 OnExit = pnlRightExit
267 OnResize = pnlRightResize
[830]268 ExplicitLeft = 161
269 ExplicitWidth = 470
270 ExplicitHeight = 350
[456]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
[830]287 Height = 314
[456]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
[830]297 Height = 314
[456]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
[830]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
[456]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
759end
Note: See TracBrowser for help on using the repository browser.