[Home] [Help]
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;
637: (x_return_status OUT NOCOPY VARCHAR2,
638: x_msg_count OUT NOCOPY NUMBER ,
639: x_msg_data OUT NOCOPY VARCHAR2,
640: p_salesrep_id IN NUMBER,
641: p_old_start_date IN DATE := FND_API.G_MISS_DATE,
642: p_old_end_date IN DATE := FND_API.G_MISS_DATE,
643: p_start_date IN DATE,
644: p_end_date IN DATE,
645: p_loading_status IN VARCHAR2,
638: x_msg_count OUT NOCOPY NUMBER ,
639: x_msg_data OUT NOCOPY VARCHAR2,
640: p_salesrep_id IN NUMBER,
641: p_old_start_date IN DATE := FND_API.G_MISS_DATE,
642: p_old_end_date IN DATE := FND_API.G_MISS_DATE,
643: p_start_date IN DATE,
644: p_end_date IN DATE,
645: p_loading_status IN VARCHAR2,
646: x_loading_status OUT NOCOPY VARCHAR2
652: BEGIN
653: --
654: -- Initialize API return status to success
655: --
656: x_return_status := FND_API.G_RET_STS_SUCCESS;
657: x_loading_status := p_loading_status ;
658:
659: -- Need to check if payment plan already been used in payment worksheet
660: -- during the period, if so operation not allowed
657: x_loading_status := p_loading_status ;
658:
659: -- Need to check if payment plan already been used in payment worksheet
660: -- during the period, if so operation not allowed
661: IF p_old_start_date = FND_API.G_MISS_DATE AND
662: p_old_end_date = FND_API.G_MISS_DATE THEN
663: -- Called from Delete Srp Payment Plan Assign
664:
665: --***********************************************************************
658:
659: -- Need to check if payment plan already been used in payment worksheet
660: -- during the period, if so operation not allowed
661: IF p_old_start_date = FND_API.G_MISS_DATE AND
662: p_old_end_date = FND_API.G_MISS_DATE THEN
663: -- Called from Delete Srp Payment Plan Assign
664:
665: --***********************************************************************
666: -- Added By Kumar Sivasankaran
695: FND_MESSAGE.SET_NAME ('CN' , 'CN_SRP_PMT_PLAN_USED');
696: FND_MSG_PUB.Add;
697: END IF;
698: x_loading_status := 'CN_SRP_PMT_PLAN_USED';
699: RAISE FND_API.G_EXC_ERROR ;
700: END IF;
701:
702: ELSE
703: -- Called from Update Srp Payment Plan Assign
735: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPP_CANNOT_SHORTEN_ED');
736: FND_MSG_PUB.Add;
737: END IF;
738: x_loading_status := 'CN_SPP_CANNOT_SHORTEN_ED';
739: RAISE FND_API.G_EXC_ERROR ;
740: END IF;
741:
742: END IF ; -- end IF end date change
743:
765: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPP_UPDATE_NOT_ALLOWED');
766: FND_MSG_PUB.Add;
767: END IF;
768: x_loading_status := 'CN_SPP_UPDATE_NOT_ALLOWED';
769: RAISE FND_API.G_EXC_ERROR ;
770: END IF;
771: END IF ; -- end IF start date change
772: END IF; -- end if delete/update operation
773:
771: END IF ; -- end IF start date change
772: END IF; -- end if delete/update operation
773:
774: EXCEPTION
775: WHEN FND_API.G_EXC_ERROR THEN
776: x_return_status := FND_API.G_RET_STS_ERROR ;
777:
778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
772: END IF; -- end if delete/update operation
773:
774: EXCEPTION
775: WHEN FND_API.G_EXC_ERROR THEN
776: x_return_status := FND_API.G_RET_STS_ERROR ;
777:
778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
780: x_loading_status := 'UNEXPECTED_ERR';
774: EXCEPTION
775: WHEN FND_API.G_EXC_ERROR THEN
776: x_return_status := FND_API.G_RET_STS_ERROR ;
777:
778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
780: x_loading_status := 'UNEXPECTED_ERR';
781:
782: WHEN OTHERS THEN
775: WHEN FND_API.G_EXC_ERROR THEN
776: x_return_status := FND_API.G_RET_STS_ERROR ;
777:
778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
780: x_loading_status := 'UNEXPECTED_ERR';
781:
782: WHEN OTHERS THEN
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
780: x_loading_status := 'UNEXPECTED_ERR';
781:
782: WHEN OTHERS THEN
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
784: x_loading_status := 'UNEXPECTED_ERR';
785:
786: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
787: THEN
919: SAVEPOINT Create_Srp_Pmt_Plan;
920:
921: -- Standard call to check for call compatibility.
922:
923: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
924: p_api_version ,
925: l_api_name ,
926: G_PKG_NAME )
927: THEN
924: p_api_version ,
925: l_api_name ,
926: G_PKG_NAME )
927: THEN
928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
929: END IF;
930:
931: -- Initialize message list if p_init_msg_list is set to TRUE.
932: IF FND_API.to_Boolean( p_init_msg_list ) THEN
928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
929: END IF;
930:
931: -- Initialize message list if p_init_msg_list is set to TRUE.
932: IF FND_API.to_Boolean( p_init_msg_list ) THEN
933: FND_MSG_PUB.initialize;
934: END IF;
935:
936: -- Initialize API return status to success
933: FND_MSG_PUB.initialize;
934: END IF;
935:
936: -- Initialize API return status to success
937: x_return_status := FND_API.G_RET_STS_SUCCESS;
938: x_loading_status := 'CN_CREATED';
939:
940: validate_assignment
941: (x_return_status => x_return_status,
951: p_srp_pmt_plan_id => NULL,
952: p_loading_status => x_loading_status,
953: x_loading_status => x_loading_status);
954:
955: IF x_return_status <> fnd_api.g_ret_sts_success THEN
956: RAISE fnd_api.g_exc_error;
957: END IF;
958:
959: -- inherit credit type of pmt plan
952: p_loading_status => x_loading_status,
953: x_loading_status => x_loading_status);
954:
955: IF x_return_status <> fnd_api.g_ret_sts_success THEN
956: RAISE fnd_api.g_exc_error;
957: END IF;
958:
959: -- inherit credit type of pmt plan
960: select credit_type_id, name into l_credit_type_id, l_name
1024: -- End of API body
1025:
1026: -- Standard check of p_commit.
1027:
1028: IF FND_API.To_Boolean( p_commit ) THEN
1029: COMMIT WORK;
1030: END IF;
1031:
1032: -- Standard call to get message count and if count is 1, get message info
1033: FND_MSG_PUB.Count_And_Get
1034: (
1035: p_count => x_msg_count ,
1036: p_data => x_msg_data ,
1037: p_encoded => FND_API.G_FALSE
1038: );
1039:
1040: EXCEPTION
1041: WHEN FND_API.G_EXC_ERROR THEN
1037: p_encoded => FND_API.G_FALSE
1038: );
1039:
1040: EXCEPTION
1041: WHEN FND_API.G_EXC_ERROR THEN
1042: ROLLBACK TO Create_Srp_Pmt_Plan;
1043: x_return_status := FND_API.G_RET_STS_ERROR ;
1044: FND_MSG_PUB.Count_And_Get
1045: (
1039:
1040: EXCEPTION
1041: WHEN FND_API.G_EXC_ERROR THEN
1042: ROLLBACK TO Create_Srp_Pmt_Plan;
1043: x_return_status := FND_API.G_RET_STS_ERROR ;
1044: FND_MSG_PUB.Count_And_Get
1045: (
1046: p_count => x_msg_count ,
1047: p_data => x_msg_data ,
1044: FND_MSG_PUB.Count_And_Get
1045: (
1046: p_count => x_msg_count ,
1047: p_data => x_msg_data ,
1048: p_encoded => FND_API.G_FALSE
1049: );
1050: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1051: ROLLBACK TO Create_Srp_Pmt_Plan;
1052: x_loading_status := 'UNEXPECTED_ERR';
1046: p_count => x_msg_count ,
1047: p_data => x_msg_data ,
1048: p_encoded => FND_API.G_FALSE
1049: );
1050: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1051: ROLLBACK TO Create_Srp_Pmt_Plan;
1052: x_loading_status := 'UNEXPECTED_ERR';
1053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1054: FND_MSG_PUB.Count_And_Get
1049: );
1050: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1051: ROLLBACK TO Create_Srp_Pmt_Plan;
1052: x_loading_status := 'UNEXPECTED_ERR';
1053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1054: FND_MSG_PUB.Count_And_Get
1055: (
1056: p_count => x_msg_count ,
1057: p_data => x_msg_data ,
1054: FND_MSG_PUB.Count_And_Get
1055: (
1056: p_count => x_msg_count ,
1057: p_data => x_msg_data ,
1058: p_encoded => FND_API.G_FALSE
1059: );
1060: WHEN OTHERS THEN
1061: ROLLBACK TO Create_Srp_Pmt_Plan;
1062: x_loading_status := 'UNEXPECTED_ERR';
1059: );
1060: WHEN OTHERS THEN
1061: ROLLBACK TO Create_Srp_Pmt_Plan;
1062: x_loading_status := 'UNEXPECTED_ERR';
1063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1064: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1065: THEN
1066: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1067: END IF;
1068: FND_MSG_PUB.Count_And_Get
1069: (
1070: p_count => x_msg_count ,
1071: p_data => x_msg_data ,
1072: p_encoded => FND_API.G_FALSE
1073: );
1074: END create_srp_pmt_plan;
1075:
1076:
1110: SAVEPOINT Update_Srp_Pmt_Plan;
1111:
1112: -- Standard call to check for call compatibility.
1113:
1114: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1115: p_api_version ,
1116: l_api_name ,
1117: G_PKG_NAME )
1118: THEN
1115: p_api_version ,
1116: l_api_name ,
1117: G_PKG_NAME )
1118: THEN
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1120: END IF;
1121:
1122: -- Initialize message list if p_init_msg_list is set to TRUE.
1123: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1120: END IF;
1121:
1122: -- Initialize message list if p_init_msg_list is set to TRUE.
1123: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1124: FND_MSG_PUB.initialize;
1125: END IF;
1126:
1127: -- Initialize API return status to success
1124: FND_MSG_PUB.initialize;
1125: END IF;
1126:
1127: -- Initialize API return status to success
1128: x_return_status := FND_API.G_RET_STS_SUCCESS;
1129: x_loading_status := 'CN_UPDATED';
1130:
1131: -- check if the object version number is the same
1132: OPEN spp_csr(p_pmt_plan_assign_rec.srp_pmt_plan_id) ;
1142: fnd_msg_pub.add;
1143: END IF;
1144:
1145: x_loading_status := 'CN_INVALID_OBJECT_VERSION';
1146: RAISE FND_API.G_EXC_ERROR;
1147:
1148: END IF;
1149:
1150: -- can't change lock flag from Y to N
1154: fnd_message.set_name('CN', 'CN_CANNOT_UPDATE_LOCK');
1155: fnd_msg_pub.add;
1156: END IF;
1157: x_loading_status := 'CN_CANNOT_UPDATE_LOCK';
1158: RAISE FND_API.G_EXC_ERROR;
1159: END IF;
1160:
1161: -- can't change lock from N to Y if it is manual assignment
1162: IF l_oldrec.lock_flag = 'N' AND p_pmt_plan_assign_rec.lock_flag = 'Y' AND
1166: fnd_message.set_name('CN', 'CN_CANNOT_UPDATE_LOCK');
1167: fnd_msg_pub.add;
1168: END IF;
1169: x_loading_status := 'CN_CANNOT_UPDATE_LOCK';
1170: RAISE FND_API.G_EXC_ERROR;
1171: END IF;
1172:
1173: -- validate the assignment
1174: validate_assignment
1214: p_end_date => l_oldrec.end_date,
1215: p_loading_status => x_loading_status,
1216: x_loading_status => x_loading_status
1217: );
1218: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1219: RAISE FND_API.G_EXC_ERROR ;
1220: END IF;
1221: */
1222: -- Delete record
1215: p_loading_status => x_loading_status,
1216: x_loading_status => x_loading_status
1217: );
1218: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1219: RAISE FND_API.G_EXC_ERROR ;
1220: END IF;
1221: */
1222: -- Delete record
1223: cn_srp_pmt_plans_pkg.delete_row
1279: x_loading_status => x_loading_status
1280: );
1281:
1282: -- Check opeation fail
1283: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1284: RAISE FND_API.G_EXC_ERROR ;
1285: END IF;
1286:
1287: END IF;
1280: );
1281:
1282: -- Check opeation fail
1283: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1284: RAISE FND_API.G_EXC_ERROR ;
1285: END IF;
1286:
1287: END IF;
1288: */
1337: IF l_oldrec.start_date <> p_pmt_plan_assign_rec.start_date THEN
1338: get_note('START_DATE', l_oldrec.start_date, p_pmt_plan_assign_rec.start_date, l_notemsg);
1339: END IF;
1340:
1341: 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
1342: get_note('END_DATE', l_oldrec.end_date, p_pmt_plan_assign_rec.end_date, l_notemsg);
1343: END IF;
1344:
1345: IF Nvl(l_oldrec.minimum_amount, -1) <> Nvl(p_pmt_plan_assign_rec.minimum_amount, -1) THEN
1366: -- End of API body.
1367:
1368: -- Standard check of p_commit.
1369:
1370: IF FND_API.To_Boolean( p_commit ) THEN
1371: COMMIT WORK;
1372: END IF;
1373:
1374: -- Standard call to get message count and if count is 1, get message info
1375: FND_MSG_PUB.Count_And_Get
1376: (
1377: p_count => x_msg_count ,
1378: p_data => x_msg_data ,
1379: p_encoded => FND_API.G_FALSE
1380: );
1381:
1382: EXCEPTION
1383: WHEN FND_API.G_EXC_ERROR THEN
1379: p_encoded => FND_API.G_FALSE
1380: );
1381:
1382: EXCEPTION
1383: WHEN FND_API.G_EXC_ERROR THEN
1384: ROLLBACK TO Update_Srp_Pmt_Plan;
1385: x_return_status := FND_API.G_RET_STS_ERROR ;
1386: FND_MSG_PUB.Count_And_Get
1387: (
1381:
1382: EXCEPTION
1383: WHEN FND_API.G_EXC_ERROR THEN
1384: ROLLBACK TO Update_Srp_Pmt_Plan;
1385: x_return_status := FND_API.G_RET_STS_ERROR ;
1386: FND_MSG_PUB.Count_And_Get
1387: (
1388: p_count => x_msg_count ,
1389: p_data => x_msg_data ,
1386: FND_MSG_PUB.Count_And_Get
1387: (
1388: p_count => x_msg_count ,
1389: p_data => x_msg_data ,
1390: p_encoded => FND_API.G_FALSE
1391: );
1392: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1393: ROLLBACK TO Update_Srp_Pmt_Plan;
1394: x_loading_status := 'UNEXPECTED_ERR';
1388: p_count => x_msg_count ,
1389: p_data => x_msg_data ,
1390: p_encoded => FND_API.G_FALSE
1391: );
1392: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1393: ROLLBACK TO Update_Srp_Pmt_Plan;
1394: x_loading_status := 'UNEXPECTED_ERR';
1395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1396: FND_MSG_PUB.Count_And_Get
1391: );
1392: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1393: ROLLBACK TO Update_Srp_Pmt_Plan;
1394: x_loading_status := 'UNEXPECTED_ERR';
1395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1396: FND_MSG_PUB.Count_And_Get
1397: (
1398: p_count => x_msg_count ,
1399: p_data => x_msg_data ,
1396: FND_MSG_PUB.Count_And_Get
1397: (
1398: p_count => x_msg_count ,
1399: p_data => x_msg_data ,
1400: p_encoded => FND_API.G_FALSE
1401: );
1402: WHEN OTHERS THEN
1403: ROLLBACK TO Update_Srp_Pmt_Plan;
1404: x_loading_status := 'UNEXPECTED_ERR';
1401: );
1402: WHEN OTHERS THEN
1403: ROLLBACK TO Update_Srp_Pmt_Plan;
1404: x_loading_status := 'UNEXPECTED_ERR';
1405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1406: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1407: THEN
1408: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1409: END IF;
1410: FND_MSG_PUB.Count_And_Get
1411: (
1412: p_count => x_msg_count ,
1413: p_data => x_msg_data ,
1414: p_encoded => FND_API.G_FALSE
1415: );
1416:
1417: END update_srp_pmt_plan;
1418:
1438: l_spp_rec spp_csr%ROWTYPE;
1439:
1440: BEGIN
1441: -- Initialize message list if p_init_msg_list is set to TRUE.
1442: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1443: FND_MSG_PUB.initialize;
1444: END IF;
1445:
1446: -- Initialize API return status to success
1443: FND_MSG_PUB.initialize;
1444: END IF;
1445:
1446: -- Initialize API return status to success
1447: x_return_status := FND_API.G_RET_STS_SUCCESS;
1448: x_loading_status := 'CN_DELETED';
1449:
1450:
1451: --
1460: FND_MESSAGE.Set_Name('CN', 'CN_SRP_PMT_PLAN_LOCKED');
1461: FND_MSG_PUB.Add;
1462: END IF;
1463: x_loading_status := 'CN_SRP_PMT_PLAN_LOCKED';
1464: RAISE FND_API.G_EXC_ERROR ;
1465: END IF;
1466:
1467: check_operation_allowed
1468: ( x_return_status => x_return_status,
1473: p_end_date => l_spp_rec.end_date,
1474: p_loading_status => x_loading_status,
1475: x_loading_status => x_loading_status
1476: );
1477: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1478: RAISE FND_API.G_EXC_ERROR ;
1479: END IF;
1480: */
1481: EXCEPTION
1474: p_loading_status => x_loading_status,
1475: x_loading_status => x_loading_status
1476: );
1477: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1478: RAISE FND_API.G_EXC_ERROR ;
1479: END IF;
1480: */
1481: EXCEPTION
1482: WHEN FND_API.G_EXC_ERROR THEN
1478: RAISE FND_API.G_EXC_ERROR ;
1479: END IF;
1480: */
1481: EXCEPTION
1482: WHEN FND_API.G_EXC_ERROR THEN
1483: x_return_status := FND_API.G_RET_STS_ERROR ;
1484: FND_MSG_PUB.Count_And_Get
1485:
1486: (
1479: END IF;
1480: */
1481: EXCEPTION
1482: WHEN FND_API.G_EXC_ERROR THEN
1483: x_return_status := FND_API.G_RET_STS_ERROR ;
1484: FND_MSG_PUB.Count_And_Get
1485:
1486: (
1487: p_count => x_msg_count ,
1485:
1486: (
1487: p_count => x_msg_count ,
1488: p_data => x_msg_data ,
1489: p_encoded => FND_API.G_FALSE
1490: );
1491: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1492: x_loading_status := 'UNEXPECTED_ERR';
1493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1487: p_count => x_msg_count ,
1488: p_data => x_msg_data ,
1489: p_encoded => FND_API.G_FALSE
1490: );
1491: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1492: x_loading_status := 'UNEXPECTED_ERR';
1493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1494: FND_MSG_PUB.Count_And_Get
1495: (
1489: p_encoded => FND_API.G_FALSE
1490: );
1491: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1492: x_loading_status := 'UNEXPECTED_ERR';
1493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1494: FND_MSG_PUB.Count_And_Get
1495: (
1496: p_count => x_msg_count ,
1497: p_data => x_msg_data ,
1494: FND_MSG_PUB.Count_And_Get
1495: (
1496: p_count => x_msg_count ,
1497: p_data => x_msg_data ,
1498: p_encoded => FND_API.G_FALSE
1499: );
1500: WHEN OTHERS THEN
1501: x_loading_status := 'UNEXPECTED_ERR';
1502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1498: p_encoded => FND_API.G_FALSE
1499: );
1500: WHEN OTHERS THEN
1501: x_loading_status := 'UNEXPECTED_ERR';
1502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1503: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1504: THEN
1505: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1506: END IF;
1507: FND_MSG_PUB.Count_And_Get
1508: (
1509: p_count => x_msg_count ,
1510: p_data => x_msg_data ,
1511: p_encoded => FND_API.G_FALSE
1512: );
1513:
1514:
1515: END valid_delete_srp_pmt_plan;
1549: SAVEPOINT delete_srp_pmt_plan;
1550:
1551: -- Standard call to check for call compatibility.
1552:
1553: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1554: p_api_version ,
1555: l_api_name ,
1556: G_PKG_NAME )
1557: THEN
1554: p_api_version ,
1555: l_api_name ,
1556: G_PKG_NAME )
1557: THEN
1558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1559: END IF;
1560:
1561: -- Initialize message list if p_init_msg_list is set to TRUE.
1562: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1559: END IF;
1560:
1561: -- Initialize message list if p_init_msg_list is set to TRUE.
1562: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1563: FND_MSG_PUB.initialize;
1564: END IF;
1565:
1566: -- Initialize API return status to success
1563: FND_MSG_PUB.initialize;
1564: END IF;
1565:
1566: -- Initialize API return status to success
1567: x_return_status := FND_API.G_RET_STS_SUCCESS;
1568: x_loading_status := 'CN_DELETED';
1569:
1570: -- validate delete
1571: valid_delete_srp_pmt_plan
1575: x_return_status => x_return_status,
1576: x_msg_count => x_msg_count,
1577: x_msg_data => x_msg_data);
1578:
1579: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1580: RAISE fnd_api.g_exc_error;
1581: END IF;
1582:
1583: -- create note
1576: x_msg_count => x_msg_count,
1577: x_msg_data => x_msg_data);
1578:
1579: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1580: RAISE fnd_api.g_exc_error;
1581: END IF;
1582:
1583: -- create note
1584: OPEN spp_info_cur;
1620: -- End of API body
1621:
1622: -- Standard check of p_commit.
1623:
1624: IF FND_API.To_Boolean( p_commit ) THEN
1625: COMMIT WORK;
1626: END IF;
1627:
1628:
1631: FND_MSG_PUB.Count_And_Get
1632: (
1633: p_count => x_msg_count ,
1634: p_data => x_msg_data ,
1635: p_encoded => FND_API.G_FALSE
1636: );
1637:
1638: EXCEPTION
1639: WHEN FND_API.G_EXC_ERROR THEN
1635: p_encoded => FND_API.G_FALSE
1636: );
1637:
1638: EXCEPTION
1639: WHEN FND_API.G_EXC_ERROR THEN
1640: ROLLBACK TO Delete_Srp_Pmt_Plan;
1641: x_return_status := FND_API.G_RET_STS_ERROR ;
1642: FND_MSG_PUB.Count_And_Get
1643: (
1637:
1638: EXCEPTION
1639: WHEN FND_API.G_EXC_ERROR THEN
1640: ROLLBACK TO Delete_Srp_Pmt_Plan;
1641: x_return_status := FND_API.G_RET_STS_ERROR ;
1642: FND_MSG_PUB.Count_And_Get
1643: (
1644: p_count => x_msg_count ,
1645: p_data => x_msg_data ,
1642: FND_MSG_PUB.Count_And_Get
1643: (
1644: p_count => x_msg_count ,
1645: p_data => x_msg_data ,
1646: p_encoded => FND_API.G_FALSE
1647: );
1648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1649: ROLLBACK TO Delete_Srp_Pmt_Plan;
1650: x_loading_status := 'UNEXPECTED_ERR';
1644: p_count => x_msg_count ,
1645: p_data => x_msg_data ,
1646: p_encoded => FND_API.G_FALSE
1647: );
1648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1649: ROLLBACK TO Delete_Srp_Pmt_Plan;
1650: x_loading_status := 'UNEXPECTED_ERR';
1651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1652: FND_MSG_PUB.Count_And_Get
1647: );
1648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1649: ROLLBACK TO Delete_Srp_Pmt_Plan;
1650: x_loading_status := 'UNEXPECTED_ERR';
1651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1652: FND_MSG_PUB.Count_And_Get
1653: (
1654: p_count => x_msg_count ,
1655: p_data => x_msg_data ,
1652: FND_MSG_PUB.Count_And_Get
1653: (
1654: p_count => x_msg_count ,
1655: p_data => x_msg_data ,
1656: p_encoded => FND_API.G_FALSE
1657: );
1658: WHEN OTHERS THEN
1659: ROLLBACK TO Delete_Srp_Pmt_Plan;
1660: x_loading_status := 'UNEXPECTED_ERR';
1657: );
1658: WHEN OTHERS THEN
1659: ROLLBACK TO Delete_Srp_Pmt_Plan;
1660: x_loading_status := 'UNEXPECTED_ERR';
1661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1662: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1663: THEN
1664: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1665: END IF;
1666: FND_MSG_PUB.Count_And_Get
1667: (
1668: p_count => x_msg_count ,
1669: p_data => x_msg_data ,
1670: p_encoded => FND_API.G_FALSE
1671: );
1672: END Delete_Srp_Pmt_Plan;
1673:
1674: -- --------------------------------------------------------------------------*
1677:
1678: PROCEDURE Create_Mass_Asgn_Srp_Pmt_Plan
1679: (
1680: p_api_version IN NUMBER,
1681: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1682: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1683: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1684: x_return_status OUT NOCOPY VARCHAR2,
1685: x_msg_count OUT NOCOPY NUMBER,
1678: PROCEDURE Create_Mass_Asgn_Srp_Pmt_Plan
1679: (
1680: p_api_version IN NUMBER,
1681: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1682: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1683: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1684: x_return_status OUT NOCOPY VARCHAR2,
1685: x_msg_count OUT NOCOPY NUMBER,
1686: x_msg_data OUT NOCOPY VARCHAR2,
1679: (
1680: p_api_version IN NUMBER,
1681: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1682: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1683: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1684: x_return_status OUT NOCOPY VARCHAR2,
1685: x_msg_count OUT NOCOPY NUMBER,
1686: x_msg_data OUT NOCOPY VARCHAR2,
1687: p_srp_role_id IN NUMBER,
1718: SAVEPOINT Create_Mass_Asgn_Srp_Pmt_Plan;
1719:
1720: -- Standard call to check for call compatibility.
1721:
1722: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1723: p_api_version ,
1724: l_api_name ,
1725: G_PKG_NAME )
1726: THEN
1723: p_api_version ,
1724: l_api_name ,
1725: G_PKG_NAME )
1726: THEN
1727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1728: END IF;
1729:
1730: -- Initialize message list if p_init_msg_list is set to TRUE.
1731: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1728: END IF;
1729:
1730: -- Initialize message list if p_init_msg_list is set to TRUE.
1731: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1732: FND_MSG_PUB.initialize;
1733: END IF;
1734:
1735: -- Initialize API return status to success
1732: FND_MSG_PUB.initialize;
1733: END IF;
1734:
1735: -- Initialize API return status to success
1736: x_return_status := FND_API.G_RET_STS_SUCCESS;
1737: x_loading_status := 'CN_PP_CREATED';
1738:
1739: select pmt_plan_id, start_date, end_date
1740: into l_pmt_plan_id, l_pp_start_date, l_pp_end_date
1754:
1755: l_start_date := NULL;
1756: l_end_date := NULL;
1757:
1758: x_return_status := FND_API.G_RET_STS_SUCCESS;
1759: -- Start: Bug fix 5480386 5480540 CHANTHON
1760: get_masgn_date_intersect(
1761: p_srp_role_id => p_srp_role_id,
1762: p_role_pmt_plan_id => p_role_pmt_plan_id,
1803: p_pmt_plan_assign_rec=> newrec,
1804: x_loading_status => l_loading_status);
1805:
1806: /*
1807: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1808: RAISE fnd_api.g_exc_error;
1809: END IF;
1810: */
1811: l_return_status:=FND_API.G_RET_STS_SUCCESS;
1804: x_loading_status => l_loading_status);
1805:
1806: /*
1807: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1808: RAISE fnd_api.g_exc_error;
1809: END IF;
1810: */
1811: l_return_status:=FND_API.G_RET_STS_SUCCESS;
1812: x_return_status := l_return_status;
1807: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1808: RAISE fnd_api.g_exc_error;
1809: END IF;
1810: */
1811: l_return_status:=FND_API.G_RET_STS_SUCCESS;
1812: x_return_status := l_return_status;
1813: x_loading_status := l_loading_status;
1814:
1815: -- END IF;
1815: -- END IF;
1816:
1817: -- Standard check of p_commit.
1818:
1819: IF FND_API.To_Boolean( p_commit ) THEN
1820: COMMIT WORK;
1821: END IF;
1822:
1823: -- Standard call to get message count and if count is 1, get message info
1824: FND_MSG_PUB.Count_And_Get
1825: (
1826: p_count => x_msg_count ,
1827: p_data => x_msg_data ,
1828: p_encoded => FND_API.G_FALSE
1829: );
1830:
1831: EXCEPTION
1832: WHEN FND_API.G_EXC_ERROR THEN
1828: p_encoded => FND_API.G_FALSE
1829: );
1830:
1831: EXCEPTION
1832: WHEN FND_API.G_EXC_ERROR THEN
1833: ROLLBACK TO Create_Mass_Asgn_Srp_Pmt_Plan;
1834: x_return_status := FND_API.G_RET_STS_ERROR ;
1835: FND_MSG_PUB.Count_And_Get
1836: (
1830:
1831: EXCEPTION
1832: WHEN FND_API.G_EXC_ERROR THEN
1833: ROLLBACK TO Create_Mass_Asgn_Srp_Pmt_Plan;
1834: x_return_status := FND_API.G_RET_STS_ERROR ;
1835: FND_MSG_PUB.Count_And_Get
1836: (
1837: p_count => x_msg_count ,
1838: p_data => x_msg_data ,
1835: FND_MSG_PUB.Count_And_Get
1836: (
1837: p_count => x_msg_count ,
1838: p_data => x_msg_data ,
1839: p_encoded => FND_API.G_FALSE
1840: );
1841: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1842: ROLLBACK TO Create_Mass_Asgn_Srp_Pmt_Plan;
1843: x_loading_status := 'UNEXPECTED_ERR';
1837: p_count => x_msg_count ,
1838: p_data => x_msg_data ,
1839: p_encoded => FND_API.G_FALSE
1840: );
1841: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1842: ROLLBACK TO Create_Mass_Asgn_Srp_Pmt_Plan;
1843: x_loading_status := 'UNEXPECTED_ERR';
1844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1845: FND_MSG_PUB.Count_And_Get
1840: );
1841: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1842: ROLLBACK TO Create_Mass_Asgn_Srp_Pmt_Plan;
1843: x_loading_status := 'UNEXPECTED_ERR';
1844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1845: FND_MSG_PUB.Count_And_Get
1846: (
1847: p_count => x_msg_count ,
1848: p_data => x_msg_data ,
1845: FND_MSG_PUB.Count_And_Get
1846: (
1847: p_count => x_msg_count ,
1848: p_data => x_msg_data ,
1849: p_encoded => FND_API.G_FALSE
1850: );
1851: WHEN OTHERS THEN
1852: ROLLBACK TO Create_Mass_Asgn_Srp_Pmt_Plan;
1853: x_loading_status := 'UNEXPECTED_ERR';
1850: );
1851: WHEN OTHERS THEN
1852: ROLLBACK TO Create_Mass_Asgn_Srp_Pmt_Plan;
1853: x_loading_status := 'UNEXPECTED_ERR';
1854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1855: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1856: THEN
1857: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1858: END IF;
1859: FND_MSG_PUB.Count_And_Get
1860: (
1861: p_count => x_msg_count ,
1862: p_data => x_msg_data ,
1863: p_encoded => FND_API.G_FALSE
1864: );
1865:
1866: END Create_Mass_Asgn_Srp_Pmt_Plan;
1867:
1871:
1872: PROCEDURE Update_Mass_Asgn_Srp_Pmt_plan
1873: (
1874: p_api_version IN NUMBER,
1875: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1876: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1877: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1878: x_return_status OUT NOCOPY VARCHAR2,
1879: x_msg_count OUT NOCOPY NUMBER,
1872: PROCEDURE Update_Mass_Asgn_Srp_Pmt_plan
1873: (
1874: p_api_version IN NUMBER,
1875: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1876: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1877: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1878: x_return_status OUT NOCOPY VARCHAR2,
1879: x_msg_count OUT NOCOPY NUMBER,
1880: x_msg_data OUT NOCOPY VARCHAR2,
1873: (
1874: p_api_version IN NUMBER,
1875: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1876: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1877: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1878: x_return_status OUT NOCOPY VARCHAR2,
1879: x_msg_count OUT NOCOPY NUMBER,
1880: x_msg_data OUT NOCOPY VARCHAR2,
1881: p_srp_role_id IN NUMBER,
1924: SAVEPOINT Update_Mass_Asgn_Srp_Pmt_plan;
1925:
1926: -- Standard call to check for call compatibility.
1927:
1928: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1929: p_api_version ,
1930: l_api_name ,
1931: G_PKG_NAME )
1932: THEN
1929: p_api_version ,
1930: l_api_name ,
1931: G_PKG_NAME )
1932: THEN
1933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1934: END IF;
1935:
1936: -- Initialize message list if p_init_msg_list is set to TRUE.
1937: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1934: END IF;
1935:
1936: -- Initialize message list if p_init_msg_list is set to TRUE.
1937: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1938: FND_MSG_PUB.initialize;
1939: END IF;
1940:
1941: -- Initialize API return status to success
1938: FND_MSG_PUB.initialize;
1939: END IF;
1940:
1941: -- Initialize API return status to success
1942: x_return_status := FND_API.G_RET_STS_SUCCESS;
1943: x_loading_status := 'CN_PP_UPDATED';
1944:
1945: select org_id into l_org_id
1946: from cn_role_pmt_plans
2008:
2009: l_start_date_new := NULL;
2010: l_end_date_new := NULL;
2011:
2012: x_return_status := FND_API.G_RET_STS_SUCCESS;
2013:
2014: if cn_api.date_range_overlap(
2015: a_start_date => l_srp_start_date_new,
2016: a_end_date => l_srp_end_date_new,
2072: p_pmt_plan_assign_rec=> newrec,
2073: x_loading_status => l_loading_status);
2074:
2075: /*
2076: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2077: RAISE fnd_api.g_exc_error;
2078: END IF;
2079: */
2080: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2073: x_loading_status => l_loading_status);
2074:
2075: /*
2076: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2077: RAISE fnd_api.g_exc_error;
2078: END IF;
2079: */
2080: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2081: x_return_status := l_return_status;
2076: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2077: RAISE fnd_api.g_exc_error;
2078: END IF;
2079: */
2080: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2081: x_return_status := l_return_status;
2082: x_loading_status := l_loading_status;
2083:
2084: ELSE
2085: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2086: FND_MESSAGE.Set_Name('CN', 'CN_SPP_UPDATE_NOT_ALLOWED');
2087: FND_MSG_PUB.Add;
2088: END IF;
2089: RAISE FND_API.G_EXC_ERROR;
2090: END IF;
2091:
2092: -- Added to create a cn_srp_pmt_plan record if there are no records for the the date range for bug 3147026
2093: ELSIF (l_count_srp_pmt_plan = 0 )
2116: x_loading_status => l_loading_status
2117: );
2118:
2119: /*
2120: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2121: RAISE fnd_api.g_exc_error;
2122: END IF;
2123: */
2124: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2117: );
2118:
2119: /*
2120: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2121: RAISE fnd_api.g_exc_error;
2122: END IF;
2123: */
2124: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2125: x_return_status := l_return_status;
2120: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2121: RAISE fnd_api.g_exc_error;
2122: END IF;
2123: */
2124: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2125: x_return_status := l_return_status;
2126: x_loading_status := l_loading_status;
2127: END IF;
2128: END IF;
2142: p_srp_pmt_plan_id => l_srp_pmt_plan_id,
2143: x_loading_status => l_loading_status);
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: x_loading_status => l_loading_status);
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;
2154: END IF;
2155:
2156: -- Standard check of p_commit.
2157:
2158: IF FND_API.To_Boolean( p_commit ) THEN
2159: COMMIT WORK;
2160: END IF;
2161:
2162: -- Standard call to get message count and if count is 1, get message info
2163: FND_MSG_PUB.Count_And_Get
2164: (
2165: p_count => x_msg_count ,
2166: p_data => x_msg_data ,
2167: p_encoded => FND_API.G_FALSE
2168: );
2169:
2170: EXCEPTION
2171: WHEN FND_API.G_EXC_ERROR THEN
2167: p_encoded => FND_API.G_FALSE
2168: );
2169:
2170: EXCEPTION
2171: WHEN FND_API.G_EXC_ERROR THEN
2172: ROLLBACK TO Update_Mass_Asgn_Srp_Pmt_plan;
2173: x_return_status := FND_API.G_RET_STS_ERROR ;
2174: FND_MSG_PUB.Count_And_Get
2175: (
2169:
2170: EXCEPTION
2171: WHEN FND_API.G_EXC_ERROR THEN
2172: ROLLBACK TO Update_Mass_Asgn_Srp_Pmt_plan;
2173: x_return_status := FND_API.G_RET_STS_ERROR ;
2174: FND_MSG_PUB.Count_And_Get
2175: (
2176: p_count => x_msg_count ,
2177: p_data => x_msg_data ,
2174: FND_MSG_PUB.Count_And_Get
2175: (
2176: p_count => x_msg_count ,
2177: p_data => x_msg_data ,
2178: p_encoded => FND_API.G_FALSE
2179: );
2180: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2181: ROLLBACK TO Update_Mass_Asgn_Srp_Pmt_plan;
2182: x_loading_status := 'UNEXPECTED_ERR';
2176: p_count => x_msg_count ,
2177: p_data => x_msg_data ,
2178: p_encoded => FND_API.G_FALSE
2179: );
2180: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2181: ROLLBACK TO Update_Mass_Asgn_Srp_Pmt_plan;
2182: x_loading_status := 'UNEXPECTED_ERR';
2183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2184: FND_MSG_PUB.Count_And_Get
2179: );
2180: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2181: ROLLBACK TO Update_Mass_Asgn_Srp_Pmt_plan;
2182: x_loading_status := 'UNEXPECTED_ERR';
2183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2184: FND_MSG_PUB.Count_And_Get
2185: (
2186: p_count => x_msg_count ,
2187: p_data => x_msg_data ,
2184: FND_MSG_PUB.Count_And_Get
2185: (
2186: p_count => x_msg_count ,
2187: p_data => x_msg_data ,
2188: p_encoded => FND_API.G_FALSE
2189: );
2190: WHEN OTHERS THEN
2191: ROLLBACK TO Update_Mass_Asgn_Srp_Pmt_plan;
2192: x_loading_status := 'UNEXPECTED_ERR';
2189: );
2190: WHEN OTHERS THEN
2191: ROLLBACK TO Update_Mass_Asgn_Srp_Pmt_plan;
2192: x_loading_status := 'UNEXPECTED_ERR';
2193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2194: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2195: THEN
2196: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2197: END IF;
2198: FND_MSG_PUB.Count_And_Get
2199: (
2200: p_count => x_msg_count ,
2201: p_data => x_msg_data ,
2202: p_encoded => FND_API.G_FALSE
2203: );
2204:
2205: End Update_Mass_Asgn_Srp_Pmt_plan;
2206:
2210: -- --------------------------------------------------------------------------*
2211:
2212: PROCEDURE Delete_Mass_Asgn_Srp_Pmt_Plan
2213: (p_api_version IN NUMBER,
2214: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2215: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2216: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2217: x_return_status OUT NOCOPY VARCHAR2,
2218: x_msg_count OUT NOCOPY NUMBER,
2211:
2212: PROCEDURE Delete_Mass_Asgn_Srp_Pmt_Plan
2213: (p_api_version IN NUMBER,
2214: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2215: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2216: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2217: x_return_status OUT NOCOPY VARCHAR2,
2218: x_msg_count OUT NOCOPY NUMBER,
2219: x_msg_data OUT NOCOPY VARCHAR2,
2212: PROCEDURE Delete_Mass_Asgn_Srp_Pmt_Plan
2213: (p_api_version IN NUMBER,
2214: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2215: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2216: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2217: x_return_status OUT NOCOPY VARCHAR2,
2218: x_msg_count OUT NOCOPY NUMBER,
2219: x_msg_data OUT NOCOPY VARCHAR2,
2220: p_srp_role_id IN NUMBER,
2261: SAVEPOINT Delete_Mass_Asgn_Srp_Pmt_Plan;
2262:
2263: -- Standard call to check for call compatibility.
2264:
2265: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2266: p_api_version ,
2267: l_api_name ,
2268: G_PKG_NAME )
2269: THEN
2266: p_api_version ,
2267: l_api_name ,
2268: G_PKG_NAME )
2269: THEN
2270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2271: END IF;
2272:
2273: -- Initialize message list if p_init_msg_list is set to TRUE.
2274: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2271: END IF;
2272:
2273: -- Initialize message list if p_init_msg_list is set to TRUE.
2274: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2275: FND_MSG_PUB.initialize;
2276: END IF;
2277:
2278: -- Initialize API return status to success
2275: FND_MSG_PUB.initialize;
2276: END IF;
2277:
2278: -- Initialize API return status to success
2279: x_return_status := FND_API.G_RET_STS_SUCCESS;
2280: x_loading_status := 'CN_PP_DELETED';
2281:
2282: BEGIN
2283:
2367: x_loading_status => l_loading_status);
2368: END IF;
2369:
2370: /*
2371: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2372: RAISE fnd_api.g_exc_error;
2373: END IF;
2374: */
2375: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2368: END IF;
2369:
2370: /*
2371: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2372: RAISE fnd_api.g_exc_error;
2373: END IF;
2374: */
2375: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2376:
2371: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2372: RAISE fnd_api.g_exc_error;
2373: END IF;
2374: */
2375: l_return_status:=FND_API.G_RET_STS_SUCCESS;
2376:
2377: x_return_status := l_return_status;
2378: x_loading_status := l_loading_status;
2379:
2380: END IF;
2381:
2382: -- Standard check of p_commit.
2383:
2384: IF FND_API.To_Boolean( p_commit ) THEN
2385: COMMIT WORK;
2386: END IF;
2387:
2388: -- Standard call to get message count and if count is 1, get message info
2389: FND_MSG_PUB.Count_And_Get
2390: (
2391: p_count => x_msg_count ,
2392: p_data => x_msg_data ,
2393: p_encoded => FND_API.G_FALSE
2394: );
2395:
2396: EXCEPTION
2397: WHEN FND_API.G_EXC_ERROR THEN
2393: p_encoded => FND_API.G_FALSE
2394: );
2395:
2396: EXCEPTION
2397: WHEN FND_API.G_EXC_ERROR THEN
2398: ROLLBACK TO Delete_Mass_Asgn_Srp_Pmt_Plan;
2399: x_return_status := FND_API.G_RET_STS_ERROR ;
2400: FND_MSG_PUB.Count_And_Get
2401: (
2395:
2396: EXCEPTION
2397: WHEN FND_API.G_EXC_ERROR THEN
2398: ROLLBACK TO Delete_Mass_Asgn_Srp_Pmt_Plan;
2399: x_return_status := FND_API.G_RET_STS_ERROR ;
2400: FND_MSG_PUB.Count_And_Get
2401: (
2402: p_count => x_msg_count ,
2403: p_data => x_msg_data ,
2400: FND_MSG_PUB.Count_And_Get
2401: (
2402: p_count => x_msg_count ,
2403: p_data => x_msg_data ,
2404: p_encoded => FND_API.G_FALSE
2405: );
2406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2407: ROLLBACK TO Delete_Mass_Asgn_Srp_Pmt_Plan;
2408: x_loading_status := 'UNEXPECTED_ERR';
2402: p_count => x_msg_count ,
2403: p_data => x_msg_data ,
2404: p_encoded => FND_API.G_FALSE
2405: );
2406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2407: ROLLBACK TO Delete_Mass_Asgn_Srp_Pmt_Plan;
2408: x_loading_status := 'UNEXPECTED_ERR';
2409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2410: FND_MSG_PUB.Count_And_Get
2405: );
2406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2407: ROLLBACK TO Delete_Mass_Asgn_Srp_Pmt_Plan;
2408: x_loading_status := 'UNEXPECTED_ERR';
2409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2410: FND_MSG_PUB.Count_And_Get
2411: (
2412: p_count => x_msg_count ,
2413: p_data => x_msg_data ,
2410: FND_MSG_PUB.Count_And_Get
2411: (
2412: p_count => x_msg_count ,
2413: p_data => x_msg_data ,
2414: p_encoded => FND_API.G_FALSE
2415: );
2416: WHEN OTHERS THEN
2417: ROLLBACK TO Delete_Mass_Asgn_Srp_Pmt_Plan;
2418: x_loading_status := 'UNEXPECTED_ERR';
2415: );
2416: WHEN OTHERS THEN
2417: ROLLBACK TO Delete_Mass_Asgn_Srp_Pmt_Plan;
2418: x_loading_status := 'UNEXPECTED_ERR';
2419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2420: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2421: THEN
2422: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2423: END IF;
2424: FND_MSG_PUB.Count_And_Get
2425: (
2426: p_count => x_msg_count ,
2427: p_data => x_msg_data ,
2428: p_encoded => FND_API.G_FALSE
2429: );
2430:
2431: END Delete_Mass_Asgn_Srp_Pmt_Plan;
2432: