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

Last change on this file since 1684 was 1679, checked in by healthsevak, 9 years ago

Updating the working copy to CPRS version 28

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