PACKAGE BODY: APPS.GL_TRANS_TRACKING_PKG

Source

1 PACKAGE BODY GL_TRANS_TRACKING_PKG AS
2 /*  $Header: glitrtkb.pls 120.3 2005/05/05 01:29:11 kvora ship $  */
3 
4 
5   --
6   -- PUBLIC FUNCTIONS
7   --
8 
9   PROCEDURE set_outdated_period( x_chart_of_accounts_id NUMBER,
10 				 x_ccid	             NUMBER,
11 				 x_ledger_id         NUMBER,
12                                  x_currency          VARCHAR2,
13                                  x_period_year       NUMBER,
14                                  x_period_num        NUMBER,
15 				 x_period_name	     VARCHAR2,
16                                  x_last_updated_by   NUMBER,
17 				 x_usage_code        VARCHAR2) IS
18     bsv		VARCHAR2(25);
19 
20   BEGIN
21     IF (fnd_flex_keyval.validate_ccid('SQLGL',
22 				      'GL#',
23 				      x_chart_of_accounts_id,
24 				      x_ccid,
25 				      'GL_BALANCING') = TRUE) THEN
26     	bsv := fnd_flex_keyval.concatenated_values;
27     ELSE
28 	fnd_message.set_name('SQLGL', fnd_flex_keyval.encoded_error_message);
29 	app_exception.raise_exception;
30     END IF;
31 
32     UPDATE GL_TRANSLATION_TRACKING trtrk
33        SET trtrk.FIRST_OUTDATED_EFF_PERIOD_NUM =
34 		 x_period_year * 10000 + x_period_num,
35 	   trtrk.FIRST_OUTDATED_PERIOD_NAME = x_period_name,
36            trtrk.LAST_UPDATE_DATE = SYSDATE,
37            trtrk.LAST_UPDATED_BY = x_last_updated_by
38      WHERE trtrk.LEDGER_ID = x_ledger_id
39        AND trtrk.BAL_SEG_VALUE = bsv
40        AND trtrk.TARGET_CURRENCY= x_currency
41        AND trtrk.AVERAGE_TRANSLATION_FLAG = 'Y'
42        AND trtrk.ACTUAL_FLAG = 'A'
43        AND trtrk.FIRST_OUTDATED_EFF_PERIOD_NUM >
44            (x_period_year * 10000 + x_period_num);
45 
46      GL_TRANS_STATUSES_PKG.set_translation_status( x_chart_of_accounts_id ,
47 				 x_ccid	             ,
48 				 x_ledger_id         ,
49                                  x_currency          ,
50                                  x_period_year       ,
51                                  x_period_num        ,
52 				 x_period_name	     ,
53                                  x_last_updated_by   ,
54 				 x_usage_code );
55 
56   EXCEPTION
57     WHEN app_exceptions.application_exception THEN
58       RAISE;
59     WHEN OTHERS THEN
60       fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
61       fnd_message.set_token('PROCEDURE',
62         'GL_TRANS_TRACKING_PKG.set_outdated_period');
63       RAISE;
64 
65   END set_outdated_period;
66 
67 
68 
69 END GL_TRANS_TRACKING_PKG;