[Home] [Help]
1556:
1557: ----------------------------- ********************************** ----------------------
1558: procedure insert_fin_cert_eval_sum(
1559: p_api_version_number IN NUMBER := 1.0,
1560: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1561: p_commit IN VARCHAR2 := FND_API.g_false,
1562: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1563: X_FIN_CERTIFICATION_ID IN NUMBER,
1564: X_FINANCIAL_STATEMENT_ID IN NUMBER,
1557: ----------------------------- ********************************** ----------------------
1558: procedure insert_fin_cert_eval_sum(
1559: p_api_version_number IN NUMBER := 1.0,
1560: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1561: p_commit IN VARCHAR2 := FND_API.g_false,
1562: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1563: X_FIN_CERTIFICATION_ID IN NUMBER,
1564: X_FINANCIAL_STATEMENT_ID IN NUMBER,
1565: X_FINANCIAL_ITEM_ID IN NUMBER,
1558: procedure insert_fin_cert_eval_sum(
1559: p_api_version_number IN NUMBER := 1.0,
1560: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1561: p_commit IN VARCHAR2 := FND_API.g_false,
1562: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1563: X_FIN_CERTIFICATION_ID IN NUMBER,
1564: X_FINANCIAL_STATEMENT_ID IN NUMBER,
1565: X_FINANCIAL_ITEM_ID IN NUMBER,
1566: X_ACCOUNT_GROUP_ID IN NUMBER,
1617:
1618: SAVEPOINT insert_fin_cert_eval_sum;
1619:
1620: -- Standard call to check for call compatibility.
1621: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1622: p_api_version_number,
1623: l_api_name,
1624: G_PKG_NAME)
1625: THEN
1622: p_api_version_number,
1623: l_api_name,
1624: G_PKG_NAME)
1625: THEN
1626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1627: END IF;
1628:
1629: -- Initialize message list if p_init_msg_list is set to TRUE.
1630: IF FND_API.to_Boolean( p_init_msg_list )
1626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1627: END IF;
1628:
1629: -- Initialize message list if p_init_msg_list is set to TRUE.
1630: IF FND_API.to_Boolean( p_init_msg_list )
1631: THEN
1632: FND_MSG_PUB.initialize;
1633: END IF;
1634:
1632: FND_MSG_PUB.initialize;
1633: END IF;
1634:
1635: -- Initialize API return status to SUCCESS
1636: x_return_status := FND_API.G_RET_STS_SUCCESS;
1637:
1638: SELECT COUNT(1) INTO M_COUNT FROM amw_fin_cert_eval_sum
1639: WHERE FIN_CERTIFICATION_ID = X_FIN_CERTIFICATION_ID
1640: AND FINANCIAL_STATEMENT_ID = X_FINANCIAL_STATEMENT_ID
1807: AND NVL(ACCOUNT_GROUP_ID,0) = NVL(X_ACCOUNT_GROUP_ID,0)
1808: AND OBJECT_TYPE = X_OBJECT_TYPE;
1809: end if;
1810:
1811: x_return_status := FND_API.G_RET_STS_SUCCESS;
1812:
1813: EXCEPTION
1814: WHEN NO_DATA_FOUND THEN
1815: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
1812:
1813: EXCEPTION
1814: WHEN NO_DATA_FOUND THEN
1815: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
1816: x_return_status := FND_API.G_RET_STS_ERROR;
1817: x_msg_count := 1;
1818: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
1819: WHEN OTHERS THEN
1820: ROLLBACK TO insert_fin_cert_eval_sum;
1819: WHEN OTHERS THEN
1820: ROLLBACK TO insert_fin_cert_eval_sum;
1821: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
1822: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
1823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1824: x_msg_count := 1;
1825: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
1826: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1827: FND_MSG_PUB.Count_And_Get(
1824: x_msg_count := 1;
1825: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
1826: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1827: FND_MSG_PUB.Count_And_Get(
1828: p_encoded => FND_API.G_FALSE,
1829: p_count => x_msg_count,
1830: p_data => x_msg_data);
1831:
1832: END insert_fin_cert_eval_sum;
1855: ----------------------------- ********************************** ----------------------
1856:
1857: PROCEDURE INSERT_FIN_CERT_SCOPE(
1858: p_api_version_number IN NUMBER := 1.0,
1859: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1860: p_commit IN VARCHAR2 := FND_API.g_false,
1861: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1862: p_certification_id IN NUMBER,
1863: x_return_status OUT nocopy VARCHAR2,
1856:
1857: PROCEDURE INSERT_FIN_CERT_SCOPE(
1858: p_api_version_number IN NUMBER := 1.0,
1859: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1860: p_commit IN VARCHAR2 := FND_API.g_false,
1861: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1862: p_certification_id IN NUMBER,
1863: x_return_status OUT nocopy VARCHAR2,
1864: x_msg_count OUT nocopy NUMBER,
1857: PROCEDURE INSERT_FIN_CERT_SCOPE(
1858: p_api_version_number IN NUMBER := 1.0,
1859: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1860: p_commit IN VARCHAR2 := FND_API.g_false,
1861: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1862: p_certification_id IN NUMBER,
1863: x_return_status OUT nocopy VARCHAR2,
1864: x_msg_count OUT nocopy NUMBER,
1865: x_msg_data OUT nocopy VARCHAR2
1878:
1879: SAVEPOINT INSERT_FIN_CERT_SCOPE;
1880:
1881: -- Standard call to check for call compatibility.
1882: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1883: p_api_version_number,
1884: l_api_name,
1885: G_PKG_NAME)
1886: THEN
1883: p_api_version_number,
1884: l_api_name,
1885: G_PKG_NAME)
1886: THEN
1887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1888: END IF;
1889:
1890: -- Initialize message list if p_init_msg_list is set to TRUE.
1891: IF FND_API.to_Boolean( p_init_msg_list )
1887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1888: END IF;
1889:
1890: -- Initialize message list if p_init_msg_list is set to TRUE.
1891: IF FND_API.to_Boolean( p_init_msg_list )
1892: THEN
1893: FND_MSG_PUB.initialize;
1894: END IF;
1895:
1893: FND_MSG_PUB.initialize;
1894: END IF;
1895:
1896: -- Initialize API return status to SUCCESS
1897: x_return_status := FND_API.G_RET_STS_SUCCESS;
1898:
1899: SELECT COUNT(1) INTO L_COUNT FROM AMW_FIN_CERT_SCOPE
1900: WHERE FIN_CERTIFICATION_ID = P_CERTIFICATION_ID;
1901:
2189: and proc.fin_certification_id(+) = P_CERTIFICATION_ID;
2190:
2191: END IF;
2192:
2193: x_return_status := FND_API.G_RET_STS_SUCCESS;
2194:
2195: EXCEPTION
2196: WHEN NO_DATA_FOUND THEN
2197: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
2194:
2195: EXCEPTION
2196: WHEN NO_DATA_FOUND THEN
2197: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
2198: x_return_status := FND_API.G_RET_STS_ERROR;
2199: x_msg_count := 1;
2200: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2201: WHEN OTHERS THEN
2202: ROLLBACK TO INSERT_FIN_CERT_SCOPE;
2201: WHEN OTHERS THEN
2202: ROLLBACK TO INSERT_FIN_CERT_SCOPE;
2203: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
2204: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
2205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2206: x_msg_count := 1;
2207: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2208: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2209: FND_MSG_PUB.Count_And_Get(
2206: x_msg_count := 1;
2207: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2208: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2209: FND_MSG_PUB.Count_And_Get(
2210: p_encoded => FND_API.G_FALSE,
2211: p_count => x_msg_count,
2212: p_data => x_msg_data);
2213:
2214: END INSERT_FIN_CERT_SCOPE;
2216: --------------------------------------- ******************************** ----------------------------
2217:
2218: PROCEDURE INSERT_FIN_CTRL(
2219: p_api_version_number IN NUMBER := 1.0,
2220: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2221: p_commit IN VARCHAR2 := FND_API.g_false,
2222: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2223: p_certification_id IN NUMBER,
2224: x_return_status OUT nocopy VARCHAR2,
2217:
2218: PROCEDURE INSERT_FIN_CTRL(
2219: p_api_version_number IN NUMBER := 1.0,
2220: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2221: p_commit IN VARCHAR2 := FND_API.g_false,
2222: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2223: p_certification_id IN NUMBER,
2224: x_return_status OUT nocopy VARCHAR2,
2225: x_msg_count OUT nocopy NUMBER,
2218: PROCEDURE INSERT_FIN_CTRL(
2219: p_api_version_number IN NUMBER := 1.0,
2220: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2221: p_commit IN VARCHAR2 := FND_API.g_false,
2222: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2223: p_certification_id IN NUMBER,
2224: x_return_status OUT nocopy VARCHAR2,
2225: x_msg_count OUT nocopy NUMBER,
2226: x_msg_data OUT nocopy VARCHAR2
2238:
2239: SAVEPOINT INSERT_FIN_CTRL;
2240:
2241: -- Standard call to check for call compatibility.
2242: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2243: p_api_version_number,
2244: l_api_name,
2245: G_PKG_NAME)
2246: THEN
2243: p_api_version_number,
2244: l_api_name,
2245: G_PKG_NAME)
2246: THEN
2247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2248: END IF;
2249:
2250: -- Initialize message list if p_init_msg_list is set to TRUE.
2251: IF FND_API.to_Boolean( p_init_msg_list )
2247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2248: END IF;
2249:
2250: -- Initialize message list if p_init_msg_list is set to TRUE.
2251: IF FND_API.to_Boolean( p_init_msg_list )
2252: THEN
2253: FND_MSG_PUB.initialize;
2254: END IF;
2255:
2253: FND_MSG_PUB.initialize;
2254: END IF;
2255:
2256: -- Initialize API return status to SUCCESS
2257: x_return_status := FND_API.G_RET_STS_SUCCESS;
2258:
2259: SELECT COUNT(1) INTO L_COUNT FROM AMW_FIN_ITEM_ACC_CTRL
2260: WHERE FIN_CERTIFICATION_ID = P_CERTIFICATION_ID;
2261:
2311: and scp.organization_id = ctrl.pk2
2312: and scp.process_id = ctrl.pk3
2313: and ctrl.pk1 = p_certification_id;
2314:
2315: if(p_commit <> FND_API.g_false)
2316: then commit;
2317: end if;
2318:
2319: END IF;
2316: then commit;
2317: end if;
2318:
2319: END IF;
2320: x_return_status := FND_API.G_RET_STS_SUCCESS;
2321:
2322: EXCEPTION
2323: WHEN NO_DATA_FOUND THEN
2324: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
2321:
2322: EXCEPTION
2323: WHEN NO_DATA_FOUND THEN
2324: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
2325: x_return_status := FND_API.G_RET_STS_ERROR;
2326: x_msg_count := 1;
2327: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2328: WHEN OTHERS THEN
2329: ROLLBACK TO INSERT_FIN_CTRL;
2328: WHEN OTHERS THEN
2329: ROLLBACK TO INSERT_FIN_CTRL;
2330: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
2331: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
2332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2333: x_msg_count := 1;
2334: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2335: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2336: FND_MSG_PUB.Count_And_Get(
2333: x_msg_count := 1;
2334: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2335: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2336: FND_MSG_PUB.Count_And_Get(
2337: p_encoded => FND_API.G_FALSE,
2338: p_count => x_msg_count,
2339: p_data => x_msg_data);
2340: RETURN;
2341: END INSERT_FIN_CTRL;
2341: END INSERT_FIN_CTRL;
2342:
2343: PROCEDURE INSERT_FIN_RISK(
2344: p_api_version_number IN NUMBER := 1.0,
2345: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2346: p_commit IN VARCHAR2 := FND_API.g_false,
2347: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2348: p_certification_id IN NUMBER,
2349: x_return_status OUT nocopy VARCHAR2,
2342:
2343: PROCEDURE INSERT_FIN_RISK(
2344: p_api_version_number IN NUMBER := 1.0,
2345: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2346: p_commit IN VARCHAR2 := FND_API.g_false,
2347: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2348: p_certification_id IN NUMBER,
2349: x_return_status OUT nocopy VARCHAR2,
2350: x_msg_count OUT nocopy NUMBER,
2343: PROCEDURE INSERT_FIN_RISK(
2344: p_api_version_number IN NUMBER := 1.0,
2345: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2346: p_commit IN VARCHAR2 := FND_API.g_false,
2347: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2348: p_certification_id IN NUMBER,
2349: x_return_status OUT nocopy VARCHAR2,
2350: x_msg_count OUT nocopy NUMBER,
2351: x_msg_data OUT nocopy VARCHAR2
2362: BEGIN
2363: SAVEPOINT INSERT_FIN_RISK;
2364:
2365: -- Standard call to check for call compatibility.
2366: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2367: p_api_version_number,
2368: l_api_name,
2369: G_PKG_NAME)
2370: THEN
2367: p_api_version_number,
2368: l_api_name,
2369: G_PKG_NAME)
2370: THEN
2371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2372: END IF;
2373:
2374: -- Initialize message list if p_init_msg_list is set to TRUE.
2375: IF FND_API.to_Boolean( p_init_msg_list )
2371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2372: END IF;
2373:
2374: -- Initialize message list if p_init_msg_list is set to TRUE.
2375: IF FND_API.to_Boolean( p_init_msg_list )
2376: THEN
2377: FND_MSG_PUB.initialize;
2378: END IF;
2379:
2377: FND_MSG_PUB.initialize;
2378: END IF;
2379:
2380: -- Initialize API return status to SUCCESS
2381: x_return_status := FND_API.G_RET_STS_SUCCESS;
2382:
2383: SELECT COUNT(1) INTO L_COUNT FROM AMW_FIN_ITEM_ACC_RISK
2384: WHERE FIN_CERTIFICATION_ID = P_CERTIFICATION_ID;
2385:
2435: and scp.organization_id = risk.pk2
2436: and scp.process_id = risk.pk3
2437: and risk.pk1 = p_certification_id;
2438:
2439: if(p_commit <> FND_API.g_false)
2440: then commit;
2441: end if;
2442:
2443: END IF;
2440: then commit;
2441: end if;
2442:
2443: END IF;
2444: x_return_status := FND_API.G_RET_STS_SUCCESS;
2445: EXCEPTION
2446: WHEN NO_DATA_FOUND THEN
2447: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
2448: x_return_status := FND_API.G_RET_STS_ERROR;
2444: x_return_status := FND_API.G_RET_STS_SUCCESS;
2445: EXCEPTION
2446: WHEN NO_DATA_FOUND THEN
2447: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
2448: x_return_status := FND_API.G_RET_STS_ERROR;
2449: x_msg_count := 1;
2450: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2451: WHEN OTHERS THEN
2452: ROLLBACK TO INSERT_FIN_RISK;
2451: WHEN OTHERS THEN
2452: ROLLBACK TO INSERT_FIN_RISK;
2453: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
2454: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
2455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2456: x_msg_count := 1;
2457: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2458: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2459: FND_MSG_PUB.Count_And_Get(
2456: x_msg_count := 1;
2457: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2458: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2459: FND_MSG_PUB.Count_And_Get(
2460: p_encoded => FND_API.G_FALSE,
2461: p_count => x_msg_count,
2462: p_data => x_msg_data);
2463: RETURN;
2464:
2500:
2501:
2502: PROCEDURE POPULATE_PROC_HIERARCHY(
2503: p_api_version_number IN NUMBER := 1.0,
2504: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2505: p_commit IN VARCHAR2 := FND_API.g_false,
2506: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2507: P_CERTIFICATION_ID NUMBER,
2508: P_PROCESS_ID NUMBER,
2501:
2502: PROCEDURE POPULATE_PROC_HIERARCHY(
2503: p_api_version_number IN NUMBER := 1.0,
2504: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2505: p_commit IN VARCHAR2 := FND_API.g_false,
2506: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2507: P_CERTIFICATION_ID NUMBER,
2508: P_PROCESS_ID NUMBER,
2509: P_ORGANIZATION_ID NUMBER,
2502: PROCEDURE POPULATE_PROC_HIERARCHY(
2503: p_api_version_number IN NUMBER := 1.0,
2504: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2505: p_commit IN VARCHAR2 := FND_API.g_false,
2506: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2507: P_CERTIFICATION_ID NUMBER,
2508: P_PROCESS_ID NUMBER,
2509: P_ORGANIZATION_ID NUMBER,
2510: p_account_process_flag VARCHAR2,
2526:
2527: SAVEPOINT POPULATE_PROC_HIERARCHY;
2528:
2529: -- Standard call to check for call compatibility.
2530: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2531: p_api_version_number,
2532: l_api_name,
2533: G_PKG_NAME)
2534: THEN
2531: p_api_version_number,
2532: l_api_name,
2533: G_PKG_NAME)
2534: THEN
2535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2536: END IF;
2537:
2538: -- Initialize message list if p_init_msg_list is set to TRUE.
2539: IF FND_API.to_Boolean( p_init_msg_list )
2535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2536: END IF;
2537:
2538: -- Initialize message list if p_init_msg_list is set to TRUE.
2539: IF FND_API.to_Boolean( p_init_msg_list )
2540: THEN
2541: FND_MSG_PUB.initialize;
2542: END IF;
2543:
2541: FND_MSG_PUB.initialize;
2542: END IF;
2543:
2544: -- Initialize API return status to SUCCESS
2545: x_return_status := FND_API.G_RET_STS_SUCCESS;
2546:
2547: SELECT COUNT(1) INTO l_count FROM AMW_FIN_PROCESS_FLAT
2548: WHERE PARENT_PROCESS_ID = P_PROCESS_ID
2549: AND ORGANIZATION_ID = P_ORGANIZATION_ID
2651: END IF;
2652:
2653: **********************/
2654:
2655: if(p_commit <> FND_API.g_false)
2656: then commit;
2657: end if;
2658: x_return_status := FND_API.G_RET_STS_SUCCESS;
2659:
2654:
2655: if(p_commit <> FND_API.g_false)
2656: then commit;
2657: end if;
2658: x_return_status := FND_API.G_RET_STS_SUCCESS;
2659:
2660: EXCEPTION
2661: WHEN NO_DATA_FOUND THEN
2662: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
2659:
2660: EXCEPTION
2661: WHEN NO_DATA_FOUND THEN
2662: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
2663: x_return_status := FND_API.G_RET_STS_ERROR;
2664: x_msg_count := 1;
2665: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2666: WHEN OTHERS THEN
2667: ROLLBACK TO POPULATE_PROC_HIERARCHY;
2666: WHEN OTHERS THEN
2667: ROLLBACK TO POPULATE_PROC_HIERARCHY;
2668: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
2669: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
2670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2671: x_msg_count := 1;
2672: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2673: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2674: FND_MSG_PUB.Count_And_Get(
2671: x_msg_count := 1;
2672: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
2673: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2674: FND_MSG_PUB.Count_And_Get(
2675: p_encoded => FND_API.G_FALSE,
2676: p_count => x_msg_count,
2677: p_data => x_msg_data);
2678: RETURN;
2679:
2727: IF (l_fin_cert_id IS NOT NULL) THEN
2728: AMW_FINSTMT_CERT_BES_PKG.Master_Fin_Proc_Eval_Sum
2729: ( p_certification_id => l_fin_cert_id,
2730: --p_start_date => c_cert_Rec.start_date,
2731: p_commit => FND_API.g_true,
2732: x_return_status => l_return_status,
2733: x_msg_count => l_msg_count,
2734: x_msg_data => l_msg_data);
2735: END IF;
2735: END IF;
2736:
2737: fnd_file.put_line(fnd_file.LOG, 'finish populating summary table with certification_id = ' || l_fin_cert_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2738:
2739: RETURN FND_API.G_RET_STS_SUCCESS;
2740:
2741: EXCEPTION
2742: WHEN OTHERS THEN
2743: ROLLBACK TO Populate_Fin_Stmt_Cert_Sum;
2742: WHEN OTHERS THEN
2743: ROLLBACK TO Populate_Fin_Stmt_Cert_Sum;
2744: WF_CORE.CONTEXT('AMW_FINSTMT_CERT_BES_PKG', 'Populate_Fin_Stmt_Cert_Sum', p_event.getEventName(), p_subscription_guid);
2745: WF_EVENT.setErrorInfo(p_event, 'ERROR');
2746: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
2747:
2748: end Populate_Fin_Stmt_Cert_Sum;
2749:
2750: FUNCTION Certification_Update
2800:
2801: EXCEPTION
2802: WHEN OTHERS THEN
2803: WF_CORE.CONTEXT('AMW_FINSTMT_CERT_BES_PKG', 'Certification_Update', p_event.getEventName(), p_subscription_guid);
2804: WF_EVENT.setErrorInfo(p_event, FND_API.G_RET_STS_UNEXP_ERROR);
2805: RETURN l_return_status;
2806:
2807: END Certification_Update;
2808:
2859:
2860: EXCEPTION
2861: WHEN OTHERS THEN
2862: WF_CORE.CONTEXT('AMW_FINSTMT_CERT_BES_PKG', 'Evaluation_Update', p_event.getEventName(), p_subscription_guid);
2863: WF_EVENT.setErrorInfo(p_event, FND_API.G_RET_STS_UNEXP_ERROR);
2864: RETURN l_return_status;
2865:
2866: END Evaluation_Update;
2867:
2866: END Evaluation_Update;
2867:
2868: PROCEDURE Certification_Update_Handler(
2869: p_api_version_number IN NUMBER := 1.0,
2870: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2871: p_commit IN VARCHAR2 := FND_API.g_false,
2872: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2873: p_opinion_log_id IN NUMBER,
2874: x_return_status OUT nocopy VARCHAR2,
2867:
2868: PROCEDURE Certification_Update_Handler(
2869: p_api_version_number IN NUMBER := 1.0,
2870: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2871: p_commit IN VARCHAR2 := FND_API.g_false,
2872: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2873: p_opinion_log_id IN NUMBER,
2874: x_return_status OUT nocopy VARCHAR2,
2875: x_msg_count OUT nocopy NUMBER,
2868: PROCEDURE Certification_Update_Handler(
2869: p_api_version_number IN NUMBER := 1.0,
2870: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2871: p_commit IN VARCHAR2 := FND_API.g_false,
2872: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2873: p_opinion_log_id IN NUMBER,
2874: x_return_status OUT nocopy VARCHAR2,
2875: x_msg_count OUT nocopy NUMBER,
2876: x_msg_data OUT nocopy VARCHAR2
2908: SAVEPOINT Certification_Update_Handler;
2909: fnd_file.put_line(fnd_file.LOG, 'start Certification_Update_Handler::' || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2910:
2911: -- Standard call to check for call compatibility.
2912: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2913: p_api_version_number,
2914: l_api_name,
2915: G_PKG_NAME)
2916: THEN
2913: p_api_version_number,
2914: l_api_name,
2915: G_PKG_NAME)
2916: THEN
2917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2918: END IF;
2919:
2920: -- Initialize message list if p_init_msg_list is set to TRUE.
2921: IF FND_API.to_Boolean( p_init_msg_list )
2917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2918: END IF;
2919:
2920: -- Initialize message list if p_init_msg_list is set to TRUE.
2921: IF FND_API.to_Boolean( p_init_msg_list )
2922: THEN
2923: FND_MSG_PUB.initialize;
2924: END IF;
2925:
2923: FND_MSG_PUB.initialize;
2924: END IF;
2925:
2926: -- Initialize API return status to SUCCESS
2927: x_return_status := FND_API.G_RET_STS_SUCCESS;
2928: g_refresh_flag := 'N';
2929:
2930: l_opinion_log_id := p_opinion_log_id;
2931: open Get_Obj_Name(l_opinion_log_id);
2951: CERT_OPINION_ID = l_opinion_id
2952: WHERE ORGANIZATION_ID = l_pk1
2953: AND FIN_CERTIFICATION_ID IN (SELECT CERTIFICATION_ID FROM AMW_CERTIFICATION_B
2954: WHERE CERTIFICATION_STATUS IN ('ACTIVE', 'DRAFT'));
2955: if(p_commit <> FND_API.g_false)
2956: then commit;
2957: end if;
2958:
2959: fnd_file.put_line(fnd_file.LOG, 'after organization_change_handler: org_id' || l_pk3 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2979: AND PROCESS_ID = l_pk1
2980: AND FIN_CERTIFICATION_ID IN (SELECT CERTIFICATION_ID FROM AMW_CERTIFICATION_B
2981: WHERE CERTIFICATION_STATUS IN ('ACTIVE', 'DRAFT'));
2982:
2983: if(p_commit <> FND_API.g_false)
2984: then commit;
2985: end if;
2986:
2987: fnd_file.put_line(fnd_file.LOG, 'after process_change_handler: org_id' || l_pk3 || 'process_id' || l_pk1 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2987: fnd_file.put_line(fnd_file.LOG, 'after process_change_handler: org_id' || l_pk3 || 'process_id' || l_pk1 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
2988:
2989: END IF;
2990:
2991: x_return_status := FND_API.G_RET_STS_SUCCESS;
2992:
2993: EXCEPTION
2994: WHEN NO_DATA_FOUND THEN
2995: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
2992:
2993: EXCEPTION
2994: WHEN NO_DATA_FOUND THEN
2995: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
2996: x_return_status := FND_API.G_RET_STS_ERROR;
2997: x_msg_count := 1;
2998: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
2999: WHEN OTHERS THEN
3000: ROLLBACK TO Certification_Update_Handler;
2999: WHEN OTHERS THEN
3000: ROLLBACK TO Certification_Update_Handler;
3001: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
3002: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
3003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3004: x_msg_count := 1;
3005: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3006: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3007: FND_MSG_PUB.Count_And_Get(
3004: x_msg_count := 1;
3005: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3006: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3007: FND_MSG_PUB.Count_And_Get(
3008: p_encoded => FND_API.G_FALSE,
3009: p_count => x_msg_count,
3010: p_data => x_msg_data);
3011: RETURN;
3012:
3014:
3015:
3016: PROCEDURE Evaluation_Update_Handler(
3017: p_api_version_number IN NUMBER := 1.0,
3018: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3019: p_commit IN VARCHAR2 := FND_API.g_false,
3020: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3021: p_opinion_log_id IN NUMBER,
3022: x_return_status OUT nocopy VARCHAR2,
3015:
3016: PROCEDURE Evaluation_Update_Handler(
3017: p_api_version_number IN NUMBER := 1.0,
3018: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3019: p_commit IN VARCHAR2 := FND_API.g_false,
3020: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3021: p_opinion_log_id IN NUMBER,
3022: x_return_status OUT nocopy VARCHAR2,
3023: x_msg_count OUT nocopy NUMBER,
3016: PROCEDURE Evaluation_Update_Handler(
3017: p_api_version_number IN NUMBER := 1.0,
3018: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3019: p_commit IN VARCHAR2 := FND_API.g_false,
3020: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3021: p_opinion_log_id IN NUMBER,
3022: x_return_status OUT nocopy VARCHAR2,
3023: x_msg_count OUT nocopy NUMBER,
3024: x_msg_data OUT nocopy VARCHAR2
3059: SAVEPOINT Evaluation_Update_Handler;
3060: fnd_file.put_line(fnd_file.LOG, 'start evaluation_update_handler::' || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3061:
3062: -- Standard call to check for call compatibility.
3063: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3064: p_api_version_number,
3065: l_api_name,
3066: G_PKG_NAME)
3067: THEN
3064: p_api_version_number,
3065: l_api_name,
3066: G_PKG_NAME)
3067: THEN
3068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3069: END IF;
3070:
3071: -- Initialize message list if p_init_msg_list is set to TRUE.
3072: IF FND_API.to_Boolean( p_init_msg_list )
3068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3069: END IF;
3070:
3071: -- Initialize message list if p_init_msg_list is set to TRUE.
3072: IF FND_API.to_Boolean( p_init_msg_list )
3073: THEN
3074: FND_MSG_PUB.initialize;
3075: END IF;
3076:
3074: FND_MSG_PUB.initialize;
3075: END IF;
3076:
3077: -- Initialize API return status to SUCCESS
3078: x_return_status := FND_API.G_RET_STS_SUCCESS;
3079: g_refresh_flag := 'N';
3080:
3081: l_opinion_log_id := p_opinion_log_id;
3082: open Get_Obj_Name(l_opinion_log_id);
3102: EVAL_OPINION_ID = l_opinion_id
3103: WHERE ORGANIZATION_ID = l_pk1
3104: AND FIN_CERTIFICATION_ID IN (SELECT CERTIFICATION_ID FROM AMW_CERTIFICATION_B
3105: WHERE CERTIFICATION_STATUS IN ('ACTIVE', 'DRAFT'));
3106: if(p_commit <> FND_API.g_false) then
3107: commit;
3108: end if;
3109:
3110: fnd_file.put_line(fnd_file.LOG, 'after organization_change_handler: org_id' || l_pk3 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3130: AND PROCESS_ID = l_pk1
3131: AND FIN_CERTIFICATION_ID IN (SELECT CERTIFICATION_ID FROM AMW_CERTIFICATION_B
3132: WHERE CERTIFICATION_STATUS IN ('ACTIVE', 'DRAFT'));
3133:
3134: if(p_commit <> FND_API.g_false)
3135: then commit;
3136: end if;
3137:
3138: fnd_file.put_line(fnd_file.LOG, 'after process_change_handler: org_id' || l_pk3 || 'process_id' || l_pk1 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3158: AND pk2= l_pk3
3159: AND pk3= l_pk4
3160: AND pk1 IN (SELECT CERTIFICATION_ID FROM AMW_CERTIFICATION_B
3161: WHERE CERTIFICATION_STATUS IN ('ACTIVE', 'DRAFT'));
3162: if(p_commit <> FND_API.g_false)
3163: then commit;
3164: end if;
3165:
3166: fnd_file.put_line(fnd_file.LOG, 'after risk_evaluation_handler: org_id=' || l_pk3 || 'risk_id=' || l_pk1 || 'process_id=' || l_pk4 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3185: AND pk2 = l_pk3
3186: AND pk1 IN (SELECT CERTIFICATION_ID FROM AMW_CERTIFICATION_B
3187: WHERE CERTIFICATION_STATUS IN ('ACTIVE', 'DRAFT'));
3188:
3189: if(p_commit <> FND_API.g_false)
3190: then commit;
3191: end if;
3192:
3193: fnd_file.put_line(fnd_file.LOG, 'after control_evaluation_handler: org_id=' || l_pk3 || 'risk_id=' || l_pk1 || 'process_id=' || l_pk4 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3209: AND pk2 = l_pk3 -- organization_id
3210: AND pk1 IN (SELECT CERTIFICATION_ID FROM AMW_CERTIFICATION_B
3211: WHERE CERTIFICATION_STATUS IN ('ACTIVE', 'DRAFT'));
3212:
3213: if(p_commit <> FND_API.g_false)
3214: then commit;
3215: end if;
3216:
3217: fnd_file.put_line(fnd_file.LOG, 'after ap_evaluation_handler: org_id=' || l_pk3 || 'risk_id=' || l_pk1 || 'process_id=' || l_pk4 || ' opinion_log_id= ' || l_opinion_log_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3235: --END LOOP;
3236:
3237: --END IF;
3238:
3239: if(p_commit <> FND_API.g_false)
3240: then commit;
3241: end if;
3242:
3243:
3241: end if;
3242:
3243:
3244:
3245: x_return_status := FND_API.G_RET_STS_SUCCESS;
3246:
3247: EXCEPTION
3248: WHEN NO_DATA_FOUND THEN
3249: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
3246:
3247: EXCEPTION
3248: WHEN NO_DATA_FOUND THEN
3249: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
3250: x_return_status := FND_API.G_RET_STS_ERROR;
3251: x_msg_count := 1;
3252: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3253: WHEN OTHERS THEN
3254: ROLLBACK TO Evaluation_Update_Handler;
3253: WHEN OTHERS THEN
3254: ROLLBACK TO Evaluation_Update_Handler;
3255: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
3256: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
3257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3258: x_msg_count := 1;
3259: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3260: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3261: FND_MSG_PUB.Count_And_Get(
3258: x_msg_count := 1;
3259: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3260: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3261: FND_MSG_PUB.Count_And_Get(
3262: p_encoded => FND_API.G_FALSE,
3263: p_count => x_msg_count,
3264: p_data => x_msg_data);
3265: RETURN;
3266:
3319: fnd_file.put_line(fnd_file.LOG, 'fin_certification_id = ' || l_fin_cert_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3320:
3321: AMW_FINSTMT_CERT_BES_PKG.Master_Fin_Proc_Eval_Sum
3322: (p_certification_id => l_fin_cert_id,
3323: p_commit => FND_API.g_true,
3324: x_return_status => l_return_status,
3325: x_msg_count => l_msg_count,
3326: x_msg_data => l_msg_data);
3327:
3326: x_msg_data => l_msg_data);
3327:
3328: fnd_file.put_line(fnd_file.LOG, 'finish updating summary table with certification_id = ' || l_fin_cert_id || to_char(sysdate, 'hh:mi:ss dd-mon-rrrr'));
3329:
3330: RETURN FND_API.G_RET_STS_SUCCESS;
3331:
3332: EXCEPTION
3333: WHEN OTHERS THEN
3334: WF_CORE.CONTEXT('AMW_FINSTMT_CERT_BES_PKG', 'Update_Fin_Stmt_Cert_Sum', p_event.getEventName(), p_subscription_guid);
3332: EXCEPTION
3333: WHEN OTHERS THEN
3334: WF_CORE.CONTEXT('AMW_FINSTMT_CERT_BES_PKG', 'Update_Fin_Stmt_Cert_Sum', p_event.getEventName(), p_subscription_guid);
3335: WF_EVENT.setErrorInfo(p_event, 'ERROR' || l_msg_data);
3336: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
3337:
3338: END Update_Fin_Stmt_Cert_Sum;
3339:
3340:
3339:
3340:
3341: PROCEDURE Master_Fin_Proc_Eval_Sum(
3342: p_api_version_number IN NUMBER := 1.0,
3343: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3344: p_commit IN VARCHAR2 := FND_API.g_false,
3345: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3346: p_certification_id IN NUMBER,
3347: p_start_date IN DATE := null,
3340:
3341: PROCEDURE Master_Fin_Proc_Eval_Sum(
3342: p_api_version_number IN NUMBER := 1.0,
3343: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3344: p_commit IN VARCHAR2 := FND_API.g_false,
3345: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3346: p_certification_id IN NUMBER,
3347: p_start_date IN DATE := null,
3348: p_mode IN VARCHAR2 := 'NEW',
3341: PROCEDURE Master_Fin_Proc_Eval_Sum(
3342: p_api_version_number IN NUMBER := 1.0,
3343: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3344: p_commit IN VARCHAR2 := FND_API.g_false,
3345: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3346: p_certification_id IN NUMBER,
3347: p_start_date IN DATE := null,
3348: p_mode IN VARCHAR2 := 'NEW',
3349: x_return_status OUT nocopy VARCHAR2,
3460:
3461: EXCEPTION
3462: WHEN NO_DATA_FOUND THEN
3463: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
3464: x_return_status := FND_API.G_RET_STS_ERROR;
3465: x_msg_count := 1;
3466: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3467: WHEN OTHERS THEN
3468: ROLLBACK TO Master_Fin_Proc_Eval_Sum;
3467: WHEN OTHERS THEN
3468: ROLLBACK TO Master_Fin_Proc_Eval_Sum;
3469: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
3470: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
3471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3472: x_msg_count := 1;
3473: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3474: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3475: FND_MSG_PUB.Count_And_Get(
3472: x_msg_count := 1;
3473: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3474: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3475: FND_MSG_PUB.Count_And_Get(
3476: p_encoded => FND_API.G_FALSE,
3477: p_count => x_msg_count,
3478: p_data => x_msg_data);
3479: RETURN;
3480:
3482: END Master_Fin_Proc_Eval_Sum;
3483:
3484: PROCEDURE Refresh_All_Fin_Proc_Eval_Sum(
3485: p_api_version_number IN NUMBER := 1.0,
3486: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3487: p_commit IN VARCHAR2 := FND_API.g_false,
3488: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3489: p_certification_id IN NUMBER,
3490: x_return_status OUT nocopy VARCHAR2,
3483:
3484: PROCEDURE Refresh_All_Fin_Proc_Eval_Sum(
3485: p_api_version_number IN NUMBER := 1.0,
3486: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3487: p_commit IN VARCHAR2 := FND_API.g_false,
3488: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3489: p_certification_id IN NUMBER,
3490: x_return_status OUT nocopy VARCHAR2,
3491: x_msg_count OUT nocopy NUMBER,
3484: PROCEDURE Refresh_All_Fin_Proc_Eval_Sum(
3485: p_api_version_number IN NUMBER := 1.0,
3486: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3487: p_commit IN VARCHAR2 := FND_API.g_false,
3488: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3489: p_certification_id IN NUMBER,
3490: x_return_status OUT nocopy VARCHAR2,
3491: x_msg_count OUT nocopy NUMBER,
3492: x_msg_data OUT nocopy VARCHAR2
3513:
3514: SAVEPOINT Refresh_All_Fin_Proc_Eval_Sum;
3515:
3516: -- Standard call to check for call compatibility.
3517: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3518: p_api_version_number,
3519: l_api_name,
3520: G_PKG_NAME)
3521: THEN
3518: p_api_version_number,
3519: l_api_name,
3520: G_PKG_NAME)
3521: THEN
3522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3523: END IF;
3524:
3525: -- Initialize message list if p_init_msg_list is set to TRUE.
3526: IF FND_API.to_Boolean( p_init_msg_list )
3522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3523: END IF;
3524:
3525: -- Initialize message list if p_init_msg_list is set to TRUE.
3526: IF FND_API.to_Boolean( p_init_msg_list )
3527: THEN
3528: FND_MSG_PUB.initialize;
3529: END IF;
3530:
3528: FND_MSG_PUB.initialize;
3529: END IF;
3530:
3531: -- Initialize API return status to SUCCESS
3532: x_return_status := FND_API.G_RET_STS_SUCCESS;
3533:
3534:
3535: FOR process_rec IN c_process LOOP
3536: exit when c_process%notfound;
3549: x_msg_data => l_msg_data);
3550:
3551: END LOOP;
3552:
3553: if(p_commit <> FND_API.g_false)
3554: then commit;
3555: end if;
3556:
3557:
3554: then commit;
3555: end if;
3556:
3557:
3558: x_return_status := FND_API.G_RET_STS_SUCCESS;
3559:
3560: EXCEPTION
3561: WHEN NO_DATA_FOUND THEN
3562: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
3559:
3560: EXCEPTION
3561: WHEN NO_DATA_FOUND THEN
3562: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
3563: x_return_status := FND_API.G_RET_STS_ERROR;
3564: x_msg_count := 1;
3565: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3566: WHEN OTHERS THEN
3567: ROLLBACK TO Refresh_All_Fin_Proc_Eval_Sum;
3566: WHEN OTHERS THEN
3567: ROLLBACK TO Refresh_All_Fin_Proc_Eval_Sum;
3568: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
3569: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
3570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3571: x_msg_count := 1;
3572: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3573: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3574: FND_MSG_PUB.Count_And_Get(
3571: x_msg_count := 1;
3572: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3573: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3574: FND_MSG_PUB.Count_And_Get(
3575: p_encoded => FND_API.G_FALSE,
3576: p_count => x_msg_count,
3577: p_data => x_msg_data);
3578: RETURN;
3579:
3581:
3582:
3583: PROCEDURE Populate_All_Fin_Proc_Eval_Sum(
3584: p_api_version_number IN NUMBER := 1.0,
3585: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3586: p_commit IN VARCHAR2 := FND_API.g_false,
3587: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3588: p_certification_id IN NUMBER,
3589: x_return_status OUT nocopy VARCHAR2,
3582:
3583: PROCEDURE Populate_All_Fin_Proc_Eval_Sum(
3584: p_api_version_number IN NUMBER := 1.0,
3585: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3586: p_commit IN VARCHAR2 := FND_API.g_false,
3587: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3588: p_certification_id IN NUMBER,
3589: x_return_status OUT nocopy VARCHAR2,
3590: x_msg_count OUT nocopy NUMBER,
3583: PROCEDURE Populate_All_Fin_Proc_Eval_Sum(
3584: p_api_version_number IN NUMBER := 1.0,
3585: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3586: p_commit IN VARCHAR2 := FND_API.g_false,
3587: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3588: p_certification_id IN NUMBER,
3589: x_return_status OUT nocopy VARCHAR2,
3590: x_msg_count OUT nocopy NUMBER,
3591: x_msg_data OUT nocopy VARCHAR2
3848:
3849: SAVEPOINT Populate_All_Fin_Proc_Eval_Sum;
3850:
3851: -- Standard call to check for call compatibility.
3852: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3853: p_api_version_number,
3854: l_api_name,
3855: G_PKG_NAME)
3856: THEN
3853: p_api_version_number,
3854: l_api_name,
3855: G_PKG_NAME)
3856: THEN
3857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3858: END IF;
3859:
3860: -- Initialize message list if p_init_msg_list is set to TRUE.
3861: IF FND_API.to_Boolean( p_init_msg_list )
3857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3858: END IF;
3859:
3860: -- Initialize message list if p_init_msg_list is set to TRUE.
3861: IF FND_API.to_Boolean( p_init_msg_list )
3862: THEN
3863: FND_MSG_PUB.initialize;
3864: END IF;
3865:
3863: FND_MSG_PUB.initialize;
3864: END IF;
3865:
3866: -- Initialize API return status to SUCCESS
3867: x_return_status := FND_API.G_RET_STS_SUCCESS;
3868:
3869:
3870: FOR process_rec IN c_process(p_certification_id) LOOP
3871: exit when c_process%notfound;
3959: AND ORGANIZATION_ID = var_rec.organization_id
3960: AND PROCESS_ID = var_rec.process_id;
3961:
3962: END LOOP;
3963: if(p_commit <> FND_API.g_false)
3964: then commit;
3965: end if;
3966:
3967:
3965: end if;
3966:
3967:
3968:
3969: x_return_status := FND_API.G_RET_STS_SUCCESS;
3970:
3971: EXCEPTION
3972: WHEN NO_DATA_FOUND THEN
3973: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
3970:
3971: EXCEPTION
3972: WHEN NO_DATA_FOUND THEN
3973: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
3974: x_return_status := FND_API.G_RET_STS_ERROR;
3975: x_msg_count := 1;
3976: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
3977: WHEN OTHERS THEN
3978: ROLLBACK TO Populate_All_Fin_Proc_Eval_Sum;
3977: WHEN OTHERS THEN
3978: ROLLBACK TO Populate_All_Fin_Proc_Eval_Sum;
3979: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
3980: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
3981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3982: x_msg_count := 1;
3983: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3984: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3985: FND_MSG_PUB.Count_And_Get(
3982: x_msg_count := 1;
3983: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
3984: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3985: FND_MSG_PUB.Count_And_Get(
3986: p_encoded => FND_API.G_FALSE,
3987: p_count => x_msg_count,
3988: p_data => x_msg_data);
3989: RETURN;
3990:
3993:
3994:
3995: PROCEDURE Populate_Fin_Process_Eval_Sum(
3996: p_api_version_number IN NUMBER := 1.0,
3997: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3998: p_commit IN VARCHAR2 := FND_API.g_false,
3999: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4000: p_certification_id IN NUMBER,
4001: p_start_date IN DATE,
3994:
3995: PROCEDURE Populate_Fin_Process_Eval_Sum(
3996: p_api_version_number IN NUMBER := 1.0,
3997: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3998: p_commit IN VARCHAR2 := FND_API.g_false,
3999: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4000: p_certification_id IN NUMBER,
4001: p_start_date IN DATE,
4002: p_end_date IN DATE,
3995: PROCEDURE Populate_Fin_Process_Eval_Sum(
3996: p_api_version_number IN NUMBER := 1.0,
3997: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3998: p_commit IN VARCHAR2 := FND_API.g_false,
3999: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4000: p_certification_id IN NUMBER,
4001: p_start_date IN DATE,
4002: p_end_date IN DATE,
4003: p_process_org_rev_id IN NUMBER,
4272:
4273: SAVEPOINT Populate_Fin_Process_Eval_Sum;
4274:
4275: -- Standard call to check for call compatibility.
4276: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4277: p_api_version_number,
4278: l_api_name,
4279: G_PKG_NAME)
4280: THEN
4277: p_api_version_number,
4278: l_api_name,
4279: G_PKG_NAME)
4280: THEN
4281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4282: END IF;
4283:
4284: -- Initialize message list if p_init_msg_list is set to TRUE.
4285: IF FND_API.to_Boolean( p_init_msg_list )
4281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4282: END IF;
4283:
4284: -- Initialize message list if p_init_msg_list is set to TRUE.
4285: IF FND_API.to_Boolean( p_init_msg_list )
4286: THEN
4287: FND_MSG_PUB.initialize;
4288: END IF;
4289:
4287: FND_MSG_PUB.initialize;
4288: END IF;
4289:
4290: -- Initialize API return status to SUCCESS
4291: x_return_status := FND_API.G_RET_STS_SUCCESS;
4292:
4293:
4294: SELECT count(1) into l_count
4295: FROM AMW_FIN_PROCESS_EVAL_SUM sum
4482: AND PROCESS_ORG_REV_ID = p_process_org_rev_id;
4483:
4484: END IF;
4485:
4486: x_return_status := FND_API.G_RET_STS_SUCCESS;
4487:
4488: EXCEPTION
4489: WHEN NO_DATA_FOUND THEN
4490: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
4487:
4488: EXCEPTION
4489: WHEN NO_DATA_FOUND THEN
4490: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
4491: x_return_status := FND_API.G_RET_STS_ERROR;
4492: x_msg_count := 1;
4493: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
4494: WHEN OTHERS THEN
4495: ROLLBACK TO Populate_Fin_Process_Eval_Sum;
4494: WHEN OTHERS THEN
4495: ROLLBACK TO Populate_Fin_Process_Eval_Sum;
4496: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
4497: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
4498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4499: x_msg_count := 1;
4500: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4501: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4502: FND_MSG_PUB.Count_And_Get(
4499: x_msg_count := 1;
4500: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4501: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4502: FND_MSG_PUB.Count_And_Get(
4503: p_encoded => FND_API.G_FALSE,
4504: p_count => x_msg_count,
4505: p_data => x_msg_data);
4506: RETURN;
4507:
4510:
4511: /********************delete becuase put ceritification loop in master_... procedure *****************
4512: PROCEDURE Populate_All_Fin_Risk_Ass_Sum(
4513: p_api_version_number IN NUMBER := 1.0,
4514: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4515: p_commit IN VARCHAR2 := FND_API.g_false,
4516: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4517: p_certification_id IN NUMBER,
4518: x_return_status OUT nocopy VARCHAR2,
4511: /********************delete becuase put ceritification loop in master_... procedure *****************
4512: PROCEDURE Populate_All_Fin_Risk_Ass_Sum(
4513: p_api_version_number IN NUMBER := 1.0,
4514: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4515: p_commit IN VARCHAR2 := FND_API.g_false,
4516: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4517: p_certification_id IN NUMBER,
4518: x_return_status OUT nocopy VARCHAR2,
4519: x_msg_count OUT nocopy NUMBER,
4512: PROCEDURE Populate_All_Fin_Risk_Ass_Sum(
4513: p_api_version_number IN NUMBER := 1.0,
4514: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4515: p_commit IN VARCHAR2 := FND_API.g_false,
4516: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4517: p_certification_id IN NUMBER,
4518: x_return_status OUT nocopy VARCHAR2,
4519: x_msg_count OUT nocopy NUMBER,
4520: x_msg_data OUT nocopy VARCHAR2
4537: x_msg_count => l_msg_count,
4538: x_msg_data => l_msg_data);
4539:
4540:
4541: x_return_status := FND_API.G_RET_STS_SUCCESS;
4542:
4543: EXCEPTION
4544: WHEN NO_DATA_FOUND THEN
4545: IF c_cert%ISOPEN THEN
4545: IF c_cert%ISOPEN THEN
4546: close c_cert;
4547: END IF;
4548: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
4549: x_return_status := FND_API.G_RET_STS_ERROR;
4550: x_msg_count := 1;
4551: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
4552: WHEN OTHERS THEN
4553: IF c_cert%ISOPEN THEN
4555: END IF;
4556: ROLLBACK TO Populate_All_Fin_Risk_Ass_Sum;
4557: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
4558: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
4559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4560: x_msg_count := 1;
4561: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4562: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4563: FND_MSG_PUB.Count_And_Get(
4560: x_msg_count := 1;
4561: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4562: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4563: FND_MSG_PUB.Count_And_Get(
4564: p_encoded => FND_API.G_FALSE,
4565: p_count => x_msg_count,
4566: p_data => x_msg_data);
4567: RETURN;
4568:
4573:
4574: -------------populate risk association which related to financial certification ----
4575: PROCEDURE Populate_Fin_Risk_Ass_Sum(
4576: p_api_version_number IN NUMBER := 1.0,
4577: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4578: p_commit IN VARCHAR2 := FND_API.g_false,
4579: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4580: p_certification_id IN NUMBER,
4581: x_return_status OUT nocopy VARCHAR2,
4574: -------------populate risk association which related to financial certification ----
4575: PROCEDURE Populate_Fin_Risk_Ass_Sum(
4576: p_api_version_number IN NUMBER := 1.0,
4577: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4578: p_commit IN VARCHAR2 := FND_API.g_false,
4579: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4580: p_certification_id IN NUMBER,
4581: x_return_status OUT nocopy VARCHAR2,
4582: x_msg_count OUT nocopy NUMBER,
4575: PROCEDURE Populate_Fin_Risk_Ass_Sum(
4576: p_api_version_number IN NUMBER := 1.0,
4577: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4578: p_commit IN VARCHAR2 := FND_API.g_false,
4579: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4580: p_certification_id IN NUMBER,
4581: x_return_status OUT nocopy VARCHAR2,
4582: x_msg_count OUT nocopy NUMBER,
4583: x_msg_data OUT nocopy VARCHAR2
4667:
4668: SAVEPOINT Populate_Fin_Risk_Ass_Sum;
4669:
4670: -- Standard call to check for call compatibility.
4671: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4672: p_api_version_number,
4673: l_api_name,
4674: G_PKG_NAME)
4675: THEN
4672: p_api_version_number,
4673: l_api_name,
4674: G_PKG_NAME)
4675: THEN
4676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4677: END IF;
4678:
4679: -- Initialize message list if p_init_msg_list is set to TRUE.
4680: IF FND_API.to_Boolean( p_init_msg_list )
4676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4677: END IF;
4678:
4679: -- Initialize message list if p_init_msg_list is set to TRUE.
4680: IF FND_API.to_Boolean( p_init_msg_list )
4681: THEN
4682: FND_MSG_PUB.initialize;
4683: END IF;
4684:
4682: FND_MSG_PUB.initialize;
4683: END IF;
4684:
4685: -- Initialize API return status to SUCCESS
4686: x_return_status := FND_API.G_RET_STS_SUCCESS;
4687:
4688:
4689: SELECT COUNT(1) INTO l_count FROM AMW_RISK_ASSOCIATIONS
4690: WHERE object_type = 'PROCESS_FINCERT'
4740: risk_rec.RISK_REV_ID);
4741:
4742: END LOOP;
4743:
4744: if(p_commit <> FND_API.g_false)
4745: then commit;
4746: end if;
4747: /**05.02.2006 npanandi: bug 5201579 fix --- need to have an update DML here**/
4748: else /**this means that l_count is not zero, so update**/
4766: and PK3 = risk_rec.PK2
4767: and pk1 in (select certification_id from amw_certification_b
4768: where certification_status in ('ACTIVE','DRAFT'));
4769: END LOOP;
4770: if(p_commit <> FND_API.g_false)
4771: then commit;
4772: end if;
4773: /**05.02.2006 npanandi: bug 5201579 fix ends here**/
4774: END IF;
4771: then commit;
4772: end if;
4773: /**05.02.2006 npanandi: bug 5201579 fix ends here**/
4774: END IF;
4775: x_return_status := FND_API.G_RET_STS_SUCCESS;
4776:
4777:
4778: EXCEPTION
4779: WHEN NO_DATA_FOUND THEN
4780: IF c_finrisks%ISOPEN THEN
4781: close c_finrisks;
4782: END IF;
4783: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
4784: x_return_status := FND_API.G_RET_STS_ERROR;
4785: x_msg_count := 1;
4786: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
4787: WHEN OTHERS THEN
4788: IF c_finrisks%ISOPEN THEN
4790: END IF;
4791: ROLLBACK TO Populate_Fin_Risk_Ass_Sum;
4792: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
4793: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
4794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4795: x_msg_count := 1;
4796: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4797: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4798: FND_MSG_PUB.Count_And_Get(
4795: x_msg_count := 1;
4796: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4797: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4798: FND_MSG_PUB.Count_And_Get(
4799: p_encoded => FND_API.G_FALSE,
4800: p_count => x_msg_count,
4801: p_data => x_msg_data);
4802: RETURN;
4803:
4806: -------------populate all of financial certification which has one or more control associations
4807: /****************loop in master procedure *******************
4808: PROCEDURE Populate_All_Fin_Ctrl_Ass_Sum(
4809: p_api_version_number IN NUMBER := 1.0,
4810: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4811: p_commit IN VARCHAR2 := FND_API.g_false,
4812: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4813: p_certification_id IN NUMBER,
4814: x_return_status OUT nocopy VARCHAR2,
4807: /****************loop in master procedure *******************
4808: PROCEDURE Populate_All_Fin_Ctrl_Ass_Sum(
4809: p_api_version_number IN NUMBER := 1.0,
4810: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4811: p_commit IN VARCHAR2 := FND_API.g_false,
4812: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4813: p_certification_id IN NUMBER,
4814: x_return_status OUT nocopy VARCHAR2,
4815: x_msg_count OUT nocopy NUMBER,
4808: PROCEDURE Populate_All_Fin_Ctrl_Ass_Sum(
4809: p_api_version_number IN NUMBER := 1.0,
4810: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4811: p_commit IN VARCHAR2 := FND_API.g_false,
4812: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4813: p_certification_id IN NUMBER,
4814: x_return_status OUT nocopy VARCHAR2,
4815: x_msg_count OUT nocopy NUMBER,
4816: x_msg_data OUT nocopy VARCHAR2
4835:
4836: SAVEPOINT Populate_All_Fin_Ctrl_Ass_Sum;
4837:
4838: -- Standard call to check for call compatibility.
4839: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4840: p_api_version_number,
4841: l_api_name,
4842: G_PKG_NAME)
4843: THEN
4840: p_api_version_number,
4841: l_api_name,
4842: G_PKG_NAME)
4843: THEN
4844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4845: END IF;
4846:
4847: -- Initialize message list if p_init_msg_list is set to TRUE.
4848: IF FND_API.to_Boolean( p_init_msg_list )
4844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4845: END IF;
4846:
4847: -- Initialize message list if p_init_msg_list is set to TRUE.
4848: IF FND_API.to_Boolean( p_init_msg_list )
4849: THEN
4850: FND_MSG_PUB.initialize;
4851: END IF;
4852:
4850: FND_MSG_PUB.initialize;
4851: END IF;
4852:
4853: -- Initialize API return status to SUCCESS
4854: x_return_status := FND_API.G_RET_STS_SUCCESS;
4855:
4856: IF p_certification_id IS NOT NULL THEN
4857: Populate_Fin_Ctrl_Ass_Sum
4858: ( p_certification_id => p_certification_id,
4871: );
4872: END LOOP;
4873: END IF;
4874:
4875: x_return_status := FND_API.G_RET_STS_SUCCESS;
4876:
4877: EXCEPTION
4878: WHEN NO_DATA_FOUND THEN
4879: IF c_cert%ISOPEN THEN
4879: IF c_cert%ISOPEN THEN
4880: close c_cert;
4881: END IF;
4882: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
4883: x_return_status := FND_API.G_RET_STS_ERROR;
4884: x_msg_count := 1;
4885: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
4886: WHEN OTHERS THEN
4887: IF c_cert%ISOPEN THEN
4889: END IF;
4890: ROLLBACK TO Populate_All_Fin_Ctrl_Ass_Sum;
4891: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
4892: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
4893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4894: x_msg_count := 1;
4895: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4896: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4897: FND_MSG_PUB.Count_And_Get(
4894: x_msg_count := 1;
4895: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
4896: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4897: FND_MSG_PUB.Count_And_Get(
4898: p_encoded => FND_API.G_FALSE,
4899: p_count => x_msg_count,
4900: p_data => x_msg_data);
4901: RETURN;
4902:
4907:
4908: -------------populate control association which related to financial certification ----
4909: PROCEDURE Populate_Fin_Ctrl_Ass_Sum(
4910: p_api_version_number IN NUMBER := 1.0,
4911: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4912: p_commit IN VARCHAR2 := FND_API.g_false,
4913: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4914: p_certification_id IN NUMBER,
4915: x_return_status OUT nocopy VARCHAR2,
4908: -------------populate control association which related to financial certification ----
4909: PROCEDURE Populate_Fin_Ctrl_Ass_Sum(
4910: p_api_version_number IN NUMBER := 1.0,
4911: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4912: p_commit IN VARCHAR2 := FND_API.g_false,
4913: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4914: p_certification_id IN NUMBER,
4915: x_return_status OUT nocopy VARCHAR2,
4916: x_msg_count OUT nocopy NUMBER,
4909: PROCEDURE Populate_Fin_Ctrl_Ass_Sum(
4910: p_api_version_number IN NUMBER := 1.0,
4911: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4912: p_commit IN VARCHAR2 := FND_API.g_false,
4913: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4914: p_certification_id IN NUMBER,
4915: x_return_status OUT nocopy VARCHAR2,
4916: x_msg_count OUT nocopy NUMBER,
4917: x_msg_data OUT nocopy VARCHAR2
5005:
5006: SAVEPOINT Populate_Fin_Ctrl_Ass_Sum;
5007:
5008: -- Standard call to check for call compatibility.
5009: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5010: p_api_version_number,
5011: l_api_name,
5012: G_PKG_NAME)
5013: THEN
5010: p_api_version_number,
5011: l_api_name,
5012: G_PKG_NAME)
5013: THEN
5014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5015: END IF;
5016:
5017: -- Initialize message list if p_init_msg_list is set to TRUE.
5018: IF FND_API.to_Boolean( p_init_msg_list )
5014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5015: END IF;
5016:
5017: -- Initialize message list if p_init_msg_list is set to TRUE.
5018: IF FND_API.to_Boolean( p_init_msg_list )
5019: THEN
5020: FND_MSG_PUB.initialize;
5021: END IF;
5022:
5020: FND_MSG_PUB.initialize;
5021: END IF;
5022:
5023: -- Initialize API return status to SUCCESS
5024: x_return_status := FND_API.G_RET_STS_SUCCESS;
5025:
5026:
5027: SELECT COUNT(1) INTO l_count FROM AMW_CONTROL_ASSOCIATIONS
5028: WHERE OBJECT_TYPE = 'RISK_FINCERT'
5102:
5103: END LOOP;
5104:
5105:
5106: if(p_commit <> FND_API.g_false)
5107: then commit;
5108: end if;
5109: END IF;
5110: x_return_status := FND_API.G_RET_STS_SUCCESS;
5106: if(p_commit <> FND_API.g_false)
5107: then commit;
5108: end if;
5109: END IF;
5110: x_return_status := FND_API.G_RET_STS_SUCCESS;
5111:
5112: EXCEPTION
5113: WHEN NO_DATA_FOUND THEN
5114: IF c_fincontrols%ISOPEN THEN
5114: IF c_fincontrols%ISOPEN THEN
5115: close c_fincontrols;
5116: END IF;
5117: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
5118: x_return_status := FND_API.G_RET_STS_ERROR;
5119: x_msg_count := 1;
5120: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
5121: WHEN OTHERS THEN
5122: IF c_fincontrols%ISOPEN THEN
5124: END IF;
5125: ROLLBACK TO Populate_Fin_Ctrl_Ass_Sum;
5126: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
5127: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
5128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5129: x_msg_count := 1;
5130: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5131: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5132: FND_MSG_PUB.Count_And_Get(
5129: x_msg_count := 1;
5130: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5131: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5132: FND_MSG_PUB.Count_And_Get(
5133: p_encoded => FND_API.G_FALSE,
5134: p_count => x_msg_count,
5135: p_data => x_msg_data);
5136: RETURN;
5137:
5140: -------------populate all of financial certification that has one or more control associations ----
5141: /********************delete becuase the loop is put in to master procedure
5142: PROCEDURE Populate_All_Fin_AP_Ass_Sum(
5143: p_api_version_number IN NUMBER := 1.0,
5144: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5145: p_commit IN VARCHAR2 := FND_API.g_false,
5146: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
5147: p_certification_id IN NUMBER,
5148: x_return_status OUT nocopy VARCHAR2,
5141: /********************delete becuase the loop is put in to master procedure
5142: PROCEDURE Populate_All_Fin_AP_Ass_Sum(
5143: p_api_version_number IN NUMBER := 1.0,
5144: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5145: p_commit IN VARCHAR2 := FND_API.g_false,
5146: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
5147: p_certification_id IN NUMBER,
5148: x_return_status OUT nocopy VARCHAR2,
5149: x_msg_count OUT nocopy NUMBER,
5142: PROCEDURE Populate_All_Fin_AP_Ass_Sum(
5143: p_api_version_number IN NUMBER := 1.0,
5144: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5145: p_commit IN VARCHAR2 := FND_API.g_false,
5146: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
5147: p_certification_id IN NUMBER,
5148: x_return_status OUT nocopy VARCHAR2,
5149: x_msg_count OUT nocopy NUMBER,
5150: x_msg_data OUT nocopy VARCHAR2
5173:
5174: l_certification_id := p_certification_id;
5175:
5176: -- Standard call to check for call compatibility.
5177: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5178: p_api_version_number,
5179: l_api_name,
5180: G_PKG_NAME)
5181: THEN
5178: p_api_version_number,
5179: l_api_name,
5180: G_PKG_NAME)
5181: THEN
5182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5183: END IF;
5184:
5185: -- Initialize message list if p_init_msg_list is set to TRUE.
5186: IF FND_API.to_Boolean( p_init_msg_list )
5182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5183: END IF;
5184:
5185: -- Initialize message list if p_init_msg_list is set to TRUE.
5186: IF FND_API.to_Boolean( p_init_msg_list )
5187: THEN
5188: FND_MSG_PUB.initialize;
5189: END IF;
5190:
5188: FND_MSG_PUB.initialize;
5189: END IF;
5190:
5191: -- Initialize API return status to SUCCESS
5192: x_return_status := FND_API.G_RET_STS_SUCCESS;
5193:
5194: IF p_certification_id IS NOT NULL THEN
5195: Populate_Fin_AP_Ass_Sum
5196: ( p_certification_id => l_certification_id,
5207: x_msg_data => l_msg_data);
5208: END LOOP;
5209: END IF;
5210:
5211: x_return_status := FND_API.G_RET_STS_SUCCESS;
5212:
5213: EXCEPTION
5214: WHEN NO_DATA_FOUND THEN
5215: IF c_cert%ISOPEN THEN
5215: IF c_cert%ISOPEN THEN
5216: close c_cert;
5217: END IF;
5218: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
5219: x_return_status := FND_API.G_RET_STS_ERROR;
5220: x_msg_count := 1;
5221: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
5222: WHEN OTHERS THEN
5223: IF c_cert%ISOPEN THEN
5225: END IF;
5226: ROLLBACK TO Populate_All_Fin_AP_Ass_Sum;
5227: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
5228: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
5229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5230: x_msg_count := 1;
5231: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5232: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5233: FND_MSG_PUB.Count_And_Get(
5230: x_msg_count := 1;
5231: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5232: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5233: FND_MSG_PUB.Count_And_Get(
5234: p_encoded => FND_API.G_FALSE,
5235: p_count => x_msg_count,
5236: p_data => x_msg_data);
5237: RETURN;
5238:
5242:
5243: -------------populate control association which related to financial certification ----
5244: PROCEDURE Populate_Fin_AP_Ass_Sum(
5245: p_api_version_number IN NUMBER := 1.0,
5246: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5247: p_commit IN VARCHAR2 := FND_API.g_false,
5248: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
5249: p_certification_id IN NUMBER,
5250: x_return_status OUT nocopy VARCHAR2,
5243: -------------populate control association which related to financial certification ----
5244: PROCEDURE Populate_Fin_AP_Ass_Sum(
5245: p_api_version_number IN NUMBER := 1.0,
5246: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5247: p_commit IN VARCHAR2 := FND_API.g_false,
5248: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
5249: p_certification_id IN NUMBER,
5250: x_return_status OUT nocopy VARCHAR2,
5251: x_msg_count OUT nocopy NUMBER,
5244: PROCEDURE Populate_Fin_AP_Ass_Sum(
5245: p_api_version_number IN NUMBER := 1.0,
5246: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5247: p_commit IN VARCHAR2 := FND_API.g_false,
5248: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
5249: p_certification_id IN NUMBER,
5250: x_return_status OUT nocopy VARCHAR2,
5251: x_msg_count OUT nocopy NUMBER,
5252: x_msg_data OUT nocopy VARCHAR2
5344: SAVEPOINT Populate_Fin_AP_Ass_Sum;
5345:
5346: -- Standard call to check for call compatibility.
5347:
5348: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5349: p_api_version_number,
5350: l_api_name,
5351: G_PKG_NAME)
5352: THEN
5349: p_api_version_number,
5350: l_api_name,
5351: G_PKG_NAME)
5352: THEN
5353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5354: END IF;
5355:
5356: -- Initialize message list if p_init_msg_list is set to TRUE.
5357: IF FND_API.to_Boolean( p_init_msg_list )
5353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5354: END IF;
5355:
5356: -- Initialize message list if p_init_msg_list is set to TRUE.
5357: IF FND_API.to_Boolean( p_init_msg_list )
5358: THEN
5359: FND_MSG_PUB.initialize;
5360: END IF;
5361:
5359: FND_MSG_PUB.initialize;
5360: END IF;
5361:
5362: -- Initialize API return status to SUCCESS
5363: x_return_status := FND_API.G_RET_STS_SUCCESS;
5364:
5365:
5366:
5367: SELECT COUNT(1) INTO l_count FROM AMW_AP_ASSOCIATIONS
5417: ap_rec.DELETION_DATE,
5418: ap_rec.DELETION_APPROVAL_DATE,
5419: ap_rec.AUDIT_PROCEDURE_REV_ID);
5420: END LOOP;
5421: if(p_commit <> FND_API.g_false)
5422: then commit;
5423: end if;
5424: /**05.02.2006 npanandi: bug 5201579 fix here for updating, if count=0**/
5425: else
5445: AND PK1 IN (SELECT CERTIFICATION_ID
5446: FROM AMW_CERTIFICATION_B
5447: WHERE CERTIFICATION_STATUS IN ('ACTIVE','DRAFT'));
5448: END LOOP;
5449: if(p_commit <> FND_API.g_false)
5450: then commit;
5451: end if;
5452: /**05.02.2006 npanandi: bug 5201579 fix ends here**/
5453: END IF;
5450: then commit;
5451: end if;
5452: /**05.02.2006 npanandi: bug 5201579 fix ends here**/
5453: END IF;
5454: x_return_status := FND_API.G_RET_STS_SUCCESS;
5455:
5456: EXCEPTION
5457: WHEN NO_DATA_FOUND THEN
5458: IF c_finap%ISOPEN THEN
5458: IF c_finap%ISOPEN THEN
5459: close c_finap;
5460: END IF;
5461: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
5462: x_return_status := FND_API.G_RET_STS_ERROR;
5463: x_msg_count := 1;
5464: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
5465: WHEN OTHERS THEN
5466: IF c_finap%ISOPEN THEN
5468: END IF;
5469: ROLLBACK TO Populate_Fin_AP_Ass_Sum;
5470: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
5471: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
5472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5473: x_msg_count := 1;
5474: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5475: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5476: FND_MSG_PUB.Count_And_Get(
5473: x_msg_count := 1;
5474: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5475: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5476: FND_MSG_PUB.Count_And_Get(
5477: p_encoded => FND_API.G_FALSE,
5478: p_count => x_msg_count,
5479: p_data => x_msg_data);
5480: RETURN;
5481:
5483:
5484:
5485: PROCEDURE Populate_All_Fin_Org_Eval_Sum(
5486: p_api_version_number IN NUMBER := 1.0,
5487: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5488: p_commit IN VARCHAR2 := FND_API.g_false,
5489: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
5490: p_certification_id IN NUMBER,
5491: x_return_status OUT nocopy VARCHAR2,
5484:
5485: PROCEDURE Populate_All_Fin_Org_Eval_Sum(
5486: p_api_version_number IN NUMBER := 1.0,
5487: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5488: p_commit IN VARCHAR2 := FND_API.g_false,
5489: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
5490: p_certification_id IN NUMBER,
5491: x_return_status OUT nocopy VARCHAR2,
5492: x_msg_count OUT nocopy NUMBER,
5485: PROCEDURE Populate_All_Fin_Org_Eval_Sum(
5486: p_api_version_number IN NUMBER := 1.0,
5487: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5488: p_commit IN VARCHAR2 := FND_API.g_false,
5489: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
5490: p_certification_id IN NUMBER,
5491: x_return_status OUT nocopy VARCHAR2,
5492: x_msg_count OUT nocopy NUMBER,
5493: x_msg_data OUT nocopy VARCHAR2
5533:
5534: SAVEPOINT Populate_All_Fin_Org_Eval_Sum;
5535:
5536: -- Standard call to check for call compatibility.
5537: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5538: p_api_version_number,
5539: l_api_name,
5540: G_PKG_NAME)
5541: THEN
5538: p_api_version_number,
5539: l_api_name,
5540: G_PKG_NAME)
5541: THEN
5542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5543: END IF;
5544:
5545: -- Initialize message list if p_init_msg_list is set to TRUE.
5546: IF FND_API.to_Boolean( p_init_msg_list )
5542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5543: END IF;
5544:
5545: -- Initialize message list if p_init_msg_list is set to TRUE.
5546: IF FND_API.to_Boolean( p_init_msg_list )
5547: THEN
5548: FND_MSG_PUB.initialize;
5549: END IF;
5550:
5548: FND_MSG_PUB.initialize;
5549: END IF;
5550:
5551: -- Initialize API return status to SUCCESS
5552: x_return_status := FND_API.G_RET_STS_SUCCESS;
5553:
5554: DELETE FROM AMW_ENTITY_HIERARCHIES
5555: WHERE ENTITY_TYPE = 'FINSTMT_CERTIFICATION'
5556: AND ENTITY_ID = p_certification_id;
5616: x_msg_data => l_msg_data
5617: );
5618: END IF;
5619:
5620: x_return_status := FND_API.G_RET_STS_SUCCESS;
5621:
5622: EXCEPTION
5623: WHEN NO_DATA_FOUND THEN
5624: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
5621:
5622: EXCEPTION
5623: WHEN NO_DATA_FOUND THEN
5624: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
5625: x_return_status := FND_API.G_RET_STS_ERROR;
5626: x_msg_count := 1;
5627: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
5628: WHEN OTHERS THEN
5629: ROLLBACK TO Populate_All_Fin_Org_Eval_Sum;
5628: WHEN OTHERS THEN
5629: ROLLBACK TO Populate_All_Fin_Org_Eval_Sum;
5630: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
5631: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
5632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5633: x_msg_count := 1;
5634: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5635: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5636: FND_MSG_PUB.Count_And_Get(
5633: x_msg_count := 1;
5634: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
5635: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5636: FND_MSG_PUB.Count_And_Get(
5637: p_encoded => FND_API.G_FALSE,
5638: p_count => x_msg_count,
5639: p_data => x_msg_data);
5640: RETURN;
5641:
5644:
5645:
5646: PROCEDURE Populate_Fin_Org_Eval_Sum(
5647: p_api_version_number IN NUMBER := 1.0,
5648: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5649: p_commit IN VARCHAR2 := FND_API.g_false,
5650: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
5651: p_certification_id IN NUMBER,
5652: p_start_date IN DATE,
5645:
5646: PROCEDURE Populate_Fin_Org_Eval_Sum(
5647: p_api_version_number IN NUMBER := 1.0,
5648: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5649: p_commit IN VARCHAR2 := FND_API.g_false,
5650: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
5651: p_certification_id IN NUMBER,
5652: p_start_date IN DATE,
5653: p_end_date IN DATE,
5646: PROCEDURE Populate_Fin_Org_Eval_Sum(
5647: p_api_version_number IN NUMBER := 1.0,
5648: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5649: p_commit IN VARCHAR2 := FND_API.g_false,
5650: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
5651: p_certification_id IN NUMBER,
5652: p_start_date IN DATE,
5653: p_end_date IN DATE,
5654: p_organization_id IN NUMBER,
5929:
5930: SAVEPOINT Populate_Fin_Org_Eval_Sum;
5931:
5932: -- Standard call to check for call compatibility.
5933: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5934: p_api_version_number,
5935: l_api_name,
5936: G_PKG_NAME)
5937: THEN
5934: p_api_version_number,
5935: l_api_name,
5936: G_PKG_NAME)
5937: THEN
5938: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5939: END IF;
5940:
5941: -- Initialize message list if p_init_msg_list is set to TRUE.
5942: IF FND_API.to_Boolean( p_init_msg_list )
5938: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5939: END IF;
5940:
5941: -- Initialize message list if p_init_msg_list is set to TRUE.
5942: IF FND_API.to_Boolean( p_init_msg_list )
5943: THEN
5944: FND_MSG_PUB.initialize;
5945: END IF;
5946:
5944: FND_MSG_PUB.initialize;
5945: END IF;
5946:
5947: -- Initialize API return status to SUCCESS
5948: x_return_status := FND_API.G_RET_STS_SUCCESS;
5949:
5950:
5951:
5952:
6065: if((l_sub_vs is null) OR (l_sub_code is null)) then
6066: G_ORG_ERROR := 'Y';
6067: /**05.25.2006 npanandi: need x_return_status in
6068: populate_all_fin_org_eval_sum procedure**/
6069: x_return_status := FND_API.G_RET_STS_ERROR;
6070: fnd_file.put_line(fnd_file.LOG, '********** WARNING: Unexpected error in OrganizationId: '||p_organization_id||', processing not done for this Organization' );
6071: else --- do the updates/inserts
6072: /**05.25.2006 npanandi: bug 5250100 test ends**/
6073:
6183: END IF;
6184:
6185: end if; /***05.25.2006 npanandi: end of if clause for bug 5250100 testing***/
6186:
6187: if(p_commit <> FND_API.g_false) then
6188: commit;
6189: end if;
6190:
6191: x_return_status := FND_API.G_RET_STS_SUCCESS;
6187: if(p_commit <> FND_API.g_false) then
6188: commit;
6189: end if;
6190:
6191: x_return_status := FND_API.G_RET_STS_SUCCESS;
6192:
6193: EXCEPTION
6194: WHEN NO_DATA_FOUND THEN
6195: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
6192:
6193: EXCEPTION
6194: WHEN NO_DATA_FOUND THEN
6195: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
6196: x_return_status := FND_API.G_RET_STS_ERROR;
6197: x_msg_count := 1;
6198: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
6199: WHEN OTHERS THEN
6200: ROLLBACK TO Populate_Fin_Org_Eval_Sum;
6199: WHEN OTHERS THEN
6200: ROLLBACK TO Populate_Fin_Org_Eval_Sum;
6201: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
6202: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
6203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6204: x_msg_count := 1;
6205: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6206: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6207: FND_MSG_PUB.Count_And_Get(
6204: x_msg_count := 1;
6205: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6206: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6207: FND_MSG_PUB.Count_And_Get(
6208: p_encoded => FND_API.G_FALSE,
6209: p_count => x_msg_count,
6210: p_data => x_msg_data);
6211: RETURN;
6212: END Populate_Fin_Org_Eval_Sum;
6213:
6214:
6215: PROCEDURE build_amw_fin_cert_eval_sum(
6216: p_api_version_number IN NUMBER := 1.0,
6217: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6218: p_commit IN VARCHAR2 := FND_API.g_false,
6219: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
6220: p_certification_id IN NUMBER,
6221: x_return_status OUT nocopy VARCHAR2,
6214:
6215: PROCEDURE build_amw_fin_cert_eval_sum(
6216: p_api_version_number IN NUMBER := 1.0,
6217: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6218: p_commit IN VARCHAR2 := FND_API.g_false,
6219: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
6220: p_certification_id IN NUMBER,
6221: x_return_status OUT nocopy VARCHAR2,
6222: x_msg_count OUT nocopy NUMBER,
6215: PROCEDURE build_amw_fin_cert_eval_sum(
6216: p_api_version_number IN NUMBER := 1.0,
6217: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6218: p_commit IN VARCHAR2 := FND_API.g_false,
6219: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
6220: p_certification_id IN NUMBER,
6221: x_return_status OUT nocopy VARCHAR2,
6222: x_msg_count OUT nocopy NUMBER,
6223: x_msg_data OUT nocopy VARCHAR2
6265:
6266: SAVEPOINT build_amw_fin_cert_eval_sum;
6267:
6268: -- Standard call to check for call compatibility.
6269: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
6270: p_api_version_number,
6271: l_api_name,
6272: G_PKG_NAME)
6273: THEN
6270: p_api_version_number,
6271: l_api_name,
6272: G_PKG_NAME)
6273: THEN
6274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6275: END IF;
6276:
6277: -- Initialize message list if p_init_msg_list is set to TRUE.
6278: IF FND_API.to_Boolean( p_init_msg_list )
6274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6275: END IF;
6276:
6277: -- Initialize message list if p_init_msg_list is set to TRUE.
6278: IF FND_API.to_Boolean( p_init_msg_list )
6279: THEN
6280: FND_MSG_PUB.initialize;
6281: END IF;
6282:
6280: FND_MSG_PUB.initialize;
6281: END IF;
6282:
6283: -- Initialize API return status to SUCCESS
6284: x_return_status := FND_API.G_RET_STS_SUCCESS;
6285:
6286:
6287:
6288: l_certification_id := P_CERTIFICATION_ID;
6381:
6382: END LOOP;
6383:
6384:
6385: x_return_status := FND_API.G_RET_STS_SUCCESS;
6386:
6387: EXCEPTION
6388: WHEN NO_DATA_FOUND THEN
6389: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
6386:
6387: EXCEPTION
6388: WHEN NO_DATA_FOUND THEN
6389: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
6390: x_return_status := FND_API.G_RET_STS_ERROR;
6391: x_msg_count := 1;
6392: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
6393: WHEN OTHERS THEN
6394: ROLLBACK TO build_amw_fin_cert_eval_sum;
6393: WHEN OTHERS THEN
6394: ROLLBACK TO build_amw_fin_cert_eval_sum;
6395: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
6396: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
6397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6398: x_msg_count := 1;
6399: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6400: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6401: FND_MSG_PUB.Count_And_Get(
6398: x_msg_count := 1;
6399: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6400: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6401: FND_MSG_PUB.Count_And_Get(
6402: p_encoded => FND_API.G_FALSE,
6403: p_count => x_msg_count,
6404: p_data => x_msg_data);
6405: RETURN;
6406:
6412: /********************************* combine statement item and account calls into one --------*/
6413: /********************************************************************************************/
6414: PROCEDURE compute_values_for_eval_sum(
6415: p_api_version_number IN NUMBER := 1.0,
6416: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6417: p_commit IN VARCHAR2 := FND_API.g_false,
6418: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
6419: p_certification_id IN NUMBER,
6420: p_financial_statement_id IN NUMBER ,
6413: /********************************************************************************************/
6414: PROCEDURE compute_values_for_eval_sum(
6415: p_api_version_number IN NUMBER := 1.0,
6416: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6417: p_commit IN VARCHAR2 := FND_API.g_false,
6418: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
6419: p_certification_id IN NUMBER,
6420: p_financial_statement_id IN NUMBER ,
6421: p_statement_group_id IN NUMBER ,
6414: PROCEDURE compute_values_for_eval_sum(
6415: p_api_version_number IN NUMBER := 1.0,
6416: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6417: p_commit IN VARCHAR2 := FND_API.g_false,
6418: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
6419: p_certification_id IN NUMBER,
6420: p_financial_statement_id IN NUMBER ,
6421: p_statement_group_id IN NUMBER ,
6422: p_financial_item_id IN NUMBER,
6491:
6492: SAVEPOINT compute_values_for_eval_sum;
6493:
6494: -- Standard call to check for call compatibility.
6495: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
6496: p_api_version_number,
6497: l_api_name,
6498: G_PKG_NAME)
6499: THEN
6496: p_api_version_number,
6497: l_api_name,
6498: G_PKG_NAME)
6499: THEN
6500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6501: END IF;
6502:
6503: -- Initialize message list if p_init_msg_list is set to TRUE.
6504: IF FND_API.to_Boolean( p_init_msg_list )
6500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6501: END IF;
6502:
6503: -- Initialize message list if p_init_msg_list is set to TRUE.
6504: IF FND_API.to_Boolean( p_init_msg_list )
6505: THEN
6506: FND_MSG_PUB.initialize;
6507: END IF;
6508:
6506: FND_MSG_PUB.initialize;
6507: END IF;
6508:
6509: -- Initialize API return status to SUCCESS
6510: x_return_status := FND_API.G_RET_STS_SUCCESS;
6511:
6512:
6513:
6514: L_FINANCIAL_STATEMENT_ID := P_FINANCIAL_STATEMENT_ID;
6774: x_return_status => l_return_status,
6775: x_msg_count => l_msg_count,
6776: x_msg_data => l_msg_data);
6777:
6778: x_return_status := FND_API.G_RET_STS_SUCCESS;
6779:
6780: EXCEPTION
6781: WHEN NO_DATA_FOUND THEN
6782: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
6779:
6780: EXCEPTION
6781: WHEN NO_DATA_FOUND THEN
6782: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
6783: x_return_status := FND_API.G_RET_STS_ERROR;
6784: x_msg_count := 1;
6785: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
6786: WHEN OTHERS THEN
6787: ROLLBACK TO compute_values_for_eval_sum;
6786: WHEN OTHERS THEN
6787: ROLLBACK TO compute_values_for_eval_sum;
6788: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
6789: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
6790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6791: x_msg_count := 1;
6792: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6793: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6794: FND_MSG_PUB.Count_And_Get(
6791: x_msg_count := 1;
6792: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6793: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6794: FND_MSG_PUB.Count_And_Get(
6795: p_encoded => FND_API.G_FALSE,
6796: p_count => x_msg_count,
6797: p_data => x_msg_data);
6798: RETURN;
6799:
6802: ------------populate scorecard info --------------------------------
6803: /*******************************delete becuase loop is put into master proceudre ****************
6804: PROCEDURE Populate_All_Cert_General_Sum(
6805: p_api_version_number IN NUMBER := 1.0,
6806: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6807: p_commit IN VARCHAR2 := FND_API.g_false,
6808: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
6809: p_certification_id IN NUMBER,
6810: x_return_status OUT nocopy VARCHAR2,
6803: /*******************************delete becuase loop is put into master proceudre ****************
6804: PROCEDURE Populate_All_Cert_General_Sum(
6805: p_api_version_number IN NUMBER := 1.0,
6806: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6807: p_commit IN VARCHAR2 := FND_API.g_false,
6808: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
6809: p_certification_id IN NUMBER,
6810: x_return_status OUT nocopy VARCHAR2,
6811: x_msg_count OUT nocopy NUMBER,
6804: PROCEDURE Populate_All_Cert_General_Sum(
6805: p_api_version_number IN NUMBER := 1.0,
6806: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6807: p_commit IN VARCHAR2 := FND_API.g_false,
6808: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
6809: p_certification_id IN NUMBER,
6810: x_return_status OUT nocopy VARCHAR2,
6811: x_msg_count OUT nocopy NUMBER,
6812: x_msg_data OUT nocopy VARCHAR2
6839:
6840: SAVEPOINT Populate_All_Cert_General_Sum;
6841:
6842: -- Standard call to check for call compatibility.
6843: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
6844: p_api_version_number,
6845: l_api_name,
6846: G_PKG_NAME)
6847: THEN
6844: p_api_version_number,
6845: l_api_name,
6846: G_PKG_NAME)
6847: THEN
6848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6849: END IF;
6850:
6851: -- Initialize message list if p_init_msg_list is set to TRUE.
6852: IF FND_API.to_Boolean( p_init_msg_list )
6848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6849: END IF;
6850:
6851: -- Initialize message list if p_init_msg_list is set to TRUE.
6852: IF FND_API.to_Boolean( p_init_msg_list )
6853: THEN
6854: FND_MSG_PUB.initialize;
6855: END IF;
6856:
6854: FND_MSG_PUB.initialize;
6855: END IF;
6856:
6857: -- Initialize API return status to SUCCESS
6858: x_return_status := FND_API.G_RET_STS_SUCCESS;
6859:
6860:
6861: OPEN c_start_date;
6862: FETCH c_start_date INTO l_start_date;
6889: END LOOP;
6890: END IF;
6891:
6892:
6893: x_return_status := FND_API.G_RET_STS_SUCCESS;
6894:
6895: EXCEPTION
6896: WHEN NO_DATA_FOUND THEN
6897: IF c_cert%ISOPEN THEN
6897: IF c_cert%ISOPEN THEN
6898: close c_cert;
6899: END IF;
6900: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
6901: x_return_status := FND_API.G_RET_STS_ERROR;
6902: x_msg_count := 1;
6903: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
6904: WHEN OTHERS THEN
6905: IF c_cert%ISOPEN THEN
6907: END IF;
6908: ROLLBACK TO Populate_All_Cert_General_Sum;
6909: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
6910: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
6911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6912: x_msg_count := 1;
6913: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6914: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6915: FND_MSG_PUB.Count_And_Get(
6912: x_msg_count := 1;
6913: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
6914: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6915: FND_MSG_PUB.Count_And_Get(
6916: p_encoded => FND_API.G_FALSE,
6917: p_count => x_msg_count,
6918: p_data => x_msg_data);
6919: RETURN;
6920:
6924:
6925:
6926: PROCEDURE Populate_Cert_General_Sum(
6927: p_api_version_number IN NUMBER := 1.0,
6928: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6929: p_commit IN VARCHAR2 := FND_API.g_false,
6930: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
6931: p_certification_id IN NUMBER,
6932: p_start_date IN DATE,
6925:
6926: PROCEDURE Populate_Cert_General_Sum(
6927: p_api_version_number IN NUMBER := 1.0,
6928: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6929: p_commit IN VARCHAR2 := FND_API.g_false,
6930: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
6931: p_certification_id IN NUMBER,
6932: p_start_date IN DATE,
6933: x_return_status OUT nocopy VARCHAR2,
6926: PROCEDURE Populate_Cert_General_Sum(
6927: p_api_version_number IN NUMBER := 1.0,
6928: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6929: p_commit IN VARCHAR2 := FND_API.g_false,
6930: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
6931: p_certification_id IN NUMBER,
6932: p_start_date IN DATE,
6933: x_return_status OUT nocopy VARCHAR2,
6934: x_msg_count OUT nocopy NUMBER,
6993:
6994: SAVEPOINT Populate_Cert_General_Sum;
6995:
6996: -- Standard call to check for call compatibility.
6997: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
6998: p_api_version_number,
6999: l_api_name,
7000: G_PKG_NAME)
7001: THEN
6998: p_api_version_number,
6999: l_api_name,
7000: G_PKG_NAME)
7001: THEN
7002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7003: END IF;
7004:
7005: -- Initialize message list if p_init_msg_list is set to TRUE.
7006: IF FND_API.to_Boolean( p_init_msg_list )
7002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7003: END IF;
7004:
7005: -- Initialize message list if p_init_msg_list is set to TRUE.
7006: IF FND_API.to_Boolean( p_init_msg_list )
7007: THEN
7008: FND_MSG_PUB.initialize;
7009: END IF;
7010:
7008: FND_MSG_PUB.initialize;
7009: END IF;
7010:
7011: -- Initialize API return status to SUCCESS
7012: x_return_status := FND_API.G_RET_STS_SUCCESS;
7013:
7014:
7015: l_certification_id := p_certification_id;
7016:
7112: FND_GLOBAL.USER_ID
7113: FROM DUAL;
7114: END IF;
7115:
7116: if(p_commit <> FND_API.g_false)
7117: then commit;
7118: end if;
7119:
7120: x_return_status := FND_API.G_RET_STS_SUCCESS;
7116: if(p_commit <> FND_API.g_false)
7117: then commit;
7118: end if;
7119:
7120: x_return_status := FND_API.G_RET_STS_SUCCESS;
7121:
7122: EXCEPTION
7123: WHEN NO_DATA_FOUND THEN
7124: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
7121:
7122: EXCEPTION
7123: WHEN NO_DATA_FOUND THEN
7124: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
7125: x_return_status := FND_API.G_RET_STS_ERROR;
7126: x_msg_count := 1;
7127: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
7128: WHEN OTHERS THEN
7129: ROLLBACK TO Populate_Cert_General_Sum;
7128: WHEN OTHERS THEN
7129: ROLLBACK TO Populate_Cert_General_Sum;
7130: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
7131: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
7132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7133: x_msg_count := 1;
7134: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
7135: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7136: FND_MSG_PUB.Count_And_Get(
7133: x_msg_count := 1;
7134: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
7135: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7136: FND_MSG_PUB.Count_And_Get(
7137: p_encoded => FND_API.G_FALSE,
7138: p_count => x_msg_count,
7139: p_data => x_msg_data);
7140: RETURN;
7141:
7431: *************************** when business evevnt is rised on opinion changes
7432: --******************************************************************************************************/
7433: PROCEDURE RISK_EVALUATION_HANDLER(
7434: p_api_version_number IN NUMBER := 1.0,
7435: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
7436: p_commit IN VARCHAR2 := FND_API.g_false,
7437: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
7438: p_risk_id number,
7439: p_org_id number,
7432: --******************************************************************************************************/
7433: PROCEDURE RISK_EVALUATION_HANDLER(
7434: p_api_version_number IN NUMBER := 1.0,
7435: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
7436: p_commit IN VARCHAR2 := FND_API.g_false,
7437: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
7438: p_risk_id number,
7439: p_org_id number,
7440: p_process_id number,
7433: PROCEDURE RISK_EVALUATION_HANDLER(
7434: p_api_version_number IN NUMBER := 1.0,
7435: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
7436: p_commit IN VARCHAR2 := FND_API.g_false,
7437: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
7438: p_risk_id number,
7439: p_org_id number,
7440: p_process_id number,
7441: p_opinion_log_id number,
7560:
7561: SAVEPOINT RISK_EVALUATION_HANDLER;
7562:
7563: -- Standard call to check for call compatibility.
7564: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
7565: p_api_version_number,
7566: l_api_name,
7567: G_PKG_NAME)
7568: THEN
7565: p_api_version_number,
7566: l_api_name,
7567: G_PKG_NAME)
7568: THEN
7569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7570: END IF;
7571:
7572: -- Initialize message list if p_init_msg_list is set to TRUE.
7573: IF FND_API.to_Boolean( p_init_msg_list )
7569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7570: END IF;
7571:
7572: -- Initialize message list if p_init_msg_list is set to TRUE.
7573: IF FND_API.to_Boolean( p_init_msg_list )
7574: THEN
7575: FND_MSG_PUB.initialize;
7576: END IF;
7577:
7575: FND_MSG_PUB.initialize;
7576: END IF;
7577:
7578: -- Initialize API return status to SUCCESS
7579: x_return_status := FND_API.G_RET_STS_SUCCESS;
7580:
7581:
7582:
7583: FOR Get_all_items_Rec in Get_all_items(p_risk_id, p_org_id , p_process_id) LOOP
7957:
7958: END LOOP;
7959:
7960:
7961: x_return_status := FND_API.G_RET_STS_SUCCESS;
7962:
7963: EXCEPTION
7964: WHEN NO_DATA_FOUND THEN
7965: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
7962:
7963: EXCEPTION
7964: WHEN NO_DATA_FOUND THEN
7965: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
7966: x_return_status := FND_API.G_RET_STS_ERROR;
7967: x_msg_count := 1;
7968: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
7969: WHEN OTHERS THEN
7970: ROLLBACK TO RISK_EVALUATION_HANDLER;
7969: WHEN OTHERS THEN
7970: ROLLBACK TO RISK_EVALUATION_HANDLER;
7971: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
7972: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
7973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7974: x_msg_count := 1;
7975: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
7976: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7977: FND_MSG_PUB.Count_And_Get(
7974: x_msg_count := 1;
7975: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
7976: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7977: FND_MSG_PUB.Count_And_Get(
7978: p_encoded => FND_API.G_FALSE,
7979: p_count => x_msg_count,
7980: p_data => x_msg_data);
7981: RETURN;
7982:
7983: END RISK_EVALUATION_HANDLER;
7984:
7985: PROCEDURE CONTROL_EVALUATION_HANDLER(
7986: p_api_version_number IN NUMBER := 1.0,
7987: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
7988: p_commit IN VARCHAR2 := FND_API.g_false,
7989: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
7990: p_ctrl_id IN NUMBER,
7991: p_org_id IN NUMBER,
7984:
7985: PROCEDURE CONTROL_EVALUATION_HANDLER(
7986: p_api_version_number IN NUMBER := 1.0,
7987: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
7988: p_commit IN VARCHAR2 := FND_API.g_false,
7989: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
7990: p_ctrl_id IN NUMBER,
7991: p_org_id IN NUMBER,
7992: p_opinion_log_id IN NUMBER,
7985: PROCEDURE CONTROL_EVALUATION_HANDLER(
7986: p_api_version_number IN NUMBER := 1.0,
7987: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
7988: p_commit IN VARCHAR2 := FND_API.g_false,
7989: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
7990: p_ctrl_id IN NUMBER,
7991: p_org_id IN NUMBER,
7992: p_opinion_log_id IN NUMBER,
7993: x_return_status OUT nocopy VARCHAR2,
8112:
8113: SAVEPOINT CONTROL_EVALUATION_HANDLER;
8114:
8115: -- Standard call to check for call compatibility.
8116: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
8117: p_api_version_number,
8118: l_api_name,
8119: G_PKG_NAME)
8120: THEN
8117: p_api_version_number,
8118: l_api_name,
8119: G_PKG_NAME)
8120: THEN
8121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8122: END IF;
8123:
8124: -- Initialize message list if p_init_msg_list is set to TRUE.
8125: IF FND_API.to_Boolean( p_init_msg_list )
8121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8122: END IF;
8123:
8124: -- Initialize message list if p_init_msg_list is set to TRUE.
8125: IF FND_API.to_Boolean( p_init_msg_list )
8126: THEN
8127: FND_MSG_PUB.initialize;
8128: END IF;
8129:
8127: FND_MSG_PUB.initialize;
8128: END IF;
8129:
8130: -- Initialize API return status to SUCCESS
8131: x_return_status := FND_API.G_RET_STS_SUCCESS;
8132:
8133:
8134:
8135: FOR Get_all_items_Rec in Get_all_items(p_ctrl_id, p_org_id) LOOP
8573: END LOOP;
8574:
8575:
8576:
8577: x_return_status := FND_API.G_RET_STS_SUCCESS;
8578:
8579: EXCEPTION
8580: WHEN NO_DATA_FOUND THEN
8581: IF Get_all_fin_cert%ISOPEN THEN
8581: IF Get_all_fin_cert%ISOPEN THEN
8582: close Get_all_fin_cert;
8583: end if;
8584: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
8585: x_return_status := FND_API.G_RET_STS_ERROR;
8586: x_msg_count := 1;
8587: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
8588: WHEN OTHERS THEN
8589: IF Get_all_fin_cert%ISOPEN THEN
8591: end if;
8592: ROLLBACK TO CONTROL_EVALUATION_HANDLER;
8593: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
8594: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
8595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8596: x_msg_count := 1;
8597: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
8598: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
8599: FND_MSG_PUB.Count_And_Get(
8596: x_msg_count := 1;
8597: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
8598: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
8599: FND_MSG_PUB.Count_And_Get(
8600: p_encoded => FND_API.G_FALSE,
8601: p_count => x_msg_count,
8602: p_data => x_msg_data);
8603: RAISE;
8604: RETURN;
8608:
8609: PROCEDURE PROCESS_CHANGE_HANDLER
8610: (
8611: p_api_version_number IN NUMBER := 1.0,
8612: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
8613: p_commit IN VARCHAR2 := FND_API.g_false,
8614: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
8615: p_org_id number,
8616: p_process_id number,
8609: PROCEDURE PROCESS_CHANGE_HANDLER
8610: (
8611: p_api_version_number IN NUMBER := 1.0,
8612: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
8613: p_commit IN VARCHAR2 := FND_API.g_false,
8614: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
8615: p_org_id number,
8616: p_process_id number,
8617: p_opinion_log_id number,
8610: (
8611: p_api_version_number IN NUMBER := 1.0,
8612: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
8613: p_commit IN VARCHAR2 := FND_API.g_false,
8614: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
8615: p_org_id number,
8616: p_process_id number,
8617: p_opinion_log_id number,
8618: p_action varchar2,
8793:
8794: SAVEPOINT PROCESS_CHANGE_HANDLER;
8795:
8796: -- Standard call to check for call compatibility.
8797: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
8798: p_api_version_number,
8799: l_api_name,
8800: G_PKG_NAME)
8801: THEN
8798: p_api_version_number,
8799: l_api_name,
8800: G_PKG_NAME)
8801: THEN
8802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8803: END IF;
8804:
8805: -- Initialize message list if p_init_msg_list is set to TRUE.
8806: IF FND_API.to_Boolean( p_init_msg_list )
8802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8803: END IF;
8804:
8805: -- Initialize message list if p_init_msg_list is set to TRUE.
8806: IF FND_API.to_Boolean( p_init_msg_list )
8807: THEN
8808: FND_MSG_PUB.initialize;
8809: END IF;
8810:
8808: FND_MSG_PUB.initialize;
8809: END IF;
8810:
8811: -- Initialize API return status to SUCCESS
8812: x_return_status := FND_API.G_RET_STS_SUCCESS;
8813:
8814: --modify fin_cert_eval summary table
8815: IF (p_action = 'EVALUATION') THEN
8816:
9580:
9581: END IF; --end of p_action = CERTIFICATION
9582:
9583:
9584: x_return_status := FND_API.G_RET_STS_SUCCESS;
9585:
9586: EXCEPTION
9587: WHEN NO_DATA_FOUND THEN
9588: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
9585:
9586: EXCEPTION
9587: WHEN NO_DATA_FOUND THEN
9588: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
9589: x_return_status := FND_API.G_RET_STS_ERROR;
9590: x_msg_count := 1;
9591: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
9592: WHEN OTHERS THEN
9593: ROLLBACK TO PROCESS_CHANGE_HANDLER;
9592: WHEN OTHERS THEN
9593: ROLLBACK TO PROCESS_CHANGE_HANDLER;
9594: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
9595: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
9596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9597: x_msg_count := 1;
9598: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
9599: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9600: FND_MSG_PUB.Count_And_Get(
9597: x_msg_count := 1;
9598: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
9599: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9600: FND_MSG_PUB.Count_And_Get(
9601: p_encoded => FND_API.G_FALSE,
9602: p_count => x_msg_count,
9603: p_data => x_msg_data);
9604: RETURN;
9605:
9608:
9609: PROCEDURE ORGANIZATION_CHANGE_HANDLER
9610: (
9611: p_api_version_number IN NUMBER := 1.0,
9612: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
9613: p_commit IN VARCHAR2 := FND_API.g_false,
9614: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
9615: p_org_id IN NUMBER,
9616: p_opinion_log_id IN NUMBER,
9609: PROCEDURE ORGANIZATION_CHANGE_HANDLER
9610: (
9611: p_api_version_number IN NUMBER := 1.0,
9612: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
9613: p_commit IN VARCHAR2 := FND_API.g_false,
9614: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
9615: p_org_id IN NUMBER,
9616: p_opinion_log_id IN NUMBER,
9617: p_action IN VARCHAR2,
9610: (
9611: p_api_version_number IN NUMBER := 1.0,
9612: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
9613: p_commit IN VARCHAR2 := FND_API.g_false,
9614: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
9615: p_org_id IN NUMBER,
9616: p_opinion_log_id IN NUMBER,
9617: p_action IN VARCHAR2,
9618: x_return_status OUT nocopy VARCHAR2,
9720:
9721: SAVEPOINT ORGANIZATION_CHANGE_HANDLER;
9722:
9723: -- Standard call to check for call compatibility.
9724: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
9725: p_api_version_number,
9726: l_api_name,
9727: G_PKG_NAME)
9728: THEN
9725: p_api_version_number,
9726: l_api_name,
9727: G_PKG_NAME)
9728: THEN
9729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9730: END IF;
9731:
9732: -- Initialize message list if p_init_msg_list is set to TRUE.
9733: IF FND_API.to_Boolean( p_init_msg_list )
9729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9730: END IF;
9731:
9732: -- Initialize message list if p_init_msg_list is set to TRUE.
9733: IF FND_API.to_Boolean( p_init_msg_list )
9734: THEN
9735: FND_MSG_PUB.initialize;
9736: END IF;
9737:
9735: FND_MSG_PUB.initialize;
9736: END IF;
9737:
9738: -- Initialize API return status to SUCCESS
9739: x_return_status := FND_API.G_RET_STS_SUCCESS;
9740:
9741:
9742:
9743: --modify fin_cert_eval summary table
9971: -- nothing need to modify in process_eval summary tables
9972:
9973: ---nothing need to modify in dashboard, org_eval summary tables
9974:
9975: x_return_status := FND_API.G_RET_STS_SUCCESS;
9976:
9977: EXCEPTION
9978: WHEN NO_DATA_FOUND THEN
9979: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
9976:
9977: EXCEPTION
9978: WHEN NO_DATA_FOUND THEN
9979: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
9980: x_return_status := FND_API.G_RET_STS_ERROR;
9981: x_msg_count := 1;
9982: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
9983: WHEN OTHERS THEN
9984: ROLLBACK TO ORGANIZATION_CHANGE_HANDLER;
9983: WHEN OTHERS THEN
9984: ROLLBACK TO ORGANIZATION_CHANGE_HANDLER;
9985: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
9986: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
9987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9988: x_msg_count := 1;
9989: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
9990: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9991: FND_MSG_PUB.Count_And_Get(
9988: x_msg_count := 1;
9989: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
9990: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9991: FND_MSG_PUB.Count_And_Get(
9992: p_encoded => FND_API.G_FALSE,
9993: p_count => x_msg_count,
9994: p_data => x_msg_data);
9995: RETURN;
9996:
9999: ---------------------------------The following procedures are only for migration purpose------------
10000: ---------------------------------name convention is the regular procedure name_M ------------------
10001: PROCEDURE Populate_Fin_Risk_Ass_Sum_M(
10002: p_api_version_number IN NUMBER := 1.0,
10003: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
10004: p_commit IN VARCHAR2 := FND_API.g_false,
10005: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
10006: p_certification_id IN NUMBER,
10007: x_return_status OUT nocopy VARCHAR2,
10000: ---------------------------------name convention is the regular procedure name_M ------------------
10001: PROCEDURE Populate_Fin_Risk_Ass_Sum_M(
10002: p_api_version_number IN NUMBER := 1.0,
10003: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
10004: p_commit IN VARCHAR2 := FND_API.g_false,
10005: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
10006: p_certification_id IN NUMBER,
10007: x_return_status OUT nocopy VARCHAR2,
10008: x_msg_count OUT nocopy NUMBER,
10001: PROCEDURE Populate_Fin_Risk_Ass_Sum_M(
10002: p_api_version_number IN NUMBER := 1.0,
10003: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
10004: p_commit IN VARCHAR2 := FND_API.g_false,
10005: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
10006: p_certification_id IN NUMBER,
10007: x_return_status OUT nocopy VARCHAR2,
10008: x_msg_count OUT nocopy NUMBER,
10009: x_msg_data OUT nocopy VARCHAR2
10097:
10098: SAVEPOINT Populate_Fin_Risk_Ass_Sum_M;
10099:
10100: -- Standard call to check for call compatibility.
10101: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
10102: p_api_version_number,
10103: l_api_name,
10104: G_PKG_NAME)
10105: THEN
10102: p_api_version_number,
10103: l_api_name,
10104: G_PKG_NAME)
10105: THEN
10106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10107: END IF;
10108:
10109: -- Initialize message list if p_init_msg_list is set to TRUE.
10110: IF FND_API.to_Boolean( p_init_msg_list )
10106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10107: END IF;
10108:
10109: -- Initialize message list if p_init_msg_list is set to TRUE.
10110: IF FND_API.to_Boolean( p_init_msg_list )
10111: THEN
10112: FND_MSG_PUB.initialize;
10113: END IF;
10114:
10112: FND_MSG_PUB.initialize;
10113: END IF;
10114:
10115: -- Initialize API return status to SUCCESS
10116: x_return_status := FND_API.G_RET_STS_SUCCESS;
10117:
10118:
10119: SELECT COUNT(1) INTO l_count FROM AMW_RISK_ASSOCIATIONS
10120: WHERE object_type = 'PROCESS_FINCERT'
10169: risk_rec.DELETION_APPROVAL_DATE,
10170: risk_rec.RISK_REV_ID);
10171:
10172: END LOOP;
10173: if(p_commit <> FND_API.g_false)
10174: then commit;
10175: end if;
10176:
10177: END IF;
10174: then commit;
10175: end if;
10176:
10177: END IF;
10178: x_return_status := FND_API.G_RET_STS_SUCCESS;
10179:
10180:
10181: EXCEPTION
10182: WHEN NO_DATA_FOUND THEN
10183: IF c_finrisks%ISOPEN THEN
10184: close c_finrisks;
10185: END IF;
10186: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
10187: x_return_status := FND_API.G_RET_STS_ERROR;
10188: x_msg_count := 1;
10189: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
10190: WHEN OTHERS THEN
10191: IF c_finrisks%ISOPEN THEN
10193: END IF;
10194: ROLLBACK TO Populate_Fin_Risk_Ass_Sum_M;
10195: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
10196: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10198: x_msg_count := 1;
10199: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
10200: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
10201: FND_MSG_PUB.Count_And_Get(
10198: x_msg_count := 1;
10199: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
10200: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
10201: FND_MSG_PUB.Count_And_Get(
10202: p_encoded => FND_API.G_FALSE,
10203: p_count => x_msg_count,
10204: p_data => x_msg_data);
10205: RETURN;
10206:
10208:
10209:
10210: PROCEDURE Populate_Fin_Ctrl_Ass_Sum_M(
10211: p_api_version_number IN NUMBER := 1.0,
10212: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
10213: p_commit IN VARCHAR2 := FND_API.g_false,
10214: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
10215: p_certification_id IN NUMBER,
10216: x_return_status OUT nocopy VARCHAR2,
10209:
10210: PROCEDURE Populate_Fin_Ctrl_Ass_Sum_M(
10211: p_api_version_number IN NUMBER := 1.0,
10212: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
10213: p_commit IN VARCHAR2 := FND_API.g_false,
10214: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
10215: p_certification_id IN NUMBER,
10216: x_return_status OUT nocopy VARCHAR2,
10217: x_msg_count OUT nocopy NUMBER,
10210: PROCEDURE Populate_Fin_Ctrl_Ass_Sum_M(
10211: p_api_version_number IN NUMBER := 1.0,
10212: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
10213: p_commit IN VARCHAR2 := FND_API.g_false,
10214: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
10215: p_certification_id IN NUMBER,
10216: x_return_status OUT nocopy VARCHAR2,
10217: x_msg_count OUT nocopy NUMBER,
10218: x_msg_data OUT nocopy VARCHAR2
10306:
10307: SAVEPOINT Populate_Fin_Ctrl_Ass_Sum_M;
10308:
10309: -- Standard call to check for call compatibility.
10310: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
10311: p_api_version_number,
10312: l_api_name,
10313: G_PKG_NAME)
10314: THEN
10311: p_api_version_number,
10312: l_api_name,
10313: G_PKG_NAME)
10314: THEN
10315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10316: END IF;
10317:
10318: -- Initialize message list if p_init_msg_list is set to TRUE.
10319: IF FND_API.to_Boolean( p_init_msg_list )
10315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10316: END IF;
10317:
10318: -- Initialize message list if p_init_msg_list is set to TRUE.
10319: IF FND_API.to_Boolean( p_init_msg_list )
10320: THEN
10321: FND_MSG_PUB.initialize;
10322: END IF;
10323:
10321: FND_MSG_PUB.initialize;
10322: END IF;
10323:
10324: -- Initialize API return status to SUCCESS
10325: x_return_status := FND_API.G_RET_STS_SUCCESS;
10326:
10327:
10328: SELECT COUNT(1) INTO l_count FROM AMW_CONTROL_ASSOCIATIONS
10329: WHERE OBJECT_TYPE = 'RISK_FINCERT'
10378: control_rec.DELETION_APPROVAL_DATE,
10379: control_rec.CONTROL_REV_ID);
10380:
10381: END LOOP;
10382: if(p_commit <> FND_API.g_false)
10383: then commit;
10384: end if;
10385: END IF;
10386: x_return_status := FND_API.G_RET_STS_SUCCESS;
10382: if(p_commit <> FND_API.g_false)
10383: then commit;
10384: end if;
10385: END IF;
10386: x_return_status := FND_API.G_RET_STS_SUCCESS;
10387:
10388: EXCEPTION
10389: WHEN NO_DATA_FOUND THEN
10390: IF c_fincontrols%ISOPEN THEN
10390: IF c_fincontrols%ISOPEN THEN
10391: close c_fincontrols;
10392: END IF;
10393: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
10394: x_return_status := FND_API.G_RET_STS_ERROR;
10395: x_msg_count := 1;
10396: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
10397: WHEN OTHERS THEN
10398: IF c_fincontrols%ISOPEN THEN
10400: END IF;
10401: ROLLBACK TO Populate_Fin_Ctrl_Ass_Sum_M;
10402: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
10403: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10405: x_msg_count := 1;
10406: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
10407: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
10408: FND_MSG_PUB.Count_And_Get(
10405: x_msg_count := 1;
10406: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
10407: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
10408: FND_MSG_PUB.Count_And_Get(
10409: p_encoded => FND_API.G_FALSE,
10410: p_count => x_msg_count,
10411: p_data => x_msg_data);
10412: RETURN;
10413:
10416:
10417: -------------populate control association which related to financial certification ----
10418: PROCEDURE Populate_Fin_AP_Ass_Sum_M(
10419: p_api_version_number IN NUMBER := 1.0,
10420: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
10421: p_commit IN VARCHAR2 := FND_API.g_false,
10422: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
10423: p_certification_id IN NUMBER,
10424: x_return_status OUT nocopy VARCHAR2,
10417: -------------populate control association which related to financial certification ----
10418: PROCEDURE Populate_Fin_AP_Ass_Sum_M(
10419: p_api_version_number IN NUMBER := 1.0,
10420: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
10421: p_commit IN VARCHAR2 := FND_API.g_false,
10422: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
10423: p_certification_id IN NUMBER,
10424: x_return_status OUT nocopy VARCHAR2,
10425: x_msg_count OUT nocopy NUMBER,
10418: PROCEDURE Populate_Fin_AP_Ass_Sum_M(
10419: p_api_version_number IN NUMBER := 1.0,
10420: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
10421: p_commit IN VARCHAR2 := FND_API.g_false,
10422: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
10423: p_certification_id IN NUMBER,
10424: x_return_status OUT nocopy VARCHAR2,
10425: x_msg_count OUT nocopy NUMBER,
10426: x_msg_data OUT nocopy VARCHAR2
10514: SAVEPOINT Populate_Fin_AP_Ass_Sum_M;
10515:
10516: -- Standard call to check for call compatibility.
10517:
10518: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
10519: p_api_version_number,
10520: l_api_name,
10521: G_PKG_NAME)
10522: THEN
10519: p_api_version_number,
10520: l_api_name,
10521: G_PKG_NAME)
10522: THEN
10523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10524: END IF;
10525:
10526: -- Initialize message list if p_init_msg_list is set to TRUE.
10527: IF FND_API.to_Boolean( p_init_msg_list )
10523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10524: END IF;
10525:
10526: -- Initialize message list if p_init_msg_list is set to TRUE.
10527: IF FND_API.to_Boolean( p_init_msg_list )
10528: THEN
10529: FND_MSG_PUB.initialize;
10530: END IF;
10531:
10529: FND_MSG_PUB.initialize;
10530: END IF;
10531:
10532: -- Initialize API return status to SUCCESS
10533: x_return_status := FND_API.G_RET_STS_SUCCESS;
10534:
10535:
10536:
10537: SELECT COUNT(1) INTO l_count FROM AMW_AP_ASSOCIATIONS
10589: ap_rec.AUDIT_PROCEDURE_REV_ID);
10590:
10591:
10592: END LOOP;
10593: if(p_commit <> FND_API.g_false)
10594: then commit;
10595: end if;
10596: END IF;
10597: x_return_status := FND_API.G_RET_STS_SUCCESS;
10593: if(p_commit <> FND_API.g_false)
10594: then commit;
10595: end if;
10596: END IF;
10597: x_return_status := FND_API.G_RET_STS_SUCCESS;
10598:
10599: EXCEPTION
10600: WHEN NO_DATA_FOUND THEN
10601: IF c_finap%ISOPEN THEN
10601: IF c_finap%ISOPEN THEN
10602: close c_finap;
10603: END IF;
10604: fnd_file.put_line(fnd_file.LOG, 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name );
10605: x_return_status := FND_API.G_RET_STS_ERROR;
10606: x_msg_count := 1;
10607: x_msg_data := 'NO DATA FOUND IN ' || G_PKG_NAME || '.' || l_api_name ;
10608: WHEN OTHERS THEN
10609: IF c_finap%ISOPEN THEN
10611: END IF;
10612: ROLLBACK TO Populate_Fin_AP_Ass_Sum_M;
10613: fnd_file.put_line(fnd_file.LOG, 'Unexpected error in ' || G_PKG_NAME || '.' || l_api_name );
10614: fnd_file.put_line(fnd_file.LOG, SUBSTR (SQLERRM, 1, 2000));
10615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10616: x_msg_count := 1;
10617: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
10618: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
10619: FND_MSG_PUB.Count_And_Get(
10616: x_msg_count := 1;
10617: x_msg_data := SUBSTR (SQLERRM, 1, 2000);
10618: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
10619: FND_MSG_PUB.Count_And_Get(
10620: p_encoded => FND_API.G_FALSE,
10621: p_count => x_msg_count,
10622: p_data => x_msg_data);
10623: RETURN;
10624: