Function

FindInt64

Module

rTIU

Last Modified

7/15/2014 3:26:44 PM

Scope

Local

Local subprogram to

GetNoteForEdit

Declaration

function FindInt64(const FieldID: string): Int64;

Called-By Hierarchy


                               FindInt64
                        GetNoteForEdit┘ 
            TfrmConsults.LoadForEdit┤   
  TfrmConsults.mnuActNoteEditClick┘ │   
TfrmConsults.mnuActCompleteClick┘   │   
             TfrmSurgery.LoadForEdit┤   
       TfrmSurgery.mnuActEditClick┘ │   
               TfrmNotes.LoadForEdit┘   
         TfrmNotes.mnuActEditClick┘     

Called-By

Name Declaration Comments
GetNoteForEdit procedure GetNoteForEdit(var EditRec: TEditNoteRec; IEN: Integer); -


Source

508   function FindInt64(const FieldID: string): Int64;
509   var
510     i: Integer;
511   begin
512     Result := 0;
513     with RPCBrokerV do for i := 0 to Results.Count - 1 do
514       if Piece(Results[i], U, 1) = FieldID then
515       begin
516         Result := StrToInt64Def(Piece(Results[i], U, 2), 0);
517         Break;
518       end;
519   end;