Procedure

TfrmProblems.FormShow

Module

fProbs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmProblems

Declaration

procedure FormShow(Sender: TObject);

Calls Hierarchy


TfrmProblems.FormShow
 ├TfrmProblems.frmFramePnlPatientExit
 └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
TfrmProblems.frmFramePnlPatientExit procedure frmFramePnlPatientExit(Sender: TObject); -
TfrmProblems.LoadProblems procedure LoadProblems; -


Source

2026  procedure TFrmProblems.FormShow(Sender: TObject);
2027  begin
2028    inherited;
2029    FOldFramePnlPatientExit := frmFrame.pnlPatient.OnExit;
2030    frmFrame.pnlPatient.OnExit := frmFramePnlPatientExit;
2031    RequestNTRT := False;
2032    NTRTComment := '';
2033    if Changes.RefreshProblemList then
2034    begin
2035      LoadProblems;
2036      Changes.RefreshProblemList := False;
2037    end;
2038  end;