11: -- Used by MR tab in the Service Request Form.
12:
13: PROCEDURE Populate_Appl_MRs (
14: p_api_version IN NUMBER,
15: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
16: p_csi_ii_id IN NUMBER,
17: x_return_status OUT NOCOPY VARCHAR2,
18: x_msg_count OUT NOCOPY NUMBER,
19: x_msg_data OUT NOCOPY VARCHAR2 )
27: -- Standard start of API savepoint
28: SAVEPOINT Populate_appl_MRs_grp;
29:
30: -- Standard call to check for call compatibility
31: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
32: G_PKG_NAME) THEN
33: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34: END IF;
35:
29:
30: -- Standard call to check for call compatibility
31: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
32: G_PKG_NAME) THEN
33: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34: END IF;
35:
36: -- Initialize message list if p_init_msg_list is set to TRUE
37: IF FND_API.To_Boolean(p_init_msg_list) THEN
33: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34: END IF;
35:
36: -- Initialize message list if p_init_msg_list is set to TRUE
37: IF FND_API.To_Boolean(p_init_msg_list) THEN
38: FND_MSG_PUB.Initialize;
39: END IF;
40:
41: -- Initialize API return status to success
38: FND_MSG_PUB.Initialize;
39: END IF;
40:
41: -- Initialize API return status to success
42: x_return_status := FND_API.G_RET_STS_SUCCESS;
43:
44: AHL_UMP_UTIL_PKG.Populate_Appl_MRs (
45: p_csi_ii_id => p_csi_ii_id,
46: x_return_status => x_return_status,
47: x_msg_count =>x_msg_count,
48: x_msg_data => x_msg_data);
49:
50:
51: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
52: RAISE FND_API.G_EXC_ERROR;
53: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
54: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55: END IF;
48: x_msg_data => x_msg_data);
49:
50:
51: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
52: RAISE FND_API.G_EXC_ERROR;
53: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
54: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55: END IF;
56:
49:
50:
51: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
52: RAISE FND_API.G_EXC_ERROR;
53: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
54: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55: END IF;
56:
57: -- Standard call to get message count and if count is 1, get message
50:
51: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
52: RAISE FND_API.G_EXC_ERROR;
53: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
54: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55: END IF;
56:
57: -- Standard call to get message count and if count is 1, get message
58: FND_MSG_PUB.Count_And_Get
57: -- Standard call to get message count and if count is 1, get message
58: FND_MSG_PUB.Count_And_Get
59: ( p_count => x_msg_count,
60: p_data => x_msg_data,
61: p_encoded => fnd_api.g_false);
62:
63: --
64: EXCEPTION
65: WHEN FND_API.G_EXC_ERROR THEN
61: p_encoded => fnd_api.g_false);
62:
63: --
64: EXCEPTION
65: WHEN FND_API.G_EXC_ERROR THEN
66: x_return_status := FND_API.G_RET_STS_ERROR;
67: Rollback to Populate_Appl_Mrs_Grp;
68: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
69: p_data => x_msg_data,
62:
63: --
64: EXCEPTION
65: WHEN FND_API.G_EXC_ERROR THEN
66: x_return_status := FND_API.G_RET_STS_ERROR;
67: Rollback to Populate_Appl_Mrs_Grp;
68: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
69: p_data => x_msg_data,
70: p_encoded => fnd_api.g_false);
66: x_return_status := FND_API.G_RET_STS_ERROR;
67: Rollback to Populate_Appl_Mrs_Grp;
68: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
69: p_data => x_msg_data,
70: p_encoded => fnd_api.g_false);
71:
72:
73: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
74: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
69: p_data => x_msg_data,
70: p_encoded => fnd_api.g_false);
71:
72:
73: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
74: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75: Rollback to Populate_Appl_Mrs_Grp;
76: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
77: p_data => x_msg_data,
70: p_encoded => fnd_api.g_false);
71:
72:
73: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
74: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75: Rollback to Populate_Appl_Mrs_Grp;
76: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
77: p_data => x_msg_data,
78: p_encoded => fnd_api.g_false);
74: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75: Rollback to Populate_Appl_Mrs_Grp;
76: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
77: p_data => x_msg_data,
78: p_encoded => fnd_api.g_false);
79: WHEN OTHERS THEN
80: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81: Rollback to Populate_Appl_Mrs_Grp;
82: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
76: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
77: p_data => x_msg_data,
78: p_encoded => fnd_api.g_false);
79: WHEN OTHERS THEN
80: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81: Rollback to Populate_Appl_Mrs_Grp;
82: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
83: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
84: p_procedure_name => 'Populate_Appl_Mrs',
85: p_error_text => SQLERRM);
86: END IF;
87: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
88: p_data => x_msg_data,
89: p_encoded => fnd_api.g_false);
90:
91:
92:
93: