source: cprs/branches/foia-cprs/CPRS-Chart/fFrame.dfm@ 834

Last change on this file since 834 was 463, checked in by Kevin Toppenberg, 16 years ago

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