Procedure

TfrmPlVuFilt.cboSourceNeedData

Module

fProbflt

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmPlVuFilt

Declaration

procedure cboSourceNeedData(Sender: TObject; const StartFrom: String;
  Direction, InsertAt: Integer);

Calls Hierarchy


TfrmPlVuFilt.cboSourceNeedData
 ├SubSetOfClinics
 ├ServiceSearch
 └TfrmPlVuFilt.GetLocationList

Calls

Name Declaration Comments
TfrmPlVuFilt.GetLocationList procedure GetLocationList; -
ServiceSearch function ServiceSearch(const StartFrom: string; Direction: Integer; All: boolean = FALSE): TStrings; -
SubSetOfClinics function SubSetOfClinics(const StartFrom: string; Direction: Integer): TStrings; -


Source

393   procedure TfrmPlVuFilt.cboSourceNeedData(Sender: TObject;
394     const StartFrom: String; Direction, InsertAt: Integer);
395   begin
396    case rgVu.itemindex of
397     0:  {out patient view} cboSource.ForDataUse(SubSetOfClinics(StartFrom,Direction));
398     1:  {in-patient View}  cboSource.ForDataUse(ServiceSearch(StartFrom,Direction));
399    else {unfiltered view}  GetLocationList;
400    end;
401   end;