Function

TfrmPage.GetInitPatient

Module

fPage

Last Modified

7/15/2014 3:26:38 PM

Comments

If the count is one, this is the first time the page is being displayed for a given patient

Visibility

Private

Owner

TfrmPage

Declaration

function GetInitPatient: Boolean;

Called-By Hierarchy


                    TfrmPage.GetInitPatient
                     TfrmLabs.DisplayPage┤ 
                   TfrmDCSumm.DisplayPage┤ 
                 TfrmConsults.DisplayPage┤ 
                   TfrmOrders.DisplayPage┤ 
                  TfrmSurgery.DisplayPage┤ 
                  TfrmReports.DisplayPage┤ 
                    TfrmNotes.DisplayPage┤ 
                 TfrmProblems.DisplayPage┤ 
                TfrmProblems.LoadProblems┤ 
               TfrmProblems.DisplayPage┤ │ 
TfrmProblems.mnuViewRestoreDefaultClick┤ │ 
                  TfrmProblems.FormShow┘ │ 
                    TfrmCover.DisplayPage┤ 
               TfrmCover.CoverItemClick┘ │ 
                       TfrmHP.DisplayPage┘ 

Called-By

Name Declaration Comments
TfrmLabs.DisplayPage procedure DisplayPage; override; -
TfrmDCSumm.DisplayPage procedure DisplayPage; override; -
TfrmConsults.DisplayPage procedure DisplayPage; override; -
TfrmOrders.DisplayPage procedure DisplayPage; override; -
TfrmSurgery.DisplayPage procedure DisplayPage; override; -
TfrmReports.DisplayPage procedure DisplayPage; override; -
TfrmNotes.DisplayPage procedure DisplayPage; override; -
TfrmProblems.DisplayPage procedure DisplayPage; override; -
TfrmCover.DisplayPage procedure DisplayPage; override; -
TfrmHP.DisplayPage procedure DisplayPage; override; -
TfrmProblems.LoadProblems procedure LoadProblems; -


Source

125   function TfrmPage.GetInitPatient: Boolean;
126   { if the count is one, this is the first time the page is being displayed for a given patient }
127   begin
128     Result := FPatientCount = 1;
129   end;