source: cprs/trunk/CPRS-Chart/fHP.pas@ 661

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

Initial Upload of Official WV CPRS 1.0.26.76

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