[Home] [Help]
PACKAGE BODY: APPS.JG_XLA_GL_TRANSFER_PKG
Source
1 PACKAGE BODY JG_XLA_GL_TRANSFER_PKG AS
2 /* $Header: jgzzxlab.pls 115.5 1999/11/03 11:57:02 pkm ship $ */
3
4 PROCEDURE jg_xla_message(p_application VARCHAR2,
5 p_message_code VARCHAR2,
6 p_token_1 VARCHAR2,
7 p_token_1_value VARCHAR2,
8 p_token_2 VARCHAR2,
9 p_token_2_value VARCHAR2,
10 p_token_3 VARCHAR2,
11 p_token_3_value VARCHAR2,
12 p_token_4 VARCHAR2,
13 p_token_4_value VARCHAR2
14 ) IS
15
16 BEGIN
17
18 FND_MESSAGE.SET_NAME(p_application,p_message_code);
19
20 IF p_token_1 IS NOT NULL THEN
21 fnd_message.set_token(p_token_1, p_token_1_value);
22 END IF;
23
24 IF p_token_2 IS NOT NULL THEN
25 fnd_message.set_token(p_token_2, p_token_2_value);
26 END IF;
27
28 IF p_token_3 IS NOT NULL THEN
29 fnd_message.set_token(p_token_3, p_token_3_value);
30 END IF;
31
32 IF p_token_4 IS NOT NULL THEN
33 fnd_message.set_token(p_token_4, p_token_4_value);
34 END IF;
35
36 fnd_file.put_line(fnd_file.Log,fnd_message.get);
37
38 END jg_xla_message;
39
40
41 /**************************************************************************
42 * *
43 * Name : JG_XLA_GL_TRANSFER *
44 * Purpose : This is share procedure which will verify the Product code*
45 * and run the proper Localization Package. *
46 * This procedure is run during the Common Transfer to GL pro*
47 * cess. *
48 * *
49 **************************************************************************/
50
51
52 PROCEDURE JG_XLA_GL_TRANSFER (
53 p_application_id NUMBER,
54 p_user_id NUMBER,
55 p_org_id NUMBER,
56 p_request_id NUMBER,
57 p_transfer_run_Id NUMBER,
58 p_program_name VARCHAR2,
59 p_selection_type NUMBER DEFAULT 1,
60 p_batch_name VARCHAR2,
61 p_start_date DATE,
62 p_end_date DATE,
63 p_gl_transfer_mode VARCHAR2,
64 p_process_days NUMBER DEFAULT 'N',
65 p_debug_flag VARCHAR2 ) IS
66
67 l_product_code VARCHAR2(10);
68 l_curr_calling_sequence VARCHAR2(240);
69 l_debug_info VARCHAR2(1000);
70 l_parameters VARCHAR2(2000);
71 l_is_there VARCHAR2(50);
72 l_ignore NUMBER;
73 l_cursor NUMBER;
74 l_sqlstmt VARCHAR2(1000);
75
76 l_request_id VARCHAR2(15);
77 l_transfer_run_Id VARCHAR2(15);
78 l_start_date VARCHAR2(50);
79 l_end_date VARCHAR2(50);
80
81
82
83 BEGIN
84 l_curr_calling_sequence:='JG_XLA_GL_TRANSFER_PKG.jg_xla_gl_transfer';
85
86 -------------------------------------
87 -- Get Product Code
88 -------------------------------------
89
90 fnd_profile.get('JGZZ_PRODUCT_CODE', l_product_code);
91
92 IF l_product_code='JL' THEN
93 -----------------------------------------------
94 -- Execute LatinAmerica Transfer to GL routine
95 -----------------------------------------------
96 --
97 l_debug_info:='Calling jl_xla_gl_transfer';
98 jg_xla_message('JL','JL_ZZ_ZZ_CALL_TRANSFER_TO_GL','','','','','','','','');
99
100 BEGIN
101
102 SELECT DISTINCT 'Procedure Installed'
103 INTO l_is_there
104 FROM all_source
105 WHERE name = 'JL_XLA_GL_TRANSFER_PKG'
106 AND type = 'PACKAGE BODY';
107
108 BEGIN
109
110 ---------------------------------------------------
111 -- Execute dynamically LatinAmerica Transfer to GL routine
112 ---------------------------------------------------
113 l_transfer_run_id :=to_char(p_transfer_run_id);
114 l_request_id :=to_char(p_request_id);
115 l_start_date := 'to_date(''' || to_char(p_start_date,'dd/mm/yyyy') || '''' || ',''dd/mm/yyyy'')';
116 l_end_date := 'to_date(''' || to_char(p_end_date,'dd/mm/yyyy') || '''' || ',''dd/mm/yyyy'')';
117
118 -- Create the SQL statement
119 l_cursor := dbms_sql.open_cursor;
120 l_sqlstmt := 'BEGIN jl_xla_gl_transfer_pkg.jl_xla_gl_transfer( ' ||
121 l_request_id || ',' ||
122 l_transfer_run_id || ',' ||
123 l_start_date || ',' ||
124 l_end_date || ' ); END;';
125
126 -- Parse the SQL statement
127 dbms_sql.parse (l_cursor, l_sqlstmt, dbms_sql.native);
128
129 -- Execute the SQL statement
130 l_ignore := dbms_sql.execute (l_cursor);
131
132 -- Close the cursor
133 dbms_sql.close_cursor (l_cursor);
134
135 EXCEPTION
136 WHEN others THEN
137 IF (dbms_sql.is_open(l_cursor)) THEN
138 dbms_sql.close_cursor(l_cursor);
139 END IF;
140 APP_EXCEPTION.RAISE_EXCEPTION;
141 END;
142
143 EXCEPTION
144 WHEN no_data_found THEN
145 ----------------------------------------
146 -- Regional Procedure is not installed
147 ----------------------------------------
148 null;
149 WHEN OTHERS THEN
150 APP_EXCEPTION.RAISE_EXCEPTION;
151 END;
152
153 ELSIF l_product_code='JA' THEN
154 -----------------------------------------------
155 -- Execute Asia Transfer to GL routine
156 -----------------------------------------------
157 l_debug_info:='Calling JA transfer to GL';
158 NULL;
159
160 ELSIF l_product_code='JE' THEN
161 -----------------------------------------------
162 -- Execute Europe Transfer to GL routine
163 -----------------------------------------------
164 l_debug_info:='Calling JE transfer to GL';
165 NULL;
166
167 END IF;
168
169 EXCEPTION
170 WHEN OTHERS THEN
171 jg_xla_message('XLA','XLA_GLT_DEBUG','ERROR', Sqlerrm, 'DEBUG_INFO', l_debug_info,'CALLING_SEQUENCE', l_curr_calling_sequence,'','');
172 APP_EXCEPTION.RAISE_EXCEPTION;
173
174 END JG_XLA_GL_TRANSFER;
175
176 END JG_XLA_GL_TRANSFER_PKG;