69: PROCEDURE Get_Doc_Entitity_Data (
70: p_level IN VARCHAR2 ,
71: p_app_rec OUT NOCOPY ar_receivable_applications%ROWTYPE ,
72: p_cust_inv_rec OUT NOCOPY ra_customer_trx%ROWTYPE ,
73: p_trh_rec OUT NOCOPY ar_transaction_history%ROWTYPE , -- jrautiai
74: p_rule_rec OUT NOCOPY ae_rule_rec_type );
75:
76: PROCEDURE Create_Ae_Lines_Common (
77: p_level IN VARCHAR2 );
78:
79: PROCEDURE Create_Ae_Lines_BR(
80: p_app_rec IN ar_receivable_applications%ROWTYPE ,
81: p_cust_inv_rec IN ra_customer_trx%ROWTYPE ,
82: p_trh_rec IN ar_transaction_history%ROWTYPE , -- jrautiai
83: p_rule_rec IN ae_rule_rec_type );
84:
85: PROCEDURE Assign_Ael_Elements(
86: p_ae_line_rec IN ae_line_rec_type );
85: PROCEDURE Assign_Ael_Elements(
86: p_ae_line_rec IN ae_line_rec_type );
87:
88:
89: PROCEDURE initialize_global_variables(p_trh_rec IN ar_transaction_history%ROWTYPE);
90:
91: FUNCTION trx_history_status(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE) RETURN VARCHAR2;
92:
93: PROCEDURE create_exchanged_trx_acct(p_customer_trx_id IN ra_customer_trx.customer_trx_id%TYPE,
87:
88:
89: PROCEDURE initialize_global_variables(p_trh_rec IN ar_transaction_history%ROWTYPE);
90:
91: FUNCTION trx_history_status(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE) RETURN VARCHAR2;
92:
93: PROCEDURE create_exchanged_trx_acct(p_customer_trx_id IN ra_customer_trx.customer_trx_id%TYPE,
94: p_ae_rule_rec IN ae_rule_rec_type);
95:
92:
93: PROCEDURE create_exchanged_trx_acct(p_customer_trx_id IN ra_customer_trx.customer_trx_id%TYPE,
94: p_ae_rule_rec IN ae_rule_rec_type);
95:
96: FUNCTION find_exchanged_trx_acct(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE) RETURN NUMBER;
97:
98: PROCEDURE reverse_exchanged_trx_acct(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE);
99:
100: PROCEDURE reverse_single_dist_line(p_dist_rec IN ar_distributions%ROWTYPE);
94: p_ae_rule_rec IN ae_rule_rec_type);
95:
96: FUNCTION find_exchanged_trx_acct(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE) RETURN NUMBER;
97:
98: PROCEDURE reverse_exchanged_trx_acct(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE);
99:
100: PROCEDURE reverse_single_dist_line(p_dist_rec IN ar_distributions%ROWTYPE);
101:
102: PROCEDURE reverse_old_acct(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE,
98: PROCEDURE reverse_exchanged_trx_acct(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE);
99:
100: PROCEDURE reverse_single_dist_line(p_dist_rec IN ar_distributions%ROWTYPE);
101:
102: PROCEDURE reverse_old_acct(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE,
103: p_ps_id IN ar_payment_schedules.payment_schedule_id%TYPE);
104:
105: PROCEDURE find_rec_dist_record(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE,
106: p_sign IN NUMBER,
101:
102: PROCEDURE reverse_old_acct(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE,
103: p_ps_id IN ar_payment_schedules.payment_schedule_id%TYPE);
104:
105: PROCEDURE find_rec_dist_record(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE,
106: p_sign IN NUMBER,
107: p_dist_rec OUT NOCOPY ar_distributions%ROWTYPE);
108:
109:
106: p_sign IN NUMBER,
107: p_dist_rec OUT NOCOPY ar_distributions%ROWTYPE);
108:
109:
110: PROCEDURE find_prev_posted_hist_record(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE,
111: p_trh_rec OUT NOCOPY ar_transaction_history%ROWTYPE,
112: p_status IN ar_transaction_history.status%TYPE DEFAULT NULL,
113: p_event IN ar_transaction_history.event%TYPE DEFAULT NULL);
114:
107: p_dist_rec OUT NOCOPY ar_distributions%ROWTYPE);
108:
109:
110: PROCEDURE find_prev_posted_hist_record(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE,
111: p_trh_rec OUT NOCOPY ar_transaction_history%ROWTYPE,
112: p_status IN ar_transaction_history.status%TYPE DEFAULT NULL,
113: p_event IN ar_transaction_history.event%TYPE DEFAULT NULL);
114:
115: PROCEDURE reverse_deferred_tax(p_transaction_history_id ar_transaction_history.transaction_history_id%TYPE);
108:
109:
110: PROCEDURE find_prev_posted_hist_record(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE,
111: p_trh_rec OUT NOCOPY ar_transaction_history%ROWTYPE,
112: p_status IN ar_transaction_history.status%TYPE DEFAULT NULL,
113: p_event IN ar_transaction_history.event%TYPE DEFAULT NULL);
114:
115: PROCEDURE reverse_deferred_tax(p_transaction_history_id ar_transaction_history.transaction_history_id%TYPE);
116:
109:
110: PROCEDURE find_prev_posted_hist_record(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE,
111: p_trh_rec OUT NOCOPY ar_transaction_history%ROWTYPE,
112: p_status IN ar_transaction_history.status%TYPE DEFAULT NULL,
113: p_event IN ar_transaction_history.event%TYPE DEFAULT NULL);
114:
115: PROCEDURE reverse_deferred_tax(p_transaction_history_id ar_transaction_history.transaction_history_id%TYPE);
116:
117: /* =======================================================================
111: p_trh_rec OUT NOCOPY ar_transaction_history%ROWTYPE,
112: p_status IN ar_transaction_history.status%TYPE DEFAULT NULL,
113: p_event IN ar_transaction_history.event%TYPE DEFAULT NULL);
114:
115: PROCEDURE reverse_deferred_tax(p_transaction_history_id ar_transaction_history.transaction_history_id%TYPE);
116:
117: /* =======================================================================
118: | Procedures/functions
119: * ======================================================================*/
396: | for source_id
397: * ======================================================================*/
398: PROCEDURE Delete_TH(p_ae_deleted OUT NOCOPY BOOLEAN) IS
399:
400: l_trans_hist ar_transaction_history.transaction_history_id%TYPE;
401:
402: -- MRC Trigger Replacement:
403: l_ar_dist_key_value_list gl_ca_utility_pkg.r_key_value_arr;
404:
411: | Verify that the source id is a valid candidate for deletion |
412: +-------------------------------------------------------------------*/
413: SELECT th.transaction_history_id
414: INTO l_trans_hist
415: FROM ar_transaction_history th
416: WHERE th.transaction_history_id = g_ae_doc_rec.source_id
417: AND th.gl_posted_date is null
418: AND th.posting_control_id = -3
419: AND th.postable_flag = 'Y'
668: PROCEDURE Get_Doc_Entitity_Data (
669: p_level IN VARCHAR2 ,
670: p_app_rec OUT NOCOPY ar_receivable_applications%ROWTYPE ,
671: p_cust_inv_rec OUT NOCOPY ra_customer_trx%ROWTYPE ,
672: p_trh_rec OUT NOCOPY ar_transaction_history%ROWTYPE ,
673: p_rule_rec OUT NOCOPY ae_rule_rec_type) IS
674:
675: BEGIN
676:
761: p_trh_rec.customer_trx_id,
762: p_trh_rec.status,
763: p_trh_rec.event,
764: p_trh_rec.prv_trx_history_id
765: from ar_transaction_history th,
766: ra_customer_trx ctinv,
767: ar_payment_schedules pay
768: where th.transaction_history_id = g_ae_doc_rec.source_id
769: and th.customer_trx_id = ctinv.customer_trx_id
853: p_level IN VARCHAR2 ) IS
854:
855: l_app_rec ar_receivable_applications%ROWTYPE ;
856: l_cust_inv_rec ra_customer_trx%ROWTYPE ;
857: l_trh_rec ar_transaction_history%ROWTYPE ; -- jrautiai
858: l_rule_rec ae_rule_rec_type ;
859:
860: BEGIN
861:
919: * ======================================================================*/
920: PROCEDURE Create_Ae_Lines_BR(
921: p_app_rec IN ar_receivable_applications%ROWTYPE ,
922: p_cust_inv_rec IN ra_customer_trx%ROWTYPE ,
923: p_trh_rec IN ar_transaction_history%ROWTYPE , -- jrautiai
924: p_rule_rec IN ae_rule_rec_type ) IS
925:
926: l_app_id ar_receivable_applications.receivable_application_id%TYPE;
927: l_ael_line_rec ae_line_rec_type;
933: l_account_class VARCHAR(30) := NULL;
934: l_ccid number;
935: l_concat_segments varchar2(2000);
936: l_num_failed_dist_rows number;
937: l_prev_posted_trh_rec ar_transaction_history%ROWTYPE;
938: l_ae_deleted BOOLEAN := FALSE;
939:
940: BEGIN
941: IF PG_DEBUG in ('Y', 'C') THEN
1330: | accounting entries are incorrect for
1331: | UNPAID event
1332: |
1333: * ======================================================================*/
1334: PROCEDURE initialize_global_variables(p_trh_rec IN ar_transaction_history%ROWTYPE) IS
1335:
1336: BEGIN
1337: IF PG_DEBUG in ('Y', 'C') THEN
1338: arp_standard.debug( 'ARP_BILLS_RECEIVABLE_MAIN.initialize_global_variables()+');
1402: |
1403: | PARAMETERS
1404: | p_transaction_history_id Transaction history ID
1405: * ======================================================================*/
1406: FUNCTION trx_history_status(p_transaction_history_id ar_transaction_history.transaction_history_id%TYPE) RETURN VARCHAR2 IS
1407:
1408: /*-----------------------------+
1409: | Cursor to return the status |
1410: +-----------------------------*/
1409: | Cursor to return the status |
1410: +-----------------------------*/
1411: CURSOR history_status_cur IS
1412: SELECT status
1413: FROM ar_transaction_history
1414: WHERE transaction_history_id = p_transaction_history_id;
1415:
1416: history_status_rec history_status_cur%ROWTYPE;
1417:
1546: | PARAMETERS
1547: | p_transaction_history_id Transaction history ID
1548: | p_ps_id Payment Schedule ID
1549: * ======================================================================*/
1550: PROCEDURE reverse_old_acct(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE,
1551: p_ps_id IN ar_payment_schedules.payment_schedule_id%TYPE) IS
1552:
1553: /*----------------------------------------------------------+
1554: | This is used in deciding which distribution record |
1572: from ar_payment_schedules ps
1573: where ps.payment_schedule_id = p_ps_id;
1574:
1575: l_ard_rec ar_distributions%ROWTYPE;
1576: l_prev_posted_trh_rec ar_transaction_history%ROWTYPE;
1577: l_ps_rec ps_cur%ROWTYPE;
1578:
1579: BEGIN
1580: IF PG_DEBUG in ('Y', 'C') THEN
1661: | p_transaction_history_id Transaction history ID
1662: | p_status Transaction history status
1663: | p_event Transaction history event
1664: * ======================================================================*/
1665: PROCEDURE find_prev_posted_hist_record(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE,
1666: p_trh_rec OUT NOCOPY ar_transaction_history%ROWTYPE,
1667: p_status IN ar_transaction_history.status%TYPE DEFAULT NULL,
1668: p_event IN ar_transaction_history.event%TYPE DEFAULT NULL) IS
1669:
1662: | p_status Transaction history status
1663: | p_event Transaction history event
1664: * ======================================================================*/
1665: PROCEDURE find_prev_posted_hist_record(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE,
1666: p_trh_rec OUT NOCOPY ar_transaction_history%ROWTYPE,
1667: p_status IN ar_transaction_history.status%TYPE DEFAULT NULL,
1668: p_event IN ar_transaction_history.event%TYPE DEFAULT NULL) IS
1669:
1670: /*-----------------------------------------------------+
1663: | p_event Transaction history event
1664: * ======================================================================*/
1665: PROCEDURE find_prev_posted_hist_record(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE,
1666: p_trh_rec OUT NOCOPY ar_transaction_history%ROWTYPE,
1667: p_status IN ar_transaction_history.status%TYPE DEFAULT NULL,
1668: p_event IN ar_transaction_history.event%TYPE DEFAULT NULL) IS
1669:
1670: /*-----------------------------------------------------+
1671: | Cursor to return the previous posted history record |
1664: * ======================================================================*/
1665: PROCEDURE find_prev_posted_hist_record(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE,
1666: p_trh_rec OUT NOCOPY ar_transaction_history%ROWTYPE,
1667: p_status IN ar_transaction_history.status%TYPE DEFAULT NULL,
1668: p_event IN ar_transaction_history.event%TYPE DEFAULT NULL) IS
1669:
1670: /*-----------------------------------------------------+
1671: | Cursor to return the previous posted history record |
1672: | The cursor returns path of all posted records from |
1675: | cursor only looks for specific status and/or event. |
1676: +-----------------------------------------------------*/
1677: CURSOR history_cur IS
1678: SELECT *
1679: FROM ar_transaction_history
1680: WHERE postable_flag = 'Y'
1681: AND status = NVL(p_status,status)
1682: AND event = NVL(p_event,event)
1683: CONNECT BY PRIOR prv_trx_history_id = transaction_history_id
1767: | p_sign Sign of the original BR amount, used to decide
1768: | whether to select debut or credit amount
1769: | p_dist_rec Distribution record
1770: * ======================================================================*/
1771: PROCEDURE find_rec_dist_record(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE,
1772: p_sign IN NUMBER,
1773: p_dist_rec OUT NOCOPY ar_distributions%ROWTYPE) IS
1774:
1775: /*-----------------------------------------------------+
1998: |
1999: | PARAMETERS
2000: | p_transaction_history_id Transaction history ID
2001: * ======================================================================*/
2002: FUNCTION find_exchanged_trx_acct(p_transaction_history_id ar_transaction_history.transaction_history_id%TYPE) RETURN NUMBER IS
2003:
2004: l_prev_posted_history_id ar_transaction_history.transaction_history_id%TYPE;
2005: l_prev_posted_trh_rec ar_transaction_history%ROWTYPE;
2006:
2000: | p_transaction_history_id Transaction history ID
2001: * ======================================================================*/
2002: FUNCTION find_exchanged_trx_acct(p_transaction_history_id ar_transaction_history.transaction_history_id%TYPE) RETURN NUMBER IS
2003:
2004: l_prev_posted_history_id ar_transaction_history.transaction_history_id%TYPE;
2005: l_prev_posted_trh_rec ar_transaction_history%ROWTYPE;
2006:
2007: BEGIN
2008: IF PG_DEBUG in ('Y', 'C') THEN
2001: * ======================================================================*/
2002: FUNCTION find_exchanged_trx_acct(p_transaction_history_id ar_transaction_history.transaction_history_id%TYPE) RETURN NUMBER IS
2003:
2004: l_prev_posted_history_id ar_transaction_history.transaction_history_id%TYPE;
2005: l_prev_posted_trh_rec ar_transaction_history%ROWTYPE;
2006:
2007: BEGIN
2008: IF PG_DEBUG in ('Y', 'C') THEN
2009: arp_standard.debug( 'ARP_BILLS_RECEIVABLE_MAIN.find_exchanged_trx_acct()');
2070: |
2071: | PARAMETERS
2072: | p_transaction_history_id Transaction history ID
2073: * ======================================================================*/
2074: PROCEDURE reverse_exchanged_trx_acct(p_transaction_history_id ar_transaction_history.transaction_history_id%TYPE) IS
2075:
2076: /*--------------------------------------------------+
2077: | Cursor to return the accounting for exchanged |
2078: | transactions. The accounting for exchanged |
2081:
2082: -- MRC Trigger Replacement: Enumerated Columns and added UNION to
2083: -- select currency sensitive data.
2084:
2085: CURSOR last_exchange_accounting_cur(l_transaction_history_id ar_transaction_history.transaction_history_id%TYPE) IS
2086: select line_id,
2087: source_id,
2088: source_table,
2089: source_type,
2189: AND source_type_secondary = C_ASSIGNMENT
2190: ORDER BY line_id ASC;
2191: */
2192: last_exchange_accounting_rec ar_distributions%ROWTYPE;
2193: l_last_exchanged_history_id ar_transaction_history.transaction_history_id%TYPE;
2194:
2195: BEGIN
2196: IF PG_DEBUG in ('Y', 'C') THEN
2197: arp_standard.debug( 'ARP_BILLS_RECEIVABLE_MAIN.reverse_exchanged_trx_acct()+');
2383: | exchanged BR |
2384: +--------------------------------------------------*/
2385: CURSOR BR_exchange_cur(l_customer_trx_id ra_customer_trx.customer_trx_id%TYPE) IS
2386: SELECT th.transaction_history_id
2387: FROM ar_transaction_history th
2388: WHERE th.customer_trx_id = l_customer_trx_id
2389: AND th.current_accounted_flag = 'Y';
2390:
2391: all_exchanges_rec all_exchanges_cur%ROWTYPE;
2585: |
2586: | PARAMETERS
2587: | p_transaction_history_id Transaction history ID
2588: * ======================================================================*/
2589: PROCEDURE reverse_deferred_tax(p_transaction_history_id ar_transaction_history.transaction_history_id%TYPE) IS
2590:
2591: /*--------------------------------------------------+
2592: | Cursor to return the tax accounting for given |
2593: | transactions history record |
2595:
2596: -- MRC Trigger Replacment: enumerated columns and added union to select
2597: -- currency sensitive data.
2598:
2599: CURSOR tax_accounting_cur(l_transaction_history_id ar_transaction_history.transaction_history_id%TYPE) IS
2600: select line_id,
2601: source_id,
2602: source_table,
2603: source_type,
2697: AND source_type in (C_DEFERRED_TAX,C_TAX)
2698: ORDER BY line_id ASC;
2699: */
2700: tax_accounting_rec ar_distributions%ROWTYPE;
2701: l_prev_posted_trh_rec ar_transaction_history%ROWTYPE;
2702:
2703: BEGIN
2704: IF PG_DEBUG in ('Y', 'C') THEN
2705: arp_standard.debug( 'ARP_BILLS_RECEIVABLE_MAIN.reverse_deferred_tax()+');