7: -- Type : Private.
8: -- Pre-reqs : None
9: -- Parameters :
10: -- IN : p_api_version NUMBER Require
11: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
12: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
13: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
14: -- OUT : x_return_status VARCHAR2(1)
15: -- x_msg_count NUMBER
8: -- Pre-reqs : None
9: -- Parameters :
10: -- IN : p_api_version NUMBER Require
11: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
12: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
13: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
14: -- OUT : x_return_status VARCHAR2(1)
15: -- x_msg_count NUMBER
16: -- x_msg_data VARCHAR2(2000)
9: -- Parameters :
10: -- IN : p_api_version NUMBER Require
11: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
12: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
13: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
14: -- OUT : x_return_status VARCHAR2(1)
15: -- x_msg_count NUMBER
16: -- x_msg_data VARCHAR2(2000)
17: -- Version : Current version 1.0
22: -- End of comments
23:
24: PROCEDURE get_active_role
25: ( p_api_version IN NUMBER,
26: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
27: p_commit IN VARCHAR2 := FND_API.G_FALSE,
28: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
29: x_return_status OUT NOCOPY VARCHAR2,
30: x_msg_count OUT NOCOPY NUMBER,
23:
24: PROCEDURE get_active_role
25: ( p_api_version IN NUMBER,
26: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
27: p_commit IN VARCHAR2 := FND_API.G_FALSE,
28: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
29: x_return_status OUT NOCOPY VARCHAR2,
30: x_msg_count OUT NOCOPY NUMBER,
31: x_msg_data OUT NOCOPY VARCHAR2,
24: PROCEDURE get_active_role
25: ( p_api_version IN NUMBER,
26: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
27: p_commit IN VARCHAR2 := FND_API.G_FALSE,
28: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
29: x_return_status OUT NOCOPY VARCHAR2,
30: x_msg_count OUT NOCOPY NUMBER,
31: x_msg_data OUT NOCOPY VARCHAR2,
32: p_org_id IN NUMBER,
51: AND (end_date_active IS NULL OR p_srp.start_date <= end_date_active)
52: AND (p_srp.end_date IS NULL OR p_srp.end_date >= start_date_active);
53: BEGIN
54: -- Standard call to check for call compatibility.
55: IF NOT FND_API.Compatible_API_Call
56: (l_api_version ,
57: p_api_version ,
58: l_api_name ,
59: G_PKG_NAME )
57: p_api_version ,
58: l_api_name ,
59: G_PKG_NAME )
60: THEN
61: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
62: END IF;
63:
64: -- Initialize message list if p_init_msg_list is set to TRUE.
65: IF FND_API.to_Boolean( p_init_msg_list ) THEN
61: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
62: END IF;
63:
64: -- Initialize message list if p_init_msg_list is set to TRUE.
65: IF FND_API.to_Boolean( p_init_msg_list ) THEN
66: FND_MSG_PUB.initialize;
67: END IF;
68:
69: -- Initialize API return status to success
66: FND_MSG_PUB.initialize;
67: END IF;
68:
69: -- Initialize API return status to success
70: x_return_status := FND_API.G_RET_STS_SUCCESS;
71:
72: -- API body
73:
74: l_counter := 0;
86: FND_MSG_PUB.Count_And_Get
87: (p_count => x_msg_count ,
88: p_data => x_msg_data );
89: EXCEPTION
90: WHEN FND_API.G_EXC_ERROR THEN
91: x_return_status := FND_API.G_RET_STS_ERROR ;
92: FND_MSG_PUB.Count_And_Get
93: (p_count => x_msg_count ,
94: p_data => x_msg_data );
87: (p_count => x_msg_count ,
88: p_data => x_msg_data );
89: EXCEPTION
90: WHEN FND_API.G_EXC_ERROR THEN
91: x_return_status := FND_API.G_RET_STS_ERROR ;
92: FND_MSG_PUB.Count_And_Get
93: (p_count => x_msg_count ,
94: p_data => x_msg_data );
95: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
91: x_return_status := FND_API.G_RET_STS_ERROR ;
92: FND_MSG_PUB.Count_And_Get
93: (p_count => x_msg_count ,
94: p_data => x_msg_data );
95: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
96: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
97: FND_MSG_PUB.Count_And_Get
98: (p_count => x_msg_count ,
99: p_data => x_msg_data );
92: FND_MSG_PUB.Count_And_Get
93: (p_count => x_msg_count ,
94: p_data => x_msg_data );
95: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
96: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
97: FND_MSG_PUB.Count_And_Get
98: (p_count => x_msg_count ,
99: p_data => x_msg_data );
100: WHEN OTHERS THEN
97: FND_MSG_PUB.Count_And_Get
98: (p_count => x_msg_count ,
99: p_data => x_msg_data );
100: WHEN OTHERS THEN
101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
102: IF FND_MSG_PUB.Check_Msg_Level
103: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
104: THEN
105: FND_MSG_PUB.Add_Exc_Msg
122: -- Type : Private.
123: -- Pre-reqs : None
124: -- Parameters :
125: -- IN : p_api_version NUMBER Require
126: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
127: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
128: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
129: -- OUT : x_return_status VARCHAR2(1)
130: -- x_msg_count NUMBER
123: -- Pre-reqs : None
124: -- Parameters :
125: -- IN : p_api_version NUMBER Require
126: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
127: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
128: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
129: -- OUT : x_return_status VARCHAR2(1)
130: -- x_msg_count NUMBER
131: -- x_msg_data VARCHAR2(2000)
124: -- Parameters :
125: -- IN : p_api_version NUMBER Require
126: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
127: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
128: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
129: -- OUT : x_return_status VARCHAR2(1)
130: -- x_msg_count NUMBER
131: -- x_msg_data VARCHAR2(2000)
132: --
138: -- End of comments
139:
140: PROCEDURE get_active_group_member
141: ( p_api_version IN NUMBER,
142: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
143: p_commit IN VARCHAR2 := FND_API.G_FALSE,
144: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
145: x_return_status OUT NOCOPY VARCHAR2,
146: x_msg_count OUT NOCOPY NUMBER,
139:
140: PROCEDURE get_active_group_member
141: ( p_api_version IN NUMBER,
142: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
143: p_commit IN VARCHAR2 := FND_API.G_FALSE,
144: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
145: x_return_status OUT NOCOPY VARCHAR2,
146: x_msg_count OUT NOCOPY NUMBER,
147: x_msg_data OUT NOCOPY VARCHAR2,
140: PROCEDURE get_active_group_member
141: ( p_api_version IN NUMBER,
142: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
143: p_commit IN VARCHAR2 := FND_API.G_FALSE,
144: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
145: x_return_status OUT NOCOPY VARCHAR2,
146: x_msg_count OUT NOCOPY NUMBER,
147: x_msg_data OUT NOCOPY VARCHAR2,
148: p_org_id IN NUMBER,
167:
168: l_counter NUMBER(15);
169: BEGIN
170: -- Standard call to check for call compatibility.
171: IF NOT FND_API.Compatible_API_Call
172: (l_api_version ,
173: p_api_version ,
174: l_api_name ,
175: G_PKG_NAME )
173: p_api_version ,
174: l_api_name ,
175: G_PKG_NAME )
176: THEN
177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
178: END IF;
179:
180: -- Initialize message list if p_init_msg_list is set to TRUE.
181: IF FND_API.to_Boolean( p_init_msg_list ) THEN
177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
178: END IF;
179:
180: -- Initialize message list if p_init_msg_list is set to TRUE.
181: IF FND_API.to_Boolean( p_init_msg_list ) THEN
182: FND_MSG_PUB.initialize;
183: END IF;
184:
185: -- Initialize API return status to success
182: FND_MSG_PUB.initialize;
183: END IF;
184:
185: -- Initialize API return status to success
186: x_return_status := FND_API.G_RET_STS_SUCCESS;
187:
188: -- API body
189:
190: l_counter := 0;
204: FND_MSG_PUB.Count_And_Get
205: (p_count => x_msg_count ,
206: p_data => x_msg_data );
207: EXCEPTION
208: WHEN FND_API.G_EXC_ERROR THEN
209: x_return_status := FND_API.G_RET_STS_ERROR ;
210: FND_MSG_PUB.Count_And_Get
211: (p_count => x_msg_count ,
212: p_data => x_msg_data );
205: (p_count => x_msg_count ,
206: p_data => x_msg_data );
207: EXCEPTION
208: WHEN FND_API.G_EXC_ERROR THEN
209: x_return_status := FND_API.G_RET_STS_ERROR ;
210: FND_MSG_PUB.Count_And_Get
211: (p_count => x_msg_count ,
212: p_data => x_msg_data );
213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
209: x_return_status := FND_API.G_RET_STS_ERROR ;
210: FND_MSG_PUB.Count_And_Get
211: (p_count => x_msg_count ,
212: p_data => x_msg_data );
213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
215: FND_MSG_PUB.Count_And_Get
216: (p_count => x_msg_count ,
217: p_data => x_msg_data );
210: FND_MSG_PUB.Count_And_Get
211: (p_count => x_msg_count ,
212: p_data => x_msg_data );
213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
215: FND_MSG_PUB.Count_And_Get
216: (p_count => x_msg_count ,
217: p_data => x_msg_data );
218: WHEN OTHERS THEN
215: FND_MSG_PUB.Count_And_Get
216: (p_count => x_msg_count ,
217: p_data => x_msg_data );
218: WHEN OTHERS THEN
219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
220: IF FND_MSG_PUB.Check_Msg_Level
221: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
222: THEN
223: FND_MSG_PUB.Add_Exc_Msg
240: -- Pre-reqs : None
241: --
242: -- Parameters :
243: -- IN : p_api_version NUMBER Require
244: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
245: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
246: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
247: -- OUT : x_return_status VARCHAR2(1)
248: -- x_msg_count NUMBER
241: --
242: -- Parameters :
243: -- IN : p_api_version NUMBER Require
244: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
245: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
246: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
247: -- OUT : x_return_status VARCHAR2(1)
248: -- x_msg_count NUMBER
249: -- x_msg_data VARCHAR2(2000)
242: -- Parameters :
243: -- IN : p_api_version NUMBER Require
244: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
245: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
246: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
247: -- OUT : x_return_status VARCHAR2(1)
248: -- x_msg_count NUMBER
249: -- x_msg_data VARCHAR2(2000)
250: -- Version : Current version 1.0
255: -- End of comments
256:
257: PROCEDURE get_active_group_member
258: ( p_api_version IN NUMBER,
259: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
260: p_commit IN VARCHAR2 := FND_API.G_FALSE,
261: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
262: x_return_status OUT NOCOPY VARCHAR2,
263: x_msg_count OUT NOCOPY NUMBER,
256:
257: PROCEDURE get_active_group_member
258: ( p_api_version IN NUMBER,
259: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
260: p_commit IN VARCHAR2 := FND_API.G_FALSE,
261: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
262: x_return_status OUT NOCOPY VARCHAR2,
263: x_msg_count OUT NOCOPY NUMBER,
264: x_msg_data OUT NOCOPY VARCHAR2,
257: PROCEDURE get_active_group_member
258: ( p_api_version IN NUMBER,
259: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
260: p_commit IN VARCHAR2 := FND_API.G_FALSE,
261: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
262: x_return_status OUT NOCOPY VARCHAR2,
263: x_msg_count OUT NOCOPY NUMBER,
264: x_msg_data OUT NOCOPY VARCHAR2,
265: p_org_id IN NUMBER,
273:
274: l_group_member cn_rollup_pvt.group_mem_tbl_type;
275: BEGIN
276: -- Standard call to check for call compatibility.
277: IF NOT FND_API.Compatible_API_Call
278: (l_api_version ,
279: p_api_version ,
280: l_api_name ,
281: G_PKG_NAME )
279: p_api_version ,
280: l_api_name ,
281: G_PKG_NAME )
282: THEN
283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
284: END IF;
285:
286: -- Initialize message list if p_init_msg_list is set to TRUE.
287: IF FND_API.to_Boolean( p_init_msg_list ) THEN
283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
284: END IF;
285:
286: -- Initialize message list if p_init_msg_list is set to TRUE.
287: IF FND_API.to_Boolean( p_init_msg_list ) THEN
288: FND_MSG_PUB.initialize;
289: END IF;
290:
291: -- Initialize API return status to success
288: FND_MSG_PUB.initialize;
289: END IF;
290:
291: -- Initialize API return status to success
292: x_return_status := FND_API.G_RET_STS_SUCCESS;
293:
294: -- API body
295:
296: l_counter := 0;
323: FND_MSG_PUB.Count_And_Get
324: (p_count => x_msg_count ,
325: p_data => x_msg_data );
326: EXCEPTION
327: WHEN FND_API.G_EXC_ERROR THEN
328: x_return_status := FND_API.G_RET_STS_ERROR ;
329: FND_MSG_PUB.Count_And_Get
330: (p_count => x_msg_count ,
331: p_data => x_msg_data );
324: (p_count => x_msg_count ,
325: p_data => x_msg_data );
326: EXCEPTION
327: WHEN FND_API.G_EXC_ERROR THEN
328: x_return_status := FND_API.G_RET_STS_ERROR ;
329: FND_MSG_PUB.Count_And_Get
330: (p_count => x_msg_count ,
331: p_data => x_msg_data );
332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
328: x_return_status := FND_API.G_RET_STS_ERROR ;
329: FND_MSG_PUB.Count_And_Get
330: (p_count => x_msg_count ,
331: p_data => x_msg_data );
332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
334: FND_MSG_PUB.Count_And_Get
335: (p_count => x_msg_count ,
336: p_data => x_msg_data );
329: FND_MSG_PUB.Count_And_Get
330: (p_count => x_msg_count ,
331: p_data => x_msg_data );
332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
334: FND_MSG_PUB.Count_And_Get
335: (p_count => x_msg_count ,
336: p_data => x_msg_data );
337: WHEN OTHERS THEN
334: FND_MSG_PUB.Count_And_Get
335: (p_count => x_msg_count ,
336: p_data => x_msg_data );
337: WHEN OTHERS THEN
338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
339: IF FND_MSG_PUB.Check_Msg_Level
340: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
341: THEN
342: FND_MSG_PUB.Add_Exc_Msg
360: -- Usage :
361: --
362: -- Parameters :
363: -- IN : p_api_version NUMBER Require
364: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
365: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
366: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
367: -- OUT : x_return_status VARCHAR2(1)
368: -- x_msg_count NUMBER
361: --
362: -- Parameters :
363: -- IN : p_api_version NUMBER Require
364: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
365: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
366: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
367: -- OUT : x_return_status VARCHAR2(1)
368: -- x_msg_count NUMBER
369: -- x_msg_data VARCHAR2(2000)
362: -- Parameters :
363: -- IN : p_api_version NUMBER Require
364: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
365: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
366: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
367: -- OUT : x_return_status VARCHAR2(1)
368: -- x_msg_count NUMBER
369: -- x_msg_data VARCHAR2(2000)
370: --
376: -- End of comments
377:
378: PROCEDURE get_active_group
379: ( p_api_version IN NUMBER,
380: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
381: p_commit IN VARCHAR2 := FND_API.G_FALSE,
382: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
383: x_return_status OUT NOCOPY VARCHAR2,
384: x_msg_count OUT NOCOPY NUMBER,
377:
378: PROCEDURE get_active_group
379: ( p_api_version IN NUMBER,
380: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
381: p_commit IN VARCHAR2 := FND_API.G_FALSE,
382: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
383: x_return_status OUT NOCOPY VARCHAR2,
384: x_msg_count OUT NOCOPY NUMBER,
385: x_msg_data OUT NOCOPY VARCHAR2,
378: PROCEDURE get_active_group
379: ( p_api_version IN NUMBER,
380: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
381: p_commit IN VARCHAR2 := FND_API.G_FALSE,
382: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
383: x_return_status OUT NOCOPY VARCHAR2,
384: x_msg_count OUT NOCOPY NUMBER,
385: x_msg_data OUT NOCOPY VARCHAR2,
386: p_org_id IN NUMBER,
405:
406: l_counter NUMBER(15) := 0;
407: BEGIN
408: -- Standard call to check for call compatibility.
409: IF NOT FND_API.Compatible_API_Call
410: (l_api_version ,
411: p_api_version ,
412: l_api_name ,
413: G_PKG_NAME )
411: p_api_version ,
412: l_api_name ,
413: G_PKG_NAME )
414: THEN
415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
416: END IF;
417:
418: -- Initialize message list if p_init_msg_list is set to TRUE.
419: IF FND_API.to_Boolean( p_init_msg_list ) THEN
415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
416: END IF;
417:
418: -- Initialize message list if p_init_msg_list is set to TRUE.
419: IF FND_API.to_Boolean( p_init_msg_list ) THEN
420: FND_MSG_PUB.initialize;
421: END IF;
422:
423: -- Initialize API return status to success
420: FND_MSG_PUB.initialize;
421: END IF;
422:
423: -- Initialize API return status to success
424: x_return_status := FND_API.G_RET_STS_SUCCESS;
425:
426: -- API body
427:
428: FOR eachgroup IN groups_csr LOOP
441: FND_MSG_PUB.Count_And_Get
442: (p_count => x_msg_count ,
443: p_data => x_msg_data );
444: EXCEPTION
445: WHEN FND_API.G_EXC_ERROR THEN
446: x_return_status := FND_API.G_RET_STS_ERROR ;
447: FND_MSG_PUB.Count_And_Get
448: (p_count => x_msg_count ,
449: p_data => x_msg_data );
442: (p_count => x_msg_count ,
443: p_data => x_msg_data );
444: EXCEPTION
445: WHEN FND_API.G_EXC_ERROR THEN
446: x_return_status := FND_API.G_RET_STS_ERROR ;
447: FND_MSG_PUB.Count_And_Get
448: (p_count => x_msg_count ,
449: p_data => x_msg_data );
450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
446: x_return_status := FND_API.G_RET_STS_ERROR ;
447: FND_MSG_PUB.Count_And_Get
448: (p_count => x_msg_count ,
449: p_data => x_msg_data );
450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
452: FND_MSG_PUB.Count_And_Get
453: (p_count => x_msg_count ,
454: p_data => x_msg_data );
447: FND_MSG_PUB.Count_And_Get
448: (p_count => x_msg_count ,
449: p_data => x_msg_data );
450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
452: FND_MSG_PUB.Count_And_Get
453: (p_count => x_msg_count ,
454: p_data => x_msg_data );
455: WHEN OTHERS THEN
452: FND_MSG_PUB.Count_And_Get
453: (p_count => x_msg_count ,
454: p_data => x_msg_data );
455: WHEN OTHERS THEN
456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
457: IF FND_MSG_PUB.Check_Msg_Level
458: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
459: THEN
460: FND_MSG_PUB.Add_Exc_Msg
478: -- Pre-reqs : None
479: --
480: -- Parameters :
481: -- IN : p_api_version NUMBER Require
482: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
483: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
484: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
485: -- OUT : x_return_status VARCHAR2(1)
486: -- x_msg_count NUMBER
479: --
480: -- Parameters :
481: -- IN : p_api_version NUMBER Require
482: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
483: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
484: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
485: -- OUT : x_return_status VARCHAR2(1)
486: -- x_msg_count NUMBER
487: -- x_msg_data VARCHAR2(2000)
480: -- Parameters :
481: -- IN : p_api_version NUMBER Require
482: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
483: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
484: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
485: -- OUT : x_return_status VARCHAR2(1)
486: -- x_msg_count NUMBER
487: -- x_msg_data VARCHAR2(2000)
488: --
494: -- End of comments
495:
496: PROCEDURE get_ancestor_group
497: ( p_api_version IN NUMBER,
498: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
499: p_commit IN VARCHAR2 := FND_API.G_FALSE,
500: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
501: x_return_status OUT NOCOPY VARCHAR2,
502: x_msg_count OUT NOCOPY NUMBER,
495:
496: PROCEDURE get_ancestor_group
497: ( p_api_version IN NUMBER,
498: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
499: p_commit IN VARCHAR2 := FND_API.G_FALSE,
500: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
501: x_return_status OUT NOCOPY VARCHAR2,
502: x_msg_count OUT NOCOPY NUMBER,
503: x_msg_data OUT NOCOPY VARCHAR2,
496: PROCEDURE get_ancestor_group
497: ( p_api_version IN NUMBER,
498: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
499: p_commit IN VARCHAR2 := FND_API.G_FALSE,
500: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
501: x_return_status OUT NOCOPY VARCHAR2,
502: x_msg_count OUT NOCOPY NUMBER,
503: x_msg_data OUT NOCOPY VARCHAR2,
504: p_group IN group_rec_type,
520: AND (end_date_active IS NULL OR p_group.start_date <= end_date_active)
521: AND (p_group.end_date IS NULL OR p_group.end_date >= start_date_active);
522: BEGIN
523: -- Standard call to check for call compatibility.
524: IF NOT FND_API.Compatible_API_Call
525: (l_api_version ,
526: p_api_version ,
527: l_api_name ,
528: G_PKG_NAME )
526: p_api_version ,
527: l_api_name ,
528: G_PKG_NAME )
529: THEN
530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
531: END IF;
532:
533: -- Initialize message list if p_init_msg_list is set to TRUE.
534: IF FND_API.to_Boolean( p_init_msg_list ) THEN
530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
531: END IF;
532:
533: -- Initialize message list if p_init_msg_list is set to TRUE.
534: IF FND_API.to_Boolean( p_init_msg_list ) THEN
535: FND_MSG_PUB.initialize;
536: END IF;
537:
538: -- Initialize API return status to success
535: FND_MSG_PUB.initialize;
536: END IF;
537:
538: -- Initialize API return status to success
539: x_return_status := FND_API.G_RET_STS_SUCCESS;
540:
541: -- API body
542:
543: FOR eachgroup IN groups_csr LOOP
555: FND_MSG_PUB.Count_And_Get
556: (p_count => x_msg_count ,
557: p_data => x_msg_data );
558: EXCEPTION
559: WHEN FND_API.G_EXC_ERROR THEN
560: x_return_status := FND_API.G_RET_STS_ERROR ;
561: FND_MSG_PUB.Count_And_Get
562: (p_count => x_msg_count ,
563: p_data => x_msg_data );
556: (p_count => x_msg_count ,
557: p_data => x_msg_data );
558: EXCEPTION
559: WHEN FND_API.G_EXC_ERROR THEN
560: x_return_status := FND_API.G_RET_STS_ERROR ;
561: FND_MSG_PUB.Count_And_Get
562: (p_count => x_msg_count ,
563: p_data => x_msg_data );
564: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: x_return_status := FND_API.G_RET_STS_ERROR ;
561: FND_MSG_PUB.Count_And_Get
562: (p_count => x_msg_count ,
563: p_data => x_msg_data );
564: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
566: FND_MSG_PUB.Count_And_Get
567: (p_count => x_msg_count ,
568: p_data => x_msg_data );
561: FND_MSG_PUB.Count_And_Get
562: (p_count => x_msg_count ,
563: p_data => x_msg_data );
564: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
566: FND_MSG_PUB.Count_And_Get
567: (p_count => x_msg_count ,
568: p_data => x_msg_data );
569: WHEN OTHERS THEN
566: FND_MSG_PUB.Count_And_Get
567: (p_count => x_msg_count ,
568: p_data => x_msg_data );
569: WHEN OTHERS THEN
570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
571: IF FND_MSG_PUB.Check_Msg_Level
572: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
573: THEN
574: FND_MSG_PUB.Add_Exc_Msg
592: -- Pre-reqs : None
593: --
594: -- Parameters :
595: -- IN : p_api_version NUMBER Require
596: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
597: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
598: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
599: -- OUT : x_return_status VARCHAR2(1)
600: -- x_msg_count NUMBER
593: --
594: -- Parameters :
595: -- IN : p_api_version NUMBER Require
596: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
597: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
598: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
599: -- OUT : x_return_status VARCHAR2(1)
600: -- x_msg_count NUMBER
601: -- x_msg_data VARCHAR2(2000)
594: -- Parameters :
595: -- IN : p_api_version NUMBER Require
596: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
597: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
598: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
599: -- OUT : x_return_status VARCHAR2(1)
600: -- x_msg_count NUMBER
601: -- x_msg_data VARCHAR2(2000)
602: -- Version : Current version 1.0
607: -- End of comments
608:
609: PROCEDURE get_descendant_group
610: ( p_api_version IN NUMBER,
611: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
612: p_commit IN VARCHAR2 := FND_API.G_FALSE,
613: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
614: x_return_status OUT NOCOPY VARCHAR2,
615: x_msg_count OUT NOCOPY NUMBER,
608:
609: PROCEDURE get_descendant_group
610: ( p_api_version IN NUMBER,
611: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
612: p_commit IN VARCHAR2 := FND_API.G_FALSE,
613: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
614: x_return_status OUT NOCOPY VARCHAR2,
615: x_msg_count OUT NOCOPY NUMBER,
616: x_msg_data OUT NOCOPY VARCHAR2,
609: PROCEDURE get_descendant_group
610: ( p_api_version IN NUMBER,
611: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
612: p_commit IN VARCHAR2 := FND_API.G_FALSE,
613: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
614: x_return_status OUT NOCOPY VARCHAR2,
615: x_msg_count OUT NOCOPY NUMBER,
616: x_msg_data OUT NOCOPY VARCHAR2,
617: p_group IN group_rec_type,
633: AND (end_date_active IS NULL OR p_group.start_date <= end_date_active)
634: AND (p_group.end_date IS NULL OR p_group.end_date >= start_date_active);
635: BEGIN
636: -- Standard call to check for call compatibility.
637: IF NOT FND_API.Compatible_API_Call
638: (l_api_version ,
639: p_api_version ,
640: l_api_name ,
641: G_PKG_NAME )
639: p_api_version ,
640: l_api_name ,
641: G_PKG_NAME )
642: THEN
643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
644: END IF;
645:
646: -- Initialize message list if p_init_msg_list is set to TRUE.
647: IF FND_API.to_Boolean( p_init_msg_list ) THEN
643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
644: END IF;
645:
646: -- Initialize message list if p_init_msg_list is set to TRUE.
647: IF FND_API.to_Boolean( p_init_msg_list ) THEN
648: FND_MSG_PUB.initialize;
649: END IF;
650:
651: -- Initialize API return status to success
648: FND_MSG_PUB.initialize;
649: END IF;
650:
651: -- Initialize API return status to success
652: x_return_status := FND_API.G_RET_STS_SUCCESS;
653:
654: -- API body
655:
656: FOR eachgroup IN groups_csr LOOP
668: FND_MSG_PUB.Count_And_Get
669: (p_count => x_msg_count ,
670: p_data => x_msg_data );
671: EXCEPTION
672: WHEN FND_API.G_EXC_ERROR THEN
673: x_return_status := FND_API.G_RET_STS_ERROR ;
674: FND_MSG_PUB.Count_And_Get
675: (p_count => x_msg_count ,
676: p_data => x_msg_data );
669: (p_count => x_msg_count ,
670: p_data => x_msg_data );
671: EXCEPTION
672: WHEN FND_API.G_EXC_ERROR THEN
673: x_return_status := FND_API.G_RET_STS_ERROR ;
674: FND_MSG_PUB.Count_And_Get
675: (p_count => x_msg_count ,
676: p_data => x_msg_data );
677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
673: x_return_status := FND_API.G_RET_STS_ERROR ;
674: FND_MSG_PUB.Count_And_Get
675: (p_count => x_msg_count ,
676: p_data => x_msg_data );
677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
679: FND_MSG_PUB.Count_And_Get
680: (p_count => x_msg_count ,
681: p_data => x_msg_data );
674: FND_MSG_PUB.Count_And_Get
675: (p_count => x_msg_count ,
676: p_data => x_msg_data );
677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
679: FND_MSG_PUB.Count_And_Get
680: (p_count => x_msg_count ,
681: p_data => x_msg_data );
682: WHEN OTHERS THEN
679: FND_MSG_PUB.Count_And_Get
680: (p_count => x_msg_count ,
681: p_data => x_msg_data );
682: WHEN OTHERS THEN
683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
684: IF FND_MSG_PUB.Check_Msg_Level
685: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
686: THEN
687: FND_MSG_PUB.Add_Exc_Msg
705: -- Pre-reqs : None
706: --
707: -- Parameters :
708: -- IN : p_api_version NUMBER Require
709: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
710: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
711: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
712: -- OUT : x_return_status VARCHAR2(1)
713: -- x_msg_count NUMBER
706: --
707: -- Parameters :
708: -- IN : p_api_version NUMBER Require
709: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
710: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
711: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
712: -- OUT : x_return_status VARCHAR2(1)
713: -- x_msg_count NUMBER
714: -- x_msg_data VARCHAR2(2000)
707: -- Parameters :
708: -- IN : p_api_version NUMBER Require
709: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
710: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
711: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
712: -- OUT : x_return_status VARCHAR2(1)
713: -- x_msg_count NUMBER
714: -- x_msg_data VARCHAR2(2000)
715: --
721: -- End of comments
722:
723: PROCEDURE get_ancestor_salesrep
724: ( p_api_version IN NUMBER,
725: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
726: p_commit IN VARCHAR2 := FND_API.G_FALSE,
727: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
728: x_return_status OUT NOCOPY VARCHAR2,
729: x_msg_count OUT NOCOPY NUMBER,
722:
723: PROCEDURE get_ancestor_salesrep
724: ( p_api_version IN NUMBER,
725: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
726: p_commit IN VARCHAR2 := FND_API.G_FALSE,
727: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
728: x_return_status OUT NOCOPY VARCHAR2,
729: x_msg_count OUT NOCOPY NUMBER,
730: x_msg_data OUT NOCOPY VARCHAR2,
723: PROCEDURE get_ancestor_salesrep
724: ( p_api_version IN NUMBER,
725: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
726: p_commit IN VARCHAR2 := FND_API.G_FALSE,
727: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
728: x_return_status OUT NOCOPY VARCHAR2,
729: x_msg_count OUT NOCOPY NUMBER,
730: x_msg_data OUT NOCOPY VARCHAR2,
731: p_org_id IN NUMBER,
763: AND (end_date_active IS NULL OR p_start_date <= end_date_active)
764: AND (p_end_date IS NULL OR p_end_date >= start_date_active);
765: BEGIN
766: -- Standard call to check for call compatibility.
767: IF NOT FND_API.Compatible_API_Call
768: (l_api_version ,
769: p_api_version ,
770: l_api_name ,
771: G_PKG_NAME )
769: p_api_version ,
770: l_api_name ,
771: G_PKG_NAME )
772: THEN
773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
774: END IF;
775:
776: -- Initialize message list if p_init_msg_list is set to TRUE.
777: IF FND_API.to_Boolean( p_init_msg_list ) THEN
773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
774: END IF;
775:
776: -- Initialize message list if p_init_msg_list is set to TRUE.
777: IF FND_API.to_Boolean( p_init_msg_list ) THEN
778: FND_MSG_PUB.initialize;
779: END IF;
780:
781: -- Initialize API return status to success
778: FND_MSG_PUB.initialize;
779: END IF;
780:
781: -- Initialize API return status to success
782: x_return_status := FND_API.G_RET_STS_SUCCESS;
783:
784: -- API body
785:
786: l_counter := 0;
808: x_msg_data => x_msg_data,
809: p_group => l_group,
810: x_group => l_ancestor_group);
811:
812: IF x_return_status = FND_API.g_ret_sts_error THEN
813: RAISE FND_API.g_exc_error;
814: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
815: RAISE FND_API.g_exc_unexpected_error;
816: END IF;
809: p_group => l_group,
810: x_group => l_ancestor_group);
811:
812: IF x_return_status = FND_API.g_ret_sts_error THEN
813: RAISE FND_API.g_exc_error;
814: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
815: RAISE FND_API.g_exc_unexpected_error;
816: END IF;
817:
810: x_group => l_ancestor_group);
811:
812: IF x_return_status = FND_API.g_ret_sts_error THEN
813: RAISE FND_API.g_exc_error;
814: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
815: RAISE FND_API.g_exc_unexpected_error;
816: END IF;
817:
818: IF( l_ancestor_group.COUNT > 0) THEN
811:
812: IF x_return_status = FND_API.g_ret_sts_error THEN
813: RAISE FND_API.g_exc_error;
814: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
815: RAISE FND_API.g_exc_unexpected_error;
816: END IF;
817:
818: IF( l_ancestor_group.COUNT > 0) THEN
819: FOR eachgroup IN l_ancestor_group.first .. l_ancestor_group.last LOOP
836: FND_MSG_PUB.Count_And_Get
837: (p_count => x_msg_count ,
838: p_data => x_msg_data );
839: EXCEPTION
840: WHEN FND_API.G_EXC_ERROR THEN
841: x_return_status := FND_API.G_RET_STS_ERROR ;
842: FND_MSG_PUB.Count_And_Get
843: (p_count => x_msg_count ,
844: p_data => x_msg_data );
837: (p_count => x_msg_count ,
838: p_data => x_msg_data );
839: EXCEPTION
840: WHEN FND_API.G_EXC_ERROR THEN
841: x_return_status := FND_API.G_RET_STS_ERROR ;
842: FND_MSG_PUB.Count_And_Get
843: (p_count => x_msg_count ,
844: p_data => x_msg_data );
845: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
841: x_return_status := FND_API.G_RET_STS_ERROR ;
842: FND_MSG_PUB.Count_And_Get
843: (p_count => x_msg_count ,
844: p_data => x_msg_data );
845: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
847: FND_MSG_PUB.Count_And_Get
848: (p_count => x_msg_count ,
849: p_data => x_msg_data );
842: FND_MSG_PUB.Count_And_Get
843: (p_count => x_msg_count ,
844: p_data => x_msg_data );
845: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
847: FND_MSG_PUB.Count_And_Get
848: (p_count => x_msg_count ,
849: p_data => x_msg_data );
850: WHEN OTHERS THEN
847: FND_MSG_PUB.Count_And_Get
848: (p_count => x_msg_count ,
849: p_data => x_msg_data );
850: WHEN OTHERS THEN
851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
852: IF FND_MSG_PUB.Check_Msg_Level
853: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
854: THEN
855: FND_MSG_PUB.Add_Exc_Msg
873: -- Pre-reqs : None
874: --
875: -- Parameters :
876: -- IN : p_api_version NUMBER Require
877: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
878: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
879: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
880: -- OUT : x_return_status VARCHAR2(1)
881: -- x_msg_count NUMBER
874: --
875: -- Parameters :
876: -- IN : p_api_version NUMBER Require
877: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
878: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
879: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
880: -- OUT : x_return_status VARCHAR2(1)
881: -- x_msg_count NUMBER
882: -- x_msg_data VARCHAR2(2000)
875: -- Parameters :
876: -- IN : p_api_version NUMBER Require
877: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
878: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
879: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
880: -- OUT : x_return_status VARCHAR2(1)
881: -- x_msg_count NUMBER
882: -- x_msg_data VARCHAR2(2000)
883: --
889: -- End of comments
890:
891: PROCEDURE get_descendant_salesrep
892: ( p_api_version IN NUMBER,
893: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
894: p_commit IN VARCHAR2 := FND_API.G_FALSE,
895: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
896: x_return_status OUT NOCOPY VARCHAR2,
897: x_msg_count OUT NOCOPY NUMBER,
890:
891: PROCEDURE get_descendant_salesrep
892: ( p_api_version IN NUMBER,
893: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
894: p_commit IN VARCHAR2 := FND_API.G_FALSE,
895: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
896: x_return_status OUT NOCOPY VARCHAR2,
897: x_msg_count OUT NOCOPY NUMBER,
898: x_msg_data OUT NOCOPY VARCHAR2,
891: PROCEDURE get_descendant_salesrep
892: ( p_api_version IN NUMBER,
893: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
894: p_commit IN VARCHAR2 := FND_API.G_FALSE,
895: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
896: x_return_status OUT NOCOPY VARCHAR2,
897: x_msg_count OUT NOCOPY NUMBER,
898: x_msg_data OUT NOCOPY VARCHAR2,
899: p_org_id IN NUMBER,
928: AND (p_srp.end_date IS NULL OR start_date_active <= p_srp.end_date)
929: AND (end_date_active IS NULL OR end_date_active >= p_srp.start_date);
930: BEGIN
931: -- Standard call to check for call compatibility.
932: IF NOT FND_API.Compatible_API_Call
933: (l_api_version ,
934: p_api_version ,
935: l_api_name ,
936: G_PKG_NAME )
934: p_api_version ,
935: l_api_name ,
936: G_PKG_NAME )
937: THEN
938: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
939: END IF;
940:
941: -- Initialize message list if p_init_msg_list is set to TRUE.
942: IF FND_API.to_Boolean( p_init_msg_list ) THEN
938: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
939: END IF;
940:
941: -- Initialize message list if p_init_msg_list is set to TRUE.
942: IF FND_API.to_Boolean( p_init_msg_list ) THEN
943: FND_MSG_PUB.initialize;
944: END IF;
945:
946: -- Initialize API return status to success
943: FND_MSG_PUB.initialize;
944: END IF;
945:
946: -- Initialize API return status to success
947: x_return_status := FND_API.G_RET_STS_SUCCESS;
948: -- API body
949:
950: -- if p_srp.salesrep_id is a manager, get the other members of his own group
951: OPEN mgr_check;
978: x_msg_data => x_msg_data,
979: p_group => l_group,
980: x_group => l_descendant_group);
981:
982: IF x_return_status = FND_API.g_ret_sts_error THEN
983: RAISE FND_API.g_exc_error;
984: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
985: RAISE FND_API.g_exc_unexpected_error;
986: END IF;
979: p_group => l_group,
980: x_group => l_descendant_group);
981:
982: IF x_return_status = FND_API.g_ret_sts_error THEN
983: RAISE FND_API.g_exc_error;
984: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
985: RAISE FND_API.g_exc_unexpected_error;
986: END IF;
987:
980: x_group => l_descendant_group);
981:
982: IF x_return_status = FND_API.g_ret_sts_error THEN
983: RAISE FND_API.g_exc_error;
984: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
985: RAISE FND_API.g_exc_unexpected_error;
986: END IF;
987:
988: IF (l_descendant_group.COUNT > 0) THEN
981:
982: IF x_return_status = FND_API.g_ret_sts_error THEN
983: RAISE FND_API.g_exc_error;
984: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
985: RAISE FND_API.g_exc_unexpected_error;
986: END IF;
987:
988: IF (l_descendant_group.COUNT > 0) THEN
989: FOR eachgroup IN l_descendant_group.first .. l_descendant_group.last LOOP
1005: FND_MSG_PUB.Count_And_Get
1006: (p_count => x_msg_count ,
1007: p_data => x_msg_data );
1008: EXCEPTION
1009: WHEN FND_API.G_EXC_ERROR THEN
1010: x_return_status := FND_API.G_RET_STS_ERROR ;
1011: FND_MSG_PUB.Count_And_Get
1012: (p_count => x_msg_count ,
1013: p_data => x_msg_data );
1006: (p_count => x_msg_count ,
1007: p_data => x_msg_data );
1008: EXCEPTION
1009: WHEN FND_API.G_EXC_ERROR THEN
1010: x_return_status := FND_API.G_RET_STS_ERROR ;
1011: FND_MSG_PUB.Count_And_Get
1012: (p_count => x_msg_count ,
1013: p_data => x_msg_data );
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1010: x_return_status := FND_API.G_RET_STS_ERROR ;
1011: FND_MSG_PUB.Count_And_Get
1012: (p_count => x_msg_count ,
1013: p_data => x_msg_data );
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1016: FND_MSG_PUB.Count_And_Get
1017: (p_count => x_msg_count ,
1018: p_data => x_msg_data );
1011: FND_MSG_PUB.Count_And_Get
1012: (p_count => x_msg_count ,
1013: p_data => x_msg_data );
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1016: FND_MSG_PUB.Count_And_Get
1017: (p_count => x_msg_count ,
1018: p_data => x_msg_data );
1019: WHEN OTHERS THEN
1016: FND_MSG_PUB.Count_And_Get
1017: (p_count => x_msg_count ,
1018: p_data => x_msg_data );
1019: WHEN OTHERS THEN
1020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1021: IF FND_MSG_PUB.Check_Msg_Level
1022: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1023: THEN
1024: FND_MSG_PUB.Add_Exc_Msg
1042: -- Pre-reqs : None
1043: --
1044: -- Parameters :
1045: -- IN : p_api_version NUMBER Require
1046: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
1047: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
1048: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
1049: -- OUT : x_return_status VARCHAR2(1)
1050: -- x_msg_count NUMBER
1043: --
1044: -- Parameters :
1045: -- IN : p_api_version NUMBER Require
1046: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
1047: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
1048: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
1049: -- OUT : x_return_status VARCHAR2(1)
1050: -- x_msg_count NUMBER
1051: -- x_msg_data VARCHAR2(2000)
1044: -- Parameters :
1045: -- IN : p_api_version NUMBER Require
1046: -- p_init_msg_list VARCHAR2 Optional (FND_API.G_FALSE)
1047: -- p_commit VARCHAR2 Optional (FND_API.G_FALSE)
1048: -- p_validation_level NUMBER Optional (FND_API.G_VALID_LEVEL_FULL)
1049: -- OUT : x_return_status VARCHAR2(1)
1050: -- x_msg_count NUMBER
1051: -- x_msg_data VARCHAR2(2000)
1052: --
1058: -- End of comments
1059:
1060: PROCEDURE get_descendant_salesrep
1061: ( p_api_version IN NUMBER,
1062: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1063: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1064: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1065: x_return_status OUT NOCOPY VARCHAR2,
1066: x_msg_count OUT NOCOPY NUMBER,
1059:
1060: PROCEDURE get_descendant_salesrep
1061: ( p_api_version IN NUMBER,
1062: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1063: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1064: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1065: x_return_status OUT NOCOPY VARCHAR2,
1066: x_msg_count OUT NOCOPY NUMBER,
1067: x_msg_data OUT NOCOPY VARCHAR2,
1060: PROCEDURE get_descendant_salesrep
1061: ( p_api_version IN NUMBER,
1062: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1063: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1064: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1065: x_return_status OUT NOCOPY VARCHAR2,
1066: x_msg_count OUT NOCOPY NUMBER,
1067: x_msg_data OUT NOCOPY VARCHAR2,
1068: p_org_id IN NUMBER,
1104: AND (p_srp.end_date IS NULL OR srp.start_date_active <= p_srp.end_date)
1105: AND (srp.end_date_active IS NULL OR srp.end_date_active >= p_srp.start_date);
1106: BEGIN
1107: -- Standard call to check for call compatibility.
1108: IF NOT FND_API.Compatible_API_Call
1109: (l_api_version ,
1110: p_api_version ,
1111: l_api_name ,
1112: G_PKG_NAME )
1110: p_api_version ,
1111: l_api_name ,
1112: G_PKG_NAME )
1113: THEN
1114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1115: END IF;
1116:
1117: -- Initialize message list if p_init_msg_list is set to TRUE.
1118: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1115: END IF;
1116:
1117: -- Initialize message list if p_init_msg_list is set to TRUE.
1118: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1119: FND_MSG_PUB.initialize;
1120: END IF;
1121:
1122: -- Initialize API return status to success
1119: FND_MSG_PUB.initialize;
1120: END IF;
1121:
1122: -- Initialize API return status to success
1123: x_return_status := FND_API.G_RET_STS_SUCCESS;
1124: -- API body
1125:
1126: l_counter := 0;
1127:
1156: FND_MSG_PUB.Count_And_Get
1157: (p_count => x_msg_count ,
1158: p_data => x_msg_data );
1159: EXCEPTION
1160: WHEN FND_API.G_EXC_ERROR THEN
1161: x_return_status := FND_API.G_RET_STS_ERROR ;
1162: FND_MSG_PUB.Count_And_Get
1163: (p_count => x_msg_count ,
1164: p_data => x_msg_data );
1157: (p_count => x_msg_count ,
1158: p_data => x_msg_data );
1159: EXCEPTION
1160: WHEN FND_API.G_EXC_ERROR THEN
1161: x_return_status := FND_API.G_RET_STS_ERROR ;
1162: FND_MSG_PUB.Count_And_Get
1163: (p_count => x_msg_count ,
1164: p_data => x_msg_data );
1165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1161: x_return_status := FND_API.G_RET_STS_ERROR ;
1162: FND_MSG_PUB.Count_And_Get
1163: (p_count => x_msg_count ,
1164: p_data => x_msg_data );
1165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1167: FND_MSG_PUB.Count_And_Get
1168: (p_count => x_msg_count ,
1169: p_data => x_msg_data );
1162: FND_MSG_PUB.Count_And_Get
1163: (p_count => x_msg_count ,
1164: p_data => x_msg_data );
1165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1167: FND_MSG_PUB.Count_And_Get
1168: (p_count => x_msg_count ,
1169: p_data => x_msg_data );
1170: WHEN OTHERS THEN
1167: FND_MSG_PUB.Count_And_Get
1168: (p_count => x_msg_count ,
1169: p_data => x_msg_data );
1170: WHEN OTHERS THEN
1171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1172: IF FND_MSG_PUB.Check_Msg_Level
1173: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1174: THEN
1175: FND_MSG_PUB.Add_Exc_Msg