[Home] [Help]
251: l_debug_info VARCHAR2(240);
252: l_curr_calling_sequence VARCHAR2(4000);
253:
254: l_inv_header_rec ap_invoices_all%ROWTYPE;
255: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
256: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
257:
258: l_tax_already_calculated VARCHAR2(1);
259:
252: l_curr_calling_sequence VARCHAR2(4000);
253:
254: l_inv_header_rec ap_invoices_all%ROWTYPE;
255: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
256: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
257:
258: l_tax_already_calculated VARCHAR2(1);
259:
260: l_return_status_service VARCHAR2(4000);
310: l_validation_request_id ap_invoices_all.validation_request_id%TYPE;
311:
312: CURSOR c_selected_invoices IS
313: SELECT trx_id, event_class_code
314: FROM zx_trx_headers_gt
315: WHERE application_id = ap_etax_pkg.ap_application_id
316: AND entity_code = ap_etax_pkg.ap_entity_code
317: AND event_class_code IN (ap_etax_pkg.ap_inv_event_class_code,
318: ap_etax_pkg.ap_pp_event_class_code,
360: /* Added the following 3 hints for bug#8263883 */
361: UPDATE /*+ index(ail,AP_INVOICE_LINES_U1) */ ap_invoice_lines_all ail
362: SET tax_already_calculated_flag = NULL
363: WHERE ail.invoice_id IN (SELECT /*+ cardinality(gt 10) unnest */ DISTINCT(trx_id)
364: FROM zx_trx_headers_gt gt
365: WHERE application_id = 200
366: AND entity_code = 'AP_INVOICES')
367: AND NVL(ail.tax_already_calculated_flag, 'N') = 'Y'
368: AND NVL(ail.historical_flag, 'N') = 'N' --bug14671024
393: --Bug 6922266 End
394:
395: ELSE
396:
397: DELETE FROM ZX_TRX_HEADERS_GT;
398:
399: -----------------------------------------------------------------
400: l_debug_info := 'Populating invoice header local record';
401: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
937: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
938: END IF;
939: --Print(l_api_name,l_debug_info);
940: -----------------------------------------------------------------
941: DELETE FROM zx_trx_headers_gt
942: WHERE application_id = AP_ETAX_PKG.AP_APPLICATION_ID
943: AND entity_code = AP_ETAX_PKG.AP_ENTITY_CODE
944: AND event_class_code IN
945: (AP_ETAX_PKG.AP_INV_EVENT_CLASS_CODE,
1180: FROM ap_invoice_lines_all
1181: WHERE invoice_id = c_invoice_id
1182: AND line_type_lookup_code NOT IN ('TAX', 'AWT');
1183:
1184: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
1185: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
1186:
1187: l_api_name CONSTANT VARCHAR2(100) := 'Calculate_Import';
1188:
1181: WHERE invoice_id = c_invoice_id
1182: AND line_type_lookup_code NOT IN ('TAX', 'AWT');
1183:
1184: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
1185: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
1186:
1187: l_api_name CONSTANT VARCHAR2(100) := 'Calculate_Import';
1188:
1189: BEGIN
1214: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1215: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1216: END IF;
1217: -----------------------------------------------------------------
1218: DELETE FROM ZX_TRX_HEADERS_GT;
1219: DELETE FROM ZX_TRANSACTION_LINES_GT;
1220: DELETE FROM ZX_IMPORT_TAX_LINES_GT;
1221: DELETE FROM ZX_TRX_TAX_LINK_GT;
1222:
1227: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1228: END IF;
1229: --Print(l_api_name, l_debug_info);
1230: -----------------------------------------------------------------
1231: UPDATE zx_trx_headers_gt
1232: SET trx_id = P_Invoice_Id
1233: WHERE application_id = AP_ETAX_PKG.AP_APPLICATION_ID
1234: AND entity_code = AP_ETAX_PKG.AP_ENTITY_CODE
1235: AND event_class_code IN (AP_ETAX_PKG.AP_INV_EVENT_CLASS_CODE,
1254: AND ail.line_type_lookup_code NOT IN ('TAX', 'AWT')
1255: AND NVL(ail.tax_already_calculated_flag, 'N') = 'Y';
1256:
1257: -- 1. validate_default_import is called during import. This populates
1258: -- zx_trx_headers_gt and zx_transaction_lines_gt for validation of
1259: -- the taxable lines.
1260: -- 2. During import of invoices matched to complex work purchase orders,
1261: -- matching will recoup prepayments and calculate tax on it. This
1262: -- would have purged zx_trx_headers_gt and zx_transaction_lines_gt.
1258: -- zx_trx_headers_gt and zx_transaction_lines_gt for validation of
1259: -- the taxable lines.
1260: -- 2. During import of invoices matched to complex work purchase orders,
1261: -- matching will recoup prepayments and calculate tax on it. This
1262: -- would have purged zx_trx_headers_gt and zx_transaction_lines_gt.
1263: -- 3. In this case, the staging table will need to repopulated.
1264: -- Parameter P_eTax_Already_called_flag must be passed as 'Y'
1265: -- to ensure document level event type is passed to eTax
1266: -- as 'STANDARD UPDATED'.
1515: l_curr_calling_sequence VARCHAR2(4000);
1516: l_api_name CONSTANT VARCHAR2(100) := 'Distribute';
1517:
1518: l_inv_header_rec ap_invoices_all%ROWTYPE;
1519: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
1520: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
1521:
1522: l_return_status_service VARCHAR2(4000);
1523: l_msg_count NUMBER;
1516: l_api_name CONSTANT VARCHAR2(100) := 'Distribute';
1517:
1518: l_inv_header_rec ap_invoices_all%ROWTYPE;
1519: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
1520: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
1521:
1522: l_return_status_service VARCHAR2(4000);
1523: l_msg_count NUMBER;
1524: l_msg_data VARCHAR2(4000);
1660:
1661:
1662: CURSOR c_selected_invoices IS
1663: SELECT trx_id, event_class_code
1664: FROM zx_trx_headers_gt
1665: WHERE application_id = ap_etax_pkg.ap_application_id
1666: AND entity_code = ap_etax_pkg.ap_entity_code
1667: AND event_class_code IN (ap_etax_pkg.ap_inv_event_class_code,
1668: ap_etax_pkg.ap_pp_event_class_code,
1715: IF P_Invoice_id IS NOT NULL THEN
1716:
1717: --Bug9436217
1718:
1719: DELETE FROM ZX_TRX_HEADERS_GT;
1720:
1721: -----------------------------------------------------------------
1722: l_debug_info := 'Populate invoice header local record';
1723: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1831: AND zd.trx_id = aid2.invoice_id
1832: AND zd.rec_nrec_tax_dist_id = aid2.detail_tax_dist_id
1833: AND Nvl(zd.inclusive_flag, 'N') = 'Y'))
1834: WHERE aid1.invoice_id IN (SELECT /*+ cardinality(gt 10) unnest */ DISTINCT(trx_id)
1835: FROM zx_trx_headers_gt gt
1836: WHERE application_id = 200
1837: AND entity_code = 'AP_INVOICES'
1838: AND event_class_code IN ('STANDARD INVOICES','EXPENSE REPORTS','PREPAYMENT INVOICES'))
1839: AND aid1.line_type_lookup_code IN ('ITEM', 'ACCRUAL', 'FREIGHT', 'MISCELLANEOUS') --bug9314506
1948: --Bug13632623 : DELETE INVOICE HEADERS DATA FROM GT WHERE NO APPLICABLE DISTS FOR PROCESSING EXIST
1949:
1950: IF l_inv_dist_list.count = 0 AND NOT TAX_ONLY_LINE_EXIST(l_inv_header_rec.invoice_id) THEN
1951:
1952: DELETE FROM zx_trx_headers_gt
1953: WHERE application_id = AP_ETAX_PKG.AP_APPLICATION_ID
1954: AND entity_code = AP_ETAX_PKG.AP_ENTITY_CODE
1955: AND event_class_code IN (AP_ETAX_PKG.AP_INV_EVENT_CLASS_CODE,
1956: AP_ETAX_PKG.AP_PP_EVENT_CLASS_CODE,
1957: AP_ETAX_PKG.AP_ER_EVENT_CLASS_CODE)
1958: AND trx_id = l_inv_header_rec.invoice_id;
1959:
1960: -----------------------------------------------------------------
1961: l_debug_info := 'DELETE INV ID '||l_inv_header_rec.invoice_id||' FROM zx_trx_headers_gt';
1962: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1963: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1964: END IF;
1965: -----------------------------------------------------------------
2215:
2216: l_debug_info VARCHAR2(240);
2217: l_curr_calling_sequence VARCHAR2(4000);
2218: l_event_class_code
2219: zx_trx_headers_gt.event_class_code%TYPE;
2220: l_event_type_code
2221: zx_trx_headers_gt.event_type_code%TYPE;
2222:
2223: l_return_status_service VARCHAR2(4000);
2217: l_curr_calling_sequence VARCHAR2(4000);
2218: l_event_class_code
2219: zx_trx_headers_gt.event_class_code%TYPE;
2220: l_event_type_code
2221: zx_trx_headers_gt.event_type_code%TYPE;
2222:
2223: l_return_status_service VARCHAR2(4000);
2224: l_msg_count NUMBER;
2225: l_msg_data VARCHAR2(4000);
2406: l_msg_count NUMBER;
2407: l_msg_data VARCHAR2(4000);
2408: l_msg VARCHAR2(4000);
2409:
2410: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
2411: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
2412:
2413: l_return_status BOOLEAN := TRUE;
2414: l_inv_header_rec ap_invoices_all%ROWTYPE;
2407: l_msg_data VARCHAR2(4000);
2408: l_msg VARCHAR2(4000);
2409:
2410: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
2411: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
2412:
2413: l_return_status BOOLEAN := TRUE;
2414: l_inv_header_rec ap_invoices_all%ROWTYPE;
2415: l_api_name varchar2(30) := 'Import_Interface';
2453: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2454: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2455: END IF;
2456: -----------------------------------------------------------------
2457: DELETE FROM ZX_TRX_HEADERS_GT;
2458: DELETE FROM ZX_TRANSACTION_LINES_GT;
2459: DELETE FROM ZX_IMPORT_TAX_LINES_GT;
2460: DELETE FROM ZX_TRX_TAX_LINK_GT;
2461:
2468: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2469: END IF;
2470: -----------------------------------------------------------------
2471: BEGIN
2472: UPDATE zx_trx_headers_gt
2473: SET trx_id = P_Invoice_Id
2474: WHERE application_id = AP_ETAX_PKG.AP_APPLICATION_ID
2475: AND entity_code = AP_ETAX_PKG.AP_ENTITY_CODE
2476: AND event_class_code IN (AP_ETAX_PKG.AP_INV_EVENT_CLASS_CODE,
2760:
2761: l_inv_header_rec ap_invoices_all%ROWTYPE;
2762: l_credited_inv_rec ap_invoices_all%ROWTYPE;
2763:
2764: l_event_class_code_crediting zx_trx_headers_gt.event_class_code%TYPE;
2765: l_event_class_code_credited zx_trx_headers_gt.event_class_code%TYPE;
2766:
2767: l_tax_already_distributed VARCHAR2(1);
2768: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
2761: l_inv_header_rec ap_invoices_all%ROWTYPE;
2762: l_credited_inv_rec ap_invoices_all%ROWTYPE;
2763:
2764: l_event_class_code_crediting zx_trx_headers_gt.event_class_code%TYPE;
2765: l_event_class_code_credited zx_trx_headers_gt.event_class_code%TYPE;
2766:
2767: l_tax_already_distributed VARCHAR2(1);
2768: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
2769: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
2764: l_event_class_code_crediting zx_trx_headers_gt.event_class_code%TYPE;
2765: l_event_class_code_credited zx_trx_headers_gt.event_class_code%TYPE;
2766:
2767: l_tax_already_distributed VARCHAR2(1);
2768: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
2769: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
2770:
2771: CURSOR Crediting_Inv_Header IS
2772: SELECT *
2765: l_event_class_code_credited zx_trx_headers_gt.event_class_code%TYPE;
2766:
2767: l_tax_already_distributed VARCHAR2(1);
2768: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
2769: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
2770:
2771: CURSOR Crediting_Inv_Header IS
2772: SELECT *
2773: FROM ap_invoices_all
3015: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3016: END IF;
3017: -----------------------------------------------------------------
3018:
3019: -- Tax distributions insert works off of zx_trx_headers_gt. Since
3020: -- reverse_document_distribution does not require this table to be
3021: -- populated, we are using this as a proxy to avoid maintaining two
3022: -- code lines.
3023: -------------------------------------------------------------------
3154: l_curr_calling_sequence VARCHAR2(4000);
3155:
3156: l_inv_header_rec ap_invoices_all%ROWTYPE;
3157: l_invoice_id ap_invoices_all.invoice_id%TYPE; --Bug14779241
3158: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
3159: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
3160: l_transaction_rec zx_api_pub.transaction_rec_type;
3161:
3162: CURSOR Invoice_Header IS
3155:
3156: l_inv_header_rec ap_invoices_all%ROWTYPE;
3157: l_invoice_id ap_invoices_all.invoice_id%TYPE; --Bug14779241
3158: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
3159: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
3160: l_transaction_rec zx_api_pub.transaction_rec_type;
3161:
3162: CURSOR Invoice_Header IS
3163: SELECT *
3671: l_debug_info VARCHAR2(240);
3672: l_curr_calling_sequence VARCHAR2(4000);
3673:
3674: l_inv_header_rec ap_invoices_all%ROWTYPE;
3675: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
3676: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
3677:
3678: CURSOR Invoice_Header IS
3679: SELECT *
3672: l_curr_calling_sequence VARCHAR2(4000);
3673:
3674: l_inv_header_rec ap_invoices_all%ROWTYPE;
3675: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
3676: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
3677:
3678: CURSOR Invoice_Header IS
3679: SELECT *
3680: FROM ap_invoices_all
3919: l_debug_info VARCHAR2(240);
3920: l_curr_calling_sequence VARCHAR2(4000);
3921: l_transaction_rec zx_api_pub.transaction_rec_type;
3922:
3923: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
3924:
3925: CURSOR itm_Dist IS
3926: SELECT encumbered_flag,
3927: reversal_flag,
4346: l_debug_info VARCHAR2(240);
4347: l_curr_calling_sequence VARCHAR2(4000);
4348: l_transaction_rec zx_api_pub.transaction_rec_type;
4349:
4350: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
4351:
4352: CURSOR Tax_Dist IS
4353: (SELECT encumbered_flag,
4354: reversal_flag,
4840: l_debug_info VARCHAR2(240);
4841: l_curr_calling_sequence VARCHAR2(4000);
4842:
4843: l_inv_header_rec ap_invoices_all%ROWTYPE;
4844: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
4845: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
4846:
4847: CURSOR Invoice_Header IS
4848: SELECT *
4841: l_curr_calling_sequence VARCHAR2(4000);
4842:
4843: l_inv_header_rec ap_invoices_all%ROWTYPE;
4844: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
4845: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
4846:
4847: CURSOR Invoice_Header IS
4848: SELECT *
4849: FROM ap_invoices_all
4966: l_debug_info VARCHAR2(240);
4967: l_curr_calling_sequence VARCHAR2(4000);
4968:
4969: l_inv_header_rec ap_invoices_all%ROWTYPE;
4970: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
4971: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
4972:
4973: CURSOR Invoice_Header IS
4974: SELECT *
4967: l_curr_calling_sequence VARCHAR2(4000);
4968:
4969: l_inv_header_rec ap_invoices_all%ROWTYPE;
4970: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
4971: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
4972:
4973: CURSOR Invoice_Header IS
4974: SELECT *
4975: FROM ap_invoices_all
5194: l_curr_calling_sequence VARCHAR2(4000);
5195: --Bug8604959: Added debug logging
5196: l_api_name VARCHAR2(30) := 'Mark_Tax_Lines_Deleted';
5197: l_inv_header_rec ap_invoices_all%ROWTYPE;
5198: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
5199: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
5200:
5201: CURSOR Invoice_Header IS
5202: SELECT *
5195: --Bug8604959: Added debug logging
5196: l_api_name VARCHAR2(30) := 'Mark_Tax_Lines_Deleted';
5197: l_inv_header_rec ap_invoices_all%ROWTYPE;
5198: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
5199: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
5200:
5201: CURSOR Invoice_Header IS
5202: SELECT *
5203: FROM ap_invoices_all
5469: l_debug_info VARCHAR2(240);
5470: l_curr_calling_sequence VARCHAR2(4000);
5471:
5472: l_inv_header_rec ap_invoices_all%ROWTYPE;
5473: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
5474: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
5475:
5476: CURSOR Invoice_Header IS
5477: SELECT *
5470: l_curr_calling_sequence VARCHAR2(4000);
5471:
5472: l_inv_header_rec ap_invoices_all%ROWTYPE;
5473: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
5474: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
5475:
5476: CURSOR Invoice_Header IS
5477: SELECT *
5478: FROM ap_invoices_all
5805: l_debug_info VARCHAR2(240);
5806: l_curr_calling_sequence VARCHAR2(4000);
5807:
5808: l_event_class_code
5809: zx_trx_headers_gt.event_class_code%TYPE;
5810: l_event_type_code
5811: zx_trx_headers_gt.event_type_code%TYPE;
5812:
5813: l_return_status_service VARCHAR2(4000);
5807:
5808: l_event_class_code
5809: zx_trx_headers_gt.event_class_code%TYPE;
5810: l_event_type_code
5811: zx_trx_headers_gt.event_type_code%TYPE;
5812:
5813: l_return_status_service VARCHAR2(4000);
5814: l_msg_count NUMBER;
5815: l_msg_data VARCHAR2(4000);
6038: | FUNCTION - Populate_Headers_GT()
6039: |
6040: | DESCRIPTION
6041: | This function will get additional information required to populate the
6042: | zx_trx_headers_gt
6043: | This function returns TRUE if the insert to the temp table goes
6044: | through successfully. Otherwise, FALSE.
6045: |
6046: | PARAMETERS
6071:
6072: l_debug_info VARCHAR2(240);
6073: l_curr_calling_sequence VARCHAR2(4000);
6074:
6075: l_application_id zx_trx_headers_gt.application_id%TYPE;
6076: l_entity_code zx_trx_headers_gt.entity_code%TYPE;
6077:
6078: l_quote_flag zx_trx_headers_gt.quote_flag%TYPE := 'N';
6079: -- This flag is always N except when the calculate service is called for
6072: l_debug_info VARCHAR2(240);
6073: l_curr_calling_sequence VARCHAR2(4000);
6074:
6075: l_application_id zx_trx_headers_gt.application_id%TYPE;
6076: l_entity_code zx_trx_headers_gt.entity_code%TYPE;
6077:
6078: l_quote_flag zx_trx_headers_gt.quote_flag%TYPE := 'N';
6079: -- This flag is always N except when the calculate service is called for
6080: -- quote for the recurring invoices and distributions sets.
6074:
6075: l_application_id zx_trx_headers_gt.application_id%TYPE;
6076: l_entity_code zx_trx_headers_gt.entity_code%TYPE;
6077:
6078: l_quote_flag zx_trx_headers_gt.quote_flag%TYPE := 'N';
6079: -- This flag is always N except when the calculate service is called for
6080: -- quote for the recurring invoices and distributions sets.
6081:
6082: CURSOR tax_related_invoice( c_tax_related_invoice_id IN NUMBER) IS
6085: FROM ap_invoices_all
6086: WHERE invoice_id = c_tax_related_invoice_id;
6087:
6088: l_related_inv_application_id
6089: zx_trx_headers_gt.related_doc_application_id%TYPE;
6090: l_related_inv_entity_code
6091: zx_trx_headers_gt.related_doc_entity_code%TYPE;
6092: l_related_event_class_code
6093: zx_trx_headers_gt.related_doc_event_class_code%TYPE;
6087:
6088: l_related_inv_application_id
6089: zx_trx_headers_gt.related_doc_application_id%TYPE;
6090: l_related_inv_entity_code
6091: zx_trx_headers_gt.related_doc_entity_code%TYPE;
6092: l_related_event_class_code
6093: zx_trx_headers_gt.related_doc_event_class_code%TYPE;
6094: l_related_inv_number ap_invoices_all.invoice_num%TYPE;
6095: l_related_inv_date ap_invoices_all.invoice_date%TYPE;
6089: zx_trx_headers_gt.related_doc_application_id%TYPE;
6090: l_related_inv_entity_code
6091: zx_trx_headers_gt.related_doc_entity_code%TYPE;
6092: l_related_event_class_code
6093: zx_trx_headers_gt.related_doc_event_class_code%TYPE;
6094: l_related_inv_number ap_invoices_all.invoice_num%TYPE;
6095: l_related_inv_date ap_invoices_all.invoice_date%TYPE;
6096: l_related_inv_type ap_invoices_all.invoice_type_lookup_code%TYPE;
6097:
6244: END;
6245: END IF;
6246:
6247: -------------------------------------------------------------------
6248: l_debug_info := 'Step 9: Populate zx_trx_headers_gt';
6249: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6250: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6251: END IF;
6252: -------------------------------------------------------------------
6251: END IF;
6252: -------------------------------------------------------------------
6253: IF (l_return_status = TRUE) THEN
6254:
6255: DELETE FROM zx_trx_headers_gt
6256: WHERE application_id = AP_ETAX_PKG.AP_APPLICATION_ID
6257: AND entity_code = AP_ETAX_PKG.AP_ENTITY_CODE
6258: AND event_class_code IN (AP_ETAX_PKG.AP_INV_EVENT_CLASS_CODE,
6259: AP_ETAX_PKG.AP_PP_EVENT_CLASS_CODE,
6259: AP_ETAX_PKG.AP_PP_EVENT_CLASS_CODE,
6260: AP_ETAX_PKG.AP_ER_EVENT_CLASS_CODE)
6261: AND trx_id = p_invoice_header_rec.invoice_id;
6262:
6263: INSERT INTO zx_trx_headers_gt(
6264: internal_organization_id,
6265: internal_org_location_id,
6266: application_id,
6267: entity_code,
6431: g_invoices_to_process := sql%rowcount;
6432:
6433: -- Added log messages for bug 6321366
6434: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6435: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'zx_trx_headers_gt values ');
6436: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Application_id: '|| l_application_id);
6437: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Entity_code: ' || l_entity_code);
6438: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'event_class_code: ' || P_event_class_code);
6439: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'event_type_code: ' ||P_event_type_code);
6470: | FUNCTION - Populate_Header_Import_GT()
6471: |
6472: | DESCRIPTION
6473: | This function will get additional information required to populate the
6474: | zx_trx_headers_gt from the import array structure.
6475: | This function returns TRUE if the insert to the temp table goes
6476: | through successfully. Otherwise, FALSE.
6477: |
6478: | PARAMETERS
6499:
6500: l_debug_info VARCHAR2(240);
6501: l_curr_calling_sequence VARCHAR2(4000);
6502:
6503: l_application_id zx_trx_headers_gt.application_id%TYPE;
6504: l_entity_code zx_trx_headers_gt.entity_code%TYPE;
6505:
6506: l_quote_flag zx_trx_headers_gt.quote_flag%TYPE
6507: := 'N';
6500: l_debug_info VARCHAR2(240);
6501: l_curr_calling_sequence VARCHAR2(4000);
6502:
6503: l_application_id zx_trx_headers_gt.application_id%TYPE;
6504: l_entity_code zx_trx_headers_gt.entity_code%TYPE;
6505:
6506: l_quote_flag zx_trx_headers_gt.quote_flag%TYPE
6507: := 'N';
6508: -- This flag is always N except when the calculate service is called for
6502:
6503: l_application_id zx_trx_headers_gt.application_id%TYPE;
6504: l_entity_code zx_trx_headers_gt.entity_code%TYPE;
6505:
6506: l_quote_flag zx_trx_headers_gt.quote_flag%TYPE
6507: := 'N';
6508: -- This flag is always N except when the calculate service is called for
6509: -- quote for the recurring invoices and distributions sets.
6510:
6514: FROM ap_invoices_all
6515: WHERE invoice_id = c_tax_related_invoice_id;
6516:
6517: l_related_inv_application_id
6518: zx_trx_headers_gt.related_doc_application_id%TYPE;
6519: l_related_inv_entity_code
6520: zx_trx_headers_gt.related_doc_entity_code%TYPE;
6521: l_related_event_class_code
6522: zx_trx_headers_gt.related_doc_event_class_code%TYPE;
6516:
6517: l_related_inv_application_id
6518: zx_trx_headers_gt.related_doc_application_id%TYPE;
6519: l_related_inv_entity_code
6520: zx_trx_headers_gt.related_doc_entity_code%TYPE;
6521: l_related_event_class_code
6522: zx_trx_headers_gt.related_doc_event_class_code%TYPE;
6523: l_related_inv_number ap_invoices_all.invoice_num%TYPE;
6524: l_related_inv_date ap_invoices_all.invoice_date%TYPE;
6518: zx_trx_headers_gt.related_doc_application_id%TYPE;
6519: l_related_inv_entity_code
6520: zx_trx_headers_gt.related_doc_entity_code%TYPE;
6521: l_related_event_class_code
6522: zx_trx_headers_gt.related_doc_event_class_code%TYPE;
6523: l_related_inv_number ap_invoices_all.invoice_num%TYPE;
6524: l_related_inv_date ap_invoices_all.invoice_date%TYPE;
6525: l_related_inv_type ap_invoices_all.invoice_type_lookup_code%TYPE;
6526:
6648: END;
6649: END IF;
6650:
6651: -------------------------------------------------------------------
6652: l_debug_info := 'Step 8: Populate zx_trx_headers_gt';
6653: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6654: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6655: END IF;
6656: -------------------------------------------------------------------
6655: END IF;
6656: -------------------------------------------------------------------
6657: IF (l_return_status = TRUE) THEN
6658:
6659: DELETE FROM zx_trx_headers_gt
6660: WHERE application_id = AP_ETAX_PKG.AP_APPLICATION_ID
6661: AND entity_code = AP_ETAX_PKG.AP_ENTITY_CODE
6662: AND event_class_code IN (AP_ETAX_PKG.AP_INV_EVENT_CLASS_CODE,
6663: AP_ETAX_PKG.AP_PP_EVENT_CLASS_CODE,
6663: AP_ETAX_PKG.AP_PP_EVENT_CLASS_CODE,
6664: AP_ETAX_PKG.AP_ER_EVENT_CLASS_CODE)
6665: AND trx_id = p_invoice_header_rec.invoice_id;
6666:
6667: INSERT INTO zx_trx_headers_gt(
6668: internal_organization_id,
6669: internal_org_location_id,
6670: application_id,
6671: entity_code,
6826: p_invoice_header_rec.vendor_site_id --ship_third_pty_acct_site_id
6827: );
6828: --Log messages added for bug 6321366
6829: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6830: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'zx_trx_headers_gt values ');
6831: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Application_id: '|| l_application_id);
6832: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Entity_code: ' || l_entity_code);
6833: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'event_class_code: ' || P_event_class_code);
6834: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'event_type_code: ' ||P_event_type_code);
6903: -- in eTax global temporary table.
6904: TYPE Trans_Lines_Tab_Type IS TABLE OF zx_transaction_lines_gt%ROWTYPE;
6905: trans_lines Trans_Lines_Tab_Type := Trans_Lines_Tab_Type();
6906:
6907: l_application_id zx_trx_headers_gt.application_id%TYPE;
6908: l_ctrl_hdr_tx_appl_flag zx_transaction_lines_gt.ctrl_hdr_tx_appl_flag%TYPE;
6909: l_line_level_action zx_transaction_lines_gt.line_level_action%TYPE;
6910: l_line_class zx_transaction_lines_gt.line_class%TYPE;
6911: l_line_amt_includes_tax_flag zx_transaction_lines_gt.line_amt_includes_tax_flag%TYPE;
11841: l_curr_calling_sequence VARCHAR2(4000);
11842:
11843: l_tax_already_calculated VARCHAR2(1);
11844:
11845: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
11846: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
11847:
11848: l_location_id zx_transaction_lines_gt.ship_from_location_id%type;
11849: l_bill_to_location_id zx_transaction_lines_gt.bill_to_location_id%TYPE;
11842:
11843: l_tax_already_calculated VARCHAR2(1);
11844:
11845: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
11846: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
11847:
11848: l_location_id zx_transaction_lines_gt.ship_from_location_id%type;
11849: l_bill_to_location_id zx_transaction_lines_gt.bill_to_location_id%TYPE;
11850: l_fob_point po_vendor_sites_all.fob_lookup_code%TYPE;
12281: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12282: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
12283: END IF;
12284: -----------------------------------------------------------------
12285: BEGIN DELETE zx_trx_headers_gt;
12286: EXCEPTION WHEN NO_DATA_FOUND THEN null;
12287: END;
12288:
12289: BEGIN DELETE zx_transaction_lines_gt;
13396:
13397: l_tax_already_calculated VARCHAR2(1) :='N';
13398:
13399: l_inv_header_rec ap_invoices_all%ROWTYPE;
13400: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
13401: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
13402:
13403: l_transaction_rec zx_api_pub.transaction_rec_type;
13404:
13397: l_tax_already_calculated VARCHAR2(1) :='N';
13398:
13399: l_inv_header_rec ap_invoices_all%ROWTYPE;
13400: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
13401: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
13402:
13403: l_transaction_rec zx_api_pub.transaction_rec_type;
13404:
13405: l_msg VARCHAR2(4000);
15905: AND invDist.invoice_id = p_invoice_id
15906: AND invDist.invoice_line_number = p_invoice_line_number;
15907:
15908: l_inv_header_rec ap_invoices_all%ROWTYPE;
15909: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
15910: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
15911:
15912: l_tax_already_calculated VARCHAR2(1);
15913:
15906: AND invDist.invoice_line_number = p_invoice_line_number;
15907:
15908: l_inv_header_rec ap_invoices_all%ROWTYPE;
15909: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
15910: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
15911:
15912: l_tax_already_calculated VARCHAR2(1);
15913:
15914: l_debug_info VARCHAR2(240);
16111: END IF;
16112: END IF;
16113: END IF;
16114:
16115: DELETE FROM ZX_TRX_HEADERS_GT;
16116: DELETE FROM ZX_TRANSACTION_LINES_GT;
16117:
16118: RETURN l_return_status;
16119:
16133: ' P_Invoice_Id = '||P_Invoice_Id);
16134: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
16135: END IF;
16136:
16137: DELETE FROM ZX_TRX_HEADERS_GT;
16138: DELETE FROM ZX_TRANSACTION_LINES_GT;
16139:
16140: APP_EXCEPTION.RAISE_EXCEPTION;
16141:
16151: -- Removed the cursor for the bug 9749258
16152:
16153:
16154: l_invoice_header_rec ap_invoices_all%rowtype;
16155: l_application_id zx_trx_headers_gt.application_id%TYPE;
16156: l_entity_code zx_trx_headers_gt.entity_code%TYPE;
16157: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
16158: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
16159: l_tax_already_calculated VARCHAR2(1);
16152:
16153:
16154: l_invoice_header_rec ap_invoices_all%rowtype;
16155: l_application_id zx_trx_headers_gt.application_id%TYPE;
16156: l_entity_code zx_trx_headers_gt.entity_code%TYPE;
16157: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
16158: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
16159: l_tax_already_calculated VARCHAR2(1);
16160:
16153:
16154: l_invoice_header_rec ap_invoices_all%rowtype;
16155: l_application_id zx_trx_headers_gt.application_id%TYPE;
16156: l_entity_code zx_trx_headers_gt.entity_code%TYPE;
16157: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
16158: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
16159: l_tax_already_calculated VARCHAR2(1);
16160:
16161: l_debug_info VARCHAR2(240);
16154: l_invoice_header_rec ap_invoices_all%rowtype;
16155: l_application_id zx_trx_headers_gt.application_id%TYPE;
16156: l_entity_code zx_trx_headers_gt.entity_code%TYPE;
16157: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
16158: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
16159: l_tax_already_calculated VARCHAR2(1);
16160:
16161: l_debug_info VARCHAR2(240);
16162: l_curr_calling_sequence VARCHAR2(4000);
16560: l_debug_info VARCHAR2(240);
16561: l_curr_calling_sequence VARCHAR2(4000);
16562:
16563: l_inv_header_rec ap_invoices_all%ROWTYPE;
16564: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
16565: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
16566:
16567: l_tax_already_calculated VARCHAR2(1);
16568:
16561: l_curr_calling_sequence VARCHAR2(4000);
16562:
16563: l_inv_header_rec ap_invoices_all%ROWTYPE;
16564: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
16565: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
16566:
16567: l_tax_already_calculated VARCHAR2(1);
16568:
16569: l_return_status_service VARCHAR2(4000);
17162: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17163: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Bulk_Populate_Headers_GT (+)');
17164: END IF;
17165:
17166: DELETE FROM zx_trx_headers_gt;
17167:
17168: INSERT INTO zx_trx_headers_gt(
17169: internal_organization_id,
17170: application_id,
17164: END IF;
17165:
17166: DELETE FROM zx_trx_headers_gt;
17167:
17168: INSERT INTO zx_trx_headers_gt(
17169: internal_organization_id,
17170: application_id,
17171: entity_code,
17172: event_class_code,
17355: -- calculate_tax and determine_recovery.
17356:
17357: g_invoices_to_process := sql%rowcount;
17358: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17359: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Rows inserted in zx_trx_headers_gt '||g_invoices_to_process);
17360: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Bulk_Populate_Headers_GT (-)');
17361: END IF;
17362: --Print(l_api_name, 'Rows inserted in zx_trx_headers_gt '||g_invoices_to_process);
17363: --Print(l_api_name, 'Bulk_Populate_Headers_GT (-)');
17358: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17359: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Rows inserted in zx_trx_headers_gt '||g_invoices_to_process);
17360: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Bulk_Populate_Headers_GT (-)');
17361: END IF;
17362: --Print(l_api_name, 'Rows inserted in zx_trx_headers_gt '||g_invoices_to_process);
17363: --Print(l_api_name, 'Bulk_Populate_Headers_GT (-)');
17364:
17365: RETURN TRUE;
17366: