Function

CanTitleBeIDChild

Module

rTIU

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

function CanTitleBeIDChild(Title: integer; var WhyNot: string): boolean;

Called-By Hierarchy


                           CanTitleBeIDChild
             TfrmNoteProperties.cmdOKClick┤ 
  TfrmNoteProperties.cboNewTitleDblClick┘ │ 
           TfrmDCSummProperties.cmdOKClick┤ 
TfrmDCSummProperties.cboNewTitleDblClick┘ │ 
                  TfrmDCSumm.InsertNewSumm┤ 
               TfrmDCSumm.mnuActNewClick┤ │ 
            TfrmDCSumm.cmdNewSummClick┘ │ │ 
        TfrmDCSumm.mnuActAddIDEntryClick┘ │ 
              TfrmConsults.CompleteConsult┤ 
        TfrmConsults.mnuActCompleteClick┤ │ 
      TfrmConsults.mnuActAddIDEntryClick┘ │ 
                   TfrmNotes.InsertNewNote┘ 
                TfrmNotes.mnuActNewClick┤   
             TfrmNotes.cmdNewNoteClick┘ │   
         TfrmNotes.mnuActAddIDEntryClick┘   

Called-By

Name Declaration Comments
TfrmNoteProperties.cmdOKClick procedure cmdOKClick(Sender: TObject); -
TfrmDCSummProperties.cmdOKClick procedure cmdOKClick(Sender: TObject); -
TfrmConsults.CompleteConsult procedure CompleteConsult(IsIDChild: boolean; AnIDParent: integer; UseClinProcTitles: boolean); -
TfrmNotes.InsertNewNote procedure InsertNewNote(IsIDChild: boolean; AnIDParent: integer); -
TfrmDCSumm.InsertNewSumm procedure InsertNewSumm(IsIDChild: boolean; AnIDParent: integer); -


Source

1052  function CanTitleBeIDChild(Title: integer; var WhyNot: string): boolean;
1053  var
1054    x: string;
1055  begin
1056    Result := False;
1057    x := sCallV('ORWTIU CANLINK', [Title]);
1058    if Piece(x, U, 1) = '1' then
1059      Result := True
1060    else if Piece(x, U, 1) = '0' then
1061      begin
1062        Result := False;
1063        WhyNot := Piece(x, U, 2);
1064      end;
1065  end;