PACKAGE BODY: APPS.GL_ELIM_GEN_PKG

Source

1 PACKAGE BODY GL_ELIM_GEN_PKG AS
2 /* $Header: glelgenb.pls 120.4 2005/05/05 02:03:41 kvora ship $ */
3 
4     -------------------------------------------------------------
5     PROCEDURE set_data (        X_period_start  DATE,
6                                 X_period_end    DATE) IS
7     BEGIN
8 	GL_ELIM_GEN_PKG.period_start_date := X_period_start;
9 	GL_ELIM_GEN_PKG.period_end_date := X_period_end;
10     END set_data;
11 
12     -------------------------------------------------------------
13     FUNCTION get_period_start_date
14     RETURN DATE IS
15     BEGIN
16 	return GL_ELIM_GEN_PKG.period_start_date;
17     END get_period_start_date;
18 
19     -------------------------------------------------------------
20     FUNCTION get_period_end_date
21     RETURN DATE IS
22     BEGIN
23 	return GL_ELIM_GEN_PKG.period_end_date;
24     END get_period_end_date;
25 
26     -------------------------------------------------------------
27     PROCEDURE insert_elim_history (
28                 X_request_id            NUMBER,
29                 X_elimination_set_id    NUMBER,
30                 X_ledger_id      	NUMBER,
31                 X_period_name           VARCHAR2
32     ) IS
33     elim_run_id   NUMBER;
34     BEGIN
35 	LOCK TABLE GL_ELIMINATION_HISTORY IN SHARE UPDATE MODE;
36 
37         SELECT GL_ELIM_HISTORY_S.nextval
38           INTO elim_run_id
39           FROM dual;
40 
41 	INSERT INTO gl_elimination_history
42 	(
43                 elimination_run_id,
44 		request_id,
45 		elimination_set_id,
46 		ledger_id,
47 		status_code,
48 		period_name,
49 		creation_date,
50 		created_by,
51 		last_update_date,
52 		last_updated_by,
53 		last_update_login
54 	)
55     	VALUES
56 	(
57                 elim_run_id,
58 		X_request_id,
59 		X_elimination_set_id,
60 		X_ledger_id,
61 		'GS',
62 		X_period_name,
63 		SYSDATE,
64 		to_number(fnd_profile.value('USER_ID')),
65 		SYSDATE,
66 		to_number(fnd_profile.value('USER_ID')),
67 		to_number(fnd_profile.value('LOGIN_ID'))
68 	);
69 
70 	EXCEPTION
71     	   WHEN app_exceptions.application_exception THEN
72       		RAISE;
73     	   WHEN OTHERS THEN
74       		fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
75       		fnd_message.set_token('PROCEDURE',
76         		'GL_ELIM_GEN_PKG.insert_elim_history');
77       	   RAISE;
78     END insert_elim_history;
79 
80     -------------------------------------------------------------
81 
82     PROCEDURE save_to_elim_hist IS
83     BEGIN
84 	commit;
85     END save_to_elim_hist;
86 
87     -------------------------------------------------------------
88 END GL_ELIM_GEN_PKG;