31: -- NOTES
32: ---------------------------------------------------------------------
33: PROCEDURE Create_SLA_Extract(
34: p_api_version_number IN NUMBER,
35: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
36: p_commit IN VARCHAR2 := FND_API.G_FALSE,
37: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
38: x_return_status OUT NOCOPY VARCHAR2,
39: x_msg_count OUT NOCOPY NUMBER,
32: ---------------------------------------------------------------------
33: PROCEDURE Create_SLA_Extract(
34: p_api_version_number IN NUMBER,
35: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
36: p_commit IN VARCHAR2 := FND_API.G_FALSE,
37: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
38: x_return_status OUT NOCOPY VARCHAR2,
39: x_msg_count OUT NOCOPY NUMBER,
40: x_msg_data OUT NOCOPY VARCHAR2,
33: PROCEDURE Create_SLA_Extract(
34: p_api_version_number IN NUMBER,
35: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
36: p_commit IN VARCHAR2 := FND_API.G_FALSE,
37: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
38: x_return_status OUT NOCOPY VARCHAR2,
39: x_msg_count OUT NOCOPY NUMBER,
40: x_msg_data OUT NOCOPY VARCHAR2,
41: p_claim_id IN ozf_claims.claim_id%TYPE,
62: BEGIN
63: -- Standard Start of API savepoint
64: SAVEPOINT CREATE_SLA_Extract_PUB;
65: -- Standard call to check for call compatibility.
66: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
67: p_api_version_number,
68: l_api_name,
69: G_PKG_NAME)
70: THEN
67: p_api_version_number,
68: l_api_name,
69: G_PKG_NAME)
70: THEN
71: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
72: END IF;
73: -- Initialize message list if p_init_msg_list is set to TRUE.
74: IF FND_API.to_Boolean( p_init_msg_list )
75: THEN
70: THEN
71: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
72: END IF;
73: -- Initialize message list if p_init_msg_list is set to TRUE.
74: IF FND_API.to_Boolean( p_init_msg_list )
75: THEN
76: FND_MSG_PUB.initialize;
77: END IF;
78: -- Debug Message
79:
80: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Public API: ' || l_api_name || ' pub start');
81:
82: -- Initialize API return status to SUCCESS
83: x_return_status := FND_API.G_RET_STS_SUCCESS;
84: --
85: -- API body
86: --
87: IF p_claim_line_tbl.count > 0 THEN
100: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'This is not a valid claim ');
101: FND_MESSAGE.set_name('DPP', 'DPP_INVALID_CLAIM');
102: FND_MESSAGE.set_token('CLAIM_ID', p_claim_id);
103: FND_MSG_PUB.add;
104: RAISE FND_API.G_EXC_ERROR;
105: END;
106:
107: BEGIN
108: INSERT INTO DPP_XLA_HEADERS
133: FND_MESSAGE.set_name('DPP', 'DPP_DUPLICATE_HDR_EXTRACT');
134: FND_MESSAGE.set_token('TXN_HDR_ID', l_transaction_header_id);
135: FND_MESSAGE.set_token('BASE_TXN_HDR_ID', p_claim_id);
136: FND_MSG_PUB.add;
137: RAISE FND_API.G_EXC_ERROR;
138: END;
139:
140: l_sla_line_tbl_type.delete;
141: FOR i IN p_claim_line_tbl.FIRST..p_claim_line_tbl.LAST LOOP
173: FND_MESSAGE.set_name('DPP', 'DPP_INVALID_CLAIM_LINE');
174: FND_MESSAGE.set_token('CLAIM_ID',p_claim_line_tbl(i).claim_id);
175: FND_MESSAGE.set_token('ITEM_ID',p_claim_line_tbl(i).item_id);
176: FND_MSG_PUB.add;
177: RAISE FND_API.G_EXC_ERROR;
178: END;
179:
180:
181: l_sla_line_tbl_type(i).transaction_header_id:=l_transaction_header_id;
219: FND_MESSAGE.set_token('TXN_HDR_ID', l_transaction_header_id);
220: FND_MESSAGE.set_token('BASE_TXN_HDR_ID', p_claim_id);
221: FND_MESSAGE.set_token('BASE_TXN_LINE_ID', l_sla_line_tbl_type(i).base_transaction_line_id);
222: FND_MSG_PUB.add;
223: RAISE FND_API.G_EXC_ERROR;
224: END;
225: END LOOP;
226: END IF;
227: END IF;
225: END LOOP;
226: END IF;
227: END IF;
228:
229: IF FND_API.to_Boolean( p_commit )
230: THEN
231: COMMIT WORK;
232: END IF;
233: x_return_status := FND_API.G_RET_STS_SUCCESS;
229: IF FND_API.to_Boolean( p_commit )
230: THEN
231: COMMIT WORK;
232: END IF;
233: x_return_status := FND_API.G_RET_STS_SUCCESS;
234: EXCEPTION
235: WHEN OZF_Utility_PVT.resource_locked THEN
236: ROLLBACK TO CREATE_SLA_Extract_PUB;
237: x_return_status := FND_API.G_RET_STS_ERROR;
233: x_return_status := FND_API.G_RET_STS_SUCCESS;
234: EXCEPTION
235: WHEN OZF_Utility_PVT.resource_locked THEN
236: ROLLBACK TO CREATE_SLA_Extract_PUB;
237: x_return_status := FND_API.G_RET_STS_ERROR;
238: FND_MSG_PUB.Count_And_Get (
239: p_encoded => FND_API.G_FALSE,
240: p_count => x_msg_count,
241: p_data => x_msg_data
235: WHEN OZF_Utility_PVT.resource_locked THEN
236: ROLLBACK TO CREATE_SLA_Extract_PUB;
237: x_return_status := FND_API.G_RET_STS_ERROR;
238: FND_MSG_PUB.Count_And_Get (
239: p_encoded => FND_API.G_FALSE,
240: p_count => x_msg_count,
241: p_data => x_msg_data
242: );
243: WHEN FND_API.G_EXC_ERROR THEN
239: p_encoded => FND_API.G_FALSE,
240: p_count => x_msg_count,
241: p_data => x_msg_data
242: );
243: WHEN FND_API.G_EXC_ERROR THEN
244: ROLLBACK TO CREATE_SLA_Extract_PUB;
245: x_return_status := FND_API.G_RET_STS_ERROR;
246: -- Standard call to get message count and if count=1, get the message
247: FND_MSG_PUB.Count_And_Get (
241: p_data => x_msg_data
242: );
243: WHEN FND_API.G_EXC_ERROR THEN
244: ROLLBACK TO CREATE_SLA_Extract_PUB;
245: x_return_status := FND_API.G_RET_STS_ERROR;
246: -- Standard call to get message count and if count=1, get the message
247: FND_MSG_PUB.Count_And_Get (
248: p_encoded => FND_API.G_FALSE,
249: p_count => x_msg_count,
244: ROLLBACK TO CREATE_SLA_Extract_PUB;
245: x_return_status := FND_API.G_RET_STS_ERROR;
246: -- Standard call to get message count and if count=1, get the message
247: FND_MSG_PUB.Count_And_Get (
248: p_encoded => FND_API.G_FALSE,
249: p_count => x_msg_count,
250: p_data => x_msg_data
251: );
252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
248: p_encoded => FND_API.G_FALSE,
249: p_count => x_msg_count,
250: p_data => x_msg_data
251: );
252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
253: ROLLBACK TO CREATE_SLA_Extract_PUB;
254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255: -- Standard call to get message count and if count=1, get the message
256: FND_MSG_PUB.Count_And_Get (
250: p_data => x_msg_data
251: );
252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
253: ROLLBACK TO CREATE_SLA_Extract_PUB;
254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255: -- Standard call to get message count and if count=1, get the message
256: FND_MSG_PUB.Count_And_Get (
257: p_encoded => FND_API.G_FALSE,
258: p_count => x_msg_count,
253: ROLLBACK TO CREATE_SLA_Extract_PUB;
254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255: -- Standard call to get message count and if count=1, get the message
256: FND_MSG_PUB.Count_And_Get (
257: p_encoded => FND_API.G_FALSE,
258: p_count => x_msg_count,
259: p_data => x_msg_data
260: );
261: WHEN OTHERS THEN
259: p_data => x_msg_data
260: );
261: WHEN OTHERS THEN
262: ROLLBACK TO CREATE_SLA_Extract_PUB;
263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
264: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
265: THEN
266: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
267: END IF;
266: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
267: END IF;
268: -- Standard call to get message count and if count=1, get the message
269: FND_MSG_PUB.Count_And_Get (
270: p_encoded => FND_API.G_FALSE,
271: p_count => x_msg_count,
272: p_data => x_msg_data
273: );
274: End Create_SLA_extract;