Procedure

TfrmProblems.LoadProblems

Module

fProbs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public

Owner

TfrmProblems

Declaration

procedure LoadProblems;

Calls Hierarchy


TfrmProblems.LoadProblems
 ├TfrmPage.GetInitPatient
 ├TfrmProblems.LoadUserParams
 │ ├InitUser
 │ ├TPLUserParams.Create
 │ └TfrmProblems.pnlRightResize
 │   ├TfrmProblems.SetGridPieces
 │   │ └ForChars
 │   ├TfrmProblems.ApplyViewFilters
 │   ├TfrmProblems.RefreshList
 │   │ └TfrmProblems.PlainText
 │   └TfrmProblems.GetRowCount
 ├TfrmProblems.LoadPatientParams
 │ ├InitPt
 │ └TPLPt.Create
 ├TfrmProblems.LoadPatientProblems
 │ ├TPLFilters.create
 │ ├TfrmProblems.ClearGrid
 │ ├FMNow
 │ ├ProblemList
 │ ├TfrmProblems.SetGridPieces...
 │ ├ReverseList
 │ ├TfrmProblems.RefreshList...
 │ ├TfrmProblems.NoRowSelected
 │ ├GetProblemComments
 │ ├SetViewFilters
 │ │ ├LoadFilterList
 │ │ └ShowFilterStatus
 │ ├InitViewFilters
 │ │ └SetViewFilters...
 │ ├TfrmProblems.ApplyViewFilters
 │ ├TfrmProblems.MString
 │ ├TfrmProblems.wgProbDataClick
 │ │ ├TfrmProblems.MString
 │ │ ├TfrmProblems.NoRowSelected
 │ │ └TfrmProblems.RowSelected
 │ │   └TfrmProblems.MString
 │ ├TfrmProblems.RowSelected...
 │ └TfrmProblems.pnlRightResize...
 └TfrmProblems.LoadUserCats
   ├UserProblemCategories
   └TfrmProblems.lstCatPickClick
     └TfrmProblems.LoadUserProbs
       └UserProblemList

Called-By Hierarchy


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

Calls

Name Declaration Comments
TfrmPage.GetInitPatient function GetInitPatient: Boolean; -
TfrmProblems.LoadPatientParams procedure LoadPatientParams(AList:TstringList); -
TfrmProblems.LoadPatientProblems procedure LoadPatientProblems(AList:TstringList;const status:char;init:boolean); -
TfrmProblems.LoadUserCats procedure LoadUserCats(AList:Tstringlist); -
TfrmProblems.LoadUserParams procedure LoadUserParams(Alist:TstringList); -

Called-By

Name Declaration Comments
TfrmProblems.DisplayPage procedure DisplayPage; override; -
TfrmProblems.FormShow procedure FormShow(Sender: TObject); -
TfrmProblems.mnuViewRestoreDefaultClick procedure mnuViewRestoreDefaultClick(Sender: TObject); -


Source

1216  procedure TfrmProblems.LoadProblems;
1217  var
1218    AList: TStringList;
1219    i: integer;
1220  begin
1221    pProviderID := 0;
1222    AList := TStringList.Create;
1223    try
1224      lstView.ItemIndex := -1;
1225      StatusText('Retrieving problem list...') ;
1226      if (PLUser = nil) or InitPatient then LoadUserParams(Alist);
1227      Alist.clear;
1228      if Patient.DFN <> '' then LoadPatientParams(Alist);
1229      Alist.clear;
1230      LoadPatientProblems(AList, PlUser.usViewAct[1], True); {initialize patient list}
1231      lstView.ItemIndex := -1;
1232      AList.clear;
1233      lstCatPick.Clear ;
1234      LoadUserCats(AList);
1235      {SET APPLICATION DEFAULTS}
1236      if (not PLUser.usPrimeUser) then
1237        begin {activities available to GMPLUSER only}
1238          mnuActRestore.enabled := False;
1239          mnuActRemove.enabled:=false;
1240          mnuViewRemoved.Enabled := False;
1241          popRemove.enabled:=false;
1242          popRestore.enabled := False;
1243          i := lstView.Items.IndexOf('Removed');
1244          if i > -1 then lstView.Items.Delete(i);
1245          mnuActVerify.enabled:=false;
1246          popVerify.enabled:=false;
1247        end;
1248      if (not PLUser.usVerifyTranscribed) then
1249        begin
1250          mnuActVerify.enabled:=false;
1251          popVerify.enabled:=false;
1252        end;
1253    finally
1254      AList.Free;
1255      StatusText('') ;
1256    end;
1257  end;