Procedure

TfrmCover.LoadList

Module

fCover

Last Modified

7/15/2014 3:26:36 PM

Visibility

Private

Owner

TfrmCover

Declaration

procedure LoadList(const StsTxt: string; ListCtrl: TObject;
  ARpc: String; ACase, AInvert: Boolean; ADatePiece: integer; ADateFormat, AParam1, AID, ADetail: String; Reminders: boolean = FALSE);

Calls Hierarchy


TfrmCover.LoadList
 ├ListGeneric
 │ ├InteractiveRemindersActive
 │ │ └GetRemindersActive
 │ └ExtractActiveMeds
 │   └MedStatusGroup
 └NoDataText

Called-By Hierarchy


             TfrmCover.LoadList
        TfrmCover.DisplayPage┤ 
   TfrmCover.CoverItemClick┘ │ 
TfrmCover.UpdateAllergiesList┘ 
      TfrmCover.NotifyOrder┤   
     TfrmFrame.UMNewOrder┘ │   
      TfrmCover.popNKAClick┤   
 TfrmARTAllergy.FormDestroy┘   

Calls

Name Declaration Comments
ListGeneric procedure ListGeneric(Dest: TStrings; ARpc: String; ACase, AInvert: Boolean; ADatePiece: integer; ADateFormat, AParam1, ADetail, AID: String); -
NoDataText function NoDataText(Reminders: boolean): string; -

Called-By

Name Declaration Comments
TfrmCover.DisplayPage procedure DisplayPage; override; -
TfrmCover.UpdateAllergiesList procedure UpdateAllergiesList; -


Source

179   procedure TfrmCover.LoadList(const StsTxt: string; ListCtrl: TObject;
180     ARpc: String; ACase, AInvert: Boolean; ADatePiece: integer; ADateFormat, AParam1, AID, ADetail: String; Reminders: boolean = FALSE);
181   begin
182     StatusText(StsTxt);
183     if(ListCtrl is TORListBox) then
184     begin
185       ListGeneric((ListCtrl as TORListBox).Items, ARpc, ACase, AInvert, ADatePiece, ADateFormat, AParam1, ADetail, AID);
186       if((ListCtrl as TORListBox).Items.Count = 0) then
187         (ListCtrl as TORListBox).Items.Add(NoDataText(Reminders));
188     end
189     else
190     begin
191       ListGeneric(ListCtrl as TStrings, ARpc, ACase, AInvert, ADatePiece, ADateFormat, AParam1, ADetail, AID);
192       if((ListCtrl as TStrings).Count = 0) then
193         (ListCtrl as TStrings).Add(NoDataText(Reminders));
194     end;
195     StatusText('');
196   end;