[Home] [Help]
622:
623: --l_return_status := x_return_status;
624: lu_tapv_rec.TRX_STATUS_CODE := 'ERROR';
625:
626: UPDATE Okl_Trx_Ap_Invoices_B
627: SET TRX_STATUS_CODE = 'ERROR'
628: WHERE id = lx_tapv_rec.id;
629:
630: IF ( x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
793:
794:
795: --Local Variables
796: l_ar_inv_number ra_customer_trx_all.trx_number%TYPE;
797: l_try_id okl_trx_ap_invoices_b.try_id%TYPE;
798: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
799: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
800:
801: TYPE tap_id_tbl_type IS TABLE OF okl_trx_ap_invoices_b.id%type
797: l_try_id okl_trx_ap_invoices_b.try_id%TYPE;
798: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
799: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
800:
801: TYPE tap_id_tbl_type IS TABLE OF okl_trx_ap_invoices_b.id%type
802: INDEX BY BINARY_INTEGER;
803:
804: l_tap_id_tbl tap_id_tbl_type;
805: id_ind NUMBER;
1076:
1077: IF (l_overall_status <> OKL_API.G_RET_STS_SUCCESS AND l_tap_id_tbl.count > 0 ) THEN
1078: print_line (' -- Updating pay invoices TRX_STATUS_CODE with ERROR status since l_overall_status = ' || l_overall_status);
1079: FOR id_ind IN l_tap_id_tbl.first..l_tap_id_tbl.last LOOP
1080: update okl_trx_ap_invoices_b
1081: set TRX_STATUS_CODE = 'ERROR'
1082: ,object_version_number = object_version_number + 1
1083: ,last_updated_by = FND_GLOBAL.USER_ID
1084: ,last_update_date = sysdate
2542: l_dummy NUMBER;
2543: l_principal_tot NUMBER := 0;
2544:
2545: -- sjalasut, modified the cursor to have khr_id referred to okl_txl_ap_inv_lns_all_b
2546: -- instead of okl_trx_ap_invoices_b. changes made as part of OKLR12B disbursements
2547: -- project.
2548: cursor c_disb_tot(p_creditline_id number) is
2549: SELECT NVL(SUM(NVL(TAP.AMOUNT,0)),0)
2550: FROM OKL_TRX_AP_INVOICES_B TAP
2546: -- instead of okl_trx_ap_invoices_b. changes made as part of OKLR12B disbursements
2547: -- project.
2548: cursor c_disb_tot(p_creditline_id number) is
2549: SELECT NVL(SUM(NVL(TAP.AMOUNT,0)),0)
2550: FROM OKL_TRX_AP_INVOICES_B TAP
2551: ,OKL_TXL_AP_INV_LNS_ALL_B TPL
2552: WHERE TAP.ID = TPL.TAP_ID
2553: AND TAP.TRX_STATUS_CODE = 'PROCESSED' -- push to AP
2554: AND TRUNC(DATE_INVOICED) <= TRUNC(p_trx_date)