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.45.12020000.4 2013/02/26 11:43:08 dgaurab 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 3262: arp_util.debug( 'arp_ctl_pkg.delete_f_ct_id()+');

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

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

3265: DELETE FROM ra_customer_trx_lines
3266: WHERE customer_trx_id = p_customer_trx_id;
3267:
3268: IF PG_DEBUG in ('Y', 'C') THEN
3269: arp_util.debug( 'arp_ctl_pkg.delete_f_ct_id()-');
3270: END IF;
3271:
3272: EXCEPTION
3273: WHEN OTHERS THEN

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

3271:
3272: EXCEPTION
3273: WHEN OTHERS THEN
3274: IF PG_DEBUG in ('Y', 'C') THEN
3275: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.delete_f_ct_id()');
3276: arp_util.debug( '');
3277: arp_util.debug( '-------- parameters for delete_f_ct_id() ------');
3278: arp_util.debug( 'p_customer_trx_id = ' ||
3279: p_customer_trx_id);

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

3318: BEGIN
3319:
3320:
3321: IF PG_DEBUG in ('Y', 'C') THEN
3322: arp_util.debug( 'arp_ctl_pkg.delete_f_ltctl_id()+');
3323: END IF;
3324:
3325: DELETE FROM ra_customer_trx_lines
3326: WHERE link_to_cust_trx_line_id = p_link_to_cust_trx_line_id;

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

3325: DELETE FROM ra_customer_trx_lines
3326: WHERE link_to_cust_trx_line_id = p_link_to_cust_trx_line_id;
3327:
3328: IF PG_DEBUG in ('Y', 'C') THEN
3329: arp_util.debug( 'arp_ctl_pkg.delete_f_ltctl_id()-');
3330: END IF;
3331:
3332: EXCEPTION
3333: WHEN OTHERS THEN

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

3331:
3332: EXCEPTION
3333: WHEN OTHERS THEN
3334: IF PG_DEBUG in ('Y', 'C') THEN
3335: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.delete_f_ltctl_id()');
3336: arp_util.debug( '');
3337: arp_util.debug( '-------- parameters for delete_f_ltctl_id() ------');
3338: arp_util.debug( 'p_link_to_cust_trx_line_id = ' ||
3339: p_link_to_cust_trx_line_id);

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

3385:
3386: BEGIN
3387:
3388: IF PG_DEBUG in ('Y', 'C') THEN
3389: arp_util.debug( 'arp_ctl_pkg.delete_f_ct_ltctl_id_type()+');
3390: END IF;
3391:
3392: DELETE FROM ra_customer_trx_lines
3393: WHERE customer_trx_id = p_customer_trx_id

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

3396: customer_trx_line_id) = nvl(p_link_to_cust_trx_line_id, -99)
3397: AND line_type = nvl(p_line_type, line_type);
3398:
3399: IF PG_DEBUG in ('Y', 'C') THEN
3400: arp_util.debug( 'arp_ctl_pkg.delete_f_ct_ltctl_id_type()-');
3401: END IF;
3402:
3403: EXCEPTION
3404: WHEN OTHERS THEN

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

3402:
3403: EXCEPTION
3404: WHEN OTHERS THEN
3405: IF PG_DEBUG in ('Y', 'C') THEN
3406: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.delete_f_ct_ltctl_id_type()');
3407: arp_util.debug( '');
3408: arp_util.debug( '---- parameters for delete_f_ct_ltctl_id_type() -----');
3409: arp_util.debug( 'p_customer_trx_id = ' || p_customer_trx_id);
3410: arp_util.debug( 'p_link_to_cust_trx_line_id = ' ||

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

3457:
3458: BEGIN
3459:
3460: IF PG_DEBUG in ('Y', 'C') THEN
3461: arp_util.debug( 'arp_ctl_pkg.update_p()+ ' ||
3462: to_char(sysdate, 'HH:MI:SS'));
3463: END IF;
3464:
3465: /*---------------------------------------------------------------+

Line 3484: arp_ctl_pkg.generic_update( pg_cursor1,

3480: IF PG_DEBUG in ('Y', 'C') THEN
3481: arp_util.debug( 'using currency code: ' || l_currency_code );
3482: END IF;
3483:
3484: arp_ctl_pkg.generic_update( pg_cursor1,
3485: ' WHERE customer_trx_line_id = :where_1 ' ||
3486: ' AND :where_line_type is null',
3487: p_customer_trx_line_id,
3488: null,

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

3489: l_currency_code,
3490: p_line_rec);
3491:
3492: IF PG_DEBUG in ('Y', 'C') THEN
3493: arp_util.debug( 'arp_ctl_pkg.update_p()- ' ||
3494: to_char(sysdate, 'HH:MI:SS'));
3495: END IF;
3496:
3497:

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

3497:
3498: EXCEPTION
3499: WHEN OTHERS THEN
3500: IF PG_DEBUG in ('Y', 'C') THEN
3501: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.update_p()');
3502: arp_util.debug( '');
3503: arp_util.debug( '-------- parameters for update_p() ------');
3504: arp_util.debug( 'p_customer_trx_line_id = ' ||
3505: p_customer_trx_line_id);

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

3555:
3556: BEGIN
3557:
3558: IF PG_DEBUG in ('Y', 'C') THEN
3559: arp_util.debug( 'arp_ctl_pkg.update_f_ct_id()+ ' ||
3560: to_char(sysdate, 'HH:MI:SS'));
3561: END IF;
3562:
3563:

Line 3586: arp_ctl_pkg.generic_update( pg_cursor2,

3582:
3583: l_where := ' WHERE customer_trx_id = :where_1 ' ||
3584: 'AND line_type = nvl(:where_line_type, line_type)';
3585:
3586: arp_ctl_pkg.generic_update( pg_cursor2,
3587: l_where,
3588: p_customer_trx_id,
3589: p_line_type,
3590: l_currency_code,

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

3590: l_currency_code,
3591: p_line_rec);
3592:
3593: IF PG_DEBUG in ('Y', 'C') THEN
3594: arp_util.debug( 'arp_ctl_pkg.update_f_ct_id()- ' ||
3595: to_char(sysdate, 'HH:MI:SS'));
3596: END IF;
3597:
3598:

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

3598:
3599: EXCEPTION
3600: WHEN OTHERS THEN
3601: IF PG_DEBUG in ('Y', 'C') THEN
3602: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.update_f_ct_id()');
3603: arp_util.debug( '');
3604: arp_util.debug( '-------- parameters for update_f_ct_id() ------');
3605: arp_util.debug( 'p_customer_trx_id = ' ||
3606: p_customer_trx_id);

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

3673: l_old_inclusive_amt ra_customer_trx_lines.extended_amount%type;
3674: l_qty ra_customer_trx_lines.quantity_invoiced%type;
3675: begin
3676: IF PG_DEBUG in ('Y', 'C') THEN
3677: arp_util.debug( 'arp_ctl_pkg.update_amount_f_ctl_id('
3678: || to_char(p_customer_trx_line_id) || ','
3679: || to_char(p_inclusive_amt)
3680: ||')+');
3681: END IF;

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

3741: p_new_extended_amt := l_extended_amount;
3742: p_new_unit_selling_price := l_unit_selling_price;
3743:
3744: IF PG_DEBUG in ('Y', 'C') THEN
3745: arp_util.debug( 'arp_ctl_pkg.update_amount_f_ctl_id('
3746: || to_char(l_extended_amount) || ','
3747: || to_char(l_unit_selling_price)
3748: ||')-');
3749: END IF;

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

3753: close c;
3754: end if;
3755:
3756: IF PG_DEBUG in ('Y', 'C') THEN
3757: arp_util.debug( 'arp_ctl_pkg.update_amount_f_ctl_id(EXCEPTION)-');
3758: END IF;
3759: raise;
3760: end update_amount_f_ctl_id;
3761:

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

3819: l_revenue_amount ra_customer_trx_lines.revenue_amount%type;
3820: l_old_inclusive_amt ra_customer_trx_lines.extended_amount%type;
3821: begin
3822: IF PG_DEBUG in ('Y', 'C') THEN
3823: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id('
3824: || to_char(p_customer_trx_line_id) || ','
3825: || to_char(p_inclusive_amount)
3826: ||')+');
3827: END IF;

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

3834: if ( p_inclusive_amount is null ) OR
3835: ( p_inclusive_amount = 0 )
3836: then
3837: IF PG_DEBUG in ('Y', 'C') THEN
3838: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3839: 'No Inclusive Tax Amounts');
3840: END IF;
3841:
3842: l_gross_extended_amount := null;

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

3842: l_gross_extended_amount := null;
3843: l_gross_unit_selling_price := null;
3844: else
3845: IF PG_DEBUG in ('Y', 'C') THEN
3846: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3847: 'Inclusive Amount = '||to_char(p_inclusive_amount));
3848: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3849: 'Quantity = '||nvl(to_char(crow.quantity_credited), 'NULL'));
3850: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||

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

3844: else
3845: IF PG_DEBUG in ('Y', 'C') THEN
3846: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3847: 'Inclusive Amount = '||to_char(p_inclusive_amount));
3848: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3849: 'Quantity = '||nvl(to_char(crow.quantity_credited), 'NULL'));
3850: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3851: 'Precision = '||nvl(to_char(p_precision), 'NULL'));
3852: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||

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

3846: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3847: 'Inclusive Amount = '||to_char(p_inclusive_amount));
3848: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3849: 'Quantity = '||nvl(to_char(crow.quantity_credited), 'NULL'));
3850: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3851: 'Precision = '||nvl(to_char(p_precision), 'NULL'));
3852: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3853: 'MAU = '||nvl(to_char(p_min_acct_unit), 'NULL'));
3854: END IF;

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

3848: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3849: 'Quantity = '||nvl(to_char(crow.quantity_credited), 'NULL'));
3850: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3851: 'Precision = '||nvl(to_char(p_precision), 'NULL'));
3852: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: '||
3853: 'MAU = '||nvl(to_char(p_min_acct_unit), 'NULL'));
3854: END IF;
3855:
3856: l_gross_extended_amount := crow.extended_amount + p_inclusive_amount;

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

3867: raise;
3868: end;
3869: elsif ( crow.unit_selling_price is null ) then
3870: IF PG_DEBUG in ('Y', 'C') THEN
3871: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: NO unit selling price');
3872: END IF;
3873: l_gross_unit_selling_price := null;
3874: elsif (p_min_acct_unit is null) then
3875: IF PG_DEBUG in ('Y', 'C') THEN

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

3872: END IF;
3873: l_gross_unit_selling_price := null;
3874: elsif (p_min_acct_unit is null) then
3875: IF PG_DEBUG in ('Y', 'C') THEN
3876: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: Rounding to precision');
3877: END IF;
3878: l_gross_unit_selling_price :=
3879: round(l_gross_extended_amount / crow.quantity_credited, p_precision);
3880: else

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

3878: l_gross_unit_selling_price :=
3879: round(l_gross_extended_amount / crow.quantity_credited, p_precision);
3880: else
3881: IF PG_DEBUG in ('Y', 'C') THEN
3882: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id: Rounding to MAU');
3883: END IF;
3884: l_gross_unit_selling_price :=
3885: round(l_gross_extended_amount / crow.quantity_credited / p_min_acct_unit / 100)
3886: * 100 * p_min_acct_unit;

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

3899: p_new_gross_extended_amount := l_gross_extended_amount;
3900: p_new_gross_unit_selling_price := l_gross_unit_selling_price;
3901:
3902: IF PG_DEBUG in ('Y', 'C') THEN
3903: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id('
3904: || to_char(l_gross_extended_amount) || ','
3905: || to_char(l_gross_unit_selling_price)
3906: ||')-');
3907: END IF;

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

3912: close c;
3913: end if;
3914:
3915: IF PG_DEBUG in ('Y', 'C') THEN
3916: arp_util.debug( 'arp_ctl_pkg.update_cm_amount_f_ctl_id(EXCEPTION)-');
3917: END IF;
3918: raise;
3919: end update_cm_amount_f_ctl_id;
3920:

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

3990:
3991: BEGIN
3992:
3993: IF PG_DEBUG in ('Y', 'C') THEN
3994: arp_util.debug( 'arp_ctl_pkg.insert_p()+');
3995: END IF;
3996:
3997: p_customer_trx_line_id := '';
3998:

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

4299: arp_util.debug( 'after insert: gross_extended_amount = ' ||
4300: p_line_rec.gross_extended_amount);
4301: arp_util.debug( 'after insert: gross_unit_selling_price = ' ||
4302: p_line_rec.gross_unit_selling_price);
4303: arp_util.debug( 'arp_ctl_pkg.insert_p()-');
4304: END IF;
4305:
4306: EXCEPTION
4307: WHEN OTHERS THEN

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

4305:
4306: EXCEPTION
4307: WHEN OTHERS THEN
4308: IF PG_DEBUG in ('Y', 'C') THEN
4309: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.insert_p()');
4310: arp_util.debug( '');
4311: arp_util.debug( '-------- parameters for insert_p() ------');
4312: END IF;
4313: display_line_rec(p_line_rec);

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

4344: PROCEDURE display_line_rec(
4345: p_line_rec IN ra_customer_trx_lines%rowtype) IS
4346: BEGIN
4347: IF PG_DEBUG in ('Y', 'C') THEN
4348: arp_util.debug( 'arp_ctl_pkg.display_line_rec()+');
4349: END IF;
4350:
4351: arp_ctl_private_pkg.display_line_rec(p_line_rec);
4352:

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

4350:
4351: arp_ctl_private_pkg.display_line_rec(p_line_rec);
4352:
4353: IF PG_DEBUG in ('Y', 'C') THEN
4354: arp_util.debug( 'arp_ctl_pkg.display_line_rec()-');
4355: END IF;
4356: END;
4357:
4358:

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

4386: p_customer_trx_line_id IN
4387: ra_customer_trx_lines.customer_trx_line_id%type) IS
4388: BEGIN
4389: IF PG_DEBUG in ('Y', 'C') THEN
4390: arp_util.debug( 'arp_ctl_pkg.display_line_p()+');
4391: END IF;
4392:
4393: arp_ctl_private_pkg.display_line_p(p_customer_trx_line_id);
4394:

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

4392:
4393: arp_ctl_private_pkg.display_line_p(p_customer_trx_line_id);
4394:
4395: IF PG_DEBUG in ('Y', 'C') THEN
4396: arp_util.debug( 'arp_ctl_pkg.display_line_p()-');
4397: END IF;
4398:
4399: END;
4400:

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

4433: IS
4434: BEGIN
4435:
4436: IF PG_DEBUG in ('Y', 'C') THEN
4437: arp_util.debug( 'arp_ctl_pkg.display_line_f_lctl_id()+');
4438: END IF;
4439:
4440: arp_ctl_private_pkg.display_line_f_lctl_id( p_link_to_cust_trx_line_id );
4441:

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

4439:
4440: arp_ctl_private_pkg.display_line_f_lctl_id( p_link_to_cust_trx_line_id );
4441:
4442: IF PG_DEBUG in ('Y', 'C') THEN
4443: arp_util.debug( 'arp_ctl_pkg.display_line_f_lctl_id()-');
4444: END IF;
4445:
4446: END;
4447:

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

4481: IS
4482: BEGIN
4483:
4484: IF PG_DEBUG in ('Y', 'C') THEN
4485: arp_util.debug( 'arp_ctl_pkg.display_line_f_ct_id()+');
4486: END IF;
4487:
4488: arp_ctl_private_pkg.display_line_f_ct_id( p_customer_trx_id );
4489:

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

4487:
4488: arp_ctl_private_pkg.display_line_f_ct_id( p_customer_trx_id );
4489:
4490: IF PG_DEBUG in ('Y', 'C') THEN
4491: arp_util.debug( 'arp_ctl_pkg.display_line_f_ct_id()-');
4492: END IF;
4493:
4494: END;
4495:

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

4563:
4564: BEGIN
4565:
4566: IF PG_DEBUG in ('Y', 'C') THEN
4567: arp_util.debug( 'arp_ctl_pkg.merge_line_recs()+');
4568: END IF;
4569:
4570: IF (p_new_line_rec.customer_trx_line_id = AR_NUMBER_DUMMY)
4571: THEN p_out_line_rec.customer_trx_line_id :=

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

5322: ELSE p_out_line_rec.rule_end_date := p_new_line_rec.rule_end_date;
5323: END IF;
5324:
5325: IF PG_DEBUG in ('Y', 'C') THEN
5326: arp_util.debug( 'arp_ctl_pkg.merge_line_recs()-');
5327: END IF;
5328:
5329: EXCEPTION
5330: WHEN OTHERS THEN

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

5328:
5329: EXCEPTION
5330: WHEN OTHERS THEN
5331: IF PG_DEBUG in ('Y', 'C') THEN
5332: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.merge_line_recs()');
5333: arp_util.debug( '');
5334: arp_util.debug( '-------- parameters for merge_line_recs() ------');
5335: arp_util.debug( ' ---- old line record ----');
5336: END IF;

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

5443: WHERE customer_trx_line_id=c_prev_customer_trx_line_id;
5444: BEGIN
5445:
5446: IF PG_DEBUG in ('Y', 'C') THEN
5447: arp_util.debug( 'arp_ctl_pkg.insert_line_f_cm_ct_ctl_id()+');
5448: -- MVKOLLA - Bug7113653 Added following debug messages
5449: arp_util.debug('-- Added below messages for bug7113653');
5450: arp_util.debug('p_customer_trx_id '||p_customer_trx_id);
5451: arp_util.debug('p_customer_trx_line_id '||p_customer_trx_line_id);

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

5745:
5746: /* Bug-3658284 -Start */
5747: IF (l_trx_line_array.customer_trx_line_id.COUNT = 0) Then
5748: IF PG_DEBUG in ('Y', 'C') THEN
5749: arp_util.debug( 'arp_ctl_pkg.insert_line_f_cm_ct_ctl_id : '||' 0 row Fetch ');
5750: END IF;
5751:
5752: ELSE /*-- Bug 5098922 ---*/
5753:

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

6094: --}
6095:
6096:
6097: IF PG_DEBUG in ('Y', 'C') THEN
6098: arp_util.debug( 'arp_ctl_pkg.insert_line_f_cm_ct_ctl_id : '||
6099: to_char(l_rows_inserted)||' rows inserted');
6100: END IF;
6101:
6102: /* Bug 3658284 - Remove the entire rounding update statement */

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

6101:
6102: /* Bug 3658284 - Remove the entire rounding update statement */
6103:
6104: IF PG_DEBUG in ('Y', 'C') THEN
6105: arp_util.debug( 'arp_ctl_pkg.insert_line_f_cm_ct_ctl_id()-');
6106: END IF;
6107:
6108: EXCEPTION
6109: WHEN NO_DATA_FOUND THEN

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

6109: WHEN NO_DATA_FOUND THEN
6110: return;
6111: WHEN OTHERS THEN
6112: IF PG_DEBUG in ('Y', 'C') THEN
6113: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.insert_line_f_cm_ct_ctl_id');
6114: arp_util.debug( '');
6115: arp_util.debug( 'p_customer_trx_id = '||p_customer_trx_id);
6116: arp_util.debug( 'p_customer_trx_line_id = '||p_customer_trx_line_id);
6117: arp_util.debug( 'p_prev_customer_trx_id = '||p_prev_customer_trx_id);

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

6162: l_rows_updated number;
6163: BEGIN
6164:
6165: IF PG_DEBUG in ('Y', 'C') THEN
6166: arp_util.debug( 'arp_ctl_pkg.update_line_f_cm_ctl_id()+');
6167: END IF;
6168:
6169: UPDATE ra_customer_trx_lines ctl
6170: SET extended_amount =

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

6187: AND ctl.link_to_cust_trx_line_id = p_customer_trx_line_id
6188: AND ctl.line_type = p_line_type;
6189:
6190: IF PG_DEBUG in ('Y', 'C') THEN
6191: arp_util.debug( 'arp_ctl_pkg.update_line_f_cm_ctl_id : '||
6192: 'Extended Amount :'|| SQL%ROWCOUNT||' rows updated');
6193: END IF;
6194:
6195: UPDATE ra_customer_trx_lines ctl

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

6199: AND ctl.link_to_cust_trx_line_id = p_customer_trx_line_id
6200: AND ctl.line_type = p_line_type;
6201:
6202: IF PG_DEBUG in ('Y', 'C') THEN
6203: arp_util.debug( 'arp_ctl_pkg.update_line_f_cm_ctl_id : '||
6204: 'Currency Rounding :'|| SQL%ROWCOUNT||' rows updated');
6205: END IF;
6206:
6207: /*----------------------------+

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

6231:
6232: END IF;
6233:
6234: IF PG_DEBUG in ('Y', 'C') THEN
6235: arp_util.debug( 'arp_ctl_pkg.update_line_f_cm_ctl_id()-');
6236: END IF;
6237:
6238: EXCEPTION
6239: WHEN NO_DATA_FOUND THEN

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

6239: WHEN NO_DATA_FOUND THEN
6240: return;
6241: WHEN OTHERS THEN
6242: IF PG_DEBUG in ('Y', 'C') THEN
6243: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.update_line_f_cm_ctl_id');
6244: arp_util.debug( '');
6245: arp_util.debug( 'p_customer_trx_id = '||p_customer_trx_id);
6246: arp_util.debug( 'p_customer_trx_line_id = '||p_customer_trx_line_id);
6247: arp_util.debug( 'p_prev_customer_trx_id = '||p_prev_customer_trx_id);

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

6284: FUNCTION get_text_dummy(p_null IN NUMBER DEFAULT null) RETURN varchar2 IS
6285:
6286: BEGIN
6287:
6288: --- arp_util.debug('arp_ctl_pkg.get_text_dummy()+');
6289:
6290: --- arp_util.debug('arp_ctl_pkg.get_text_dummy()-');
6291:
6292: return(AR_TEXT_DUMMY);

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

6286: BEGIN
6287:
6288: --- arp_util.debug('arp_ctl_pkg.get_text_dummy()+');
6289:
6290: --- arp_util.debug('arp_ctl_pkg.get_text_dummy()-');
6291:
6292: return(AR_TEXT_DUMMY);
6293:
6294: EXCEPTION

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

6293:
6294: EXCEPTION
6295: WHEN OTHERS THEN
6296: IF PG_DEBUG in ('Y', 'C') THEN
6297: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.get_text_dummy()');
6298: END IF;
6299: RAISE;
6300:
6301: END;

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

6329: FUNCTION get_number_dummy(p_null IN NUMBER DEFAULT null) RETURN number IS
6330:
6331: BEGIN
6332:
6333: --- arp_util.debug('arp_ctl_pkg.get_number_dummy()+');
6334:
6335: --- arp_util.debug('arp_ctl_pkg.get_number_dummy()-');
6336:
6337: return(AR_NUMBER_DUMMY);

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

6331: BEGIN
6332:
6333: --- arp_util.debug('arp_ctl_pkg.get_number_dummy()+');
6334:
6335: --- arp_util.debug('arp_ctl_pkg.get_number_dummy()-');
6336:
6337: return(AR_NUMBER_DUMMY);
6338:
6339: EXCEPTION

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

6338:
6339: EXCEPTION
6340: WHEN OTHERS THEN
6341: IF PG_DEBUG in ('Y', 'C') THEN
6342: arp_util.debug( 'EXCEPTION: arp_ctl_pkg.get_number_dummy()');
6343: END IF;
6344: RAISE;
6345:
6346: END;

Line 6362: END ARP_CTL_PKG;

6358: pg_prog_appl_id := fnd_global.prog_appl_id;
6359: pg_conc_program_id := fnd_global.conc_program_id;
6360:
6361:
6362: END ARP_CTL_PKG;