[Home] [Help]
3899: disb_header_id = P_DISB_HEADER_ID;
3900:
3901: -- generating new invoice id
3902: CURSOR new_inv_id_cur IS
3903: select AP_INVOICES_INTERFACE_S.NEXTVAL from dual;
3904:
3905: -- generating new invoice line id
3906: CURSOR new_inv_ln_id_cur IS
3907: select AP_INVOICE_LINES_INTERFACE_S.NEXTVAL from dual;
3903: select AP_INVOICES_INTERFACE_S.NEXTVAL from dual;
3904:
3905: -- generating new invoice line id
3906: CURSOR new_inv_ln_id_cur IS
3907: select AP_INVOICE_LINES_INTERFACE_S.NEXTVAL from dual;
3908:
3909: -- get rejection description
3910: CURSOR get_reject_cur(P_CODE VARCHAR2) IS
3911: select description
5567: where DISB_HEADER_ID = P_DISB_HEADER_ID)
5568: -
5569: (select count(1) from LNS_DISB_LINES
5570: where DISB_HEADER_ID = P_DISB_HEADER_ID and (STATUS is not null and STATUS = 'FULLY_FUNDED'))
5571: from dual;
5572:
5573: -- getting sum of all disbursed amount for this loan from ap_invoices_all - real situation
5574: CURSOR disb_amount_cur(P_LOAN_ID number) IS
5575: select nvl(sum(inv.amount_paid), 0)
9807: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_payment_method_code: ' || l_payment_method_code);
9808: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_bank_account_id: ' || l_bank_account_id);
9809:
9810: -- create disb header
9811: select lns_disb_headers_s.NEXTVAL into l_DISB_HEADER_REC.DISB_HEADER_ID from dual;
9812:
9813: l_DISB_HEADER_REC.LOAN_ID := p_loan_id;
9814: l_DISB_HEADER_REC.HEADER_AMOUNT := P_AMOUNT;
9815: l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE := P_DUE_DATE;
9834: RAISE FND_API.G_EXC_ERROR;
9835: END IF;
9836:
9837: -- create disb line
9838: select lns_disb_lines_s.NEXTVAL into l_DISB_LINE_REC.DISB_LINE_ID from dual;
9839:
9840: l_DISB_LINE_REC.DISB_HEADER_ID := l_DISB_HEADER_REC.DISB_HEADER_ID;
9841: l_DISB_LINE_REC.DISB_LINE_NUMBER := 1;
9842: l_DISB_LINE_REC.LINE_AMOUNT := P_AMOUNT;