Procedure

TfrmOptionsTitles.cboDocumentTitlesNeedData

Module

fOptionsTitles

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmOptionsTitles

Declaration

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

Calls Hierarchy


TfrmOptionsTitles.cboDocumentTitlesNeedData
 └rpcGetTitlesForClass

Calls

Name Declaration Comments
rpcGetTitlesForClass function rpcGetTitlesForClass(value: integer; const StartFrom: string; Direction: Integer): TStrings; -


Source

165   procedure TfrmOptionsTitles.cboDocumentTitlesNeedData(Sender: TObject;
166     const StartFrom: String; Direction, InsertAt: Integer);
167   begin
168     with cboDocumentTitles do
169       begin
170         HideSynonyms := (cboDocumentClass.ItemIEN <> CLS_PROGRESS_NOTES);
171         ForDataUse(rpcGetTitlesForClass(cboDocumentClass.ItemIEN, StartFrom, Direction));
172       end;
173   end;