DBA Data[Home] [Help]

APPS.ARP_MISC_CASH_DIST dependencies on STANDARD

Line 63: -- arp_standard.enable_debug;

59: l_ard_rec ar_distributions%ROWTYPE;-- for 1543658
60: l_ard_tax_source_id ar_distributions.source_id%TYPE;-- for 1543658
61: BEGIN
62:
63: -- arp_standard.enable_debug;
64: IF PG_DEBUG in ('Y', 'C') THEN
65: arp_standard.debug('arp_process_receipts.delete_mcd_rec()+');
66: END IF;
67:

Line 65: arp_standard.debug('arp_process_receipts.delete_mcd_rec()+');

61: BEGIN
62:
63: -- arp_standard.enable_debug;
64: IF PG_DEBUG in ('Y', 'C') THEN
65: arp_standard.debug('arp_process_receipts.delete_mcd_rec()+');
66: END IF;
67:
68: -- check if calling form is compatible with entity handler
69:

Line 115: arp_standard.debug('delete_mcd_rec: ' || 'Distribution TAX line does not exists');

111:
112: EXCEPTION
113: WHEN no_data_found then
114: IF PG_DEBUG in ('Y', 'C') THEN
115: arp_standard.debug('delete_mcd_rec: ' || 'Distribution TAX line does not exists');
116: END IF;
117: END;
118: -- Table handler for AR DISTRIBUTION record
119: EXCEPTION

Line 122: arp_standard.debug('delete_mcd_rec: ' || 'Distribution line does not exists');

118: -- Table handler for AR DISTRIBUTION record
119: EXCEPTION
120: WHEN no_data_found then
121: IF PG_DEBUG in ('Y', 'C') THEN
122: arp_standard.debug('delete_mcd_rec: ' || 'Distribution line does not exists');
123: END IF;
124:
125: END;
126: -- end 1543658

Line 136: arp_standard.debug('arp_process_receipts.delete_mcd_rec()-');

132: --Table handler for MCD record
133:
134:
135: IF PG_DEBUG in ('Y', 'C') THEN
136: arp_standard.debug('arp_process_receipts.delete_mcd_rec()-');
137: END IF;
138:
139: END delete_mcd_rec;
140:

Line 248: -- arp_standard.enable_debug;

244: l_xla_doc_table VARCHAR2(20);
245:
246: BEGIN
247:
248: -- arp_standard.enable_debug;
249: IF PG_DEBUG in ('Y', 'C') THEN
250: arp_standard.debug('arp_process_receipts.insert_mcd_rec()+');
251: END IF;
252: --bug5655154, commented accounting_method ='ACCRUAL'

Line 250: arp_standard.debug('arp_process_receipts.insert_mcd_rec()+');

246: BEGIN
247:
248: -- arp_standard.enable_debug;
249: IF PG_DEBUG in ('Y', 'C') THEN
250: arp_standard.debug('arp_process_receipts.insert_mcd_rec()+');
251: END IF;
252: --bug5655154, commented accounting_method ='ACCRUAL'
253: --begin 1813186
254: -- if arp_global.sysparam.accounting_method = 'ACCRUAL' then

Line 317: arp_standard.debug( 'l_mcd_rec.amount :='||to_char(l_mcd_rec.amount));

313: l_mcd_rec.acctd_amount := round(l_cr_rec.amount* (p_percent/100) * nvl(l_cr_rec.exchange_rate ,1)
314: / arp_global.base_precision) * arp_global.base_precision;
315: end if;
316: IF PG_DEBUG in ('Y', 'C') THEN
317: arp_standard.debug( 'l_mcd_rec.amount :='||to_char(l_mcd_rec.amount));
318: arp_standard.debug( 'l_mcd_rec.acctd_amount:='||
319: to_char(l_mcd_rec.acctd_amount));
320: END IF;
321: else

Line 318: arp_standard.debug( 'l_mcd_rec.acctd_amount:='||

314: / arp_global.base_precision) * arp_global.base_precision;
315: end if;
316: IF PG_DEBUG in ('Y', 'C') THEN
317: arp_standard.debug( 'l_mcd_rec.amount :='||to_char(l_mcd_rec.amount));
318: arp_standard.debug( 'l_mcd_rec.acctd_amount:='||
319: to_char(l_mcd_rec.acctd_amount));
320: END IF;
321: else
322: l_mcd_rec.amount := p_amount;

Line 330: arp_standard.debug('p_percent = '||to_char(p_percent));

326: --end 1543658
327:
328:
329: /* Bug fix 2827019 */
330: arp_standard.debug('p_percent = '||to_char(p_percent));
331: SELECT sum(amount), sum(percent)
332: INTO l_amount_total, l_percent_total
333: FROM ar_misc_cash_distributions
334: WHERE cash_receipt_id = p_cash_receipt_id

Line 336: arp_standard.debug('l_amount_total = '||to_char(l_amount_total));

332: INTO l_amount_total, l_percent_total
333: FROM ar_misc_cash_distributions
334: WHERE cash_receipt_id = p_cash_receipt_id
335: AND reversal_gl_date IS NULL;
336: arp_standard.debug('l_amount_total = '||to_char(l_amount_total));
337: arp_standard.debug('l_percent_total = '||to_char(l_percent_total));
338:
339: IF l_amount_total = l_cr_rec.amount - l_mcd_rec.amount
340: AND l_cr_rec.amount <> 0 THEN

Line 337: arp_standard.debug('l_percent_total = '||to_char(l_percent_total));

333: FROM ar_misc_cash_distributions
334: WHERE cash_receipt_id = p_cash_receipt_id
335: AND reversal_gl_date IS NULL;
336: arp_standard.debug('l_amount_total = '||to_char(l_amount_total));
337: arp_standard.debug('l_percent_total = '||to_char(l_percent_total));
338:
339: IF l_amount_total = l_cr_rec.amount - l_mcd_rec.amount
340: AND l_cr_rec.amount <> 0 THEN
341: arp_standard.debug('Calculate percent = 100-total percent');

Line 341: arp_standard.debug('Calculate percent = 100-total percent');

337: arp_standard.debug('l_percent_total = '||to_char(l_percent_total));
338:
339: IF l_amount_total = l_cr_rec.amount - l_mcd_rec.amount
340: AND l_cr_rec.amount <> 0 THEN
341: arp_standard.debug('Calculate percent = 100-total percent');
342: l_mcd_rec.percent := 100 - l_percent_total;
343: ELSE
344: arp_standard.debug('Calculate percent from p_percent');
345: l_mcd_rec.percent := round(p_percent,3);

Line 344: arp_standard.debug('Calculate percent from p_percent');

340: AND l_cr_rec.amount <> 0 THEN
341: arp_standard.debug('Calculate percent = 100-total percent');
342: l_mcd_rec.percent := 100 - l_percent_total;
343: ELSE
344: arp_standard.debug('Calculate percent from p_percent');
345: l_mcd_rec.percent := round(p_percent,3);
346: END IF;
347: arp_standard.debug('After rounding, p_percent = '||to_char(l_mcd_rec.percent));
348: /* end bug fix 2827019*/

Line 347: arp_standard.debug('After rounding, p_percent = '||to_char(l_mcd_rec.percent));

343: ELSE
344: arp_standard.debug('Calculate percent from p_percent');
345: l_mcd_rec.percent := round(p_percent,3);
346: END IF;
347: arp_standard.debug('After rounding, p_percent = '||to_char(l_mcd_rec.percent));
348: /* end bug fix 2827019*/
349:
350: -- create mcd record
351:

Line 444: arp_standard.debug( 'Insert Misc Cash Receipt Distribution start');

440:
441: -- Call accounting entry library begins
442:
443: IF PG_DEBUG in ('Y', 'C') THEN
444: arp_standard.debug( 'Insert Misc Cash Receipt Distribution start');
445: END IF;
446:
447: l_ae_doc_rec.document_type := 'RECEIPT';
448: l_ae_doc_rec.document_id := l_mcd_rec.cash_receipt_id;

Line 519: arp_standard.debug( 'NO INSERT, TAX IS STORED WITH FIRST misc_cash_distribution_id');

515: l_ard_tax_rec_flag:='Y'; -- flag to check if we have tax record
516: EXCEPTION
517: WHEN NO_DATA_FOUND THEN
518: IF PG_DEBUG in ('Y', 'C') THEN
519: arp_standard.debug( 'NO INSERT, TAX IS STORED WITH FIRST misc_cash_distribution_id');
520: END IF;
521: l_ard_tax_rec_flag:='N';
522:
523: END;

Line 575: arp_standard.debug( 'line id for line:= '||to_char(l_ard_line_id));

571: FOR l_ctr IN ard_tbl_tbl.FIRST .. ard_tbl_tbl.LAST LOOP
572: ARP_DISTRIBUTIONS_PKG.insert_p(ard_tbl_tbl(l_ctr),l_ard_line_id);
573:
574: IF PG_DEBUG in ('Y', 'C') THEN
575: arp_standard.debug( 'line id for line:= '||to_char(l_ard_line_id));
576: END IF;
577: END LOOP;
578: END IF;
579: -- delete record from plsql table

Line 593: arp_standard.debug( 'line id for line:= '||to_char(l_ard_line_id));

589: -- to insert new line record
590: ARP_DISTRIBUTIONS_PKG.insert_p(l_ard_rec,l_ard_line_id);
591:
592: IF PG_DEBUG in ('Y', 'C') THEN
593: arp_standard.debug( 'line id for line:= '||to_char(l_ard_line_id));
594: END IF;
595:
596: -- to update the tax record
597: IF l_ard_tax_rec_flag = 'Y' THEN

Line 611: arp_standard.debug( 'Insert Misc Cash Receipt Distribution start');

607: -- Call to accounting engine is commented for 1543658
608: --arp_acct_main.Create_Acct_Entry(l_ae_doc_rec);
609:
610: IF PG_DEBUG in ('Y', 'C') THEN
611: arp_standard.debug( 'Insert Misc Cash Receipt Distribution start');
612: END IF;
613:
614: -- populate return variable:
615:

Line 678: arp_standard.debug('arp_process_receipts.insert_mcd_rec()-');

674: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
675:
676:
677: IF PG_DEBUG in ('Y', 'C') THEN
678: arp_standard.debug('arp_process_receipts.insert_mcd_rec()-');
679: END IF;
680:
681: END insert_mcd_rec;
682:

Line 791: -- arp_standard.enable_debug;

787: l_xla_doc_table VARCHAR2(20);
788: l_ard_cnt NUMBER := 0 ; -- bug5655154
789: BEGIN
790:
791: -- arp_standard.enable_debug;
792: IF PG_DEBUG in ('Y', 'C') THEN
793: arp_standard.debug('arp_process_receipts.update_mcd_rec()+');
794: END IF;
795: --bug5655154, commented accounting_method = 'ACCRUAL'

Line 793: arp_standard.debug('arp_process_receipts.update_mcd_rec()+');

789: BEGIN
790:
791: -- arp_standard.enable_debug;
792: IF PG_DEBUG in ('Y', 'C') THEN
793: arp_standard.debug('arp_process_receipts.update_mcd_rec()+');
794: END IF;
795: --bug5655154, commented accounting_method = 'ACCRUAL'
796: --begin 1813186
797: -- if arp_global.sysparam.accounting_method = 'ACCRUAL' then

Line 863: arp_standard.debug('l_mcd_rec.amount :='||to_char(l_mcd_rec.amount));

859: l_mcd_rec.acctd_amount := round(l_cr_rec.amount* (p_percent/100) * nvl(l_cr_rec.exchange_rate ,1)
860: / arp_global.base_precision) * arp_global.base_precision;
861: end if;
862: IF PG_DEBUG in ('Y', 'C') THEN
863: arp_standard.debug('l_mcd_rec.amount :='||to_char(l_mcd_rec.amount));
864: arp_standard.debug('l_mcd_rec.acctd_amount :='||to_char(l_mcd_rec.acctd_amount));
865: END IF;
866: else
867: l_mcd_rec.amount := p_amount;

Line 864: arp_standard.debug('l_mcd_rec.acctd_amount :='||to_char(l_mcd_rec.acctd_amount));

860: / arp_global.base_precision) * arp_global.base_precision;
861: end if;
862: IF PG_DEBUG in ('Y', 'C') THEN
863: arp_standard.debug('l_mcd_rec.amount :='||to_char(l_mcd_rec.amount));
864: arp_standard.debug('l_mcd_rec.acctd_amount :='||to_char(l_mcd_rec.acctd_amount));
865: END IF;
866: else
867: l_mcd_rec.amount := p_amount;
868: l_mcd_rec.acctd_amount := p_acctd_amount;

Line 885: arp_standard.debug('l_amount_total = '||to_char(l_amount_total));

881: INTO l_amount_current, l_percent_current
882: FROM ar_misc_cash_distributions
883: WHERE misc_cash_distribution_id = p_misc_cash_distribution_id;
884:
885: arp_standard.debug('l_amount_total = '||to_char(l_amount_total));
886: arp_standard.debug('l_percent_total = '||to_char(l_percent_total));
887: arp_standard.debug('l_amount_current = '||to_char(l_amount_current));
888: arp_standard.debug('l_percent_current = '||to_char(l_percent_current));
889:

Line 886: arp_standard.debug('l_percent_total = '||to_char(l_percent_total));

882: FROM ar_misc_cash_distributions
883: WHERE misc_cash_distribution_id = p_misc_cash_distribution_id;
884:
885: arp_standard.debug('l_amount_total = '||to_char(l_amount_total));
886: arp_standard.debug('l_percent_total = '||to_char(l_percent_total));
887: arp_standard.debug('l_amount_current = '||to_char(l_amount_current));
888: arp_standard.debug('l_percent_current = '||to_char(l_percent_current));
889:
890: IF l_amount_total - l_amount_current = l_cr_rec.amount - l_mcd_rec.amount

Line 887: arp_standard.debug('l_amount_current = '||to_char(l_amount_current));

883: WHERE misc_cash_distribution_id = p_misc_cash_distribution_id;
884:
885: arp_standard.debug('l_amount_total = '||to_char(l_amount_total));
886: arp_standard.debug('l_percent_total = '||to_char(l_percent_total));
887: arp_standard.debug('l_amount_current = '||to_char(l_amount_current));
888: arp_standard.debug('l_percent_current = '||to_char(l_percent_current));
889:
890: IF l_amount_total - l_amount_current = l_cr_rec.amount - l_mcd_rec.amount
891: AND l_cr_rec.amount <> 0 THEN

Line 888: arp_standard.debug('l_percent_current = '||to_char(l_percent_current));

884:
885: arp_standard.debug('l_amount_total = '||to_char(l_amount_total));
886: arp_standard.debug('l_percent_total = '||to_char(l_percent_total));
887: arp_standard.debug('l_amount_current = '||to_char(l_amount_current));
888: arp_standard.debug('l_percent_current = '||to_char(l_percent_current));
889:
890: IF l_amount_total - l_amount_current = l_cr_rec.amount - l_mcd_rec.amount
891: AND l_cr_rec.amount <> 0 THEN
892: arp_standard.debug('Calculate percent = 100-total percent');

Line 892: arp_standard.debug('Calculate percent = 100-total percent');

888: arp_standard.debug('l_percent_current = '||to_char(l_percent_current));
889:
890: IF l_amount_total - l_amount_current = l_cr_rec.amount - l_mcd_rec.amount
891: AND l_cr_rec.amount <> 0 THEN
892: arp_standard.debug('Calculate percent = 100-total percent');
893: l_mcd_rec.percent := 100 - l_percent_total + l_percent_current;
894: ELSE
895: arp_standard.debug('Calculate percent from p_percent');
896: l_mcd_rec.percent := round(p_percent,3);

Line 895: arp_standard.debug('Calculate percent from p_percent');

891: AND l_cr_rec.amount <> 0 THEN
892: arp_standard.debug('Calculate percent = 100-total percent');
893: l_mcd_rec.percent := 100 - l_percent_total + l_percent_current;
894: ELSE
895: arp_standard.debug('Calculate percent from p_percent');
896: l_mcd_rec.percent := round(p_percent,3);
897: END IF;
898: arp_standard.debug('After rounding, p_percent = '||to_char(l_mcd_rec.percent));
899: /* end bug fix 2827019*/

Line 898: arp_standard.debug('After rounding, p_percent = '||to_char(l_mcd_rec.percent));

894: ELSE
895: arp_standard.debug('Calculate percent from p_percent');
896: l_mcd_rec.percent := round(p_percent,3);
897: END IF;
898: arp_standard.debug('After rounding, p_percent = '||to_char(l_mcd_rec.percent));
899: /* end bug fix 2827019*/
900:
901:
902: -- check if record has already been posted. If yes, raise exception

Line 1014: arp_standard.debug('Update Misc Cash Receipt Distribution start');

1010:
1011: -- Call accounting entry library begins for updating Distribution
1012:
1013: IF PG_DEBUG in ('Y', 'C') THEN
1014: arp_standard.debug('Update Misc Cash Receipt Distribution start');
1015: END IF;
1016:
1017: l_ae_doc_rec.document_type := 'RECEIPT';
1018: l_ae_doc_rec.document_id := l_mcd_rec.cash_receipt_id;

Line 1078: arp_standard.debug('NO INSERT, TAX IS STORED WITH FIRST misc_cash_distribution_id');

1074: l_ard_tax_rec_flag:='Y'; -- flag to check if we have tax record
1075: EXCEPTION
1076: WHEN NO_DATA_FOUND THEN
1077: IF PG_DEBUG in ('Y', 'C') THEN
1078: arp_standard.debug('NO INSERT, TAX IS STORED WITH FIRST misc_cash_distribution_id');
1079: END IF;
1080: l_ard_tax_rec_flag:='N';
1081: END;
1082:

Line 1146: arp_standard.debug('line id for line:= '||to_char(l_ard_line_id));

1142: -- to insert new line record
1143: ARP_DISTRIBUTIONS_PKG.insert_p(l_ard_rec,l_ard_line_id);
1144:
1145: IF PG_DEBUG in ('Y', 'C') THEN
1146: arp_standard.debug('line id for line:= '||to_char(l_ard_line_id));
1147: END IF;
1148:
1149: -- to update the tax record
1150: if l_ard_tax_rec_flag = 'Y' then

Line 1163: arp_standard.debug('Update Misc Cash Receipt Distribution end');

1159:
1160: -- Call to accounting engine is commented for 1543658
1161: -- arp_acct_main.Create_Acct_Entry(l_ae_doc_rec);
1162: IF PG_DEBUG in ('Y', 'C') THEN
1163: arp_standard.debug('Update Misc Cash Receipt Distribution end');
1164: END IF;
1165:
1166: END IF; /* IF ( l_mcd_rec.posting_control_id = -3 ) */
1167:

Line 1247: arp_standard.debug('arp_process_receipts.update_mcd_rec()-');

1243: Update the receipt version number */
1244: arp_cash_receipts_pkg.update_version_number(p_cash_receipt_id);
1245:
1246: IF PG_DEBUG in ('Y', 'C') THEN
1247: arp_standard.debug('arp_process_receipts.update_mcd_rec()-');
1248: END IF;
1249:
1250: END update_mcd_rec;
1251:

Line 1320: -- arp_standard.enable_debug;

