Procedure

ShowFilterStatus

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure ShowFilterStatus(s: string);

Called-By Hierarchy


                                 ShowFilterStatus
                                 SetViewFilters┘ 
                              InitViewFilters┤   
           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┘   │   
          TfrmProblems.LoadPatientProblems...┘   

Called-By

Name Declaration Comments
SetViewFilters procedure SetViewFilters(Alist:TStringList); -


Source

1331  procedure ShowFilterStatus(s: string);
1332  var
1333    lin:string;
1334  begin
1335    if      s = PL_OP_VIEW then lin := 'View clinics'
1336    else if s = PL_IP_VIEW then lin := 'View services'
1337    else                        lin := 'View all problems';
1338    Application.ProcessMessages;
1339  end;