PACKAGE BODY: APPS.GL_CONS_WRK_PKG

Source

1 PACKAGE BODY GL_CONS_WRK_PKG AS
2 /* $Header: glcowrkb.pls 120.5 2005/05/05 02:02:49 kvora ship $ */
3         PROCEDURE set_data (X_period     	VARCHAR2,
4 			    X_access_set_id     NUMBER) IS
5 	BEGIN
6 		GL_CONS_WRK_PKG.period := X_period;
7 		GL_CONS_WRK_PKG.access_set_id := X_access_set_id;
8         END set_data;
9 
10 	FUNCTION	get_period	RETURN VARCHAR2 IS
11         BEGIN
12                 RETURN GL_CONS_WRK_PKG.period;
13         END get_period;
14 
15 	FUNCTION	get_access_set_id	RETURN NUMBER IS
16         BEGIN
17                 RETURN GL_CONS_WRK_PKG.access_set_id;
18         END get_access_set_id;
19 
20 
21 	FUNCTION	submit_request	(
22 		X_average_translation_flag	VARCHAR2,
23 		X_ledger_id			NUMBER,
24 		X_currency_code			VARCHAR2,
25 		X_period			VARCHAR2,
26 		X_balance_type			VARCHAR2,
27 		X_balancing_segment_value	VARCHAR2,
28 		X_source_budget_version_id	NUMBER,
29 		X_target_budget_version_id	NUMBER,
30 		X_access_set_id			NUMBER,
31 		X_chart_of_accounts_id		NUMBER,
32 		X_avg_rate_type			VARCHAR2,
33 		X_eop_rate_type			VARCHAR2,
34 		X_ledger_short_name		VARCHAR2) RETURN NUMBER IS
35 	   ret_code	NUMBER;
36         BEGIN
37 	   IF (X_average_translation_flag = 'N') THEN
38 	       ret_code :=  FND_REQUEST.SUBMIT_REQUEST(
39     		'SQLGL',
40     		'GLTTRN',
41     		'',
42     		'',
43     		FALSE,
44 		X_ledger_short_name,
45 		to_char(X_access_set_id),
46 		to_char(X_chart_of_accounts_id),
47     		to_char(X_ledger_id),
48     		X_currency_code,
49     		X_period,
50     		X_balance_type,
51     		X_balancing_segment_value,
52     		to_char(X_source_budget_version_id),
53     		to_char(X_target_budget_version_id),
54 		X_avg_rate_type,
55 		X_eop_rate_type,
56 		'N',
57     		chr(0),'','','','','','','','','','','','','',
58     		'','','','','','','','','','','','','','','',
59     		'','','','','','','','','','','','','','','',
60     		'','','','','','','','','','','','','','','',
61     		'','','','','','','','','','','','','','','',
62     		'','','','','','','','','','','','','');
63 	   ELSE
64   	       ret_code := FND_REQUEST.SUBMIT_REQUEST(
65     		'SQLGL',
66     		'GLTATR',
67     		'',
68     		'',
69     		FALSE,
70     		to_char(X_ledger_id),
71     		X_currency_code,
72     		X_period,
73     		X_balancing_segment_value,
74     		chr(0),'','','','','','','','','','','','','','',
75     		'','','','','','','','','','','','','','','','','',
76     		'','','','','','','','','','','','','','','','',
77     		'','','','','','','','','','','','','','','',
78     		'','','','','','','','','','','','','','','',
79     		'','','','','','','','','','','','','','','',
80     		'','','');
81 	   END IF;
82 	   COMMIT;
83 	   RETURN (ret_code);
84      	END submit_request;
85 
86 	FUNCTION	get_translation_status	(
87 		X_ledger_id			NUMBER,
88 	        X_period_name			VARCHAR2,
89 		X_currency_code			VARCHAR2,
90 		X_actual_flag			VARCHAR2) RETURN VARCHAR2 IS
91 	ret_val VARCHAR2(2);
92         BEGIN
93 		SELECT DECODE (MAX (STATUS),
94 			'C', 'C',
95 			'U', 'U', 'N')
96 		INTO ret_val
97 		FROM GL_TRANSLATION_STATUSES
98 		WHERE ledger_id = X_ledger_id
99 		AND   period_name = X_period_name
100 		AND   target_currency = X_currency_code
101 		AND   actual_flag = X_actual_flag;
102 
103 		RETURN ret_val;
104 	END get_translation_status;
105 
106 END GL_CONS_WRK_PKG;