+---------------------------------------------------------------------------+
Payables: Version : 12.2

Copyright (c) 1998, 2013, Oracle and/or its affiliates. All rights reserved.

BMXAPXINAGE: BS Invoice Aging Report
+---------------------------------------------------------------------------+

Current system time is 10-MAY-2016 11:07:53

+---------------------------------------------------------------------------+


+-----------------------------
| Starting concurrent program execution...
+-----------------------------

Arguments
------------
P_SORT_OPTION='Vendor Name'
P_SUMMARY_OPTION='N'
P_FORMAT_OPTION='N'
P_PERIOD_TYPE='4 Bucket Aging'
P_SET_OF_BOOKS_ID='1001'
P_TRACE_SWITCH='N'
P_REPORTING_CURR='CAD'
------------

 APPLLCSP Environment Variable set to :

 Current NLS_LANG and NLS_NUMERIC_CHARACTERS Environment Variables are :
American_America.UTF8

'.,'

Enter Password: 
MSG-00001: After SRWINIT
MSG-00002: After Get_Company_Name
MSG-00003: After Get_NLS_Strings
REP-1419: 'beforereport': PL/SQL program aborted.
REP-0069: Internal error
REP-57054: In-process job terminated:Terminated with error: 
REP-1419: MSG-00001: After SRWINIT
MSG-00002: After Get_Company_Name
MSG-00003: After Get_NLS_Strings
REP-1419: 'beforereport': PL/SQL program aborted.


Report Builder: Release 10.1.2.3.0 - Production on Tue May 10 11:07:54 2016

Copyright (c) 1982, 2005, Oracle.  All rights reserved.


+---------------------------------------------------------------------------+
Start of log messages from FND_FILE
+---------------------------------------------------------------------------+
+---------------------------------------------------------------------------+
End of log messages from FND_FILE
+---------------------------------------------------------------------------+
Program exited with status 1
Concurrent Manager encountered an error while running Oracle*Report for your concurrent request 43814936.

Review your concurrent request log and/or report output file for more detailed information.


+---------------------------------------------------------------------------+
No completion options were requested.

Output file size: 
0

+---------------------------------------------------------------------------+
Concurrent request completed
Current system time is 10-MAY-2016 11:07:56

+---------------------------------------------------------------------------+

function BeforeReport return boolean is
begin

/* This is the before report trigger for Oracle Payables Release 10 reports  */

DECLARE 

  init_failure    EXCEPTION;  

BEGIN

  /* Init AOL - only necessary if AOL user exits are called           */
  /* If this is deleted, also delete SRWEXIT in After Report Trigger! */

  SRW.USER_EXIT('FND SRWINIT'); 
  IF (:p_debug_switch = 'Y') THEN 
     SRW.MESSAGE('1','After SRWINIT');
  END IF;

  /* Get the organization name and SYSDATE from GL_SETS_OF_BOOKS */
  IF (get_company_name != TRUE) THEN  -- Call report level PL/SQL function
     RAISE init_failure;
  END IF;
  IF (:p_debug_switch = 'Y') THEN 
     SRW.MESSAGE('2','After Get_Company_Name');
  END IF;

  /* Get NLS strings for "All","Yes","No", and "No data exists..."  */
  IF (GET_NLS_STRINGS != TRUE) THEN -- Call report level PL/SQL function
     RAISE init_failure;
  END IF;
  IF (:p_debug_switch = 'Y') THEN 
     SRW.MESSAGE('3','After Get_NLS_Strings');
  END IF;

  /* Get code, precision, min.accountable unit,and descr. for base currency */
  IF (get_base_curr_data != TRUE) THEN   -- Call report level PL/SQL function
     RAISE init_failure;
  END IF;
  IF (:p_debug_switch = 'Y') THEN 
     SRW.MESSAGE('4','After Get_Base_Curr_Data');
  END IF;
srw.message('9999','p_sort_option is :'||:p_sort_option);

  /* Set Dynamic Order By Clause */
  IF (custom_init != TRUE) THEN  
     RAISE init_failure;
  END IF;
  IF (:p_debug_switch = 'Y') THEN 
     SRW.MESSAGE('5','After custom_init');
  END IF;

  /* If you need to print cover page values, add the code to the existing */
  /* get_cover_page_values function and uncomment the call below.         */

  /* IF (get_cover_page_values != TRUE) THEN  */
  /*    RAISE init_failure;                   */
  /* END IF;                                  */
  /* IF (:p_debug_switch = 'Y') THEN          */
  /*    SRW.MESSAGE('5','After Get_Cover_Page_Values'); */
  /* END IF;                                  */

  /* If this is a flex report, uncomment the following lines */

  /* IF (get_flexdata != TRUE) THEN             */
  /*    RAISE init_failure;                     */
  /* END IF;                                    */
  /* IF (:p_debug_switch = 'Y') THEN            */
  /*    SRW.MESSAGE ('6', 'After Get_Flexdata');*/
  /* END IF;                                    */

  /* Add any custom code to the existing custom_init PL/SQL function and */
  /* uncomment the call to it below */

  /* get Kana Sort profile option */
   BEGIN

	--Bug 2024697 Shared Services-profile options : Replaced the user exit with the 
	--Select statement which gets the value from payables options, instead of profile options .*/

	SELECT sort_by_alternate_field
	INTO :SORT_BY_ALTERNATE
	FROM AP_SYSTEM_PARAMETERS;

	
 /*  SRW.REFERENCE(:SORT_BY_ALTERNATE);
     SRW.USER_EXIT('FND GETPROFILE NAME="AP_SORT_BY_ALTERNATE" FIELD="SORT_BY_ALTERNATE" PRINT_ERROR="N"'); */
   EXCEPTION
     WHEN OTHERS THEN
       :SORT_BY_ALTERNATE := 'N';
   END;

   IF(set_order_by != TRUE) THEN               
     RAISE init_failure;                      
   END IF;                                    
   IF (:p_debug_switch = 'Y') THEN            
      SRW.MESSAGE('7','After set_order_by');   
   END IF;
                                    
   IF(get_period_info != TRUE) THEN               
     RAISE init_failure;                      
   END IF;                                    
   IF (:p_debug_switch = 'Y') THEN            
      SRW.MESSAGE('8','After Get_period_info');   
   END IF;                                    


-- Added for ECE Project
:p_seq_numbers := fnd_profile.value('UNIQUE:SEQ_NUMBERS');


  /* If the debug switch is turned on, do an SRW.BREAK to show current */
  /* parameter and column assignments.                                 */

  IF (:p_debug_switch = 'Y') THEN
     SRW.BREAK;
  END IF;

  /* If there have been no exceptions so far, RETURN(TRUE) */

  RETURN (TRUE);

/* Exception Handler Section.  If there is an exception, abort program */

EXCEPTION
    
  WHEN   OTHERS  THEN

    RAISE SRW.PROGRAM_ABORT;

END;  return (TRUE);
end;