Procedure

LoadFilterList

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure LoadFilterList(Alist:TstringList;DestList:TstringList);

Called-By Hierarchy


                                   LoadFilterList
                                 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...┘ │ 
                                          SetVu┤ 
                      TfrmPlVuFilt.cmdOKClick┘ │ 
                        TfrmPlVuFilt.cmdOKClick┘ 

Called-By

Name Declaration Comments
TfrmPlVuFilt.cmdOKClick procedure cmdOKClick(Sender: TObject); -
SetViewFilters procedure SetViewFilters(Alist:TStringList); -
SetVu procedure SetVu(vulist:TstringList; vu:string); -


Source

1324  procedure LoadFilterList(Alist: TstringList; DestList: TstringList);
1325  var
1326    i:integer;
1327  begin
1328    for i := 0 to pred(Alist.count) do DestList.add(Piece(Alist[i],u,1));
1329  end;