[Home] [Help]
454: debug_info VARCHAR2(100);
455: l_cash_basis VARCHAR2(1);
456: CURSOR posted_no_voids IS
457: SELECT 'Has posted payment with no corresponding void'
458: FROM ap_invoice_payments p1
459: WHERE p1.invoice_id = X_Invoice_Id
460: AND nvl(p1.cash_posted_flag, 'N') = 'Y'
461: AND NOT EXISTS (SELECT 'This is the void partner'
462: FROM ap_invoice_payments p2
458: FROM ap_invoice_payments p1
459: WHERE p1.invoice_id = X_Invoice_Id
460: AND nvl(p1.cash_posted_flag, 'N') = 'Y'
461: AND NOT EXISTS (SELECT 'This is the void partner'
462: FROM ap_invoice_payments p2
463: WHERE p2.invoice_id = p1.invoice_id
464: AND p2.check_id = p1.check_id
465: AND p2.payment_num = p1.payment_num
466: AND p2.amount = ( -1 * p1.amount));
465: AND p2.payment_num = p1.payment_num
466: AND p2.amount = ( -1 * p1.amount));
467: CURSOR unposted_w_voids IS
468: SELECT 'Has unposted payment that is linked to a voided check'
469: FROM ap_invoice_payments p, ap_checks c
470: WHERE p.invoice_id = X_Invoice_Id
471: AND nvl(p.cash_posted_flag,'N') <> 'Y'
472: AND p.check_id = c.check_id
473: AND c.void_date IS NOT NULL;
492: if (l_cash_basis <>'Y') then
493: return(FALSE);
494: end if;
495:
496: debug_info := 'Select from ap_invoice_payments';
497:
498: OPEN posted_no_voids;
499: debug_info := 'Fetch cursor posted_no_voids';
500: FETCH posted_no_voids INTO dummy;
505: end if;
506: debug_info := 'Close cursor posted_no_voids';
507: CLOSE posted_no_voids;
508:
509: debug_info := 'Select from ap_invoice_payments and ap_checks';
510:
511: OPEN unposted_w_voids;
512: debug_info := 'Fetch cursor unposted_w_voids';
513: FETCH unposted_w_voids INTO dummy;