119: p_tax_recoverable_flag OUT NOCOPY VARCHAR2);
120:
121: PROCEDURE Build_Lines; --(p_type_acct IN VARCHAR2);
122:
123: PROCEDURE Build_Rev(p_gl_account_source IN ar_receivables_trx.gl_account_source%TYPE ,
124: p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
125: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
126: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE );
127:
120:
121: PROCEDURE Build_Lines; --(p_type_acct IN VARCHAR2);
122:
123: PROCEDURE Build_Rev(p_gl_account_source IN ar_receivables_trx.gl_account_source%TYPE ,
124: p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
125: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
126: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE );
127:
128: PROCEDURE Build_Tax(p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
121: PROCEDURE Build_Lines; --(p_type_acct IN VARCHAR2);
122:
123: PROCEDURE Build_Rev(p_gl_account_source IN ar_receivables_trx.gl_account_source%TYPE ,
124: p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
125: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
126: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE );
127:
128: PROCEDURE Build_Tax(p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
129: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
124: p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
125: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
126: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE );
127:
128: PROCEDURE Build_Tax(p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
129: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
130: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE );
131:
132: PROCEDURE Build_Charges_Freight_All(p_type_acct IN VARCHAR2 ,
125: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
126: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE );
127:
128: PROCEDURE Build_Tax(p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
129: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
130: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE );
131:
132: PROCEDURE Build_Charges_Freight_All(p_type_acct IN VARCHAR2 ,
133: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE,
367: l_linked_tax BOOLEAN := FALSE;
368: l_required BOOLEAN := TRUE;
369: l_rev_rec_req BOOLEAN := TRUE;
370: l_sum_dist NUMBER;
371: l_gl_account_source_old ar_receivables_trx.gl_account_source%TYPE;
372: l_tax_code_source_old ar_receivables_trx.tax_code_source%TYPE;
373: l_tax_recoverable_flag_old ar_receivables_trx.tax_recoverable_flag%TYPE;
374: l_process_ed_adj VARCHAR2(1) := 'N';
375: l_process_uned VARCHAR2(1) := 'N';
368: l_required BOOLEAN := TRUE;
369: l_rev_rec_req BOOLEAN := TRUE;
370: l_sum_dist NUMBER;
371: l_gl_account_source_old ar_receivables_trx.gl_account_source%TYPE;
372: l_tax_code_source_old ar_receivables_trx.tax_code_source%TYPE;
373: l_tax_recoverable_flag_old ar_receivables_trx.tax_recoverable_flag%TYPE;
374: l_process_ed_adj VARCHAR2(1) := 'N';
375: l_process_uned VARCHAR2(1) := 'N';
376: l_process_pay VARCHAR2(1) := 'N';
369: l_rev_rec_req BOOLEAN := TRUE;
370: l_sum_dist NUMBER;
371: l_gl_account_source_old ar_receivables_trx.gl_account_source%TYPE;
372: l_tax_code_source_old ar_receivables_trx.tax_code_source%TYPE;
373: l_tax_recoverable_flag_old ar_receivables_trx.tax_recoverable_flag%TYPE;
374: l_process_ed_adj VARCHAR2(1) := 'N';
375: l_process_uned VARCHAR2(1) := 'N';
376: l_process_pay VARCHAR2(1) := 'N';
377: l_le_id NUMBER;
1185: g_ae_alloc_rev_tbl ar_ae_alloc_rec_gt%ROWTYPE;
1186: g_ae_alloc_tax_tbl ar_ae_alloc_rec_gt%ROWTYPE;
1187: l_override1 VARCHAR2(1) := 'N';
1188: l_override2 VARCHAR2(1) := 'N';
1189: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
1190: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
1191: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
1192:
1193: CURSOR crevccid IS
1186: g_ae_alloc_tax_tbl ar_ae_alloc_rec_gt%ROWTYPE;
1187: l_override1 VARCHAR2(1) := 'N';
1188: l_override2 VARCHAR2(1) := 'N';
1189: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
1190: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
1191: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
1192:
1193: CURSOR crevccid IS
1194: SELECT MAX(b.code_combination_id),
1187: l_override1 VARCHAR2(1) := 'N';
1188: l_override2 VARCHAR2(1) := 'N';
1189: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
1190: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
1191: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
1192:
1193: CURSOR crevccid IS
1194: SELECT MAX(b.code_combination_id),
1195: ctl.ae_cust_trx_line_gl_dist_id
2543:
2544: l_link_ctr BINARY_INTEGER := 0; --Actual Tax link id counter
2545: l_link_ctr1 BINARY_INTEGER := 0; --In case earned and unearned require link id
2546:
2547: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
2548: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
2549: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
2550:
2551: cursor get_tax IS
2544: l_link_ctr BINARY_INTEGER := 0; --Actual Tax link id counter
2545: l_link_ctr1 BINARY_INTEGER := 0; --In case earned and unearned require link id
2546:
2547: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
2548: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
2549: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
2550:
2551: cursor get_tax IS
2552: select /*+ INDEX(ar_ae_alloc_rec_gt AR_AE_ALLOC_REC_GT_N3) */
2545: l_link_ctr1 BINARY_INTEGER := 0; --In case earned and unearned require link id
2546:
2547: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
2548: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
2549: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
2550:
2551: cursor get_tax IS
2552: select /*+ INDEX(ar_ae_alloc_rec_gt AR_AE_ALLOC_REC_GT_N3) */
2553: ae_link_to_cust_trx_line_id
3036: PROCEDURE Doc_Tax_Acct_Rule(p_type_acct IN VARCHAR2 ,
3037: p_app_rec IN ar_receivable_applications%ROWTYPE ,
3038: p_adj_rec IN ar_adjustments%ROWTYPE ) IS
3039:
3040: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
3041: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
3042: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
3043: l_rule_used VARCHAR2(3);
3044:
3037: p_app_rec IN ar_receivable_applications%ROWTYPE ,
3038: p_adj_rec IN ar_adjustments%ROWTYPE ) IS
3039:
3040: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
3041: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
3042: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
3043: l_rule_used VARCHAR2(3);
3044:
3045: BEGIN
3038: p_adj_rec IN ar_adjustments%ROWTYPE ) IS
3039:
3040: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
3041: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
3042: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
3043: l_rule_used VARCHAR2(3);
3044:
3045: BEGIN
3046:
3198: and nvl(tax_adjusted,0) <> 0
3199: and status = 'A'
3200: and customer_trx_id = p_cust_id);
3201:
3202: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
3203: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
3204: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
3205: l_customer_trx_id NUMBER;
3206:
3199: and status = 'A'
3200: and customer_trx_id = p_cust_id);
3201:
3202: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
3203: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
3204: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
3205: l_customer_trx_id NUMBER;
3206:
3207: BEGIN
3200: and customer_trx_id = p_cust_id);
3201:
3202: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
3203: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
3204: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
3205: l_customer_trx_id NUMBER;
3206:
3207: BEGIN
3208:
5035: | discounts or adjustments
5036: *==========================================================================*/
5037: PROCEDURE Set_Rev_Links(p_type_acct IN VARCHAR2) IS
5038:
5039: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
5040: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
5041: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
5042:
5043: BEGIN
5036: *==========================================================================*/
5037: PROCEDURE Set_Rev_Links(p_type_acct IN VARCHAR2) IS
5038:
5039: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
5040: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
5041: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
5042:
5043: BEGIN
5044:
5037: PROCEDURE Set_Rev_Links(p_type_acct IN VARCHAR2) IS
5038:
5039: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
5040: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
5041: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
5042:
5043: BEGIN
5044:
5045: IF PG_DEBUG in ('Y', 'C') THEN
5237: | accounting
5238: *==========================================================================*/
5239: PROCEDURE Build_Lines IS --(p_type_acct IN VARCHAR2) IS
5240:
5241: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
5242: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
5243: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
5244: l_ae_line_init_rec ar_ae_alloc_rec_gt%ROWTYPE ;
5245:
5238: *==========================================================================*/
5239: PROCEDURE Build_Lines IS --(p_type_acct IN VARCHAR2) IS
5240:
5241: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
5242: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
5243: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
5244: l_ae_line_init_rec ar_ae_alloc_rec_gt%ROWTYPE ;
5245:
5246: BEGIN
5239: PROCEDURE Build_Lines IS --(p_type_acct IN VARCHAR2) IS
5240:
5241: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
5242: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
5243: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
5244: l_ae_line_init_rec ar_ae_alloc_rec_gt%ROWTYPE ;
5245:
5246: BEGIN
5247:
5317: | p_ae_line_init_rec IN Initialization record contains details
5318: | for exchange rate, source table, id
5319: | common to all accounting entries
5320: *==========================================================================*/
5321: PROCEDURE Build_Rev(p_gl_account_source IN ar_receivables_trx.gl_account_source%TYPE ,
5322: p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
5323: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
5324: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE ) IS
5325:
5318: | for exchange rate, source table, id
5319: | common to all accounting entries
5320: *==========================================================================*/
5321: PROCEDURE Build_Rev(p_gl_account_source IN ar_receivables_trx.gl_account_source%TYPE ,
5322: p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
5323: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
5324: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE ) IS
5325:
5326: l_ae_line_rec ar_ae_alloc_rec_gt%ROWTYPE ;
5319: | common to all accounting entries
5320: *==========================================================================*/
5321: PROCEDURE Build_Rev(p_gl_account_source IN ar_receivables_trx.gl_account_source%TYPE ,
5322: p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
5323: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
5324: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE ) IS
5325:
5326: l_ae_line_rec ar_ae_alloc_rec_gt%ROWTYPE ;
5327: l_ctr BINARY_INTEGER ;
5822: | History
5823: | 21-NOV-2003 Herve Yu from_amount_dr , from_amount_cr
5824: | from_acctd_amount_dr, from_acctd_amount_cr
5825: *==========================================================================*/
5826: PROCEDURE Build_Tax(p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
5827: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
5828: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE ) IS
5829:
5830: l_ae_line_rec ar_ae_alloc_rec_gt%ROWTYPE ;
5823: | 21-NOV-2003 Herve Yu from_amount_dr , from_amount_cr
5824: | from_acctd_amount_dr, from_acctd_amount_cr
5825: *==========================================================================*/
5826: PROCEDURE Build_Tax(p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
5827: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
5828: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE ) IS
5829:
5830: l_ae_line_rec ar_ae_alloc_rec_gt%ROWTYPE ;
5831: l_ae_line_rec_empty ar_ae_alloc_rec_gt%ROWTYPE ;
8895: null,
8896: 'ADJ_NON_REC',
8897: 'TAX_RATE'),
8898: rt.tax_recoverable_flag
8899: FROM ar_receivables_trx rt,
8900: zx_sco_rates tax
8901: WHERE rt.receivables_trx_id = p_receivables_trx_id
8902: AND rt.asset_tax_code = tax.tax_rate_code
8903: AND sysdate between nvl(tax.effective_from, sysdate) AND
8912: null,
8913: 'ADJ_NON_REC',
8914: 'TAX_RATE'),
8915: rt.tax_recoverable_flag
8916: FROM ar_receivables_trx rt,
8917: ar_rec_trx_le_details rtd,
8918: zx_sco_rates tax
8919: WHERE rt.receivables_trx_id = p_receivables_trx_id
8920: AND rtd.receivables_trx_id (+) = rt.receivables_trx_id