58: EXCEPTION
59: WHEN OTHERS THEN
60: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
61: x_loading_status := 'UNEXPECTED_ERR';
62: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
63: THEN
64: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
65: END IF;
66:
60: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
61: x_loading_status := 'UNEXPECTED_ERR';
62: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
63: THEN
64: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
65: END IF;
66:
67: END Get_PayGroup_ID;
68:
222: -- End of Validate Pay Groups.
223: -- Standard call to get message count and if count is 1,
224: -- get message info.
225:
226: FND_MSG_PUB.Count_And_Get
227: (
228: p_count => x_msg_count,
229: p_data => x_msg_data,
230: p_encoded => FND_API.G_FALSE
240:
241: WHEN OTHERS THEN
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
243: x_loading_status := 'UNEXPECTED_ERR';
244: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
245: THEN
246: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
247: END IF;
248:
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
243: x_loading_status := 'UNEXPECTED_ERR';
244: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
245: THEN
246: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
247: END IF;
248:
249: END Validate_PayGroup;
250:
319:
320: -- Initialize message list if p_init_msg_list is set to TRUE.
321:
322: IF FND_API.to_Boolean( p_init_msg_list ) THEN
323: FND_MSG_PUB.initialize;
324: END IF;
325:
326:
327: -- Initialize API return status to success
337: AND p_PayGroup_rec.start_date IS NOT NULL
338: AND (p_PayGroup_rec.start_date > p_PayGroup_rec.end_date)
339: THEN
340: --Error condition
341: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
342: THEN
343: fnd_message.set_name('CN', 'CN_INVALID_DATE_RANGE');
344: fnd_msg_pub.add;
345: END IF;
340: --Error condition
341: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
342: THEN
343: fnd_message.set_name('CN', 'CN_INVALID_DATE_RANGE');
344: fnd_msg_pub.add;
345: END IF;
346:
347: x_loading_status := 'CN_INVALID_DATE_RANGE';
348: RAISE FND_API.G_EXC_ERROR;
375:
376:
377: IF (l_count <> 0) THEN
378: --Error condition
379: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
380: THEN
381: fnd_message.set_name('CN', 'CN_PAY_GROUP_EXISTS');
382: fnd_msg_pub.add;
383: END IF;
378: --Error condition
379: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
380: THEN
381: fnd_message.set_name('CN', 'CN_PAY_GROUP_EXISTS');
382: fnd_msg_pub.add;
383: END IF;
384:
385: x_loading_status := 'CN_PAY_GROUP_EXISTS';
386: RAISE FND_API.G_EXC_ERROR;
414: and org_id = p_paygroup_rec.org_id
415: );
416: EXCEPTION
417: WHEN NO_DATA_FOUND THEN
418: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
419: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAYGROUP_OVERLAPS');
420: FND_MSG_PUB.Add;
421: END IF;
422: x_loading_status := 'CN_PAYGROUP_OVERLAPS';
416: EXCEPTION
417: WHEN NO_DATA_FOUND THEN
418: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
419: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAYGROUP_OVERLAPS');
420: FND_MSG_PUB.Add;
421: END IF;
422: x_loading_status := 'CN_PAYGROUP_OVERLAPS';
423: RAISE FND_API.G_EXC_ERROR ;
424: END;
441: OPEN get_period_set_id;
442: FETCH get_period_set_id INTO l_period_set_id;
443: IF get_period_set_id%ROWCOUNT = 0
444: THEN
445: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
446: THEN
447: fnd_message.set_name('CN', 'CN_INVALID_PRD_SET');
448: fnd_msg_pub.add;
449: END IF;
444: THEN
445: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
446: THEN
447: fnd_message.set_name('CN', 'CN_INVALID_PRD_SET');
448: fnd_msg_pub.add;
449: END IF;
450:
451: x_loading_status := 'CN_INVALID_PRD_SET';
452: CLOSE get_period_set_id;
460: OPEN get_period_type_id;
461: FETCH get_period_type_id INTO l_period_type_id;
462: IF get_period_type_id%ROWCOUNT = 0
463: THEN
464: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
465: THEN
466: fnd_message.set_name('CN', 'CN_INVALID_PERIOD_TYPE');
467: fnd_msg_pub.add;
468: END IF;
463: THEN
464: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
465: THEN
466: fnd_message.set_name('CN', 'CN_INVALID_PERIOD_TYPE');
467: fnd_msg_pub.add;
468: END IF;
469:
470: x_loading_status := 'CN_INVALID_PERIOD_TYPE';
471: CLOSE get_period_type_id;
524: END IF;
525:
526: -- Standard call to get message count and if count is 1, get message info.
527:
528: FND_MSG_PUB.Count_And_Get
529: (
530: p_count => x_msg_count ,
531: p_data => x_msg_data ,
532: p_encoded => FND_API.G_FALSE
535: EXCEPTION
536: WHEN FND_API.G_EXC_ERROR THEN
537: ROLLBACK TO Create_PayGroup;
538: x_return_status := FND_API.G_RET_STS_ERROR ;
539: FND_MSG_PUB.Count_And_Get
540: (
541: p_count => x_msg_count ,
542: p_data => x_msg_data ,
543: p_encoded => FND_API.G_FALSE
545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
546: ROLLBACK TO Create_PayGroup;
547: x_loading_status := 'UNEXPECTED_ERR';
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
549: FND_MSG_PUB.Count_And_Get
550: (
551: p_count => x_msg_count ,
552: p_data => x_msg_data ,
553: p_encoded => FND_API.G_FALSE
555: WHEN OTHERS THEN
556: ROLLBACK TO Create_PayGroup;
557: x_loading_status := 'UNEXPECTED_ERR';
558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
559: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
560: THEN
561: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
562: END IF;
563: FND_MSG_PUB.Count_And_Get
557: x_loading_status := 'UNEXPECTED_ERR';
558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
559: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
560: THEN
561: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
562: END IF;
563: FND_MSG_PUB.Count_And_Get
564: (
565: p_count => x_msg_count ,
559: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
560: THEN
561: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
562: END IF;
563: FND_MSG_PUB.Count_And_Get
564: (
565: p_count => x_msg_count ,
566: p_data => x_msg_data ,
567: p_encoded => FND_API.G_FALSE
736:
737: -- Initialize message list if p_init_msg_list is set to TRUE.
738:
739: IF FND_API.to_Boolean( p_init_msg_list ) THEN
740: FND_MSG_PUB.initialize;
741: END IF;
742:
743: -- Initialize API return status to success
744:
756: l_old_ovn := p_old_PayGroup_rec.object_version_number;
757:
758: IF l_old_ovn <> p_PayGroup_rec.object_version_number THEN
759: fnd_message.set_name('CN', 'CN_RECORD_CHANGED');
760: fnd_msg_pub.add;
761: raise fnd_api.g_exc_error;
762: END IF;
763:
764: Validate_PayGroup
784: IF p_paygroup_rec.end_date IS NOT NULL
785: AND (p_paygroup_rec.start_date > p_paygroup_rec.end_date)
786: THEN
787: --Error condition
788: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
789: THEN
790: fnd_message.set_name('CN', 'CN_INVALID_DATE_RANGE');
791: fnd_msg_pub.add;
792: END IF;
787: --Error condition
788: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
789: THEN
790: fnd_message.set_name('CN', 'CN_INVALID_DATE_RANGE');
791: fnd_msg_pub.add;
792: END IF;
793:
794: x_loading_status := 'CN_INVALID_DATE_RANGE';
795: RAISE FND_API.G_EXC_ERROR;
798: IF p_old_paygroup_rec.end_date IS NOT NULL
799: AND (p_paygroup_rec.start_date > p_old_paygroup_rec.end_date)
800: THEN
801: --Error condition
802: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
803: THEN
804: fnd_message.set_name('CN', 'CN_INVALID_DATE_RANGE');
805: fnd_msg_pub.add;
806: END IF;
801: --Error condition
802: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
803: THEN
804: fnd_message.set_name('CN', 'CN_INVALID_DATE_RANGE');
805: fnd_msg_pub.add;
806: END IF;
807:
808: x_loading_status := 'CN_INVALID_DATE_RANGE';
809: RAISE FND_API.G_EXC_ERROR;
827: RAISE fnd_api.g_exc_error;
828:
829: ELSIF x_status <> 'PAY GROUP EXISTS'
830: THEN
831: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
832: THEN
833: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_PAY_GROUP');
834: fnd_message.set_token('PAY_GROUP_NAME', p_old_PayGroup_rec.name);
835: FND_MSG_PUB.Add;
831: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
832: THEN
833: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_PAY_GROUP');
834: fnd_message.set_token('PAY_GROUP_NAME', p_old_PayGroup_rec.name);
835: FND_MSG_PUB.Add;
836: END IF;
837:
838: x_loading_status := 'CN_INVALID_PAY_GROUP';
839: RAISE FND_API.G_EXC_ERROR ;
854: AND pay_group_id <> l_pay_group_id;
855:
856: IF (l_count <> 0) THEN
857: --Error condition
858: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
859: THEN
860: fnd_message.set_name('CN', 'CN_PAY_GROUP_EXISTS');
861: fnd_msg_pub.add;
862: END IF;
857: --Error condition
858: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
859: THEN
860: fnd_message.set_name('CN', 'CN_PAY_GROUP_EXISTS');
861: fnd_msg_pub.add;
862: END IF;
863:
864: x_loading_status := 'CN_PAY_GROUP_EXISTS';
865: RAISE FND_API.G_EXC_ERROR;
892: AND pay_group_id <> l_pay_group_id
893: );
894: EXCEPTION
895: WHEN NO_DATA_FOUND THEN
896: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
897: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAYGROUP_OVERLAPS');
898: FND_MSG_PUB.Add;
899: END IF;
900: x_loading_status := 'CN_PAYGROUP_OVERLAPS';
894: EXCEPTION
895: WHEN NO_DATA_FOUND THEN
896: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
897: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAYGROUP_OVERLAPS');
898: FND_MSG_PUB.Add;
899: END IF;
900: x_loading_status := 'CN_PAYGROUP_OVERLAPS';
901: RAISE FND_API.G_EXC_ERROR ;
902: END;
924: OR l_end_date > p_paygroup_rec.end_date
925: THEN
926:
927: --Error condition
928: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
929: THEN
930: fnd_message.set_name('CN', 'CN_PAY_GROUP_CHANGE_NA');
931: fnd_msg_pub.add;
932: END IF;
927: --Error condition
928: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
929: THEN
930: fnd_message.set_name('CN', 'CN_PAY_GROUP_CHANGE_NA');
931: fnd_msg_pub.add;
932: END IF;
933:
934: x_status := 'CN_PAY_GROUP_CHANGE_NA';
935: x_loading_status := 'CN_PAY_GROUP_CHANGE_NA';
967: OR l_end_date > p_paygroup_rec.end_date
968: THEN
969:
970: --Error condition
971: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
972: THEN
973: fnd_message.set_name('CN', 'CN_PAY_GROUP_CHANGE_ROLE_NA');
974: fnd_msg_pub.add;
975: END IF;
970: --Error condition
971: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
972: THEN
973: fnd_message.set_name('CN', 'CN_PAY_GROUP_CHANGE_ROLE_NA');
974: fnd_msg_pub.add;
975: END IF;
976:
977: x_status := 'CN_PAY_GROUP_CHANGE_ROLE_NA';
978: x_loading_status := 'CN_PAY_GROUP_CHANGE_ROLE_NA';
994: OPEN get_period_set_id;
995: FETCH get_period_set_id INTO l_period_set_id;
996: IF get_period_set_id%ROWCOUNT = 0
997: THEN
998: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
999: THEN
1000: fnd_message.set_name('CN', 'CN_INVALID_PRD_SET');
1001: fnd_msg_pub.add;
1002: END IF;
997: THEN
998: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
999: THEN
1000: fnd_message.set_name('CN', 'CN_INVALID_PRD_SET');
1001: fnd_msg_pub.add;
1002: END IF;
1003:
1004: x_loading_status := 'CN_INVALID_PRD_SET';
1005: CLOSE get_period_set_id;
1019: OPEN get_period_type_id;
1020: FETCH get_period_type_id INTO l_period_type_id;
1021: IF get_period_type_id%ROWCOUNT = 0
1022: THEN
1023: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1024: THEN
1025: fnd_message.set_name('CN', 'CN_INVALID_PERIOD_TYPE');
1026: fnd_msg_pub.add;
1027: END IF;
1022: THEN
1023: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1024: THEN
1025: fnd_message.set_name('CN', 'CN_INVALID_PERIOD_TYPE');
1026: fnd_msg_pub.add;
1027: END IF;
1028:
1029: x_loading_status := 'CN_INVALID_PERIOD_TYPE';
1030: CLOSE get_period_type_id;
1056: cspg.pay_group_id=p_PayGroup_rec.pay_group_id and cpw.quota_id is null
1057: and cp.pay_period_id = cps.period_id and cp.org_id = cps.org_id;
1058:
1059: if(p_PayGroup_rec.end_date < l_pay_period_end_date) THEN
1060: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1061: FND_MESSAGE.SET_NAME ('CN' , 'CN_PG_CANNOT_SHORTEN_ED');
1062: FND_MSG_PUB.Add;
1063: END IF;
1064: x_loading_status := 'CN_PG_CANNOT_SHORTEN_ED';
1058:
1059: if(p_PayGroup_rec.end_date < l_pay_period_end_date) THEN
1060: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1061: FND_MESSAGE.SET_NAME ('CN' , 'CN_PG_CANNOT_SHORTEN_ED');
1062: FND_MSG_PUB.Add;
1063: END IF;
1064: x_loading_status := 'CN_PG_CANNOT_SHORTEN_ED';
1065: RAISE FND_API.G_EXC_ERROR ;
1066: end if;
1097:
1098: WHEN NO_DATA_FOUND THEN
1099:
1100: IF p_old_PayGroup_rec.period_type <> p_PayGroup_rec.period_type THEN
1101: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1102: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAYGRP_PRD_TYPE_NOT_UPD');
1103: FND_MSG_PUB.Add;
1104: END IF;
1105: x_loading_status := 'CN_PAYGRP_PRD_TYPE_NOT_UPD';
1099:
1100: IF p_old_PayGroup_rec.period_type <> p_PayGroup_rec.period_type THEN
1101: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1102: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAYGRP_PRD_TYPE_NOT_UPD');
1103: FND_MSG_PUB.Add;
1104: END IF;
1105: x_loading_status := 'CN_PAYGRP_PRD_TYPE_NOT_UPD';
1106: RAISE FND_API.G_EXC_ERROR ;
1107: END IF;
1106: RAISE FND_API.G_EXC_ERROR ;
1107: END IF;
1108:
1109: IF p_old_PayGroup_rec.period_set_name <> p_PayGroup_rec.period_set_name THEN
1110: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1111: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAYGRP_PRD_SNAME_NOT_UPD');
1112: FND_MSG_PUB.Add;
1113: END IF;
1114: x_loading_status := 'CN_PAYGRP_PRD_SNAME_NOT_UPD';
1108:
1109: IF p_old_PayGroup_rec.period_set_name <> p_PayGroup_rec.period_set_name THEN
1110: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1111: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAYGRP_PRD_SNAME_NOT_UPD');
1112: FND_MSG_PUB.Add;
1113: END IF;
1114: x_loading_status := 'CN_PAYGRP_PRD_SNAME_NOT_UPD';
1115: RAISE FND_API.G_EXC_ERROR ;
1116: END IF;
1137: EXCEPTION
1138: WHEN NO_DATA_FOUND THEN
1139:
1140: IF p_old_PayGroup_rec.period_type <> p_PayGroup_rec.period_type THEN
1141: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1142: THEN
1143: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAYGRP_PRD_TYPE_NOT_UPDP');
1144: FND_MSG_PUB.Add;
1145: END IF;
1140: IF p_old_PayGroup_rec.period_type <> p_PayGroup_rec.period_type THEN
1141: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1142: THEN
1143: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAYGRP_PRD_TYPE_NOT_UPDP');
1144: FND_MSG_PUB.Add;
1145: END IF;
1146: x_loading_status := 'CN_PAYGRP_PRD_TYPE_NOT_UPDP';
1147: RAISE FND_API.G_EXC_ERROR ;
1148: END IF;
1148: END IF;
1149:
1150:
1151: IF p_old_PayGroup_rec.period_set_name <> p_PayGroup_rec.period_set_name THEN
1152: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1153: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAYGRP_PRD_SNAME_NOT_UPD');
1154: FND_MSG_PUB.Add;
1155: END IF;
1156: x_loading_status := 'CN_PAYGRP_PRD_SNAME_NOT_UPDP';
1150:
1151: IF p_old_PayGroup_rec.period_set_name <> p_PayGroup_rec.period_set_name THEN
1152: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1153: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAYGRP_PRD_SNAME_NOT_UPD');
1154: FND_MSG_PUB.Add;
1155: END IF;
1156: x_loading_status := 'CN_PAYGRP_PRD_SNAME_NOT_UPDP';
1157: RAISE FND_API.G_EXC_ERROR ;
1158: END IF;
1283:
1284:
1285: -- Standard call to get message count and if count is 1, get message info.
1286:
1287: FND_MSG_PUB.Count_And_Get
1288: (
1289: p_count => x_msg_count ,
1290: p_data => x_msg_data ,
1291: p_encoded => FND_API.G_FALSE
1293: EXCEPTION
1294: WHEN FND_API.G_EXC_ERROR THEN
1295: ROLLBACK TO Update_PayGroup;
1296: x_return_status := FND_API.G_RET_STS_ERROR ;
1297: FND_MSG_PUB.Count_And_Get
1298: (
1299: p_count => x_msg_count ,
1300: p_data => x_msg_data ,
1301: p_encoded => FND_API.G_FALSE
1303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1304: ROLLBACK TO Update_PayGroup;
1305: x_loading_status := 'UNEXPECTED_ERR';
1306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1307: FND_MSG_PUB.Count_And_Get
1308: (
1309: p_count => x_msg_count ,
1310: p_data => x_msg_data ,
1311: p_encoded => FND_API.G_FALSE
1313: WHEN OTHERS THEN
1314: ROLLBACK TO Update_PayGroup;
1315: x_loading_status := 'UNEXPECTED_ERR';
1316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1317: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1318: THEN
1319: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
1320: END IF;
1321: FND_MSG_PUB.Count_And_Get
1315: x_loading_status := 'UNEXPECTED_ERR';
1316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1317: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1318: THEN
1319: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
1320: END IF;
1321: FND_MSG_PUB.Count_And_Get
1322: (
1323: p_count => x_msg_count ,
1317: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1318: THEN
1319: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
1320: END IF;
1321: FND_MSG_PUB.Count_And_Get
1322: (
1323: p_count => x_msg_count ,
1324: p_data => x_msg_data ,
1325: p_encoded => FND_API.G_FALSE
1377:
1378: -- Initialize message list if p_init_msg_list is set to TRUE.
1379:
1380: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1381: FND_MSG_PUB.initialize;
1382: END IF;
1383:
1384: -- Initialize API return status to success
1385:
1409: THEN
1410:
1411:
1412:
1413: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1414: THEN
1415: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_PAY_GROUP');
1416: fnd_message.set_token('PAY_GROUP_NAME', p_PayGroup_rec.name);
1417: FND_MSG_PUB.Add;
1413: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1414: THEN
1415: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_PAY_GROUP');
1416: fnd_message.set_token('PAY_GROUP_NAME', p_PayGroup_rec.name);
1417: FND_MSG_PUB.Add;
1418: END IF;
1419:
1420: x_loading_status := 'CN_INVALID_PAY_GROUP';
1421: RAISE FND_API.G_EXC_ERROR ;
1428:
1429: IF l_count_role <> 0
1430: THEN
1431:
1432: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1433: THEN
1434: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAY_GROUP_ASSIGNED_TO_ROLE');
1435: FND_MSG_PUB.Add;
1436: END IF;
1431:
1432: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1433: THEN
1434: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAY_GROUP_ASSIGNED_TO_ROLE');
1435: FND_MSG_PUB.Add;
1436: END IF;
1437:
1438: x_loading_status := 'CN_PAY_GROUP_ASSIGNED_TO_ROLE';
1439: RAISE FND_API.G_EXC_ERROR ;
1447:
1448: IF l_count <> 0
1449: THEN
1450:
1451: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1452: THEN
1453: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAY_GROUP_ASSIGNED_TO_SRP');
1454: FND_MSG_PUB.Add;
1455: END IF;
1450:
1451: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1452: THEN
1453: FND_MESSAGE.SET_NAME ('CN' , 'CN_PAY_GROUP_ASSIGNED_TO_SRP');
1454: FND_MSG_PUB.Add;
1455: END IF;
1456:
1457: x_loading_status := 'CN_PAY_GROUP_CHANGE_NA';
1458: RAISE FND_API.G_EXC_ERROR ;
1505: END IF;
1506:
1507: -- Standard call to get message count and if count is 1, get message info.
1508:
1509: FND_MSG_PUB.Count_And_Get
1510: (
1511: p_count => x_msg_count ,
1512: p_data => x_msg_data ,
1513: p_encoded => FND_API.G_FALSE
1515: EXCEPTION
1516: WHEN FND_API.G_EXC_ERROR THEN
1517: ROLLBACK TO Delete_PayGroup;
1518: x_return_status := FND_API.G_RET_STS_ERROR ;
1519: FND_MSG_PUB.Count_And_Get
1520: (
1521: p_count => x_msg_count ,
1522: p_data => x_msg_data ,
1523: p_encoded => FND_API.G_FALSE
1525: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1526: ROLLBACK TO Delete_PayGroup;
1527: x_loading_status := 'UNEXPECTED_ERR';
1528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1529: FND_MSG_PUB.Count_And_Get
1530: (
1531: p_count => x_msg_count ,
1532: p_data => x_msg_data ,
1533: p_encoded => FND_API.G_FALSE
1535: WHEN OTHERS THEN
1536: ROLLBACK TO Delete_PayGroup;
1537: x_loading_status := 'UNEXPECTED_ERR';
1538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1539: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1540: THEN
1541: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
1542: END IF;
1543: FND_MSG_PUB.Count_And_Get
1537: x_loading_status := 'UNEXPECTED_ERR';
1538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1539: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1540: THEN
1541: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
1542: END IF;
1543: FND_MSG_PUB.Count_And_Get
1544: (
1545: p_count => x_msg_count ,
1539: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1540: THEN
1541: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
1542: END IF;
1543: FND_MSG_PUB.Count_And_Get
1544: (
1545: p_count => x_msg_count ,
1546: p_data => x_msg_data ,
1547: p_encoded => FND_API.G_FALSE