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

Last change on this file since 1400 was 819, checked in by Kevin Toppenberg, 14 years ago

Fixed crash on non-login

File size: 37.6 KB
RevLine 
[453]1object frmFrame: TfrmFrame
[819]2 Left = 147
3 Top = 149
[453]4 Width = 684
5 Height = 487
6 Caption = 'p'
7 Color = clBtnFace
8 Font.Charset = DEFAULT_CHARSET
9 Font.Color = clWindowText
10 Font.Height = -11
11 Font.Name = 'MS Sans Serif'
12 Font.Style = []
13 FormStyle = fsMDIForm
14 KeyPreview = True
15 Menu = mnuFrame
16 OldCreateOrder = True
17 Visible = True
18 OnActivate = FormActivate
19 OnClose = FormClose
20 OnCloseQuery = FormCloseQuery
21 OnCreate = FormCreate
22 OnDestroy = FormDestroy
23 OnHelp = FormHelp
24 OnKeyDown = FormKeyDown
25 OnResize = FormResize
26 PixelsPerInch = 96
27 TextHeight = 13
28 object pnlNoPatientSelected: TPanel
29 Left = 0
30 Top = 0
31 Width = 676
32 Height = 433
33 Align = alClient
34 Caption = 'No patient is currently selected'
35 Font.Charset = DEFAULT_CHARSET
36 Font.Color = clWindowText
37 Font.Height = -19
38 Font.Name = 'MS Sans Serif'
39 Font.Style = []
40 ParentFont = False
41 TabOrder = 1
42 Visible = False
43 end
44 object pnlPatientSelected: TPanel
45 Left = 0
46 Top = 0
47 Width = 676
48 Height = 433
49 Align = alClient
50 TabOrder = 0
51 object bvlPageTop: TBevel
52 Left = 1
53 Top = 41
54 Width = 674
55 Height = 1
56 Align = alTop
57 end
58 object pnlToolbar: TPanel
59 Left = 1
60 Top = 1
61 Width = 674
62 Height = 40
63 Align = alTop
64 BevelOuter = bvNone
65 TabOrder = 0
66 object bvlToolTop: TBevel
67 Left = 0
68 Top = 0
69 Width = 674
70 Height = 1
71 Align = alTop
72 Style = bsRaised
73 end
74 object pnlCCOW: TPanel
75 Left = 0
76 Top = 1
77 Width = 39
78 Height = 39
79 Align = alLeft
80 BevelWidth = 2
81 ParentShowHint = False
82 ShowHint = True
83 TabOrder = 8
84 object imgCCOW: TImage
85 Left = 2
86 Top = 2
87 Width = 35
88 Height = 35
89 Align = alClient
90 Center = True
91 Picture.Data = {
92 07544269746D617052030000424D520300000000000052020000280000001000
93 000010000000010008000000000000010000120B0000120B0000870000008700
94 00003F3E3F003A393A007B351600BCB6B30082340900642700008D3F0D00985B
95 3400B19A8C00B5A59B008B3700008A3700008936000088360000873500008635
96 00008535000083340000813300007D3100007D3200007B3100007A3000007830
97 0000772F0000762F0000742E00006F2C00006E2B00006C2B00006A2A00006829
98 0000662800006528000061260000602600005C2400005B240000592300005823
99 0000562200008B3801008C3902008C3903008C3A04008C3B05008D3B06008D3C
100 07008E3E0A008F420F009045130090481900935025009B6440009F6D4C00A275
101 5800A6806700AA897300AD917F00B8AEA700053A0D00063B0E000C3F14000E41
102 16000A3C17002351360000007F0000007B000101800001017F00040480000707
103 820007078100080882000A0A82000D0D7200101085000E0E7200131386001313
104 7500171787001919880021218A0025258C0023237B002B2B8E002C2C8E002F2F
105 8F002C2C79003535840039398500FFFFFF00DFDFDF00BFBFBF00BEBEBE00BCBC
106 BC00BBBBBB00B9B9B900B8B8B800B7B7B700B4B4B400B2B2B200B1B1B100ACAC
107 AC00A9A9A900A7A7A700A6A6A600A4A4A400A2A2A2009F9F9F00989898009797
108 970094949400929292008F8F8F008C8C8C008B8B8B0089898900858585008484
109 840083838300818181007F7F7F007E7E7E007D7D7D007B7B7B007A7A7A007979
110 79007777770076767600747474000A0A0A000707070001010100000000005D04
111 868686865D868686865D5D5D5D5D5D865B5B5B5B865B5B5B5B865D5D5D5D865B
112 8686868686868686865B865D5D5D865B865D865D5D5D865D865B865D5D5D865B
113 8686868686868686865B865D5D5D0A865B5B5B5B865B5B5B5B865D5D5D5D0A0A
114 868686865D868686865D5D5D5D5D0A0A0A0A0A0A5D5D5D5D5D0C0C5D5D5D0A0A
115 0A0A0A0A5D5D5D5D5D0C0C5D5D5D0A0A0A0A0A0A5D5D5D5D5D5D5D5D5D5D5D29
116 0A0A0A5D5D5D5D5D5D0C0C5D5D5D5D5D0A0A5D5D5D5D5D5D5D0C0C0C5D5D5D0A
117 0A0A2F5D5D5D5D5D5D5D0C0C0C5D5D0A0A0A305D5D5D5D5D5D5D5D0C0C5D5D02
118 0A0A025D5D5D5D5D0C0C0C0C0C5D5D5D5D5D5D5D5D5D5D5D0C0C0C0C5D5D}
119 end
120 end
121 object pnlPatient: TKeyClickPanel
122 Left = 39
123 Top = 1
124 Width = 187
125 Height = 39
126 Hint = 'Click for more patient information.'
127 Align = alLeft
128 BevelWidth = 2
129 Color = clInfoBk
130 Font.Charset = DEFAULT_CHARSET
131 Font.Color = clInfoBk
132 Font.Height = -8
133 Font.Name = 'MS Sans Serif'
134 Font.Style = []
135 ParentFont = False
136 ParentShowHint = False
137 ShowHint = True
138 TabOrder = 0
139 TabStop = True
140 OnClick = pnlPatientClick
141 OnEnter = pnlPrimaryCareEnter
142 OnExit = pnlPrimaryCareExit
143 OnMouseDown = pnlPatientMouseDown
144 OnMouseUp = pnlPatientMouseUp
145 object lblPtName: TStaticText
146 Left = 6
147 Top = 4
148 Width = 118
149 Height = 17
150 Caption = 'No Patient Selected'
151 Font.Charset = ANSI_CHARSET
152 Font.Color = clInfoText
153 Font.Height = -12
154 Font.Name = 'MS Sans Serif'
155 Font.Style = [fsBold]
156 ParentFont = False
157 ParentShowHint = False
158 ShowHint = False
159 TabOrder = 0
160 OnClick = pnlPatientClick
161 OnMouseDown = pnlPatientMouseDown
162 OnMouseUp = pnlPatientMouseUp
163 end
164 object lblPtSSN: TStaticText
165 Left = 6
166 Top = 19
167 Width = 4
168 Height = 4
169 Font.Charset = DEFAULT_CHARSET
170 Font.Color = clInfoText
171 Font.Height = -11
172 Font.Name = 'MS Sans Serif'
173 Font.Style = []
174 ParentFont = False
175 ParentShowHint = False
176 ShowHint = False
177 TabOrder = 1
178 OnClick = pnlPatientClick
179 OnMouseDown = pnlPatientMouseDown
180 OnMouseUp = pnlPatientMouseUp
181 end
182 object lblPtAge: TStaticText
183 Left = 176
184 Top = 19
185 Width = 4
186 Height = 4
187 Alignment = taRightJustify
188 Font.Charset = DEFAULT_CHARSET
189 Font.Color = clInfoText
190 Font.Height = -11
191 Font.Name = 'MS Sans Serif'
192 Font.Style = []
193 ParentFont = False
194 ParentShowHint = False
195 ShowHint = False
196 TabOrder = 2
197 OnClick = pnlPatientClick
198 OnMouseDown = pnlPatientMouseDown
199 OnMouseUp = pnlPatientMouseUp
200 end
201 end
202 object pnlVisit: TKeyClickPanel
203 Left = 226
204 Top = 1
205 Width = 168
206 Height = 39
207 Hint = 'Click to change provider/location.'
208 Align = alLeft
209 BevelWidth = 2
210 Font.Charset = DEFAULT_CHARSET
211 Font.Color = clBtnFace
212 Font.Height = -11
213 Font.Name = 'MS Sans Serif'
214 Font.Style = []
215 ParentFont = False
216 ParentShowHint = False
217 ShowHint = True
218 TabOrder = 1
219 TabStop = True
220 OnClick = pnlVisitClick
221 OnEnter = pnlPrimaryCareEnter
222 OnExit = pnlPrimaryCareExit
223 OnMouseDown = pnlVisitMouseDown
224 OnMouseUp = pnlVisitMouseUp
225 object lblPtLocation: TStaticText
226 Left = 6
227 Top = 4
228 Width = 4
229 Height = 4
230 Font.Charset = DEFAULT_CHARSET
231 Font.Color = clWindowText
232 Font.Height = -12
233 Font.Name = 'MS Sans Serif'
234 Font.Style = [fsBold]
235 ParentFont = False
236 ParentShowHint = False
237 ShowAccelChar = False
238 ShowHint = False
239 TabOrder = 0
240 OnClick = pnlVisitClick
241 OnMouseDown = pnlVisitMouseDown
242 OnMouseUp = pnlVisitMouseUp
243 end
244 object lblPtProvider: TStaticText
245 Left = 6
246 Top = 19
247 Width = 4
248 Height = 4
249 Font.Charset = DEFAULT_CHARSET
250 Font.Color = clBtnText
251 Font.Height = -11
252 Font.Name = 'MS Sans Serif'
253 Font.Style = []
254 ParentFont = False
255 ParentShowHint = False
256 ShowHint = False
257 TabOrder = 1
258 OnClick = pnlVisitClick
259 OnMouseDown = pnlVisitMouseDown
260 OnMouseUp = pnlVisitMouseUp
261 end
262 end
263 object pnlPrimaryCare: TKeyClickPanel
264 Left = 394
265 Top = 1
266 Width = 31
267 Height = 39
268 Hint = 'Primary Care Team / Primary Care Provider'
269 Align = alClient
270 BevelWidth = 2
271 Font.Charset = DEFAULT_CHARSET
272 Font.Color = clBtnFace
273 Font.Height = -11
274 Font.Name = 'MS Sans Serif'
275 Font.Style = []
276 ParentFont = False
277 ParentShowHint = False
278 ShowHint = True
279 TabOrder = 2
280 TabStop = True
281 OnClick = pnlPrimaryCareClick
282 OnEnter = pnlPrimaryCareEnter
283 OnExit = pnlPrimaryCareExit
284 OnMouseDown = pnlPrimaryCareMouseDown
285 OnMouseUp = pnlPrimaryCareMouseUp
286 object lblPtCare: TStaticText
287 Left = 6
288 Top = 4
289 Width = 4
290 Height = 4
291 Font.Charset = DEFAULT_CHARSET
292 Font.Color = clBtnText
293 Font.Height = -11
294 Font.Name = 'MS Sans Serif'
295 Font.Style = []
296 ParentFont = False
297 ParentShowHint = False
298 ShowHint = False
299 TabOrder = 0
300 OnClick = pnlPrimaryCareClick
301 OnMouseDown = pnlPrimaryCareMouseDown
302 OnMouseUp = pnlPrimaryCareMouseUp
303 end
304 object lblPtAttending: TStaticText
305 Left = 6
306 Top = 19
307 Width = 4
308 Height = 4
309 Font.Charset = DEFAULT_CHARSET
310 Font.Color = clBtnText
311 Font.Height = -11
312 Font.Name = 'MS Sans Serif'
313 Font.Style = []
314 ParentFont = False
315 ParentShowHint = False
316 ShowHint = False
317 TabOrder = 1
318 OnClick = pnlPrimaryCareClick
319 OnMouseDown = pnlPrimaryCareMouseDown
320 OnMouseUp = pnlPrimaryCareMouseUp
321 end
322 end
323 object pnlCIRN: TKeyClickPanel
324 Left = 520
325 Top = 1
326 Width = 49
327 Height = 39
328 Align = alRight
329 BevelWidth = 2
330 Caption = 'Remote Data'
331 Font.Charset = DEFAULT_CHARSET
332 Font.Color = clBtnFace
333 Font.Height = -11
334 Font.Name = 'MS Sans Serif'
335 Font.Style = []
336 ParentFont = False
337 ParentShowHint = False
338 ShowHint = True
339 TabOrder = 5
340 OnClick = pnlCIRNClick
341 OnEnter = pnlPrimaryCareEnter
342 OnExit = pnlPrimaryCareExit
343 OnMouseDown = pnlCIRNMouseDown
344 OnMouseUp = pnlCIRNMouseUp
345 object lblCIRN: TLabel
346 Left = 2
347 Top = 2
348 Width = 45
349 Height = 13
350 Align = alTop
351 Alignment = taCenter
352 Caption = 'Remote'
353 Enabled = False
354 Font.Charset = DEFAULT_CHARSET
355 Font.Color = clBtnFace
356 Font.Height = -8
357 Font.Name = 'MS Sans Serif'
358 Font.Style = []
359 ParentFont = False
360 OnClick = pnlCIRNClick
361 end
362 object lblCIRNData: TLabel
363 Left = 2
364 Top = 15
365 Width = 45
366 Height = 13
367 Align = alTop
368 Alignment = taCenter
369 Caption = 'Data'
370 Enabled = False
371 Font.Charset = DEFAULT_CHARSET
372 Font.Color = clBtnFace
373 Font.Height = -8
374 Font.Name = 'MS Sans Serif'
375 Font.Style = []
376 ParentFont = False
377 OnClick = pnlCIRNClick
378 end
379 object lblCIRNAvail: TLabel
380 Left = 2
381 Top = 28
382 Width = 45
383 Height = 9
384 Align = alClient
385 Alignment = taCenter
386 Font.Charset = DEFAULT_CHARSET
387 Font.Color = clBtnFace
388 Font.Height = -8
389 Font.Name = 'MS Sans Serif'
390 Font.Style = []
391 ParentFont = False
392 OnClick = pnlCIRNClick
393 end
394 end
395 object pnlReminders: TKeyClickPanel
396 Left = 569
397 Top = 1
398 Width = 35
399 Height = 39
400 Align = alRight
401 BevelWidth = 2
402 Caption = 'Reminders'
403 Font.Charset = DEFAULT_CHARSET
404 Font.Color = clBtnFace
405 Font.Height = -11
406 Font.Name = 'MS Sans Serif'
407 Font.Style = []
408 ParentFont = False
409 ParentShowHint = False
410 ShowHint = True
411 TabOrder = 6
412 TabStop = True
413 OnClick = pnlRemindersClick
414 OnEnter = pnlPrimaryCareEnter
415 OnExit = pnlPrimaryCareExit
416 OnMouseDown = pnlRemindersMouseDown
417 OnMouseUp = pnlRemindersMouseUp
418 object imgReminder: TImage
419 Left = 2
420 Top = 2
421 Width = 31
422 Height = 35
423 Align = alClient
424 Center = True
425 OnMouseDown = pnlRemindersMouseDown
426 OnMouseUp = pnlRemindersMouseUp
427 end
428 object anmtRemSearch: TAnimate
429 Left = 2
430 Top = 2
431 Width = 31
432 Height = 35
433 Align = alClient
434 Visible = False
435 end
436 end
437 object pnlFlag: TKeyClickPanel
438 Left = 485
439 Top = 1
440 Width = 35
441 Height = 39
442 Hint = 'Click to display patient record flags.'
443 Align = alRight
444 BevelWidth = 2
445 Caption = 'Flag'
446 ParentShowHint = False
447 ShowHint = True
448 TabOrder = 4
449 TabStop = True
450 OnClick = pnlFlagClick
451 OnEnter = pnlFlagEnter
452 OnExit = pnlFlagExit
453 OnMouseDown = pnlFlagMouseDown
454 OnMouseUp = pnlFlagMouseUp
455 object lblFlag: TLabel
456 Left = 2
457 Top = 2
458 Width = 31
459 Height = 35
460 Align = alClient
461 Alignment = taCenter
462 Caption = 'Flag'
463 Enabled = False
464 Font.Charset = DEFAULT_CHARSET
465 Font.Color = clBtnFace
466 Font.Height = -11
467 Font.Name = 'MS Sans Serif'
468 Font.Style = [fsBold]
469 ParentFont = False
470 Layout = tlCenter
471 WordWrap = True
472 OnClick = pnlFlagClick
473 OnMouseDown = pnlFlagMouseDown
474 OnMouseUp = pnlFlagMouseUp
475 end
476 end
477 object pnlPostings: TKeyClickPanel
478 Left = 604
479 Top = 1
480 Width = 70
481 Height = 39
482 Hint = 'Click to display patient postings.'
483 Align = alRight
484 BevelWidth = 2
485 Font.Charset = DEFAULT_CHARSET
486 Font.Color = clBtnFace
487 Font.Height = -11
488 Font.Name = 'MS Sans Serif'
489 Font.Style = []
490 ParentFont = False
491 ParentShowHint = False
492 ShowHint = True
493 TabOrder = 7
494 TabStop = True
495 OnClick = pnlPostingsClick
496 OnEnter = pnlPrimaryCareEnter
497 OnExit = pnlPrimaryCareExit
498 OnMouseDown = pnlPostingsMouseDown
499 OnMouseUp = pnlPostingsMouseUp
500 object lblPtPostings: TStaticText
501 Left = 5
502 Top = 4
503 Width = 57
504 Height = 13
505 Alignment = taCenter
506 AutoSize = False
507 Caption = 'No Postings'
508 Font.Charset = DEFAULT_CHARSET
509 Font.Color = clBtnText
510 Font.Height = -11
511 Font.Name = 'MS Sans Serif'
512 Font.Style = []
513 ParentFont = False
514 ParentShowHint = False
515 ShowHint = False
516 TabOrder = 0
517 OnClick = pnlPostingsClick
518 OnMouseDown = pnlPostingsMouseDown
519 OnMouseUp = pnlPostingsMouseUp
520 end
521 object lblPtCWAD: TStaticText
522 Left = 6
523 Top = 19
524 Width = 57
525 Height = 13
526 Alignment = taCenter
527 AutoSize = False
528 Font.Charset = DEFAULT_CHARSET
529 Font.Color = clMaroon
530 Font.Height = -12
531 Font.Name = 'MS Sans Serif'
532 Font.Style = [fsBold]
533 ParentFont = False
534 ParentShowHint = False
535 ShowHint = False
536 TabOrder = 1
537 OnClick = pnlPostingsClick
538 OnMouseDown = pnlPostingsMouseDown
539 OnMouseUp = pnlPostingsMouseUp
540 end
541 end
542 object paVAA: TKeyClickPanel
543 Left = 425
544 Top = 1
545 Width = 60
546 Height = 39
547 Align = alRight
548 BevelOuter = bvNone
549 Font.Charset = DEFAULT_CHARSET
550 Font.Color = clBtnFace
551 Font.Height = -11
552 Font.Name = 'MS Sans Serif'
553 Font.Style = []
554 ParentFont = False
555 ParentShowHint = False
556 ShowHint = False
557 TabOrder = 3
558 Visible = False
559 DesignSize = (
560 60
561 39)
562 object laVAA2: TButton
563 Left = 0
564 Top = 19
565 Width = 59
566 Height = 20
567 Hint = 'Click to display patient insurance data'
568 Anchors = [akLeft, akTop, akRight, akBottom]
569 Caption = 'laVAA2'
570 ParentShowHint = False
571 ShowHint = True
572 TabOrder = 1
573 OnClick = laVAA2Click
574 end
575 object laMHV: TButton
576 Left = 0
577 Top = 1
578 Width = 59
579 Height = 18
580 Hint = 'Click to display MHV data'
581 Anchors = [akLeft, akTop, akRight, akBottom]
582 Caption = 'laMHV'
583 ParentShowHint = False
584 ShowHint = True
585 TabOrder = 0
586 OnClick = laMHVClick
587 end
588 end
589 end
590 object stsArea: TStatusBar
591 Left = 1
592 Top = 411
593 Width = 674
594 Height = 21
595 Panels = <
596 item
597 Width = 200
598 end
599 item
600 Width = 224
601 end
602 item
603 Style = psOwnerDraw
604 Width = 50
605 end
606 item
607 Width = 94
608 end
609 item
610 Width = 38
611 end
612 item
613 Width = 33
614 end>
615 PopupMenu = popAlerts
616 SizeGrip = False
617 OnMouseDown = stsAreaMouseDown
618 OnMouseUp = stsAreaMouseUp
619 OnDrawPanel = stsAreaDrawPanel
620 end
621 object tabPage: TTabControl
622 Left = 1
623 Top = 389
624 Width = 674
625 Height = 22
626 Align = alBottom
627 Font.Charset = DEFAULT_CHARSET
[667]628 Font.Color = clBlack
[453]629 Font.Height = -12
630 Font.Name = 'MS Sans Serif'
631 Font.Style = []
[473]632 OwnerDraw = True
[453]633 ParentFont = False
634 TabOrder = 1
635 TabPosition = tpBottom
636 OnChange = tabPageChange
[473]637 OnDrawTab = tabPageDrawTab
[453]638 OnMouseUp = tabPageMouseUp
639 end
640 object pnlPage: TPanel
641 Left = 1
642 Top = 42
643 Width = 674
644 Height = 347
645 Align = alClient
646 BevelOuter = bvNone
647 Font.Charset = DEFAULT_CHARSET
648 Font.Color = clWindowText
649 Font.Height = -12
650 Font.Name = 'MS Sans Serif'
651 Font.Style = []
652 ParentFont = False
653 TabOrder = 2
654 object lstCIRNLocations: TORListBox
655 Left = 424
656 Top = 0
657 Width = 209
658 Height = 78
659 TabStop = False
660 Style = lbOwnerDrawFixed
661 Font.Charset = DEFAULT_CHARSET
662 Font.Color = clBlue
663 Font.Height = -12
664 Font.Name = 'MS Sans Serif'
665 Font.Style = []
666 ItemHeight = 13
667 ParentFont = False
668 ParentShowHint = False
669 PopupMenu = popCIRN
670 ShowHint = False
671 TabOrder = 0
672 Visible = False
673 OnClick = lstCIRNLocationsClick
674 OnExit = lstCIRNLocationsExit
675 Caption = 'Remote Data'
676 ItemTipColor = clWindow
677 LongList = False
678 Pieces = '2,3,4'
679 TabPositions = '16'
680 OnChange = lstCIRNLocationsChange
681 RightClickSelect = True
682 CheckBoxes = True
683 CheckEntireLine = True
684 end
685 end
686 end
687 object mnuFrame: TMainMenu
688 Left = 180
689 Top = 128
690 object mnuFile: TMenuItem
691 Caption = '&File'
692 GroupIndex = 1
693 object mnuFileOpen: TMenuItem
694 Caption = 'Select &New Patient...'
695 OnClick = mnuFileOpenClick
696 end
697 object mnuFileRefresh: TMenuItem
698 Caption = 'Refresh Patient &Information'
699 OnClick = mnuFileRefreshClick
700 end
701 object EditDemographics: TMenuItem
702 Caption = 'Edit Patient &Demographics'
703 OnClick = EditDemographicsClick
704 end
705 object mnuFileResumeContext: TMenuItem
706 Caption = 'Rejoin patient link'
707 object mnuFileResumeContextSet: TMenuItem
708 Caption = 'Set new context'
709 OnClick = mnuFileResumeContextSetClick
710 end
711 object Useexistingcontext1: TMenuItem
712 Caption = 'Use existing context'
713 OnClick = mnuFileResumeContextGetClick
714 end
715 end
716 object mnuFileBreakContext: TMenuItem
717 Caption = 'Break patient link'
718 OnClick = mnuFileBreakContextClick
719 end
720 object mnuFileEncounter: TMenuItem
721 Caption = '&Update Provider / Location...'
722 OnClick = mnuFileEncounterClick
723 end
724 object mnuFileReview: TMenuItem
725 Caption = '&Review/Sign Changes...'
726 OnClick = mnuFileReviewClick
727 end
728 object Z7: TMenuItem
729 Caption = '-'
730 Visible = False
731 end
732 object mnuFileNext: TMenuItem
733 Caption = 'Next Noti&fication'
734 OnClick = mnuFileNextClick
735 end
736 object mnuFileNotifRemove: TMenuItem
737 Caption = 'Remo&ve Current Notification'
738 OnClick = mnuFileNotifRemoveClick
739 end
740 object Z1: TMenuItem
741 Caption = '-'
742 end
743 object mnuFilePrintSetup: TMenuItem
744 Caption = 'Print &Setup...'
745 Enabled = False
746 OnClick = mnuFilePrintSetupClick
747 end
748 object mnuFilePrintSelectedItems: TMenuItem
749 Caption = 'Print Selected Items'
750 Enabled = False
751 OnClick = mnuFilePrintSelectedItemsClick
752 end
753 object mnuFilePrint: TMenuItem
754 Caption = '&Print...'
755 Enabled = False
756 OnClick = mnuFilePrintClick
757 end
[729]758 object PrintLabels1: TMenuItem
759 Caption = 'Print Labels...'
760 OnClick = PrintLabels1Click
761 end
[453]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 = {
[729]1062 080066726D4672616D65010100000001000000070043617074696F6E01750000
[453]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
[729]1164 000000070043617074696F6E000C005072696E744C6162656C73310101000000
1165 5B000000070043617074696F6E00}
[453]1166 end
1167end
Note: See TracBrowser for help on using the repository browser.