Procedure

SetViewFilters

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure SetViewFilters(Alist:TStringList);

Calls Hierarchy


SetViewFilters
 ├LoadFilterList
 └ShowFilterStatus

Called-By Hierarchy


                                 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...┘ 

Calls

Name Declaration Comments
LoadFilterList procedure LoadFilterList(Alist:TstringList;DestList:TstringList); -
ShowFilterStatus procedure ShowFilterStatus(s: string); -

Called-By

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


Source

1348  procedure SetViewFilters(Alist:TStringList);
1349  begin
1350    if PLFilters.ProviderList.count = 0 then
1351      PLFilters.ProviderList.add('0'); {default to all provides if none selected}
1352    if PLUser.usCurrentView = PL_OP_VIEW then
1353      begin
1354        if PLFilters.ClinicList.count = 0 then
1355          begin
1356            //GetListforOP(Alist);
1357            LoadFilterList(Alist,PLFilters.ClinicList);
1358          end;
1359        //PostMessage(frmProblems.Handle, UM_PLFILTER,0,0);
1360      end
1361    else if PLUser.usCurrentView = PL_IP_VIEW then
1362      begin
1363        if PLFilters.ServiceList.count=0 then
1364          begin
1365            //GetListforIP(Alist);
1366            LoadFilterList(Alist,PLFilters.ServiceList);
1367          end;
1368        //PostMessage(frmProblems.Handle, UM_PLFILTER,0,0);
1369      end
1370    else {if no default view specified, assumed to be unfiltered}
1371      PlUser.usCurrentView := PL_UF_VIEW;
1372    ShowFilterStatus(PlUser.usCurrentView);
1373  end;