Function

FindDT

Module

rTIU

Last Modified

7/15/2014 3:26:44 PM

Comments

X: string;

Scope

Local

Local subprogram to

GetNoteForEdit

Declaration

function FindDT(const FieldID: string): TFMDateTime;

Called-By Hierarchy


                                  FindDT
                        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

469   function FindDT(const FieldID: string): TFMDateTime;
470   var
471     i: Integer;
472   begin
473     Result := 0;
474     with RPCBrokerV do for i := 0 to Results.Count - 1 do
475       if Piece(Results[i], U, 1) = FieldID then
476       begin
477         Result := MakeFMDateTime(Piece(Results[i], U, 2));
478         Break;
479       end;
480   end;