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: ' P_invoice_id = ' || p_line_rec.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: ' P_invoice_id = ' || p_line_rec.invoice_id
1055: ||' P_line_number = ' || p_line_rec.line_number );
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: ' P_invoice_id = ' || p_line_rec.invoice_id
1055: ||' P_line_number = ' || p_line_rec.line_number );
1056: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
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: ' P_invoice_id = ' || p_line_rec.invoice_id
1055: ||' P_line_number = ' || p_line_rec.line_number );
1056: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1057: END IF;
1052: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1053: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1054: ' P_invoice_id = ' || p_line_rec.invoice_id
1055: ||' P_line_number = ' || p_line_rec.line_number );
1056: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1057: END IF;
1058:
1059: IF ( dist_gl_date_Cur%ISOPEN ) THEN
1060: CLOSE dist_gl_date_Cur;
1111:
1112: Exception
1113: WHEN OTHERS THEN
1114: If (SQLCODE <> -20001) Then
1115: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1116: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1117: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1118: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1119: ||', line number = '|| p_Line_Number);
1112: Exception
1113: WHEN OTHERS THEN
1114: If (SQLCODE <> -20001) Then
1115: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1116: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1117: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1118: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1119: ||', line number = '|| p_Line_Number);
1120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1113: WHEN OTHERS THEN
1114: If (SQLCODE <> -20001) Then
1115: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1116: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1117: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1118: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1119: ||', line number = '|| p_Line_Number);
1120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1121: End If;
1114: If (SQLCODE <> -20001) Then
1115: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1116: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1117: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1118: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1119: ||', line number = '|| p_Line_Number);
1120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1121: End If;
1122: APP_EXCEPTION.RAISE_EXCEPTION;
1116: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1117: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1118: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1119: ||', line number = '|| p_Line_Number);
1120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1121: End If;
1122: APP_EXCEPTION.RAISE_EXCEPTION;
1123: End Allocation_Exists;
1124:
1176:
1177: Exception
1178: WHEN OTHERS THEN
1179: If (SQLCODE <> -20001) Then
1180: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1181: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1182: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1183: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id);
1184: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1177: Exception
1178: WHEN OTHERS THEN
1179: If (SQLCODE <> -20001) Then
1180: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1181: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1182: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1183: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id);
1184: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1185: End If;
1178: WHEN OTHERS THEN
1179: If (SQLCODE <> -20001) Then
1180: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1181: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1182: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1183: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id);
1184: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1185: End If;
1186: APP_EXCEPTION.RAISE_EXCEPTION;
1179: If (SQLCODE <> -20001) Then
1180: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1181: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1182: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1183: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id);
1184: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1185: End If;
1186: APP_EXCEPTION.RAISE_EXCEPTION;
1187: End Inv_Reversed_Via_Qc;
1180: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1181: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1182: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1183: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id);
1184: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1185: End If;
1186: APP_EXCEPTION.RAISE_EXCEPTION;
1187: End Inv_Reversed_Via_Qc;
1188:
1232:
1233: Exception
1234: WHEN OTHERS THEN
1235: If (SQLCODE <> -20001) Then
1236: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1237: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1238: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1239: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1240: ||', line number = '|| p_Line_Number);
1233: Exception
1234: WHEN OTHERS THEN
1235: If (SQLCODE <> -20001) Then
1236: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1237: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1238: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1239: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1240: ||', line number = '|| p_Line_Number);
1241: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1234: WHEN OTHERS THEN
1235: If (SQLCODE <> -20001) Then
1236: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1237: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1238: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1239: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1240: ||', line number = '|| p_Line_Number);
1241: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1242: End If;
1235: If (SQLCODE <> -20001) Then
1236: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1237: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1238: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1239: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1240: ||', line number = '|| p_Line_Number);
1241: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1242: End If;
1243: APP_EXCEPTION.RAISE_EXCEPTION;
1237: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1238: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1239: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1240: ||', line number = '|| p_Line_Number);
1241: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1242: End If;
1243: APP_EXCEPTION.RAISE_EXCEPTION;
1244: End Is_Line_Dists_Trans_FA;
1245:
1289:
1290: Exception
1291: WHEN OTHERS THEN
1292: If (SQLCODE <> -20001) Then
1293: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1294: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1295: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1296: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1297: ||', line number = '|| p_Line_Number);
1290: Exception
1291: WHEN OTHERS THEN
1292: If (SQLCODE <> -20001) Then
1293: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1294: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1295: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1296: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1297: ||', line number = '|| p_Line_Number);
1298: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1291: WHEN OTHERS THEN
1292: If (SQLCODE <> -20001) Then
1293: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1294: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1295: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1296: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1297: ||', line number = '|| p_Line_Number);
1298: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1299: End If;
1292: If (SQLCODE <> -20001) Then
1293: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1294: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1295: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1296: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1297: ||', line number = '|| p_Line_Number);
1298: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1299: End If;
1300: APP_EXCEPTION.RAISE_EXCEPTION;
1294: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1295: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1296: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1297: ||', line number = '|| p_Line_Number);
1298: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1299: End If;
1300: APP_EXCEPTION.RAISE_EXCEPTION;
1301: End Line_Dists_Acct_Event_Created;
1302:
1347:
1348: Exception
1349: WHEN OTHERS THEN
1350: If (SQLCODE <> -20001) Then
1351: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1352: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1353: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1354: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1355: ||', line number = '|| p_Line_Number);
1348: Exception
1349: WHEN OTHERS THEN
1350: If (SQLCODE <> -20001) Then
1351: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1352: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1353: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1354: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1355: ||', line number = '|| p_Line_Number);
1356: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1349: WHEN OTHERS THEN
1350: If (SQLCODE <> -20001) Then
1351: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1352: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1353: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1354: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1355: ||', line number = '|| p_Line_Number);
1356: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1357: End If;
1350: If (SQLCODE <> -20001) Then
1351: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1352: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1353: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1354: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1355: ||', line number = '|| p_Line_Number);
1356: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1357: End If;
1358: APP_EXCEPTION.RAISE_EXCEPTION;
1352: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1353: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1354: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1355: ||', line number = '|| p_Line_Number);
1356: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1357: End If;
1358: APP_EXCEPTION.RAISE_EXCEPTION;
1359: End Line_Referred_By_Corr;
1360:
1414:
1415: Exception
1416: WHEN OTHERS THEN
1417: If (SQLCODE <> -20001) Then
1418: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1419: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1420: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1421: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1422: ||', line number = '|| p_Line_Number);
1415: Exception
1416: WHEN OTHERS THEN
1417: If (SQLCODE <> -20001) Then
1418: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1419: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1420: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1421: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1422: ||', line number = '|| p_Line_Number);
1423: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1416: WHEN OTHERS THEN
1417: If (SQLCODE <> -20001) Then
1418: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1419: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1420: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1421: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1422: ||', line number = '|| p_Line_Number);
1423: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1424: End If;
1417: If (SQLCODE <> -20001) Then
1418: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1419: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1420: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1421: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1422: ||', line number = '|| p_Line_Number);
1423: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1424: End If;
1425: APP_EXCEPTION.RAISE_EXCEPTION;
1419: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1420: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1421: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1422: ||', line number = '|| p_Line_Number);
1423: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1424: End If;
1425: APP_EXCEPTION.RAISE_EXCEPTION;
1426: End Line_Dists_Referred_By_Other;
1427:
1475: return FALSE;
1476: Exception
1477: WHEN OTHERS THEN
1478: If (SQLCODE <> -20001) Then
1479: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1480: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1481: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1482: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1483: ||', line number = '|| p_Line_Number);
1476: Exception
1477: WHEN OTHERS THEN
1478: If (SQLCODE <> -20001) Then
1479: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1480: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1481: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1482: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1483: ||', line number = '|| p_Line_Number);
1484: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1477: WHEN OTHERS THEN
1478: If (SQLCODE <> -20001) Then
1479: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1480: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1481: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1482: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1483: ||', line number = '|| p_Line_Number);
1484: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1485: End If;
1478: If (SQLCODE <> -20001) Then
1479: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1480: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1481: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1482: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1483: ||', line number = '|| p_Line_Number);
1484: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1485: End If;
1486: APP_EXCEPTION.RAISE_EXCEPTION;
1480: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1481: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1482: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1483: ||', line number = '|| p_Line_Number);
1484: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1485: End If;
1486: APP_EXCEPTION.RAISE_EXCEPTION;
1487: End Outstanding_Alloc_Exists;
1488:
1532:
1533: Exception
1534: WHEN OTHERS THEN
1535: If (SQLCODE <> -20001) Then
1536: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1537: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1538: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1539: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1540: ||', line number = '|| p_Line_Number);
1533: Exception
1534: WHEN OTHERS THEN
1535: If (SQLCODE <> -20001) Then
1536: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1537: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1538: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1539: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1540: ||', line number = '|| p_Line_Number);
1541: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1534: WHEN OTHERS THEN
1535: If (SQLCODE <> -20001) Then
1536: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1537: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1538: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1539: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1540: ||', line number = '|| p_Line_Number);
1541: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1542: End If;
1535: If (SQLCODE <> -20001) Then
1536: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1537: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1538: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1539: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1540: ||', line number = '|| p_Line_Number);
1541: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1542: End If;
1543: APP_EXCEPTION.RAISE_EXCEPTION;
1537: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1538: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1539: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1540: ||', line number = '|| p_Line_Number);
1541: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1542: End If;
1543: APP_EXCEPTION.RAISE_EXCEPTION;
1544: End Line_Dists_Trans_Pa;
1545:
1619:
1620: Exception
1621: WHEN OTHERS THEN
1622: If (SQLCODE <> -20001) Then
1623: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1624: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1625: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1626: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||
1627: p_line_rec.Invoice_id
1620: Exception
1621: WHEN OTHERS THEN
1622: If (SQLCODE <> -20001) Then
1623: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1624: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1625: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1626: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||
1627: p_line_rec.Invoice_id
1628: ||', line number = '|| p_line_rec.Line_Number);
1621: WHEN OTHERS THEN
1622: If (SQLCODE <> -20001) Then
1623: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1624: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1625: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1626: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||
1627: p_line_rec.Invoice_id
1628: ||', line number = '|| p_line_rec.Line_Number);
1629: End If;
1622: If (SQLCODE <> -20001) Then
1623: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1624: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1625: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1626: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||
1627: p_line_rec.Invoice_id
1628: ||', line number = '|| p_line_rec.Line_Number);
1629: End If;
1630: APP_EXCEPTION.RAISE_EXCEPTION;
1729:
1730: EXCEPTION
1731: WHEN OTHERS THEN
1732: IF (SQLCODE <> -20001) then
1733: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1734: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1735: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1736: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1737: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1730: EXCEPTION
1731: WHEN OTHERS THEN
1732: IF (SQLCODE <> -20001) then
1733: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1734: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1735: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1736: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1737: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1738: END IF;
1731: WHEN OTHERS THEN
1732: IF (SQLCODE <> -20001) then
1733: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1734: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1735: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1736: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1737: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1738: END IF;
1739:
1732: IF (SQLCODE <> -20001) then
1733: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1734: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1735: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1736: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1737: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1738: END IF;
1739:
1740: IF (Dist_Var_Cur%ISOPEN) THEN
1733: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1734: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1735: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1736: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1737: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1738: END IF;
1739:
1740: IF (Dist_Var_Cur%ISOPEN) THEN
1741: CLOSE Dist_Var_Cur;
1822:
1823: EXCEPTION
1824: WHEN OTHERS THEN
1825: if (SQLCODE <> -20001) then
1826: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1827: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1828: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1829: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1830: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1823: EXCEPTION
1824: WHEN OTHERS THEN
1825: if (SQLCODE <> -20001) then
1826: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1827: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1828: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1829: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1830: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1831: end if;
1824: WHEN OTHERS THEN
1825: if (SQLCODE <> -20001) then
1826: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1827: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1828: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1829: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1830: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1831: end if;
1832: debug_info := debug_info || 'Error occurred';
1825: if (SQLCODE <> -20001) then
1826: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1827: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1828: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1829: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1830: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1831: end if;
1832: debug_info := debug_info || 'Error occurred';
1833:
1826: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1827: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1828: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1829: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1830: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1831: end if;
1832: debug_info := debug_info || 'Error occurred';
1833:
1834: IF ( invoice_validation%ISOPEN ) THEN
1928: return FALSE;
1929: Exception
1930: WHEN OTHERS THEN
1931: If (SQLCODE <> -20001) Then
1932: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1933: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1934: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1935: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1936: ||', line number = '|| p_Line_Number);
1929: Exception
1930: WHEN OTHERS THEN
1931: If (SQLCODE <> -20001) Then
1932: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1933: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1934: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1935: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1936: ||', line number = '|| p_Line_Number);
1937: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1930: WHEN OTHERS THEN
1931: If (SQLCODE <> -20001) Then
1932: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1933: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1934: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1935: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1936: ||', line number = '|| p_Line_Number);
1937: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1938: End If;
1931: If (SQLCODE <> -20001) Then
1932: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1933: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1934: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1935: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1936: ||', line number = '|| p_Line_Number);
1937: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1938: End If;
1939: APP_EXCEPTION.RAISE_EXCEPTION;
1933: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1934: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1935: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1936: ||', line number = '|| p_Line_Number);
1937: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1938: End If;
1939: APP_EXCEPTION.RAISE_EXCEPTION;
1940: End Pending_Alloc_Exists_Chrg_Line;
1941:
2246: WHEN NO_DATA_FOUND THEN
2247: NULL;
2248: WHEN OTHERS THEN
2249: IF (SQLCODE <> -20001) THEN
2250: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2251: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2252: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2253: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2254: 'P_Invoice_Id = '|| p_invoice_id
2247: NULL;
2248: WHEN OTHERS THEN
2249: IF (SQLCODE <> -20001) THEN
2250: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2251: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2252: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2253: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2254: 'P_Invoice_Id = '|| p_invoice_id
2255: ||', p_manual_withhold_amount= '|| to_char(p_manual_withhold_amount));
2248: WHEN OTHERS THEN
2249: IF (SQLCODE <> -20001) THEN
2250: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2251: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2252: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2253: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2254: 'P_Invoice_Id = '|| p_invoice_id
2255: ||', p_manual_withhold_amount= '|| to_char(p_manual_withhold_amount));
2256: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2249: IF (SQLCODE <> -20001) THEN
2250: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2251: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2252: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2253: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2254: 'P_Invoice_Id = '|| p_invoice_id
2255: ||', p_manual_withhold_amount= '|| to_char(p_manual_withhold_amount));
2256: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2257: END IF;
2252: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2253: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2254: 'P_Invoice_Id = '|| p_invoice_id
2255: ||', p_manual_withhold_amount= '|| to_char(p_manual_withhold_amount));
2256: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2257: END IF;
2258:
2259: APP_EXCEPTION.RAISE_EXCEPTION;
2260: