56: OR
57: (p_srp_pay_group_id IS NULL));
58:
59: IF l_dummy > 0 THEN
60: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
61: FND_MESSAGE.Set_Name('CN', 'CN_SRP_PAY_GRP_EXIST');
62: FND_MSG_PUB.Add;
63: END IF;
64: x_loading_status := 'CN_SRP_PAY_GRP_EXIST';
58:
59: IF l_dummy > 0 THEN
60: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
61: FND_MESSAGE.Set_Name('CN', 'CN_SRP_PAY_GRP_EXIST');
62: FND_MSG_PUB.Add;
63: END IF;
64: x_loading_status := 'CN_SRP_PAY_GRP_EXIST';
65: RAISE FND_API.G_EXC_ERROR ;
66: END IF;
76: WHERE salesrep_id = p_salesrep_id
77: AND org_id = p_org_id;
78:
79: IF l_srp_start_date IS NULL THEN
80: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
81: FND_MESSAGE.SET_NAME('CN','SRP_MUST_ACTIVATE_REP');
82: FND_MSG_PUB.Add;
83: END IF;
84: x_loading_status := 'SRP_MUST_ACTIVATE_REP';
78:
79: IF l_srp_start_date IS NULL THEN
80: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
81: FND_MESSAGE.SET_NAME('CN','SRP_MUST_ACTIVATE_REP');
82: FND_MSG_PUB.Add;
83: END IF;
84: x_loading_status := 'SRP_MUST_ACTIVATE_REP';
85: RAISE FND_API.G_EXC_ERROR ;
86: END IF;
126:
127: ) -- end of IF
128:
129: THEN
130: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
131: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPP_PG_PRDS_NI_SRP_PRDS');
132: FND_MSG_PUB.Add;
133: END IF;
134: x_loading_status := 'CN_SPP_PG_PRDS_NI_SRP_PRDS';
128:
129: THEN
130: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
131: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPP_PG_PRDS_NI_SRP_PRDS');
132: FND_MSG_PUB.Add;
133: END IF;
134: x_loading_status := 'CN_SPP_PG_PRDS_NI_SRP_PRDS';
135: RAISE FND_API.G_EXC_ERROR ;
136: END IF;
167: ) -- end of IF
168:
169:
170: THEN
171: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
172: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPP_PRDS_NI_PAY_GRP_PRDS');
173: FND_MSG_PUB.Add;
174: END IF;
175: x_loading_status := 'CN_SPP_PRDS_NI_PAY_GRP_PRDS';
169:
170: THEN
171: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
172: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPP_PRDS_NI_PAY_GRP_PRDS');
173: FND_MSG_PUB.Add;
174: END IF;
175: x_loading_status := 'CN_SPP_PRDS_NI_PAY_GRP_PRDS';
176: RAISE FND_API.G_EXC_ERROR ;
177: END IF;
189:
190: IF l_count <> 0
191: THEN
192: --Error condition
193: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
194: THEN
195: fnd_message.set_name('CN', 'CN_INVALID_SRP_PGRP_ASGN_DT');
196: fnd_msg_pub.add;
197: END IF;
192: --Error condition
193: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
194: THEN
195: fnd_message.set_name('CN', 'CN_INVALID_SRP_PGRP_ASGN_DT');
196: fnd_msg_pub.add;
197: END IF;
198:
199: x_loading_status := 'CN_INVALID_SRP_PGRP_ASGN_DT';
200: RAISE FND_API.G_EXC_ERROR;
213:
214: IF l_count <> 0
215: THEN
216: --Error condition
217: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
218: THEN
219: fnd_message.set_name('CN', 'CN_OVERLAP_SRP_PGRP_ASGN');
220: fnd_msg_pub.add;
221: END IF;
216: --Error condition
217: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
218: THEN
219: fnd_message.set_name('CN', 'CN_OVERLAP_SRP_PGRP_ASGN');
220: fnd_msg_pub.add;
221: END IF;
222:
223: x_loading_status := 'CN_OVERLAP_SRP_PGRP_ASGN';
224: RAISE FND_API.G_EXC_ERROR;
236:
237: IF l_count <> 0
238: THEN
239: --Error condition
240: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
241: THEN
242: fnd_message.set_name('CN', 'CN_OVERLAP_SRP_PGRP_ASGN');
243: fnd_msg_pub.add;
244: END IF;
239: --Error condition
240: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
241: THEN
242: fnd_message.set_name('CN', 'CN_OVERLAP_SRP_PGRP_ASGN');
243: fnd_msg_pub.add;
244: END IF;
245: x_loading_status := 'CN_OVERLAP_SRP_PGRP_ASGN';
246: RAISE FND_API.G_EXC_ERROR;
247: END IF;
258:
259: IF l_count <> 0
260: THEN
261: --Error condition
262: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
263: THEN
264: fnd_message.set_name('CN', 'CN_OVERLAP_SRP_PGRP_ASGN');
265: fnd_msg_pub.add;
266: END IF;
261: --Error condition
262: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
263: THEN
264: fnd_message.set_name('CN', 'CN_OVERLAP_SRP_PGRP_ASGN');
265: fnd_msg_pub.add;
266: END IF;
267:
268: x_loading_status := 'CN_OVERLAP_SRP_PGRP_ASGN';
269: RAISE FND_API.G_EXC_ERROR;
281:
282: WHEN OTHERS THEN
283: x_loading_status := 'UNEXPECTED_ERR';
284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
285: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
286: THEN
287: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
288: END IF;
289:
283: x_loading_status := 'UNEXPECTED_ERR';
284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
285: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
286: THEN
287: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
288: END IF;
289:
290: END Validate_Assignment;
291:
338: AND csp.salesrep_id = cpd.credited_salesrep_id
339: AND csp.end_date > p_assign_end_date);
340: EXCEPTION
341: WHEN NO_DATA_FOUND THEN
342: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
343: THEN
344: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_PGRP_ASGN_END_DT');
345: FND_MSG_PUB.Add;
346: END IF;
341: WHEN NO_DATA_FOUND THEN
342: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
343: THEN
344: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_PGRP_ASGN_END_DT');
345: FND_MSG_PUB.Add;
346: END IF;
347: x_loading_status := 'CN_INVALID_PGRP_ASGN_END_DT';
348: RAISE FND_API.G_EXC_ERROR ;
349: END;
361:
362: WHEN OTHERS THEN
363: x_loading_status := 'UNEXPECTED_ERR';
364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
365: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
366: THEN
367: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
368: END IF;
369:
363: x_loading_status := 'UNEXPECTED_ERR';
364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
365: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
366: THEN
367: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
368: END IF;
369:
370: END Validate_end_date;
371:
539: END IF;
540:
541: -- Initialize message list if p_init_msg_list is set to TRUE.
542: IF FND_API.to_Boolean( p_init_msg_list ) THEN
543: FND_MSG_PUB.initialize;
544: END IF;
545:
546: -- Initialize API return status to success
547: x_return_status := FND_API.G_RET_STS_SUCCESS;
575: THEN
576: RAISE FND_API.G_EXC_ERROR ;
577: ELSIF x_loading_status = 'CN_INVALID_SRP_PGRP_ASGN_DT'
578: THEN
579: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
580: THEN
581: fnd_message.set_name('CN', 'CN_INVALID_SRP_PGRP_ASGN_DT');
582: fnd_msg_pub.add;
583: END IF;
578: THEN
579: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
580: THEN
581: fnd_message.set_name('CN', 'CN_INVALID_SRP_PGRP_ASGN_DT');
582: fnd_msg_pub.add;
583: END IF;
584: x_loading_status := 'CN_INVALID_SRP_PGRP_ASGN_DT';
585: RAISE FND_API.G_EXC_ERROR;
586: ELSIF x_loading_status = 'CN_OVERLAP_SRP_PGRP_ASGN'
584: x_loading_status := 'CN_INVALID_SRP_PGRP_ASGN_DT';
585: RAISE FND_API.G_EXC_ERROR;
586: ELSIF x_loading_status = 'CN_OVERLAP_SRP_PGRP_ASGN'
587: THEN
588: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
589: THEN
590: fnd_message.set_name('CN', 'CN_OVERLAP_SRP_PGRP_ASGN');
591: fnd_msg_pub.add;
592: END IF;
587: THEN
588: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
589: THEN
590: fnd_message.set_name('CN', 'CN_OVERLAP_SRP_PGRP_ASGN');
591: fnd_msg_pub.add;
592: END IF;
593: x_loading_status := 'CN_OVERLAP_SRP_PGRP_ASGN';
594: RAISE FND_API.G_EXC_ERROR;
595: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
653: p_paygroup_assign_rec => p_paygroup_assign_rec);
654:
655:
656: else
657: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
658: THEN
659: FND_MESSAGE.SET_NAME ('CN' , 'CN_SRP_PAY_GROUPS_EXIST');
660: FND_MSG_PUB.Add;
661: END IF;
656: else
657: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
658: THEN
659: FND_MESSAGE.SET_NAME ('CN' , 'CN_SRP_PAY_GROUPS_EXIST');
660: FND_MSG_PUB.Add;
661: END IF;
662: x_loading_status := 'CN_SRP_PAY_GROUPS_EXIST';
663: RAISE FND_API.G_EXC_ERROR ;
664: END IF;
762: COMMIT WORK;
763: END IF;
764:
765: -- Standard call to get message count and if count is 1, get message info
766: FND_MSG_PUB.Count_And_Get
767: (
768: p_count => x_msg_count ,
769: p_data => x_msg_data ,
770: p_encoded => FND_API.G_FALSE
773: EXCEPTION
774: WHEN FND_API.G_EXC_ERROR THEN
775: ROLLBACK TO Create_Srp_Pay_Group;
776: x_return_status := FND_API.G_RET_STS_ERROR ;
777: FND_MSG_PUB.Count_And_Get
778: (
779: p_count => x_msg_count ,
780: p_data => x_msg_data ,
781: p_encoded => FND_API.G_FALSE
783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
784: ROLLBACK TO Create_Srp_Pay_Group;
785: x_loading_status := 'UNEXPECTED_ERR';
786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
787: FND_MSG_PUB.Count_And_Get
788: (
789: p_count => x_msg_count ,
790: p_data => x_msg_data ,
791: p_encoded => FND_API.G_FALSE
793: WHEN OTHERS THEN
794: ROLLBACK TO Create_Srp_Pay_Group;
795: x_loading_status := 'UNEXPECTED_ERR';
796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
797: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
798: THEN
799: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
800: END IF;
801: FND_MSG_PUB.Count_And_Get
795: x_loading_status := 'UNEXPECTED_ERR';
796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
797: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
798: THEN
799: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
800: END IF;
801: FND_MSG_PUB.Count_And_Get
802: (
803: p_count => x_msg_count ,
797: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
798: THEN
799: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
800: END IF;
801: FND_MSG_PUB.Count_And_Get
802: (
803: p_count => x_msg_count ,
804: p_data => x_msg_data ,
805: p_encoded => FND_API.G_FALSE
896: END IF;
897:
898: -- Initialize message list if p_init_msg_list is set to TRUE.
899: IF FND_API.to_Boolean( p_init_msg_list ) THEN
900: FND_MSG_PUB.initialize;
901: END IF;
902:
903: -- Initialize API return status to success
904: x_return_status := FND_API.G_RET_STS_SUCCESS;
915: IF l_ovn_old <> p_paygroup_assign_rec.object_version_number THEN
916: --
917: --Raise an error if the object_version numbers don't match
918: --
919: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
920: THEN
921: fnd_message.set_name('CN', 'CL_INVALID_OVN');
922: fnd_msg_pub.add;
923: END IF;
918: --
919: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
920: THEN
921: fnd_message.set_name('CN', 'CL_INVALID_OVN');
922: fnd_msg_pub.add;
923: END IF;
924: x_loading_status := 'CL_INVALID_OVN';
925: RAISE FND_API.G_EXC_ERROR;
926: END IF;
930: --
931: --Raise an error since the salesrep should not be updated
932: --Instead, the assignment dates should be changed to reflect this.
933: --
934: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
935: THEN
936: fnd_message.set_name('CN', 'CN_INVALID_UPD_SRP_PGRP');
937: fnd_msg_pub.add;
938: END IF;
933: --
934: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
935: THEN
936: fnd_message.set_name('CN', 'CN_INVALID_UPD_SRP_PGRP');
937: fnd_msg_pub.add;
938: END IF;
939: x_loading_status := 'CN_INVALID_UPD_SRP_PGRP';
940: RAISE FND_API.G_EXC_ERROR;
941: END IF;
941: END IF;
942:
943: -- can't change lock flag from Y to N
944: IF l_old_lock_flag = 'Y' AND p_paygroup_assign_rec.lock_flag = 'N' THEN
945: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
946: THEN
947: fnd_message.set_name('CN', 'CN_CANNOT_UPDATE_LOCK');
948: fnd_msg_pub.add;
949: END IF;
944: IF l_old_lock_flag = 'Y' AND p_paygroup_assign_rec.lock_flag = 'N' THEN
945: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
946: THEN
947: fnd_message.set_name('CN', 'CN_CANNOT_UPDATE_LOCK');
948: fnd_msg_pub.add;
949: END IF;
950: x_loading_status := 'CN_CANNOT_UPDATE_LOCK';
951: RAISE FND_API.G_EXC_ERROR;
952: END IF;
953:
954: -- can't change lock from N to Y if it is manual assignment
955: IF l_old_lock_flag = 'N' AND p_paygroup_assign_rec.lock_flag = 'Y' AND
956: p_paygroup_assign_rec.role_pay_group_id IS NULL THEN
957: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
958: THEN
959: fnd_message.set_name('CN', 'CN_CANNOT_UPDATE_LOCK');
960: fnd_msg_pub.add;
961: END IF;
956: p_paygroup_assign_rec.role_pay_group_id IS NULL THEN
957: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
958: THEN
959: fnd_message.set_name('CN', 'CN_CANNOT_UPDATE_LOCK');
960: fnd_msg_pub.add;
961: END IF;
962: x_loading_status := 'CN_CANNOT_UPDATE_LOCK';
963: RAISE FND_API.G_EXC_ERROR;
964: END IF;
987: THEN
988: RAISE FND_API.G_EXC_ERROR ;
989: ELSIF x_loading_status = 'CN_INVALID_SRP_PGRP_ASGN_DT'
990: THEN
991: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
992: THEN
993: fnd_message.set_name('CN', 'CN_INVALID_SRP_PGRP_ASGN_DT');
994: fnd_msg_pub.add;
995: END IF;
990: THEN
991: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
992: THEN
993: fnd_message.set_name('CN', 'CN_INVALID_SRP_PGRP_ASGN_DT');
994: fnd_msg_pub.add;
995: END IF;
996: x_loading_status := 'CN_INVALID_SRP_PGRP_ASGN_DT';
997: RAISE FND_API.G_EXC_ERROR;
998: ELSIF x_loading_status = 'CN_OVERLAP_SRP_PGRP_ASGN'
996: x_loading_status := 'CN_INVALID_SRP_PGRP_ASGN_DT';
997: RAISE FND_API.G_EXC_ERROR;
998: ELSIF x_loading_status = 'CN_OVERLAP_SRP_PGRP_ASGN'
999: THEN
1000: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1001: THEN
1002: fnd_message.set_name('CN', 'CN_OVERLAP_SRP_PGRP_ASGN');
1003: fnd_msg_pub.add;
1004: END IF;
999: THEN
1000: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1001: THEN
1002: fnd_message.set_name('CN', 'CN_OVERLAP_SRP_PGRP_ASGN');
1003: fnd_msg_pub.add;
1004: END IF;
1005: x_loading_status := 'CN_OVERLAP_SRP_PGRP_ASGN';
1006: RAISE FND_API.G_EXC_ERROR;
1007: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
1050: l_payee_assign_date_rec.start_date,
1051: l_payee_assign_date_rec.end_date) = true THEN
1052:
1053: -- Raise Error
1054: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1055: THEN
1056: fnd_message.set_name('CN', 'CN_PA_ASGN_DATE');
1057: fnd_msg_pub.add;
1058: END IF;
1053: -- Raise Error
1054: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1055: THEN
1056: fnd_message.set_name('CN', 'CN_PA_ASGN_DATE');
1057: fnd_msg_pub.add;
1058: END IF;
1059:
1060: x_loading_status := 'CN_PA_ASGN_DATE';
1061: RAISE FND_API.G_EXC_ERROR;
1085: );
1086:
1087: IF l_ws_count > 0 THEN
1088: -- Raise Error
1089: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1090: THEN
1091: fnd_message.set_name('CN', 'CN_SRP_PG_WS');
1092: fnd_msg_pub.add;
1093: END IF;
1088: -- Raise Error
1089: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1090: THEN
1091: fnd_message.set_name('CN', 'CN_SRP_PG_WS');
1092: fnd_msg_pub.add;
1093: END IF;
1094:
1095: x_loading_status := 'CN_SRP_PG_WS';
1096: RAISE FND_API.G_EXC_ERROR;
1128: AND greatest(prd.start_date, p_paygroup_assign_rec.assignment_end_date) <
1129: least(prd.end_date, nvl(l_old_assignment_end_date, prd.end_date));
1130:
1131: if l_dummy > 0 then
1132: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1133: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPG_CANNOT_SHORTEN_ED');
1134: FND_MSG_PUB.Add;
1135: END IF;
1136: x_loading_status := 'CN_SPG_CANNOT_SHORTEN_ED';
1130:
1131: if l_dummy > 0 then
1132: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1133: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPG_CANNOT_SHORTEN_ED');
1134: FND_MSG_PUB.Add;
1135: END IF;
1136: x_loading_status := 'CN_SPG_CANNOT_SHORTEN_ED';
1137: RAISE FND_API.G_EXC_ERROR ;
1138: end if;
1154: AND greatest(prd.start_date, l_old_assignment_start_date) <
1155: least(prd.end_date, p_paygroup_assign_rec.assignment_start_date);
1156:
1157: if l_dummy > 0 then
1158: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1159: THEN
1160: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPG_UPDATE_NOT_ALLOWED');
1161: FND_MSG_PUB.Add;
1162: END IF;
1157: if l_dummy > 0 then
1158: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1159: THEN
1160: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPG_UPDATE_NOT_ALLOWED');
1161: FND_MSG_PUB.Add;
1162: END IF;
1163: x_loading_status := 'CN_SPG_UPDATE_NOT_ALLOWED';
1164: RAISE FND_API.G_EXC_ERROR ;
1165: END if;
1317: COMMIT WORK;
1318: END IF;
1319:
1320: -- Standard call to get message count and if count is 1, get message info
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
1328: EXCEPTION
1329: WHEN FND_API.G_EXC_ERROR THEN
1330: ROLLBACK TO Update_Srp_Pay_Group;
1331: x_return_status := FND_API.G_RET_STS_ERROR ;
1332: FND_MSG_PUB.Count_And_Get
1333: (
1334: p_count => x_msg_count ,
1335: p_data => x_msg_data ,
1336: p_encoded => FND_API.G_FALSE
1338: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1339: ROLLBACK TO Update_Srp_Pay_Group;
1340: x_loading_status := 'UNEXPECTED_ERR';
1341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1342: FND_MSG_PUB.Count_And_Get
1343: (
1344: p_count => x_msg_count ,
1345: p_data => x_msg_data ,
1346: p_encoded => FND_API.G_FALSE
1348: WHEN OTHERS THEN
1349: ROLLBACK TO Update_Srp_Pay_Group;
1350: x_loading_status := 'UNEXPECTED_ERR';
1351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1352: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1353: THEN
1354: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1355: END IF;
1356: FND_MSG_PUB.Count_And_Get
1350: x_loading_status := 'UNEXPECTED_ERR';
1351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1352: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1353: THEN
1354: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1355: END IF;
1356: FND_MSG_PUB.Count_And_Get
1357: (
1358: p_count => x_msg_count ,
1352: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1353: THEN
1354: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1355: END IF;
1356: FND_MSG_PUB.Count_And_Get
1357: (
1358: p_count => x_msg_count ,
1359: p_data => x_msg_data ,
1360: p_encoded => FND_API.G_FALSE
1401:
1402: BEGIN
1403: -- Initialize message list if p_init_msg_list is set to TRUE.
1404: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1405: FND_MSG_PUB.initialize;
1406: END IF;
1407:
1408: -- Initialize API return status to success
1409: x_return_status := FND_API.G_RET_STS_SUCCESS;
1425: l_payee_assign_date_rec.start_date,
1426: l_payee_assign_date_rec.end_date) = true THEN
1427:
1428: -- Raise Error
1429: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1430: THEN
1431: fnd_message.set_name('CN', 'CN_PA_ASGN_DATE');
1432: fnd_msg_pub.add;
1433: END IF;
1428: -- Raise Error
1429: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1430: THEN
1431: fnd_message.set_name('CN', 'CN_PA_ASGN_DATE');
1432: fnd_msg_pub.add;
1433: END IF;
1434:
1435: x_loading_status := 'CN_PA_ASGN_DATE';
1436: RAISE FND_API.G_EXC_ERROR;
1458: );
1459:
1460: IF l_ws_count > 0 THEN
1461: -- Raise Error
1462: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1463: THEN
1464: fnd_message.set_name('CN', 'CN_SRP_PG_WS');
1465: fnd_msg_pub.add;
1466: END IF;
1461: -- Raise Error
1462: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1463: THEN
1464: fnd_message.set_name('CN', 'CN_SRP_PG_WS');
1465: fnd_msg_pub.add;
1466: END IF;
1467:
1468: x_loading_status := 'CN_SRP_PG_WS';
1469: RAISE FND_API.G_EXC_ERROR;
1510: nvl(p_paygroup_assign_rec.assignment_end_date,l_null_date))));
1511:
1512: IF l_count = 0 THEN
1513: --Error condition
1514: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1515: THEN
1516: fnd_message.set_name('CN', 'CN_SRP_PG_WS');
1517: fnd_msg_pub.add;
1518: END IF;
1513: --Error condition
1514: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1515: THEN
1516: fnd_message.set_name('CN', 'CN_SRP_PG_WS');
1517: fnd_msg_pub.add;
1518: END IF;
1519:
1520: x_loading_status := 'CN_SRP_PG_WS';
1521: RAISE FND_API.G_EXC_ERROR;
1523: END IF;
1524: EXCEPTION
1525: WHEN FND_API.G_EXC_ERROR THEN
1526: x_return_status := FND_API.G_RET_STS_ERROR ;
1527: FND_MSG_PUB.Count_And_Get
1528:
1529:
1530: (
1531: p_count => x_msg_count ,
1534: );
1535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1536: x_loading_status := 'UNEXPECTED_ERR';
1537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1538: FND_MSG_PUB.Count_And_Get
1539: (
1540: p_count => x_msg_count ,
1541: p_data => x_msg_data ,
1542: p_encoded => FND_API.G_FALSE
1543: );
1544: WHEN OTHERS THEN
1545: x_loading_status := 'UNEXPECTED_ERR';
1546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1548: THEN
1549: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1550: END IF;
1551: FND_MSG_PUB.Count_And_Get
1545: x_loading_status := 'UNEXPECTED_ERR';
1546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1548: THEN
1549: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1550: END IF;
1551: FND_MSG_PUB.Count_And_Get
1552: (
1553: p_count => x_msg_count ,
1547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1548: THEN
1549: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1550: END IF;
1551: FND_MSG_PUB.Count_And_Get
1552: (
1553: p_count => x_msg_count ,
1554: p_data => x_msg_data ,
1555: p_encoded => FND_API.G_FALSE
1639: END IF;
1640:
1641: -- Initialize message list if p_init_msg_list is set to TRUE.
1642: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1643: FND_MSG_PUB.initialize;
1644: END IF;
1645:
1646: -- Initialize API return status to success
1647: x_return_status := FND_API.G_RET_STS_SUCCESS;
1779:
1780:
1781: -- Standard call to get message count and if count is 1, get message info.
1782:
1783: FND_MSG_PUB.Count_And_Get
1784: (
1785: p_count => x_msg_count ,
1786: p_data => x_msg_data ,
1787: p_encoded => FND_API.G_FALSE
1790: EXCEPTION
1791: WHEN FND_API.G_EXC_ERROR THEN
1792: ROLLBACK TO Delete_Srp_Pay_Group;
1793: x_return_status := FND_API.G_RET_STS_ERROR ;
1794: FND_MSG_PUB.Count_And_Get
1795:
1796:
1797: (
1798: p_count => x_msg_count ,
1802: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1803: ROLLBACK TO Delete_Srp_Pay_Group;
1804: x_loading_status := 'UNEXPECTED_ERR';
1805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1806: FND_MSG_PUB.Count_And_Get
1807: (
1808: p_count => x_msg_count ,
1809: p_data => x_msg_data ,
1810: p_encoded => FND_API.G_FALSE
1812: WHEN OTHERS THEN
1813: ROLLBACK TO Delete_Srp_Pay_Group;
1814: x_loading_status := 'UNEXPECTED_ERR';
1815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1816: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1817: THEN
1818: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1819: END IF;
1820: FND_MSG_PUB.Count_And_Get
1814: x_loading_status := 'UNEXPECTED_ERR';
1815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1816: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1817: THEN
1818: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1819: END IF;
1820: FND_MSG_PUB.Count_And_Get
1821: (
1822: p_count => x_msg_count ,
1816: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1817: THEN
1818: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1819: END IF;
1820: FND_MSG_PUB.Count_And_Get
1821: (
1822: p_count => x_msg_count ,
1823: p_data => x_msg_data ,
1824: p_encoded => FND_API.G_FALSE