86: END IF;
87: ec_debug.pl(0,'EC','ECE_END_STAGING','TRANSACTION_TYPE',i_transaction_type);
88:
89: -- Initialize the Stack Table
90: ec_utils.g_stack.DELETE;
91:
92: --- Put the IN Variables on the Stack.
93: --- None for INI
94:
108: or else no need to derive.
109: */
110:
111: IF i_run_import = 'Y' THEN
112: m_var_found := ec_utils.find_variable(0,'L_HEADER_ID',m_stack_pos,m_plsql_pos);
113:
114: IF m_var_found THEN
115: o_invoice_id := ec_utils.g_stack(m_stack_pos).variable_value;
116: ec_debug.pl(0,'o_invoice_id ',o_invoice_id);
111: IF i_run_import = 'Y' THEN
112: m_var_found := ec_utils.find_variable(0,'L_HEADER_ID',m_stack_pos,m_plsql_pos);
113:
114: IF m_var_found THEN
115: o_invoice_id := ec_utils.g_stack(m_stack_pos).variable_value;
116: ec_debug.pl(0,'o_invoice_id ',o_invoice_id);
117: ELSE
118: ec_debug.pl(3,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME','L_HEADER_ID');
119: ec_utils.i_ret_code :=2;
115: o_invoice_id := ec_utils.g_stack(m_stack_pos).variable_value;
116: ec_debug.pl(0,'o_invoice_id ',o_invoice_id);
117: ELSE
118: ec_debug.pl(3,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME','L_HEADER_ID');
119: ec_utils.i_ret_code :=2;
120: raise EC_UTILS.PROGRAM_EXIT;
121: END IF;
122:
123: begin
116: ec_debug.pl(0,'o_invoice_id ',o_invoice_id);
117: ELSE
118: ec_debug.pl(3,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME','L_HEADER_ID');
119: ec_utils.i_ret_code :=2;
120: raise EC_UTILS.PROGRAM_EXIT;
121: END IF;
122:
123: begin
124: select group_id
129: exception
130: when no_data_found then
131: ec_debug.pl(3,'o_group_id ',o_group_id);
132: ec_debug.pl(3,'Group id not found for invoice id');
133: raise EC_UTILS.PROGRAM_EXIT;
134: when others then
135: ec_debug.pl(3,'Unable to derive Group id from invoice id');
136: ec_debug.pl(3,'o_group_id ',o_group_id);
137: end;
138:
139:
140: /* --- Get the GROUP_ID
141:
142: m_var_found := ec_utils.find_variable(0,'L_GROUP_ID',m_stack_pos,m_plsql_pos);
143: Bug No: 2101935 Commented the If condition and modified the search for group_id.
144:
145: ec_utils.find_pos(1,'GROUP_ID',m_plsql_pos);
146: o_group_id := ec_utils.g_file_tbl(m_plsql_pos).value;
141:
142: m_var_found := ec_utils.find_variable(0,'L_GROUP_ID',m_stack_pos,m_plsql_pos);
143: Bug No: 2101935 Commented the If condition and modified the search for group_id.
144:
145: ec_utils.find_pos(1,'GROUP_ID',m_plsql_pos);
146: o_group_id := ec_utils.g_file_tbl(m_plsql_pos).value;
147:
148: IF m_var_found THEN
149: o_group_id := ec_utils.g_stack(m_stack_pos).variable_value;
142: m_var_found := ec_utils.find_variable(0,'L_GROUP_ID',m_stack_pos,m_plsql_pos);
143: Bug No: 2101935 Commented the If condition and modified the search for group_id.
144:
145: ec_utils.find_pos(1,'GROUP_ID',m_plsql_pos);
146: o_group_id := ec_utils.g_file_tbl(m_plsql_pos).value;
147:
148: IF m_var_found THEN
149: o_group_id := ec_utils.g_stack(m_stack_pos).variable_value;
150: ELSE
145: ec_utils.find_pos(1,'GROUP_ID',m_plsql_pos);
146: o_group_id := ec_utils.g_file_tbl(m_plsql_pos).value;
147:
148: IF m_var_found THEN
149: o_group_id := ec_utils.g_stack(m_stack_pos).variable_value;
150: ELSE
151: ec_debug.pl(3,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME','L_GROUP_ID');
152: ec_utils.i_ret_code :=2;
153: raise EC_UTILS.PROGRAM_EXIT;
148: IF m_var_found THEN
149: o_group_id := ec_utils.g_stack(m_stack_pos).variable_value;
150: ELSE
151: ec_debug.pl(3,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME','L_GROUP_ID');
152: ec_utils.i_ret_code :=2;
153: raise EC_UTILS.PROGRAM_EXIT;
154: END IF;
155:
156: IF i_run_import = 'Y' THEN
149: o_group_id := ec_utils.g_stack(m_stack_pos).variable_value;
150: ELSE
151: ec_debug.pl(3,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME','L_GROUP_ID');
152: ec_utils.i_ret_code :=2;
153: raise EC_UTILS.PROGRAM_EXIT;
154: END IF;
155:
156: IF i_run_import = 'Y' THEN
157: Bug 2204431 end
177: END IF;
178:
179: COMMIT;
180:
181: retcode := ec_utils.i_ret_code;
182:
183: IF ec_mapping_utils.ec_get_trans_upgrade_status(i_transaction_type, i_map_id) = 'U' THEN
184: ec_debug.pl(0,'EC','ECE_REC_TRANS_PENDING',NULL);
185: retcode := 1;
198: retcode := 1;
199: ec_debug.disable_debug;
200: ROLLBACK WORK;
201:
202: WHEN ec_utils.program_exit then
203: retcode := ec_utils.i_ret_code;
204: ece_flatfile_pvt.print_attributes;
205: ROLLBACK WORK;
206: ec_debug.disable_debug;
199: ec_debug.disable_debug;
200: ROLLBACK WORK;
201:
202: WHEN ec_utils.program_exit then
203: retcode := ec_utils.i_ret_code;
204: ece_flatfile_pvt.print_attributes;
205: ROLLBACK WORK;
206: ec_debug.disable_debug;
207:
229: from dual;
230: end if;
231: ec_debug.pl(3,'l_group_id',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:
230: end if;
231: ec_debug.pl(3,'l_group_id',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
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');
241: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
242: ec_utils.i_ret_code := 2;
243: raise EC_UTILS.PROGRAM_EXIT;
244: END get_group_id;
238: EXCEPTION
239: WHEN OTHERS then
240: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_NEXTVAL_SEQ');
241: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
242: ec_utils.i_ret_code := 2;
243: raise EC_UTILS.PROGRAM_EXIT;
244: END get_group_id;
245:
246: END eceini;
239: WHEN OTHERS then
240: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_NEXTVAL_SEQ');
241: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
242: ec_utils.i_ret_code := 2;
243: raise EC_UTILS.PROGRAM_EXIT;
244: END get_group_id;
245:
246: END eceini;
247: