71 lines
1.6 KiB
Plaintext
71 lines
1.6 KiB
Plaintext
unit fLaunch;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, ExtCtrls, fBase508Form;
|
|
|
|
type
|
|
TfrmLaunch = class(TfrmBase508Form)
|
|
grpFontSize: TRadioGroup;
|
|
cmdShow: TButton;
|
|
Edit1: TEdit;
|
|
Label1: TLabel;
|
|
cmdClose: TButton;
|
|
cmdNotif: TButton;
|
|
procedure cmdShowClick(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure cmdCloseClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmLaunch: TfrmLaunch;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
uses ORFn, ORNet, fPtSel, uCore;
|
|
|
|
procedure TfrmLaunch.FormCreate(Sender: TObject);
|
|
begin
|
|
if not ConnectToServer('OR CPRS GUI CHART') then
|
|
begin
|
|
Close; // need a way to exit without needing the broker (close may call it)
|
|
Exit;
|
|
end;
|
|
User := TUser.Create; // creates the user object defined in uCore
|
|
Patient := TPatient.Create; // creates the patient object defined in uCore
|
|
Encounter := TEncounter.Create; // creates the encounter object defined in uCore
|
|
end;
|
|
|
|
procedure TfrmLaunch.cmdShowClick(Sender: TObject);
|
|
var
|
|
ASize: Integer;
|
|
Notif: Boolean;
|
|
begin
|
|
ASize := 8;
|
|
case grpFontSize.ItemIndex of
|
|
0: ASize := 8;
|
|
1: ASize := 10;
|
|
2: ASize := 12;
|
|
3: ASize := 14;
|
|
4: ASize := 18;
|
|
end;
|
|
Notif := TControl(Sender).Tag = 1;
|
|
SelectPatient(Notif, ASize);
|
|
Edit1.Text := IntToStr(Patient.DFN) + U + Patient.Name + U + Encounter.LocationName;
|
|
end;
|
|
|
|
procedure TfrmLaunch.cmdCloseClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
end.
|