source: cprs/branches/tmg-cprs/CPRS-Chart/fFrame.dfm@ 697

Last change on this file since 697 was 667, checked in by Kevin Toppenberg, 15 years ago

Added button to turn Colored Tabs off
File size: 37.4 KB
RevLine 
[453]1object frmFrame: TfrmFrame
[667]2 Left = 164
3 Top = 193
[453]4 Width = 684
5 Height = 487
6 Caption = 'p'
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
32 Height = 433
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
48 Height = 433
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
77 Width = 39
78 Height = 39
79 Align = alLeft
80 BevelWidth = 2
81 ParentShowHint = False
82 ShowHint = True
83 TabOrder = 8
84 object imgCCOW: TImage
85 Left = 2
86 Top = 2
87 Width = 35
88 Height = 35
89 Align = alClient
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
122 Left = 39
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 = -8
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 = 4
168 Height = 4
169 Font.Charset = DEFAULT_CHARSET
170 Font.Color = clInfoText
171 Font.Height = -11
172 Font.Name = 'MS Sans Serif'
173 Font.Style = []
174 ParentFont = False
175 ParentShowHint = False
176 ShowHint = False
177 TabOrder = 1
178 OnClick = pnlPatientClick
179 OnMouseDown = pnlPatientMouseDown
180 OnMouseUp = pnlPatientMouseUp
181 end
182 object lblPtAge: TStaticText
183 Left = 176
184 Top = 19
185 Width = 4
186 Height = 4
187 Alignment = taRightJustify
188 Font.Charset = DEFAULT_CHARSET
189 Font.Color = clInfoText
190 Font.Height = -11
191 Font.Name = 'MS Sans Serif'
192 Font.Style = []
193 ParentFont = False
194 ParentShowHint = False
195 ShowHint = False
196 TabOrder = 2
197 OnClick = pnlPatientClick
198 OnMouseDown = pnlPatientMouseDown
199 OnMouseUp = pnlPatientMouseUp
200 end
201 end
202 object pnlVisit: TKeyClickPanel
203 Left = 226
204 Top = 1
205 Width = 168
206 Height = 39
207 Hint = 'Click to change provider/location.'
208 Align = alLeft
209 BevelWidth = 2
210 Font.Charset = DEFAULT_CHARSET
211 Font.Color = clBtnFace
212 Font.Height = -11
213 Font.Name = 'MS Sans Serif'
214 Font.Style = []
215 ParentFont = False
216 ParentShowHint = False
217 ShowHint = True
218 TabOrder = 1
219 TabStop = True
220 OnClick = pnlVisitClick
221 OnEnter = pnlPrimaryCareEnter
222 OnExit = pnlPrimaryCareExit
223 OnMouseDown = pnlVisitMouseDown
224 OnMouseUp = pnlVisitMouseUp
225 object lblPtLocation: TStaticText
226 Left = 6
227 Top = 4
228 Width = 4
229 Height = 4
230 Font.Charset = DEFAULT_CHARSET
231 Font.Color = clWindowText
232 Font.Height = -12
233 Font.Name = 'MS Sans Serif'
234 Font.Style = [fsBold]
235 ParentFont = False
236 ParentShowHint = False
237 ShowAccelChar = False
238 ShowHint = False
239 TabOrder = 0
240 OnClick = pnlVisitClick
241 OnMouseDown = pnlVisitMouseDown
242 OnMouseUp = pnlVisitMouseUp
243 end
244 object lblPtProvider: TStaticText
245 Left = 6
246 Top = 19
247 Width = 4
248 Height = 4
249 Font.Charset = DEFAULT_CHARSET
250 Font.Color = clBtnText
251 Font.Height = -11
252 Font.Name = 'MS Sans Serif'
253 Font.Style = []
254 ParentFont = False
255 ParentShowHint = False
256 ShowHint = False
257 TabOrder = 1
258 OnClick = pnlVisitClick
259 OnMouseDown = pnlVisitMouseDown
260 OnMouseUp = pnlVisitMouseUp
261 end
262 end
263 object pnlPrimaryCare: TKeyClickPanel
264 Left = 394
265 Top = 1
266 Width = 31
267 Height = 39
268 Hint = 'Primary Care Team / Primary Care Provider'
269 Align = alClient
270 BevelWidth = 2
271 Font.Charset = DEFAULT_CHARSET
272 Font.Color = clBtnFace
273 Font.Height = -11
274 Font.Name = 'MS Sans Serif'
275 Font.Style = []
276 ParentFont = False
277 ParentShowHint = False
278 ShowHint = True
279 TabOrder = 2
280 TabStop = True
281 OnClick = pnlPrimaryCareClick
282 OnEnter = pnlPrimaryCareEnter
283 OnExit = pnlPrimaryCareExit
284 OnMouseDown = pnlPrimaryCareMouseDown
285 OnMouseUp = pnlPrimaryCareMouseUp
286 object lblPtCare: TStaticText
287 Left = 6
288 Top = 4
289 Width = 4
290 Height = 4
291 Font.Charset = DEFAULT_CHARSET
292 Font.Color = clBtnText
293 Font.Height = -11
294 Font.Name = 'MS Sans Serif'
295 Font.Style = []
296 ParentFont = False
297 ParentShowHint = False
298 ShowHint = False
299 TabOrder = 0
300 OnClick = pnlPrimaryCareClick
301 OnMouseDown = pnlPrimaryCareMouseDown
302 OnMouseUp = pnlPrimaryCareMouseUp
303 end
304 object lblPtAttending: TStaticText
305 Left = 6
306 Top = 19
307 Width = 4
308 Height = 4
309 Font.Charset = DEFAULT_CHARSET
310 Font.Color = clBtnText
311 Font.Height = -11
312 Font.Name = 'MS Sans Serif'
313 Font.Style = []
314 ParentFont = False
315 ParentShowHint = False
316 ShowHint = False
317 TabOrder = 1
318 OnClick = pnlPrimaryCareClick
319 OnMouseDown = pnlPrimaryCareMouseDown
320 OnMouseUp = pnlPrimaryCareMouseUp
321 end
322 end
323 object pnlCIRN: TKeyClickPanel
324 Left = 520
325 Top = 1
326 Width = 49
327 Height = 39
328 Align = alRight
329 BevelWidth = 2
330 Caption = 'Remote Data'
331 Font.Charset = DEFAULT_CHARSET
332 Font.Color = clBtnFace
333 Font.Height = -11
334 Font.Name = 'MS Sans Serif'
335 Font.Style = []
336 ParentFont = False
337 ParentShowHint = False
338 ShowHint = True
339 TabOrder = 5
340 OnClick = pnlCIRNClick
341 OnEnter = pnlPrimaryCareEnter
342 OnExit = pnlPrimaryCareExit
343 OnMouseDown = pnlCIRNMouseDown
344 OnMouseUp = pnlCIRNMouseUp
345 object lblCIRN: TLabel
346 Left = 2
347 Top = 2
348 Width = 45
349 Height = 13
350 Align = alTop
351 Alignment = taCenter
352 Caption = 'Remote'
353 Enabled = False
354 Font.Charset = DEFAULT_CHARSET
355 Font.Color = clBtnFace
356 Font.Height = -8
357 Font.Name = 'MS Sans Serif'
358 Font.Style = []
359 ParentFont = False
360 OnClick = pnlCIRNClick
361 end
362 object lblCIRNData: TLabel
363 Left = 2
364 Top = 15
365 Width = 45
366 Height = 13
367 Align = alTop
368 Alignment = taCenter
369 Caption = 'Data'
370 Enabled = False
371 Font.Charset = DEFAULT_CHARSET
372 Font.Color = clBtnFace
373 Font.Height = -8
374 Font.Name = 'MS Sans Serif'
375 Font.Style = []
376 ParentFont = False
377 OnClick = pnlCIRNClick
378 end
379 object lblCIRNAvail: TLabel
380 Left = 2
381 Top = 28
382 Width = 45
383 Height = 9
384 Align = alClient
385 Alignment = taCenter
386 Font.Charset = DEFAULT_CHARSET
387 Font.Color = clBtnFace
388 Font.Height = -8
389 Font.Name = 'MS Sans Serif'
390 Font.Style = []
391 ParentFont = False
392 OnClick = pnlCIRNClick
393 end
394 end
395 object pnlReminders: TKeyClickPanel
396 Left = 569
397 Top = 1
398 Width = 35
399 Height = 39
400 Align = alRight
401 BevelWidth = 2
402 Caption = 'Reminders'
403 Font.Charset = DEFAULT_CHARSET
404 Font.Color = clBtnFace
405 Font.Height = -11
406 Font.Name = 'MS Sans Serif'
407 Font.Style = []
408 ParentFont = False
409 ParentShowHint = False
410 ShowHint = True
411 TabOrder = 6
412 TabStop = True
413 OnClick = pnlRemindersClick
414 OnEnter = pnlPrimaryCareEnter
415 OnExit = pnlPrimaryCareExit
416 OnMouseDown = pnlRemindersMouseDown
417 OnMouseUp = pnlRemindersMouseUp
418 object imgReminder: TImage
419 Left = 2
420 Top = 2
421 Width = 31
422 Height = 35
423 Align = alClient
424 Center = True
425 OnMouseDown = pnlRemindersMouseDown
426 OnMouseUp = pnlRemindersMouseUp
427 end
428 object anmtRemSearch: TAnimate
429 Left = 2
430 Top = 2
431 Width = 31
432 Height = 35
433 Align = alClient
434 Visible = False
435 end
436 end
437 object pnlFlag: TKeyClickPanel
438 Left = 485
439 Top = 1
440 Width = 35
441 Height = 39
442 Hint = 'Click to display patient record flags.'
443 Align = alRight
444 BevelWidth = 2
445 Caption = 'Flag'
446 ParentShowHint = False
447 ShowHint = True
448 TabOrder = 4
449 TabStop = True
450 OnClick = pnlFlagClick
451 OnEnter = pnlFlagEnter
452 OnExit = pnlFlagExit
453 OnMouseDown = pnlFlagMouseDown
454 OnMouseUp = pnlFlagMouseUp
455 object lblFlag: TLabel
456 Left = 2
457 Top = 2
458 Width = 31
459 Height = 35
460 Align = alClient
461 Alignment = taCenter
462 Caption = 'Flag'
463 Enabled = False
464 Font.Charset = DEFAULT_CHARSET
465 Font.Color = clBtnFace
466 Font.Height = -11
467 Font.Name = 'MS Sans Serif'
468 Font.Style = [fsBold]
469 ParentFont = False
470 Layout = tlCenter
471 WordWrap = True
472 OnClick = pnlFlagClick
473 OnMouseDown = pnlFlagMouseDown
474 OnMouseUp = pnlFlagMouseUp
475 end
476 end
477 object pnlPostings: TKeyClickPanel
478 Left = 604
479 Top = 1
480 Width = 70
481 Height = 39
482 Hint = 'Click to display patient postings.'
483 Align = alRight
484 BevelWidth = 2
485 Font.Charset = DEFAULT_CHARSET
486 Font.Color = clBtnFace
487 Font.Height = -11
488 Font.Name = 'MS Sans Serif'
489 Font.Style = []
490 ParentFont = False
491 ParentShowHint = False
492 ShowHint = True
493 TabOrder = 7
494 TabStop = True
495 OnClick = pnlPostingsClick
496 OnEnter = pnlPrimaryCareEnter
497 OnExit = pnlPrimaryCareExit
498 OnMouseDown = pnlPostingsMouseDown
499 OnMouseUp = pnlPostingsMouseUp
500 object lblPtPostings: TStaticText
501 Left = 5
502 Top = 4
503 Width = 57
504 Height = 13
505 Alignment = taCenter
506 AutoSize = False
507 Caption = 'No Postings'
508 Font.Charset = DEFAULT_CHARSET
509 Font.Color = clBtnText
510 Font.Height = -11
511 Font.Name = 'MS Sans Serif'
512 Font.Style = []
513 ParentFont = False
514 ParentShowHint = False
515 ShowHint = False
516 TabOrder = 0
517 OnClick = pnlPostingsClick
518 OnMouseDown = pnlPostingsMouseDown
519 OnMouseUp = pnlPostingsMouseUp
520 end
521 object lblPtCWAD: TStaticText
522 Left = 6
523 Top = 19
524 Width = 57
525 Height = 13
526 Alignment = taCenter
527 AutoSize = False
528 Font.Charset = DEFAULT_CHARSET
529 Font.Color = clMaroon
530 Font.Height = -12
531 Font.Name = 'MS Sans Serif'
532 Font.Style = [fsBold]
533 ParentFont = False
534 ParentShowHint = False
535 ShowHint = False
536 TabOrder = 1
537 OnClick = pnlPostingsClick
538 OnMouseDown = pnlPostingsMouseDown
539 OnMouseUp = pnlPostingsMouseUp
540 end
541 end
542 object paVAA: TKeyClickPanel
543 Left = 425
544 Top = 1
545 Width = 60
546 Height = 39
547 Align = alRight
548 BevelOuter = bvNone
549 Font.Charset = DEFAULT_CHARSET
550 Font.Color = clBtnFace
551 Font.Height = -11
552 Font.Name = 'MS Sans Serif'
553 Font.Style = []
554 ParentFont = False
555 ParentShowHint = False
556 ShowHint = False
557 TabOrder = 3
558 Visible = False
559 DesignSize = (
560 60
561 39)
562 object laVAA2: TButton
563 Left = 0
564 Top = 19
565 Width = 59
566 Height = 20
567 Hint = 'Click to display patient insurance data'
568 Anchors = [akLeft, akTop, akRight, akBottom]
569 Caption = 'laVAA2'
570 ParentShowHint = False
571 ShowHint = True
572 TabOrder = 1
573 OnClick = laVAA2Click
574 end
575 object laMHV: TButton
576 Left = 0
577 Top = 1
578 Width = 59
579 Height = 18
580 Hint = 'Click to display MHV data'
581 Anchors = [akLeft, akTop, akRight, akBottom]
582 Caption = 'laMHV'
583 ParentShowHint = False
584 ShowHint = True
585 TabOrder = 0
586 OnClick = laMHVClick
587 end
588 end
589 end
590 object stsArea: TStatusBar
591 Left = 1
592 Top = 411
593 Width = 674
594 Height = 21
595 Panels = <
596 item
597 Width = 200
598 end
599 item
600 Width = 224
601 end
602 item
603 Style = psOwnerDraw
604 Width = 50
605 end
606 item
607 Width = 94
608 end
609 item
610 Width = 38
611 end
612 item
613 Width = 33
614 end>
615 PopupMenu = popAlerts
616 SizeGrip = False
617 OnMouseDown = stsAreaMouseDown
618 OnMouseUp = stsAreaMouseUp
619 OnDrawPanel = stsAreaDrawPanel
620 end
621 object tabPage: TTabControl
622 Left = 1
623 Top = 389
624 Width = 674
625 Height = 22
626 Align = alBottom
627 Font.Charset = DEFAULT_CHARSET
[667]628 Font.Color = clBlack
[453]629 Font.Height = -12
630 Font.Name = 'MS Sans Serif'
631 Font.Style = []
[473]632 OwnerDraw = True
[453]633 ParentFont = False
634 TabOrder = 1
635 TabPosition = tpBottom
636 OnChange = tabPageChange
[473]637 OnDrawTab = tabPageDrawTab
[453]638 OnMouseUp = tabPageMouseUp
639 end
640 object pnlPage: TPanel
641 Left = 1
642 Top = 42
643 Width = 674
644 Height = 347
645 Align = alClient
646 BevelOuter = bvNone
647 Font.Charset = DEFAULT_CHARSET
648 Font.Color = clWindowText
649 Font.Height = -12
650 Font.Name = 'MS Sans Serif'
651 Font.Style = []
652 ParentFont = False
653 TabOrder = 2
654 object lstCIRNLocations: TORListBox
655 Left = 424
656 Top = 0
657 Width = 209
658 Height = 78
659 TabStop = False
660 Style = lbOwnerDrawFixed
661 Font.Charset = DEFAULT_CHARSET
662 Font.Color = clBlue
663 Font.Height = -12
664 Font.Name = 'MS Sans Serif'
665 Font.Style = []
666 ItemHeight = 13
667 ParentFont = False
668 ParentShowHint = False
669 PopupMenu = popCIRN
670 ShowHint = False
671 TabOrder = 0
672 Visible = False
673 OnClick = lstCIRNLocationsClick
674 OnExit = lstCIRNLocationsExit
675 Caption = 'Remote Data'
676 ItemTipColor = clWindow
677 LongList = False
678 Pieces = '2,3,4'
679 TabPositions = '16'
680 OnChange = lstCIRNLocationsChange
681 RightClickSelect = True
682 CheckBoxes = True
683 CheckEntireLine = True
684 end
685 end
686 end
687 object mnuFrame: TMainMenu
688 Left = 180
689 Top = 128
690 object mnuFile: TMenuItem
691 Caption = '&File'
692 GroupIndex = 1
693 object mnuFileOpen: TMenuItem
694 Caption = 'Select &New Patient...'
695 OnClick = mnuFileOpenClick
696 end
697 object mnuFileRefresh: TMenuItem
698 Caption = 'Refresh Patient &Information'
699 OnClick = mnuFileRefreshClick
700 end
701 object EditDemographics: TMenuItem
702 Caption = 'Edit Patient &Demographics'
703 OnClick = EditDemographicsClick
704 end
705 object mnuFileResumeContext: TMenuItem
706 Caption = 'Rejoin patient link'
707 object mnuFileResumeContextSet: TMenuItem
708 Caption = 'Set new context'
709 OnClick = mnuFileResumeContextSetClick
710 end
711 object Useexistingcontext1: TMenuItem
712 Caption = 'Use existing context'
713 OnClick = mnuFileResumeContextGetClick
714 end
715 end
716 object mnuFileBreakContext: TMenuItem
717 Caption = 'Break patient link'
718 OnClick = mnuFileBreakContextClick
719 end
720 object mnuFileEncounter: TMenuItem
721 Caption = '&Update Provider / Location...'
722 OnClick = mnuFileEncounterClick
723 end
724 object mnuFileReview: TMenuItem
725 Caption = '&Review/Sign Changes...'
726 OnClick = mnuFileReviewClick
727 end
728 object Z7: TMenuItem
729 Caption = '-'
730 Visible = False
731 end
732 object mnuFileNext: TMenuItem
733 Caption = 'Next Noti&fication'
734 OnClick = mnuFileNextClick
735 end
736 object mnuFileNotifRemove: TMenuItem
737 Caption = 'Remo&ve Current Notification'
738 OnClick = mnuFileNotifRemoveClick
739 end
740 object Z1: TMenuItem
741 Caption = '-'
742 end
743 object mnuFilePrintSetup: TMenuItem
744 Caption = 'Print &Setup...'
745 Enabled = False
746 OnClick = mnuFilePrintSetupClick
747 end
748 object mnuFilePrintSelectedItems: TMenuItem
749 Caption = 'Print Selected Items'
750 Enabled = False
751 OnClick = mnuFilePrintSelectedItemsClick
752 end
753 object mnuFilePrint: TMenuItem
754 Caption = '&Print...'
755 Enabled = False
756 OnClick = mnuFilePrintClick
757 end
758 object mnuFileExit: TMenuItem
759 Caption = 'E&xit'
760 OnClick = mnuFileExitClick
761 end
762 end
763 object mnuEdit: TMenuItem
764 Caption = '&Edit'
765 GroupIndex = 2
766 OnClick = mnuEditClick
767 object mnuEditUndo: TMenuItem
768 Caption = '&Undo'
769 ShortCut = 16474
770 OnClick = mnuEditUndoClick
771 end
772 object Z3: TMenuItem
773 Caption = '-'
774 end
775 object mnuEditCut: TMenuItem
776 Caption = 'Cu&t'
777 ShortCut = 16472
778 OnClick = mnuEditCutClick
779 end
780 object mnuEditCopy: TMenuItem
781 Caption = '&Copy'
782 ShortCut = 16451
783 OnClick = mnuEditCopyClick
784 end
785 object mnuEditPaste: TMenuItem
786 Caption = '&Paste'
787 ShortCut = 16470
788 OnClick = mnuEditPasteClick
789 end
790 object Z4: TMenuItem
791 Caption = '-'
792 end
793 object mnuEditPref: TMenuItem
794 Caption = 'P&references'
795 object Prefs1: TMenuItem
796 Caption = '&Fonts'
797 object mnu8pt: TMenuItem
798 Tag = 8
799 Caption = '8 pt'
800 RadioItem = True
801 OnClick = mnuFontSizeClick
802 end
803 object mnu10pt1: TMenuItem
804 Tag = 10
805 Caption = '10 pt'
806 RadioItem = True
807 OnClick = mnuFontSizeClick
808 end
809 object mnu12pt1: TMenuItem
810 Tag = 12
811 Caption = '12 pt'
812 RadioItem = True
813 OnClick = mnuFontSizeClick
814 end
815 object mnu14pt1: TMenuItem
816 Tag = 14
817 Caption = '14 pt'
818 RadioItem = True
819 OnClick = mnuFontSizeClick
820 end
821 object mnu18pt1: TMenuItem
822 Tag = 18
823 Caption = '18 pt'
824 RadioItem = True
825 OnClick = mnuFontSizeClick
826 end
827 object mnu24pt1: TMenuItem
828 Tag = 24
829 Caption = '24 pt'
830 RadioItem = True
831 OnClick = mnuFontSizeClick
832 end
833 end
834 end
835 end
836 object mnuView: TMenuItem
837 Caption = '&View'
838 GroupIndex = 3
839 object mnuViewChart: TMenuItem
840 Caption = 'Chart &Tab'
841 object mnuChartCover: TMenuItem
842 Tag = 1
843 Caption = 'Cover &Sheet'
844 ShortCut = 16467
845 OnClick = mnuChartTabClick
846 end
847 object mnuChartProbs: TMenuItem
848 Tag = 2
849 Caption = '&Problem List'
850 ShortCut = 16464
851 OnClick = mnuChartTabClick
852 end
853 object mnuChartMeds: TMenuItem
854 Tag = 3
855 Caption = '&Medications'
856 ShortCut = 16461
857 OnClick = mnuChartTabClick
858 end
859 object mnuChartOrders: TMenuItem
860 Tag = 4
861 Caption = '&Orders'
862 ShortCut = 16463
863 OnClick = mnuChartTabClick
864 end
865 object mnuChartNotes: TMenuItem
866 Tag = 6
867 Caption = 'Progress &Notes'
868 ShortCut = 16462
869 OnClick = mnuChartTabClick
870 end
871 object mnuChartCslts: TMenuItem
872 Tag = 7
873 Caption = 'Consul&ts'
874 ShortCut = 16468
875 OnClick = mnuChartTabClick
876 end
877 object mnuChartSurgery: TMenuItem
878 Tag = 11
879 Caption = 'S&urgery'
880 ShortCut = 16469
881 OnClick = mnuChartTabClick
882 end
883 object mnuChartDCSumm: TMenuItem
884 Tag = 8
885 Caption = '&Discharge Summaries'
886 ShortCut = 16452
887 OnClick = mnuChartTabClick
888 end
889 object mnuChartLabs: TMenuItem
890 Tag = 9
891 Caption = '&Laboratory'
892 ShortCut = 16460
893 OnClick = mnuChartTabClick
894 end
895 object mnuChartReports: TMenuItem
896 Tag = 10
897 Caption = '&Reports'
898 ShortCut = 16466
899 OnClick = mnuChartTabClick
900 end
901 end
902 object mnuViewInformation: TMenuItem
903 Caption = 'Information'
904 OnClick = mnuViewInformationClick
905 object mnuViewDemo: TMenuItem
906 Tag = 1
907 Caption = 'De&mographics...'
908 OnClick = ViewInfo
909 end
910 object mnuViewVisits: TMenuItem
911 Tag = 2
912 Caption = 'Visits/Pr&ovider...'
913 OnClick = ViewInfo
914 end
915 object mnuViewPrimaryCare: TMenuItem
916 Tag = 3
917 Caption = 'Primary &Care...'
918 OnClick = ViewInfo
919 end
920 object mnuViewMyHealtheVet: TMenuItem
921 Tag = 4
922 Caption = 'MyHealthe&Vet...'
923 OnClick = ViewInfo
924 end
925 object mnuInsurance: TMenuItem
926 Tag = 5
927 Caption = '&Insurance...'
928 OnClick = ViewInfo
929 end
930 object mnuViewFlags: TMenuItem
931 Tag = 6
932 Caption = '&Flags...'
933 OnClick = ViewInfo
934 end
935 object mnuViewRemoteData: TMenuItem
936 Tag = 7
937 Caption = 'Remote &Data...'
938 OnClick = ViewInfo
939 end
940 object mnuViewReminders: TMenuItem
941 Tag = 8
942 Caption = '&Reminders...'
943 OnClick = ViewInfo
944 end
945 object mnuViewPostings: TMenuItem
946 Tag = 9
947 Caption = '&Postings...'
948 OnClick = ViewInfo
949 end
950 end
951 end
952 object mnuTools: TMenuItem
953 Caption = '&Tools'
954 GroupIndex = 8
955 OnClick = mnuToolsClick
956 object Z8: TMenuItem
957 Caption = '-'
958 end
959 object mnuToolsGraphing: TMenuItem
960 Caption = '&Graphing...'
961 ShortCut = 16455
962 OnClick = mnuToolsGraphingClick
963 end
964 object LabInfo1: TMenuItem
965 Caption = '&Lab Test Information...'
966 OnClick = LabInfo1Click
967 end
968 object mnuToolsOptions: TMenuItem
969 Caption = '&Options...'
970 OnClick = mnuToolsOptionsClick
971 end
972 end
973 object mnuHelp: TMenuItem
974 Caption = '&Help'
975 GroupIndex = 9
976 object mnuHelpContents: TMenuItem
977 Caption = '&Contents'
978 Hint = 'WinHlp32 cprs.hlp'
979 OnClick = ToolClick
980 end
981 object mnuHelpTutor: TMenuItem
982 Caption = '&Brief Tutorial'
983 Enabled = False
984 Visible = False
985 end
986 object Z5: TMenuItem
987 Caption = '-'
988 end
989 object mnuHelpBroker: TMenuItem
990 Caption = 'Last Broker Call'
991 OnClick = mnuHelpBrokerClick
992 end
993 object mnuHelpLists: TMenuItem
994 Caption = 'Show ListBox Data'
995 OnClick = mnuHelpListsClick
996 end
997 object mnuHelpSymbols: TMenuItem
998 Caption = 'Symbol Table'
999 OnClick = mnuHelpSymbolsClick
1000 end
1001 object Z6: TMenuItem
1002 Caption = '-'
1003 end
1004 object mnuHelpAbout: TMenuItem
1005 Caption = '&About CPRS'
1006 OnClick = mnuHelpAboutClick
1007 end
1008 end
1009 end
1010 object popCIRN: TPopupMenu
1011 Left = 539
1012 Top = 60
1013 object popCIRNSelectAll: TMenuItem
1014 Caption = 'Select All'
1015 OnClick = popCIRNSelectAllClick
1016 end
1017 object popCIRNSelectNone: TMenuItem
1018 Caption = 'Select None'
1019 OnClick = popCIRNSelectNoneClick
1020 end
1021 object popCIRNClose: TMenuItem
1022 Caption = 'Close List'
1023 OnClick = popCIRNCloseClick
1024 end
1025 end
1026 object OROpenDlg: TOpenDialog
1027 Filter = 'Exe file (*.exe)|*.exe'
1028 Left = 260
1029 Top = 257
1030 end
1031 object popAlerts: TPopupMenu
1032 AutoPopup = False
1033 Left = 320
1034 Top = 200
1035 object mnuAlertContinue: TMenuItem
1036 Caption = 'Continue'
1037 OnClick = mnuFileNextClick
1038 end
1039 object mnuAlertForward: TMenuItem
1040 Caption = 'Forward'
1041 OnClick = mnuAlertForwardClick
1042 end
1043 object mnuAlertRenew: TMenuItem
1044 Caption = 'Renew'
1045 OnClick = mnuAlertRenewClick
1046 end
1047 end
1048 object AppEvents: TApplicationEvents
1049 OnActivate = AppEventsActivate
1050 OnShortCut = AppEventsShortCut
1051 Left = 336
1052 Top = 256
1053 end
1054 object DKLanguageController1: TDKLanguageController
1055 Left = 281
1056 Top = 66
1057 LangData = {
1058 080066726D4672616D65010100000001000000070043617074696F6E01740000
1059 001400706E6C4E6F50617469656E7453656C6563746564010100000002000000
1060 070043617074696F6E001200706E6C50617469656E7453656C65637465640000
1061 0A0062766C50616765546F7000000A00706E6C546F6F6C62617200000A006276
1062 6C546F6F6C546F7000000700706E6C43434F5700000700696D6743434F570000
1063 0A00706E6C50617469656E74010100000003000000040048696E740009006C62
1064 6C50744E616D65010100000004000000070043617074696F6E0008006C626C50
1065 7453534E000008006C626C507441676500000800706E6C566973697401010000
1066 0005000000040048696E74000D006C626C50744C6F636174696F6E00000D006C
1067 626C507450726F766964657200000E00706E6C5072696D617279436172650101
1068 00000006000000040048696E740009006C626C50744361726500000E006C626C
1069 5074417474656E64696E6700000700706E6C4349524E01010000000700000007
1070 0043617074696F6E0007006C626C4349524E0101000000080000000700436170
1071 74696F6E000B006C626C4349524E446174610101000000090000000700436170
1072 74696F6E000C006C626C4349524E417661696C00000C00706E6C52656D696E64
1073 65727301010000000A000000070043617074696F6E000B00696D6752656D696E
1074 64657200000D00616E6D7452656D53656172636800000700706E6C466C616701
1075 020000000C000000070043617074696F6E0B000000040048696E740007006C62
1076 6C466C616701010000000D000000070043617074696F6E000B00706E6C506F73
1077 74696E677301010000000E000000040048696E74000D006C626C5074506F7374
1078 696E677301010000000F000000070043617074696F6E0009006C626C50744357
1079 4144000005007061564141000006006C61564141320102000000110000000700
1080 43617074696F6E10000000040048696E740005006C614D485601020000001300
1081 0000070043617074696F6E12000000040048696E740007007374734172656100
1082 0007007461625061676500000700706E6C50616765000010006C73744349524E
1083 4C6F636174696F6E73010100000014000000070043617074696F6E0008006D6E
1084 754672616D65000007006D6E7546696C65010100000015000000070043617074
1085 696F6E000B006D6E7546696C654F70656E010100000016000000070043617074
1086 696F6E000E006D6E7546696C6552656672657368010100000017000000070043
1087 617074696F6E0014006D6E7546696C65526573756D65436F6E74657874010100
1088 000018000000070043617074696F6E0017006D6E7546696C65526573756D6543
1089 6F6E74657874536574010100000019000000070043617074696F6E0013005573
1090 656578697374696E67636F6E746578743101010000001A000000070043617074
1091 696F6E0013006D6E7546696C65427265616B436F6E7465787401010000001B00
1092 0000070043617074696F6E0010006D6E7546696C65456E636F756E7465720101
1093 0000001C000000070043617074696F6E000D006D6E7546696C65526576696577
1094 01010000001D000000070043617074696F6E0002005A3700000B006D6E754669
1095 6C654E65787401010000001E000000070043617074696F6E0012006D6E754669
1096 6C654E6F74696652656D6F766501010000001F000000070043617074696F6E00
1097 02005A31000011006D6E7546696C655072696E74536574757001010000002000
1098 0000070043617074696F6E0019006D6E7546696C655072696E7453656C656374
1099 65644974656D73010100000021000000070043617074696F6E000C006D6E7546
1100 696C655072696E74010100000022000000070043617074696F6E000B006D6E75
1101 46696C6545786974010100000023000000070043617074696F6E0007006D6E75
1102 45646974010100000024000000070043617074696F6E000B006D6E7545646974
1103 556E646F010100000025000000070043617074696F6E0002005A3300000A006D
1104 6E7545646974437574010100000026000000070043617074696F6E000B006D6E
1105 7545646974436F7079010100000027000000070043617074696F6E000C006D6E
1106 75456469745061737465010100000028000000070043617074696F6E0002005A
1107 3400000B006D6E75456469745072656601010000002900000007004361707469
1108 6F6E00060050726566733101010000002A000000070043617074696F6E000600
1109 6D6E7538707401010000002B000000070043617074696F6E0008006D6E753130
1110 70743101010000002C000000070043617074696F6E0008006D6E753132707431
1111 01010000002D000000070043617074696F6E0008006D6E753134707431010100
1112 00002E000000070043617074696F6E0008006D6E75313870743101010000002F
1113 000000070043617074696F6E0008006D6E753234707431010100000030000000
1114 070043617074696F6E0007006D6E755669657701010000003100000007004361
1115 7074696F6E000C006D6E75566965774368617274010100000032000000070043
1116 617074696F6E000D006D6E754368617274436F76657201010000003300000007
1117 0043617074696F6E000D006D6E75436861727450726F62730101000000340000
1118 00070043617074696F6E000C006D6E7543686172744D65647301010000003500
1119 0000070043617074696F6E000E006D6E7543686172744F726465727301010000
1120 0036000000070043617074696F6E000D006D6E7543686172744E6F7465730101
1121 00000037000000070043617074696F6E000D006D6E75436861727443736C7473
1122 010100000038000000070043617074696F6E000F006D6E754368617274537572
1123 67657279010100000039000000070043617074696F6E000E006D6E7543686172
1124 74444353756D6D01010000003A000000070043617074696F6E000C006D6E7543
1125 686172744C61627301010000003B000000070043617074696F6E000F006D6E75
1126 43686172745265706F72747301010000003C000000070043617074696F6E0012
1127 006D6E7556696577496E666F726D6174696F6E01010000003D00000007004361
1128 7074696F6E000B006D6E755669657744656D6F01010000003E00000007004361
1129 7074696F6E000D006D6E755669657756697369747301010000003F0000000700
1130 43617074696F6E0012006D6E75566965775072696D6172794361726501010000
1131 0040000000070043617074696F6E0013006D6E75566965774D794865616C7468
1132 65566574010100000041000000070043617074696F6E000C006D6E75496E7375
1133 72616E6365010100000042000000070043617074696F6E000C006D6E75566965
1134 77466C616773010100000043000000070043617074696F6E0011006D6E755669
1135 657752656D6F746544617461010100000044000000070043617074696F6E0010
1136 006D6E755669657752656D696E64657273010100000045000000070043617074
1137 696F6E000F006D6E7556696577506F7374696E67730101000000460000000700
1138 43617074696F6E0008006D6E75546F6F6C730101000000470000000700436170
1139 74696F6E0002005A38000010006D6E75546F6F6C734772617068696E67010100
1140 000048000000070043617074696F6E0008004C6162496E666F31010100000049
1141 000000070043617074696F6E000F006D6E75546F6F6C734F7074696F6E730101
1142 0000004A000000070043617074696F6E0007006D6E7548656C7001010000004B
1143 000000070043617074696F6E000F006D6E7548656C70436F6E74656E74730102
1144 0000004C000000070043617074696F6E4D000000040048696E74000C006D6E75
1145 48656C705475746F7201010000004E000000070043617074696F6E0002005A35
1146 00000D006D6E7548656C7042726F6B657201010000004F000000070043617074
1147 696F6E000C006D6E7548656C704C697374730101000000500000000700436170
1148 74696F6E000E006D6E7548656C7053796D626F6C730101000000510000000700
1149 43617074696F6E0002005A3600000C006D6E7548656C7041626F757401010000
1150 0052000000070043617074696F6E000700706F704349524E00001000706F7043
1151 49524E53656C656374416C6C010100000053000000070043617074696F6E0011
1152 00706F704349524E53656C6563744E6F6E650101000000540000000700436170
1153 74696F6E000C00706F704349524E436C6F736501010000005500000007004361
1154 7074696F6E0009004F524F70656E446C67010100000056000000060046696C74
1155 6572000900706F70416C65727473000010006D6E75416C657274436F6E74696E
1156 7565010100000057000000070043617074696F6E000F006D6E75416C65727446
1157 6F7277617264010100000058000000070043617074696F6E000D006D6E75416C
1158 65727452656E6577010100000059000000070043617074696F6E000900417070
1159 4576656E7473000010004564697444656D6F677261706869637301010000005A
1160 000000070043617074696F6E00}
1161 end
1162end
Note: See TracBrowser for help on using the repository browser.