145:
146: --
147: -- Initialize API return status to success
148: --
149: x_return_status := FND_API.G_RET_STS_SUCCESS;
150: x_loading_status := p_loading_status ;
151:
152: -- Check if already exist( duplicate assigned,unique key violation check)
153: SELECT COUNT(1) INTO l_dummy
167: FND_MESSAGE.Set_Name('CN', 'CN_SRP_PMT_PLAN_EXIST');
168: FND_MSG_PUB.Add;
169: END IF;
170: x_loading_status := 'CN_SRP_PMT_PLAN_EXIST';
171: RAISE FND_API.G_EXC_ERROR ;
172: END IF;
173:
174: -- Check if Salesrep active
175: -- Cannot assign a pmt plan to an inactive rep because we need the
186: FND_MESSAGE.SET_NAME('CN','SRP_MUST_ACTIVATE_REP');
187: FND_MSG_PUB.Add;
188: END IF;
189: x_loading_status := 'SRP_MUST_ACTIVATE_REP';
190: RAISE FND_API.G_EXC_ERROR ;
191: END IF;
192:
193: -- Check if date range invalid
194: -- will check : if start_date is null
196: -- if start_date > end_date
197: IF ( (cn_api.invalid_date_range
198: (p_start_date => p_start_date,
199: p_end_date => p_end_date,
200: p_end_date_nullable => FND_API.G_TRUE,
201: p_loading_status => x_loading_status,
202: x_loading_status => x_loading_status)) = FND_API.G_TRUE ) THEN
203: RAISE FND_API.G_EXC_ERROR ;
204: END IF;
198: (p_start_date => p_start_date,
199: p_end_date => p_end_date,
200: p_end_date_nullable => FND_API.G_TRUE,
201: p_loading_status => x_loading_status,
202: x_loading_status => x_loading_status)) = FND_API.G_TRUE ) THEN
203: RAISE FND_API.G_EXC_ERROR ;
204: END IF;
205:
206: --
199: p_end_date => p_end_date,
200: p_end_date_nullable => FND_API.G_TRUE,
201: p_loading_status => x_loading_status,
202: x_loading_status => x_loading_status)) = FND_API.G_TRUE ) THEN
203: RAISE FND_API.G_EXC_ERROR ;
204: END IF;
205:
206: --
207: --
234: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPP_PRDS_NI_SRP_PRDS');
235: FND_MSG_PUB.Add;
236: END IF;
237: x_loading_status := 'CN_SPP_PRDS_NI_SRP_PRDS';
238: RAISE FND_API.G_EXC_ERROR ;
239: END IF;
240:
241: --
242: -- Validate Rule :Start or end date is outside of the processing
274: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPP_PRDS_NI_PMT_PRDS');
275: FND_MSG_PUB.Add;
276: END IF;
277: x_loading_status := 'CN_SPP_PRDS_NI_PMT_PRDS';
278: RAISE FND_API.G_EXC_ERROR ;
279: END IF;
280:
281: -- Check Overlap
282: -- Ensure pmt plan assignments do not overlap each other in same role
319: FND_MESSAGE.SET_NAME ('CN' , 'CN_SRP_PMT_PLAN_OVERLAPS');
320: FND_MSG_PUB.Add;
321: END IF;
322: x_loading_status := 'CN_SRP_PMT_PLAN_OVERLAPS';
323: RAISE FND_API.G_EXC_ERROR ;
324: END IF;
325:
326: /* credit type ID in cn_srp_pmt_plans is Obsolete!
327:
346: FND_MESSAGE.SET_NAME ('CN' , 'CN_SRPPP_CT_MISMATCH');
347: FND_MSG_PUB.Add;
348: END IF;
349: x_loading_status := 'CN_SRPPP_CT_MISMATCH';
350: RAISE FND_API.G_EXC_ERROR;
351: END IF;
352: END IF;
353: */
354:
358: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPP_MIN_MAX_NULL');
359: FND_MSG_PUB.Add;
360: END IF;
361: x_loading_status := 'CN_SPP_MIN_MAX_NULL';
362: RAISE FND_API.G_EXC_ERROR ;
363: END IF;
364:
365: -- Check Max amount must > Min amount
366: IF (p_maximum_amount < p_minimum_amount)
369: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPP_MAX_LT_MIN');
370: FND_MSG_PUB.Add;
371: END IF;
372: x_loading_status := 'CN_SPP_MAX_LT_MIN';
373: RAISE FND_API.G_EXC_ERROR ;
374: END IF;
375:
376:
377: END validate_assignment;
638: (x_return_status OUT NOCOPY VARCHAR2,
639: x_msg_count OUT NOCOPY NUMBER ,
640: x_msg_data OUT NOCOPY VARCHAR2,
641: p_salesrep_id IN NUMBER,
642: p_old_start_date IN DATE := FND_API.G_MISS_DATE,
643: p_old_end_date IN DATE := FND_API.G_MISS_DATE,
644: p_start_date IN DATE,
645: p_end_date IN DATE,
646: p_loading_status IN VARCHAR2,
639: x_msg_count OUT NOCOPY NUMBER ,
640: x_msg_data OUT NOCOPY VARCHAR2,
641: p_salesrep_id IN NUMBER,
642: p_old_start_date IN DATE := FND_API.G_MISS_DATE,
643: p_old_end_date IN DATE := FND_API.G_MISS_DATE,
644: p_start_date IN DATE,
645: p_end_date IN DATE,
646: p_loading_status IN VARCHAR2,
647: x_loading_status OUT NOCOPY VARCHAR2
653: BEGIN
654: --
655: -- Initialize API return status to success
656: --
657: x_return_status := FND_API.G_RET_STS_SUCCESS;
658: x_loading_status := p_loading_status ;
659:
660: -- Need to check if payment plan already been used in payment worksheet
661: -- during the period, if so operation not allowed
658: x_loading_status := p_loading_status ;
659:
660: -- Need to check if payment plan already been used in payment worksheet
661: -- during the period, if so operation not allowed
662: IF p_old_start_date = FND_API.G_MISS_DATE AND
663: p_old_end_date = FND_API.G_MISS_DATE THEN
664: -- Called from Delete Srp Payment Plan Assign
665:
666: --***********************************************************************
659:
660: -- Need to check if payment plan already been used in payment worksheet
661: -- during the period, if so operation not allowed
662: IF p_old_start_date = FND_API.G_MISS_DATE AND
663: p_old_end_date = FND_API.G_MISS_DATE THEN
664: -- Called from Delete Srp Payment Plan Assign
665:
666: --***********************************************************************
667: -- Added By Kumar Sivasankaran
696: FND_MESSAGE.SET_NAME ('CN' , 'CN_SRP_PMT_PLAN_USED');
697: FND_MSG_PUB.Add;
698: END IF;
699: x_loading_status := 'CN_SRP_PMT_PLAN_USED';
700: RAISE FND_API.G_EXC_ERROR ;
701: END IF;
702:
703: ELSE
704: -- Called from Update Srp Payment Plan Assign
736: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPP_CANNOT_SHORTEN_ED');
737: FND_MSG_PUB.Add;
738: END IF;
739: x_loading_status := 'CN_SPP_CANNOT_SHORTEN_ED';
740: RAISE FND_API.G_EXC_ERROR ;
741: END IF;
742:
743: END IF ; -- end IF end date change
744:
766: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPP_UPDATE_NOT_ALLOWED');
767: FND_MSG_PUB.Add;
768: END IF;
769: x_loading_status := 'CN_SPP_UPDATE_NOT_ALLOWED';
770: RAISE FND_API.G_EXC_ERROR ;
771: END IF;
772: END IF ; -- end IF start date change
773: END IF; -- end if delete/update operation
774:
772: END IF ; -- end IF start date change
773: END IF; -- end if delete/update operation
774:
775: EXCEPTION
776: WHEN FND_API.G_EXC_ERROR THEN
777: x_return_status := FND_API.G_RET_STS_ERROR ;
778:
779: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
773: END IF; -- end if delete/update operation
774:
775: EXCEPTION
776: WHEN FND_API.G_EXC_ERROR THEN
777: x_return_status := FND_API.G_RET_STS_ERROR ;
778:
779: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
781: x_loading_status := 'UNEXPECTED_ERR';
775: EXCEPTION
776: WHEN FND_API.G_EXC_ERROR THEN
777: x_return_status := FND_API.G_RET_STS_ERROR ;
778:
779: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
781: x_loading_status := 'UNEXPECTED_ERR';
782:
783: WHEN OTHERS THEN
776: WHEN FND_API.G_EXC_ERROR THEN
777: x_return_status := FND_API.G_RET_STS_ERROR ;
778:
779: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
781: x_loading_status := 'UNEXPECTED_ERR';
782:
783: WHEN OTHERS THEN
784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
781: x_loading_status := 'UNEXPECTED_ERR';
782:
783: WHEN OTHERS THEN
784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
785: x_loading_status := 'UNEXPECTED_ERR';
786:
787: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
788: THEN
920: SAVEPOINT Create_Srp_Pmt_Plan;
921:
922: -- Standard call to check for call compatibility.
923:
924: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
925: p_api_version ,
926: l_api_name ,
927: G_PKG_NAME )
928: THEN
925: p_api_version ,
926: l_api_name ,
927: G_PKG_NAME )
928: THEN
929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
930: END IF;
931:
932: -- Initialize message list if p_init_msg_list is set to TRUE.
933: IF FND_API.to_Boolean( p_init_msg_list ) THEN
929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
930: END IF;
931:
932: -- Initialize message list if p_init_msg_list is set to TRUE.
933: IF FND_API.to_Boolean( p_init_msg_list ) THEN
934: FND_MSG_PUB.initialize;
935: END IF;
936:
937: -- Initialize API return status to success
934: FND_MSG_PUB.initialize;
935: END IF;
936:
937: -- Initialize API return status to success
938: x_return_status := FND_API.G_RET_STS_SUCCESS;
939: x_loading_status := 'CN_CREATED';
940:
941: validate_assignment
942: (x_return_status => x_return_status,
952: p_srp_pmt_plan_id => NULL,
953: p_loading_status => x_loading_status,
954: x_loading_status => x_loading_status);
955:
956: IF x_return_status <> fnd_api.g_ret_sts_success THEN
957: RAISE fnd_api.g_exc_error;
958: END IF;
959:
960: -- inherit credit type of pmt plan
953: p_loading_status => x_loading_status,
954: x_loading_status => x_loading_status);
955:
956: IF x_return_status <> fnd_api.g_ret_sts_success THEN
957: RAISE fnd_api.g_exc_error;
958: END IF;
959:
960: -- inherit credit type of pmt plan
961: select credit_type_id, name into l_credit_type_id, l_name
1025: -- End of API body
1026:
1027: -- Standard check of p_commit.
1028:
1029: IF FND_API.To_Boolean( p_commit ) THEN
1030: COMMIT WORK;
1031: END IF;
1032:
1033: -- Standard call to get message count and if count is 1, get message info
1034: FND_MSG_PUB.Count_And_Get
1035: (
1036: p_count => x_msg_count ,
1037: p_data => x_msg_data ,
1038: p_encoded => FND_API.G_FALSE
1039: );
1040:
1041: EXCEPTION
1042: WHEN FND_API.G_EXC_ERROR THEN
1038: p_encoded => FND_API.G_FALSE
1039: );
1040:
1041: EXCEPTION
1042: WHEN FND_API.G_EXC_ERROR THEN
1043: ROLLBACK TO Create_Srp_Pmt_Plan;
1044: x_return_status := FND_API.G_RET_STS_ERROR ;
1045: FND_MSG_PUB.Count_And_Get
1046: (
1040:
1041: EXCEPTION
1042: WHEN FND_API.G_EXC_ERROR THEN
1043: ROLLBACK TO Create_Srp_Pmt_Plan;
1044: x_return_status := FND_API.G_RET_STS_ERROR ;
1045: FND_MSG_PUB.Count_And_Get
1046: (
1047: p_count => x_msg_count ,
1048: p_data => x_msg_data ,
1045: FND_MSG_PUB.Count_And_Get
1046: (
1047: p_count => x_msg_count ,
1048: p_data => x_msg_data ,
1049: p_encoded => FND_API.G_FALSE
1050: );
1051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1052: ROLLBACK TO Create_Srp_Pmt_Plan;
1053: x_loading_status := 'UNEXPECTED_ERR';
1047: p_count => x_msg_count ,
1048: p_data => x_msg_data ,
1049: p_encoded => FND_API.G_FALSE
1050: );
1051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1052: ROLLBACK TO Create_Srp_Pmt_Plan;
1053: x_loading_status := 'UNEXPECTED_ERR';
1054: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1055: FND_MSG_PUB.Count_And_Get
1050: );
1051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1052: ROLLBACK TO Create_Srp_Pmt_Plan;
1053: x_loading_status := 'UNEXPECTED_ERR';
1054: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1055: FND_MSG_PUB.Count_And_Get
1056: (
1057: p_count => x_msg_count ,
1058: p_data => x_msg_data ,
1055: FND_MSG_PUB.Count_And_Get
1056: (
1057: p_count => x_msg_count ,
1058: p_data => x_msg_data ,
1059: p_encoded => FND_API.G_FALSE
1060: );
1061: WHEN OTHERS THEN
1062: ROLLBACK TO Create_Srp_Pmt_Plan;
1063: x_loading_status := 'UNEXPECTED_ERR';
1060: );
1061: WHEN OTHERS THEN
1062: ROLLBACK TO Create_Srp_Pmt_Plan;
1063: x_loading_status := 'UNEXPECTED_ERR';
1064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1065: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1066: THEN
1067: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1068: END IF;
1069: FND_MSG_PUB.Count_And_Get
1070: (
1071: p_count => x_msg_count ,
1072: p_data => x_msg_data ,
1073: p_encoded => FND_API.G_FALSE
1074: );
1075: END create_srp_pmt_plan;
1076:
1077:
1111: SAVEPOINT Update_Srp_Pmt_Plan;
1112:
1113: -- Standard call to check for call compatibility.
1114:
1115: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1116: p_api_version ,
1117: l_api_name ,
1118: G_PKG_NAME )
1119: THEN
1116: p_api_version ,
1117: l_api_name ,
1118: G_PKG_NAME )
1119: THEN
1120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1121: END IF;
1122:
1123: -- Initialize message list if p_init_msg_list is set to TRUE.
1124: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1121: END IF;
1122:
1123: -- Initialize message list if p_init_msg_list is set to TRUE.
1124: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1125: FND_MSG_PUB.initialize;
1126: END IF;
1127:
1128: -- Initialize API return status to success
1125: FND_MSG_PUB.initialize;
1126: END IF;
1127:
1128: -- Initialize API return status to success
1129: x_return_status := FND_API.G_RET_STS_SUCCESS;
1130: x_loading_status := 'CN_UPDATED';
1131:
1132: -- check if the object version number is the same
1133: OPEN spp_csr(p_pmt_plan_assign_rec.srp_pmt_plan_id) ;
1143: fnd_msg_pub.add;
1144: END IF;
1145:
1146: x_loading_status := 'CN_INVALID_OBJECT_VERSION';
1147: RAISE FND_API.G_EXC_ERROR;
1148:
1149: END IF;
1150:
1151: -- can't change lock flag from Y to N
1155: fnd_message.set_name('CN', 'CN_CANNOT_UPDATE_LOCK');
1156: fnd_msg_pub.add;
1157: END IF;
1158: x_loading_status := 'CN_CANNOT_UPDATE_LOCK';
1159: RAISE FND_API.G_EXC_ERROR;
1160: END IF;
1161:
1162: -- can't change lock from N to Y if it is manual assignment
1163: IF l_oldrec.lock_flag = 'N' AND p_pmt_plan_assign_rec.lock_flag = 'Y' AND
1167: fnd_message.set_name('CN', 'CN_CANNOT_UPDATE_LOCK');
1168: fnd_msg_pub.add;
1169: END IF;
1170: x_loading_status := 'CN_CANNOT_UPDATE_LOCK';
1171: RAISE FND_API.G_EXC_ERROR;
1172: END IF;
1173:
1174: -- validate the assignment
1175: validate_assignment
1215: p_end_date => l_oldrec.end_date,
1216: p_loading_status => x_loading_status,
1217: x_loading_status => x_loading_status
1218: );
1219: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1220: RAISE FND_API.G_EXC_ERROR ;
1221: END IF;
1222: */
1223: -- Delete record
1216: p_loading_status => x_loading_status,
1217: x_loading_status => x_loading_status
1218: );
1219: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1220: RAISE FND_API.G_EXC_ERROR ;
1221: END IF;
1222: */
1223: -- Delete record
1224: cn_srp_pmt_plans_pkg.delete_row
1280: x_loading_status => x_loading_status
1281: );
1282:
1283: -- Check opeation fail
1284: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1285: RAISE FND_API.G_EXC_ERROR ;
1286: END IF;
1287:
1288: END IF;
1281: );
1282:
1283: -- Check opeation fail
1284: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1285: RAISE FND_API.G_EXC_ERROR ;
1286: END IF;
1287:
1288: END IF;
1289: */
1338: IF l_oldrec.start_date <> p_pmt_plan_assign_rec.start_date THEN
1339: get_note('START_DATE', l_oldrec.start_date, p_pmt_plan_assign_rec.start_date, l_notemsg);
1340: END IF;
1341:
1342: IF Nvl(l_oldrec.end_date, fnd_api.g_miss_date) <> Nvl(p_pmt_plan_assign_rec.end_date, fnd_api.g_miss_date) THEN
1343: get_note('END_DATE', l_oldrec.end_date, p_pmt_plan_assign_rec.end_date, l_notemsg);
1344: END IF;
1345:
1346: IF Nvl(l_oldrec.minimum_amount, -1) <> Nvl(p_pmt_plan_assign_rec.minimum_amount, -1) THEN
1367: -- End of API body.
1368:
1369: -- Standard check of p_commit.
1370:
1371: IF FND_API.To_Boolean( p_commit ) THEN
1372: COMMIT WORK;
1373: END IF;
1374:
1375: -- Standard call to get message count and if count is 1, get message info
1376: FND_MSG_PUB.Count_And_Get
1377: (
1378: p_count => x_msg_count ,
1379: p_data => x_msg_data ,
1380: p_encoded => FND_API.G_FALSE
1381: );
1382:
1383: EXCEPTION
1384: WHEN FND_API.G_EXC_ERROR THEN
1380: p_encoded => FND_API.G_FALSE
1381: );
1382:
1383: EXCEPTION
1384: WHEN FND_API.G_EXC_ERROR THEN
1385: ROLLBACK TO Update_Srp_Pmt_Plan;
1386: x_return_status := FND_API.G_RET_STS_ERROR ;
1387: FND_MSG_PUB.Count_And_Get
1388: (
1382:
1383: EXCEPTION
1384: WHEN FND_API.G_EXC_ERROR THEN
1385: ROLLBACK TO Update_Srp_Pmt_Plan;
1386: x_return_status := FND_API.G_RET_STS_ERROR ;
1387: FND_MSG_PUB.Count_And_Get
1388: (
1389: p_count => x_msg_count ,
1390: p_data => x_msg_data ,
1387: FND_MSG_PUB.Count_And_Get
1388: (
1389: p_count => x_msg_count ,
1390: p_data => x_msg_data ,
1391: p_encoded => FND_API.G_FALSE
1392: );
1393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1394: ROLLBACK TO Update_Srp_Pmt_Plan;
1395: x_loading_status := 'UNEXPECTED_ERR';
1389: p_count => x_msg_count ,
1390: p_data => x_msg_data ,
1391: p_encoded => FND_API.G_FALSE
1392: );
1393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1394: ROLLBACK TO Update_Srp_Pmt_Plan;
1395: x_loading_status := 'UNEXPECTED_ERR';
1396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1397: FND_MSG_PUB.Count_And_Get
1392: );
1393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1394: ROLLBACK TO Update_Srp_Pmt_Plan;
1395: x_loading_status := 'UNEXPECTED_ERR';
1396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1397: FND_MSG_PUB.Count_And_Get
1398: (
1399: p_count => x_msg_count ,
1400: p_data => x_msg_data ,
1397: FND_MSG_PUB.Count_And_Get
1398: (
1399: p_count => x_msg_count ,
1400: p_data => x_msg_data ,
1401: p_encoded => FND_API.G_FALSE
1402: );
1403: WHEN OTHERS THEN
1404: ROLLBACK TO Update_Srp_Pmt_Plan;
1405: x_loading_status := 'UNEXPECTED_ERR';
1402: );
1403: WHEN OTHERS THEN
1404: ROLLBACK TO Update_Srp_Pmt_Plan;
1405: x_loading_status := 'UNEXPECTED_ERR';
1406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1407: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1408: THEN
1409: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1410: END IF;
1411: FND_MSG_PUB.Count_And_Get
1412: (
1413: p_count => x_msg_count ,
1414: p_data => x_msg_data ,
1415: p_encoded => FND_API.G_FALSE
1416: );
1417:
1418: END update_srp_pmt_plan;
1419:
1439: l_spp_rec spp_csr%ROWTYPE;
1440:
1441: BEGIN
1442: -- Initialize message list if p_init_msg_list is set to TRUE.
1443: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1444: FND_MSG_PUB.initialize;
1445: END IF;
1446:
1447: -- Initialize API return status to success
1444: FND_MSG_PUB.initialize;
1445: END IF;
1446:
1447: -- Initialize API return status to success
1448: x_return_status := FND_API.G_RET_STS_SUCCESS;
1449: x_loading_status := 'CN_DELETED';
1450:
1451:
1452: --
1461: FND_MESSAGE.Set_Name('CN', 'CN_SRP_PMT_PLAN_LOCKED');
1462: FND_MSG_PUB.Add;
1463: END IF;
1464: x_loading_status := 'CN_SRP_PMT_PLAN_LOCKED';
1465: RAISE FND_API.G_EXC_ERROR ;
1466: END IF;
1467:
1468: check_operation_allowed
1469: ( x_return_status => x_return_status,
1474: p_end_date => l_spp_rec.end_date,
1475: p_loading_status => x_loading_status,
1476: x_loading_status => x_loading_status
1477: );
1478: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1479: RAISE FND_API.G_EXC_ERROR ;
1480: END IF;
1481: */
1482: EXCEPTION
1475: p_loading_status => x_loading_status,
1476: x_loading_status => x_loading_status
1477: );
1478: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1479: RAISE FND_API.G_EXC_ERROR ;
1480: END IF;
1481: */
1482: EXCEPTION
1483: WHEN FND_API.G_EXC_ERROR THEN
1479: RAISE FND_API.G_EXC_ERROR ;
1480: END IF;
1481: */
1482: EXCEPTION
1483: WHEN FND_API.G_EXC_ERROR THEN
1484: x_return_status := FND_API.G_RET_STS_ERROR ;
1485: FND_MSG_PUB.Count_And_Get
1486:
1487: (
1480: END IF;
1481: */
1482: EXCEPTION
1483: WHEN FND_API.G_EXC_ERROR THEN
1484: x_return_status := FND_API.G_RET_STS_ERROR ;
1485: FND_MSG_PUB.Count_And_Get
1486:
1487: (
1488: p_count => x_msg_count ,
1486:
1487: (
1488: p_count => x_msg_count ,
1489: p_data => x_msg_data ,
1490: p_encoded => FND_API.G_FALSE
1491: );
1492: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1493: x_loading_status := 'UNEXPECTED_ERR';
1494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1488: p_count => x_msg_count ,
1489: p_data => x_msg_data ,
1490: p_encoded => FND_API.G_FALSE
1491: );
1492: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1493: x_loading_status := 'UNEXPECTED_ERR';
1494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1495: FND_MSG_PUB.Count_And_Get
1496: (
1490: p_encoded => FND_API.G_FALSE
1491: );
1492: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1493: x_loading_status := 'UNEXPECTED_ERR';
1494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1495: FND_MSG_PUB.Count_And_Get
1496: (
1497: p_count => x_msg_count ,
1498: p_data => x_msg_data ,
1495: FND_MSG_PUB.Count_And_Get
1496: (
1497: p_count => x_msg_count ,
1498: p_data => x_msg_data ,
1499: p_encoded => FND_API.G_FALSE
1500: );
1501: WHEN OTHERS THEN
1502: x_loading_status := 'UNEXPECTED_ERR';
1503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1499: p_encoded => FND_API.G_FALSE
1500: );
1501: WHEN OTHERS THEN
1502: x_loading_status := 'UNEXPECTED_ERR';
1503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1504: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1505: THEN
1506: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1507: END IF;
1508: FND_MSG_PUB.Count_And_Get
1509: (
1510: p_count => x_msg_count ,
1511: p_data => x_msg_data ,
1512: p_encoded => FND_API.G_FALSE
1513: );
1514:
1515:
1516: END valid_delete_srp_pmt_plan;
1550: SAVEPOINT delete_srp_pmt_plan;
1551:
1552: -- Standard call to check for call compatibility.
1553:
1554: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1555: p_api_version ,
1556: l_api_name ,
1557: G_PKG_NAME )
1558: THEN
1555: p_api_version ,
1556: l_api_name ,
1557: G_PKG_NAME )
1558: THEN
1559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1560: END IF;
1561:
1562: -- Initialize message list if p_init_msg_list is set to TRUE.
1563: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1560: END IF;
1561:
1562: -- Initialize message list if p_init_msg_list is set to TRUE.
1563: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1564: FND_MSG_PUB.initialize;
1565: END IF;
1566:
1567: -- Initialize API return status to success
1564: FND_MSG_PUB.initialize;
1565: END IF;
1566:
1567: -- Initialize API return status to success
1568: x_return_status := FND_API.G_RET_STS_SUCCESS;
1569: x_loading_status := 'CN_DELETED';
1570:
1571: -- validate delete
1572: valid_delete_srp_pmt_plan
1576: x_return_status => x_return_status,
1577: x_msg_count => x_msg_count,
1578: x_msg_data => x_msg_data);
1579:
1580: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1581: RAISE fnd_api.g_exc_error;
1582: END IF;
1583:
1584: -- create note
1577: x_msg_count => x_msg_count,
1578: x_msg_data => x_msg_data);
1579:
1580: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1581: RAISE fnd_api.g_exc_error;
1582: END IF;
1583:
1584: -- create note
1585: OPEN spp_info_cur;
1621: -- End of API body
1622:
1623: -- Standard check of p_commit.
1624:
1625: IF FND_API.To_Boolean( p_commit ) THEN
1626: COMMIT WORK;
1627: END IF;
1628:
1629:
1632: FND_MSG_PUB.Count_And_Get
1633: (
1634: p_count => x_msg_count ,
1635: p_data => x_msg_data ,
1636: p_encoded => FND_API.G_FALSE
1637: );
1638:
1639: EXCEPTION
1640: WHEN FND_API.G_EXC_ERROR THEN
1636: p_encoded => FND_API.G_FALSE
1637: );
1638:
1639: EXCEPTION
1640: WHEN FND_API.G_EXC_ERROR THEN
1641: ROLLBACK TO Delete_Srp_Pmt_Plan;
1642: x_return_status := FND_API.G_RET_STS_ERROR ;
1643: FND_MSG_PUB.Count_And_Get
1644: (
1638:
1639: EXCEPTION
1640: WHEN FND_API.G_EXC_ERROR THEN
1641: ROLLBACK TO Delete_Srp_Pmt_Plan;
1642: x_return_status := FND_API.G_RET_STS_ERROR ;
1643: FND_MSG_PUB.Count_And_Get
1644: (
1645: p_count => x_msg_count ,
1646: p_data => x_msg_data ,
1643: FND_MSG_PUB.Count_And_Get
1644: (
1645: p_count => x_msg_count ,
1646: p_data => x_msg_data ,
1647: p_encoded => FND_API.G_FALSE
1648: );
1649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1650: ROLLBACK TO Delete_Srp_Pmt_Plan;
1651: x_loading_status := 'UNEXPECTED_ERR';
1645: p_count => x_msg_count ,
1646: p_data => x_msg_data ,
1647: p_encoded => FND_API.G_FALSE
1648: );
1649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1650: ROLLBACK TO Delete_Srp_Pmt_Plan;
1651: x_loading_status := 'UNEXPECTED_ERR';
1652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1653: FND_MSG_PUB.Count_And_Get
1648: );
1649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1650: ROLLBACK TO Delete_Srp_Pmt_Plan;
1651: x_loading_status := 'UNEXPECTED_ERR';
1652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1653: FND_MSG_PUB.Count_And_Get
1654: (
1655: p_count => x_msg_count ,
1656: p_data => x_msg_data ,
1653: FND_MSG_PUB.Count_And_Get
1654: (
1655: p_count => x_msg_count ,
1656: p_data => x_msg_data ,
1657: p_encoded => FND_API.G_FALSE
1658: );
1659: WHEN OTHERS THEN
1660: ROLLBACK TO Delete_Srp_Pmt_Plan;
1661: x_loading_status := 'UNEXPECTED_ERR';
1658: );
1659: WHEN OTHERS THEN
1660: ROLLBACK TO Delete_Srp_Pmt_Plan;
1661: x_loading_status := 'UNEXPECTED_ERR';
1662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1663: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1664: THEN
1665: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1666: END IF;
1667: FND_MSG_PUB.Count_And_Get
1668: (
1669: p_count => x_msg_count ,
1670: p_data => x_msg_data ,
1671: p_encoded => FND_API.G_FALSE
1672: );
1673: END Delete_Srp_Pmt_Plan;
1674:
1675: -- --------------------------------------------------------------------------*
1678:
1679: PROCEDURE Create_Mass_Asgn_Srp_Pmt_Plan
1680: (
1681: p_api_version IN NUMBER,
1682: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1683: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1684: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1685: x_return_status OUT NOCOPY VARCHAR2,
1686: x_msg_count OUT NOCOPY NUMBER,
1679: PROCEDURE Create_Mass_Asgn_Srp_Pmt_Plan
1680: (
1681: p_api_version IN NUMBER,
1682: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1683: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1684: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1685: x_return_status OUT NOCOPY VARCHAR2,
1686: x_msg_count OUT NOCOPY NUMBER,
1687: x_msg_data OUT NOCOPY VARCHAR2,
1680: (
1681: p_api_version IN NUMBER,
1682: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1683: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1684: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1685: x_return_status OUT NOCOPY VARCHAR2,
1686: x_msg_count OUT NOCOPY NUMBER,
1687: x_msg_data OUT NOCOPY VARCHAR2,
1688: p_srp_role_id IN NUMBER,
1719: SAVEPOINT Create_Mass_Asgn_Srp_Pmt_Plan;
1720:
1721: -- Standard call to check for call compatibility.
1722:
1723: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1724: p_api_version ,
1725: l_api_name ,
1726: G_PKG_NAME )
1727: THEN
1724: p_api_version ,
1725: l_api_name ,
1726: G_PKG_NAME )
1727: THEN
1728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1729: END IF;
1730:
1731: -- Initialize message list if p_init_msg_list is set to TRUE.
1732: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1729: END IF;
1730:
1731: -- Initialize message list if p_init_msg_list is set to TRUE.
1732: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1733: FND_MSG_PUB.initialize;
1734: END IF;
1735:
1736: -- Initialize API return status to success
1733: FND_MSG_PUB.initialize;
1734: END IF;
1735:
1736: -- Initialize API return status to success
1737: x_return_status := FND_API.G_RET_STS_SUCCESS;
1738: x_loading_status := 'CN_PP_CREATED';
1739:
1740: select pmt_plan_id, start_date, end_date
1741: into l_pmt_plan_id, l_pp_start_date, l_pp_end_date
1755:
1756: l_start_date := NULL;
1757: l_end_date := NULL;
1758:
1759: x_return_status := FND_API.G_RET_STS_SUCCESS;
1760: -- Start: Bug fix 5480386 5480540 CHANTHON
1761: get_masgn_date_intersect(
1762: p_srp_role_id => p_srp_role_id,
1763: p_role_pmt_plan_id => p_role_pmt_plan_id,
1804: p_pmt_plan_assign_rec=> newrec,
1805: x_loading_status => l_loading_status);
1806:
1807: /*
1808: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1809: RAISE fnd_api.g_exc_error;
1810: END IF;
1811: */
1812: l_return_status:=FND_API.G_RET_STS_SUCCESS;
1805: x_loading_status => l_loading_status);
1806:
1807: /*
1808: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1809: RAISE fnd_api.g_exc_error;
1810: END IF;
1811: */
1812: l_return_status:=FND_API.G_RET_STS_SUCCESS;
1813: x_return_status := l_return_status;
1808: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1809: RAISE fnd_api.g_exc_error;
1810: END IF;
1811: */
1812: l_return_status:=FND_API.G_RET_STS_SUCCESS;
1813: x_return_status := l_return_status;
1814: x_loading_status := l_loading_status;
1815:
1816: -- END IF;
1816: -- END IF;
1817:
1818: -- Standard check of p_commit.
1819:
1820: IF FND_API.To_Boolean( p_commit ) THEN
1821: COMMIT WORK;
1822: END IF;
1823:
1824: -- Standard call to get message count and if count is 1, get message info
1825: FND_MSG_PUB.Count_And_Get
1826: (
1827: p_count => x_msg_count ,
1828: p_data => x_msg_data ,
1829: p_encoded => FND_API.G_FALSE
1830: );
1831:
1832: EXCEPTION
1833: WHEN FND_API.G_EXC_ERROR THEN
1829: p_encoded => FND_API.G_FALSE
1830: );
1831:
1832: EXCEPTION
1833: WHEN FND_API.G_EXC_ERROR THEN
1834: ROLLBACK TO Create_Mass_Asgn_Srp_Pmt_Plan;
1835: x_return_status := FND_API.G_RET_STS_ERROR ;
1836: FND_MSG_PUB.Count_And_Get
1837: (
1831:
1832: EXCEPTION
1833: WHEN FND_API.G_EXC_ERROR THEN
1834: ROLLBACK TO Create_Mass_Asgn_Srp_Pmt_Plan;
1835: x_return_status := FND_API.G_RET_STS_ERROR ;
1836: FND_MSG_PUB.Count_And_Get
1837: (
1838: p_count => x_msg_count ,
1839: p_data => x_msg_data ,
1836: FND_MSG_PUB.Count_And_Get
1837: (
1838: p_count => x_msg_count ,
1839: p_data => x_msg_data ,
1840: p_encoded => FND_API.G_FALSE
1841: );
1842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1843: ROLLBACK TO Create_Mass_Asgn_Srp_Pmt_Plan;
1844: x_loading_status := 'UNEXPECTED_ERR';
1838: p_count => x_msg_count ,
1839: p_data => x_msg_data ,
1840: p_encoded => FND_API.G_FALSE
1841: );
1842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1843: ROLLBACK TO Create_Mass_Asgn_Srp_Pmt_Plan;
1844: x_loading_status := 'UNEXPECTED_ERR';
1845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1846: FND_MSG_PUB.Count_And_Get
1841: );
1842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1843: ROLLBACK TO Create_Mass_Asgn_Srp_Pmt_Plan;
1844: x_loading_status := 'UNEXPECTED_ERR';
1845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1846: FND_MSG_PUB.Count_And_Get
1847: (
1848: p_count => x_msg_count ,
1849: p_data => x_msg_data ,
1846: FND_MSG_PUB.Count_And_Get
1847: (
1848: p_count => x_msg_count ,
1849: p_data => x_msg_data ,
1850: p_encoded => FND_API.G_FALSE
1851: );
1852: WHEN OTHERS THEN
1853: ROLLBACK TO Create_Mass_Asgn_Srp_Pmt_Plan;
1854: x_loading_status := 'UNEXPECTED_ERR';
1851: );
1852: WHEN OTHERS THEN
1853: ROLLBACK TO Create_Mass_Asgn_Srp_Pmt_Plan;
1854: x_loading_status := 'UNEXPECTED_ERR';
1855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1856: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1857: THEN
1858: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1859: END IF;
1860: FND_MSG_PUB.Count_And_Get
1861: (
1862: p_count => x_msg_count ,
1863: p_data => x_msg_data ,
1864: p_encoded => FND_API.G_FALSE
1865: );
1866:
1867: END Create_Mass_Asgn_Srp_Pmt_Plan;
1868:
1872:
1873: PROCEDURE Update_Mass_Asgn_Srp_Pmt_plan
1874: (
1875: p_api_version IN NUMBER,
1876: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1877: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1878: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1879: x_return_status OUT NOCOPY VARCHAR2,
1880: x_msg_count OUT NOCOPY NUMBER,
1873: PROCEDURE Update_Mass_Asgn_Srp_Pmt_plan
1874: (
1875: p_api_version IN NUMBER,
1876: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1877: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1878: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1879: x_return_status OUT NOCOPY VARCHAR2,
1880: x_msg_count OUT NOCOPY NUMBER,
1881: x_msg_data OUT NOCOPY VARCHAR2,
1874: (
1875: p_api_version IN NUMBER,
1876: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1877: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1878: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1879: x_return_status OUT NOCOPY VARCHAR2,
1880: x_msg_count OUT NOCOPY NUMBER,
1881: x_msg_data OUT NOCOPY VARCHAR2,
1882: p_srp_role_id IN NUMBER,
1925: SAVEPOINT Update_Mass_Asgn_Srp_Pmt_plan;
1926:
1927: -- Standard call to check for call compatibility.
1928:
1929: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1930: p_api_version ,
1931: l_api_name ,
1932: G_PKG_NAME )
1933: THEN
1930: p_api_version ,
1931: l_api_name ,
1932: G_PKG_NAME )
1933: THEN
1934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1935: END IF;
1936:
1937: -- Initialize message list if p_init_msg_list is set to TRUE.
1938: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1935: END IF;
1936:
1937: -- Initialize message list if p_init_msg_list is set to TRUE.
1938: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1939: FND_MSG_PUB.initialize;
1940: END IF;
1941:
1942: -- Initialize API return status to success
1939: FND_MSG_PUB.initialize;
1940: END IF;
1941:
1942: -- Initialize API return status to success
1943: x_return_status := FND_API.G_RET_STS_SUCCESS;
1944: x_loading_status := 'CN_PP_UPDATED';
1945:
1946: select org_id into l_org_id
1947: from cn_role_pmt_plans
2009:
2010: l_start_date_new := NULL;
2011: l_end_date_new := NULL;
2012:
2013: x_return_status := FND_API.G_RET_STS_SUCCESS;
2014:
2015: if cn_api.date_range_overlap(
2016: a_start_date => l_srp_start_date_new,
2017: a_end_date => l_srp_end_date_new,
2098: p_pmt_plan_assign_rec=> newrec,
2099: x_loading_status => l_loading_status);
2100:
2101: /*
2102: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2103: RAISE fnd_api.g_exc_error;
2104: END IF;
2105: */
2106: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2099: x_loading_status => l_loading_status);
2100:
2101: /*
2102: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2103: RAISE fnd_api.g_exc_error;
2104: END IF;
2105: */
2106: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2107: x_return_status := l_return_status;
2102: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2103: RAISE fnd_api.g_exc_error;
2104: END IF;
2105: */
2106: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2107: x_return_status := l_return_status;
2108: x_loading_status := l_loading_status;
2109:
2110: ELSE
2111: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2112: FND_MESSAGE.Set_Name('CN', 'CN_SPP_UPDATE_NOT_ALLOWED');
2113: FND_MSG_PUB.Add;
2114: END IF;
2115: RAISE FND_API.G_EXC_ERROR;
2116: END IF;
2117:
2118: -- Added to create a cn_srp_pmt_plan record if there are no records for the the date range for bug 3147026
2119: ELSIF (l_count_srp_pmt_plan = 0 )
2142: x_loading_status => l_loading_status
2143: );
2144:
2145: /*
2146: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2147: RAISE fnd_api.g_exc_error;
2148: END IF;
2149: */
2150: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2143: );
2144:
2145: /*
2146: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2147: RAISE fnd_api.g_exc_error;
2148: END IF;
2149: */
2150: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2151: x_return_status := l_return_status;
2146: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2147: RAISE fnd_api.g_exc_error;
2148: END IF;
2149: */
2150: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2151: x_return_status := l_return_status;
2152: x_loading_status := l_loading_status;
2153: END IF;
2154: END IF;
2168: p_srp_pmt_plan_id => l_srp_pmt_plan_id,
2169: x_loading_status => l_loading_status);
2170:
2171: /*
2172: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2173: RAISE fnd_api.g_exc_error;
2174: END IF;
2175: */
2176: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2169: x_loading_status => l_loading_status);
2170:
2171: /*
2172: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2173: RAISE fnd_api.g_exc_error;
2174: END IF;
2175: */
2176: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2177: x_return_status := l_return_status;
2172: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2173: RAISE fnd_api.g_exc_error;
2174: END IF;
2175: */
2176: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2177: x_return_status := l_return_status;
2178: x_loading_status := l_loading_status;
2179: END IF;
2180: END IF;
2180: END IF;
2181:
2182: -- Standard check of p_commit.
2183:
2184: IF FND_API.To_Boolean( p_commit ) THEN
2185: COMMIT WORK;
2186: END IF;
2187:
2188: -- Standard call to get message count and if count is 1, get message info
2189: FND_MSG_PUB.Count_And_Get
2190: (
2191: p_count => x_msg_count ,
2192: p_data => x_msg_data ,
2193: p_encoded => FND_API.G_FALSE
2194: );
2195:
2196: EXCEPTION
2197: WHEN FND_API.G_EXC_ERROR THEN
2193: p_encoded => FND_API.G_FALSE
2194: );
2195:
2196: EXCEPTION
2197: WHEN FND_API.G_EXC_ERROR THEN
2198: ROLLBACK TO Update_Mass_Asgn_Srp_Pmt_plan;
2199: x_return_status := FND_API.G_RET_STS_ERROR ;
2200: FND_MSG_PUB.Count_And_Get
2201: (
2195:
2196: EXCEPTION
2197: WHEN FND_API.G_EXC_ERROR THEN
2198: ROLLBACK TO Update_Mass_Asgn_Srp_Pmt_plan;
2199: x_return_status := FND_API.G_RET_STS_ERROR ;
2200: FND_MSG_PUB.Count_And_Get
2201: (
2202: p_count => x_msg_count ,
2203: p_data => x_msg_data ,
2200: FND_MSG_PUB.Count_And_Get
2201: (
2202: p_count => x_msg_count ,
2203: p_data => x_msg_data ,
2204: p_encoded => FND_API.G_FALSE
2205: );
2206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2207: ROLLBACK TO Update_Mass_Asgn_Srp_Pmt_plan;
2208: x_loading_status := 'UNEXPECTED_ERR';
2202: p_count => x_msg_count ,
2203: p_data => x_msg_data ,
2204: p_encoded => FND_API.G_FALSE
2205: );
2206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2207: ROLLBACK TO Update_Mass_Asgn_Srp_Pmt_plan;
2208: x_loading_status := 'UNEXPECTED_ERR';
2209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2210: FND_MSG_PUB.Count_And_Get
2205: );
2206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2207: ROLLBACK TO Update_Mass_Asgn_Srp_Pmt_plan;
2208: x_loading_status := 'UNEXPECTED_ERR';
2209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2210: FND_MSG_PUB.Count_And_Get
2211: (
2212: p_count => x_msg_count ,
2213: p_data => x_msg_data ,
2210: FND_MSG_PUB.Count_And_Get
2211: (
2212: p_count => x_msg_count ,
2213: p_data => x_msg_data ,
2214: p_encoded => FND_API.G_FALSE
2215: );
2216: WHEN OTHERS THEN
2217: ROLLBACK TO Update_Mass_Asgn_Srp_Pmt_plan;
2218: x_loading_status := 'UNEXPECTED_ERR';
2215: );
2216: WHEN OTHERS THEN
2217: ROLLBACK TO Update_Mass_Asgn_Srp_Pmt_plan;
2218: x_loading_status := 'UNEXPECTED_ERR';
2219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2220: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2221: THEN
2222: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2223: END IF;
2224: FND_MSG_PUB.Count_And_Get
2225: (
2226: p_count => x_msg_count ,
2227: p_data => x_msg_data ,
2228: p_encoded => FND_API.G_FALSE
2229: );
2230:
2231: End Update_Mass_Asgn_Srp_Pmt_plan;
2232:
2236: -- --------------------------------------------------------------------------*
2237:
2238: PROCEDURE Delete_Mass_Asgn_Srp_Pmt_Plan
2239: (p_api_version IN NUMBER,
2240: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2241: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2242: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2243: x_return_status OUT NOCOPY VARCHAR2,
2244: x_msg_count OUT NOCOPY NUMBER,
2237:
2238: PROCEDURE Delete_Mass_Asgn_Srp_Pmt_Plan
2239: (p_api_version IN NUMBER,
2240: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2241: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2242: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2243: x_return_status OUT NOCOPY VARCHAR2,
2244: x_msg_count OUT NOCOPY NUMBER,
2245: x_msg_data OUT NOCOPY VARCHAR2,
2238: PROCEDURE Delete_Mass_Asgn_Srp_Pmt_Plan
2239: (p_api_version IN NUMBER,
2240: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2241: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2242: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2243: x_return_status OUT NOCOPY VARCHAR2,
2244: x_msg_count OUT NOCOPY NUMBER,
2245: x_msg_data OUT NOCOPY VARCHAR2,
2246: p_srp_role_id IN NUMBER,
2287: SAVEPOINT Delete_Mass_Asgn_Srp_Pmt_Plan;
2288:
2289: -- Standard call to check for call compatibility.
2290:
2291: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2292: p_api_version ,
2293: l_api_name ,
2294: G_PKG_NAME )
2295: THEN
2292: p_api_version ,
2293: l_api_name ,
2294: G_PKG_NAME )
2295: THEN
2296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2297: END IF;
2298:
2299: -- Initialize message list if p_init_msg_list is set to TRUE.
2300: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2297: END IF;
2298:
2299: -- Initialize message list if p_init_msg_list is set to TRUE.
2300: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2301: FND_MSG_PUB.initialize;
2302: END IF;
2303:
2304: -- Initialize API return status to success
2301: FND_MSG_PUB.initialize;
2302: END IF;
2303:
2304: -- Initialize API return status to success
2305: x_return_status := FND_API.G_RET_STS_SUCCESS;
2306: x_loading_status := 'CN_PP_DELETED';
2307:
2308: BEGIN
2309:
2393: x_loading_status => l_loading_status);
2394: END IF;
2395:
2396: /*
2397: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2398: RAISE fnd_api.g_exc_error;
2399: END IF;
2400: */
2401: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2394: END IF;
2395:
2396: /*
2397: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2398: RAISE fnd_api.g_exc_error;
2399: END IF;
2400: */
2401: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2402:
2397: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2398: RAISE fnd_api.g_exc_error;
2399: END IF;
2400: */
2401: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2402:
2403: x_return_status := l_return_status;
2404: x_loading_status := l_loading_status;
2405:
2406: END IF;
2407:
2408: -- Standard check of p_commit.
2409:
2410: IF FND_API.To_Boolean( p_commit ) THEN
2411: COMMIT WORK;
2412: END IF;
2413:
2414: -- Standard call to get message count and if count is 1, get message info
2415: FND_MSG_PUB.Count_And_Get
2416: (
2417: p_count => x_msg_count ,
2418: p_data => x_msg_data ,
2419: p_encoded => FND_API.G_FALSE
2420: );
2421:
2422: EXCEPTION
2423: WHEN FND_API.G_EXC_ERROR THEN
2419: p_encoded => FND_API.G_FALSE
2420: );
2421:
2422: EXCEPTION
2423: WHEN FND_API.G_EXC_ERROR THEN
2424: ROLLBACK TO Delete_Mass_Asgn_Srp_Pmt_Plan;
2425: x_return_status := FND_API.G_RET_STS_ERROR ;
2426: FND_MSG_PUB.Count_And_Get
2427: (
2421:
2422: EXCEPTION
2423: WHEN FND_API.G_EXC_ERROR THEN
2424: ROLLBACK TO Delete_Mass_Asgn_Srp_Pmt_Plan;
2425: x_return_status := FND_API.G_RET_STS_ERROR ;
2426: FND_MSG_PUB.Count_And_Get
2427: (
2428: p_count => x_msg_count ,
2429: p_data => x_msg_data ,
2426: FND_MSG_PUB.Count_And_Get
2427: (
2428: p_count => x_msg_count ,
2429: p_data => x_msg_data ,
2430: p_encoded => FND_API.G_FALSE
2431: );
2432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2433: ROLLBACK TO Delete_Mass_Asgn_Srp_Pmt_Plan;
2434: x_loading_status := 'UNEXPECTED_ERR';
2428: p_count => x_msg_count ,
2429: p_data => x_msg_data ,
2430: p_encoded => FND_API.G_FALSE
2431: );
2432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2433: ROLLBACK TO Delete_Mass_Asgn_Srp_Pmt_Plan;
2434: x_loading_status := 'UNEXPECTED_ERR';
2435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2436: FND_MSG_PUB.Count_And_Get
2431: );
2432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2433: ROLLBACK TO Delete_Mass_Asgn_Srp_Pmt_Plan;
2434: x_loading_status := 'UNEXPECTED_ERR';
2435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2436: FND_MSG_PUB.Count_And_Get
2437: (
2438: p_count => x_msg_count ,
2439: p_data => x_msg_data ,
2436: FND_MSG_PUB.Count_And_Get
2437: (
2438: p_count => x_msg_count ,
2439: p_data => x_msg_data ,
2440: p_encoded => FND_API.G_FALSE
2441: );
2442: WHEN OTHERS THEN
2443: ROLLBACK TO Delete_Mass_Asgn_Srp_Pmt_Plan;
2444: x_loading_status := 'UNEXPECTED_ERR';
2441: );
2442: WHEN OTHERS THEN
2443: ROLLBACK TO Delete_Mass_Asgn_Srp_Pmt_Plan;
2444: x_loading_status := 'UNEXPECTED_ERR';
2445: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2446: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2447: THEN
2448: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2449: END IF;
2450: FND_MSG_PUB.Count_And_Get
2451: (
2452: p_count => x_msg_count ,
2453: p_data => x_msg_data ,
2454: p_encoded => FND_API.G_FALSE
2455: );
2456:
2457: END Delete_Mass_Asgn_Srp_Pmt_Plan;
2458: