37: PROCEDURE get_dc_owners(p_object_id IN NUMBER,
38: p_user_id IN NUMBER,
39: p_query_type IN VARCHAR2,
40: p_api_version IN NUMBER,
41: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
42: p_commit IN VARCHAR2 := FND_API.G_FALSE,
43: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
44: x_owner_list OUT NOCOPY CLOB,
45: x_return_status OUT NOCOPY varchar2,
38: p_user_id IN NUMBER,
39: p_query_type IN VARCHAR2,
40: p_api_version IN NUMBER,
41: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
42: p_commit IN VARCHAR2 := FND_API.G_FALSE,
43: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
44: x_owner_list OUT NOCOPY CLOB,
45: x_return_status OUT NOCOPY varchar2,
46: x_msg_count OUT NOCOPY number,
39: p_query_type IN VARCHAR2,
40: p_api_version IN NUMBER,
41: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
42: p_commit IN VARCHAR2 := FND_API.G_FALSE,
43: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
44: x_owner_list OUT NOCOPY CLOB,
45: x_return_status OUT NOCOPY varchar2,
46: x_msg_count OUT NOCOPY number,
47: x_msg_data OUT NOCOPY varchar2)
67:
68: -- Standard Start of API savepoint
69: SAVEPOINT zpb_excp_pvt_populate_results;
70: -- Standard call to check for call compatibility.
71: IF NOT FND_API.Compatible_API_Call( l_api_version,
72: p_api_version,
73: l_api_name,
74: G_PKG_NAME)
75: THEN
72: p_api_version,
73: l_api_name,
74: G_PKG_NAME)
75: THEN
76: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
77: END IF;
78: -- Initialize message list if p_init_msg_list is set to TRUE.
79: IF FND_API.to_Boolean(p_init_msg_list) THEN
80: FND_MSG_PUB.initialize;
75: THEN
76: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
77: END IF;
78: -- Initialize message list if p_init_msg_list is set to TRUE.
79: IF FND_API.to_Boolean(p_init_msg_list) THEN
80: FND_MSG_PUB.initialize;
81: END IF;
82: -- Initialize API return status to success
83: x_return_status := FND_API.G_RET_STS_SUCCESS;
79: IF FND_API.to_Boolean(p_init_msg_list) THEN
80: FND_MSG_PUB.initialize;
81: END IF;
82: -- Initialize API return status to success
83: x_return_status := FND_API.G_RET_STS_SUCCESS;
84:
85: -- API body
86:
87: ZPB_LOG.WRITE_STATEMENT(G_PKG_NAME || '.' || l_api_name, 'Building Data Collection ownership view...');
141:
142: -- End of API body.
143:
144: -- Standard check of p_commit.
145: IF FND_API.To_Boolean( p_commit ) THEN
146: COMMIT WORK;
147: END IF;
148: -- Standard call to get message count and if count is 1, get message info.
149: FND_MSG_PUB.Count_And_Get(
149: FND_MSG_PUB.Count_And_Get(
150: p_count => x_msg_count, p_data => x_msg_data );
151:
152: EXCEPTION
153: WHEN FND_API.G_EXC_ERROR THEN
154: ROLLBACK TO zpb_excp_pvt_populate_results;
155: x_return_status := FND_API.G_RET_STS_ERROR;
156: FND_MSG_PUB.Count_And_Get(
157: p_count => x_msg_count,
151:
152: EXCEPTION
153: WHEN FND_API.G_EXC_ERROR THEN
154: ROLLBACK TO zpb_excp_pvt_populate_results;
155: x_return_status := FND_API.G_RET_STS_ERROR;
156: FND_MSG_PUB.Count_And_Get(
157: p_count => x_msg_count,
158: p_data => x_msg_data
159: );
156: FND_MSG_PUB.Count_And_Get(
157: p_count => x_msg_count,
158: p_data => x_msg_data
159: );
160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
161: ROLLBACK TO zpb_excp_pvt_populate_results;
162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
163: FND_MSG_PUB.Count_And_Get(
164: p_count => x_msg_count,
158: p_data => x_msg_data
159: );
160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
161: ROLLBACK TO zpb_excp_pvt_populate_results;
162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
163: FND_MSG_PUB.Count_And_Get(
164: p_count => x_msg_count,
165: p_data => x_msg_data
166: );
165: p_data => x_msg_data
166: );
167: WHEN OTHERS THEN
168: ROLLBACK TO zpb_excp_pvt_populate_results;
169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
170: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
171: FND_MSG_PUB.Add_Exc_Msg(
172: G_PKG_NAME,
173: l_api_name