Function

TfrmSurgery.VerifyNoteTitle

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmSurgery

Declaration

function VerifyNoteTitle: Boolean;

Calls Hierarchy


TfrmSurgery.VerifyNoteTitle
 └GetUserParam

Called-By Hierarchy


      TfrmSurgery.VerifyNoteTitle
      TfrmSurgery.InsertNewNote┘ 
   TfrmSurgery.mnuActNewClick┘   
TfrmSurgery.cmdNewNoteClick┘     

Calls

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

Called-By

Name Declaration Comments
TfrmSurgery.InsertNewNote procedure InsertNewNote(IsIDChild: boolean; AnIDParent: integer); -


Source

844   function TfrmSurgery.VerifyNoteTitle: Boolean;
845   const
846     VNT_UNKNOWN = 0;
847     VNT_NO      = 1;
848     VNT_YES     = 2;
849   var
850     AParam: string;
851   begin
852     if FVerifyNoteTitle = VNT_UNKNOWN then
853     begin
854       AParam := GetUserParam('ORWOR VERIFY NOTE TITLE');
855       if AParam = '1' then FVerifyNoteTitle := VNT_YES else FVerifyNoteTitle := VNT_NO;
856     end;
857     Result := FVerifyNoteTitle = VNT_YES;
858   end;