Procedure

TfrmProblems.GetRowCount

Module

fProbs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmProblems

Declaration

procedure GetRowCount;

Called-By Hierarchy


                       TfrmProblems.GetRowCount
                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.RestoreProblem...┘ 

Called-By

Name Declaration Comments
TfrmProblems.lstProbActsClick procedure lstProbActsClick(Sender: TObject); -
TfrmProblems.pnlRightResize procedure pnlRightResize(Sender:TObject); -
TfrmProblems.RestoreProblem procedure RestoreProblem; -


Source

849   procedure TfrmProblems.GetRowCount;
850   var
851     ShownProbs, TotalProbs: integer;
852   begin
853     if (wgProbData.Items.Count > 0) and (Piece(wgProbData.Items[0], U, 1) <> '') then
854       ShownProbs := wgProbData.Items.Count
855     else
856       ShownProbs := 0;
857   
858     if (FAllProblems.Count > 0) and (Piece(FAllProblems[0], U, 1) <> '') then
859       TotalProbs := FAllProblems.Count
860     else
861       TotalProbs := 0;
862       
863     case PLUser.usViewAct[1] of
864       'A': lblProbList.Caption := ACTIVE_LIST_CAP ;
865       'I': lblProbList.Caption := INACTIVE_LIST_CAP ;
866       'B': lblProbList.Caption := BOTH_LIST_CAP ;
867       'R': lblProbList.Caption := REMOVED_LIST_CAP ;
868     end;
869     lblProbList.Caption := lblProbList.Caption + '   (' + IntToStr(ShownProbs) + ' of ' + IntToStr(TotalProbs) + ')';
870     wgProbData.Caption := lblProbList.Caption;
871   end;