[Home] [Help]
PACKAGE BODY: APPS.GL_BALANCES_PKG
Source
1 PACKAGE BODY GL_BALANCES_PKG AS
2 /* $Header: gliblncb.pls 120.4 2005/05/05 01:02:55 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_BALANCES bal
21 SET bal.TRANSLATED_FLAG = 'N',
22 bal.LAST_UPDATE_DATE = SYSDATE,
23 bal.LAST_UPDATED_BY = x_last_updated_by
24 WHERE bal.TRANSLATED_FLAG = 'Y'
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_STATUSES_PKG.set_translation_status(
34 x_chart_of_accounts_id ,
35 x_ccid ,
36 x_ledger_id ,
37 x_currency ,
38 x_period_year ,
39 x_period_num ,
40 x_period_name ,
41 x_last_updated_by ,
42 x_usage_code);
43 EXCEPTION
44 WHEN app_exceptions.application_exception THEN
45 RAISE;
46 WHEN OTHERS THEN
47 fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
48 fnd_message.set_token('PROCEDURE',
49 'GL_BALANCES_PKG.set_translated_flag');
50 RAISE;
51
52 END set_translated_flag;
53
54 PROCEDURE gl_get_period_range_activity
55 ( P_PERIOD_FROM IN VARCHAR2
56 ,P_PERIOD_TO IN VARCHAR2
57 ,P_CODE_COMBINATION_ID IN NUMBER
58 ,P_LEDGER_ID IN NUMBER
59 ,P_PERIOD_NET_DR OUT NOCOPY NUMBER
60 ,P_PERIOD_NET_CR OUT NOCOPY NUMBER) IS
61 BEGIN
62
63 select SUM(NVL(PERIOD_NET_DR,0)), SUM(NVL(PERIOD_NET_CR,0))
64 into P_PERIOD_NET_DR, P_PERIOD_NET_CR
65 from GL_BALANCES GLB, GL_LEDGERS GLA,
66 GL_PERIOD_STATUSES GLPS,
67 GL_PERIOD_STATUSES GLPSS, GL_PERIOD_STATUSES GLPSE
68 where GLA.LEDGER_ID = P_LEDGER_ID
69 and GLB.LEDGER_ID = P_LEDGER_ID
70 and GLB.CURRENCY_CODE = GLA.CURRENCY_CODE
71 and GLB.ACTUAL_FLAG = 'A'
72 and GLB.CODE_COMBINATION_ID = P_CODE_COMBINATION_ID
73 and GLB.PERIOD_NAME = GLPS.PERIOD_NAME
74 and GLPS.LEDGER_ID = P_LEDGER_ID
75 and GLPS.APPLICATION_ID = 101
76 and GLPSS.LEDGER_ID = P_LEDGER_ID
77 and GLPSS.APPLICATION_ID = 101
78 and GLPSS.PERIOD_NAME = P_PERIOD_FROM
79 and GLPSE.LEDGER_ID = P_LEDGER_ID
80 and GLPSE.APPLICATION_ID = 101
81 and GLPSE.PERIOD_NAME = P_PERIOD_TO
82 and GLPS.PERIOD_YEAR * 10000 + GLPS.PERIOD_NUM
83 between (GLPSS.PERIOD_YEAR * 10000 + GLPSS.PERIOD_NUM)
84 and (GLPSE.PERIOD_YEAR * 10000 + GLPSE.PERIOD_NUM);
85
86 END gl_get_period_range_activity;
87
88 END GL_BALANCES_PKG;