34: --
35: -- Parameters :
36: -- IN : p_api_version IN NUMBER Required
37: -- p_init_msg_list IN VARCHAR2 Optional
38: -- Default = FND_API.G_FALSE
39: -- p_commit IN VARCHAR2 Optional
40: -- Default = FND_API.G_FALSE
41: -- p_validation_level IN NUMBER Optional
42: -- Default = FND_API.G_VALID_LEVEL_FULL
36: -- IN : p_api_version IN NUMBER Required
37: -- p_init_msg_list IN VARCHAR2 Optional
38: -- Default = FND_API.G_FALSE
39: -- p_commit IN VARCHAR2 Optional
40: -- Default = FND_API.G_FALSE
41: -- p_validation_level IN NUMBER Optional
42: -- Default = FND_API.G_VALID_LEVEL_FULL
43: -- p_group IN input_group_type Required
44: -- OUT : x_return_status OUT VARCHAR2(1)
38: -- Default = FND_API.G_FALSE
39: -- p_commit IN VARCHAR2 Optional
40: -- Default = FND_API.G_FALSE
41: -- p_validation_level IN NUMBER Optional
42: -- Default = FND_API.G_VALID_LEVEL_FULL
43: -- p_group IN input_group_type Required
44: -- OUT : x_return_status OUT VARCHAR2(1)
45: -- x_msg_count OUT NUMBER
46: -- x_msg_data OUT VARCHAR2(2000)
53: -- End of comments
54:
55: PROCEDURE get_ancestor_group
56: ( p_api_version IN NUMBER,
57: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
58: p_commit IN VARCHAR2 := FND_API.G_FALSE,
59: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
60: x_return_status OUT NOCOPY VARCHAR2,
61: x_msg_count OUT NOCOPY NUMBER,
54:
55: PROCEDURE get_ancestor_group
56: ( p_api_version IN NUMBER,
57: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
58: p_commit IN VARCHAR2 := FND_API.G_FALSE,
59: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
60: x_return_status OUT NOCOPY VARCHAR2,
61: x_msg_count OUT NOCOPY NUMBER,
62: x_msg_data OUT NOCOPY VARCHAR2,
55: PROCEDURE get_ancestor_group
56: ( p_api_version IN NUMBER,
57: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
58: p_commit IN VARCHAR2 := FND_API.G_FALSE,
59: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
60: x_return_status OUT NOCOPY VARCHAR2,
61: x_msg_count OUT NOCOPY NUMBER,
62: x_msg_data OUT NOCOPY VARCHAR2,
63: p_group IN input_group_type,
80: -- Standard Start of API savepoint
81: SAVEPOINT get_ancestor_group;
82:
83: -- Standard call to check for call compatibility.
84: IF NOT FND_API.Compatible_API_Call
85: (l_api_version ,
86: p_api_version ,
87: l_api_name ,
88: G_PKG_NAME )
86: p_api_version ,
87: l_api_name ,
88: G_PKG_NAME )
89: THEN
90: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
91: END IF;
92:
93: -- Initialize message list if p_init_msg_list is set to TRUE.
94: IF FND_API.to_Boolean( p_init_msg_list ) THEN
90: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
91: END IF;
92:
93: -- Initialize message list if p_init_msg_list is set to TRUE.
94: IF FND_API.to_Boolean( p_init_msg_list ) THEN
95: FND_MSG_PUB.initialize;
96: END IF;
97:
98: -- Initialize API return status to success
95: FND_MSG_PUB.initialize;
96: END IF;
97:
98: -- Initialize API return status to success
99: x_return_status := FND_API.G_RET_STS_SUCCESS;
100: -- API body
101: l_counter := x_group.count;
102: FOR eachgroup IN groups_csr LOOP
103:
129:
130: -- End of API body.
131:
132: -- Standard check of p_commit.
133: IF FND_API.To_Boolean( p_commit ) THEN
134: COMMIT WORK;
135: END IF;
136:
137: -- Standard call to get message count and if count is 1, get message info.
139: (p_count => x_msg_count ,
140: p_data => x_msg_data );
141:
142: EXCEPTION
143: WHEN FND_API.G_EXC_ERROR THEN
144: ROLLBACK TO get_ancestor_group;
145: x_return_status := FND_API.G_RET_STS_ERROR ;
146: FND_MSG_PUB.Count_And_Get
147: (p_count => x_msg_count ,
141:
142: EXCEPTION
143: WHEN FND_API.G_EXC_ERROR THEN
144: ROLLBACK TO get_ancestor_group;
145: x_return_status := FND_API.G_RET_STS_ERROR ;
146: FND_MSG_PUB.Count_And_Get
147: (p_count => x_msg_count ,
148: p_data => x_msg_data );
149:
146: FND_MSG_PUB.Count_And_Get
147: (p_count => x_msg_count ,
148: p_data => x_msg_data );
149:
150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
151: ROLLBACK TO get_ancestor_group;
152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
153: FND_MSG_PUB.Count_And_Get
154: (p_count => x_msg_count ,
148: p_data => x_msg_data );
149:
150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
151: ROLLBACK TO get_ancestor_group;
152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
153: FND_MSG_PUB.Count_And_Get
154: (p_count => x_msg_count ,
155: p_data => x_msg_data );
156:
155: p_data => x_msg_data );
156:
157: WHEN OTHERS THEN
158: ROLLBACK TO get_ancestor_group;
159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
160: IF FND_MSG_PUB.Check_Msg_Level
161: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
162: THEN
163: FND_MSG_PUB.Add_Exc_Msg
183: --
184: -- Parameters :
185: -- IN : p_api_version IN NUMBER Required
186: -- p_init_msg_list IN VARCHAR2 Optional
187: -- Default = FND_API.G_FALSE
188: -- p_commit IN VARCHAR2 Optional
189: -- Default = FND_API.G_FALSE
190: -- p_validation_level IN NUMBER Optional
191: -- Default = FND_API.G_VALID_LEVEL_FULL
185: -- IN : p_api_version IN NUMBER Required
186: -- p_init_msg_list IN VARCHAR2 Optional
187: -- Default = FND_API.G_FALSE
188: -- p_commit IN VARCHAR2 Optional
189: -- Default = FND_API.G_FALSE
190: -- p_validation_level IN NUMBER Optional
191: -- Default = FND_API.G_VALID_LEVEL_FULL
192: -- p_group IN input_group_type Required
193: -- OUT : x_return_status OUT VARCHAR2(1)
187: -- Default = FND_API.G_FALSE
188: -- p_commit IN VARCHAR2 Optional
189: -- Default = FND_API.G_FALSE
190: -- p_validation_level IN NUMBER Optional
191: -- Default = FND_API.G_VALID_LEVEL_FULL
192: -- p_group IN input_group_type Required
193: -- OUT : x_return_status OUT VARCHAR2(1)
194: -- x_msg_count OUT NUMBER
195: -- x_msg_data OUT VARCHAR2(2000)
202: -- End of comments
203:
204: PROCEDURE get_descendant_group
205: ( p_api_version IN NUMBER,
206: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
207: p_commit IN VARCHAR2 := FND_API.G_FALSE,
208: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
209: x_return_status OUT NOCOPY VARCHAR2,
210: x_msg_count OUT NOCOPY NUMBER,
203:
204: PROCEDURE get_descendant_group
205: ( p_api_version IN NUMBER,
206: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
207: p_commit IN VARCHAR2 := FND_API.G_FALSE,
208: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
209: x_return_status OUT NOCOPY VARCHAR2,
210: x_msg_count OUT NOCOPY NUMBER,
211: x_msg_data OUT NOCOPY VARCHAR2,
204: PROCEDURE get_descendant_group
205: ( p_api_version IN NUMBER,
206: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
207: p_commit IN VARCHAR2 := FND_API.G_FALSE,
208: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
209: x_return_status OUT NOCOPY VARCHAR2,
210: x_msg_count OUT NOCOPY NUMBER,
211: x_msg_data OUT NOCOPY VARCHAR2,
212: p_group IN input_group_type,
230: -- Standard Start of API savepoint
231: SAVEPOINT get_descendant_group;
232:
233: -- Standard call to check for call compatibility.
234: IF NOT FND_API.Compatible_API_Call
235: (l_api_version ,
236: p_api_version ,
237: l_api_name ,
238: G_PKG_NAME )
236: p_api_version ,
237: l_api_name ,
238: G_PKG_NAME )
239: THEN
240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
241: END IF;
242:
243: -- Initialize message list if p_init_msg_list is set to TRUE.
244: IF FND_API.to_Boolean( p_init_msg_list ) THEN
240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
241: END IF;
242:
243: -- Initialize message list if p_init_msg_list is set to TRUE.
244: IF FND_API.to_Boolean( p_init_msg_list ) THEN
245: FND_MSG_PUB.initialize;
246: END IF;
247:
248: -- Initialize API return status to success
245: FND_MSG_PUB.initialize;
246: END IF;
247:
248: -- Initialize API return status to success
249: x_return_status := FND_API.G_RET_STS_SUCCESS;
250: -- API body
251: l_counter := x_group.count;
252: FOR eachgroup IN groups_csr LOOP
253:
279:
280: -- End of API body.
281:
282: -- Standard check of p_commit.
283: IF FND_API.To_Boolean( p_commit ) THEN
284: COMMIT WORK;
285: END IF;
286:
287: -- Standard call to get message count and if count is 1, get message info.
289: (p_count => x_msg_count ,
290: p_data => x_msg_data );
291:
292: EXCEPTION
293: WHEN FND_API.G_EXC_ERROR THEN
294: ROLLBACK TO get_descendant_group;
295: x_return_status := FND_API.G_RET_STS_ERROR ;
296: FND_MSG_PUB.Count_And_Get
297: (p_count => x_msg_count ,
291:
292: EXCEPTION
293: WHEN FND_API.G_EXC_ERROR THEN
294: ROLLBACK TO get_descendant_group;
295: x_return_status := FND_API.G_RET_STS_ERROR ;
296: FND_MSG_PUB.Count_And_Get
297: (p_count => x_msg_count ,
298: p_data => x_msg_data );
299:
296: FND_MSG_PUB.Count_And_Get
297: (p_count => x_msg_count ,
298: p_data => x_msg_data );
299:
300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
301: ROLLBACK TO get_descendant_group;
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
303: FND_MSG_PUB.Count_And_Get
304: (p_count => x_msg_count ,
298: p_data => x_msg_data );
299:
300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
301: ROLLBACK TO get_descendant_group;
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
303: FND_MSG_PUB.Count_And_Get
304: (p_count => x_msg_count ,
305: p_data => x_msg_data );
306:
305: p_data => x_msg_data );
306:
307: WHEN OTHERS THEN
308: ROLLBACK TO get_descendant_group;
309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
310: IF FND_MSG_PUB.Check_Msg_Level
311: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
312: THEN
313: FND_MSG_PUB.Add_Exc_Msg
329: -- Pre-reqs : None.
330: -- Parameters :
331: -- IN : p_api_version IN NUMBER Required
332: -- p_init_msg_list IN VARCHAR2 Optional
333: -- Default = FND_API.G_FALSE
334: -- p_commit IN VARCHAR2 Optional
335: -- Default = FND_API.G_FALSE
336: -- p_validation_level IN NUMBER Optional
337: -- Default = FND_API.G_VALID_LEVEL_FULL
331: -- IN : p_api_version IN NUMBER Required
332: -- p_init_msg_list IN VARCHAR2 Optional
333: -- Default = FND_API.G_FALSE
334: -- p_commit IN VARCHAR2 Optional
335: -- Default = FND_API.G_FALSE
336: -- p_validation_level IN NUMBER Optional
337: -- Default = FND_API.G_VALID_LEVEL_FULL
338: -- p_salesrep_id IN NUMBER Required
339: -- p_comp_group_id IN NUMBER Required
333: -- Default = FND_API.G_FALSE
334: -- p_commit IN VARCHAR2 Optional
335: -- Default = FND_API.G_FALSE
336: -- p_validation_level IN NUMBER Optional
337: -- Default = FND_API.G_VALID_LEVEL_FULL
338: -- p_salesrep_id IN NUMBER Required
339: -- p_comp_group_id IN NUMBER Required
340: -- p_effective_date IN DATE Required
341: -- OUT : x_return_status OUT VARCHAR2(1)
350: --
351: -- End of comments
352: PROCEDURE Get_Managers
353: (p_api_version IN NUMBER ,
354: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
355: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
356: p_validation_level IN NUMBER :=
357: FND_API.G_VALID_LEVEL_FULL ,
358: p_salesrep_id IN number ,
351: -- End of comments
352: PROCEDURE Get_Managers
353: (p_api_version IN NUMBER ,
354: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
355: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
356: p_validation_level IN NUMBER :=
357: FND_API.G_VALID_LEVEL_FULL ,
358: p_salesrep_id IN number ,
359: p_comp_group_id IN number ,
353: (p_api_version IN NUMBER ,
354: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
355: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
356: p_validation_level IN NUMBER :=
357: FND_API.G_VALID_LEVEL_FULL ,
358: p_salesrep_id IN number ,
359: p_comp_group_id IN number ,
360: p_effective_date IN date ,
361: x_return_status OUT NOCOPY VARCHAR2 ,
404: BEGIN
405: -- Standard Start of API savepoint
406: SAVEPOINT get_managers_pvt;
407: -- Standard call to check for call compatibility.
408: IF NOT FND_API.Compatible_API_Call
409: (l_api_version ,
410: p_api_version ,
411: l_api_name ,
412: G_PKG_NAME )
410: p_api_version ,
411: l_api_name ,
412: G_PKG_NAME )
413: THEN
414: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
415: END IF;
416: -- Initialize message list if p_init_msg_list is set to TRUE.
417: IF FND_API.to_Boolean( p_init_msg_list ) THEN
418: FND_MSG_PUB.initialize;
413: THEN
414: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
415: END IF;
416: -- Initialize message list if p_init_msg_list is set to TRUE.
417: IF FND_API.to_Boolean( p_init_msg_list ) THEN
418: FND_MSG_PUB.initialize;
419: END IF;
420: -- Initialize API return status to success
421: x_return_status := FND_API.G_RET_STS_SUCCESS;
417: IF FND_API.to_Boolean( p_init_msg_list ) THEN
418: FND_MSG_PUB.initialize;
419: END IF;
420: -- Initialize API return status to success
421: x_return_status := FND_API.G_RET_STS_SUCCESS;
422: -- API body
423: -- select the group_member_ids for this srp
424: FOR eachrow in l_srp_role_id_csr LOOP
425: -- filter the rows that contain the effective date
483: END IF;
484:
485: -- End of API body.
486: -- Standard check of p_commit.
487: IF FND_API.To_Boolean( p_commit ) THEN
488: COMMIT WORK;
489: END IF;
490: -- Standard call to get message count and if count is 1, get message info.
491: FND_MSG_PUB.Count_And_Get
490: -- Standard call to get message count and if count is 1, get message info.
491: FND_MSG_PUB.Count_And_Get
492: (p_count => x_msg_count ,
493: p_data => x_msg_data ,
494: p_encoded => FND_API.G_FALSE );
495: EXCEPTION
496: WHEN FND_API.G_EXC_ERROR THEN
497: ROLLBACK TO get_managers_pvt;
498: x_return_status := FND_API.G_RET_STS_ERROR ;
492: (p_count => x_msg_count ,
493: p_data => x_msg_data ,
494: p_encoded => FND_API.G_FALSE );
495: EXCEPTION
496: WHEN FND_API.G_EXC_ERROR THEN
497: ROLLBACK TO get_managers_pvt;
498: x_return_status := FND_API.G_RET_STS_ERROR ;
499: FND_MSG_PUB.Count_And_Get
500: (p_count => x_msg_count ,
494: p_encoded => FND_API.G_FALSE );
495: EXCEPTION
496: WHEN FND_API.G_EXC_ERROR THEN
497: ROLLBACK TO get_managers_pvt;
498: x_return_status := FND_API.G_RET_STS_ERROR ;
499: FND_MSG_PUB.Count_And_Get
500: (p_count => x_msg_count ,
501: p_data => x_msg_data ,
502: p_encoded => FND_API.G_FALSE );
498: x_return_status := FND_API.G_RET_STS_ERROR ;
499: FND_MSG_PUB.Count_And_Get
500: (p_count => x_msg_count ,
501: p_data => x_msg_data ,
502: p_encoded => FND_API.G_FALSE );
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: ROLLBACK TO get_managers_pvt;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
506: FND_MSG_PUB.Count_And_Get
499: FND_MSG_PUB.Count_And_Get
500: (p_count => x_msg_count ,
501: p_data => x_msg_data ,
502: p_encoded => FND_API.G_FALSE );
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: ROLLBACK TO get_managers_pvt;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
506: FND_MSG_PUB.Count_And_Get
507: (p_count => x_msg_count ,
501: p_data => x_msg_data ,
502: p_encoded => FND_API.G_FALSE );
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: ROLLBACK TO get_managers_pvt;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
506: FND_MSG_PUB.Count_And_Get
507: (p_count => x_msg_count ,
508: p_data => x_msg_data ,
509: p_encoded => FND_API.G_FALSE );
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
506: FND_MSG_PUB.Count_And_Get
507: (p_count => x_msg_count ,
508: p_data => x_msg_data ,
509: p_encoded => FND_API.G_FALSE );
510: WHEN OTHERS THEN
511: ROLLBACK TO get_managers_pvt;
512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
513: IF FND_MSG_PUB.Check_Msg_Level
508: p_data => x_msg_data ,
509: p_encoded => FND_API.G_FALSE );
510: WHEN OTHERS THEN
511: ROLLBACK TO get_managers_pvt;
512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
513: IF FND_MSG_PUB.Check_Msg_Level
514: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
515: THEN
516: FND_MSG_PUB.Add_Exc_Msg
519: END IF;
520: FND_MSG_PUB.Count_And_Get
521: (p_count => x_msg_count ,
522: p_data => x_msg_data ,
523: p_encoded => FND_API.G_FALSE );
524: END Get_Managers;
525: --}}}
526:
527: --{{{ get_salesreps
532: -- Pre-reqs : None.
533: -- Parameters :
534: -- IN : p_api_version IN NUMBER Required
535: -- p_init_msg_list IN VARCHAR2 Optional
536: -- Default = FND_API.G_FALSE
537: -- p_commit IN VARCHAR2 Optional
538: -- Default = FND_API.G_FALSE
539: -- p_validation_level IN NUMBER Optional
540: -- Default = FND_API.G_VALID_LEVEL_FULL
534: -- IN : p_api_version IN NUMBER Required
535: -- p_init_msg_list IN VARCHAR2 Optional
536: -- Default = FND_API.G_FALSE
537: -- p_commit IN VARCHAR2 Optional
538: -- Default = FND_API.G_FALSE
539: -- p_validation_level IN NUMBER Optional
540: -- Default = FND_API.G_VALID_LEVEL_FULL
541: -- p_salesrep_id IN NUMBER Required
542: -- p_comp_group_id IN NUMBER Required
536: -- Default = FND_API.G_FALSE
537: -- p_commit IN VARCHAR2 Optional
538: -- Default = FND_API.G_FALSE
539: -- p_validation_level IN NUMBER Optional
540: -- Default = FND_API.G_VALID_LEVEL_FULL
541: -- p_salesrep_id IN NUMBER Required
542: -- p_comp_group_id IN NUMBER Required
543: -- p_effective_date IN DATE Required
544: -- OUT : x_return_status OUT VARCHAR2(1)
553: --
554: -- End of comments
555: PROCEDURE Get_Salesreps
556: (p_api_version IN NUMBER ,
557: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
558: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
559: p_validation_level IN NUMBER :=
560: FND_API.G_VALID_LEVEL_FULL ,
561: p_salesrep_id IN number ,
554: -- End of comments
555: PROCEDURE Get_Salesreps
556: (p_api_version IN NUMBER ,
557: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
558: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
559: p_validation_level IN NUMBER :=
560: FND_API.G_VALID_LEVEL_FULL ,
561: p_salesrep_id IN number ,
562: p_comp_group_id IN number ,
556: (p_api_version IN NUMBER ,
557: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
558: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
559: p_validation_level IN NUMBER :=
560: FND_API.G_VALID_LEVEL_FULL ,
561: p_salesrep_id IN number ,
562: p_comp_group_id IN number ,
563: p_effective_date IN date ,
564: p_return_current IN varchar2 := 'N' ,
589: BEGIN
590: -- Standard Start of API savepoint
591: SAVEPOINT get_salesreps_pvt;
592: -- Standard call to check for call compatibility.
593: IF NOT FND_API.Compatible_API_Call
594: (l_api_version ,
595: p_api_version ,
596: l_api_name ,
597: G_PKG_NAME )
595: p_api_version ,
596: l_api_name ,
597: G_PKG_NAME )
598: THEN
599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
600: END IF;
601: -- Initialize message list if p_init_msg_list is set to TRUE.
602: IF FND_API.to_Boolean( p_init_msg_list ) THEN
603: FND_MSG_PUB.initialize;
598: THEN
599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
600: END IF;
601: -- Initialize message list if p_init_msg_list is set to TRUE.
602: IF FND_API.to_Boolean( p_init_msg_list ) THEN
603: FND_MSG_PUB.initialize;
604: END IF;
605: -- Initialize API return status to success
606: x_return_status := FND_API.G_RET_STS_SUCCESS;
602: IF FND_API.to_Boolean( p_init_msg_list ) THEN
603: FND_MSG_PUB.initialize;
604: END IF;
605: -- Initialize API return status to success
606: x_return_status := FND_API.G_RET_STS_SUCCESS;
607: -- API body
608: -- select the group_member_ids for this srp
609: FOR eachrow in l_mgr_role_id_csr LOOP
610: -- filter the rows that contain the effective date
639: END LOOP;
640:
641: -- End of API body.
642: -- Standard check of p_commit.
643: IF FND_API.To_Boolean( p_commit ) THEN
644: COMMIT WORK;
645: END IF;
646: -- Standard call to get message count and if count is 1, get message info.
647: FND_MSG_PUB.Count_And_Get
646: -- Standard call to get message count and if count is 1, get message info.
647: FND_MSG_PUB.Count_And_Get
648: (p_count => x_msg_count ,
649: p_data => x_msg_data ,
650: p_encoded => FND_API.G_FALSE );
651: EXCEPTION
652: WHEN FND_API.G_EXC_ERROR THEN
653: ROLLBACK TO get_salesreps_pvt;
654: x_return_status := FND_API.G_RET_STS_ERROR ;
648: (p_count => x_msg_count ,
649: p_data => x_msg_data ,
650: p_encoded => FND_API.G_FALSE );
651: EXCEPTION
652: WHEN FND_API.G_EXC_ERROR THEN
653: ROLLBACK TO get_salesreps_pvt;
654: x_return_status := FND_API.G_RET_STS_ERROR ;
655: FND_MSG_PUB.Count_And_Get
656: (p_count => x_msg_count ,
650: p_encoded => FND_API.G_FALSE );
651: EXCEPTION
652: WHEN FND_API.G_EXC_ERROR THEN
653: ROLLBACK TO get_salesreps_pvt;
654: x_return_status := FND_API.G_RET_STS_ERROR ;
655: FND_MSG_PUB.Count_And_Get
656: (p_count => x_msg_count ,
657: p_data => x_msg_data ,
658: p_encoded => FND_API.G_FALSE );
654: x_return_status := FND_API.G_RET_STS_ERROR ;
655: FND_MSG_PUB.Count_And_Get
656: (p_count => x_msg_count ,
657: p_data => x_msg_data ,
658: p_encoded => FND_API.G_FALSE );
659: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
660: ROLLBACK TO get_salesreps_pvt;
661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
662: FND_MSG_PUB.Count_And_Get
655: FND_MSG_PUB.Count_And_Get
656: (p_count => x_msg_count ,
657: p_data => x_msg_data ,
658: p_encoded => FND_API.G_FALSE );
659: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
660: ROLLBACK TO get_salesreps_pvt;
661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
662: FND_MSG_PUB.Count_And_Get
663: (p_count => x_msg_count ,
657: p_data => x_msg_data ,
658: p_encoded => FND_API.G_FALSE );
659: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
660: ROLLBACK TO get_salesreps_pvt;
661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
662: FND_MSG_PUB.Count_And_Get
663: (p_count => x_msg_count ,
664: p_data => x_msg_data ,
665: p_encoded => FND_API.G_FALSE );
661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
662: FND_MSG_PUB.Count_And_Get
663: (p_count => x_msg_count ,
664: p_data => x_msg_data ,
665: p_encoded => FND_API.G_FALSE );
666: WHEN OTHERS THEN
667: ROLLBACK TO get_salesreps_pvt;
668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
669: IF FND_MSG_PUB.Check_Msg_Level
664: p_data => x_msg_data ,
665: p_encoded => FND_API.G_FALSE );
666: WHEN OTHERS THEN
667: ROLLBACK TO get_salesreps_pvt;
668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
669: IF FND_MSG_PUB.Check_Msg_Level
670: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
671: THEN
672: FND_MSG_PUB.Add_Exc_Msg
675: END IF;
676: FND_MSG_PUB.Count_And_Get
677: (p_count => x_msg_count ,
678: p_data => x_msg_data ,
679: p_encoded => FND_API.G_FALSE );
680: END Get_Salesreps;
681: --}}}
682:
683: --{{{ get_ancestor_salesreps
689: -- Pre-reqs : None.
690: -- Parameters :
691: -- IN : p_api_version IN NUMBER Required
692: -- p_init_msg_list IN VARCHAR2 Optional
693: -- Default = FND_API.G_FALSE
694: -- p_commit IN VARCHAR2 Optional
695: -- Default = FND_API.G_FALSE
696: -- p_validation_level IN NUMBER Optional
697: -- Default = FND_API.G_VALID_LEVEL_FULL
691: -- IN : p_api_version IN NUMBER Required
692: -- p_init_msg_list IN VARCHAR2 Optional
693: -- Default = FND_API.G_FALSE
694: -- p_commit IN VARCHAR2 Optional
695: -- Default = FND_API.G_FALSE
696: -- p_validation_level IN NUMBER Optional
697: -- Default = FND_API.G_VALID_LEVEL_FULL
698: -- p_srp IN srp_group_rec_type Required
699: -- p_effective_date IN DATE Required
693: -- Default = FND_API.G_FALSE
694: -- p_commit IN VARCHAR2 Optional
695: -- Default = FND_API.G_FALSE
696: -- p_validation_level IN NUMBER Optional
697: -- Default = FND_API.G_VALID_LEVEL_FULL
698: -- p_srp IN srp_group_rec_type Required
699: -- p_effective_date IN DATE Required
700: -- OUT : x_return_status OUT VARCHAR2(1)
701: -- x_msg_count OUT NUMBER
709: --
710: -- End of comments
711: PROCEDURE Get_Ancestor_Salesreps
712: (p_api_version IN NUMBER,
713: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
714: p_commit IN VARCHAR2 := FND_API.G_FALSE,
715: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
716: p_srp IN srp_group_rec_type,
717: x_return_status OUT NOCOPY VARCHAR2,
710: -- End of comments
711: PROCEDURE Get_Ancestor_Salesreps
712: (p_api_version IN NUMBER,
713: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
714: p_commit IN VARCHAR2 := FND_API.G_FALSE,
715: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
716: p_srp IN srp_group_rec_type,
717: x_return_status OUT NOCOPY VARCHAR2,
718: x_msg_count OUT NOCOPY NUMBER,
711: PROCEDURE Get_Ancestor_Salesreps
712: (p_api_version IN NUMBER,
713: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
714: p_commit IN VARCHAR2 := FND_API.G_FALSE,
715: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
716: p_srp IN srp_group_rec_type,
717: x_return_status OUT NOCOPY VARCHAR2,
718: x_msg_count OUT NOCOPY NUMBER,
719: x_msg_data OUT NOCOPY VARCHAR2,
748: -- Standard Start of API savepoint
749: SAVEPOINT get_ancestor_salesrep;
750:
751: -- Standard call to check for call compatibility.
752: IF NOT FND_API.Compatible_API_Call
753: (l_api_version ,
754: p_api_version ,
755: l_api_name ,
756: G_PKG_NAME )
754: p_api_version ,
755: l_api_name ,
756: G_PKG_NAME )
757: THEN
758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
759: END IF;
760:
761: -- Initialize message list if p_init_msg_list is set to TRUE.
762: IF FND_API.to_Boolean( p_init_msg_list ) THEN
758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
759: END IF;
760:
761: -- Initialize message list if p_init_msg_list is set to TRUE.
762: IF FND_API.to_Boolean( p_init_msg_list ) THEN
763: FND_MSG_PUB.initialize;
764: END IF;
765:
766: -- Initialize API return status to success
763: FND_MSG_PUB.initialize;
764: END IF;
765:
766: -- Initialize API return status to success
767: x_return_status := FND_API.G_RET_STS_SUCCESS;
768: -- API body
769:
770: l_counter := 0;
771:
812: x_msg_data => x_msg_data,
813: p_group => l_group,
814: x_group => l_ancestor_group);
815:
816: IF x_return_status = FND_API.g_ret_sts_error THEN
817:
818: RAISE FND_API.g_exc_error;
819:
820: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
814: x_group => l_ancestor_group);
815:
816: IF x_return_status = FND_API.g_ret_sts_error THEN
817:
818: RAISE FND_API.g_exc_error;
819:
820: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
821:
822: RAISE FND_API.g_exc_unexpected_error;
816: IF x_return_status = FND_API.g_ret_sts_error THEN
817:
818: RAISE FND_API.g_exc_error;
819:
820: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
821:
822: RAISE FND_API.g_exc_unexpected_error;
823:
824: END IF;
818: RAISE FND_API.g_exc_error;
819:
820: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
821:
822: RAISE FND_API.g_exc_unexpected_error;
823:
824: END IF;
825:
826: IF( l_ancestor_group.COUNT > 0) THEN
867:
868: -- End of API body.
869:
870: -- Standard check of p_commit.
871: IF FND_API.To_Boolean( p_commit ) THEN
872: COMMIT WORK;
873: END IF;
874:
875: -- Standard call to get message count and if count is 1, get message info.
877: (p_count => x_msg_count ,
878: p_data => x_msg_data );
879:
880: EXCEPTION
881: WHEN FND_API.G_EXC_ERROR THEN
882: ROLLBACK TO get_ancestor_salesrep;
883: x_return_status := FND_API.G_RET_STS_ERROR ;
884: FND_MSG_PUB.Count_And_Get
885: (p_count => x_msg_count ,
879:
880: EXCEPTION
881: WHEN FND_API.G_EXC_ERROR THEN
882: ROLLBACK TO get_ancestor_salesrep;
883: x_return_status := FND_API.G_RET_STS_ERROR ;
884: FND_MSG_PUB.Count_And_Get
885: (p_count => x_msg_count ,
886: p_data => x_msg_data );
887:
884: FND_MSG_PUB.Count_And_Get
885: (p_count => x_msg_count ,
886: p_data => x_msg_data );
887:
888: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
889: ROLLBACK TO get_ancestor_salesrep;
890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
891: FND_MSG_PUB.Count_And_Get
892: (p_count => x_msg_count ,
886: p_data => x_msg_data );
887:
888: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
889: ROLLBACK TO get_ancestor_salesrep;
890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
891: FND_MSG_PUB.Count_And_Get
892: (p_count => x_msg_count ,
893: p_data => x_msg_data );
894:
893: p_data => x_msg_data );
894:
895: WHEN OTHERS THEN
896: ROLLBACK TO get_ancestor_salesrep;
897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
898: IF FND_MSG_PUB.Check_Msg_Level
899: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
900: THEN
901: FND_MSG_PUB.Add_Exc_Msg
919: -- Pre-reqs : None.
920: -- Parameters :
921: -- IN : p_api_version IN NUMBER Required
922: -- p_init_msg_list IN VARCHAR2 Optional
923: -- Default = FND_API.G_FALSE
924: -- p_commit IN VARCHAR2 Optional
925: -- Default = FND_API.G_FALSE
926: -- p_validation_level IN NUMBER Optional
927: -- Default = FND_API.G_VALID_LEVEL_FULL
921: -- IN : p_api_version IN NUMBER Required
922: -- p_init_msg_list IN VARCHAR2 Optional
923: -- Default = FND_API.G_FALSE
924: -- p_commit IN VARCHAR2 Optional
925: -- Default = FND_API.G_FALSE
926: -- p_validation_level IN NUMBER Optional
927: -- Default = FND_API.G_VALID_LEVEL_FULL
928: -- p_srp IN srp_group_rec_type Required
929: -- p_effective_date IN DATE Required
923: -- Default = FND_API.G_FALSE
924: -- p_commit IN VARCHAR2 Optional
925: -- Default = FND_API.G_FALSE
926: -- p_validation_level IN NUMBER Optional
927: -- Default = FND_API.G_VALID_LEVEL_FULL
928: -- p_srp IN srp_group_rec_type Required
929: -- p_effective_date IN DATE Required
930: -- OUT : x_return_status OUT VARCHAR2(1)
931: -- x_msg_count OUT NUMBER
939: --
940: -- End of comments
941: PROCEDURE Get_Descendant_Salesreps
942: (p_api_version IN NUMBER,
943: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
944: p_commit IN VARCHAR2 := FND_API.G_FALSE,
945: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
946: p_srp IN srp_group_rec_type,
947: p_return_current IN varchar2 := 'Y',
940: -- End of comments
941: PROCEDURE Get_Descendant_Salesreps
942: (p_api_version IN NUMBER,
943: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
944: p_commit IN VARCHAR2 := FND_API.G_FALSE,
945: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
946: p_srp IN srp_group_rec_type,
947: p_return_current IN varchar2 := 'Y',
948: x_return_status OUT NOCOPY VARCHAR2,
941: PROCEDURE Get_Descendant_Salesreps
942: (p_api_version IN NUMBER,
943: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
944: p_commit IN VARCHAR2 := FND_API.G_FALSE,
945: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
946: p_srp IN srp_group_rec_type,
947: p_return_current IN varchar2 := 'Y',
948: x_return_status OUT NOCOPY VARCHAR2,
949: x_msg_count OUT NOCOPY NUMBER,
980: -- Standard Start of API savepoint
981: SAVEPOINT get_descendant_salesreps;
982:
983: -- Standard call to check for call compatibility.
984: IF NOT FND_API.Compatible_API_Call
985: (l_api_version ,
986: p_api_version ,
987: l_api_name ,
988: G_PKG_NAME )
986: p_api_version ,
987: l_api_name ,
988: G_PKG_NAME )
989: THEN
990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
991: END IF;
992:
993: -- Initialize message list if p_init_msg_list is set to TRUE.
994: IF FND_API.to_Boolean( p_init_msg_list ) THEN
990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
991: END IF;
992:
993: -- Initialize message list if p_init_msg_list is set to TRUE.
994: IF FND_API.to_Boolean( p_init_msg_list ) THEN
995: FND_MSG_PUB.initialize;
996: END IF;
997:
998: -- Initialize API return status to success
995: FND_MSG_PUB.initialize;
996: END IF;
997:
998: -- Initialize API return status to success
999: x_return_status := FND_API.G_RET_STS_SUCCESS;
1000: -- API body
1001:
1002: IF (p_return_current = 'Y') THEN
1003: FOR eachmem IN members_csr(p_srp.group_id) LOOP
1055: p_group => l_group,
1056: x_group => l_descendant_group,
1057: p_level => 0);
1058:
1059: IF x_return_status = FND_API.g_ret_sts_error THEN
1060: RAISE FND_API.g_exc_error;
1061: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1062: RAISE FND_API.g_exc_unexpected_error;
1063: END IF;
1056: x_group => l_descendant_group,
1057: p_level => 0);
1058:
1059: IF x_return_status = FND_API.g_ret_sts_error THEN
1060: RAISE FND_API.g_exc_error;
1061: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1062: RAISE FND_API.g_exc_unexpected_error;
1063: END IF;
1064:
1057: p_level => 0);
1058:
1059: IF x_return_status = FND_API.g_ret_sts_error THEN
1060: RAISE FND_API.g_exc_error;
1061: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1062: RAISE FND_API.g_exc_unexpected_error;
1063: END IF;
1064:
1065: IF (l_descendant_group.COUNT > 0) THEN
1058:
1059: IF x_return_status = FND_API.g_ret_sts_error THEN
1060: RAISE FND_API.g_exc_error;
1061: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1062: RAISE FND_API.g_exc_unexpected_error;
1063: END IF;
1064:
1065: IF (l_descendant_group.COUNT > 0) THEN
1066: FOR eachgroup IN l_descendant_group.first .. l_descendant_group.last LOOP
1087:
1088: -- End of API body.
1089:
1090: -- Standard check of p_commit.
1091: IF FND_API.To_Boolean( p_commit ) THEN
1092: COMMIT WORK;
1093: END IF;
1094:
1095: -- Standard call to get message count and if count is 1, get message info.
1097: (p_count => x_msg_count ,
1098: p_data => x_msg_data );
1099:
1100: EXCEPTION
1101: WHEN FND_API.G_EXC_ERROR THEN
1102: ROLLBACK TO get_descendant_salesreps;
1103: x_return_status := FND_API.G_RET_STS_ERROR ;
1104: FND_MSG_PUB.Count_And_Get
1105: (p_count => x_msg_count ,
1099:
1100: EXCEPTION
1101: WHEN FND_API.G_EXC_ERROR THEN
1102: ROLLBACK TO get_descendant_salesreps;
1103: x_return_status := FND_API.G_RET_STS_ERROR ;
1104: FND_MSG_PUB.Count_And_Get
1105: (p_count => x_msg_count ,
1106: p_data => x_msg_data );
1107:
1104: FND_MSG_PUB.Count_And_Get
1105: (p_count => x_msg_count ,
1106: p_data => x_msg_data );
1107:
1108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1109: ROLLBACK TO get_descendant_salesreps;
1110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1111: FND_MSG_PUB.Count_And_Get
1112: (p_count => x_msg_count ,
1106: p_data => x_msg_data );
1107:
1108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1109: ROLLBACK TO get_descendant_salesreps;
1110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1111: FND_MSG_PUB.Count_And_Get
1112: (p_count => x_msg_count ,
1113: p_data => x_msg_data );
1114:
1113: p_data => x_msg_data );
1114:
1115: WHEN OTHERS THEN
1116: ROLLBACK TO get_descendant_salesreps;
1117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1118: IF FND_MSG_PUB.Check_Msg_Level
1119: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1120: THEN
1121: FND_MSG_PUB.Add_Exc_Msg
1138: -- Pre-reqs : None.
1139: -- Parameters :
1140: -- IN : p_api_version IN NUMBER Required
1141: -- p_init_msg_list IN VARCHAR2 Optional
1142: -- Default = FND_API.G_FALSE
1143: -- p_commit IN VARCHAR2 Optional
1144: -- Default = FND_API.G_FALSE
1145: -- p_validation_level IN NUMBER Optional
1146: -- Default = FND_API.G_VALID_LEVEL_FULL
1140: -- IN : p_api_version IN NUMBER Required
1141: -- p_init_msg_list IN VARCHAR2 Optional
1142: -- Default = FND_API.G_FALSE
1143: -- p_commit IN VARCHAR2 Optional
1144: -- Default = FND_API.G_FALSE
1145: -- p_validation_level IN NUMBER Optional
1146: -- Default = FND_API.G_VALID_LEVEL_FULL
1147: -- p_srp IN srp_group_rec_type Required
1148: -- p_effective_date IN DATE Required
1142: -- Default = FND_API.G_FALSE
1143: -- p_commit IN VARCHAR2 Optional
1144: -- Default = FND_API.G_FALSE
1145: -- p_validation_level IN NUMBER Optional
1146: -- Default = FND_API.G_VALID_LEVEL_FULL
1147: -- p_srp IN srp_group_rec_type Required
1148: -- p_effective_date IN DATE Required
1149: -- OUT : x_return_status OUT VARCHAR2(1)
1150: -- x_msg_count OUT NUMBER
1158: --
1159: -- End of comments
1160: PROCEDURE Get_Descendant_group_mbrs
1161: (p_api_version IN NUMBER,
1162: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1163: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1164: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
1165: p_srp IN srp_group_rec_type,
1166: p_return_current IN varchar2 := 'Y',
1159: -- End of comments
1160: PROCEDURE Get_Descendant_group_mbrs
1161: (p_api_version IN NUMBER,
1162: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1163: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1164: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
1165: p_srp IN srp_group_rec_type,
1166: p_return_current IN varchar2 := 'Y',
1167: p_level IN number := 0,
1160: PROCEDURE Get_Descendant_group_mbrs
1161: (p_api_version IN NUMBER,
1162: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1163: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1164: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
1165: p_srp IN srp_group_rec_type,
1166: p_return_current IN varchar2 := 'Y',
1167: p_level IN number := 0,
1168: p_first_level_only IN varchar2 := 'N',
1240: SAVEPOINT Get_Descendant_group_mbrs;
1241:
1242:
1243: -- Standard call to check for call compatibility.
1244: IF NOT FND_API.Compatible_API_Call
1245: (l_api_version ,
1246: p_api_version ,
1247: l_api_name ,
1248: G_PKG_NAME )
1246: p_api_version ,
1247: l_api_name ,
1248: G_PKG_NAME )
1249: THEN
1250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1251: END IF;
1252:
1253: -- Initialize message list if p_init_msg_list is set to TRUE.
1254: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1251: END IF;
1252:
1253: -- Initialize message list if p_init_msg_list is set to TRUE.
1254: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1255: FND_MSG_PUB.initialize;
1256: END IF;
1257:
1258: -- Initialize API return status to success
1255: FND_MSG_PUB.initialize;
1256: END IF;
1257:
1258: -- Initialize API return status to success
1259: x_return_status := FND_API.G_RET_STS_SUCCESS;
1260: -- API body
1261:
1262: -- If salesrep is not a manager then dont proceed
1263: OPEN mgr_check;
1339:
1340: -- End of API body.
1341:
1342: -- Standard check of p_commit.
1343: IF FND_API.To_Boolean( p_commit ) THEN
1344: COMMIT WORK;
1345: END IF;
1346:
1347: -- Standard call to get message count and if count is 1, get message info.
1349: (p_count => x_msg_count ,
1350: p_data => x_msg_data );
1351:
1352: EXCEPTION
1353: WHEN FND_API.G_EXC_ERROR THEN
1354: ROLLBACK TO Get_Descendant_group_mbrs;
1355: x_return_status := FND_API.G_RET_STS_ERROR ;
1356: FND_MSG_PUB.Count_And_Get
1357: (p_count => x_msg_count ,
1351:
1352: EXCEPTION
1353: WHEN FND_API.G_EXC_ERROR THEN
1354: ROLLBACK TO Get_Descendant_group_mbrs;
1355: x_return_status := FND_API.G_RET_STS_ERROR ;
1356: FND_MSG_PUB.Count_And_Get
1357: (p_count => x_msg_count ,
1358: p_data => x_msg_data );
1359:
1356: FND_MSG_PUB.Count_And_Get
1357: (p_count => x_msg_count ,
1358: p_data => x_msg_data );
1359:
1360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1361: ROLLBACK TO Get_Descendant_group_mbrs;
1362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1363: FND_MSG_PUB.Count_And_Get
1364: (p_count => x_msg_count ,
1358: p_data => x_msg_data );
1359:
1360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1361: ROLLBACK TO Get_Descendant_group_mbrs;
1362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1363: FND_MSG_PUB.Count_And_Get
1364: (p_count => x_msg_count ,
1365: p_data => x_msg_data );
1366:
1365: p_data => x_msg_data );
1366:
1367: WHEN OTHERS THEN
1368: ROLLBACK TO Get_Descendant_group_mbrs;
1369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1370: IF FND_MSG_PUB.Check_Msg_Level
1371: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1372: THEN
1373: FND_MSG_PUB.Add_Exc_Msg
1384: -- TBD : MO
1385: -- ***********************************
1386: PROCEDURE Get_MO_Descendant_group_mbrs
1387: (p_api_version IN NUMBER,
1388: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1389: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1390: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
1391: p_srp IN srp_group_rec_type,
1392: p_return_current IN varchar2 := 'Y',
1385: -- ***********************************
1386: PROCEDURE Get_MO_Descendant_group_mbrs
1387: (p_api_version IN NUMBER,
1388: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1389: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1390: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
1391: p_srp IN srp_group_rec_type,
1392: p_return_current IN varchar2 := 'Y',
1393: p_level IN number := 0,
1386: PROCEDURE Get_MO_Descendant_group_mbrs
1387: (p_api_version IN NUMBER,
1388: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1389: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1390: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
1391: p_srp IN srp_group_rec_type,
1392: p_return_current IN varchar2 := 'Y',
1393: p_level IN number := 0,
1394: p_first_level_only IN varchar2 := 'N',
1526: SAVEPOINT Get_MO_Descendant_group_mbrs;
1527:
1528:
1529: -- Standard call to check for call compatibility.
1530: IF NOT FND_API.Compatible_API_Call
1531: (l_api_version ,
1532: p_api_version ,
1533: l_api_name ,
1534: G_PKG_NAME )
1532: p_api_version ,
1533: l_api_name ,
1534: G_PKG_NAME )
1535: THEN
1536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1537: END IF;
1538:
1539: -- Initialize message list if p_init_msg_list is set to TRUE.
1540: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1537: END IF;
1538:
1539: -- Initialize message list if p_init_msg_list is set to TRUE.
1540: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1541: FND_MSG_PUB.initialize;
1542: END IF;
1543:
1544: -- Initialize API return status to success
1541: FND_MSG_PUB.initialize;
1542: END IF;
1543:
1544: -- Initialize API return status to success
1545: x_return_status := FND_API.G_RET_STS_SUCCESS;
1546: -- API body
1547:
1548: -- If salesrep is not a manager then dont proceed
1549: --OPEN mgr_check;
1705:
1706: -- End of API body.
1707:
1708: -- Standard check of p_commit.
1709: IF FND_API.To_Boolean( p_commit ) THEN
1710: COMMIT WORK;
1711: END IF;
1712:
1713: -- Standard call to get message count and if count is 1, get message info.
1715: (p_count => x_msg_count ,
1716: p_data => x_msg_data );
1717:
1718: EXCEPTION
1719: WHEN FND_API.G_EXC_ERROR THEN
1720: ROLLBACK TO Get_MO_Descendant_group_mbrs;
1721: x_return_status := FND_API.G_RET_STS_ERROR ;
1722: FND_MSG_PUB.Count_And_Get
1723: (p_count => x_msg_count ,
1717:
1718: EXCEPTION
1719: WHEN FND_API.G_EXC_ERROR THEN
1720: ROLLBACK TO Get_MO_Descendant_group_mbrs;
1721: x_return_status := FND_API.G_RET_STS_ERROR ;
1722: FND_MSG_PUB.Count_And_Get
1723: (p_count => x_msg_count ,
1724: p_data => x_msg_data );
1725:
1722: FND_MSG_PUB.Count_And_Get
1723: (p_count => x_msg_count ,
1724: p_data => x_msg_data );
1725:
1726: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1727: ROLLBACK TO Get_MO_Descendant_group_mbrs;
1728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1729: FND_MSG_PUB.Count_And_Get
1730: (p_count => x_msg_count ,
1724: p_data => x_msg_data );
1725:
1726: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1727: ROLLBACK TO Get_MO_Descendant_group_mbrs;
1728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1729: FND_MSG_PUB.Count_And_Get
1730: (p_count => x_msg_count ,
1731: p_data => x_msg_data );
1732:
1731: p_data => x_msg_data );
1732:
1733: WHEN OTHERS THEN
1734: ROLLBACK TO Get_MO_Descendant_group_mbrs;
1735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1736: IF FND_MSG_PUB.Check_Msg_Level
1737: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1738: THEN
1739: FND_MSG_PUB.Add_Exc_Msg
1759: -- Pre-reqs : None.
1760: -- Parameters :
1761: -- IN : p_api_version IN NUMBER Required
1762: -- p_init_msg_list IN VARCHAR2 Optional
1763: -- Default = FND_API.G_FALSE
1764: -- p_commit IN VARCHAR2 Optional
1765: -- Default = FND_API.G_FALSE
1766: -- p_validation_level IN NUMBER Optional
1767: -- Default = FND_API.G_VALID_LEVEL_FULL
1761: -- IN : p_api_version IN NUMBER Required
1762: -- p_init_msg_list IN VARCHAR2 Optional
1763: -- Default = FND_API.G_FALSE
1764: -- p_commit IN VARCHAR2 Optional
1765: -- Default = FND_API.G_FALSE
1766: -- p_validation_level IN NUMBER Optional
1767: -- Default = FND_API.G_VALID_LEVEL_FULL
1768: -- p_srp IN srp_group_rec_type Required
1769: -- p_effective_date IN DATE Required
1763: -- Default = FND_API.G_FALSE
1764: -- p_commit IN VARCHAR2 Optional
1765: -- Default = FND_API.G_FALSE
1766: -- p_validation_level IN NUMBER Optional
1767: -- Default = FND_API.G_VALID_LEVEL_FULL
1768: -- p_srp IN srp_group_rec_type Required
1769: -- p_effective_date IN DATE Required
1770: -- OUT : x_return_status OUT VARCHAR2(1)
1771: -- x_msg_count OUT NUMBER
1779: --
1780: -- End of comments
1781: PROCEDURE Get_desc_role_info
1782: (p_api_version IN NUMBER,
1783: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1784: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1785: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
1786: p_srp IN srp_group_rec_type,
1787: p_return_current IN varchar2 := 'Y',
1780: -- End of comments
1781: PROCEDURE Get_desc_role_info
1782: (p_api_version IN NUMBER,
1783: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1784: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1785: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
1786: p_srp IN srp_group_rec_type,
1787: p_return_current IN varchar2 := 'Y',
1788: x_return_status OUT NOCOPY VARCHAR2,
1781: PROCEDURE Get_desc_role_info
1782: (p_api_version IN NUMBER,
1783: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1784: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1785: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
1786: p_srp IN srp_group_rec_type,
1787: p_return_current IN varchar2 := 'Y',
1788: x_return_status OUT NOCOPY VARCHAR2,
1789: x_msg_count OUT NOCOPY NUMBER,
1829: -- Standard Start of API savepoint
1830: SAVEPOINT get_desc_role_info;
1831:
1832: -- Standard call to check for call compatibility.
1833: IF NOT FND_API.Compatible_API_Call
1834: (l_api_version ,
1835: p_api_version ,
1836: l_api_name ,
1837: G_PKG_NAME )
1835: p_api_version ,
1836: l_api_name ,
1837: G_PKG_NAME )
1838: THEN
1839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1840: END IF;
1841:
1842: -- Initialize message list if p_init_msg_list is set to TRUE.
1843: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1840: END IF;
1841:
1842: -- Initialize message list if p_init_msg_list is set to TRUE.
1843: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1844: FND_MSG_PUB.initialize;
1845: END IF;
1846:
1847: -- Initialize API return status to success
1844: FND_MSG_PUB.initialize;
1845: END IF;
1846:
1847: -- Initialize API return status to success
1848: x_return_status := FND_API.G_RET_STS_SUCCESS;
1849: -- API body
1850:
1851: -- if p_srp.salesrep_id is a manager, get the other members of his own group
1852:
1910: x_group => l_descendant_group,
1911: p_level => 0);
1912:
1913:
1914: IF x_return_status = FND_API.g_ret_sts_error THEN
1915: RAISE FND_API.g_exc_error;
1916: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1917: RAISE FND_API.g_exc_unexpected_error;
1918: END IF;
1911: p_level => 0);
1912:
1913:
1914: IF x_return_status = FND_API.g_ret_sts_error THEN
1915: RAISE FND_API.g_exc_error;
1916: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1917: RAISE FND_API.g_exc_unexpected_error;
1918: END IF;
1919:
1912:
1913:
1914: IF x_return_status = FND_API.g_ret_sts_error THEN
1915: RAISE FND_API.g_exc_error;
1916: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1917: RAISE FND_API.g_exc_unexpected_error;
1918: END IF;
1919:
1920:
1913:
1914: IF x_return_status = FND_API.g_ret_sts_error THEN
1915: RAISE FND_API.g_exc_error;
1916: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1917: RAISE FND_API.g_exc_unexpected_error;
1918: END IF;
1919:
1920:
1921: IF (l_descendant_group.COUNT > 0) THEN
1952:
1953: -- End of API body.
1954:
1955: -- Standard check of p_commit.
1956: IF FND_API.To_Boolean( p_commit ) THEN
1957: COMMIT WORK;
1958: END IF;
1959:
1960: -- Standard call to get message count and if count is 1, get message info.
1962: (p_count => x_msg_count ,
1963: p_data => x_msg_data );
1964:
1965: EXCEPTION
1966: WHEN FND_API.G_EXC_ERROR THEN
1967: ROLLBACK TO get_desc_role_info;
1968: x_return_status := FND_API.G_RET_STS_ERROR ;
1969: FND_MSG_PUB.Count_And_Get
1970: (p_count => x_msg_count ,
1964:
1965: EXCEPTION
1966: WHEN FND_API.G_EXC_ERROR THEN
1967: ROLLBACK TO get_desc_role_info;
1968: x_return_status := FND_API.G_RET_STS_ERROR ;
1969: FND_MSG_PUB.Count_And_Get
1970: (p_count => x_msg_count ,
1971: p_data => x_msg_data );
1972:
1969: FND_MSG_PUB.Count_And_Get
1970: (p_count => x_msg_count ,
1971: p_data => x_msg_data );
1972:
1973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1974: ROLLBACK TO get_desc_role_info;
1975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1976: FND_MSG_PUB.Count_And_Get
1977: (p_count => x_msg_count ,
1971: p_data => x_msg_data );
1972:
1973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1974: ROLLBACK TO get_desc_role_info;
1975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1976: FND_MSG_PUB.Count_And_Get
1977: (p_count => x_msg_count ,
1978: p_data => x_msg_data );
1979:
1978: p_data => x_msg_data );
1979:
1980: WHEN OTHERS THEN
1981: ROLLBACK TO get_desc_role_info;
1982: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1983: IF FND_MSG_PUB.Check_Msg_Level
1984: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1985: THEN
1986: FND_MSG_PUB.Add_Exc_Msg
1998: -- TBD : MO
1999: -- ***********************************
2000: PROCEDURE Get_MO_desc_role_info
2001: (p_api_version IN NUMBER,
2002: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2003: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2004: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
2005: p_srp IN srp_group_rec_type,
2006: p_return_current IN varchar2 := 'Y',
1999: -- ***********************************
2000: PROCEDURE Get_MO_desc_role_info
2001: (p_api_version IN NUMBER,
2002: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2003: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2004: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
2005: p_srp IN srp_group_rec_type,
2006: p_return_current IN varchar2 := 'Y',
2007: p_is_multiorg IN VARCHAR2 := 'N',
2000: PROCEDURE Get_MO_desc_role_info
2001: (p_api_version IN NUMBER,
2002: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2003: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2004: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
2005: p_srp IN srp_group_rec_type,
2006: p_return_current IN varchar2 := 'Y',
2007: p_is_multiorg IN VARCHAR2 := 'N',
2008: x_return_status OUT NOCOPY VARCHAR2,
2120: -- Standard Start of API savepoint
2121: SAVEPOINT Get_MO_desc_role_info;
2122:
2123: -- Standard call to check for call compatibility.
2124: IF NOT FND_API.Compatible_API_Call
2125: (l_api_version ,
2126: p_api_version ,
2127: l_api_name ,
2128: G_PKG_NAME )
2126: p_api_version ,
2127: l_api_name ,
2128: G_PKG_NAME )
2129: THEN
2130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2131: END IF;
2132:
2133: -- Initialize message list if p_init_msg_list is set to TRUE.
2134: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2131: END IF;
2132:
2133: -- Initialize message list if p_init_msg_list is set to TRUE.
2134: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2135: FND_MSG_PUB.initialize;
2136: END IF;
2137:
2138: -- Initialize API return status to success
2135: FND_MSG_PUB.initialize;
2136: END IF;
2137:
2138: -- Initialize API return status to success
2139: x_return_status := FND_API.G_RET_STS_SUCCESS;
2140: -- API body
2141:
2142: -- if p_srp.salesrep_id is a manager, get the other members of his own group
2143: /*
2295: x_group => l_descendant_group,
2296: p_level => 0);
2297:
2298:
2299: IF x_return_status = FND_API.g_ret_sts_error THEN
2300: RAISE FND_API.g_exc_error;
2301: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2302: RAISE FND_API.g_exc_unexpected_error;
2303: END IF;
2296: p_level => 0);
2297:
2298:
2299: IF x_return_status = FND_API.g_ret_sts_error THEN
2300: RAISE FND_API.g_exc_error;
2301: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2302: RAISE FND_API.g_exc_unexpected_error;
2303: END IF;
2304:
2297:
2298:
2299: IF x_return_status = FND_API.g_ret_sts_error THEN
2300: RAISE FND_API.g_exc_error;
2301: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2302: RAISE FND_API.g_exc_unexpected_error;
2303: END IF;
2304:
2305:
2298:
2299: IF x_return_status = FND_API.g_ret_sts_error THEN
2300: RAISE FND_API.g_exc_error;
2301: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2302: RAISE FND_API.g_exc_unexpected_error;
2303: END IF;
2304:
2305:
2306: IF (l_descendant_group.COUNT > 0) THEN
2387:
2388: -- End of API body.
2389:
2390: -- Standard check of p_commit.
2391: IF FND_API.To_Boolean( p_commit ) THEN
2392: COMMIT WORK;
2393: END IF;
2394:
2395: -- Standard call to get message count and if count is 1, get message info.
2397: (p_count => x_msg_count ,
2398: p_data => x_msg_data );
2399:
2400: EXCEPTION
2401: WHEN FND_API.G_EXC_ERROR THEN
2402: ROLLBACK TO Get_MO_desc_role_info;
2403: x_return_status := FND_API.G_RET_STS_ERROR ;
2404: FND_MSG_PUB.Count_And_Get
2405: (p_count => x_msg_count ,
2399:
2400: EXCEPTION
2401: WHEN FND_API.G_EXC_ERROR THEN
2402: ROLLBACK TO Get_MO_desc_role_info;
2403: x_return_status := FND_API.G_RET_STS_ERROR ;
2404: FND_MSG_PUB.Count_And_Get
2405: (p_count => x_msg_count ,
2406: p_data => x_msg_data );
2407:
2404: FND_MSG_PUB.Count_And_Get
2405: (p_count => x_msg_count ,
2406: p_data => x_msg_data );
2407:
2408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2409: ROLLBACK TO Get_MO_desc_role_info;
2410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2411: FND_MSG_PUB.Count_And_Get
2412: (p_count => x_msg_count ,
2406: p_data => x_msg_data );
2407:
2408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2409: ROLLBACK TO Get_MO_desc_role_info;
2410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2411: FND_MSG_PUB.Count_And_Get
2412: (p_count => x_msg_count ,
2413: p_data => x_msg_data );
2414:
2413: p_data => x_msg_data );
2414:
2415: WHEN OTHERS THEN
2416: ROLLBACK TO Get_MO_desc_role_info;
2417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2418: IF FND_MSG_PUB.Check_Msg_Level
2419: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2420: THEN
2421: FND_MSG_PUB.Add_Exc_Msg
2440: -- Pre-reqs : None.
2441: -- Parameters :
2442: -- IN : p_api_version IN NUMBER Required
2443: -- p_init_msg_list IN VARCHAR2 Optional
2444: -- Default = FND_API.G_FALSE
2445: -- p_commit IN VARCHAR2 Optional
2446: -- Default = FND_API.G_FALSE
2447: -- p_validation_level IN NUMBER Optional
2448: -- Default = FND_API.G_VALID_LEVEL_FULL
2442: -- IN : p_api_version IN NUMBER Required
2443: -- p_init_msg_list IN VARCHAR2 Optional
2444: -- Default = FND_API.G_FALSE
2445: -- p_commit IN VARCHAR2 Optional
2446: -- Default = FND_API.G_FALSE
2447: -- p_validation_level IN NUMBER Optional
2448: -- Default = FND_API.G_VALID_LEVEL_FULL
2449: -- p_srp IN srp_group_rec_type Required
2450: -- p_effective_date IN DATE Required
2444: -- Default = FND_API.G_FALSE
2445: -- p_commit IN VARCHAR2 Optional
2446: -- Default = FND_API.G_FALSE
2447: -- p_validation_level IN NUMBER Optional
2448: -- Default = FND_API.G_VALID_LEVEL_FULL
2449: -- p_srp IN srp_group_rec_type Required
2450: -- p_effective_date IN DATE Required
2451: -- OUT : x_return_status OUT VARCHAR2(1)
2452: -- x_msg_count OUT NUMBER
2460: --
2461: -- End of comments
2462: PROCEDURE Get_All_Managers
2463: (p_api_version IN NUMBER,
2464: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2465: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2466: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
2467: p_srp IN srp_group_rec_type,
2468: x_return_status OUT NOCOPY VARCHAR2,
2461: -- End of comments
2462: PROCEDURE Get_All_Managers
2463: (p_api_version IN NUMBER,
2464: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2465: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2466: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
2467: p_srp IN srp_group_rec_type,
2468: x_return_status OUT NOCOPY VARCHAR2,
2469: x_msg_count OUT NOCOPY NUMBER,
2462: PROCEDURE Get_All_Managers
2463: (p_api_version IN NUMBER,
2464: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2465: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2466: p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
2467: p_srp IN srp_group_rec_type,
2468: x_return_status OUT NOCOPY VARCHAR2,
2469: x_msg_count OUT NOCOPY NUMBER,
2470: x_msg_data OUT NOCOPY VARCHAR2,
2507: -- Standard Start of API savepoint
2508: SAVEPOINT get_all_managers;
2509:
2510: -- Standard call to check for call compatibility.
2511: IF NOT FND_API.Compatible_API_Call
2512: (l_api_version ,
2513: p_api_version ,
2514: l_api_name ,
2515: G_PKG_NAME )
2513: p_api_version ,
2514: l_api_name ,
2515: G_PKG_NAME )
2516: THEN
2517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2518: END IF;
2519:
2520: -- Initialize message list if p_init_msg_list is set to TRUE.
2521: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2518: END IF;
2519:
2520: -- Initialize message list if p_init_msg_list is set to TRUE.
2521: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2522: FND_MSG_PUB.initialize;
2523: END IF;
2524:
2525: -- Initialize API return status to success
2522: FND_MSG_PUB.initialize;
2523: END IF;
2524:
2525: -- Initialize API return status to success
2526: x_return_status := FND_API.G_RET_STS_SUCCESS;
2527: -- API body
2528:
2529: l_counter := 0;
2530:
2574: p_group => l_group,
2575: x_group => l_ancestor_group,
2576: p_level => 0);
2577:
2578: IF x_return_status = FND_API.g_ret_sts_error THEN
2579:
2580: RAISE FND_API.g_exc_error;
2581:
2582: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2576: p_level => 0);
2577:
2578: IF x_return_status = FND_API.g_ret_sts_error THEN
2579:
2580: RAISE FND_API.g_exc_error;
2581:
2582: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2583:
2584: RAISE FND_API.g_exc_unexpected_error;
2578: IF x_return_status = FND_API.g_ret_sts_error THEN
2579:
2580: RAISE FND_API.g_exc_error;
2581:
2582: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2583:
2584: RAISE FND_API.g_exc_unexpected_error;
2585:
2586: END IF;
2580: RAISE FND_API.g_exc_error;
2581:
2582: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2583:
2584: RAISE FND_API.g_exc_unexpected_error;
2585:
2586: END IF;
2587:
2588: IF( l_ancestor_group.COUNT > 0) THEN
2612:
2613: -- End of API body.
2614:
2615: -- Standard check of p_commit.
2616: IF FND_API.To_Boolean( p_commit ) THEN
2617: COMMIT WORK;
2618: END IF;
2619:
2620: -- Standard call to get message count and if count is 1, get message info.
2622: (p_count => x_msg_count ,
2623: p_data => x_msg_data );
2624:
2625: EXCEPTION
2626: WHEN FND_API.G_EXC_ERROR THEN
2627: ROLLBACK TO get_all_managers;
2628: x_return_status := FND_API.G_RET_STS_ERROR ;
2629: FND_MSG_PUB.Count_And_Get
2630: (p_count => x_msg_count ,
2624:
2625: EXCEPTION
2626: WHEN FND_API.G_EXC_ERROR THEN
2627: ROLLBACK TO get_all_managers;
2628: x_return_status := FND_API.G_RET_STS_ERROR ;
2629: FND_MSG_PUB.Count_And_Get
2630: (p_count => x_msg_count ,
2631: p_data => x_msg_data );
2632:
2629: FND_MSG_PUB.Count_And_Get
2630: (p_count => x_msg_count ,
2631: p_data => x_msg_data );
2632:
2633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2634: ROLLBACK TO get_all_managers;
2635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2636: FND_MSG_PUB.Count_And_Get
2637: (p_count => x_msg_count ,
2631: p_data => x_msg_data );
2632:
2633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2634: ROLLBACK TO get_all_managers;
2635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2636: FND_MSG_PUB.Count_And_Get
2637: (p_count => x_msg_count ,
2638: p_data => x_msg_data );
2639:
2638: p_data => x_msg_data );
2639:
2640: WHEN OTHERS THEN
2641: ROLLBACK TO get_all_managers;
2642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2643: IF FND_MSG_PUB.Check_Msg_Level
2644: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2645: THEN
2646: FND_MSG_PUB.Add_Exc_Msg