62: | 19-JUL-95 Charlie Tomberg Created |
63: | |
64: +===========================================================================*/
65:
66: PROCEDURE display_dist_rec( p_dist_rec IN ra_cust_trx_line_gl_dist%rowtype)
67: IS
68:
69:
70: BEGIN
70: BEGIN
71:
72: arp_util.debug('arp_ctlgd_pkg.display_dist_rec()+');
73:
74: arp_util.debug('************** Dump of ra_cust_trx_line_gl_dist record '||
75: '**************');
76:
77: arp_util.debug('cust_trx_line_gl_dist_id: '
78: || p_dist_rec.cust_trx_line_gl_dist_id);
125: arp_util.debug('program_application_id: '
126: || p_dist_rec.program_application_id);
127: arp_util.debug('program_id: ' || p_dist_rec.program_id);
128: arp_util.debug('rounding_correction_flag:'|| p_dist_rec.rounding_correction_flag);
129: arp_util.debug('************** End ra_cust_trx_line_gl_dist record ' ||
130: '**************');
131:
132: arp_util.debug('arp_ctlgd_pkg.display_dist_rec()-');
133:
167: | |
168: +===========================================================================*/
169:
170: PROCEDURE display_dist_p( p_cust_trx_line_gl_dist_id IN
171: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type)
172: IS
173:
174: l_dist_rec ra_cust_trx_line_gl_dist%rowtype;
175:
170: PROCEDURE display_dist_p( p_cust_trx_line_gl_dist_id IN
171: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type)
172: IS
173:
174: l_dist_rec ra_cust_trx_line_gl_dist%rowtype;
175:
176: BEGIN
177:
178: arp_util.debug('arp_ctlgd_pkg.display_dist_p()+');
225: ra_cust_trx_line_salesreps.cust_trx_line_salesrep_id%type)
226: IS
227:
228: l_cust_trx_line_gl_dist_id
229: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type;
230:
231: CURSOR srep_cursor IS
232: SELECT *
233: FROM ra_cust_trx_line_gl_dist
229: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type;
230:
231: CURSOR srep_cursor IS
232: SELECT *
233: FROM ra_cust_trx_line_gl_dist
234: WHERE cust_trx_line_salesrep_id = p_cust_trx_line_salesrep_id
235: ORDER BY cust_trx_line_gl_dist_id;
236:
237:
241:
242: arp_util.debug('=====================================================' ||
243: '==========================');
244: arp_util.debug('========== ' ||
245: ' Dump of ra_cust_trx_line_gl_dist records for ctls: '||
246: to_char( p_cust_trx_line_salesrep_id ) || ' ' ||
247: '==========');
248:
249: FOR l_dist_rec IN srep_cursor LOOP
250: arp_ctlgd_pkg.display_dist_p(l_dist_rec.cust_trx_line_gl_dist_id);
251: END LOOP;
252:
253: arp_util.debug('====== End ' ||
254: 'Dump of ra_cust_trx_line_gl_dist records for ctls: '||
255: to_char( p_cust_trx_line_salesrep_id ) || ' ' ||
256: '=======');
257: arp_util.debug('=====================================================' ||
258: '==========================');
300: ra_customer_trx.customer_trx_id%type)
301: IS
302:
303: l_cust_trx_line_gl_dist_id
304: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type;
305:
306: CURSOR srep_cursor IS
307: SELECT *
308: FROM ra_cust_trx_line_gl_dist
304: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type;
305:
306: CURSOR srep_cursor IS
307: SELECT *
308: FROM ra_cust_trx_line_gl_dist
309: WHERE customer_trx_id = p_customer_trx_id
310: ORDER BY cust_trx_line_gl_dist_id;
311:
312:
316:
317: arp_util.debug('=====================================================' ||
318: '==========================');
319: arp_util.debug('========== ' ||
320: ' Dump of ra_cust_trx_line_gl_dist records for ctid: '||
321: to_char( p_customer_trx_id ) || ' ' ||
322: '==========');
323:
324: FOR l_dist_rec IN srep_cursor LOOP
325: arp_ctlgd_pkg.display_dist_p(l_dist_rec.cust_trx_line_gl_dist_id);
326: END LOOP;
327:
328: arp_util.debug('====== End ' ||
329: 'Dump of ra_cust_trx_line_gl_dist records for ctid: '||
330: to_char( p_customer_trx_id ) || ' ' ||
331: '=======');
332: arp_util.debug('=====================================================' ||
333: '==========================');
376: ra_customer_trx_lines.customer_trx_line_id%type)
377: IS
378:
379: l_cust_trx_line_gl_dist_id
380: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type;
381:
382: CURSOR dist_cursor IS
383: SELECT *
384: FROM ra_cust_trx_line_gl_dist
380: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type;
381:
382: CURSOR dist_cursor IS
383: SELECT *
384: FROM ra_cust_trx_line_gl_dist
385: WHERE customer_trx_line_id = p_customer_trx_line_id
386: ORDER BY cust_trx_line_gl_dist_id;
387:
388:
392:
393: arp_util.debug('=====================================================' ||
394: '==========================');
395: arp_util.debug('========== ' ||
396: ' Dump of ra_cust_trx_line_gl_dist records for ctlid: '||
397: to_char( p_customer_trx_line_id ) || ' ' ||
398: '==========');
399:
400: FOR l_dist_rec IN dist_cursor LOOP
401: arp_ctlgd_pkg.display_dist_p(l_dist_rec.cust_trx_line_gl_dist_id);
402: END LOOP;
403:
404: arp_util.debug('====== End ' ||
405: 'Dump of ra_cust_trx_line_gl_dist records for ctlid: '||
406: to_char( p_customer_trx_line_id ) || ' ' ||
407: '=======');
408: arp_util.debug('=====================================================' ||
409: '==========================');
492: | |
493: +===========================================================================*/
494:
495: PROCEDURE merge_dist_recs(
496: p_old_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
497: p_new_dist_rec IN
498: ra_cust_trx_line_gl_dist%rowtype,
499: p_out_dist_rec IN OUT NOCOPY
500: ra_cust_trx_line_gl_dist%rowtype
494:
495: PROCEDURE merge_dist_recs(
496: p_old_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
497: p_new_dist_rec IN
498: ra_cust_trx_line_gl_dist%rowtype,
499: p_out_dist_rec IN OUT NOCOPY
500: ra_cust_trx_line_gl_dist%rowtype
501: ) IS
502:
496: p_old_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
497: p_new_dist_rec IN
498: ra_cust_trx_line_gl_dist%rowtype,
499: p_out_dist_rec IN OUT NOCOPY
500: ra_cust_trx_line_gl_dist%rowtype
501: ) IS
502:
503: BEGIN
504:
800: | arp_util.debug |
801: | |
802: | ARGUMENTS : IN: |
803: | p_update_cursor - ID of the update cursor |
804: | p_dist_rec - ra_cust_trx_line_gl_dist record |
805: | p_exchange_rate |
806: | p_currency_code |
807: | p_precision |
808: | p_mau |
820:
821:
822: PROCEDURE bind_dist_variables(
823: p_update_cursor IN integer,
824: p_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
825: p_exchange_rate IN ra_customer_trx.exchange_rate%type,
826: p_currency_code IN fnd_currencies.currency_code%type,
827: p_precision IN fnd_currencies.precision%type,
828: p_mau IN
1078: BEGIN
1079: arp_util.debug('arp_ctlgd_pkg.construct_dist_update_stmt()+');
1080:
1081: update_text :=
1082: 'UPDATE ra_cust_trx_line_gl_dist
1083: SET cust_trx_line_gl_dist_id =
1084: DECODE(:cust_trx_line_gl_dist_id,
1085: :ar_number_dummy, cust_trx_line_gl_dist_id,
1086: :cust_trx_line_gl_dist_id),
1340: | PROCEDURE |
1341: | generic_update |
1342: | |
1343: | DESCRIPTION |
1344: | This procedure Updates records in ra_cust_trx_line_gl_dist |
1345: | identified by the where clause that is passed in as a parameter. Only |
1346: | those columns in the dist record parameter that do not contain the |
1347: | special dummy values are updated. |
1348: | |
1381: PROCEDURE generic_update(p_update_cursor IN OUT NOCOPY integer,
1382: p_where_clause IN varchar2,
1383: p_where1 IN number,
1384: p_account_set_flag IN
1385: ra_cust_trx_line_gl_dist.account_set_flag%type,
1386: p_account_class IN
1387: ra_cust_trx_line_gl_dist.account_class%type,
1388: p_exchange_rate IN ra_customer_trx.exchange_rate%type,
1389: p_currency_code IN fnd_currencies.currency_code%type,
1383: p_where1 IN number,
1384: p_account_set_flag IN
1385: ra_cust_trx_line_gl_dist.account_set_flag%type,
1386: p_account_class IN
1387: ra_cust_trx_line_gl_dist.account_class%type,
1388: p_exchange_rate IN ra_customer_trx.exchange_rate%type,
1389: p_currency_code IN fnd_currencies.currency_code%type,
1390: p_precision IN fnd_currencies.precision%type,
1391: p_mau IN
1389: p_currency_code IN fnd_currencies.currency_code%type,
1390: p_precision IN fnd_currencies.precision%type,
1391: p_mau IN
1392: fnd_currencies.minimum_accountable_unit%type,
1393: p_dist_rec IN ra_cust_trx_line_gl_dist%rowtype)
1394: IS
1395:
1396: l_count number;
1397: l_update_statement varchar2(25000);
1490: arp_standard.debug('gl dist array('||to_char(I) || ') = ' || to_char(gl_dist_array(I)));
1491:
1492: ar_mrc_engine.maintain_mrc_data(
1493: p_event_mode => 'UPDATE',
1494: p_table_name => 'RA_CUST_TRX_LINE_GL_DIST',
1495: p_mode => 'SINGLE',
1496: p_key_value => gl_dist_array(I));
1497: END LOOP;
1498:
1541: | 09-JUN-95 Charlie Tomberg Created |
1542: | |
1543: +===========================================================================*/
1544:
1545: PROCEDURE set_to_dummy( p_dist_rec OUT NOCOPY ra_cust_trx_line_gl_dist%rowtype) IS
1546:
1547: BEGIN
1548:
1549: arp_util.debug('arp_lgd_pkg.set_to_dummy()+');
1611: | PROCEDURE |
1612: | lock_p |
1613: | |
1614: | DESCRIPTION |
1615: | This procedure locks the ra_cust_trx_line_gl_dist row identified by |
1616: | p_cust_trx_line_gl_dist_id parameter. |
1617: | |
1618: | SCOPE - PUBLIC |
1619: | |
1634: | |
1635: +===========================================================================*/
1636:
1637: PROCEDURE lock_p( p_cust_trx_line_gl_dist_id
1638: IN ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type
1639: )
1640: IS
1641:
1642: l_cust_trx_line_gl_dist_id
1639: )
1640: IS
1641:
1642: l_cust_trx_line_gl_dist_id
1643: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type;
1644:
1645: BEGIN
1646: arp_util.debug('arp_ctlgd_pkg.lock_p()+');
1647:
1647:
1648:
1649: SELECT cust_trx_line_gl_dist_id
1650: INTO l_cust_trx_line_gl_dist_id
1651: FROM ra_cust_trx_line_gl_dist
1652: WHERE cust_trx_line_gl_dist_id = p_cust_trx_line_gl_dist_id
1653: FOR UPDATE OF cust_trx_line_gl_dist_id NOWAIT;
1654:
1655: arp_util.debug('arp_ctlgd_pkg.lock_p()-');
1664: | PROCEDURE |
1665: | lock_f_ct_id |
1666: | |
1667: | DESCRIPTION |
1668: | This procedure locks the ra_cust_trx_line_gl_dist rows identified by |
1669: | p_customer_trx_id parameter. |
1670: | |
1671: | SCOPE - PUBLIC |
1672: | |
1691:
1692: PROCEDURE lock_f_ct_id( p_customer_trx_id
1693: IN ra_customer_trx.customer_trx_id%type,
1694: p_account_set_flag
1695: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
1696: p_account_class
1697: IN ra_cust_trx_line_gl_dist.account_class%type)
1698: IS
1699:
1693: IN ra_customer_trx.customer_trx_id%type,
1694: p_account_set_flag
1695: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
1696: p_account_class
1697: IN ra_cust_trx_line_gl_dist.account_class%type)
1698: IS
1699:
1700:
1701: CURSOR lock_c IS
1699:
1700:
1701: CURSOR lock_c IS
1702: SELECT cust_trx_line_gl_dist_id
1703: FROM ra_cust_trx_line_gl_dist
1704: WHERE customer_trx_id = p_customer_trx_id
1705: AND account_set_flag = nvl(p_account_set_flag, account_set_flag)
1706: AND account_class = nvl(p_account_class, account_class)
1707: FOR UPDATE OF cust_trx_line_gl_dist_id NOWAIT;
1725: | PROCEDURE |
1726: | lock_f_ctl_id |
1727: | |
1728: | DESCRIPTION |
1729: | This procedure locks the ra_cust_trx_line_gl_dist rows identified by |
1730: | p_customer_trx_line_id parameter. |
1731: | |
1732: | SCOPE - PUBLIC |
1733: | |
1752:
1753: PROCEDURE lock_f_ctl_id( p_customer_trx_line_id
1754: IN ra_customer_trx_lines.customer_trx_line_id%type,
1755: p_account_set_flag
1756: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
1757: p_account_class
1758: IN ra_cust_trx_line_gl_dist.account_class%type)
1759: IS
1760:
1754: IN ra_customer_trx_lines.customer_trx_line_id%type,
1755: p_account_set_flag
1756: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
1757: p_account_class
1758: IN ra_cust_trx_line_gl_dist.account_class%type)
1759: IS
1760:
1761: CURSOR lock_c IS
1762: SELECT cust_trx_line_gl_dist_id
1759: IS
1760:
1761: CURSOR lock_c IS
1762: SELECT cust_trx_line_gl_dist_id
1763: FROM ra_cust_trx_line_gl_dist
1764: WHERE customer_trx_line_id = p_customer_trx_line_id
1765: AND account_set_flag = nvl(p_account_set_flag, account_set_flag)
1766: AND account_class = nvl(p_account_class, account_class)
1767: FOR UPDATE OF cust_trx_line_gl_dist_id NOWAIT;
1785: | PROCEDURE |
1786: | lock_f_ctls_id |
1787: | |
1788: | DESCRIPTION |
1789: | This procedure locks the ra_cust_trx_line_gl_dist rows identified by |
1790: | p_cust_trx_line_salesrep_id parameter. |
1791: | |
1792: | SCOPE - PUBLIC |
1793: | |
1810: | |
1811: +===========================================================================*/
1812:
1813: PROCEDURE lock_f_ctls_id( p_cust_trx_line_salesrep_id
1814: IN ra_cust_trx_line_gl_dist.cust_trx_line_salesrep_id%type,
1815: p_account_set_flag
1816: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
1817: p_account_class
1818: IN ra_cust_trx_line_gl_dist.account_class%type)
1812:
1813: PROCEDURE lock_f_ctls_id( p_cust_trx_line_salesrep_id
1814: IN ra_cust_trx_line_gl_dist.cust_trx_line_salesrep_id%type,
1815: p_account_set_flag
1816: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
1817: p_account_class
1818: IN ra_cust_trx_line_gl_dist.account_class%type)
1819: IS
1820:
1814: IN ra_cust_trx_line_gl_dist.cust_trx_line_salesrep_id%type,
1815: p_account_set_flag
1816: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
1817: p_account_class
1818: IN ra_cust_trx_line_gl_dist.account_class%type)
1819: IS
1820:
1821: CURSOR lock_c IS
1822: SELECT cust_trx_line_gl_dist_id
1819: IS
1820:
1821: CURSOR lock_c IS
1822: SELECT cust_trx_line_gl_dist_id
1823: FROM ra_cust_trx_line_gl_dist
1824: WHERE cust_trx_line_salesrep_id = p_cust_trx_line_salesrep_id
1825: AND account_set_flag = nvl(p_account_set_flag, account_set_flag)
1826: AND account_class = nvl(p_account_class, account_class)
1827: FOR UPDATE OF cust_trx_line_gl_dist_id NOWAIT;
1844: | PROCEDURE |
1845: | lock_fetch_p |
1846: | |
1847: | DESCRIPTION |
1848: | This procedure locks the ra_cust_trx_line_gl_dist row identified |
1849: | by the p_cust_trx_line_gl_dist_id parameter and populates the |
1850: | p_dist_rec parameter with the row that was locked. |
1851: | |
1852: | SCOPE - PUBLIC |
1867: | 09-JUN-95 Charlie Tomberg Created |
1868: | |
1869: +===========================================================================*/
1870:
1871: PROCEDURE lock_fetch_p( p_dist_rec IN OUT NOCOPY ra_cust_trx_line_gl_dist%rowtype,
1872: p_cust_trx_line_gl_dist_id IN
1873: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type
1874: ) IS
1875:
1869: +===========================================================================*/
1870:
1871: PROCEDURE lock_fetch_p( p_dist_rec IN OUT NOCOPY ra_cust_trx_line_gl_dist%rowtype,
1872: p_cust_trx_line_gl_dist_id IN
1873: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type
1874: ) IS
1875:
1876: BEGIN
1877: arp_util.debug('arp_ctlgd_pkg.lock_fetch_p()+');
1877: arp_util.debug('arp_ctlgd_pkg.lock_fetch_p()+');
1878:
1879: SELECT *
1880: INTO p_dist_rec
1881: FROM ra_cust_trx_line_gl_dist
1882: WHERE cust_trx_line_gl_dist_id = p_cust_trx_line_gl_dist_id
1883: FOR UPDATE OF cust_trx_line_gl_dist_id NOWAIT;
1884:
1885: arp_util.debug('arp_ctlgd_pkg.lock_fetch_p()-');
1894: | PROCEDURE |
1895: | lock_compare_p |
1896: | |
1897: | DESCRIPTION |
1898: | This procedure locks the ra_cust_trx_line_gl_dist row identified |
1899: | by the p_cust_trx_line_gl_dist_id parameter only if no columns in |
1900: | that row have changed from when they were first selected in the form. |
1901: | |
1902: | SCOPE - PUBLIC |
1921: | 13-OCT-95 Martin Johnson Handle NO_DATA_FOUND exception |
1922: | |
1923: +===========================================================================*/
1924:
1925: PROCEDURE lock_compare_p( p_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
1926: p_cust_trx_line_gl_dist_id IN
1927: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type,
1928: p_ignore_who_flag BOOLEAN DEFAULT FALSE) IS
1929:
1923: +===========================================================================*/
1924:
1925: PROCEDURE lock_compare_p( p_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
1926: p_cust_trx_line_gl_dist_id IN
1927: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type,
1928: p_ignore_who_flag BOOLEAN DEFAULT FALSE) IS
1929:
1930: l_new_dist_rec ra_cust_trx_line_gl_dist%rowtype;
1931: l_temp_dist_rec ra_cust_trx_line_gl_dist%rowtype;
1926: p_cust_trx_line_gl_dist_id IN
1927: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type,
1928: p_ignore_who_flag BOOLEAN DEFAULT FALSE) IS
1929:
1930: l_new_dist_rec ra_cust_trx_line_gl_dist%rowtype;
1931: l_temp_dist_rec ra_cust_trx_line_gl_dist%rowtype;
1932: l_ignore_who_flag varchar2(2);
1933:
1934: BEGIN
1927: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type,
1928: p_ignore_who_flag BOOLEAN DEFAULT FALSE) IS
1929:
1930: l_new_dist_rec ra_cust_trx_line_gl_dist%rowtype;
1931: l_temp_dist_rec ra_cust_trx_line_gl_dist%rowtype;
1932: l_ignore_who_flag varchar2(2);
1933:
1934: BEGIN
1935: arp_util.debug('arp_ctlgd_pkg.lock_compare_p()+');
1940: END IF;
1941:
1942: SELECT *
1943: INTO l_new_dist_rec
1944: FROM ra_cust_trx_line_gl_dist ctlgd
1945: WHERE cust_trx_line_gl_dist_id = p_cust_trx_line_gl_dist_id
1946: AND (
1947: NVL(ctlgd.cust_trx_line_gl_dist_id, AR_NUMBER_DUMMY) =
1948: NVL(
2481:
2482:
2483: PROCEDURE lock_compare_cover(
2484: p_cust_trx_line_gl_dist_id IN
2485: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type,
2486: p_customer_trx_id IN
2487: ra_cust_trx_line_gl_dist.customer_trx_id%type,
2488: p_customer_trx_line_id IN
2489: ra_cust_trx_line_gl_dist.customer_trx_line_id %type,
2483: PROCEDURE lock_compare_cover(
2484: p_cust_trx_line_gl_dist_id IN
2485: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type,
2486: p_customer_trx_id IN
2487: ra_cust_trx_line_gl_dist.customer_trx_id%type,
2488: p_customer_trx_line_id IN
2489: ra_cust_trx_line_gl_dist.customer_trx_line_id %type,
2490: p_cust_trx_line_salesrep_id IN
2491: ra_cust_trx_line_gl_dist.cust_trx_line_salesrep_id%type,
2485: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type,
2486: p_customer_trx_id IN
2487: ra_cust_trx_line_gl_dist.customer_trx_id%type,
2488: p_customer_trx_line_id IN
2489: ra_cust_trx_line_gl_dist.customer_trx_line_id %type,
2490: p_cust_trx_line_salesrep_id IN
2491: ra_cust_trx_line_gl_dist.cust_trx_line_salesrep_id%type,
2492: p_account_class IN
2493: ra_cust_trx_line_gl_dist.account_class%type,
2487: ra_cust_trx_line_gl_dist.customer_trx_id%type,
2488: p_customer_trx_line_id IN
2489: ra_cust_trx_line_gl_dist.customer_trx_line_id %type,
2490: p_cust_trx_line_salesrep_id IN
2491: ra_cust_trx_line_gl_dist.cust_trx_line_salesrep_id%type,
2492: p_account_class IN
2493: ra_cust_trx_line_gl_dist.account_class%type,
2494: p_percent IN
2495: ra_cust_trx_line_gl_dist.percent%type,
2489: ra_cust_trx_line_gl_dist.customer_trx_line_id %type,
2490: p_cust_trx_line_salesrep_id IN
2491: ra_cust_trx_line_gl_dist.cust_trx_line_salesrep_id%type,
2492: p_account_class IN
2493: ra_cust_trx_line_gl_dist.account_class%type,
2494: p_percent IN
2495: ra_cust_trx_line_gl_dist.percent%type,
2496: p_amount IN
2497: ra_cust_trx_line_gl_dist.amount%type,
2491: ra_cust_trx_line_gl_dist.cust_trx_line_salesrep_id%type,
2492: p_account_class IN
2493: ra_cust_trx_line_gl_dist.account_class%type,
2494: p_percent IN
2495: ra_cust_trx_line_gl_dist.percent%type,
2496: p_amount IN
2497: ra_cust_trx_line_gl_dist.amount%type,
2498: p_gl_date IN
2499: ra_cust_trx_line_gl_dist.gl_date%type,
2493: ra_cust_trx_line_gl_dist.account_class%type,
2494: p_percent IN
2495: ra_cust_trx_line_gl_dist.percent%type,
2496: p_amount IN
2497: ra_cust_trx_line_gl_dist.amount%type,
2498: p_gl_date IN
2499: ra_cust_trx_line_gl_dist.gl_date%type,
2500: p_original_gl_date IN
2501: ra_cust_trx_line_gl_dist.original_gl_date%type,
2495: ra_cust_trx_line_gl_dist.percent%type,
2496: p_amount IN
2497: ra_cust_trx_line_gl_dist.amount%type,
2498: p_gl_date IN
2499: ra_cust_trx_line_gl_dist.gl_date%type,
2500: p_original_gl_date IN
2501: ra_cust_trx_line_gl_dist.original_gl_date%type,
2502: p_gl_posted_date IN
2503: ra_cust_trx_line_gl_dist.gl_posted_date%type,
2497: ra_cust_trx_line_gl_dist.amount%type,
2498: p_gl_date IN
2499: ra_cust_trx_line_gl_dist.gl_date%type,
2500: p_original_gl_date IN
2501: ra_cust_trx_line_gl_dist.original_gl_date%type,
2502: p_gl_posted_date IN
2503: ra_cust_trx_line_gl_dist.gl_posted_date%type,
2504: p_code_combination_id IN
2505: ra_cust_trx_line_gl_dist.code_combination_id%type,
2499: ra_cust_trx_line_gl_dist.gl_date%type,
2500: p_original_gl_date IN
2501: ra_cust_trx_line_gl_dist.original_gl_date%type,
2502: p_gl_posted_date IN
2503: ra_cust_trx_line_gl_dist.gl_posted_date%type,
2504: p_code_combination_id IN
2505: ra_cust_trx_line_gl_dist.code_combination_id%type,
2506: p_concatenated_segments IN
2507: ra_cust_trx_line_gl_dist.concatenated_segments%type,
2501: ra_cust_trx_line_gl_dist.original_gl_date%type,
2502: p_gl_posted_date IN
2503: ra_cust_trx_line_gl_dist.gl_posted_date%type,
2504: p_code_combination_id IN
2505: ra_cust_trx_line_gl_dist.code_combination_id%type,
2506: p_concatenated_segments IN
2507: ra_cust_trx_line_gl_dist.concatenated_segments%type,
2508: p_collected_tax_ccid IN
2509: ra_cust_trx_line_gl_dist.collected_tax_ccid%type,
2503: ra_cust_trx_line_gl_dist.gl_posted_date%type,
2504: p_code_combination_id IN
2505: ra_cust_trx_line_gl_dist.code_combination_id%type,
2506: p_concatenated_segments IN
2507: ra_cust_trx_line_gl_dist.concatenated_segments%type,
2508: p_collected_tax_ccid IN
2509: ra_cust_trx_line_gl_dist.collected_tax_ccid%type,
2510: p_collected_tax_concat_seg IN
2511: ra_cust_trx_line_gl_dist.collected_tax_concat_seg%type,
2505: ra_cust_trx_line_gl_dist.code_combination_id%type,
2506: p_concatenated_segments IN
2507: ra_cust_trx_line_gl_dist.concatenated_segments%type,
2508: p_collected_tax_ccid IN
2509: ra_cust_trx_line_gl_dist.collected_tax_ccid%type,
2510: p_collected_tax_concat_seg IN
2511: ra_cust_trx_line_gl_dist.collected_tax_concat_seg%type,
2512: p_comments IN
2513: ra_cust_trx_line_gl_dist.comments%type,
2507: ra_cust_trx_line_gl_dist.concatenated_segments%type,
2508: p_collected_tax_ccid IN
2509: ra_cust_trx_line_gl_dist.collected_tax_ccid%type,
2510: p_collected_tax_concat_seg IN
2511: ra_cust_trx_line_gl_dist.collected_tax_concat_seg%type,
2512: p_comments IN
2513: ra_cust_trx_line_gl_dist.comments%type,
2514: p_account_set_flag IN
2515: ra_cust_trx_line_gl_dist.account_set_flag%type,
2509: ra_cust_trx_line_gl_dist.collected_tax_ccid%type,
2510: p_collected_tax_concat_seg IN
2511: ra_cust_trx_line_gl_dist.collected_tax_concat_seg%type,
2512: p_comments IN
2513: ra_cust_trx_line_gl_dist.comments%type,
2514: p_account_set_flag IN
2515: ra_cust_trx_line_gl_dist.account_set_flag%type,
2516: p_latest_rec_flag IN
2517: ra_cust_trx_line_gl_dist.latest_rec_flag%type,
2511: ra_cust_trx_line_gl_dist.collected_tax_concat_seg%type,
2512: p_comments IN
2513: ra_cust_trx_line_gl_dist.comments%type,
2514: p_account_set_flag IN
2515: ra_cust_trx_line_gl_dist.account_set_flag%type,
2516: p_latest_rec_flag IN
2517: ra_cust_trx_line_gl_dist.latest_rec_flag%type,
2518: p_ussgl_transaction_code IN
2519: ra_cust_trx_line_gl_dist.ussgl_transaction_code%type,
2513: ra_cust_trx_line_gl_dist.comments%type,
2514: p_account_set_flag IN
2515: ra_cust_trx_line_gl_dist.account_set_flag%type,
2516: p_latest_rec_flag IN
2517: ra_cust_trx_line_gl_dist.latest_rec_flag%type,
2518: p_ussgl_transaction_code IN
2519: ra_cust_trx_line_gl_dist.ussgl_transaction_code%type,
2520: p_ussgl_trx_code_context IN
2521: ra_cust_trx_line_gl_dist.ussgl_transaction_code_context%type,
2515: ra_cust_trx_line_gl_dist.account_set_flag%type,
2516: p_latest_rec_flag IN
2517: ra_cust_trx_line_gl_dist.latest_rec_flag%type,
2518: p_ussgl_transaction_code IN
2519: ra_cust_trx_line_gl_dist.ussgl_transaction_code%type,
2520: p_ussgl_trx_code_context IN
2521: ra_cust_trx_line_gl_dist.ussgl_transaction_code_context%type,
2522: p_attribute_category IN
2523: ra_cust_trx_line_gl_dist.attribute_category%type,
2517: ra_cust_trx_line_gl_dist.latest_rec_flag%type,
2518: p_ussgl_transaction_code IN
2519: ra_cust_trx_line_gl_dist.ussgl_transaction_code%type,
2520: p_ussgl_trx_code_context IN
2521: ra_cust_trx_line_gl_dist.ussgl_transaction_code_context%type,
2522: p_attribute_category IN
2523: ra_cust_trx_line_gl_dist.attribute_category%type,
2524: p_attribute1 IN
2525: ra_cust_trx_line_gl_dist.attribute1%type,
2519: ra_cust_trx_line_gl_dist.ussgl_transaction_code%type,
2520: p_ussgl_trx_code_context IN
2521: ra_cust_trx_line_gl_dist.ussgl_transaction_code_context%type,
2522: p_attribute_category IN
2523: ra_cust_trx_line_gl_dist.attribute_category%type,
2524: p_attribute1 IN
2525: ra_cust_trx_line_gl_dist.attribute1%type,
2526: p_attribute2 IN
2527: ra_cust_trx_line_gl_dist.attribute2%type,
2521: ra_cust_trx_line_gl_dist.ussgl_transaction_code_context%type,
2522: p_attribute_category IN
2523: ra_cust_trx_line_gl_dist.attribute_category%type,
2524: p_attribute1 IN
2525: ra_cust_trx_line_gl_dist.attribute1%type,
2526: p_attribute2 IN
2527: ra_cust_trx_line_gl_dist.attribute2%type,
2528: p_attribute3 IN
2529: ra_cust_trx_line_gl_dist.attribute3%type,
2523: ra_cust_trx_line_gl_dist.attribute_category%type,
2524: p_attribute1 IN
2525: ra_cust_trx_line_gl_dist.attribute1%type,
2526: p_attribute2 IN
2527: ra_cust_trx_line_gl_dist.attribute2%type,
2528: p_attribute3 IN
2529: ra_cust_trx_line_gl_dist.attribute3%type,
2530: p_attribute4 IN
2531: ra_cust_trx_line_gl_dist.attribute4%type,
2525: ra_cust_trx_line_gl_dist.attribute1%type,
2526: p_attribute2 IN
2527: ra_cust_trx_line_gl_dist.attribute2%type,
2528: p_attribute3 IN
2529: ra_cust_trx_line_gl_dist.attribute3%type,
2530: p_attribute4 IN
2531: ra_cust_trx_line_gl_dist.attribute4%type,
2532: p_attribute5 IN
2533: ra_cust_trx_line_gl_dist.attribute5%type,
2527: ra_cust_trx_line_gl_dist.attribute2%type,
2528: p_attribute3 IN
2529: ra_cust_trx_line_gl_dist.attribute3%type,
2530: p_attribute4 IN
2531: ra_cust_trx_line_gl_dist.attribute4%type,
2532: p_attribute5 IN
2533: ra_cust_trx_line_gl_dist.attribute5%type,
2534: p_attribute6 IN
2535: ra_cust_trx_line_gl_dist.attribute6%type,
2529: ra_cust_trx_line_gl_dist.attribute3%type,
2530: p_attribute4 IN
2531: ra_cust_trx_line_gl_dist.attribute4%type,
2532: p_attribute5 IN
2533: ra_cust_trx_line_gl_dist.attribute5%type,
2534: p_attribute6 IN
2535: ra_cust_trx_line_gl_dist.attribute6%type,
2536: p_attribute7 IN
2537: ra_cust_trx_line_gl_dist.attribute7%type,
2531: ra_cust_trx_line_gl_dist.attribute4%type,
2532: p_attribute5 IN
2533: ra_cust_trx_line_gl_dist.attribute5%type,
2534: p_attribute6 IN
2535: ra_cust_trx_line_gl_dist.attribute6%type,
2536: p_attribute7 IN
2537: ra_cust_trx_line_gl_dist.attribute7%type,
2538: p_attribute8 IN
2539: ra_cust_trx_line_gl_dist.attribute8%type,
2533: ra_cust_trx_line_gl_dist.attribute5%type,
2534: p_attribute6 IN
2535: ra_cust_trx_line_gl_dist.attribute6%type,
2536: p_attribute7 IN
2537: ra_cust_trx_line_gl_dist.attribute7%type,
2538: p_attribute8 IN
2539: ra_cust_trx_line_gl_dist.attribute8%type,
2540: p_attribute9 IN
2541: ra_cust_trx_line_gl_dist.attribute9%type,
2535: ra_cust_trx_line_gl_dist.attribute6%type,
2536: p_attribute7 IN
2537: ra_cust_trx_line_gl_dist.attribute7%type,
2538: p_attribute8 IN
2539: ra_cust_trx_line_gl_dist.attribute8%type,
2540: p_attribute9 IN
2541: ra_cust_trx_line_gl_dist.attribute9%type,
2542: p_attribute10 IN
2543: ra_cust_trx_line_gl_dist.attribute10%type,
2537: ra_cust_trx_line_gl_dist.attribute7%type,
2538: p_attribute8 IN
2539: ra_cust_trx_line_gl_dist.attribute8%type,
2540: p_attribute9 IN
2541: ra_cust_trx_line_gl_dist.attribute9%type,
2542: p_attribute10 IN
2543: ra_cust_trx_line_gl_dist.attribute10%type,
2544: p_attribute11 IN
2545: ra_cust_trx_line_gl_dist.attribute11%type,
2539: ra_cust_trx_line_gl_dist.attribute8%type,
2540: p_attribute9 IN
2541: ra_cust_trx_line_gl_dist.attribute9%type,
2542: p_attribute10 IN
2543: ra_cust_trx_line_gl_dist.attribute10%type,
2544: p_attribute11 IN
2545: ra_cust_trx_line_gl_dist.attribute11%type,
2546: p_attribute12 IN
2547: ra_cust_trx_line_gl_dist.attribute12%type,
2541: ra_cust_trx_line_gl_dist.attribute9%type,
2542: p_attribute10 IN
2543: ra_cust_trx_line_gl_dist.attribute10%type,
2544: p_attribute11 IN
2545: ra_cust_trx_line_gl_dist.attribute11%type,
2546: p_attribute12 IN
2547: ra_cust_trx_line_gl_dist.attribute12%type,
2548: p_attribute13 IN
2549: ra_cust_trx_line_gl_dist.attribute13%type,
2543: ra_cust_trx_line_gl_dist.attribute10%type,
2544: p_attribute11 IN
2545: ra_cust_trx_line_gl_dist.attribute11%type,
2546: p_attribute12 IN
2547: ra_cust_trx_line_gl_dist.attribute12%type,
2548: p_attribute13 IN
2549: ra_cust_trx_line_gl_dist.attribute13%type,
2550: p_attribute14 IN
2551: ra_cust_trx_line_gl_dist.attribute14%type,
2545: ra_cust_trx_line_gl_dist.attribute11%type,
2546: p_attribute12 IN
2547: ra_cust_trx_line_gl_dist.attribute12%type,
2548: p_attribute13 IN
2549: ra_cust_trx_line_gl_dist.attribute13%type,
2550: p_attribute14 IN
2551: ra_cust_trx_line_gl_dist.attribute14%type,
2552: p_attribute15 IN
2553: ra_cust_trx_line_gl_dist.attribute15%type,
2547: ra_cust_trx_line_gl_dist.attribute12%type,
2548: p_attribute13 IN
2549: ra_cust_trx_line_gl_dist.attribute13%type,
2550: p_attribute14 IN
2551: ra_cust_trx_line_gl_dist.attribute14%type,
2552: p_attribute15 IN
2553: ra_cust_trx_line_gl_dist.attribute15%type,
2554: p_posting_control_id IN
2555: ra_cust_trx_line_gl_dist.posting_control_id%type,
2549: ra_cust_trx_line_gl_dist.attribute13%type,
2550: p_attribute14 IN
2551: ra_cust_trx_line_gl_dist.attribute14%type,
2552: p_attribute15 IN
2553: ra_cust_trx_line_gl_dist.attribute15%type,
2554: p_posting_control_id IN
2555: ra_cust_trx_line_gl_dist.posting_control_id%type,
2556: p_ccid_change_flag IN
2557: ra_cust_trx_line_gl_dist.ccid_change_flag%type ) /* Bug 8788491 */
2551: ra_cust_trx_line_gl_dist.attribute14%type,
2552: p_attribute15 IN
2553: ra_cust_trx_line_gl_dist.attribute15%type,
2554: p_posting_control_id IN
2555: ra_cust_trx_line_gl_dist.posting_control_id%type,
2556: p_ccid_change_flag IN
2557: ra_cust_trx_line_gl_dist.ccid_change_flag%type ) /* Bug 8788491 */
2558: IS
2559:
2553: ra_cust_trx_line_gl_dist.attribute15%type,
2554: p_posting_control_id IN
2555: ra_cust_trx_line_gl_dist.posting_control_id%type,
2556: p_ccid_change_flag IN
2557: ra_cust_trx_line_gl_dist.ccid_change_flag%type ) /* Bug 8788491 */
2558: IS
2559:
2560: l_dist_rec ra_cust_trx_line_gl_dist%rowtype;
2561:
2556: p_ccid_change_flag IN
2557: ra_cust_trx_line_gl_dist.ccid_change_flag%type ) /* Bug 8788491 */
2558: IS
2559:
2560: l_dist_rec ra_cust_trx_line_gl_dist%rowtype;
2561:
2562: BEGIN
2563:
2564: IF PG_DEBUG in ('Y', 'C') THEN
2721: | PROCEDURE |
2722: | fetch_p |
2723: | |
2724: | DESCRIPTION |
2725: | This procedure fetches a single row from ra_cust_trx_line_gl_dist |
2726: | into a variable specified as a parameter based on the table's primary |
2727: | key, cust_trx_line_gl_dist_id |
2728: | |
2729: | SCOPE - PUBLIC |
2744: | 09-JUN-95 Charlie Tomberg Created |
2745: | |
2746: +===========================================================================*/
2747:
2748: PROCEDURE fetch_p( p_dist_rec OUT NOCOPY ra_cust_trx_line_gl_dist%rowtype,
2749: p_cust_trx_line_gl_dist_id IN
2750: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type)
2751: IS
2752:
2746: +===========================================================================*/
2747:
2748: PROCEDURE fetch_p( p_dist_rec OUT NOCOPY ra_cust_trx_line_gl_dist%rowtype,
2749: p_cust_trx_line_gl_dist_id IN
2750: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type)
2751: IS
2752:
2753: BEGIN
2754: arp_util.debug('arp_ctlgd_pkg.fetch_p()+');
2754: arp_util.debug('arp_ctlgd_pkg.fetch_p()+');
2755:
2756: SELECT *
2757: INTO p_dist_rec
2758: FROM ra_cust_trx_line_gl_dist
2759: WHERE cust_trx_line_gl_dist_id = p_cust_trx_line_gl_dist_id;
2760:
2761: arp_util.debug('arp_ctlgd_pkg.fetch_p()-');
2762:
2771: | PROCEDURE |
2772: | delete_p |
2773: | |
2774: | DESCRIPTION |
2775: | This procedure deletes the ra_cust_trx_line_gl_dist row identified |
2776: | by the p_cust_trx_line_gl_dist_id parameter. |
2777: | |
2778: | SCOPE - PUBLIC |
2779: | |
2797: | |
2798: +===========================================================================*/
2799:
2800: procedure delete_p( p_cust_trx_line_gl_dist_id
2801: IN ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type)
2802: IS
2803:
2804:
2805: BEGIN
2806:
2807:
2808: arp_util.debug('arp_ctlgd_pkg.delete_p()+');
2809:
2810: DELETE FROM ra_cust_trx_line_gl_dist
2811: WHERE cust_trx_line_gl_dist_id = p_cust_trx_line_gl_dist_id;
2812:
2813: IF ( SQL%ROWCOUNT = 0 )
2814: THEN arp_util.debug('EXCEPTION: arp_ctlgd_pkg.delete_p()');
2818: /* call mrc api to delete */
2819: arp_standard.debug('calling mrc engine for insertion of gl dist data');
2820: ar_mrc_engine.maintain_mrc_data(
2821: p_event_mode => 'DELETE',
2822: p_table_name => 'RA_CUST_TRX_LINE_GL_DIST',
2823: p_mode => 'SINGLE',
2824: p_key_value => p_cust_trx_line_gl_dist_id);
2825:
2826:
2838: | PROCEDURE |
2839: | delete_f_ct_id |
2840: | |
2841: | DESCRIPTION |
2842: | This procedure deletes the ra_cust_trx_line_gl_dist rows identified |
2843: | by the p_customer_trx_id parameter. |
2844: | |
2845: | SCOPE - PUBLIC |
2846: | |
2868:
2869: procedure delete_f_ct_id( p_customer_trx_id
2870: IN ra_customer_trx.customer_trx_id%type,
2871: p_account_set_flag
2872: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
2873: p_account_class
2874: IN ra_cust_trx_line_gl_dist.account_class%type)
2875: IS
2876:
2870: IN ra_customer_trx.customer_trx_id%type,
2871: p_account_set_flag
2872: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
2873: p_account_class
2874: IN ra_cust_trx_line_gl_dist.account_class%type)
2875: IS
2876:
2877: l_gl_dist_key_value_list gl_ca_utility_pkg.r_key_value_arr;
2878:
2879: BEGIN
2880:
2881: arp_util.debug('arp_ctlgd_pkg.delete_f_ct_id()+');
2882:
2883: DELETE FROM ra_cust_trx_line_gl_dist
2884: WHERE customer_trx_id = p_customer_trx_id
2885: AND account_set_flag = nvl(p_account_set_flag, account_set_flag)
2886: AND account_class = nvl(p_account_class, account_class);
2887:
2887:
2888: arp_standard.debug('calling mrc engine for insertion of gl dist data');
2889: ar_mrc_engine.maintain_mrc_data(
2890: p_event_mode => 'DELETE',
2891: p_table_name => 'RA_CUST_TRX_LINE_GL_DIST',
2892: p_mode => 'BATCH',
2893: p_key_value_list => l_gl_dist_key_value_list);
2894:
2895:
2907: | PROCEDURE |
2908: | delete_f_ctl_id |
2909: | |
2910: | DESCRIPTION |
2911: | This procedure deletes the ra_cust_trx_line_gl_dist rows identified |
2912: | by the p_customer_trx_line_id parameter. |
2913: | |
2914: | SCOPE - PUBLIC |
2915: | |
2937:
2938: procedure delete_f_ctl_id( p_customer_trx_line_id
2939: IN ra_customer_trx_lines.customer_trx_line_id%type,
2940: p_account_set_flag
2941: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
2942: p_account_class
2943: IN ra_cust_trx_line_gl_dist.account_class%type)
2944: IS
2945:
2939: IN ra_customer_trx_lines.customer_trx_line_id%type,
2940: p_account_set_flag
2941: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
2942: p_account_class
2943: IN ra_cust_trx_line_gl_dist.account_class%type)
2944: IS
2945:
2946: l_gl_dist_key_value_list gl_ca_utility_pkg.r_key_value_arr;
2947: l_amt NUMBER := 0;
2951:
2952:
2953: arp_util.debug('arp_ctlgd_pkg.delete_f_ctl_id()+');
2954:
2955: DELETE FROM ra_cust_trx_line_gl_dist
2956: WHERE customer_trx_line_id = p_customer_trx_line_id
2957: AND account_set_flag = nvl(p_account_set_flag, account_set_flag)
2958: AND account_class = nvl(p_account_class, account_class)
2959: RETURNING cust_trx_line_gl_dist_id
2961:
2962: BEGIN
2963: SELECT sum(nvl(amount,0)), sum(nvl(acctd_amount,0))
2964: INTO l_amt, l_acctd_amt
2965: FROM ra_cust_trx_line_gl_dist
2966: WHERE customer_trx_id = (SELECT customer_trx_id
2967: FROM ra_customer_trx_lines
2968: WHERE customer_trx_line_id = p_customer_trx_line_id)
2969: AND account_class <> 'REC'
2973: l_amt := 0;
2974: l_acctd_amt := 0;
2975: END;
2976:
2977: UPDATE ra_cust_trx_line_gl_dist
2978: SET amount = nvl(l_amt,0),
2979: acctd_amount = nvl(l_acctd_amt,0),
2980: last_updated_by = pg_user_id,
2981: last_update_date = sysdate,
2988:
2989: arp_standard.debug('calling mrc engine for insertion of gl dist data');
2990: ar_mrc_engine.maintain_mrc_data(
2991: p_event_mode => 'DELETE',
2992: p_table_name => 'RA_CUST_TRX_LINE_GL_DIST',
2993: p_mode => 'BATCH',
2994: p_key_value_list => l_gl_dist_key_value_list);
2995:
2996: arp_util.debug('arp_ctlgd_pkg.delete_f_ctl_id()-');
3007: | PROCEDURE |
3008: | delete_f_ctls_id |
3009: | |
3010: | DESCRIPTION |
3011: | This procedure deletes the ra_cust_trx_line_gl_dist rows identified |
3012: | by the p_cust_trx_line_salesrep_id parameter. |
3013: | |
3014: | SCOPE - PUBLIC |
3015: | |
3037:
3038: procedure delete_f_ctls_id( p_cust_trx_line_salesrep_id
3039: IN ra_cust_trx_line_salesreps.cust_trx_line_salesrep_id%type,
3040: p_account_set_flag
3041: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
3042: p_account_class
3043: IN ra_cust_trx_line_gl_dist.account_class%type)
3044: IS
3045:
3039: IN ra_cust_trx_line_salesreps.cust_trx_line_salesrep_id%type,
3040: p_account_set_flag
3041: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
3042: p_account_class
3043: IN ra_cust_trx_line_gl_dist.account_class%type)
3044: IS
3045:
3046: l_gl_dist_key_value_list gl_ca_utility_pkg.r_key_value_arr;
3047:
3048: BEGIN
3049:
3050: arp_util.debug('arp_ctlgd_pkg.delete_f_ctls_id()+');
3051:
3052: DELETE FROM ra_cust_trx_line_gl_dist
3053: WHERE cust_trx_line_salesrep_id = p_cust_trx_line_salesrep_id
3054: AND account_set_flag = nvl(p_account_set_flag, account_set_flag)
3055: AND account_class = nvl(p_account_class, account_class)
3056: RETURNING cust_trx_line_gl_dist_id
3058:
3059: arp_standard.debug('calling mrc engine for insertion of gl dist data');
3060: ar_mrc_engine.maintain_mrc_data(
3061: p_event_mode => 'DELETE',
3062: p_table_name => 'RA_CUST_TRX_LINE_GL_DIST',
3063: p_mode => 'BATCH',
3064: p_key_value_list => l_gl_dist_key_value_list);
3065:
3066:
3078: | PROCEDURE |
3079: | delete_f_ct_ltctl_id_type |
3080: | |
3081: | DESCRIPTION |
3082: | This procedure deletes the ra_cust_trx_line_gl_dist rows corresponding |
3083: | to the child lines (incl. header freight line) identified by |
3084: | p_customer_trx_id, p_link_to_cust_trx_line_id and p_line_type |
3085: | |
3086: | SCOPE - PUBLIC |
3116: ra_customer_trx_lines.link_to_cust_trx_line_id%type,
3117: p_line_type IN
3118: ra_customer_trx_lines.line_type%type,
3119: p_account_set_flag IN
3120: ra_cust_trx_line_gl_dist.account_set_flag%type,
3121: p_account_class IN
3122: ra_cust_trx_line_gl_dist.account_class%type)
3123: IS
3124: l_amt NUMBER := 0;
3118: ra_customer_trx_lines.line_type%type,
3119: p_account_set_flag IN
3120: ra_cust_trx_line_gl_dist.account_set_flag%type,
3121: p_account_class IN
3122: ra_cust_trx_line_gl_dist.account_class%type)
3123: IS
3124: l_amt NUMBER := 0;
3125: l_acctd_amt NUMBER := 0;
3126:
3127: BEGIN
3128:
3129: arp_util.debug('arp_ctlgd_pkg.delete_f_ct_ltctl_id_type()+');
3130:
3131: DELETE FROM ra_cust_trx_line_gl_dist
3132: WHERE customer_trx_id = p_customer_trx_id
3133: AND customer_trx_line_id in
3134: ( SELECT customer_trx_line_id
3135: FROM ra_customer_trx_lines
3145:
3146: BEGIN
3147: SELECT sum(nvl(amount,0)), sum(nvl(acctd_amount,0))
3148: INTO l_amt, l_acctd_amt
3149: FROM ra_cust_trx_line_gl_dist
3150: WHERE customer_trx_id = p_customer_trx_id
3151: AND account_class <> 'REC'
3152: AND account_set_flag = 'N';
3153: EXCEPTION
3155: l_amt := 0;
3156: l_acctd_amt := 0;
3157: END;
3158:
3159: UPDATE ra_cust_trx_line_gl_dist
3160: SET amount = nvl(l_amt,0),
3161: acctd_amount = nvl(l_acctd_amt,0),
3162: last_updated_by = pg_user_id,
3163: last_update_date = sysdate,
3181: | PROCEDURE |
3182: | update_p |
3183: | |
3184: | DESCRIPTION |
3185: | This procedure updates the ra_cust_trx_line_gl_dist row identified |
3186: | by the p_cust_trx_line_gl_dist_id parameter. |
3187: | |
3188: | SCOPE - PUBLIC |
3189: | |
3210: | 09-JUN-95 Charlie Tomberg Created |
3211: | |
3212: +===========================================================================*/
3213:
3214: PROCEDURE update_p( p_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
3215: p_cust_trx_line_gl_dist_id IN
3216: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type,
3217: p_exchange_rate IN ra_customer_trx.exchange_rate%type
3218: DEFAULT 1,
3212: +===========================================================================*/
3213:
3214: PROCEDURE update_p( p_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
3215: p_cust_trx_line_gl_dist_id IN
3216: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type,
3217: p_exchange_rate IN ra_customer_trx.exchange_rate%type
3218: DEFAULT 1,
3219: p_currency_code IN fnd_currencies.currency_code%type
3220: DEFAULT null,
3264: | PROCEDURE |
3265: | update_f_ct_id |
3266: | |
3267: | DESCRIPTION |
3268: | This procedure updates the ra_cust_trx_line_gl_dist rows identified |
3269: | by the p_customer_trx_id parameter. |
3270: | |
3271: | SCOPE - PUBLIC |
3272: | |
3295: | 09-JUN-95 Charlie Tomberg Created |
3296: | |
3297: +===========================================================================*/
3298:
3299: PROCEDURE update_f_ct_id( p_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
3300: p_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
3301: p_account_set_flag
3302: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
3303: p_account_class
3298:
3299: PROCEDURE update_f_ct_id( p_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
3300: p_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
3301: p_account_set_flag
3302: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
3303: p_account_class
3304: IN ra_cust_trx_line_gl_dist.account_class%type,
3305: p_exchange_rate IN ra_customer_trx.exchange_rate%type
3306: DEFAULT 1,
3300: p_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
3301: p_account_set_flag
3302: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
3303: p_account_class
3304: IN ra_cust_trx_line_gl_dist.account_class%type,
3305: p_exchange_rate IN ra_customer_trx.exchange_rate%type
3306: DEFAULT 1,
3307: p_currency_code IN fnd_currencies.currency_code%type
3308: DEFAULT null,
3351: | PROCEDURE |
3352: | update_f_ctl_id |
3353: | |
3354: | DESCRIPTION |
3355: | This procedure updates the ra_cust_trx_line_gl_dist rows identified |
3356: | by the p_customer_trx_line_id parameter. |
3357: | |
3358: | SCOPE - PUBLIC |
3359: | |
3382: | 09-JUN-95 Charlie Tomberg Created |
3383: | |
3384: +===========================================================================*/
3385:
3386: PROCEDURE update_f_ctl_id( p_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
3387: p_customer_trx_line_id IN
3388: ra_customer_trx_lines.customer_trx_line_id%type,
3389: p_account_set_flag
3390: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
3386: PROCEDURE update_f_ctl_id( p_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
3387: p_customer_trx_line_id IN
3388: ra_customer_trx_lines.customer_trx_line_id%type,
3389: p_account_set_flag
3390: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
3391: p_account_class
3392: IN ra_cust_trx_line_gl_dist.account_class%type,
3393: p_exchange_rate IN ra_customer_trx.exchange_rate%type
3394: DEFAULT 1,
3388: ra_customer_trx_lines.customer_trx_line_id%type,
3389: p_account_set_flag
3390: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
3391: p_account_class
3392: IN ra_cust_trx_line_gl_dist.account_class%type,
3393: p_exchange_rate IN ra_customer_trx.exchange_rate%type
3394: DEFAULT 1,
3395: p_currency_code IN fnd_currencies.currency_code%type
3396: DEFAULT null,
3439: | PROCEDURE |
3440: | update_f_ctls_id |
3441: | |
3442: | DESCRIPTION |
3443: | This procedure updates the ra_cust_trx_line_gl_dist rows identified |
3444: | by the p_cust_trx_line_salesrep_id parameter. |
3445: | |
3446: | SCOPE - PUBLIC |
3447: | |
3470: | 09-JUN-95 Charlie Tomberg Created |
3471: | |
3472: +===========================================================================*/
3473:
3474: PROCEDURE update_f_ctls_id( p_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
3475: p_cust_trx_line_salesrep_id IN
3476: ra_cust_trx_line_salesreps.cust_trx_line_salesrep_id%type,
3477: p_account_set_flag
3478: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
3474: PROCEDURE update_f_ctls_id( p_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
3475: p_cust_trx_line_salesrep_id IN
3476: ra_cust_trx_line_salesreps.cust_trx_line_salesrep_id%type,
3477: p_account_set_flag
3478: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
3479: p_account_class
3480: IN ra_cust_trx_line_gl_dist.account_class%type,
3481: p_exchange_rate IN ra_customer_trx.exchange_rate%type
3482: DEFAULT 1,
3476: ra_cust_trx_line_salesreps.cust_trx_line_salesrep_id%type,
3477: p_account_set_flag
3478: IN ra_cust_trx_line_gl_dist.account_set_flag%type,
3479: p_account_class
3480: IN ra_cust_trx_line_gl_dist.account_class%type,
3481: p_exchange_rate IN ra_customer_trx.exchange_rate%type
3482: DEFAULT 1,
3483: p_currency_code IN fnd_currencies.currency_code%type
3484: DEFAULT null,
3528: | update_acctd_amount |
3529: | |
3530: | DESCRIPTION |
3531: | |
3532: | Updates ra_cust_trx_line_gl_dist.acctd_amount for rows identified by |
3533: | the p_customer_trx_id parameter. |
3534: | |
3535: | SCOPE - PUBLIC |
3536: | |
3553: | MODIFICATION HISTORY |
3554: | 21-JUL-95 Martin Johnson Created |
3555: | 14-Aug-02 Debbie Jancis Modified for MRC trigger replacement |
3556: | added calls for processing updates to |
3557: | ra_cust_trx_line_gl_dist. |
3558: | 31-AUG-04 M Raymond Added IF condition to only do MRC
3559: | update if rows were updated in primary
3560: +===========================================================================*/
3561:
3576: BEGIN
3577:
3578: arp_util.debug('arp_ctlgd_pkg.update_acctd_amount()+');
3579:
3580: update ra_cust_trx_line_gl_dist
3581: set last_updated_by = pg_user_id,
3582: last_update_date = sysdate,
3583: last_update_login = pg_login_id,
3584: acctd_amount = arpcurr.functional_amount(
3597: THEN
3598: arp_standard.debug('calling mrc engine for update of gl dist data');
3599: ar_mrc_engine.maintain_mrc_data(
3600: p_event_mode => 'UPDATE',
3601: p_table_name => 'RA_CUST_TRX_LINE_GL_DIST',
3602: p_mode => 'BATCH',
3603: p_key_value_list => l_gl_dist_key_value_list);
3604: END IF;
3605:
3618: | update_amount_f_ctl_id |
3619: | |
3620: | DESCRIPTION |
3621: | |
3622: | Updates ra_cust_trx_line_gl_dist amount columns for rows identified by |
3623: | the p_customer_trx_id parameter. |
3624: | |
3625: | SCOPE - PUBLIC |
3626: | |
3645: | MODIFICATION HISTORY |
3646: | 24-JUL-95 Martin Johnson Created |
3647: | 14-Aug-02 Debbie Jancis Modified for MRC trigger replacement |
3648: | added calls for processing updates to |
3649: | ra_cust_trx_line_gl_dist. |
3650: | |
3651: +===========================================================================*/
3652:
3653: PROCEDURE update_amount_f_ctl_id(p_customer_trx_line_id IN
3672: BEGIN
3673:
3674: arp_util.debug('arp_ctlgd_pkg.update_amount_f_ctl_id()+');
3675:
3676: UPDATE ra_cust_trx_line_gl_dist
3677: SET last_updated_by = pg_user_id,
3678: last_update_date = sysdate,
3679: last_update_login = pg_login_id,
3680: amount = arpcurr.CurrRound(
3701: IF arp_global.request_id is NULL then
3702: arp_standard.debug('calling mrc engine for update of gl dist data');
3703: ar_mrc_engine.maintain_mrc_data(
3704: p_event_mode => 'UPDATE',
3705: p_table_name => 'RA_CUST_TRX_LINE_GL_DIST',
3706: p_mode => 'BATCH',
3707: p_key_value_list => l_gl_dist_key_value_list);
3708: END IF;
3709: END IF;
3722: | PROCEDURE |
3723: | insert_p |
3724: | |
3725: | DESCRIPTION |
3726: | This procedure inserts a row into ra_cust_trx_line_gl_dists that |
3727: | contains the column values specified in the p_dist_rec parameter. |
3728: | |
3729: | SCOPE - PUBLIC |
3730: | |
3754: | if account_class is REC, otherwise |
3755: | populate with null. |
3756: | 14-Aug-02 Debbie Jancis Modified for MRC trigger replacement |
3757: | added calls for processing inserts to |
3758: | ra_cust_trx_line_gl_dist. |
3759: | |
3760: +===========================================================================*/
3761:
3762: PROCEDURE insert_p(
3759: | |
3760: +===========================================================================*/
3761:
3762: PROCEDURE insert_p(
3763: p_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
3764: p_cust_trx_line_gl_dist_id
3765: OUT NOCOPY ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type,
3766: p_exchange_rate IN ra_customer_trx.exchange_rate%type
3767: DEFAULT 1,
3761:
3762: PROCEDURE insert_p(
3763: p_dist_rec IN ra_cust_trx_line_gl_dist%rowtype,
3764: p_cust_trx_line_gl_dist_id
3765: OUT NOCOPY ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type,
3766: p_exchange_rate IN ra_customer_trx.exchange_rate%type
3767: DEFAULT 1,
3768: p_currency_code IN fnd_currencies.currency_code%type
3769: DEFAULT null,
3774: ) IS
3775:
3776:
3777: l_cust_trx_line_gl_dist_id
3778: ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type;
3779:
3780:
3781: BEGIN
3782:
3787: /*---------------------------*
3788: | Get the unique identifier |
3789: *---------------------------*/
3790:
3791: SELECT RA_CUST_TRX_LINE_GL_DIST_S.NEXTVAL
3792: INTO l_cust_trx_line_gl_dist_id
3793: FROM DUAL;
3794:
3795:
3796: /*-------------------*
3797: | Insert the record |
3798: *-------------------*/
3799:
3800: INSERT INTO ra_cust_trx_line_gl_dist
3801: (
3802: cust_trx_line_gl_dist_id,
3803: customer_trx_id,
3804: customer_trx_line_id,
3923:
3924: arp_standard.debug('calling mrc engine for INSERT of gl dist data');
3925: ar_mrc_engine.maintain_mrc_data(
3926: p_event_mode => 'INSERT',
3927: p_table_name => 'RA_CUST_TRX_LINE_GL_DIST',
3928: p_mode => 'SINGLE',
3929: p_key_value => p_cust_trx_line_gl_dist_id);
3930:
3931: arp_util.debug('arp_ctlgd_pkg.insert_p()-');
4042: p_pct_offset_total,
4043: p_pct_offset_total_rtot_db,
4044: p_pct_suspense_total,
4045: p_pct_suspense_total_rtot_db
4046: FROM ra_cust_trx_line_gl_dist
4047: WHERE customer_trx_id = p_customer_trx_id
4048: AND customer_trx_line_id =
4049: DECODE(p_mode,
4050: 'TACC_ACC_ASSGN_SREP', customer_trx_line_id,