PROCEDURE DocumentAuthorization IS
  lvValidAuthorizer     VARCHAR2 (1)                          := 'N';
  lvErrMessage          ErrorTable.ErrorMessage%TYPE;
  lvSpace               VARCHAR2 (4)                          := chr (10);
  lvDocsi               Document_hdr.ForeignSumInsured%TYPE   := 0;
  lvSubject             VARCHAR2 (2000);
  lvMessage             VARCHAR2 (4000);
  lvMessageId           VARCHAR2 (30);
  lvCurrentAlertTitle   VARCHAR2 (50);
  lValertNumber         NUMBER;
  lvOldWhereClause      VARCHAR2 (1000)
                                := Get_Block_Property ('MASTER', Default_Where);
  lvNewWhereClause      VARCHAR2 (1000);
  lvLinkId              Document_hdr.LinkId%TYPE              := :Master.LinkId;
  lvValue               VARCHAR2 (4000);   -- Added by Jyothi on 08.04.2006
BEGIN
  IF General_2.CheckForauthOrizerValidation
            (:Global.CompanyCode,
             :Global.UnitCode,
             nvl (:Master.DocumentType, 'POL'),
             :Global.UserId,
             NULL,   --:Master.PackageCode, -- commented by saiphani on 18.07.2005
             :Master.MainClass,
             NULL,   --SubClass,
             0) = 'N' THEN
    --LvDocSI) = 'N' Then
    lValertNumber  := Errors.ShowAlert ('ITEMERRMESG',
                                        '10065',
                                        'ERROR',
                                        :Global.UserId,
                                        NULL);
    Go_Item (:Control.TabViewFirstItem);
    RAISE Form_Trigger_Failure;
  END IF;
  BEGIN
    lvValue  := General_3.GetApplicationValue (:Global.CompanyCode,
                                               :Global.UnitCode,
                                               'IS_AUTHORIZER_MODIFIER');
  EXCEPTION
    WHEN OTHERS THEN
      lvValue  := 'N';
  END;
  IF lvValue = 'Y' THEN
    :Control.ModelIst  := 'Modify';
    :Control.ModeFlag  := :Control.ModelIst;
    ChoiceProc;
  END IF;
  :Master.AuthorizedUser  := :Global.UserId;
  :Master.AuthorizedDate  := SYSDATE;
  CallProcsAfterAuthorization;
  -- Committing the Changes...
  Commit_Form;
  -- Added by Malavika - otherwise all the records will get queried at direct authorizaton after the
  -- Proposal convertion to policy
  :Parameter.FundType     := :Master.FundType;
  :Parameter.DocumentNo   := :Master.DocumentNo;
  lvOldWhereClause        := Get_Block_Property ('Master', Default_Where);
  Go_Block ('MASTER');
  Set_Block_Property ('Master',
                      Default_Where,
                      lvOldWhereClause
                      || ' And LinkId = '
                      || ''''
                      || lvLinkId
                      || '''');
  Execute_Query;
  Set_Block_Property ('Master', Default_Where, lvOldWhereClause);
  -- ReSetting Alert Title to old one
  Set_Alert_Property ('ItemErrMesg', Title, lvCurrentAlertTitle);
  -- Reset values
  :Control.ModelIst       := NULL;
  :Control.ModeFlag       := :Control.ModelIst;
  ChoiceProc;
EXCEPTION
  WHEN OTHERS THEN
    DisplayAlert ('ITEMERRMESG',
                  NULL,
                  'Error in Document Authorization : ' || dbms_Error_Text,
                  '',
                  NULL,
                  lValertNumber);
    Copy ('N', 'Control.CommitLevel');
    Copy ('N', 'Parameter.CommitingFlag');
    RAISE Form_Trigger_Failure;
END;

DECLARE
/*****************************************************************************************
 This trigger is used to trap errors generated by forms application.
*****************************************************************************************/
BEGIN
	if not form_success then
			Message('error_text'||error_text||'dbms_error_text'||dbms_error_text||'sqlerrm'||sqlerrm);Pause;
	End if;
	
	DECLARE
		LvMissErr EXCEPTION;
		Pragma    EXCEPTION_INIT(lvMissErr, -20000);
		LvErrNo   NUMBER;
		LvErrType VARCHAR2(20);
		LvErrMesg VARCHAR2(100);
		IdAlert   ALERT := Find_Alert('SYSTEMERROR');
	BEGIN
		If SqlCode = 0 Then
			lvErrNo := Error_Code;
		Else
			lvErrNo := SqlCode;
		End If;

		LvErrMesg := Error_Text ;
--     If :Control.ShowError IN (NULL,'Y') Then  -- manupulating field format mask errors
		If lvErrNo IN (40200,41050) Then
			Message(' Field is protected against update ..', No_Acknowledge);
		ElsIf lvErrNo = 40831 Then
			Message(' ', No_Acknowledge);
		ElsIf lvErrNo = 40203 Then
			Message(' Field Must be Entered Completely..', No_Acknowledge);
		ElsIf lvErrNo = 40207 Then
			Message(' Invalid Range Given ..', No_Acknowledge);
		ElsIf lvErrNo = 40212 THEN
			Message(' Feild Value is Invalid. Pick from List..',No_Acknowledge);
	 	ElsIf LvErrNo In (40105, 41014) Then
        	-- This is for errors arising out of ScreenSettings proc call
        	-- 40105 is for Unable to resolve reference to item
        	-- 41014 is for Cannot set attribute of null canvas item
        	Null; -- This is for set item property(Screen Settings)

	 	Elsif lvErrNo = 0 THEN
			Message(' Unable To Insert Due To Incompatible Data..',No_Acknowledge);
		Else
			/*           Set_Alert_Property(idAlert, Alert_Message_Text, 
               'Error No: ' || To_Char(lvErrNo) || ', Message: ' || lvErrMesg);
           If Show_Alert(idAlert) = Alert_Button1 Then
              Null;
           End If;
			*/
			Message('Error No: ' || To_Char(lvErrNo) || ', Message: ' || lvErrMesg, No_Acknowledge);
		End If;
  --   End If;
		Raise Form_Trigger_Failure;
	EXCEPTION
		WHEN lvMissErr THEN
		/*             Set_Alert_Property(idAlert, Alert_Message_Text, 
                'Error no:' || :global.Err ||
                ' of type:' || :global.Type || 
                ' not defined in the database');
             If Show_Alert(idAlert) = Alert_Button1 Then
                Return;
             End If;*/
		Message('Error no:' || :global.Err || ' of type:' || :global.Type || 
                ' not defined in the database',No_Acknowledge);
	END;
END;