[Home] [Help]
47: l_tldtl_cnt NUMBER := 0;
48: l_xsitl_cnt NUMBER := 0;
49: l_xlstl_cnt NUMBER := 0;
50:
51: TYPE taitl_tbl_type IS TABLE OF OKL_TRX_AR_INVOICES_TL%ROWTYPE INDEX BY BINARY_INTEGER;
52: TYPE tiltl_tbl_type IS TABLE OF OKL_TXL_AR_INV_LNS_TL%ROWTYPE INDEX BY BINARY_INTEGER;
53: TYPE tldtl_tbl_type IS TABLE OF OKL_TXD_AR_LN_DTLS_TL%ROWTYPE INDEX BY BINARY_INTEGER;
54: TYPE xsitl_tbl_type IS TABLE OF OKL_EXT_SELL_INVS_TL%ROWTYPE INDEX BY BINARY_INTEGER;
55: TYPE xlstl_tbl_type IS TABLE OF OKL_XTL_SELL_INVS_TL%ROWTYPE INDEX BY BINARY_INTEGER;
653: -- --------------------------------------
654: -- Transfer TaiTl records to the TaiTl table
655: -- --------------------------------------
656: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Inserting into okl_trx_ar_invoices_tl');
658:
659: END IF;
660: Fnd_File.PUT_LINE (Fnd_File.LOG, 'Transfering TAI_TL records to TAI_TL table...');
661:
662: Fnd_File.PUT_LINE (Fnd_File.LOG, 'taitl_tbl.COUNT : ' || taitl_tbl.COUNT);
663:
664: IF taitl_tbl.COUNT > 0 THEN
665: FORALL indx IN taitl_tbl.first..taitl_tbl.LAST
666: INSERT INTO OKL_TRX_AR_INVOICES_TL
667: VALUES taitl_tbl(indx);
668: END IF;
669:
670: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
667: VALUES taitl_tbl(indx);
668: END IF;
669:
670: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Done Inserting into okl_trx_ar_invoices_tl');
672:
673: END IF;
674: Fnd_File.PUT_LINE (Fnd_File.LOG, 'Done transfering TAI_TL records to TAI_TL table...');
675: -- --------------------------------------