DBA Data[Home] [Help]

APPS.ARP_CTL_PKG dependencies on ARP_CTL_PKG

Line 1: PACKAGE BODY ARP_CTL_PKG AS

1: PACKAGE BODY ARP_CTL_PKG AS
2: /* $Header: ARTICTLB.pls 120.31.12010000.6 2008/11/24 12:46:19 rasarasw ship $ */
3: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
4:
5: /*--------------------------------------------------------+

Line 135: arp_util.debug( 'arp_ctl_pkg.calculate_prorated_tax_amount()+');

131: l_tax_amount ra_customer_trx_lines.extended_amount%type;
132:
133: BEGIN
134: IF PG_DEBUG in ('Y', 'C') THEN
135: arp_util.debug( 'arp_ctl_pkg.calculate_prorated_tax_amount()+');
136: END IF;
137:
138: IF p_mode = 'INSERT_NO_LINE' then
139:

Line 217: arp_util.debug( 'arp_ctl_pkg.calculate_prorated_tax_amount()-');

213: arp_util.debug( 'l_tax_amount = ' || l_tax_amount);
214: END IF;
215:
216: IF PG_DEBUG in ('Y', 'C') THEN
217: arp_util.debug( 'arp_ctl_pkg.calculate_prorated_tax_amount()-');
218: END IF;
219:
220: RETURN l_tax_amount;
221: EXCEPTION

Line 226: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.calculate_prorated_tax_amount');

222: WHEN NO_DATA_FOUND THEN
223: return null;
224: WHEN OTHERS THEN
225: IF PG_DEBUG in ('Y', 'C') THEN
226: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.calculate_prorated_tax_amount');
227: arp_util.debug( '');
228: arp_util.debug( 'p_customer_trx_id = '||p_customer_trx_id);
229: arp_util.debug( 'p_customer_trx_line_id = '||p_customer_trx_line_id);
230: arp_util.debug( 'p_tax_amount = '||p_tax_amount);

Line 298: arp_util.debug('arp_ctl_pkg.bind_line_variables()+');

294: p_line_rec IN ra_customer_trx_lines%rowtype) IS
295:
296: BEGIN
297:
298: arp_util.debug('arp_ctl_pkg.bind_line_variables()+');
299:
300:
301: /*------------------+
302: | Dummy constants |

Line 725: arp_util.debug('arp_ctl_pkg.bind_line_variables()-');

721: /* 4713671 end */
722: dbms_sql.bind_variable(p_update_cursor, ':rule_end_date',
723: p_line_rec.rule_end_date);
724:
725: arp_util.debug('arp_ctl_pkg.bind_line_variables()-');
726:
727: EXCEPTION
728: WHEN OTHERS THEN
729: arp_util.debug('EXCEPTION: arp_ctl_pkg.bind_line_variables()');

Line 729: arp_util.debug('EXCEPTION: arp_ctl_pkg.bind_line_variables()');

725: arp_util.debug('arp_ctl_pkg.bind_line_variables()-');
726:
727: EXCEPTION
728: WHEN OTHERS THEN
729: arp_util.debug('EXCEPTION: arp_ctl_pkg.bind_line_variables()');
730:
731: arp_util.debug('');
732: arp_util.debug('-------- parameters for bind_line_variables() ------');
733:

Line 800: arp_util.debug('arp_ctl_pkg.construct_line_update_stmt()+');

796:
797: PROCEDURE construct_line_update_stmt( update_text OUT NOCOPY varchar2) IS
798:
799: BEGIN
800: arp_util.debug('arp_ctl_pkg.construct_line_update_stmt()+');
801:
802: update_text :=
803: 'UPDATE ra_customer_trx_lines
804: SET customer_trx_line_id =

Line 1352: arp_util.debug('arp_ctl_pkg.construct_line_update_stmt()-');

1348: :ar_date_dummy, rule_end_date,
1349: :rule_end_date) ';
1350:
1351:
1352: arp_util.debug('arp_ctl_pkg.construct_line_update_stmt()-');
1353:
1354: EXCEPTION
1355: WHEN OTHERS THEN
1356: arp_util.debug('EXCEPTION: arp_ctl_pkg.construct_line_update_stmt()');

Line 1356: arp_util.debug('EXCEPTION: arp_ctl_pkg.construct_line_update_stmt()');

1352: arp_util.debug('arp_ctl_pkg.construct_line_update_stmt()-');
1353:
1354: EXCEPTION
1355: WHEN OTHERS THEN
1356: arp_util.debug('EXCEPTION: arp_ctl_pkg.construct_line_update_stmt()');
1357: RAISE;
1358:
1359: END;
1360:

Line 1416: arp_util.debug('arp_ctl_pkg.generic_update()+');

1412: ctl_array dbms_sql.number_table;
1413: --}
1414:
1415: BEGIN
1416: arp_util.debug('arp_ctl_pkg.generic_update()+');
1417:
1418: /*--------------------------------------------------------------+
1419: | If this update statement has not already been parsed, |
1420: | construct the statement and parse it. |

Line 1434: arp_ctl_pkg.construct_line_update_stmt(l_update_statement);

1430: /*---------------------------------+
1431: | Construct the update statement |
1432: +---------------------------------*/
1433:
1434: arp_ctl_pkg.construct_line_update_stmt(l_update_statement);
1435:
1436: l_update_statement := l_update_statement || p_where_clause ||
1437: --{BUG#3339072 MRC trx line
1438: ' RETURNING :customer_trx_line_id INTO :ctl_value ';

Line 1456: arp_ctl_pkg.bind_line_variables(p_update_cursor, p_line_rec);

1452: dbms_sql.v7);
1453:
1454: END IF;
1455:
1456: arp_ctl_pkg.bind_line_variables(p_update_cursor, p_line_rec);
1457:
1458: /*-----------------------------------------+
1459: | Bind the variables in the where clause |
1460: +-----------------------------------------*/

Line 1493: arp_util.debug('arp_ctl_pkg.generic_update()-');

1489: IF (l_count = 0)
1490: THEN RAISE NO_DATA_FOUND;
1491: END IF;
1492:
1493: arp_util.debug('arp_ctl_pkg.generic_update()-');
1494:
1495: EXCEPTION
1496: WHEN OTHERS THEN
1497: arp_util.debug('EXCEPTION: arp_ctl_pkg.generic_update()');

Line 1497: arp_util.debug('EXCEPTION: arp_ctl_pkg.generic_update()');

1493: arp_util.debug('arp_ctl_pkg.generic_update()-');
1494:
1495: EXCEPTION
1496: WHEN OTHERS THEN
1497: arp_util.debug('EXCEPTION: arp_ctl_pkg.generic_update()');
1498: arp_util.debug(l_update_statement);
1499: arp_util.debug('Error at character: ' ||
1500: to_char(dbms_sql.last_error_position));
1501:

Line 1578: arp_util.debug('arp_ctl_pkg.set_to_dummy()+');

1574:
1575: BEGIN
1576:
1577: IF PG_DEBUG in ('Y', 'C') THEN
1578: arp_util.debug('arp_ctl_pkg.set_to_dummy()+');
1579: END IF;
1580:
1581: p_line_rec.customer_trx_line_id := AR_NUMBER_DUMMY;
1582: p_line_rec.customer_trx_id := AR_NUMBER_DUMMY;

Line 1720: arp_util.debug('arp_ctl_pkg.set_to_dummy()-');

1716: p_line_rec.tax_classification_code := AR_TEXT_DUMMY;
1717:
1718: p_line_rec.rule_end_date := AR_DATE_DUMMY;
1719: IF PG_DEBUG in ('Y', 'C') THEN
1720: arp_util.debug('arp_ctl_pkg.set_to_dummy()-');
1721: END IF;
1722:
1723: EXCEPTION
1724: WHEN OTHERS THEN

Line 1726: arp_util.debug('EXCEPTION: arp_ctl_pkg.set_to_dummy()');

1722:
1723: EXCEPTION
1724: WHEN OTHERS THEN
1725: IF PG_DEBUG in ('Y', 'C') THEN
1726: arp_util.debug('EXCEPTION: arp_ctl_pkg.set_to_dummy()');
1727: END IF;
1728: RAISE;
1729:
1730: END;

Line 1767: arp_util.debug( 'arp_ctl_pkg.fetch_p()+');

1763: IS
1764:
1765: BEGIN
1766: IF PG_DEBUG in ('Y', 'C') THEN
1767: arp_util.debug( 'arp_ctl_pkg.fetch_p()+');
1768: END IF;
1769:
1770: SELECT *
1771: INTO p_line_rec

Line 1776: arp_util.debug( 'arp_ctl_pkg.fetch_p()-');

1772: FROM ra_customer_trx_lines
1773: WHERE customer_trx_line_id = p_customer_trx_line_id;
1774:
1775: IF PG_DEBUG in ('Y', 'C') THEN
1776: arp_util.debug( 'arp_ctl_pkg.fetch_p()-');
1777: END IF;
1778:
1779: EXCEPTION
1780: WHEN OTHERS THEN

Line 1782: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.fetch_p' );

1778:
1779: EXCEPTION
1780: WHEN OTHERS THEN
1781: IF PG_DEBUG in ('Y', 'C') THEN
1782: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.fetch_p' );
1783: arp_util.debug( '');
1784: arp_util.debug( '-------- parameters for fetch_p() ------');
1785: arp_util.debug( 'p_customer_trx_line_id = ' || p_customer_trx_line_id);
1786: END IF;

Line 1826: arp_util.debug( 'arp_ctl_pkg.lock_p()+');

1822: l_customer_trx_line_id ra_customer_trx_lines.customer_trx_line_id%type;
1823:
1824: BEGIN
1825: IF PG_DEBUG in ('Y', 'C') THEN
1826: arp_util.debug( 'arp_ctl_pkg.lock_p()+');
1827: END IF;
1828:
1829:
1830: SELECT customer_trx_line_id

Line 1837: arp_util.debug( 'arp_ctl_pkg.lock_p()-');

1833: WHERE customer_trx_line_id = p_customer_trx_line_id
1834: FOR UPDATE OF customer_trx_line_id NOWAIT;
1835:
1836: IF PG_DEBUG in ('Y', 'C') THEN
1837: arp_util.debug( 'arp_ctl_pkg.lock_p()-');
1838: END IF;
1839:
1840: EXCEPTION
1841: WHEN OTHERS THEN

Line 1843: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.lock_p' );

1839:
1840: EXCEPTION
1841: WHEN OTHERS THEN
1842: IF PG_DEBUG in ('Y', 'C') THEN
1843: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.lock_p' );
1844: arp_util.debug( '');
1845: arp_util.debug( '-------- parameters for lock_p() ------');
1846: arp_util.debug( 'p_customer_trx_line_id = ' ||
1847: p_customer_trx_line_id);

Line 1892: arp_util.debug( 'arp_ctl_pkg.lock_f_ct_id()+');

1888: FOR UPDATE OF customer_trx_line_id NOWAIT;
1889:
1890: BEGIN
1891: IF PG_DEBUG in ('Y', 'C') THEN
1892: arp_util.debug( 'arp_ctl_pkg.lock_f_ct_id()+');
1893: END IF;
1894:
1895: OPEN lock_c;
1896: CLOSE lock_c;

Line 1899: arp_util.debug( 'arp_ctl_pkg.lock_f_ct_id()-');

1895: OPEN lock_c;
1896: CLOSE lock_c;
1897:
1898: IF PG_DEBUG in ('Y', 'C') THEN
1899: arp_util.debug( 'arp_ctl_pkg.lock_f_ct_id()-');
1900: END IF;
1901:
1902: EXCEPTION
1903: WHEN OTHERS THEN

Line 1905: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.lock_f_ct_id' );

1901:
1902: EXCEPTION
1903: WHEN OTHERS THEN
1904: IF PG_DEBUG in ('Y', 'C') THEN
1905: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.lock_f_ct_id' );
1906: arp_util.debug( '');
1907: arp_util.debug( '-------- parameters for lock_f_ct_id() ------');
1908: arp_util.debug( 'p_customer_trx_id = ' ||
1909: p_customer_trx_id);

Line 1950: arp_util.debug( 'arp_ctl_pkg.lock_fetch_p()+');

1946: ra_customer_trx_lines.customer_trx_line_id%type ) IS
1947:
1948: BEGIN
1949: IF PG_DEBUG in ('Y', 'C') THEN
1950: arp_util.debug( 'arp_ctl_pkg.lock_fetch_p()+');
1951: END IF;
1952:
1953: SELECT *
1954: INTO p_line_rec

Line 1960: arp_util.debug( 'arp_ctl_pkg.lock_fetch_p()-');

1956: WHERE customer_trx_line_id = p_customer_trx_line_id
1957: FOR UPDATE OF customer_trx_line_id NOWAIT;
1958:
1959: IF PG_DEBUG in ('Y', 'C') THEN
1960: arp_util.debug( 'arp_ctl_pkg.lock_fetch_p()-');
1961: END IF;
1962:
1963: EXCEPTION
1964: WHEN OTHERS THEN

Line 1966: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.lock_fetch_p' );

1962:
1963: EXCEPTION
1964: WHEN OTHERS THEN
1965: IF PG_DEBUG in ('Y', 'C') THEN
1966: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.lock_fetch_p' );
1967: arp_util.debug( '');
1968: arp_util.debug( '-------- parameters for lock_fetch_p() ------');
1969: arp_util.debug( 'p_customer_trx_line_id = ' ||
1970: p_customer_trx_line_id);

Line 2043: arp_util.debug( 'arp_ctl_pkg.lock_compare_p()+');

2039: l_ignore_who_flag varchar2(2);
2040:
2041: BEGIN
2042: IF PG_DEBUG in ('Y', 'C') THEN
2043: arp_util.debug( 'arp_ctl_pkg.lock_compare_p()+');
2044: END IF;
2045:
2046: IF (p_ignore_who_flag = TRUE)
2047: THEN l_ignore_who_flag := 'Y';

Line 3120: arp_util.debug( 'arp_ctl_pkg.lock_compare_p()-');

3116: FOR UPDATE OF customer_trx_line_id NOWAIT;
3117:
3118:
3119: IF PG_DEBUG in ('Y', 'C') THEN
3120: arp_util.debug( 'arp_ctl_pkg.lock_compare_p()-');
3121: END IF;
3122:
3123: EXCEPTION
3124: WHEN NO_DATA_FOUND THEN

Line 3148: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.lock_compare_p' );

3144: APP_EXCEPTION.Raise_Exception;
3145:
3146: WHEN OTHERS THEN
3147: IF PG_DEBUG in ('Y', 'C') THEN
3148: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.lock_compare_p' );
3149: arp_util.debug( '');
3150: arp_util.debug( '-------- parameters for lock_compare_p() ------');
3151: arp_util.debug( 'p_customer_trx_line_id = ' ||
3152: p_customer_trx_line_id);

Line 3197: arp_util.debug( 'arp_ctl_pkg.delete_p()+');

3193:
3194: BEGIN
3195:
3196: IF PG_DEBUG in ('Y', 'C') THEN
3197: arp_util.debug( 'arp_ctl_pkg.delete_p()+');
3198: arp_util.debug( 'deleting ctlid: ' || p_customer_trx_line_id);
3199: END IF;
3200:
3201: DELETE FROM ra_customer_trx_lines

Line 3205: THEN arp_util.debug('EXCEPTION: arp_ctl_pkg.delete_p()');

3201: DELETE FROM ra_customer_trx_lines
3202: WHERE customer_trx_line_id = p_customer_trx_line_id;
3203:
3204: IF ( SQL%ROWCOUNT = 0 )
3205: THEN arp_util.debug('EXCEPTION: arp_ctl_pkg.delete_p()');
3206: RAISE NO_DATA_FOUND;
3207: END IF;
3208:
3209: IF PG_DEBUG in ('Y', 'C') THEN

Line 3210: arp_util.debug( 'arp_ctl_pkg.delete_p()-');

3206: RAISE NO_DATA_FOUND;
3207: END IF;
3208:
3209: IF PG_DEBUG in ('Y', 'C') THEN
3210: arp_util.debug( 'arp_ctl_pkg.delete_p()-');
3211: END IF;
3212:
3213: EXCEPTION
3214: WHEN OTHERS THEN

Line 3216: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.delete_p()');

3212:
3213: EXCEPTION
3214: WHEN OTHERS THEN
3215: IF PG_DEBUG in ('Y', 'C') THEN
3216: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.delete_p()');
3217: arp_util.debug( '');
3218: arp_util.debug( '-------- parameters for delete_p() ------');
3219: arp_util.debug( 'p_customer_trx_line_id = ' ||
3220: p_customer_trx_line_id);

Line 3266: arp_util.debug( 'arp_ctl_pkg.delete_f_ct_id()+');

3262: BEGIN
3263:
3264:
3265: IF PG_DEBUG in ('Y', 'C') THEN
3266: arp_util.debug( 'arp_ctl_pkg.delete_f_ct_id()+');
3267: END IF;
3268:
3269: DELETE FROM ra_customer_trx_lines
3270: WHERE customer_trx_id = p_customer_trx_id

Line 3277: arp_util.debug( 'arp_ctl_pkg.delete_f_ct_id()-');

3273: BULK COLLECT INTO l_ctl_key_list;
3274: --}
3275:
3276: IF PG_DEBUG in ('Y', 'C') THEN
3277: arp_util.debug( 'arp_ctl_pkg.delete_f_ct_id()-');
3278: END IF;
3279:
3280: EXCEPTION
3281: WHEN OTHERS THEN

Line 3283: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.delete_f_ct_id()');

3279:
3280: EXCEPTION
3281: WHEN OTHERS THEN
3282: IF PG_DEBUG in ('Y', 'C') THEN
3283: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.delete_f_ct_id()');
3284: arp_util.debug( '');
3285: arp_util.debug( '-------- parameters for delete_f_ct_id() ------');
3286: arp_util.debug( 'p_customer_trx_id = ' ||
3287: p_customer_trx_id);

Line 3333: arp_util.debug( 'arp_ctl_pkg.delete_f_ltctl_id()+');

3329: BEGIN
3330:
3331:
3332: IF PG_DEBUG in ('Y', 'C') THEN
3333: arp_util.debug( 'arp_ctl_pkg.delete_f_ltctl_id()+');
3334: END IF;
3335:
3336: DELETE FROM ra_customer_trx_lines
3337: WHERE link_to_cust_trx_line_id = p_link_to_cust_trx_line_id

Line 3344: arp_util.debug( 'arp_ctl_pkg.delete_f_ltctl_id()-');

3340: BULK COLLECT INTO l_ctl_key_list;
3341: --}
3342:
3343: IF PG_DEBUG in ('Y', 'C') THEN
3344: arp_util.debug( 'arp_ctl_pkg.delete_f_ltctl_id()-');
3345: END IF;
3346:
3347: EXCEPTION
3348: WHEN OTHERS THEN

Line 3350: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.delete_f_ltctl_id()');

3346:
3347: EXCEPTION
3348: WHEN OTHERS THEN
3349: IF PG_DEBUG in ('Y', 'C') THEN
3350: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.delete_f_ltctl_id()');
3351: arp_util.debug( '');
3352: arp_util.debug( '-------- parameters for delete_f_ltctl_id() ------');
3353: arp_util.debug( 'p_link_to_cust_trx_line_id = ' ||
3354: p_link_to_cust_trx_line_id);

Line 3407: arp_util.debug( 'arp_ctl_pkg.delete_f_ct_ltctl_id_type()+');

3403:
3404: BEGIN
3405:
3406: IF PG_DEBUG in ('Y', 'C') THEN
3407: arp_util.debug( 'arp_ctl_pkg.delete_f_ct_ltctl_id_type()+');
3408: END IF;
3409:
3410: DELETE FROM ra_customer_trx_lines
3411: WHERE customer_trx_id = p_customer_trx_id

Line 3422: arp_util.debug( 'arp_ctl_pkg.delete_f_ct_ltctl_id_type()-');

3418: BULK COLLECT INTO l_ctl_key_list;
3419: --}
3420:
3421: IF PG_DEBUG in ('Y', 'C') THEN
3422: arp_util.debug( 'arp_ctl_pkg.delete_f_ct_ltctl_id_type()-');
3423: END IF;
3424:
3425: EXCEPTION
3426: WHEN OTHERS THEN

Line 3428: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.delete_f_ct_ltctl_id_type()');

3424:
3425: EXCEPTION
3426: WHEN OTHERS THEN
3427: IF PG_DEBUG in ('Y', 'C') THEN
3428: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.delete_f_ct_ltctl_id_type()');
3429: arp_util.debug( '');
3430: arp_util.debug( '---- parameters for delete_f_ct_ltctl_id_type() -----');
3431: arp_util.debug( 'p_customer_trx_id = ' || p_customer_trx_id);
3432: arp_util.debug( 'p_link_to_cust_trx_line_id = ' ||

Line 3483: arp_util.debug( 'arp_ctl_pkg.update_p()+ ' ||

3479:
3480: BEGIN
3481:
3482: IF PG_DEBUG in ('Y', 'C') THEN
3483: arp_util.debug( 'arp_ctl_pkg.update_p()+ ' ||
3484: to_char(sysdate, 'HH:MI:SS'));
3485: END IF;
3486:
3487: /*---------------------------------------------------------------+

Line 3506: arp_ctl_pkg.generic_update( pg_cursor1,

3502: IF PG_DEBUG in ('Y', 'C') THEN
3503: arp_util.debug( 'using currency code: ' || l_currency_code );
3504: END IF;
3505:
3506: arp_ctl_pkg.generic_update( pg_cursor1,
3507: ' WHERE customer_trx_line_id = :where_1 ' ||
3508: ' AND :where_line_type is null',
3509: p_customer_trx_line_id,
3510: null,

Line 3515: arp_util.debug( 'arp_ctl_pkg.update_p()- ' ||

3511: l_currency_code,
3512: p_line_rec);
3513:
3514: IF PG_DEBUG in ('Y', 'C') THEN
3515: arp_util.debug( 'arp_ctl_pkg.update_p()- ' ||
3516: to_char(sysdate, 'HH:MI:SS'));
3517: END IF;
3518:
3519:

Line 3523: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.update_p()');

3519:
3520: EXCEPTION
3521: WHEN OTHERS THEN
3522: IF PG_DEBUG in ('Y', 'C') THEN
3523: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.update_p()');
3524: arp_util.debug( '');
3525: arp_util.debug( '-------- parameters for update_p() ------');
3526: arp_util.debug( 'p_customer_trx_line_id = ' ||
3527: p_customer_trx_line_id);

Line 3581: arp_util.debug( 'arp_ctl_pkg.update_f_ct_id()+ ' ||

3577:
3578: BEGIN
3579:
3580: IF PG_DEBUG in ('Y', 'C') THEN
3581: arp_util.debug( 'arp_ctl_pkg.update_f_ct_id()+ ' ||
3582: to_char(sysdate, 'HH:MI:SS'));
3583: END IF;
3584:
3585:

Line 3608: arp_ctl_pkg.generic_update( pg_cursor2,

3604:
3605: l_where := ' WHERE customer_trx_id = :where_1 ' ||
3606: 'AND line_type = nvl(:where_line_type, line_type)';
3607:
3608: arp_ctl_pkg.generic_update( pg_cursor2,
3609: l_where,
3610: p_customer_trx_id,
3611: p_line_type,
3612: l_currency_code,

Line 3616: arp_util.debug( 'arp_ctl_pkg.update_f_ct_id()- ' ||

3612: l_currency_code,
3613: p_line_rec);
3614:
3615: IF PG_DEBUG in ('Y', 'C') THEN
3616: arp_util.debug( 'arp_ctl_pkg.update_f_ct_id()- ' ||
3617: to_char(sysdate, 'HH:MI:SS'));
3618: END IF;
3619:
3620:

Line 3624: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.update_f_ct_id()');

3620:
3621: EXCEPTION
3622: WHEN OTHERS THEN
3623: IF PG_DEBUG in ('Y', 'C') THEN
3624: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.update_f_ct_id()');
3625: arp_util.debug( '');
3626: arp_util.debug( '-------- parameters for update_f_ct_id() ------');
3627: arp_util.debug( 'p_customer_trx_id = ' ||
3628: p_customer_trx_id);

Line 3699: arp_util.debug( 'arp_ctl_pkg.update_amount_f_ctl_id('

3695: l_old_inclusive_amt ra_customer_trx_lines.extended_amount%type;
3696: l_qty ra_customer_trx_lines.quantity_invoiced%type;
3697: begin
3698: IF PG_DEBUG in ('Y', 'C') THEN
3699: arp_util.debug( 'arp_ctl_pkg.update_amount_f_ctl_id('
3700: || to_char(p_customer_trx_line_id) || ','
3701: || to_char(p_inclusive_amt)
3702: ||')+');
3703: END IF;

Line 3767: arp_util.debug( 'arp_ctl_pkg.update_amount_f_ctl_id('

3763: p_new_extended_amt := l_extended_amount;
3764: p_new_unit_selling_price := l_unit_selling_price;
3765:
3766: IF PG_DEBUG in ('Y', 'C') THEN
3767: arp_util.debug( 'arp_ctl_pkg.update_amount_f_ctl_id('
3768: || to_char(l_extended_amount) || ','
3769: || to_char(l_unit_selling_price)
3770: ||')-');
3771: END IF;

Line 3779: arp_util.debug( 'arp_ctl_pkg.update_amount_f_ctl_id(EXCEPTION)-');

3775: close c;
3776: end if;
3777:
3778: IF PG_DEBUG in ('Y', 'C') THEN
3779: arp_util.debug( 'arp_ctl_pkg.update_amount_f_ctl_id(EXCEPTION)-');
3780: END IF;
3781: raise;
3782: end update_amount_f_ctl_id;
3783:

Line 3845: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id('

3841: l_revenue_amount ra_customer_trx_lines.revenue_amount%type;
3842: l_old_inclusive_amt ra_customer_trx_lines.extended_amount%type;
3843: begin
3844: IF PG_DEBUG in ('Y', 'C') THEN
3845: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id('
3846: || to_char(p_customer_trx_line_id) || ','
3847: || to_char(p_inclusive_amount)
3848: ||')+');
3849: END IF;

Line 3860: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||

3856: if ( p_inclusive_amount is null ) OR
3857: ( p_inclusive_amount = 0 )
3858: then
3859: IF PG_DEBUG in ('Y', 'C') THEN
3860: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3861: 'No Inclusive Tax Amounts');
3862: END IF;
3863:
3864: l_gross_extended_amount := null;

Line 3868: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||

3864: l_gross_extended_amount := null;
3865: l_gross_unit_selling_price := null;
3866: else
3867: IF PG_DEBUG in ('Y', 'C') THEN
3868: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3869: 'Inclusive Amount = '||to_char(p_inclusive_amount));
3870: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3871: 'Quantity = '||nvl(to_char(crow.quantity_credited), 'NULL'));
3872: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||

Line 3870: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||

3866: else
3867: IF PG_DEBUG in ('Y', 'C') THEN
3868: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3869: 'Inclusive Amount = '||to_char(p_inclusive_amount));
3870: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3871: 'Quantity = '||nvl(to_char(crow.quantity_credited), 'NULL'));
3872: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3873: 'Precision = '||nvl(to_char(p_precision), 'NULL'));
3874: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||

Line 3872: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||

3868: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3869: 'Inclusive Amount = '||to_char(p_inclusive_amount));
3870: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3871: 'Quantity = '||nvl(to_char(crow.quantity_credited), 'NULL'));
3872: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3873: 'Precision = '||nvl(to_char(p_precision), 'NULL'));
3874: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3875: 'MAU = '||nvl(to_char(p_min_acct_unit), 'NULL'));
3876: END IF;

Line 3874: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||

3870: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3871: 'Quantity = '||nvl(to_char(crow.quantity_credited), 'NULL'));
3872: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3873: 'Precision = '||nvl(to_char(p_precision), 'NULL'));
3874: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3875: 'MAU = '||nvl(to_char(p_min_acct_unit), 'NULL'));
3876: END IF;
3877:
3878: l_gross_extended_amount := crow.extended_amount + p_inclusive_amount;

Line 3893: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: NO unit selling price');

3889: raise;
3890: end;
3891: elsif ( crow.unit_selling_price is null ) then
3892: IF PG_DEBUG in ('Y', 'C') THEN
3893: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: NO unit selling price');
3894: END IF;
3895: l_gross_unit_selling_price := null;
3896: elsif (p_min_acct_unit is null) then
3897: IF PG_DEBUG in ('Y', 'C') THEN

Line 3898: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: Rounding to precision');

3894: END IF;
3895: l_gross_unit_selling_price := null;
3896: elsif (p_min_acct_unit is null) then
3897: IF PG_DEBUG in ('Y', 'C') THEN
3898: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: Rounding to precision');
3899: END IF;
3900: l_gross_unit_selling_price :=
3901: round(l_gross_extended_amount / crow.quantity_credited, p_precision+2);
3902: else

Line 3904: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: Rounding to MAU');

3900: l_gross_unit_selling_price :=
3901: round(l_gross_extended_amount / crow.quantity_credited, p_precision+2);
3902: else
3903: IF PG_DEBUG in ('Y', 'C') THEN
3904: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: Rounding to MAU');
3905: END IF;
3906: l_gross_unit_selling_price :=
3907: round(l_gross_extended_amount / crow.quantity_credited / p_min_acct_unit / 100)
3908: * 100 * p_min_acct_unit;

Line 3925: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id('

3921: p_new_gross_extended_amount := l_gross_extended_amount;
3922: p_new_gross_unit_selling_price := l_gross_unit_selling_price;
3923:
3924: IF PG_DEBUG in ('Y', 'C') THEN
3925: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id('
3926: || to_char(l_gross_extended_amount) || ','
3927: || to_char(l_gross_unit_selling_price)
3928: ||')-');
3929: END IF;

Line 3938: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id(EXCEPTION)-');

3934: close c;
3935: end if;
3936:
3937: IF PG_DEBUG in ('Y', 'C') THEN
3938: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id(EXCEPTION)-');
3939: END IF;
3940: raise;
3941: end update_cm_amount_f_ctl_id;
3942:

Line 4016: arp_util.debug( 'arp_ctl_pkg.insert_p()+');

4012:
4013: BEGIN
4014:
4015: IF PG_DEBUG in ('Y', 'C') THEN
4016: arp_util.debug( 'arp_ctl_pkg.insert_p()+');
4017: END IF;
4018:
4019: p_customer_trx_line_id := '';
4020:

Line 4325: arp_util.debug( 'arp_ctl_pkg.insert_p()-');

4321: arp_util.debug( 'after insert: gross_extended_amount = ' ||
4322: p_line_rec.gross_extended_amount);
4323: arp_util.debug( 'after insert: gross_unit_selling_price = ' ||
4324: p_line_rec.gross_unit_selling_price);
4325: arp_util.debug( 'arp_ctl_pkg.insert_p()-');
4326: END IF;
4327:
4328: EXCEPTION
4329: WHEN OTHERS THEN

Line 4331: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.insert_p()');

4327:
4328: EXCEPTION
4329: WHEN OTHERS THEN
4330: IF PG_DEBUG in ('Y', 'C') THEN
4331: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.insert_p()');
4332: arp_util.debug( '');
4333: arp_util.debug( '-------- parameters for insert_p() ------');
4334: END IF;
4335: display_line_rec(p_line_rec);

Line 4370: arp_util.debug( 'arp_ctl_pkg.display_line_rec()+');

4366: PROCEDURE display_line_rec(
4367: p_line_rec IN ra_customer_trx_lines%rowtype) IS
4368: BEGIN
4369: IF PG_DEBUG in ('Y', 'C') THEN
4370: arp_util.debug( 'arp_ctl_pkg.display_line_rec()+');
4371: END IF;
4372:
4373: arp_ctl_private_pkg.display_line_rec(p_line_rec);
4374:

Line 4376: arp_util.debug( 'arp_ctl_pkg.display_line_rec()-');

4372:
4373: arp_ctl_private_pkg.display_line_rec(p_line_rec);
4374:
4375: IF PG_DEBUG in ('Y', 'C') THEN
4376: arp_util.debug( 'arp_ctl_pkg.display_line_rec()-');
4377: END IF;
4378: END;
4379:
4380:

Line 4412: arp_util.debug( 'arp_ctl_pkg.display_line_p()+');

4408: p_customer_trx_line_id IN
4409: ra_customer_trx_lines.customer_trx_line_id%type) IS
4410: BEGIN
4411: IF PG_DEBUG in ('Y', 'C') THEN
4412: arp_util.debug( 'arp_ctl_pkg.display_line_p()+');
4413: END IF;
4414:
4415: arp_ctl_private_pkg.display_line_p(p_customer_trx_line_id);
4416:

Line 4418: arp_util.debug( 'arp_ctl_pkg.display_line_p()-');

4414:
4415: arp_ctl_private_pkg.display_line_p(p_customer_trx_line_id);
4416:
4417: IF PG_DEBUG in ('Y', 'C') THEN
4418: arp_util.debug( 'arp_ctl_pkg.display_line_p()-');
4419: END IF;
4420:
4421: END;
4422:

Line 4459: arp_util.debug( 'arp_ctl_pkg.display_line_f_lctl_id()+');

4455: IS
4456: BEGIN
4457:
4458: IF PG_DEBUG in ('Y', 'C') THEN
4459: arp_util.debug( 'arp_ctl_pkg.display_line_f_lctl_id()+');
4460: END IF;
4461:
4462: arp_ctl_private_pkg.display_line_f_lctl_id( p_link_to_cust_trx_line_id );
4463:

Line 4465: arp_util.debug( 'arp_ctl_pkg.display_line_f_lctl_id()-');

4461:
4462: arp_ctl_private_pkg.display_line_f_lctl_id( p_link_to_cust_trx_line_id );
4463:
4464: IF PG_DEBUG in ('Y', 'C') THEN
4465: arp_util.debug( 'arp_ctl_pkg.display_line_f_lctl_id()-');
4466: END IF;
4467:
4468: END;
4469:

Line 4507: arp_util.debug( 'arp_ctl_pkg.display_line_f_ct_id()+');

4503: IS
4504: BEGIN
4505:
4506: IF PG_DEBUG in ('Y', 'C') THEN
4507: arp_util.debug( 'arp_ctl_pkg.display_line_f_ct_id()+');
4508: END IF;
4509:
4510: arp_ctl_private_pkg.display_line_f_ct_id( p_customer_trx_id );
4511:

Line 4513: arp_util.debug( 'arp_ctl_pkg.display_line_f_ct_id()-');

4509:
4510: arp_ctl_private_pkg.display_line_f_ct_id( p_customer_trx_id );
4511:
4512: IF PG_DEBUG in ('Y', 'C') THEN
4513: arp_util.debug( 'arp_ctl_pkg.display_line_f_ct_id()-');
4514: END IF;
4515:
4516: END;
4517:

Line 4589: arp_util.debug( 'arp_ctl_pkg.merge_line_recs()+');

4585:
4586: BEGIN
4587:
4588: IF PG_DEBUG in ('Y', 'C') THEN
4589: arp_util.debug( 'arp_ctl_pkg.merge_line_recs()+');
4590: END IF;
4591:
4592: IF (p_new_line_rec.customer_trx_line_id = AR_NUMBER_DUMMY)
4593: THEN p_out_line_rec.customer_trx_line_id :=

Line 5348: arp_util.debug( 'arp_ctl_pkg.merge_line_recs()-');

5344: ELSE p_out_line_rec.rule_end_date := p_new_line_rec.rule_end_date;
5345: END IF;
5346:
5347: IF PG_DEBUG in ('Y', 'C') THEN
5348: arp_util.debug( 'arp_ctl_pkg.merge_line_recs()-');
5349: END IF;
5350:
5351: EXCEPTION
5352: WHEN OTHERS THEN

Line 5354: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.merge_line_recs()');

5350:
5351: EXCEPTION
5352: WHEN OTHERS THEN
5353: IF PG_DEBUG in ('Y', 'C') THEN
5354: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.merge_line_recs()');
5355: arp_util.debug( '');
5356: arp_util.debug( '-------- parameters for merge_line_recs() ------');
5357: arp_util.debug( ' ---- old line record ----');
5358: END IF;

Line 5463: arp_util.debug( 'arp_ctl_pkg.insert_line_f_cm_ct_ctl_id()+');

5459:
5460: BEGIN
5461:
5462: IF PG_DEBUG in ('Y', 'C') THEN
5463: arp_util.debug( 'arp_ctl_pkg.insert_line_f_cm_ct_ctl_id()+');
5464: -- MVKOLLA - Bug7113653 Added following debug messages
5465: arp_util.debug('-- Added below messages for bug7113653');
5466: arp_util.debug('p_customer_trx_id '||p_customer_trx_id);
5467: arp_util.debug('p_customer_trx_line_id '||p_customer_trx_line_id);

Line 5710: arp_util.debug( 'arp_ctl_pkg.insert_line_f_cm_ct_ctl_id : '||' 0 row Fetch ');

5706:
5707: /* Bug-3658284 -Start */
5708: IF (l_trx_line_array.customer_trx_line_id.COUNT = 0) Then
5709: IF PG_DEBUG in ('Y', 'C') THEN
5710: arp_util.debug( 'arp_ctl_pkg.insert_line_f_cm_ct_ctl_id : '||' 0 row Fetch ');
5711: END IF;
5712:
5713: ELSE /*-- Bug 5098922 ---*/
5714:

Line 6014: arp_util.debug( 'arp_ctl_pkg.insert_line_f_cm_ct_ctl_id : '||

6010: --}
6011:
6012:
6013: IF PG_DEBUG in ('Y', 'C') THEN
6014: arp_util.debug( 'arp_ctl_pkg.insert_line_f_cm_ct_ctl_id : '||
6015: to_char(l_rows_inserted)||' rows inserted');
6016: END IF;
6017:
6018: /* Bug 3658284 - Remove the entire rounding update statement */

Line 6021: arp_util.debug( 'arp_ctl_pkg.insert_line_f_cm_ct_ctl_id()-');

6017:
6018: /* Bug 3658284 - Remove the entire rounding update statement */
6019:
6020: IF PG_DEBUG in ('Y', 'C') THEN
6021: arp_util.debug( 'arp_ctl_pkg.insert_line_f_cm_ct_ctl_id()-');
6022: END IF;
6023:
6024: EXCEPTION
6025: WHEN NO_DATA_FOUND THEN

Line 6029: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.insert_line_f_cm_ct_ctl_id');

6025: WHEN NO_DATA_FOUND THEN
6026: return;
6027: WHEN OTHERS THEN
6028: IF PG_DEBUG in ('Y', 'C') THEN
6029: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.insert_line_f_cm_ct_ctl_id');
6030: arp_util.debug( '');
6031: arp_util.debug( 'p_customer_trx_id = '||p_customer_trx_id);
6032: arp_util.debug( 'p_customer_trx_line_id = '||p_customer_trx_line_id);
6033: arp_util.debug( 'p_prev_customer_trx_id = '||p_prev_customer_trx_id);

Line 6085: arp_util.debug( 'arp_ctl_pkg.update_line_f_cm_ctl_id()+');

6081: --}
6082: BEGIN
6083:
6084: IF PG_DEBUG in ('Y', 'C') THEN
6085: arp_util.debug( 'arp_ctl_pkg.update_line_f_cm_ctl_id()+');
6086: END IF;
6087:
6088: UPDATE ra_customer_trx_lines ctl
6089: SET extended_amount =

Line 6114: arp_util.debug( 'arp_ctl_pkg.update_line_f_cm_ctl_id : '||

6110: BULK COLLECT INTO l_ctl_key_list;
6111: --}
6112:
6113: IF PG_DEBUG in ('Y', 'C') THEN
6114: arp_util.debug( 'arp_ctl_pkg.update_line_f_cm_ctl_id : '||
6115: 'Extended Amount :'|| SQL%ROWCOUNT||' rows updated');
6116: END IF;
6117:
6118: UPDATE ra_customer_trx_lines ctl

Line 6130: arp_util.debug( 'arp_ctl_pkg.update_line_f_cm_ctl_id : '||

6126: BULK COLLECT INTO l_ctl_key_list;
6127: --}
6128:
6129: IF PG_DEBUG in ('Y', 'C') THEN
6130: arp_util.debug( 'arp_ctl_pkg.update_line_f_cm_ctl_id : '||
6131: 'Currency Rounding :'|| SQL%ROWCOUNT||' rows updated');
6132: END IF;
6133:
6134: /*----------------------------+

Line 6167: arp_util.debug( 'arp_ctl_pkg.update_line_f_cm_ctl_id()-');

6163:
6164: END IF;
6165:
6166: IF PG_DEBUG in ('Y', 'C') THEN
6167: arp_util.debug( 'arp_ctl_pkg.update_line_f_cm_ctl_id()-');
6168: END IF;
6169:
6170: EXCEPTION
6171: WHEN NO_DATA_FOUND THEN

Line 6175: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.update_line_f_cm_ctl_id');

6171: WHEN NO_DATA_FOUND THEN
6172: return;
6173: WHEN OTHERS THEN
6174: IF PG_DEBUG in ('Y', 'C') THEN
6175: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.update_line_f_cm_ctl_id');
6176: arp_util.debug( '');
6177: arp_util.debug( 'p_customer_trx_id = '||p_customer_trx_id);
6178: arp_util.debug( 'p_customer_trx_line_id = '||p_customer_trx_line_id);
6179: arp_util.debug( 'p_prev_customer_trx_id = '||p_prev_customer_trx_id);

Line 6220: --- arp_util.debug('arp_ctl_pkg.get_text_dummy()+');

6216: FUNCTION get_text_dummy(p_null IN NUMBER DEFAULT null) RETURN varchar2 IS
6217:
6218: BEGIN
6219:
6220: --- arp_util.debug('arp_ctl_pkg.get_text_dummy()+');
6221:
6222: --- arp_util.debug('arp_ctl_pkg.get_text_dummy()-');
6223:
6224: return(AR_TEXT_DUMMY);

Line 6222: --- arp_util.debug('arp_ctl_pkg.get_text_dummy()-');

6218: BEGIN
6219:
6220: --- arp_util.debug('arp_ctl_pkg.get_text_dummy()+');
6221:
6222: --- arp_util.debug('arp_ctl_pkg.get_text_dummy()-');
6223:
6224: return(AR_TEXT_DUMMY);
6225:
6226: EXCEPTION

Line 6229: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.get_text_dummy()');

6225:
6226: EXCEPTION
6227: WHEN OTHERS THEN
6228: IF PG_DEBUG in ('Y', 'C') THEN
6229: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.get_text_dummy()');
6230: END IF;
6231: RAISE;
6232:
6233: END;

Line 6265: --- arp_util.debug('arp_ctl_pkg.get_number_dummy()+');

6261: FUNCTION get_number_dummy(p_null IN NUMBER DEFAULT null) RETURN number IS
6262:
6263: BEGIN
6264:
6265: --- arp_util.debug('arp_ctl_pkg.get_number_dummy()+');
6266:
6267: --- arp_util.debug('arp_ctl_pkg.get_number_dummy()-');
6268:
6269: return(AR_NUMBER_DUMMY);

Line 6267: --- arp_util.debug('arp_ctl_pkg.get_number_dummy()-');

6263: BEGIN
6264:
6265: --- arp_util.debug('arp_ctl_pkg.get_number_dummy()+');
6266:
6267: --- arp_util.debug('arp_ctl_pkg.get_number_dummy()-');
6268:
6269: return(AR_NUMBER_DUMMY);
6270:
6271: EXCEPTION

Line 6274: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.get_number_dummy()');

6270:
6271: EXCEPTION
6272: WHEN OTHERS THEN
6273: IF PG_DEBUG in ('Y', 'C') THEN
6274: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.get_number_dummy()');
6275: END IF;
6276: RAISE;
6277:
6278: END;

Line 6294: END ARP_CTL_PKG;

6290: pg_prog_appl_id := fnd_global.prog_appl_id;
6291: pg_conc_program_id := fnd_global.conc_program_id;
6292:
6293:
6294: END ARP_CTL_PKG;