[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;
2919:
2920: IF NOT l_lease_app_found THEN
2921: -- end: 23-May-2005 cklee okl.h Lease App IA Authoring |
2922:
2923: l_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_tapv_rec.khr_id);
2924:
2925: ---------------------------------------------------------------------------------------------------------
2926: -- 1.1 check credit line funding checklist template, used for existing requests w credit line that doesn't
2927: -- have checklist template setup
3332: l_total_hasbeen_funded_amount := get_total_funded(p_tapv_rec.khr_id);
3333:
3334: /*
3335: -- cklee 05/19/2004: exclude supplier retention and manual disbursement
3336: l_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_tapv_rec.khr_id);
3337:
3338: IF ( l_credit_id IS NULL AND
3339: p_tapv_rec.funding_type_code NOT IN ('SUPPLIER_RETENTION', 'MANUAL_DISB')) THEN
3340: -- Your request cannot be submitted. Credit line for this contract doesn't exists.
3385: -- fixed bug#3220634
3386: IF (l_total_credit_amount - l_cur_amount < 0) THEN
3387:
3388: -- start: 23-May-2005 cklee okl.h Lease App IA Authoring |
3389: l_chk_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_tapv_rec.khr_id);
3390: IF l_loan_row_found OR (NOT l_loan_row_found and l_chk_credit_id is not null) THEN
3391: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3392: p_msg_name => l_message_name);
3393: RAISE G_EXCEPTION_HALT_VALIDATION;
3903: FETCH c_contract INTO l_DEAL_TYPE;
3904: CLOSE c_contract;
3905:
3906: -- 2) get revolving flag
3907: l_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_tapv_rec.khr_id);
3908:
3909: OPEN c_credit(l_credit_id);
3910: FETCH c_credit INTO l_REVOLVING_CREDIT_YN,
3911: l_END_DATE;
8859: -- get credit line id
8860: -- If contract credit line has been changed, but funding requests
8861: -- still have not been apporved. We need to re-generate list from the
8862: -- new credit line
8863: l_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_chr_id);
8864:
8865: -- get source checklist template ID
8866: OPEN c_checklists(l_credit_id);
8867: FETCH c_checklists INTO l_funding_checklist_tpl;