Function

TfrmConsults.VerifyNoteTitle

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Comments

Function TfrmConsults.MakeTitleText(IsAddendum: Boolean = False): string;
{returns display text for list box based on FEditNote }
begin
  Result := FormatFMDateTime('mmm dd,yy', FEditNote.DateTime) + U;
  if IsAddendum and (CompareText(Copy(FEditNote.TitleName, 1, 8), 'Addendum') <> 0)
    then Result := Result + 'Addendum to ';
  Result := Result + FEditNote.TitleName + ', ' + FEditNote.LocationName + ', ' +
            FEditNote.AuthorName;
end;

Visibility

Private

Owner

TfrmConsults

Declaration

function VerifyNoteTitle: Boolean;

Calls Hierarchy


TfrmConsults.VerifyNoteTitle
 └GetUserParam

Called-By Hierarchy


          TfrmConsults.VerifyNoteTitle
        TfrmConsults.CompleteConsult┘ 
  TfrmConsults.mnuActCompleteClick┤   
TfrmConsults.mnuActAddIDEntryClick┘   

Calls

Name Declaration Comments
GetUserParam function GetUserParam(const AParamName: string): string; -

Called-By

Name Declaration Comments
TfrmConsults.CompleteConsult procedure CompleteConsult(IsIDChild: boolean; AnIDParent: integer; UseClinProcTitles: boolean); -


Source

3824  function TfrmConsults.VerifyNoteTitle: Boolean;
3825  const
3826    VNT_UNKNOWN = 0;
3827    VNT_NO      = 1;
3828    VNT_YES     = 2;
3829  var
3830    AParam: string;
3831  begin
3832    if FVerifyNoteTitle = VNT_UNKNOWN then
3833    begin
3834      AParam := GetUserParam('ORWOR VERIFY NOTE TITLE');
3835      if AParam = '1' then FVerifyNoteTitle := VNT_YES else FVerifyNoteTitle := VNT_NO;
3836    end;
3837    Result := FVerifyNoteTitle = VNT_YES;
3838  end;