[Home] [Help]
1764: l_business_document_id OKC_CONTRACT_DOCS.BUSINESS_DOCUMENT_ID%TYPE;
1765: l_business_document_version OKC_CONTRACT_DOCS.BUSINESS_DOCUMENT_VERSION%TYPE;
1766: l_from_version OKC_CONTRACT_DOCS.EFFECTIVE_FROM_VERSION%TYPE;
1767: l_attached_document_id FND_ATTACHED_DOCUMENTS.ATTACHED_DOCUMENT_ID%TYPE;
1768: l_contract_category_id FND_DOCUMENT_CATEGORIES.CATEGORY_ID%TYPE;
1769: l_supporting_category_id FND_DOCUMENT_CATEGORIES.CATEGORY_ID%TYPE;
1770: l_copy_all_docs_yn VARCHAR2(1);
1771: --Fix for bug 6468721 : Added code to copy SYSTEM-GENERATED ATTACHMENTS to the target Business Document.
1772: l_from_bus_doc_version_latest NUMBER;
1765: l_business_document_version OKC_CONTRACT_DOCS.BUSINESS_DOCUMENT_VERSION%TYPE;
1766: l_from_version OKC_CONTRACT_DOCS.EFFECTIVE_FROM_VERSION%TYPE;
1767: l_attached_document_id FND_ATTACHED_DOCUMENTS.ATTACHED_DOCUMENT_ID%TYPE;
1768: l_contract_category_id FND_DOCUMENT_CATEGORIES.CATEGORY_ID%TYPE;
1769: l_supporting_category_id FND_DOCUMENT_CATEGORIES.CATEGORY_ID%TYPE;
1770: l_copy_all_docs_yn VARCHAR2(1);
1771: --Fix for bug 6468721 : Added code to copy SYSTEM-GENERATED ATTACHMENTS to the target Business Document.
1772: l_from_bus_doc_version_latest NUMBER;
1773: l_doc_version_view_name VARCHAR2(45);
1819: AND Nvl(doc1.url,'@') = Nvl(doc2.url,'@');
1820:
1821: -- Will fetch only contract and supporting docs
1822: CURSOR category_csr1 IS
1823: SELECT category_id from FND_DOCUMENT_CATEGORIES
1824: WHERE name in (G_CONTRACT_DOC_CATEGORY, G_SUPPORTING_DOC_CATEGORY);
1825:
1826: -- Will fetch all seeded contract doc. categories
1827: CURSOR category_csr2 IS
1824: WHERE name in (G_CONTRACT_DOC_CATEGORY, G_SUPPORTING_DOC_CATEGORY);
1825:
1826: -- Will fetch all seeded contract doc. categories
1827: CURSOR category_csr2 IS
1828: SELECT category_id from FND_DOCUMENT_CATEGORIES
1829: WHERE name in (G_CONTRACT_DOC_CATEGORY, G_SUPPORTING_DOC_CATEGORY, G_APP_ABSTRACT_CATEGORY, G_CONTRACT_IMAGE_CATEGORY);
1830:
1831: -- Will fetch only 'Contract' category. Used if p_copy_primary_doc_flag='Y'
1832: CURSOR category_csr3 IS
1829: WHERE name in (G_CONTRACT_DOC_CATEGORY, G_SUPPORTING_DOC_CATEGORY, G_APP_ABSTRACT_CATEGORY, G_CONTRACT_IMAGE_CATEGORY);
1830:
1831: -- Will fetch only 'Contract' category. Used if p_copy_primary_doc_flag='Y'
1832: CURSOR category_csr3 IS
1833: SELECT category_id from FND_DOCUMENT_CATEGORIES
1834: WHERE name in (G_CONTRACT_DOC_CATEGORY);
1835: -- Will fetch all seeded and custom (starting with 'OKC_REPO%') categories
1836: CURSOR category_csr4 IS
1837: SELECT category_id from FND_DOCUMENT_CATEGORIES
1833: SELECT category_id from FND_DOCUMENT_CATEGORIES
1834: WHERE name in (G_CONTRACT_DOC_CATEGORY);
1835: -- Will fetch all seeded and custom (starting with 'OKC_REPO%') categories
1836: CURSOR category_csr4 IS
1837: SELECT category_id from FND_DOCUMENT_CATEGORIES
1838: WHERE name like 'OKC_REPO_%';
1839: BEGIN
1840: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1841: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2165: l_business_document_id OKC_CONTRACT_DOCS.BUSINESS_DOCUMENT_ID%TYPE;
2166: l_business_document_version OKC_CONTRACT_DOCS.BUSINESS_DOCUMENT_VERSION%TYPE;
2167: l_from_version OKC_CONTRACT_DOCS.EFFECTIVE_FROM_VERSION%TYPE;
2168: l_attached_document_id FND_ATTACHED_DOCUMENTS.ATTACHED_DOCUMENT_ID%TYPE;
2169: l_category_name FND_DOCUMENT_CATEGORIES.NAME%TYPE;
2170: l_parent_attached_doc_id FND_ATTACHED_DOCUMENTS.ATTACHED_DOCUMENT_ID%TYPE;
2171:
2172:
2173: -- Attachment cursor to get the attachments for a given doc type, id and version
2180:
2181: -- Get the category code for a given fnd attachment.
2182: CURSOR category_csr (l_attached_document_id NUMBER) IS
2183: SELECT fdc.name
2184: FROM fnd_attached_documents fad, fnd_documents fd, fnd_document_categories fdc
2185: WHERE fad.attached_document_id = l_attached_document_id
2186: AND fad.document_id = fd.document_id
2187: AND fd.category_id = fdc.category_id;
2188: