29: -- End of comments
30: --------------------------------------------------------------------------
31: PROCEDURE Create_BRMProcess
32: ( p_api_version IN NUMBER
33: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
34: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
35: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
36: , x_return_status OUT NOCOPY VARCHAR2
37: , x_msg_count OUT NOCOPY NUMBER
30: --------------------------------------------------------------------------
31: PROCEDURE Create_BRMProcess
32: ( p_api_version IN NUMBER
33: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
34: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
35: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
36: , x_return_status OUT NOCOPY VARCHAR2
37: , x_msg_count OUT NOCOPY NUMBER
38: , x_msg_data OUT NOCOPY VARCHAR2
31: PROCEDURE Create_BRMProcess
32: ( p_api_version IN NUMBER
33: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
34: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
35: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
36: , x_return_status OUT NOCOPY VARCHAR2
37: , x_msg_count OUT NOCOPY NUMBER
38: , x_msg_data OUT NOCOPY VARCHAR2
39: , p_bpr_rec IN BRM_Process_rec_type
60:
61: --
62: -- Standard call to check for call compatibility
63: --
64: IF NOT FND_API.Compatible_API_Call( l_api_version
65: , p_api_version
66: , l_api_name
67: , G_PKG_NAME
68: )
66: , l_api_name
67: , G_PKG_NAME
68: )
69: THEN
70: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: END IF;
72:
73: --
74: -- Initialize message list if p_init_msg_list is set to TRUE
72:
73: --
74: -- Initialize message list if p_init_msg_list is set to TRUE
75: --
76: IF FND_API.To_Boolean(p_init_msg_list)
77: THEN
78: FND_MSG_PUB.Initialize;
79: END IF;
80:
80:
81: --
82: -- Initialize API return status to success
83: --
84: x_return_status := FND_API.G_RET_STS_SUCCESS;
85:
86: -- ----------------------------------------------------------------------
87: -- Perform the database operation. Generate the method ID from the
88: -- sequence, then insert the passed in attributes into the
196:
197: --
198: -- Standard check of p_commit
199: --
200: IF FND_API.To_Boolean(p_commit)
201: THEN
202: COMMIT WORK;
203: END IF;
204:
209: , p_data => x_msg_data
210: );
211:
212: EXCEPTION
213: WHEN FND_API.G_EXC_ERROR
214: THEN
215: ROLLBACK TO Create_BRMProcess_PVT;
216: x_return_status := FND_API.G_RET_STS_ERROR;
217: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
212: EXCEPTION
213: WHEN FND_API.G_EXC_ERROR
214: THEN
215: ROLLBACK TO Create_BRMProcess_PVT;
216: x_return_status := FND_API.G_RET_STS_ERROR;
217: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
218: , p_data => x_msg_data
219: );
220:
217: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
218: , p_data => x_msg_data
219: );
220:
221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
222: THEN
223: ROLLBACK TO Create_BRMProcess_PVT;
224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
225: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
220:
221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
222: THEN
223: ROLLBACK TO Create_BRMProcess_PVT;
224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
225: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
226: , p_data => x_msg_data
227: );
228: WHEN OTHERS
227: );
228: WHEN OTHERS
229: THEN
230: ROLLBACK TO Create_BRMProcess_PVT;
231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
232: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
233: THEN
234: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
235: , l_api_name
268: -- End of comments
269: --------------------------------------------------------------------------
270: PROCEDURE Update_BRMProcess
271: ( p_api_version IN NUMBER
272: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
273: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
274: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
275: , x_return_status OUT NOCOPY VARCHAR2
276: , x_msg_count OUT NOCOPY NUMBER
269: --------------------------------------------------------------------------
270: PROCEDURE Update_BRMProcess
271: ( p_api_version IN NUMBER
272: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
273: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
274: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
275: , x_return_status OUT NOCOPY VARCHAR2
276: , x_msg_count OUT NOCOPY NUMBER
277: , x_msg_data OUT NOCOPY VARCHAR2
270: PROCEDURE Update_BRMProcess
271: ( p_api_version IN NUMBER
272: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
273: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
274: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
275: , x_return_status OUT NOCOPY VARCHAR2
276: , x_msg_count OUT NOCOPY NUMBER
277: , x_msg_data OUT NOCOPY VARCHAR2
278: , p_bpr_rec IN BRM_Process_rec_type
294:
295: --
296: -- Standard call to check for call compatibility
297: --
298: IF NOT FND_API.Compatible_API_Call( l_api_version
299: , p_api_version
300: , l_api_name
301: , G_PKG_NAME)
302: THEN
299: , p_api_version
300: , l_api_name
301: , G_PKG_NAME)
302: THEN
303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
304: END IF;
305:
306: --
307: -- Initialize message list if p_init_msg_list is set to TRUE
305:
306: --
307: -- Initialize message list if p_init_msg_list is set to TRUE
308: --
309: IF FND_API.To_Boolean(p_init_msg_list)
310: THEN
311: FND_MSG_PUB.Initialize;
312: END IF;
313:
313:
314: --
315: -- Initialize API return status to success
316: --
317: x_return_status := FND_API.G_RET_STS_SUCCESS;
318:
319: --
320: -- Get new object version number
321: --
370:
371: --
372: -- Standard check of p_commit
373: --
374: IF FND_API.To_Boolean(p_commit)
375: THEN
376: COMMIT WORK;
377: END IF;
378:
383: , p_data => x_msg_data
384: );
385:
386: EXCEPTION
387: WHEN FND_API.G_EXC_ERROR
388: THEN
389: ROLLBACK TO Update_BRMProcess_PVT;
390: x_return_status := FND_API.G_RET_STS_ERROR;
391: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
386: EXCEPTION
387: WHEN FND_API.G_EXC_ERROR
388: THEN
389: ROLLBACK TO Update_BRMProcess_PVT;
390: x_return_status := FND_API.G_RET_STS_ERROR;
391: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
392: , p_data => x_msg_data
393: );
394:
391: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
392: , p_data => x_msg_data
393: );
394:
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
396: THEN
397: ROLLBACK TO Update_BRMProcess_PVT;
398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
399: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
394:
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
396: THEN
397: ROLLBACK TO Update_BRMProcess_PVT;
398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
399: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
400: , p_data => x_msg_data
401: );
402:
402:
403: WHEN OTHERS
404: THEN
405: ROLLBACK TO Update_BRMProcess_PVT;
406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
407: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
408: THEN
409: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
410: , l_api_name
443: -- End of comments
444: --------------------------------------------------------------------------
445: PROCEDURE Delete_BRMProcess
446: ( p_api_version IN NUMBER
447: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
448: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
449: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
450: , x_return_status OUT NOCOPY VARCHAR2
451: , x_msg_count OUT NOCOPY NUMBER
444: --------------------------------------------------------------------------
445: PROCEDURE Delete_BRMProcess
446: ( p_api_version IN NUMBER
447: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
448: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
449: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
450: , x_return_status OUT NOCOPY VARCHAR2
451: , x_msg_count OUT NOCOPY NUMBER
452: , x_msg_data OUT NOCOPY VARCHAR2
445: PROCEDURE Delete_BRMProcess
446: ( p_api_version IN NUMBER
447: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
448: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
449: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
450: , x_return_status OUT NOCOPY VARCHAR2
451: , x_msg_count OUT NOCOPY NUMBER
452: , x_msg_data OUT NOCOPY VARCHAR2
453: , p_process_id IN NUMBER
467:
468: --
469: -- Check version number
470: --
471: IF NOT FND_API.Compatible_API_Call( l_api_version
472: , p_api_version
473: , l_api_name
474: , G_PKG_NAME )
475: THEN
472: , p_api_version
473: , l_api_name
474: , G_PKG_NAME )
475: THEN
476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
477: END IF;
478:
479: --
480: -- Initialize message list if requested
478:
479: --
480: -- Initialize message list if requested
481: --
482: IF FND_API.to_Boolean( p_init_msg_list )
483: THEN
484: FND_MSG_PUB.initialize;
485: END IF;
486:
486:
487: --
488: -- Initialize return status to SUCCESS
489: --
490: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
491:
492: DELETE FROM JTF_BRM_PROCESSES
493: WHERE PROCESS_ID = p_process_id;
494:
499: THEN
500: RAISE no_data_found;
501: END IF;
502:
503: IF FND_API.To_Boolean( p_commit )
504: THEN
505: COMMIT WORK;
506: END IF;
507:
509: , p_data => X_MSG_DATA
510: );
511:
512: EXCEPTION
513: WHEN FND_API.G_EXC_ERROR
514: THEN
515: ROLLBACK TO Delete_BRMProcess_PVT;
516: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
517: FND_MSG_PUB.Count_And_Get( p_count => X_MSG_COUNT
512: EXCEPTION
513: WHEN FND_API.G_EXC_ERROR
514: THEN
515: ROLLBACK TO Delete_BRMProcess_PVT;
516: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
517: FND_MSG_PUB.Count_And_Get( p_count => X_MSG_COUNT
518: , p_data => X_MSG_DATA
519: );
520:
517: FND_MSG_PUB.Count_And_Get( p_count => X_MSG_COUNT
518: , p_data => X_MSG_DATA
519: );
520:
521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
522: THEN
523: ROLLBACK TO Delete_BRMProcess_PVT;
524: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
525: FND_MSG_PUB.Count_And_Get( p_count => X_MSG_COUNT
520:
521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
522: THEN
523: ROLLBACK TO Delete_BRMProcess_PVT;
524: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
525: FND_MSG_PUB.Count_And_Get( p_count => X_MSG_COUNT
526: , p_data => X_MSG_DATA
527: );
528:
528:
529: WHEN OTHERS
530: THEN
531: ROLLBACK TO Delete_BRMProcess_PVT;
532: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
533: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
534: THEN
535: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
536: , l_api_name