163: EXCEPTION
164: WHEN OTHERS THEN
165: x_return_status := Fnd_Api.G_Ret_Sts_Error;
166: IF (SQLCODE <> -20001) THEN
167: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
168: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
169: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
170: END IF;
171: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
164: WHEN OTHERS THEN
165: x_return_status := Fnd_Api.G_Ret_Sts_Error;
166: IF (SQLCODE <> -20001) THEN
167: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
168: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
169: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
170: END IF;
171: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
172: psa_utils.debug_other_string(g_excep_level,l_api_name,'Error in Delete_Events Procedure' );
165: x_return_status := Fnd_Api.G_Ret_Sts_Error;
166: IF (SQLCODE <> -20001) THEN
167: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
168: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
169: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
170: END IF;
171: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
172: psa_utils.debug_other_string(g_excep_level,l_api_name,'Error in Delete_Events Procedure' );
173: Fnd_Msg_Pub.Count_And_Get
710: EXCEPTION
711: WHEN OTHERS THEN
712: x_return_status := Fnd_Api.G_Ret_Sts_Error;
713: IF (SQLCODE <> -20001) THEN
714: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
715: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
716: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
717: FND_MESSAGE.SET_TOKEN('PARAMETERS',
718: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
711: WHEN OTHERS THEN
712: x_return_status := Fnd_Api.G_Ret_Sts_Error;
713: IF (SQLCODE <> -20001) THEN
714: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
715: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
716: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
717: FND_MESSAGE.SET_TOKEN('PARAMETERS',
718: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
719: ||',Calling_Mode = '|| p_calling_mode);
712: x_return_status := Fnd_Api.G_Ret_Sts_Error;
713: IF (SQLCODE <> -20001) THEN
714: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
715: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
716: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
717: FND_MESSAGE.SET_TOKEN('PARAMETERS',
718: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
719: ||',Calling_Mode = '|| p_calling_mode);
720: END IF;
713: IF (SQLCODE <> -20001) THEN
714: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
715: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
716: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
717: FND_MESSAGE.SET_TOKEN('PARAMETERS',
718: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
719: ||',Calling_Mode = '|| p_calling_mode);
720: END IF;
721: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
818: EXCEPTION
819: WHEN OTHERS THEN
820: x_return_status := Fnd_Api.G_Ret_Sts_Error;
821: IF (SQLCODE <> -20001) THEN
822: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
823: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
824: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
825: FND_MESSAGE.SET_TOKEN('PARAMETERS',
826: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id));
819: WHEN OTHERS THEN
820: x_return_status := Fnd_Api.G_Ret_Sts_Error;
821: IF (SQLCODE <> -20001) THEN
822: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
823: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
824: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
825: FND_MESSAGE.SET_TOKEN('PARAMETERS',
826: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id));
827: END IF;
820: x_return_status := Fnd_Api.G_Ret_Sts_Error;
821: IF (SQLCODE <> -20001) THEN
822: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
823: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
824: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
825: FND_MESSAGE.SET_TOKEN('PARAMETERS',
826: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id));
827: END IF;
828:
821: IF (SQLCODE <> -20001) THEN
822: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
823: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
824: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
825: FND_MESSAGE.SET_TOKEN('PARAMETERS',
826: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id));
827: END IF;
828:
829: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
950:
951: EXCEPTION
952: WHEN OTHERS THEN
953: IF (SQLCODE <> -20001) THEN
954: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
955: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
956: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
957: END IF;
958: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: Unknown Error in Procedure Get_GL_FundsChk_Result_Code');
951: EXCEPTION
952: WHEN OTHERS THEN
953: IF (SQLCODE <> -20001) THEN
954: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
955: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
956: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
957: END IF;
958: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: Unknown Error in Procedure Get_GL_FundsChk_Result_Code');
959: APP_EXCEPTION.RAISE_EXCEPTION;
952: WHEN OTHERS THEN
953: IF (SQLCODE <> -20001) THEN
954: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
955: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
956: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
957: END IF;
958: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: Unknown Error in Procedure Get_GL_FundsChk_Result_Code');
959: APP_EXCEPTION.RAISE_EXCEPTION;
960: END Get_GL_FundsChk_Result_Code;
1046:
1047: EXCEPTION
1048: WHEN OTHERS THEN
1049: IF (SQLCODE <> -20001) THEN
1050: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1051: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1052: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1053: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1054: 'Invoice_id = '|| to_char(p_invoice_id)
1047: EXCEPTION
1048: WHEN OTHERS THEN
1049: IF (SQLCODE <> -20001) THEN
1050: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1051: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1052: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1053: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1054: 'Invoice_id = '|| to_char(p_invoice_id)
1055: ||', Dist_line_num = '|| to_char(p_dist_line_num));
1048: WHEN OTHERS THEN
1049: IF (SQLCODE <> -20001) THEN
1050: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1051: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1052: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1053: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1054: 'Invoice_id = '|| to_char(p_invoice_id)
1055: ||', Dist_line_num = '|| to_char(p_dist_line_num));
1056: END IF;
1049: IF (SQLCODE <> -20001) THEN
1050: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1051: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1052: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1053: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1054: 'Invoice_id = '|| to_char(p_invoice_id)
1055: ||', Dist_line_num = '|| to_char(p_dist_line_num));
1056: END IF;
1057:
1629: EXCEPTION
1630: WHEN OTHERS THEN
1631: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1632: IF (SQLCODE <> -20001) THEN
1633: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1634: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1635: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
1636: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1637: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
1630: WHEN OTHERS THEN
1631: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1632: IF (SQLCODE <> -20001) THEN
1633: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1634: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1635: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
1636: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1637: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
1638: ||',Calling_Mode = CANCEL ');
1631: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1632: IF (SQLCODE <> -20001) THEN
1633: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1634: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1635: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
1636: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1637: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
1638: ||',Calling_Mode = CANCEL ');
1639: END IF;
1632: IF (SQLCODE <> -20001) THEN
1633: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1634: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1635: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
1636: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1637: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
1638: ||',Calling_Mode = CANCEL ');
1639: END IF;
1640: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: Unknown Error in Reinstate_PO_Encumbrance Procedure');