source: cprs/trunk/CPRS-Chart/fFrame.dfm@ 837

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

Upgrading to version 27

File size: 33.4 KB
Line 
1inherited frmFrame: TfrmFrame
2 Left = 196
3 Top = 119
4 Caption = 'p'
5 ClientHeight = 574
6 ClientWidth = 687
7 FormStyle = fsMDIForm
8 Menu = mnuFrame
9 OldCreateOrder = True
10 Visible = True
11 OnActivate = FormActivate
12 OnClose = FormClose
13 OnCloseQuery = FormCloseQuery
14 OnCreate = FormCreate
15 OnDestroy = FormDestroy
16 OnHelp = FormHelp
17 OnResize = FormResize
18 ExplicitLeft = 196
19 ExplicitTop = 119
20 ExplicitWidth = 695
21 ExplicitHeight = 620
22 PixelsPerInch = 96
23 TextHeight = 13
24 object pnlNoPatientSelected: TPanel [0]
25 Left = 0
26 Top = 0
27 Width = 687
28 Height = 574
29 Align = alClient
30 Caption = 'No patient is currently selected'
31 Font.Charset = DEFAULT_CHARSET
32 Font.Color = clWindowText
33 Font.Height = -19
34 Font.Name = 'MS Sans Serif'
35 Font.Style = []
36 ParentFont = False
37 TabOrder = 1
38 Visible = False
39 end
40 object pnlPatientSelected: TPanel [1]
41 Left = 0
42 Top = 0
43 Width = 687
44 Height = 574
45 Align = alClient
46 TabOrder = 0
47 object bvlPageTop: TBevel
48 Left = 1
49 Top = 41
50 Width = 685
51 Height = 1
52 Align = alTop
53 ExplicitWidth = 674
54 end
55 object pnlToolbar: TPanel
56 Left = 1
57 Top = 1
58 Width = 685
59 Height = 40
60 Align = alTop
61 BevelOuter = bvNone
62 Caption = 'object pnlRemoteData: TKeyClickPanel'
63 TabOrder = 0
64 object bvlToolTop: TBevel
65 Left = 0
66 Top = 0
67 Width = 685
68 Height = 1
69 Align = alTop
70 Style = bsRaised
71 ExplicitWidth = 674
72 end
73 object pnlCCOW: TPanel
74 Left = 0
75 Top = 1
76 Width = 39
77 Height = 39
78 Align = alLeft
79 BevelWidth = 2
80 ParentShowHint = False
81 ShowHint = True
82 TabOrder = 8
83 object imgCCOW: TImage
84 Left = 2
85 Top = 2
86 Width = 35
87 Height = 35
88 Align = alClient
89 Center = True
90 Picture.Data = {
91 07544269746D617052030000424D520300000000000052020000280000001000
92 000010000000010008000000000000010000120B0000120B0000870000008700
93 00003F3E3F003A393A007B351600BCB6B30082340900642700008D3F0D00985B
94 3400B19A8C00B5A59B008B3700008A3700008936000088360000873500008635
95 00008535000083340000813300007D3100007D3200007B3100007A3000007830
96 0000772F0000762F0000742E00006F2C00006E2B00006C2B00006A2A00006829
97 0000662800006528000061260000602600005C2400005B240000592300005823
98 0000562200008B3801008C3902008C3903008C3A04008C3B05008D3B06008D3C
99 07008E3E0A008F420F009045130090481900935025009B6440009F6D4C00A275
100 5800A6806700AA897300AD917F00B8AEA700053A0D00063B0E000C3F14000E41
101 16000A3C17002351360000007F0000007B000101800001017F00040480000707
102 820007078100080882000A0A82000D0D7200101085000E0E7200131386001313
103 7500171787001919880021218A0025258C0023237B002B2B8E002C2C8E002F2F
104 8F002C2C79003535840039398500FFFFFF00DFDFDF00BFBFBF00BEBEBE00BCBC
105 BC00BBBBBB00B9B9B900B8B8B800B7B7B700B4B4B400B2B2B200B1B1B100ACAC
106 AC00A9A9A900A7A7A700A6A6A600A4A4A400A2A2A2009F9F9F00989898009797
107 970094949400929292008F8F8F008C8C8C008B8B8B0089898900858585008484
108 840083838300818181007F7F7F007E7E7E007D7D7D007B7B7B007A7A7A007979
109 79007777770076767600747474000A0A0A000707070001010100000000005D04
110 868686865D868686865D5D5D5D5D5D865B5B5B5B865B5B5B5B865D5D5D5D865B
111 8686868686868686865B865D5D5D865B865D865D5D5D865D865B865D5D5D865B
112 8686868686868686865B865D5D5D0A865B5B5B5B865B5B5B5B865D5D5D5D0A0A
113 868686865D868686865D5D5D5D5D0A0A0A0A0A0A5D5D5D5D5D0C0C5D5D5D0A0A
114 0A0A0A0A5D5D5D5D5D0C0C5D5D5D0A0A0A0A0A0A5D5D5D5D5D5D5D5D5D5D5D29
115 0A0A0A5D5D5D5D5D5D0C0C5D5D5D5D5D0A0A5D5D5D5D5D5D5D0C0C0C5D5D5D0A
116 0A0A2F5D5D5D5D5D5D5D0C0C0C5D5D0A0A0A305D5D5D5D5D5D5D5D0C0C5D5D02
117 0A0A025D5D5D5D5D0C0C0C0C0C5D5D5D5D5D5D5D5D5D5D5D0C0C0C0C5D5D}
118 end
119 end
120 object pnlPatient: TKeyClickPanel
121 Left = 39
122 Top = 1
123 Width = 187
124 Height = 39
125 Hint = 'Click for more patient information.'
126 Align = alLeft
127 BevelWidth = 2
128 Color = clInfoBk
129 Font.Charset = DEFAULT_CHARSET
130 Font.Color = clInfoBk
131 Font.Height = -11
132 Font.Name = 'MS Sans Serif'
133 Font.Style = []
134 ParentFont = False
135 ParentShowHint = False
136 ShowHint = True
137 TabOrder = 0
138 TabStop = True
139 OnClick = pnlPatientClick
140 OnEnter = pnlPrimaryCareEnter
141 OnExit = pnlPrimaryCareExit
142 OnMouseDown = pnlPatientMouseDown
143 OnMouseUp = pnlPatientMouseUp
144 object lblPtName: TStaticText
145 Left = 6
146 Top = 4
147 Width = 118
148 Height = 17
149 Caption = 'No Patient Selected'
150 Font.Charset = ANSI_CHARSET
151 Font.Color = clInfoText
152 Font.Height = -12
153 Font.Name = 'MS Sans Serif'
154 Font.Style = [fsBold]
155 ParentFont = False
156 ParentShowHint = False
157 ShowHint = False
158 TabOrder = 0
159 OnClick = pnlPatientClick
160 OnMouseDown = pnlPatientMouseDown
161 OnMouseUp = pnlPatientMouseUp
162 end
163 object lblPtSSN: TStaticText
164 Left = 6
165 Top = 19
166 Width = 4
167 Height = 4
168 Font.Charset = DEFAULT_CHARSET
169 Font.Color = clInfoText
170 Font.Height = -11
171 Font.Name = 'MS Sans Serif'
172 Font.Style = []
173 ParentFont = False
174 ParentShowHint = False
175 ShowHint = False
176 TabOrder = 1
177 OnClick = pnlPatientClick
178 OnMouseDown = pnlPatientMouseDown
179 OnMouseUp = pnlPatientMouseUp
180 end
181 object lblPtAge: TStaticText
182 Left = 175
183 Top = 19
184 Width = 4
185 Height = 4
186 Alignment = taRightJustify
187 Font.Charset = DEFAULT_CHARSET
188 Font.Color = clInfoText
189 Font.Height = -11
190 Font.Name = 'MS Sans Serif'
191 Font.Style = []
192 ParentFont = False
193 ParentShowHint = False
194 ShowHint = False
195 TabOrder = 2
196 OnClick = pnlPatientClick
197 OnMouseDown = pnlPatientMouseDown
198 OnMouseUp = pnlPatientMouseUp
199 end
200 end
201 object pnlVisit: TKeyClickPanel
202 Left = 226
203 Top = 1
204 Width = 119
205 Height = 39
206 Hint = 'Click to change provider/location.'
207 Align = alLeft
208 BevelWidth = 2
209 Font.Charset = DEFAULT_CHARSET
210 Font.Color = clBtnFace
211 Font.Height = -11
212 Font.Name = 'MS Sans Serif'
213 Font.Style = []
214 ParentFont = False
215 ParentShowHint = False
216 ShowHint = True
217 TabOrder = 1
218 TabStop = True
219 OnClick = pnlVisitClick
220 OnEnter = pnlPrimaryCareEnter
221 OnExit = pnlPrimaryCareExit
222 object lblPtLocation: TStaticText
223 Left = 6
224 Top = 4
225 Width = 4
226 Height = 4
227 Font.Charset = DEFAULT_CHARSET
228 Font.Color = clWindowText
229 Font.Height = -12
230 Font.Name = 'MS Sans Serif'
231 Font.Style = [fsBold]
232 ParentFont = False
233 ParentShowHint = False
234 ShowAccelChar = False
235 ShowHint = False
236 TabOrder = 0
237 OnClick = pnlVisitClick
238 end
239 object lblPtProvider: TStaticText
240 Left = 6
241 Top = 19
242 Width = 4
243 Height = 4
244 Font.Charset = DEFAULT_CHARSET
245 Font.Color = clBtnText
246 Font.Height = -11
247 Font.Name = 'MS Sans Serif'
248 Font.Style = []
249 ParentFont = False
250 ParentShowHint = False
251 ShowHint = False
252 TabOrder = 1
253 OnClick = pnlVisitClick
254 end
255 end
256 object pnlPrimaryCare: TKeyClickPanel
257 Left = 345
258 Top = 1
259 Width = 67
260 Height = 39
261 Hint = 'Primary Care Team / Primary Care Provider'
262 Align = alClient
263 BevelWidth = 2
264 Font.Charset = DEFAULT_CHARSET
265 Font.Color = clBtnFace
266 Font.Height = -11
267 Font.Name = 'MS Sans Serif'
268 Font.Style = []
269 ParentFont = False
270 ParentShowHint = False
271 ShowHint = True
272 TabOrder = 2
273 TabStop = True
274 OnClick = pnlPrimaryCareClick
275 OnEnter = pnlPrimaryCareEnter
276 OnExit = pnlPrimaryCareExit
277 OnMouseDown = pnlPrimaryCareMouseDown
278 OnMouseUp = pnlPrimaryCareMouseUp
279 object lblPtCare: TStaticText
280 Left = 6
281 Top = 4
282 Width = 4
283 Height = 4
284 Font.Charset = DEFAULT_CHARSET
285 Font.Color = clBtnText
286 Font.Height = -11
287 Font.Name = 'MS Sans Serif'
288 Font.Style = []
289 ParentFont = False
290 ParentShowHint = False
291 ShowHint = False
292 TabOrder = 0
293 OnClick = pnlPrimaryCareClick
294 OnMouseDown = pnlPrimaryCareMouseDown
295 OnMouseUp = pnlPrimaryCareMouseUp
296 end
297 object lblPtAttending: TStaticText
298 Left = 6
299 Top = 19
300 Width = 4
301 Height = 4
302 Font.Charset = DEFAULT_CHARSET
303 Font.Color = clBtnText
304 Font.Height = -11
305 Font.Name = 'MS Sans Serif'
306 Font.Style = []
307 ParentFont = False
308 ParentShowHint = False
309 ShowHint = False
310 TabOrder = 1
311 OnClick = pnlPrimaryCareClick
312 OnMouseDown = pnlPrimaryCareMouseDown
313 OnMouseUp = pnlPrimaryCareMouseUp
314 end
315 end
316 object pnlReminders: TKeyClickPanel
317 Left = 580
318 Top = 1
319 Width = 35
320 Height = 39
321 Align = alRight
322 BevelWidth = 2
323 Caption = 'Reminders'
324 Font.Charset = DEFAULT_CHARSET
325 Font.Color = clBtnFace
326 Font.Height = -11
327 Font.Name = 'MS Sans Serif'
328 Font.Style = []
329 ParentFont = False
330 ParentShowHint = False
331 ShowHint = True
332 TabOrder = 6
333 TabStop = True
334 OnClick = pnlRemindersClick
335 OnEnter = pnlPrimaryCareEnter
336 OnExit = pnlPrimaryCareExit
337 OnMouseDown = pnlRemindersMouseDown
338 OnMouseUp = pnlRemindersMouseUp
339 object imgReminder: TImage
340 Left = 2
341 Top = 2
342 Width = 31
343 Height = 35
344 Align = alClient
345 Center = True
346 OnMouseDown = pnlRemindersMouseDown
347 OnMouseUp = pnlRemindersMouseUp
348 end
349 object anmtRemSearch: TAnimate
350 Left = 2
351 Top = 2
352 Width = 31
353 Height = 35
354 Align = alClient
355 Visible = False
356 end
357 end
358 object pnlFlag: TKeyClickPanel
359 Left = 472
360 Top = 1
361 Width = 35
362 Height = 39
363 Hint = 'Click to display patient record flags.'
364 Align = alRight
365 BevelWidth = 2
366 Caption = 'Flag'
367 ParentShowHint = False
368 ShowHint = True
369 TabOrder = 4
370 TabStop = True
371 OnClick = pnlFlagClick
372 OnEnter = pnlFlagEnter
373 OnExit = pnlFlagExit
374 OnMouseDown = pnlFlagMouseDown
375 OnMouseUp = pnlFlagMouseUp
376 object lblFlag: TLabel
377 Left = 2
378 Top = 2
379 Width = 31
380 Height = 35
381 Align = alClient
382 Alignment = taCenter
383 Caption = 'Flag'
384 Enabled = False
385 Font.Charset = DEFAULT_CHARSET
386 Font.Color = clBtnFace
387 Font.Height = -11
388 Font.Name = 'MS Sans Serif'
389 Font.Style = [fsBold]
390 ParentFont = False
391 Layout = tlCenter
392 WordWrap = True
393 OnClick = pnlFlagClick
394 OnMouseDown = pnlFlagMouseDown
395 OnMouseUp = pnlFlagMouseUp
396 ExplicitWidth = 25
397 ExplicitHeight = 13
398 end
399 end
400 object pnlPostings: TKeyClickPanel
401 Left = 615
402 Top = 1
403 Width = 70
404 Height = 39
405 Hint = 'Click to display patient postings.'
406 Align = alRight
407 BevelWidth = 2
408 Font.Charset = DEFAULT_CHARSET
409 Font.Color = clBtnFace
410 Font.Height = -11
411 Font.Name = 'MS Sans Serif'
412 Font.Style = []
413 ParentFont = False
414 ParentShowHint = False
415 ShowHint = True
416 TabOrder = 7
417 TabStop = True
418 OnClick = pnlPostingsClick
419 OnEnter = pnlPrimaryCareEnter
420 OnExit = pnlPrimaryCareExit
421 OnMouseDown = pnlPostingsMouseDown
422 OnMouseUp = pnlPostingsMouseUp
423 object lblPtPostings: TStaticText
424 Left = 5
425 Top = 4
426 Width = 57
427 Height = 13
428 Alignment = taCenter
429 AutoSize = False
430 Caption = 'No Postings'
431 Font.Charset = DEFAULT_CHARSET
432 Font.Color = clBtnText
433 Font.Height = -11
434 Font.Name = 'MS Sans Serif'
435 Font.Style = []
436 ParentFont = False
437 ParentShowHint = False
438 ShowHint = False
439 TabOrder = 0
440 OnClick = pnlPostingsClick
441 OnMouseDown = pnlPostingsMouseDown
442 OnMouseUp = pnlPostingsMouseUp
443 end
444 object lblPtCWAD: TStaticText
445 Left = 6
446 Top = 19
447 Width = 57
448 Height = 13
449 Alignment = taCenter
450 AutoSize = False
451 Font.Charset = DEFAULT_CHARSET
452 Font.Color = clMaroon
453 Font.Height = -12
454 Font.Name = 'MS Sans Serif'
455 Font.Style = [fsBold]
456 ParentFont = False
457 ParentShowHint = False
458 ShowHint = False
459 TabOrder = 1
460 OnClick = pnlPostingsClick
461 OnMouseDown = pnlPostingsMouseDown
462 OnMouseUp = pnlPostingsMouseUp
463 end
464 end
465 object paVAA: TKeyClickPanel
466 Left = 412
467 Top = 1
468 Width = 60
469 Height = 39
470 Align = alRight
471 BevelOuter = bvNone
472 Font.Charset = DEFAULT_CHARSET
473 Font.Color = clBtnFace
474 Font.Height = -11
475 Font.Name = 'MS Sans Serif'
476 Font.Style = []
477 ParentFont = False
478 ParentShowHint = False
479 ShowHint = False
480 TabOrder = 3
481 Visible = False
482 DesignSize = (
483 60
484 39)
485 object laVAA2: TButton
486 Left = 0
487 Top = 19
488 Width = 59
489 Height = 20
490 Hint = 'Click to display patient insurance data'
491 Anchors = [akLeft, akTop, akRight, akBottom]
492 Caption = 'laVAA2'
493 ParentShowHint = False
494 ShowHint = True
495 TabOrder = 1
496 OnClick = laVAA2Click
497 end
498 object laMHV: TButton
499 Left = 0
500 Top = 0
501 Width = 59
502 Height = 18
503 Hint = 'Click to display MHV data'
504 Anchors = [akLeft, akTop, akRight, akBottom]
505 Caption = 'laMHV'
506 ParentShowHint = False
507 ShowHint = True
508 TabOrder = 0
509 OnClick = laMHVClick
510 end
511 end
512 object pnlRemoteData: TKeyClickPanel
513 Left = 507
514 Top = 1
515 Width = 73
516 Height = 39
517 Align = alRight
518 BevelWidth = 2
519 Caption = 'Remote Data'
520 Font.Charset = DEFAULT_CHARSET
521 Font.Color = clBtnFace
522 Font.Height = -11
523 Font.Name = 'MS Sans Serif'
524 Font.Style = []
525 ParentFont = False
526 ParentShowHint = False
527 ShowHint = True
528 TabOrder = 5
529 TabStop = True
530 OnClick = pnlCIRNClick
531 OnEnter = pnlPrimaryCareEnter
532 OnExit = pnlPrimaryCareExit
533 OnMouseDown = pnlCIRNMouseDown
534 OnMouseUp = pnlCIRNMouseUp
535 object pnlVistaWeb: TKeyClickPanel
536 Left = 2
537 Top = 2
538 Width = 69
539 Height = 18
540 Hint = 'Click to open VistaWeb'
541 Align = alTop
542 BevelWidth = 2
543 Caption = 'VistaWeb'
544 Font.Charset = DEFAULT_CHARSET
545 Font.Color = clBtnFace
546 Font.Height = -11
547 Font.Name = 'MS Sans Serif'
548 Font.Style = []
549 ParentFont = False
550 ParentShowHint = False
551 ShowHint = True
552 TabOrder = 0
553 TabStop = True
554 OnClick = pnlVistaWebClick
555 OnEnter = pnlPrimaryCareEnter
556 OnExit = pnlPrimaryCareExit
557 OnMouseDown = pnlVistaWebMouseDown
558 OnMouseUp = pnlVistaWebMouseUp
559 object lblVistaWeb: TLabel
560 Left = 2
561 Top = 2
562 Width = 65
563 Height = 14
564 Align = alClient
565 Alignment = taCenter
566 Caption = 'VistaWeb'
567 Font.Charset = DEFAULT_CHARSET
568 Font.Color = clInfoText
569 Font.Height = -8
570 Font.Name = 'MS Sans Serif'
571 Font.Style = []
572 ParentFont = False
573 Layout = tlCenter
574 OnClick = pnlVistaWebClick
575 ExplicitWidth = 46
576 ExplicitHeight = 13
577 end
578 end
579 object pnlCIRN: TKeyClickPanel
580 Left = 2
581 Top = 20
582 Width = 69
583 Height = 17
584 Align = alClient
585 BevelWidth = 2
586 Caption = 'Remote Data'
587 Font.Charset = DEFAULT_CHARSET
588 Font.Color = clBtnFace
589 Font.Height = -11
590 Font.Name = 'MS Sans Serif'
591 Font.Style = []
592 ParentFont = False
593 ParentShowHint = False
594 ShowHint = True
595 TabOrder = 1
596 TabStop = True
597 OnClick = pnlCIRNClick
598 OnEnter = pnlPrimaryCareEnter
599 OnExit = pnlPrimaryCareExit
600 OnMouseDown = pnlCIRNMouseDown
601 OnMouseUp = pnlCIRNMouseUp
602 object lblCIRN: TLabel
603 Left = 2
604 Top = 2
605 Width = 65
606 Height = 13
607 Align = alClient
608 Alignment = taCenter
609 Caption = 'Remote Data'
610 Enabled = False
611 Font.Charset = DEFAULT_CHARSET
612 Font.Color = clBtnFace
613 Font.Height = -8
614 Font.Name = 'MS Sans Serif'
615 Font.Style = []
616 ParentFont = False
617 Layout = tlCenter
618 OnClick = pnlCIRNClick
619 ExplicitWidth = 63
620 end
621 end
622 end
623 end
624 object stsArea: TStatusBar
625 Left = 1
626 Top = 552
627 Width = 685
628 Height = 21
629 Panels = <
630 item
631 Width = 200
632 end
633 item
634 Width = 224
635 end
636 item
637 Style = psOwnerDraw
638 Width = 50
639 end
640 item
641 Width = 94
642 end
643 item
644 Width = 38
645 end
646 item
647 Width = 33
648 end>
649 PopupMenu = popAlerts
650 SizeGrip = False
651 end
652 object tabPage: TTabControl
653 Left = 1
654 Top = 530
655 Width = 685
656 Height = 22
657 Align = alBottom
658 Font.Charset = DEFAULT_CHARSET
659 Font.Color = clWindowText
660 Font.Height = -12
661 Font.Name = 'MS Sans Serif'
662 Font.Style = []
663 ParentFont = False
664 TabOrder = 1
665 TabPosition = tpBottom
666 OnChange = tabPageChange
667 OnMouseUp = tabPageMouseUp
668 end
669 object pnlPage: TPanel
670 Left = 1
671 Top = 42
672 Width = 685
673 Height = 488
674 Align = alClient
675 BevelOuter = bvNone
676 Font.Charset = DEFAULT_CHARSET
677 Font.Color = clWindowText
678 Font.Height = -12
679 Font.Name = 'MS Sans Serif'
680 Font.Style = []
681 ParentFont = False
682 TabOrder = 2
683 object lstCIRNLocations: TORListBox
684 Left = 424
685 Top = 0
686 Width = 209
687 Height = 78
688 TabStop = False
689 Style = lbOwnerDrawFixed
690 Font.Charset = DEFAULT_CHARSET
691 Font.Color = clBlue
692 Font.Height = -12
693 Font.Name = 'MS Sans Serif'
694 Font.Style = []
695 ItemHeight = 13
696 ParentFont = False
697 ParentShowHint = False
698 PopupMenu = popCIRN
699 ShowHint = False
700 TabOrder = 0
701 Visible = False
702 OnClick = lstCIRNLocationsClick
703 OnExit = lstCIRNLocationsExit
704 Caption = 'Remote Data'
705 ItemTipColor = clWindow
706 LongList = False
707 Pieces = '2,3,4'
708 TabPositions = '16'
709 OnChange = lstCIRNLocationsChange
710 RightClickSelect = True
711 CheckBoxes = True
712 CheckEntireLine = True
713 end
714 end
715 end
716 inherited amgrMain: TVA508AccessibilityManager
717 Left = 8
718 Top = 48
719 Data = (
720 (
721 'Component = pnlNoPatientSelected'
722 'Status = stsDefault')
723 (
724 'Component = pnlPatientSelected'
725 'Status = stsDefault')
726 (
727 'Component = pnlToolbar'
728 'Status = stsDefault')
729 (
730 'Component = pnlCCOW'
731 'Status = stsDefault')
732 (
733 'Component = pnlPatient'
734 'Status = stsDefault')
735 (
736 'Component = lblPtName'
737 'Status = stsDefault')
738 (
739 'Component = lblPtSSN'
740 'Status = stsDefault')
741 (
742 'Component = lblPtAge'
743 'Status = stsDefault')
744 (
745 'Component = pnlVisit'
746 'Status = stsDefault')
747 (
748 'Component = lblPtLocation'
749 'Status = stsDefault')
750 (
751 'Component = lblPtProvider'
752 'Status = stsDefault')
753 (
754 'Component = pnlPrimaryCare'
755 'Status = stsDefault')
756 (
757 'Component = lblPtCare'
758 'Status = stsDefault')
759 (
760 'Component = lblPtAttending'
761 'Status = stsDefault')
762 (
763 'Component = pnlReminders'
764 'Status = stsDefault')
765 (
766 'Component = anmtRemSearch'
767 'Status = stsDefault')
768 (
769 'Component = pnlFlag'
770 'Status = stsDefault')
771 (
772 'Component = pnlPostings'
773 'Status = stsDefault')
774 (
775 'Component = lblPtPostings'
776 'Status = stsDefault')
777 (
778 'Component = lblPtCWAD'
779 'Status = stsDefault')
780 (
781 'Component = paVAA'
782 'Status = stsDefault')
783 (
784 'Component = laVAA2'
785 'Property = Hint'
786 'Status = stsOK')
787 (
788 'Component = laMHV'
789 'Property = Hint'
790 'Status = stsOK')
791 (
792 'Component = stsArea'
793 'Status = stsDefault')
794 (
795 'Component = tabPage'
796 'Status = stsDefault')
797 (
798 'Component = pnlPage'
799 'Status = stsDefault')
800 (
801 'Component = lstCIRNLocations'
802 'Status = stsDefault')
803 (
804 'Component = frmFrame'
805 'Status = stsDefault')
806 (
807 'Component = pnlRemoteData'
808 'Status = stsDefault')
809 (
810 'Component = pnlVistaWeb'
811 'Status = stsDefault')
812 (
813 'Component = pnlCIRN'
814 'Status = stsDefault'))
815 end
816 object mnuFrame: TMainMenu
817 Left = 180
818 Top = 128
819 object mnuFile: TMenuItem
820 Caption = '&File'
821 GroupIndex = 1
822 object mnuFileOpen: TMenuItem
823 Caption = 'Select &New Patient...'
824 OnClick = mnuFileOpenClick
825 end
826 object mnuFileRefresh: TMenuItem
827 Caption = 'Refresh Patient &Information'
828 OnClick = mnuFileRefreshClick
829 end
830 object mnuFileResumeContext: TMenuItem
831 Caption = 'Rejoin patient link'
832 object mnuFileResumeContextSet: TMenuItem
833 Caption = 'Set new context'
834 OnClick = mnuFileResumeContextSetClick
835 end
836 object Useexistingcontext1: TMenuItem
837 Caption = 'Use existing context'
838 OnClick = mnuFileResumeContextGetClick
839 end
840 end
841 object mnuFileBreakContext: TMenuItem
842 Caption = 'Break patient link'
843 OnClick = mnuFileBreakContextClick
844 end
845 object mnuFileEncounter: TMenuItem
846 Caption = '&Update Provider / Location...'
847 OnClick = mnuFileEncounterClick
848 end
849 object mnuFileReview: TMenuItem
850 Caption = '&Review/Sign Changes...'
851 OnClick = mnuFileReviewClick
852 end
853 object Z7: TMenuItem
854 Caption = '-'
855 Visible = False
856 end
857 object mnuFileNext: TMenuItem
858 Caption = 'Next Noti&fication'
859 OnClick = mnuFileNextClick
860 end
861 object mnuFileNotifRemove: TMenuItem
862 Caption = 'Remo&ve Current Notification'
863 OnClick = mnuFileNotifRemoveClick
864 end
865 object Z1: TMenuItem
866 Caption = '-'
867 end
868 object mnuFilePrintSetup: TMenuItem
869 Caption = 'Print &Setup...'
870 Enabled = False
871 OnClick = mnuFilePrintSetupClick
872 end
873 object mnuFilePrintSelectedItems: TMenuItem
874 Caption = 'Print Selected Items'
875 Enabled = False
876 OnClick = mnuFilePrintSelectedItemsClick
877 end
878 object mnuFilePrint: TMenuItem
879 Caption = '&Print...'
880 Enabled = False
881 OnClick = mnuFilePrintClick
882 end
883 object mnuFileExit: TMenuItem
884 Caption = 'E&xit'
885 OnClick = mnuFileExitClick
886 end
887 end
888 object mnuEdit: TMenuItem
889 Caption = '&Edit'
890 GroupIndex = 2
891 OnClick = mnuEditClick
892 object mnuEditUndo: TMenuItem
893 Caption = '&Undo'
894 ShortCut = 16474
895 OnClick = mnuEditUndoClick
896 end
897 object Z3: TMenuItem
898 Caption = '-'
899 end
900 object mnuEditCut: TMenuItem
901 Caption = 'Cu&t'
902 ShortCut = 16472
903 OnClick = mnuEditCutClick
904 end
905 object mnuEditCopy: TMenuItem
906 Caption = '&Copy'
907 ShortCut = 16451
908 OnClick = mnuEditCopyClick
909 end
910 object mnuEditPaste: TMenuItem
911 Caption = '&Paste'
912 ShortCut = 16470
913 OnClick = mnuEditPasteClick
914 end
915 object Z4: TMenuItem
916 Caption = '-'
917 end
918 object mnuEditPref: TMenuItem
919 Caption = 'P&references'
920 object Prefs1: TMenuItem
921 Caption = '&Fonts'
922 object mnu8pt: TMenuItem
923 Tag = 8
924 Caption = '8 pt'
925 RadioItem = True
926 OnClick = mnuFontSizeClick
927 end
928 object mnu10pt1: TMenuItem
929 Tag = 10
930 Caption = '10 pt'
931 RadioItem = True
932 OnClick = mnuFontSizeClick
933 end
934 object mnu12pt1: TMenuItem
935 Tag = 12
936 Caption = '12 pt'
937 RadioItem = True
938 OnClick = mnuFontSizeClick
939 end
940 object mnu14pt1: TMenuItem
941 Tag = 14
942 Caption = '14 pt'
943 RadioItem = True
944 OnClick = mnuFontSizeClick
945 end
946 object mnu18pt1: TMenuItem
947 Tag = 18
948 Caption = '18 pt'
949 RadioItem = True
950 OnClick = mnuFontSizeClick
951 end
952 end
953 end
954 end
955 object mnuView: TMenuItem
956 Caption = '&View'
957 GroupIndex = 3
958 object mnuViewChart: TMenuItem
959 Caption = 'Chart &Tab'
960 object mnuChartCover: TMenuItem
961 Tag = 1
962 Caption = 'Cover &Sheet'
963 ShortCut = 16467
964 OnClick = mnuChartTabClick
965 end
966 object mnuChartProbs: TMenuItem
967 Tag = 2
968 Caption = '&Problem List'
969 ShortCut = 16464
970 OnClick = mnuChartTabClick
971 end
972 object mnuChartMeds: TMenuItem
973 Tag = 3
974 Caption = '&Medications'
975 ShortCut = 16461
976 OnClick = mnuChartTabClick
977 end
978 object mnuChartOrders: TMenuItem
979 Tag = 4
980 Caption = '&Orders'
981 ShortCut = 16463
982 OnClick = mnuChartTabClick
983 end
984 object mnuChartNotes: TMenuItem
985 Tag = 6
986 Caption = 'Progress &Notes'
987 ShortCut = 16462
988 OnClick = mnuChartTabClick
989 end
990 object mnuChartCslts: TMenuItem
991 Tag = 7
992 Caption = 'Consul&ts'
993 ShortCut = 16468
994 OnClick = mnuChartTabClick
995 end
996 object mnuChartSurgery: TMenuItem
997 Tag = 11
998 Caption = 'S&urgery'
999 ShortCut = 16469
1000 OnClick = mnuChartTabClick
1001 end
1002 object mnuChartDCSumm: TMenuItem
1003 Tag = 8
1004 Caption = '&Discharge Summaries'
1005 ShortCut = 16452
1006 OnClick = mnuChartTabClick
1007 end
1008 object mnuChartLabs: TMenuItem
1009 Tag = 9
1010 Caption = '&Laboratory'
1011 ShortCut = 16460
1012 OnClick = mnuChartTabClick
1013 end
1014 object mnuChartReports: TMenuItem
1015 Tag = 10
1016 Caption = '&Reports'
1017 ShortCut = 16466
1018 OnClick = mnuChartTabClick
1019 end
1020 end
1021 object mnuViewInformation: TMenuItem
1022 Caption = 'Information'
1023 OnClick = mnuViewInformationClick
1024 object mnuViewDemo: TMenuItem
1025 Tag = 1
1026 Caption = 'De&mographics...'
1027 OnClick = ViewInfo
1028 end
1029 object mnuViewVisits: TMenuItem
1030 Tag = 2
1031 Caption = 'Visits/Pr&ovider...'
1032 OnClick = ViewInfo
1033 end
1034 object mnuViewPrimaryCare: TMenuItem
1035 Tag = 3
1036 Caption = 'Primary &Care...'
1037 OnClick = ViewInfo
1038 end
1039 object mnuViewMyHealtheVet: TMenuItem
1040 Tag = 4
1041 Caption = 'MyHealthe&Vet...'
1042 OnClick = ViewInfo
1043 end
1044 object mnuInsurance: TMenuItem
1045 Tag = 5
1046 Caption = '&Insurance...'
1047 OnClick = ViewInfo
1048 end
1049 object mnuViewFlags: TMenuItem
1050 Tag = 6
1051 Caption = '&Flags...'
1052 OnClick = ViewInfo
1053 end
1054 object mnuViewRemoteData: TMenuItem
1055 Tag = 7
1056 Caption = 'Remote &Data...'
1057 OnClick = ViewInfo
1058 end
1059 object mnuViewReminders: TMenuItem
1060 Tag = 8
1061 Caption = '&Reminders...'
1062 OnClick = ViewInfo
1063 end
1064 object mnuViewPostings: TMenuItem
1065 Tag = 9
1066 Caption = '&Postings...'
1067 OnClick = ViewInfo
1068 end
1069 end
1070 end
1071 object mnuTools: TMenuItem
1072 Caption = '&Tools'
1073 GroupIndex = 8
1074 OnClick = mnuToolsClick
1075 object Z8: TMenuItem
1076 Caption = '-'
1077 end
1078 object mnuToolsGraphing: TMenuItem
1079 Caption = '&Graphing...'
1080 ShortCut = 16455
1081 OnClick = mnuToolsGraphingClick
1082 end
1083 object LabInfo1: TMenuItem
1084 Caption = '&Lab Test Information...'
1085 OnClick = LabInfo1Click
1086 end
1087 object mnuToolsOptions: TMenuItem
1088 Caption = '&Options...'
1089 OnClick = mnuToolsOptionsClick
1090 end
1091 end
1092 object mnuHelp: TMenuItem
1093 Caption = '&Help'
1094 GroupIndex = 9
1095 object mnuHelpContents: TMenuItem
1096 Caption = '&Contents'
1097 Hint = 'WinHlp32 cprs.hlp'
1098 OnClick = ToolClick
1099 end
1100 object mnuHelpTutor: TMenuItem
1101 Caption = '&Brief Tutorial'
1102 Enabled = False
1103 Visible = False
1104 end
1105 object Z5: TMenuItem
1106 Caption = '-'
1107 end
1108 object mnuHelpBroker: TMenuItem
1109 Caption = 'Last Broker Call'
1110 OnClick = mnuHelpBrokerClick
1111 end
1112 object mnuHelpLists: TMenuItem
1113 Caption = 'Show ListBox Data'
1114 OnClick = mnuHelpListsClick
1115 end
1116 object mnuHelpSymbols: TMenuItem
1117 Caption = 'Symbol Table'
1118 OnClick = mnuHelpSymbolsClick
1119 end
1120 object Z6: TMenuItem
1121 Caption = '-'
1122 end
1123 object mnuHelpAbout: TMenuItem
1124 Caption = '&About CPRS'
1125 OnClick = mnuHelpAboutClick
1126 end
1127 end
1128 end
1129 object popCIRN: TPopupMenu
1130 Left = 539
1131 Top = 60
1132 object popCIRNSelectAll: TMenuItem
1133 Caption = 'Select All'
1134 OnClick = popCIRNSelectAllClick
1135 end
1136 object popCIRNSelectNone: TMenuItem
1137 Caption = 'Select None'
1138 OnClick = popCIRNSelectNoneClick
1139 end
1140 object popCIRNClose: TMenuItem
1141 Caption = 'Close List'
1142 OnClick = popCIRNCloseClick
1143 end
1144 end
1145 object OROpenDlg: TOpenDialog
1146 Filter = 'Exe file (*.exe)|*.exe'
1147 Left = 260
1148 Top = 257
1149 end
1150 object popAlerts: TPopupMenu
1151 AutoPopup = False
1152 Left = 320
1153 Top = 200
1154 object mnuAlertContinue: TMenuItem
1155 Caption = 'Continue'
1156 ShortCut = 16451
1157 OnClick = mnuFileNextClick
1158 end
1159 object mnuAlertForward: TMenuItem
1160 Caption = 'Forward'
1161 ShortCut = 16454
1162 OnClick = mnuAlertForwardClick
1163 end
1164 object mnuAlertRenew: TMenuItem
1165 Caption = 'Renew'
1166 ShortCut = 16466
1167 OnClick = mnuAlertRenewClick
1168 end
1169 end
1170 object AppEvents: TApplicationEvents
1171 OnActivate = AppEventsActivate
1172 OnShortCut = AppEventsShortCut
1173 Left = 336
1174 Top = 256
1175 end
1176 object compAccessTabPage: TVA508ComponentAccessibility
1177 Component = tabPage
1178 OnCaptionQuery = compAccessTabPageCaptionQuery
1179 Left = 56
1180 Top = 48
1181 end
1182end
Note: See TracBrowser for help on using the repository browser.