[Home] [Help]
1762: l_business_document_id OKC_CONTRACT_DOCS.BUSINESS_DOCUMENT_ID%TYPE;
1763: l_business_document_version OKC_CONTRACT_DOCS.BUSINESS_DOCUMENT_VERSION%TYPE;
1764: l_from_version OKC_CONTRACT_DOCS.EFFECTIVE_FROM_VERSION%TYPE;
1765: l_attached_document_id FND_ATTACHED_DOCUMENTS.ATTACHED_DOCUMENT_ID%TYPE;
1766: l_contract_category_id FND_DOCUMENT_CATEGORIES.CATEGORY_ID%TYPE;
1767: l_supporting_category_id FND_DOCUMENT_CATEGORIES.CATEGORY_ID%TYPE;
1768: l_copy_all_docs_yn VARCHAR2(1);
1769: --Fix for bug 6468721 : Added code to copy SYSTEM-GENERATED ATTACHMENTS to the target Business Document.
1770: l_from_bus_doc_version_latest NUMBER;
1763: l_business_document_version OKC_CONTRACT_DOCS.BUSINESS_DOCUMENT_VERSION%TYPE;
1764: l_from_version OKC_CONTRACT_DOCS.EFFECTIVE_FROM_VERSION%TYPE;
1765: l_attached_document_id FND_ATTACHED_DOCUMENTS.ATTACHED_DOCUMENT_ID%TYPE;
1766: l_contract_category_id FND_DOCUMENT_CATEGORIES.CATEGORY_ID%TYPE;
1767: l_supporting_category_id FND_DOCUMENT_CATEGORIES.CATEGORY_ID%TYPE;
1768: l_copy_all_docs_yn VARCHAR2(1);
1769: --Fix for bug 6468721 : Added code to copy SYSTEM-GENERATED ATTACHMENTS to the target Business Document.
1770: l_from_bus_doc_version_latest NUMBER;
1771: l_doc_version_view_name VARCHAR2(45);
1808: AND FADB2.program_id = l_program_id
1809: AND FADB1.seq_num = FADB2.seq_num;
1810: -- Will fetch only contract and supporting docs
1811: CURSOR category_csr1 IS
1812: SELECT category_id from FND_DOCUMENT_CATEGORIES
1813: WHERE name in (G_CONTRACT_DOC_CATEGORY, G_SUPPORTING_DOC_CATEGORY);
1814:
1815: -- Will fetch all seeded contract doc. categories
1816: CURSOR category_csr2 IS
1813: WHERE name in (G_CONTRACT_DOC_CATEGORY, G_SUPPORTING_DOC_CATEGORY);
1814:
1815: -- Will fetch all seeded contract doc. categories
1816: CURSOR category_csr2 IS
1817: SELECT category_id from FND_DOCUMENT_CATEGORIES
1818: WHERE name in (G_CONTRACT_DOC_CATEGORY, G_SUPPORTING_DOC_CATEGORY, G_APP_ABSTRACT_CATEGORY, G_CONTRACT_IMAGE_CATEGORY);
1819:
1820: -- Will fetch only 'Contract' category. Used if p_copy_primary_doc_flag='Y'
1821: CURSOR category_csr3 IS
1818: WHERE name in (G_CONTRACT_DOC_CATEGORY, G_SUPPORTING_DOC_CATEGORY, G_APP_ABSTRACT_CATEGORY, G_CONTRACT_IMAGE_CATEGORY);
1819:
1820: -- Will fetch only 'Contract' category. Used if p_copy_primary_doc_flag='Y'
1821: CURSOR category_csr3 IS
1822: SELECT category_id from FND_DOCUMENT_CATEGORIES
1823: WHERE name in (G_CONTRACT_DOC_CATEGORY);
1824: -- Will fetch all seeded and custom (starting with 'OKC_REPO%') categories
1825: CURSOR category_csr4 IS
1826: SELECT category_id from FND_DOCUMENT_CATEGORIES
1822: SELECT category_id from FND_DOCUMENT_CATEGORIES
1823: WHERE name in (G_CONTRACT_DOC_CATEGORY);
1824: -- Will fetch all seeded and custom (starting with 'OKC_REPO%') categories
1825: CURSOR category_csr4 IS
1826: SELECT category_id from FND_DOCUMENT_CATEGORIES
1827: WHERE name like 'OKC_REPO_%';
1828: BEGIN
1829: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1830: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2154: l_business_document_id OKC_CONTRACT_DOCS.BUSINESS_DOCUMENT_ID%TYPE;
2155: l_business_document_version OKC_CONTRACT_DOCS.BUSINESS_DOCUMENT_VERSION%TYPE;
2156: l_from_version OKC_CONTRACT_DOCS.EFFECTIVE_FROM_VERSION%TYPE;
2157: l_attached_document_id FND_ATTACHED_DOCUMENTS.ATTACHED_DOCUMENT_ID%TYPE;
2158: l_category_name FND_DOCUMENT_CATEGORIES.NAME%TYPE;
2159: l_parent_attached_doc_id FND_ATTACHED_DOCUMENTS.ATTACHED_DOCUMENT_ID%TYPE;
2160:
2161:
2162: -- Attachment cursor to get the attachments for a given doc type, id and version
2169:
2170: -- Get the category code for a given fnd attachment.
2171: CURSOR category_csr (l_attached_document_id NUMBER) IS
2172: SELECT fdc.name
2173: FROM fnd_attached_documents fad, fnd_documents fd, fnd_document_categories fdc
2174: WHERE fad.attached_document_id = l_attached_document_id
2175: AND fad.document_id = fd.document_id
2176: AND fd.category_id = fdc.category_id;
2177: