[Home] [Help]
21: -- for application_short_name
22: -- 01/14/00 VNEDUNGA PASSING ORG_ID to terr_api table handler
23: -- 01/31/00 VNEDUNGA Adding overlap_exists function
24: -- 03/09/00 VNEDUNGA Changing to validaton routines and
25: -- adding FND_MESSAGE calls
26: -- 04/04/00 EIHSU Added Gen_Duplicate_Territory and relevant procs
27: -- 04/20/94 VNEDUNGA Fixing the qualifer validation from returning
28: -- multiple rows
29: -- 05/01/00 VNEDUNGA Adding currency convertion routines
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;
237: END IF;
238:
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;
237: END IF;
238:
239: -- Initialize API return status to 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;
249: raise FND_API.G_EXC_ERROR;
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;
262: raise FND_API.G_EXC_ERROR;
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;
309: -- raise FND_API.G_EXC_ERROR;
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;
324: -- raise FND_API.G_EXC_ERROR;
380: --
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: --
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;
447: END IF;
448:
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;
447: END IF;
448:
449:
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;
585: END IF;
586:
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;
585: END IF;
586:
587: -- Initialize API return status to success
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;
625: END IF;
626:
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;
625: END IF;
626:
627:
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;
765: END IF;
766:
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;
765: END IF;
766:
767: -- Initialize API return status to success
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;
873: END IF;
874:
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;
873: END IF;
874:
875:
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;
1053: END IF;
1054:
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;
1053: END IF;
1054:
1055: -- Initialize API return status to success
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;
1120: END IF;
1121: raise FND_API.G_EXC_ERROR;
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;
1120: END IF;
1121: raise FND_API.G_EXC_ERROR;
1122: End if;
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;
1182: END IF;
1183:
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;
1182: END IF;
1183:
1184:
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;
1305: END IF;
1306: -- Initialize API return status to success
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;
1305: END IF;
1306: -- Initialize API return status to success
1307: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1413: END IF;
1414:
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;
1413: END IF;
1414:
1415: --dbms_output('Create_Territory_Header PVT: Exiting API');
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;
1515: END IF;
1516:
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;
1515: END IF;
1516:
1517: -- Initialize API return status to success
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;
1528: END IF;
1529: --
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;
1528: END IF;
1529: --
1530: -- Invoke validation procedures
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;
1615: END IF;
1616:
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;
1615: END IF;
1616:
1617: -- Standard check for p_commit
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;
1738: END IF;
1739:
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;
1738: END IF;
1739:
1740: -- Initialize API return status to 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;
1750: RAISE FND_API.G_EXC_ERROR;
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;
1771: --
1772: -- Invoke validation procedures
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;
1881: END IF;
1882: --
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;
1881: END IF;
1882: --
1883: -- Standard check for p_commit
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;
1971: END IF;
1972:
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;
1971: END IF;
1972:
1973: -- Initialize API return status to success
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;
1985: END IF;
1986:
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;
1985: END IF;
1986:
1987: -- Invoke validation procedures
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;
2048: END IF;
2049:
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;
2048: END IF;
2049:
2050: -- Standard check for p_commit
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;
2177: END IF;
2178:
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;
2177: END IF;
2178:
2179: -- Initialize API return status to success
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;
2238: END IF;
2239:
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;
2238: END IF;
2239:
2240: -- Standard check for p_commit
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;
2356: END IF;
2357:
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;
2356: END IF;
2357:
2358: -- Initialize API return status to success
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;
2370: END IF;
2371: --
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;
2370: END IF;
2371: --
2372: -- Invoke validation procedures
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;
2431: END IF;
2432:
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;
2431: END IF;
2432:
2433: -- Standard check for p_commit
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;
2565: END IF;
2566:
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;
2565: END IF;
2566:
2567: -- Initialize API return status to success
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;
2626: END IF;
2627:
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;
2626: END IF;
2627:
2628: -- Standard check for p_commit
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;
2718: END IF;
2719:
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;
2718: END IF;
2719:
2720: -- Initialize API return status to success
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;
2731: END IF;
2732:
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;
2731: END IF;
2732:
2733: -- Invoke validation procedures
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;
2798: END IF;
2799:
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;
2798: END IF;
2799:
2800: -- Standard check for p_commit
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;
2934: END IF;
2935:
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;
2934: END IF;
2935:
2936: -- Initialize API return status to success
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;
2998: END IF;
2999:
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;
2998: END IF;
2999:
3000: --
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;
3119: END IF;
3120:
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;
3119: END IF;
3120:
3121: -- Initialize API return status to SUCCESS
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;
3132: END IF;
3133: --
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;
3132: END IF;
3133: --
3134: -- Invoke validation procedures
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));
3205: FND_MSG_PUB.Add;
3206: END IF;
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));
3205: FND_MSG_PUB.Add;
3206: END IF;
3207: raise FND_API.G_EXC_ERROR;
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));
3205: FND_MSG_PUB.Add;
3206: END IF;
3207: raise FND_API.G_EXC_ERROR;
3208: End if;
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;
3269: END IF;
3270:
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;
3269: END IF;
3270:
3271: --dbms_output('Update_territory_Record PVT: Exiting API');
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;
3356: END IF;
3357:
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;
3356: END IF;
3357:
3358: -- Initialize API return status to SUCCESS
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;
3369: END IF;
3370: --
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;
3369: END IF;
3370: --
3371: -- Invoke validation procedures
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));
3407: FND_MSG_PUB.Add;
3408: END IF;
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));
3407: FND_MSG_PUB.Add;
3408: END IF;
3409: raise FND_API.G_EXC_ERROR;
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));
3407: FND_MSG_PUB.Add;
3408: END IF;
3409: raise FND_API.G_EXC_ERROR;
3410: End if;
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;
3435: END IF;
3436:
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;
3435: END IF;
3436:
3437: --dbms_output('Update_Territory_Usages PVT: Exiting 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;
3513: END IF;
3514:
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;
3513: END IF;
3514:
3515: -- Initialize API return status to success
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;
3573: END IF;
3574: --dbms_output('Update_Territory_Usages TBL: Exiting API');
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;
3573: END IF;
3574: --dbms_output('Update_Territory_Usages TBL: Exiting API');
3575: --
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;
3640: END IF;
3641:
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;
3640: END IF;
3641:
3642: -- Initialize API return status to SUCCESS
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;
3653: END IF;
3654: -- Invoke validation procedures
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;
3653: END IF;
3654: -- Invoke validation procedures
3655: Validate_Terr_Qtype_Usage(p_init_msg_list => FND_API.G_FALSE,
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));
3686: FND_MSG_PUB.Add;
3687: END IF;
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));
3686: FND_MSG_PUB.Add;
3687: END IF;
3688: raise FND_API.G_EXC_ERROR;
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));
3686: FND_MSG_PUB.Add;
3687: END IF;
3688: raise FND_API.G_EXC_ERROR;
3689: End if;
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;
3712: END IF;
3713:
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;
3712: END IF;
3713:
3714: --dbms_output('Update_Terr_QualType_Usage REC: Exiting 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;
3789: END IF;
3790:
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;
3789: END IF;
3790:
3791: -- Initialize API return status to success
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;
3847: END IF;
3848:
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;
3847: END IF;
3848:
3849: --dbms_output('Update_Terr_QualType_Usage TBL: Exiting 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;
3917: END IF;
3918:
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;
3917: END IF;
3918:
3919: -- Initialize API return status to SUCCESS
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;
3930: END IF;
3931: --
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;
3930: END IF;
3931: --
3932: -- Invoke validation procedures
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));
3969: FND_MSG_PUB.Add;
3970: END IF;
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));
3969: FND_MSG_PUB.Add;
3970: END IF;
3971: raise FND_API.G_EXC_ERROR;
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));
3969: FND_MSG_PUB.Add;
3970: END IF;
3971: raise FND_API.G_EXC_ERROR;
3972: End if;
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;
4001: END IF;
4002:
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;
4001: END IF;
4002:
4003: --dbms_output('Update_Terr_Qualifier REC: Exiting 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;
4075: END IF;
4076:
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;
4075: END IF;
4076:
4077: -- Initialize API return status to success
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;
4130: END IF;
4131: --dbms_output('Update_Terr_Qualifier TBL: Exiting API');
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;
4130: END IF;
4131: --dbms_output('Update_Terr_Qualifier TBL: Exiting API');
4132: --
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;
4212: END IF;
4213:
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;
4212: END IF;
4213:
4214: -- Initialize API return status to SUCCESS
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;
4226: END IF;
4227:
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;
4226: END IF;
4227:
4228: -- Invoke validation procedures
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));
4277: FND_MSG_PUB.Add;
4278: END IF;
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));
4277: FND_MSG_PUB.Add;
4278: END IF;
4279: raise FND_API.G_EXC_ERROR;
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));
4277: FND_MSG_PUB.Add;
4278: END IF;
4279: raise FND_API.G_EXC_ERROR;
4280:
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;
4325: END IF;
4326:
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;
4325: END IF;
4326:
4327: --dbms_output('Update_Terr_Value REC: Exiting 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;
4404: END IF;
4405:
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;
4404: END IF;
4405:
4406: -- Initialize API return status to success
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;
4461: END IF;
4462:
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;
4461: END IF;
4462:
4463:
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;
4531: END IF;
4532:
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;
4531: END IF;
4532:
4533: --Initialize the return status to success
4537: --
4538: JTF_TERR_PKG.Delete_Row(x_terr_Id => P_Terr_Id);
4539: --
4540: --Prepare message name
4541: FND_MESSAGE.SET_NAME('JTF','JTF_TERR_RECORD_DELETED');
4542:
4543: IF SQL%FOUND THEN
4544: --dbms_output('Delete_territory_Record: # Records deleted -' || to_char(SQL%ROWCOUNT));
4545: x_return_status := FND_API.G_RET_STS_SUCCESS;
4545: x_return_status := FND_API.G_RET_STS_SUCCESS;
4546: l_row_count := SQL%ROWCOUNT;
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
4546: l_row_count := SQL%ROWCOUNT;
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)
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;
4559: END IF;
4560:
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;
4559: END IF;
4560:
4561:
4575: WHEN NO_DATA_FOUND THEN
4576: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
4576: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,
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;
4667: END IF;
4668:
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;
4667: END IF;
4668:
4669: --Initialize the return status to success
4673: --
4674: JTF_TERR_USGS_PKG.Delete_Row(x_TERR_USG_ID => P_Terr_usg_Id);
4675: --
4676: --Prepare message name
4677: FND_MESSAGE.SET_NAME('JTF','JTF_TERR_RECORD_DELETED');
4678: IF SQL%FOUND THEN
4679: --dbms_output('Delete_Territory_Usages: # Records deleted -' || to_char(SQL%ROWCOUNT));
4680: x_return_status := FND_API.G_RET_STS_SUCCESS;
4681: l_row_count := SQL%ROWCOUNT;
4680: x_return_status := FND_API.G_RET_STS_SUCCESS;
4681: l_row_count := SQL%ROWCOUNT;
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
4681: l_row_count := SQL%ROWCOUNT;
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)
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;
4694: END IF;
4695:
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;
4694: END IF;
4695:
4696:
4710: WHEN NO_DATA_FOUND THEN
4711: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
4711: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,
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;
4802: END IF;
4803:
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;
4802: END IF;
4803:
4804: --Initialize the return status to success
4809: JTF_TERR_QTYPE_USGS_PKG.Delete_Row(x_terr_qtype_usg_id => P_Terr_Qual_Type_Usg_Id);
4810: --
4811: --
4812: --Prepare message name
4813: FND_MESSAGE.SET_NAME('JTF','JTF_TERR_RECORD_DELETED');
4814:
4815: IF SQL%FOUND THEN
4816: --dbms_output('Delete_Terr_QualType_Usage: # Records deleted -' || to_char(SQL%ROWCOUNT));
4817: x_return_status := FND_API.G_RET_STS_SUCCESS;
4818: l_row_count := SQL%ROWCOUNT;
4819: END IF;
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
4819: END IF;
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)
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;
4832: END IF;
4833:
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;
4832: END IF;
4833:
4834:
4850: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4851: l_row_count := 0;
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
4851: l_row_count := 0;
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,
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;
4950: END IF;
4951:
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;
4950: END IF;
4951:
4952: --Initialize the return status to success
4976:
4977: JTF_TERR_QUAL_PKG.Delete_Row(x_terr_qual_id => P_Terr_Qual_Id );
4978: --
4979: --Prepare message name
4980: FND_MESSAGE.SET_NAME('JTF','JTF_TERR_RECORD_DELETED');
4981: IF SQL%FOUND THEN
4982: --dbms_output('Delete_Terr_Qualifier: # Records deleted -' || to_char(SQL%ROWCOUNT));
4983: x_return_status := FND_API.G_RET_STS_SUCCESS;
4984: l_row_count := SQL%ROWCOUNT;
4988: */
4989: update_terr_num_qual(lp_terr_id, -1002);
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
4989: update_terr_num_qual(lp_terr_id, -1002);
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)
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;
5002: END IF;
5003:
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;
5002: END IF;
5003:
5004:
5019: WHEN NO_DATA_FOUND THEN
5020: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5021: l_row_count := 0;
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: --
5020: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5021: l_row_count := 0;
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
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;
5111: END IF;
5112:
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;
5111: END IF;
5112:
5113: --Initialize the return status to success
5117:
5118: JTF_TERR_VALUES_PKG.Delete_Row(X_TERR_VALUE_ID => P_Terr_Value_Id);
5119: --
5120: --Prepare message name
5121: FND_MESSAGE.SET_NAME('JTF','JTF_TERR_RECORD_DELETED');
5122: IF SQL%FOUND THEN
5123: --dbms_output('Delete_Terr_Value: # Records deleted -' || to_char(SQL%ROWCOUNT));
5124: x_return_status := FND_API.G_RET_STS_SUCCESS;
5125: l_row_count := SQL%ROWCOUNT;
5124: x_return_status := FND_API.G_RET_STS_SUCCESS;
5125: l_row_count := SQL%ROWCOUNT;
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
5125: l_row_count := SQL%ROWCOUNT;
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)
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;
5138: END IF;
5139:
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;
5138: END IF;
5139:
5140:
5156: --dbms_output('Delete_Terr_Value: NO-DATA-FOUND');
5157: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5158: l_row_count := 0;
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: --
5157: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5158: l_row_count := 0;
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
5225: EXCEPTION
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
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;
5246: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5246: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5247: End If;
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;
5258: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5258: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5259: End If;
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;
5269: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5269: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5270: End If;
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;
5280: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5280: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5281: End If;
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;
5291: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5291: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5292: End If;
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;
5303: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5303: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
5304: --End If;
5313: --
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
5323:
5324: WHEN OTHERS THEN
5325: --dbms_output('Validate_Qualifier: Others Exception');
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
5324: WHEN OTHERS THEN
5325: --dbms_output('Validate_Qualifier: Others Exception');
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,
5325: --dbms_output('Validate_Qualifier: Others Exception');
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
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;
5366: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5366: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5367: End If;
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;
5378: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5378: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5379: End If;
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;
5391: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5391: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5392: End If;
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;
5403: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5403: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5404: End If;
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 ;
5414: End If;
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;
5424: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5424: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5425: End If;
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;
5435: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5435: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5436: End If;
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;
5446: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5446: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5447: End If;
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;
5457: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5457: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5458: End If;
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;
5468: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5468: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
5469: --End If;
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;
5479: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5479: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5480: End If;
5542:
5543: WHEN OTHERS THEN
5544: --dbms_output('Validate_Territory_Record: OTHERS - ' || SQLERRM);
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
5543: WHEN OTHERS THEN
5544: --dbms_output('Validate_Territory_Record: OTHERS - ' || SQLERRM);
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,
5544: --dbms_output('Validate_Territory_Record: OTHERS - ' || SQLERRM);
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
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;
5587: End If;
5588: x_return_status := FND_API.G_RET_STS_ERROR;
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;
5587: End If;
5588: x_return_status := FND_API.G_RET_STS_ERROR;
5589: End If;
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;
5606: End If;
5607: End If;
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;
5606: End If;
5607: End If;
5608: End If;
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;
5622: End If;
5623: End If;
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;
5622: End If;
5623: End If;
5624: End If;
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;
5638: End If;
5639: End If;
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;
5638: End If;
5639: End If;
5640: End If;
5646: --
5647: WHEN OTHERS THEN
5648: --dbms_output('Validate_Foreign_Key: Others exception' || SQLERRM);
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
5647: WHEN OTHERS THEN
5648: --dbms_output('Validate_Foreign_Key: Others exception' || SQLERRM);
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,
5648: --dbms_output('Validate_Foreign_Key: Others exception' || SQLERRM);
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
5687: If p_Terr_Id IS NOT NULL THEN
5688: l_Validate_id := p_Terr_Id;
5689: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
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 ;
5688: l_Validate_id := p_Terr_Id;
5689: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
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;
5689: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
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');
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;
5711: End If;
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;
5711: End If;
5712: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5711: End If;
5712: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5713: End If;
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;
5724: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5724: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5725: End If;
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;
5736: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5736: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5737: End If;
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;
5747: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5747: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5748: End If;
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;
5758: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5758: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5759: End If;
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;
5769: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5769: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5770: End If;
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;
5780: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5780: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
5781: --End If;
5804:
5805: WHEN OTHERS THEN
5806: --dbms_output('Validate_Territory_Usage: OTHERS - ' || SQLERRM);
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
5805: WHEN OTHERS THEN
5806: --dbms_output('Validate_Territory_Usage: OTHERS - ' || SQLERRM);
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,
5806: --dbms_output('Validate_Territory_Usage: OTHERS - ' || SQLERRM);
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
5856: jqtu.qual_type_usg_id = l_qual_Type_Usg_id;
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:
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;
5876: END IF;
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;
5876: END IF;
5877: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5876: END IF;
5877: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5878: End If;
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;
5891: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5891: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5892: End If;
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;
5903: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5903: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5904: End If;
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;
5914: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5914: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5915: End If;
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;
5925: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5925: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5926: End If;
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;
5936: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5936: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5937: End If;
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;
5947: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
5947: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
5948: --End If;
5971: WHEN OTHERS THEN
5972: --dbms_output.put_line('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
5973: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
5972: --dbms_output.put_line('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
5973: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,
5973: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
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;
6041: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
6041: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6042: End If;
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;
6055: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
6055: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6056: End If;
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;
6068: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
6068: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6069: End If;
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;
6079: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
6079: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6080: End If;
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;
6090: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
6090: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6091: End If;
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;
6101: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
6101: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6102: End If;
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;
6112: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
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;
6112: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
6113: --End If;
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:
6141: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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:
6175: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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:
6194: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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:
6219: x_Return_Status := FND_API.G_RET_STS_ERROR ;
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:
6243: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6270: WHEN OTHERS THEN
6271: --dbms_output('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
6272: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
6271: --dbms_output('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
6272: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
6272: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,
6371: OPEN c_chk_template (p_template_terr_id);
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;
6386: --arpatel 07/13 bug#1872642
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;
6408: FOR UPDATE NOWAIT;
6409:
6410: EXCEPTION
6411: WHEN OTHERS THEN
6412: fnd_message.set_name('JTF','JTF_TERR_TEMPLATE_LOCKED');
6413: x_return_status := FND_API.G_RET_STS_ERROR;
6414: END; /* block for validation (4) */
6415:
6416: --dbms_output('Validate_Template_Record: x_return_status = '|| x_return_status);
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;
7839: END IF;
7840:
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;
7839: END IF;
7840:
7841: -- Initialize API return status to success
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;
7858: END IF;
7859:
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;
7858: END IF;
7859:
7860: /* Invoke validation procedures */
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;
8003: END IF;
8004:
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;
8003: END IF;
8004:
8005: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
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;
8127: END IF;
8128:
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;
8127: END IF;
8128:
8129: -- Initialize API return status to success
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;
8226: END IF;
8227:
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;
8226: END IF;
8227:
8228: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
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:
8560: END IF; /* c_chk_uk_violation%FOUND */
8569:
8570: WHEN OTHERS THEN
8571: --dbms_output('Validate_Foreign_Key: Others exception' || SQLERRM);
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
8570: WHEN OTHERS THEN
8571: --dbms_output('Validate_Foreign_Key: Others exception' || SQLERRM);
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,
8571: --dbms_output('Validate_Foreign_Key: Others exception' || SQLERRM);
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
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,
8632: p_data => x_msg_data);
8645:
8646: WHEN OTHERS THEN
8647: --dbms_output('Validate_Foreign_Key: Others exception' || SQLERRM);
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
8646: WHEN OTHERS THEN
8647: --dbms_output('Validate_Foreign_Key: Others exception' || SQLERRM);
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,
8647: --dbms_output('Validate_Foreign_Key: Others exception' || SQLERRM);
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
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:
8713: END IF;
8719:
8720: WHEN OTHERS THEN
8721: --dbms_output('Validate_Num_Winners: Others exception' || SQLERRM);
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
8720: WHEN OTHERS THEN
8721: --dbms_output('Validate_Num_Winners: Others exception' || SQLERRM);
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,
8721: --dbms_output('Validate_Num_Winners: Others exception' || SQLERRM);
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
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:
8777: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
8780: EXCEPTION
8781: WHEN OTHERS THEN
8782: --dbms_output('chk_num_copy_terr: Others exception' || SQLERRM);
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
8781: WHEN OTHERS THEN
8782: --dbms_output('chk_num_copy_terr: Others exception' || SQLERRM);
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,
8782: --dbms_output('chk_num_copy_terr: Others exception' || SQLERRM);
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
9033: );
9034:
9035: /* Debug message */
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:
9034:
9035: /* Debug message */
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;
9035: /* Debug message */
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;
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:
9111: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
9117: --dbms_output.put_line('Validate_Parent: e_Circular_Reference exception' || SQLERRM);
9118:
9119: X_return_status := FND_API.G_RET_STS_ERROR;
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:
9118:
9119: X_return_status := FND_API.G_RET_STS_ERROR;
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
9119: X_return_status := FND_API.G_RET_STS_ERROR;
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,
9130:
9131: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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
9131: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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:
9141: WHEN OTHERS THEN
9142: --dbms_output.put_line('Validate_Parent: Others exception' || SQLERRM);
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
9141: WHEN OTHERS THEN
9142: --dbms_output.put_line('Validate_Parent: Others exception' || SQLERRM);
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,
9142: --dbms_output.put_line('Validate_Parent: Others exception' || SQLERRM);
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