11: --+
12: -- -------------------------------------------------------------------------+
13: PROCEDURE Get_Pay_Group_Sum
14: (p_api_version IN NUMBER,
15: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
16: p_commit IN VARCHAR2 := FND_API.G_FALSE,
17: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
18: p_start_record IN NUMBER := -1,
19: p_fetch_size IN NUMBER := -1,
12: -- -------------------------------------------------------------------------+
13: PROCEDURE Get_Pay_Group_Sum
14: (p_api_version IN NUMBER,
15: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
16: p_commit IN VARCHAR2 := FND_API.G_FALSE,
17: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
18: p_start_record IN NUMBER := -1,
19: p_fetch_size IN NUMBER := -1,
20: p_search_name IN VARCHAR2 := '%',
13: PROCEDURE Get_Pay_Group_Sum
14: (p_api_version IN NUMBER,
15: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
16: p_commit IN VARCHAR2 := FND_API.G_FALSE,
17: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
18: p_start_record IN NUMBER := -1,
19: p_fetch_size IN NUMBER := -1,
20: p_search_name IN VARCHAR2 := '%',
21: p_search_start_date IN DATE := FND_API.G_MISS_DATE,
17: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
18: p_start_record IN NUMBER := -1,
19: p_fetch_size IN NUMBER := -1,
20: p_search_name IN VARCHAR2 := '%',
21: p_search_start_date IN DATE := FND_API.G_MISS_DATE,
22: p_search_end_date IN DATE := FND_API.G_MISS_DATE,
23: p_search_period_set_name IN VARCHAR2 := '%',
24: x_pay_group OUT NOCOPY PayGroup_tbl_type,
25: x_total_record OUT NOCOPY NUMBER,
18: p_start_record IN NUMBER := -1,
19: p_fetch_size IN NUMBER := -1,
20: p_search_name IN VARCHAR2 := '%',
21: p_search_start_date IN DATE := FND_API.G_MISS_DATE,
22: p_search_end_date IN DATE := FND_API.G_MISS_DATE,
23: p_search_period_set_name IN VARCHAR2 := '%',
24: x_pay_group OUT NOCOPY PayGroup_tbl_type,
25: x_total_record OUT NOCOPY NUMBER,
26: x_return_status OUT NOCOPY VARCHAR2,
73: BEGIN
74: -- Standard Start of API savepoint
75: SAVEPOINT Get_Pay_Group_Sum;
76: -- Standard call to check for call compatibility.
77: IF NOT FND_API.Compatible_API_Call
78: (l_api_version ,
79: p_api_version ,
80: l_api_name ,
81: G_PKG_NAME )
79: p_api_version ,
80: l_api_name ,
81: G_PKG_NAME )
82: THEN
83: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
84: END IF;
85: -- Initialize message list if p_init_msg_list is set to TRUE.
86: IF FND_API.to_Boolean( p_init_msg_list ) THEN
87: FND_MSG_PUB.initialize;
82: THEN
83: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
84: END IF;
85: -- Initialize message list if p_init_msg_list is set to TRUE.
86: IF FND_API.to_Boolean( p_init_msg_list ) THEN
87: FND_MSG_PUB.initialize;
88: END IF;
89: -- Initialize API return status to success
90: x_return_status := FND_API.G_RET_STS_SUCCESS;
86: IF FND_API.to_Boolean( p_init_msg_list ) THEN
87: FND_MSG_PUB.initialize;
88: END IF;
89: -- Initialize API return status to success
90: x_return_status := FND_API.G_RET_STS_SUCCESS;
91: -- API body
92:
93: x_pay_group := G_MISS_PAYGROUP_REC_TB ;
94: /**Start of MOAC Org Validation change */
128: END LOOP;
129:
130: -- End of API body.
131: -- Standard check of p_commit.
132: IF FND_API.To_Boolean( p_commit ) THEN
133: COMMIT WORK;
134: END IF;
135: -- Standard call to get message count and if count is 1, get message info.
136: FND_MSG_PUB.Count_And_Get
135: -- Standard call to get message count and if count is 1, get message info.
136: FND_MSG_PUB.Count_And_Get
137: (p_count => x_msg_count ,
138: p_data => x_msg_data ,
139: p_encoded => FND_API.G_FALSE );
140: EXCEPTION
141: WHEN FND_API.G_EXC_ERROR THEN
142: ROLLBACK TO Get_Pay_Group_Sum;
143: x_return_status := FND_API.G_RET_STS_ERROR ;
137: (p_count => x_msg_count ,
138: p_data => x_msg_data ,
139: p_encoded => FND_API.G_FALSE );
140: EXCEPTION
141: WHEN FND_API.G_EXC_ERROR THEN
142: ROLLBACK TO Get_Pay_Group_Sum;
143: x_return_status := FND_API.G_RET_STS_ERROR ;
144: FND_MSG_PUB.Count_And_Get
145: (p_count => x_msg_count ,
139: p_encoded => FND_API.G_FALSE );
140: EXCEPTION
141: WHEN FND_API.G_EXC_ERROR THEN
142: ROLLBACK TO Get_Pay_Group_Sum;
143: x_return_status := FND_API.G_RET_STS_ERROR ;
144: FND_MSG_PUB.Count_And_Get
145: (p_count => x_msg_count ,
146: p_data => x_msg_data ,
147: p_encoded => FND_API.G_FALSE );
143: x_return_status := FND_API.G_RET_STS_ERROR ;
144: FND_MSG_PUB.Count_And_Get
145: (p_count => x_msg_count ,
146: p_data => x_msg_data ,
147: p_encoded => FND_API.G_FALSE );
148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149: ROLLBACK TO Get_Pay_Group_Sum;
150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
151: FND_MSG_PUB.Count_And_Get
144: FND_MSG_PUB.Count_And_Get
145: (p_count => x_msg_count ,
146: p_data => x_msg_data ,
147: p_encoded => FND_API.G_FALSE );
148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149: ROLLBACK TO Get_Pay_Group_Sum;
150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
151: FND_MSG_PUB.Count_And_Get
152: (p_count => x_msg_count ,
146: p_data => x_msg_data ,
147: p_encoded => FND_API.G_FALSE );
148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149: ROLLBACK TO Get_Pay_Group_Sum;
150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
151: FND_MSG_PUB.Count_And_Get
152: (p_count => x_msg_count ,
153: p_data => x_msg_data ,
154: p_encoded => FND_API.G_FALSE );
150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
151: FND_MSG_PUB.Count_And_Get
152: (p_count => x_msg_count ,
153: p_data => x_msg_data ,
154: p_encoded => FND_API.G_FALSE );
155: WHEN OTHERS THEN
156: ROLLBACK TO Get_Pay_Group_Sum;
157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
158: IF FND_MSG_PUB.Check_Msg_Level
153: p_data => x_msg_data ,
154: p_encoded => FND_API.G_FALSE );
155: WHEN OTHERS THEN
156: ROLLBACK TO Get_Pay_Group_Sum;
157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
158: IF FND_MSG_PUB.Check_Msg_Level
159: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
160: THEN
161: FND_MSG_PUB.Add_Exc_Msg
164: END IF;
165: FND_MSG_PUB.Count_And_Get
166: (p_count => x_msg_count ,
167: p_data => x_msg_data ,
168: p_encoded => FND_API.G_FALSE );
169: END Get_Pay_Group_Sum;
170:
171:
172:
212:
213: BEGIN
214:
215: -- Initialize API return status to success
216: x_return_status := FND_API.G_RET_STS_SUCCESS;
217: x_loading_status := p_loading_status ;
218:
219:
220: OPEN get_PayGroup_id(l_org_id);
233: CLOSE get_PayGroup_id;
234:
235: EXCEPTION
236: WHEN OTHERS THEN
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
238: x_loading_status := 'UNEXPECTED_ERR';
239: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
240: THEN
241: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
278:
279:
280: -- Standard call to check for call compatibility.
281:
282: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
283: p_api_version ,
284: l_api_name ,
285: L_PKG_NAME )
286: THEN
283: p_api_version ,
284: l_api_name ,
285: L_PKG_NAME )
286: THEN
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288: END IF;
289:
290:
291: -- Initialize message list if p_init_msg_list is set to TRUE.
289:
290:
291: -- Initialize message list if p_init_msg_list is set to TRUE.
292:
293: IF FND_API.to_Boolean( p_init_msg_list ) THEN
294: FND_MSG_PUB.initialize;
295: END IF;
296:
297:
296:
297:
298: -- Initialize API return status to success
299:
300: x_return_status := FND_API.G_RET_STS_SUCCESS;
301: x_loading_status := 'CN_INSERTED';
302: /**Start of MOAC Org Validation change */
303: l_org_id := p_PayGroup_rec.org_id;
304: mo_global.validate_orgid_pub_api(org_id => l_org_id,status => l_status);
369: FND_MSG_PUB.Count_And_Get
370: (
371: p_count => x_msg_count ,
372: p_data => x_msg_data ,
373: p_encoded => FND_API.G_FALSE
374: );
375:
376: EXCEPTION
377: WHEN FND_API.G_EXC_ERROR THEN
373: p_encoded => FND_API.G_FALSE
374: );
375:
376: EXCEPTION
377: WHEN FND_API.G_EXC_ERROR THEN
378: ROLLBACK TO Create_PayGroup;
379: x_return_status := FND_API.G_RET_STS_ERROR ;
380: FND_MSG_PUB.Count_And_Get
381: (
375:
376: EXCEPTION
377: WHEN FND_API.G_EXC_ERROR THEN
378: ROLLBACK TO Create_PayGroup;
379: x_return_status := FND_API.G_RET_STS_ERROR ;
380: FND_MSG_PUB.Count_And_Get
381: (
382: p_count => x_msg_count ,
383: p_data => x_msg_data ,
380: FND_MSG_PUB.Count_And_Get
381: (
382: p_count => x_msg_count ,
383: p_data => x_msg_data ,
384: p_encoded => FND_API.G_FALSE
385: );
386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
387: ROLLBACK TO Create_PayGroup;
388: x_loading_status := 'UNEXPECTED_ERR';
382: p_count => x_msg_count ,
383: p_data => x_msg_data ,
384: p_encoded => FND_API.G_FALSE
385: );
386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
387: ROLLBACK TO Create_PayGroup;
388: x_loading_status := 'UNEXPECTED_ERR';
389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
390: FND_MSG_PUB.Count_And_Get
385: );
386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
387: ROLLBACK TO Create_PayGroup;
388: x_loading_status := 'UNEXPECTED_ERR';
389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
390: FND_MSG_PUB.Count_And_Get
391: (
392: p_count => x_msg_count ,
393: p_data => x_msg_data ,
390: FND_MSG_PUB.Count_And_Get
391: (
392: p_count => x_msg_count ,
393: p_data => x_msg_data ,
394: p_encoded => FND_API.G_FALSE
395: );
396: WHEN OTHERS THEN
397: ROLLBACK TO Create_PayGroup;
398: x_loading_status := 'UNEXPECTED_ERR';
395: );
396: WHEN OTHERS THEN
397: ROLLBACK TO Create_PayGroup;
398: x_loading_status := 'UNEXPECTED_ERR';
399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
400: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
401: THEN
402: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
403: END IF;
404: FND_MSG_PUB.Count_And_Get
405: (
406: p_count => x_msg_count ,
407: p_data => x_msg_data ,
408: p_encoded => FND_API.G_FALSE
409: );
410: END Create_PayGroup;
411:
412: ---------------------------------------------------------------------------+
451: SAVEPOINT Update_PayGroup;
452:
453: -- Standard call to check for call compatibility.
454:
455: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
456: p_api_version ,
457: l_api_name ,
458: L_PKG_NAME )
459: THEN
456: p_api_version ,
457: l_api_name ,
458: L_PKG_NAME )
459: THEN
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461: END IF;
462:
463: -- Initialize message list if p_init_msg_list is set to TRUE.
464:
461: END IF;
462:
463: -- Initialize message list if p_init_msg_list is set to TRUE.
464:
465: IF FND_API.to_Boolean( p_init_msg_list ) THEN
466: FND_MSG_PUB.initialize;
467: END IF;
468:
469: -- Initialize API return status to success
467: END IF;
468:
469: -- Initialize API return status to success
470:
471: x_return_status := FND_API.G_RET_STS_SUCCESS;
472: x_loading_status := 'CN_UPDATED';
473: /**Start of MOAC Org Validation change */
474: l_org_id := p_PayGroup_rec.org_id;
475: mo_global.validate_orgid_pub_api(org_id => l_org_id,status => l_status);
491: FND_MESSAGE.SET_NAME ('FND' , 'FND_MO_OU_CANNOT_UPDATE');
492: FND_MSG_PUB.Add;
493: END IF;
494:
495: RAISE FND_API.G_EXC_ERROR ;
496: end if;
497: /**End of MOAC Org Validation change */
498: p_PayGroup_rec.org_id := l_org_id;
499:
554: FND_MSG_PUB.Count_And_Get
555: (
556: p_count => x_msg_count ,
557: p_data => x_msg_data ,
558: p_encoded => FND_API.G_FALSE
559: );
560: EXCEPTION
561: WHEN FND_API.G_EXC_ERROR THEN
562: ROLLBACK TO Update_PayGroup;
557: p_data => x_msg_data ,
558: p_encoded => FND_API.G_FALSE
559: );
560: EXCEPTION
561: WHEN FND_API.G_EXC_ERROR THEN
562: ROLLBACK TO Update_PayGroup;
563: x_return_status := FND_API.G_RET_STS_ERROR ;
564: FND_MSG_PUB.Count_And_Get
565: (
559: );
560: EXCEPTION
561: WHEN FND_API.G_EXC_ERROR THEN
562: ROLLBACK TO Update_PayGroup;
563: x_return_status := FND_API.G_RET_STS_ERROR ;
564: FND_MSG_PUB.Count_And_Get
565: (
566: p_count => x_msg_count ,
567: p_data => x_msg_data ,
564: FND_MSG_PUB.Count_And_Get
565: (
566: p_count => x_msg_count ,
567: p_data => x_msg_data ,
568: p_encoded => FND_API.G_FALSE
569: );
570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
571: ROLLBACK TO Update_PayGroup;
572: x_loading_status := 'UNEXPECTED_ERR';
566: p_count => x_msg_count ,
567: p_data => x_msg_data ,
568: p_encoded => FND_API.G_FALSE
569: );
570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
571: ROLLBACK TO Update_PayGroup;
572: x_loading_status := 'UNEXPECTED_ERR';
573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
574: FND_MSG_PUB.Count_And_Get
569: );
570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
571: ROLLBACK TO Update_PayGroup;
572: x_loading_status := 'UNEXPECTED_ERR';
573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
574: FND_MSG_PUB.Count_And_Get
575: (
576: p_count => x_msg_count ,
577: p_data => x_msg_data ,
574: FND_MSG_PUB.Count_And_Get
575: (
576: p_count => x_msg_count ,
577: p_data => x_msg_data ,
578: p_encoded => FND_API.G_FALSE
579: );
580: WHEN OTHERS THEN
581: ROLLBACK TO Update_PayGroup;
582: x_loading_status := 'UNEXPECTED_ERR';
579: );
580: WHEN OTHERS THEN
581: ROLLBACK TO Update_PayGroup;
582: x_loading_status := 'UNEXPECTED_ERR';
583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
584: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
585: THEN
586: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
587: END IF;
588: FND_MSG_PUB.Count_And_Get
589: (
590: p_count => x_msg_count ,
591: p_data => x_msg_data ,
592: p_encoded => FND_API.G_FALSE
593: );
594: END Update_PayGroup;
595:
596: ---------------------------------------------------------------------------+
631: SAVEPOINT Delete_PayGroup ;
632: --
633: -- Standard call to check for call compatibility.
634: --
635: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
636: p_api_version ,
637: l_api_name ,
638: L_PKG_NAME )
639: THEN
636: p_api_version ,
637: l_api_name ,
638: L_PKG_NAME )
639: THEN
640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
641: END IF;
642:
643: -- Initialize message list if p_init_msg_list is set to TRUE.
644:
641: END IF;
642:
643: -- Initialize message list if p_init_msg_list is set to TRUE.
644:
645: IF FND_API.to_Boolean( p_init_msg_list ) THEN
646: FND_MSG_PUB.initialize;
647: END IF;
648:
649: -- Initialize API return status to success
647: END IF;
648:
649: -- Initialize API return status to success
650:
651: x_return_status := FND_API.G_RET_STS_SUCCESS;
652: x_loading_status := 'CN_DELETED';
653:
654: /**Start of MOAC Org Validation change */
655: l_org_id := p_PayGroup_rec.org_id;
719: FND_MSG_PUB.Count_And_Get
720: (
721: p_count => x_msg_count ,
722: p_data => x_msg_data ,
723: p_encoded => FND_API.G_FALSE
724: );
725: EXCEPTION
726: WHEN FND_API.G_EXC_ERROR THEN
727: ROLLBACK TO Delete_PayGroup;
722: p_data => x_msg_data ,
723: p_encoded => FND_API.G_FALSE
724: );
725: EXCEPTION
726: WHEN FND_API.G_EXC_ERROR THEN
727: ROLLBACK TO Delete_PayGroup;
728: x_return_status := FND_API.G_RET_STS_ERROR ;
729: FND_MSG_PUB.Count_And_Get
730: (
724: );
725: EXCEPTION
726: WHEN FND_API.G_EXC_ERROR THEN
727: ROLLBACK TO Delete_PayGroup;
728: x_return_status := FND_API.G_RET_STS_ERROR ;
729: FND_MSG_PUB.Count_And_Get
730: (
731: p_count => x_msg_count ,
732: p_data => x_msg_data ,
729: FND_MSG_PUB.Count_And_Get
730: (
731: p_count => x_msg_count ,
732: p_data => x_msg_data ,
733: p_encoded => FND_API.G_FALSE
734: );
735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
736: ROLLBACK TO Delete_PayGroup;
737: x_loading_status := 'UNEXPECTED_ERR';
731: p_count => x_msg_count ,
732: p_data => x_msg_data ,
733: p_encoded => FND_API.G_FALSE
734: );
735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
736: ROLLBACK TO Delete_PayGroup;
737: x_loading_status := 'UNEXPECTED_ERR';
738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
739: FND_MSG_PUB.Count_And_Get
734: );
735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
736: ROLLBACK TO Delete_PayGroup;
737: x_loading_status := 'UNEXPECTED_ERR';
738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
739: FND_MSG_PUB.Count_And_Get
740: (
741: p_count => x_msg_count ,
742: p_data => x_msg_data ,
739: FND_MSG_PUB.Count_And_Get
740: (
741: p_count => x_msg_count ,
742: p_data => x_msg_data ,
743: p_encoded => FND_API.G_FALSE
744: );
745: WHEN OTHERS THEN
746: ROLLBACK TO Delete_PayGroup;
747: x_loading_status := 'UNEXPECTED_ERR';
744: );
745: WHEN OTHERS THEN
746: ROLLBACK TO Delete_PayGroup;
747: x_loading_status := 'UNEXPECTED_ERR';
748: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
749: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
750: THEN
751: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
752: END IF;
753: FND_MSG_PUB.Count_And_Get
754: (
755: p_count => x_msg_count ,
756: p_data => x_msg_data ,
757: p_encoded => FND_API.G_FALSE
758: );
759:
760: END Delete_PayGroup;
761: