[Home] [Help]
547: PROCEDURE Delete_MCD(p_ae_deleted OUT NOCOPY BOOLEAN) IS
548:
549: CURSOR del_misc_rec IS
550: SELECT mcd.misc_cash_distribution_id misc_dist_id
551: FROM ar_misc_cash_distributions mcd
552: WHERE mcd.cash_receipt_id = g_ae_doc_rec.document_id
553: AND mcd.reversal_gl_date IS NULL --For rate adjustments picks up records with new rate not those reversed
554: AND mcd.posting_control_id = -3 --Not posted
555: AND EXISTS (SELECT 'x'
1996: p_gt_id => p_gt_id
1997: --}
1998: );
1999:
2000: ELSIF p_level = 'MCD' THEN -- Entity level = ar_misc_cash_distributions
2001: /*------------------------------------------------------+
2002: | Create AE Lines for Misc Cash Receipts, Payments |
2003: +------------------------------------------------------*/
2004:
3046: mcd.code_combination_id code_combination_id ,
3047: mcd.percent percent ,
3048: mcd.amount amount ,
3049: mcd.acctd_amount acctd_amount
3050: FROM ar_misc_cash_distributions mcd
3051: WHERE mcd.cash_receipt_id = g_ae_doc_rec.document_id
3052: AND g_ae_sys_rec.sob_type = 'P'
3053: AND mcd.reversal_gl_date is null --so we create only new rate adjusted or new mcd records
3054: AND mcd.posting_control_id = -3
3063: mcd.code_combination_id code_combination_id,
3064: mcd.percent percent,
3065: mcd.amount amount,
3066: mcd_mrc.acctd_amount acctd_amount
3067: FROM ar_misc_cash_distributions mcd,
3068: ar_mc_misc_cash_dists mcd_mrc
3069: WHERE mcd.cash_receipt_id = g_ae_doc_rec.document_id
3070: AND mcd.misc_cash_distribution_id = mcd_mrc.misc_cash_distribution_id
3071: AND g_ae_sys_rec.sob_type = 'R'
3078: and ard.source_table = 'MCD'
3079: and ard.set_of_books_id = g_ae_sys_rec.set_of_books_id)
3080: */
3081: l_ael_line_rec ae_line_rec_type;
3082: l_mcd_first_rec_id ar_misc_cash_distributions.misc_cash_distribution_id%TYPE ;
3083:
3084: l_mcd_actual_acctd_amt NUMBER := 0;
3085: l_mcd_amount NUMBER := 0;
3086: l_mcd_acctd_amount NUMBER := 0;