Procedure

TfrmProblems.wgProbDataClick

Module

fProbs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmProblems

Declaration

procedure wgProbDataClick(Sender: TObject);

Calls Hierarchy


TfrmProblems.wgProbDataClick
 ├TfrmProblems.MString
 ├TfrmProblems.NoRowSelected
 └TfrmProblems.RowSelected
   └TfrmProblems.MString

Called-By Hierarchy


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

Calls

Name Declaration Comments
TfrmProblems.MString function MString( index: integer): string; -
TfrmProblems.NoRowSelected procedure NoRowSelected; -
TfrmProblems.RowSelected procedure RowSelected; -

Called-By

Name Declaration Comments
TfrmProblems.LoadPatientProblems procedure LoadPatientProblems(AList:TstringList;const status:char;init:boolean); -


Source

718   procedure TfrmProblems.wgProbDataClick(Sender: TObject);
719   var
720     S: string;
721   begin
722     pnlRight.font.color := self.font.color;
723     S := MString(wgProbData.ItemIndex);
724     //pnlRight.caption := Piece(Piece(S, U , 3), #13, 1); //fixes part (b) of CQ #15531: 508 Problems Tab [CPRS v28.1] {TC}
725     if (Piece(S, U, 1) = '') or
726        (Pos('No data available',  Piece(S, U, 2)) > 0) or
727        (Pos('No problems found.', Piece(S, U, 2)) > 0)
728      then NoRowSelected else RowSelected ;
729   end;