PACKAGE BODY: APPS.AP_CUSTOM_TRIAL_BALANCE_PP_PKG

Source

1 PACKAGE BODY AP_CUSTOM_TRIAL_BALANCE_PP_PKG AS
2 /*$Header: apctbppb.pls 120.3 2004/10/27 01:31:30 pjena noship $*/
3 
4 /*==========================================================================
5  Customize the Creation of Trial Balance from Posting
6  *=====================================================================*/
7 PROCEDURE ap_custom_trial_balance_pp IS
8 
9   c                              INTEGER;
10   rows                           INTEGER;
11   statement                      VARCHAR2(2000);
12   dummy                          VARCHAR2(25);
13   l_country_code                 VARCHAR2(25);
14 
15 
16 BEGIN
17 
18   FND_PROFILE.GET('JGZZ_COUNTRY_CODE', l_country_code);
19 
20   IF l_country_code = 'BR' then
21 
22   BEGIN
23 
24   -- Call Stored Procedure JL_BR_AP_BAL_MAINTENANCE to create the balance
25   -- and transactions
26 
27   SELECT 'X' into dummy
28     from user_objects
29      where object_name = 'JL_BR_AP_BALANCE_MAINTENANCE'
30       and object_type = 'PACKAGE BODY';
31 
32   c := dbms_sql.open_cursor;
33   statement := 'BEGIN
34                 JL_BR_AP_BALANCE_MAINTENANCE.JL_BR_AP_BAL_MAINTENANCE' ||
35                 '; END; ';
36 
37       dbms_sql.parse(c, statement, dbms_sql.native);
38 
39       rows := dbms_sql.execute(c);
40       dbms_sql.close_cursor(c);
41 
42       EXCEPTION
43          WHEN NO_DATA_FOUND THEN NULL;
44          WHEN OTHERS THEN NULL;
45       END;
46 
47 ELSE
48 
49     return;
50 
51 END IF;
52 
53 END ap_custom_trial_balance_pp;
54 
55 END AP_CUSTOM_TRIAL_BALANCE_PP_PKG;