[Home] [Help]
658: -- new credit line
659: IF (p_creditline_id IS NOT NULL) THEN
660: l_credit_id := p_creditline_id;
661: ELSE
662: l_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_chr_id);
663: END IF;
664:
665: -- get source checklist template ID
666:
1009: -----------------------------------------------------------------
1010: -- get credit line id
1011: -----------------------------------------------------------------
1012: -- get old credit line id if exists
1013: l_old_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_chr_id);
1014:
1015: -- 1st to get new credit line id if there is any
1016: -- 1. old list <> new list
1017: -- 2. No old list, create a new list
1729: x_value NUMBER := 0;
1730: l_credit_id NUMBER := 0;
1731: l_row_found boolean := false;
1732: begin
1733: l_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_contract_id);
1734: IF (l_credit_id IS NOT NULL) THEN
1735: x_value := OKL_SEEDED_FUNCTIONS_PVT.creditline_total_remaining(l_credit_id);
1736: ELSE
1737: x_value := 0;
3049:
3050: IF NOT l_lease_app_found THEN
3051: -- end: 23-May-2005 cklee okl.h Lease App IA Authoring |
3052:
3053: l_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_tapv_rec.khr_id);
3054:
3055: ---------------------------------------------------------------------------------------------------------
3056: -- 1.1 check credit line funding checklist template, used for existing requests w credit line that doesn't
3057: -- have checklist template setup
3462: l_total_hasbeen_funded_amount := get_total_funded(p_tapv_rec.khr_id);
3463:
3464: /*
3465: -- cklee 05/19/2004: exclude supplier retention and manual disbursement
3466: l_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_tapv_rec.khr_id);
3467:
3468: IF ( l_credit_id IS NULL AND
3469: p_tapv_rec.funding_type_code NOT IN ('SUPPLIER_RETENTION', 'MANUAL_DISB')) THEN
3470: -- Your request cannot be submitted. Credit line for this contract doesn't exists.
3515: -- fixed bug#3220634
3516: IF (l_total_credit_amount - l_cur_amount < 0) THEN
3517:
3518: -- start: 23-May-2005 cklee okl.h Lease App IA Authoring |
3519: l_chk_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_tapv_rec.khr_id);
3520: IF l_loan_row_found OR (NOT l_loan_row_found and l_chk_credit_id is not null) THEN
3521: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3522: p_msg_name => l_message_name);
3523: RAISE G_EXCEPTION_HALT_VALIDATION;
4036: FETCH c_contract INTO l_DEAL_TYPE;
4037: CLOSE c_contract;
4038:
4039: -- 2) get revolving flag
4040: l_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_tapv_rec.khr_id);
4041:
4042: OPEN c_credit(l_credit_id);
4043: FETCH c_credit INTO l_REVOLVING_CREDIT_YN,
4044: l_END_DATE;
9081: -- get credit line id
9082: -- If contract credit line has been changed, but funding requests
9083: -- still have not been apporved. We need to re-generate list from the
9084: -- new credit line
9085: l_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_chr_id);
9086:
9087: -- get source checklist template ID
9088: OPEN c_checklists(l_credit_id);
9089: FETCH c_checklists INTO l_funding_checklist_tpl;