84: l_entity_pk5_column VARCHAR2 (240);
85: l_entity_pk1_n NUMBER;
86: l_entity_pk2_c VARCHAR2 (240);
87: BEGIN
88: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
89: THEN
90: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
91: g_pkg_name,
92: '1000: Entered CheckBaseRecExists Function'
86: l_entity_pk2_c VARCHAR2 (240);
87: BEGIN
88: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
89: THEN
90: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
91: g_pkg_name,
92: '1000: Entered CheckBaseRecExists Function'
93: );
94: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
90: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
91: g_pkg_name,
92: '1000: Entered CheckBaseRecExists Function'
93: );
94: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
95: g_pkg_name,
96: '1005: Parameters : P_ENTITY_NAME => '
97: || p_entity_name
98: || ' P_ENTITY_PK1 => '
145: || l_entity_pk2_c
146: || '''';
147: END IF;
148:
149: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
150: THEN
151: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT, g_pkg_name, '1010: l_sql ' || l_sql);
152: END IF;
153:
147: END IF;
148:
149: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
150: THEN
151: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT, g_pkg_name, '1010: l_sql ' || l_sql);
152: END IF;
153:
154: EXECUTE IMMEDIATE l_sql
155: INTO l_exists;
159: EXCEPTION
160: WHEN NO_DATA_FOUND
161: THEN
162: -- If it does not exists that means that the some other document has merged it's changes.
163: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
164: THEN
165: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
166: g_pkg_name,
167: '9990: exception - record does not exist'
161: THEN
162: -- If it does not exists that means that the some other document has merged it's changes.
163: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
164: THEN
165: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
166: g_pkg_name,
167: '9990: exception - record does not exist'
168: );
169: END IF;
175: x_rec_exists := 'N';
176: x_return_status := g_ret_sts_error;
177: WHEN OTHERS
178: THEN
179: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
180: THEN
181: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
182: g_pkg_name,
183: '9992: exception - ' || SQLERRM
177: WHEN OTHERS
178: THEN
179: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
180: THEN
181: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
182: g_pkg_name,
183: '9992: exception - ' || SQLERRM
184: );
185: END IF;
339: l_lock_sts NUMBER;
340: x_document_type VARCHAR2 (240);
341: x_document_id NUMBER;
342: BEGIN
343: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
344: THEN
345: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
346: g_pkg_name,
347: '1000: Entered lock_entity'
341: x_document_id NUMBER;
342: BEGIN
343: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
344: THEN
345: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
346: g_pkg_name,
347: '1000: Entered lock_entity'
348: );
349: END IF;
525: END IF;
526: EXCEPTION
527: WHEN fnd_api.g_exc_error
528: THEN
529: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
530: THEN
531: fnd_log.STRING
532: (FND_LOG.LEVEL_STATEMENT,
533: g_pkg_name,
527: WHEN fnd_api.g_exc_error
528: THEN
529: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
530: THEN
531: fnd_log.STRING
532: (FND_LOG.LEVEL_STATEMENT,
533: g_pkg_name,
534: '9999: Leaving lock_entity: OKC_API.G_EXCEPTION_ERROR Exception'
535: );
528: THEN
529: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
530: THEN
531: fnd_log.STRING
532: (FND_LOG.LEVEL_STATEMENT,
533: g_pkg_name,
534: '9999: Leaving lock_entity: OKC_API.G_EXCEPTION_ERROR Exception'
535: );
536: END IF;
542: p_data => x_msg_data
543: );
544: WHEN OTHERS
545: THEN
546: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
547: THEN
548: fnd_log.STRING
549: (FND_LOG.LEVEL_STATEMENT,
550: g_pkg_name,
544: WHEN OTHERS
545: THEN
546: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
547: THEN
548: fnd_log.STRING
549: (FND_LOG.LEVEL_STATEMENT,
550: g_pkg_name,
551: '9999: Leaving lock_entity: OKC_API.G_RET_STS_UNEXP_ERROR Exception'
552: );
545: THEN
546: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
547: THEN
548: fnd_log.STRING
549: (FND_LOG.LEVEL_STATEMENT,
550: g_pkg_name,
551: '9999: Leaving lock_entity: OKC_API.G_RET_STS_UNEXP_ERROR Exception'
552: );
553: END IF;
850: IS
851: l_api_version CONSTANT NUMBER := 1;
852: l_api_name CONSTANT VARCHAR2 (30) := 'unlock_entity';
853: BEGIN
854: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
855: THEN
856: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
857: g_pkg_name,
858: '1000: Entered unlock_entity'
852: l_api_name CONSTANT VARCHAR2 (30) := 'unlock_entity';
853: BEGIN
854: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
855: THEN
856: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
857: g_pkg_name,
858: '1000: Entered unlock_entity'
859: );
860: END IF;
905: RAISE fnd_api.g_exc_error;
906: END IF;
907:
908: --------------------------------------------
909: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
910: THEN
911: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
912: g_pkg_name,
913: '9999: completed unlock_entity'
907:
908: --------------------------------------------
909: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
910: THEN
911: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
912: g_pkg_name,
913: '9999: completed unlock_entity'
914: );
915: END IF;
915: END IF;
916: EXCEPTION
917: WHEN fnd_api.g_exc_error
918: THEN
919: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
920: THEN
921: fnd_log.STRING
922: (FND_LOG.LEVEL_STATEMENT,
923: g_pkg_name,
917: WHEN fnd_api.g_exc_error
918: THEN
919: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
920: THEN
921: fnd_log.STRING
922: (FND_LOG.LEVEL_STATEMENT,
923: g_pkg_name,
924: '0000: Leaving unlock_entity: OKC_API.G_EXCEPTION_ERROR Exception'
925: );
918: THEN
919: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
920: THEN
921: fnd_log.STRING
922: (FND_LOG.LEVEL_STATEMENT,
923: g_pkg_name,
924: '0000: Leaving unlock_entity: OKC_API.G_EXCEPTION_ERROR Exception'
925: );
926: END IF;
932: p_data => x_msg_data
933: );
934: WHEN fnd_api.g_exc_unexpected_error
935: THEN
936: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
937: THEN
938: fnd_log.STRING
939: (FND_LOG.LEVEL_STATEMENT,
940: g_pkg_name,
934: WHEN fnd_api.g_exc_unexpected_error
935: THEN
936: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
937: THEN
938: fnd_log.STRING
939: (FND_LOG.LEVEL_STATEMENT,
940: g_pkg_name,
941: '0000: Leaving unlock_entity: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception'
942: );
935: THEN
936: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
937: THEN
938: fnd_log.STRING
939: (FND_LOG.LEVEL_STATEMENT,
940: g_pkg_name,
941: '0000: Leaving unlock_entity: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception'
942: );
943: END IF;
949: p_data => x_msg_data
950: );
951: WHEN OTHERS
952: THEN
953: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
954: THEN
955: fnd_log.STRING
956: (FND_LOG.LEVEL_STATEMENT,
957: g_pkg_name,
951: WHEN OTHERS
952: THEN
953: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
954: THEN
955: fnd_log.STRING
956: (FND_LOG.LEVEL_STATEMENT,
957: g_pkg_name,
958: '0000: Leaving unlock_entity because of EXCEPTION: '
959: || SQLERRM
952: THEN
953: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
954: THEN
955: fnd_log.STRING
956: (FND_LOG.LEVEL_STATEMENT,
957: g_pkg_name,
958: '0000: Leaving unlock_entity because of EXCEPTION: '
959: || SQLERRM
960: );
988: IS
989: BEGIN
990: x_return_status := g_ret_sts_success;
991:
992: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
993: THEN
994: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
995: g_pkg_name,
996: '1000: Entered delete_clause : ' || p_doc_clause_id
990: x_return_status := g_ret_sts_success;
991:
992: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
993: THEN
994: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
995: g_pkg_name,
996: '1000: Entered delete_clause : ' || p_doc_clause_id
997: );
998: END IF;
1003: okc_k_art_variables_pvt.delete_set (x_return_status => x_return_status,
1004: p_cat_id => p_doc_clause_id
1005: );
1006:
1007: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1008: THEN
1009: fnd_log.STRING
1010: (FND_LOG.LEVEL_STATEMENT,
1011: g_pkg_name,
1005: );
1006:
1007: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1008: THEN
1009: fnd_log.STRING
1010: (FND_LOG.LEVEL_STATEMENT,
1011: g_pkg_name,
1012: '1010: After Call to okc_k_art_variables_pvt.delete_set : '
1013: || x_return_status
1006:
1007: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1008: THEN
1009: fnd_log.STRING
1010: (FND_LOG.LEVEL_STATEMENT,
1011: g_pkg_name,
1012: '1010: After Call to okc_k_art_variables_pvt.delete_set : '
1013: || x_return_status
1014: );
1027: p_object_version_number => NULL
1028: );
1029:
1030: --------------------------------------------
1031: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1032: THEN
1033: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1034: g_pkg_name,
1035: '1000: Completed delete_clause with status '
1029:
1030: --------------------------------------------
1031: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1032: THEN
1033: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1034: g_pkg_name,
1035: '1000: Completed delete_clause with status '
1036: || x_return_status
1037: );
1038: END IF;
1039: EXCEPTION
1040: WHEN OTHERS
1041: THEN
1042: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1043: THEN
1044: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1045: g_pkg_name,
1046: '0000: Exception in delete_clause ' || SQLERRM
1040: WHEN OTHERS
1041: THEN
1042: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1043: THEN
1044: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1045: g_pkg_name,
1046: '0000: Exception in delete_clause ' || SQLERRM
1047: );
1048: END IF;
1304:
1305: EXCEPTION
1306: WHEN fnd_api.g_exc_error
1307: THEN
1308: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1309: THEN
1310: fnd_log.STRING
1311: (fnd_log.LEVEL_STATEMENT,
1312: g_pkg_name,
1306: WHEN fnd_api.g_exc_error
1307: THEN
1308: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1309: THEN
1310: fnd_log.STRING
1311: (fnd_log.LEVEL_STATEMENT,
1312: g_pkg_name,
1313: '0000: Leaving copy_clause:FND_API.G_EXC_ERROR Exception'
1314: );
1307: THEN
1308: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1309: THEN
1310: fnd_log.STRING
1311: (fnd_log.LEVEL_STATEMENT,
1312: g_pkg_name,
1313: '0000: Leaving copy_clause:FND_API.G_EXC_ERROR Exception'
1314: );
1315: END IF;
1320: p_data => x_msg_data
1321: );
1322: WHEN fnd_api.g_exc_unexpected_error
1323: THEN
1324: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1325: THEN
1326: fnd_log.STRING
1327: (fnd_log.LEVEL_STATEMENT,
1328: g_pkg_name,
1322: WHEN fnd_api.g_exc_unexpected_error
1323: THEN
1324: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1325: THEN
1326: fnd_log.STRING
1327: (fnd_log.LEVEL_STATEMENT,
1328: g_pkg_name,
1329: '0000: Leaving copy_clause:FND_API.G_EXC_UNEXPECTED_ERROR Exception'
1330: );
1323: THEN
1324: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1325: THEN
1326: fnd_log.STRING
1327: (fnd_log.LEVEL_STATEMENT,
1328: g_pkg_name,
1329: '0000: Leaving copy_clause:FND_API.G_EXC_UNEXPECTED_ERROR Exception'
1330: );
1331: END IF;
1336: p_data => x_msg_data
1337: );
1338: WHEN OTHERS
1339: THEN
1340: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1341: THEN
1342: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1343: g_pkg_name,
1344: '0000: exception in copy_clause ' || SQLERRM
1338: WHEN OTHERS
1339: THEN
1340: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1341: THEN
1342: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1343: g_pkg_name,
1344: '0000: exception in copy_clause ' || SQLERRM
1345: );
1346: END IF;
1396: x_msg_data => x_msg_data,
1397: x_msg_count => x_msg_count
1398: );
1399:
1400: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1401: THEN
1402: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1403: g_pkg_name,
1404: '9999: Completed refresh_clause '
1398: );
1399:
1400: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1401: THEN
1402: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1403: g_pkg_name,
1404: '9999: Completed refresh_clause '
1405: );
1406: END IF;
1423: END IF;
1424: EXCEPTION
1425: WHEN OTHERS
1426: THEN
1427: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1428: THEN
1429: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1430: g_pkg_name,
1431: '0000: exception in refresh_clause ' || SQLERRM
1425: WHEN OTHERS
1426: THEN
1427: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1428: THEN
1429: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1430: g_pkg_name,
1431: '0000: exception in refresh_clause ' || SQLERRM
1432: );
1433: END IF;
1667: CLOSE check_config_exists;
1668:
1669: IF l_config_exists = 'Y'
1670: THEN
1671: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1672: THEN
1673: NULL;
1674: END IF;
1675:
1780: dochasmrv VARCHAR2 (1);
1781: BEGIN
1782: x_return_status := g_ret_sts_success;
1783:
1784: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1785: THEN
1786: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1787: g_pkg_name,
1788: '1000: Entered copy_art_variables'
1782: x_return_status := g_ret_sts_success;
1783:
1784: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1785: THEN
1786: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1787: g_pkg_name,
1788: '1000: Entered copy_art_variables'
1789: );
1790: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1786: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1787: g_pkg_name,
1788: '1000: Entered copy_art_variables'
1789: );
1790: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1791: g_pkg_name,
1792: '1000: Entered p_source_doc_clause_id '
1793: || p_source_doc_clause_id
1794: );
1791: g_pkg_name,
1792: '1000: Entered p_source_doc_clause_id '
1793: || p_source_doc_clause_id
1794: );
1795: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1796: g_pkg_name,
1797: '1000: Entered p_target_doc_clause_id '
1798: || p_target_doc_clause_id
1799: );
1808: mrvflag_tbl;
1809:
1810: CLOSE l_get_variables_csr;
1811:
1812: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1813: THEN
1814: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1815: g_pkg_name,
1816: '1010: Got variable information'
1810: CLOSE l_get_variables_csr;
1811:
1812: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1813: THEN
1814: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1815: g_pkg_name,
1816: '1010: Got variable information'
1817: );
1818: END IF;
1838: fnd_global.user_id, fnd_global.login_id
1839: );
1840: END IF;
1841:
1842: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1843: THEN
1844: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1845: g_pkg_name,
1846: '1020: Inserted records into okc_k_art_variables ||'
1840: END IF;
1841:
1842: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1843: THEN
1844: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1845: g_pkg_name,
1846: '1020: Inserted records into okc_k_art_variables ||'
1847: );
1848: END IF;
1851: LOOP
1852: IF NVL (mrvflag_tbl (i), 'N') = 'Y'
1853: THEN
1854: -- Call to UDA API.
1855: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1856: THEN
1857: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1858: g_pkg_name,
1859: '1040: Calling Copy UDA API'
1853: THEN
1854: -- Call to UDA API.
1855: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1856: THEN
1857: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1858: g_pkg_name,
1859: '1040: Calling Copy UDA API'
1860: );
1861: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT, g_pkg_name, '1050: var_tbl (i)');
1857: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1858: g_pkg_name,
1859: '1040: Calling Copy UDA API'
1860: );
1861: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT, g_pkg_name, '1050: var_tbl (i)');
1862: END IF;
1863:
1864: okc_mrv_util.copy_variable_uda_data
1865: (p_from_cat_id => p_source_doc_clause_id,
1872: );
1873: END IF;
1874: END LOOP;
1875:
1876: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1877: THEN
1878: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1879: g_pkg_name,
1880: '9999: Completed copy_art_variables'
1874: END LOOP;
1875:
1876: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1877: THEN
1878: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1879: g_pkg_name,
1880: '9999: Completed copy_art_variables'
1881: );
1882: END IF;
1882: END IF;
1883: EXCEPTION
1884: WHEN OTHERS
1885: THEN
1886: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1887: THEN
1888: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1889: g_pkg_name,
1890: '0000: exception in copy_art_variables '
1884: WHEN OTHERS
1885: THEN
1886: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1887: THEN
1888: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
1889: g_pkg_name,
1890: '0000: exception in copy_art_variables '
1891: || SQLERRM
1892: );
2122:
2123: BEGIN
2124: x_return_status := g_ret_sts_success;
2125:
2126: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2127: fnd_log.string(FND_LOG.LEVEL_STATEMENT,l_api_name,'1000: Entered refresh Section');
2128: END IF;
2129:
2130:
2123: BEGIN
2124: x_return_status := g_ret_sts_success;
2125:
2126: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2127: fnd_log.string(FND_LOG.LEVEL_STATEMENT,l_api_name,'1000: Entered refresh Section');
2128: END IF;
2129:
2130:
2131: --------------------------------------
2162: END IF;
2163:
2164: p_target_doc_section_id := l_tgt_scn_id;
2165:
2166: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2167: THEN
2168: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
2169: g_pkg_name,
2170: '9999: Completed refresh_section '
2164: p_target_doc_section_id := l_tgt_scn_id;
2165:
2166: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2167: THEN
2168: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
2169: g_pkg_name,
2170: '9999: Completed refresh_section '
2171: );
2172: END IF;
2424: END IF;
2425:
2426: p_target_deliverable_id := l_new_target_del_id;
2427:
2428: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2429: THEN
2430: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
2431: g_pkg_name,
2432: '9999: Completed refresh_deliverable '
2426: p_target_deliverable_id := l_new_target_del_id;
2427:
2428: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2429: THEN
2430: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
2431: g_pkg_name,
2432: '9999: Completed refresh_deliverable '
2433: );
2434: END IF;
2463: l_api_version CONSTANT NUMBER := 1;
2464: l_api_name CONSTANT VARCHAR2 (240) := 'revert_changes';
2465: l_lock_by_entity_id NUMBER := p_lock_by_entity_id;
2466: BEGIN
2467: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2468: THEN
2469: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
2470: g_pkg_name,
2471: '1000: Entered revert_changes'
2465: l_lock_by_entity_id NUMBER := p_lock_by_entity_id;
2466: BEGIN
2467: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2468: THEN
2469: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
2470: g_pkg_name,
2471: '1000: Entered revert_changes'
2472: );
2473: END IF;
2537: x_msg_data => x_msg_data
2538: );
2539: END IF;
2540:
2541: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2542: THEN
2543: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
2544: g_pkg_name,
2545: '9999: completed revert_changes'
2539: END IF;
2540:
2541: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2542: THEN
2543: fnd_log.STRING (FND_LOG.LEVEL_STATEMENT,
2544: g_pkg_name,
2545: '9999: completed revert_changes'
2546: );
2547: END IF;
2558:
2559: EXCEPTION
2560: WHEN fnd_api.g_exc_error
2561: THEN
2562: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2563: THEN
2564: fnd_log.STRING
2565: (FND_LOG.LEVEL_STATEMENT,
2566: g_pkg_name,
2560: WHEN fnd_api.g_exc_error
2561: THEN
2562: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2563: THEN
2564: fnd_log.STRING
2565: (FND_LOG.LEVEL_STATEMENT,
2566: g_pkg_name,
2567: '0000: Leaving revert_changes: OKC_API.G_EXCEPTION_ERROR Exception'
2568: );
2561: THEN
2562: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2563: THEN
2564: fnd_log.STRING
2565: (FND_LOG.LEVEL_STATEMENT,
2566: g_pkg_name,
2567: '0000: Leaving revert_changes: OKC_API.G_EXCEPTION_ERROR Exception'
2568: );
2569: END IF;
2575: p_data => x_msg_data
2576: );
2577: WHEN fnd_api.g_exc_unexpected_error
2578: THEN
2579: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2580: THEN
2581: fnd_log.STRING
2582: (FND_LOG.LEVEL_STATEMENT,
2583: g_pkg_name,
2577: WHEN fnd_api.g_exc_unexpected_error
2578: THEN
2579: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2580: THEN
2581: fnd_log.STRING
2582: (FND_LOG.LEVEL_STATEMENT,
2583: g_pkg_name,
2584: '0000: Leaving revert_changes: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception'
2585: );
2578: THEN
2579: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2580: THEN
2581: fnd_log.STRING
2582: (FND_LOG.LEVEL_STATEMENT,
2583: g_pkg_name,
2584: '0000: Leaving revert_changes: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception'
2585: );
2586: END IF;
2592: p_data => x_msg_data
2593: );
2594: WHEN OTHERS
2595: THEN
2596: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2597: THEN
2598: fnd_log.STRING
2599: (FND_LOG.LEVEL_STATEMENT,
2600: g_pkg_name,
2594: WHEN OTHERS
2595: THEN
2596: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2597: THEN
2598: fnd_log.STRING
2599: (FND_LOG.LEVEL_STATEMENT,
2600: g_pkg_name,
2601: '0000: Leaving revert_changes because of EXCEPTION: '
2602: || SQLERRM
2595: THEN
2596: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2597: THEN
2598: fnd_log.STRING
2599: (FND_LOG.LEVEL_STATEMENT,
2600: g_pkg_name,
2601: '0000: Leaving revert_changes because of EXCEPTION: '
2602: || SQLERRM
2603: );
2734: IF cur_get_details_from_sections%NOTFOUND THEN
2735: x_return_status := G_RET_STS_ERROR;
2736: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2737: , p_msg_name => 'OKC_SRC_DOC_NOT_FOUND');
2738: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2739: fnd_log.STRING
2740: (FND_LOG.LEVEL_STATEMENT,
2741: g_pkg_name,
2742: '0100: Can not find the source document'
2735: x_return_status := G_RET_STS_ERROR;
2736: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2737: , p_msg_name => 'OKC_SRC_DOC_NOT_FOUND');
2738: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2739: fnd_log.STRING
2740: (FND_LOG.LEVEL_STATEMENT,
2741: g_pkg_name,
2742: '0100: Can not find the source document'
2743: );
2736: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2737: , p_msg_name => 'OKC_SRC_DOC_NOT_FOUND');
2738: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2739: fnd_log.STRING
2740: (FND_LOG.LEVEL_STATEMENT,
2741: g_pkg_name,
2742: '0100: Can not find the source document'
2743: );
2744: end IF;
2759:
2760: IF cur_get_details_from_sections%ISOPEN THEN
2761: CLOSE cur_get_details_from_sections;
2762: END IF;
2763: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2764: THEN
2765: fnd_log.STRING
2766: (FND_LOG.LEVEL_STATEMENT,
2767: g_pkg_name,
2761: CLOSE cur_get_details_from_sections;
2762: END IF;
2763: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2764: THEN
2765: fnd_log.STRING
2766: (FND_LOG.LEVEL_STATEMENT,
2767: g_pkg_name,
2768: '0000: Leaving get_src_doc_details because of EXCEPTION: '
2769: || SQLERRM
2762: END IF;
2763: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2764: THEN
2765: fnd_log.STRING
2766: (FND_LOG.LEVEL_STATEMENT,
2767: g_pkg_name,
2768: '0000: Leaving get_src_doc_details because of EXCEPTION: '
2769: || SQLERRM
2770: );
3196: WHERE document_type = cp_doc_type AND LANGUAGE = USERENV ('Lang');
3197: BEGIN
3198: x_return_status := g_ret_sts_success;
3199:
3200: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3201: THEN
3202: fnd_log.STRING (fnd_log.level_statement,
3203: g_pkg_name || '.start_notify_workflow',
3204: '0100: start'
3198: x_return_status := g_ret_sts_success;
3199:
3200: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3201: THEN
3202: fnd_log.STRING (fnd_log.level_statement,
3203: g_pkg_name || '.start_notify_workflow',
3204: '0100: start'
3205: );
3206: END IF;
3317: );
3318: wf_engine.startprocess (itemtype => l_wf_item_type, itemkey => l_wf_item_key);
3319: COMMIT;
3320:
3321: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3322: THEN
3323: fnd_log.STRING (fnd_log.level_statement,
3324: g_pkg_name || '.start_notify_workflow',
3325: '1000: end'
3319: COMMIT;
3320:
3321: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3322: THEN
3323: fnd_log.STRING (fnd_log.level_statement,
3324: g_pkg_name || '.start_notify_workflow',
3325: '1000: end'
3326: );
3327: END IF;
3345: p_count => x_msg_count,
3346: p_data => x_msg_data
3347: );
3348:
3349: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3350: THEN
3351: fnd_log.STRING (fnd_log.level_statement,
3352: g_pkg_name || '.start_notify_workflow',
3353: '1000:' || SQLERRM
3347: );
3348:
3349: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3350: THEN
3351: fnd_log.STRING (fnd_log.level_statement,
3352: g_pkg_name || '.start_notify_workflow',
3353: '1000:' || SQLERRM
3354: );
3355: END IF;
3424: l_api_name VARCHAR2(240) := 'REBUILD_IDS';
3425:
3426: BEGIN
3427:
3428: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3429: THEN
3430: fnd_log.STRING (fnd_log.level_statement, G_MODULE||l_api_name,
3431: '100: Inside OKC_K_ENTITY_LOCKS_GRP.REBUILD_IDS'
3432: );
3426: BEGIN
3427:
3428: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3429: THEN
3430: fnd_log.STRING (fnd_log.level_statement, G_MODULE||l_api_name,
3431: '100: Inside OKC_K_ENTITY_LOCKS_GRP.REBUILD_IDS'
3432: );
3433:
3434: fnd_log.STRING (fnd_log.level_statement, G_MODULE||l_api_name,
3430: fnd_log.STRING (fnd_log.level_statement, G_MODULE||l_api_name,
3431: '100: Inside OKC_K_ENTITY_LOCKS_GRP.REBUILD_IDS'
3432: );
3433:
3434: fnd_log.STRING (fnd_log.level_statement, G_MODULE||l_api_name,
3435: '100: p_update_from_doc_type : ' || p_update_from_doc_type
3436: );
3437: fnd_log.STRING (fnd_log.level_statement, G_MODULE||l_api_name,
3438: '100: p_update_from_doc_id : ' || p_update_from_doc_id
3433:
3434: fnd_log.STRING (fnd_log.level_statement, G_MODULE||l_api_name,
3435: '100: p_update_from_doc_type : ' || p_update_from_doc_type
3436: );
3437: fnd_log.STRING (fnd_log.level_statement, G_MODULE||l_api_name,
3438: '100: p_update_from_doc_id : ' || p_update_from_doc_id
3439: );
3440: fnd_log.STRING (fnd_log.level_statement, G_MODULE||l_api_name,
3441: '100: p_update_to_doc_type : ' || p_update_to_doc_type
3436: );
3437: fnd_log.STRING (fnd_log.level_statement, G_MODULE||l_api_name,
3438: '100: p_update_from_doc_id : ' || p_update_from_doc_id
3439: );
3440: fnd_log.STRING (fnd_log.level_statement, G_MODULE||l_api_name,
3441: '100: p_update_to_doc_type : ' || p_update_to_doc_type
3442: );
3443: fnd_log.STRING (fnd_log.level_statement, G_MODULE||l_api_name,
3444: '100: p_update_to_doc_id : ' || p_update_to_doc_id
3439: );
3440: fnd_log.STRING (fnd_log.level_statement, G_MODULE||l_api_name,
3441: '100: p_update_to_doc_type : ' || p_update_to_doc_type
3442: );
3443: fnd_log.STRING (fnd_log.level_statement, G_MODULE||l_api_name,
3444: '100: p_update_to_doc_id : ' || p_update_to_doc_id
3445: );
3446: END IF;
3447:
3549:
3550: EXCEPTION
3551: WHEN OTHERS THEN
3552: ROLLBACK TO g_rebuild_locks_grp;
3553: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3554: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving rebuild_ids because of EXCEPTION: '||sqlerrm);
3555: END IF;
3556:
3557: okc_api.set_message (p_app_name => g_app_name,
3550: EXCEPTION
3551: WHEN OTHERS THEN
3552: ROLLBACK TO g_rebuild_locks_grp;
3553: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3554: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving rebuild_ids because of EXCEPTION: '||sqlerrm);
3555: END IF;
3556:
3557: okc_api.set_message (p_app_name => g_app_name,
3558: p_msg_name => g_unexpected_error,
3945: END LOOP;
3946:
3947: EXCEPTION
3948: WHEN OTHERS THEN
3949: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3950: THEN
3951: fnd_log.STRING
3952: (FND_LOG.LEVEL_STATEMENT,
3953: g_pkg_name,
3947: EXCEPTION
3948: WHEN OTHERS THEN
3949: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3950: THEN
3951: fnd_log.STRING
3952: (FND_LOG.LEVEL_STATEMENT,
3953: g_pkg_name,
3954: '9999: Leaving merge_changes because of exception'
3955: );
3948: WHEN OTHERS THEN
3949: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3950: THEN
3951: fnd_log.STRING
3952: (FND_LOG.LEVEL_STATEMENT,
3953: g_pkg_name,
3954: '9999: Leaving merge_changes because of exception'
3955: );
3956: END IF;