61: IF P_category_id is not null Then
62: For ctrlrec in c_ctrl loop
63:
64: If ctrlrec.transfer_status <> 'C' then
65: fnd_message.set_name ('IGI','IGI_IMP_IAC_TRANSFER_NOT_DONE');
66: igi_iac_debug_pkg.debug_other_msg(p_level => g_state_level,
67: p_full_path => l_path_name,
68: p_remove_from_stack => FALSE);
69: Errbuf := fnd_message.get;
65: fnd_message.set_name ('IGI','IGI_IMP_IAC_TRANSFER_NOT_DONE');
66: igi_iac_debug_pkg.debug_other_msg(p_level => g_state_level,
67: p_full_path => l_path_name,
68: p_remove_from_stack => FALSE);
69: Errbuf := fnd_message.get;
70: fnd_file.put_line(fnd_file.log, errbuf);
71: retcode := 2 ;
72: RETURN ;
73: end if;
90: WHEN OTHERS THEN
91: igi_iac_debug_pkg.debug_other_string(p_level => g_unexp_level,
92: p_full_path => l_path_name,
93: p_string => 'Error : Fetching period counter from control '|| sqlerrm);
94: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
95: fnd_message.set_token('ERROR', sqlerrm);
96: fnd_message.set_token('OPERATION', 'fetch period and corporate book info');
97: Errbuf := fnd_message.get;
98: fnd_file.put_line(fnd_file.log, errbuf);
91: igi_iac_debug_pkg.debug_other_string(p_level => g_unexp_level,
92: p_full_path => l_path_name,
93: p_string => 'Error : Fetching period counter from control '|| sqlerrm);
94: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
95: fnd_message.set_token('ERROR', sqlerrm);
96: fnd_message.set_token('OPERATION', 'fetch period and corporate book info');
97: Errbuf := fnd_message.get;
98: fnd_file.put_line(fnd_file.log, errbuf);
99: raise igi_imp_purge_iac_exception ;
92: p_full_path => l_path_name,
93: p_string => 'Error : Fetching period counter from control '|| sqlerrm);
94: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
95: fnd_message.set_token('ERROR', sqlerrm);
96: fnd_message.set_token('OPERATION', 'fetch period and corporate book info');
97: Errbuf := fnd_message.get;
98: fnd_file.put_line(fnd_file.log, errbuf);
99: raise igi_imp_purge_iac_exception ;
100: END;
93: p_string => 'Error : Fetching period counter from control '|| sqlerrm);
94: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
95: fnd_message.set_token('ERROR', sqlerrm);
96: fnd_message.set_token('OPERATION', 'fetch period and corporate book info');
97: Errbuf := fnd_message.get;
98: fnd_file.put_line(fnd_file.log, errbuf);
99: raise igi_imp_purge_iac_exception ;
100: END;
101:
106: l_txns_flag := 'Y' ;
107: end loop ;
108:
109: If l_txns_flag = 'Y' Then
110: fnd_message.set_name ('IGI','IGI_IMP_IAC_TXNS_AFTER_TFR');
111: igi_iac_debug_pkg.debug_other_msg(p_level => g_state_level,p_full_path => l_path_name,
112: p_remove_from_stack => FALSE);
113: Errbuf := fnd_message.get;
114: fnd_file.put_line(fnd_file.log, errbuf);
109: If l_txns_flag = 'Y' Then
110: fnd_message.set_name ('IGI','IGI_IMP_IAC_TXNS_AFTER_TFR');
111: igi_iac_debug_pkg.debug_other_msg(p_level => g_state_level,p_full_path => l_path_name,
112: p_remove_from_stack => FALSE);
113: Errbuf := fnd_message.get;
114: fnd_file.put_line(fnd_file.log, errbuf);
115: retcode := 2 ;
116: RETURN ;
117: End If;
124: l_period_Counter ,
125: l_prd_rec
126: )))
127: THEN
128: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
129: fnd_message.set_token('ERROR', ' ');
130: fnd_message.set_token('OPERATION', 'fetch period info for period counter');
131: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
132: p_full_path => l_path_name,
125: l_prd_rec
126: )))
127: THEN
128: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
129: fnd_message.set_token('ERROR', ' ');
130: fnd_message.set_token('OPERATION', 'fetch period info for period counter');
131: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
132: p_full_path => l_path_name,
133: p_remove_from_stack => FALSE);
126: )))
127: THEN
128: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
129: fnd_message.set_token('ERROR', ' ');
130: fnd_message.set_token('OPERATION', 'fetch period info for period counter');
131: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
132: p_full_path => l_path_name,
133: p_remove_from_stack => FALSE);
134: Errbuf := fnd_message.get;
130: fnd_message.set_token('OPERATION', 'fetch period info for period counter');
131: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
132: p_full_path => l_path_name,
133: p_remove_from_stack => FALSE);
134: Errbuf := fnd_message.get;
135: fnd_file.put_line(fnd_file.log, errbuf);
136: raise igi_imp_purge_iac_exception ;
137: END IF;
138:
266: IF ( SQL%rowcount = 0 ) THEN
267: igi_iac_debug_pkg.debug_other_string(p_level => g_error_level,
268: p_full_path => l_path_name,
269: p_string => 'ERROR : Could not set igi_imp_iac_interface_ctrl status to NOT TRANSFERRED');
270: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
271: fnd_message.set_token('ERROR', 'igi_imp_iac_interface_ctrl table does not contain anyrows for given book and category');
272: fnd_message.set_token('OPERATION', 'update transfer status to Not Transferred');
273: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
274: p_full_path => l_path_name,
267: igi_iac_debug_pkg.debug_other_string(p_level => g_error_level,
268: p_full_path => l_path_name,
269: p_string => 'ERROR : Could not set igi_imp_iac_interface_ctrl status to NOT TRANSFERRED');
270: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
271: fnd_message.set_token('ERROR', 'igi_imp_iac_interface_ctrl table does not contain anyrows for given book and category');
272: fnd_message.set_token('OPERATION', 'update transfer status to Not Transferred');
273: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
274: p_full_path => l_path_name,
275: p_remove_from_stack => FALSE);
268: p_full_path => l_path_name,
269: p_string => 'ERROR : Could not set igi_imp_iac_interface_ctrl status to NOT TRANSFERRED');
270: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
271: fnd_message.set_token('ERROR', 'igi_imp_iac_interface_ctrl table does not contain anyrows for given book and category');
272: fnd_message.set_token('OPERATION', 'update transfer status to Not Transferred');
273: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
274: p_full_path => l_path_name,
275: p_remove_from_stack => FALSE);
276: Errbuf := fnd_message.get;
272: fnd_message.set_token('OPERATION', 'update transfer status to Not Transferred');
273: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
274: p_full_path => l_path_name,
275: p_remove_from_stack => FALSE);
276: Errbuf := fnd_message.get;
277: fnd_file.put_line(fnd_file.log, errbuf);
278: raise igi_imp_purge_iac_exception ;
279: END IF;
280: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
291: IF ( SQL%rowcount = 0 ) THEN
292: igi_iac_debug_pkg.debug_other_string(p_level => g_error_level,
293: p_full_path => l_path_name,
294: p_string => 'ERROR : Could not set igi_imp_iac_interface status to NOT TRANSFERRED');
295: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
296: fnd_message.set_token('ERROR', 'igi_imp_iac_interface table does not contain anyrows for given book and category');
297: fnd_message.set_token('OPERATION', 'update transfer flag to N');
298: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
299: p_full_path => l_path_name,
292: igi_iac_debug_pkg.debug_other_string(p_level => g_error_level,
293: p_full_path => l_path_name,
294: p_string => 'ERROR : Could not set igi_imp_iac_interface status to NOT TRANSFERRED');
295: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
296: fnd_message.set_token('ERROR', 'igi_imp_iac_interface table does not contain anyrows for given book and category');
297: fnd_message.set_token('OPERATION', 'update transfer flag to N');
298: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
299: p_full_path => l_path_name,
300: p_remove_from_stack => FALSE);
293: p_full_path => l_path_name,
294: p_string => 'ERROR : Could not set igi_imp_iac_interface status to NOT TRANSFERRED');
295: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
296: fnd_message.set_token('ERROR', 'igi_imp_iac_interface table does not contain anyrows for given book and category');
297: fnd_message.set_token('OPERATION', 'update transfer flag to N');
298: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
299: p_full_path => l_path_name,
300: p_remove_from_stack => FALSE);
301: Errbuf := fnd_message.get;
297: fnd_message.set_token('OPERATION', 'update transfer flag to N');
298: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
299: p_full_path => l_path_name,
300: p_remove_from_stack => FALSE);
301: Errbuf := fnd_message.get;
302: fnd_file.put_line(fnd_file.log, errbuf);
303: raise igi_imp_purge_iac_exception ;
304: END IF;
305: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
326: ROLLBACK WORK ;
327: igi_iac_debug_pkg.debug_other_string(p_level => g_unexp_level,
328: p_full_path => l_path_name,
329: p_string => 'Unknown Exception : Purge IAC Data failed - '|| sqlerrm);
330: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
331: fnd_message.set_token('ERROR', sqlerrm);
332: fnd_message.set_token('OPERATION', ' ');
333: Errbuf := fnd_message.get;
334: retcode := 2;
327: igi_iac_debug_pkg.debug_other_string(p_level => g_unexp_level,
328: p_full_path => l_path_name,
329: p_string => 'Unknown Exception : Purge IAC Data failed - '|| sqlerrm);
330: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
331: fnd_message.set_token('ERROR', sqlerrm);
332: fnd_message.set_token('OPERATION', ' ');
333: Errbuf := fnd_message.get;
334: retcode := 2;
335: RETURN ;
328: p_full_path => l_path_name,
329: p_string => 'Unknown Exception : Purge IAC Data failed - '|| sqlerrm);
330: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
331: fnd_message.set_token('ERROR', sqlerrm);
332: fnd_message.set_token('OPERATION', ' ');
333: Errbuf := fnd_message.get;
334: retcode := 2;
335: RETURN ;
336: END; -- end of procedure purge iac data
329: p_string => 'Unknown Exception : Purge IAC Data failed - '|| sqlerrm);
330: fnd_message.set_name ('IGI','IGI_IAC_PURGE_IAC_ERROR');
331: fnd_message.set_token('ERROR', sqlerrm);
332: fnd_message.set_token('OPERATION', ' ');
333: Errbuf := fnd_message.get;
334: retcode := 2;
335: RETURN ;
336: END; -- end of procedure purge iac data
337: END; -- end of package