Function

FindExt

Module

rTIU

Last Modified

7/15/2014 3:26:44 PM

Scope

Local

Local subprogram to

GetNoteForEdit

Declaration

function FindExt(const FieldID: string): string;

Called-By Hierarchy


                                 FindExt
                        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

482   function FindExt(const FieldID: string): string;
483   var
484     i: Integer;
485   begin
486     Result := '';
487     with RPCBrokerV do for i := 0 to Results.Count - 1 do
488       if Piece(Results[i], U, 1) = FieldID then
489       begin
490         Result := Piece(Results[i], U, 3);
491         Break;
492       end;
493   end;