[Home] [Help]
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;