916: ( p_count => l_msg_count,
917: p_data => l_msg_data
918: );
919: IF (SQLCODE <> -20001) THEN
920: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
921: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
922: FND_FILE.Put_Line(FND_FILE.Log,sqlerrm);
923: END IF;
924:
917: p_data => l_msg_data
918: );
919: IF (SQLCODE <> -20001) THEN
920: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
921: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
922: FND_FILE.Put_Line(FND_FILE.Log,sqlerrm);
923: END IF;
924:
925: IF Invoice_Cursor%ISOPEN THEN
1460: l_org_contact_id := NULL; --Bug9899876
1461:
1462: EXCEPTION
1463: WHEN OTHERS THEN
1464: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1465: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1466: FND_FILE.Put_Line(FND_FILE.Log,sqlerrm);
1467: RAISE fnd_api.g_exc_error;
1468: END;
1461:
1462: EXCEPTION
1463: WHEN OTHERS THEN
1464: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1465: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1466: FND_FILE.Put_Line(FND_FILE.Log,sqlerrm);
1467: RAISE fnd_api.g_exc_error;
1468: END;
1469: ELSE
1617: ( p_count => x_msg_count,
1618: p_data => x_msg_data
1619: );
1620: IF (SQLCODE <> -20001) THEN
1621: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1622: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1623: FND_FILE.Put_Line(FND_FILE.Log,sqlerrm);
1624: END IF;
1625:
1618: p_data => x_msg_data
1619: );
1620: IF (SQLCODE <> -20001) THEN
1621: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1622: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1623: FND_FILE.Put_Line(FND_FILE.Log,sqlerrm);
1624: END IF;
1625:
1626: IF c_contact_point%ISOPEN THEN