Procedure

TfrmProblems.LoadUserParams

Module

fProbs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public

Owner

TfrmProblems

Declaration

procedure LoadUserParams(Alist:TstringList);

Calls Hierarchy


TfrmProblems.LoadUserParams
 ├InitUser
 ├TPLUserParams.Create
 └TfrmProblems.pnlRightResize
   ├TfrmProblems.SetGridPieces
   │ └ForChars
   ├TfrmProblems.ApplyViewFilters
   ├TfrmProblems.RefreshList
   │ └TfrmProblems.PlainText
   └TfrmProblems.GetRowCount

Called-By Hierarchy


                TfrmProblems.LoadUserParams
                TfrmProblems.LoadProblems┘ 
               TfrmProblems.DisplayPage┤   
TfrmProblems.mnuViewRestoreDefaultClick┤   
                  TfrmProblems.FormShow┘   

Calls

Name Declaration Comments
TPLUserParams.Create constructor Create(alist:TstringList); -
InitUser function InitUser(ProviderID: int64): TStrings ; -
TfrmProblems.pnlRightResize procedure pnlRightResize(Sender:TObject); -

Called-By

Name Declaration Comments
TfrmProblems.LoadProblems procedure LoadProblems; -


Source

952   procedure TfrmProblems.LoadUserParams(Alist:TstringList);
953   var
954     i: integer;
955   begin
956     FastAssign(InitUser(User.DUZ), AList) ;
957     //FastAssign(InitUser(Encounter.Provider), AList) ;
958     PLUser := TPLUserParams.Create(Alist);
959     FContextString := PLUser.usDefaultContext;
960     FFilterString :=  PLUser.usDefaultView + '/';
961     if PLFilters <> nil then
962       begin
963         if PLUser.usDefaultView = 'C' then with PLFilters.ClinicList do
964             for i := 0 to Count - 1 do
965               if Piece(Strings[i], U, 1) <> '-1' then
966                 FFilterString := FFilterString + Piece(Strings[i], U, 1) + '/';
967         if PLUser.usDefaultView = 'S' then with PLFilters.ServiceList do
968             for i := 0 to Count - 1 do
969               if Piece(Strings[i], U, 1) <> '-1' then
970                 FFilterString := FFilterString + Piece(Strings[i], U, 1) + '/';
971       end;
972     mnuViewComments.Checked := (PLUser.usViewComments = '1');
973     if PLUser.usTesting then
974       InfoBox('WARNING - Test User Parameters in Effect', 'Warning', MB_OK or MB_ICONWARNING);
975     pnlRightResize(Self);
976   end;