encounters.pas

PatientRunner 20 Source

{ *************************************************************************** }
{                                                                             }
{ 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.           }
{                                                                             }
{ *************************************************************************** }

unit Encounters;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, FMTBcd, DB, SqlExpr;

type
  TEncountersReport = class(TQuickRep)
    PageHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    PatientDetailBand: TQRBand;
    EncounterSQLQuery: TSQLQuery;
    EncounterSQLQuerylastname: TStringField;
    EncounterSQLQueryfirstname: TStringField;
    EncounterSQLQuerydescription: TStringField;
    QRLabel6: TQRLabel;
    EncounterSQLQuerynotedatetime: TSQLTimeStampField;
    EncounterSQLQuerybirthday: TSQLTimeStampField;
    EncounterSQLQuerydiagnosis: TStringField;
    QRGroup1: TQRGroup;
    QRDBText3: TQRDBText;
    QRExpr1: TQRExpr;
    QRDBText4: TQRDBText;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    procedure QRDBText1Print(sender: TObject; var Value: String);
    procedure QRDBText4Print(sender: TObject; var Value: String);
  private

  public

  end;

var
  EncountersReport: TEncountersReport;

implementation

{$R *.DFM}

uses Main;

procedure TEncountersReport.QRDBText1Print(sender: TObject; var Value: String);
begin
  Value:=DatetoStr( StrtoDateTime(Value) );
end;

procedure TEncountersReport.QRDBText4Print(sender: TObject; var Value: String);
begin
  Value:=InttoStr(AgeinYears(StrtoDateTime(Value) ) );
end;

end.