[Home] [Help]
1: PACKAGE BODY eceini AS
2: -- $Header: ECWINIB.pls 120.2 2005/09/30 07:34:31 arsriniv 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);
186:
187: ec_debug.pl(3,'retcode',retcode);
188: ec_debug.pl(3,'errbuf',errbuf);
189: ec_debug.pl(3,'i_submit_id',i_submit_id);
190: ec_debug.pop('ECEINI.PROCESS_INVOICE_INBOUND');
191: ec_debug.pl(0,'EC','ECE_END_INBOUND','TRANSACTION_TYPE',i_transaction_type);
192: ec_debug.disable_debug;
193:
194: EXCEPTION
205: ec_debug.disable_debug;
206:
207: WHEN OTHERS THEN
208: ROLLBACK WORK;
209: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','ECEINI.PROCESS_INVOICE_INBOUND');
210: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
211: ece_flatfile_pvt.print_attributes;
212: retcode := 2;
213: ec_debug.disable_debug;
219: PROCEDURE get_group_id
220: IS
221: plsql_pos pls_integer;
222: BEGIN
223: ec_debug.push('ECEINI.GET_GROUP_ID');
224:
225: if l_group_id IS NULL then
226: select AP_INTERFACE_GROUPS_S.NEXTVAL
227: into l_group_id
231:
232: ec_utils.find_pos(1,'GROUP_ID',plsql_pos);
233: ec_utils.g_file_tbl(plsql_pos).value:=to_char(l_group_id);
234:
235: ec_debug.pop('ECEINI.GET_GROUP_ID');
236:
237: EXCEPTION
238: WHEN OTHERS then
239: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_NEXTVAL_SEQ');
241: ec_utils.i_ret_code := 2;
242: raise EC_UTILS.PROGRAM_EXIT;
243: END get_group_id;
244:
245: END eceini;
246: