[Home] [Help]
165: | |
166: +===========================================================================*/
167:
168: PROCEDURE insert_mcd_rec(
169: p_cash_receipt_id IN ar_cash_receipts.cash_receipt_id%TYPE,
170: p_gl_date IN ar_misc_cash_distributions.gl_date%TYPE,
171: p_percent IN ar_misc_cash_distributions.percent%TYPE,
172: p_amount IN ar_misc_cash_distributions.amount%TYPE,
173: p_comments IN ar_misc_cash_distributions.comments%TYPE,
204: l_ard_rec ar_distributions%ROWTYPE;
205: l_ard_tax_rec ar_distributions%ROWTYPE;
206: l_ard_tax_rec_flag char(1);
207: l_ard_chk_first_rec char(1);
208: l_cr_rec ar_cash_receipts%ROWTYPE;
209: l_tax_account_id ar_vat_tax.tax_account_id%TYPE; -- code_combination_id for tax
210: l_vat_tax_id ar_vat_tax.vat_tax_id%TYPE; -- tax_code_id
211: ard_tbl_ctr number := 0; --counter to store AR Distribution record
212: -- in plsql Table
215: -- which is processed presently
216: -- and which is not a Tax line for the present receipt
217: CURSOR cr_ard_cur
218: (p_mcd_id in ar_misc_cash_distributions.misc_cash_distribution_id%TYPE,
219: p_cash_receipt_id in ar_cash_receipts.cash_receipt_id%TYPE)
220: IS
221: SELECT *
222: FROM ar_distributions
223: WHERE source_table = 'MCD' AND
290: l_tax_account_id , --code_combination_id for tax
291: l_vat_tax_id , --tax_code_id
292: l_precision ,
293: l_min_unit
294: from ar_cash_receipts cr,
295: ar_vat_tax avt,
296: fnd_currencies fc
297: where cr.cash_receipt_id = p_cash_receipt_id
298: and cr.currency_code = fc.currency_code
709:
710: PROCEDURE update_mcd_rec(
711: p_misc_cash_distribution_id
712: IN ar_misc_cash_distributions.misc_cash_distribution_id%TYPE,
713: p_cash_receipt_id IN ar_cash_receipts.cash_receipt_id%TYPE,
714: p_gl_date IN ar_misc_cash_distributions.gl_date%TYPE,
715: p_percent IN ar_misc_cash_distributions.percent%TYPE,
716: p_amount IN ar_misc_cash_distributions.amount%TYPE,
717: p_comments IN ar_misc_cash_distributions.comments%TYPE,
746: l_ard_rec ar_distributions%ROWTYPE;
747: l_ard_tax_rec ar_distributions%ROWTYPE;
748: l_ard_tax_rec_flag char(1);
749: l_ard_chk_first_rec char(1);
750: l_cr_rec ar_cash_receipts%ROWTYPE;
751: l_tax_account_id ar_vat_tax.tax_account_id%TYPE; -- code_combination_id for tax
752: l_vat_tax_id ar_vat_tax.vat_tax_id%TYPE; -- tax_code_id
753: ard_tbl_ctr number := 0; --counter to store AR Distribution record
754: -- in plsql Table
758: -- and which is not a Tax line for the present receipt
759:
760: CURSOR cr_ard_cur
761: (p_mcd_id in ar_misc_cash_distributions.misc_cash_distribution_id%TYPE,
762: p_cash_receipt_id in ar_cash_receipts.cash_receipt_id%TYPE)
763: IS
764: SELECT *
765: FROM ar_distributions
766: WHERE source_table = 'MCD' AND
836: l_tax_account_id , --code_combination_id for tax
837: l_vat_tax_id , --tax_code_id
838: l_precision ,
839: l_min_unit
840: from ar_cash_receipts cr,
841: ar_vat_tax avt,
842: fnd_currencies fc
843: where cr.cash_receipt_id = p_cash_receipt_id
844: and cr.currency_code = fc.currency_code
1282:
1283: PROCEDURE lock_mcd_rec(
1284: p_misc_cash_distribution_id
1285: IN ar_misc_cash_distributions.misc_cash_distribution_id%TYPE,
1286: p_cash_receipt_id IN ar_cash_receipts.cash_receipt_id%TYPE,
1287: p_percent IN ar_misc_cash_distributions.percent%TYPE,
1288: p_amount IN ar_misc_cash_distributions.amount%TYPE,
1289: p_comments IN ar_misc_cash_distributions.comments%TYPE,
1290: p_code_combination_id IN ar_misc_cash_distributions.code_combination_id%TYPE,
1307: p_ussgl_tc IN ar_misc_cash_distributions.ussgl_transaction_code%TYPE,
1308: p_form_name IN varchar2,
1309: p_form_version IN varchar2,
1310: p_gl_posted_date IN ar_misc_cash_distributions.gl_posted_date%TYPE,
1311: p_rec_version_number IN ar_cash_receipts.rec_version_number%TYPE /* Bug fix 3032059 */
1312: ) IS
1313:
1314: l_mcd_rec ar_misc_cash_distributions%ROWTYPE;
1315: l_dist_rec_amt NUMBER;
1447:
1448: --begin 1813186
1449: -- end if;
1450: --end 1813186
1451: -- Call table handler for ar_cash_receipts to lock record.
1452: /* Bug fix 3032059 */
1453: /* Receipt Version Number also to be used for locking the cash_receipt record */
1454: arp_cash_receipts_pkg.nowaitlock_version_p(p_cash_receipt_id,p_rec_version_number);
1455: /*arp_cash_receipts_pkg.nowaitlock_p(p_cash_receipt_id);*/
1507:
1508:
1509:
1510: PROCEDURE round_correction_mcd_rec(
1511: p_cash_receipt_id IN ar_cash_receipts.cash_receipt_id%TYPE,
1512: p_flag OUT NOCOPY NUMBER
1513: ) IS
1514:
1515: l_min_unit NUMBER;
1517: l_acctd_rounding_diff NUMBER;
1518: l_rounding_diff NUMBER;
1519: l_acctd_amount NUMBER;
1520: l_dummy NUMBER;
1521: l_cr_rec ar_cash_receipts%ROWTYPE;
1522: l_ard_acctd_cr_rounding_diff NUMBER;
1523: l_ard_acctd_dr_rounding_diff NUMBER;
1524: l_ar_rounding_diff NUMBER;
1525: l_ard_acctd_cr NUMBER;
1527:
1528: l_misc_cash_key_value_list gl_ca_utility_pkg.r_key_value_arr; /* MRC */
1529:
1530: CURSOR mcd_cur
1531: ( l_cash_receipt_id in ar_cash_receipts.cash_receipt_id%TYPE)
1532: IS
1533: SELECT *
1534: from ar_misc_cash_distributions
1535: where cash_receipt_id = l_cash_receipt_id
1573: l_cr_rec.pay_from_customer , --third_party_id
1574: l_cr_rec.customer_site_use_id , --third_party_sub_id
1575: l_precision ,
1576: l_min_unit
1577: from ar_cash_receipts cr,
1578: fnd_currencies fc
1579: where cr.cash_receipt_id = p_cash_receipt_id
1580: and cr.currency_code = fc.currency_code;
1581: -- calculate accounted amount