patientrunner.dpr

来自「PatientRunner 20 Source」· DPR 代码 · 共 56 行

{ *************************************************************************** }
{                                                                             }
{ PatientRunner                                                               }
{                                                                             }
{ Copyright (c) 2002-2005 IgD Software, LLC                                   }
{                                                                             }
{ This file may be distributed and/or modified under the terms of the GNU     }
{ General Public License (GPL) version 2 as published by the Free Software    }
{ Foundation and appearing at http://www.gnu.org/licenses/gpl.html.           }
{                                                                             }
{ *************************************************************************** }

program PatientRunner;

uses
  Forms,
  Controls,
  Main in 'Main.pas' {MainForm},
  PatientExplorer in 'PatientExplorer.pas' {PatientExplorerForm},
  PatientEditor in 'PatientEditor.pas' {PatientEditorForm},
  ScaleEditor in 'ScaleEditor.pas' {ScaleEditorForm},
  DiagnosisEditor in 'DiagnosisEditor.pas' {DiagnosisEditorForm},
  MedicationEditor in 'MedicationEditor.pas' {MedicationEditorForm},
  QuickReport in 'QuickReport.pas' {QuickReportModule: TQuickRep},
  Login in 'Login.pas' {LoginForm},
  TemplateManager in 'TemplateManager.pas' {TemplateManagerForm},
  Encounters in 'Encounters.pas' {EncountersReport: TQuickRep},
  DelinquentDictations in 'DelinquentDictations.pas' {DelinquentDictationsReport: TQuickRep},
  EncounterReportGenerator in 'EncounterReportGenerator.pas' {EncounterReportGeneratorForm},
  OnceOnly in 'OnceOnly.pas';

{$R *.res}

begin
  Application.Initialize;
  If AlreadyRunning( 'PatientRunner' ) then Exit;
  Application.Title := 'PatientRunner';
  Application.CreateForm(TMainForm, MainForm);
  LoginForm:=TLoginForm.create(nil);
  if LoginForm.ShowModal = mrOk then
  begin
    Application.CreateForm(TPatientExplorerForm, PatientExplorerForm);
    Application.CreateForm(TPatientEditorForm, PatientEditorForm);
    Application.CreateForm(TTemplateManagerForm, TemplateManagerForm);
    Application.CreateForm(TScaleEditorForm, ScaleEditorForm);
    Application.CreateForm(TDiagnosisEditorForm, DiagnosisEditorForm);
    Application.CreateForm(TMedicationEditorForm, MedicationEditorForm);
    Application.CreateForm(TQuickReportModule, QuickReportModule);
    Application.CreateForm(TEncountersReport, EncountersReport);
    Application.CreateForm(TDelinquentDictationsReport, DelinquentDictationsReport);
    Application.CreateForm(TEncounterReportGeneratorForm, EncounterReportGeneratorForm);
    Application.Run;
  end;
  LoginForm.Free;
end.