Function

FindInt

Module

rTIU

Last Modified

7/15/2014 3:26:44 PM

Scope

Local

Local subprogram to

GetNoteForEdit

Declaration

function FindInt(const FieldID: string): Integer;

Called-By Hierarchy


                                 FindInt
                        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

495   function FindInt(const FieldID: string): Integer;
496   var
497     i: Integer;
498   begin
499     Result := 0;
500     with RPCBrokerV do for i := 0 to Results.Count - 1 do
501       if Piece(Results[i], U, 1) = FieldID then
502       begin
503         Result := StrToIntDef(Piece(Results[i], U, 2), 0);
504         Break;
505       end;
506   end;