[Home] [Help]
27: l_message VARCHAR2(4000) := NULL;
28: BEGIN
29:
30: IF FND_API.To_Boolean(p_init_msg_list) THEN
31: FND_MSG_PUB.Initialize;
32: END IF;
33:
34: x_delete_ok := FND_API.G_TRUE;
35: --Check if there are any entries for it in MTL_SYSTEM_ITEMS
90:
91: IF (l_message IS NOT NULL) THEN
92: FND_MESSAGE.Set_Name(g_app_name
93: ,l_message);
94: FND_MSG_PUB.Add;
95: END IF;
96: x_return_status := FND_API.G_RET_STS_SUCCESS;
97:
98: EXCEPTION
103: ,g_plsql_err);
104: FND_MESSAGE.Set_Token(g_pkg_name_token, g_pkg_name);
105: FND_MESSAGE.Set_Token(g_api_name_token, l_api_name);
106: FND_MESSAGE.Set_Token(g_sql_err_msg_token, SQLERRM);
107: FND_MSG_PUB.Add;
108:
109: END Check_Delete_Lifecycle_OK;
110:
111: PROCEDURE Check_Delete_Phase_OK
125: l_api_name CONSTANT VARCHAR2(30) := 'Check_Delete_Phase_OK';
126: BEGIN
127:
128: IF FND_API.To_Boolean(p_init_msg_list) THEN
129: FND_MSG_PUB.Initialize;
130: END IF;
131: x_delete_ok := FND_API.G_TRUE;
132:
133: BEGIN
188: IF (l_message IS NOT NULL) THEN
189: FND_MESSAGE.Set_Name(g_app_name
190: ,l_message
191: );
192: FND_MSG_PUB.Add;
193: END IF;
194:
195: x_return_status := FND_API.G_RET_STS_SUCCESS;
196: EXCEPTION
201: ,g_plsql_err);
202: FND_MESSAGE.Set_Token(g_pkg_name_token, g_pkg_name);
203: FND_MESSAGE.Set_Token(g_api_name_token, l_api_name);
204: FND_MESSAGE.Set_Token(g_sql_err_msg_token, SQLERRM);
205: FND_MSG_PUB.Add;
206:
207: END Check_Delete_Phase_OK;
208:
209:
233: THEN
234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
235: END IF;
236: IF FND_API.To_Boolean(p_init_msg_list) THEN
237: FND_MSG_PUB.Initialize;
238: END IF;
239:
240: --Delete the stale data from ego_lcphase_policy
241: DELETE
260: ,g_plsql_err);
261: FND_MESSAGE.Set_Token(g_pkg_name_token, g_pkg_name);
262: FND_MESSAGE.Set_Token(g_api_name_token, l_api_name);
263: FND_MESSAGE.Set_Token(g_sql_err_msg_token, SQLERRM);
264: FND_MSG_PUB.Add;
265:
266: END Process_Phase_Delete;
267:
268: PROCEDURE Process_Phase_Code_Delete
291: THEN
292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
293: END IF;
294: IF FND_API.To_Boolean(p_init_msg_list) THEN
295: FND_MSG_PUB.Initialize;
296: END IF;
297:
298: --Delete the stale data from ego_lcphase_item_status
299: DELETE
318: ,g_plsql_err);
319: FND_MESSAGE.Set_Token(g_pkg_name_token, g_pkg_name);
320: FND_MESSAGE.Set_Token(g_api_name_token, l_api_name);
321: FND_MESSAGE.Set_Token(g_sql_err_msg_token, SQLERRM);
322: FND_MSG_PUB.Add;
323:
324: END Process_Phase_Code_Delete;
325:
326: PROCEDURE Delete_Stale_Data_For_Lc
349: THEN
350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
351: END IF;
352: IF FND_API.To_Boolean(p_init_msg_list) THEN
353: FND_MSG_PUB.Initialize;
354: END IF;
355: --Delete the stale data from ego_obj_type_lifecycles
356: DELETE
357: FROM
367: -- Make a standard call to get message count and if count is 1,
368: -- get message info.
369: -- The client will directly display the x_msg_data (which is already
370: -- translated) if the x_msg_count = 1;
371: -- Else, i.e. if x_msg_count > 1, client will call the FND_MSG_PUB.Get
372: -- Server-side procedure to access the messages, and consolidate them
373: -- and display them all at once or display one message after another.
374: FND_MSG_PUB.Count_And_Get
375: (
370: -- translated) if the x_msg_count = 1;
371: -- Else, i.e. if x_msg_count > 1, client will call the FND_MSG_PUB.Get
372: -- Server-side procedure to access the messages, and consolidate them
373: -- and display them all at once or display one message after another.
374: FND_MSG_PUB.Count_And_Get
375: (
376: p_count => x_msg_count,
377: p_data => x_msg_data
378: );
386: ,g_plsql_err);
387: FND_MESSAGE.Set_Token(g_pkg_name_token, g_pkg_name);
388: FND_MESSAGE.Set_Token(g_api_name_token, l_api_name);
389: FND_MESSAGE.Set_Token(g_sql_err_msg_token, SQLERRM);
390: FND_MSG_PUB.Add;
391:
392: END Delete_Stale_Data_For_Lc;
393: END EGO_LIFECYCLE_ADMIN_PUB;
394: