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,
369: l_linked_tax BOOLEAN := FALSE;
370: l_required BOOLEAN := TRUE;
371: l_rev_rec_req BOOLEAN := TRUE;
372: l_sum_dist NUMBER;
373: l_gl_account_source_old ar_receivables_trx.gl_account_source%TYPE;
374: l_tax_code_source_old ar_receivables_trx.tax_code_source%TYPE;
375: l_tax_recoverable_flag_old ar_receivables_trx.tax_recoverable_flag%TYPE;
376: l_process_ed_adj VARCHAR2(1) := 'N';
377: l_process_uned VARCHAR2(1) := 'N';
370: l_required BOOLEAN := TRUE;
371: l_rev_rec_req BOOLEAN := TRUE;
372: l_sum_dist NUMBER;
373: l_gl_account_source_old ar_receivables_trx.gl_account_source%TYPE;
374: l_tax_code_source_old ar_receivables_trx.tax_code_source%TYPE;
375: l_tax_recoverable_flag_old ar_receivables_trx.tax_recoverable_flag%TYPE;
376: l_process_ed_adj VARCHAR2(1) := 'N';
377: l_process_uned VARCHAR2(1) := 'N';
378: l_process_pay VARCHAR2(1) := 'N';
371: l_rev_rec_req BOOLEAN := TRUE;
372: l_sum_dist NUMBER;
373: l_gl_account_source_old ar_receivables_trx.gl_account_source%TYPE;
374: l_tax_code_source_old ar_receivables_trx.tax_code_source%TYPE;
375: l_tax_recoverable_flag_old ar_receivables_trx.tax_recoverable_flag%TYPE;
376: l_process_ed_adj VARCHAR2(1) := 'N';
377: l_process_uned VARCHAR2(1) := 'N';
378: l_process_pay VARCHAR2(1) := 'N';
379: l_le_id NUMBER;
1250: g_ae_alloc_rev_tbl ar_ae_alloc_rec_gt%ROWTYPE;
1251: g_ae_alloc_tax_tbl ar_ae_alloc_rec_gt%ROWTYPE;
1252: l_override1 VARCHAR2(1) := 'N';
1253: l_override2 VARCHAR2(1) := 'N';
1254: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
1255: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
1256: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
1257:
1258: CURSOR crevccid IS
1251: g_ae_alloc_tax_tbl ar_ae_alloc_rec_gt%ROWTYPE;
1252: l_override1 VARCHAR2(1) := 'N';
1253: l_override2 VARCHAR2(1) := 'N';
1254: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
1255: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
1256: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
1257:
1258: CURSOR crevccid IS
1259: SELECT decode(
1252: l_override1 VARCHAR2(1) := 'N';
1253: l_override2 VARCHAR2(1) := 'N';
1254: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
1255: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
1256: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
1257:
1258: CURSOR crevccid IS
1259: SELECT decode(
1260: max(decode(b.account_class,'REV',b.code_combination_id,0)), -- REV row gets priority
2829:
2830: l_link_ctr BINARY_INTEGER := 0; --Actual Tax link id counter
2831: l_link_ctr1 BINARY_INTEGER := 0; --In case earned and unearned require link id
2832:
2833: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
2834: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
2835: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
2836:
2837: cursor get_tax IS
2830: l_link_ctr BINARY_INTEGER := 0; --Actual Tax link id counter
2831: l_link_ctr1 BINARY_INTEGER := 0; --In case earned and unearned require link id
2832:
2833: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
2834: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
2835: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
2836:
2837: cursor get_tax IS
2838: select /*+ INDEX(ar_ae_alloc_rec_gt AR_AE_ALLOC_REC_GT_N3) */
2831: l_link_ctr1 BINARY_INTEGER := 0; --In case earned and unearned require link id
2832:
2833: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
2834: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
2835: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
2836:
2837: cursor get_tax IS
2838: select /*+ INDEX(ar_ae_alloc_rec_gt AR_AE_ALLOC_REC_GT_N3) */
2839: ae_link_to_cust_trx_line_id
3322: PROCEDURE Doc_Tax_Acct_Rule(p_type_acct IN VARCHAR2 ,
3323: p_app_rec IN ar_receivable_applications%ROWTYPE ,
3324: p_adj_rec IN ar_adjustments%ROWTYPE ) IS
3325:
3326: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
3327: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
3328: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
3329: l_rule_used VARCHAR2(3);
3330:
3323: p_app_rec IN ar_receivable_applications%ROWTYPE ,
3324: p_adj_rec IN ar_adjustments%ROWTYPE ) IS
3325:
3326: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
3327: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
3328: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
3329: l_rule_used VARCHAR2(3);
3330:
3331: BEGIN
3324: p_adj_rec IN ar_adjustments%ROWTYPE ) IS
3325:
3326: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
3327: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
3328: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
3329: l_rule_used VARCHAR2(3);
3330:
3331: BEGIN
3332:
3484: and nvl(tax_adjusted,0) <> 0
3485: and status = 'A'
3486: and customer_trx_id = p_cust_id);
3487:
3488: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
3489: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
3490: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
3491: l_customer_trx_id NUMBER;
3492:
3485: and status = 'A'
3486: and customer_trx_id = p_cust_id);
3487:
3488: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
3489: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
3490: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
3491: l_customer_trx_id NUMBER;
3492:
3493: BEGIN
3486: and customer_trx_id = p_cust_id);
3487:
3488: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
3489: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
3490: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
3491: l_customer_trx_id NUMBER;
3492:
3493: BEGIN
3494:
5321: | discounts or adjustments
5322: *==========================================================================*/
5323: PROCEDURE Set_Rev_Links(p_type_acct IN VARCHAR2) IS
5324:
5325: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
5326: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
5327: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
5328:
5329: BEGIN
5322: *==========================================================================*/
5323: PROCEDURE Set_Rev_Links(p_type_acct IN VARCHAR2) IS
5324:
5325: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
5326: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
5327: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
5328:
5329: BEGIN
5330:
5323: PROCEDURE Set_Rev_Links(p_type_acct IN VARCHAR2) IS
5324:
5325: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
5326: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
5327: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
5328:
5329: BEGIN
5330:
5331: IF PG_DEBUG in ('Y', 'C') THEN
5523: | accounting
5524: *==========================================================================*/
5525: PROCEDURE Build_Lines IS --(p_type_acct IN VARCHAR2) IS
5526:
5527: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
5528: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
5529: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
5530: l_ae_line_init_rec ar_ae_alloc_rec_gt%ROWTYPE ;
5531:
5524: *==========================================================================*/
5525: PROCEDURE Build_Lines IS --(p_type_acct IN VARCHAR2) IS
5526:
5527: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
5528: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
5529: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
5530: l_ae_line_init_rec ar_ae_alloc_rec_gt%ROWTYPE ;
5531:
5532: BEGIN
5525: PROCEDURE Build_Lines IS --(p_type_acct IN VARCHAR2) IS
5526:
5527: l_gl_account_source ar_receivables_trx.gl_account_source%TYPE ;
5528: l_tax_code_source ar_receivables_trx.tax_code_source%TYPE ;
5529: l_tax_recoverable_flag ar_receivables_trx.tax_recoverable_flag%TYPE ;
5530: l_ae_line_init_rec ar_ae_alloc_rec_gt%ROWTYPE ;
5531:
5532: BEGIN
5533:
5603: | p_ae_line_init_rec IN Initialization record contains details
5604: | for exchange rate, source table, id
5605: | common to all accounting entries
5606: *==========================================================================*/
5607: PROCEDURE Build_Rev(p_gl_account_source IN ar_receivables_trx.gl_account_source%TYPE ,
5608: p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
5609: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
5610: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE ) IS
5611:
5604: | for exchange rate, source table, id
5605: | common to all accounting entries
5606: *==========================================================================*/
5607: PROCEDURE Build_Rev(p_gl_account_source IN ar_receivables_trx.gl_account_source%TYPE ,
5608: p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
5609: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
5610: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE ) IS
5611:
5612: l_ae_line_rec ar_ae_alloc_rec_gt%ROWTYPE ;
5605: | common to all accounting entries
5606: *==========================================================================*/
5607: PROCEDURE Build_Rev(p_gl_account_source IN ar_receivables_trx.gl_account_source%TYPE ,
5608: p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
5609: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
5610: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE ) IS
5611:
5612: l_ae_line_rec ar_ae_alloc_rec_gt%ROWTYPE ;
5613: l_ctr BINARY_INTEGER ;
6112: | History
6113: | 21-NOV-2003 Herve Yu from_amount_dr , from_amount_cr
6114: | from_acctd_amount_dr, from_acctd_amount_cr
6115: *==========================================================================*/
6116: PROCEDURE Build_Tax(p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
6117: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
6118: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE ) IS
6119:
6120: l_ae_line_rec ar_ae_alloc_rec_gt%ROWTYPE ;
6113: | 21-NOV-2003 Herve Yu from_amount_dr , from_amount_cr
6114: | from_acctd_amount_dr, from_acctd_amount_cr
6115: *==========================================================================*/
6116: PROCEDURE Build_Tax(p_tax_code_source IN ar_receivables_trx.tax_code_source%TYPE ,
6117: p_tax_recoverable_flag IN ar_receivables_trx.tax_recoverable_flag%TYPE ,
6118: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE ) IS
6119:
6120: l_ae_line_rec ar_ae_alloc_rec_gt%ROWTYPE ;
6121: l_ae_line_rec_empty ar_ae_alloc_rec_gt%ROWTYPE ;
9385: null,
9386: 'ADJ_NON_REC',
9387: 'TAX_RATE'),
9388: rt.tax_recoverable_flag
9389: FROM ar_receivables_trx rt,
9390: zx_sco_rates tax
9391: WHERE rt.receivables_trx_id = p_receivables_trx_id
9392: AND rt.asset_tax_code = tax.tax_rate_code
9393: AND sysdate between nvl(tax.effective_from, sysdate) AND
9402: null,
9403: 'ADJ_NON_REC',
9404: 'TAX_RATE'),
9405: rt.tax_recoverable_flag
9406: FROM ar_receivables_trx rt,
9407: ar_rec_trx_le_details rtd,
9408: zx_sco_rates tax
9409: WHERE rt.receivables_trx_id = p_receivables_trx_id
9410: AND rtd.receivables_trx_id (+) = rt.receivables_trx_id