[Home] [Help]
24: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
25: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
26: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'AP.PLSQL.AP_ETAX_UTILITY_PKG.';
27:
28: -- This record type is used for ap_invoice_distributions_all and ap_self_assessed_tax_dist_all
29:
30: TYPE r_ins_tax_dist_info IS RECORD (
31: accounting_date ap_invoice_distributions_all.accounting_date%TYPE,
32: dist_code_combination_id ap_invoice_distributions_all.dist_code_combination_id%TYPE,
1994:
1995: l_dist_ccid_rec zx_api_pub.distccid_det_facts_rec_type;
1996: l_dist_count NUMBER;
1997:
1998: -- This record type is used for ap_invoice_distributions_all and ap_self_assessed_tax_dist_all
1999:
2000: TYPE r_upd_tax_dist_info IS RECORD (
2001: accounting_date ap_invoice_distributions_all.accounting_date%TYPE,
2002: dist_code_combination_id ap_invoice_distributions_all.dist_code_combination_id%TYPE,
3337: AND zd.trx_id = parent_taxable_dist.invoice_id(+)
3338: AND zd.trx_line_dist_id = parent_taxable_dist.invoice_distribution_id(+)
3339: AND NOT EXISTS
3340: (SELECT aid.detail_tax_dist_id
3341: FROM ap_self_assessed_tax_dist_all aid
3342: WHERE aid.invoice_id = ai.invoice_id
3343: AND aid.detail_tax_dist_id = zd.rec_nrec_tax_dist_id
3344: AND aid.line_type_lookup_code IN ('REC_TAX','NONREC_TAX'))
3345: -- Bug 7462582
3506: FROM zx_trx_headers_gt gt,
3507: zx_rec_nrec_dist zd,
3508: zx_lines zl,
3509: ap_invoices_all ai,
3510: ap_self_assessed_tax_dist_all aid,
3511: ap_supplier_sites_all pvs,
3512: ap_system_parameters_all asp,
3513: financials_system_params_all fsp,
3514: po_distributions_all pd,
3852: IF (l_inv_self_upd.COUNT <> 0) THEN
3853:
3854: FOR j IN l_inv_self_upd.FIRST..l_inv_self_upd.LAST LOOP
3855:
3856: UPDATE ap_self_assessed_tax_dist_all
3857: SET accounting_date = l_inv_self_upd(j).accounting_date,
3858: last_updated_by = l_user_id,
3859: last_update_date = l_sysdate,
3860: line_type_lookup_code = l_inv_self_upd(j).line_type_lookup_code,
4267: and l_inv_self_ins(i).parent_dist_parent_reversal_id IS NOT NULL)) THEN
4268:
4269: SELECT dist_code_combination_id
4270: INTO l_dist_code_combination_id
4271: FROM ap_self_assessed_tax_dist_all
4272: WHERE detail_tax_dist_id = l_inv_self_ins(i).reversed_tax_dist_id;
4273:
4274: ELSIF (l_inv_self_ins(i).corrected_invoice_dist_id IS NOT NULL) THEN
4275:
4274: ELSIF (l_inv_self_ins(i).corrected_invoice_dist_id IS NOT NULL) THEN
4275:
4276: SELECT dist_code_combination_id
4277: INTO l_dist_code_combination_id
4278: FROM ap_self_assessed_tax_dist_all
4279: WHERE detail_tax_dist_id = l_inv_self_ins(i).adjusted_doc_tax_dist_id;
4280:
4281: ELSIF (l_inv_self_ins(i).applied_from_tax_dist_id IS NOT NULL) THEN
4282:
4355: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4356: END IF;
4357:
4358: BEGIN
4359: INSERT INTO ap_self_assessed_tax_dist_all (
4360: accounting_date,
4361: accrual_posted_flag,
4362: assets_addition_flag,
4363: assets_tracking_flag,
4757: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4758: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4759: END IF;
4760:
4761: DELETE FROM ap_self_assessed_tax_dist_all aid
4762: WHERE aid.invoice_distribution_id IN
4763: (SELECT /*+ leading(gt) cardinality(gt,1) */
4764: dist.invoice_distribution_id
4765: FROM zx_trx_headers_gt gt,
4762: WHERE aid.invoice_distribution_id IN
4763: (SELECT /*+ leading(gt) cardinality(gt,1) */
4764: dist.invoice_distribution_id
4765: FROM zx_trx_headers_gt gt,
4766: ap_self_assessed_tax_dist_all dist
4767: WHERE gt.application_id = AP_ETAX_PKG.AP_APPLICATION_ID
4768: AND gt.entity_code = AP_ETAX_PKG.AP_ENTITY_CODE
4769: AND gt.event_class_code IN (AP_ETAX_PKG.AP_INV_EVENT_CLASS_CODE,
4770: AP_ETAX_PKG.AP_PP_EVENT_CLASS_CODE,
7667: BEGIN
7668:
7669: SELECT nvl(max(distribution_line_number),0)
7670: INTO l_max_dist_line_num
7671: FROM ap_self_assessed_tax_dist_all
7672: WHERE invoice_id = X_invoice_id
7673: AND invoice_line_number = X_line_number;
7674:
7675: RETURN(l_max_dist_line_num);