3:
4: PROCEDURE CREATE_DEFN_CONTEXT
5: (
6: P_API_VERSION IN NUMBER,
7: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
8: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
9: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
10: X_MSG_COUNT OUT NOCOPY NUMBER,
11: X_MSG_DATA OUT NOCOPY VARCHAR2,
4: PROCEDURE CREATE_DEFN_CONTEXT
5: (
6: P_API_VERSION IN NUMBER,
7: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
8: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
9: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
10: X_MSG_COUNT OUT NOCOPY NUMBER,
11: X_MSG_DATA OUT NOCOPY VARCHAR2,
12: P_CURR_INSTR_PROCESS_ID IN NUMBER DEFAULT NULL,
25:
26: BEGIN
27:
28: -- Standard call to check for call compatibility.
29: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
30: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31: END IF;
32:
33: -- Initialize message list if p_init_msg_list is set to TRUE.
26: BEGIN
27:
28: -- Standard call to check for call compatibility.
29: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
30: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31: END IF;
32:
33: -- Initialize message list if p_init_msg_list is set to TRUE.
34: IF FND_API.to_Boolean( p_init_msg_list ) THEN
30: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31: END IF;
32:
33: -- Initialize message list if p_init_msg_list is set to TRUE.
34: IF FND_API.to_Boolean( p_init_msg_list ) THEN
35: FND_MSG_PUB.initialize;
36: END IF;
37:
38: -- Initialize API return status to success
35: FND_MSG_PUB.initialize;
36: END IF;
37:
38: -- Initialize API return status to success
39: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
40:
41: -- CALL CORRESPONDING PRIVATE API
42: GMO_INSTRUCTION_PVT.CREATE_DEFN_CONTEXT
43: (
53: X_MSG_COUNT => X_MSG_COUNT,
54: X_MSG_DATA => X_MSG_DATA
55: );
56:
57: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
58: COMMIT ;
59: ELSE
60: RAISE FND_API.G_EXC_ERROR;
61: END IF;
56:
57: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
58: COMMIT ;
59: ELSE
60: RAISE FND_API.G_EXC_ERROR;
61: END IF;
62:
63: -- Standard call to get message count and if count is 1, get message info.
64: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
63: -- Standard call to get message count and if count is 1, get message info.
64: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
65:
66: EXCEPTION
67: WHEN FND_API.G_EXC_ERROR THEN
68: ROLLBACK;
69: x_return_status := FND_API.G_RET_STS_ERROR;
70:
71: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
65:
66: EXCEPTION
67: WHEN FND_API.G_EXC_ERROR THEN
68: ROLLBACK;
69: x_return_status := FND_API.G_RET_STS_ERROR;
70:
71: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
72: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
73: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.create_defn_context', FALSE);
72: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
73: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.create_defn_context', FALSE);
74: end if;
75:
76: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
77: ROLLBACK;
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
79:
80: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
74: end if;
75:
76: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
77: ROLLBACK;
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
79:
80: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
81: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
82: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.create_defn_context', FALSE);
83: end if;
84:
85: WHEN OTHERS THEN
86: ROLLBACK;
87: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
88:
89: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
90: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
91: END IF;
99:
100: PROCEDURE CREATE_DEFN_CONTEXT
101: (
102: P_API_VERSION IN NUMBER,
103: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
104: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
105: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
106: X_MSG_COUNT OUT NOCOPY NUMBER,
107: X_MSG_DATA OUT NOCOPY VARCHAR2,
100: PROCEDURE CREATE_DEFN_CONTEXT
101: (
102: P_API_VERSION IN NUMBER,
103: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
104: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
105: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
106: X_MSG_COUNT OUT NOCOPY NUMBER,
107: X_MSG_DATA OUT NOCOPY VARCHAR2,
108:
127:
128: BEGIN
129:
130: -- Standard call to check for call compatibility.
131: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: END IF;
134:
135: -- Initialize message list if p_init_msg_list is set to TRUE.
128: BEGIN
129:
130: -- Standard call to check for call compatibility.
131: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: END IF;
134:
135: -- Initialize message list if p_init_msg_list is set to TRUE.
136: IF FND_API.to_Boolean( p_init_msg_list ) THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: END IF;
134:
135: -- Initialize message list if p_init_msg_list is set to TRUE.
136: IF FND_API.to_Boolean( p_init_msg_list ) THEN
137: FND_MSG_PUB.initialize;
138: END IF;
139:
140: -- Initialize API return status to success
137: FND_MSG_PUB.initialize;
138: END IF;
139:
140: -- Initialize API return status to success
141: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
142:
143: L_ENTITY_NAME := FND_TABLE_OF_VARCHAR2_255();
144: L_ENTITY_KEY := FND_TABLE_OF_VARCHAR2_255();
145: L_ENTITY_DISPLAYNAME := FND_TABLE_OF_VARCHAR2_255();
178: );
179:
180: END;
181:
182: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
183: COMMIT;
184: ELSE
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
181:
182: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
183: COMMIT;
184: ELSE
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
187:
188: -- Standard call to get message count and if count is 1, get message info.
189: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
188: -- Standard call to get message count and if count is 1, get message info.
189: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
190:
191: EXCEPTION
192: WHEN FND_API.G_EXC_ERROR THEN
193: ROLLBACK;
194: x_return_status := FND_API.G_RET_STS_ERROR;
195:
196: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
190:
191: EXCEPTION
192: WHEN FND_API.G_EXC_ERROR THEN
193: ROLLBACK;
194: x_return_status := FND_API.G_RET_STS_ERROR;
195:
196: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
197: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
198: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.create_defn_context', FALSE);
197: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
198: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.create_defn_context', FALSE);
199: end if;
200:
201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
202: ROLLBACK;
203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204:
205: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
199: end if;
200:
201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
202: ROLLBACK;
203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204:
205: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
206: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
207: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.create_defn_context', FALSE);
208: end if;
209:
210: WHEN OTHERS THEN
211: ROLLBACK;
212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
213:
214: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
215: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
216: END IF;
224:
225: PROCEDURE DELETE_ENTITY_FOR_PROCESS
226: (
227: P_API_VERSION IN NUMBER,
228: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
229: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
230: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
231: X_MSG_COUNT OUT NOCOPY NUMBER,
232: X_MSG_DATA OUT NOCOPY VARCHAR2,
225: PROCEDURE DELETE_ENTITY_FOR_PROCESS
226: (
227: P_API_VERSION IN NUMBER,
228: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
229: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
230: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
231: X_MSG_COUNT OUT NOCOPY NUMBER,
232: X_MSG_DATA OUT NOCOPY VARCHAR2,
233:
242:
243: BEGIN
244:
245: -- Standard call to check for call compatibility.
246: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: END IF;
249:
250: -- Initialize message list if p_init_msg_list is set to TRUE.
243: BEGIN
244:
245: -- Standard call to check for call compatibility.
246: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: END IF;
249:
250: -- Initialize message list if p_init_msg_list is set to TRUE.
251: IF FND_API.to_Boolean( p_init_msg_list ) THEN
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: END IF;
249:
250: -- Initialize message list if p_init_msg_list is set to TRUE.
251: IF FND_API.to_Boolean( p_init_msg_list ) THEN
252: FND_MSG_PUB.initialize;
253: END IF;
254:
255: -- Initialize API return status to success
252: FND_MSG_PUB.initialize;
253: END IF;
254:
255: -- Initialize API return status to success
256: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
257:
258: BEGIN
259:
260: GMO_INSTRUCTION_PVT.DELETE_ENTITY_FOR_PROCESS
269: );
270:
271: END;
272:
273: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
274: COMMIT;
275: ELSE
276: RAISE FND_API.G_EXC_ERROR;
277: END IF;
272:
273: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
274: COMMIT;
275: ELSE
276: RAISE FND_API.G_EXC_ERROR;
277: END IF;
278:
279: -- Standard call to get message count and if count is 1, get message info.
280: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
279: -- Standard call to get message count and if count is 1, get message info.
280: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
281:
282: EXCEPTION
283: WHEN FND_API.G_EXC_ERROR THEN
284: ROLLBACK;
285: x_return_status := FND_API.G_RET_STS_ERROR;
286:
287: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
281:
282: EXCEPTION
283: WHEN FND_API.G_EXC_ERROR THEN
284: ROLLBACK;
285: x_return_status := FND_API.G_RET_STS_ERROR;
286:
287: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
288: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
289: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.delete_entity_for_process', FALSE);
288: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
289: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.delete_entity_for_process', FALSE);
290: end if;
291:
292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
293: ROLLBACK;
294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
295:
296: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
290: end if;
291:
292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
293: ROLLBACK;
294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
295:
296: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
297: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
298: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.delete_entity_for_process', FALSE);
299: end if;
300:
301: WHEN OTHERS THEN
302: ROLLBACK;
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304:
305: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
306: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
307: END IF;
315:
316: PROCEDURE CREATE_DEFN_CONTEXT
317: (
318: P_API_VERSION IN NUMBER,
319: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
320: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
321: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
322: X_MSG_COUNT OUT NOCOPY NUMBER,
323: X_MSG_DATA OUT NOCOPY VARCHAR2,
316: PROCEDURE CREATE_DEFN_CONTEXT
317: (
318: P_API_VERSION IN NUMBER,
319: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
320: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
321: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
322: X_MSG_COUNT OUT NOCOPY NUMBER,
323: X_MSG_DATA OUT NOCOPY VARCHAR2,
324:
342: L_INSTRUCTION_TYPE FND_TABLE_OF_VARCHAR2_255;
343:
344: BEGIN
345: -- Standard call to check for call compatibility.
346: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
348: END IF;
349:
350: -- Initialize message list if p_init_msg_list is set to TRUE.
343:
344: BEGIN
345: -- Standard call to check for call compatibility.
346: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
348: END IF;
349:
350: -- Initialize message list if p_init_msg_list is set to TRUE.
351: IF FND_API.to_Boolean( p_init_msg_list ) THEN
347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
348: END IF;
349:
350: -- Initialize message list if p_init_msg_list is set to TRUE.
351: IF FND_API.to_Boolean( p_init_msg_list ) THEN
352: FND_MSG_PUB.initialize;
353: END IF;
354:
355: -- Initialize API return status to success
352: FND_MSG_PUB.initialize;
353: END IF;
354:
355: -- Initialize API return status to success
356: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
357:
358: L_ENTITY_NAME := FND_TABLE_OF_VARCHAR2_255();
359: L_ENTITY_KEY := FND_TABLE_OF_VARCHAR2_255();
360: L_ENTITY_DISPLAYNAME := FND_TABLE_OF_VARCHAR2_255();
388: );
389:
390: END;
391:
392: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
393: COMMIT ;
394: ELSE
395: RAISE FND_API.G_EXC_ERROR;
396: END IF;
391:
392: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
393: COMMIT ;
394: ELSE
395: RAISE FND_API.G_EXC_ERROR;
396: END IF;
397:
398: -- Standard call to get message count and if count is 1, get message info.
399: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
398: -- Standard call to get message count and if count is 1, get message info.
399: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
400:
401: EXCEPTION
402: WHEN FND_API.G_EXC_ERROR THEN
403: ROLLBACK;
404: x_return_status := FND_API.G_RET_STS_ERROR;
405:
406: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
400:
401: EXCEPTION
402: WHEN FND_API.G_EXC_ERROR THEN
403: ROLLBACK;
404: x_return_status := FND_API.G_RET_STS_ERROR;
405:
406: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
407: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
408: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.create_defn_context', FALSE);
407: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
408: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.create_defn_context', FALSE);
409: end if;
410:
411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
412: ROLLBACK;
413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
414:
415: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
409: end if;
410:
411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
412: ROLLBACK;
413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
414:
415: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
416: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
417: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.create_defn_context', FALSE);
418: end if;
419:
420: WHEN OTHERS THEN
421: ROLLBACK;
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
423:
424: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
425: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
426: END IF;
434:
435: PROCEDURE CREATE_DEFN_FROM_DEFN
436: (
437: P_API_VERSION IN NUMBER,
438: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
439: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
440: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
441: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
442: X_MSG_COUNT OUT NOCOPY NUMBER,
435: PROCEDURE CREATE_DEFN_FROM_DEFN
436: (
437: P_API_VERSION IN NUMBER,
438: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
439: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
440: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
441: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
442: X_MSG_COUNT OUT NOCOPY NUMBER,
443: X_MSG_DATA OUT NOCOPY VARCHAR2,
436: (
437: P_API_VERSION IN NUMBER,
438: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
439: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
440: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
441: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
442: X_MSG_COUNT OUT NOCOPY NUMBER,
443: X_MSG_DATA OUT NOCOPY VARCHAR2,
444:
456:
457: BEGIN
458:
459: -- Standard call to check for call compatibility.
460: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
462: END IF;
463:
464: -- Initialize message list if p_init_msg_list is set to TRUE.
457: BEGIN
458:
459: -- Standard call to check for call compatibility.
460: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
462: END IF;
463:
464: -- Initialize message list if p_init_msg_list is set to TRUE.
465: IF FND_API.to_Boolean( p_init_msg_list ) THEN
461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
462: END IF;
463:
464: -- Initialize message list if p_init_msg_list is set to TRUE.
465: IF FND_API.to_Boolean( p_init_msg_list ) THEN
466: FND_MSG_PUB.initialize;
467: END IF;
468:
469: -- Initialize API return status to success
466: FND_MSG_PUB.initialize;
467: END IF;
468:
469: -- Initialize API return status to success
470: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
471:
472: GMO_INSTRUCTION_PVT.CREATE_DEFN_FROM_DEFN
473: (
474: P_SOURCE_ENTITY_NAME => P_SOURCE_ENTITY_NAME,
485:
486: -- Standard call to get message count and if count is 1, get message info.
487: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
488:
489: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
490: IF FND_API.To_Boolean( p_commit ) THEN
491: COMMIT ;
492: END IF;
493: ELSE
486: -- Standard call to get message count and if count is 1, get message info.
487: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
488:
489: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
490: IF FND_API.To_Boolean( p_commit ) THEN
491: COMMIT ;
492: END IF;
493: ELSE
494: RAISE FND_API.G_EXC_ERROR;
490: IF FND_API.To_Boolean( p_commit ) THEN
491: COMMIT ;
492: END IF;
493: ELSE
494: RAISE FND_API.G_EXC_ERROR;
495: END IF;
496:
497: -- Standard call to get message count and if count is 1, get message info.
498: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
497: -- Standard call to get message count and if count is 1, get message info.
498: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
499:
500: EXCEPTION
501: WHEN FND_API.G_EXC_ERROR THEN
502:
503: x_return_status := FND_API.G_RET_STS_ERROR;
504:
505: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
499:
500: EXCEPTION
501: WHEN FND_API.G_EXC_ERROR THEN
502:
503: x_return_status := FND_API.G_RET_STS_ERROR;
504:
505: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
506: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
507: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.create_defn_from_defn', FALSE);
506: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
507: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.create_defn_from_defn', FALSE);
508: end if;
509:
510: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
511:
512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
513:
514: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
508: end if;
509:
510: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
511:
512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
513:
514: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
515: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
516: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.create_defn_from_defn', FALSE);
517: end if;
518:
519: WHEN OTHERS THEN
520:
521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
522:
523: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
524: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
525: END IF;
533:
534: PROCEDURE SEND_DEFN_ACKN
535: (
536: P_API_VERSION IN NUMBER,
537: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
538: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
539: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
540: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
541: X_MSG_COUNT OUT NOCOPY NUMBER,
534: PROCEDURE SEND_DEFN_ACKN
535: (
536: P_API_VERSION IN NUMBER,
537: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
538: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
539: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
540: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
541: X_MSG_COUNT OUT NOCOPY NUMBER,
542: X_MSG_DATA OUT NOCOPY VARCHAR2,
535: (
536: P_API_VERSION IN NUMBER,
537: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
538: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
539: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
540: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
541: X_MSG_COUNT OUT NOCOPY NUMBER,
542: X_MSG_DATA OUT NOCOPY VARCHAR2,
543:
557: L_TARGET_ENTITY_KEY FND_TABLE_OF_VARCHAR2_255;
558:
559: BEGIN
560: -- Standard call to check for call compatibility.
561: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
563: END IF;
564:
565: -- Initialize message list if p_init_msg_list is set to TRUE.
558:
559: BEGIN
560: -- Standard call to check for call compatibility.
561: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
563: END IF;
564:
565: -- Initialize message list if p_init_msg_list is set to TRUE.
566: IF FND_API.to_Boolean( p_init_msg_list ) THEN
562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
563: END IF;
564:
565: -- Initialize message list if p_init_msg_list is set to TRUE.
566: IF FND_API.to_Boolean( p_init_msg_list ) THEN
567: FND_MSG_PUB.initialize;
568: END IF;
569:
570: -- Initialize API return status to success
567: FND_MSG_PUB.initialize;
568: END IF;
569:
570: -- Initialize API return status to success
571: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
572:
573: L_ENTITY_NAME := FND_TABLE_OF_VARCHAR2_255();
574: L_SOURCE_ENTITY_KEY := FND_TABLE_OF_VARCHAR2_255();
575: L_TARGET_ENTITY_KEY := FND_TABLE_OF_VARCHAR2_255();
592: X_MSG_COUNT => X_MSG_COUNT,
593: X_MSG_DATA => X_MSG_DATA
594: );
595:
596: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
597: IF FND_API.To_Boolean( p_commit ) THEN
598: COMMIT ;
599: END IF;
600: ELSE
593: X_MSG_DATA => X_MSG_DATA
594: );
595:
596: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
597: IF FND_API.To_Boolean( p_commit ) THEN
598: COMMIT ;
599: END IF;
600: ELSE
601: RAISE FND_API.G_EXC_ERROR;
597: IF FND_API.To_Boolean( p_commit ) THEN
598: COMMIT ;
599: END IF;
600: ELSE
601: RAISE FND_API.G_EXC_ERROR;
602: END IF;
603:
604: -- Standard call to get message count and if count is 1, get message info.
605: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
604: -- Standard call to get message count and if count is 1, get message info.
605: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
606:
607: EXCEPTION
608: WHEN FND_API.G_EXC_ERROR THEN
609: x_return_status := FND_API.G_RET_STS_ERROR;
610:
611: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
612: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
605: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
606:
607: EXCEPTION
608: WHEN FND_API.G_EXC_ERROR THEN
609: x_return_status := FND_API.G_RET_STS_ERROR;
610:
611: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
612: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
613: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.send_defn_ackn', FALSE);
612: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
613: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.send_defn_ackn', FALSE);
614: end if;
615:
616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
618:
619: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
620: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
613: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.send_defn_ackn', FALSE);
614: end if;
615:
616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
618:
619: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
620: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
621: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.send_defn_ackn', FALSE);
621: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.send_defn_ackn', FALSE);
622: end if;
623:
624: WHEN OTHERS THEN
625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
626:
627: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
628: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
629: END IF;
642:
643: PROCEDURE SEND_DEFN_ACKN
644: (
645: P_API_VERSION IN NUMBER,
646: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
647: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
648: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
649: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
650: X_MSG_COUNT OUT NOCOPY NUMBER,
643: PROCEDURE SEND_DEFN_ACKN
644: (
645: P_API_VERSION IN NUMBER,
646: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
647: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
648: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
649: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
650: X_MSG_COUNT OUT NOCOPY NUMBER,
651: X_MSG_DATA OUT NOCOPY VARCHAR2,
644: (
645: P_API_VERSION IN NUMBER,
646: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
647: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
648: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
649: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
650: X_MSG_COUNT OUT NOCOPY NUMBER,
651: X_MSG_DATA OUT NOCOPY VARCHAR2,
652:
663:
664: BEGIN
665:
666: -- Standard call to check for call compatibility.
667: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;
670:
671: -- Initialize message list if p_init_msg_list is set to TRUE.
664: BEGIN
665:
666: -- Standard call to check for call compatibility.
667: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;
670:
671: -- Initialize message list if p_init_msg_list is set to TRUE.
672: IF FND_API.to_Boolean( p_init_msg_list ) THEN
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;
670:
671: -- Initialize message list if p_init_msg_list is set to TRUE.
672: IF FND_API.to_Boolean( p_init_msg_list ) THEN
673: FND_MSG_PUB.initialize;
674: END IF;
675:
676: -- Initialize API return status to success
673: FND_MSG_PUB.initialize;
674: END IF;
675:
676: -- Initialize API return status to success
677: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
678:
679: GMO_INSTRUCTION_PVT.SEND_DEFN_ACKN
680: (
681: P_INSTRUCTION_PROCESS_ID => P_INSTRUCTION_PROCESS_ID,
686: X_MSG_COUNT => X_MSG_COUNT,
687: X_MSG_DATA => X_MSG_DATA
688: );
689:
690: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
691: IF FND_API.To_Boolean( p_commit ) THEN
692: COMMIT ;
693: END IF;
694: ELSE
687: X_MSG_DATA => X_MSG_DATA
688: );
689:
690: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
691: IF FND_API.To_Boolean( p_commit ) THEN
692: COMMIT ;
693: END IF;
694: ELSE
695: RAISE FND_API.G_EXC_ERROR;
691: IF FND_API.To_Boolean( p_commit ) THEN
692: COMMIT ;
693: END IF;
694: ELSE
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
697:
698: -- Standard call to get message count and if count is 1, get message info.
699: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
698: -- Standard call to get message count and if count is 1, get message info.
699: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
700:
701: EXCEPTION
702: WHEN FND_API.G_EXC_ERROR THEN
703: x_return_status := FND_API.G_RET_STS_ERROR;
704:
705: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
706: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
699: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
700:
701: EXCEPTION
702: WHEN FND_API.G_EXC_ERROR THEN
703: x_return_status := FND_API.G_RET_STS_ERROR;
704:
705: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
706: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
707: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.send_defn_ackn', FALSE);
706: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
707: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.send_defn_ackn', FALSE);
708: end if;
709:
710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
712:
713: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
714: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
707: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.send_defn_ackn', FALSE);
708: end if;
709:
710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
712:
713: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
714: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
715: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.send_defn_ackn', FALSE);
715: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.send_defn_ackn', FALSE);
716: end if;
717:
718: WHEN OTHERS THEN
719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
720:
721: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
722: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
723: END IF;
730:
731: PROCEDURE SEND_DEFN_ACKN
732: (
733: P_API_VERSION IN NUMBER,
734: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
735: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
736: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
737: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
738: X_MSG_COUNT OUT NOCOPY NUMBER,
731: PROCEDURE SEND_DEFN_ACKN
732: (
733: P_API_VERSION IN NUMBER,
734: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
735: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
736: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
737: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
738: X_MSG_COUNT OUT NOCOPY NUMBER,
739: X_MSG_DATA OUT NOCOPY VARCHAR2,
732: (
733: P_API_VERSION IN NUMBER,
734: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
735: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
736: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
737: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
738: X_MSG_COUNT OUT NOCOPY NUMBER,
739: X_MSG_DATA OUT NOCOPY VARCHAR2,
740:
751:
752: BEGIN
753:
754: -- Standard call to check for call compatibility.
755: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
757: END IF;
758:
759: -- Initialize message list if p_init_msg_list is set to TRUE.
752: BEGIN
753:
754: -- Standard call to check for call compatibility.
755: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
757: END IF;
758:
759: -- Initialize message list if p_init_msg_list is set to TRUE.
760: IF FND_API.to_Boolean( p_init_msg_list ) THEN
756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
757: END IF;
758:
759: -- Initialize message list if p_init_msg_list is set to TRUE.
760: IF FND_API.to_Boolean( p_init_msg_list ) THEN
761: FND_MSG_PUB.initialize;
762: END IF;
763:
764: -- Initialize API return status to success
761: FND_MSG_PUB.initialize;
762: END IF;
763:
764: -- Initialize API return status to success
765: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
766:
767: GMO_INSTRUCTION_PVT.SEND_DEFN_ACKN
768: (
769: P_INSTRUCTION_PROCESS_ID => P_INSTRUCTION_PROCESS_ID,
774: X_MSG_COUNT => X_MSG_COUNT,
775: X_MSG_DATA => X_MSG_DATA
776: );
777:
778: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
779: IF FND_API.To_Boolean( p_commit ) THEN
780: COMMIT ;
781: END IF;
782: ELSE
775: X_MSG_DATA => X_MSG_DATA
776: );
777:
778: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
779: IF FND_API.To_Boolean( p_commit ) THEN
780: COMMIT ;
781: END IF;
782: ELSE
783: RAISE FND_API.G_EXC_ERROR;
779: IF FND_API.To_Boolean( p_commit ) THEN
780: COMMIT ;
781: END IF;
782: ELSE
783: RAISE FND_API.G_EXC_ERROR;
784: END IF;
785:
786: -- Standard call to get message count and if count is 1, get message info.
787: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
786: -- Standard call to get message count and if count is 1, get message info.
787: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
788:
789: EXCEPTION
790: WHEN FND_API.G_EXC_ERROR THEN
791: x_return_status := FND_API.G_RET_STS_ERROR;
792:
793: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
794: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
787: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
788:
789: EXCEPTION
790: WHEN FND_API.G_EXC_ERROR THEN
791: x_return_status := FND_API.G_RET_STS_ERROR;
792:
793: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
794: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
795: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.send_defn_ackn', FALSE);
794: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
795: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.send_defn_ackn', FALSE);
796: end if;
797:
798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
800:
801: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
802: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
795: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.send_defn_ackn', FALSE);
796: end if;
797:
798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
800:
801: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
802: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
803: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.send_defn_ackn', FALSE);
803: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.send_defn_ackn', FALSE);
804: end if;
805:
806: WHEN OTHERS THEN
807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
808:
809: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
810: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
811: END IF;
820:
821: PROCEDURE GET_DEFN_STATUS
822: (
823: P_API_VERSION IN NUMBER,
824: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
825: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
826: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
827: X_MSG_COUNT OUT NOCOPY NUMBER,
828: X_MSG_DATA OUT NOCOPY VARCHAR2,
821: PROCEDURE GET_DEFN_STATUS
822: (
823: P_API_VERSION IN NUMBER,
824: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
825: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
826: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
827: X_MSG_COUNT OUT NOCOPY NUMBER,
828: X_MSG_DATA OUT NOCOPY VARCHAR2,
829:
841: -- Standard Start of API savepoint
842: SAVEPOINT GET_DEFN_STATUS_GRP;
843:
844: -- Standard call to check for call compatibility.
845: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
848:
849: -- Initialize message list if p_init_msg_list is set to TRUE.
842: SAVEPOINT GET_DEFN_STATUS_GRP;
843:
844: -- Standard call to check for call compatibility.
845: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
848:
849: -- Initialize message list if p_init_msg_list is set to TRUE.
850: IF FND_API.to_Boolean( p_init_msg_list ) THEN
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
848:
849: -- Initialize message list if p_init_msg_list is set to TRUE.
850: IF FND_API.to_Boolean( p_init_msg_list ) THEN
851: FND_MSG_PUB.initialize;
852: END IF;
853:
854: -- Initialize API return status to success
851: FND_MSG_PUB.initialize;
852: END IF;
853:
854: -- Initialize API return status to success
855: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
856:
857: SELECT ATTRIBUTE_VALUE INTO X_DEFINITION_STATUS
858: FROM GMO_INSTR_ATTRIBUTES_T
859: WHERE ATTRIBUTE_NAME = 'DEFINITION_STATUS'
864: -- Standard call to get message count and if count is 1, get message info.
865: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
866:
867: EXCEPTION
868: WHEN FND_API.G_EXC_ERROR THEN
869: ROLLBACK TO GET_DEFN_STATUS_GRP;
870: x_return_status := FND_API.G_RET_STS_ERROR;
871:
872: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
866:
867: EXCEPTION
868: WHEN FND_API.G_EXC_ERROR THEN
869: ROLLBACK TO GET_DEFN_STATUS_GRP;
870: x_return_status := FND_API.G_RET_STS_ERROR;
871:
872: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
873: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
874: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.get_defn_status', FALSE);
873: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
874: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.get_defn_status', FALSE);
875: end if;
876:
877: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
878: ROLLBACK TO GET_DEFN_STATUS_GRP;
879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
880:
881: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
875: end if;
876:
877: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
878: ROLLBACK TO GET_DEFN_STATUS_GRP;
879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
880:
881: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
882: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
883: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.get_defn_status', FALSE);
884: end if;
885:
886: WHEN OTHERS THEN
887: ROLLBACK TO GET_DEFN_STATUS_GRP;
888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
889:
890: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
891: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
892: END IF;
903:
904: PROCEDURE GET_INSTR_XML
905: (
906: P_API_VERSION IN NUMBER,
907: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
908: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
909: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
910: X_MSG_COUNT OUT NOCOPY NUMBER,
911: X_MSG_DATA OUT NOCOPY VARCHAR2,
904: PROCEDURE GET_INSTR_XML
905: (
906: P_API_VERSION IN NUMBER,
907: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
908: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
909: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
910: X_MSG_COUNT OUT NOCOPY NUMBER,
911: X_MSG_DATA OUT NOCOPY VARCHAR2,
912:
926: -- Standard Start of API savepoint
927: SAVEPOINT GET_INSTR_XML_GRP;
928:
929: -- Standard call to check for call compatibility.
930: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
932: END IF;
933:
934: -- Initialize message list if p_init_msg_list is set to TRUE.
927: SAVEPOINT GET_INSTR_XML_GRP;
928:
929: -- Standard call to check for call compatibility.
930: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
932: END IF;
933:
934: -- Initialize message list if p_init_msg_list is set to TRUE.
935: IF FND_API.to_Boolean( p_init_msg_list ) THEN
931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
932: END IF;
933:
934: -- Initialize message list if p_init_msg_list is set to TRUE.
935: IF FND_API.to_Boolean( p_init_msg_list ) THEN
936: FND_MSG_PUB.initialize;
937: END IF;
938:
939: -- Initialize API return status to success
936: FND_MSG_PUB.initialize;
937: END IF;
938:
939: -- Initialize API return status to success
940: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
941:
942: --Call Private API , which will return the XML Clob
943: GMO_INSTRUCTION_PVT.GET_INSTR_XML
944: (
949: -- Standard call to get message count and if count is 1, get message info.
950: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
951:
952: EXCEPTION
953: WHEN FND_API.G_EXC_ERROR THEN
954: ROLLBACK TO GET_INSTR_XML_GRP;
955: x_return_status := FND_API.G_RET_STS_ERROR;
956:
957: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
951:
952: EXCEPTION
953: WHEN FND_API.G_EXC_ERROR THEN
954: ROLLBACK TO GET_INSTR_XML_GRP;
955: x_return_status := FND_API.G_RET_STS_ERROR;
956:
957: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
958: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
959: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.GET_INSTR_XML', FALSE);
958: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
959: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.GET_INSTR_XML', FALSE);
960: end if;
961:
962: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
963: ROLLBACK TO GET_INSTR_XML_GRP;
964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
965:
966: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
960: end if;
961:
962: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
963: ROLLBACK TO GET_INSTR_XML_GRP;
964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
965:
966: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
967: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
968: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.GET_INSTR_XML', FALSE);
969: end if;
970:
971: WHEN OTHERS THEN
972: ROLLBACK TO GET_INSTR_XML_GRP;
973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
974:
975: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
976: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
977: END IF;
988:
989: PROCEDURE GET_INSTR_INSTANCE_XML
990: (
991: P_API_VERSION IN NUMBER,
992: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
993: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
994: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
995: X_MSG_COUNT OUT NOCOPY NUMBER,
996: X_MSG_DATA OUT NOCOPY VARCHAR2,
989: PROCEDURE GET_INSTR_INSTANCE_XML
990: (
991: P_API_VERSION IN NUMBER,
992: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
993: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
994: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
995: X_MSG_COUNT OUT NOCOPY NUMBER,
996: X_MSG_DATA OUT NOCOPY VARCHAR2,
997:
1011: -- Standard Start of API savepoint
1012: SAVEPOINT GET_INSTR_XML_GRP;
1013:
1014: -- Standard call to check for call compatibility.
1015: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
1016: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1017: END IF;
1018:
1019: -- Initialize message list if p_init_msg_list is set to TRUE.
1012: SAVEPOINT GET_INSTR_XML_GRP;
1013:
1014: -- Standard call to check for call compatibility.
1015: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
1016: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1017: END IF;
1018:
1019: -- Initialize message list if p_init_msg_list is set to TRUE.
1020: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1016: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1017: END IF;
1018:
1019: -- Initialize message list if p_init_msg_list is set to TRUE.
1020: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1021: FND_MSG_PUB.initialize;
1022: END IF;
1023:
1024: -- Initialize API return status to success
1021: FND_MSG_PUB.initialize;
1022: END IF;
1023:
1024: -- Initialize API return status to success
1025: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1026:
1027: --Call Private API , which will return the XML Clob
1028: GMO_INSTRUCTION_PVT.GET_INSTR_INSTANCE_XML
1029: (
1034: -- Standard call to get message count and if count is 1, get message info.
1035: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1036:
1037: EXCEPTION
1038: WHEN FND_API.G_EXC_ERROR THEN
1039: ROLLBACK TO GET_INSTR_XML_GRP;
1040: x_return_status := FND_API.G_RET_STS_ERROR;
1041:
1042: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1036:
1037: EXCEPTION
1038: WHEN FND_API.G_EXC_ERROR THEN
1039: ROLLBACK TO GET_INSTR_XML_GRP;
1040: x_return_status := FND_API.G_RET_STS_ERROR;
1041:
1042: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1043: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1044: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.GET_INSTR_INSTANCE_XML', FALSE);
1043: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1044: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.GET_INSTR_INSTANCE_XML', FALSE);
1045: end if;
1046:
1047: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1048: ROLLBACK TO GET_INSTR_XML_GRP;
1049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1050:
1051: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1045: end if;
1046:
1047: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1048: ROLLBACK TO GET_INSTR_XML_GRP;
1049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1050:
1051: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1052: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1053: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.GET_INSTR_INSTANCE_XML', FALSE);
1054: end if;
1055:
1056: WHEN OTHERS THEN
1057: ROLLBACK TO GET_INSTR_XML_GRP;
1058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1059:
1060: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1061: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1062: END IF;
1070:
1071: PROCEDURE CREATE_INSTANCE_FROM_DEFN
1072: (
1073: P_API_VERSION IN NUMBER,
1074: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1075: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1076: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1077: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1078: X_MSG_COUNT OUT NOCOPY NUMBER,
1071: PROCEDURE CREATE_INSTANCE_FROM_DEFN
1072: (
1073: P_API_VERSION IN NUMBER,
1074: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1075: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1076: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1077: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1078: X_MSG_COUNT OUT NOCOPY NUMBER,
1079: X_MSG_DATA OUT NOCOPY VARCHAR2,
1072: (
1073: P_API_VERSION IN NUMBER,
1074: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1075: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1076: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1077: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1078: X_MSG_COUNT OUT NOCOPY NUMBER,
1079: X_MSG_DATA OUT NOCOPY VARCHAR2,
1080:
1094: -- Standard Start of API savepoint
1095: SAVEPOINT CREATE_INSTANCE_FROM_DEFN_GRP;
1096:
1097: -- Standard call to check for call compatibility.
1098: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
1099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1100: END IF;
1101:
1102: -- Initialize message list if p_init_msg_list is set to TRUE.
1095: SAVEPOINT CREATE_INSTANCE_FROM_DEFN_GRP;
1096:
1097: -- Standard call to check for call compatibility.
1098: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
1099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1100: END IF;
1101:
1102: -- Initialize message list if p_init_msg_list is set to TRUE.
1103: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1100: END IF;
1101:
1102: -- Initialize message list if p_init_msg_list is set to TRUE.
1103: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1104: FND_MSG_PUB.initialize;
1105: END IF;
1106:
1107: -- Initialize API return status to success
1104: FND_MSG_PUB.initialize;
1105: END IF;
1106:
1107: -- Initialize API return status to success
1108: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1109:
1110: GMO_INSTRUCTION_PVT.CREATE_INSTANCE_FROM_DEFN
1111: (
1112: P_DEFINITION_ENTITY_NAME => P_DEFINITION_ENTITY_NAME,
1119: X_MSG_COUNT => X_MSG_COUNT,
1120: X_MSG_DATA => X_MSG_DATA
1121: );
1122:
1123: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1124: RAISE FND_API.G_EXC_ERROR;
1125: END IF;
1126:
1127: -- Standard call to get message count and if count is 1, get message info.
1120: X_MSG_DATA => X_MSG_DATA
1121: );
1122:
1123: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1124: RAISE FND_API.G_EXC_ERROR;
1125: END IF;
1126:
1127: -- Standard call to get message count and if count is 1, get message info.
1128: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1126:
1127: -- Standard call to get message count and if count is 1, get message info.
1128: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1129:
1130: IF FND_API.To_Boolean( p_commit ) THEN
1131: COMMIT ;
1132: END IF;
1133:
1134: EXCEPTION
1131: COMMIT ;
1132: END IF;
1133:
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_ERROR THEN
1136: ROLLBACK TO CREATE_INSTANCE_FROM_DEFN_GRP;
1137: x_return_status := FND_API.G_RET_STS_ERROR;
1138:
1139: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1133:
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_ERROR THEN
1136: ROLLBACK TO CREATE_INSTANCE_FROM_DEFN_GRP;
1137: x_return_status := FND_API.G_RET_STS_ERROR;
1138:
1139: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1140: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1141: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.CREATE_INSTANCE_FROM_DEFN', FALSE);
1139: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1140: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1141: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.CREATE_INSTANCE_FROM_DEFN', FALSE);
1142: end if;
1143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1144: ROLLBACK TO CREATE_INSTANCE_FROM_DEFN_GRP;
1145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1146:
1147: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1141: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.CREATE_INSTANCE_FROM_DEFN', FALSE);
1142: end if;
1143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1144: ROLLBACK TO CREATE_INSTANCE_FROM_DEFN_GRP;
1145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1146:
1147: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1148: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1149: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.CREATE_INSTANCE_FROM_DEFN', FALSE);
1150: end if;
1151:
1152: WHEN OTHERS THEN
1153: ROLLBACK TO CREATE_INSTANCE_FROM_DEFN_GRP;
1154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1155:
1156: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1157: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1158: END IF;
1168: PROCEDURE CREATE_INSTANCE_FROM_INSTANCE
1169: (
1170:
1171: P_API_VERSION IN NUMBER,
1172: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1173: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1174: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1175: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1176: X_MSG_COUNT OUT NOCOPY NUMBER,
1169: (
1170:
1171: P_API_VERSION IN NUMBER,
1172: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1173: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1174: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1175: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1176: X_MSG_COUNT OUT NOCOPY NUMBER,
1177: X_MSG_DATA OUT NOCOPY VARCHAR2,
1170:
1171: P_API_VERSION IN NUMBER,
1172: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1173: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1174: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1175: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1176: X_MSG_COUNT OUT NOCOPY NUMBER,
1177: X_MSG_DATA OUT NOCOPY VARCHAR2,
1178:
1189:
1190: BEGIN
1191: SAVEPOINT CREATE_INST_FRM_INST_SV;
1192: -- Standard call to check for call compatibility.
1193: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
1194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1195: END IF;
1196:
1197: -- Initialize message list if p_init_msg_list is set to TRUE.
1190: BEGIN
1191: SAVEPOINT CREATE_INST_FRM_INST_SV;
1192: -- Standard call to check for call compatibility.
1193: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
1194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1195: END IF;
1196:
1197: -- Initialize message list if p_init_msg_list is set to TRUE.
1198: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1195: END IF;
1196:
1197: -- Initialize message list if p_init_msg_list is set to TRUE.
1198: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1199: FND_MSG_PUB.initialize;
1200: END IF;
1201:
1202: -- Initialize API return status to success
1199: FND_MSG_PUB.initialize;
1200: END IF;
1201:
1202: -- Initialize API return status to success
1203: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1204:
1205: GMO_INSTRUCTION_PVT.CREATE_INSTANCE_FROM_INSTANCE
1206: (
1207: P_SOURCE_ENTITY_NAME => P_SOURCE_ENTITY_NAME,
1213: X_MSG_COUNT => X_MSG_COUNT,
1214: X_MSG_DATA => X_MSG_DATA
1215: );
1216:
1217: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1218: RAISE FND_API.G_EXC_ERROR;
1219: ELSE
1220: IF FND_API.To_Boolean( p_commit ) THEN
1221: COMMIT ;
1214: X_MSG_DATA => X_MSG_DATA
1215: );
1216:
1217: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1218: RAISE FND_API.G_EXC_ERROR;
1219: ELSE
1220: IF FND_API.To_Boolean( p_commit ) THEN
1221: COMMIT ;
1222: END IF;
1216:
1217: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1218: RAISE FND_API.G_EXC_ERROR;
1219: ELSE
1220: IF FND_API.To_Boolean( p_commit ) THEN
1221: COMMIT ;
1222: END IF;
1223: END IF;
1224:
1225: -- Standard call to get message count and if count is 1, get message info.
1226: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1227:
1228: EXCEPTION
1229: WHEN FND_API.G_EXC_ERROR THEN
1230: ROLLBACK TO CREATE_INST_FRM_INST_SV;
1231: x_return_status := FND_API.G_RET_STS_ERROR;
1232:
1233: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1227:
1228: EXCEPTION
1229: WHEN FND_API.G_EXC_ERROR THEN
1230: ROLLBACK TO CREATE_INST_FRM_INST_SV;
1231: x_return_status := FND_API.G_RET_STS_ERROR;
1232:
1233: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1234: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1235: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.CREATE_INSTANCE_FROM_INSTANCE', FALSE);
1234: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1235: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.CREATE_INSTANCE_FROM_INSTANCE', FALSE);
1236: end if;
1237:
1238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1239: ROLLBACK TO CREATE_INST_FRM_INST_SV;
1240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1241:
1242: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1236: end if;
1237:
1238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1239: ROLLBACK TO CREATE_INST_FRM_INST_SV;
1240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1241:
1242: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1243: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1244: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.CREATE_INSTANCE_FROM_INSTANCE', FALSE);
1245: end if;
1246:
1247: WHEN OTHERS THEN
1248: ROLLBACK TO CREATE_INST_FRM_INST_SV;
1249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1250:
1251: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1252: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1253: END IF;
1261:
1262: PROCEDURE SEND_TASK_ACKN
1263: (
1264: P_API_VERSION IN NUMBER,
1265: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1266: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1267: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1268: X_MSG_COUNT OUT NOCOPY NUMBER,
1269: X_MSG_DATA OUT NOCOPY VARCHAR2,
1262: PROCEDURE SEND_TASK_ACKN
1263: (
1264: P_API_VERSION IN NUMBER,
1265: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1266: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1267: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1268: X_MSG_COUNT OUT NOCOPY NUMBER,
1269: X_MSG_DATA OUT NOCOPY VARCHAR2,
1270:
1283:
1284: BEGIN
1285:
1286: -- Standard call to check for call compatibility.
1287: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
1288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1289: END IF;
1290:
1291: -- Initialize message list if p_init_msg_list is set to TRUE.
1284: BEGIN
1285:
1286: -- Standard call to check for call compatibility.
1287: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
1288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1289: END IF;
1290:
1291: -- Initialize message list if p_init_msg_list is set to TRUE.
1292: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1289: END IF;
1290:
1291: -- Initialize message list if p_init_msg_list is set to TRUE.
1292: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1293: FND_MSG_PUB.initialize;
1294: END IF;
1295:
1296: -- Initialize API return status to success
1293: FND_MSG_PUB.initialize;
1294: END IF;
1295:
1296: -- Initialize API return status to success
1297: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1298:
1299: -- Call Private API
1300: GMO_INSTRUCTION_PVT.SEND_TASK_ACKN
1301: (
1310: X_MSG_COUNT => X_MSG_COUNT,
1311: X_MSG_DATA => X_MSG_DATA
1312: );
1313:
1314: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1315: RAISE FND_API.G_EXC_ERROR;
1316: ELSE
1317: COMMIT;
1318: END IF;
1311: X_MSG_DATA => X_MSG_DATA
1312: );
1313:
1314: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1315: RAISE FND_API.G_EXC_ERROR;
1316: ELSE
1317: COMMIT;
1318: END IF;
1319:
1320: -- Standard call to get message count and if count is 1, get message info.
1321: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1322:
1323: EXCEPTION
1324: WHEN FND_API.G_EXC_ERROR THEN
1325: ROLLBACK;
1326: x_return_status := FND_API.G_RET_STS_ERROR;
1327:
1328: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1322:
1323: EXCEPTION
1324: WHEN FND_API.G_EXC_ERROR THEN
1325: ROLLBACK;
1326: x_return_status := FND_API.G_RET_STS_ERROR;
1327:
1328: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1329: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1330: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.SEND_TASK_ACKN', FALSE);
1329: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1330: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.SEND_TASK_ACKN', FALSE);
1331: end if;
1332:
1333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1334: ROLLBACK;
1335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1336:
1337: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1331: end if;
1332:
1333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1334: ROLLBACK;
1335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1336:
1337: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1338: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1339: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.SEND_TASK_ACKN', FALSE);
1340: end if;
1341:
1342: WHEN OTHERS THEN
1343: ROLLBACK;
1344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1345:
1346: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1347: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1348: END IF;
1357: PROCEDURE NULLIFY_INSTR_FOR_ENTITY
1358: (
1359:
1360: P_API_VERSION IN NUMBER,
1361: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1362: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1363: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1364: X_MSG_COUNT OUT NOCOPY NUMBER,
1365: X_MSG_DATA OUT NOCOPY VARCHAR2,
1358: (
1359:
1360: P_API_VERSION IN NUMBER,
1361: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1362: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1363: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1364: X_MSG_COUNT OUT NOCOPY NUMBER,
1365: X_MSG_DATA OUT NOCOPY VARCHAR2,
1366:
1376:
1377: BEGIN
1378:
1379: -- Standard call to check for call compatibility.
1380: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
1381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1382: END IF;
1383:
1384: -- Initialize message list if p_init_msg_list is set to TRUE.
1377: BEGIN
1378:
1379: -- Standard call to check for call compatibility.
1380: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
1381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1382: END IF;
1383:
1384: -- Initialize message list if p_init_msg_list is set to TRUE.
1385: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1382: END IF;
1383:
1384: -- Initialize message list if p_init_msg_list is set to TRUE.
1385: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1386: FND_MSG_PUB.initialize;
1387: END IF;
1388:
1389: -- Initialize API return status to success
1386: FND_MSG_PUB.initialize;
1387: END IF;
1388:
1389: -- Initialize API return status to success
1390: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1391:
1392: -- Call Private API
1393: GMO_INSTRUCTION_PVT.NULLIFY_INSTR_FOR_ENTITY
1394: (
1399: X_MSG_COUNT => X_MSG_COUNT,
1400: X_MSG_DATA => X_MSG_DATA
1401: );
1402:
1403: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1404: RAISE FND_API.G_EXC_ERROR;
1405: ELSE
1406: COMMIT;
1407: END IF;
1400: X_MSG_DATA => X_MSG_DATA
1401: );
1402:
1403: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1404: RAISE FND_API.G_EXC_ERROR;
1405: ELSE
1406: COMMIT;
1407: END IF;
1408:
1409: -- Standard call to get message count and if count is 1, get message info.
1410: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1411:
1412: EXCEPTION
1413: WHEN FND_API.G_EXC_ERROR THEN
1414: ROLLBACK;
1415: x_return_status := FND_API.G_RET_STS_ERROR;
1416:
1417: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1411:
1412: EXCEPTION
1413: WHEN FND_API.G_EXC_ERROR THEN
1414: ROLLBACK;
1415: x_return_status := FND_API.G_RET_STS_ERROR;
1416:
1417: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1418: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1419: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.NULLIFY_INSTR_FOR_ENTITY', FALSE);
1418: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1419: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.NULLIFY_INSTR_FOR_ENTITY', FALSE);
1420: end if;
1421:
1422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1423: ROLLBACK;
1424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425:
1426: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1420: end if;
1421:
1422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1423: ROLLBACK;
1424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425:
1426: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1427: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1428: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.NULLIFY_INSTR_FOR_ENTITY', FALSE);
1429: end if;
1430:
1431: WHEN OTHERS THEN
1432: ROLLBACK;
1433: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1434:
1435: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1436: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1437: END IF;
1446:
1447: PROCEDURE GET_TASK_PARAMETER
1448: (
1449: P_API_VERSION IN NUMBER,
1450: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1451: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1452: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1453: X_MSG_COUNT OUT NOCOPY NUMBER,
1454: X_MSG_DATA OUT NOCOPY VARCHAR2,
1447: PROCEDURE GET_TASK_PARAMETER
1448: (
1449: P_API_VERSION IN NUMBER,
1450: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1451: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1452: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1453: X_MSG_COUNT OUT NOCOPY NUMBER,
1454: X_MSG_DATA OUT NOCOPY VARCHAR2,
1455:
1467: -- Standard Start of API savepoint
1468: SAVEPOINT GET_TASK_PARAMETER_GRP;
1469:
1470: -- Standard call to check for call compatibility.
1471: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
1472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1473: END IF;
1474:
1475: -- Initialize message list if p_init_msg_list is set to TRUE.
1468: SAVEPOINT GET_TASK_PARAMETER_GRP;
1469:
1470: -- Standard call to check for call compatibility.
1471: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
1472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1473: END IF;
1474:
1475: -- Initialize message list if p_init_msg_list is set to TRUE.
1476: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1473: END IF;
1474:
1475: -- Initialize message list if p_init_msg_list is set to TRUE.
1476: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1477: FND_MSG_PUB.initialize;
1478: END IF;
1479:
1480: -- Initialize API return status to success
1477: FND_MSG_PUB.initialize;
1478: END IF;
1479:
1480: -- Initialize API return status to success
1481: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1482:
1483: -- Call the Private API to get the task value
1484: L_TASK_PARAM_VALUE := GMO_INSTRUCTION_PVT.GET_TASK_PARAMETER( P_INSTRUCTION_PROCESS_ID,
1485: P_ATTRIBUTE_NAME
1484: L_TASK_PARAM_VALUE := GMO_INSTRUCTION_PVT.GET_TASK_PARAMETER( P_INSTRUCTION_PROCESS_ID,
1485: P_ATTRIBUTE_NAME
1486: );
1487: X_ATTRIBUTE_VALUE := L_TASK_PARAM_VALUE;
1488: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1489:
1490: -- Standard call to get message count and if count is 1, get message info.
1491: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1492:
1490: -- Standard call to get message count and if count is 1, get message info.
1491: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1492:
1493: EXCEPTION
1494: WHEN FND_API.G_EXC_ERROR THEN
1495: ROLLBACK TO GET_TASK_PARAMETER_GRP;
1496: x_return_status := FND_API.G_RET_STS_ERROR;
1497:
1498: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1492:
1493: EXCEPTION
1494: WHEN FND_API.G_EXC_ERROR THEN
1495: ROLLBACK TO GET_TASK_PARAMETER_GRP;
1496: x_return_status := FND_API.G_RET_STS_ERROR;
1497:
1498: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1499: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1500: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.GET_TASK_PARAMETER', FALSE);
1499: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1500: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.GET_TASK_PARAMETER', FALSE);
1501: end if;
1502:
1503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1504: ROLLBACK TO GET_TASK_PARAMETER_GRP;
1505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1506:
1507: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1501: end if;
1502:
1503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1504: ROLLBACK TO GET_TASK_PARAMETER_GRP;
1505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1506:
1507: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1508: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1509: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.GET_TASK_PARAMETER', FALSE);
1510: end if;
1511:
1512: WHEN OTHERS THEN
1513: ROLLBACK TO GET_TASK_PARAMETER_GRP;
1514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1515:
1516: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1517: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1518: END IF;
1546:
1547: procedure is_task_attribute_used
1548: (
1549: P_API_VERSION IN NUMBER,
1550: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1551: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1552: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1553: X_MSG_COUNT OUT NOCOPY NUMBER,
1554: X_MSG_DATA OUT NOCOPY VARCHAR2,
1547: procedure is_task_attribute_used
1548: (
1549: P_API_VERSION IN NUMBER,
1550: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1551: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1552: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1553: X_MSG_COUNT OUT NOCOPY NUMBER,
1554: X_MSG_DATA OUT NOCOPY VARCHAR2,
1555:
1567: -- Standard Start of API savepoint
1568: SAVEPOINT IS_TASK_ATTRIBUTE_USED_GRP;
1569:
1570: -- Standard call to check for call compatibility.
1571: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
1572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1573: END IF;
1574:
1575: -- Initialize message list if p_init_msg_list is set to TRUE.
1568: SAVEPOINT IS_TASK_ATTRIBUTE_USED_GRP;
1569:
1570: -- Standard call to check for call compatibility.
1571: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
1572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1573: END IF;
1574:
1575: -- Initialize message list if p_init_msg_list is set to TRUE.
1576: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1573: END IF;
1574:
1575: -- Initialize message list if p_init_msg_list is set to TRUE.
1576: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1577: FND_MSG_PUB.initialize;
1578: END IF;
1579:
1580: -- Initialize API return status to success
1577: FND_MSG_PUB.initialize;
1578: END IF;
1579:
1580: -- Initialize API return status to success
1581: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1582:
1583: -- Call the Private API to get the task value
1584: GMO_INSTRUCTION_PVT.is_task_attribute_used(
1585: P_INSTRUCTION_PROCESS_ID => p_instruction_process_id,
1594: -- Standard call to get message count and if count is 1, get message info.
1595: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1596:
1597: EXCEPTION
1598: WHEN FND_API.G_EXC_ERROR THEN
1599: ROLLBACK TO IS_TASK_ATTRIBUTE_USED_GRP;
1600: x_return_status := FND_API.G_RET_STS_ERROR;
1601:
1602: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1596:
1597: EXCEPTION
1598: WHEN FND_API.G_EXC_ERROR THEN
1599: ROLLBACK TO IS_TASK_ATTRIBUTE_USED_GRP;
1600: x_return_status := FND_API.G_RET_STS_ERROR;
1601:
1602: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1603: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1604: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.IS_TASK_ATTRIBUTE_USED', FALSE);
1603: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1604: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_instruction_grp.IS_TASK_ATTRIBUTE_USED', FALSE);
1605: end if;
1606:
1607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1608: ROLLBACK TO IS_TASK_ATTRIBUTE_USED_GRP;
1609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1610:
1611: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1605: end if;
1606:
1607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1608: ROLLBACK TO IS_TASK_ATTRIBUTE_USED_GRP;
1609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1610:
1611: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
1612: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1613: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_instruction_grp.IS_TASK_ATTRIBUTE_USED', FALSE);
1614: end if;
1615:
1616: WHEN OTHERS THEN
1617: ROLLBACK TO IS_TASK_ATTRIBUTE_USED_GRP;
1618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1619:
1620: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1621: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1622: END IF;