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

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

Initial upload of TMG-CPRS 1.0.26.69
File size: 37.3 KB
RevLine 
[453]1object frmFrame: TfrmFrame
2 Left = 238
3 Top = 200
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
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 EditDemographics: TMenuItem
700 Caption = 'Edit Patient &Demographics'
701 OnClick = EditDemographicsClick
702 end
703 object mnuFileResumeContext: TMenuItem
704 Caption = 'Rejoin patient link'
705 object mnuFileResumeContextSet: TMenuItem
706 Caption = 'Set new context'
707 OnClick = mnuFileResumeContextSetClick
708 end
709 object Useexistingcontext1: TMenuItem
710 Caption = 'Use existing context'
711 OnClick = mnuFileResumeContextGetClick
712 end
713 end
714 object mnuFileBreakContext: TMenuItem
715 Caption = 'Break patient link'
716 OnClick = mnuFileBreakContextClick
717 end
718 object mnuFileEncounter: TMenuItem
719 Caption = '&Update Provider / Location...'
720 OnClick = mnuFileEncounterClick
721 end
722 object mnuFileReview: TMenuItem
723 Caption = '&Review/Sign Changes...'
724 OnClick = mnuFileReviewClick
725 end
726 object Z7: TMenuItem
727 Caption = '-'
728 Visible = False
729 end
730 object mnuFileNext: TMenuItem
731 Caption = 'Next Noti&fication'
732 OnClick = mnuFileNextClick
733 end
734 object mnuFileNotifRemove: TMenuItem
735 Caption = 'Remo&ve Current Notification'
736 OnClick = mnuFileNotifRemoveClick
737 end
738 object Z1: TMenuItem
739 Caption = '-'
740 end
741 object mnuFilePrintSetup: TMenuItem
742 Caption = 'Print &Setup...'
743 Enabled = False
744 OnClick = mnuFilePrintSetupClick
745 end
746 object mnuFilePrintSelectedItems: TMenuItem
747 Caption = 'Print Selected Items'
748 Enabled = False
749 OnClick = mnuFilePrintSelectedItemsClick
750 end
751 object mnuFilePrint: TMenuItem
752 Caption = '&Print...'
753 Enabled = False
754 OnClick = mnuFilePrintClick
755 end
756 object mnuFileExit: TMenuItem
757 Caption = 'E&xit'
758 OnClick = mnuFileExitClick
759 end
760 end
761 object mnuEdit: TMenuItem
762 Caption = '&Edit'
763 GroupIndex = 2
764 OnClick = mnuEditClick
765 object mnuEditUndo: TMenuItem
766 Caption = '&Undo'
767 ShortCut = 16474
768 OnClick = mnuEditUndoClick
769 end
770 object Z3: TMenuItem
771 Caption = '-'
772 end
773 object mnuEditCut: TMenuItem
774 Caption = 'Cu&t'
775 ShortCut = 16472
776 OnClick = mnuEditCutClick
777 end
778 object mnuEditCopy: TMenuItem
779 Caption = '&Copy'
780 ShortCut = 16451
781 OnClick = mnuEditCopyClick
782 end
783 object mnuEditPaste: TMenuItem
784 Caption = '&Paste'
785 ShortCut = 16470
786 OnClick = mnuEditPasteClick
787 end
788 object Z4: TMenuItem
789 Caption = '-'
790 end
791 object mnuEditPref: TMenuItem
792 Caption = 'P&references'
793 object Prefs1: TMenuItem
794 Caption = '&Fonts'
795 object mnu8pt: TMenuItem
796 Tag = 8
797 Caption = '8 pt'
798 RadioItem = True
799 OnClick = mnuFontSizeClick
800 end
801 object mnu10pt1: TMenuItem
802 Tag = 10
803 Caption = '10 pt'
804 RadioItem = True
805 OnClick = mnuFontSizeClick
806 end
807 object mnu12pt1: TMenuItem
808 Tag = 12
809 Caption = '12 pt'
810 RadioItem = True
811 OnClick = mnuFontSizeClick
812 end
813 object mnu14pt1: TMenuItem
814 Tag = 14
815 Caption = '14 pt'
816 RadioItem = True
817 OnClick = mnuFontSizeClick
818 end
819 object mnu18pt1: TMenuItem
820 Tag = 18
821 Caption = '18 pt'
822 RadioItem = True
823 OnClick = mnuFontSizeClick
824 end
825 object mnu24pt1: TMenuItem
826 Tag = 24
827 Caption = '24 pt'
828 RadioItem = True
829 OnClick = mnuFontSizeClick
830 end
831 end
832 end
833 end
834 object mnuView: TMenuItem
835 Caption = '&View'
836 GroupIndex = 3
837 object mnuViewChart: TMenuItem
838 Caption = 'Chart &Tab'
839 object mnuChartCover: TMenuItem
840 Tag = 1
841 Caption = 'Cover &Sheet'
842 ShortCut = 16467
843 OnClick = mnuChartTabClick
844 end
845 object mnuChartProbs: TMenuItem
846 Tag = 2
847 Caption = '&Problem List'
848 ShortCut = 16464
849 OnClick = mnuChartTabClick
850 end
851 object mnuChartMeds: TMenuItem
852 Tag = 3
853 Caption = '&Medications'
854 ShortCut = 16461
855 OnClick = mnuChartTabClick
856 end
857 object mnuChartOrders: TMenuItem
858 Tag = 4
859 Caption = '&Orders'
860 ShortCut = 16463
861 OnClick = mnuChartTabClick
862 end
863 object mnuChartNotes: TMenuItem
864 Tag = 6
865 Caption = 'Progress &Notes'
866 ShortCut = 16462
867 OnClick = mnuChartTabClick
868 end
869 object mnuChartCslts: TMenuItem
870 Tag = 7
871 Caption = 'Consul&ts'
872 ShortCut = 16468
873 OnClick = mnuChartTabClick
874 end
875 object mnuChartSurgery: TMenuItem
876 Tag = 11
877 Caption = 'S&urgery'
878 ShortCut = 16469
879 OnClick = mnuChartTabClick
880 end
881 object mnuChartDCSumm: TMenuItem
882 Tag = 8
883 Caption = '&Discharge Summaries'
884 ShortCut = 16452
885 OnClick = mnuChartTabClick
886 end
887 object mnuChartLabs: TMenuItem
888 Tag = 9
889 Caption = '&Laboratory'
890 ShortCut = 16460
891 OnClick = mnuChartTabClick
892 end
893 object mnuChartReports: TMenuItem
894 Tag = 10
895 Caption = '&Reports'
896 ShortCut = 16466
897 OnClick = mnuChartTabClick
898 end
899 end
900 object mnuViewInformation: TMenuItem
901 Caption = 'Information'
902 OnClick = mnuViewInformationClick
903 object mnuViewDemo: TMenuItem
904 Tag = 1
905 Caption = 'De&mographics...'
906 OnClick = ViewInfo
907 end
908 object mnuViewVisits: TMenuItem
909 Tag = 2
910 Caption = 'Visits/Pr&ovider...'
911 OnClick = ViewInfo
912 end
913 object mnuViewPrimaryCare: TMenuItem
914 Tag = 3
915 Caption = 'Primary &Care...'
916 OnClick = ViewInfo
917 end
918 object mnuViewMyHealtheVet: TMenuItem
919 Tag = 4
920 Caption = 'MyHealthe&Vet...'
921 OnClick = ViewInfo
922 end
923 object mnuInsurance: TMenuItem
924 Tag = 5
925 Caption = '&Insurance...'
926 OnClick = ViewInfo
927 end
928 object mnuViewFlags: TMenuItem
929 Tag = 6
930 Caption = '&Flags...'
931 OnClick = ViewInfo
932 end
933 object mnuViewRemoteData: TMenuItem
934 Tag = 7
935 Caption = 'Remote &Data...'
936 OnClick = ViewInfo
937 end
938 object mnuViewReminders: TMenuItem
939 Tag = 8
940 Caption = '&Reminders...'
941 OnClick = ViewInfo
942 end
943 object mnuViewPostings: TMenuItem
944 Tag = 9
945 Caption = '&Postings...'
946 OnClick = ViewInfo
947 end
948 end
949 end
950 object mnuTools: TMenuItem
951 Caption = '&Tools'
952 GroupIndex = 8
953 OnClick = mnuToolsClick
954 object Z8: TMenuItem
955 Caption = '-'
956 end
957 object mnuToolsGraphing: TMenuItem
958 Caption = '&Graphing...'
959 ShortCut = 16455
960 OnClick = mnuToolsGraphingClick
961 end
962 object LabInfo1: TMenuItem
963 Caption = '&Lab Test Information...'
964 OnClick = LabInfo1Click
965 end
966 object mnuToolsOptions: TMenuItem
967 Caption = '&Options...'
968 OnClick = mnuToolsOptionsClick
969 end
970 end
971 object mnuHelp: TMenuItem
972 Caption = '&Help'
973 GroupIndex = 9
974 object mnuHelpContents: TMenuItem
975 Caption = '&Contents'
976 Hint = 'WinHlp32 cprs.hlp'
977 OnClick = ToolClick
978 end
979 object mnuHelpTutor: TMenuItem
980 Caption = '&Brief Tutorial'
981 Enabled = False
982 Visible = False
983 end
984 object Z5: TMenuItem
985 Caption = '-'
986 end
987 object mnuHelpBroker: TMenuItem
988 Caption = 'Last Broker Call'
989 OnClick = mnuHelpBrokerClick
990 end
991 object mnuHelpLists: TMenuItem
992 Caption = 'Show ListBox Data'
993 OnClick = mnuHelpListsClick
994 end
995 object mnuHelpSymbols: TMenuItem
996 Caption = 'Symbol Table'
997 OnClick = mnuHelpSymbolsClick
998 end
999 object Z6: TMenuItem
1000 Caption = '-'
1001 end
1002 object mnuHelpAbout: TMenuItem
1003 Caption = '&About CPRS'
1004 OnClick = mnuHelpAboutClick
1005 end
1006 end
1007 end
1008 object popCIRN: TPopupMenu
1009 Left = 539
1010 Top = 60
1011 object popCIRNSelectAll: TMenuItem
1012 Caption = 'Select All'
1013 OnClick = popCIRNSelectAllClick
1014 end
1015 object popCIRNSelectNone: TMenuItem
1016 Caption = 'Select None'
1017 OnClick = popCIRNSelectNoneClick
1018 end
1019 object popCIRNClose: TMenuItem
1020 Caption = 'Close List'
1021 OnClick = popCIRNCloseClick
1022 end
1023 end
1024 object OROpenDlg: TOpenDialog
1025 Filter = 'Exe file (*.exe)|*.exe'
1026 Left = 260
1027 Top = 257
1028 end
1029 object popAlerts: TPopupMenu
1030 AutoPopup = False
1031 Left = 320
1032 Top = 200
1033 object mnuAlertContinue: TMenuItem
1034 Caption = 'Continue'
1035 OnClick = mnuFileNextClick
1036 end
1037 object mnuAlertForward: TMenuItem
1038 Caption = 'Forward'
1039 OnClick = mnuAlertForwardClick
1040 end
1041 object mnuAlertRenew: TMenuItem
1042 Caption = 'Renew'
1043 OnClick = mnuAlertRenewClick
1044 end
1045 end
1046 object AppEvents: TApplicationEvents
1047 OnActivate = AppEventsActivate
1048 OnShortCut = AppEventsShortCut
1049 Left = 336
1050 Top = 256
1051 end
1052 object DKLanguageController1: TDKLanguageController
1053 Left = 281
1054 Top = 66
1055 LangData = {
1056 080066726D4672616D65010100000001000000070043617074696F6E01740000
1057 001400706E6C4E6F50617469656E7453656C6563746564010100000002000000
1058 070043617074696F6E001200706E6C50617469656E7453656C65637465640000
1059 0A0062766C50616765546F7000000A00706E6C546F6F6C62617200000A006276
1060 6C546F6F6C546F7000000700706E6C43434F5700000700696D6743434F570000
1061 0A00706E6C50617469656E74010100000003000000040048696E740009006C62
1062 6C50744E616D65010100000004000000070043617074696F6E0008006C626C50
1063 7453534E000008006C626C507441676500000800706E6C566973697401010000
1064 0005000000040048696E74000D006C626C50744C6F636174696F6E00000D006C
1065 626C507450726F766964657200000E00706E6C5072696D617279436172650101
1066 00000006000000040048696E740009006C626C50744361726500000E006C626C
1067 5074417474656E64696E6700000700706E6C4349524E01010000000700000007
1068 0043617074696F6E0007006C626C4349524E0101000000080000000700436170
1069 74696F6E000B006C626C4349524E446174610101000000090000000700436170
1070 74696F6E000C006C626C4349524E417661696C00000C00706E6C52656D696E64
1071 65727301010000000A000000070043617074696F6E000B00696D6752656D696E
1072 64657200000D00616E6D7452656D53656172636800000700706E6C466C616701
1073 020000000C000000070043617074696F6E0B000000040048696E740007006C62
1074 6C466C616701010000000D000000070043617074696F6E000B00706E6C506F73
1075 74696E677301010000000E000000040048696E74000D006C626C5074506F7374
1076 696E677301010000000F000000070043617074696F6E0009006C626C50744357
1077 4144000005007061564141000006006C61564141320102000000110000000700
1078 43617074696F6E10000000040048696E740005006C614D485601020000001300
1079 0000070043617074696F6E12000000040048696E740007007374734172656100
1080 0007007461625061676500000700706E6C50616765000010006C73744349524E
1081 4C6F636174696F6E73010100000014000000070043617074696F6E0008006D6E
1082 754672616D65000007006D6E7546696C65010100000015000000070043617074
1083 696F6E000B006D6E7546696C654F70656E010100000016000000070043617074
1084 696F6E000E006D6E7546696C6552656672657368010100000017000000070043
1085 617074696F6E0014006D6E7546696C65526573756D65436F6E74657874010100
1086 000018000000070043617074696F6E0017006D6E7546696C65526573756D6543
1087 6F6E74657874536574010100000019000000070043617074696F6E0013005573
1088 656578697374696E67636F6E746578743101010000001A000000070043617074
1089 696F6E0013006D6E7546696C65427265616B436F6E7465787401010000001B00
1090 0000070043617074696F6E0010006D6E7546696C65456E636F756E7465720101
1091 0000001C000000070043617074696F6E000D006D6E7546696C65526576696577
1092 01010000001D000000070043617074696F6E0002005A3700000B006D6E754669
1093 6C654E65787401010000001E000000070043617074696F6E0012006D6E754669
1094 6C654E6F74696652656D6F766501010000001F000000070043617074696F6E00
1095 02005A31000011006D6E7546696C655072696E74536574757001010000002000
1096 0000070043617074696F6E0019006D6E7546696C655072696E7453656C656374
1097 65644974656D73010100000021000000070043617074696F6E000C006D6E7546
1098 696C655072696E74010100000022000000070043617074696F6E000B006D6E75
1099 46696C6545786974010100000023000000070043617074696F6E0007006D6E75
1100 45646974010100000024000000070043617074696F6E000B006D6E7545646974
1101 556E646F010100000025000000070043617074696F6E0002005A3300000A006D
1102 6E7545646974437574010100000026000000070043617074696F6E000B006D6E
1103 7545646974436F7079010100000027000000070043617074696F6E000C006D6E
1104 75456469745061737465010100000028000000070043617074696F6E0002005A
1105 3400000B006D6E75456469745072656601010000002900000007004361707469
1106 6F6E00060050726566733101010000002A000000070043617074696F6E000600
1107 6D6E7538707401010000002B000000070043617074696F6E0008006D6E753130
1108 70743101010000002C000000070043617074696F6E0008006D6E753132707431
1109 01010000002D000000070043617074696F6E0008006D6E753134707431010100
1110 00002E000000070043617074696F6E0008006D6E75313870743101010000002F
1111 000000070043617074696F6E0008006D6E753234707431010100000030000000
1112 070043617074696F6E0007006D6E755669657701010000003100000007004361
1113 7074696F6E000C006D6E75566965774368617274010100000032000000070043
1114 617074696F6E000D006D6E754368617274436F76657201010000003300000007
1115 0043617074696F6E000D006D6E75436861727450726F62730101000000340000
1116 00070043617074696F6E000C006D6E7543686172744D65647301010000003500
1117 0000070043617074696F6E000E006D6E7543686172744F726465727301010000
1118 0036000000070043617074696F6E000D006D6E7543686172744E6F7465730101
1119 00000037000000070043617074696F6E000D006D6E75436861727443736C7473
1120 010100000038000000070043617074696F6E000F006D6E754368617274537572
1121 67657279010100000039000000070043617074696F6E000E006D6E7543686172
1122 74444353756D6D01010000003A000000070043617074696F6E000C006D6E7543
1123 686172744C61627301010000003B000000070043617074696F6E000F006D6E75
1124 43686172745265706F72747301010000003C000000070043617074696F6E0012
1125 006D6E7556696577496E666F726D6174696F6E01010000003D00000007004361
1126 7074696F6E000B006D6E755669657744656D6F01010000003E00000007004361
1127 7074696F6E000D006D6E755669657756697369747301010000003F0000000700
1128 43617074696F6E0012006D6E75566965775072696D6172794361726501010000
1129 0040000000070043617074696F6E0013006D6E75566965774D794865616C7468
1130 65566574010100000041000000070043617074696F6E000C006D6E75496E7375
1131 72616E6365010100000042000000070043617074696F6E000C006D6E75566965
1132 77466C616773010100000043000000070043617074696F6E0011006D6E755669
1133 657752656D6F746544617461010100000044000000070043617074696F6E0010
1134 006D6E755669657752656D696E64657273010100000045000000070043617074
1135 696F6E000F006D6E7556696577506F7374696E67730101000000460000000700
1136 43617074696F6E0008006D6E75546F6F6C730101000000470000000700436170
1137 74696F6E0002005A38000010006D6E75546F6F6C734772617068696E67010100
1138 000048000000070043617074696F6E0008004C6162496E666F31010100000049
1139 000000070043617074696F6E000F006D6E75546F6F6C734F7074696F6E730101
1140 0000004A000000070043617074696F6E0007006D6E7548656C7001010000004B
1141 000000070043617074696F6E000F006D6E7548656C70436F6E74656E74730102
1142 0000004C000000070043617074696F6E4D000000040048696E74000C006D6E75
1143 48656C705475746F7201010000004E000000070043617074696F6E0002005A35
1144 00000D006D6E7548656C7042726F6B657201010000004F000000070043617074
1145 696F6E000C006D6E7548656C704C697374730101000000500000000700436170
1146 74696F6E000E006D6E7548656C7053796D626F6C730101000000510000000700
1147 43617074696F6E0002005A3600000C006D6E7548656C7041626F757401010000
1148 0052000000070043617074696F6E000700706F704349524E00001000706F7043
1149 49524E53656C656374416C6C010100000053000000070043617074696F6E0011
1150 00706F704349524E53656C6563744E6F6E650101000000540000000700436170
1151 74696F6E000C00706F704349524E436C6F736501010000005500000007004361
1152 7074696F6E0009004F524F70656E446C67010100000056000000060046696C74
1153 6572000900706F70416C65727473000010006D6E75416C657274436F6E74696E
1154 7565010100000057000000070043617074696F6E000F006D6E75416C65727446
1155 6F7277617264010100000058000000070043617074696F6E000D006D6E75416C
1156 65727452656E6577010100000059000000070043617074696F6E000900417070
1157 4576656E7473000010004564697444656D6F677261706869637301010000005A
1158 000000070043617074696F6E00}
1159 end
1160end
Note: See TracBrowser for help on using the repository browser.