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

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

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