Procedure

TfrmLkUpLocation.cboLocationNeedData

Module

fLkUpLocation

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmLkUpLocation

Declaration

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

Calls Hierarchy


TfrmLkUpLocation.cboLocationNeedData
 ├SubSetOfLocations
 ├SubSetOfClinics
 └SubSetOfInpatientLocations

Calls

Name Declaration Comments
SubSetOfClinics function SubSetOfClinics(const StartFrom: string; Direction: Integer): TStrings; -
SubSetOfInpatientLocations function SubSetOfInpatientLocations(const StartFrom: string; Direction: Integer): TStrings; -
SubSetOfLocations function SubSetOfLocations(const StartFrom: string; Direction: Integer): TStrings; -


Source

66    procedure TfrmLkUpLocation.cboLocationNeedData(Sender: TObject; const StartFrom: string;
67      Direction, InsertAt: Integer);
68    begin
69      inherited;
70        case LocType of
71          LOC_ALL:   cboLocation.ForDataUse(SubSetOfLocations(StartFrom, Direction));
72          LOC_OUTP:  cboLocation.ForDataUse(SubSetOfClinics(StartFrom, Direction));
73          LOC_INP:   cboLocation.ForDataUse(SubSetOfInpatientLocations(StartFrom, Direction));
74        end;
75    
76    end;