[Home] [Help]
539: PROCEDURE Delete_MCD(p_ae_deleted OUT NOCOPY BOOLEAN) IS
540:
541: CURSOR del_misc_rec IS
542: SELECT mcd.misc_cash_distribution_id misc_dist_id
543: FROM ar_misc_cash_distributions mcd
544: WHERE mcd.cash_receipt_id = g_ae_doc_rec.document_id
545: AND mcd.reversal_gl_date IS NULL --For rate adjustments picks up records with new rate not those reversed
546: AND mcd.posting_control_id = -3 --Not posted
547: AND EXISTS (SELECT 'x'
1893: p_gt_id => p_gt_id
1894: --}
1895: );
1896:
1897: ELSIF p_level = 'MCD' THEN -- Entity level = ar_misc_cash_distributions
1898: /*------------------------------------------------------+
1899: | Create AE Lines for Misc Cash Receipts, Payments |
1900: +------------------------------------------------------*/
1901:
2767: mcd.code_combination_id code_combination_id ,
2768: mcd.percent percent ,
2769: mcd.amount amount ,
2770: mcd.acctd_amount acctd_amount
2771: FROM ar_misc_cash_distributions mcd
2772: WHERE mcd.cash_receipt_id = g_ae_doc_rec.document_id
2773: AND g_ae_sys_rec.sob_type = 'P'
2774: AND mcd.reversal_gl_date is null --so we create only new rate adjusted or new mcd records
2775: AND mcd.posting_control_id = -3
2784: mcd.code_combination_id code_combination_id,
2785: mcd.percent percent,
2786: mcd.amount amount,
2787: mcd_mrc.acctd_amount acctd_amount
2788: FROM ar_misc_cash_distributions mcd,
2789: ar_mc_misc_cash_dists mcd_mrc
2790: WHERE mcd.cash_receipt_id = g_ae_doc_rec.document_id
2791: AND mcd.misc_cash_distribution_id = mcd_mrc.misc_cash_distribution_id
2792: AND g_ae_sys_rec.sob_type = 'R'
2799: and ard.source_table = 'MCD'
2800: and ard.set_of_books_id = g_ae_sys_rec.set_of_books_id)
2801: */
2802: l_ael_line_rec ae_line_rec_type;
2803: l_mcd_first_rec_id ar_misc_cash_distributions.misc_cash_distribution_id%TYPE ;
2804:
2805: l_mcd_actual_acctd_amt NUMBER := 0;
2806: l_mcd_amount NUMBER := 0;
2807: l_mcd_acctd_amount NUMBER := 0;