Function

AttachEntryToParent

Module

rTIU

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

function AttachEntryToParent(DocID, ParentDocID: string; var WhyNot: string): boolean;

Called-By Hierarchy


                         AttachEntryToParent
                TfrmDCSumm.DoAttachIDChild┤ 
              TfrmDCSumm.tvSummsDragDrop┤ │ 
  TfrmDCSumm.mnuActAttachtoIDParentClick┘ │ 
              TfrmConsults.DoAttachIDChild┤ 
        TfrmConsults.tvCsltNotesDragDrop┤ │ 
TfrmConsults.mnuActAttachtoIDParentClick┘ │ 
                 TfrmNotes.DoAttachIDChild┘ 
               TfrmNotes.tvNotesDragDrop┤   
   TfrmNotes.mnuActAttachtoIDParentClick┘   

Called-By

Name Declaration Comments
TfrmDCSumm.DoAttachIDChild procedure DoAttachIDChild(AChild, AParent: TORTreeNode); -
TfrmConsults.DoAttachIDChild procedure DoAttachIDChild(AChild, AParent: TORTreeNode); -
TfrmNotes.DoAttachIDChild procedure DoAttachIDChild(AChild, AParent: TORTreeNode); -


Source

1106  function AttachEntryToParent(DocID, ParentDocID: string; var WhyNot: string): boolean;
1107  var
1108    x: string;
1109  begin
1110    x := sCallV('TIU ID ATTACH ENTRY', [DocID, ParentDocID]);
1111    if StrToIntDef(Piece(x, U, 1), 0) > 0 then
1112      Result := True
1113    else
1114      begin
1115        Result := False;
1116        WhyNot := Piece(x, U, 2);
1117      end;
1118  end;