APPS.LNS_REP_UTILS dependencies on LNS_LOAN_DOCUMENTS

Line 1839: l_document_id LNS_LOAN_DOCUMENTS.DOCUMENT_ID%TYPE;

1835: l_api_version CONSTANT NUMBER := 1.0;
1836: l_result_xml CLOB;
1837: l_loan_id LNS_LOAN_HEADERS_ALL.LOAN_ID%TYPE;
1838: l_loan_status LNS_LOAN_HEADERS_ALL.LOAN_STATUS%TYPE;
1839: l_document_id LNS_LOAN_DOCUMENTS.DOCUMENT_ID%TYPE;
1840: l_version LNS_LOAN_DOCUMENTS.VERSION%TYPE := -1;
1841: l_agreement_exist_flag VARCHAR2(1) := 'Y';
1842:
1843: cursor csr_loan_agreement IS

Line 1840: l_version LNS_LOAN_DOCUMENTS.VERSION%TYPE := -1;

1836: l_result_xml CLOB;
1837: l_loan_id LNS_LOAN_HEADERS_ALL.LOAN_ID%TYPE;
1838: l_loan_status LNS_LOAN_HEADERS_ALL.LOAN_STATUS%TYPE;
1839: l_document_id LNS_LOAN_DOCUMENTS.DOCUMENT_ID%TYPE;
1840: l_version LNS_LOAN_DOCUMENTS.VERSION%TYPE := -1;
1841: l_agreement_exist_flag VARCHAR2(1) := 'Y';
1842:
1843: cursor csr_loan_agreement IS
1844: select document_id, document_xml, version

Line 1845: from lns_loan_documents ld

1841: l_agreement_exist_flag VARCHAR2(1) := 'Y';
1842:
1843: cursor csr_loan_agreement IS
1844: select document_id, document_xml, version
1845: from lns_loan_documents ld
1846: where ld.source_table = 'LNS_LOAN_HEADERS_ALL'
1847: and ld.source_id = l_loan_id
1848: and ld.document_type = 'LOAN_AGREEMENT'
1849: ORDER BY ld.version DESC;

Line 1864: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Agreement not found in lns_loan_documents');

1860:
1861: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_GENERATE_AGREEMENT VALUE IS '||P_GENERATE_AGREEMENT);
1862: IF csr_loan_agreement%NOTFOUND THEN
1863: l_agreement_exist_flag := 'N';
1864: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Agreement not found in lns_loan_documents');
1865: END IF;
1866:
1867:
1868: IF ((P_GENERATE_AGREEMENT = 'Y') OR (l_agreement_exist_flag = 'N')) THEN

Line 1888: p_table_name => 'LNS_LOAN_DOCUMENTS'

1884: --Call to record history
1885: LNS_LOAN_HISTORY_PUB.log_record_pre(
1886: p_id => l_document_id,
1887: p_primary_key_name => 'DOCUMENT_ID',
1888: p_table_name => 'LNS_LOAN_DOCUMENTS'
1889: );
1890: */
1891: END IF;
1892:

Line 1895: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Inserting agreement in lns_loan_documents');

1891: END IF;
1892:
1893: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'l_version is ' || l_version);
1894:
1895: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Inserting agreement in lns_loan_documents');
1896: LNS_LOAN_DOCUMENTS_PKG.Insert_Row(X_DOCUMENT_ID => l_document_id
1897: ,P_SOURCE_ID => loan_id
1898: ,P_SOURCE_TABLE =>'LNS_LOAN_HEADERS_ALL'
1899: ,P_DOCUMENT_TYPE => 'LOAN_AGREEMENT'

Line 1896: LNS_LOAN_DOCUMENTS_PKG.Insert_Row(X_DOCUMENT_ID => l_document_id

1892:
1893: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'l_version is ' || l_version);
1894:
1895: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Inserting agreement in lns_loan_documents');
1896: LNS_LOAN_DOCUMENTS_PKG.Insert_Row(X_DOCUMENT_ID => l_document_id
1897: ,P_SOURCE_ID => loan_id
1898: ,P_SOURCE_TABLE =>'LNS_LOAN_HEADERS_ALL'
1899: ,P_DOCUMENT_TYPE => 'LOAN_AGREEMENT'
1900: ,P_VERSION => l_version

Line 1909: p_table_name => 'LNS_LOAN_DOCUMENTS',

1905: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Creating History for the Loan Agreement - POST API');
1906: LNS_LOAN_HISTORY_PUB.log_record_post(
1907: p_id => l_document_id,
1908: p_primary_key_name => 'DOCUMENT_ID',
1909: p_table_name => 'LNS_LOAN_DOCUMENTS',
1910: p_loan_id => loan_id
1911: );
1912: END IF;
1913: */

Line 1929: l_document_id LNS_LOAN_DOCUMENTS.DOCUMENT_ID%TYPE;

1925: PROCEDURE STORE_LOAN_AGREEMENT (P_LOAN_ID IN NUMBER) IS
1926: l_api_name CONSTANT VARCHAR2(30) := 'STORE_LOAN_AGREEMENT_REPORT';
1927: l_api_version CONSTANT NUMBER := 1.0;
1928: l_result_xml CLOB;
1929: l_document_id LNS_LOAN_DOCUMENTS.DOCUMENT_ID%TYPE;
1930: cursor csr_loan_agreement IS
1931: select document_xml
1932: from lns_loan_documents
1933: where source_table = 'LNS_LOAN_HEADERS_ALL'

Line 1932: from lns_loan_documents

1928: l_result_xml CLOB;
1929: l_document_id LNS_LOAN_DOCUMENTS.DOCUMENT_ID%TYPE;
1930: cursor csr_loan_agreement IS
1931: select document_xml
1932: from lns_loan_documents
1933: where source_table = 'LNS_LOAN_HEADERS_ALL'
1934: and source_id = p_loan_id
1935: and version = 1
1936: and document_type = 'LOAN_AGREEMENT';

Line 1945: LNS_LOAN_DOCUMENTS_PKG.Insert_Row(X_DOCUMENT_ID => l_document_id

1941: INTO l_result_xml;
1942: IF csr_loan_agreement%NOTFOUND THEN
1943: GEN_AGREEMENT_XML(p_AgreementXML=> l_result_xml,
1944: p_loan_id => p_loan_id);
1945: LNS_LOAN_DOCUMENTS_PKG.Insert_Row(X_DOCUMENT_ID => l_document_id
1946: ,P_SOURCE_ID => p_loan_id
1947: ,P_SOURCE_TABLE =>'LNS_LOAN_HEADERS_ALL'
1948: ,P_DOCUMENT_TYPE => 'LOAN_AGREEMENT'
1949: ,P_VERSION => 1