217:
218: EXCEPTION
219: WHEN OTHERS THEN
220: IF (SQLCODE <> -20001) THEN
221: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
222: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
223: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
224: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
225: END IF;
218: EXCEPTION
219: WHEN OTHERS THEN
220: IF (SQLCODE <> -20001) THEN
221: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
222: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
223: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
224: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
225: END IF;
226: APP_EXCEPTION.RAISE_EXCEPTION;
219: WHEN OTHERS THEN
220: IF (SQLCODE <> -20001) THEN
221: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
222: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
223: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
224: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
225: END IF;
226: APP_EXCEPTION.RAISE_EXCEPTION;
227:
220: IF (SQLCODE <> -20001) THEN
221: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
222: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
223: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
224: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
225: END IF;
226: APP_EXCEPTION.RAISE_EXCEPTION;
227:
228:
338: END IF ;
339:
340: EXCEPTION
341: WHEN NO_DATA_FOUND THEN
342: FND_MESSAGE.SET_NAME('SQLAP','AP_RECON_NO_DATA_FOUND');
343: APP_EXCEPTION.RAISE_EXCEPTION;
344: WHEN OTHERS THEN
345: IF (SQLCODE <> -20001) THEN
346: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
342: FND_MESSAGE.SET_NAME('SQLAP','AP_RECON_NO_DATA_FOUND');
343: APP_EXCEPTION.RAISE_EXCEPTION;
344: WHEN OTHERS THEN
345: IF (SQLCODE <> -20001) THEN
346: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
347: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
348: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
349: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
350: END IF;
343: APP_EXCEPTION.RAISE_EXCEPTION;
344: WHEN OTHERS THEN
345: IF (SQLCODE <> -20001) THEN
346: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
347: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
348: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
349: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
350: END IF;
351: APP_EXCEPTION.RAISE_EXCEPTION;
344: WHEN OTHERS THEN
345: IF (SQLCODE <> -20001) THEN
346: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
347: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
348: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
349: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
350: END IF;
351: APP_EXCEPTION.RAISE_EXCEPTION;
352:
345: IF (SQLCODE <> -20001) THEN
346: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
347: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
348: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
349: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
350: END IF;
351: APP_EXCEPTION.RAISE_EXCEPTION;
352:
353: END Recon_Payment_Maturity ;
376: AND nvl(posted_flag,'N') = 'N';
377:
378: EXCEPTION
379: WHEN NO_DATA_FOUND THEN
380: FND_MESSAGE.SET_NAME('SQLAP','AP_RECON_NO_DATA_FOUND');
381: APP_EXCEPTION.RAISE_EXCEPTION;
382: WHEN OTHERS THEN
383: IF (SQLCODE <> -20001) THEN
384: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
380: FND_MESSAGE.SET_NAME('SQLAP','AP_RECON_NO_DATA_FOUND');
381: APP_EXCEPTION.RAISE_EXCEPTION;
382: WHEN OTHERS THEN
383: IF (SQLCODE <> -20001) THEN
384: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
385: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
386: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
387: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
388: END IF;
381: APP_EXCEPTION.RAISE_EXCEPTION;
382: WHEN OTHERS THEN
383: IF (SQLCODE <> -20001) THEN
384: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
385: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
386: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
387: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
388: END IF;
389: APP_EXCEPTION.RAISE_EXCEPTION;
382: WHEN OTHERS THEN
383: IF (SQLCODE <> -20001) THEN
384: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
385: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
386: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
387: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
388: END IF;
389: APP_EXCEPTION.RAISE_EXCEPTION;
390: END Delete_Payment_Maturity ;
383: IF (SQLCODE <> -20001) THEN
384: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
385: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
386: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
387: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
388: END IF;
389: APP_EXCEPTION.RAISE_EXCEPTION;
390: END Delete_Payment_Maturity ;
391:
660:
661: -- We cannot clear an already cleared check
662: IF ((X_MATCHED_FLAG <> 'Y' ) AND
663: (l_status_lookup_code IN ('CLEARED','CLEARED BUT UNACCOUNTED'))) THEN
664: FND_MESSAGE.SET_NAME('SQLAP','AP_RECON_CLEARED_UNMATCHED');
665: RAISE G_abort_it;
666: END IF ;
667:
668: IF (l_pay_sum_amt = 0) THEN
1049: WHERE c.check_id = X_CHECK_ID
1050: AND c.org_id = asp.org_id;
1051:
1052: IF ((l_status_lookup_code IN ('RECONCILED','RECONCILED UNACCOUNTED'))) THEN
1053: FND_MESSAGE.SET_NAME('SQLAP','AP_RECON_ALREADY_RECONCILED');
1054: RAISE G_abort_it;
1055: END IF ;
1056:
1057: IF ((l_status_lookup_code = 'ISSUED') And (l_future_pay_flag = 'Y' )) THEN
1054: RAISE G_abort_it;
1055: END IF ;
1056:
1057: IF ((l_status_lookup_code = 'ISSUED') And (l_future_pay_flag = 'Y' )) THEN
1058: FND_MESSAGE.SET_NAME('SQLAP','AP_RECON_PAYMENT_NOT_MATURED');
1059: RAISE G_abort_it;
1060: END IF ;
1061:
1062: IF ((X_MATCHED_FLAG <> 'Y' ) And
1060: END IF ;
1061:
1062: IF ((X_MATCHED_FLAG <> 'Y' ) And
1063: (l_status_lookup_code In ('CLEARED','CLEARED BUT UNACCOUNTED'))) THEN
1064: FND_MESSAGE.SET_NAME('SQLAP','AP_RECON_CLEARED_UNMATCHED');
1065: RAISE G_abort_it;
1066: END IF ;
1067: l_debug_info := 'checkrun is null, calling case_type';
1068:
1373: WHEN NO_DATA_FOUND THEN
1374: IF pay_batch_cur%ISOPEN THEN
1375: CLOSE pay_batch_cur ;
1376: END IF ;
1377: FND_MESSAGE.SET_NAME('SQLAP','AP_RECON_NO_DATA_FOUND');
1378: APP_EXCEPTION.RAISE_EXCEPTION;
1379: WHEN G_abort_it THEN
1380: IF pay_batch_cur%ISOPEN THEN
1381: CLOSE pay_batch_cur ;
1384: WHEN cant_do_recon_acct THEN
1385: IF pay_batch_cur%ISOPEN THEN
1386: CLOSE pay_batch_cur ;
1387: END IF ;
1388: FND_MESSAGE.SET_NAME('SQLAP', 'AP_RECON_CANT_RECONCILE');
1389: APP_EXCEPTION.RAISE_EXCEPTION;
1390: WHEN OTHERS THEN
1391: IF pay_batch_cur%ISOPEN THEN
1392: CLOSE pay_batch_cur ;
1391: IF pay_batch_cur%ISOPEN THEN
1392: CLOSE pay_batch_cur ;
1393: END IF ;
1394: IF (SQLCODE <> -20001) THEN
1395: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1396: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1397: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1398: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1399: END IF;
1392: CLOSE pay_batch_cur ;
1393: END IF ;
1394: IF (SQLCODE <> -20001) THEN
1395: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1396: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1397: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1398: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1399: END IF;
1400: APP_EXCEPTION.RAISE_EXCEPTION;
1393: END IF ;
1394: IF (SQLCODE <> -20001) THEN
1395: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1396: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1397: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1398: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1399: END IF;
1400: APP_EXCEPTION.RAISE_EXCEPTION;
1401:
1394: IF (SQLCODE <> -20001) THEN
1395: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1396: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1397: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1398: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1399: END IF;
1400: APP_EXCEPTION.RAISE_EXCEPTION;
1401:
1402: END Recon_Payment_Clearing ;
1797:
1798:
1799: EXCEPTION
1800: WHEN NO_DATA_FOUND THEN
1801: FND_MESSAGE.SET_NAME('SQLAP','AP_RECON_NO_DATA_FOUND');
1802: APP_EXCEPTION.RAISE_EXCEPTION;
1803: WHEN OTHERS THEN
1804: IF (SQLCODE <> -20001) THEN
1805: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1801: FND_MESSAGE.SET_NAME('SQLAP','AP_RECON_NO_DATA_FOUND');
1802: APP_EXCEPTION.RAISE_EXCEPTION;
1803: WHEN OTHERS THEN
1804: IF (SQLCODE <> -20001) THEN
1805: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1806: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1807: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1808: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1809: END IF;
1802: APP_EXCEPTION.RAISE_EXCEPTION;
1803: WHEN OTHERS THEN
1804: IF (SQLCODE <> -20001) THEN
1805: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1806: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1807: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1808: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1809: END IF;
1810: APP_EXCEPTION.RAISE_EXCEPTION;
1803: WHEN OTHERS THEN
1804: IF (SQLCODE <> -20001) THEN
1805: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1806: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1807: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1808: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1809: END IF;
1810: APP_EXCEPTION.RAISE_EXCEPTION;
1811: END Recon_Payment_Unclearing ;
1804: IF (SQLCODE <> -20001) THEN
1805: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1806: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1807: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1808: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1809: END IF;
1810: APP_EXCEPTION.RAISE_EXCEPTION;
1811: END Recon_Payment_Unclearing ;
1812:
2030:
2031: EXCEPTION
2032: WHEN OTHERS THEN
2033: IF (SQLCODE <> -20001) then
2034: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2035: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2036: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2037: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2038: 'X_check_id = '||to_char(x_check_id)
2031: EXCEPTION
2032: WHEN OTHERS THEN
2033: IF (SQLCODE <> -20001) then
2034: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2035: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2036: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2037: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2038: 'X_check_id = '||to_char(x_check_id)
2039: ||' X_transaction_type = '||X_transaction_type
2032: WHEN OTHERS THEN
2033: IF (SQLCODE <> -20001) then
2034: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2035: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2036: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2037: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2038: 'X_check_id = '||to_char(x_check_id)
2039: ||' X_transaction_type = '||X_transaction_type
2040: ||' X_accounting_date = '||to_char(x_accounting_date)
2033: IF (SQLCODE <> -20001) then
2034: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2035: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2036: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2037: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2038: 'X_check_id = '||to_char(x_check_id)
2039: ||' X_transaction_type = '||X_transaction_type
2040: ||' X_accounting_date = '||to_char(x_accounting_date)
2041: ||' X_trx_bank_amount = '||to_char(x_trx_bank_amount)
2064: ||' X_program_update_date = '||to_char(x_program_update_date)
2065: ||' X_program_application_id = '||to_char(x_program_application_id)
2066: ||' X_program_id = '||to_char(x_program_id)
2067: ||' X_request_id = '||to_char(x_request_id));
2068: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
2069: END IF;
2070: APP_EXCEPTION.RAISE_EXCEPTION;
2071:
2072: END Insert_Payment_History;
2149: WHEN NO_DATA_FOUND THEN
2150: RETURN(TRUE);
2151: WHEN OTHERS THEN
2152: IF (SQLCODE <> -20001) THEN
2153: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2154: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2155: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE','AP_RECONCILATION_PKG.Clear_Check');
2156: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2157: END IF;
2150: RETURN(TRUE);
2151: WHEN OTHERS THEN
2152: IF (SQLCODE <> -20001) THEN
2153: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2154: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2155: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE','AP_RECONCILATION_PKG.Clear_Check');
2156: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2157: END IF;
2158: RETURN(FALSE);
2151: WHEN OTHERS THEN
2152: IF (SQLCODE <> -20001) THEN
2153: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2154: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2155: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE','AP_RECONCILATION_PKG.Clear_Check');
2156: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2157: END IF;
2158: RETURN(FALSE);
2159:
2152: IF (SQLCODE <> -20001) THEN
2153: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2154: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2155: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE','AP_RECONCILATION_PKG.Clear_Check');
2156: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2157: END IF;
2158: RETURN(FALSE);
2159:
2160: END UnClear_Check;
2219: RETURN(TRUE);
2220: EXCEPTION
2221: WHEN OTHERS THEN
2222: IF (SQLCODE <> -20001) THEN
2223: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2224: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2225: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE','AP_RECONCILATION_PKG.Recon_Update_Check');
2226: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2227: END IF;
2220: EXCEPTION
2221: WHEN OTHERS THEN
2222: IF (SQLCODE <> -20001) THEN
2223: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2224: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2225: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE','AP_RECONCILATION_PKG.Recon_Update_Check');
2226: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2227: END IF;
2228: RETURN(FALSE);
2221: WHEN OTHERS THEN
2222: IF (SQLCODE <> -20001) THEN
2223: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2224: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2225: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE','AP_RECONCILATION_PKG.Recon_Update_Check');
2226: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2227: END IF;
2228: RETURN(FALSE);
2229:
2222: IF (SQLCODE <> -20001) THEN
2223: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2224: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2225: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE','AP_RECONCILATION_PKG.Recon_Update_Check');
2226: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2227: END IF;
2228: RETURN(FALSE);
2229:
2230: END Recon_Update_Check;