DBA Data[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;