78: -- 06-Apr-2004 rosharma Bug # 3557739.
79: -- 22-Apr-2005 srivikri Bug # 4305459.
80: --
81:
82: AMS_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
83: AMS_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
84: AMS_DEBUG_MEDIUM_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
85:
86: PROCEDURE Get_User_Role
79: -- 22-Apr-2005 srivikri Bug # 4305459.
80: --
81:
82: AMS_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
83: AMS_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
84: AMS_DEBUG_MEDIUM_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
85:
86: PROCEDURE Get_User_Role
87: ( p_user_id IN NUMBER,
80: --
81:
82: AMS_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
83: AMS_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
84: AMS_DEBUG_MEDIUM_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
85:
86: PROCEDURE Get_User_Role
87: ( p_user_id IN NUMBER,
88: x_role_name OUT NOCOPY VARCHAR2,
324: l_return_status VARCHAR2(1);
325:
326: BEGIN
327: -- clear the message buffer
328: FND_MSG_PUB.initialize;
329:
330: AMS_Utility_PVT.create_log (
331: x_return_status => l_return_status,
332: p_arc_log_used_by => p_object_type,
433: EXCEPTION
434: -- The line below records this function call in the error system
435: -- in the case of an exception.
436: WHEN OTHERS THEN
437: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
438: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
439: END IF;
440:
441: write_buffer_to_log (p_object_type, p_object_id);
434: -- The line below records this function call in the error system
435: -- in the case of an exception.
436: WHEN OTHERS THEN
437: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
438: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
439: END IF;
440:
441: write_buffer_to_log (p_object_type, p_object_id);
442:
526:
527: write_buffer_to_log (l_object_type, l_object_id);
528: EXCEPTION
529: WHEN OTHERS THEN
530: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
531: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
532: END IF;
533:
534: write_buffer_to_log (l_object_type, l_object_id);
527: write_buffer_to_log (l_object_type, l_object_id);
528: EXCEPTION
529: WHEN OTHERS THEN
530: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
531: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
532: END IF;
533:
534: write_buffer_to_log (l_object_type, l_object_id);
535:
783: EXCEPTION
784: -- The line below records this function call in the error system
785: -- in the case of an exception.
786: WHEN OTHERS THEN
787: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
788: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
789: END IF;
790:
791: write_buffer_to_log (l_object_type, l_object_id);
784: -- The line below records this function call in the error system
785: -- in the case of an exception.
786: WHEN OTHERS THEN
787: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
788: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
789: END IF;
790:
791: write_buffer_to_log (l_object_type, l_object_id);
792:
930: p_msg_data => L_API_NAME || ': end'
931: );
932: EXCEPTION
933: WHEN OTHERS THEN
934: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
935: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
936: END IF;
937:
938: write_buffer_to_log (l_object_type, l_object_id);
931: );
932: EXCEPTION
933: WHEN OTHERS THEN
934: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
935: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
936: END IF;
937:
938: write_buffer_to_log (l_object_type, l_object_id);
939:
1189: EXCEPTION
1190: -- The line below records this function call in the error system
1191: -- in the case of an exception.
1192: WHEN OTHERS THEN
1193: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1194: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1195: END IF;
1196:
1197: write_buffer_to_log (l_object_type, l_object_id);
1190: -- The line below records this function call in the error system
1191: -- in the case of an exception.
1192: WHEN OTHERS THEN
1193: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1194: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1195: END IF;
1196:
1197: write_buffer_to_log (l_object_type, l_object_id);
1198:
1453: EXCEPTION
1454: -- The line below records this function call in the error system
1455: -- in the case of an exception.
1456: WHEN OTHERS THEN
1457: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1458: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1459: END IF;
1460:
1461: write_buffer_to_log (l_object_type, l_object_id);
1454: -- The line below records this function call in the error system
1455: -- in the case of an exception.
1456: WHEN OTHERS THEN
1457: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1458: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1459: END IF;
1460:
1461: write_buffer_to_log (l_object_type, l_object_id);
1462:
1648: EXCEPTION
1649: -- The line below records this function call in the error system
1650: -- in the case of an exception.
1651: WHEN OTHERS THEN
1652: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1653: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1654: END IF;
1655:
1656: write_buffer_to_log (l_object_type, l_object_id);
1649: -- The line below records this function call in the error system
1650: -- in the case of an exception.
1651: WHEN OTHERS THEN
1652: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1653: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1654: END IF;
1655:
1656: write_buffer_to_log (l_object_type, l_object_id);
1657:
1894: EXCEPTION
1895: -- The line below records this function call in the error system
1896: -- in the case of an exception.
1897: WHEN OTHERS THEN
1898: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1899: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1900: END IF;
1901:
1902: write_buffer_to_log (l_object_type, l_object_id);
1895: -- The line below records this function call in the error system
1896: -- in the case of an exception.
1897: WHEN OTHERS THEN
1898: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1899: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1900: END IF;
1901:
1902: write_buffer_to_log (l_object_type, l_object_id);
1903:
2102: EXCEPTION
2103: -- The line below records this function call in the error system
2104: -- in the case of an exception.
2105: WHEN OTHERS THEN
2106: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2107: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2108: END IF;
2109:
2110: write_buffer_to_log (l_object_type, l_object_id);
2103: -- The line below records this function call in the error system
2104: -- in the case of an exception.
2105: WHEN OTHERS THEN
2106: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2107: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2108: END IF;
2109:
2110: write_buffer_to_log (l_object_type, l_object_id);
2111:
2139: FETCH c_resource INTO l_person_id ;
2140: IF c_resource%NOTFOUND THEN
2141: x_return_status := FND_API.G_RET_STS_ERROR;
2142: FND_MESSAGE.Set_Name('AMS','AMS_APPR_INVALID_RESOURCE_ID');
2143: FND_MSG_PUB.Add;
2144: END IF;
2145: CLOSE c_resource ;
2146: -- Pass the Employee ID to get the Role
2147: WF_DIRECTORY.getrolename
2151: p_display_name => x_role_display_name );
2152: IF x_role_name is null then
2153: x_return_status := FND_API.G_RET_STS_ERROR;
2154: FND_MESSAGE.Set_Name('AMS','AMS_APPR_INVALID_ROLE');
2155: FND_MSG_PUB.Add;
2156: END IF;
2157: END Get_User_Role;
2158:
2159:
2186: WHERE score_id = p_object_id
2187: AND logs_flag = 'N';
2188: END IF;
2189:
2190: l_msg_count := FND_MSG_PUB.count_msg;
2191: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
2192: l_msg_data := FND_MSG_PUB.get(i, FND_API.G_FALSE);
2193: Ams_Utility_PVT.Create_Log (
2194: x_return_status => l_return_status_log
2187: AND logs_flag = 'N';
2188: END IF;
2189:
2190: l_msg_count := FND_MSG_PUB.count_msg;
2191: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
2192: l_msg_data := FND_MSG_PUB.get(i, FND_API.G_FALSE);
2193: Ams_Utility_PVT.Create_Log (
2194: x_return_status => l_return_status_log
2195: , p_arc_log_used_by => p_object_type
2188: END IF;
2189:
2190: l_msg_count := FND_MSG_PUB.count_msg;
2191: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
2192: l_msg_data := FND_MSG_PUB.get(i, FND_API.G_FALSE);
2193: Ams_Utility_PVT.Create_Log (
2194: x_return_status => l_return_status_log
2195: , p_arc_log_used_by => p_object_type
2196: , p_log_used_by_id => p_object_id
2199: END LOOP;
2200:
2201: -- buffer has been written to log, clear
2202: -- buffer.
2203: FND_MSG_PUB.initialize;
2204: END write_buffer_to_log;
2205:
2206:
2207: --
2235: -- Change by nyostos on Jan 6, 2003
2236: -- Commented the following line to ignore any errors when aborting the WF process
2237: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2238: --COMMIT;
2239: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2240: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
2241: END IF;
2242: END cancel_process;
2243:
2236: -- Commented the following line to ignore any errors when aborting the WF process
2237: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2238: --COMMIT;
2239: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2240: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
2241: END IF;
2242: END cancel_process;
2243:
2244:
2324: --COMMIT; -- otherwise, WF engine does not get this
2325: EXCEPTION
2326: WHEN OTHERS THEN
2327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2328: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2329: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
2330: END IF;
2331: END change_schedule;
2332:
2325: EXCEPTION
2326: WHEN OTHERS THEN
2327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2328: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2329: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
2330: END IF;
2331: END change_schedule;
2332:
2333:
2533: EXCEPTION
2534: -- The line below records this function call in the error system
2535: -- in the case of an exception.
2536: WHEN OTHERS THEN
2537: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2538: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2539: END IF;
2540:
2541: write_buffer_to_log (l_object_type, l_object_id);
2534: -- The line below records this function call in the error system
2535: -- in the case of an exception.
2536: WHEN OTHERS THEN
2537: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2538: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2539: END IF;
2540:
2541: write_buffer_to_log (l_object_type, l_object_id);
2542:
2663: EXCEPTION
2664: -- The line below records this function call in the error system
2665: -- in the case of an exception.
2666: WHEN OTHERS THEN
2667: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2668: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2669: END IF;
2670:
2671: write_buffer_to_log (l_object_type, l_object_id);
2664: -- The line below records this function call in the error system
2665: -- in the case of an exception.
2666: WHEN OTHERS THEN
2667: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2668: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2669: END IF;
2670:
2671: write_buffer_to_log (l_object_type, l_object_id);
2672:
2804: EXCEPTION
2805: -- The line below records this function call in the error system
2806: -- in the case of an exception.
2807: WHEN OTHERS THEN
2808: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2809: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2810: END IF;
2811:
2812:
2805: -- The line below records this function call in the error system
2806: -- in the case of an exception.
2807: WHEN OTHERS THEN
2808: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2809: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2810: END IF;
2811:
2812:
2813: write_buffer_to_log (l_object_type, l_object_id);
3025: EXCEPTION
3026: -- The line below records this function call in the error system
3027: -- in the case of an exception.
3028: WHEN OTHERS THEN
3029: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3030: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3031: END IF;
3032:
3033: write_buffer_to_log (l_object_type, l_object_id);
3026: -- The line below records this function call in the error system
3027: -- in the case of an exception.
3028: WHEN OTHERS THEN
3029: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3030: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3031: END IF;
3032:
3033: write_buffer_to_log (l_object_type, l_object_id);
3034: