181:
182: -- Object Status
183: G_CANCELLED CONSTANT VARCHAR2(30) := 'CANCELLED';
184:
185: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
186: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
187: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
188:
189: --
182: -- Object Status
183: G_CANCELLED CONSTANT VARCHAR2(30) := 'CANCELLED';
184:
185: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
186: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
187: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
188:
189: --
190: -- Start type definition
183: G_CANCELLED CONSTANT VARCHAR2(30) := 'CANCELLED';
184:
185: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
186: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
187: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
188:
189: --
190: -- Start type definition
191: --
347: PROCEDURE write_error(p_procedure IN varchar2)
348: IS
349: l_msg varchar2(4000);
350: BEGIN
351: -- fnd_msg_pub.reset;
352: LOOP
353: l_msg := fnd_msg_pub.get(p_encoded => FND_API.G_FALSE);
354: EXIT WHEN l_msg IS NULL;
355: write_msg(p_procedure, 'ERROR: '||l_msg);
349: l_msg varchar2(4000);
350: BEGIN
351: -- fnd_msg_pub.reset;
352: LOOP
353: l_msg := fnd_msg_pub.get(p_encoded => FND_API.G_FALSE);
354: EXIT WHEN l_msg IS NULL;
355: write_msg(p_procedure, 'ERROR: '||l_msg);
356: END LOOP;
357: --fnd_msg_pub.initialize;
353: l_msg := fnd_msg_pub.get(p_encoded => FND_API.G_FALSE);
354: EXIT WHEN l_msg IS NULL;
355: write_msg(p_procedure, 'ERROR: '||l_msg);
356: END LOOP;
357: --fnd_msg_pub.initialize;
358: END;
359:
360: PROCEDURE Check_Create_Rollup_Parents (
361: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1902: EXCEPTION
1903: WHEN Fnd_Api.G_EXC_ERROR THEN
1904: l_return_status := Fnd_Api.G_RET_STS_ERROR;
1905: write_error(l_api_name);
1906: -- Fnd_Msg_Pub.Count_And_Get (
1907: -- p_count => l_msg_count,
1908: -- p_data => l_msg_data
1909: -- );
1910: x_retcode := 1;
1912: RAISE;
1913: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1914: l_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1915: write_error(l_api_name);
1916: -- Fnd_Msg_Pub.Count_And_Get (
1917: -- p_count => l_msg_count,
1918: -- p_data => l_msg_data
1919: -- );
1920: x_retcode := 1;
1923: WHEN OTHERS THEN
1924: l_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1925: x_errbuf := SQLERRM;
1926: write_msg(l_api_name,'SQLERROR: '||x_errbuf);
1927: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1928: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1929: END IF;
1930: -- Fnd_Msg_Pub.Count_And_Get (
1931: -- p_count => l_msg_count,
1924: l_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1925: x_errbuf := SQLERRM;
1926: write_msg(l_api_name,'SQLERROR: '||x_errbuf);
1927: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1928: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1929: END IF;
1930: -- Fnd_Msg_Pub.Count_And_Get (
1931: -- p_count => l_msg_count,
1932: -- p_data => l_msg_data
1926: write_msg(l_api_name,'SQLERROR: '||x_errbuf);
1927: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1928: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1929: END IF;
1930: -- Fnd_Msg_Pub.Count_And_Get (
1931: -- p_count => l_msg_count,
1932: -- p_data => l_msg_data
1933: -- );
1934: x_retcode := 1;
2009: --
2010: -- Initialize message list if p_init_msg_list is set to TRUE.
2011: --
2012: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
2013: Fnd_Msg_Pub.Initialize;
2014: END IF;
2015:
2016: --
2017: -- Standard check for API version compatibility.
2169: END IF;
2170:
2171: Clear_Cache;
2172:
2173: Fnd_Msg_Pub.Count_And_Get (
2174: p_count => x_msg_count,
2175: p_data => x_msg_data
2176: );
2177: --
2184: WHEN Fnd_Api.G_EXC_ERROR THEN
2185: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2186: x_msg_count := l_msg_count;
2187: x_msg_data := l_msg_data;
2188: Fnd_Msg_Pub.Count_And_Get (
2189: p_count => x_msg_count,
2190: p_data => x_msg_data
2191: );
2192: -- RAISE;
2193: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2194: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2195: x_msg_count := l_msg_count;
2196: x_msg_data := l_msg_data;
2197: Fnd_Msg_Pub.Count_And_Get (
2198: p_count => x_msg_count,
2199: p_data => x_msg_data
2200: );
2201: -- RAISE;
2202: WHEN OTHERS THEN
2203: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2204: x_msg_count := l_msg_count;
2205: x_msg_data := l_msg_data;
2206: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2207: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2208: END IF;
2209: Fnd_Msg_Pub.Count_And_Get (
2210: p_count => x_msg_count,
2203: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2204: x_msg_count := l_msg_count;
2205: x_msg_data := l_msg_data;
2206: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2207: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2208: END IF;
2209: Fnd_Msg_Pub.Count_And_Get (
2210: p_count => x_msg_count,
2211: p_data => x_msg_data
2205: x_msg_data := l_msg_data;
2206: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2207: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2208: END IF;
2209: Fnd_Msg_Pub.Count_And_Get (
2210: p_count => x_msg_count,
2211: p_data => x_msg_data
2212: );
2213: -- RAISE;
2312: --
2313: -- Initialize message list if p_init_msg_list is set to TRUE.
2314: --
2315: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
2316: Fnd_Msg_Pub.Initialize;
2317: END IF;
2318:
2319: --
2320: -- Standard check for API version compatibility.
2482: --
2483: -- Standard API to get message count, and if 1,
2484: -- set the message data OUT variable.
2485: --
2486: -- Fnd_Msg_Pub.Count_And_Get (
2487: -- p_count => x_msg_count,
2488: -- p_data => x_msg_data,
2489: -- p_encoded => Fnd_Api.G_FALSE
2490: -- );
2492: EXCEPTION
2493: WHEN Fnd_Api.G_EXC_ERROR THEN
2494: ROLLBACK TO CREATE_ROLLUP_PARENTS_SP1;
2495: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2496: -- Fnd_Msg_Pub.Count_And_Get (
2497: -- p_count => x_msg_count,
2498: -- p_data => x_msg_data
2499: -- );
2500: -- RAISE Fnd_Api.G_EXC_ERROR;
2500: -- RAISE Fnd_Api.G_EXC_ERROR;
2501: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2502: ROLLBACK TO CREATE_ROLLUP_PARENTS_SP1;
2503: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2504: -- Fnd_Msg_Pub.Count_And_Get (
2505: -- p_count => x_msg_count,
2506: -- p_data => x_msg_data
2507: -- );
2508: -- RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
2509:
2510: WHEN OTHERS THEN
2511: ROLLBACK TO CREATE_ROLLUP_PARENTS_SP1;
2512: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2513: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2514: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2515: END IF;
2516: -- Fnd_Msg_Pub.Count_And_Get (
2517: -- p_count => x_msg_count,
2510: WHEN OTHERS THEN
2511: ROLLBACK TO CREATE_ROLLUP_PARENTS_SP1;
2512: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2513: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2514: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2515: END IF;
2516: -- Fnd_Msg_Pub.Count_And_Get (
2517: -- p_count => x_msg_count,
2518: -- p_data => x_msg_data
2512: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2513: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2514: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2515: END IF;
2516: -- Fnd_Msg_Pub.Count_And_Get (
2517: -- p_count => x_msg_count,
2518: -- p_data => x_msg_data
2519: -- );
2520: -- RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
2770: IF p_init_msg_list = FND_API.G_TRUE THEN
2771: --write_msg(l_api_name,'CREATE_ACTMETRIC ERROR on metric_id='||p_metric_parent_id
2772: -- ||', obj_type='||l_parent_obj_type||', obj_id='||l_parent_obj_id);
2773: fnd_message.Set_Name('AMS','AMS_METR_IGNORE_ERROR');
2774: Fnd_Msg_Pub.Add;
2775: write_error(l_api_name);
2776: END IF;
2777: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2778: IF p_init_msg_list = FND_API.G_TRUE THEN
2778: IF p_init_msg_list = FND_API.G_TRUE THEN
2779: --write_msg(l_api_name,'CREATE_ACTMETRIC UNEXP on metric_id='||p_metric_parent_id
2780: -- ||', obj_type='||l_parent_obj_type||', obj_id='||l_parent_obj_id);
2781: fnd_message.Set_Name('AMS','AMS_METR_IGNORE_ERROR');
2782: Fnd_Msg_Pub.Add;
2783: write_error(l_api_name);
2784: END IF;
2785: ELSE
2786:
2836: -- Standard API to get message count, and if 1,
2837: -- set the message data OUT variable.
2838: --
2839: /*** Not required for this routine.
2840: Fnd_Msg_Pub.Count_And_Get (
2841: p_count => x_msg_count,
2842: p_data => x_msg_data,
2843: p_encoded => Fnd_Api.G_FALSE
2844: );
2846: /*
2847: EXCEPTION
2848: WHEN Fnd_Api.G_EXC_ERROR THEN
2849: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2850: Fnd_Msg_Pub.Count_And_Get (
2851: p_count => x_msg_count,
2852: p_data => x_msg_data
2853: );
2854: RAISE Fnd_Api.G_EXC_ERROR;
2853: );
2854: RAISE Fnd_Api.G_EXC_ERROR;
2855: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2856: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2857: Fnd_Msg_Pub.Count_And_Get (
2858: p_count => x_msg_count,
2859: p_data => x_msg_data
2860: );
2861: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
2861: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
2862:
2863: WHEN OTHERS THEN
2864: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2865: Fnd_Msg_Pub.Count_And_Get (
2866: p_count => x_msg_count,
2867: p_data => x_msg_data
2868: );
2869: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
3343: --
3344: -- Standard API to get message count, and if 1,
3345: -- set the message data OUT NOCOPY variable.
3346: --
3347: Fnd_Msg_Pub.Count_And_Get (
3348: p_count => x_msg_count,
3349: p_data => x_msg_data,
3350: p_encoded => Fnd_Api.G_FALSE
3351: );
3353: EXCEPTION
3354: WHEN Fnd_Api.G_EXC_ERROR THEN
3355: ROLLBACK TO sp_run_functions;
3356: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3357: Fnd_Msg_Pub.Count_And_Get (
3358: p_count => x_msg_count,
3359: p_data => x_msg_data,
3360: p_encoded => FND_API.G_FALSE
3361: );
3361: );
3362: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3363: ROLLBACK TO sp_run_functions;
3364: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3365: Fnd_Msg_Pub.Count_And_Get (
3366: p_count => x_msg_count,
3367: p_data => x_msg_data,
3368: p_encoded => FND_API.G_FALSE
3369: );
3369: );
3370: WHEN OTHERS THEN
3371: ROLLBACK TO sp_run_functions;
3372: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3373: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
3374: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
3375: END IF;
3376: Fnd_Msg_Pub.Count_And_Get (
3377: p_count => x_msg_count,
3370: WHEN OTHERS THEN
3371: ROLLBACK TO sp_run_functions;
3372: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3373: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
3374: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
3375: END IF;
3376: Fnd_Msg_Pub.Count_And_Get (
3377: p_count => x_msg_count,
3378: p_data => x_msg_data,
3372: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3373: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
3374: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
3375: END IF;
3376: Fnd_Msg_Pub.Count_And_Get (
3377: p_count => x_msg_count,
3378: p_data => x_msg_data,
3379: p_encoded => FND_API.G_FALSE
3380: );
4149: --
4150: -- Standard API to get message count, and if 1,
4151: -- set the message data OUT NOCOPY variable.
4152: --
4153: Fnd_Msg_Pub.Count_And_Get (
4154: p_count => x_msg_count,
4155: p_data => x_msg_data,
4156: p_encoded => Fnd_Api.G_FALSE
4157: );
4159: EXCEPTION
4160: WHEN Fnd_Api.G_EXC_ERROR THEN
4161: ROLLBACK TO sp_Update_Variable;
4162: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4163: Fnd_Msg_Pub.Count_And_Get (
4164: p_count => x_msg_count,
4165: p_data => x_msg_data,
4166: p_encoded => FND_API.G_FALSE
4167: );
4167: );
4168: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4169: ROLLBACK TO sp_Update_Variable;
4170: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4171: Fnd_Msg_Pub.Count_And_Get (
4172: p_count => x_msg_count,
4173: p_data => x_msg_data,
4174: p_encoded => FND_API.G_FALSE
4175: );
4175: );
4176: WHEN OTHERS THEN
4177: ROLLBACK TO sp_Update_Variable;
4178: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4179: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
4180: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
4181: END IF;
4182: Fnd_Msg_Pub.Count_And_Get (
4183: p_count => x_msg_count,
4176: WHEN OTHERS THEN
4177: ROLLBACK TO sp_Update_Variable;
4178: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4179: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
4180: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
4181: END IF;
4182: Fnd_Msg_Pub.Count_And_Get (
4183: p_count => x_msg_count,
4184: p_data => x_msg_data,
4178: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4179: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
4180: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
4181: END IF;
4182: Fnd_Msg_Pub.Count_And_Get (
4183: p_count => x_msg_count,
4184: p_data => x_msg_data,
4185: p_encoded => FND_API.G_FALSE
4186: );
4560: OPEN c_get_act_list (p_act_metric_used_by_id);
4561: FETCH c_get_act_list BULK COLLECT INTO l_obj_ids, l_obj_types, l_obj_currencies;
4562: CLOSE c_get_act_list;
4563: ELSE
4564: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4565: FND_MESSAGE.set_name('AMS', 'AMS_METR_INVALID_OBJECT');
4566: FND_MESSAGE.set_token('OBJTYPE', p_arc_act_metric_used_by);
4567: FND_MESSAGE.set_token('OBJID', p_act_metric_used_by_id);
4568: FND_MSG_PUB.add;
4564: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4565: FND_MESSAGE.set_name('AMS', 'AMS_METR_INVALID_OBJECT');
4566: FND_MESSAGE.set_token('OBJTYPE', p_arc_act_metric_used_by);
4567: FND_MESSAGE.set_token('OBJID', p_act_metric_used_by_id);
4568: FND_MSG_PUB.add;
4569: END IF;
4570: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4571: END IF;
4572:
6432: --
6433: -- Standard API to get message count, and if 1,
6434: -- set the message data OUT NOCOPY variable.
6435: --
6436: Fnd_Msg_Pub.Count_And_Get (
6437: p_count => x_msg_count,
6438: p_data => x_msg_data,
6439: p_encoded => Fnd_Api.G_FALSE
6440: );
6442: EXCEPTION
6443: WHEN Fnd_Api.G_EXC_ERROR THEN
6444: ROLLBACK TO sp_Update_formulas;
6445: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6446: Fnd_Msg_Pub.Count_And_Get (
6447: p_count => x_msg_count,
6448: p_data => x_msg_data,
6449: p_encoded => FND_API.G_FALSE
6450: );
6450: );
6451: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6452: ROLLBACK TO sp_Update_formulas;
6453: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6454: Fnd_Msg_Pub.Count_And_Get (
6455: p_count => x_msg_count,
6456: p_data => x_msg_data,
6457: p_encoded => FND_API.G_FALSE
6458: );
6458: );
6459: WHEN OTHERS THEN
6460: ROLLBACK TO sp_Update_formulas;
6461: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6462: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
6463: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
6464: END IF;
6465: Fnd_Msg_Pub.Count_And_Get (
6466: p_count => x_msg_count,
6459: WHEN OTHERS THEN
6460: ROLLBACK TO sp_Update_formulas;
6461: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6462: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
6463: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
6464: END IF;
6465: Fnd_Msg_Pub.Count_And_Get (
6466: p_count => x_msg_count,
6467: p_data => x_msg_data,
6461: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6462: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
6463: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
6464: END IF;
6465: Fnd_Msg_Pub.Count_And_Get (
6466: p_count => x_msg_count,
6467: p_data => x_msg_data,
6468: p_encoded => FND_API.G_FALSE
6469: );
6936: select max(metric_collection_date)
6937: from ams_act_metrics_all_denorm;
6938:
6939: BEGIN
6940: FND_MSG_PUB.initialize;
6941:
6942: --bms_output.put_line('Entered populate_metrics_denorm');
6943: --Ams_Utility_Pvt.Write_Conc_log('Entered populate_metrics_denorm');
6944: IF AMS_DEBUG_HIGH_ON THEN