Function

FindVal

Module

rTIU

Last Modified

7/15/2014 3:26:44 PM

Scope

Local

Local subprogram to

GetNoteForEdit

Declaration

function FindVal(const FieldID: string): string;

Called-By Hierarchy


                                 FindVal
                        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

521   function FindVal(const FieldID: string): string;
522   var
523     i: Integer;
524   begin
525     Result := '';
526     with RPCBrokerV do for i := 0 to Results.Count - 1 do
527       if Piece(Results[i], U, 1) = FieldID then
528       begin
529         Result := Piece(Results[i], U, 2);
530         Break;
531       end;
532   end;