PACKAGE BODY: APPS.GL_DAILY_BALANCES_PKG

Source

1 PACKAGE BODY GL_DAILY_BALANCES_PKG AS
2 /*  $Header: glidbalb.pls 120.3 2005/05/05 01:06:31 kvora ship $  */
3 
4 
5   --
6   -- PUBLIC FUNCTIONS
7   --
8 
9   PROCEDURE set_translated_flag( x_ledger_id         NUMBER,
10                                  x_ccid              NUMBER,
11                                  x_currency          VARCHAR2,
12                                  x_period_year       NUMBER,
13                                  x_period_num        NUMBER,
14                                  x_last_updated_by   NUMBER,
15 				 x_chart_of_accounts_id NUMBER,
16 				 x_period_name       VARCHAR2,
17 				 x_usage_code        VARCHAR2) IS
18   BEGIN
19 
20     UPDATE GL_DAILY_BALANCES bal
21        SET bal.CURRENCY_TYPE = 'O',
22            bal.LAST_UPDATE_DATE = SYSDATE,
23            bal.LAST_UPDATED_BY = x_last_updated_by
24      WHERE bal.CURRENCY_TYPE = 'T'
25        AND bal.LEDGER_ID = x_ledger_id
26        AND bal.ACTUAL_FLAG = 'A'
27        AND bal.TEMPLATE_ID IS NULL
28        AND bal.CODE_COMBINATION_ID = x_ccid
29        AND bal.CURRENCY_CODE = x_currency
30        AND (bal.PERIOD_YEAR * 1000 + bal.PERIOD_NUM) >=
31            (x_period_year * 1000 + x_period_num);
32 
33     GL_TRANS_TRACKING_PKG.set_outdated_period(x_chart_of_accounts_id,
34 		      x_ccid,
35 		      x_ledger_id,
36 		      x_currency,
37 		      x_period_year,
38 		      x_period_num,
39 		      x_period_name,
40 		      x_last_updated_by,
41 		      x_usage_code);
42 
43   EXCEPTION
44     WHEN app_exceptions.application_exception THEN
45       RAISE;
46     WHEN NO_DATA_FOUND THEN
47       RAISE NO_DATA_FOUND;
48     WHEN OTHERS THEN
49       fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
50       fnd_message.set_token('PROCEDURE',
51         'GL_DAILY_BALANCES_PKG.set_translated_flag');
52       RAISE;
53 
54   END set_translated_flag;
55 
56 
57 
58 END GL_DAILY_BALANCES_PKG;