22: --
23: -- Parameters :
24: -- IN : p_api_version NUMBER Require
25: -- p_init_msg_list VARCHAR2 Optional
26: -- Default = FND_API.G_FALSE
27: -- p_commit VARCHAR2 Optional
28: -- Default = FND_API.G_FALSE
29: -- p_validation_level NUMBER Optional
30: -- Default = FND_API.G_VALID_LEVEL_FULL
24: -- IN : p_api_version NUMBER Require
25: -- p_init_msg_list VARCHAR2 Optional
26: -- Default = FND_API.G_FALSE
27: -- p_commit VARCHAR2 Optional
28: -- Default = FND_API.G_FALSE
29: -- p_validation_level NUMBER Optional
30: -- Default = FND_API.G_VALID_LEVEL_FULL
31: -- OUT : x_return_status VARCHAR2(1)
32: -- x_msg_count NUMBER
26: -- Default = FND_API.G_FALSE
27: -- p_commit VARCHAR2 Optional
28: -- Default = FND_API.G_FALSE
29: -- p_validation_level NUMBER Optional
30: -- Default = FND_API.G_VALID_LEVEL_FULL
31: -- OUT : x_return_status VARCHAR2(1)
32: -- x_msg_count NUMBER
33: -- x_msg_data VARCHAR2(2000)
34: -- IN : p_mgr_id NUMBER
49:
50: PROCEDURE Get_Tsr_Data
51: (
52: p_api_version IN NUMBER,
53: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
54: p_commit IN VARCHAR2 := FND_API.G_FALSE,
55: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
56: x_return_status OUT NOCOPY VARCHAR2,
57: x_msg_count OUT NOCOPY NUMBER,
50: PROCEDURE Get_Tsr_Data
51: (
52: p_api_version IN NUMBER,
53: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
54: p_commit IN VARCHAR2 := FND_API.G_FALSE,
55: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
56: x_return_status OUT NOCOPY VARCHAR2,
57: x_msg_count OUT NOCOPY NUMBER,
58: x_msg_data OUT NOCOPY VARCHAR2,
51: (
52: p_api_version IN NUMBER,
53: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
54: p_commit IN VARCHAR2 := FND_API.G_FALSE,
55: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
56: x_return_status OUT NOCOPY VARCHAR2,
57: x_msg_count OUT NOCOPY NUMBER,
58: x_msg_data OUT NOCOPY VARCHAR2,
59: p_mgr_id IN NUMBER,
203: BEGIN
204: -- Standard Start of API savepoint
205: SAVEPOINT Get_Tsr_Data_SP;
206: -- Standard call to check for call compatibility.
207: IF NOT FND_API.compatible_api_call
208: ( l_api_version ,p_api_version ,l_api_name ,G_PKG_NAME )
209: THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: END IF;
206: -- Standard call to check for call compatibility.
207: IF NOT FND_API.compatible_api_call
208: ( l_api_version ,p_api_version ,l_api_name ,G_PKG_NAME )
209: THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212: -- Initialize message list if p_init_msg_list is set to TRUE.
213: IF FND_API.to_Boolean( p_init_msg_list ) THEN
214: FND_MSG_PUB.initialize;
209: THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212: -- Initialize message list if p_init_msg_list is set to TRUE.
213: IF FND_API.to_Boolean( p_init_msg_list ) THEN
214: FND_MSG_PUB.initialize;
215: END IF;
216: -- Initialize API return status to success
217: x_return_status := FND_API.G_RET_STS_SUCCESS;
213: IF FND_API.to_Boolean( p_init_msg_list ) THEN
214: FND_MSG_PUB.initialize;
215: END IF;
216: -- Initialize API return status to success
217: x_return_status := FND_API.G_RET_STS_SUCCESS;
218:
219:
220: -- API body
221: l_ctr := 1;
227:
228:
229: cn_srp_hier_proc_pvt.Get_Descendant_group_mbrs
230: (p_api_version => 1.0,
231: p_init_msg_list => FND_API.G_FALSE,
232: p_commit => FND_API.G_FALSE,
233: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
234: p_srp => l_srp_rec,
235: x_return_status => l_return_status,
228:
229: cn_srp_hier_proc_pvt.Get_Descendant_group_mbrs
230: (p_api_version => 1.0,
231: p_init_msg_list => FND_API.G_FALSE,
232: p_commit => FND_API.G_FALSE,
233: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
234: p_srp => l_srp_rec,
235: x_return_status => l_return_status,
236: x_msg_count => x_msg_count,
229: cn_srp_hier_proc_pvt.Get_Descendant_group_mbrs
230: (p_api_version => 1.0,
231: p_init_msg_list => FND_API.G_FALSE,
232: p_commit => FND_API.G_FALSE,
233: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
234: p_srp => l_srp_rec,
235: x_return_status => l_return_status,
236: x_msg_count => x_msg_count,
237: x_msg_data => x_msg_data,
237: x_msg_data => x_msg_data,
238: x_srp => l_srp_tbl,
239: x_returned_rows => l_returned_rows);
240:
241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
242: RAISE FND_API.G_EXC_ERROR;
243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: END IF;
238: x_srp => l_srp_tbl,
239: x_returned_rows => l_returned_rows);
240:
241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
242: RAISE FND_API.G_EXC_ERROR;
243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: END IF;
246:
239: x_returned_rows => l_returned_rows);
240:
241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
242: RAISE FND_API.G_EXC_ERROR;
243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: END IF;
246:
247:
240:
241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
242: RAISE FND_API.G_EXC_ERROR;
243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: END IF;
246:
247:
248: -- dbms_output.put_line(to_char(l_srp_tbl.count));
304: -- End of API body.
305: << end_api >>
306: NULL;
307: -- Standard check of p_commit.
308: IF FND_API.To_Boolean( p_commit ) THEN
309: COMMIT WORK;
310: END IF;
311: -- Standard call to get message count and if count is 1, get message info.
312: FND_MSG_PUB.Count_And_Get
312: FND_MSG_PUB.Count_And_Get
313: (
314: p_count => x_msg_count ,
315: p_data => x_msg_data ,
316: p_encoded => FND_API.G_FALSE
317: );
318:
319: EXCEPTION
320: WHEN FND_API.G_EXC_ERROR THEN
316: p_encoded => FND_API.G_FALSE
317: );
318:
319: EXCEPTION
320: WHEN FND_API.G_EXC_ERROR THEN
321: ROLLBACK TO Get_Tsr_Data_SP ;
322: x_return_status := FND_API.G_RET_STS_ERROR ;
323: FND_MSG_PUB.Count_And_Get
324: (
318:
319: EXCEPTION
320: WHEN FND_API.G_EXC_ERROR THEN
321: ROLLBACK TO Get_Tsr_Data_SP ;
322: x_return_status := FND_API.G_RET_STS_ERROR ;
323: FND_MSG_PUB.Count_And_Get
324: (
325: p_count => x_msg_count ,
326: p_data => x_msg_data ,
323: FND_MSG_PUB.Count_And_Get
324: (
325: p_count => x_msg_count ,
326: p_data => x_msg_data ,
327: p_encoded => FND_API.G_FALSE
328: );
329:
330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
331: ROLLBACK TO Get_Tsr_Data_SP ;
326: p_data => x_msg_data ,
327: p_encoded => FND_API.G_FALSE
328: );
329:
330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
331: ROLLBACK TO Get_Tsr_Data_SP ;
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
333: FND_MSG_PUB.Count_And_Get
334: (
328: );
329:
330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
331: ROLLBACK TO Get_Tsr_Data_SP ;
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
333: FND_MSG_PUB.Count_And_Get
334: (
335: p_count => x_msg_count ,
336: p_data => x_msg_data ,
333: FND_MSG_PUB.Count_And_Get
334: (
335: p_count => x_msg_count ,
336: p_data => x_msg_data ,
337: p_encoded => FND_API.G_FALSE
338: );
339: WHEN OTHERS THEN
340: ROLLBACK TO Get_Tsr_Data_SP ;
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
337: p_encoded => FND_API.G_FALSE
338: );
339: WHEN OTHERS THEN
340: ROLLBACK TO Get_Tsr_Data_SP ;
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
342: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
343: THEN
344: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
345: END IF;
346: FND_MSG_PUB.Count_And_Get
347: (
348: p_count => x_msg_count ,
349: p_data => x_msg_data ,
350: p_encoded => FND_API.G_FALSE
351: );
352: END Get_Tsr_Data;
353:
354: