Procedure

TfrmProblems.DisplayPage

Directives

Override

Module

fProbs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public

Overrides

TfrmPage.DisplayPage

Owner

TfrmProblems

Declaration

procedure DisplayPage; override;

Calls Hierarchy


TfrmProblems.DisplayPage
 ├TfrmPage.DisplayPage
 ├TfrmFrame.ShowHideChartTabMenus
 │ └TfrmFrame.TabExists
 ├TfrmPage.GetInitPatient
 ├TPLUserParams.Destroy
 ├TfrmProblems.ShowPnlView
 └TfrmProblems.LoadProblems
   ├TfrmPage.GetInitPatient
   ├TfrmProblems.LoadUserParams
   │ ├InitUser
   │ ├TPLUserParams.Create
   │ └TfrmProblems.pnlRightResize
   │   ├TfrmProblems.SetGridPieces
   │   │ └ForChars
   │   ├TfrmProblems.ApplyViewFilters
   │   ├TfrmProblems.RefreshList
   │   │ └TfrmProblems.PlainText
   │   └TfrmProblems.GetRowCount
   ├TfrmProblems.LoadPatientParams
   │ ├InitPt
   │ └TPLPt.Create
   ├TfrmProblems.LoadPatientProblems
   │ ├TPLFilters.create
   │ ├TfrmProblems.ClearGrid
   │ ├FMNow
   │ ├ProblemList
   │ ├TfrmProblems.SetGridPieces...
   │ ├ReverseList
   │ ├TfrmProblems.RefreshList...
   │ ├TfrmProblems.NoRowSelected
   │ ├GetProblemComments
   │ ├SetViewFilters
   │ │ ├LoadFilterList
   │ │ └ShowFilterStatus
   │ ├InitViewFilters
   │ │ └SetViewFilters...
   │ ├TfrmProblems.ApplyViewFilters
   │ ├TfrmProblems.MString
   │ ├TfrmProblems.wgProbDataClick
   │ │ ├TfrmProblems.MString
   │ │ ├TfrmProblems.NoRowSelected
   │ │ └TfrmProblems.RowSelected
   │ │   └TfrmProblems.MString
   │ ├TfrmProblems.RowSelected...
   │ └TfrmProblems.pnlRightResize...
   └TfrmProblems.LoadUserCats
     ├UserProblemCategories
     └TfrmProblems.lstCatPickClick
       └TfrmProblems.LoadUserProbs
         └UserProblemList

Calls

Name Declaration Comments
TPLUserParams.Destroy destructor Destroy; override; -
TfrmPage.DisplayPage procedure DisplayPage; virtual; -
TfrmPage.GetInitPatient function GetInitPatient: Boolean; -
TfrmProblems.LoadProblems procedure LoadProblems; -
TfrmFrame.ShowHideChartTabMenus procedure ShowHideChartTabMenus(AMenuItem: TMenuItem); -
TfrmProblems.ShowPnlView procedure ShowPnlView(); -


Source

267   procedure TfrmProblems.DisplayPage;
268   begin
269     inherited DisplayPage;
270     frmFrame.ShowHideChartTabMenus(mnuViewChart);
271     frmFrame.mnuFilePrint.Tag := CT_PROBLEMS;
272     frmFrame.mnuFilePrint.Enabled := True;
273     frmFrame.mnuFilePrintSetup.Enabled := True;
274     if InitPatient then
275       begin
276         FWarningShown := False;
277         if PLUser <> nil then
278           begin
279             PLUser.Destroy;
280             PLUser := nil;
281           end;
282         //ClearPtData;
283         ShowPnlView;
284         pnlButtons.SendToBack;
285         pnlButtons.Hide;
286         LoadProblems ;
287       end;
288     //CQ #11529: 508 PL tab - defaults the focus to the New Problem button ONLY upon switching to the Probs tab.  {TC}
289     if TabCtrlClicked and (ChangingTab = CT_PROBLEMS) then ProbTabClicked := True;
290     if (bbNewProb.CanFocus) and (not pnlButtons.Visible) and ((not PTSwitchRefresh) or ProbTabClicked) then bbNewProb.SetFocus;
291     if PTSwitchRefresh then PTSwitchRefresh := False;
292     if TabCtrlClicked then TabCtrlClicked := False;
293     if ProbTabClicked then ProbTabClicked := False;
294   end;