source: cprs/branches/tmg-cprs/CPRS-Chart/fLaunch.pas@ 1699

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 1.8 KB
Line 
1//kt -- Modified with SourceScanner on 7/19/2007
2unit fLaunch;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 StdCtrls, ExtCtrls;
9
10type
11 TfrmLaunch = class(TForm)
12 grpFontSize: TRadioGroup;
13 cmdShow: TButton;
14 Edit1: TEdit;
15 Label1: TLabel;
16 cmdClose: TButton;
17 cmdNotif: TButton;
18 procedure cmdShowClick(Sender: TObject);
19 procedure FormCreate(Sender: TObject);
20 procedure cmdCloseClick(Sender: TObject);
21 private
22 { Private declarations }
23 public
24 { Public declarations }
25 end;
26
27var
28 frmLaunch: TfrmLaunch;
29
30implementation
31
32{$R *.DFM}
33
34uses ORFn, ORNet, fPtSel, uCore;
35
36procedure TfrmLaunch.FormCreate(Sender: TObject);
37begin
38//if not ConnectToServer('OR CPRS GUI CHART') then <-- original line. //kt 7/19/2007
39 if not ConnectToServer(DKLangConstW('fLaunch_OR_CPRS_GUI_CHART')) then //kt added 7/19/2007
40 begin
41 Close; // need a way to exit without needing the broker (close may call it)
42 Exit;
43 end;
44 User := TUser.Create; // creates the user object defined in uCore
45 Patient := TPatient.Create; // creates the patient object defined in uCore
46 Encounter := TEncounter.Create; // creates the encounter object defined in uCore
47end;
48
49procedure TfrmLaunch.cmdShowClick(Sender: TObject);
50var
51 ASize: Integer;
52 Notif: Boolean;
53begin
54 ASize := 8;
55 case grpFontSize.ItemIndex of
56 0: ASize := 8;
57 1: ASize := 10;
58 2: ASize := 12;
59 3: ASize := 14;
60 4: ASize := 18;
61 end;
62 Notif := TControl(Sender).Tag = 1;
63 SelectPatient(Notif, ASize);
64 Edit1.Text := IntToStr(Patient.DFN) + U + Patient.Name + U + Encounter.LocationName;
65end;
66
67procedure TfrmLaunch.cmdCloseClick(Sender: TObject);
68begin
69 Close;
70end;
71
72end.
Note: See TracBrowser for help on using the repository browser.