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

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

Adding foia-cprs branch
File size: 26.3 KB
Line 
1object frmFrame: TfrmFrame
2 Left = 145
3 Top = 191
4 Width = 684
5 Height = 487
6 Caption = 'CPRS Frame'
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 = 441
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 = 441
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 = 24
78 Height = 39
79 Align = alLeft
80 BevelWidth = 2
81 ParentShowHint = False
82 ShowHint = True
83 TabOrder = 7
84 object imgCCOW: TImage
85 Left = 2
86 Top = 2
87 Width = 20
88 Height = 35
89 Align = alLeft
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 = 24
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
204 Left = 211
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
265 Left = 379
266 Top = 1
267 Width = 104
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
325 Left = 518
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
340 TabOrder = 4
341 OnClick = pnlCIRNClick
342 OnEnter = pnlPrimaryCareEnter
343 OnExit = pnlPrimaryCareExit
344 object lblCIRN: TLabel
345 Left = 3
346 Top = 4
347 Width = 37
348 Height = 13
349 Caption = 'Remote'
350 Enabled = False
351 OnClick = pnlCIRNClick
352 end
353 object lblCIRNData: TLabel
354 Left = 11
355 Top = 22
356 Width = 23
357 Height = 13
358 Caption = 'Data'
359 Enabled = False
360 OnClick = pnlCIRNClick
361 end
362 end
363 object pnlReminders: TKeyClickPanel
364 Left = 567
365 Top = 1
366 Width = 35
367 Height = 39
368 Align = alRight
369 BevelWidth = 2
370 Caption = 'Reminders'
371 Font.Charset = DEFAULT_CHARSET
372 Font.Color = clBtnFace
373 Font.Height = -11
374 Font.Name = 'MS Sans Serif'
375 Font.Style = []
376 ParentFont = False
377 ParentShowHint = False
378 ShowHint = True
379 TabOrder = 5
380 TabStop = True
381 OnClick = pnlRemindersClick
382 OnEnter = pnlPrimaryCareEnter
383 OnExit = pnlPrimaryCareExit
384 OnMouseDown = pnlRemindersMouseDown
385 OnMouseUp = pnlRemindersMouseUp
386 object imgReminder: TImage
387 Left = 2
388 Top = 2
389 Width = 31
390 Height = 35
391 Align = alClient
392 Center = True
393 OnMouseDown = pnlRemindersMouseDown
394 OnMouseUp = pnlRemindersMouseUp
395 end
396 object anmtRemSearch: TAnimate
397 Left = 2
398 Top = 2
399 Width = 31
400 Height = 35
401 Align = alClient
402 Active = False
403 Visible = False
404 end
405 end
406 object pnlFlag: TKeyClickPanel
407 Left = 483
408 Top = 1
409 Width = 35
410 Height = 39
411 Hint = 'Click to display patient record flags.'
412 Align = alRight
413 BevelWidth = 2
414 Caption = 'Flag'
415 ParentShowHint = False
416 ShowHint = True
417 TabOrder = 3
418 TabStop = True
419 OnClick = pnlFlagClick
420 OnEnter = pnlFlagEnter
421 OnExit = pnlFlagExit
422 OnMouseDown = pnlFlagMouseDown
423 OnMouseUp = pnlFlagMouseUp
424 object lblFlag: TLabel
425 Left = 2
426 Top = 2
427 Width = 31
428 Height = 35
429 Align = alClient
430 Alignment = taCenter
431 Caption = 'Flag'
432 Enabled = False
433 Font.Charset = DEFAULT_CHARSET
434 Font.Color = clBtnFace
435 Font.Height = -11
436 Font.Name = 'MS Sans Serif'
437 Font.Style = [fsBold]
438 ParentFont = False
439 Layout = tlCenter
440 WordWrap = True
441 OnClick = pnlFlagClick
442 OnMouseDown = pnlFlagMouseDown
443 OnMouseUp = pnlFlagMouseUp
444 end
445 end
446 object pnlPostings: TKeyClickPanel
447 Left = 602
448 Top = 1
449 Width = 72
450 Height = 39
451 Hint = 'Click to display patient postings.'
452 Align = alRight
453 BevelWidth = 2
454 Font.Charset = DEFAULT_CHARSET
455 Font.Color = clBtnFace
456 Font.Height = -11
457 Font.Name = 'MS Sans Serif'
458 Font.Style = []
459 ParentFont = False
460 ParentShowHint = False
461 ShowHint = True
462 TabOrder = 6
463 TabStop = True
464 OnClick = pnlPostingsClick
465 OnEnter = pnlPrimaryCareEnter
466 OnExit = pnlPrimaryCareExit
467 OnMouseDown = pnlPostingsMouseDown
468 OnMouseUp = pnlPostingsMouseUp
469 object lblPtPostings: TStaticText
470 Left = 6
471 Top = 4
472 Width = 57
473 Height = 13
474 Alignment = taCenter
475 AutoSize = False
476 Caption = 'No Postings'
477 Font.Charset = DEFAULT_CHARSET
478 Font.Color = clBtnText
479 Font.Height = -11
480 Font.Name = 'MS Sans Serif'
481 Font.Style = []
482 ParentFont = False
483 ParentShowHint = False
484 ShowHint = False
485 TabOrder = 0
486 OnClick = pnlPostingsClick
487 OnMouseDown = pnlPostingsMouseDown
488 OnMouseUp = pnlPostingsMouseUp
489 end
490 object lblPtCWAD: TStaticText
491 Left = 6
492 Top = 19
493 Width = 57
494 Height = 13
495 Alignment = taCenter
496 AutoSize = False
497 Font.Charset = DEFAULT_CHARSET
498 Font.Color = clMaroon
499 Font.Height = -12
500 Font.Name = 'MS Sans Serif'
501 Font.Style = [fsBold]
502 ParentFont = False
503 ParentShowHint = False
504 ShowHint = False
505 TabOrder = 1
506 OnClick = pnlPostingsClick
507 OnMouseDown = pnlPostingsMouseDown
508 OnMouseUp = pnlPostingsMouseUp
509 end
510 end
511 end
512 object stsArea: TStatusBar
513 Left = 1
514 Top = 419
515 Width = 674
516 Height = 21
517 Panels = <
518 item
519 Width = 200
520 end
521 item
522 Width = 224
523 end
524 item
525 Style = psOwnerDraw
526 Width = 50
527 end
528 item
529 Width = 94
530 end
531 item
532 Width = 38
533 end
534 item
535 Width = 33
536 end>
537 PopupMenu = popAlerts
538 SimplePanel = False
539 SizeGrip = False
540 OnMouseDown = stsAreaMouseDown
541 OnMouseUp = stsAreaMouseUp
542 OnDrawPanel = stsAreaDrawPanel
543 end
544 object tabPage: TTabControl
545 Left = 1
546 Top = 397
547 Width = 674
548 Height = 22
549 Align = alBottom
550 Font.Charset = DEFAULT_CHARSET
551 Font.Color = clWindowText
552 Font.Height = -12
553 Font.Name = 'MS Sans Serif'
554 Font.Style = []
555 ParentFont = False
556 TabOrder = 1
557 TabPosition = tpBottom
558 OnChange = tabPageChange
559 OnMouseUp = tabPageMouseUp
560 end
561 object pnlPage: TPanel
562 Left = 1
563 Top = 42
564 Width = 674
565 Height = 355
566 Align = alClient
567 BevelOuter = bvNone
568 Font.Charset = DEFAULT_CHARSET
569 Font.Color = clWindowText
570 Font.Height = -12
571 Font.Name = 'MS Sans Serif'
572 Font.Style = []
573 ParentFont = False
574 TabOrder = 2
575 object lstCIRNLocations: TORListBox
576 Left = 424
577 Top = 0
578 Width = 209
579 Height = 78
580 TabStop = False
581 Style = lbOwnerDrawFixed
582 Font.Charset = DEFAULT_CHARSET
583 Font.Color = clBlue
584 Font.Height = -12
585 Font.Name = 'MS Sans Serif'
586 Font.Style = []
587 ItemHeight = 13
588 ParentFont = False
589 ParentShowHint = False
590 PopupMenu = popCIRN
591 ShowHint = False
592 TabOrder = 0
593 Visible = False
594 OnClick = lstCIRNLocationsClick
595 OnExit = lstCIRNLocationsExit
596 Caption = 'Remote Data'
597 ItemTipColor = clWindow
598 LongList = False
599 Pieces = '2,3,4'
600 TabPositions = '16'
601 OnChange = lstCIRNLocationsChange
602 RightClickSelect = True
603 CheckBoxes = True
604 CheckEntireLine = True
605 end
606 end
607 end
608 object mnuFrame: TMainMenu
609 Left = 68
610 Top = 120
611 object mnuFile: TMenuItem
612 Caption = '&File'
613 GroupIndex = 1
614 object mnuFileOpen: TMenuItem
615 Caption = 'Select &New Patient...'
616 OnClick = mnuFileOpenClick
617 end
618 object mnuFileRefresh: TMenuItem
619 Caption = 'Refresh Patient &Information'
620 OnClick = mnuFileRefreshClick
621 end
622 object mnuFileResumeContext: TMenuItem
623 Caption = 'Rejoin patient link'
624 object mnuFileResumeContextSet: TMenuItem
625 Caption = 'Set new context'
626 OnClick = mnuFileResumeContextSetClick
627 end
628 object Useexistingcontext1: TMenuItem
629 Caption = 'Use existing context'
630 OnClick = mnuFileResumeContextGetClick
631 end
632 end
633 object mnuFileBreakContext: TMenuItem
634 Caption = 'Break patient link'
635 OnClick = mnuFileBreakContextClick
636 end
637 object mnuFileEncounter: TMenuItem
638 Caption = '&Update Provider / Location...'
639 OnClick = mnuFileEncounterClick
640 end
641 object mnuFileReview: TMenuItem
642 Caption = '&Review/Sign Changes...'
643 OnClick = mnuFileReviewClick
644 end
645 object Z7: TMenuItem
646 Caption = '-'
647 Visible = False
648 end
649 object mnuFileNext: TMenuItem
650 Caption = 'Next Noti&fication'
651 OnClick = mnuFileNextClick
652 end
653 object mnuFileNotifRemove: TMenuItem
654 Caption = 'Remo&ve Current Notification'
655 OnClick = mnuFileNotifRemoveClick
656 end
657 object Z1: TMenuItem
658 Caption = '-'
659 end
660 object mnuFilePrintSetup: TMenuItem
661 Caption = 'Print &Setup...'
662 Enabled = False
663 OnClick = mnuFilePrintSetupClick
664 end
665 object mnuFilePrintSelectedItems: TMenuItem
666 Caption = 'Print Selected Items'
667 Enabled = False
668 OnClick = mnuFilePrintSelectedItemsClick
669 end
670 object mnuFilePrint: TMenuItem
671 Caption = '&Print...'
672 Enabled = False
673 OnClick = mnuFilePrintClick
674 end
675 object mnuFileExit: TMenuItem
676 Caption = 'E&xit'
677 OnClick = mnuFileExitClick
678 end
679 end
680 object mnuEdit: TMenuItem
681 Caption = '&Edit'
682 GroupIndex = 2
683 OnClick = mnuEditClick
684 object mnuEditUndo: TMenuItem
685 Caption = '&Undo'
686 ShortCut = 16474
687 OnClick = mnuEditUndoClick
688 end
689 object Z3: TMenuItem
690 Caption = '-'
691 end
692 object mnuEditCut: TMenuItem
693 Caption = 'Cu&t'
694 ShortCut = 16472
695 OnClick = mnuEditCutClick
696 end
697 object mnuEditCopy: TMenuItem
698 Caption = '&Copy'
699 ShortCut = 16451
700 OnClick = mnuEditCopyClick
701 end
702 object mnuEditPaste: TMenuItem
703 Caption = '&Paste'
704 ShortCut = 16470
705 OnClick = mnuEditPasteClick
706 end
707 object Z4: TMenuItem
708 Caption = '-'
709 end
710 object mnuEditPref: TMenuItem
711 Caption = 'P&references'
712 object Prefs1: TMenuItem
713 Caption = '&Fonts'
714 object mnu8pt: TMenuItem
715 Tag = 8
716 Caption = '8 pt'
717 OnClick = mnuFontSizeClick
718 end
719 object mnu10pt1: TMenuItem
720 Tag = 10
721 Caption = '10 pt'
722 OnClick = mnuFontSizeClick
723 end
724 object mnu12pt1: TMenuItem
725 Tag = 12
726 Caption = '12 pt'
727 OnClick = mnuFontSizeClick
728 end
729 object mnu14pt1: TMenuItem
730 Tag = 14
731 Caption = '14 pt'
732 OnClick = mnuFontSizeClick
733 end
734 object mnu18pt1: TMenuItem
735 Tag = 18
736 Caption = '18 pt'
737 OnClick = mnuFontSizeClick
738 end
739 object mnu24pt1: TMenuItem
740 Tag = 24
741 Caption = '24 pt'
742 OnClick = mnuFontSizeClick
743 end
744 end
745 end
746 end
747 object mnuView: TMenuItem
748 Caption = '&View'
749 GroupIndex = 3
750 object mnuViewChart: TMenuItem
751 Caption = 'Chart &Tab'
752 object mnuChartCover: TMenuItem
753 Tag = 1
754 Caption = 'Cover &Sheet'
755 ShortCut = 16467
756 OnClick = mnuChartTabClick
757 end
758 object mnuChartProbs: TMenuItem
759 Tag = 2
760 Caption = '&Problem List'
761 ShortCut = 16464
762 OnClick = mnuChartTabClick
763 end
764 object mnuChartMeds: TMenuItem
765 Tag = 3
766 Caption = '&Medications'
767 ShortCut = 16461
768 OnClick = mnuChartTabClick
769 end
770 object mnuChartOrders: TMenuItem
771 Tag = 4
772 Caption = '&Orders'
773 ShortCut = 16463
774 OnClick = mnuChartTabClick
775 end
776 object mnuChartNotes: TMenuItem
777 Tag = 6
778 Caption = 'Progress &Notes'
779 ShortCut = 16462
780 OnClick = mnuChartTabClick
781 end
782 object mnuChartCslts: TMenuItem
783 Tag = 7
784 Caption = 'Consul&ts'
785 ShortCut = 16468
786 OnClick = mnuChartTabClick
787 end
788 object mnuChartSurgery: TMenuItem
789 Tag = 11
790 Caption = 'S&urgery'
791 ShortCut = 16469
792 OnClick = mnuChartTabClick
793 end
794 object mnuChartDCSumm: TMenuItem
795 Tag = 8
796 Caption = '&Discharge Summaries'
797 ShortCut = 16452
798 OnClick = mnuChartTabClick
799 end
800 object mnuChartLabs: TMenuItem
801 Tag = 9
802 Caption = '&Laboratory'
803 ShortCut = 16460
804 OnClick = mnuChartTabClick
805 end
806 object mnuChartReports: TMenuItem
807 Tag = 10
808 Caption = '&Reports'
809 ShortCut = 16466
810 OnClick = mnuChartTabClick
811 end
812 end
813 object mnuViewDemo: TMenuItem
814 Caption = 'De&mographics'
815 OnClick = mnuViewDemoClick
816 end
817 object mnuViewPostings: TMenuItem
818 Caption = '&Postings'
819 OnClick = mnuViewPostingsClick
820 end
821 object mnuViewReminders: TMenuItem
822 Caption = '&Reminders'
823 Enabled = False
824 OnClick = mnuViewRemindersClick
825 end
826 end
827 object mnuTools: TMenuItem
828 Caption = '&Tools'
829 GroupIndex = 8
830 OnClick = mnuToolsClick
831 object Z8: TMenuItem
832 Caption = '-'
833 end
834 object LabInfo1: TMenuItem
835 Caption = '&Lab Test Information...'
836 OnClick = LabInfo1Click
837 end
838 object mnuToolsOptions: TMenuItem
839 Caption = 'Options...'
840 OnClick = mnuToolsOptionsClick
841 end
842 end
843 object mnuHelp: TMenuItem
844 Caption = '&Help'
845 GroupIndex = 9
846 object mnuHelpContents: TMenuItem
847 Caption = '&Contents'
848 Hint = 'WinHlp32 cprs.hlp'
849 OnClick = ToolClick
850 end
851 object mnuHelpTutor: TMenuItem
852 Caption = '&Brief Tutorial'
853 Enabled = False
854 Visible = False
855 end
856 object Z5: TMenuItem
857 Caption = '-'
858 end
859 object mnuHelpBroker: TMenuItem
860 Caption = 'Last Broker Call'
861 OnClick = mnuHelpBrokerClick
862 end
863 object mnuHelpLists: TMenuItem
864 Caption = 'Show ListBox Data'
865 OnClick = mnuHelpListsClick
866 end
867 object mnuHelpSymbols: TMenuItem
868 Caption = 'Symbol Table'
869 OnClick = mnuHelpSymbolsClick
870 end
871 object Z6: TMenuItem
872 Caption = '-'
873 end
874 object mnuHelpAbout: TMenuItem
875 Caption = '&About CPRS'
876 OnClick = mnuHelpAboutClick
877 end
878 end
879 end
880 object popCIRN: TPopupMenu
881 Left = 539
882 Top = 60
883 object popCIRNSelectAll: TMenuItem
884 Caption = 'Select All'
885 OnClick = popCIRNSelectAllClick
886 end
887 object popCIRNSelectNone: TMenuItem
888 Caption = 'Select None'
889 OnClick = popCIRNSelectNoneClick
890 end
891 object popCIRNClose: TMenuItem
892 Caption = 'Close List'
893 OnClick = popCIRNCloseClick
894 end
895 end
896 object OROpenDlg: TOpenDialog
897 Filter = 'Exe file (*.exe)|*.exe'
898 Left = 460
899 Top = 369
900 end
901 object popAlerts: TPopupMenu
902 AutoPopup = False
903 Left = 440
904 Top = 416
905 object mnuAlertContinue: TMenuItem
906 Caption = 'Continue'
907 OnClick = mnuFileNextClick
908 end
909 object mnuAlertForward: TMenuItem
910 Caption = 'Forward'
911 OnClick = mnuAlertForwardClick
912 end
913 object mnuAlertRenew: TMenuItem
914 Caption = 'Renew'
915 OnClick = mnuAlertRenewClick
916 end
917 end
918 object AppEvents: TApplicationEvents
919 OnActivate = AppEventsActivate
920 Left = 496
921 Top = 368
922 end
923end
Note: See TracBrowser for help on using the repository browser.