[Home] [Help]
11370: BEGIN
11371:
11372: FOR r_ast IN c_disb_tot LOOP
11373:
11374: IF (OKL_CREDIT_PUB.get_creditline_by_chrid(r_ast.KHR_ID) = p_contract_id) THEN
11375: l_disbursement_tot := l_disbursement_tot + NVL(r_ast.AMOUNT,0);
11376: END IF;
11377:
11378: END LOOP;
11379:
11380: -- START: cklee - bug#4655437 10/06/2005
11381: FOR r_pst IN c_principal_payments_tot LOOP
11382:
11383: IF (OKL_CREDIT_PUB.get_creditline_by_chrid(r_pst.KHR_ID) = p_contract_id) THEN
11384: l_payment_tot := l_payment_tot + NVL(r_pst.AMOUNT,0);
11385: END IF;
11386:
11387: END LOOP;
11599: BEGIN
11600:
11601: FOR r_ast IN c_disb_tot LOOP
11602:
11603: IF (OKL_CREDIT_PUB.get_creditline_by_chrid(r_ast.KHR_ID) = p_contract_id) THEN
11604: l_disbursement_tot := l_disbursement_tot + NVL(r_ast.AMOUNT,0);
11605: END IF;
11606:
11607: END LOOP;
11673: --rkuttiya added for bug 6313562
11674: IF x_contract_invoice_tbl.count > 0 THEN
11675: i := x_contract_invoice_tbl.FIRST;
11676: LOOP
11677: IF (OKL_CREDIT_PUB.get_creditline_by_chrid(x_contract_invoice_tbl(i).KHR_ID) = p_contract_id) THEN
11678: l_payment_tot := l_payment_tot + NVL(x_contract_invoice_tbl(i).AMOUNT, 0);
11679: END IF;
11680: EXIT WHEN i = x_contract_invoice_tbl.LAST;
11681: i := x_contract_invoice_tbl.NEXT(i);