Function

DetachEntryFromParent

Module

rTIU

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

function DetachEntryFromParent(DocID: string; var WhyNot: string): boolean;

Called-By Hierarchy


                       DetachEntryFromParent
  TfrmDCSumm.mnuActDetachFromIDParentClick┤ 
                TfrmDCSumm.DoAttachIDChild┤ 
              TfrmDCSumm.tvSummsDragDrop┤ │ 
  TfrmDCSumm.mnuActAttachtoIDParentClick┘ │ 
TfrmConsults.mnuActDetachFromIDParentClick┤ 
              TfrmConsults.DoAttachIDChild┤ 
        TfrmConsults.tvCsltNotesDragDrop┤ │ 
TfrmConsults.mnuActAttachtoIDParentClick┘ │ 
   TfrmNotes.mnuActDetachFromIDParentClick┤ 
                 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); -
TfrmDCSumm.mnuActDetachFromIDParentClick procedure mnuActDetachFromIDParentClick(Sender: TObject); -
TfrmConsults.mnuActDetachFromIDParentClick procedure mnuActDetachFromIDParentClick(Sender: TObject); -
TfrmNotes.mnuActDetachFromIDParentClick procedure mnuActDetachFromIDParentClick(Sender: TObject); -


Source

1120  function DetachEntryFromParent(DocID: string; var WhyNot: string): boolean;
1121  var
1122    x: string;
1123  begin
1124    x := sCallV('TIU ID DETACH ENTRY', [DocID]);
1125    if StrToIntDef(Piece(x, U, 1), 0) > 0 then
1126      Result := True
1127    else
1128      begin
1129        Result := False;
1130        WhyNot := Piece(x, U, 2);
1131      end;
1132  end;