974:
975: EXCEPTION
976: WHEN OTHERS THEN
977: IF (SQLCODE <> -20001) THEN
978: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
979: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
980: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
981: FND_MESSAGE.SET_TOKEN('PARAMETERS',
982: ' P_invoice_id = ' || p_line_rec.invoice_id
975: EXCEPTION
976: WHEN OTHERS THEN
977: IF (SQLCODE <> -20001) THEN
978: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
979: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
980: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
981: FND_MESSAGE.SET_TOKEN('PARAMETERS',
982: ' P_invoice_id = ' || p_line_rec.invoice_id
983: ||' P_line_number = ' || p_line_rec.line_number );
976: WHEN OTHERS THEN
977: IF (SQLCODE <> -20001) THEN
978: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
979: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
980: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
981: FND_MESSAGE.SET_TOKEN('PARAMETERS',
982: ' P_invoice_id = ' || p_line_rec.invoice_id
983: ||' P_line_number = ' || p_line_rec.line_number );
984: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
977: IF (SQLCODE <> -20001) THEN
978: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
979: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
980: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
981: FND_MESSAGE.SET_TOKEN('PARAMETERS',
982: ' P_invoice_id = ' || p_line_rec.invoice_id
983: ||' P_line_number = ' || p_line_rec.line_number );
984: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
985: END IF;
980: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
981: FND_MESSAGE.SET_TOKEN('PARAMETERS',
982: ' P_invoice_id = ' || p_line_rec.invoice_id
983: ||' P_line_number = ' || p_line_rec.line_number );
984: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
985: END IF;
986:
987: IF ( dist_gl_date_Cur%ISOPEN ) THEN
988: CLOSE dist_gl_date_Cur;
1039:
1040: Exception
1041: WHEN OTHERS THEN
1042: If (SQLCODE <> -20001) Then
1043: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1044: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1045: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1046: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1047: ||', line number = '|| p_Line_Number);
1040: Exception
1041: WHEN OTHERS THEN
1042: If (SQLCODE <> -20001) Then
1043: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1044: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1045: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1046: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1047: ||', line number = '|| p_Line_Number);
1048: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1041: WHEN OTHERS THEN
1042: If (SQLCODE <> -20001) Then
1043: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1044: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1045: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1046: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1047: ||', line number = '|| p_Line_Number);
1048: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1049: End If;
1042: If (SQLCODE <> -20001) Then
1043: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1044: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1045: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1046: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1047: ||', line number = '|| p_Line_Number);
1048: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1049: End If;
1050: APP_EXCEPTION.RAISE_EXCEPTION;
1044: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1045: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1046: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1047: ||', line number = '|| p_Line_Number);
1048: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1049: End If;
1050: APP_EXCEPTION.RAISE_EXCEPTION;
1051: End Allocation_Exists;
1052:
1104:
1105: Exception
1106: WHEN OTHERS THEN
1107: If (SQLCODE <> -20001) Then
1108: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1109: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1110: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1111: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id);
1112: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1105: Exception
1106: WHEN OTHERS THEN
1107: If (SQLCODE <> -20001) Then
1108: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1109: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1110: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1111: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id);
1112: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1113: End If;
1106: WHEN OTHERS THEN
1107: If (SQLCODE <> -20001) Then
1108: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1109: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1110: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1111: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id);
1112: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1113: End If;
1114: APP_EXCEPTION.RAISE_EXCEPTION;
1107: If (SQLCODE <> -20001) Then
1108: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1109: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1110: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1111: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id);
1112: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1113: End If;
1114: APP_EXCEPTION.RAISE_EXCEPTION;
1115: End Inv_Reversed_Via_Qc;
1108: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1109: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1110: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1111: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id);
1112: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1113: End If;
1114: APP_EXCEPTION.RAISE_EXCEPTION;
1115: End Inv_Reversed_Via_Qc;
1116:
1160:
1161: Exception
1162: WHEN OTHERS THEN
1163: If (SQLCODE <> -20001) Then
1164: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1165: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1166: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1167: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1168: ||', line number = '|| p_Line_Number);
1161: Exception
1162: WHEN OTHERS THEN
1163: If (SQLCODE <> -20001) Then
1164: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1165: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1166: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1167: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1168: ||', line number = '|| p_Line_Number);
1169: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1162: WHEN OTHERS THEN
1163: If (SQLCODE <> -20001) Then
1164: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1165: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1166: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1167: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1168: ||', line number = '|| p_Line_Number);
1169: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1170: End If;
1163: If (SQLCODE <> -20001) Then
1164: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1165: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1166: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1167: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1168: ||', line number = '|| p_Line_Number);
1169: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1170: End If;
1171: APP_EXCEPTION.RAISE_EXCEPTION;
1165: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1166: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1167: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1168: ||', line number = '|| p_Line_Number);
1169: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1170: End If;
1171: APP_EXCEPTION.RAISE_EXCEPTION;
1172: End Is_Line_Dists_Trans_FA;
1173:
1217:
1218: Exception
1219: WHEN OTHERS THEN
1220: If (SQLCODE <> -20001) Then
1221: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1222: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1223: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1224: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1225: ||', line number = '|| p_Line_Number);
1218: Exception
1219: WHEN OTHERS THEN
1220: If (SQLCODE <> -20001) Then
1221: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1222: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1223: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1224: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1225: ||', line number = '|| p_Line_Number);
1226: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1219: WHEN OTHERS THEN
1220: If (SQLCODE <> -20001) Then
1221: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1222: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1223: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1224: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1225: ||', line number = '|| p_Line_Number);
1226: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1227: End If;
1220: If (SQLCODE <> -20001) Then
1221: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1222: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1223: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1224: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1225: ||', line number = '|| p_Line_Number);
1226: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1227: End If;
1228: APP_EXCEPTION.RAISE_EXCEPTION;
1222: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1223: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1224: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1225: ||', line number = '|| p_Line_Number);
1226: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1227: End If;
1228: APP_EXCEPTION.RAISE_EXCEPTION;
1229: End Line_Dists_Acct_Event_Created;
1230:
1275:
1276: Exception
1277: WHEN OTHERS THEN
1278: If (SQLCODE <> -20001) Then
1279: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1280: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1281: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1282: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1283: ||', line number = '|| p_Line_Number);
1276: Exception
1277: WHEN OTHERS THEN
1278: If (SQLCODE <> -20001) Then
1279: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1280: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1281: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1282: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1283: ||', line number = '|| p_Line_Number);
1284: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1277: WHEN OTHERS THEN
1278: If (SQLCODE <> -20001) Then
1279: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1280: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1281: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1282: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1283: ||', line number = '|| p_Line_Number);
1284: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1285: End If;
1278: If (SQLCODE <> -20001) Then
1279: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1280: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1281: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1282: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1283: ||', line number = '|| p_Line_Number);
1284: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1285: End If;
1286: APP_EXCEPTION.RAISE_EXCEPTION;
1280: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1281: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1282: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1283: ||', line number = '|| p_Line_Number);
1284: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1285: End If;
1286: APP_EXCEPTION.RAISE_EXCEPTION;
1287: End Line_Referred_By_Corr;
1288:
1341:
1342: Exception
1343: WHEN OTHERS THEN
1344: If (SQLCODE <> -20001) Then
1345: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1346: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1347: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1348: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1349: ||', line number = '|| p_Line_Number);
1342: Exception
1343: WHEN OTHERS THEN
1344: If (SQLCODE <> -20001) Then
1345: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1346: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1347: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1348: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1349: ||', line number = '|| p_Line_Number);
1350: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1343: WHEN OTHERS THEN
1344: If (SQLCODE <> -20001) Then
1345: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1346: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1347: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1348: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1349: ||', line number = '|| p_Line_Number);
1350: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1351: End If;
1344: If (SQLCODE <> -20001) Then
1345: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1346: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1347: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1348: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1349: ||', line number = '|| p_Line_Number);
1350: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1351: End If;
1352: APP_EXCEPTION.RAISE_EXCEPTION;
1346: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1347: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1348: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1349: ||', line number = '|| p_Line_Number);
1350: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1351: End If;
1352: APP_EXCEPTION.RAISE_EXCEPTION;
1353: End Line_Dists_Referred_By_Other;
1354:
1400: return FALSE;
1401: Exception
1402: WHEN OTHERS THEN
1403: If (SQLCODE <> -20001) Then
1404: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1405: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1406: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1407: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1408: ||', line number = '|| p_Line_Number);
1401: Exception
1402: WHEN OTHERS THEN
1403: If (SQLCODE <> -20001) Then
1404: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1405: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1406: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1407: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1408: ||', line number = '|| p_Line_Number);
1409: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1402: WHEN OTHERS THEN
1403: If (SQLCODE <> -20001) Then
1404: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1405: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1406: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1407: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1408: ||', line number = '|| p_Line_Number);
1409: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1410: End If;
1403: If (SQLCODE <> -20001) Then
1404: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1405: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1406: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1407: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1408: ||', line number = '|| p_Line_Number);
1409: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1410: End If;
1411: APP_EXCEPTION.RAISE_EXCEPTION;
1405: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1406: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1407: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1408: ||', line number = '|| p_Line_Number);
1409: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1410: End If;
1411: APP_EXCEPTION.RAISE_EXCEPTION;
1412: End Outstanding_Alloc_Exists;
1413:
1457:
1458: Exception
1459: WHEN OTHERS THEN
1460: If (SQLCODE <> -20001) Then
1461: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1462: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1463: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1464: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1465: ||', line number = '|| p_Line_Number);
1458: Exception
1459: WHEN OTHERS THEN
1460: If (SQLCODE <> -20001) Then
1461: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1462: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1463: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1464: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1465: ||', line number = '|| p_Line_Number);
1466: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1459: WHEN OTHERS THEN
1460: If (SQLCODE <> -20001) Then
1461: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1462: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1463: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1464: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1465: ||', line number = '|| p_Line_Number);
1466: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1467: End If;
1460: If (SQLCODE <> -20001) Then
1461: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1462: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1463: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1464: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1465: ||', line number = '|| p_Line_Number);
1466: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1467: End If;
1468: APP_EXCEPTION.RAISE_EXCEPTION;
1462: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1463: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1464: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1465: ||', line number = '|| p_Line_Number);
1466: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1467: End If;
1468: APP_EXCEPTION.RAISE_EXCEPTION;
1469: End Line_Dists_Trans_Pa;
1470:
1544:
1545: Exception
1546: WHEN OTHERS THEN
1547: If (SQLCODE <> -20001) Then
1548: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1549: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1550: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1551: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||
1552: p_line_rec.Invoice_id
1545: Exception
1546: WHEN OTHERS THEN
1547: If (SQLCODE <> -20001) Then
1548: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1549: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1550: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1551: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||
1552: p_line_rec.Invoice_id
1553: ||', line number = '|| p_line_rec.Line_Number);
1546: WHEN OTHERS THEN
1547: If (SQLCODE <> -20001) Then
1548: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1549: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1550: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1551: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||
1552: p_line_rec.Invoice_id
1553: ||', line number = '|| p_line_rec.Line_Number);
1554: End If;
1547: If (SQLCODE <> -20001) Then
1548: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1549: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1550: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1551: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||
1552: p_line_rec.Invoice_id
1553: ||', line number = '|| p_line_rec.Line_Number);
1554: End If;
1555: APP_EXCEPTION.RAISE_EXCEPTION;
1654:
1655: EXCEPTION
1656: WHEN OTHERS THEN
1657: IF (SQLCODE <> -20001) then
1658: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1659: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1660: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1661: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1662: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1655: EXCEPTION
1656: WHEN OTHERS THEN
1657: IF (SQLCODE <> -20001) then
1658: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1659: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1660: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1661: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1662: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1663: END IF;
1656: WHEN OTHERS THEN
1657: IF (SQLCODE <> -20001) then
1658: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1659: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1660: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1661: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1662: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1663: END IF;
1664:
1657: IF (SQLCODE <> -20001) then
1658: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1659: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1660: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1661: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1662: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1663: END IF;
1664:
1665: IF (Dist_Var_Cur%ISOPEN) THEN
1658: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1659: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1660: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1661: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1662: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1663: END IF;
1664:
1665: IF (Dist_Var_Cur%ISOPEN) THEN
1666: CLOSE Dist_Var_Cur;
1747:
1748: EXCEPTION
1749: WHEN OTHERS THEN
1750: if (SQLCODE <> -20001) then
1751: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1752: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1753: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1754: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1755: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1748: EXCEPTION
1749: WHEN OTHERS THEN
1750: if (SQLCODE <> -20001) then
1751: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1752: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1753: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1754: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1755: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1756: end if;
1749: WHEN OTHERS THEN
1750: if (SQLCODE <> -20001) then
1751: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1752: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1753: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1754: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1755: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1756: end if;
1757: debug_info := debug_info || 'Error occurred';
1750: if (SQLCODE <> -20001) then
1751: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1752: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1753: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1754: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1755: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1756: end if;
1757: debug_info := debug_info || 'Error occurred';
1758:
1751: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1752: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1753: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1754: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
1755: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1756: end if;
1757: debug_info := debug_info || 'Error occurred';
1758:
1759: IF ( invoice_validation%ISOPEN ) THEN
1853: return FALSE;
1854: Exception
1855: WHEN OTHERS THEN
1856: If (SQLCODE <> -20001) Then
1857: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1858: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1859: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1860: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1861: ||', line number = '|| p_Line_Number);
1854: Exception
1855: WHEN OTHERS THEN
1856: If (SQLCODE <> -20001) Then
1857: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1858: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1859: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1860: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1861: ||', line number = '|| p_Line_Number);
1862: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1855: WHEN OTHERS THEN
1856: If (SQLCODE <> -20001) Then
1857: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1858: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1859: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1860: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1861: ||', line number = '|| p_Line_Number);
1862: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1863: End If;
1856: If (SQLCODE <> -20001) Then
1857: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1858: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1859: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1860: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1861: ||', line number = '|| p_Line_Number);
1862: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1863: End If;
1864: APP_EXCEPTION.RAISE_EXCEPTION;
1858: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1859: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1860: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||p_Invoice_id
1861: ||', line number = '|| p_Line_Number);
1862: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1863: End If;
1864: APP_EXCEPTION.RAISE_EXCEPTION;
1865: End Pending_Alloc_Exists_Chrg_Line;
1866:
2171: WHEN NO_DATA_FOUND THEN
2172: NULL;
2173: WHEN OTHERS THEN
2174: IF (SQLCODE <> -20001) THEN
2175: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2176: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2177: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2178: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2179: 'P_Invoice_Id = '|| p_invoice_id
2172: NULL;
2173: WHEN OTHERS THEN
2174: IF (SQLCODE <> -20001) THEN
2175: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2176: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2177: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2178: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2179: 'P_Invoice_Id = '|| p_invoice_id
2180: ||', p_manual_withhold_amount= '|| to_char(p_manual_withhold_amount));
2173: WHEN OTHERS THEN
2174: IF (SQLCODE <> -20001) THEN
2175: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2176: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2177: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2178: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2179: 'P_Invoice_Id = '|| p_invoice_id
2180: ||', p_manual_withhold_amount= '|| to_char(p_manual_withhold_amount));
2181: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2174: IF (SQLCODE <> -20001) THEN
2175: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2176: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2177: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2178: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2179: 'P_Invoice_Id = '|| p_invoice_id
2180: ||', p_manual_withhold_amount= '|| to_char(p_manual_withhold_amount));
2181: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2182: END IF;
2177: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2178: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2179: 'P_Invoice_Id = '|| p_invoice_id
2180: ||', p_manual_withhold_amount= '|| to_char(p_manual_withhold_amount));
2181: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2182: END IF;
2183:
2184: APP_EXCEPTION.RAISE_EXCEPTION;
2185: