Procedure

TfrmProblems.LoadUserCats

Module

fProbs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public

Owner

TfrmProblems

Declaration

procedure LoadUserCats(AList:Tstringlist);

Calls Hierarchy


TfrmProblems.LoadUserCats
 ├UserProblemCategories
 └TfrmProblems.lstCatPickClick
   └TfrmProblems.LoadUserProbs
     └UserProblemList

Called-By Hierarchy


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

Calls

Name Declaration Comments
TfrmProblems.lstCatPickClick procedure lstCatPickClick(Sender: TObject); -
UserProblemCategories function UserProblemCategories(Provider: int64; Location: integer): TStrings ; -

Called-By

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


Source

1185  procedure TfrmProblems.LoadUserCats(AList:TStringList);
1186  begin
1187    if not PLUser.usUseLexicon then exit; {Bail out if not to use lexicon}
1188    Alist.clear;
1189    FastAssign(UserProblemCategories(Encounter.Provider,Encounter.Location), AList) ;
1190    if Alist.count = 0 then
1191      begin
1192        lstCatPick.Items.Add('-1^None defined - use OTHER') ;
1193        lstProbPick.Visible := False ;
1194        lblProblems.Visible := False ;
1195        exit ;
1196      end ;
1197    FastAssign(AList, lstCatPick.Items);
1198    lstCatPick.itemindex := 0;
1199    lstCatPickClick(frmProblems);
1200  end;