[Home] [Help]
87: WHEN OTHERS THEN
88:
89: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
90: x_loading_status := 'UNEXPECTED_ERR';
91: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
92: THEN
93: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
94: END IF;
95:
89: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
90: x_loading_status := 'UNEXPECTED_ERR';
91: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
92: THEN
93: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
94: END IF;
95:
96: END Get_PmtPlan_ID;
97:
207: AND p_pmtplan_rec.start_date IS NOT NULL
208: AND (p_PmtPlan_rec.start_date > p_PmtPlan_rec.end_date)
209: THEN
210: --Error condition
211: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
212: THEN
213: fnd_message.set_name('CN', 'CN_INVALID_DATE_RANGE');
214: fnd_msg_pub.add;
215: END IF;
210: --Error condition
211: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
212: THEN
213: fnd_message.set_name('CN', 'CN_INVALID_DATE_RANGE');
214: fnd_msg_pub.add;
215: END IF;
216:
217: x_loading_status := 'CN_INVALID_DATE_RANGE';
218: RAISE FND_API.G_EXC_ERROR;
224: THEN
225:
226: IF (p_pmtplan_rec.maximum_amount < p_pmtplan_rec.minimum_amount)
227: THEN
228: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
229: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPP_MAX_LT_MIN');
230: FND_MSG_PUB.Add;
231: END IF;
232: x_loading_status := 'CN_SPP_MAX_LT_MIN';
226: IF (p_pmtplan_rec.maximum_amount < p_pmtplan_rec.minimum_amount)
227: THEN
228: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
229: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPP_MAX_LT_MIN');
230: FND_MSG_PUB.Add;
231: END IF;
232: x_loading_status := 'CN_SPP_MAX_LT_MIN';
233: RAISE FND_API.G_EXC_ERROR ;
234: END IF;
239: THEN
240: IF p_pmtplan_rec.min_rec_flag NOT IN ('Y', 'N')
241: THEN
242: --Error condition
243: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
244: THEN
245: fnd_message.set_name('CN', 'CN_INVALID_PMT_PLAN_FLAGS');
246: fnd_msg_pub.add;
247: END IF;
242: --Error condition
243: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
244: THEN
245: fnd_message.set_name('CN', 'CN_INVALID_PMT_PLAN_FLAGS');
246: fnd_msg_pub.add;
247: END IF;
248:
249: x_status := 'CN_INVALID_PMT_PLAN_FLAGS';
250: x_loading_status := 'CN_INVALID_PMT_PLAN_FLAGS';
257: IF p_pmtplan_rec.max_rec_flag NOT IN ('Y', 'N')
258: THEN
259:
260: --Error condition
261: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
262: THEN
263: fnd_message.set_name('CN', 'CN_INVALID_PMT_PLAN_FLAGS');
264: fnd_msg_pub.add;
265: END IF;
260: --Error condition
261: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
262: THEN
263: fnd_message.set_name('CN', 'CN_INVALID_PMT_PLAN_FLAGS');
264: fnd_msg_pub.add;
265: END IF;
266:
267: x_status := 'CN_INVALID_PMT_PLAN_FLAGS';
268: x_loading_status := 'CN_INVALID_PMT_PLAN_FLAGS';
299:
300: if (l_pg_count = 0)
301: then
302: --Error condition
303: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
304: THEN
305: fnd_message.set_name('CN', 'CN_PAY_INVALID_PG_CODE');
306: fnd_msg_pub.add;
307: END IF;
302: --Error condition
303: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
304: THEN
305: fnd_message.set_name('CN', 'CN_PAY_INVALID_PG_CODE');
306: fnd_msg_pub.add;
307: END IF;
308:
309: x_status := 'CN_PAY_INVALID_PG_CODE';
310: x_loading_status := 'CN_PAY_INVALID_PG_CODE';
328: FETCH get_credit_type_id INTO l_credit_type_id;
329: IF get_credit_type_id%ROWCOUNT = 0
330: THEN
331:
332: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
333: THEN
334:
335: fnd_message.set_name('CN', 'CN_INVALID_CREDIT_TYPE');
336: fnd_msg_pub.add;
332: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
333: THEN
334:
335: fnd_message.set_name('CN', 'CN_INVALID_CREDIT_TYPE');
336: fnd_msg_pub.add;
337: END IF;
338:
339: x_loading_status := 'CN_INVALID_CREDIT_TYPE';
340: CLOSE get_credit_type_id;
351: FETCH get_pay_interval_type_id INTO l_pay_interval_type_id;
352: IF get_pay_interval_type_id%ROWCOUNT = 0 OR
353: l_pay_interval_type_id NOT IN (-1000, -1001, -1002)
354: THEN
355: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
356: THEN
357: fnd_message.set_name('CN', 'CN_INVALID_PAY_INTERVAL');
358: fnd_msg_pub.add;
359: END IF;
354: THEN
355: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
356: THEN
357: fnd_message.set_name('CN', 'CN_INVALID_PAY_INTERVAL');
358: fnd_msg_pub.add;
359: END IF;
360: x_loading_status := 'CN_INVALID_PAY_INTERVAL';
361: CLOSE get_pay_interval_type_id;
362: RAISE FND_API.G_EXC_ERROR;
368: -- End of Validate Pmt Plans.
369: -- Standard call to get message count and if count is 1,
370: -- get message info.
371:
372: FND_MSG_PUB.Count_And_Get
373: (
374: p_count => x_msg_count,
375: p_data => x_msg_data,
376: p_encoded => FND_API.G_FALSE
386:
387: WHEN OTHERS THEN
388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
389: x_loading_status := 'UNEXPECTED_ERR';
390: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
391: THEN
392: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
393: END IF;
394:
388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
389: x_loading_status := 'UNEXPECTED_ERR';
390: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
391: THEN
392: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
393: END IF;
394:
395: END Validate_PmtPlan;
396:
471: --
472: -- Initialize message list if p_init_msg_list is set to TRUE.
473: --
474: IF FND_API.to_Boolean( p_init_msg_list ) THEN
475: FND_MSG_PUB.initialize;
476: END IF;
477: --
478: -- Initialize API return status to success
479: --
564:
565: if ( l_recoverable_interval_type_id = -1001 and
566: l_pay_interval_type_id = -1002 ) THEN
567:
568: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
569: THEN
570: fnd_message.set_name('CN', 'CN_INVALID_PAY_INT_AND_REC_INT');
571: fnd_msg_pub.add;
572: END IF;
567:
568: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
569: THEN
570: fnd_message.set_name('CN', 'CN_INVALID_PAY_INT_AND_REC_INT');
571: fnd_msg_pub.add;
572: END IF;
573:
574: x_status := 'CN_INV_PAY_INT_AND_REC';
575: x_loading_status := 'CCN_INV_PAY_INT_AND_REC';
582: IF l_recoverable_interval_type_id IN ( -1001, -1002 ) AND
583: l_recoverable_interval_type_id <> l_pay_interval_type_id and
584: nvl(l_pay_against_commission,'Y') <> 'N' THEN
585: --Error condition
586: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
587: THEN
588: fnd_message.set_name('CN', 'CN_INVALID_REC_AND_PAC');
589: fnd_msg_pub.add;
590: END IF;
585: --Error condition
586: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
587: THEN
588: fnd_message.set_name('CN', 'CN_INVALID_REC_AND_PAC');
589: fnd_msg_pub.add;
590: END IF;
591:
592: x_status := 'CN_INVALID_REC_AND_PAC';
593: x_loading_status := 'CCN_INVALID_REC_AND_PAC';
598: IF nvl(l_recoverable_interval_type_id,0) NOT IN ( -1001, -1002 ) AND
599: l_recoverable_interval_type_id <> l_pay_interval_type_id and
600: nvl(l_pay_against_commission,'Y') = 'N' THEN
601: --Error condition
602: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
603: THEN
604: fnd_message.set_name('CN', 'CN_INVALID_REC_AND_PAC');
605: fnd_msg_pub.add;
606: END IF;
601: --Error condition
602: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
603: THEN
604: fnd_message.set_name('CN', 'CN_INVALID_REC_AND_PAC');
605: fnd_msg_pub.add;
606: END IF;
607:
608: x_status := 'CN_INVALID_REC_AND_PAC';
609: x_loading_status := 'CCN_INVALID_REC_AND_PAC';
656:
657: x_loading_status := 'CN_INSERTED';
658: ELSE
659: -- The pmt plan already exists - Raise an Error Meassge
660: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
661: THEN
662: FND_MESSAGE.SET_NAME ('CN' , 'CN_PMT_PLAN_EXISTS');
663: FND_MSG_PUB.Add;
664: END IF;
659: -- The pmt plan already exists - Raise an Error Meassge
660: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
661: THEN
662: FND_MESSAGE.SET_NAME ('CN' , 'CN_PMT_PLAN_EXISTS');
663: FND_MSG_PUB.Add;
664: END IF;
665: x_loading_status := 'CN_PMT_PLAN_EXISTS';
666: RAISE FND_API.G_EXC_ERROR ;
667: END IF;
676: --
677: -- Standard call to get message count and if count is 1, get message info.
678: --
679:
680: FND_MSG_PUB.Count_And_Get
681: (
682: p_count => x_msg_count ,
683: p_data => x_msg_data ,
684: p_encoded => FND_API.G_FALSE
687: EXCEPTION
688: WHEN FND_API.G_EXC_ERROR THEN
689: ROLLBACK TO Create_PmtPlan;
690: x_return_status := FND_API.G_RET_STS_ERROR ;
691: FND_MSG_PUB.Count_And_Get
692: (
693: p_count => x_msg_count ,
694: p_data => x_msg_data ,
695: p_encoded => FND_API.G_FALSE
697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
698: ROLLBACK TO Create_PmtPlan;
699: x_loading_status := 'UNEXPECTED_ERR';
700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
701: FND_MSG_PUB.Count_And_Get
702: (
703: p_count => x_msg_count ,
704: p_data => x_msg_data ,
705: p_encoded => FND_API.G_FALSE
707: WHEN OTHERS THEN
708: ROLLBACK TO Create_PmtPlan;
709: x_loading_status := 'UNEXPECTED_ERR';
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
711: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
712: THEN
713: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
714: END IF;
715: FND_MSG_PUB.Count_And_Get
709: x_loading_status := 'UNEXPECTED_ERR';
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
711: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
712: THEN
713: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
714: END IF;
715: FND_MSG_PUB.Count_And_Get
716: (
717: p_count => x_msg_count ,
711: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
712: THEN
713: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
714: END IF;
715: FND_MSG_PUB.Count_And_Get
716: (
717: p_count => x_msg_count ,
718: p_data => x_msg_data ,
719: p_encoded => FND_API.G_FALSE
842: --
843: -- Initialize message list if p_init_msg_list is set to TRUE.
844: --
845: IF FND_API.to_Boolean( p_init_msg_list ) THEN
846: FND_MSG_PUB.initialize;
847: END IF;
848: --
849: -- Initialize API return status to success
850: --
908: IF p_pmtplan_rec.start_date <> fnd_api.g_miss_date
909: AND p_pmtplan_rec.start_date IS NULL
910: THEN
911: --Error condition
912: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
913: THEN
914: fnd_message.set_name('CN', 'CN_PP_SDT_CANNOT_NULL');
915: fnd_msg_pub.add;
916: END IF;
911: --Error condition
912: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
913: THEN
914: fnd_message.set_name('CN', 'CN_PP_SDT_CANNOT_NULL');
915: fnd_msg_pub.add;
916: END IF;
917:
918: x_loading_status := 'CN_PP_SDT_CANNOT_NULL';
919: RAISE FND_API.G_EXC_ERROR;
924: IF p_PmtPlan_rec.end_date IS NOT NULL
925: AND (p_PmtPlan_rec.start_date > p_PmtPlan_rec.end_date)
926: THEN
927: --Error condition
928: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
929: THEN
930: fnd_message.set_name('CN', 'CN_INVALID_DATE_RANGE');
931: fnd_msg_pub.add;
932: END IF;
927: --Error condition
928: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
929: THEN
930: fnd_message.set_name('CN', 'CN_INVALID_DATE_RANGE');
931: fnd_msg_pub.add;
932: END IF;
933:
934: x_loading_status := 'CN_INVALID_DATE_RANGE';
935: RAISE FND_API.G_EXC_ERROR;
938: IF l_old_PmtPlan_rec.end_date IS NOT NULL
939: AND (p_PmtPlan_rec.start_date > l_old_pmtPlan_Rec.end_date)
940: THEN
941: --Error condition
942: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
943: THEN
944: fnd_message.set_name('CN', 'CN_INVALID_DATE_RANGE');
945: fnd_msg_pub.add;
946: END IF;
941: --Error condition
942: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
943: THEN
944: fnd_message.set_name('CN', 'CN_INVALID_DATE_RANGE');
945: fnd_msg_pub.add;
946: END IF;
947:
948: x_loading_status := 'CN_INVALID_DATE_RANGE';
949: RAISE FND_API.G_EXC_ERROR;
968:
969: IF (l_object_version_number <>
970: p_pmtplan_rec.object_version_number) THEN
971:
972: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
973: THEN
974: fnd_message.set_name('CN', 'CN_INVALID_OBJECT_VERSION');
975: fnd_msg_pub.add;
976: END IF;
971:
972: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
973: THEN
974: fnd_message.set_name('CN', 'CN_INVALID_OBJECT_VERSION');
975: fnd_msg_pub.add;
976: END IF;
977:
978: x_loading_status := 'CN_INVALID_OBJECT_VERSION';
979: RAISE FND_API.G_EXC_ERROR;
987:
988: ELSIF x_status <> 'PMT PLAN EXISTS'
989: THEN
990:
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_PMT_PLAN');
994: fnd_message.set_token('PMT_PLAN_NAME', l_old_pmtPlan_Rec.name);
995: FND_MSG_PUB.Add;
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_PMT_PLAN');
994: fnd_message.set_token('PMT_PLAN_NAME', l_old_pmtPlan_Rec.name);
995: FND_MSG_PUB.Add;
996: END IF;
997:
998: x_loading_status := 'CN_INVALID_PMT_PLAN';
999: RAISE FND_API.G_EXC_ERROR ;
1022: OR ( nvl(p_pmtplan_rec.max_rec_flag,'N') IS NOT NULL
1023: AND nvl(p_pmtplan_rec.max_rec_flag,'N') <> l_pp_rec.max_rec_flag)
1024: THEN
1025:
1026: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1027: THEN
1028: FND_MESSAGE.SET_NAME ('CN' , 'CN_REC_FLG_UPD_NA');
1029: FND_MSG_PUB.Add;
1030: END IF;
1025:
1026: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1027: THEN
1028: FND_MESSAGE.SET_NAME ('CN' , 'CN_REC_FLG_UPD_NA');
1029: FND_MSG_PUB.Add;
1030: END IF;
1031:
1032: x_loading_status := 'CN_REC_FLG_UPD_NA';
1033: RAISE FND_API.G_EXC_ERROR ;
1032: x_loading_status := 'CN_REC_FLG_UPD_NA';
1033: RAISE FND_API.G_EXC_ERROR ;
1034: ELSE IF(p_pmtplan_rec.payment_group_code <> l_pp_rec.payment_group_code)
1035: THEN
1036: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1037: THEN
1038: FND_MESSAGE.SET_NAME ('CN' , 'CN_PYMT_GRP_CODE_UPD_NA');
1039: FND_MSG_PUB.Add;
1040: END IF;
1035: THEN
1036: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1037: THEN
1038: FND_MESSAGE.SET_NAME ('CN' , 'CN_PYMT_GRP_CODE_UPD_NA');
1039: FND_MSG_PUB.Add;
1040: END IF;
1041:
1042: x_loading_status := 'CN_PYMT_GRP_CODE_UPD_NA';
1043: RAISE FND_API.G_EXC_ERROR ;
1066: OR l_null_end_date_srps = 1
1067: THEN
1068:
1069: --Error condition
1070: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1071: THEN
1072: fnd_message.set_name('CN', 'CN_PMT_PLAN_CHANGE_NA');
1073: fnd_msg_pub.add;
1074: END IF;
1069: --Error condition
1070: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1071: THEN
1072: fnd_message.set_name('CN', 'CN_PMT_PLAN_CHANGE_NA');
1073: fnd_msg_pub.add;
1074: END IF;
1075:
1076: x_status := 'CN_PMT_PLAN_CHANGE_NA';
1077: x_loading_status := 'CN_PMT_PLAN_CHANGE_NA';
1137: if( l_recoverable_interval_type_id = -1000 and
1138: l_recoverable_interval_type_id <> l_Pay_interval_type_id and
1139: l_pay_interval_type_id = -1002 ) THEN
1140:
1141: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1142: THEN
1143: fnd_message.set_name('CN', 'CN_INVALID_PAY_INT_AND_REC_INT');
1144: fnd_msg_pub.add;
1145: END IF;
1140:
1141: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1142: THEN
1143: fnd_message.set_name('CN', 'CN_INVALID_PAY_INT_AND_REC_INT');
1144: fnd_msg_pub.add;
1145: END IF;
1146:
1147: x_status := 'CN_INV_PAY_INT_AND_REC';
1148: x_loading_status := 'CN_INV_PAY_INT_AND_REC';
1151: elsif( l_recoverable_interval_type_id = -1000 and
1152: l_recoverable_interval_type_id <> l_Pay_interval_type_id and
1153: l_pay_interval_type_id = -1001 ) THEN
1154:
1155: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1156: THEN
1157: fnd_message.set_name('CN', 'CN_INVALID_PAY_INT_AND_REC_INT');
1158: fnd_msg_pub.add;
1159: END IF;
1154:
1155: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1156: THEN
1157: fnd_message.set_name('CN', 'CN_INVALID_PAY_INT_AND_REC_INT');
1158: fnd_msg_pub.add;
1159: END IF;
1160:
1161: x_status := 'CN_INV_PAY_INT_AND_REC';
1162: x_loading_status := 'CN_INV_PAY_INT_AND_REC';
1172: if ( l_recoverable_interval_type_id = -1001 and
1173: l_recoverable_interval_type_id <> l_Pay_interval_type_id and
1174: l_pay_interval_type_id = -1002 ) THEN
1175:
1176: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1177: THEN
1178: fnd_message.set_name('CN', 'CN_INVALID_PAY_INT_AND_REC_INT');
1179: fnd_msg_pub.add;
1180: END IF;
1175:
1176: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1177: THEN
1178: fnd_message.set_name('CN', 'CN_INVALID_PAY_INT_AND_REC_INT');
1179: fnd_msg_pub.add;
1180: END IF;
1181:
1182: x_status := 'CN_INV_PAY_INT_AND_REC';
1183: x_loading_status := 'CCN_INV_PAY_INT_AND_REC';
1190: IF l_recoverable_interval_type_id IN ( -1001, -1002 ) AND
1191: l_recoverable_interval_type_id <> l_Pay_interval_type_id and
1192: nvl(p_pmtplan_rec.pay_against_commission,'Y') <> 'N' THEN
1193: --Error condition
1194: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1195: THEN
1196: fnd_message.set_name('CN', 'CN_INVALID_REC_AND_PAC');
1197: fnd_msg_pub.add;
1198: END IF;
1193: --Error condition
1194: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1195: THEN
1196: fnd_message.set_name('CN', 'CN_INVALID_REC_AND_PAC');
1197: fnd_msg_pub.add;
1198: END IF;
1199:
1200: x_loading_status := 'CN_INVALID_REC_AND_PAC';
1201: RAISE FND_API.G_EXC_ERROR;
1255:
1256: --
1257: -- Standard call to get message count and if count is 1, get message info.
1258: --
1259: FND_MSG_PUB.Count_And_Get
1260: (
1261: p_count => x_msg_count ,
1262: p_data => x_msg_data ,
1263: p_encoded => FND_API.G_FALSE
1265: EXCEPTION
1266: WHEN FND_API.G_EXC_ERROR THEN
1267: ROLLBACK TO Update_PmtPlan;
1268: x_return_status := FND_API.G_RET_STS_ERROR ;
1269: FND_MSG_PUB.Count_And_Get
1270: (
1271: p_count => x_msg_count ,
1272: p_data => x_msg_data ,
1273: p_encoded => FND_API.G_FALSE
1276: ROLLBACK TO Update_PmtPlan;
1277:
1278: x_loading_status := 'UNEXPECTED_ERR';
1279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1280: FND_MSG_PUB.Count_And_Get
1281: (
1282: p_count => x_msg_count ,
1283: p_data => x_msg_data ,
1284: p_encoded => FND_API.G_FALSE
1286: WHEN OTHERS THEN
1287: ROLLBACK TO Update_PmtPlan;
1288: x_loading_status := 'UNEXPECTED_ERR';
1289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1290: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1291: THEN
1292: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
1293: END IF;
1294: FND_MSG_PUB.Count_And_Get
1288: x_loading_status := 'UNEXPECTED_ERR';
1289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1290: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1291: THEN
1292: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
1293: END IF;
1294: FND_MSG_PUB.Count_And_Get
1295: (
1296: p_count => x_msg_count ,
1290: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1291: THEN
1292: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
1293: END IF;
1294: FND_MSG_PUB.Count_And_Get
1295: (
1296: p_count => x_msg_count ,
1297: p_data => x_msg_data ,
1298: p_encoded => FND_API.G_FALSE
1351: --
1352: -- Initialize message list if p_init_msg_list is set to TRUE.
1353: --
1354: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1355: FND_MSG_PUB.initialize;
1356: END IF;
1357: --
1358: -- Initialize API return status to success
1359: --
1386:
1387: ELSIF x_status <> 'PMT PLAN EXISTS'
1388: THEN
1389:
1390: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1391: THEN
1392: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_PMT_PLAN');
1393: fnd_message.set_token('PMT_PLAN_NAME', p_PmtPlan_rec.name);
1394: FND_MSG_PUB.Add;
1390: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1391: THEN
1392: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_PMT_PLAN');
1393: fnd_message.set_token('PMT_PLAN_NAME', p_PmtPlan_rec.name);
1394: FND_MSG_PUB.Add;
1395: END IF;
1396:
1397: x_loading_status := 'CN_INVALID_PMT_PLAN';
1398: RAISE FND_API.G_EXC_ERROR ;
1405: FROM cn_srp_pmt_plans
1406: WHERE pmt_plan_id = l_pmt_plan_id;
1407: IF l_count <> 0
1408: THEN
1409: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1410: THEN
1411: fnd_message.set_name('CN', 'CN_DELETE_NA');
1412: fnd_msg_pub.add;
1413: END IF;
1408: THEN
1409: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1410: THEN
1411: fnd_message.set_name('CN', 'CN_DELETE_NA');
1412: fnd_msg_pub.add;
1413: END IF;
1414:
1415: x_loading_status := 'CN_DELETE_NA';
1416: RAISE FND_API.G_EXC_ERROR;
1422: FROM cn_role_pmt_plans
1423: WHERE pmt_plan_id = l_pmt_plan_id;
1424: IF l_count <> 0
1425: THEN
1426: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1427: THEN
1428: fnd_message.set_name('CN', 'CN_DELETE_NA');
1429: fnd_msg_pub.add;
1430: END IF;
1425: THEN
1426: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1427: THEN
1428: fnd_message.set_name('CN', 'CN_DELETE_NA');
1429: fnd_msg_pub.add;
1430: END IF;
1431: x_loading_status := 'CN_DELETE_NA';
1432: RAISE FND_API.G_EXC_ERROR;
1433: END IF;
1486:
1487: --
1488: -- Standard call to get message count and if count is 1, get message info.
1489: --
1490: FND_MSG_PUB.Count_And_Get
1491: (
1492: p_count => x_msg_count ,
1493: p_data => x_msg_data ,
1494: p_encoded => FND_API.G_FALSE
1496: EXCEPTION
1497: WHEN FND_API.G_EXC_ERROR THEN
1498: ROLLBACK TO Delete_PmtPlan;
1499: x_return_status := FND_API.G_RET_STS_ERROR ;
1500: FND_MSG_PUB.Count_And_Get
1501: (
1502: p_count => x_msg_count ,
1503: p_data => x_msg_data ,
1504: p_encoded => FND_API.G_FALSE
1506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1507: ROLLBACK TO Delete_PmtPlan;
1508: x_loading_status := 'UNEXPECTED_ERR';
1509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1510: FND_MSG_PUB.Count_And_Get
1511: (
1512: p_count => x_msg_count ,
1513: p_data => x_msg_data ,
1514: p_encoded => FND_API.G_FALSE
1516: WHEN OTHERS THEN
1517: ROLLBACK TO Delete_PmtPlan;
1518: x_loading_status := 'UNEXPECTED_ERR';
1519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1520: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1521: THEN
1522: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
1523: END IF;
1524: FND_MSG_PUB.Count_And_Get
1518: x_loading_status := 'UNEXPECTED_ERR';
1519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1520: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1521: THEN
1522: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
1523: END IF;
1524: FND_MSG_PUB.Count_And_Get
1525: (
1526: p_count => x_msg_count ,
1520: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1521: THEN
1522: FND_MSG_PUB.Add_Exc_Msg( L_PKG_NAME ,l_api_name );
1523: END IF;
1524: FND_MSG_PUB.Count_And_Get
1525: (
1526: p_count => x_msg_count ,
1527: p_data => x_msg_data ,
1528: p_encoded => FND_API.G_FALSE