Module

fRemVisitInfo

Path

C:\CPRS\CPRS30\fRemVisitInfo.pas

Last Modified

7/15/2014 3:26:38 PM

Units Used in Interface

Name Comments
fBase508Form -
mVisitRelated -

Classes

Name Comments
TfrmRemVisitInfo -

Procedures

Name Owner Declaration Scope Comments
btnNowClick TfrmRemVisitInfo procedure btnNowClick(Sender: TObject); Public/Published -
FormCreate TfrmRemVisitInfo procedure FormCreate(Sender: TObject); Public/Published -


Module Source

1     unit fRemVisitInfo;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7       StdCtrls, mVisitRelated, ORDtTm,fBase508Form, VA508AccessibilityManager;
8     
9     type
10      TfrmRemVisitInfo = class(TfrmBase508Form)
11        fraVisitRelated: TfraVisitRelated;
12        btnOK: TButton;
13        btnCancel: TButton;
14        dteVitals: TORDateBox;
15        lblVital: TLabel;
16        btnNow: TButton;
17        procedure btnNowClick(Sender: TObject);
18        procedure FormCreate(Sender: TObject);
19      private
20        { Private declarations }
21      public
22        { Public declarations }
23      end;
24    
25    implementation
26    
27    {$R *.DFM}
28    
29    uses
30      ORFn;
31      
32    procedure TfrmRemVisitInfo.btnNowClick(Sender: TObject);
33    begin
34      dteVitals.Text := 'NOW';
35    end;
36    
37    procedure TfrmRemVisitInfo.FormCreate(Sender: TObject);
38    begin
39      ResizeAnchoredFormToFont(self);
40      btnOK.Top := fraVisitRelated.Top + fraVisitRelated.Height;
41      btnCancel.Top := btnOK.Top;
42    end;
43    
44    end.

Module Calls (2 levels)


fRemVisitInfo
 ├mVisitRelated
 │ ├rPCE
 │ └uPCE
 └fBase508Form
   ├uConst
   └uHelpManager

Module Called-By (2 levels)


    fRemVisitInfo
fReminderDialog┘ 
       fFrame┤   
   uTemplates┤   
     fDrawers┤   
   uReminders┤   
       fNotes┤   
    fConsults┤   
      fDCSumm┤   
fReminderTree┤   
     fSurgery┘