delinquentdictations.pas

来自「PatientRunner 20 Source」· PAS 代码 · 共 57 行

{ *************************************************************************** }
{                                                                             }
{ 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 DelinquentDictations;

interface

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

type
  TDelinquentDictationsReport = class(TQuickRep)
    PageHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    PatientDetailBand: TQRBand;
    QRExpr1: TQRExpr;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    EncounterSQLQuery: TSQLQuery;
    EncounterSQLQuerylastname: TStringField;
    EncounterSQLQueryfirstname: TStringField;
    EncounterSQLQuerydescription: TStringField;
    EncounterSQLQuerynotedatetime: TSQLTimeStampField;
    EncounterSQLQuerydictationpending: TSmallintField;
    procedure QRDBText1Print(sender: TObject; var Value: String);
  private

  public

  end;

var
  DelinquentDictationsReport: TDelinquentDictationsReport;

implementation

{$R *.DFM}

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

end.