1316: l_dist_rec ar_distributions%ROWTYPE;
1317: l_ard_cnt NUMBER := 0 ;
1318: BEGIN
1319:
1320: -- arp_standard.enable_debug;
1321: IF PG_DEBUG in ('Y', 'C') THEN
1322: arp_standard.debug('arp_process_receipts.lock_mcd_rec()+');
1323: END IF;
1324:

Line 1322: arp_standard.debug('arp_process_receipts.lock_mcd_rec()+');

1318: BEGIN
1319:
1320: -- arp_standard.enable_debug;
1321: IF PG_DEBUG in ('Y', 'C') THEN
1322: arp_standard.debug('arp_process_receipts.lock_mcd_rec()+');
1323: END IF;
1324:
1325:
1326: -- check if calling form is compatible with entity handler

Line 1338: arp_standard.debug('Begin lock Dist amount ');

1334: -- if arp_global.sysparam.accounting_method = 'ACCRUAL' then
1335: --end 1813186
1336:
1337: IF PG_DEBUG in ('Y', 'C') THEN
1338: arp_standard.debug('Begin lock Dist amount ');
1339: arp_util.debug('lock_mcd_rec: ' || ' MCD_ID ' || TO_CHAR(p_misc_cash_distribution_id));
1340: END IF;
1341:
1342: -- begin, bug5655154, to check if distributions already exist or not

Line 1437: arp_standard.debug(' after IF');

1433: (l_mcd_rec.gl_posted_date IS NULL AND p_gl_posted_date IS NULL)) )
1434: THEN
1435: NULL;
1436: IF PG_DEBUG in ('Y', 'C') THEN
1437: arp_standard.debug(' after IF');
1438: END IF;
1439: ELSE
1440: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1441: APP_EXCEPTION.Raise_Exception;

Line 1445: arp_standard.debug(' End lock AR_DIST amount');

1441: APP_EXCEPTION.Raise_Exception;
1442: END IF;
1443: IF PG_DEBUG in ('Y', 'C') THEN
1444: arp_util.debug(' distribution amount ' || TO_CHAR(l_dist_rec_amt));
1445: arp_standard.debug(' End lock AR_DIST amount');
1446: END IF;
1447:
1448: --begin 1813186
1449: -- end if;

Line 1457: arp_standard.debug('arp_process_receipts.lock_mcd_rec()-');

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);*/
1456: IF PG_DEBUG in ('Y', 'C') THEN
1457: arp_standard.debug('arp_process_receipts.lock_mcd_rec()-');
1458: END IF;
1459:
1460: -- EXCEPTION
1461: -- WHEN NO_DATA_FOUND THEN

Line 1542: -- arp_standard.enable_debug;

1538: update_flag Char(1);
1539:
1540: BEGIN
1541:
1542: -- arp_standard.enable_debug;
1543: IF PG_DEBUG in ('Y', 'C') THEN
1544: arp_standard.debug('arp_process_receipts.rounding_correction_mcd_rec()+');
1545: END IF;
1546: p_flag := 0;

Line 1544: arp_standard.debug('arp_process_receipts.rounding_correction_mcd_rec()+');

1540: BEGIN
1541:
1542: -- arp_standard.enable_debug;
1543: IF PG_DEBUG in ('Y', 'C') THEN
1544: arp_standard.debug('arp_process_receipts.rounding_correction_mcd_rec()+');
1545: END IF;
1546: p_flag := 0;
1547:
1548: -- this select will fetch some important information

Line 1731: arp_standard.debug('round_correction_mcd_rec: ' || 'arp_process_receipts.rounding_correction_mcd_rec()-');

1727: COMMIT;
1728: END IF; */
1729:
1730: IF PG_DEBUG in ('Y', 'C') THEN
1731: arp_standard.debug('round_correction_mcd_rec: ' || 'arp_process_receipts.rounding_correction_mcd_rec()-');
1732: END IF;
1733: END IF;
1734: END round_correction_mcd_rec;
1735: