[Home] [Help]
1: PACKAGE BODY eceini AS
2: -- $Header: ECWINIB.pls 120.3 2010/07/15 19:35:48 akemiset ship $
3:
4: l_group_id number; --Bug 2598743
5:
33: ece_transaction_disabled EXCEPTION;
34:
35: BEGIN
36: ec_debug.enable_debug(i_debug_mode);
37: ec_debug.push('ECEINI.PROCESS_INVOICE_INBOUND');
38: ec_debug.pl(3,'i_file_path',i_file_path);
39: ec_debug.pl(3,'i_file_name',i_file_name);
40: ec_debug.pl(3,'i_run_import',i_run_import);
41: ec_debug.pl(3,'i_debug_mode',i_debug_mode);
187:
188: ec_debug.pl(3,'retcode',retcode);
189: ec_debug.pl(3,'errbuf',errbuf);
190: ec_debug.pl(3,'i_submit_id',i_submit_id);
191: ec_debug.pop('ECEINI.PROCESS_INVOICE_INBOUND');
192: ec_debug.pl(0,'EC','ECE_END_INBOUND','TRANSACTION_TYPE',i_transaction_type);
193: ec_debug.disable_debug;
194:
195: EXCEPTION
206: ec_debug.disable_debug;
207:
208: WHEN OTHERS THEN
209: ROLLBACK WORK;
210: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','ECEINI.PROCESS_INVOICE_INBOUND');
211: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
212: ece_flatfile_pvt.print_attributes;
213: retcode := 2;
214: ec_debug.disable_debug;
220: PROCEDURE get_group_id
221: IS
222: plsql_pos pls_integer;
223: BEGIN
224: ec_debug.push('ECEINI.GET_GROUP_ID');
225:
226: if l_group_id IS NULL then
227: select AP_INTERFACE_GROUPS_S.NEXTVAL
228: into l_group_id
232:
233: ec_utils.find_pos(1,'GROUP_ID',plsql_pos);
234: ec_utils.g_file_tbl(plsql_pos).value:=to_char(l_group_id);
235:
236: ec_debug.pop('ECEINI.GET_GROUP_ID');
237:
238: EXCEPTION
239: WHEN OTHERS then
240: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_NEXTVAL_SEQ');
242: ec_utils.i_ret_code := 2;
243: raise EC_UTILS.PROGRAM_EXIT;
244: END get_group_id;
245:
246: END eceini;
247: