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

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

Initial Upload of Official WV CPRS 1.0.26.76
File size: 29.9 KB
Line 
1object frmFrame: TfrmFrame
2 Left = 380
3 Top = 292
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 = 64
168 Height = 17
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 = 3
186 Height = 6
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
628 Font.Color = clWindowText
629 Font.Height = -12
630 Font.Name = 'MS Sans Serif'
631 Font.Style = []
632 ParentFont = False
633 TabOrder = 1
634 TabPosition = tpBottom
635 OnChange = tabPageChange
636 OnMouseUp = tabPageMouseUp
637 end
638 object pnlPage: TPanel
639 Left = 1
640 Top = 42
641 Width = 674
642 Height = 347
643 Align = alClient
644 BevelOuter = bvNone
645 Font.Charset = DEFAULT_CHARSET
646 Font.Color = clWindowText
647 Font.Height = -12
648 Font.Name = 'MS Sans Serif'
649 Font.Style = []
650 ParentFont = False
651 TabOrder = 2
652 object lstCIRNLocations: TORListBox
653 Left = 424
654 Top = 0
655 Width = 209
656 Height = 78
657 TabStop = False
658 Style = lbOwnerDrawFixed
659 Font.Charset = DEFAULT_CHARSET
660 Font.Color = clBlue
661 Font.Height = -12
662 Font.Name = 'MS Sans Serif'
663 Font.Style = []
664 ItemHeight = 13
665 ParentFont = False
666 ParentShowHint = False
667 PopupMenu = popCIRN
668 ShowHint = False
669 TabOrder = 0
670 Visible = False
671 OnClick = lstCIRNLocationsClick
672 OnExit = lstCIRNLocationsExit
673 Caption = 'Remote Data'
674 ItemTipColor = clWindow
675 LongList = False
676 Pieces = '2,3,4'
677 TabPositions = '16'
678 OnChange = lstCIRNLocationsChange
679 RightClickSelect = True
680 CheckBoxes = True
681 CheckEntireLine = True
682 end
683 end
684 end
685 object mnuFrame: TMainMenu
686 Left = 180
687 Top = 128
688 object mnuFile: TMenuItem
689 Caption = '&File'
690 GroupIndex = 1
691 object mnuFileOpen: TMenuItem
692 Caption = 'Select &New Patient...'
693 OnClick = mnuFileOpenClick
694 end
695 object mnuFileRefresh: TMenuItem
696 Caption = 'Refresh Patient &Information'
697 OnClick = mnuFileRefreshClick
698 end
699 object mnuFileResumeContext: TMenuItem
700 Caption = 'Rejoin patient link'
701 object mnuFileResumeContextSet: TMenuItem
702 Caption = 'Set new context'
703 OnClick = mnuFileResumeContextSetClick
704 end
705 object Useexistingcontext1: TMenuItem
706 Caption = 'Use existing context'
707 OnClick = mnuFileResumeContextGetClick
708 end
709 end
710 object mnuFileBreakContext: TMenuItem
711 Caption = 'Break patient link'
712 OnClick = mnuFileBreakContextClick
713 end
714 object mnuFileEncounter: TMenuItem
715 Caption = '&Update Provider / Location...'
716 OnClick = mnuFileEncounterClick
717 end
718 object mnuFileReview: TMenuItem
719 Caption = '&Review/Sign Changes...'
720 OnClick = mnuFileReviewClick
721 end
722 object Z7: TMenuItem
723 Caption = '-'
724 Visible = False
725 end
726 object mnuFileNext: TMenuItem
727 Caption = 'Next Noti&fication'
728 OnClick = mnuFileNextClick
729 end
730 object mnuFileNotifRemove: TMenuItem
731 Caption = 'Remo&ve Current Notification'
732 OnClick = mnuFileNotifRemoveClick
733 end
734 object Z1: TMenuItem
735 Caption = '-'
736 end
737 object mnuFilePrintSetup: TMenuItem
738 Caption = 'Print &Setup...'
739 Enabled = False
740 OnClick = mnuFilePrintSetupClick
741 end
742 object mnuFilePrintSelectedItems: TMenuItem
743 Caption = 'Print Selected Items'
744 Enabled = False
745 OnClick = mnuFilePrintSelectedItemsClick
746 end
747 object mnuFilePrint: TMenuItem
748 Caption = '&Print...'
749 Enabled = False
750 OnClick = mnuFilePrintClick
751 end
752 object mnuFileExit: TMenuItem
753 Caption = 'E&xit'
754 OnClick = mnuFileExitClick
755 end
756 end
757 object mnuEdit: TMenuItem
758 Caption = '&Edit'
759 GroupIndex = 2
760 OnClick = mnuEditClick
761 object mnuEditUndo: TMenuItem
762 Caption = '&Undo'
763 ShortCut = 16474
764 OnClick = mnuEditUndoClick
765 end
766 object Z3: TMenuItem
767 Caption = '-'
768 end
769 object mnuEditCut: TMenuItem
770 Caption = 'Cu&t'
771 ShortCut = 16472
772 OnClick = mnuEditCutClick
773 end
774 object mnuEditCopy: TMenuItem
775 Caption = '&Copy'
776 ShortCut = 16451
777 OnClick = mnuEditCopyClick
778 end
779 object mnuEditPaste: TMenuItem
780 Caption = '&Paste'
781 ShortCut = 16470
782 OnClick = mnuEditPasteClick
783 end
784 object Z4: TMenuItem
785 Caption = '-'
786 end
787 object mnuEditPref: TMenuItem
788 Caption = 'P&references'
789 object Prefs1: TMenuItem
790 Caption = '&Fonts'
791 object mnu8pt: TMenuItem
792 Tag = 8
793 Caption = '8 pt'
794 RadioItem = True
795 OnClick = mnuFontSizeClick
796 end
797 object mnu10pt1: TMenuItem
798 Tag = 10
799 Caption = '10 pt'
800 RadioItem = True
801 OnClick = mnuFontSizeClick
802 end
803 object mnu12pt1: TMenuItem
804 Tag = 12
805 Caption = '12 pt'
806 RadioItem = True
807 OnClick = mnuFontSizeClick
808 end
809 object mnu14pt1: TMenuItem
810 Tag = 14
811 Caption = '14 pt'
812 RadioItem = True
813 OnClick = mnuFontSizeClick
814 end
815 object mnu18pt1: TMenuItem
816 Tag = 18
817 Caption = '18 pt'
818 RadioItem = True
819 OnClick = mnuFontSizeClick
820 end
821 object mnu24pt1: TMenuItem
822 Tag = 24
823 Caption = '24 pt'
824 RadioItem = True
825 OnClick = mnuFontSizeClick
826 end
827 end
828 end
829 end
830 object mnuView: TMenuItem
831 Caption = '&View'
832 GroupIndex = 3
833 object mnuViewChart: TMenuItem
834 Caption = 'Chart &Tab'
835 object mnuChartCover: TMenuItem
836 Tag = 1
837 Caption = 'Cover &Sheet'
838 ShortCut = 16467
839 OnClick = mnuChartTabClick
840 end
841 object mnuChartProbs: TMenuItem
842 Tag = 2
843 Caption = '&Problem List'
844 ShortCut = 16464
845 OnClick = mnuChartTabClick
846 end
847 object mnuChartMeds: TMenuItem
848 Tag = 3
849 Caption = '&Medications'
850 ShortCut = 16461
851 OnClick = mnuChartTabClick
852 end
853 object mnuChartOrders: TMenuItem
854 Tag = 4
855 Caption = '&Orders'
856 ShortCut = 16463
857 OnClick = mnuChartTabClick
858 end
859 object mnuChartNotes: TMenuItem
860 Tag = 6
861 Caption = 'Progress &Notes'
862 ShortCut = 16462
863 OnClick = mnuChartTabClick
864 end
865 object mnuChartCslts: TMenuItem
866 Tag = 7
867 Caption = 'Consul&ts'
868 ShortCut = 16468
869 OnClick = mnuChartTabClick
870 end
871 object mnuChartSurgery: TMenuItem
872 Tag = 11
873 Caption = 'S&urgery'
874 ShortCut = 16469
875 OnClick = mnuChartTabClick
876 end
877 object mnuChartDCSumm: TMenuItem
878 Tag = 8
879 Caption = '&Discharge Summaries'
880 ShortCut = 16452
881 OnClick = mnuChartTabClick
882 end
883 object mnuChartLabs: TMenuItem
884 Tag = 9
885 Caption = '&Laboratory'
886 ShortCut = 16460
887 OnClick = mnuChartTabClick
888 end
889 object mnuChartReports: TMenuItem
890 Tag = 10
891 Caption = '&Reports'
892 ShortCut = 16466
893 OnClick = mnuChartTabClick
894 end
895 end
896 object mnuViewInformation: TMenuItem
897 Caption = 'Information'
898 OnClick = mnuViewInformationClick
899 object mnuViewDemo: TMenuItem
900 Tag = 1
901 Caption = 'De&mographics...'
902 OnClick = ViewInfo
903 end
904 object mnuViewVisits: TMenuItem
905 Tag = 2
906 Caption = 'Visits/Pr&ovider...'
907 OnClick = ViewInfo
908 end
909 object mnuViewPrimaryCare: TMenuItem
910 Tag = 3
911 Caption = 'Primary &Care...'
912 OnClick = ViewInfo
913 end
914 object mnuViewMyHealtheVet: TMenuItem
915 Tag = 4
916 Caption = 'MyHealthe&Vet...'
917 OnClick = ViewInfo
918 end
919 object mnuInsurance: TMenuItem
920 Tag = 5
921 Caption = '&Insurance...'
922 OnClick = ViewInfo
923 end
924 object mnuViewFlags: TMenuItem
925 Tag = 6
926 Caption = '&Flags...'
927 OnClick = ViewInfo
928 end
929 object mnuViewRemoteData: TMenuItem
930 Tag = 7
931 Caption = 'Remote &Data...'
932 OnClick = ViewInfo
933 end
934 object mnuViewReminders: TMenuItem
935 Tag = 8
936 Caption = '&Reminders...'
937 OnClick = ViewInfo
938 end
939 object mnuViewPostings: TMenuItem
940 Tag = 9
941 Caption = '&Postings...'
942 OnClick = ViewInfo
943 end
944 end
945 end
946 object mnuTools: TMenuItem
947 Caption = '&Tools'
948 GroupIndex = 8
949 OnClick = mnuToolsClick
950 object Z8: TMenuItem
951 Caption = '-'
952 end
953 object mnuToolsGraphing: TMenuItem
954 Caption = '&Graphing...'
955 ShortCut = 16455
956 OnClick = mnuToolsGraphingClick
957 end
958 object LabInfo1: TMenuItem
959 Caption = '&Lab Test Information...'
960 OnClick = LabInfo1Click
961 end
962 object mnuToolsOptions: TMenuItem
963 Caption = '&Options...'
964 OnClick = mnuToolsOptionsClick
965 end
966 end
967 object mnuHelp: TMenuItem
968 Caption = '&Help'
969 GroupIndex = 9
970 object mnuHelpContents: TMenuItem
971 Caption = '&Contents'
972 Hint = 'WinHlp32 cprs.hlp'
973 OnClick = ToolClick
974 end
975 object mnuHelpTutor: TMenuItem
976 Caption = '&Brief Tutorial'
977 Enabled = False
978 Visible = False
979 end
980 object Z5: TMenuItem
981 Caption = '-'
982 end
983 object mnuHelpBroker: TMenuItem
984 Caption = 'Last Broker Call'
985 OnClick = mnuHelpBrokerClick
986 end
987 object mnuHelpLists: TMenuItem
988 Caption = 'Show ListBox Data'
989 OnClick = mnuHelpListsClick
990 end
991 object mnuHelpSymbols: TMenuItem
992 Caption = 'Symbol Table'
993 OnClick = mnuHelpSymbolsClick
994 end
995 object Z6: TMenuItem
996 Caption = '-'
997 end
998 object mnuHelpAbout: TMenuItem
999 Caption = '&About CPRS'
1000 OnClick = mnuHelpAboutClick
1001 end
1002 end
1003 end
1004 object popCIRN: TPopupMenu
1005 Left = 539
1006 Top = 60
1007 object popCIRNSelectAll: TMenuItem
1008 Caption = 'Select All'
1009 OnClick = popCIRNSelectAllClick
1010 end
1011 object popCIRNSelectNone: TMenuItem
1012 Caption = 'Select None'
1013 OnClick = popCIRNSelectNoneClick
1014 end
1015 object popCIRNClose: TMenuItem
1016 Caption = 'Close List'
1017 OnClick = popCIRNCloseClick
1018 end
1019 end
1020 object OROpenDlg: TOpenDialog
1021 Filter = 'Exe file (*.exe)|*.exe'
1022 Left = 260
1023 Top = 257
1024 end
1025 object popAlerts: TPopupMenu
1026 AutoPopup = False
1027 Left = 320
1028 Top = 200
1029 object mnuAlertContinue: TMenuItem
1030 Caption = 'Continue'
1031 OnClick = mnuFileNextClick
1032 end
1033 object mnuAlertForward: TMenuItem
1034 Caption = 'Forward'
1035 OnClick = mnuAlertForwardClick
1036 end
1037 object mnuAlertRenew: TMenuItem
1038 Caption = 'Renew'
1039 OnClick = mnuAlertRenewClick
1040 end
1041 end
1042 object AppEvents: TApplicationEvents
1043 OnActivate = AppEventsActivate
1044 OnShortCut = AppEventsShortCut
1045 Left = 336
1046 Top = 256
1047 end
1048end
Note: See TracBrowser for help on using the repository browser.