Procedure

TfrmProblems.RefreshList

Module

fProbs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmProblems

Declaration

procedure RefreshList;

Calls Hierarchy


TfrmProblems.RefreshList
 └TfrmProblems.PlainText

Called-By Hierarchy


                       TfrmProblems.RefreshList
                TfrmProblems.lstProbActsClick┤ 
            TfrmProblems.wgProbDataDblClick┤ │ 
                  TfrmProblems.lstViewClick┘ │ 
          TfrmProblems.HighlightDuplicate┘   │ 
                TfrmProblems.AddProblem┤     │ 
     TfrmProblems.lstProbActsClick...┤ │     │ 
        TfrmProblems.lstProbPickClick┤ │     │ 
     TfrmProblems.lstProbPickDblClick┤ │     │ 
     TfrmProblems.edProbEntKeyPress┘ │ │     │ 
             TfrmProblems.UMPLLexicon┘ │     │ 
          TfrmdlgProb.bbChangeProbClick┘     │ 
                  TfrmProblems.pnlRightResize┤ 
           TfrmProblems.lstProbActsClick...┤ │ 
                TfrmProblems.LoadUserParams┤ │ 
                TfrmProblems.LoadProblems┘ │ │ 
               TfrmProblems.DisplayPage┤   │ │ 
TfrmProblems.mnuViewRestoreDefaultClick┤   │ │ 
                  TfrmProblems.FormShow┘   │ │ 
           TfrmProblems.LoadPatientProblems┘ │ 
         TfrmProblems.lstProbActsClick...┤   │ 
             TfrmProblems.LoadProblems...┤   │ 
              TfrmProblems.RestoreProblem┤   │ 
       TfrmProblems.lstProbActsClick...┘ │   │ 
                    TfrmdlgProb.FormClose┘   │ 
          TfrmProblems.LoadPatientProblems...┤ 
            TfrmProblems.mnuViewCommentsClick┘ 

Calls

Name Declaration Comments
TfrmProblems.PlainText function PlainText( MString: string): string; -

Called-By

Name Declaration Comments
TfrmProblems.LoadPatientProblems procedure LoadPatientProblems(AList:TstringList;const status:char;init:boolean); -
TfrmProblems.lstProbActsClick procedure lstProbActsClick(Sender: TObject); -
TfrmProblems.mnuViewCommentsClick procedure mnuViewCommentsClick(Sender: TObject); -
TfrmProblems.pnlRightResize procedure pnlRightResize(Sender:TObject); -


Source

1842  procedure TfrmProblems.RefreshList;
1843  var
1844    i: integer;
1845  begin
1846    RedrawSuspend(wgProbData.Handle);
1847    wgProbData.Clear;
1848    FItemData.Clear;
1849    for i := 0 to FAllProblems.Count-1 do
1850      if FProblemsVisible[i] = 'Y' then begin
1851        FItemData.Add(IntToStr(i));
1852        if Piece(FAllProblems[i], U, 1) <> '' then
1853          wgProbData.Items.Add(PlainText(FAllProblems[i]))
1854        else
1855          wgProbData.Items.Add(FAllProblems[i]);
1856      end;
1857    wgProbData.Invalidate;
1858    RedrawActivate(wgProbData.Handle);
1859  end;