source: cprs/branches/tmg-cprs/CPRS-Chart/fHP.pas@ 1593

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 637 bytes
RevLine 
[453]1//kt -- Modified with SourceScanner on 9/6/2007
2unit fHP;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 fPage, StdCtrls, ExtCtrls, DKLang;
9
10type
11 TfrmHP = class(TfrmPage)
12 Label1: TLabel;
13 private
14 { Private declarations }
15 public
16 procedure ClearPtData; override;
17 procedure DisplayPage; override;
18 end;
19
20var
21 frmHP: TfrmHP;
22
23implementation
24
25{$R *.DFM}
26
27procedure TfrmHP.ClearPtData;
28begin
29 inherited ClearPtData;
30end;
31
32procedure TfrmHP.DisplayPage;
33begin
34 inherited DisplayPage;
35 if InitPatient then
36 begin
37 end;
38end;
39
40end.
Note: See TracBrowser for help on using the repository browser.