135: When No_data_found Then
136: Return(FALSE);
137: When Others Then
138: If (SQLCODE <> -20001) Then
139: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
140: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
141: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
142: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
143:
136: Return(FALSE);
137: When Others Then
138: If (SQLCODE <> -20001) Then
139: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
140: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
141: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
142: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
143:
144: IF ( l_unexp_level >= l_debug_level) THEN
137: When Others Then
138: If (SQLCODE <> -20001) Then
139: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
140: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
141: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
142: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
143:
144: IF ( l_unexp_level >= l_debug_level) THEN
145: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
138: If (SQLCODE <> -20001) Then
139: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
140: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
141: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
142: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
143:
144: IF ( l_unexp_level >= l_debug_level) THEN
145: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
146: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
141: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
142: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
143:
144: IF ( l_unexp_level >= l_debug_level) THEN
145: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
146: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
147: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
148: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Encumbrance_Enabled.msg1',TRUE);
149: END IF;
142: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
143:
144: IF ( l_unexp_level >= l_debug_level) THEN
145: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
146: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
147: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
148: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Encumbrance_Enabled.msg1',TRUE);
149: END IF;
150:
143:
144: IF ( l_unexp_level >= l_debug_level) THEN
145: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
146: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
147: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
148: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Encumbrance_Enabled.msg1',TRUE);
149: END IF;
150:
151: End If;
191: p_packet_id := l_packet_id_old;
192: p_mode := l_mode_old;
193: p_partial_resv_flag := l_partial_resv_flag_old;
194: If (SQLCODE <> -20001) Then
195: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
196: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
197: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
198: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Called_by = '|| p_called_by
199: ||', Packet Id = '|| to_char(p_packet_id)
192: p_mode := l_mode_old;
193: p_partial_resv_flag := l_partial_resv_flag_old;
194: If (SQLCODE <> -20001) Then
195: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
196: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
197: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
198: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Called_by = '|| p_called_by
199: ||', Packet Id = '|| to_char(p_packet_id)
200: ||', Mode = '|| p_mode
193: p_partial_resv_flag := l_partial_resv_flag_old;
194: If (SQLCODE <> -20001) Then
195: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
196: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
197: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
198: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Called_by = '|| p_called_by
199: ||', Packet Id = '|| to_char(p_packet_id)
200: ||', Mode = '|| p_mode
201: ||', Partial Reservation Flag = '|| p_partial_resv_flag);
194: If (SQLCODE <> -20001) Then
195: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
196: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
197: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
198: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Called_by = '|| p_called_by
199: ||', Packet Id = '|| to_char(p_packet_id)
200: ||', Mode = '|| p_mode
201: ||', Partial Reservation Flag = '|| p_partial_resv_flag);
202: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
198: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Called_by = '|| p_called_by
199: ||', Packet Id = '|| to_char(p_packet_id)
200: ||', Mode = '|| p_mode
201: ||', Partial Reservation Flag = '|| p_partial_resv_flag);
202: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
203:
204: IF ( l_unexp_level >= l_debug_level) THEN
205: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
206: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
201: ||', Partial Reservation Flag = '|| p_partial_resv_flag);
202: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
203:
204: IF ( l_unexp_level >= l_debug_level) THEN
205: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
206: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
207: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
208: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Setup_Gl_Fundschk_Params.msg2',TRUE);
209: END IF;
202: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
203:
204: IF ( l_unexp_level >= l_debug_level) THEN
205: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
206: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
207: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
208: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Setup_Gl_Fundschk_Params.msg2',TRUE);
209: END IF;
210:
203:
204: IF ( l_unexp_level >= l_debug_level) THEN
205: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
206: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
207: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
208: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Setup_Gl_Fundschk_Params.msg2',TRUE);
209: END IF;
210:
211: End If;
233: Exception
234: When Others Then
235: p_packet_id := l_packet_id_old;
236: If (SQLCODE <> -20001) Then
237: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
238: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
239: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
240: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
241:
234: When Others Then
235: p_packet_id := l_packet_id_old;
236: If (SQLCODE <> -20001) Then
237: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
238: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
239: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
240: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
241:
242:
235: p_packet_id := l_packet_id_old;
236: If (SQLCODE <> -20001) Then
237: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
238: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
239: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
240: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
241:
242:
243: IF ( l_unexp_level >= l_debug_level) THEN
236: If (SQLCODE <> -20001) Then
237: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
238: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
239: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
240: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
241:
242:
243: IF ( l_unexp_level >= l_debug_level) THEN
244: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
240: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
241:
242:
243: IF ( l_unexp_level >= l_debug_level) THEN
244: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
245: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
246: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
247: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Get_Gl_Fundschk_Packet_Id.msg3',TRUE);
248: END IF;
241:
242:
243: IF ( l_unexp_level >= l_debug_level) THEN
244: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
245: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
246: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
247: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Get_Gl_Fundschk_Packet_Id.msg3',TRUE);
248: END IF;
249:
242:
243: IF ( l_unexp_level >= l_debug_level) THEN
244: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
245: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
246: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
247: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Get_Gl_Fundschk_Packet_Id.msg3',TRUE);
248: END IF;
249:
250: End If;
665: Exception
666: When Others Then
667: p_return_message_name := l_return_message_name_old;
668: If (SQLCODE <> -20001) Then
669: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
670: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
671: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
672: FND_MESSAGE.SET_TOKEN(
673: 'PARAMETERS','Charge Header Id = '|| to_char(p_it_header_id)
666: When Others Then
667: p_return_message_name := l_return_message_name_old;
668: If (SQLCODE <> -20001) Then
669: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
670: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
671: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
672: FND_MESSAGE.SET_TOKEN(
673: 'PARAMETERS','Charge Header Id = '|| to_char(p_it_header_id)
674: ||', Service Id = '|| to_char(l_it_service_line_id)
667: p_return_message_name := l_return_message_name_old;
668: If (SQLCODE <> -20001) Then
669: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
670: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
671: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
672: FND_MESSAGE.SET_TOKEN(
673: 'PARAMETERS','Charge Header Id = '|| to_char(p_it_header_id)
674: ||', Service Id = '|| to_char(l_it_service_line_id)
675: ||', Set of Books Id = ' || to_char(p_set_of_books_id)
668: If (SQLCODE <> -20001) Then
669: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
670: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
671: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
672: FND_MESSAGE.SET_TOKEN(
673: 'PARAMETERS','Charge Header Id = '|| to_char(p_it_header_id)
674: ||', Service Id = '|| to_char(l_it_service_line_id)
675: ||', Set of Books Id = ' || to_char(p_set_of_books_id)
676: ||', Reversal Amount = ' || to_char(p_reversal_amount)
674: ||', Service Id = '|| to_char(l_it_service_line_id)
675: ||', Set of Books Id = ' || to_char(p_set_of_books_id)
676: ||', Reversal Amount = ' || to_char(p_reversal_amount)
677: ||', Called By = ' || p_called_by );
678: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
679:
680: IF ( l_unexp_level >= l_debug_level) THEN
681: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
682: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
677: ||', Called By = ' || p_called_by );
678: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
679:
680: IF ( l_unexp_level >= l_debug_level) THEN
681: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
682: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
683: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
684: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Funds_Check_Reserve.msg4',TRUE);
685: END IF;
678: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
679:
680: IF ( l_unexp_level >= l_debug_level) THEN
681: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
682: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
683: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
684: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Funds_Check_Reserve.msg4',TRUE);
685: END IF;
686:
679:
680: IF ( l_unexp_level >= l_debug_level) THEN
681: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
682: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
683: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
684: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Funds_Check_Reserve.msg4',TRUE);
685: END IF;
686:
687: End If;
731: p_chart_of_accounts_id := l_chart_of_accounts_id_old;
732: p_itr_enc_type_id := l_itr_enc_type_id_old;
733: p_gl_user_id := l_gl_user_id_old;
734: If (SQLCODE <> -20001) Then
735: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
736: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
737: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
738: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
739:
732: p_itr_enc_type_id := l_itr_enc_type_id_old;
733: p_gl_user_id := l_gl_user_id_old;
734: If (SQLCODE <> -20001) Then
735: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
736: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
737: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
738: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
739:
740: IF ( l_unexp_level >= l_debug_level) THEN
733: p_gl_user_id := l_gl_user_id_old;
734: If (SQLCODE <> -20001) Then
735: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
736: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
737: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
738: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
739:
740: IF ( l_unexp_level >= l_debug_level) THEN
741: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
734: If (SQLCODE <> -20001) Then
735: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
736: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
737: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
738: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
739:
740: IF ( l_unexp_level >= l_debug_level) THEN
741: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
742: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
737: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
738: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
739:
740: IF ( l_unexp_level >= l_debug_level) THEN
741: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
742: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
743: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
744: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Fundscheck_Init.msg5',TRUE);
745: END IF;
738: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
739:
740: IF ( l_unexp_level >= l_debug_level) THEN
741: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
742: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
743: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
744: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Fundscheck_Init.msg5',TRUE);
745: END IF;
746:
739:
740: IF ( l_unexp_level >= l_debug_level) THEN
741: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
742: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
743: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
744: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Fundscheck_Init.msg5',TRUE);
745: END IF;
746:
747: End If;
832: COMMIT;
833: Exception
834: When Others Then
835: If (SQLCODE <> -20001) Then
836: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
837: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
838: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
839: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Packet Id = ' || to_char(p_packet_id)
840: ||', Set_of_books_id = '|| to_char(p_set_of_books_id)
833: Exception
834: When Others Then
835: If (SQLCODE <> -20001) Then
836: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
837: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
838: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
839: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Packet Id = ' || to_char(p_packet_id)
840: ||', Set_of_books_id = '|| to_char(p_set_of_books_id)
841: ||', Je_source = '|| p_je_source
834: When Others Then
835: If (SQLCODE <> -20001) Then
836: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
837: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
838: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
839: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Packet Id = ' || to_char(p_packet_id)
840: ||', Set_of_books_id = '|| to_char(p_set_of_books_id)
841: ||', Je_source = '|| p_je_source
842: ||', Je_category = '|| p_je_category
835: If (SQLCODE <> -20001) Then
836: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
837: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
838: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
839: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Packet Id = ' || to_char(p_packet_id)
840: ||', Set_of_books_id = '|| to_char(p_set_of_books_id)
841: ||', Je_source = '|| p_je_source
842: ||', Je_category = '|| p_je_category
843: ||', CCID = '|| to_char(p_ccid)
857: ||', Ref 5 = '|| p_ref5
858: ||', Status Flag = '|| p_status_flag
859: ||', Prevent Encumbrance Flag = '|| p_prevent_encumbrance_flag
860: ||', Reversal_flag = '|| p_reversal_flag);
861: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
862:
863: IF ( l_unexp_level >= l_debug_level) THEN
864: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
865: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
860: ||', Reversal_flag = '|| p_reversal_flag);
861: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
862:
863: IF ( l_unexp_level >= l_debug_level) THEN
864: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
865: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
866: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
867: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.BC_Packets_Insert.msg6',TRUE);
868: END IF;
861: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
862:
863: IF ( l_unexp_level >= l_debug_level) THEN
864: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
865: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
866: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
867: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.BC_Packets_Insert.msg6',TRUE);
868: END IF;
869:
862:
863: IF ( l_unexp_level >= l_debug_level) THEN
864: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
865: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
866: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
867: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.BC_Packets_Insert.msg6',TRUE);
868: END IF;
869:
870: End If;
924: Exception
925: When Others Then
926: p_return_message_name := l_return_message_name_old;
927: If (SQLCODE <> -20001) Then
928: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
929: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
930: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
931: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'ITR Header Id = '|| to_char(p_it_header_id)
932: ||', ITR Service Id = '|| to_char(p_it_service_line_id)
925: When Others Then
926: p_return_message_name := l_return_message_name_old;
927: If (SQLCODE <> -20001) Then
928: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
929: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
930: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
931: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'ITR Header Id = '|| to_char(p_it_header_id)
932: ||', ITR Service Id = '|| to_char(p_it_service_line_id)
933: ||', Status Flag ' || p_status_flag
926: p_return_message_name := l_return_message_name_old;
927: If (SQLCODE <> -20001) Then
928: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
929: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
930: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
931: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'ITR Header Id = '|| to_char(p_it_header_id)
932: ||', ITR Service Id = '|| to_char(p_it_service_line_id)
933: ||', Status Flag ' || p_status_flag
934: ||', Prevent Encumbrance Flag ' || p_prevent_encumbrance_flag
927: If (SQLCODE <> -20001) Then
928: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
929: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
930: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
931: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'ITR Header Id = '|| to_char(p_it_header_id)
932: ||', ITR Service Id = '|| to_char(p_it_service_line_id)
933: ||', Status Flag ' || p_status_flag
934: ||', Prevent Encumbrance Flag ' || p_prevent_encumbrance_flag
935: ||', Packet_id = '|| to_char(p_packet_id));
934: ||', Prevent Encumbrance Flag ' || p_prevent_encumbrance_flag
935: ||', Packet_id = '|| to_char(p_packet_id));
936:
937: IF ( l_unexp_level >= l_debug_level) THEN
938: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
939: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
940: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
941: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Process_Fundschk_Failure_Code.msg7',TRUE);
942: END IF;
935: ||', Packet_id = '|| to_char(p_packet_id));
936:
937: IF ( l_unexp_level >= l_debug_level) THEN
938: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
939: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
940: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
941: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Process_Fundschk_Failure_Code.msg7',TRUE);
942: END IF;
943:
936:
937: IF ( l_unexp_level >= l_debug_level) THEN
938: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
939: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
940: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
941: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Process_Fundschk_Failure_Code.msg7',TRUE);
942: END IF;
943:
944: End If;
998: End if;
999: Exception
1000: When Others Then
1001: If (SQLCODE <> -20001) Then
1002: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
1003: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1004: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1005: FND_MESSAGE.SET_TOKEN('PARAMETERS','Header Id = '|| to_char(p_it_header_id)
1006: ||', Service Id = '|| to_char(p_it_service_line_id)
999: Exception
1000: When Others Then
1001: If (SQLCODE <> -20001) Then
1002: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
1003: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1004: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1005: FND_MESSAGE.SET_TOKEN('PARAMETERS','Header Id = '|| to_char(p_it_header_id)
1006: ||', Service Id = '|| to_char(p_it_service_line_id)
1007: ||', Packet_id = '|| to_char(p_packet_id)
1000: When Others Then
1001: If (SQLCODE <> -20001) Then
1002: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
1003: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1004: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1005: FND_MESSAGE.SET_TOKEN('PARAMETERS','Header Id = '|| to_char(p_it_header_id)
1006: ||', Service Id = '|| to_char(p_it_service_line_id)
1007: ||', Packet_id = '|| to_char(p_packet_id)
1008: ||', Status Flag ' || p_status_flag
1001: If (SQLCODE <> -20001) Then
1002: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
1003: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1004: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1005: FND_MESSAGE.SET_TOKEN('PARAMETERS','Header Id = '|| to_char(p_it_header_id)
1006: ||', Service Id = '|| to_char(p_it_service_line_id)
1007: ||', Packet_id = '|| to_char(p_packet_id)
1008: ||', Status Flag ' || p_status_flag
1009: ||', Prevent Encumbrance Flag ' || p_prevent_encumbrance_flag
1007: ||', Packet_id = '|| to_char(p_packet_id)
1008: ||', Status Flag ' || p_status_flag
1009: ||', Prevent Encumbrance Flag ' || p_prevent_encumbrance_flag
1010: ||', Funds check code = ' || p_fc_result_code);
1011: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1012:
1013: IF ( l_unexp_level >= l_debug_level) THEN
1014: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1015: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1010: ||', Funds check code = ' || p_fc_result_code);
1011: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1012:
1013: IF ( l_unexp_level >= l_debug_level) THEN
1014: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1015: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1016: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1017: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Itr_Enc_Update.msg8',TRUE);
1018: END IF;
1011: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1012:
1013: IF ( l_unexp_level >= l_debug_level) THEN
1014: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1015: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1016: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1017: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Itr_Enc_Update.msg8',TRUE);
1018: END IF;
1019:
1012:
1013: IF ( l_unexp_level >= l_debug_level) THEN
1014: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1015: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1016: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1017: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Itr_Enc_Update.msg8',TRUE);
1018: END IF;
1019:
1020: End If;
1048: Exception
1049: When Others Then
1050: p_fc_result_code := l_fc_result_code_old;
1051: If (SQLCODE <> -20001) Then
1052: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
1053: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1054: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1055: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Packet_id = '|| to_char(p_packet_id)
1056: || ', Fundschecker Result code = ' || p_fc_result_code);
1049: When Others Then
1050: p_fc_result_code := l_fc_result_code_old;
1051: If (SQLCODE <> -20001) Then
1052: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
1053: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1054: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1055: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Packet_id = '|| to_char(p_packet_id)
1056: || ', Fundschecker Result code = ' || p_fc_result_code);
1057:
1050: p_fc_result_code := l_fc_result_code_old;
1051: If (SQLCODE <> -20001) Then
1052: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
1053: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1054: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1055: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Packet_id = '|| to_char(p_packet_id)
1056: || ', Fundschecker Result code = ' || p_fc_result_code);
1057:
1058: IF ( l_unexp_level >= l_debug_level) THEN
1051: If (SQLCODE <> -20001) Then
1052: FND_MESSAGE.SET_NAME('IGI','IGI_ITR_DEBUG');
1053: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1054: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1055: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Packet_id = '|| to_char(p_packet_id)
1056: || ', Fundschecker Result code = ' || p_fc_result_code);
1057:
1058: IF ( l_unexp_level >= l_debug_level) THEN
1059: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1055: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Packet_id = '|| to_char(p_packet_id)
1056: || ', Fundschecker Result code = ' || p_fc_result_code);
1057:
1058: IF ( l_unexp_level >= l_debug_level) THEN
1059: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1060: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1061: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1062: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Get_Gl_Fundschk_Result_Code.msg9',TRUE);
1063: END IF;
1056: || ', Fundschecker Result code = ' || p_fc_result_code);
1057:
1058: IF ( l_unexp_level >= l_debug_level) THEN
1059: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1060: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1061: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1062: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Get_Gl_Fundschk_Result_Code.msg9',TRUE);
1063: END IF;
1064: End If;
1057:
1058: IF ( l_unexp_level >= l_debug_level) THEN
1059: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1060: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1061: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1062: FND_LOG.MESSAGE (l_unexp_level,'igi.plsql.igiitrhb.IGI_ITR_FUNDS_CONTROL_PKG.Get_Gl_Fundschk_Result_Code.msg9',TRUE);
1063: END IF;
1064: End If;
1065: APP_EXCEPTION.RAISE_EXCEPTION;