224: END IF;
225:
226: -- Initialize message list if p_init_msg_list is set to TRUE.
227: IF FND_API.to_Boolean( p_init_msg_list ) THEN
228: FND_MSG_PUB.initialize;
229: END IF;
230:
231: -- Debug Message
232: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
228: FND_MSG_PUB.initialize;
229: END IF;
230:
231: -- Debug Message
232: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
233: THEN
234: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
235: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
236: FND_MSG_PUB.Add;
232: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
233: THEN
234: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
235: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
236: FND_MSG_PUB.Add;
237: END IF;
238:
239: -- Initialize API return status to success
240: x_return_status := FND_API.G_RET_STS_SUCCESS;
240: x_return_status := FND_API.G_RET_STS_SUCCESS;
241: --
242: --Check whether the Usage records are specified
243: If (p_Terr_Usgs_Tbl.COUNT = 0 ) Then
244: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
245: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_USAGE');
246: FND_MSG_PUB.ADD;
247: END IF;
248: x_return_status := FND_API.G_RET_STS_ERROR;
242: --Check whether the Usage records are specified
243: If (p_Terr_Usgs_Tbl.COUNT = 0 ) Then
244: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
245: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_USAGE');
246: FND_MSG_PUB.ADD;
247: END IF;
248: x_return_status := FND_API.G_RET_STS_ERROR;
249: raise FND_API.G_EXC_ERROR;
250: END IF;
253: --
254: -- Check whether the Terr Transaction Types are specified.
255: If (p_Terr_QualTypeUsgs_Tbl.COUNT = 0 and
256: p_Terr_All_Rec.ESCALATION_TERRITORY_FLAG <> 'Y') Then
257: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
258: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_QUAL_USG');
259: FND_MSG_PUB.ADD;
260: END IF;
261: x_return_status := FND_API.G_RET_STS_ERROR;
255: If (p_Terr_QualTypeUsgs_Tbl.COUNT = 0 and
256: p_Terr_All_Rec.ESCALATION_TERRITORY_FLAG <> 'Y') Then
257: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
258: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_QUAL_USG');
259: FND_MSG_PUB.ADD;
260: END IF;
261: x_return_status := FND_API.G_RET_STS_ERROR;
262: raise FND_API.G_EXC_ERROR;
263: END IF;
300: --dbms_output.put_line('Value of x_return_status='|| x_return_status);
301:
302: --Check whether the Qualifer records are specified
303: --If (p_Terr_Qual_Tbl.count = 0 ) Then
304: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
305: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_QUAL');
306: -- FND_MSG_PUB.ADD;
307: -- END IF;
308: -- x_return_status := FND_API.G_RET_STS_ERROR;
302: --Check whether the Qualifer records are specified
303: --If (p_Terr_Qual_Tbl.count = 0 ) Then
304: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
305: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_QUAL');
306: -- FND_MSG_PUB.ADD;
307: -- END IF;
308: -- x_return_status := FND_API.G_RET_STS_ERROR;
309: -- raise FND_API.G_EXC_ERROR;
310: --END IF;
315: --
316: -- JDOCHERT 07/27 Territory Values no longer required
317: --dbms_output('About to check p_Terr_Values_Tbl.count - ' || to_char(p_Terr_Values_Tbl.count));
318: --If (p_Terr_Values_Tbl.Count = 0 ) Then
319: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
320: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_VALUES');
321: -- FND_MSG_PUB.ADD;
322: -- END IF;
323: -- x_return_status := FND_API.G_RET_STS_ERROR;
317: --dbms_output('About to check p_Terr_Values_Tbl.count - ' || to_char(p_Terr_Values_Tbl.count));
318: --If (p_Terr_Values_Tbl.Count = 0 ) Then
319: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
320: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_VALUES');
321: -- FND_MSG_PUB.ADD;
322: -- END IF;
323: -- x_return_status := FND_API.G_RET_STS_ERROR;
324: -- raise FND_API.G_EXC_ERROR;
325: -- END IF;
381: -- JDOCHERT 07/27 Territory Values no longer required
382: --If l_Index = 0 Then
383: -- x_return_status := FND_API.G_RET_STS_ERROR;
384: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_VALUES');
385: -- FND_MSG_PUB.ADD;
386: -- raise FND_API.G_EXC_ERROR;
387: --End If;
388: --
389:
438: --If the program reached here, that mena evry thing went smooth
439: x_return_status := FND_API.G_RET_STS_SUCCESS;
440:
441: -- Debug Message
442: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
443: THEN
444: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
445: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
446: FND_MSG_PUB.Add;
442: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
443: THEN
444: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
445: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
446: FND_MSG_PUB.Add;
447: END IF;
448:
449:
450: FND_MSG_PUB.Count_And_Get
446: FND_MSG_PUB.Add;
447: END IF;
448:
449:
450: FND_MSG_PUB.Count_And_Get
451: ( p_count => x_msg_count,
452: p_data => x_msg_data
453: );
454:
463: WHEN FND_API.G_EXC_ERROR THEN
464: --dbms_output('Create_Territory PVT: FND_API.G_EXC_ERROR');
465: ROLLBACK TO CREATE_TERRITORY_PVT;
466: x_return_status := FND_API.G_RET_STS_ERROR ;
467: FND_MSG_PUB.Count_And_Get
468: ( p_count => x_msg_count,
469: p_data => x_msg_data
470: );
471:
472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
473: --dbms_output('Create_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
474: ROLLBACK TO CREATE_TERRITORY_PVT;
475: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
476: FND_MSG_PUB.Count_And_Get
477: ( p_count => x_msg_count,
478: p_data => x_msg_data
479: );
480:
481: WHEN OTHERS THEN
482: --dbms_output('Create_Territory PVT: OTHERS - ' || SQLERRM);
483: ROLLBACK TO CREATE_TERRITORY_PVT;
484: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
485: FND_MSG_PUB.Count_And_Get
486: ( p_count => x_msg_count,
487: p_data => x_msg_data
488: );
489: --
572: END IF;
573:
574: -- Initialize message list if p_init_msg_list is set to TRUE.
575: IF FND_API.to_Boolean( p_init_msg_list ) THEN
576: FND_MSG_PUB.initialize;
577: END IF;
578:
579: -- Debug Message
580: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
576: FND_MSG_PUB.initialize;
577: END IF;
578:
579: -- Debug Message
580: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
581: THEN
582: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
583: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
584: FND_MSG_PUB.Add;
580: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
581: THEN
582: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
583: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
584: FND_MSG_PUB.Add;
585: END IF;
586:
587: -- Initialize API return status to success
588: x_return_status := FND_API.G_RET_STS_SUCCESS;
616: --
617: END LOOP;
618:
619: -- Debug Message
620: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
621: THEN
622: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
623: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
624: FND_MSG_PUB.Add;
620: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
621: THEN
622: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
623: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
624: FND_MSG_PUB.Add;
625: END IF;
626:
627:
628: FND_MSG_PUB.Count_And_Get
624: FND_MSG_PUB.Add;
625: END IF;
626:
627:
628: FND_MSG_PUB.Count_And_Get
629: ( p_count => x_msg_count,
630: p_data => x_msg_data
631: );
632:
644: --dbms_output('Delete_Territory PVT: FND_API.G_EXC_ERROR');
645: --
646: ROLLBACK TO DELETE_TERRITORY_PVT;
647: x_return_status := FND_API.G_RET_STS_ERROR ;
648: FND_MSG_PUB.Count_And_Get
649: ( p_count => x_msg_count,
650: p_data => x_msg_data
651: );
652:
653: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
654: --dbms_output('Delete_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
655: ROLLBACK TO DELETE_TERRITORY_PVT;
656: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
657: FND_MSG_PUB.Count_And_Get
658: ( p_count => x_msg_count,
659: p_data => x_msg_data
660: );
661:
662: WHEN OTHERS THEN
663: --dbms_output('Delete_Territory PVT: OTHERS - ' || SQLERRM);
664: ROLLBACK TO DELETE_TERRITORY_PVT;
665: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
666: FND_MSG_PUB.Count_And_Get
667: ( p_count => x_msg_count,
668: p_data => x_msg_data
669: );
670: --
752: END IF;
753:
754: -- Initialize message list if p_init_msg_list is set to TRUE.
755: IF FND_API.to_Boolean( p_init_msg_list ) THEN
756: FND_MSG_PUB.initialize;
757: END IF;
758:
759: -- Debug Message
760: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
756: FND_MSG_PUB.initialize;
757: END IF;
758:
759: -- Debug Message
760: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
761: THEN
762: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
763: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
764: FND_MSG_PUB.Add;
760: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
761: THEN
762: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
763: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
764: FND_MSG_PUB.Add;
765: END IF;
766:
767: -- Initialize API return status to success
768: x_return_status := FND_API.G_RET_STS_SUCCESS;
864: End If;
865: --
866:
867: -- Debug Message
868: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
869: THEN
870: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
871: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
872: FND_MSG_PUB.Add;
868: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
869: THEN
870: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
871: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
872: FND_MSG_PUB.Add;
873: END IF;
874:
875:
876: FND_MSG_PUB.Count_And_Get
872: FND_MSG_PUB.Add;
873: END IF;
874:
875:
876: FND_MSG_PUB.Count_And_Get
877: ( p_count => x_msg_count,
878: p_data => x_msg_data
879: );
880:
892: WHEN FND_API.G_EXC_ERROR THEN
893: --dbms_output('Update_Territory PVT: FND_API.G_EXC_ERROR');
894: ROLLBACK TO UPDATE_TERRITORY_PVT;
895: x_return_status := FND_API.G_RET_STS_ERROR ;
896: FND_MSG_PUB.Count_And_Get
897: ( p_count => x_msg_count,
898: p_data => x_msg_data
899: );
900:
901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
902: --dbms_output('Update_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
903: ROLLBACK TO UPDATE_TERRITORY_PVT;
904: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
905: FND_MSG_PUB.Count_And_Get
906: ( p_count => x_msg_count,
907: p_data => x_msg_data
908: );
909:
910: WHEN OTHERS THEN
911: --dbms_output('Update_Territory PVT: OTHERS - ' || SQLERRM);
912: ROLLBACK TO UPDATE_TERRITORY_PVT;
913: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
914: FND_MSG_PUB.Count_And_Get
915: ( p_count => x_msg_count,
916: p_data => x_msg_data
917: );
918: --
1040: END IF;
1041:
1042: -- Initialize message list if p_init_msg_list is set to TRUE.
1043: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1044: FND_MSG_PUB.initialize;
1045: END IF;
1046:
1047: -- Debug Message
1048: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1044: FND_MSG_PUB.initialize;
1045: END IF;
1046:
1047: -- Debug Message
1048: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1049: THEN
1050: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
1051: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
1052: FND_MSG_PUB.Add;
1048: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1049: THEN
1050: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
1051: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
1052: FND_MSG_PUB.Add;
1053: END IF;
1054:
1055: -- Initialize API return status to success
1056: x_return_status := FND_API.G_RET_STS_SUCCESS;
1111: l_ref_terr_all_rec.NUM_WINNERS,
1112: l_ref_terr_all_rec.NUM_QUAL;
1113:
1114: If ( C_GetTerritory%NOTFOUND) Then
1115: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1116: THEN
1117: FND_MESSAGE.Set_Name('JTF', 'API_MISSING_UPDATE_TARGET');
1118: FND_MESSAGE.Set_Token('INFO', 'TERRITORY', FALSE);
1119: FND_MSG_PUB.Add;
1115: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1116: THEN
1117: FND_MESSAGE.Set_Name('JTF', 'API_MISSING_UPDATE_TARGET');
1118: FND_MESSAGE.Set_Token('INFO', 'TERRITORY', FALSE);
1119: FND_MSG_PUB.Add;
1120: END IF;
1121: raise FND_API.G_EXC_ERROR;
1122: End if;
1123: CLOSE C_GetTerritory;
1173:
1174: X_return_status := FND_API.G_RET_STS_SUCCESS;
1175:
1176: -- Debug Message
1177: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1178: THEN
1179: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
1180: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
1181: FND_MSG_PUB.Add;
1177: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1178: THEN
1179: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
1180: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
1181: FND_MSG_PUB.Add;
1182: END IF;
1183:
1184:
1185: FND_MSG_PUB.Count_And_Get
1181: FND_MSG_PUB.Add;
1182: END IF;
1183:
1184:
1185: FND_MSG_PUB.Count_And_Get
1186: ( p_count => x_msg_count,
1187: p_data => x_msg_data
1188: );
1189:
1198: WHEN FND_API.G_EXC_ERROR THEN
1199: --dbms_output('Deactivate_Territory PVT: FND_API.G_EXC_ERROR');
1200: ROLLBACK TO DEACTIVATE_TERRITORY_PVT;
1201: x_return_status := FND_API.G_RET_STS_ERROR ;
1202: FND_MSG_PUB.Count_And_Get
1203: ( p_count => x_msg_count,
1204: p_data => x_msg_data
1205: );
1206:
1207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1208: --dbms_output('Deactivate_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
1209: ROLLBACK TO DEACTIVATE_TERRITORY_PVT;
1210: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1211: FND_MSG_PUB.Count_And_Get
1212: ( p_count => x_msg_count,
1213: p_data => x_msg_data
1214: );
1215:
1216: WHEN OTHERS THEN
1217: --dbms_output('Deactivate_Territory PVT: OTHERS - ' || SQLERRM);
1218: ROLLBACK TO DEACTIVATE_TERRITORY_PVT;
1219: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1220: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1221: THEN
1222: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,
1223: 'Others exception inside Deactivate_Territory'
1224: || sqlerrm);
1218: ROLLBACK TO DEACTIVATE_TERRITORY_PVT;
1219: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1220: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1221: THEN
1222: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,
1223: 'Others exception inside Deactivate_Territory'
1224: || sqlerrm);
1225: END IF;
1226: END Deactivate_Territory;
1296: BEGIN
1297: --dbms_output('Create_Territory_Header PVT: Entering API');
1298:
1299: -- Debug Message
1300: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1301: THEN
1302: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
1303: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
1304: FND_MSG_PUB.Add;
1300: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1301: THEN
1302: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
1303: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
1304: FND_MSG_PUB.Add;
1305: END IF;
1306: -- Initialize API return status to success
1307: x_return_status := FND_API.G_RET_STS_SUCCESS;
1308:
1404: RAISE FND_API.G_EXC_ERROR;
1405: END IF;
1406: --
1407: -- Debug Message
1408: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1409: THEN
1410: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
1411: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
1412: FND_MSG_PUB.Add;
1408: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1409: THEN
1410: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
1411: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
1412: FND_MSG_PUB.Add;
1413: END IF;
1414:
1415: --dbms_output('Create_Territory_Header PVT: Exiting API');
1416: EXCEPTION
1416: EXCEPTION
1417: WHEN FND_API.G_EXC_ERROR THEN
1418: --dbms_output('Create_Territory_Header PVT: FND_API.G_EXC_ERROR');
1419: x_return_status := FND_API.G_RET_STS_ERROR ;
1420: FND_MSG_PUB.Count_And_Get
1421: ( P_count => x_msg_count,
1422: P_data => x_msg_data
1423: );
1424:
1424:
1425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1426: --dbms_output('Create_Territory_Header PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
1427: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1428: FND_MSG_PUB.Count_And_Get
1429: ( p_count => x_msg_count,
1430: p_data => x_msg_data
1431: );
1432:
1432:
1433: WHEN OTHERS THEN
1434: --dbms_output('Create_Territory_Header PVT: OTHERS - ' || SQLERRM);
1435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1436: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1437: THEN
1438: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,
1439: 'Others exception inside Create_Territory_Header'
1440: || sqlerrm);
1434: --dbms_output('Create_Territory_Header PVT: OTHERS - ' || SQLERRM);
1435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1436: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1437: THEN
1438: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,
1439: 'Others exception inside Create_Territory_Header'
1440: || sqlerrm);
1441: END IF;
1442: END Create_Territory_Header;
1502:
1503: -- Initialize message list if p_init_msg_list is set to TRUE.
1504: IF FND_API.to_Boolean( p_init_msg_list )
1505: THEN
1506: FND_MSG_PUB.initialize;
1507: END IF;
1508:
1509: -- Debug Message
1510: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1506: FND_MSG_PUB.initialize;
1507: END IF;
1508:
1509: -- Debug Message
1510: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1511: THEN
1512: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
1513: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
1514: FND_MSG_PUB.Add;
1510: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1511: THEN
1512: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
1513: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
1514: FND_MSG_PUB.Add;
1515: END IF;
1516:
1517: -- Initialize API return status to success
1518: x_return_status := FND_API.G_RET_STS_SUCCESS;
1519:
1520: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE)
1521: THEN
1522: -- Debug message
1523: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1524: THEN
1525: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
1526: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Territory_Record');
1527: FND_MSG_PUB.Add;
1523: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1524: THEN
1525: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
1526: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Territory_Record');
1527: FND_MSG_PUB.Add;
1528: END IF;
1529: --
1530: -- Invoke validation procedures
1531: Validate_Territory_Record(p_init_msg_list => FND_API.G_FALSE,
1606: X_Terr_Id := l_terr_id;
1607: X_Terr_All_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
1608:
1609: -- Debug Message
1610: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1611: THEN
1612: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
1613: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
1614: FND_MSG_PUB.Add;
1610: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1611: THEN
1612: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
1613: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
1614: FND_MSG_PUB.Add;
1615: END IF;
1616:
1617: -- Standard check for p_commit
1618: IF FND_API.to_Boolean( p_commit )
1621: END IF;
1622:
1623:
1624: -- Standard call to get message count and if count is 1, get message info.
1625: FND_MSG_PUB.Count_And_Get
1626: ( p_count => x_msg_count,
1627: p_data => x_msg_data
1628: );
1629:
1633: WHEN FND_API.G_EXC_ERROR THEN
1634: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_ERROR');
1635: ROLLBACK TO CREATE_TERR_REC_PVT;
1636: x_return_status := FND_API.G_RET_STS_ERROR ;
1637: FND_MSG_PUB.Count_And_Get
1638: ( p_count => x_msg_count,
1639: p_data => x_msg_data
1640: );
1641:
1642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1643: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
1644: ROLLBACK TO CREATE_TERR_REC_PVT;
1645: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1646: FND_MSG_PUB.Count_And_Get
1647: ( p_count => x_msg_count,
1648: p_data => x_msg_data
1649: );
1650:
1653: --dbms_output('Create_Territory_Record PVT: OTHERS - ' || SQLERRM);
1654: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1655: X_Terr_All_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1656: ROLLBACK TO CREATE_TERR_REC_PVT;
1657: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1658: THEN
1659: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Territory_Record');
1660: END IF;
1661: END Create_Territory_Record;
1655: X_Terr_All_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1656: ROLLBACK TO CREATE_TERR_REC_PVT;
1657: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1658: THEN
1659: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Territory_Record');
1660: END IF;
1661: END Create_Territory_Record;
1662: --
1663: --
1725:
1726: -- Initialize message list if p_init_msg_list is set to TRUE.
1727: IF FND_API.to_Boolean( p_init_msg_list )
1728: THEN
1729: FND_MSG_PUB.initialize;
1730: END IF;
1731:
1732: -- Debug Message
1733: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1729: FND_MSG_PUB.initialize;
1730: END IF;
1731:
1732: -- Debug Message
1733: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1734: THEN
1735: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
1736: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
1737: FND_MSG_PUB.Add;
1733: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1734: THEN
1735: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
1736: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
1737: FND_MSG_PUB.Add;
1738: END IF;
1739:
1740: -- Initialize API return status to success
1741: x_return_status := FND_API.G_RET_STS_SUCCESS;
1741: x_return_status := FND_API.G_RET_STS_SUCCESS;
1742:
1743: --
1744: If (p_Terr_Usgs_Tbl.count = 0 ) Then
1745: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1746: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_USAGE');
1747: FND_MSG_PUB.ADD;
1748: END IF;
1749: x_return_status := FND_API.G_RET_STS_ERROR;
1743: --
1744: If (p_Terr_Usgs_Tbl.count = 0 ) Then
1745: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1746: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_USAGE');
1747: FND_MSG_PUB.ADD;
1748: END IF;
1749: x_return_status := FND_API.G_RET_STS_ERROR;
1750: RAISE FND_API.G_EXC_ERROR;
1751: END IF;
1762:
1763: IF ( P_validation_level <> FND_API.G_VALID_LEVEL_NONE) THEN
1764:
1765: -- Debug message
1766: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1767: THEN
1768: FND_MESSAGE.Set_Name('JTF', 'Create_Terr_Rec PVT: Valid');
1769: FND_MSG_PUB.Add;
1770: END IF;
1765: -- Debug message
1766: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1767: THEN
1768: FND_MESSAGE.Set_Name('JTF', 'Create_Terr_Rec PVT: Valid');
1769: FND_MSG_PUB.Add;
1770: END IF;
1771: --
1772: -- Invoke validation procedures
1773: Validate_Territory_Usage(p_init_msg_list => FND_API.G_FALSE,
1828: ROLLBACK TO CREATE_TERR_USG_PVT;
1829: x_return_status := FND_API.G_RET_STS_ERROR ;
1830: X_Terr_Usgs_Out_Tbl(l_Counter).terr_usg_id := NULL;
1831: X_Terr_Usgs_Out_Tbl(l_Counter).return_status := X_return_status;
1832: FND_MSG_PUB.Count_And_Get
1833: ( p_count => x_msg_count,
1834: p_data => x_msg_data
1835: );
1836:
1839: ROLLBACK TO CREATE_TERR_USG_PVT;
1840: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1841: X_Terr_Usgs_Out_Tbl(l_Counter).terr_usg_id := NULL;
1842: X_Terr_Usgs_Out_Tbl(l_Counter).return_status := X_return_status;
1843: FND_MSG_PUB.Count_And_Get
1844: ( p_count => x_msg_count,
1845: p_data => x_msg_data
1846: );
1847:
1849: --dbms_output('Create_Territory_Usages PVT: OTHERS - ' || SQLERRM);
1850: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1851: X_Terr_Usgs_Out_Tbl(l_Counter).terr_usg_id := NULL;
1852: X_Terr_Usgs_Out_Tbl(l_Counter).return_status := X_return_status;
1853: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1854: THEN
1855: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Territory_Usages');
1856: END IF;
1857: END;
1851: X_Terr_Usgs_Out_Tbl(l_Counter).terr_usg_id := NULL;
1852: X_Terr_Usgs_Out_Tbl(l_Counter).return_status := X_return_status;
1853: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1854: THEN
1855: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Territory_Usages');
1856: END IF;
1857: END;
1858: --
1859: END LOOP;
1872: X_return_status := FND_API.G_RET_STS_ERROR;
1873: END IF;
1874: END LOOP;
1875: --
1876: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1877: THEN
1878: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
1879: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
1880: FND_MSG_PUB.Add;
1876: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1877: THEN
1878: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
1879: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
1880: FND_MSG_PUB.Add;
1881: END IF;
1882: --
1883: -- Standard check for p_commit
1884: IF FND_API.to_Boolean( p_commit )
1886: COMMIT WORK;
1887: END IF;
1888:
1889: -- Standard call to get message count and if count is 1, get message info.
1890: FND_MSG_PUB.Count_And_Get
1891: ( p_count => x_msg_count,
1892: p_data => x_msg_data
1893: );
1894: --
1958:
1959: -- Initialize message list if p_init_msg_list is set to TRUE.
1960: IF FND_API.to_Boolean( p_init_msg_list )
1961: THEN
1962: FND_MSG_PUB.initialize;
1963: END IF;
1964:
1965: -- Debug Message
1966: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1962: FND_MSG_PUB.initialize;
1963: END IF;
1964:
1965: -- Debug Message
1966: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1967: THEN
1968: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
1969: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
1970: FND_MSG_PUB.Add;
1966: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1967: THEN
1968: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
1969: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
1970: FND_MSG_PUB.Add;
1971: END IF;
1972:
1973: -- Initialize API return status to success
1974: x_return_status := FND_API.G_RET_STS_SUCCESS;
1976:
1977: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1978:
1979: -- Debug message
1980: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1981: THEN
1982: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
1983: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Qtype_Usage');
1984: FND_MSG_PUB.Add;
1980: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1981: THEN
1982: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
1983: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Qtype_Usage');
1984: FND_MSG_PUB.Add;
1985: END IF;
1986:
1987: -- Invoke validation procedures
1988: Validate_Terr_Qtype_Usage(p_init_msg_list => FND_API.G_FALSE,
2039: -- If successful then save the success status for the record
2040: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
2041: X_Terr_QualTypeUsgs_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
2042:
2043: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2044: THEN
2045: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
2046: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2047: FND_MSG_PUB.Add;
2043: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2044: THEN
2045: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
2046: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2047: FND_MSG_PUB.Add;
2048: END IF;
2049:
2050: -- Standard check for p_commit
2051: IF FND_API.to_Boolean( p_commit )
2053: COMMIT WORK;
2054: END IF;
2055:
2056: -- Standard call to get message count and if count is 1, get message info.
2057: FND_MSG_PUB.Count_And_Get
2058: ( p_count => x_msg_count,
2059: p_data => x_msg_data
2060: );
2061:
2067: ROLLBACK TO CREATE_TERR_QTYPE_USG_PVT;
2068: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2069: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := NULL;
2070: X_Terr_QualTypeUsgs_Out_Rec.return_status := x_return_status;
2071: FND_MSG_PUB.Count_And_Get
2072: ( p_count => x_msg_count,
2073: p_data => x_msg_data
2074: );
2075:
2078: ROLLBACK TO CREATE_TERR_QTYPE_USG_PVT;
2079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2080: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := NULL;
2081: X_Terr_QualTypeUsgs_Out_Rec.return_status := x_return_status;
2082: FND_MSG_PUB.Count_And_Get
2083: ( p_count => x_msg_count,
2084: p_data => x_msg_data
2085: );
2086:
2089: ROLLBACK TO CREATE_TERR_QTYPE_USG_PVT;
2090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2091: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := NULL;
2092: X_Terr_QualTypeUsgs_Out_Rec.return_status := x_return_status;
2093: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2094: THEN
2095: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Terr_QualType_Usage(REC)');
2096: END IF;
2097: --
2091: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := NULL;
2092: X_Terr_QualTypeUsgs_Out_Rec.return_status := x_return_status;
2093: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2094: THEN
2095: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Terr_QualType_Usage(REC)');
2096: END IF;
2097: --
2098: End Create_Terr_QualType_Usage;
2099: --
2164:
2165: -- Initialize message list if p_init_msg_list is set to TRUE.
2166: IF FND_API.to_Boolean( p_init_msg_list )
2167: THEN
2168: FND_MSG_PUB.initialize;
2169: END IF;
2170:
2171: -- Debug Message
2172: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2168: FND_MSG_PUB.initialize;
2169: END IF;
2170:
2171: -- Debug Message
2172: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2173: THEN
2174: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
2175: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2176: FND_MSG_PUB.Add;
2172: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2173: THEN
2174: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
2175: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2176: FND_MSG_PUB.Add;
2177: END IF;
2178:
2179: -- Initialize API return status to success
2180: x_return_status := FND_API.G_RET_STS_SUCCESS;
2229: X_return_status := FND_API.G_RET_STS_ERROR;
2230: END IF;
2231: END LOOP;
2232:
2233: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2234: THEN
2235: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
2236: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2237: FND_MSG_PUB.Add;
2233: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2234: THEN
2235: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
2236: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2237: FND_MSG_PUB.Add;
2238: END IF;
2239:
2240: -- Standard check for p_commit
2241: IF FND_API.to_Boolean( p_commit )
2243: COMMIT WORK;
2244: END IF;
2245:
2246: -- Standard call to get message count and if count is 1, get message info.
2247: FND_MSG_PUB.Count_And_Get
2248: ( p_count => x_msg_count,
2249: p_data => x_msg_data
2250: );
2251:
2343:
2344: -- Initialize message list if p_init_msg_list is set to TRUE.
2345: IF FND_API.to_Boolean( p_init_msg_list )
2346: THEN
2347: FND_MSG_PUB.initialize;
2348: END IF;
2349:
2350: -- Debug Message
2351: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2347: FND_MSG_PUB.initialize;
2348: END IF;
2349:
2350: -- Debug Message
2351: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2352: THEN
2353: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
2354: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2355: FND_MSG_PUB.Add;
2351: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2352: THEN
2353: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
2354: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2355: FND_MSG_PUB.Add;
2356: END IF;
2357:
2358: -- Initialize API return status to success
2359: x_return_status := FND_API.G_RET_STS_SUCCESS;
2361: -- Check the validation level
2362: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2363:
2364: -- Debug message
2365: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2366: THEN
2367: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
2368: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Qualifier');
2369: FND_MSG_PUB.Add;
2365: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2366: THEN
2367: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
2368: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Qualifier');
2369: FND_MSG_PUB.Add;
2370: END IF;
2371: --
2372: -- Invoke validation procedures
2373: Validate_Qualifier(p_init_msg_list => FND_API.G_FALSE,
2422: --update_terr_num_qual(p_terr_id, -1002);
2423: --
2424:
2425: --
2426: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2427: THEN
2428: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
2429: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2430: FND_MSG_PUB.Add;
2426: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2427: THEN
2428: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
2429: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2430: FND_MSG_PUB.Add;
2431: END IF;
2432:
2433: -- Standard check for p_commit
2434: IF FND_API.to_Boolean( p_commit )
2436: COMMIT WORK;
2437: END IF;
2438:
2439: -- Standard call to get message count and if count is 1, get message info.
2440: FND_MSG_PUB.Count_And_Get
2441: ( p_count => x_msg_count,
2442: p_data => x_msg_data
2443: );
2444:
2450: ROLLBACK TO CREATE_TERR_QUAL_PVT;
2451: x_return_status := FND_API.G_RET_STS_ERROR ;
2452: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := NULL;
2453: X_Terr_Qual_Out_Rec.return_status := x_return_status;
2454: FND_MSG_PUB.Count_And_Get
2455: ( p_count => x_msg_count,
2456: p_data => x_msg_data
2457: );
2458:
2461: ROLLBACK TO CREATE_TERR_QUAL_PVT;
2462: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2463: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := NULL;
2464: X_Terr_Qual_Out_Rec.return_status := x_return_status;
2465: FND_MSG_PUB.Count_And_Get
2466: ( p_count => x_msg_count,
2467: p_data => x_msg_data
2468: );
2469:
2474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2475: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := NULL;
2476: X_Terr_Qual_Out_Rec.return_status := x_return_status;
2477: --
2478: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2479: THEN
2480: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Terr_Qualifier');
2481: END IF;
2482: --
2476: X_Terr_Qual_Out_Rec.return_status := x_return_status;
2477: --
2478: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2479: THEN
2480: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Terr_Qualifier');
2481: END IF;
2482: --
2483: End Create_Terr_Qualifier;
2484: --
2552:
2553: -- Initialize message list if p_init_msg_list is set to TRUE.
2554: IF FND_API.to_Boolean( p_init_msg_list )
2555: THEN
2556: FND_MSG_PUB.initialize;
2557: END IF;
2558:
2559: -- Debug Message
2560: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2556: FND_MSG_PUB.initialize;
2557: END IF;
2558:
2559: -- Debug Message
2560: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2561: THEN
2562: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
2563: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2564: FND_MSG_PUB.Add;
2560: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2561: THEN
2562: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
2563: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2564: FND_MSG_PUB.Add;
2565: END IF;
2566:
2567: -- Initialize API return status to success
2568: x_return_status := FND_API.G_RET_STS_SUCCESS;
2617: X_return_status := FND_API.G_RET_STS_ERROR;
2618: END IF;
2619: END LOOP;
2620: --
2621: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2622: THEN
2623: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
2624: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2625: FND_MSG_PUB.Add;
2621: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2622: THEN
2623: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
2624: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2625: FND_MSG_PUB.Add;
2626: END IF;
2627:
2628: -- Standard check for p_commit
2629: IF FND_API.to_Boolean( p_commit )
2631: COMMIT WORK;
2632: END IF;
2633:
2634: -- Standard call to get message count and if count is 1, get message info.
2635: FND_MSG_PUB.Count_And_Get
2636: ( p_count => x_msg_count,
2637: p_data => x_msg_data
2638: );
2639:
2705:
2706: -- Initialize message list if p_init_msg_list is set to TRUE.
2707: IF FND_API.to_Boolean( p_init_msg_list )
2708: THEN
2709: FND_MSG_PUB.initialize;
2710: END IF;
2711:
2712: -- Debug Message
2713: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2709: FND_MSG_PUB.initialize;
2710: END IF;
2711:
2712: -- Debug Message
2713: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2714: THEN
2715: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
2716: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2717: FND_MSG_PUB.Add;
2713: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2714: THEN
2715: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
2716: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2717: FND_MSG_PUB.Add;
2718: END IF;
2719:
2720: -- Initialize API return status to success
2721: x_return_status := FND_API.G_RET_STS_SUCCESS;
2722:
2723: -- Check the validation level
2724: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2725: -- Debug message
2726: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2727: THEN
2728: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
2729: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_terr_Value_Rec');
2730: FND_MSG_PUB.Add;
2726: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2727: THEN
2728: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
2729: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_terr_Value_Rec');
2730: FND_MSG_PUB.Add;
2731: END IF;
2732:
2733: -- Invoke validation procedures
2734: Validate_Terr_Value_Rec(p_init_msg_list => FND_API.G_FALSE,
2789: -- If successful then save the success status for the record
2790: X_Terr_Value_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
2791:
2792: --
2793: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2794: THEN
2795: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
2796: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2797: FND_MSG_PUB.Add;
2793: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2794: THEN
2795: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
2796: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2797: FND_MSG_PUB.Add;
2798: END IF;
2799:
2800: -- Standard check for p_commit
2801: IF FND_API.to_Boolean( p_commit )
2803: COMMIT WORK;
2804: END IF;
2805:
2806: -- Standard call to get message count and if count is 1, get message info.
2807: FND_MSG_PUB.Count_And_Get
2808: ( p_count => x_msg_count,
2809: p_data => x_msg_data
2810: );
2811:
2816: ROLLBACK TO CREATE_TERR_VALUE_PVT;
2817: x_return_status := FND_API.G_RET_STS_ERROR ;
2818: X_Terr_Value_Out_Rec.TERR_VALUE_ID := NULL;
2819: X_Terr_Value_Out_Rec.return_status := x_return_status;
2820: FND_MSG_PUB.Count_And_Get
2821: ( p_count => x_msg_count,
2822: p_data => x_msg_data
2823: );
2824:
2828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2829: X_Terr_Value_Out_Rec.TERR_VALUE_ID := NULL;
2830: X_Terr_Value_Out_Rec.return_status := x_return_status;
2831:
2832: FND_MSG_PUB.Count_And_Get
2833: ( p_count => x_msg_count,
2834: p_data => x_msg_data
2835: );
2836:
2840: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2841: X_Terr_Value_Out_Rec.TERR_VALUE_ID := NULL;
2842: X_Terr_Value_Out_Rec.return_status := x_return_status;
2843: --
2844: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2845: THEN
2846: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Terr_Value');
2847: END IF;
2848: --
2842: X_Terr_Value_Out_Rec.return_status := x_return_status;
2843: --
2844: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2845: THEN
2846: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Terr_Value');
2847: END IF;
2848: --
2849: End Create_Terr_Value;
2850:
2921:
2922: -- Initialize message list if p_init_msg_list is set to TRUE.
2923: IF FND_API.to_Boolean( p_init_msg_list )
2924: THEN
2925: FND_MSG_PUB.initialize;
2926: END IF;
2927:
2928: -- Debug Message
2929: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2925: FND_MSG_PUB.initialize;
2926: END IF;
2927:
2928: -- Debug Message
2929: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2930: THEN
2931: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
2932: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2933: FND_MSG_PUB.Add;
2929: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2930: THEN
2931: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
2932: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2933: FND_MSG_PUB.Add;
2934: END IF;
2935:
2936: -- Initialize API return status to success
2937: x_return_status := FND_API.G_RET_STS_SUCCESS;
2989: END LOOP;
2990: --
2991: --
2992: -- Debug Message
2993: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2994: THEN
2995: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
2996: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2997: FND_MSG_PUB.Add;
2993: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2994: THEN
2995: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
2996: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2997: FND_MSG_PUB.Add;
2998: END IF;
2999:
3000: --
3001: -- Standard check for p_commit
3004: COMMIT WORK;
3005: END IF;
3006:
3007: -- Standard call to get message count and if count is 1, get message info.
3008: FND_MSG_PUB.Count_And_Get
3009: ( p_count => x_msg_count,
3010: p_data => x_msg_data
3011: );
3012:
3110: BEGIN
3111: --dbms_output('Create_Terr_Value TBL: Entering API');
3112:
3113: -- Debug Message
3114: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3115: THEN
3116: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
3117: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3118: FND_MSG_PUB.Add;
3114: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3115: THEN
3116: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
3117: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3118: FND_MSG_PUB.Add;
3119: END IF;
3120:
3121: -- Initialize API return status to SUCCESS
3122: x_return_status := FND_API.G_RET_STS_SUCCESS;
3123:
3124: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE)
3125: THEN
3126: -- Debug message
3127: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3128: THEN
3129: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
3130: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Territory_Record');
3131: FND_MSG_PUB.Add;
3127: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3128: THEN
3129: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
3130: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Territory_Record');
3131: FND_MSG_PUB.Add;
3132: END IF;
3133: --
3134: -- Invoke validation procedures
3135: Validate_Territory_Record(p_init_msg_list => FND_API.G_FALSE,
3196: l_ref_terr_all_rec.NUM_QUAL;
3197:
3198: If ( C_GetTerritory%NOTFOUND) Then
3199: --dbms_output('Update_territory_Record: NO-RCORDS-FOUND');
3200: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3201: THEN
3202: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
3203: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_QTYPE_USGS');
3204: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(p_terr_all_rec.terr_id));
3201: THEN
3202: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
3203: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_QTYPE_USGS');
3204: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(p_terr_all_rec.terr_id));
3205: FND_MSG_PUB.Add;
3206: END IF;
3207: raise FND_API.G_EXC_ERROR;
3208: End if;
3209: CLOSE C_GetTerritory;
3260: X_Terr_All_Out_Rec.Terr_id := P_Terr_All_Rec.Terr_Id;
3261: X_Terr_All_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
3262:
3263: -- Debug Message
3264: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3265: THEN
3266: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
3267: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3268: FND_MSG_PUB.Add;
3264: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3265: THEN
3266: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
3267: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3268: FND_MSG_PUB.Add;
3269: END IF;
3270:
3271: --dbms_output('Update_territory_Record PVT: Exiting API');
3272: EXCEPTION
3272: EXCEPTION
3273: WHEN FND_API.G_EXC_ERROR THEN
3274: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
3275: x_return_status := FND_API.G_RET_STS_ERROR ;
3276: FND_MSG_PUB.Count_And_Get
3277: ( P_count => x_msg_count,
3278: P_data => x_msg_data
3279: );
3280:
3283: --dbms_output('Update_territory_Record PVT: OTHERS - ' || SQLERRM);
3284: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3285: X_Terr_All_Out_Rec.Terr_id := P_Terr_All_Rec.Terr_Id;
3286: X_Terr_All_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3287: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3288: THEN
3289: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Update error inside Update_Territory_Record');
3290: END IF;
3291: --
3285: X_Terr_All_Out_Rec.Terr_id := P_Terr_All_Rec.Terr_Id;
3286: X_Terr_All_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3287: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3288: THEN
3289: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Update error inside Update_Territory_Record');
3290: END IF;
3291: --
3292: End Update_territory_Record;
3293: --
3347: l_return_status VARCHAR2(1);
3348: l_ref_terr_Usg_rec Terr_Usgs_Rec_Type;
3349: BEGIN
3350: -- Debug Message
3351: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3352: THEN
3353: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
3354: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3355: FND_MSG_PUB.Add;
3351: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3352: THEN
3353: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
3354: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3355: FND_MSG_PUB.Add;
3356: END IF;
3357:
3358: -- Initialize API return status to SUCCESS
3359: x_return_status := FND_API.G_RET_STS_SUCCESS;
3360:
3361: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
3362: THEN
3363: -- Debug message
3364: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3365: THEN
3366: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
3367: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Territory_Usage');
3368: FND_MSG_PUB.Add;
3364: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3365: THEN
3366: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
3367: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Territory_Usage');
3368: FND_MSG_PUB.Add;
3369: END IF;
3370: --
3371: -- Invoke validation procedures
3372: Validate_Territory_Usage(p_init_msg_list => FND_API.G_FALSE,
3398: l_ref_terr_Usg_rec.SOURCE_ID;
3399:
3400: If ( C_GetTerritoryUsage%NOTFOUND) Then
3401: --dbms_output('Update_Territory_Usages PVT: NO-RCORDS-FOUND');
3402: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3403: THEN
3404: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
3405: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_QTYPE_USGS');
3406: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_Terr_Usgs_Rec.terr_usg_id));
3403: THEN
3404: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
3405: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_QTYPE_USGS');
3406: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_Terr_Usgs_Rec.terr_usg_id));
3407: FND_MSG_PUB.Add;
3408: END IF;
3409: raise FND_API.G_EXC_ERROR;
3410: End if;
3411: CLOSE C_GetTerritoryUsage;
3426: X_Terr_Usgs_Out_Rec.TERR_USG_ID := P_Terr_Usgs_Rec.Terr_Usg_Id;
3427: X_Terr_Usgs_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
3428:
3429: -- Debug Message
3430: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3431: THEN
3432: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
3433: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3434: FND_MSG_PUB.Add;
3430: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3431: THEN
3432: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
3433: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3434: FND_MSG_PUB.Add;
3435: END IF;
3436:
3437: --dbms_output('Update_Territory_Usages PVT: Exiting API');
3438: EXCEPTION
3438: EXCEPTION
3439: WHEN FND_API.G_EXC_ERROR THEN
3440: --dbms_output('Update_Territory_Usages: FND_API.G_EXC_ERROR');
3441: x_return_status := FND_API.G_RET_STS_ERROR ;
3442: FND_MSG_PUB.Count_And_Get
3443: ( P_count => x_msg_count,
3444: P_data => x_msg_data
3445: );
3446:
3449: --dbms_output('Update_Territory_Usages PVT: OTHERS - ' || SQLERRM);
3450: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3451: X_Terr_Usgs_Out_Rec.Terr_Usg_Id := P_Terr_Usgs_Rec.Terr_Usg_Id;
3452: X_Terr_Usgs_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3453: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3454: THEN
3455: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Update error inside Update_Territory_Usages');
3456: END IF;
3457: --
3451: X_Terr_Usgs_Out_Rec.Terr_Usg_Id := P_Terr_Usgs_Rec.Terr_Usg_Id;
3452: X_Terr_Usgs_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3453: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3454: THEN
3455: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Update error inside Update_Territory_Usages');
3456: END IF;
3457: --
3458: End Update_Territory_Usages;
3459: --
3504: BEGIN
3505: --dbms_output('Update_Territory_Usages TBL: Entering API');
3506:
3507: -- Debug Message
3508: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3509: THEN
3510: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
3511: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3512: FND_MSG_PUB.Add;
3508: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3509: THEN
3510: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
3511: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3512: FND_MSG_PUB.Add;
3513: END IF;
3514:
3515: -- Initialize API return status to success
3516: x_return_status := FND_API.G_RET_STS_SUCCESS;
3564: END IF;
3565: END LOOP;
3566:
3567: -- Debug Message
3568: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3569: THEN
3570: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
3571: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3572: FND_MSG_PUB.Add;
3568: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3569: THEN
3570: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
3571: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3572: FND_MSG_PUB.Add;
3573: END IF;
3574: --dbms_output('Update_Territory_Usages TBL: Exiting API');
3575: --
3576: END Update_Territory_Usages;
3631: BEGIN
3632: --dbms_output('Update_Terr_QualType_Usage REC: Entering API');
3633:
3634: -- Debug Message
3635: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3636: THEN
3637: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
3638: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3639: FND_MSG_PUB.Add;
3635: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3636: THEN
3637: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
3638: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3639: FND_MSG_PUB.Add;
3640: END IF;
3641:
3642: -- Initialize API return status to SUCCESS
3643: x_return_status := FND_API.G_RET_STS_SUCCESS;
3644:
3645: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
3646: THEN
3647: -- Debug message
3648: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3649: THEN
3650: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
3651: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Qtype_Usage');
3652: FND_MSG_PUB.Add;
3648: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3649: THEN
3650: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
3651: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Qtype_Usage');
3652: FND_MSG_PUB.Add;
3653: END IF;
3654: -- Invoke validation procedures
3655: Validate_Terr_Qtype_Usage(p_init_msg_list => FND_API.G_FALSE,
3656: x_Return_Status => x_return_status,
3677: l_ref_Terr_QualTypeUsgs_Rec.TERR_ID,
3678: l_ref_Terr_QualTypeUsgs_Rec.QUAL_TYPE_USG_ID;
3679: If (C_GetTerrQualTypeUsgs%NOTFOUND) Then
3680: --dbms_output('Update_Terr_QualType_Usage REC: NO-RCORDS-FOUND');
3681: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3682: THEN
3683: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
3684: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_QTYPE_USGS');
3685: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_Terr_QualTypeUsgs_Rec.TERR_QUAL_TYPE_USG_ID));
3682: THEN
3683: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
3684: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_QTYPE_USGS');
3685: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_Terr_QualTypeUsgs_Rec.TERR_QUAL_TYPE_USG_ID));
3686: FND_MSG_PUB.Add;
3687: END IF;
3688: raise FND_API.G_EXC_ERROR;
3689: End if;
3690: CLOSE C_GetTerrQualTypeUsgs;
3703: --
3704: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := P_Terr_QualTypeUsgs_Rec.TERR_QUAL_TYPE_USG_ID;
3705: X_Terr_QualTypeUsgs_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
3706:
3707: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3708: THEN
3709: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
3710: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3711: FND_MSG_PUB.Add;
3707: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3708: THEN
3709: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
3710: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3711: FND_MSG_PUB.Add;
3712: END IF;
3713:
3714: --dbms_output('Update_Terr_QualType_Usage REC: Exiting API');
3715: EXCEPTION
3715: EXCEPTION
3716: WHEN FND_API.G_EXC_ERROR THEN
3717: --dbms_output('Update_Terr_QualType_Usage: FND_API.G_EXC_ERROR');
3718: x_return_status := FND_API.G_RET_STS_ERROR ;
3719: FND_MSG_PUB.Count_And_Get
3720: ( P_count => x_msg_count,
3721: P_data => x_msg_data
3722: );
3723:
3725: --dbms_output('Update_Terr_QualType_Usage REC: OTHERS - ' || SQLERRM);
3726: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3727: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := P_Terr_QualTypeUsgs_Rec.TERR_QUAL_TYPE_USG_ID;
3728: X_Terr_QualTypeUsgs_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3729: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3730: THEN
3731: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Error: Inside Update_Terr_QualType_Usage');
3732: END IF;
3733: --
3727: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := P_Terr_QualTypeUsgs_Rec.TERR_QUAL_TYPE_USG_ID;
3728: X_Terr_QualTypeUsgs_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3729: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3730: THEN
3731: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Error: Inside Update_Terr_QualType_Usage');
3732: END IF;
3733: --
3734: End Update_Terr_QualType_Usage;
3735: --
3780: BEGIN
3781: --dbms_output('Update_Terr_QualType_Usage TBL: Entering API');
3782:
3783: -- Debug Message
3784: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3785: THEN
3786: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
3787: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3788: FND_MSG_PUB.Add;
3784: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3785: THEN
3786: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
3787: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3788: FND_MSG_PUB.Add;
3789: END IF;
3790:
3791: -- Initialize API return status to success
3792: x_return_status := FND_API.G_RET_STS_SUCCESS;
3838: END IF;
3839: END LOOP;
3840:
3841: -- Debug Message
3842: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3843: THEN
3844: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
3845: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3846: FND_MSG_PUB.Add;
3842: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3843: THEN
3844: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
3845: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3846: FND_MSG_PUB.Add;
3847: END IF;
3848:
3849: --dbms_output('Update_Terr_QualType_Usage TBL: Exiting API');
3850: --
3908: BEGIN
3909: --dbms_output('Update_Terr_Qualifier REC: Entering API');
3910:
3911: -- Debug Message
3912: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3913: THEN
3914: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
3915: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3916: FND_MSG_PUB.Add;
3912: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3913: THEN
3914: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
3915: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3916: FND_MSG_PUB.Add;
3917: END IF;
3918:
3919: -- Initialize API return status to SUCCESS
3920: x_return_status := FND_API.G_RET_STS_SUCCESS;
3921:
3922: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
3923: THEN
3924: -- Debug message
3925: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3926: THEN
3927: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
3928: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Qualifier');
3929: FND_MSG_PUB.Add;
3925: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3926: THEN
3927: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
3928: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Qualifier');
3929: FND_MSG_PUB.Add;
3930: END IF;
3931: --
3932: -- Invoke validation procedures
3933: Validate_Qualifier(p_init_msg_list => FND_API.G_FALSE,
3960: l_ref_Terr_Qual_Rec.GENERATE_FLAG,
3961: l_ref_Terr_Qual_Rec.OVERLAP_ALLOWED_FLAG;
3962: If ( C_GetTerrQualifier%NOTFOUND) Then
3963: --dbms_output('Update_Terr_Qualifier REC: NO-RCORDS-FOUND');
3964: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3965: THEN
3966: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
3967: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_QUAL');
3968: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_Terr_Qual_Rec.terr_qual_id));
3965: THEN
3966: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
3967: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_QUAL');
3968: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_Terr_Qual_Rec.terr_qual_id));
3969: FND_MSG_PUB.Add;
3970: END IF;
3971: raise FND_API.G_EXC_ERROR;
3972: End if;
3973: CLOSE C_GetTerrQualifier;
3992: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := P_Terr_Qual_Rec.TERR_QUAL_ID;
3993: X_Terr_Qual_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
3994:
3995: -- Debug Message
3996: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3997: THEN
3998: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
3999: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4000: FND_MSG_PUB.Add;
3996: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3997: THEN
3998: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
3999: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4000: FND_MSG_PUB.Add;
4001: END IF;
4002:
4003: --dbms_output('Update_Terr_Qualifier REC: Exiting API');
4004: EXCEPTION
4004: EXCEPTION
4005: WHEN FND_API.G_EXC_ERROR THEN
4006: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
4007: x_return_status := FND_API.G_RET_STS_ERROR ;
4008: FND_MSG_PUB.Count_And_Get
4009: ( P_count => x_msg_count,
4010: P_data => x_msg_data
4011: );
4012:
4014: --dbms_output('Update_Terr_Qualifier REC: OTHERS - ' || SQLERRM);
4015: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4016: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := P_Terr_Qual_Rec.TERR_QUAL_ID;
4017: X_Terr_Qual_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4018: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4019: THEN
4020: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Update error inside Update_Terr_Qualifier');
4021: END IF;
4022: End Update_Terr_Qualifier;
4016: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := P_Terr_Qual_Rec.TERR_QUAL_ID;
4017: X_Terr_Qual_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4018: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4019: THEN
4020: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Update error inside Update_Terr_Qualifier');
4021: END IF;
4022: End Update_Terr_Qualifier;
4023: --
4024: --
4066: BEGIN
4067: --dbms_output('Update_Terr_Qualifier TBL: Entering API');
4068:
4069: -- Debug Message
4070: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4071: THEN
4072: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
4073: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4074: FND_MSG_PUB.Add;
4070: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4071: THEN
4072: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
4073: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4074: FND_MSG_PUB.Add;
4075: END IF;
4076:
4077: -- Initialize API return status to success
4078: x_return_status := FND_API.G_RET_STS_SUCCESS;
4121: END IF;
4122: END LOOP;
4123:
4124: -- Debug Message
4125: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4126: THEN
4127: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
4128: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4129: FND_MSG_PUB.Add;
4125: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4126: THEN
4127: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
4128: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4129: FND_MSG_PUB.Add;
4130: END IF;
4131: --dbms_output('Update_Terr_Qualifier TBL: Exiting API');
4132: --
4133: END Update_Terr_Qualifier;
4203: BEGIN
4204: --dbms_output('Update_Terr_Value REC: Entering API');
4205:
4206: -- Debug Message
4207: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4208: THEN
4209: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
4210: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4211: FND_MSG_PUB.Add;
4207: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4208: THEN
4209: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
4210: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4211: FND_MSG_PUB.Add;
4212: END IF;
4213:
4214: -- Initialize API return status to SUCCESS
4215: x_return_status := FND_API.G_RET_STS_SUCCESS;
4217: -- Check the validation level
4218: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
4219: THEN
4220: -- Debug message
4221: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4222: THEN
4223: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
4224: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_terr_Value_Rec');
4225: FND_MSG_PUB.Add;
4221: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4222: THEN
4223: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
4224: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_terr_Value_Rec');
4225: FND_MSG_PUB.Add;
4226: END IF;
4227:
4228: -- Invoke validation procedures
4229: Validate_Terr_Value_Rec(p_init_msg_list => FND_API.G_FALSE,
4268: --
4269: If ( C_GetTerritoryValue%NOTFOUND) Then
4270: --
4271: --dbms_output('Update_Terr_Value REC: NO-RCORDS-FOUND');
4272: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4273: THEN
4274: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
4275: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_VALUES');
4276: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_Terr_Value_Rec.TERR_VALUE_ID));
4273: THEN
4274: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
4275: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_VALUES');
4276: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_Terr_Value_Rec.TERR_VALUE_ID));
4277: FND_MSG_PUB.Add;
4278: END IF;
4279: raise FND_API.G_EXC_ERROR;
4280:
4281: End if;
4316: X_Terr_Value_Out_Rec.TERR_VALUE_ID := P_Terr_Value_Rec.TERR_VALUE_ID;
4317: X_Terr_Value_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
4318:
4319: -- Debug Message
4320: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4321: THEN
4322: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
4323: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4324: FND_MSG_PUB.Add;
4320: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4321: THEN
4322: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
4323: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4324: FND_MSG_PUB.Add;
4325: END IF;
4326:
4327: --dbms_output('Update_Terr_Value REC: Exiting API');
4328: EXCEPTION
4328: EXCEPTION
4329: WHEN FND_API.G_EXC_ERROR THEN
4330: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
4331: x_return_status := FND_API.G_RET_STS_ERROR ;
4332: FND_MSG_PUB.Count_And_Get
4333: ( P_count => x_msg_count,
4334: P_data => x_msg_data
4335: );
4336:
4338: --dbms_output('Update_Terr_Value REC: OTHERS - ' || SQLERRM);
4339: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4340: X_Terr_Value_Out_Rec.TERR_VALUE_ID := P_Terr_Value_Rec.TERR_VALUE_ID;
4341: X_Terr_Value_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4342: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4343: THEN
4344: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Update error inside Update_Terr_Value');
4345: END IF;
4346: End Update_Terr_Value;
4340: X_Terr_Value_Out_Rec.TERR_VALUE_ID := P_Terr_Value_Rec.TERR_VALUE_ID;
4341: X_Terr_Value_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4342: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4343: THEN
4344: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Update error inside Update_Terr_Value');
4345: END IF;
4346: End Update_Terr_Value;
4347:
4348: --
4395: BEGIN
4396: --dbms_output('Update_Terr_Value TBL: Entering API');
4397:
4398: -- Debug Message
4399: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4400: THEN
4401: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
4402: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4403: FND_MSG_PUB.Add;
4399: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4400: THEN
4401: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
4402: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4403: FND_MSG_PUB.Add;
4404: END IF;
4405:
4406: -- Initialize API return status to success
4407: x_return_status := FND_API.G_RET_STS_SUCCESS;
4452: END IF;
4453: END LOOP;
4454:
4455: -- Debug Message
4456: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4457: THEN
4458: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
4459: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4460: FND_MSG_PUB.Add;
4456: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4457: THEN
4458: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
4459: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4460: FND_MSG_PUB.Add;
4461: END IF;
4462:
4463:
4464: --dbms_output('Update_Terr_Value TBL: Exiting API');
4518: END IF;
4519: -- Initialize message list if p_init_msg_list is set to TRUE.
4520: IF FND_API.to_Boolean( p_init_msg_list )
4521: THEN
4522: FND_MSG_PUB.initialize;
4523: END IF;
4524:
4525: -- Debug Message
4526: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4522: FND_MSG_PUB.initialize;
4523: END IF;
4524:
4525: -- Debug Message
4526: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4527: THEN
4528: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
4529: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4530: FND_MSG_PUB.Add;
4526: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4527: THEN
4528: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
4529: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4530: FND_MSG_PUB.Add;
4531: END IF;
4532:
4533: --Initialize the return status to success
4534: x_return_status := FND_API.G_RET_STS_SUCCESS;
4547: END IF;
4548: --prepare the message
4549: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
4550: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR');
4551: FND_MSG_PUB.ADD;
4552:
4553: -- Debug Message
4554: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4555: THEN
4550: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR');
4551: FND_MSG_PUB.ADD;
4552:
4553: -- Debug Message
4554: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4555: THEN
4556: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
4557: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4558: FND_MSG_PUB.Add;
4554: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4555: THEN
4556: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
4557: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4558: FND_MSG_PUB.Add;
4559: END IF;
4560:
4561:
4562: FND_MSG_PUB.Count_And_Get
4558: FND_MSG_PUB.Add;
4559: END IF;
4560:
4561:
4562: FND_MSG_PUB.Count_And_Get
4563: ( p_count => x_msg_count,
4564: p_data => x_msg_data
4565: );
4566:
4577: l_row_count := 0;
4578: --Prepare message token
4579: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
4580: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR');
4581: FND_MSG_PUB.ADD;
4582: --
4583: FND_MSG_PUB.Count_And_Get
4584: ( p_count => x_msg_count,
4585: p_data => x_msg_data
4579: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
4580: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR');
4581: FND_MSG_PUB.ADD;
4582: --
4583: FND_MSG_PUB.Count_And_Get
4584: ( p_count => x_msg_count,
4585: p_data => x_msg_data
4586: );
4587:
4588: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4589: --dbms_output('Delete_territory_Record: FND_API.G_EXC_UNEXPECTED_ERROR');
4590: ROLLBACK TO Delete_territory_Record_Pvt;
4591: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4592: FND_MSG_PUB.Count_And_Get
4593: ( p_count => x_msg_count,
4594: p_data => x_msg_data
4595: );
4596:
4596:
4597: WHEN OTHERS THEN
4598: --dbms_output('Delete_territory_Record: OTHERS - ' || SQLERRM);
4599: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4600: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4601: THEN
4602: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_territory_Record');
4603: END IF;
4604: --
4598: --dbms_output('Delete_territory_Record: OTHERS - ' || SQLERRM);
4599: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4600: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4601: THEN
4602: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_territory_Record');
4603: END IF;
4604: --
4605: END Delete_territory_Record;
4606: --
4654: END IF;
4655: -- Initialize message list if p_init_msg_list is set to TRUE.
4656: IF FND_API.to_Boolean( p_init_msg_list )
4657: THEN
4658: FND_MSG_PUB.initialize;
4659: END IF;
4660:
4661: -- Debug Message
4662: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4658: FND_MSG_PUB.initialize;
4659: END IF;
4660:
4661: -- Debug Message
4662: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4663: THEN
4664: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
4665: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4666: FND_MSG_PUB.Add;
4662: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4663: THEN
4664: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
4665: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4666: FND_MSG_PUB.Add;
4667: END IF;
4668:
4669: --Initialize the return status to success
4670: x_return_status := FND_API.G_RET_STS_SUCCESS;
4682: END IF;
4683: --Prepare message token
4684: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
4685: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_USGS');
4686: FND_MSG_PUB.ADD;
4687:
4688: -- Debug Message
4689: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4690: THEN
4685: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_USGS');
4686: FND_MSG_PUB.ADD;
4687:
4688: -- Debug Message
4689: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4690: THEN
4691: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
4692: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4693: FND_MSG_PUB.Add;
4689: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4690: THEN
4691: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
4692: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4693: FND_MSG_PUB.Add;
4694: END IF;
4695:
4696:
4697: FND_MSG_PUB.Count_And_Get
4693: FND_MSG_PUB.Add;
4694: END IF;
4695:
4696:
4697: FND_MSG_PUB.Count_And_Get
4698: ( p_count => x_msg_count,
4699: p_data => x_msg_data
4700: );
4701:
4712: l_row_count := 0;
4713: --Prepare message token
4714: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
4715: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_USGS');
4716: FND_MSG_PUB.ADD;
4717: --
4718: FND_MSG_PUB.Count_And_Get
4719: ( p_count => x_msg_count,
4720: p_data => x_msg_data
4714: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
4715: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_USGS');
4716: FND_MSG_PUB.ADD;
4717: --
4718: FND_MSG_PUB.Count_And_Get
4719: ( p_count => x_msg_count,
4720: p_data => x_msg_data
4721: );
4722:
4723: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4724: --dbms_output('Delete_Territory_Usages: FND_API.G_EXC_UNEXPECTED_ERROR');
4725: ROLLBACK TO Delete_Territory_Usages_Pvt;
4726: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4727: FND_MSG_PUB.Count_And_Get
4728: ( p_count => x_msg_count,
4729: p_data => x_msg_data
4730: );
4731:
4731:
4732: WHEN OTHERS THEN
4733: --dbms_output('Delete_Territory_Usages: OTHERS - ' || SQLERRM);
4734: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4735: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4736: THEN
4737: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Territory_Usages');
4738: END IF;
4739: END Delete_Territory_Usages;
4733: --dbms_output('Delete_Territory_Usages: OTHERS - ' || SQLERRM);
4734: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4735: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4736: THEN
4737: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Territory_Usages');
4738: END IF;
4739: END Delete_Territory_Usages;
4740: --
4741: -- *******************************************************
4789: END IF;
4790: -- Initialize message list if p_init_msg_list is set to TRUE.
4791: IF FND_API.to_Boolean( p_init_msg_list )
4792: THEN
4793: FND_MSG_PUB.initialize;
4794: END IF;
4795:
4796: -- Debug Message
4797: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4793: FND_MSG_PUB.initialize;
4794: END IF;
4795:
4796: -- Debug Message
4797: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4798: THEN
4799: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
4800: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4801: FND_MSG_PUB.Add;
4797: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4798: THEN
4799: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
4800: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4801: FND_MSG_PUB.Add;
4802: END IF;
4803:
4804: --Initialize the return status to success
4805: x_return_status := FND_API.G_RET_STS_SUCCESS;
4820:
4821: --Prepare message token
4822: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
4823: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_QTYPE_USGS');
4824: FND_MSG_PUB.ADD;
4825:
4826: -- Debug Message
4827: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4828: THEN
4823: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_QTYPE_USGS');
4824: FND_MSG_PUB.ADD;
4825:
4826: -- Debug Message
4827: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4828: THEN
4829: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
4830: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4831: FND_MSG_PUB.Add;
4827: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4828: THEN
4829: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
4830: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4831: FND_MSG_PUB.Add;
4832: END IF;
4833:
4834:
4835: FND_MSG_PUB.Count_And_Get
4831: FND_MSG_PUB.Add;
4832: END IF;
4833:
4834:
4835: FND_MSG_PUB.Count_And_Get
4836: ( p_count => x_msg_count,
4837: p_data => x_msg_data
4838: );
4839:
4852:
4853: --Prepare message token
4854: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
4855: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_QTYPE_USGS');
4856: FND_MSG_PUB.ADD;
4857: --
4858: FND_MSG_PUB.Count_And_Get
4859: ( p_count => x_msg_count,
4860: p_data => x_msg_data
4854: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
4855: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_QTYPE_USGS');
4856: FND_MSG_PUB.ADD;
4857: --
4858: FND_MSG_PUB.Count_And_Get
4859: ( p_count => x_msg_count,
4860: p_data => x_msg_data
4861: );
4862:
4863: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4864: --dbms_output('Delete_Terr_QualType_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
4865: ROLLBACK TO Delete_Terr_QualType_Usage_Pvt;
4866: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4867: FND_MSG_PUB.Count_And_Get
4868: ( p_count => x_msg_count,
4869: p_data => x_msg_data
4870: );
4871:
4872: WHEN OTHERS THEN
4873: --dbms_output('Delete_Terr_QualType_Usage: OTHERS - ' || SQLERRM);
4874: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4875:
4876: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4877: THEN
4878: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Terr_QualType_Usage');
4879: END IF;
4880: END Delete_Terr_QualType_Usage;
4874: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4875:
4876: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4877: THEN
4878: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Terr_QualType_Usage');
4879: END IF;
4880: END Delete_Terr_QualType_Usage;
4881: --
4882: -- *******************************************************
4937: END IF;
4938: -- Initialize message list if p_init_msg_list is set to TRUE.
4939: IF FND_API.to_Boolean( p_init_msg_list )
4940: THEN
4941: FND_MSG_PUB.initialize;
4942: END IF;
4943:
4944: -- Debug Message
4945: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4941: FND_MSG_PUB.initialize;
4942: END IF;
4943:
4944: -- Debug Message
4945: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4946: THEN
4947: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
4948: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4949: FND_MSG_PUB.Add;
4945: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4946: THEN
4947: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
4948: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
4949: FND_MSG_PUB.Add;
4950: END IF;
4951:
4952: --Initialize the return status to success
4953: x_return_status := FND_API.G_RET_STS_SUCCESS;
4990:
4991: --Prepare message token
4992: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
4993: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_QUALIFIERS');
4994: FND_MSG_PUB.ADD();
4995:
4996: -- Debug Message
4997: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4998: THEN
4993: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_QUALIFIERS');
4994: FND_MSG_PUB.ADD();
4995:
4996: -- Debug Message
4997: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4998: THEN
4999: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
5000: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
5001: FND_MSG_PUB.Add;
4997: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4998: THEN
4999: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
5000: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
5001: FND_MSG_PUB.Add;
5002: END IF;
5003:
5004:
5005: FND_MSG_PUB.Count_And_Get
5001: FND_MSG_PUB.Add;
5002: END IF;
5003:
5004:
5005: FND_MSG_PUB.Count_And_Get
5006: ( p_count => x_msg_count,
5007: p_data => x_msg_data
5008: );
5009:
5022: --Prepare message token
5023: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
5024: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_QUALIFIERS');
5025: --Add message to API message list
5026: FND_MSG_PUB.ADD();
5027: --
5028: FND_MSG_PUB.Count_And_Get
5029: ( p_count => x_msg_count,
5030: p_data => x_msg_data
5024: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_QUALIFIERS');
5025: --Add message to API message list
5026: FND_MSG_PUB.ADD();
5027: --
5028: FND_MSG_PUB.Count_And_Get
5029: ( p_count => x_msg_count,
5030: p_data => x_msg_data
5031: );
5032:
5033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5034: --dbms_output('Delete_Terr_Qualifier: FND_API.G_EXC_UNEXPECTED_ERROR');
5035: ROLLBACK TO Delete_Terr_Qualifier_Pvt;
5036: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5037: FND_MSG_PUB.Count_And_Get
5038: ( p_count => x_msg_count,
5039: p_data => x_msg_data
5040: );
5041:
5041:
5042: WHEN OTHERS THEN
5043: --dbms_output('Delete_Terr_Qualifier: OTHERS - ' || SQLERRM);
5044: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5045: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
5046: THEN
5047: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Terr_Qualifier');
5048: END IF;
5049: END Delete_Terr_Qualifier;
5043: --dbms_output('Delete_Terr_Qualifier: OTHERS - ' || SQLERRM);
5044: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5045: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
5046: THEN
5047: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Terr_Qualifier');
5048: END IF;
5049: END Delete_Terr_Qualifier;
5050: --
5051: -- *******************************************************
5098: END IF;
5099: -- Initialize message list if p_init_msg_list is set to TRUE.
5100: IF FND_API.to_Boolean( p_init_msg_list )
5101: THEN
5102: FND_MSG_PUB.initialize;
5103: END IF;
5104:
5105: -- Debug Message
5106: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
5102: FND_MSG_PUB.initialize;
5103: END IF;
5104:
5105: -- Debug Message
5106: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
5107: THEN
5108: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
5109: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
5110: FND_MSG_PUB.Add;
5106: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
5107: THEN
5108: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
5109: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
5110: FND_MSG_PUB.Add;
5111: END IF;
5112:
5113: --Initialize the return status to success
5114: x_return_status := FND_API.G_RET_STS_SUCCESS;
5126: END IF;
5127: --Prepare message token
5128: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
5129: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_VALUES');
5130: FND_MSG_PUB.ADD();
5131:
5132: -- Debug Message
5133: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
5134: THEN
5129: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_VALUES');
5130: FND_MSG_PUB.ADD();
5131:
5132: -- Debug Message
5133: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
5134: THEN
5135: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
5136: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name );
5137: FND_MSG_PUB.Add;
5133: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
5134: THEN
5135: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
5136: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name );
5137: FND_MSG_PUB.Add;
5138: END IF;
5139:
5140:
5141: FND_MSG_PUB.Count_And_Get
5137: FND_MSG_PUB.Add;
5138: END IF;
5139:
5140:
5141: FND_MSG_PUB.Count_And_Get
5142: ( p_count => x_msg_count,
5143: p_data => x_msg_data
5144: );
5145:
5159: --Prepare message token
5160: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
5161: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_VALUES');
5162: --Add message to API message list
5163: FND_MSG_PUB.ADD();
5164: --
5165: FND_MSG_PUB.Count_And_Get
5166: ( p_count => x_msg_count,
5167: p_data => x_msg_data
5161: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_VALUES');
5162: --Add message to API message list
5163: FND_MSG_PUB.ADD();
5164: --
5165: FND_MSG_PUB.Count_And_Get
5166: ( p_count => x_msg_count,
5167: p_data => x_msg_data
5168: );
5169:
5170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5171: --dbms_output('Delete_Terr_Value: FND_API.G_EXC_UNEXPECTED_ERROR');
5172: ROLLBACK TO Delete_Terr_Value_Pvt;
5173: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5174: FND_MSG_PUB.Count_And_Get
5175: ( p_count => x_msg_count,
5176: p_data => x_msg_data
5177: );
5178:
5178:
5179: WHEN OTHERS THEN
5180: --dbms_output('Delete_Terr_Value: OTHERS - ' || SQLERRM);
5181: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5182: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
5183: THEN
5184: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Terr_Value');
5185: END IF;
5186: End Delete_Terr_Value;
5180: --dbms_output('Delete_Terr_Value: OTHERS - ' || SQLERRM);
5181: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5182: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
5183: THEN
5184: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Terr_Value');
5185: END IF;
5186: End Delete_Terr_Value;
5187: --
5188: -- This procedure will check whether the qualifiers passed are
5226: WHEN NO_DATA_FOUND THEN
5227: --dbms_output('Validate_Qualifier: NO_DATA_FOUND Exception');
5228: x_return_status := FND_API.G_RET_STS_ERROR ;
5229: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_DISABLED_TERR_QUAL');
5230: FND_MSG_PUB.ADD;
5231: FND_MSG_PUB.Count_And_Get
5232: ( P_count => x_msg_count,
5233: P_data => x_msg_data
5234: );
5227: --dbms_output('Validate_Qualifier: NO_DATA_FOUND Exception');
5228: x_return_status := FND_API.G_RET_STS_ERROR ;
5229: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_DISABLED_TERR_QUAL');
5230: FND_MSG_PUB.ADD;
5231: FND_MSG_PUB.Count_And_Get
5232: ( P_count => x_msg_count,
5233: P_data => x_msg_data
5234: );
5235: END;
5237: /* org_id is optional
5238: -- Check for ORG_ID - obsolete: org_id is optional
5239: IF (P_Terr_Qual_Rec.ORG_ID is NULL OR
5240: P_Terr_Qual_Rec.ORG_ID = FND_API.G_MISS_NUM ) THEN
5241: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5242: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5243: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
5244: FND_MSG_PUB.ADD;
5245: END IF;
5240: P_Terr_Qual_Rec.ORG_ID = FND_API.G_MISS_NUM ) THEN
5241: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5242: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5243: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
5244: FND_MSG_PUB.ADD;
5245: END IF;
5246: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5247: End If;
5248: */
5249:
5250: --Check created by
5251: IF ( P_Terr_Qual_Rec.CREATED_BY is NULL OR
5252: P_Terr_Qual_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
5253: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5254: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5255: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
5256: FND_MSG_PUB.ADD;
5257: END IF;
5252: P_Terr_Qual_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
5253: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5254: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5255: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
5256: FND_MSG_PUB.ADD;
5257: END IF;
5258: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5259: End If;
5260:
5260:
5261: --Check creation date
5262: If ( P_Terr_Qual_Rec.CREATION_DATE is NULL OR
5263: P_Terr_Qual_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
5264: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5265: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5266: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
5267: FND_MSG_PUB.ADD;
5268: END IF;
5263: P_Terr_Qual_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
5264: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5265: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5266: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
5267: FND_MSG_PUB.ADD;
5268: END IF;
5269: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5270: End If;
5271:
5271:
5272: -- Validate last updated by
5273: IF ( P_Terr_Qual_Rec.LAST_UPDATED_BY is NULL OR
5274: P_Terr_Qual_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
5275: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5276: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5277: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
5278: FND_MSG_PUB.ADD;
5279: END IF;
5274: P_Terr_Qual_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
5275: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5276: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5277: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
5278: FND_MSG_PUB.ADD;
5279: END IF;
5280: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5281: End If;
5282:
5282:
5283: -- Check last update date
5284: If ( P_Terr_Qual_Rec.LAST_UPDATE_DATE IS NULL OR
5285: P_Terr_Qual_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
5286: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5287: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5288: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
5289: FND_MSG_PUB.ADD;
5290: END IF;
5285: P_Terr_Qual_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
5286: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5287: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5288: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
5289: FND_MSG_PUB.ADD;
5290: END IF;
5291: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5292: End If;
5293:
5294: --
5295: --Check last update login
5296: --If ( P_Terr_Qual_Rec.LAST_UPDATE_LOGIN is NULL OR
5297: -- P_Terr_Qual_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
5298: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5299: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5300: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
5301: -- FND_MSG_PUB.ADD;
5302: -- END IF;
5297: -- P_Terr_Qual_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
5298: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5299: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5300: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
5301: -- FND_MSG_PUB.ADD;
5302: -- END IF;
5303: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
5304: --End If;
5305: --
5304: --End If;
5305: --
5306:
5307: --
5308: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
5309: p_data => x_msg_data);
5310:
5311: --dbms_output('Validate_Qualifier: Exiting API');
5312: EXCEPTION
5314: WHEN NO_DATA_FOUND THEN
5315: --dbms_output('Validate_Qualifier: NO_DATA_FOUND Exception');
5316: x_return_status := FND_API.G_RET_STS_ERROR ;
5317: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_DISABLED_TERR_QUAL');
5318: FND_MSG_PUB.ADD;
5319: FND_MSG_PUB.Count_And_Get
5320: ( P_count => x_msg_count,
5321: P_data => x_msg_data
5322: );
5315: --dbms_output('Validate_Qualifier: NO_DATA_FOUND Exception');
5316: x_return_status := FND_API.G_RET_STS_ERROR ;
5317: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_DISABLED_TERR_QUAL');
5318: FND_MSG_PUB.ADD;
5319: FND_MSG_PUB.Count_And_Get
5320: ( P_count => x_msg_count,
5321: P_data => x_msg_data
5322: );
5323:
5326: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5327: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
5328: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Qualifer' );
5329: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
5330: FND_MSG_PUB.ADD;
5331: FND_MSG_PUB.Count_And_Get
5332: ( P_count => x_msg_count,
5333: P_data => x_msg_data
5334: );
5327: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
5328: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Qualifer' );
5329: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
5330: FND_MSG_PUB.ADD;
5331: FND_MSG_PUB.Count_And_Get
5332: ( P_count => x_msg_count,
5333: P_data => x_msg_data
5334: );
5335: --
5357:
5358: -- Check whether the territory Name is specified
5359: --
5360: IF (p_Terr_All_Rec.NAME is NULL) OR (p_Terr_All_Rec.NAME = FND_API.G_MISS_CHAR) THEN
5361: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5362: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5363: FND_MESSAGE.Set_Token('COL_NAME', 'NAME' );
5364: FND_MSG_PUB.ADD;
5365: END IF;
5360: IF (p_Terr_All_Rec.NAME is NULL) OR (p_Terr_All_Rec.NAME = FND_API.G_MISS_CHAR) THEN
5361: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5362: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5363: FND_MESSAGE.Set_Token('COL_NAME', 'NAME' );
5364: FND_MSG_PUB.ADD;
5365: END IF;
5366: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5367: End If;
5368:
5369: -- Check whether application short name is specified
5370: --
5371: IF (p_Terr_All_Rec.APPLICATION_SHORT_NAME is NULL) OR
5372: (p_Terr_All_Rec.APPLICATION_SHORT_NAME = FND_API.G_MISS_CHAR) THEN
5373: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5374: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5375: FND_MESSAGE.Set_Token('COL_NAME', 'APPLICATION_SHORT_NAME' );
5376: FND_MSG_PUB.ADD;
5377: END IF;
5372: (p_Terr_All_Rec.APPLICATION_SHORT_NAME = FND_API.G_MISS_CHAR) THEN
5373: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5374: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5375: FND_MESSAGE.Set_Token('COL_NAME', 'APPLICATION_SHORT_NAME' );
5376: FND_MSG_PUB.ADD;
5377: END IF;
5378: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5379: End If;
5380:
5382: -- Obsolete: use date effectivity to determine
5383: -- whether territory is enabled
5384: IF (p_Terr_All_Rec.ENABLED_FLAG is NULL) OR
5385: (p_Terr_All_Rec.ENABLED_FLAG = FND_API.G_MISS_CHAR) THEN
5386: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5387: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5388: FND_MESSAGE.Set_Token('COL_NAME', 'ENABLED_FLAG' );
5389: FND_MSG_PUB.ADD;
5390: END IF;
5385: (p_Terr_All_Rec.ENABLED_FLAG = FND_API.G_MISS_CHAR) THEN
5386: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5387: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5388: FND_MESSAGE.Set_Token('COL_NAME', 'ENABLED_FLAG' );
5389: FND_MSG_PUB.ADD;
5390: END IF;
5391: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5392: End If;
5393: */
5394:
5395: /*-- Check for ORG_ID - obsolete org_id is optional
5396: IF (p_Terr_All_Rec.ORG_ID is NULL) OR
5397: (p_Terr_All_Rec.ORG_ID = FND_API.G_MISS_NUM) THEN
5398: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5399: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5400: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
5401: FND_MSG_PUB.ADD;
5402: END IF;
5397: (p_Terr_All_Rec.ORG_ID = FND_API.G_MISS_NUM) THEN
5398: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5399: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5400: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
5401: FND_MSG_PUB.ADD;
5402: END IF;
5403: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5404: End If;
5405: */
5405: */
5406:
5407: If (p_Terr_All_Rec.ESCALATION_TERRITORY_FLAG = 'Y' and
5408: p_Terr_All_Rec.TEMPLATE_FLAG = 'Y' ) Then
5409: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5410: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_OVERLAPPING_FLAG');
5411: FND_MSG_PUB.ADD;
5412: END IF;
5413: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5407: If (p_Terr_All_Rec.ESCALATION_TERRITORY_FLAG = 'Y' and
5408: p_Terr_All_Rec.TEMPLATE_FLAG = 'Y' ) Then
5409: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5410: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_OVERLAPPING_FLAG');
5411: FND_MSG_PUB.ADD;
5412: END IF;
5413: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5414: End If;
5415:
5415:
5416: --Check created by
5417: IF ( p_Terr_All_Rec.CREATED_BY is NULL OR
5418: p_Terr_All_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
5419: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5420: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5421: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
5422: FND_MSG_PUB.ADD;
5423: END IF;
5418: p_Terr_All_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
5419: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5420: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5421: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
5422: FND_MSG_PUB.ADD;
5423: END IF;
5424: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5425: End If;
5426:
5426:
5427: --Check creation date
5428: If ( p_Terr_All_Rec.CREATION_DATE is NULL OR
5429: p_Terr_All_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
5430: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5431: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5432: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
5433: FND_MSG_PUB.ADD;
5434: END IF;
5429: p_Terr_All_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
5430: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5431: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5432: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
5433: FND_MSG_PUB.ADD;
5434: END IF;
5435: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5436: End If;
5437:
5437:
5438: -- Validate last updated by
5439: IF ( p_Terr_All_Rec.LAST_UPDATED_BY is NULL OR
5440: p_Terr_All_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
5441: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5442: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5443: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
5444: FND_MSG_PUB.ADD;
5445: END IF;
5440: p_Terr_All_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
5441: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5442: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5443: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
5444: FND_MSG_PUB.ADD;
5445: END IF;
5446: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5447: End If;
5448:
5448:
5449: -- Check last update date
5450: If ( p_Terr_All_Rec.LAST_UPDATE_DATE IS NULL OR
5451: p_Terr_All_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
5452: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5453: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5454: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
5455: FND_MSG_PUB.ADD;
5456: END IF;
5451: p_Terr_All_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
5452: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5453: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5454: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
5455: FND_MSG_PUB.ADD;
5456: END IF;
5457: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5458: End If;
5459:
5459:
5460: --Check last update login
5461: --If ( p_Terr_All_Rec.LAST_UPDATE_LOGIN is NULL OR
5462: -- p_Terr_All_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
5463: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5464: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5465: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
5466: -- FND_MSG_PUB.ADD;
5467: -- END IF;
5462: -- p_Terr_All_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
5463: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5464: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5465: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
5466: -- FND_MSG_PUB.ADD;
5467: -- END IF;
5468: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
5469: --End If;
5470:
5470:
5471: --Check start date active
5472: If ( p_Terr_All_Rec.START_DATE_ACTIVE IS NULL OR
5473: p_Terr_All_Rec.START_DATE_ACTIVE = FND_API.G_MISS_DATE ) THEN
5474: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5475: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5476: FND_MESSAGE.Set_Token('COL_NAME', 'START_DATE_ACTIVE' );
5477: FND_MSG_PUB.ADD;
5478: END IF;
5473: p_Terr_All_Rec.START_DATE_ACTIVE = FND_API.G_MISS_DATE ) THEN
5474: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5475: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5476: FND_MESSAGE.Set_Token('COL_NAME', 'START_DATE_ACTIVE' );
5477: FND_MSG_PUB.ADD;
5478: END IF;
5479: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5480: End If;
5481:
5518: End If;
5519:
5520: -- Since the message stack is already set
5521: --
5522: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
5523: p_data => x_msg_data);
5524:
5525: EXCEPTION
5526: --
5526: --
5527: WHEN FND_API.G_EXC_ERROR THEN
5528: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
5529: x_return_status := FND_API.G_RET_STS_ERROR ;
5530: FND_MSG_PUB.Count_And_Get
5531: ( P_count => x_msg_count,
5532: P_data => x_msg_data
5533: );
5534:
5534:
5535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5536: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_UNEXPECTED_ERROR');
5537: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5538: FND_MSG_PUB.Count_And_Get
5539: ( P_count => x_msg_count,
5540: P_data => x_msg_data
5541: );
5542:
5545: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5546: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
5547: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Territory_Record' );
5548: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
5549: FND_MSG_PUB.ADD;
5550: FND_MSG_PUB.Count_And_Get
5551: ( P_count => x_msg_count,
5552: P_data => x_msg_data
5553: );
5546: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
5547: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Territory_Record' );
5548: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
5549: FND_MSG_PUB.ADD;
5550: FND_MSG_PUB.Count_And_Get
5551: ( P_count => x_msg_count,
5552: P_data => x_msg_data
5553: );
5554: --
5578: --
5579: l_parent_terr_id := p_Terr_All_Rec.parent_territory_Id;
5580: --dbms_output('Validate_Foreign_Key: Returned from JTF_CTM_UTILITY_PVT.fk_id_is_valid');
5581: IF JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_parent_terr_id, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
5582: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5583: --dbms_output('PARENT Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
5584: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_PARENT_TERR');
5585: FND_MESSAGE.Set_Token('TERR_ID', to_char(l_parent_terr_id));
5586: FND_MSG_PUB.ADD;
5582: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5583: --dbms_output('PARENT Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
5584: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_PARENT_TERR');
5585: FND_MESSAGE.Set_Token('TERR_ID', to_char(l_parent_terr_id));
5586: FND_MSG_PUB.ADD;
5587: End If;
5588: x_return_status := FND_API.G_RET_STS_ERROR;
5589: End If;
5590: End If;
5597: then
5598: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.TERRITORY_TYPE_ID, 'TERR_TYPE_ID', 'JTF_TERR_TYPES_ALL');
5599: If l_status <> FND_API.G_TRUE Then
5600: x_return_status := FND_API.G_RET_STS_ERROR;
5601: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5602: --dbms_output('TERR TYPE: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
5603: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_TYPE');
5604: FND_MESSAGE.Set_Token('TERR_TYPE_ID', to_char(p_Terr_All_Rec.TERRITORY_TYPE_ID));
5605: FND_MSG_PUB.ADD;
5601: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5602: --dbms_output('TERR TYPE: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
5603: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_TYPE');
5604: FND_MESSAGE.Set_Token('TERR_TYPE_ID', to_char(p_Terr_All_Rec.TERRITORY_TYPE_ID));
5605: FND_MSG_PUB.ADD;
5606: End If;
5607: End If;
5608: End If;
5609: --
5613: (p_Terr_All_Rec.TEMPLATE_TERRITORY_ID <> FND_API.G_MISS_NUM) Then
5614: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.TEMPLATE_TERRITORY_ID, 'TERR_ID', 'JTF_TERR_ALL');
5615: if l_status <> FND_API.G_TRUE Then
5616: x_return_status := FND_API.G_RET_STS_ERROR;
5617: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5618: --dbms_output('TEMP: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
5619: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TEMP_TERR');
5620: FND_MESSAGE.Set_Token('TERR_ID', to_char(p_Terr_All_Rec.TEMPLATE_TERRITORY_ID));
5621: FND_MSG_PUB.ADD;
5617: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5618: --dbms_output('TEMP: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
5619: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TEMP_TERR');
5620: FND_MESSAGE.Set_Token('TERR_ID', to_char(p_Terr_All_Rec.TEMPLATE_TERRITORY_ID));
5621: FND_MSG_PUB.ADD;
5622: End If;
5623: End If;
5624: End If;
5625: --
5629: (p_Terr_All_Rec.ESCALATION_TERRITORY_ID <> FND_API.G_MISS_NUM) Then
5630: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.escalation_territory_id, 'TERR_ID', 'JTF_TERR_ALL');
5631: if l_status <> FND_API.G_TRUE Then
5632: x_return_status := FND_API.G_RET_STS_ERROR;
5633: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5634: --dbms_output('ESC TERR: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
5635: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_ESC_TERR');
5636: FND_MESSAGE.Set_Token('TERR_ID', to_char(p_Terr_All_Rec.terr_Id));
5637: FND_MSG_PUB.ADD;
5633: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5634: --dbms_output('ESC TERR: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
5635: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_ESC_TERR');
5636: FND_MESSAGE.Set_Token('TERR_ID', to_char(p_Terr_All_Rec.terr_Id));
5637: FND_MSG_PUB.ADD;
5638: End If;
5639: End If;
5640: End If;
5641:
5639: End If;
5640: End If;
5641:
5642: --
5643: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
5644: p_data => x_msg_data);
5645: EXCEPTION
5646: --
5647: WHEN OTHERS THEN
5649: X_return_status := FND_API.G_RET_STS_ERROR;
5650: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
5651: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Foreign_Key' );
5652: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
5653: FND_MSG_PUB.ADD;
5654: FND_MSG_PUB.Count_And_Get
5655: ( p_count => x_msg_count,
5656: p_data => x_msg_data
5657: );
5650: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
5651: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Foreign_Key' );
5652: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
5653: FND_MSG_PUB.ADD;
5654: FND_MSG_PUB.Count_And_Get
5655: ( p_count => x_msg_count,
5656: p_data => x_msg_data
5657: );
5658: --
5690: --dbms_output('Validate_Territory_Usage: l_status <> FND_API.G_TRUE');
5691: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
5692: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
5693: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
5694: FND_MSG_PUB.ADD;
5695: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5696: End If;
5697: --dbms_output('Validate_Territory_Usage: TERR_ID(' || to_char(l_Validate_id) || ') is valid');
5698: End If;
5701: l_Validate_id := p_Terr_Usgs_rec.SOURCE_ID;
5702:
5703: -- Make sure the foreign key source_id is valid
5704: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'SOURCE_ID', 'JTF_SOURCES_ALL') <> FND_API.G_TRUE Then
5705: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5706: --dbms_output('Validate_Territory_Usage: FND_MSG_PUB.ADD');
5707: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
5708: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_SOURCES');
5709: FND_MESSAGE.Set_Token('COLUMN_NAME', 'SOURCE_ID');
5702:
5703: -- Make sure the foreign key source_id is valid
5704: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'SOURCE_ID', 'JTF_SOURCES_ALL') <> FND_API.G_TRUE Then
5705: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5706: --dbms_output('Validate_Territory_Usage: FND_MSG_PUB.ADD');
5707: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
5708: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_SOURCES');
5709: FND_MESSAGE.Set_Token('COLUMN_NAME', 'SOURCE_ID');
5710: FND_MSG_PUB.ADD;
5706: --dbms_output('Validate_Territory_Usage: FND_MSG_PUB.ADD');
5707: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
5708: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_SOURCES');
5709: FND_MESSAGE.Set_Token('COLUMN_NAME', 'SOURCE_ID');
5710: FND_MSG_PUB.ADD;
5711: End If;
5712: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5713: End If;
5714:
5715:
5716: /*-- Check for ORG_ID - obsolete: org_id is optional
5717: IF (p_Terr_Usgs_rec.ORG_ID is NULL) OR
5718: (p_Terr_Usgs_rec.ORG_ID = FND_API.G_MISS_NUM) THEN
5719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5720: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5721: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
5722: FND_MSG_PUB.ADD;
5723: END IF;
5718: (p_Terr_Usgs_rec.ORG_ID = FND_API.G_MISS_NUM) THEN
5719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5720: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5721: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
5722: FND_MSG_PUB.ADD;
5723: END IF;
5724: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5725: End If;
5726: */
5727:
5728: --Check created by
5729: IF ( p_Terr_Usgs_rec.CREATED_BY is NULL OR
5730: p_Terr_Usgs_rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
5731: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5732: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5733: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
5734: FND_MSG_PUB.ADD;
5735: END IF;
5730: p_Terr_Usgs_rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
5731: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5732: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5733: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
5734: FND_MSG_PUB.ADD;
5735: END IF;
5736: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5737: End If;
5738:
5738:
5739: --Check creation date
5740: If ( p_Terr_Usgs_rec.CREATION_DATE is NULL OR
5741: p_Terr_Usgs_rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
5742: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5743: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5744: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
5745: FND_MSG_PUB.ADD;
5746: END IF;
5741: p_Terr_Usgs_rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
5742: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5743: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5744: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
5745: FND_MSG_PUB.ADD;
5746: END IF;
5747: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5748: End If;
5749:
5749:
5750: -- Validate last updated by
5751: IF ( p_Terr_Usgs_rec.LAST_UPDATED_BY is NULL OR
5752: p_Terr_Usgs_rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
5753: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5754: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5755: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
5756: FND_MSG_PUB.ADD;
5757: END IF;
5752: p_Terr_Usgs_rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
5753: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5754: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5755: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
5756: FND_MSG_PUB.ADD;
5757: END IF;
5758: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5759: End If;
5760:
5760:
5761: -- Check last update date
5762: If ( p_Terr_Usgs_rec.LAST_UPDATE_DATE IS NULL OR
5763: p_Terr_Usgs_rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
5764: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5765: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5766: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
5767: FND_MSG_PUB.ADD;
5768: END IF;
5763: p_Terr_Usgs_rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
5764: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5765: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5766: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
5767: FND_MSG_PUB.ADD;
5768: END IF;
5769: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5770: End If;
5771:
5771:
5772: --Check last update login
5773: --If ( p_Terr_Usgs_rec.LAST_UPDATE_LOGIN is NULL OR
5774: -- p_Terr_Usgs_rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
5775: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5776: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5777: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
5778: -- FND_MSG_PUB.ADD;
5779: -- END IF;
5774: -- p_Terr_Usgs_rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
5775: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5776: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5777: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
5778: -- FND_MSG_PUB.ADD;
5779: -- END IF;
5780: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
5781: --End If;
5782:
5780: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
5781: --End If;
5782:
5783: --
5784: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
5785: p_data => x_msg_data);
5786:
5787: EXCEPTION
5788: --
5788: --
5789: WHEN FND_API.G_EXC_ERROR THEN
5790: --dbms_output('Validate_Territory_Usage: FND_API.G_EXC_ERROR');
5791: x_return_status := FND_API.G_RET_STS_ERROR ;
5792: FND_MSG_PUB.Count_And_Get
5793: ( P_count => x_msg_count,
5794: P_data => x_msg_data
5795: );
5796:
5796:
5797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5798: --dbms_output('Validate_Territory_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
5799: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5800: FND_MSG_PUB.Count_And_Get
5801: ( P_count => x_msg_count,
5802: P_data => x_msg_data
5803: );
5804:
5807: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5808: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
5809: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Territory_Usage' );
5810: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
5811: FND_MSG_PUB.ADD;
5812: FND_MSG_PUB.Count_And_Get
5813: ( P_count => x_msg_count,
5814: P_data => x_msg_data
5815: );
5808: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
5809: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Territory_Usage' );
5810: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
5811: FND_MSG_PUB.ADD;
5812: FND_MSG_PUB.Count_And_Get
5813: ( P_count => x_msg_count,
5814: P_data => x_msg_data
5815: );
5816: --
5857:
5858: EXCEPTION
5859: WHEN NO_DATA_FOUND THEN
5860: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_QTYPE');
5861: FND_MSG_PUB.ADD;
5862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5863: END;
5864:
5865: -- Validate the territory Id
5867: If p_Terr_Id IS NOT NULL Then
5868: --dbms_output('Validate_Terr_Qtype_Usage: TERR_ID(' || to_char(l_Validate_id) || ')');
5869: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
5870: --dbms_output('Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
5871: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5872: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
5873: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
5874: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
5875: FND_MSG_PUB.ADD;
5871: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5872: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
5873: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
5874: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
5875: FND_MSG_PUB.ADD;
5876: END IF;
5877: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5878: End If;
5879: End If;
5882: --
5883: /*-- Check for ORG_ID - obsolete: org_id is optional
5884: IF (p_Terr_QualTypeUsgs_Rec.ORG_ID is NULL) OR
5885: (p_Terr_QualTypeUsgs_Rec.ORG_ID = FND_API.G_MISS_NUM) THEN
5886: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5887: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5888: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
5889: FND_MSG_PUB.ADD;
5890: END IF;
5885: (p_Terr_QualTypeUsgs_Rec.ORG_ID = FND_API.G_MISS_NUM) THEN
5886: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5887: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5888: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
5889: FND_MSG_PUB.ADD;
5890: END IF;
5891: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5892: End If;
5893: */
5894:
5895: --Check created by
5896: IF ( p_Terr_QualTypeUsgs_Rec.CREATED_BY is NULL OR
5897: p_Terr_QualTypeUsgs_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
5898: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5899: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5900: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
5901: FND_MSG_PUB.ADD;
5902: END IF;
5897: p_Terr_QualTypeUsgs_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
5898: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5899: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5900: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
5901: FND_MSG_PUB.ADD;
5902: END IF;
5903: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5904: End If;
5905:
5905:
5906: --Check creation date
5907: If ( p_Terr_QualTypeUsgs_Rec.CREATION_DATE is NULL OR
5908: p_Terr_QualTypeUsgs_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
5909: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5910: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5911: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
5912: FND_MSG_PUB.ADD;
5913: END IF;
5908: p_Terr_QualTypeUsgs_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
5909: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5910: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5911: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
5912: FND_MSG_PUB.ADD;
5913: END IF;
5914: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5915: End If;
5916:
5916:
5917: -- Validate last updated by
5918: IF ( p_Terr_QualTypeUsgs_Rec.LAST_UPDATED_BY is NULL OR
5919: p_Terr_QualTypeUsgs_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
5920: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5921: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5922: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
5923: FND_MSG_PUB.ADD;
5924: END IF;
5919: p_Terr_QualTypeUsgs_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
5920: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5921: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5922: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
5923: FND_MSG_PUB.ADD;
5924: END IF;
5925: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5926: End If;
5927:
5927:
5928: -- Check last update date
5929: If ( p_Terr_QualTypeUsgs_Rec.LAST_UPDATE_DATE IS NULL OR
5930: p_Terr_QualTypeUsgs_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
5931: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5932: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5933: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
5934: FND_MSG_PUB.ADD;
5935: END IF;
5930: p_Terr_QualTypeUsgs_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
5931: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5932: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5933: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
5934: FND_MSG_PUB.ADD;
5935: END IF;
5936: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5937: End If;
5938:
5938:
5939: --Check last update login
5940: --If ( p_Terr_QualTypeUsgs_Rec.LAST_UPDATE_LOGIN is NULL OR
5941: -- p_Terr_QualTypeUsgs_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
5942: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5943: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5944: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
5945: -- FND_MSG_PUB.ADD;
5946: -- END IF;
5941: -- p_Terr_QualTypeUsgs_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
5942: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5943: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5944: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
5945: -- FND_MSG_PUB.ADD;
5946: -- END IF;
5947: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
5948: --End If;
5949:
5947: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
5948: --End If;
5949:
5950: --
5951: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
5952: p_data => x_msg_data);
5953: EXCEPTION
5954: --
5955: WHEN FND_API.G_EXC_ERROR THEN
5954: --
5955: WHEN FND_API.G_EXC_ERROR THEN
5956: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
5957: x_return_status := FND_API.G_RET_STS_ERROR ;
5958: FND_MSG_PUB.Count_And_Get
5959: ( P_count => x_msg_count,
5960: P_data => x_msg_data
5961: );
5962:
5962:
5963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5964: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
5965: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5966: FND_MSG_PUB.Count_And_Get
5967: ( P_count => x_msg_count,
5968: P_data => x_msg_data
5969: );
5970:
5974:
5975: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
5976: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Qtype_Usage' );
5977: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
5978: FND_MSG_PUB.ADD;
5979: FND_MSG_PUB.Count_And_Get
5980: ( P_count => x_msg_count,
5981: P_data => x_msg_data
5982: );
5975: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
5976: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Qtype_Usage' );
5977: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
5978: FND_MSG_PUB.ADD;
5979: FND_MSG_PUB.Count_And_Get
5980: ( P_count => x_msg_count,
5981: P_data => x_msg_data
5982: );
5983: --
6032:
6033: /*-- Check for ORG_ID - obsolete: org_id is optional
6034: IF (p_Terr_Value_Rec.ORG_ID is NULL) OR
6035: (p_Terr_Value_Rec.ORG_ID = FND_API.G_MISS_NUM) THEN
6036: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6037: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6038: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
6039: FND_MSG_PUB.ADD;
6040: END IF;
6035: (p_Terr_Value_Rec.ORG_ID = FND_API.G_MISS_NUM) THEN
6036: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6037: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6038: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
6039: FND_MSG_PUB.ADD;
6040: END IF;
6041: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6042: End If;
6043: */
6046: /* ----- ARPATEL 041101 Bug#1508750 FIX -----------------------------------
6047:
6048: If ( p_Terr_Value_Rec.ID_USED_FLAG IS NULL OR
6049: p_Terr_Value_Rec.ID_USED_FLAG = FND_API.G_MISS_CHAR ) Then
6050: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6051: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6052: FND_MESSAGE.Set_Token('COL_NAME', 'ID_USED_FLAG' );
6053: FND_MSG_PUB.ADD;
6054: END IF;
6049: p_Terr_Value_Rec.ID_USED_FLAG = FND_API.G_MISS_CHAR ) Then
6050: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6051: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6052: FND_MESSAGE.Set_Token('COL_NAME', 'ID_USED_FLAG' );
6053: FND_MSG_PUB.ADD;
6054: END IF;
6055: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6056: End If;
6057: -------------------------------------------------------------------------*/
6059:
6060: --Check created by
6061: IF ( p_Terr_Value_Rec.CREATED_BY is NULL OR
6062: p_Terr_Value_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
6063: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6064: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6065: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
6066: FND_MSG_PUB.ADD;
6067: END IF;
6062: p_Terr_Value_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
6063: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6064: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6065: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
6066: FND_MSG_PUB.ADD;
6067: END IF;
6068: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6069: End If;
6070:
6070:
6071: --Check creation date
6072: If ( p_Terr_Value_Rec.CREATION_DATE is NULL OR
6073: p_Terr_Value_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
6074: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6075: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6076: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
6077: FND_MSG_PUB.ADD;
6078: END IF;
6073: p_Terr_Value_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
6074: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6075: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6076: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
6077: FND_MSG_PUB.ADD;
6078: END IF;
6079: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6080: End If;
6081:
6081:
6082: -- Validate last updated by
6083: IF ( p_Terr_Value_Rec.LAST_UPDATED_BY is NULL OR
6084: p_Terr_Value_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
6085: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6086: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6087: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
6088: FND_MSG_PUB.ADD;
6089: END IF;
6084: p_Terr_Value_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
6085: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6086: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6087: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
6088: FND_MSG_PUB.ADD;
6089: END IF;
6090: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6091: End If;
6092:
6092:
6093: -- Check last update date
6094: If ( p_Terr_Value_Rec.LAST_UPDATE_DATE IS NULL OR
6095: p_Terr_Value_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
6096: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6097: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6098: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
6099: FND_MSG_PUB.ADD;
6100: END IF;
6095: p_Terr_Value_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
6096: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6097: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6098: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
6099: FND_MSG_PUB.ADD;
6100: END IF;
6101: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6102: End If;
6103:
6103:
6104: --Check last update login
6105: --If ( p_Terr_Value_Rec.LAST_UPDATE_LOGIN is NULL OR
6106: -- p_Terr_Value_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
6107: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6108: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6109: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
6110: -- FND_MSG_PUB.ADD;
6111: -- END IF;
6106: -- p_Terr_Value_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
6107: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6108: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6109: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
6110: -- FND_MSG_PUB.ADD;
6111: -- END IF;
6112: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
6113: --End If;
6114:
6132: p_Terr_Value_Rec.HIGH_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
6133: ( p_Terr_Value_Rec.INTEREST_TYPE_ID IS NOT NULL and
6134: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) ) THEN
6135:
6136: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6137: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
6138: FND_MSG_PUB.ADD;
6139: END IF;
6140:
6134: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) ) THEN
6135:
6136: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6137: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
6138: FND_MSG_PUB.ADD;
6139: END IF;
6140:
6141: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6142:
6166: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
6167: (p_Terr_Value_Rec.INTEREST_TYPE_ID IS NOT NULL and
6168: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) ) THEN
6169:
6170: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6171: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
6172: FND_MSG_PUB.ADD;
6173: END IF;
6174:
6168: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) ) THEN
6169:
6170: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6171: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
6172: FND_MSG_PUB.ADD;
6173: END IF;
6174:
6175: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6176:
6185: p_Terr_Value_Rec.LOW_VALUE_NUMBER = FND_API.G_MISS_NUM ) OR
6186: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
6187: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) ) THEN
6188:
6189: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6190: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
6191: FND_MSG_PUB.ADD;
6192: END IF;
6193:
6187: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) ) THEN
6188:
6189: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6190: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
6191: FND_MSG_PUB.ADD;
6192: END IF;
6193:
6194: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6195:
6210: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) OR
6211: (p_Terr_Value_Rec.INTEREST_TYPE_ID IS NOT NULL and
6212: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) ) THEN
6213:
6214: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6215: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
6216: FND_MSG_PUB.ADD;
6217: END IF;
6218:
6212: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) ) THEN
6213:
6214: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6215: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
6216: FND_MSG_PUB.ADD;
6217: END IF;
6218:
6219: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6220:
6234: (p_Terr_Value_Rec.LOW_VALUE_CHAR IS NOT NULL and
6235: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) ) THEN
6236:
6237: --dbms_output('Error INTEREST_TYPE');
6238: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6239: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
6240: FND_MSG_PUB.ADD;
6241: END IF;
6242:
6236:
6237: --dbms_output('Error INTEREST_TYPE');
6238: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6239: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
6240: FND_MSG_PUB.ADD;
6241: END IF;
6242:
6243: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6244:
6245: END IF;
6246: End If;
6247:
6248: --
6249: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
6250: p_data => x_msg_data);
6251:
6252: EXCEPTION
6253: --
6253: --
6254: WHEN FND_API.G_EXC_ERROR THEN
6255: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
6256: x_return_status := FND_API.G_RET_STS_ERROR ;
6257: FND_MSG_PUB.Count_And_Get
6258: ( P_count => x_msg_count,
6259: P_data => x_msg_data
6260: );
6261:
6261:
6262: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6263: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
6264: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6265: FND_MSG_PUB.Count_And_Get
6266: ( P_count => x_msg_count,
6267: P_data => x_msg_data
6268: );
6269:
6273:
6274: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
6275: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_terr_Value_Rec' );
6276: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
6277: FND_MSG_PUB.ADD;
6278:
6279: FND_MSG_PUB.Count_And_Get
6280: ( P_count => x_msg_count,
6281: P_data => x_msg_data
6275: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_terr_Value_Rec' );
6276: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
6277: FND_MSG_PUB.ADD;
6278:
6279: FND_MSG_PUB.Count_And_Get
6280: ( P_count => x_msg_count,
6281: P_data => x_msg_data
6282: );
6283:
6372: FETCH c_chk_template INTO l_csr_rtn;
6373: IF (c_chk_template%NOTFOUND) THEN
6374:
6375: fnd_message.set_name('JTF', 'JTF_TERR_INVALID_TEMPLATE');
6376: --fnd_msg_pub.add;
6377: x_return_status := FND_API.G_RET_STS_ERROR;
6378:
6379: END IF;
6380: CLOSE c_chk_template;
6387: --IF (c_chk_qual_mode%NOTFOUND) THEN
6388:
6389: IF (l_dynamic_qual_count = 0) THEN
6390: fnd_message.set_name ('JTF', 'JTF_TERR_NO_DYNAMIC_QUALIFIERS');
6391: fnd_msg_pub.add;
6392: x_return_status := FND_API.G_RET_STS_ERROR;
6393:
6394: END IF;
6395: CLOSE c_chk_qual_mode;
6418: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6419: RAISE FND_API.G_EXC_ERROR;
6420: END IF;
6421:
6422: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
6423: p_data => x_msg_data);
6424:
6425: EXCEPTION
6426: WHEN FND_API.G_EXC_ERROR THEN
6425: EXCEPTION
6426: WHEN FND_API.G_EXC_ERROR THEN
6427: --dbms_output('Validate_Template_Record: FND_API.G_EXC_ERROR');
6428: x_return_status := FND_API.G_RET_STS_ERROR ;
6429: FND_MSG_PUB.Count_And_Get
6430: ( P_count => x_msg_count,
6431: P_data => x_msg_data
6432: );
6433:
6433:
6434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6435: --dbms_output('Validate_Template_Record: FND_API.G_EXC_UNEXPECTED_ERROR');
6436: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6437: FND_MSG_PUB.Count_And_Get
6438: ( P_count => x_msg_count,
6439: P_data => x_msg_data
6440: );
6441:
6441:
6442: WHEN OTHERS THEN
6443: --dbms_output('Validate_Template_Record: OTHERS - ' || SQLERRM);
6444: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6445: FND_MSG_PUB.Count_And_Get
6446: ( P_count => x_msg_count,
6447: P_data => x_msg_data
6448: );
6449:
7826: END IF;
7827:
7828: -- Initialize message list if p_init_msg_list is set to TRUE.
7829: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7830: FND_MSG_PUB.initialize;
7831: END IF;
7832:
7833: -- Debug Message
7834: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
7830: FND_MSG_PUB.initialize;
7831: END IF;
7832:
7833: -- Debug Message
7834: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
7835: THEN
7836: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
7837: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
7838: FND_MSG_PUB.Add;
7834: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
7835: THEN
7836: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
7837: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
7838: FND_MSG_PUB.Add;
7839: END IF;
7840:
7841: -- Initialize API return status to success
7842: x_return_status := FND_API.G_RET_STS_SUCCESS;
7849: --arpatel 07/13 bug#1872642
7850: --IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
7851:
7852: /* Debug message */
7853: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
7854: THEN
7855: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
7856: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Template_Record');
7857: FND_MSG_PUB.Add;
7853: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
7854: THEN
7855: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
7856: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Template_Record');
7857: FND_MSG_PUB.Add;
7858: END IF;
7859:
7860: /* Invoke validation procedures */
7861: Validate_Template_Record( p_init_msg_list => FND_API.G_FALSE
7994: /* API BODY END */
7995: /* ======================*/
7996:
7997: -- Debug Message
7998: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
7999: THEN
8000: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
8001: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
8002: FND_MSG_PUB.Add;
7998: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
7999: THEN
8000: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
8001: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
8002: FND_MSG_PUB.Add;
8003: END IF;
8004:
8005: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8006: RAISE FND_API.G_EXC_ERROR;
8005: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8006: RAISE FND_API.G_EXC_ERROR;
8007: END IF;
8008:
8009: FND_MSG_PUB.Count_And_Get
8010: ( p_count => x_msg_count,
8011: p_data => x_msg_data
8012: );
8013:
8021: WHEN FND_API.G_EXC_ERROR THEN
8022: --dbms_output('Generate_Template_Territories PVT: FND_API.G_EXC_ERROR');
8023: ROLLBACK TO GEN_TEMPLATE_TERR_PVT;
8024: x_return_status := FND_API.G_RET_STS_ERROR ;
8025: FND_MSG_PUB.Count_And_Get
8026: ( p_count => x_msg_count,
8027: p_data => x_msg_data
8028: );
8029:
8030: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8031: --dbms_output('Generate_Template_Territories PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
8032: ROLLBACK TO GEN_TEMPLATE_TERR_PVT;
8033: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8034: FND_MSG_PUB.Count_And_Get
8035: ( p_count => x_msg_count,
8036: p_data => x_msg_data
8037: );
8038:
8039: WHEN OTHERS THEN
8040: --dbms_output('Generate_Template_Territories PVT: OTHERS - ' || SQLERRM);
8041: ROLLBACK TO GEN_TEMPLATE_TERR_PVT;
8042: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8043: FND_MSG_PUB.Count_And_Get
8044: ( p_count => x_msg_count,
8045: p_data => x_msg_data
8046: );
8047:
8114: END IF;
8115:
8116: -- Initialize message list if p_init_msg_list is set to TRUE.
8117: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8118: FND_MSG_PUB.initialize;
8119: END IF;
8120:
8121: -- Debug Message
8122: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
8118: FND_MSG_PUB.initialize;
8119: END IF;
8120:
8121: -- Debug Message
8122: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
8123: THEN
8124: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
8125: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
8126: FND_MSG_PUB.Add;
8122: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
8123: THEN
8124: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_MSG');
8125: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
8126: FND_MSG_PUB.Add;
8127: END IF;
8128:
8129: -- Initialize API return status to success
8130: x_return_status := FND_API.G_RET_STS_SUCCESS;
8217: /* API BODY END */
8218: /* ======================*/
8219:
8220: -- Debug Message
8221: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
8222: THEN
8223: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
8224: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
8225: FND_MSG_PUB.Add;
8221: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
8222: THEN
8223: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
8224: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
8225: FND_MSG_PUB.Add;
8226: END IF;
8227:
8228: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8229: RAISE FND_API.G_EXC_ERROR;
8228: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8229: RAISE FND_API.G_EXC_ERROR;
8230: END IF;
8231:
8232: FND_MSG_PUB.Count_And_Get
8233: ( p_count => x_msg_count,
8234: p_data => x_msg_data
8235: );
8236:
8244: WHEN FND_API.G_EXC_ERROR THEN
8245: --dbms_output('Generate_Duplicate_Territory PVT: FND_API.G_EXC_ERROR');
8246: ROLLBACK TO COPY_TERR_PVT;
8247: x_return_status := FND_API.G_RET_STS_ERROR ;
8248: FND_MSG_PUB.Count_And_Get
8249: ( p_count => x_msg_count,
8250: p_data => x_msg_data
8251: );
8252:
8253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8254: --dbms_output('Generate_Duplicate_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
8255: ROLLBACK TO COPY_TERR_PVT;
8256: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8257: FND_MSG_PUB.Count_And_Get
8258: ( p_count => x_msg_count,
8259: p_data => x_msg_data
8260: );
8261:
8262: WHEN OTHERS THEN
8263: --dbms_output('Generate_Duplicate_Territory PVT: OTHERS - ' || SQLERRM);
8264: ROLLBACK TO COPY_TERR_PVT;
8265: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8266: FND_MSG_PUB.Count_And_Get
8267: ( p_count => x_msg_count,
8268: p_data => x_msg_data
8269: );
8270:
8551:
8552: x_return_status := FND_API.G_RET_STS_ERROR;
8553:
8554: /* Debug message */
8555: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
8556: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_USGS_UK_CON');
8557: FND_MSG_PUB.ADD;
8558: END IF;
8559:
8553:
8554: /* Debug message */
8555: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
8556: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_USGS_UK_CON');
8557: FND_MSG_PUB.ADD;
8558: END IF;
8559:
8560: END IF; /* c_chk_uk_violation%FOUND */
8561: CLOSE csr_chk_uk_violation;
8561: CLOSE csr_chk_uk_violation;
8562:
8563: END IF;
8564:
8565: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
8566: p_data => x_msg_data);
8567:
8568: EXCEPTION
8569:
8572: X_return_status := FND_API.G_RET_STS_ERROR;
8573: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
8574: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Unique_Key' );
8575: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
8576: FND_MSG_PUB.ADD;
8577: FND_MSG_PUB.Count_And_Get
8578: ( p_count => x_msg_count,
8579: p_data => x_msg_data
8580: );
8573: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
8574: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Unique_Key' );
8575: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
8576: FND_MSG_PUB.ADD;
8577: FND_MSG_PUB.Count_And_Get
8578: ( p_count => x_msg_count,
8579: p_data => x_msg_data
8580: );
8581:
8623: x_return_status := FND_API.G_RET_STS_ERROR;
8624:
8625: /* Debug message */
8626: --arpatel 09/18 - set message for form to pick up.
8627: --IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
8628: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_QTYPE_USGS_UK_CON');
8629: FND_MSG_PUB.ADD;
8630:
8631: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
8625: /* Debug message */
8626: --arpatel 09/18 - set message for form to pick up.
8627: --IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
8628: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_QTYPE_USGS_UK_CON');
8629: FND_MSG_PUB.ADD;
8630:
8631: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
8632: p_data => x_msg_data);
8633:
8627: --IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
8628: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_QTYPE_USGS_UK_CON');
8629: FND_MSG_PUB.ADD;
8630:
8631: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
8632: p_data => x_msg_data);
8633:
8634: --END IF;
8635:
8637: CLOSE csr_chk_uk_violation;
8638:
8639: END IF;
8640:
8641: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
8642: p_data => x_msg_data);
8643:
8644: EXCEPTION
8645:
8648: X_return_status := FND_API.G_RET_STS_ERROR;
8649: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
8650: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Unique_Key' );
8651: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
8652: FND_MSG_PUB.ADD;
8653: FND_MSG_PUB.Count_And_Get
8654: ( p_count => x_msg_count,
8655: p_data => x_msg_data
8656: );
8649: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
8650: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Unique_Key' );
8651: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
8652: FND_MSG_PUB.ADD;
8653: FND_MSG_PUB.Count_And_Get
8654: ( p_count => x_msg_count,
8655: p_data => x_msg_data
8656: );
8657:
8704:
8705: x_return_status := FND_API.G_RET_STS_ERROR;
8706:
8707: /* Debug message */
8708: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
8709: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_NUM_WINNERS_TOP_LEVEL');
8710: FND_MSG_PUB.ADD;
8711: END IF;
8712:
8706:
8707: /* Debug message */
8708: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
8709: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_NUM_WINNERS_TOP_LEVEL');
8710: FND_MSG_PUB.ADD;
8711: END IF;
8712:
8713: END IF;
8714:
8711: END IF;
8712:
8713: END IF;
8714:
8715: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
8716: p_data => x_msg_data);
8717:
8718: EXCEPTION
8719:
8722: X_return_status := FND_API.G_RET_STS_ERROR;
8723: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
8724: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Num_Winners' );
8725: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
8726: FND_MSG_PUB.ADD;
8727: FND_MSG_PUB.Count_And_Get
8728: ( p_count => x_msg_count,
8729: p_data => x_msg_data
8730: );
8723: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
8724: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Num_Winners' );
8725: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
8726: FND_MSG_PUB.ADD;
8727: FND_MSG_PUB.Count_And_Get
8728: ( p_count => x_msg_count,
8729: p_data => x_msg_data
8730: );
8731:
8768: END IF;
8769:
8770:
8771: /* Debug message */
8772: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
8773: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_NUM_COPY_TERR');
8774: FND_MSG_PUB.ADD;
8775: END IF;
8776:
8770:
8771: /* Debug message */
8772: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
8773: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_NUM_COPY_TERR');
8774: FND_MSG_PUB.ADD;
8775: END IF;
8776:
8777: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
8778: p_data => x_msg_data);
8773: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_NUM_COPY_TERR');
8774: FND_MSG_PUB.ADD;
8775: END IF;
8776:
8777: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
8778: p_data => x_msg_data);
8779:
8780: EXCEPTION
8781: WHEN OTHERS THEN
8783: X_return_status := FND_API.G_RET_STS_ERROR;
8784: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
8785: FND_MESSAGE.Set_Token('PROC_NAME', 'chk_num_copy_terr' );
8786: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
8787: FND_MSG_PUB.ADD;
8788: FND_MSG_PUB.Count_And_Get
8789: ( p_count => x_msg_count,
8790: p_data => x_msg_data
8791: );
8784: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
8785: FND_MESSAGE.Set_Token('PROC_NAME', 'chk_num_copy_terr' );
8786: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
8787: FND_MSG_PUB.ADD;
8788: FND_MSG_PUB.Count_And_Get
8789: ( p_count => x_msg_count,
8790: p_data => x_msg_data
8791: );
8792:
9036:
9037: FND_MESSAGE.Set_Name ('JTF', 'JTF_CONC_REQ_COPY_TERR');
9038: FND_MESSAGE.Set_Token ('Template Territory ID', p_copy_source_terr_Id);
9039: FND_MESSAGE.Set_Token('Concurrent request ID',l_process_id);
9040: FND_MSG_PUB.add;
9041:
9042: RETURN l_process_id;
9043: END conc_req_copy_terr;
9044:
9102:
9103: --dbms_output.put_line('[3]l_return_csr = ' || l_return_csr);
9104:
9105: /* Debug message */
9106: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
9107: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_CIRCULAR_REFERENCE');
9108: FND_MSG_PUB.ADD;
9109: END IF;
9110:
9104:
9105: /* Debug message */
9106: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
9107: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_CIRCULAR_REFERENCE');
9108: FND_MSG_PUB.ADD;
9109: END IF;
9110:
9111: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
9112: p_data => x_msg_data);
9107: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_CIRCULAR_REFERENCE');
9108: FND_MSG_PUB.ADD;
9109: END IF;
9110:
9111: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
9112: p_data => x_msg_data);
9113:
9114: EXCEPTION
9115:
9120:
9121: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_EXPECTED_ERROR');
9122: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Parent' );
9123: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
9124: FND_MSG_PUB.ADD;
9125:
9126: FND_MSG_PUB.Count_And_Get
9127: ( p_count => x_msg_count,
9128: p_data => x_msg_data
9122: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Parent' );
9123: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
9124: FND_MSG_PUB.ADD;
9125:
9126: FND_MSG_PUB.Count_And_Get
9127: ( p_count => x_msg_count,
9128: p_data => x_msg_data
9129: );
9130:
9132: --dbms_output.put_line('Validate_Parent: FND_API.G_EXC_UNEXPECTED_ERROR');
9133: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9134: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
9135: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Parent' );
9136: FND_MSG_PUB.Count_And_Get
9137: ( P_count => x_msg_count,
9138: P_data => x_msg_data
9139: );
9140:
9143: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9144: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
9145: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Parent' );
9146: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
9147: FND_MSG_PUB.ADD;
9148: FND_MSG_PUB.Count_And_Get
9149: ( p_count => x_msg_count,
9150: p_data => x_msg_data
9151: );
9144: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
9145: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Parent' );
9146: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
9147: FND_MSG_PUB.ADD;
9148: FND_MSG_PUB.Count_And_Get
9149: ( p_count => x_msg_count,
9150: p_data => x_msg_data
9151: );
9152: END validate_parent;