[Home] [Help]
38: -- into Create API was ignored:
39: -- l_terr_id := 0;
40: -- TO
41: -- l_terr_id NUMBER := P_TERR_ALL_REC.TERR_ID;
42: -- 08/08/00 jdochert Removing if statement that causes error when LOW_VALUE_CHAR = FND_API.G_MISS_CHAR
43: -- and ID_USED_FLAG = 'Y": this was an error in logic.
44: -- 08/21/00 jdochert Changing overlap_exists procedure to do an UPPER on comparison operator
45: -- 09/09/00 jdochert Added Unique validation for JTF_TERR_USGS_ALL + JTF_TERR_QTYPE_USGS_ALL
46: -- 09/17/00 jdochert BUG#1408610 FIX
92: ** current_record stores pointer to the current record used during
93: ** the generation process.
94: */
95: TYPE Dynamic_Qual_Rec_Type IS RECORD (
96: Rowid VARCHAR2(50) , -- := FND_API.G_MISS_CHAR,
97: TERR_QUAL_ID NUMBER , -- := FND_API.G_MISS_NUM,
98: LAST_UPDATE_DATE DATE , -- := FND_API.G_MISS_DATE,
99: LAST_UPDATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
100: CREATION_DATE DATE , -- := FND_API.G_MISS_DATE,
93: ** the generation process.
94: */
95: TYPE Dynamic_Qual_Rec_Type IS RECORD (
96: Rowid VARCHAR2(50) , -- := FND_API.G_MISS_CHAR,
97: TERR_QUAL_ID NUMBER , -- := FND_API.G_MISS_NUM,
98: LAST_UPDATE_DATE DATE , -- := FND_API.G_MISS_DATE,
99: LAST_UPDATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
100: CREATION_DATE DATE , -- := FND_API.G_MISS_DATE,
101: CREATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
94: */
95: TYPE Dynamic_Qual_Rec_Type IS RECORD (
96: Rowid VARCHAR2(50) , -- := FND_API.G_MISS_CHAR,
97: TERR_QUAL_ID NUMBER , -- := FND_API.G_MISS_NUM,
98: LAST_UPDATE_DATE DATE , -- := FND_API.G_MISS_DATE,
99: LAST_UPDATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
100: CREATION_DATE DATE , -- := FND_API.G_MISS_DATE,
101: CREATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
102: LAST_UPDATE_LOGIN NUMBER , -- := FND_API.G_MISS_NUM,
95: TYPE Dynamic_Qual_Rec_Type IS RECORD (
96: Rowid VARCHAR2(50) , -- := FND_API.G_MISS_CHAR,
97: TERR_QUAL_ID NUMBER , -- := FND_API.G_MISS_NUM,
98: LAST_UPDATE_DATE DATE , -- := FND_API.G_MISS_DATE,
99: LAST_UPDATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
100: CREATION_DATE DATE , -- := FND_API.G_MISS_DATE,
101: CREATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
102: LAST_UPDATE_LOGIN NUMBER , -- := FND_API.G_MISS_NUM,
103: TERR_ID NUMBER , -- := FND_API.G_MISS_NUM,
96: Rowid VARCHAR2(50) , -- := FND_API.G_MISS_CHAR,
97: TERR_QUAL_ID NUMBER , -- := FND_API.G_MISS_NUM,
98: LAST_UPDATE_DATE DATE , -- := FND_API.G_MISS_DATE,
99: LAST_UPDATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
100: CREATION_DATE DATE , -- := FND_API.G_MISS_DATE,
101: CREATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
102: LAST_UPDATE_LOGIN NUMBER , -- := FND_API.G_MISS_NUM,
103: TERR_ID NUMBER , -- := FND_API.G_MISS_NUM,
104: QUAL_USG_ID NUMBER , -- := FND_API.G_MISS_NUM,
97: TERR_QUAL_ID NUMBER , -- := FND_API.G_MISS_NUM,
98: LAST_UPDATE_DATE DATE , -- := FND_API.G_MISS_DATE,
99: LAST_UPDATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
100: CREATION_DATE DATE , -- := FND_API.G_MISS_DATE,
101: CREATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
102: LAST_UPDATE_LOGIN NUMBER , -- := FND_API.G_MISS_NUM,
103: TERR_ID NUMBER , -- := FND_API.G_MISS_NUM,
104: QUAL_USG_ID NUMBER , -- := FND_API.G_MISS_NUM,
105: USE_TO_NAME_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
98: LAST_UPDATE_DATE DATE , -- := FND_API.G_MISS_DATE,
99: LAST_UPDATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
100: CREATION_DATE DATE , -- := FND_API.G_MISS_DATE,
101: CREATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
102: LAST_UPDATE_LOGIN NUMBER , -- := FND_API.G_MISS_NUM,
103: TERR_ID NUMBER , -- := FND_API.G_MISS_NUM,
104: QUAL_USG_ID NUMBER , -- := FND_API.G_MISS_NUM,
105: USE_TO_NAME_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
106: GENERATE_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
99: LAST_UPDATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
100: CREATION_DATE DATE , -- := FND_API.G_MISS_DATE,
101: CREATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
102: LAST_UPDATE_LOGIN NUMBER , -- := FND_API.G_MISS_NUM,
103: TERR_ID NUMBER , -- := FND_API.G_MISS_NUM,
104: QUAL_USG_ID NUMBER , -- := FND_API.G_MISS_NUM,
105: USE_TO_NAME_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
106: GENERATE_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
107: OVERLAP_ALLOWED_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
100: CREATION_DATE DATE , -- := FND_API.G_MISS_DATE,
101: CREATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
102: LAST_UPDATE_LOGIN NUMBER , -- := FND_API.G_MISS_NUM,
103: TERR_ID NUMBER , -- := FND_API.G_MISS_NUM,
104: QUAL_USG_ID NUMBER , -- := FND_API.G_MISS_NUM,
105: USE_TO_NAME_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
106: GENERATE_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
107: OVERLAP_ALLOWED_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
108: QUALIFIER_MODE VARCHAR2(30) , -- := FND_API.G_MISS_CHAR,
101: CREATED_BY NUMBER , -- := FND_API.G_MISS_NUM,
102: LAST_UPDATE_LOGIN NUMBER , -- := FND_API.G_MISS_NUM,
103: TERR_ID NUMBER , -- := FND_API.G_MISS_NUM,
104: QUAL_USG_ID NUMBER , -- := FND_API.G_MISS_NUM,
105: USE_TO_NAME_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
106: GENERATE_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
107: OVERLAP_ALLOWED_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
108: QUALIFIER_MODE VARCHAR2(30) , -- := FND_API.G_MISS_CHAR,
109: ORG_ID NUMBER -- := FND_API.G_MISS_NUM
102: LAST_UPDATE_LOGIN NUMBER , -- := FND_API.G_MISS_NUM,
103: TERR_ID NUMBER , -- := FND_API.G_MISS_NUM,
104: QUAL_USG_ID NUMBER , -- := FND_API.G_MISS_NUM,
105: USE_TO_NAME_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
106: GENERATE_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
107: OVERLAP_ALLOWED_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
108: QUALIFIER_MODE VARCHAR2(30) , -- := FND_API.G_MISS_CHAR,
109: ORG_ID NUMBER -- := FND_API.G_MISS_NUM
110: , START_RECORD NUMBER
103: TERR_ID NUMBER , -- := FND_API.G_MISS_NUM,
104: QUAL_USG_ID NUMBER , -- := FND_API.G_MISS_NUM,
105: USE_TO_NAME_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
106: GENERATE_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
107: OVERLAP_ALLOWED_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
108: QUALIFIER_MODE VARCHAR2(30) , -- := FND_API.G_MISS_CHAR,
109: ORG_ID NUMBER -- := FND_API.G_MISS_NUM
110: , START_RECORD NUMBER
111: , NUM_RECORDS NUMBER
104: QUAL_USG_ID NUMBER , -- := FND_API.G_MISS_NUM,
105: USE_TO_NAME_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
106: GENERATE_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
107: OVERLAP_ALLOWED_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
108: QUALIFIER_MODE VARCHAR2(30) , -- := FND_API.G_MISS_CHAR,
109: ORG_ID NUMBER -- := FND_API.G_MISS_NUM
110: , START_RECORD NUMBER
111: , NUM_RECORDS NUMBER
112: , CURRENT_VALUE_SET NUMBER
105: USE_TO_NAME_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
106: GENERATE_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
107: OVERLAP_ALLOWED_FLAG VARCHAR2(1) , -- := FND_API.G_MISS_CHAR,
108: QUALIFIER_MODE VARCHAR2(30) , -- := FND_API.G_MISS_CHAR,
109: ORG_ID NUMBER -- := FND_API.G_MISS_NUM
110: , START_RECORD NUMBER
111: , NUM_RECORDS NUMBER
112: , CURRENT_VALUE_SET NUMBER
113: , CURRENT_RECORD NUMBER );
138: -- p_Terr_Values_Tbl Terr_Values_Tbl_Type := G_Miss_Terr_Values_Tbl
139: --
140: -- Optional
141: -- Parameter Name Data Type Default
142: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
143: -- p_Commit VARCHAR2 := FND_API.G_FALSE
144: -- p_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL,
145: --
146: -- OUT :
139: --
140: -- Optional
141: -- Parameter Name Data Type Default
142: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
143: -- p_Commit VARCHAR2 := FND_API.G_FALSE
144: -- p_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL,
145: --
146: -- OUT :
147: -- Parameter Name Data Type
140: -- Optional
141: -- Parameter Name Data Type Default
142: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
143: -- p_Commit VARCHAR2 := FND_API.G_FALSE
144: -- p_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL,
145: --
146: -- OUT :
147: -- Parameter Name Data Type
148: -- x_Return_Status VARCHAR2(1)
164: -- End of Comments
165: --
166: PROCEDURE Create_Territory
167: (p_Api_Version_Number IN NUMBER,
168: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
169: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
171: x_Return_Status OUT NOCOPY VARCHAR2,
172: x_Msg_Count OUT NOCOPY NUMBER,
165: --
166: PROCEDURE Create_Territory
167: (p_Api_Version_Number IN NUMBER,
168: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
169: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
171: x_Return_Status OUT NOCOPY VARCHAR2,
172: x_Msg_Count OUT NOCOPY NUMBER,
173: x_Msg_Data OUT NOCOPY VARCHAR2,
166: PROCEDURE Create_Territory
167: (p_Api_Version_Number IN NUMBER,
168: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
169: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
171: x_Return_Status OUT NOCOPY VARCHAR2,
172: x_Msg_Count OUT NOCOPY NUMBER,
173: x_Msg_Data OUT NOCOPY VARCHAR2,
174: p_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec,
214: -- Standard Start of API savepoint
215: SAVEPOINT CREATE_TERRITORY_PVT;
216:
217: -- Standard call to check for call compatibility.
218: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
219: p_api_version_number,
220: l_api_name,
221: G_PKG_NAME)
222: THEN
219: p_api_version_number,
220: l_api_name,
221: G_PKG_NAME)
222: THEN
223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
224: END IF;
225:
226: -- Initialize message list if p_init_msg_list is set to TRUE.
227: IF FND_API.to_Boolean( p_init_msg_list ) THEN
223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
224: END IF;
225:
226: -- Initialize message list if p_init_msg_list is set to TRUE.
227: IF FND_API.to_Boolean( p_init_msg_list ) THEN
228: FND_MSG_PUB.initialize;
229: END IF;
230:
231: -- Debug Message
236: FND_MSG_PUB.Add;
237: END IF;
238:
239: -- Initialize API return status to success
240: x_return_status := FND_API.G_RET_STS_SUCCESS;
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
244: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
245: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_USAGE');
246: FND_MSG_PUB.ADD;
247: END IF;
248: x_return_status := FND_API.G_RET_STS_ERROR;
249: raise FND_API.G_EXC_ERROR;
250: END IF;
251: --
252: --dbms_output('About to check p_Terr_Values_Tbl.count - ' || to_char(p_Terr_Values_Tbl.count));
245: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_USAGE');
246: FND_MSG_PUB.ADD;
247: END IF;
248: x_return_status := FND_API.G_RET_STS_ERROR;
249: raise FND_API.G_EXC_ERROR;
250: END IF;
251: --
252: --dbms_output('About to check p_Terr_Values_Tbl.count - ' || to_char(p_Terr_Values_Tbl.count));
253: --
258: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
259: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_QUAL_USG');
260: FND_MSG_PUB.ADD;
261: END IF;
262: x_return_status := FND_API.G_RET_STS_ERROR;
263: raise FND_API.G_EXC_ERROR;
264: END IF;
265: */
266: --
259: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_QUAL_USG');
260: FND_MSG_PUB.ADD;
261: END IF;
262: x_return_status := FND_API.G_RET_STS_ERROR;
263: raise FND_API.G_EXC_ERROR;
264: END IF;
265: */
266: --
267: --
294:
295: x_Terr_Usgs_Out_Tbl := l_Terr_Usgs_Out_Tbl;
296: x_Terr_QualTypeUsgs_Out_Tbl := l_Terr_QualTypeUsgs_Out_Tbl;
297:
298: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
299: X_Return_Status := l_return_status;
300: RAISE FND_API.G_EXC_ERROR;
301: END IF;
302:
296: x_Terr_QualTypeUsgs_Out_Tbl := l_Terr_QualTypeUsgs_Out_Tbl;
297:
298: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
299: X_Return_Status := l_return_status;
300: RAISE FND_API.G_EXC_ERROR;
301: END IF;
302:
303: --dbms_output.put_line('Value of x_return_status='|| x_return_status);
304:
307: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
308: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_QUAL');
309: -- FND_MSG_PUB.ADD;
310: -- END IF;
311: -- x_return_status := FND_API.G_RET_STS_ERROR;
312: -- raise FND_API.G_EXC_ERROR;
313: --END IF;
314: --
315:
308: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_QUAL');
309: -- FND_MSG_PUB.ADD;
310: -- END IF;
311: -- x_return_status := FND_API.G_RET_STS_ERROR;
312: -- raise FND_API.G_EXC_ERROR;
313: --END IF;
314: --
315:
316: IF (p_Terr_Qual_Tbl.COUNT > 0 ) THEN
341: x_Terr_Qual_Out_Tbl(nvl(x_Terr_Qual_Out_Tbl.first, 0)+1) := l_Terr_Qual_Out_Tbl(1);
342: -- Save the terr qualifier id
343: l_Terr_Qual_Id := l_Terr_Qual_Out_Tbl(1).terr_qual_id;
344:
345: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
346: X_Return_Status := l_return_status;
347: RAISE FND_API.G_EXC_ERROR;
348: END IF;
349:
343: l_Terr_Qual_Id := l_Terr_Qual_Out_Tbl(1).terr_qual_id;
344:
345: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
346: X_Return_Status := l_return_status;
347: RAISE FND_API.G_EXC_ERROR;
348: END IF;
349:
350: -- JDOCHERT 07/27 Territory Values no longer required
351: IF (p_Terr_Values_Tbl.COUNT > 0) THEN
404:
405: END IF;
406:
407: --
408: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
409: X_Return_Status := l_return_status;
410: RAISE FND_API.G_EXC_ERROR;
411: END IF;
412:
406:
407: --
408: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
409: X_Return_Status := l_return_status;
410: RAISE FND_API.G_EXC_ERROR;
411: END IF;
412:
413: END IF; /* IF (l_terr_values_tbl.COUNT > 0) */
414:
419: End LOOP;
420:
421: END IF; /* p_Terr_Qual_Tbl.count > 0 */
422:
423: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
424: X_Return_Status := l_return_status;
425: RAISE FND_API.G_EXC_ERROR;
426: END IF;
427:
421: END IF; /* p_Terr_Qual_Tbl.count > 0 */
422:
423: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
424: X_Return_Status := l_return_status;
425: RAISE FND_API.G_EXC_ERROR;
426: END IF;
427:
428: --If the program reached here, that mena evry thing went smooth
429: x_return_status := FND_API.G_RET_STS_SUCCESS;
425: RAISE FND_API.G_EXC_ERROR;
426: END IF;
427:
428: --If the program reached here, that mena evry thing went smooth
429: x_return_status := FND_API.G_RET_STS_SUCCESS;
430:
431: -- Debug Message
432: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
433: THEN
442: p_data => x_msg_data
443: );
444:
445: -- Standard check for p_commit
446: IF FND_API.to_Boolean( p_commit )
447: THEN
448: COMMIT WORK;
449: END IF;
450: --
449: END IF;
450: --
451: EXCEPTION
452: --
453: WHEN FND_API.G_EXC_ERROR THEN
454: --dbms_output('Create_Territory PVT: FND_API.G_EXC_ERROR');
455: ROLLBACK TO CREATE_TERRITORY_PVT;
456: x_return_status := FND_API.G_RET_STS_ERROR ;
457: FND_MSG_PUB.Count_And_Get
450: --
451: EXCEPTION
452: --
453: WHEN FND_API.G_EXC_ERROR THEN
454: --dbms_output('Create_Territory PVT: FND_API.G_EXC_ERROR');
455: ROLLBACK TO CREATE_TERRITORY_PVT;
456: x_return_status := FND_API.G_RET_STS_ERROR ;
457: FND_MSG_PUB.Count_And_Get
458: ( p_count => x_msg_count,
452: --
453: WHEN FND_API.G_EXC_ERROR THEN
454: --dbms_output('Create_Territory PVT: FND_API.G_EXC_ERROR');
455: ROLLBACK TO CREATE_TERRITORY_PVT;
456: x_return_status := FND_API.G_RET_STS_ERROR ;
457: FND_MSG_PUB.Count_And_Get
458: ( p_count => x_msg_count,
459: p_data => x_msg_data
460: );
458: ( p_count => x_msg_count,
459: p_data => x_msg_data
460: );
461:
462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
463: --dbms_output('Create_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
464: ROLLBACK TO CREATE_TERRITORY_PVT;
465: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
466: FND_MSG_PUB.Count_And_Get
459: p_data => x_msg_data
460: );
461:
462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
463: --dbms_output('Create_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
464: ROLLBACK TO CREATE_TERRITORY_PVT;
465: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
466: FND_MSG_PUB.Count_And_Get
467: ( p_count => x_msg_count,
461:
462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
463: --dbms_output('Create_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
464: ROLLBACK TO CREATE_TERRITORY_PVT;
465: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
466: FND_MSG_PUB.Count_And_Get
467: ( p_count => x_msg_count,
468: p_data => x_msg_data
469: );
470:
471: WHEN OTHERS THEN
472: --dbms_output('Create_Territory PVT: OTHERS - ' || SQLERRM);
473: ROLLBACK TO CREATE_TERRITORY_PVT;
474: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
475: FND_MSG_PUB.Count_And_Get
476: ( p_count => x_msg_count,
477: p_data => x_msg_data
478: );
499: -- p_Terr_Id NUMBER
500: --
501: -- Optional
502: -- Parameter Name Data Type Default
503: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
504: -- p_Commit VARCHAR2 FND_API.G_FALSE
505: -- p_validation_level NUMBER FND_API.G_VALID_LEVEL_FULL,
506: --
507: -- OUT :
500: --
501: -- Optional
502: -- Parameter Name Data Type Default
503: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
504: -- p_Commit VARCHAR2 FND_API.G_FALSE
505: -- p_validation_level NUMBER FND_API.G_VALID_LEVEL_FULL,
506: --
507: -- OUT :
508: -- Parameter Name Data Type
501: -- Optional
502: -- Parameter Name Data Type Default
503: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
504: -- p_Commit VARCHAR2 FND_API.G_FALSE
505: -- p_validation_level NUMBER FND_API.G_VALID_LEVEL_FULL,
506: --
507: -- OUT :
508: -- Parameter Name Data Type
509: -- X_Return_Status VARCHAR2(1)
517: -- End of Comments
518: --
519: PROCEDURE Delete_Territory
520: (p_Api_Version_Number IN NUMBER,
521: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
522: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
523: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
524: X_Return_Status OUT NOCOPY VARCHAR2,
525: X_Msg_Count OUT NOCOPY NUMBER,
518: --
519: PROCEDURE Delete_Territory
520: (p_Api_Version_Number IN NUMBER,
521: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
522: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
523: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
524: X_Return_Status OUT NOCOPY VARCHAR2,
525: X_Msg_Count OUT NOCOPY NUMBER,
526: X_Msg_Data OUT NOCOPY VARCHAR2,
519: PROCEDURE Delete_Territory
520: (p_Api_Version_Number IN NUMBER,
521: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
522: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
523: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
524: X_Return_Status OUT NOCOPY VARCHAR2,
525: X_Msg_Count OUT NOCOPY NUMBER,
526: X_Msg_Data OUT NOCOPY VARCHAR2,
527: p_Terr_Id IN NUMBER)
558: -- Standard Start of API savepoint
559: SAVEPOINT Delete_Territory_Pvt;
560:
561: -- Standard call to check for call compatibility.
562: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
563: p_api_version_number,
564: l_api_name,
565: G_PKG_NAME)
566: THEN
563: p_api_version_number,
564: l_api_name,
565: G_PKG_NAME)
566: THEN
567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
568: END IF;
569:
570: -- Initialize message list if p_init_msg_list is set to TRUE.
571: IF FND_API.to_Boolean( p_init_msg_list ) THEN
567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
568: END IF;
569:
570: -- Initialize message list if p_init_msg_list is set to TRUE.
571: IF FND_API.to_Boolean( p_init_msg_list ) THEN
572: FND_MSG_PUB.initialize;
573: END IF;
574:
575: -- Debug Message
580: FND_MSG_PUB.Add;
581: END IF;
582:
583: -- Initialize API return status to success
584: x_return_status := FND_API.G_RET_STS_SUCCESS;
585:
586: -- Get all the Territories in the Hierarchy
587: FOR c in c_Terr LOOP
588: --
638: p_data => x_msg_data
639: );
640:
641: -- Standard check for p_commit
642: IF FND_API.to_Boolean( p_commit )
643: THEN
644: COMMIT WORK;
645: END IF;
646: --
647: --dbms_output('Delete_Territory PVT: Exiting API');
648:
649: EXCEPTION
650: --
651: WHEN FND_API.G_EXC_ERROR THEN
652: --dbms_output('Delete_Territory PVT: FND_API.G_EXC_ERROR');
653: --
654: ROLLBACK TO DELETE_TERRITORY_PVT;
655: x_return_status := FND_API.G_RET_STS_ERROR ;
648:
649: EXCEPTION
650: --
651: WHEN FND_API.G_EXC_ERROR THEN
652: --dbms_output('Delete_Territory PVT: FND_API.G_EXC_ERROR');
653: --
654: ROLLBACK TO DELETE_TERRITORY_PVT;
655: x_return_status := FND_API.G_RET_STS_ERROR ;
656: FND_MSG_PUB.Count_And_Get
651: WHEN FND_API.G_EXC_ERROR THEN
652: --dbms_output('Delete_Territory PVT: FND_API.G_EXC_ERROR');
653: --
654: ROLLBACK TO DELETE_TERRITORY_PVT;
655: x_return_status := FND_API.G_RET_STS_ERROR ;
656: FND_MSG_PUB.Count_And_Get
657: ( p_count => x_msg_count,
658: p_data => x_msg_data
659: );
657: ( p_count => x_msg_count,
658: p_data => x_msg_data
659: );
660:
661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
662: --dbms_output('Delete_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
663: ROLLBACK TO DELETE_TERRITORY_PVT;
664: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
665: FND_MSG_PUB.Count_And_Get
658: p_data => x_msg_data
659: );
660:
661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
662: --dbms_output('Delete_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
663: ROLLBACK TO DELETE_TERRITORY_PVT;
664: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
665: FND_MSG_PUB.Count_And_Get
666: ( p_count => x_msg_count,
660:
661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
662: --dbms_output('Delete_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
663: ROLLBACK TO DELETE_TERRITORY_PVT;
664: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
665: FND_MSG_PUB.Count_And_Get
666: ( p_count => x_msg_count,
667: p_data => x_msg_data
668: );
669:
670: WHEN OTHERS THEN
671: --dbms_output('Delete_Territory PVT: OTHERS - ' || SQLERRM);
672: ROLLBACK TO DELETE_TERRITORY_PVT;
673: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
674: FND_MSG_PUB.Count_And_Get
675: ( p_count => x_msg_count,
676: p_data => x_msg_data
677: );
700: -- p_Terr_Values_Tbl Terr_Values_Tbl_Type := G_Miss_Terr_Values_Tbl
701: --
702: -- Optional
703: -- Parameter Name Data Type Default
704: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
705: -- p_Commit VARCHAR2 := FND_API.G_FALSE
706: -- p_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL,
707: --
708: -- OUT :
701: --
702: -- Optional
703: -- Parameter Name Data Type Default
704: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
705: -- p_Commit VARCHAR2 := FND_API.G_FALSE
706: -- p_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL,
707: --
708: -- OUT :
709: -- Parameter Name Data Type
702: -- Optional
703: -- Parameter Name Data Type Default
704: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
705: -- p_Commit VARCHAR2 := FND_API.G_FALSE
706: -- p_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL,
707: --
708: -- OUT :
709: -- Parameter Name Data Type
710: -- X_Return_Status VARCHAR2(1)
723: -- End of Comments
724: --
725: PROCEDURE Update_Territory
726: (p_Api_Version_Number IN NUMBER,
727: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
728: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
729: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
730: X_Return_Status OUT NOCOPY VARCHAR2,
731: X_Msg_Count OUT NOCOPY NUMBER,
724: --
725: PROCEDURE Update_Territory
726: (p_Api_Version_Number IN NUMBER,
727: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
728: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
729: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
730: X_Return_Status OUT NOCOPY VARCHAR2,
731: X_Msg_Count OUT NOCOPY NUMBER,
732: X_Msg_Data OUT NOCOPY VARCHAR2,
725: PROCEDURE Update_Territory
726: (p_Api_Version_Number IN NUMBER,
727: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
728: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
729: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
730: X_Return_Status OUT NOCOPY VARCHAR2,
731: X_Msg_Count OUT NOCOPY NUMBER,
732: X_Msg_Data OUT NOCOPY VARCHAR2,
733: p_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec,
751: -- Standard Start of API savepoint
752: SAVEPOINT UPDATE_TERRITORY_PVT;
753:
754: -- Standard call to check for call compatibility.
755: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
756: p_api_version_number,
757: l_api_name,
758: G_PKG_NAME)
759: THEN
756: p_api_version_number,
757: l_api_name,
758: G_PKG_NAME)
759: THEN
760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
761: END IF;
762:
763: -- Initialize message list if p_init_msg_list is set to TRUE.
764: IF FND_API.to_Boolean( p_init_msg_list ) THEN
760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
761: END IF;
762:
763: -- Initialize message list if p_init_msg_list is set to TRUE.
764: IF FND_API.to_Boolean( p_init_msg_list ) THEN
765: FND_MSG_PUB.initialize;
766: END IF;
767:
768: -- Debug Message
773: FND_MSG_PUB.Add;
774: END IF;
775:
776: -- Initialize API return status to success
777: x_return_status := FND_API.G_RET_STS_SUCCESS;
778: --
779: -- API body
780: --
781: --Check whether the Territory_Id is Valid
780: --
781: --Check whether the Territory_Id is Valid
782: -- Parent Terr ID can't be null.
783: If (p_Terr_All_Rec.TERR_ID is null) OR
784: (p_Terr_All_Rec.TERR_ID = FND_API.G_MISS_NUM)
785: Then
786: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
787: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
788: FND_MESSAGE.Set_Token('COL_NAME', 'TERR_ID' );
787: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
788: FND_MESSAGE.Set_Token('COL_NAME', 'TERR_ID' );
789: FND_MSG_PUB.ADD;
790: END IF;
791: x_Return_Status := FND_API.G_RET_STS_ERROR ;
792: RAISE FND_API.G_EXC_ERROR;
793: END IF;
794:
795: If p_Terr_All_Rec.Terr_Id <> FND_API.G_MISS_NUM Then
788: FND_MESSAGE.Set_Token('COL_NAME', 'TERR_ID' );
789: FND_MSG_PUB.ADD;
790: END IF;
791: x_Return_Status := FND_API.G_RET_STS_ERROR ;
792: RAISE FND_API.G_EXC_ERROR;
793: END IF;
794:
795: If p_Terr_All_Rec.Terr_Id <> FND_API.G_MISS_NUM Then
796: --dbms_output('Update_Territory PVT: Before Calling Update_territory_Record');
791: x_Return_Status := FND_API.G_RET_STS_ERROR ;
792: RAISE FND_API.G_EXC_ERROR;
793: END IF;
794:
795: If p_Terr_All_Rec.Terr_Id <> FND_API.G_MISS_NUM Then
796: --dbms_output('Update_Territory PVT: Before Calling Update_territory_Record');
797: Update_territory_Record( P_Api_Version_Number => P_Api_Version_Number,
798: P_Init_Msg_List => P_Init_Msg_List,
799: P_Commit => P_Commit,
802: X_Return_Status => l_Return_Status,
803: X_Msg_Count => x_Msg_Count,
804: X_Msg_Data => x_Msg_Data,
805: X_Terr_All_Out_rec => X_Terr_All_Out_Rec);
806: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
807: RAISE FND_API.G_EXC_ERROR;
808: END IF;
809: --
810: End If;
803: X_Msg_Count => x_Msg_Count,
804: X_Msg_Data => x_Msg_Data,
805: X_Terr_All_Out_rec => X_Terr_All_Out_Rec);
806: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
807: RAISE FND_API.G_EXC_ERROR;
808: END IF;
809: --
810: End If;
811:
822: X_Return_Status => l_Return_Status,
823: X_Msg_Count => x_Msg_Count,
824: X_Msg_Data => x_Msg_Data,
825: X_Terr_Usgs_Out_Tbl => X_Terr_Usgs_Out_Tbl);
826: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
827: RAISE FND_API.G_EXC_ERROR;
828: END IF;
829: --
830: End If;
823: X_Msg_Count => x_Msg_Count,
824: X_Msg_Data => x_Msg_Data,
825: X_Terr_Usgs_Out_Tbl => X_Terr_Usgs_Out_Tbl);
826: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
827: RAISE FND_API.G_EXC_ERROR;
828: END IF;
829: --
830: End If;
831: */
845: X_Return_Status => l_Return_Status,
846: X_Msg_Count => x_Msg_Count,
847: X_Msg_Data => x_Msg_Data,
848: X_Terr_QualTypeUsgs_Out_Tbl => X_Terr_QualTypeUsgs_Out_Tbl);
849: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
850: RAISE FND_API.G_EXC_ERROR;
851: END IF;
852: --
853: End If;
846: X_Msg_Count => x_Msg_Count,
847: X_Msg_Data => x_Msg_Data,
848: X_Terr_QualTypeUsgs_Out_Tbl => X_Terr_QualTypeUsgs_Out_Tbl);
849: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
850: RAISE FND_API.G_EXC_ERROR;
851: END IF;
852: --
853: End If;
854: */
865: X_Return_Status => l_Return_Status,
866: X_Msg_Count => x_Msg_Count,
867: X_Msg_Data => x_Msg_Data,
868: X_Terr_Qual_Out_Tbl => X_Terr_Qual_Out_Tbl);
869: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
870: RAISE FND_API.G_EXC_ERROR;
871: END IF;
872: --
873: End If;
866: X_Msg_Count => x_Msg_Count,
867: X_Msg_Data => x_Msg_Data,
868: X_Terr_Qual_Out_Tbl => X_Terr_Qual_Out_Tbl);
869: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
870: RAISE FND_API.G_EXC_ERROR;
871: END IF;
872: --
873: End If;
874:
883: X_Return_Status => l_Return_Status,
884: X_Msg_Count => x_Msg_Count,
885: X_Msg_Data => x_Msg_Data,
886: X_Terr_Value_Out_Tbl => X_Terr_Values_Out_Tbl);
887: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
888: RAISE FND_API.G_EXC_ERROR;
889: END IF;
890: End If;
891: --
884: X_Msg_Count => x_Msg_Count,
885: X_Msg_Data => x_Msg_Data,
886: X_Terr_Value_Out_Tbl => X_Terr_Values_Out_Tbl);
887: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
888: RAISE FND_API.G_EXC_ERROR;
889: END IF;
890: End If;
891: --
892: */
904: p_data => x_msg_data
905: );
906:
907: -- Standard check for p_commit
908: IF FND_API.to_Boolean( p_commit )
909: THEN
910: COMMIT WORK;
911: END IF;
912: --
914:
915: --
916: EXCEPTION
917: --
918: WHEN FND_API.G_EXC_ERROR THEN
919: --dbms_output('Update_Territory PVT: FND_API.G_EXC_ERROR');
920: ROLLBACK TO UPDATE_TERRITORY_PVT;
921: x_return_status := FND_API.G_RET_STS_ERROR ;
922: FND_MSG_PUB.Count_And_Get
915: --
916: EXCEPTION
917: --
918: WHEN FND_API.G_EXC_ERROR THEN
919: --dbms_output('Update_Territory PVT: FND_API.G_EXC_ERROR');
920: ROLLBACK TO UPDATE_TERRITORY_PVT;
921: x_return_status := FND_API.G_RET_STS_ERROR ;
922: FND_MSG_PUB.Count_And_Get
923: ( p_count => x_msg_count,
917: --
918: WHEN FND_API.G_EXC_ERROR THEN
919: --dbms_output('Update_Territory PVT: FND_API.G_EXC_ERROR');
920: ROLLBACK TO UPDATE_TERRITORY_PVT;
921: x_return_status := FND_API.G_RET_STS_ERROR ;
922: FND_MSG_PUB.Count_And_Get
923: ( p_count => x_msg_count,
924: p_data => x_msg_data
925: );
923: ( p_count => x_msg_count,
924: p_data => x_msg_data
925: );
926:
927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
928: --dbms_output('Update_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
929: ROLLBACK TO UPDATE_TERRITORY_PVT;
930: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
931: FND_MSG_PUB.Count_And_Get
924: p_data => x_msg_data
925: );
926:
927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
928: --dbms_output('Update_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
929: ROLLBACK TO UPDATE_TERRITORY_PVT;
930: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
931: FND_MSG_PUB.Count_And_Get
932: ( p_count => x_msg_count,
926:
927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
928: --dbms_output('Update_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
929: ROLLBACK TO UPDATE_TERRITORY_PVT;
930: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
931: FND_MSG_PUB.Count_And_Get
932: ( p_count => x_msg_count,
933: p_data => x_msg_data
934: );
935:
936: WHEN OTHERS THEN
937: --dbms_output('Update_Territory PVT: OTHERS - ' || SQLERRM);
938: ROLLBACK TO UPDATE_TERRITORY_PVT;
939: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
940: FND_MSG_PUB.Count_And_Get
941: ( p_count => x_msg_count,
942: p_data => x_msg_data
943: );
963: -- p_Terr_Id NUMBER
964: --
965: -- Optional
966: -- Parameter Name Data Type Default
967: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
968: -- p_Commit VARCHAR2 FND_API.G_FALSE
969: -- p_validation_level NUMBER FND_API.G_VALID_LEVEL_FULL,
970: --
971: -- OUT :
964: --
965: -- Optional
966: -- Parameter Name Data Type Default
967: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
968: -- p_Commit VARCHAR2 FND_API.G_FALSE
969: -- p_validation_level NUMBER FND_API.G_VALID_LEVEL_FULL,
970: --
971: -- OUT :
972: -- Parameter Name Data Type
965: -- Optional
966: -- Parameter Name Data Type Default
967: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
968: -- p_Commit VARCHAR2 FND_API.G_FALSE
969: -- p_validation_level NUMBER FND_API.G_VALID_LEVEL_FULL,
970: --
971: -- OUT :
972: -- Parameter Name Data Type
973: -- x_Return_Status VARCHAR2(1)
981: -- End of Comments
982: --
983: PROCEDURE Deactivate_Territory
984: (p_api_version_number IN NUMBER,
985: p_INit_msg_list IN VARCHAR2 := FND_API.G_FALSE,
986: p_commit IN VARCHAR2 := FND_API.G_FALSE,
987: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
988: x_return_status OUT NOCOPY VARCHAR2,
989: x_msg_count OUT NOCOPY NUMBER,
982: --
983: PROCEDURE Deactivate_Territory
984: (p_api_version_number IN NUMBER,
985: p_INit_msg_list IN VARCHAR2 := FND_API.G_FALSE,
986: p_commit IN VARCHAR2 := FND_API.G_FALSE,
987: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
988: x_return_status OUT NOCOPY VARCHAR2,
989: x_msg_count OUT NOCOPY NUMBER,
990: x_msg_data OUT NOCOPY VARCHAR2,
983: PROCEDURE Deactivate_Territory
984: (p_api_version_number IN NUMBER,
985: p_INit_msg_list IN VARCHAR2 := FND_API.G_FALSE,
986: p_commit IN VARCHAR2 := FND_API.G_FALSE,
987: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
988: x_return_status OUT NOCOPY VARCHAR2,
989: x_msg_count OUT NOCOPY NUMBER,
990: x_msg_data OUT NOCOPY VARCHAR2,
991: P_terr_Id IN NUMBER)
1056: -- Standard Start of API savepoint
1057: SAVEPOINT DEACTIVATE_TERRITORY_PVT;
1058:
1059: -- Standard call to check for call compatibility.
1060: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1061: p_api_version_number,
1062: l_api_name,
1063: G_PKG_NAME)
1064: THEN
1061: p_api_version_number,
1062: l_api_name,
1063: G_PKG_NAME)
1064: THEN
1065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1066: END IF;
1067:
1068: -- Initialize message list if p_init_msg_list is set to TRUE.
1069: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1066: END IF;
1067:
1068: -- Initialize message list if p_init_msg_list is set to TRUE.
1069: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1070: FND_MSG_PUB.initialize;
1071: END IF;
1072:
1073: -- Debug Message
1078: FND_MSG_PUB.Add;
1079: END IF;
1080:
1081: -- Initialize API return status to success
1082: x_return_status := FND_API.G_RET_STS_SUCCESS;
1083: --
1084: -- API body
1085: --
1086: -- Initialize API return status to SUCCESS
1083: --
1084: -- API body
1085: --
1086: -- Initialize API return status to SUCCESS
1087: x_return_status := FND_API.G_RET_STS_SUCCESS;
1088:
1089: --dbms_output('Deactivate_Territory PVT: opening cursor C_GetTerrTypeUsage');
1090: OPEN C_GetTerritory( P_Terr_Id);
1091: FETCH C_GetTerritory into
1143: FND_MESSAGE.Set_Name('JTF', 'API_MISSING_UPDATE_TARGET');
1144: FND_MESSAGE.Set_Token('INFO', 'TERRITORY', FALSE);
1145: FND_MSG_PUB.Add;
1146: END IF;
1147: raise FND_API.G_EXC_ERROR;
1148: End if;
1149: CLOSE C_GetTerritory;
1150:
1151: --dbms_output('Deactivate_Territory PVT: Before Calling JTF_TERR_PKG.Update_Row');
1196: x_org_id => l_ref_terr_all_rec.ORG_ID,
1197: x_num_winners => l_ref_terr_all_rec.NUM_WINNERS,
1198: x_num_qual => l_ref_terr_all_rec.NUM_QUAL );
1199:
1200: X_return_status := FND_API.G_RET_STS_SUCCESS;
1201:
1202: -- Debug Message
1203: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1204: THEN
1213: p_data => x_msg_data
1214: );
1215:
1216: -- Standard check for p_commit
1217: IF FND_API.to_Boolean( p_commit )
1218: THEN
1219: COMMIT WORK;
1220: END IF;
1221: --
1220: END IF;
1221: --
1222: --dbms_output('Deactivate_Territory PVT: Exiting API');
1223: EXCEPTION
1224: WHEN FND_API.G_EXC_ERROR THEN
1225: --dbms_output('Deactivate_Territory PVT: FND_API.G_EXC_ERROR');
1226: ROLLBACK TO DEACTIVATE_TERRITORY_PVT;
1227: x_return_status := FND_API.G_RET_STS_ERROR ;
1228: FND_MSG_PUB.Count_And_Get
1221: --
1222: --dbms_output('Deactivate_Territory PVT: Exiting API');
1223: EXCEPTION
1224: WHEN FND_API.G_EXC_ERROR THEN
1225: --dbms_output('Deactivate_Territory PVT: FND_API.G_EXC_ERROR');
1226: ROLLBACK TO DEACTIVATE_TERRITORY_PVT;
1227: x_return_status := FND_API.G_RET_STS_ERROR ;
1228: FND_MSG_PUB.Count_And_Get
1229: ( p_count => x_msg_count,
1223: EXCEPTION
1224: WHEN FND_API.G_EXC_ERROR THEN
1225: --dbms_output('Deactivate_Territory PVT: FND_API.G_EXC_ERROR');
1226: ROLLBACK TO DEACTIVATE_TERRITORY_PVT;
1227: x_return_status := FND_API.G_RET_STS_ERROR ;
1228: FND_MSG_PUB.Count_And_Get
1229: ( p_count => x_msg_count,
1230: p_data => x_msg_data
1231: );
1229: ( p_count => x_msg_count,
1230: p_data => x_msg_data
1231: );
1232:
1233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1234: --dbms_output('Deactivate_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
1235: ROLLBACK TO DEACTIVATE_TERRITORY_PVT;
1236: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1237: FND_MSG_PUB.Count_And_Get
1230: p_data => x_msg_data
1231: );
1232:
1233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1234: --dbms_output('Deactivate_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
1235: ROLLBACK TO DEACTIVATE_TERRITORY_PVT;
1236: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1237: FND_MSG_PUB.Count_And_Get
1238: ( p_count => x_msg_count,
1232:
1233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1234: --dbms_output('Deactivate_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
1235: ROLLBACK TO DEACTIVATE_TERRITORY_PVT;
1236: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1237: FND_MSG_PUB.Count_And_Get
1238: ( p_count => x_msg_count,
1239: p_data => x_msg_data
1240: );
1241:
1242: WHEN OTHERS THEN
1243: --dbms_output('Deactivate_Territory PVT: OTHERS - ' || SQLERRM);
1244: ROLLBACK TO DEACTIVATE_TERRITORY_PVT;
1245: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1246: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1247: THEN
1248: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,
1249: 'Others exception inside Deactivate_Territory'
1272: -- P_Terr_QualTypeUsgs_Tbl Terr_QualTypeUsgs_Tbl_Type := G_Miss_Terr_QualTypeUsgs_Tbl
1273: --
1274: -- Optional
1275: -- Parameter Name Data Type Default
1276: -- P_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
1277: -- P_Commit VARCHAR2 := FND_API.G_FALSE
1278: -- p_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL,
1279: --
1280: -- OUT :
1273: --
1274: -- Optional
1275: -- Parameter Name Data Type Default
1276: -- P_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
1277: -- P_Commit VARCHAR2 := FND_API.G_FALSE
1278: -- p_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL,
1279: --
1280: -- OUT :
1281: -- Parameter Name Data Type
1274: -- Optional
1275: -- Parameter Name Data Type Default
1276: -- P_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
1277: -- P_Commit VARCHAR2 := FND_API.G_FALSE
1278: -- p_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL,
1279: --
1280: -- OUT :
1281: -- Parameter Name Data Type
1282: -- X_Return_Status VARCHAR2(1)
1293: -- End of Comments
1294: --
1295: PROCEDURE Create_Territory_Header
1296: (P_Api_Version_Number IN NUMBER,
1297: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1298: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1299: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1300: P_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec,
1301: P_Terr_Usgs_Tbl IN Terr_Usgs_Tbl_Type := G_MISS_Terr_Usgs_Tbl,
1294: --
1295: PROCEDURE Create_Territory_Header
1296: (P_Api_Version_Number IN NUMBER,
1297: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1298: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1299: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1300: P_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec,
1301: P_Terr_Usgs_Tbl IN Terr_Usgs_Tbl_Type := G_MISS_Terr_Usgs_Tbl,
1302: -- P_Terr_QualTypeUsgs_Tbl IN Terr_QualTypeUsgs_Tbl_Type := G_Miss_Terr_QualTypeUsgs_Tbl,
1295: PROCEDURE Create_Territory_Header
1296: (P_Api_Version_Number IN NUMBER,
1297: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1298: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1299: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1300: P_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec,
1301: P_Terr_Usgs_Tbl IN Terr_Usgs_Tbl_Type := G_MISS_Terr_Usgs_Tbl,
1302: -- P_Terr_QualTypeUsgs_Tbl IN Terr_QualTypeUsgs_Tbl_Type := G_Miss_Terr_QualTypeUsgs_Tbl,
1303: X_Return_Status OUT NOCOPY VARCHAR2,
1338: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
1339: FND_MSG_PUB.Add;
1340: END IF;
1341: -- Initialize API return status to success
1342: x_return_status := FND_API.G_RET_STS_SUCCESS;
1343:
1344: --
1345: -- Check if the Parent Terr ID is valid for the given source.
1346: BEGIN
1344: --
1345: -- Check if the Parent Terr ID is valid for the given source.
1346: BEGIN
1347: IF ( p_terr_all_rec.PARENT_TERRITORY_ID IS NOT NULL
1348: AND p_terr_all_rec.PARENT_TERRITORY_ID <> FND_API.G_MISS_NUM
1349: AND p_terr_all_rec.PARENT_TERRITORY_ID <> 1 ) THEN
1350:
1351: SELECT 1
1352: INTO l_dummy
1360: WHEN NO_DATA_FOUND THEN
1361: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_PARENT_TERR');
1362: FND_MESSAGE.Set_Token('TERR_ID', to_char(p_terr_all_rec.PARENT_TERRITORY_ID));
1363: FND_MSG_PUB.ADD;
1364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1365: END;
1366: -- Check if the Terr Type is valid for the given source.
1367: BEGIN
1368: SELECT 1
1379: EXCEPTION
1380: WHEN NO_DATA_FOUND THEN
1381: FND_MESSAGE.Set_Name('JTF', 'JTY_TERR_INVALID_TERR_TYPE');
1382: FND_MSG_PUB.ADD;
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: END;
1385:
1386:
1387: --dbms_output('Create_Territory_Header PVT: Before Calling Create_Territory_Record');
1424: --
1425: --Save the out status record
1426: X_Terr_All_Out_Rec := l_Terr_All_Out_Rec;
1427: --If there is a major error
1428: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1429: RAISE FND_API.G_EXC_ERROR;
1430: END IF;
1431: --
1432: --
1425: --Save the out status record
1426: X_Terr_All_Out_Rec := l_Terr_All_Out_Rec;
1427: --If there is a major error
1428: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1429: RAISE FND_API.G_EXC_ERROR;
1430: END IF;
1431: --
1432: --
1433: --dbms_output('Create_Territory_Header PVT: Before Calling Create_Territory_Usages');
1450: X_Terr_Usgs_Out_Tbl := l_Terr_Usgs_Out_Tbl;
1451: l_terr_usg_id := l_Terr_Usgs_Out_Tbl(1).Terr_Usg_Id;
1452: --
1453: --If there is a major error
1454: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1455: RAISE FND_API.G_EXC_ERROR;
1456: END IF;
1457: --
1458: -- Create the P_Terr_QualTypeUsgs_Tbl based on the Territory Type.
1451: l_terr_usg_id := l_Terr_Usgs_Out_Tbl(1).Terr_Usg_Id;
1452: --
1453: --If there is a major error
1454: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1455: RAISE FND_API.G_EXC_ERROR;
1456: END IF;
1457: --
1458: -- Create the P_Terr_QualTypeUsgs_Tbl based on the Territory Type.
1459: BEGIN
1500: --
1501: --Save the out status record
1502: X_Terr_QualTypeUsgs_Out_Tbl := l_Terr_QualTypeUsgs_Out_Tbl;
1503: --If there is a major error
1504: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1505: RAISE FND_API.G_EXC_ERROR;
1506: END IF;
1507: --
1508: -- Debug Message
1501: --Save the out status record
1502: X_Terr_QualTypeUsgs_Out_Tbl := l_Terr_QualTypeUsgs_Out_Tbl;
1503: --If there is a major error
1504: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1505: RAISE FND_API.G_EXC_ERROR;
1506: END IF;
1507: --
1508: -- Debug Message
1509: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1514: END IF;
1515:
1516: --dbms_output('Create_Territory_Header PVT: Exiting API');
1517: EXCEPTION
1518: WHEN FND_API.G_EXC_ERROR THEN
1519: --dbms_output('Create_Territory_Header PVT: FND_API.G_EXC_ERROR');
1520: x_return_status := FND_API.G_RET_STS_ERROR ;
1521: FND_MSG_PUB.Count_And_Get
1522: ( P_count => x_msg_count,
1515:
1516: --dbms_output('Create_Territory_Header PVT: Exiting API');
1517: EXCEPTION
1518: WHEN FND_API.G_EXC_ERROR THEN
1519: --dbms_output('Create_Territory_Header PVT: FND_API.G_EXC_ERROR');
1520: x_return_status := FND_API.G_RET_STS_ERROR ;
1521: FND_MSG_PUB.Count_And_Get
1522: ( P_count => x_msg_count,
1523: P_data => x_msg_data
1516: --dbms_output('Create_Territory_Header PVT: Exiting API');
1517: EXCEPTION
1518: WHEN FND_API.G_EXC_ERROR THEN
1519: --dbms_output('Create_Territory_Header PVT: FND_API.G_EXC_ERROR');
1520: x_return_status := FND_API.G_RET_STS_ERROR ;
1521: FND_MSG_PUB.Count_And_Get
1522: ( P_count => x_msg_count,
1523: P_data => x_msg_data
1524: );
1522: ( P_count => x_msg_count,
1523: P_data => x_msg_data
1524: );
1525:
1526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1527: --dbms_output('Create_Territory_Header PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
1528: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1529: FND_MSG_PUB.Count_And_Get
1530: ( p_count => x_msg_count,
1523: P_data => x_msg_data
1524: );
1525:
1526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1527: --dbms_output('Create_Territory_Header PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
1528: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1529: FND_MSG_PUB.Count_And_Get
1530: ( p_count => x_msg_count,
1531: p_data => x_msg_data
1524: );
1525:
1526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1527: --dbms_output('Create_Territory_Header PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
1528: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1529: FND_MSG_PUB.Count_And_Get
1530: ( p_count => x_msg_count,
1531: p_data => x_msg_data
1532: );
1532: );
1533:
1534: WHEN OTHERS THEN
1535: --dbms_output('Create_Territory_Header PVT: OTHERS - ' || SQLERRM);
1536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1537: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1538: THEN
1539: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,
1540: 'Others exception inside Create_Territory_Header'
1570: -- End of Comments
1571: --
1572: PROCEDURE Create_Territory_Record
1573: ( P_Api_Version_Number IN NUMBER,
1574: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1575: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1576: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1577: P_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec,
1578: X_Return_Status OUT NOCOPY VARCHAR2,
1571: --
1572: PROCEDURE Create_Territory_Record
1573: ( P_Api_Version_Number IN NUMBER,
1574: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1575: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1576: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1577: P_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec,
1578: X_Return_Status OUT NOCOPY VARCHAR2,
1579: X_Msg_Count OUT NOCOPY NUMBER,
1572: PROCEDURE Create_Territory_Record
1573: ( P_Api_Version_Number IN NUMBER,
1574: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1575: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1576: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1577: P_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec,
1578: X_Return_Status OUT NOCOPY VARCHAR2,
1579: X_Msg_Count OUT NOCOPY NUMBER,
1580: X_Msg_Data OUT NOCOPY VARCHAR2,
1592: -- Standard Start of API savepoint
1593: SAVEPOINT CREATE_TERR_REC_PVT;
1594:
1595: -- Standard call to check for call compatibility.
1596: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1597: p_api_version_number,
1598: l_api_name,
1599: G_PKG_NAME)
1600: THEN
1597: p_api_version_number,
1598: l_api_name,
1599: G_PKG_NAME)
1600: THEN
1601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1602: END IF;
1603:
1604: -- Initialize message list if p_init_msg_list is set to TRUE.
1605: IF FND_API.to_Boolean( p_init_msg_list )
1601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1602: END IF;
1603:
1604: -- Initialize message list if p_init_msg_list is set to TRUE.
1605: IF FND_API.to_Boolean( p_init_msg_list )
1606: THEN
1607: FND_MSG_PUB.initialize;
1608: END IF;
1609:
1615: FND_MSG_PUB.Add;
1616: END IF;
1617:
1618: -- Initialize API return status to success
1619: x_return_status := FND_API.G_RET_STS_SUCCESS;
1620:
1621: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE)
1622: THEN
1623: -- Debug message
1617:
1618: -- Initialize API return status to success
1619: x_return_status := FND_API.G_RET_STS_SUCCESS;
1620:
1621: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE)
1622: THEN
1623: -- Debug message
1624: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1625: THEN
1628: FND_MSG_PUB.Add;
1629: END IF;
1630: --
1631: -- Invoke validation procedures
1632: Validate_Territory_Record(p_init_msg_list => FND_API.G_FALSE,
1633: x_Return_Status => x_return_status,
1634: x_msg_count => x_msg_count,
1635: x_msg_data => x_msg_data,
1636: p_Terr_All_Rec => P_Terr_All_Rec);
1634: x_msg_count => x_msg_count,
1635: x_msg_data => x_msg_data,
1636: p_Terr_All_Rec => P_Terr_All_Rec);
1637:
1638: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1639: RAISE FND_API.G_EXC_ERROR;
1640: END IF;
1641: END IF;
1642:
1635: x_msg_data => x_msg_data,
1636: p_Terr_All_Rec => P_Terr_All_Rec);
1637:
1638: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1639: RAISE FND_API.G_EXC_ERROR;
1640: END IF;
1641: END IF;
1642:
1643: -- Call insert terr_all table handler
1644: --
1645: --dbms_output('Create_Territory_Record PVT: Before Calling JTF_TERR_PKG.Insert_Row APP_SHORT_NAME-' || G_APP_SHORT_NAME);
1646: --dbms_output('Create_Territory_Record PVT: Before Calling JTF_TERR_PKG.Insert_Row p_terr_all_rec.APPLICATION_SHORT_NAME-' || p_terr_all_rec.APPLICATION_SHORT_NAME);
1647:
1648: /* Intialise to NULL if FND_API.G_MISS_NUM,
1649: ** otherwise use passed in value
1650: */
1651: IF (l_terr_id = FND_API.G_MISS_NUM) THEN
1652: l_terr_id := NULL;
1647:
1648: /* Intialise to NULL if FND_API.G_MISS_NUM,
1649: ** otherwise use passed in value
1650: */
1651: IF (l_terr_id = FND_API.G_MISS_NUM) THEN
1652: l_terr_id := NULL;
1653: END IF;
1654:
1655: JTF_TERR_PKG.Insert_Row(x_rowid => l_rowid,
1704: --If there was no error in Table Handler Code gets here
1705: --else it goes to the exceptions block
1706: X_Terr_All_Out_Rec.Terr_id := l_terr_id;
1707: X_Terr_Id := l_terr_id;
1708: X_Terr_All_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
1709:
1710: -- Debug Message
1711: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1712: THEN
1715: FND_MSG_PUB.Add;
1716: END IF;
1717:
1718: -- Standard check for p_commit
1719: IF FND_API.to_Boolean( p_commit )
1720: THEN
1721: COMMIT WORK;
1722: END IF;
1723:
1730:
1731: --dbms_output('Create_Territory_Record PVT: Exiting API');
1732:
1733: EXCEPTION
1734: WHEN FND_API.G_EXC_ERROR THEN
1735: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_ERROR');
1736: ROLLBACK TO CREATE_TERR_REC_PVT;
1737: x_return_status := FND_API.G_RET_STS_ERROR ;
1738: FND_MSG_PUB.Count_And_Get
1731: --dbms_output('Create_Territory_Record PVT: Exiting API');
1732:
1733: EXCEPTION
1734: WHEN FND_API.G_EXC_ERROR THEN
1735: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_ERROR');
1736: ROLLBACK TO CREATE_TERR_REC_PVT;
1737: x_return_status := FND_API.G_RET_STS_ERROR ;
1738: FND_MSG_PUB.Count_And_Get
1739: ( p_count => x_msg_count,
1733: EXCEPTION
1734: WHEN FND_API.G_EXC_ERROR THEN
1735: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_ERROR');
1736: ROLLBACK TO CREATE_TERR_REC_PVT;
1737: x_return_status := FND_API.G_RET_STS_ERROR ;
1738: FND_MSG_PUB.Count_And_Get
1739: ( p_count => x_msg_count,
1740: p_data => x_msg_data
1741: );
1739: ( p_count => x_msg_count,
1740: p_data => x_msg_data
1741: );
1742:
1743: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1744: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
1745: ROLLBACK TO CREATE_TERR_REC_PVT;
1746: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1747: FND_MSG_PUB.Count_And_Get
1740: p_data => x_msg_data
1741: );
1742:
1743: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1744: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
1745: ROLLBACK TO CREATE_TERR_REC_PVT;
1746: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1747: FND_MSG_PUB.Count_And_Get
1748: ( p_count => x_msg_count,
1742:
1743: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1744: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
1745: ROLLBACK TO CREATE_TERR_REC_PVT;
1746: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1747: FND_MSG_PUB.Count_And_Get
1748: ( p_count => x_msg_count,
1749: p_data => x_msg_data
1750: );
1751:
1752:
1753: WHEN OTHERS THEN
1754: --dbms_output('Create_Territory_Record PVT: OTHERS - ' || SQLERRM);
1755: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1756: X_Terr_All_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1757: ROLLBACK TO CREATE_TERR_REC_PVT;
1758: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1759: THEN
1752:
1753: WHEN OTHERS THEN
1754: --dbms_output('Create_Territory_Record PVT: OTHERS - ' || SQLERRM);
1755: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1756: X_Terr_All_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1757: ROLLBACK TO CREATE_TERR_REC_PVT;
1758: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1759: THEN
1760: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Territory_Record');
1789: -- End of Comments
1790: --
1791: PROCEDURE Create_Territory_Usages
1792: ( P_Api_Version_Number IN NUMBER,
1793: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1794: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1795: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1796: P_Terr_Id IN NUMBER,
1797: P_Terr_Usgs_Tbl IN Terr_Usgs_Tbl_Type := G_MISS_Terr_Usgs_Tbl,
1790: --
1791: PROCEDURE Create_Territory_Usages
1792: ( P_Api_Version_Number IN NUMBER,
1793: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1794: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1795: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1796: P_Terr_Id IN NUMBER,
1797: P_Terr_Usgs_Tbl IN Terr_Usgs_Tbl_Type := G_MISS_Terr_Usgs_Tbl,
1798: X_Return_Status OUT NOCOPY VARCHAR2,
1791: PROCEDURE Create_Territory_Usages
1792: ( P_Api_Version_Number IN NUMBER,
1793: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1794: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1795: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1796: P_Terr_Id IN NUMBER,
1797: P_Terr_Usgs_Tbl IN Terr_Usgs_Tbl_Type := G_MISS_Terr_Usgs_Tbl,
1798: X_Return_Status OUT NOCOPY VARCHAR2,
1799: X_Msg_Count OUT NOCOPY NUMBER,
1815: -- Standard Start of API savepoint
1816: SAVEPOINT CREATE_TERR_USG_PVT;
1817:
1818: -- Standard call to check for call compatibility.
1819: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1820: p_api_version_number,
1821: l_api_name,
1822: G_PKG_NAME)
1823: THEN
1820: p_api_version_number,
1821: l_api_name,
1822: G_PKG_NAME)
1823: THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826:
1827: -- Initialize message list if p_init_msg_list is set to TRUE.
1828: IF FND_API.to_Boolean( p_init_msg_list )
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826:
1827: -- Initialize message list if p_init_msg_list is set to TRUE.
1828: IF FND_API.to_Boolean( p_init_msg_list )
1829: THEN
1830: FND_MSG_PUB.initialize;
1831: END IF;
1832:
1838: FND_MSG_PUB.Add;
1839: END IF;
1840:
1841: -- Initialize API return status to success
1842: x_return_status := FND_API.G_RET_STS_SUCCESS;
1843:
1844: --
1845: If (p_Terr_Usgs_Tbl.count = 0 ) Then
1846: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1846: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1847: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_USAGE');
1848: FND_MSG_PUB.ADD;
1849: END IF;
1850: x_return_status := FND_API.G_RET_STS_ERROR;
1851: RAISE FND_API.G_EXC_ERROR;
1852: END IF;
1853:
1854: --
1847: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_USAGE');
1848: FND_MSG_PUB.ADD;
1849: END IF;
1850: x_return_status := FND_API.G_RET_STS_ERROR;
1851: RAISE FND_API.G_EXC_ERROR;
1852: END IF;
1853:
1854: --
1855: FOR l_Counter IN 1 .. l_Terr_Usgs_Tbl_Count LOOP
1858:
1859: --dbms_output('Create_Territory_Usages PVT: Before Calling JTF_TERR_USGS_PKG.Insert_Row');
1860:
1861: -- Initialize API return status to success
1862: x_return_status := FND_API.G_RET_STS_SUCCESS;
1863:
1864: IF ( P_validation_level <> FND_API.G_VALID_LEVEL_NONE) THEN
1865:
1866: -- Debug message
1860:
1861: -- Initialize API return status to success
1862: x_return_status := FND_API.G_RET_STS_SUCCESS;
1863:
1864: IF ( P_validation_level <> FND_API.G_VALID_LEVEL_NONE) THEN
1865:
1866: -- Debug message
1867: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1868: THEN
1870: FND_MSG_PUB.Add;
1871: END IF;
1872: --
1873: -- Invoke validation procedures
1874: Validate_Territory_Usage(p_init_msg_list => FND_API.G_FALSE,
1875: x_Return_Status => x_return_status,
1876: x_msg_count => x_msg_count,
1877: x_msg_data => x_msg_data,
1878: p_Terr_Id => p_Terr_Id,
1877: x_msg_data => x_msg_data,
1878: p_Terr_Id => p_Terr_Id,
1879: p_Terr_Usgs_Rec => P_Terr_Usgs_Tbl(l_Counter));
1880: --
1881: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1882: RAISE FND_API.G_EXC_ERROR;
1883: END IF;
1884: --
1885:
1878: p_Terr_Id => p_Terr_Id,
1879: p_Terr_Usgs_Rec => P_Terr_Usgs_Tbl(l_Counter));
1880: --
1881: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1882: RAISE FND_API.G_EXC_ERROR;
1883: END IF;
1884: --
1885:
1886: -- jdochert 09/09
1886: -- jdochert 09/09
1887: -- check for Unique Key constraint violation
1888: validate_terr_usgs_UK( p_Terr_Id => p_Terr_Id,
1889: p_Source_Id => P_Terr_Usgs_Tbl(l_counter).source_id,
1890: p_init_msg_list => FND_API.G_FALSE,
1891: x_Return_Status => x_return_status,
1892: x_msg_count => x_msg_count,
1893: x_msg_data => x_msg_data );
1894:
1891: x_Return_Status => x_return_status,
1892: x_msg_count => x_msg_count,
1893: x_msg_data => x_msg_data );
1894:
1895: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1896: RAISE FND_API.G_EXC_ERROR;
1897: END IF;
1898:
1899: END IF;
1892: x_msg_count => x_msg_count,
1893: x_msg_data => x_msg_data );
1894:
1895: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1896: RAISE FND_API.G_EXC_ERROR;
1897: END IF;
1898:
1899: END IF;
1900:
1899: END IF;
1900:
1901: l_terr_usg_id := P_Terr_Usgs_Tbl(l_Counter).terr_usg_id;
1902:
1903: /* Intialise to NULL if FND_API.G_MISS_NUM,
1904: ** otherwise used passed in value
1905: */
1906: IF (l_terr_usg_id = FND_API.G_MISS_NUM) THEN
1907: l_terr_usg_id := NULL;
1902:
1903: /* Intialise to NULL if FND_API.G_MISS_NUM,
1904: ** otherwise used passed in value
1905: */
1906: IF (l_terr_usg_id = FND_API.G_MISS_NUM) THEN
1907: l_terr_usg_id := NULL;
1908: END IF;
1909:
1910: JTF_TERR_USGS_PKG.Insert_Row(x_Rowid => l_rowid,
1920:
1921: -- Save the terr_usg_id and
1922: X_Terr_Usgs_Out_Tbl(l_Counter).terr_usg_id := l_terr_usg_id;
1923: -- If successful then save the success status for the record
1924: X_Terr_Usgs_Out_Tbl(l_Counter).return_status := FND_API.G_RET_STS_SUCCESS;
1925:
1926: EXCEPTION
1927: WHEN FND_API.G_EXC_ERROR THEN
1928: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_ERROR');
1923: -- If successful then save the success status for the record
1924: X_Terr_Usgs_Out_Tbl(l_Counter).return_status := FND_API.G_RET_STS_SUCCESS;
1925:
1926: EXCEPTION
1927: WHEN FND_API.G_EXC_ERROR THEN
1928: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_ERROR');
1929: ROLLBACK TO CREATE_TERR_USG_PVT;
1930: x_return_status := FND_API.G_RET_STS_ERROR ;
1931: X_Terr_Usgs_Out_Tbl(l_Counter).terr_usg_id := NULL;
1924: X_Terr_Usgs_Out_Tbl(l_Counter).return_status := FND_API.G_RET_STS_SUCCESS;
1925:
1926: EXCEPTION
1927: WHEN FND_API.G_EXC_ERROR THEN
1928: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_ERROR');
1929: ROLLBACK TO CREATE_TERR_USG_PVT;
1930: x_return_status := FND_API.G_RET_STS_ERROR ;
1931: X_Terr_Usgs_Out_Tbl(l_Counter).terr_usg_id := NULL;
1932: X_Terr_Usgs_Out_Tbl(l_Counter).return_status := X_return_status;
1926: EXCEPTION
1927: WHEN FND_API.G_EXC_ERROR THEN
1928: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_ERROR');
1929: ROLLBACK TO CREATE_TERR_USG_PVT;
1930: x_return_status := FND_API.G_RET_STS_ERROR ;
1931: X_Terr_Usgs_Out_Tbl(l_Counter).terr_usg_id := NULL;
1932: X_Terr_Usgs_Out_Tbl(l_Counter).return_status := X_return_status;
1933: FND_MSG_PUB.Count_And_Get
1934: ( p_count => x_msg_count,
1934: ( p_count => x_msg_count,
1935: p_data => x_msg_data
1936: );
1937:
1938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1939: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
1940: ROLLBACK TO CREATE_TERR_USG_PVT;
1941: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1942: X_Terr_Usgs_Out_Tbl(l_Counter).terr_usg_id := NULL;
1935: p_data => x_msg_data
1936: );
1937:
1938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1939: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
1940: ROLLBACK TO CREATE_TERR_USG_PVT;
1941: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1942: X_Terr_Usgs_Out_Tbl(l_Counter).terr_usg_id := NULL;
1943: X_Terr_Usgs_Out_Tbl(l_Counter).return_status := X_return_status;
1937:
1938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1939: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
1940: ROLLBACK TO CREATE_TERR_USG_PVT;
1941: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1942: X_Terr_Usgs_Out_Tbl(l_Counter).terr_usg_id := NULL;
1943: X_Terr_Usgs_Out_Tbl(l_Counter).return_status := X_return_status;
1944: FND_MSG_PUB.Count_And_Get
1945: ( p_count => x_msg_count,
1947: );
1948:
1949: WHEN OTHERS THEN
1950: --dbms_output('Create_Territory_Usages PVT: OTHERS - ' || SQLERRM);
1951: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1952: X_Terr_Usgs_Out_Tbl(l_Counter).terr_usg_id := NULL;
1953: X_Terr_Usgs_Out_Tbl(l_Counter).return_status := X_return_status;
1954: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1955: THEN
1960: END LOOP;
1961:
1962: -- Get the API overall return status
1963: -- Initialize API return status to success
1964: x_return_status := FND_API.G_RET_STS_SUCCESS;
1965: --Get number of records in the ouput table
1966: l_Terr_Usgs_Out_Tbl_Count := X_Terr_Usgs_Out_Tbl.Count;
1967: l_Terr_Usgs_Out_Tbl := X_Terr_Usgs_Out_Tbl;
1968:
1966: l_Terr_Usgs_Out_Tbl_Count := X_Terr_Usgs_Out_Tbl.Count;
1967: l_Terr_Usgs_Out_Tbl := X_Terr_Usgs_Out_Tbl;
1968:
1969: FOR l_Counter IN 1 .. l_Terr_Usgs_Out_Tbl_Count LOOP
1970: If l_Terr_Usgs_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
1971: l_Terr_Usgs_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
1972: THEN
1973: X_return_status := FND_API.G_RET_STS_ERROR;
1974: END IF;
1967: l_Terr_Usgs_Out_Tbl := X_Terr_Usgs_Out_Tbl;
1968:
1969: FOR l_Counter IN 1 .. l_Terr_Usgs_Out_Tbl_Count LOOP
1970: If l_Terr_Usgs_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
1971: l_Terr_Usgs_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
1972: THEN
1973: X_return_status := FND_API.G_RET_STS_ERROR;
1974: END IF;
1975: END LOOP;
1969: FOR l_Counter IN 1 .. l_Terr_Usgs_Out_Tbl_Count LOOP
1970: If l_Terr_Usgs_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
1971: l_Terr_Usgs_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
1972: THEN
1973: X_return_status := FND_API.G_RET_STS_ERROR;
1974: END IF;
1975: END LOOP;
1976: --
1977: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1981: FND_MSG_PUB.Add;
1982: END IF;
1983: --
1984: -- Standard check for p_commit
1985: IF FND_API.to_Boolean( p_commit )
1986: THEN
1987: COMMIT WORK;
1988: END IF;
1989:
2025: -- End of Comments
2026: --
2027: PROCEDURE Create_Terr_QualType_Usage
2028: ( P_Api_Version_Number IN NUMBER,
2029: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2030: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2031: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2032: P_Terr_Id IN NUMBER,
2033: P_Terr_QualTypeUsgs_Rec IN Terr_QualTypeUsgs_Rec_Type := G_Miss_Terr_QualTypeUsgs_Rec,
2026: --
2027: PROCEDURE Create_Terr_QualType_Usage
2028: ( P_Api_Version_Number IN NUMBER,
2029: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2030: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2031: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2032: P_Terr_Id IN NUMBER,
2033: P_Terr_QualTypeUsgs_Rec IN Terr_QualTypeUsgs_Rec_Type := G_Miss_Terr_QualTypeUsgs_Rec,
2034: X_Return_Status OUT NOCOPY VARCHAR2,
2027: PROCEDURE Create_Terr_QualType_Usage
2028: ( P_Api_Version_Number IN NUMBER,
2029: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2030: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2031: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2032: P_Terr_Id IN NUMBER,
2033: P_Terr_QualTypeUsgs_Rec IN Terr_QualTypeUsgs_Rec_Type := G_Miss_Terr_QualTypeUsgs_Rec,
2034: X_Return_Status OUT NOCOPY VARCHAR2,
2035: X_Msg_Count OUT NOCOPY NUMBER,
2048: -- Standard Start of API savepoint
2049: SAVEPOINT CREATE_TERR_QTYPE_USG_PVT;
2050:
2051: -- Standard call to check for call compatibility.
2052: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2053: p_api_version_number,
2054: l_api_name,
2055: G_PKG_NAME)
2056: THEN
2053: p_api_version_number,
2054: l_api_name,
2055: G_PKG_NAME)
2056: THEN
2057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2058: END IF;
2059:
2060: -- Initialize message list if p_init_msg_list is set to TRUE.
2061: IF FND_API.to_Boolean( p_init_msg_list )
2057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2058: END IF;
2059:
2060: -- Initialize message list if p_init_msg_list is set to TRUE.
2061: IF FND_API.to_Boolean( p_init_msg_list )
2062: THEN
2063: FND_MSG_PUB.initialize;
2064: END IF;
2065:
2071: FND_MSG_PUB.Add;
2072: END IF;
2073:
2074: -- Initialize API return status to success
2075: x_return_status := FND_API.G_RET_STS_SUCCESS;
2076:
2077:
2078: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2079:
2074: -- Initialize API return status to success
2075: x_return_status := FND_API.G_RET_STS_SUCCESS;
2076:
2077:
2078: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2079:
2080: -- Debug message
2081: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2082: THEN
2085: FND_MSG_PUB.Add;
2086: END IF;
2087:
2088: -- Invoke validation procedures
2089: Validate_Terr_Qtype_Usage(p_init_msg_list => FND_API.G_FALSE,
2090: x_Return_Status => x_return_status,
2091: x_msg_count => x_msg_count,
2092: x_msg_data => x_msg_data,
2093: p_Terr_Id => p_Terr_Id,
2091: x_msg_count => x_msg_count,
2092: x_msg_data => x_msg_data,
2093: p_Terr_Id => p_Terr_Id,
2094: P_Terr_QualTypeUsgs_Rec => P_Terr_QualTypeUsgs_Rec);
2095: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2096: RAISE FND_API.G_EXC_ERROR;
2097: END IF;
2098:
2099:
2092: x_msg_data => x_msg_data,
2093: p_Terr_Id => p_Terr_Id,
2094: P_Terr_QualTypeUsgs_Rec => P_Terr_QualTypeUsgs_Rec);
2095: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2096: RAISE FND_API.G_EXC_ERROR;
2097: END IF;
2098:
2099:
2100: -- jdochert 09/09
2100: -- jdochert 09/09
2101: -- check for Unique Key constraint violation
2102: validate_terr_qtype_usgs_UK( p_Terr_Id => p_Terr_Id,
2103: p_Qual_Type_Usg_id => p_Terr_QualTypeUsgs_Rec.qual_type_usg_id,
2104: p_init_msg_list => FND_API.G_FALSE,
2105: x_Return_Status => x_return_status,
2106: x_msg_count => x_msg_count,
2107: x_msg_data => x_msg_data );
2108:
2105: x_Return_Status => x_return_status,
2106: x_msg_count => x_msg_count,
2107: x_msg_data => x_msg_data );
2108:
2109: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2110: RAISE FND_API.G_EXC_ERROR;
2111: END IF;
2112:
2113: END IF;
2106: x_msg_count => x_msg_count,
2107: x_msg_data => x_msg_data );
2108:
2109: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2110: RAISE FND_API.G_EXC_ERROR;
2111: END IF;
2112:
2113: END IF;
2114: --dbms_output('Create_Terr_QualType_Usage PVT(REC): Before Calling JTF_TERR_QTYPE_USGS_PKG.Insert_Row');
2112:
2113: END IF;
2114: --dbms_output('Create_Terr_QualType_Usage PVT(REC): Before Calling JTF_TERR_QTYPE_USGS_PKG.Insert_Row');
2115:
2116: /* Intialise to NULL if FND_API.G_MISS_NUM,
2117: ** otherwise used passed in value
2118: */
2119: IF (l_TERR_QUAL_TYPE_USG_ID = FND_API.G_MISS_NUM) THEN
2120: l_TERR_QUAL_TYPE_USG_ID := NULL;
2115:
2116: /* Intialise to NULL if FND_API.G_MISS_NUM,
2117: ** otherwise used passed in value
2118: */
2119: IF (l_TERR_QUAL_TYPE_USG_ID = FND_API.G_MISS_NUM) THEN
2120: l_TERR_QUAL_TYPE_USG_ID := NULL;
2121: END IF;
2122:
2123:
2137: X_Terr_QualTypeUsgs_Id := l_TERR_QUAL_TYPE_USG_ID;
2138: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := l_TERR_QUAL_TYPE_USG_ID;
2139:
2140: -- If successful then save the success status for the record
2141: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
2142: X_Terr_QualTypeUsgs_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
2143:
2144: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2145: THEN
2138: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := l_TERR_QUAL_TYPE_USG_ID;
2139:
2140: -- If successful then save the success status for the record
2141: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
2142: X_Terr_QualTypeUsgs_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
2143:
2144: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2145: THEN
2146: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
2148: FND_MSG_PUB.Add;
2149: END IF;
2150:
2151: -- Standard check for p_commit
2152: IF FND_API.to_Boolean( p_commit )
2153: THEN
2154: COMMIT WORK;
2155: END IF;
2156:
2162:
2163: --dbms_output('Create_Terr_QualType_Usage PVT(REC): Exiting API');
2164:
2165: EXCEPTION
2166: WHEN FND_API.G_EXC_ERROR THEN
2167: --dbms_output('Create_Terr_QualType_Usage PVT(REC): FND_API.G_EXC_ERROR');
2168: ROLLBACK TO CREATE_TERR_QTYPE_USG_PVT;
2169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2170: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := NULL;
2163: --dbms_output('Create_Terr_QualType_Usage PVT(REC): Exiting API');
2164:
2165: EXCEPTION
2166: WHEN FND_API.G_EXC_ERROR THEN
2167: --dbms_output('Create_Terr_QualType_Usage PVT(REC): FND_API.G_EXC_ERROR');
2168: ROLLBACK TO CREATE_TERR_QTYPE_USG_PVT;
2169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2170: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := NULL;
2171: X_Terr_QualTypeUsgs_Out_Rec.return_status := x_return_status;
2165: EXCEPTION
2166: WHEN FND_API.G_EXC_ERROR THEN
2167: --dbms_output('Create_Terr_QualType_Usage PVT(REC): FND_API.G_EXC_ERROR');
2168: ROLLBACK TO CREATE_TERR_QTYPE_USG_PVT;
2169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2170: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := NULL;
2171: X_Terr_QualTypeUsgs_Out_Rec.return_status := x_return_status;
2172: FND_MSG_PUB.Count_And_Get
2173: ( p_count => x_msg_count,
2173: ( p_count => x_msg_count,
2174: p_data => x_msg_data
2175: );
2176:
2177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2178: --dbms_output('Create_Terr_QualType_Usage PVT(REC): FND_API.G_EXC_UNEXPECTED_ERROR');
2179: ROLLBACK TO CREATE_TERR_QTYPE_USG_PVT;
2180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2181: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := NULL;
2174: p_data => x_msg_data
2175: );
2176:
2177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2178: --dbms_output('Create_Terr_QualType_Usage PVT(REC): FND_API.G_EXC_UNEXPECTED_ERROR');
2179: ROLLBACK TO CREATE_TERR_QTYPE_USG_PVT;
2180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2181: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := NULL;
2182: X_Terr_QualTypeUsgs_Out_Rec.return_status := x_return_status;
2176:
2177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2178: --dbms_output('Create_Terr_QualType_Usage PVT(REC): FND_API.G_EXC_UNEXPECTED_ERROR');
2179: ROLLBACK TO CREATE_TERR_QTYPE_USG_PVT;
2180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2181: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := NULL;
2182: X_Terr_QualTypeUsgs_Out_Rec.return_status := x_return_status;
2183: FND_MSG_PUB.Count_And_Get
2184: ( p_count => x_msg_count,
2187:
2188: WHEN OTHERS THEN
2189: --dbms_output('Create_Terr_QualType_Usage PVT(REC): OTHERS - ' || SQLERRM);
2190: ROLLBACK TO CREATE_TERR_QTYPE_USG_PVT;
2191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2192: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := NULL;
2193: X_Terr_QualTypeUsgs_Out_Rec.return_status := x_return_status;
2194: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2195: THEN
2226: -- End of Comments
2227: --
2228: PROCEDURE Create_Terr_QualType_Usage
2229: ( P_Api_Version_Number IN NUMBER,
2230: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2231: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2232: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2233: P_Terr_Id IN NUMBER,
2234: P_Terr_QualTypeUsgs_Tbl IN Terr_QualTypeUsgs_Tbl_Type := G_Miss_Terr_QualTypeUsgs_Tbl,
2227: --
2228: PROCEDURE Create_Terr_QualType_Usage
2229: ( P_Api_Version_Number IN NUMBER,
2230: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2231: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2232: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2233: P_Terr_Id IN NUMBER,
2234: P_Terr_QualTypeUsgs_Tbl IN Terr_QualTypeUsgs_Tbl_Type := G_Miss_Terr_QualTypeUsgs_Tbl,
2235: X_Return_Status OUT NOCOPY VARCHAR2,
2228: PROCEDURE Create_Terr_QualType_Usage
2229: ( P_Api_Version_Number IN NUMBER,
2230: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2231: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2232: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2233: P_Terr_Id IN NUMBER,
2234: P_Terr_QualTypeUsgs_Tbl IN Terr_QualTypeUsgs_Tbl_Type := G_Miss_Terr_QualTypeUsgs_Tbl,
2235: X_Return_Status OUT NOCOPY VARCHAR2,
2236: X_Msg_Count OUT NOCOPY NUMBER,
2254: -- Standard Start of API savepoint
2255: SAVEPOINT CREATE_TERR_QTYPE_USG_PVT;
2256:
2257: -- Standard call to check for call compatibility.
2258: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2259: p_api_version_number,
2260: l_api_name,
2261: G_PKG_NAME)
2262: THEN
2259: p_api_version_number,
2260: l_api_name,
2261: G_PKG_NAME)
2262: THEN
2263: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2264: END IF;
2265:
2266: -- Initialize message list if p_init_msg_list is set to TRUE.
2267: IF FND_API.to_Boolean( p_init_msg_list )
2263: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2264: END IF;
2265:
2266: -- Initialize message list if p_init_msg_list is set to TRUE.
2267: IF FND_API.to_Boolean( p_init_msg_list )
2268: THEN
2269: FND_MSG_PUB.initialize;
2270: END IF;
2271:
2277: FND_MSG_PUB.Add;
2278: END IF;
2279:
2280: -- Initialize API return status to success
2281: x_return_status := FND_API.G_RET_STS_SUCCESS;
2282:
2283: -- Call insert terr_Qual_Type_Usgs table handler
2284: --
2285: FOR l_Counter IN 1 .. l_Terr_QualTypeUsgs_Tbl_Count LOOP
2298: X_Terr_QualTypeUsgs_Id => l_terr_qual_type_usg_id,
2299: X_Terr_QualTypeUsgs_Out_Rec => l_Terr_QTypUsg_Out_Rec);
2300: --
2301: --If there is a major error
2302: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2303: --dbms_output('Create_Terr_QualType_Usage PVT(TBL): l_return_status <> FND_API.G_RET_STS_SUCCESS');
2304: -- Save the terr_usg_id and
2305: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).TERR_QUAL_TYPE_USG_ID := NULL;
2306: -- If save the ERROR status for the record
2299: X_Terr_QualTypeUsgs_Out_Rec => l_Terr_QTypUsg_Out_Rec);
2300: --
2301: --If there is a major error
2302: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2303: --dbms_output('Create_Terr_QualType_Usage PVT(TBL): l_return_status <> FND_API.G_RET_STS_SUCCESS');
2304: -- Save the terr_usg_id and
2305: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).TERR_QUAL_TYPE_USG_ID := NULL;
2306: -- If save the ERROR status for the record
2307: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2303: --dbms_output('Create_Terr_QualType_Usage PVT(TBL): l_return_status <> FND_API.G_RET_STS_SUCCESS');
2304: -- Save the terr_usg_id and
2305: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).TERR_QUAL_TYPE_USG_ID := NULL;
2306: -- If save the ERROR status for the record
2307: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2308: ELSE
2309: --dbms_output('Create_Terr_QualType_Usage PVT(TBL): l_return_status = FND_API.G_RET_STS_SUCCESS');
2310: -- Save the terr_usg_id and
2311: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).TERR_QUAL_TYPE_USG_ID := l_terr_qual_type_usg_id;
2305: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).TERR_QUAL_TYPE_USG_ID := NULL;
2306: -- If save the ERROR status for the record
2307: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2308: ELSE
2309: --dbms_output('Create_Terr_QualType_Usage PVT(TBL): l_return_status = FND_API.G_RET_STS_SUCCESS');
2310: -- Save the terr_usg_id and
2311: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).TERR_QUAL_TYPE_USG_ID := l_terr_qual_type_usg_id;
2312: -- If successful then save the success status for the record
2313: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_SUCCESS;
2309: --dbms_output('Create_Terr_QualType_Usage PVT(TBL): l_return_status = FND_API.G_RET_STS_SUCCESS');
2310: -- Save the terr_usg_id and
2311: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).TERR_QUAL_TYPE_USG_ID := l_terr_qual_type_usg_id;
2312: -- If successful then save the success status for the record
2313: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_SUCCESS;
2314: END IF;
2315: --
2316: END LOOP;
2317:
2316: END LOOP;
2317:
2318: -- Get the API overall return status
2319: -- Initialize API return status to success
2320: x_return_status := FND_API.G_RET_STS_SUCCESS;
2321:
2322: --Get number of records in the ouput table
2323: l_Terr_QTypUsg_Out_Tbl_Count := X_Terr_QualTypeUsgs_Out_Tbl.Count;
2324: l_Terr_QTypUsg_Out_Tbl := X_Terr_QualTypeUsgs_Out_Tbl;
2323: l_Terr_QTypUsg_Out_Tbl_Count := X_Terr_QualTypeUsgs_Out_Tbl.Count;
2324: l_Terr_QTypUsg_Out_Tbl := X_Terr_QualTypeUsgs_Out_Tbl;
2325:
2326: FOR l_Counter IN 1 .. l_Terr_QTypUsg_Out_Tbl_Count LOOP
2327: If l_Terr_QTypUsg_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
2328: l_Terr_QTypUsg_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
2329: THEN
2330: X_return_status := FND_API.G_RET_STS_ERROR;
2331: END IF;
2324: l_Terr_QTypUsg_Out_Tbl := X_Terr_QualTypeUsgs_Out_Tbl;
2325:
2326: FOR l_Counter IN 1 .. l_Terr_QTypUsg_Out_Tbl_Count LOOP
2327: If l_Terr_QTypUsg_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
2328: l_Terr_QTypUsg_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
2329: THEN
2330: X_return_status := FND_API.G_RET_STS_ERROR;
2331: END IF;
2332: END LOOP;
2326: FOR l_Counter IN 1 .. l_Terr_QTypUsg_Out_Tbl_Count LOOP
2327: If l_Terr_QTypUsg_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
2328: l_Terr_QTypUsg_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
2329: THEN
2330: X_return_status := FND_API.G_RET_STS_ERROR;
2331: END IF;
2332: END LOOP;
2333:
2334: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2338: FND_MSG_PUB.Add;
2339: END IF;
2340:
2341: -- Standard check for p_commit
2342: IF FND_API.to_Boolean( p_commit )
2343: THEN
2344: COMMIT WORK;
2345: END IF;
2346:
2410: -- End of Comments
2411: --
2412: PROCEDURE Create_Terr_Qualifier
2413: ( P_Api_Version_Number IN NUMBER,
2414: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2415: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2416: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2417: P_Terr_Id IN NUMBER,
2418: P_Terr_Qual_Rec IN Terr_Qual_Rec_Type := G_Miss_Terr_Qual_Rec,
2411: --
2412: PROCEDURE Create_Terr_Qualifier
2413: ( P_Api_Version_Number IN NUMBER,
2414: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2415: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2416: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2417: P_Terr_Id IN NUMBER,
2418: P_Terr_Qual_Rec IN Terr_Qual_Rec_Type := G_Miss_Terr_Qual_Rec,
2419: X_Return_Status OUT NOCOPY VARCHAR2,
2412: PROCEDURE Create_Terr_Qualifier
2413: ( P_Api_Version_Number IN NUMBER,
2414: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2415: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2416: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2417: P_Terr_Id IN NUMBER,
2418: P_Terr_Qual_Rec IN Terr_Qual_Rec_Type := G_Miss_Terr_Qual_Rec,
2419: X_Return_Status OUT NOCOPY VARCHAR2,
2420: X_Msg_Count OUT NOCOPY NUMBER,
2433: -- Standard Start of API savepoint
2434: SAVEPOINT CREATE_TERR_QUAL_PVT;
2435:
2436: -- Standard call to check for call compatibility.
2437: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2438: p_api_version_number,
2439: l_api_name,
2440: G_PKG_NAME)
2441: THEN
2438: p_api_version_number,
2439: l_api_name,
2440: G_PKG_NAME)
2441: THEN
2442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2443: END IF;
2444:
2445: -- Initialize message list if p_init_msg_list is set to TRUE.
2446: IF FND_API.to_Boolean( p_init_msg_list )
2442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2443: END IF;
2444:
2445: -- Initialize message list if p_init_msg_list is set to TRUE.
2446: IF FND_API.to_Boolean( p_init_msg_list )
2447: THEN
2448: FND_MSG_PUB.initialize;
2449: END IF;
2450:
2456: FND_MSG_PUB.Add;
2457: END IF;
2458:
2459: -- Initialize API return status to success
2460: x_return_status := FND_API.G_RET_STS_SUCCESS;
2461:
2462: -- Check the validation level
2463: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2464:
2459: -- Initialize API return status to success
2460: x_return_status := FND_API.G_RET_STS_SUCCESS;
2461:
2462: -- Check the validation level
2463: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2464:
2465: -- Debug message
2466: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2467: THEN
2470: FND_MSG_PUB.Add;
2471: END IF;
2472: -- Check for ORG_ID
2473: IF (P_Terr_Qual_Rec.ORG_ID is NULL OR
2474: P_Terr_Qual_Rec.ORG_ID = FND_API.G_MISS_NUM ) THEN
2475: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2476: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
2477: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
2478: FND_MSG_PUB.ADD;
2476: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
2477: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
2478: FND_MSG_PUB.ADD;
2479: END IF;
2480: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2481: End If;
2482:
2483: --Check created by
2484: IF ( P_Terr_Qual_Rec.CREATED_BY is NULL OR
2481: End If;
2482:
2483: --Check created by
2484: IF ( P_Terr_Qual_Rec.CREATED_BY is NULL OR
2485: P_Terr_Qual_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
2486: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2487: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
2488: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
2489: FND_MSG_PUB.ADD;
2487: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
2488: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
2489: FND_MSG_PUB.ADD;
2490: END IF;
2491: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2492: End If;
2493:
2494: --Check creation date
2495: If ( P_Terr_Qual_Rec.CREATION_DATE is NULL OR
2492: End If;
2493:
2494: --Check creation date
2495: If ( P_Terr_Qual_Rec.CREATION_DATE is NULL OR
2496: P_Terr_Qual_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
2497: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2498: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
2499: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
2500: FND_MSG_PUB.ADD;
2498: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
2499: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
2500: FND_MSG_PUB.ADD;
2501: END IF;
2502: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2503: End If;
2504: --
2505: -- Invoke validation procedures
2506: Validate_Qualifier(p_init_msg_list => FND_API.G_FALSE,
2502: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2503: End If;
2504: --
2505: -- Invoke validation procedures
2506: Validate_Qualifier(p_init_msg_list => FND_API.G_FALSE,
2507: x_Return_Status => x_return_status,
2508: x_msg_count => x_msg_count,
2509: x_msg_data => x_msg_data,
2510: p_Terr_Id => p_Terr_Id,
2511: P_Terr_Qual_Rec => P_Terr_Qual_Rec);
2512:
2513: --dbms_output('Create_Terr_Qualifier REC: x_return_status = ' || x_return_status);
2514:
2515: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2516: RAISE FND_API.G_EXC_ERROR;
2517: END IF;
2518: --
2519: END IF;
2512:
2513: --dbms_output('Create_Terr_Qualifier REC: x_return_status = ' || x_return_status);
2514:
2515: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2516: RAISE FND_API.G_EXC_ERROR;
2517: END IF;
2518: --
2519: END IF;
2520:
2517: END IF;
2518: --
2519: END IF;
2520:
2521: /* Intialise to NULL if FND_API.G_MISS_NUM,
2522: ** otherwise used passed in value
2523: */
2524: IF (l_terr_qual_id = FND_API.G_MISS_NUM) THEN
2525: l_terr_qual_id := NULL;
2520:
2521: /* Intialise to NULL if FND_API.G_MISS_NUM,
2522: ** otherwise used passed in value
2523: */
2524: IF (l_terr_qual_id = FND_API.G_MISS_NUM) THEN
2525: l_terr_qual_id := NULL;
2526: END IF;
2527:
2528: -- Call insert terr_Qual_Type_Usgs table handler
2546: X_Terr_Qual_Id := l_Terr_Qual_Id;
2547: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := l_TERR_QUAL_ID;
2548:
2549: -- If successful then save the success status for the record
2550: X_Terr_Qual_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
2551:
2552:
2553: /* update Sales territory's number of Account qualifiers
2554: */
2563: FND_MSG_PUB.Add;
2564: END IF;
2565:
2566: -- Standard check for p_commit
2567: IF FND_API.to_Boolean( p_commit )
2568: THEN
2569: COMMIT WORK;
2570: END IF;
2571:
2577:
2578:
2579: --dbms_output('Create_Terr_Qualifier REC: Exiting API');
2580: EXCEPTION
2581: WHEN FND_API.G_EXC_ERROR THEN
2582: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_ERROR');
2583: ROLLBACK TO CREATE_TERR_QUAL_PVT;
2584: x_return_status := FND_API.G_RET_STS_ERROR ;
2585: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := NULL;
2578:
2579: --dbms_output('Create_Terr_Qualifier REC: Exiting API');
2580: EXCEPTION
2581: WHEN FND_API.G_EXC_ERROR THEN
2582: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_ERROR');
2583: ROLLBACK TO CREATE_TERR_QUAL_PVT;
2584: x_return_status := FND_API.G_RET_STS_ERROR ;
2585: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := NULL;
2586: X_Terr_Qual_Out_Rec.return_status := x_return_status;
2580: EXCEPTION
2581: WHEN FND_API.G_EXC_ERROR THEN
2582: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_ERROR');
2583: ROLLBACK TO CREATE_TERR_QUAL_PVT;
2584: x_return_status := FND_API.G_RET_STS_ERROR ;
2585: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := NULL;
2586: X_Terr_Qual_Out_Rec.return_status := x_return_status;
2587: FND_MSG_PUB.Count_And_Get
2588: ( p_count => x_msg_count,
2588: ( p_count => x_msg_count,
2589: p_data => x_msg_data
2590: );
2591:
2592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2593: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
2594: ROLLBACK TO CREATE_TERR_QUAL_PVT;
2595: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2596: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := NULL;
2589: p_data => x_msg_data
2590: );
2591:
2592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2593: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
2594: ROLLBACK TO CREATE_TERR_QUAL_PVT;
2595: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2596: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := NULL;
2597: X_Terr_Qual_Out_Rec.return_status := x_return_status;
2591:
2592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2593: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
2594: ROLLBACK TO CREATE_TERR_QUAL_PVT;
2595: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2596: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := NULL;
2597: X_Terr_Qual_Out_Rec.return_status := x_return_status;
2598: FND_MSG_PUB.Count_And_Get
2599: ( p_count => x_msg_count,
2603:
2604: WHEN OTHERS THEN
2605: --dbms_output('Create_Terr_Qualifier REC: OTHERS - ' || SQLERRM);
2606: ROLLBACK TO CREATE_TERR_QUAL_PVT;
2607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2608: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := NULL;
2609: X_Terr_Qual_Out_Rec.return_status := x_return_status;
2610: --
2611: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2645: -- End of Comments
2646: --
2647: PROCEDURE Create_Terr_Qualifier
2648: ( P_Api_Version_Number IN NUMBER,
2649: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2650: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2651: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2652: P_Terr_Id IN NUMBER,
2653: P_Terr_Qual_Tbl IN Terr_Qual_Tbl_Type := G_Miss_Terr_Qual_Tbl,
2646: --
2647: PROCEDURE Create_Terr_Qualifier
2648: ( P_Api_Version_Number IN NUMBER,
2649: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2650: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2651: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2652: P_Terr_Id IN NUMBER,
2653: P_Terr_Qual_Tbl IN Terr_Qual_Tbl_Type := G_Miss_Terr_Qual_Tbl,
2654: X_Return_Status OUT NOCOPY VARCHAR2,
2647: PROCEDURE Create_Terr_Qualifier
2648: ( P_Api_Version_Number IN NUMBER,
2649: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2650: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2651: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2652: P_Terr_Id IN NUMBER,
2653: P_Terr_Qual_Tbl IN Terr_Qual_Tbl_Type := G_Miss_Terr_Qual_Tbl,
2654: X_Return_Status OUT NOCOPY VARCHAR2,
2655: X_Msg_Count OUT NOCOPY NUMBER,
2674: -- Standard Start of API savepoint
2675: SAVEPOINT CREATE_TERR_QUAL_PVT;
2676:
2677: -- Standard call to check for call compatibility.
2678: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2679: p_api_version_number,
2680: l_api_name,
2681: G_PKG_NAME)
2682: THEN
2679: p_api_version_number,
2680: l_api_name,
2681: G_PKG_NAME)
2682: THEN
2683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2684: END IF;
2685:
2686: -- Initialize message list if p_init_msg_list is set to TRUE.
2687: IF FND_API.to_Boolean( p_init_msg_list )
2683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2684: END IF;
2685:
2686: -- Initialize message list if p_init_msg_list is set to TRUE.
2687: IF FND_API.to_Boolean( p_init_msg_list )
2688: THEN
2689: FND_MSG_PUB.initialize;
2690: END IF;
2691:
2697: FND_MSG_PUB.Add;
2698: END IF;
2699:
2700: -- Initialize API return status to success
2701: x_return_status := FND_API.G_RET_STS_SUCCESS;
2702:
2703: -- Call overloaded Create_Terr_Qualifier procedure
2704: --
2705: FOR l_Counter IN 1 .. l_Terr_Qual_Tbl_Count LOOP
2718: X_Terr_Qual_Id => l_Terr_qual_id,
2719: X_Terr_Qual_Out_Rec => l_Terr_Qual_Out_Rec);
2720: --
2721: --If there is a major error
2722: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2723: --dbms_output('Create_Terr_Qualifier TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
2724: -- Save the terr_usg_id and
2725: X_Terr_Qual_Out_Tbl(l_counter).TERR_QUAL_ID := NULL;
2726: -- If save the ERROR status for the record
2719: X_Terr_Qual_Out_Rec => l_Terr_Qual_Out_Rec);
2720: --
2721: --If there is a major error
2722: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2723: --dbms_output('Create_Terr_Qualifier TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
2724: -- Save the terr_usg_id and
2725: X_Terr_Qual_Out_Tbl(l_counter).TERR_QUAL_ID := NULL;
2726: -- If save the ERROR status for the record
2727: X_Terr_Qual_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2723: --dbms_output('Create_Terr_Qualifier TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
2724: -- Save the terr_usg_id and
2725: X_Terr_Qual_Out_Tbl(l_counter).TERR_QUAL_ID := NULL;
2726: -- If save the ERROR status for the record
2727: X_Terr_Qual_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2728: ELSE
2729: --dbms_output('Create_Terr_Qualifier TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
2730: -- Save the terr_usg_id and
2731: X_Terr_Qual_Out_Tbl(l_counter).TERR_QUAL_ID := l_TERR_QUAL_ID;
2725: X_Terr_Qual_Out_Tbl(l_counter).TERR_QUAL_ID := NULL;
2726: -- If save the ERROR status for the record
2727: X_Terr_Qual_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2728: ELSE
2729: --dbms_output('Create_Terr_Qualifier TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
2730: -- Save the terr_usg_id and
2731: X_Terr_Qual_Out_Tbl(l_counter).TERR_QUAL_ID := l_TERR_QUAL_ID;
2732: -- If successful then save the success status for the record
2733: X_Terr_Qual_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_SUCCESS;
2729: --dbms_output('Create_Terr_Qualifier TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
2730: -- Save the terr_usg_id and
2731: X_Terr_Qual_Out_Tbl(l_counter).TERR_QUAL_ID := l_TERR_QUAL_ID;
2732: -- If successful then save the success status for the record
2733: X_Terr_Qual_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_SUCCESS;
2734: END IF;
2735: --
2736: END LOOP;
2737:
2735: --
2736: END LOOP;
2737:
2738: -- Initialize API return status to success
2739: x_return_status := FND_API.G_RET_STS_SUCCESS;
2740:
2741: --Get number of records in the ouput table
2742: l_Terr_Qual_Out_Tbl_Count := X_Terr_Qual_Out_Tbl.Count;
2743: l_Terr_Qual_Out_Tbl := X_Terr_Qual_Out_Tbl;
2743: l_Terr_Qual_Out_Tbl := X_Terr_Qual_Out_Tbl;
2744:
2745: -- Get the API overall return status
2746: FOR l_Counter IN 1 .. l_Terr_Qual_Out_Tbl_Count LOOP
2747: If l_Terr_Qual_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
2748: l_Terr_Qual_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
2749: THEN
2750: X_return_status := FND_API.G_RET_STS_ERROR;
2751: END IF;
2744:
2745: -- Get the API overall return status
2746: FOR l_Counter IN 1 .. l_Terr_Qual_Out_Tbl_Count LOOP
2747: If l_Terr_Qual_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
2748: l_Terr_Qual_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
2749: THEN
2750: X_return_status := FND_API.G_RET_STS_ERROR;
2751: END IF;
2752: END LOOP;
2746: FOR l_Counter IN 1 .. l_Terr_Qual_Out_Tbl_Count LOOP
2747: If l_Terr_Qual_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
2748: l_Terr_Qual_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
2749: THEN
2750: X_return_status := FND_API.G_RET_STS_ERROR;
2751: END IF;
2752: END LOOP;
2753: --
2754: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2758: FND_MSG_PUB.Add;
2759: END IF;
2760:
2761: -- Standard check for p_commit
2762: IF FND_API.to_Boolean( p_commit )
2763: THEN
2764: COMMIT WORK;
2765: END IF;
2766:
2791: -- p_Terr_Values_Tbl Terr_Values_Tbl_Type := G_Miss_Terr_Values_Tbl
2792: --
2793: -- Optional
2794: -- Parameter Name Data Type Default
2795: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
2796: -- p_Commit VARCHAR2 := FND_API.G_FALSE
2797: -- p_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL,
2798: --
2799: -- OUT :
2792: --
2793: -- Optional
2794: -- Parameter Name Data Type Default
2795: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
2796: -- p_Commit VARCHAR2 := FND_API.G_FALSE
2797: -- p_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL,
2798: --
2799: -- OUT :
2800: -- Parameter Name Data Type
2793: -- Optional
2794: -- Parameter Name Data Type Default
2795: -- p_Init_Msg_List VARCHAR2 := FND_API.G_FALSE
2796: -- p_Commit VARCHAR2 := FND_API.G_FALSE
2797: -- p_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL,
2798: --
2799: -- OUT :
2800: -- Parameter Name Data Type
2801: -- x_Return_Status VARCHAR2(1)
2808: --
2809: PROCEDURE Create_Terr_qualifier
2810: (
2811: p_Api_Version_Number IN NUMBER,
2812: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2813: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
2814: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2815: x_Return_Status OUT NOCOPY VARCHAR2,
2816: x_Msg_Count OUT NOCOPY NUMBER,
2809: PROCEDURE Create_Terr_qualifier
2810: (
2811: p_Api_Version_Number IN NUMBER,
2812: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2813: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
2814: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2815: x_Return_Status OUT NOCOPY VARCHAR2,
2816: x_Msg_Count OUT NOCOPY NUMBER,
2817: x_Msg_Data OUT NOCOPY VARCHAR2,
2810: (
2811: p_Api_Version_Number IN NUMBER,
2812: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2813: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
2814: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2815: x_Return_Status OUT NOCOPY VARCHAR2,
2816: x_Msg_Count OUT NOCOPY NUMBER,
2817: x_Msg_Data OUT NOCOPY VARCHAR2,
2818: P_Terr_Qual_Rec IN Terr_Qual_Rec_Type := G_Miss_Terr_Qual_Rec,
2836: --dbms_output('Create_Territory PVT: Entering API -' || G_APP_SHORT_NAME);
2837: -- Standard Start of API savepoint
2838: SAVEPOINT CREATE_TERRITORY_PVT;
2839: -- Standard call to check for call compatibility.
2840: IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME) THEN
2841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2842: END IF;
2843:
2844: -- Initialize message list if p_init_msg_list is set to TRUE.
2837: -- Standard Start of API savepoint
2838: SAVEPOINT CREATE_TERRITORY_PVT;
2839: -- Standard call to check for call compatibility.
2840: IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME) THEN
2841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2842: END IF;
2843:
2844: -- Initialize message list if p_init_msg_list is set to TRUE.
2845: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2842: END IF;
2843:
2844: -- Initialize message list if p_init_msg_list is set to TRUE.
2845: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2846: FND_MSG_PUB.initialize;
2847: END IF;
2848:
2849: -- Debug Message
2852: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
2853: FND_MSG_PUB.ADD;
2854: END IF;
2855: -- Initialize API return status to success
2856: x_return_status := FND_API.G_RET_STS_SUCCESS;
2857: --
2858: --Check whether the territory values are specified
2859: IF (p_Terr_Values_Tbl.COUNT = 0 ) THEN
2860: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2860: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2861: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_VALUES');
2862: FND_MSG_PUB.ADD;
2863: END IF;
2864: x_return_status := FND_API.G_RET_STS_ERROR;
2865: RAISE FND_API.G_EXC_ERROR;
2866: END IF;
2867:
2868: -- Terr ID can't be null.
2861: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_VALUES');
2862: FND_MSG_PUB.ADD;
2863: END IF;
2864: x_return_status := FND_API.G_RET_STS_ERROR;
2865: RAISE FND_API.G_EXC_ERROR;
2866: END IF;
2867:
2868: -- Terr ID can't be null.
2869: IF (P_Terr_Qual_Rec.TERR_ID IS NULL) OR (P_Terr_Qual_Rec.TERR_ID = FND_API.G_MISS_NUM) THEN
2865: RAISE FND_API.G_EXC_ERROR;
2866: END IF;
2867:
2868: -- Terr ID can't be null.
2869: IF (P_Terr_Qual_Rec.TERR_ID IS NULL) OR (P_Terr_Qual_Rec.TERR_ID = FND_API.G_MISS_NUM) THEN
2870: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2871: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
2872: FND_MESSAGE.Set_Token('COL_NAME', 'TERR_ID' );
2873: FND_MSG_PUB.ADD;
2871: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
2872: FND_MESSAGE.Set_Token('COL_NAME', 'TERR_ID' );
2873: FND_MSG_PUB.ADD;
2874: END IF;
2875: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2876: RAISE FND_API.G_EXC_ERROR;
2877: END IF;
2878:
2879: -- Validate the territory Id
2872: FND_MESSAGE.Set_Token('COL_NAME', 'TERR_ID' );
2873: FND_MSG_PUB.ADD;
2874: END IF;
2875: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2876: RAISE FND_API.G_EXC_ERROR;
2877: END IF;
2878:
2879: -- Validate the territory Id
2880: If ( P_Terr_Qual_Rec.TERR_ID IS NOT NULL )AND (P_Terr_Qual_Rec.TERR_ID = FND_API.G_MISS_NUM ) Then
2876: RAISE FND_API.G_EXC_ERROR;
2877: END IF;
2878:
2879: -- Validate the territory Id
2880: If ( P_Terr_Qual_Rec.TERR_ID IS NOT NULL )AND (P_Terr_Qual_Rec.TERR_ID = FND_API.G_MISS_NUM ) Then
2881: --dbms_output('Validate_Terr_Qtype_Usage: TERR_ID(' || to_char(l_Validate_id) || ')');
2882: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(P_Terr_Qual_Rec.TERR_ID, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
2883: --dbms_output('Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
2884: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2878:
2879: -- Validate the territory Id
2880: If ( P_Terr_Qual_Rec.TERR_ID IS NOT NULL )AND (P_Terr_Qual_Rec.TERR_ID = FND_API.G_MISS_NUM ) Then
2881: --dbms_output('Validate_Terr_Qtype_Usage: TERR_ID(' || to_char(l_Validate_id) || ')');
2882: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(P_Terr_Qual_Rec.TERR_ID, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
2883: --dbms_output('Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
2884: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2885: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
2886: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_ALL');
2879: -- Validate the territory Id
2880: If ( P_Terr_Qual_Rec.TERR_ID IS NOT NULL )AND (P_Terr_Qual_Rec.TERR_ID = FND_API.G_MISS_NUM ) Then
2881: --dbms_output('Validate_Terr_Qtype_Usage: TERR_ID(' || to_char(l_Validate_id) || ')');
2882: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(P_Terr_Qual_Rec.TERR_ID, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
2883: --dbms_output('Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
2884: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2885: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
2886: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_ALL');
2887: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
2886: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_ALL');
2887: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
2888: FND_MSG_PUB.ADD;
2889: END IF;
2890: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2891: End If;
2892: End If;
2893: -- Create the territory qualifier record
2894: --
2905: X_Terr_Qual_Out_Rec => X_Terr_Qual_Out_Rec);
2906: --
2907:
2908: --If there is a major error
2909: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2910: -- Save the terr_usg_id and
2911: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := NULL;
2912: -- If save the ERROR status for the record
2913: X_Terr_Qual_Out_Rec.return_status := X_Return_Status;
2911: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := NULL;
2912: -- If save the ERROR status for the record
2913: X_Terr_Qual_Out_Rec.return_status := X_Return_Status;
2914: X_Return_Status := l_return_status;
2915: RAISE FND_API.G_EXC_ERROR;
2916: ELSE
2917: -- Save the terr_usg_id and
2918: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := l_TERR_QUAL_ID;
2919: -- If successful then save the success status for the record
2916: ELSE
2917: -- Save the terr_usg_id and
2918: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := l_TERR_QUAL_ID;
2919: -- If successful then save the success status for the record
2920: X_Terr_Qual_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
2921: END IF;
2922:
2923: IF (p_Terr_Values_Tbl.COUNT > 0) THEN
2924: --
2933: X_Msg_Count => l_Msg_Count,
2934: X_Msg_Data => l_Msg_Data,
2935: X_Terr_Value_Out_Tbl => x_Terr_Values_Out_Tbl);
2936:
2937: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2938: X_Return_Status := l_return_status;
2939: RAISE FND_API.G_EXC_ERROR;
2940: END IF;
2941: END IF; /* p_Terr_Qual_Tbl.count > 0 */
2935: X_Terr_Value_Out_Tbl => x_Terr_Values_Out_Tbl);
2936:
2937: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2938: X_Return_Status := l_return_status;
2939: RAISE FND_API.G_EXC_ERROR;
2940: END IF;
2941: END IF; /* p_Terr_Qual_Tbl.count > 0 */
2942:
2943: --If the program reached here, that mena evry thing went smooth
2940: END IF;
2941: END IF; /* p_Terr_Qual_Tbl.count > 0 */
2942:
2943: --If the program reached here, that mena evry thing went smooth
2944: x_return_status := FND_API.G_RET_STS_SUCCESS;
2945:
2946: -- Debug Message
2947: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2948: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
2951: END IF;
2952: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
2953:
2954: -- Standard check for p_commit
2955: IF FND_API.to_Boolean( p_commit ) THEN
2956: COMMIT WORK;
2957: END IF;
2958: --
2959: EXCEPTION
2957: END IF;
2958: --
2959: EXCEPTION
2960: --
2961: WHEN FND_API.G_EXC_ERROR THEN
2962: ROLLBACK TO CREATE_TERRITORY_PVT;
2963: x_return_status := FND_API.G_RET_STS_ERROR ;
2964: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
2965: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2959: EXCEPTION
2960: --
2961: WHEN FND_API.G_EXC_ERROR THEN
2962: ROLLBACK TO CREATE_TERRITORY_PVT;
2963: x_return_status := FND_API.G_RET_STS_ERROR ;
2964: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
2965: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2966: ROLLBACK TO CREATE_TERRITORY_PVT;
2967: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2961: WHEN FND_API.G_EXC_ERROR THEN
2962: ROLLBACK TO CREATE_TERRITORY_PVT;
2963: x_return_status := FND_API.G_RET_STS_ERROR ;
2964: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
2965: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2966: ROLLBACK TO CREATE_TERRITORY_PVT;
2967: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2968: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
2969: WHEN OTHERS THEN
2963: x_return_status := FND_API.G_RET_STS_ERROR ;
2964: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
2965: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2966: ROLLBACK TO CREATE_TERRITORY_PVT;
2967: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2968: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
2969: WHEN OTHERS THEN
2970: ROLLBACK TO CREATE_TERRITORY_PVT;
2971: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2967: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2968: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
2969: WHEN OTHERS THEN
2970: ROLLBACK TO CREATE_TERRITORY_PVT;
2971: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2972: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
2973:
2974: END Create_Terr_Qualifier;
2975:
3007: -- End of Comments
3008: --
3009: PROCEDURE Create_Terr_Value
3010: (P_Api_Version_Number IN NUMBER,
3011: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3012: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3013: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3014: P_Terr_Id IN NUMBER,
3015: p_terr_qual_id IN NUMBER,
3008: --
3009: PROCEDURE Create_Terr_Value
3010: (P_Api_Version_Number IN NUMBER,
3011: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3012: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3013: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3014: P_Terr_Id IN NUMBER,
3015: p_terr_qual_id IN NUMBER,
3016: P_Terr_Value_Rec IN Terr_Values_Rec_Type := G_Miss_Terr_Values_Rec,
3009: PROCEDURE Create_Terr_Value
3010: (P_Api_Version_Number IN NUMBER,
3011: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3012: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3013: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3014: P_Terr_Id IN NUMBER,
3015: p_terr_qual_id IN NUMBER,
3016: P_Terr_Value_Rec IN Terr_Values_Rec_Type := G_Miss_Terr_Values_Rec,
3017: X_Return_Status OUT NOCOPY VARCHAR2,
3031: -- Standard Start of API savepoint
3032: SAVEPOINT CREATE_TERR_VALUE_PVT;
3033:
3034: -- Standard call to check for call compatibility.
3035: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3036: p_api_version_number,
3037: l_api_name,
3038: G_PKG_NAME)
3039: THEN
3036: p_api_version_number,
3037: l_api_name,
3038: G_PKG_NAME)
3039: THEN
3040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3041: END IF;
3042:
3043: -- Initialize message list if p_init_msg_list is set to TRUE.
3044: IF FND_API.to_Boolean( p_init_msg_list )
3040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3041: END IF;
3042:
3043: -- Initialize message list if p_init_msg_list is set to TRUE.
3044: IF FND_API.to_Boolean( p_init_msg_list )
3045: THEN
3046: FND_MSG_PUB.initialize;
3047: END IF;
3048:
3054: FND_MSG_PUB.Add;
3055: END IF;
3056:
3057: -- Initialize API return status to success
3058: x_return_status := FND_API.G_RET_STS_SUCCESS;
3059:
3060: -- Check the validation level
3061: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
3062: -- Debug message
3057: -- Initialize API return status to success
3058: x_return_status := FND_API.G_RET_STS_SUCCESS;
3059:
3060: -- Check the validation level
3061: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
3062: -- Debug message
3063: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3064: THEN
3065: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
3069:
3070:
3071: --Check created by
3072: IF ( p_Terr_Value_Rec.CREATED_BY is NULL OR
3073: p_Terr_Value_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
3074: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3075: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3076: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
3077: FND_MSG_PUB.ADD;
3075: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3076: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
3077: FND_MSG_PUB.ADD;
3078: END IF;
3079: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3080: End If;
3081:
3082: --Check creation date
3083: If ( p_Terr_Value_Rec.CREATION_DATE is NULL OR
3080: End If;
3081:
3082: --Check creation date
3083: If ( p_Terr_Value_Rec.CREATION_DATE is NULL OR
3084: p_Terr_Value_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
3085: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3086: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3087: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
3088: FND_MSG_PUB.ADD;
3086: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3087: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
3088: FND_MSG_PUB.ADD;
3089: END IF;
3090: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3091: End If;
3092:
3093: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3094: RAISE FND_API.G_EXC_ERROR;
3089: END IF;
3090: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3091: End If;
3092:
3093: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3094: RAISE FND_API.G_EXC_ERROR;
3095: END IF;
3096: -- Invoke validation procedures
3097: Validate_Terr_Value_Rec(p_init_msg_list => FND_API.G_FALSE,
3090: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3091: End If;
3092:
3093: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3094: RAISE FND_API.G_EXC_ERROR;
3095: END IF;
3096: -- Invoke validation procedures
3097: Validate_Terr_Value_Rec(p_init_msg_list => FND_API.G_FALSE,
3098: x_return_status => x_return_status,
3093: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3094: RAISE FND_API.G_EXC_ERROR;
3095: END IF;
3096: -- Invoke validation procedures
3097: Validate_Terr_Value_Rec(p_init_msg_list => FND_API.G_FALSE,
3098: x_return_status => x_return_status,
3099: x_msg_count => x_msg_count,
3100: x_msg_data => x_msg_data,
3101: p_terr_qual_id => p_terr_qual_id,
3100: x_msg_data => x_msg_data,
3101: p_terr_qual_id => p_terr_qual_id,
3102: p_Terr_Value_Rec => P_Terr_Value_Rec);
3103:
3104: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3105: RAISE FND_API.G_EXC_ERROR;
3106: END IF;
3107: -- Check for duplicate values
3108: -- Invoke validation procedures
3101: p_terr_qual_id => p_terr_qual_id,
3102: p_Terr_Value_Rec => P_Terr_Value_Rec);
3103:
3104: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3105: RAISE FND_API.G_EXC_ERROR;
3106: END IF;
3107: -- Check for duplicate values
3108: -- Invoke validation procedures
3109: Check_duplicate_Value(p_init_msg_list => FND_API.G_FALSE,
3105: RAISE FND_API.G_EXC_ERROR;
3106: END IF;
3107: -- Check for duplicate values
3108: -- Invoke validation procedures
3109: Check_duplicate_Value(p_init_msg_list => FND_API.G_FALSE,
3110: x_return_status => x_return_status,
3111: x_msg_count => x_msg_count,
3112: x_msg_data => x_msg_data,
3113: p_terr_qual_id => p_terr_qual_id,
3112: x_msg_data => x_msg_data,
3113: p_terr_qual_id => p_terr_qual_id,
3114: p_Terr_Value_Rec => P_Terr_Value_Rec);
3115:
3116: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3117: RAISE FND_API.G_EXC_ERROR;
3118: END IF;
3119:
3120: END IF;
3113: p_terr_qual_id => p_terr_qual_id,
3114: p_Terr_Value_Rec => P_Terr_Value_Rec);
3115:
3116: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3117: RAISE FND_API.G_EXC_ERROR;
3118: END IF;
3119:
3120: END IF;
3121:
3118: END IF;
3119:
3120: END IF;
3121:
3122: /* Intialise to NULL if FND_API.G_MISS_NUM,
3123: ** otherwise used passed in value
3124: */
3125: IF (l_terr_value_id = FND_API.G_MISS_NUM) THEN
3126: l_terr_value_id := NULL;
3121:
3122: /* Intialise to NULL if FND_API.G_MISS_NUM,
3123: ** otherwise used passed in value
3124: */
3125: IF (l_terr_value_id = FND_API.G_MISS_NUM) THEN
3126: l_terr_value_id := NULL;
3127: END IF;
3128: --
3129: --dbms_output('Create_Terr_Value PVT: Before Calling JTF_TERR_VALUES_PKG.Insert_Row');
3160: X_Terr_Value_Id := l_Terr_Value_Id;
3161: X_Terr_Value_Out_Rec.TERR_VALUE_ID := l_TERR_VALUE_ID;
3162:
3163: -- If successful then save the success status for the record
3164: X_Terr_Value_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
3165:
3166: --
3167: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3168: THEN
3171: FND_MSG_PUB.Add;
3172: END IF;
3173:
3174: -- Standard check for p_commit
3175: IF FND_API.to_Boolean( p_commit )
3176: THEN
3177: COMMIT WORK;
3178: END IF;
3179:
3184: );
3185:
3186: --dbms_output('Create_Terr_Value PVT: Exiting API');
3187: EXCEPTION
3188: WHEN FND_API.G_EXC_ERROR THEN
3189: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_ERROR');
3190: ROLLBACK TO CREATE_TERR_VALUE_PVT;
3191: x_return_status := FND_API.G_RET_STS_ERROR ;
3192: X_Terr_Value_Out_Rec.TERR_VALUE_ID := NULL;
3185:
3186: --dbms_output('Create_Terr_Value PVT: Exiting API');
3187: EXCEPTION
3188: WHEN FND_API.G_EXC_ERROR THEN
3189: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_ERROR');
3190: ROLLBACK TO CREATE_TERR_VALUE_PVT;
3191: x_return_status := FND_API.G_RET_STS_ERROR ;
3192: X_Terr_Value_Out_Rec.TERR_VALUE_ID := NULL;
3193: X_Terr_Value_Out_Rec.return_status := x_return_status;
3187: EXCEPTION
3188: WHEN FND_API.G_EXC_ERROR THEN
3189: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_ERROR');
3190: ROLLBACK TO CREATE_TERR_VALUE_PVT;
3191: x_return_status := FND_API.G_RET_STS_ERROR ;
3192: X_Terr_Value_Out_Rec.TERR_VALUE_ID := NULL;
3193: X_Terr_Value_Out_Rec.return_status := x_return_status;
3194: FND_MSG_PUB.Count_And_Get
3195: ( p_count => x_msg_count,
3195: ( p_count => x_msg_count,
3196: p_data => x_msg_data
3197: );
3198:
3199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3200: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
3201: ROLLBACK TO CREATE_TERR_VALUE_PVT;
3202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3203: X_Terr_Value_Out_Rec.TERR_VALUE_ID := NULL;
3196: p_data => x_msg_data
3197: );
3198:
3199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3200: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
3201: ROLLBACK TO CREATE_TERR_VALUE_PVT;
3202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3203: X_Terr_Value_Out_Rec.TERR_VALUE_ID := NULL;
3204: X_Terr_Value_Out_Rec.return_status := x_return_status;
3198:
3199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3200: --dbms_output('Create_Territory_Record PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
3201: ROLLBACK TO CREATE_TERR_VALUE_PVT;
3202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3203: X_Terr_Value_Out_Rec.TERR_VALUE_ID := NULL;
3204: X_Terr_Value_Out_Rec.return_status := x_return_status;
3205:
3206: FND_MSG_PUB.Count_And_Get
3210:
3211: WHEN OTHERS THEN
3212: --dbms_output('Create_Terr_Value PVT: OTHERS - ' || SQLERRM);
3213: ROLLBACK TO CREATE_TERR_VALUE_PVT;
3214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3215: X_Terr_Value_Out_Rec.TERR_VALUE_ID := NULL;
3216: X_Terr_Value_Out_Rec.return_status := x_return_status;
3217: --
3218: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3254: -- End of Comments
3255: --
3256: PROCEDURE Create_Terr_Value
3257: (P_Api_Version_Number IN NUMBER,
3258: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3259: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3260: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3261: P_Terr_Id IN NUMBER,
3262: p_terr_qual_id IN NUMBER,
3255: --
3256: PROCEDURE Create_Terr_Value
3257: (P_Api_Version_Number IN NUMBER,
3258: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3259: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3260: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3261: P_Terr_Id IN NUMBER,
3262: p_terr_qual_id IN NUMBER,
3263: P_Terr_Value_Tbl IN Terr_Values_Tbl_Type := G_Miss_Terr_Values_Tbl,
3256: PROCEDURE Create_Terr_Value
3257: (P_Api_Version_Number IN NUMBER,
3258: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3259: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3260: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3261: P_Terr_Id IN NUMBER,
3262: p_terr_qual_id IN NUMBER,
3263: P_Terr_Value_Tbl IN Terr_Values_Tbl_Type := G_Miss_Terr_Values_Tbl,
3264: X_Return_Status OUT NOCOPY VARCHAR2,
3284: -- Standard Start of API savepoint
3285: SAVEPOINT CREATE_TERR_VALUE_PVT;
3286:
3287: -- Standard call to check for call compatibility.
3288: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3289: p_api_version_number,
3290: l_api_name,
3291: G_PKG_NAME)
3292: THEN
3289: p_api_version_number,
3290: l_api_name,
3291: G_PKG_NAME)
3292: THEN
3293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3294: END IF;
3295:
3296: -- Initialize message list if p_init_msg_list is set to TRUE.
3297: IF FND_API.to_Boolean( p_init_msg_list )
3293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3294: END IF;
3295:
3296: -- Initialize message list if p_init_msg_list is set to TRUE.
3297: IF FND_API.to_Boolean( p_init_msg_list )
3298: THEN
3299: FND_MSG_PUB.initialize;
3300: END IF;
3301:
3307: FND_MSG_PUB.Add;
3308: END IF;
3309:
3310: -- Initialize API return status to success
3311: x_return_status := FND_API.G_RET_STS_SUCCESS;
3312:
3313: -- Call overloaded Create_Terr_Qualifier procedure
3314: --
3315: FOR l_Counter IN 1 .. l_Terr_Value_Tbl_Count LOOP
3329: X_Terr_Value_Id => l_Terr_Value_id,
3330: X_Terr_Value_Out_Rec => l_Terr_Value_Out_Rec);
3331: --
3332: --If there is a major error
3333: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3334: --dbms_output('Create_Terr_Value TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
3335: -- Save the terr_usg_id and
3336: X_Terr_Value_Out_Tbl(l_counter).TERR_VALUE_ID := NULL;
3337: -- If save the ERROR status for the record
3330: X_Terr_Value_Out_Rec => l_Terr_Value_Out_Rec);
3331: --
3332: --If there is a major error
3333: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3334: --dbms_output('Create_Terr_Value TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
3335: -- Save the terr_usg_id and
3336: X_Terr_Value_Out_Tbl(l_counter).TERR_VALUE_ID := NULL;
3337: -- If save the ERROR status for the record
3338: X_Terr_Value_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3334: --dbms_output('Create_Terr_Value TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
3335: -- Save the terr_usg_id and
3336: X_Terr_Value_Out_Tbl(l_counter).TERR_VALUE_ID := NULL;
3337: -- If save the ERROR status for the record
3338: X_Terr_Value_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3339: ELSE
3340: --dbms_output('Create_Terr_Value TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
3341: -- Save the terr_usg_id and
3342: X_Terr_Value_Out_Tbl(l_counter).TERR_VALUE_ID := l_TERR_VALUE_ID;
3336: X_Terr_Value_Out_Tbl(l_counter).TERR_VALUE_ID := NULL;
3337: -- If save the ERROR status for the record
3338: X_Terr_Value_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3339: ELSE
3340: --dbms_output('Create_Terr_Value TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
3341: -- Save the terr_usg_id and
3342: X_Terr_Value_Out_Tbl(l_counter).TERR_VALUE_ID := l_TERR_VALUE_ID;
3343: -- If successful then save the success status for the record
3344: X_Terr_Value_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_SUCCESS;
3340: --dbms_output('Create_Terr_Value TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
3341: -- Save the terr_usg_id and
3342: X_Terr_Value_Out_Tbl(l_counter).TERR_VALUE_ID := l_TERR_VALUE_ID;
3343: -- If successful then save the success status for the record
3344: X_Terr_Value_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_SUCCESS;
3345: END IF;
3346: --
3347: END LOOP;
3348:
3347: END LOOP;
3348:
3349: -- Get the API overall return status
3350: -- Initialize API return status to success
3351: x_return_status := FND_API.G_RET_STS_SUCCESS;
3352:
3353: --Get number of records in the ouput table
3354: l_Terr_Value_Out_Tbl_Count := X_Terr_Value_Out_Tbl.Count;
3355: l_Terr_Value_Out_Tbl := X_Terr_Value_Out_Tbl;
3354: l_Terr_Value_Out_Tbl_Count := X_Terr_Value_Out_Tbl.Count;
3355: l_Terr_Value_Out_Tbl := X_Terr_Value_Out_Tbl;
3356:
3357: FOR l_Counter IN 1 .. l_Terr_Value_Out_Tbl_Count LOOP
3358: If l_Terr_Value_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
3359: l_Terr_Value_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
3360: THEN
3361: X_return_status := FND_API.G_RET_STS_ERROR;
3362: END IF;
3355: l_Terr_Value_Out_Tbl := X_Terr_Value_Out_Tbl;
3356:
3357: FOR l_Counter IN 1 .. l_Terr_Value_Out_Tbl_Count LOOP
3358: If l_Terr_Value_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
3359: l_Terr_Value_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
3360: THEN
3361: X_return_status := FND_API.G_RET_STS_ERROR;
3362: END IF;
3363: END LOOP;
3357: FOR l_Counter IN 1 .. l_Terr_Value_Out_Tbl_Count LOOP
3358: If l_Terr_Value_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
3359: l_Terr_Value_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
3360: THEN
3361: X_return_status := FND_API.G_RET_STS_ERROR;
3362: END IF;
3363: END LOOP;
3364: --
3365: --
3372: END IF;
3373:
3374: --
3375: -- Standard check for p_commit
3376: IF FND_API.to_Boolean( p_commit )
3377: THEN
3378: COMMIT WORK;
3379: END IF;
3380:
3412: -- End of Comments
3413: --
3414: PROCEDURE Update_Territory_Record
3415: ( P_Api_Version_Number IN NUMBER,
3416: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3417: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3418: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3419: P_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec,
3420: X_Return_Status OUT NOCOPY VARCHAR2,
3413: --
3414: PROCEDURE Update_Territory_Record
3415: ( P_Api_Version_Number IN NUMBER,
3416: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3417: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3418: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3419: P_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec,
3420: X_Return_Status OUT NOCOPY VARCHAR2,
3421: X_Msg_Count OUT NOCOPY NUMBER,
3414: PROCEDURE Update_Territory_Record
3415: ( P_Api_Version_Number IN NUMBER,
3416: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3417: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3418: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3419: P_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec,
3420: X_Return_Status OUT NOCOPY VARCHAR2,
3421: X_Msg_Count OUT NOCOPY NUMBER,
3422: X_Msg_Data OUT NOCOPY VARCHAR2,
3491: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
3492: FND_MSG_PUB.Add;
3493: END IF;
3494: -- Initialize API return status to SUCCESS
3495: x_return_status := FND_API.G_RET_STS_SUCCESS;
3496:
3497: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE)
3498: THEN
3499: -- Debug message
3493: END IF;
3494: -- Initialize API return status to SUCCESS
3495: x_return_status := FND_API.G_RET_STS_SUCCESS;
3496:
3497: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE)
3498: THEN
3499: -- Debug message
3500: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3501: THEN
3504: FND_MSG_PUB.Add;
3505: END IF;
3506: --
3507: -- Invoke validation procedures
3508: Validate_TerrRec_Update (p_init_msg_list => FND_API.G_FALSE,
3509: x_Return_Status => x_return_status,
3510: x_msg_count => x_msg_count,
3511: x_msg_data => x_msg_data,
3512: p_Terr_All_Rec => P_Terr_All_Rec);
3510: x_msg_count => x_msg_count,
3511: x_msg_data => x_msg_data,
3512: p_Terr_All_Rec => P_Terr_All_Rec);
3513:
3514: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3515: RAISE FND_API.G_EXC_ERROR;
3516: END IF;
3517: END IF;
3518:
3511: x_msg_data => x_msg_data,
3512: p_Terr_All_Rec => P_Terr_All_Rec);
3513:
3514: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3515: RAISE FND_API.G_EXC_ERROR;
3516: END IF;
3517: END IF;
3518:
3519: --dbms_output('Update_territory_Record: opening cursor C_GetTerritory');
3576: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_QTYPE_USGS');
3577: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(p_terr_all_rec.terr_id));
3578: FND_MSG_PUB.Add;
3579: END IF;
3580: raise FND_API.G_EXC_ERROR;
3581: End if;
3582: CLOSE C_GetTerritory;
3583:
3584: --dbms_output('Update_territory_Record: Before Calling JTF_TERR_PKG.Update_Row');
3627: x_attribute13 => p_terr_all_rec.attribute13,
3628: x_attribute14 => p_terr_all_rec.attribute14,
3629: x_attribute15 => p_terr_all_rec.attribute15,
3630: -- We can't update the ORG_ID -- VPALLE
3631: x_org_id => FND_API.G_MISS_NUM,
3632: x_num_winners => p_terr_all_rec.NUM_WINNERS,
3633: x_num_qual => p_terr_all_rec.NUM_QUAL);
3634:
3635: X_Terr_All_Out_Rec.Terr_id := P_Terr_All_Rec.Terr_Id;
3632: x_num_winners => p_terr_all_rec.NUM_WINNERS,
3633: x_num_qual => p_terr_all_rec.NUM_QUAL);
3634:
3635: X_Terr_All_Out_Rec.Terr_id := P_Terr_All_Rec.Terr_Id;
3636: X_Terr_All_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
3637:
3638: -- Debug Message
3639: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3640: THEN
3644: END IF;
3645:
3646: --dbms_output('Update_territory_Record PVT: Exiting API');
3647: EXCEPTION
3648: WHEN FND_API.G_EXC_ERROR THEN
3649: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
3650: x_return_status := FND_API.G_RET_STS_ERROR ;
3651: FND_MSG_PUB.Count_And_Get
3652: ( P_count => x_msg_count,
3645:
3646: --dbms_output('Update_territory_Record PVT: Exiting API');
3647: EXCEPTION
3648: WHEN FND_API.G_EXC_ERROR THEN
3649: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
3650: x_return_status := FND_API.G_RET_STS_ERROR ;
3651: FND_MSG_PUB.Count_And_Get
3652: ( P_count => x_msg_count,
3653: P_data => x_msg_data
3646: --dbms_output('Update_territory_Record PVT: Exiting API');
3647: EXCEPTION
3648: WHEN FND_API.G_EXC_ERROR THEN
3649: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
3650: x_return_status := FND_API.G_RET_STS_ERROR ;
3651: FND_MSG_PUB.Count_And_Get
3652: ( P_count => x_msg_count,
3653: P_data => x_msg_data
3654: );
3655:
3656:
3657: WHEN OTHERS THEN
3658: --dbms_output('Update_territory_Record PVT: OTHERS - ' || SQLERRM);
3659: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3660: X_Terr_All_Out_Rec.Terr_id := P_Terr_All_Rec.Terr_Id;
3661: X_Terr_All_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3662: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3663: THEN
3657: WHEN OTHERS THEN
3658: --dbms_output('Update_territory_Record PVT: OTHERS - ' || SQLERRM);
3659: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3660: X_Terr_All_Out_Rec.Terr_id := P_Terr_All_Rec.Terr_Id;
3661: X_Terr_All_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3662: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3663: THEN
3664: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Update error inside Update_Territory_Record');
3665: END IF;
3691: -- End of Comments
3692: --
3693: PROCEDURE Update_Territory_Usages
3694: ( P_Api_Version_Number IN NUMBER,
3695: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3696: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3697: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3698: P_Terr_Usgs_Rec IN Terr_Usgs_Rec_Type := G_MISS_TERR_USGS_REC,
3699: X_Return_Status OUT NOCOPY VARCHAR2,
3692: --
3693: PROCEDURE Update_Territory_Usages
3694: ( P_Api_Version_Number IN NUMBER,
3695: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3696: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3697: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3698: P_Terr_Usgs_Rec IN Terr_Usgs_Rec_Type := G_MISS_TERR_USGS_REC,
3699: X_Return_Status OUT NOCOPY VARCHAR2,
3700: X_Msg_Count OUT NOCOPY NUMBER,
3693: PROCEDURE Update_Territory_Usages
3694: ( P_Api_Version_Number IN NUMBER,
3695: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3696: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3697: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3698: P_Terr_Usgs_Rec IN Terr_Usgs_Rec_Type := G_MISS_TERR_USGS_REC,
3699: X_Return_Status OUT NOCOPY VARCHAR2,
3700: X_Msg_Count OUT NOCOPY NUMBER,
3701: X_Msg_Data OUT NOCOPY VARCHAR2,
3730: FND_MSG_PUB.Add;
3731: END IF;
3732:
3733: -- Initialize API return status to SUCCESS
3734: x_return_status := FND_API.G_RET_STS_SUCCESS;
3735:
3736: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
3737: THEN
3738: -- Debug message
3732:
3733: -- Initialize API return status to SUCCESS
3734: x_return_status := FND_API.G_RET_STS_SUCCESS;
3735:
3736: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
3737: THEN
3738: -- Debug message
3739: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3740: THEN
3743: FND_MSG_PUB.Add;
3744: END IF;
3745: --
3746: -- Invoke validation procedures
3747: Validate_Territory_Usage(p_init_msg_list => FND_API.G_FALSE,
3748: x_Return_Status => x_return_status,
3749: x_msg_count => x_msg_count,
3750: x_msg_data => x_msg_data,
3751: p_Terr_Id => P_Terr_Usgs_Rec.Terr_Id,
3750: x_msg_data => x_msg_data,
3751: p_Terr_Id => P_Terr_Usgs_Rec.Terr_Id,
3752: P_Terr_Usgs_Rec => P_Terr_Usgs_Rec);
3753: --
3754: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3755: RAISE FND_API.G_EXC_ERROR;
3756: END IF;
3757: --
3758: END IF;
3751: p_Terr_Id => P_Terr_Usgs_Rec.Terr_Id,
3752: P_Terr_Usgs_Rec => P_Terr_Usgs_Rec);
3753: --
3754: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3755: RAISE FND_API.G_EXC_ERROR;
3756: END IF;
3757: --
3758: END IF;
3759:
3780: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_QTYPE_USGS');
3781: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_Terr_Usgs_Rec.terr_usg_id));
3782: FND_MSG_PUB.Add;
3783: END IF;
3784: raise FND_API.G_EXC_ERROR;
3785: End if;
3786: CLOSE C_GetTerritoryUsage;
3787:
3788: --dbms_output('Update_Territory_Usages PVT: Before Calling JTF_TERR_USGS_PKG.Update_Row');
3798: x_SOURCE_ID => P_Terr_Usgs_Rec.source_id,
3799: x_ORG_ID => P_Terr_Usgs_Rec.org_id);
3800:
3801: X_Terr_Usgs_Out_Rec.TERR_USG_ID := P_Terr_Usgs_Rec.Terr_Usg_Id;
3802: X_Terr_Usgs_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
3803:
3804: -- Debug Message
3805: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
3806: THEN
3810: END IF;
3811:
3812: --dbms_output('Update_Territory_Usages PVT: Exiting API');
3813: EXCEPTION
3814: WHEN FND_API.G_EXC_ERROR THEN
3815: --dbms_output('Update_Territory_Usages: FND_API.G_EXC_ERROR');
3816: x_return_status := FND_API.G_RET_STS_ERROR ;
3817: FND_MSG_PUB.Count_And_Get
3818: ( P_count => x_msg_count,
3811:
3812: --dbms_output('Update_Territory_Usages PVT: Exiting API');
3813: EXCEPTION
3814: WHEN FND_API.G_EXC_ERROR THEN
3815: --dbms_output('Update_Territory_Usages: FND_API.G_EXC_ERROR');
3816: x_return_status := FND_API.G_RET_STS_ERROR ;
3817: FND_MSG_PUB.Count_And_Get
3818: ( P_count => x_msg_count,
3819: P_data => x_msg_data
3812: --dbms_output('Update_Territory_Usages PVT: Exiting API');
3813: EXCEPTION
3814: WHEN FND_API.G_EXC_ERROR THEN
3815: --dbms_output('Update_Territory_Usages: FND_API.G_EXC_ERROR');
3816: x_return_status := FND_API.G_RET_STS_ERROR ;
3817: FND_MSG_PUB.Count_And_Get
3818: ( P_count => x_msg_count,
3819: P_data => x_msg_data
3820: );
3821:
3822:
3823: WHEN OTHERS THEN
3824: --dbms_output('Update_Territory_Usages PVT: OTHERS - ' || SQLERRM);
3825: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3826: X_Terr_Usgs_Out_Rec.Terr_Usg_Id := P_Terr_Usgs_Rec.Terr_Usg_Id;
3827: X_Terr_Usgs_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3828: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3829: THEN
3823: WHEN OTHERS THEN
3824: --dbms_output('Update_Territory_Usages PVT: OTHERS - ' || SQLERRM);
3825: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3826: X_Terr_Usgs_Out_Rec.Terr_Usg_Id := P_Terr_Usgs_Rec.Terr_Usg_Id;
3827: X_Terr_Usgs_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3828: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3829: THEN
3830: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Update error inside Update_Territory_Usages');
3831: END IF;
3856: -- End of Comments
3857: --
3858: PROCEDURE Update_Territory_Usages
3859: ( P_Api_Version_Number IN NUMBER,
3860: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3861: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3862: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3863: P_Terr_Usgs_Tbl IN Terr_Usgs_Tbl_Type := G_MISS_Terr_Usgs_Tbl,
3864: X_Return_Status OUT NOCOPY VARCHAR2,
3857: --
3858: PROCEDURE Update_Territory_Usages
3859: ( P_Api_Version_Number IN NUMBER,
3860: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3861: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3862: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3863: P_Terr_Usgs_Tbl IN Terr_Usgs_Tbl_Type := G_MISS_Terr_Usgs_Tbl,
3864: X_Return_Status OUT NOCOPY VARCHAR2,
3865: X_Msg_Count OUT NOCOPY NUMBER,
3858: PROCEDURE Update_Territory_Usages
3859: ( P_Api_Version_Number IN NUMBER,
3860: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3861: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3862: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3863: P_Terr_Usgs_Tbl IN Terr_Usgs_Tbl_Type := G_MISS_Terr_Usgs_Tbl,
3864: X_Return_Status OUT NOCOPY VARCHAR2,
3865: X_Msg_Count OUT NOCOPY NUMBER,
3866: X_Msg_Data OUT NOCOPY VARCHAR2,
3887: FND_MSG_PUB.Add;
3888: END IF;
3889:
3890: -- Initialize API return status to success
3891: x_return_status := FND_API.G_RET_STS_SUCCESS;
3892:
3893: -- Call insert terr_Qual_Type_Usgs table handler
3894: --
3895: FOR l_Counter IN 1 .. l_Terr_Usgs_Tbl_Count LOOP
3905: X_Msg_Data => X_Msg_Data,
3906: X_Terr_Usgs_Out_Rec => l_Terr_Usg_Out_Rec);
3907: --
3908: --If there is a major error
3909: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3910: --dbms_output('Update_Territory_Usages TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
3911: -- Save the terr_usg_id and
3912: X_Terr_Usgs_Out_Tbl(l_counter).TERR_USG_ID := l_Terr_Usg_Out_Rec.terr_usg_id;
3913: -- If save the ERROR status for the record
3906: X_Terr_Usgs_Out_Rec => l_Terr_Usg_Out_Rec);
3907: --
3908: --If there is a major error
3909: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3910: --dbms_output('Update_Territory_Usages TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
3911: -- Save the terr_usg_id and
3912: X_Terr_Usgs_Out_Tbl(l_counter).TERR_USG_ID := l_Terr_Usg_Out_Rec.terr_usg_id;
3913: -- If save the ERROR status for the record
3914: X_Terr_Usgs_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3910: --dbms_output('Update_Territory_Usages TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
3911: -- Save the terr_usg_id and
3912: X_Terr_Usgs_Out_Tbl(l_counter).TERR_USG_ID := l_Terr_Usg_Out_Rec.terr_usg_id;
3913: -- If save the ERROR status for the record
3914: X_Terr_Usgs_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3915: ELSE
3916: --dbms_output('Update_Territory_Usages TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
3917: -- Save the terr_usg_id and
3918: X_Terr_Usgs_Out_Tbl(l_counter).TERR_USG_ID := l_Terr_Usg_Out_Rec.terr_usg_id;
3912: X_Terr_Usgs_Out_Tbl(l_counter).TERR_USG_ID := l_Terr_Usg_Out_Rec.terr_usg_id;
3913: -- If save the ERROR status for the record
3914: X_Terr_Usgs_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3915: ELSE
3916: --dbms_output('Update_Territory_Usages TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
3917: -- Save the terr_usg_id and
3918: X_Terr_Usgs_Out_Tbl(l_counter).TERR_USG_ID := l_Terr_Usg_Out_Rec.terr_usg_id;
3919: -- If successful then save the success status for the record
3920: X_Terr_Usgs_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_SUCCESS;
3916: --dbms_output('Update_Territory_Usages TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
3917: -- Save the terr_usg_id and
3918: X_Terr_Usgs_Out_Tbl(l_counter).TERR_USG_ID := l_Terr_Usg_Out_Rec.terr_usg_id;
3919: -- If successful then save the success status for the record
3920: X_Terr_Usgs_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_SUCCESS;
3921: END IF;
3922: --
3923: END LOOP;
3924:
3922: --
3923: END LOOP;
3924:
3925: -- Initialize API return status to success
3926: x_return_status := FND_API.G_RET_STS_SUCCESS;
3927: --
3928: --Get number of records in the ouput table
3929: l_Terr_Usgs_Out_Tbl_Count := X_Terr_Usgs_Out_Tbl.Count;
3930: l_Terr_Usgs_Out_Tbl := X_Terr_Usgs_Out_Tbl;
3931:
3932: --
3933: -- Get the API overall return status
3934: FOR l_Counter IN 1 .. l_Terr_Usgs_Out_Tbl_Count LOOP
3935: If l_Terr_Usgs_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
3936: l_Terr_Usgs_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
3937: THEN
3938: X_return_status := FND_API.G_RET_STS_ERROR;
3939: END IF;
3932: --
3933: -- Get the API overall return status
3934: FOR l_Counter IN 1 .. l_Terr_Usgs_Out_Tbl_Count LOOP
3935: If l_Terr_Usgs_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
3936: l_Terr_Usgs_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
3937: THEN
3938: X_return_status := FND_API.G_RET_STS_ERROR;
3939: END IF;
3940: END LOOP;
3934: FOR l_Counter IN 1 .. l_Terr_Usgs_Out_Tbl_Count LOOP
3935: If l_Terr_Usgs_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
3936: l_Terr_Usgs_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
3937: THEN
3938: X_return_status := FND_API.G_RET_STS_ERROR;
3939: END IF;
3940: END LOOP;
3941:
3942: -- Debug Message
3973: -- End of Comments
3974: --
3975: PROCEDURE Update_Terr_QualType_Usage
3976: ( P_Api_Version_Number IN NUMBER,
3977: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3978: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3979: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3980: P_Terr_QualTypeUsgs_Rec IN Terr_QualTypeUsgs_Rec_Type := G_Miss_Terr_QualTypeUsgs_Rec,
3981: X_Return_Status OUT NOCOPY VARCHAR2,
3974: --
3975: PROCEDURE Update_Terr_QualType_Usage
3976: ( P_Api_Version_Number IN NUMBER,
3977: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3978: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3979: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3980: P_Terr_QualTypeUsgs_Rec IN Terr_QualTypeUsgs_Rec_Type := G_Miss_Terr_QualTypeUsgs_Rec,
3981: X_Return_Status OUT NOCOPY VARCHAR2,
3982: X_Msg_Count OUT NOCOPY NUMBER,
3975: PROCEDURE Update_Terr_QualType_Usage
3976: ( P_Api_Version_Number IN NUMBER,
3977: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3978: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3979: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3980: P_Terr_QualTypeUsgs_Rec IN Terr_QualTypeUsgs_Rec_Type := G_Miss_Terr_QualTypeUsgs_Rec,
3981: X_Return_Status OUT NOCOPY VARCHAR2,
3982: X_Msg_Count OUT NOCOPY NUMBER,
3983: X_Msg_Data OUT NOCOPY VARCHAR2,
4014: FND_MSG_PUB.Add;
4015: END IF;
4016:
4017: -- Initialize API return status to SUCCESS
4018: x_return_status := FND_API.G_RET_STS_SUCCESS;
4019:
4020: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
4021: THEN
4022: -- Debug message
4016:
4017: -- Initialize API return status to SUCCESS
4018: x_return_status := FND_API.G_RET_STS_SUCCESS;
4019:
4020: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
4021: THEN
4022: -- Debug message
4023: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4024: THEN
4026: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Qtype_Usage');
4027: FND_MSG_PUB.Add;
4028: END IF;
4029: -- Invoke validation procedures
4030: Validate_Terr_Qtype_Usage(p_init_msg_list => FND_API.G_FALSE,
4031: x_Return_Status => x_return_status,
4032: x_msg_count => x_msg_count,
4033: x_msg_data => x_msg_data,
4034: p_Terr_Id => P_Terr_QualTypeUsgs_Rec.Terr_Id,
4032: x_msg_count => x_msg_count,
4033: x_msg_data => x_msg_data,
4034: p_Terr_Id => P_Terr_QualTypeUsgs_Rec.Terr_Id,
4035: P_Terr_QualTypeUsgs_Rec => P_Terr_QualTypeUsgs_Rec);
4036: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4037: RAISE FND_API.G_EXC_ERROR;
4038: END IF;
4039: --
4040: END IF;
4033: x_msg_data => x_msg_data,
4034: p_Terr_Id => P_Terr_QualTypeUsgs_Rec.Terr_Id,
4035: P_Terr_QualTypeUsgs_Rec => P_Terr_QualTypeUsgs_Rec);
4036: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4037: RAISE FND_API.G_EXC_ERROR;
4038: END IF;
4039: --
4040: END IF;
4041:
4059: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_QTYPE_USGS');
4060: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_Terr_QualTypeUsgs_Rec.TERR_QUAL_TYPE_USG_ID));
4061: FND_MSG_PUB.Add;
4062: END IF;
4063: raise FND_API.G_EXC_ERROR;
4064: End if;
4065: CLOSE C_GetTerrQualTypeUsgs;
4066:
4067: --dbms_output('Update_Terr_QualType_Usage REC: Before Calling JTF_TERR_QTYPE_USGS_PKG.Update_Row');
4076: x_QUAL_TYPE_USG_ID => P_Terr_QualTypeUsgs_Rec.QUAL_TYPE_USG_ID,
4077: x_ORG_ID => P_Terr_QualTypeUsgs_Rec.ORG_ID);
4078: --
4079: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := P_Terr_QualTypeUsgs_Rec.TERR_QUAL_TYPE_USG_ID;
4080: X_Terr_QualTypeUsgs_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
4081:
4082: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4083: THEN
4084: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_END_MSG');
4087: END IF;
4088:
4089: --dbms_output('Update_Terr_QualType_Usage REC: Exiting API');
4090: EXCEPTION
4091: WHEN FND_API.G_EXC_ERROR THEN
4092: --dbms_output('Update_Terr_QualType_Usage: FND_API.G_EXC_ERROR');
4093: x_return_status := FND_API.G_RET_STS_ERROR ;
4094: FND_MSG_PUB.Count_And_Get
4095: ( P_count => x_msg_count,
4088:
4089: --dbms_output('Update_Terr_QualType_Usage REC: Exiting API');
4090: EXCEPTION
4091: WHEN FND_API.G_EXC_ERROR THEN
4092: --dbms_output('Update_Terr_QualType_Usage: FND_API.G_EXC_ERROR');
4093: x_return_status := FND_API.G_RET_STS_ERROR ;
4094: FND_MSG_PUB.Count_And_Get
4095: ( P_count => x_msg_count,
4096: P_data => x_msg_data
4089: --dbms_output('Update_Terr_QualType_Usage REC: Exiting API');
4090: EXCEPTION
4091: WHEN FND_API.G_EXC_ERROR THEN
4092: --dbms_output('Update_Terr_QualType_Usage: FND_API.G_EXC_ERROR');
4093: x_return_status := FND_API.G_RET_STS_ERROR ;
4094: FND_MSG_PUB.Count_And_Get
4095: ( P_count => x_msg_count,
4096: P_data => x_msg_data
4097: );
4097: );
4098:
4099: WHEN OTHERS THEN
4100: --dbms_output('Update_Terr_QualType_Usage REC: OTHERS - ' || SQLERRM);
4101: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4102: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := P_Terr_QualTypeUsgs_Rec.TERR_QUAL_TYPE_USG_ID;
4103: X_Terr_QualTypeUsgs_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4104: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4105: THEN
4099: WHEN OTHERS THEN
4100: --dbms_output('Update_Terr_QualType_Usage REC: OTHERS - ' || SQLERRM);
4101: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4102: X_Terr_QualTypeUsgs_Out_Rec.TERR_QUAL_TYPE_USG_ID := P_Terr_QualTypeUsgs_Rec.TERR_QUAL_TYPE_USG_ID;
4103: X_Terr_QualTypeUsgs_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4104: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4105: THEN
4106: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Error: Inside Update_Terr_QualType_Usage');
4107: END IF;
4132: -- End of Comments
4133: --
4134: PROCEDURE Update_Terr_QualType_Usage
4135: ( P_Api_Version_Number IN NUMBER,
4136: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4137: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4138: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4139: P_Terr_QualTypeUsgs_Tbl IN Terr_QualTypeUsgs_Tbl_Type := G_Miss_Terr_QualTypeUsgs_Tbl,
4140: X_Return_Status OUT NOCOPY VARCHAR2,
4133: --
4134: PROCEDURE Update_Terr_QualType_Usage
4135: ( P_Api_Version_Number IN NUMBER,
4136: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4137: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4138: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4139: P_Terr_QualTypeUsgs_Tbl IN Terr_QualTypeUsgs_Tbl_Type := G_Miss_Terr_QualTypeUsgs_Tbl,
4140: X_Return_Status OUT NOCOPY VARCHAR2,
4141: X_Msg_Count OUT NOCOPY NUMBER,
4134: PROCEDURE Update_Terr_QualType_Usage
4135: ( P_Api_Version_Number IN NUMBER,
4136: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4137: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4138: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4139: P_Terr_QualTypeUsgs_Tbl IN Terr_QualTypeUsgs_Tbl_Type := G_Miss_Terr_QualTypeUsgs_Tbl,
4140: X_Return_Status OUT NOCOPY VARCHAR2,
4141: X_Msg_Count OUT NOCOPY NUMBER,
4142: X_Msg_Data OUT NOCOPY VARCHAR2,
4163: FND_MSG_PUB.Add;
4164: END IF;
4165:
4166: -- Initialize API return status to success
4167: x_return_status := FND_API.G_RET_STS_SUCCESS;
4168: -- Call insert terr_Qual_Type_Usgs table handler
4169: --
4170: FOR l_Counter IN 1 .. l_Terr_QualTypeUsgs_Tbl_Count LOOP
4171: --
4180: X_Msg_Data => X_Msg_Data,
4181: X_Terr_QualTypeUsgs_Out_Rec => l_Terr_QTypUsg_Out_Rec);
4182: --
4183: --If there is a major error
4184: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4185: --dbms_output('Update_Terr_QualType_Usage TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
4186: -- Save the terr_usg_id and
4187: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).TERR_QUAL_TYPE_USG_ID := l_Terr_QTypUsg_Out_Rec.terr_qual_type_usg_id;
4188: -- If save the ERROR status for the record
4181: X_Terr_QualTypeUsgs_Out_Rec => l_Terr_QTypUsg_Out_Rec);
4182: --
4183: --If there is a major error
4184: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4185: --dbms_output('Update_Terr_QualType_Usage TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
4186: -- Save the terr_usg_id and
4187: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).TERR_QUAL_TYPE_USG_ID := l_Terr_QTypUsg_Out_Rec.terr_qual_type_usg_id;
4188: -- If save the ERROR status for the record
4189: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4185: --dbms_output('Update_Terr_QualType_Usage TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
4186: -- Save the terr_usg_id and
4187: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).TERR_QUAL_TYPE_USG_ID := l_Terr_QTypUsg_Out_Rec.terr_qual_type_usg_id;
4188: -- If save the ERROR status for the record
4189: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4190: ELSE
4191: --dbms_output('Update_Terr_QualType_Usage TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
4192: -- Save the terr_usg_id and
4193: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).TERR_QUAL_TYPE_USG_ID := l_Terr_QTypUsg_Out_Rec.terr_qual_type_usg_id;
4187: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).TERR_QUAL_TYPE_USG_ID := l_Terr_QTypUsg_Out_Rec.terr_qual_type_usg_id;
4188: -- If save the ERROR status for the record
4189: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4190: ELSE
4191: --dbms_output('Update_Terr_QualType_Usage TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
4192: -- Save the terr_usg_id and
4193: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).TERR_QUAL_TYPE_USG_ID := l_Terr_QTypUsg_Out_Rec.terr_qual_type_usg_id;
4194: -- If successful then save the success status for the record
4195: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_SUCCESS;
4191: --dbms_output('Update_Terr_QualType_Usage TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
4192: -- Save the terr_usg_id and
4193: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).TERR_QUAL_TYPE_USG_ID := l_Terr_QTypUsg_Out_Rec.terr_qual_type_usg_id;
4194: -- If successful then save the success status for the record
4195: X_Terr_QualTypeUsgs_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_SUCCESS;
4196: END IF;
4197: --
4198: END LOOP;
4199:
4197: --
4198: END LOOP;
4199:
4200: -- Initialize API return status to success
4201: x_return_status := FND_API.G_RET_STS_SUCCESS;
4202:
4203: --Get number of records in the ouput table
4204: l_Terr_QTypUsg_Out_Tbl_Count := X_Terr_QualTypeUsgs_Out_Tbl.Count;
4205: l_Terr_QTypUsg_Out_Tbl := X_Terr_QualTypeUsgs_Out_Tbl;
4205: l_Terr_QTypUsg_Out_Tbl := X_Terr_QualTypeUsgs_Out_Tbl;
4206:
4207: --Get the API overall return status
4208: FOR l_Counter IN 1 .. l_Terr_QTypUsg_Out_Tbl_Count LOOP
4209: If l_Terr_QTypUsg_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
4210: l_Terr_QTypUsg_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
4211: THEN
4212: X_return_status := FND_API.G_RET_STS_ERROR;
4213: END IF;
4206:
4207: --Get the API overall return status
4208: FOR l_Counter IN 1 .. l_Terr_QTypUsg_Out_Tbl_Count LOOP
4209: If l_Terr_QTypUsg_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
4210: l_Terr_QTypUsg_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
4211: THEN
4212: X_return_status := FND_API.G_RET_STS_ERROR;
4213: END IF;
4214: END LOOP;
4208: FOR l_Counter IN 1 .. l_Terr_QTypUsg_Out_Tbl_Count LOOP
4209: If l_Terr_QTypUsg_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
4210: l_Terr_QTypUsg_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
4211: THEN
4212: X_return_status := FND_API.G_RET_STS_ERROR;
4213: END IF;
4214: END LOOP;
4215:
4216: -- Debug Message
4247: -- End of Comments
4248: --
4249: PROCEDURE Update_Terr_Qualifier
4250: ( P_Api_Version_Number IN NUMBER,
4251: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4252: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4253: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4254: P_Terr_Qual_Rec IN Terr_Qual_Rec_Type := G_Miss_Terr_Qual_Rec,
4255: X_Return_Status OUT NOCOPY VARCHAR2,
4248: --
4249: PROCEDURE Update_Terr_Qualifier
4250: ( P_Api_Version_Number IN NUMBER,
4251: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4252: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4253: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4254: P_Terr_Qual_Rec IN Terr_Qual_Rec_Type := G_Miss_Terr_Qual_Rec,
4255: X_Return_Status OUT NOCOPY VARCHAR2,
4256: X_Msg_Count OUT NOCOPY NUMBER,
4249: PROCEDURE Update_Terr_Qualifier
4250: ( P_Api_Version_Number IN NUMBER,
4251: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4252: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4253: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4254: P_Terr_Qual_Rec IN Terr_Qual_Rec_Type := G_Miss_Terr_Qual_Rec,
4255: X_Return_Status OUT NOCOPY VARCHAR2,
4256: X_Msg_Count OUT NOCOPY NUMBER,
4257: X_Msg_Data OUT NOCOPY VARCHAR2,
4291: FND_MSG_PUB.Add;
4292: END IF;
4293:
4294: -- Initialize API return status to SUCCESS
4295: x_return_status := FND_API.G_RET_STS_SUCCESS;
4296:
4297: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
4298: THEN
4299: -- Debug message
4293:
4294: -- Initialize API return status to SUCCESS
4295: x_return_status := FND_API.G_RET_STS_SUCCESS;
4296:
4297: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
4298: THEN
4299: -- Debug message
4300: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4301: THEN
4304: FND_MSG_PUB.Add;
4305: END IF;
4306: --
4307: -- Invoke validation procedures
4308: Validate_Qualifier(p_init_msg_list => FND_API.G_FALSE,
4309: x_Return_Status => x_return_status,
4310: x_msg_count => x_msg_count,
4311: x_msg_data => x_msg_data,
4312: p_Terr_Id => P_Terr_Qual_Rec.Terr_Id,
4311: x_msg_data => x_msg_data,
4312: p_Terr_Id => P_Terr_Qual_Rec.Terr_Id,
4313: P_Terr_Qual_Rec => P_Terr_Qual_Rec);
4314:
4315: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4316: RAISE FND_API.G_EXC_ERROR;
4317: END IF;
4318: --
4319: END IF;
4312: p_Terr_Id => P_Terr_Qual_Rec.Terr_Id,
4313: P_Terr_Qual_Rec => P_Terr_Qual_Rec);
4314:
4315: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4316: RAISE FND_API.G_EXC_ERROR;
4317: END IF;
4318: --
4319: END IF;
4320:
4342: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_QUAL');
4343: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_Terr_Qual_Rec.terr_qual_id));
4344: FND_MSG_PUB.Add;
4345: END IF;
4346: raise FND_API.G_EXC_ERROR;
4347: End if;
4348: CLOSE C_GetTerrQualifier;
4349: -- P_Terr_Qual_Rec.terr_qual_id cant be null
4350: --dbms_output('Update_Terr_Qualifier REC: Before Calling JTF_TERR_QUAL_PKG.Update_Row');
4361: x_GENERATE_FLAG => P_Terr_Qual_Rec.GENERATE_FLAG,
4362: x_OVERLAP_ALLOWED_FLAG => P_Terr_Qual_Rec.OVERLAP_ALLOWED_FLAG,
4363: x_QUALIFIER_MODE => P_Terr_Qual_Rec.QUALIFIER_MODE,
4364: -- We can't update the ORG_ID -- VPALLE
4365: x_ORG_ID => FND_API.G_MISS_NUM );
4366:
4367: --Call the update table handler
4368: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := P_Terr_Qual_Rec.TERR_QUAL_ID;
4369: X_Terr_Qual_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
4365: x_ORG_ID => FND_API.G_MISS_NUM );
4366:
4367: --Call the update table handler
4368: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := P_Terr_Qual_Rec.TERR_QUAL_ID;
4369: X_Terr_Qual_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
4370:
4371: -- Debug Message
4372: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4373: THEN
4377: END IF;
4378:
4379: --dbms_output('Update_Terr_Qualifier REC: Exiting API');
4380: EXCEPTION
4381: WHEN FND_API.G_EXC_ERROR THEN
4382: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
4383: x_return_status := FND_API.G_RET_STS_ERROR ;
4384: FND_MSG_PUB.Count_And_Get
4385: ( P_count => x_msg_count,
4378:
4379: --dbms_output('Update_Terr_Qualifier REC: Exiting API');
4380: EXCEPTION
4381: WHEN FND_API.G_EXC_ERROR THEN
4382: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
4383: x_return_status := FND_API.G_RET_STS_ERROR ;
4384: FND_MSG_PUB.Count_And_Get
4385: ( P_count => x_msg_count,
4386: P_data => x_msg_data
4379: --dbms_output('Update_Terr_Qualifier REC: Exiting API');
4380: EXCEPTION
4381: WHEN FND_API.G_EXC_ERROR THEN
4382: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
4383: x_return_status := FND_API.G_RET_STS_ERROR ;
4384: FND_MSG_PUB.Count_And_Get
4385: ( P_count => x_msg_count,
4386: P_data => x_msg_data
4387: );
4387: );
4388:
4389: WHEN OTHERS THEN
4390: --dbms_output('Update_Terr_Qualifier REC: OTHERS - ' || SQLERRM);
4391: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4392: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := P_Terr_Qual_Rec.TERR_QUAL_ID;
4393: X_Terr_Qual_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4394: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4395: THEN
4389: WHEN OTHERS THEN
4390: --dbms_output('Update_Terr_Qualifier REC: OTHERS - ' || SQLERRM);
4391: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4392: X_Terr_Qual_Out_Rec.TERR_QUAL_ID := P_Terr_Qual_Rec.TERR_QUAL_ID;
4393: X_Terr_Qual_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4394: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4395: THEN
4396: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Update error inside Update_Terr_Qualifier');
4397: END IF;
4420: -- End of Comments
4421: --
4422: PROCEDURE Update_Terr_Qualifier
4423: ( P_Api_Version_Number IN NUMBER,
4424: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4425: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4426: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4427: P_Terr_Qual_Tbl IN Terr_Qual_Tbl_Type := G_Miss_Terr_Qual_Tbl,
4428: X_Return_Status OUT NOCOPY VARCHAR2,
4421: --
4422: PROCEDURE Update_Terr_Qualifier
4423: ( P_Api_Version_Number IN NUMBER,
4424: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4425: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4426: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4427: P_Terr_Qual_Tbl IN Terr_Qual_Tbl_Type := G_Miss_Terr_Qual_Tbl,
4428: X_Return_Status OUT NOCOPY VARCHAR2,
4429: X_Msg_Count OUT NOCOPY NUMBER,
4422: PROCEDURE Update_Terr_Qualifier
4423: ( P_Api_Version_Number IN NUMBER,
4424: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4425: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4426: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4427: P_Terr_Qual_Tbl IN Terr_Qual_Tbl_Type := G_Miss_Terr_Qual_Tbl,
4428: X_Return_Status OUT NOCOPY VARCHAR2,
4429: X_Msg_Count OUT NOCOPY NUMBER,
4430: X_Msg_Data OUT NOCOPY VARCHAR2,
4450: FND_MSG_PUB.Add;
4451: END IF;
4452:
4453: -- Initialize API return status to success
4454: x_return_status := FND_API.G_RET_STS_SUCCESS;
4455: -- Call overloaded Create_Terr_Qualifier procedure
4456: --
4457: FOR l_Counter IN 1 .. l_Terr_Qual_Tbl_Count LOOP
4458: --
4467: X_Msg_Data => X_Msg_Data,
4468: X_Terr_Qual_Out_Rec => l_Terr_Qual_Out_Rec);
4469: --
4470: --If there is a major error
4471: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4472: --dbms_output('Update_Terr_Qualifier TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
4473: -- Save the terr_usg_id and
4474: X_Terr_Qual_Out_Tbl(l_counter).TERR_QUAL_ID := l_Terr_Qual_Out_Rec.TERR_QUAL_ID;
4475: -- If save the ERROR status for the record
4468: X_Terr_Qual_Out_Rec => l_Terr_Qual_Out_Rec);
4469: --
4470: --If there is a major error
4471: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4472: --dbms_output('Update_Terr_Qualifier TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
4473: -- Save the terr_usg_id and
4474: X_Terr_Qual_Out_Tbl(l_counter).TERR_QUAL_ID := l_Terr_Qual_Out_Rec.TERR_QUAL_ID;
4475: -- If save the ERROR status for the record
4476: X_Terr_Qual_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4472: --dbms_output('Update_Terr_Qualifier TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
4473: -- Save the terr_usg_id and
4474: X_Terr_Qual_Out_Tbl(l_counter).TERR_QUAL_ID := l_Terr_Qual_Out_Rec.TERR_QUAL_ID;
4475: -- If save the ERROR status for the record
4476: X_Terr_Qual_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4477: ELSE
4478: --dbms_output('Update_Terr_Qualifier TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
4479: -- Save the terr_usg_id and
4480: X_Terr_Qual_Out_Tbl(l_counter).TERR_QUAL_ID := l_Terr_Qual_Out_Rec.TERR_QUAL_ID;
4474: X_Terr_Qual_Out_Tbl(l_counter).TERR_QUAL_ID := l_Terr_Qual_Out_Rec.TERR_QUAL_ID;
4475: -- If save the ERROR status for the record
4476: X_Terr_Qual_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4477: ELSE
4478: --dbms_output('Update_Terr_Qualifier TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
4479: -- Save the terr_usg_id and
4480: X_Terr_Qual_Out_Tbl(l_counter).TERR_QUAL_ID := l_Terr_Qual_Out_Rec.TERR_QUAL_ID;
4481: -- If successful then save the success status for the record
4482: X_Terr_Qual_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_SUCCESS;
4478: --dbms_output('Update_Terr_Qualifier TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
4479: -- Save the terr_usg_id and
4480: X_Terr_Qual_Out_Tbl(l_counter).TERR_QUAL_ID := l_Terr_Qual_Out_Rec.TERR_QUAL_ID;
4481: -- If successful then save the success status for the record
4482: X_Terr_Qual_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_SUCCESS;
4483: END IF;
4484: --
4485: END LOOP;
4486: --Get the API overall return status
4484: --
4485: END LOOP;
4486: --Get the API overall return status
4487: -- Initialize API return status to success
4488: x_return_status := FND_API.G_RET_STS_SUCCESS;
4489: --Get number of records in the ouput table
4490: l_Terr_Qual_Out_Tbl_Count := X_Terr_Qual_Out_Tbl.Count;
4491: l_Terr_Qual_Out_Tbl := X_Terr_Qual_Out_Tbl;
4492: FOR l_Counter IN 1 .. l_Terr_Qual_Out_Tbl_Count LOOP
4489: --Get number of records in the ouput table
4490: l_Terr_Qual_Out_Tbl_Count := X_Terr_Qual_Out_Tbl.Count;
4491: l_Terr_Qual_Out_Tbl := X_Terr_Qual_Out_Tbl;
4492: FOR l_Counter IN 1 .. l_Terr_Qual_Out_Tbl_Count LOOP
4493: If l_Terr_Qual_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
4494: l_Terr_Qual_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
4495: THEN
4496: X_return_status := FND_API.G_RET_STS_ERROR;
4497: END IF;
4490: l_Terr_Qual_Out_Tbl_Count := X_Terr_Qual_Out_Tbl.Count;
4491: l_Terr_Qual_Out_Tbl := X_Terr_Qual_Out_Tbl;
4492: FOR l_Counter IN 1 .. l_Terr_Qual_Out_Tbl_Count LOOP
4493: If l_Terr_Qual_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
4494: l_Terr_Qual_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
4495: THEN
4496: X_return_status := FND_API.G_RET_STS_ERROR;
4497: END IF;
4498: END LOOP;
4492: FOR l_Counter IN 1 .. l_Terr_Qual_Out_Tbl_Count LOOP
4493: If l_Terr_Qual_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
4494: l_Terr_Qual_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
4495: THEN
4496: X_return_status := FND_API.G_RET_STS_ERROR;
4497: END IF;
4498: END LOOP;
4499:
4500: -- Debug Message
4531: -- End of Comments
4532: --
4533: PROCEDURE Update_Terr_Value
4534: ( P_Api_Version_Number IN NUMBER,
4535: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4536: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4537: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4538: P_Terr_Value_Rec IN Terr_Values_Rec_Type := G_Miss_Terr_Values_Rec,
4539: X_Return_Status OUT NOCOPY VARCHAR2,
4532: --
4533: PROCEDURE Update_Terr_Value
4534: ( P_Api_Version_Number IN NUMBER,
4535: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4536: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4537: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4538: P_Terr_Value_Rec IN Terr_Values_Rec_Type := G_Miss_Terr_Values_Rec,
4539: X_Return_Status OUT NOCOPY VARCHAR2,
4540: X_Msg_Count OUT NOCOPY NUMBER,
4533: PROCEDURE Update_Terr_Value
4534: ( P_Api_Version_Number IN NUMBER,
4535: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4536: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4537: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4538: P_Terr_Value_Rec IN Terr_Values_Rec_Type := G_Miss_Terr_Values_Rec,
4539: X_Return_Status OUT NOCOPY VARCHAR2,
4540: X_Msg_Count OUT NOCOPY NUMBER,
4541: X_Msg_Data OUT NOCOPY VARCHAR2,
4592: FND_MSG_PUB.Add;
4593: END IF;
4594:
4595: -- Initialize API return status to SUCCESS
4596: x_return_status := FND_API.G_RET_STS_SUCCESS;
4597:
4598: --dbms_output('Update_Terr_Value REC: opening cursor C_GetTerritoryValue');
4599: OPEN C_GetTerr_qual_id( P_Terr_Value_Rec.TERR_VALUE_ID);
4600:
4610: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_VALUES');
4611: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_Terr_Value_Rec.TERR_VALUE_ID));
4612: FND_MSG_PUB.Add;
4613: END IF;
4614: raise FND_API.G_EXC_ERROR;
4615:
4616: End if;
4617: CLOSE C_GetTerr_qual_id;
4618:
4616: End if;
4617: CLOSE C_GetTerr_qual_id;
4618:
4619: -- Check the validation level
4620: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
4621: THEN
4622: -- Debug message
4623: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4624: THEN
4627: FND_MSG_PUB.Add;
4628: END IF;
4629:
4630: -- Invoke validation procedures
4631: Validate_Terr_Value_Rec(p_init_msg_list => FND_API.G_FALSE,
4632: x_return_status => x_return_status,
4633: x_msg_count => x_msg_count,
4634: x_msg_data => x_msg_data,
4635: p_terr_qual_id => nvl(P_Terr_Value_Rec.terr_qual_id, l_ref_Terr_Value_Rec.TERR_QUAL_ID),
4634: x_msg_data => x_msg_data,
4635: p_terr_qual_id => nvl(P_Terr_Value_Rec.terr_qual_id, l_ref_Terr_Value_Rec.TERR_QUAL_ID),
4636: p_Terr_Value_Rec => P_Terr_Value_Rec);
4637:
4638: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4639: RAISE FND_API.G_EXC_ERROR;
4640: END IF;
4641:
4642: END IF;
4635: p_terr_qual_id => nvl(P_Terr_Value_Rec.terr_qual_id, l_ref_Terr_Value_Rec.TERR_QUAL_ID),
4636: p_Terr_Value_Rec => P_Terr_Value_Rec);
4637:
4638: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4639: RAISE FND_API.G_EXC_ERROR;
4640: END IF;
4641:
4642: END IF;
4643: -- Check for duplicate values
4641:
4642: END IF;
4643: -- Check for duplicate values
4644: -- Invoke validation procedures
4645: Check_duplicate_Value_update(p_init_msg_list => FND_API.G_FALSE,
4646: x_return_status => x_return_status,
4647: x_msg_count => x_msg_count,
4648: x_msg_data => x_msg_data,
4649: p_terr_qual_id => nvl(P_Terr_Value_Rec.terr_qual_id, l_ref_Terr_Value_Rec.TERR_QUAL_ID),
4648: x_msg_data => x_msg_data,
4649: p_terr_qual_id => nvl(P_Terr_Value_Rec.terr_qual_id, l_ref_Terr_Value_Rec.TERR_QUAL_ID),
4650: p_Terr_Value_Rec => P_Terr_Value_Rec);
4651:
4652: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4653: RAISE FND_API.G_EXC_ERROR;
4654: END IF;
4655: --
4656: -- Add check for concurrency
4649: p_terr_qual_id => nvl(P_Terr_Value_Rec.terr_qual_id, l_ref_Terr_Value_Rec.TERR_QUAL_ID),
4650: p_Terr_Value_Rec => P_Terr_Value_Rec);
4651:
4652: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4653: RAISE FND_API.G_EXC_ERROR;
4654: END IF;
4655: --
4656: -- Add check for concurrency
4657: -- X_TERR_VALUE_ID cant be null
4691: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_VALUES');
4692: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_Terr_Value_Rec.TERR_VALUE_ID));
4693: FND_MSG_PUB.Add;
4694: END IF;
4695: raise FND_API.G_EXC_ERROR;
4696:
4697: End if;
4698: CLOSE C_GetTerritoryValue;
4699: --dbms_output('Update_Terr_Value REC: Before Calling JTF_TERR_VALUES_PKG.Update_Row');
4719: x_CURRENCY_CODE => P_Terr_Value_Rec.CURRENCY_CODE,
4720: x_ID_USED_FLAG => P_Terr_Value_Rec.ID_USED_FLAG,
4721: x_LOW_VALUE_CHAR_ID => P_Terr_Value_Rec.LOW_VALUE_CHAR_ID,
4722: -- Can't update the ORG_ID -- VPALLE
4723: x_ORG_ID => FND_API.G_MISS_NUM,
4724: x_CNR_GROUP_ID => P_Terr_Value_Rec.CNR_GROUP_ID,
4725: x_VALUE1_ID => p_terr_value_rec.VALUE1_ID,
4726: x_VALUE2_ID => p_terr_value_rec.VALUE2_ID,
4727: x_VALUE3_ID => p_terr_value_rec.VALUE3_ID,
4727: x_VALUE3_ID => p_terr_value_rec.VALUE3_ID,
4728: x_VALUE4_ID => p_terr_value_rec.VALUE4_ID );
4729:
4730: X_Terr_Value_Out_Rec.TERR_VALUE_ID := P_Terr_Value_Rec.TERR_VALUE_ID;
4731: X_Terr_Value_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
4732:
4733: -- Debug Message
4734: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4735: THEN
4739: END IF;
4740:
4741: --dbms_output('Update_Terr_Value REC: Exiting API');
4742: EXCEPTION
4743: WHEN FND_API.G_EXC_ERROR THEN
4744: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
4745: x_return_status := FND_API.G_RET_STS_ERROR ;
4746: FND_MSG_PUB.Count_And_Get
4747: ( P_count => x_msg_count,
4740:
4741: --dbms_output('Update_Terr_Value REC: Exiting API');
4742: EXCEPTION
4743: WHEN FND_API.G_EXC_ERROR THEN
4744: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
4745: x_return_status := FND_API.G_RET_STS_ERROR ;
4746: FND_MSG_PUB.Count_And_Get
4747: ( P_count => x_msg_count,
4748: P_data => x_msg_data
4741: --dbms_output('Update_Terr_Value REC: Exiting API');
4742: EXCEPTION
4743: WHEN FND_API.G_EXC_ERROR THEN
4744: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
4745: x_return_status := FND_API.G_RET_STS_ERROR ;
4746: FND_MSG_PUB.Count_And_Get
4747: ( P_count => x_msg_count,
4748: P_data => x_msg_data
4749: );
4749: );
4750:
4751: WHEN OTHERS THEN
4752: --dbms_output('Update_Terr_Value REC: OTHERS - ' || SQLERRM);
4753: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4754: X_Terr_Value_Out_Rec.TERR_VALUE_ID := P_Terr_Value_Rec.TERR_VALUE_ID;
4755: X_Terr_Value_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4756: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4757: THEN
4751: WHEN OTHERS THEN
4752: --dbms_output('Update_Terr_Value REC: OTHERS - ' || SQLERRM);
4753: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4754: X_Terr_Value_Out_Rec.TERR_VALUE_ID := P_Terr_Value_Rec.TERR_VALUE_ID;
4755: X_Terr_Value_Out_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4756: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4757: THEN
4758: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Update error inside Update_Terr_Value');
4759: END IF;
4787: -- End of Comments
4788: --
4789: PROCEDURE Update_Terr_Value
4790: ( P_Api_Version_Number IN NUMBER,
4791: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4792: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4793: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4794: P_Terr_Value_Tbl IN Terr_Values_Tbl_Type := G_Miss_Terr_Values_Tbl,
4795: X_Return_Status OUT NOCOPY VARCHAR2,
4788: --
4789: PROCEDURE Update_Terr_Value
4790: ( P_Api_Version_Number IN NUMBER,
4791: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4792: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4793: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4794: P_Terr_Value_Tbl IN Terr_Values_Tbl_Type := G_Miss_Terr_Values_Tbl,
4795: X_Return_Status OUT NOCOPY VARCHAR2,
4796: X_Msg_Count OUT NOCOPY NUMBER,
4789: PROCEDURE Update_Terr_Value
4790: ( P_Api_Version_Number IN NUMBER,
4791: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4792: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4793: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4794: P_Terr_Value_Tbl IN Terr_Values_Tbl_Type := G_Miss_Terr_Values_Tbl,
4795: X_Return_Status OUT NOCOPY VARCHAR2,
4796: X_Msg_Count OUT NOCOPY NUMBER,
4797: X_Msg_Data OUT NOCOPY VARCHAR2,
4817: FND_MSG_PUB.Add;
4818: END IF;
4819:
4820: -- Initialize API return status to success
4821: x_return_status := FND_API.G_RET_STS_SUCCESS;
4822: -- -- Call overloaded Create_Terr_Qualifier procedure
4823: --
4824: FOR l_Counter IN 1 .. l_Terr_Value_Tbl_Count LOOP
4825: --
4834: X_Msg_Data => X_Msg_Data,
4835: X_Terr_Value_Out_Rec => l_Terr_Value_Out_Rec);
4836: --
4837: --If there is a major error
4838: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4839: --dbms_output('Update_Terr_Value TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
4840: -- Save the terr_usg_id and
4841: X_Terr_Value_Out_Tbl(l_counter).TERR_VALUE_ID := l_Terr_Value_Out_Rec.TERR_VALUE_ID;
4842: -- If save the ERROR status for the record
4835: X_Terr_Value_Out_Rec => l_Terr_Value_Out_Rec);
4836: --
4837: --If there is a major error
4838: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4839: --dbms_output('Update_Terr_Value TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
4840: -- Save the terr_usg_id and
4841: X_Terr_Value_Out_Tbl(l_counter).TERR_VALUE_ID := l_Terr_Value_Out_Rec.TERR_VALUE_ID;
4842: -- If save the ERROR status for the record
4843: X_Terr_Value_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4839: --dbms_output('Update_Terr_Value TBL: l_return_status <> FND_API.G_RET_STS_SUCCESS');
4840: -- Save the terr_usg_id and
4841: X_Terr_Value_Out_Tbl(l_counter).TERR_VALUE_ID := l_Terr_Value_Out_Rec.TERR_VALUE_ID;
4842: -- If save the ERROR status for the record
4843: X_Terr_Value_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4844: ELSE
4845: --dbms_output('Update_Terr_Value TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
4846: -- Save the terr_usg_id and
4847: X_Terr_Value_Out_Tbl(l_counter).TERR_VALUE_ID := l_Terr_Value_Out_Rec.TERR_VALUE_ID;
4841: X_Terr_Value_Out_Tbl(l_counter).TERR_VALUE_ID := l_Terr_Value_Out_Rec.TERR_VALUE_ID;
4842: -- If save the ERROR status for the record
4843: X_Terr_Value_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4844: ELSE
4845: --dbms_output('Update_Terr_Value TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
4846: -- Save the terr_usg_id and
4847: X_Terr_Value_Out_Tbl(l_counter).TERR_VALUE_ID := l_Terr_Value_Out_Rec.TERR_VALUE_ID;
4848: -- If successful then save the success status for the record
4849: X_Terr_Value_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_SUCCESS;
4845: --dbms_output('Update_Terr_Value TBL: l_return_status = FND_API.G_RET_STS_SUCCESS');
4846: -- Save the terr_usg_id and
4847: X_Terr_Value_Out_Tbl(l_counter).TERR_VALUE_ID := l_Terr_Value_Out_Rec.TERR_VALUE_ID;
4848: -- If successful then save the success status for the record
4849: X_Terr_Value_Out_Tbl(l_counter).return_status := FND_API.G_RET_STS_SUCCESS;
4850: END IF;
4851: --
4852: END LOOP;
4853:
4852: END LOOP;
4853:
4854: --Get the API overall return status
4855: -- Initialize API return status to success
4856: x_return_status := FND_API.G_RET_STS_SUCCESS;
4857:
4858: --Get number of records in the ouput table
4859: l_Terr_Value_Out_Tbl_Count := X_Terr_Value_Out_Tbl.Count;
4860: l_Terr_Value_Out_Tbl := X_Terr_Value_Out_Tbl;
4858: --Get number of records in the ouput table
4859: l_Terr_Value_Out_Tbl_Count := X_Terr_Value_Out_Tbl.Count;
4860: l_Terr_Value_Out_Tbl := X_Terr_Value_Out_Tbl;
4861: FOR l_Counter IN 1 .. l_Terr_Value_Out_Tbl_Count LOOP
4862: If l_Terr_Value_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
4863: l_Terr_Value_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
4864: THEN
4865: X_return_status := FND_API.G_RET_STS_ERROR;
4866: END IF;
4859: l_Terr_Value_Out_Tbl_Count := X_Terr_Value_Out_Tbl.Count;
4860: l_Terr_Value_Out_Tbl := X_Terr_Value_Out_Tbl;
4861: FOR l_Counter IN 1 .. l_Terr_Value_Out_Tbl_Count LOOP
4862: If l_Terr_Value_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
4863: l_Terr_Value_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
4864: THEN
4865: X_return_status := FND_API.G_RET_STS_ERROR;
4866: END IF;
4867: END LOOP;
4861: FOR l_Counter IN 1 .. l_Terr_Value_Out_Tbl_Count LOOP
4862: If l_Terr_Value_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
4863: l_Terr_Value_Out_Tbl(l_Counter).return_status = FND_API.G_RET_STS_ERROR
4864: THEN
4865: X_return_status := FND_API.G_RET_STS_ERROR;
4866: END IF;
4867: END LOOP;
4868:
4869: -- Debug Message
4904: -- End of Comments
4905: --
4906: PROCEDURE Delete_territory_Record
4907: (P_Api_Version_Number IN NUMBER,
4908: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4909: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4910: P_Terr_Id IN NUMBER,
4911: X_Return_Status OUT NOCOPY VARCHAR2,
4912: X_Msg_Count OUT NOCOPY VARCHAR2,
4905: --
4906: PROCEDURE Delete_territory_Record
4907: (P_Api_Version_Number IN NUMBER,
4908: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4909: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4910: P_Terr_Id IN NUMBER,
4911: X_Return_Status OUT NOCOPY VARCHAR2,
4912: X_Msg_Count OUT NOCOPY VARCHAR2,
4913: X_Msg_Data OUT NOCOPY VARCHAR2)
4922: -- Standard start of PAI savepoint
4923: SAVEPOINT Delete_territory_Record_Pvt;
4924:
4925: -- Standard call to check for call compatibility.
4926: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4927: p_api_version_number,
4928: l_api_name,
4929: G_PKG_NAME)
4930: THEN
4927: p_api_version_number,
4928: l_api_name,
4929: G_PKG_NAME)
4930: THEN
4931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4932: END IF;
4933: -- Initialize message list if p_init_msg_list is set to TRUE.
4934: IF FND_API.to_Boolean( p_init_msg_list )
4935: THEN
4930: THEN
4931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4932: END IF;
4933: -- Initialize message list if p_init_msg_list is set to TRUE.
4934: IF FND_API.to_Boolean( p_init_msg_list )
4935: THEN
4936: FND_MSG_PUB.initialize;
4937: END IF;
4938:
4944: FND_MSG_PUB.Add;
4945: END IF;
4946:
4947: --Initialize the return status to success
4948: x_return_status := FND_API.G_RET_STS_SUCCESS;
4949: --
4950: --dbms_output('Delete_territory_Record: Before Calling Create_TerrType_Qualifier TBL');
4951: --
4952: JTF_TERR_PKG.Delete_Row(x_terr_Id => P_Terr_Id);
4955: FND_MESSAGE.SET_NAME('JTF','JTF_TERR_RECORD_DELETED');
4956:
4957: IF SQL%FOUND THEN
4958: --dbms_output('Delete_territory_Record: # Records deleted -' || to_char(SQL%ROWCOUNT));
4959: x_return_status := FND_API.G_RET_STS_SUCCESS;
4960: l_row_count := SQL%ROWCOUNT;
4961: END IF;
4962: --prepare the message
4963: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
4978: p_data => x_msg_data
4979: );
4980:
4981: -- Standard check for p_commit
4982: IF FND_API.to_Boolean( p_commit )
4983: THEN
4984: COMMIT WORK;
4985: END IF;
4986: --dbms_output('Delete_territory_Record: Exiting API');
4986: --dbms_output('Delete_territory_Record: Exiting API');
4987: --
4988: EXCEPTION
4989: WHEN NO_DATA_FOUND THEN
4990: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4991: l_row_count := 0;
4992: --Prepare message token
4993: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
4994: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR');
4998: ( p_count => x_msg_count,
4999: p_data => x_msg_data
5000: );
5001:
5002: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5003: --dbms_output('Delete_territory_Record: FND_API.G_EXC_UNEXPECTED_ERROR');
5004: ROLLBACK TO Delete_territory_Record_Pvt;
5005: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5006: FND_MSG_PUB.Count_And_Get
4999: p_data => x_msg_data
5000: );
5001:
5002: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5003: --dbms_output('Delete_territory_Record: FND_API.G_EXC_UNEXPECTED_ERROR');
5004: ROLLBACK TO Delete_territory_Record_Pvt;
5005: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5006: FND_MSG_PUB.Count_And_Get
5007: ( p_count => x_msg_count,
5001:
5002: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5003: --dbms_output('Delete_territory_Record: FND_API.G_EXC_UNEXPECTED_ERROR');
5004: ROLLBACK TO Delete_territory_Record_Pvt;
5005: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5006: FND_MSG_PUB.Count_And_Get
5007: ( p_count => x_msg_count,
5008: p_data => x_msg_data
5009: );
5009: );
5010:
5011: WHEN OTHERS THEN
5012: --dbms_output('Delete_territory_Record: OTHERS - ' || SQLERRM);
5013: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5014: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
5015: THEN
5016: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_territory_Record');
5017: END IF;
5040: -- End of Comments
5041: --
5042: PROCEDURE Delete_Territory_Usages
5043: (P_Api_Version_Number IN NUMBER,
5044: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
5045: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
5046: P_Terr_usg_Id IN NUMBER,
5047: X_Return_Status OUT NOCOPY VARCHAR2,
5048: X_Msg_Count OUT NOCOPY VARCHAR2,
5041: --
5042: PROCEDURE Delete_Territory_Usages
5043: (P_Api_Version_Number IN NUMBER,
5044: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
5045: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
5046: P_Terr_usg_Id IN NUMBER,
5047: X_Return_Status OUT NOCOPY VARCHAR2,
5048: X_Msg_Count OUT NOCOPY VARCHAR2,
5049: X_Msg_Data OUT NOCOPY VARCHAR2)
5058: -- Standard start of PAI savepoint
5059: SAVEPOINT Delete_Territory_Usages_Pvt;
5060:
5061: -- Standard call to check for call compatibility.
5062: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5063: p_api_version_number,
5064: l_api_name,
5065: G_PKG_NAME)
5066: THEN
5063: p_api_version_number,
5064: l_api_name,
5065: G_PKG_NAME)
5066: THEN
5067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5068: END IF;
5069: -- Initialize message list if p_init_msg_list is set to TRUE.
5070: IF FND_API.to_Boolean( p_init_msg_list )
5071: THEN
5066: THEN
5067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5068: END IF;
5069: -- Initialize message list if p_init_msg_list is set to TRUE.
5070: IF FND_API.to_Boolean( p_init_msg_list )
5071: THEN
5072: FND_MSG_PUB.initialize;
5073: END IF;
5074:
5080: FND_MSG_PUB.Add;
5081: END IF;
5082:
5083: --Initialize the return status to success
5084: x_return_status := FND_API.G_RET_STS_SUCCESS;
5085: --
5086: --dbms_output('Delete_Territory_Usages: Before Calling Create_TerrType_Qualifier TBL');
5087: --
5088: JTF_TERR_USGS_PKG.Delete_Row(x_TERR_USG_ID => P_Terr_usg_Id);
5090: --Prepare message name
5091: FND_MESSAGE.SET_NAME('JTF','JTF_TERR_RECORD_DELETED');
5092: IF SQL%FOUND THEN
5093: --dbms_output('Delete_Territory_Usages: # Records deleted -' || to_char(SQL%ROWCOUNT));
5094: x_return_status := FND_API.G_RET_STS_SUCCESS;
5095: l_row_count := SQL%ROWCOUNT;
5096: END IF;
5097: --Prepare message token
5098: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
5113: p_data => x_msg_data
5114: );
5115:
5116: -- Standard check for p_commit
5117: IF FND_API.to_Boolean( p_commit )
5118: THEN
5119: COMMIT WORK;
5120: END IF;
5121: --dbms_output('Delete_Territory_Usages: Exiting API');
5121: --dbms_output('Delete_Territory_Usages: Exiting API');
5122: --
5123: EXCEPTION
5124: WHEN NO_DATA_FOUND THEN
5125: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5126: l_row_count := 0;
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_USGS');
5133: ( p_count => x_msg_count,
5134: p_data => x_msg_data
5135: );
5136:
5137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5138: --dbms_output('Delete_Territory_Usages: FND_API.G_EXC_UNEXPECTED_ERROR');
5139: ROLLBACK TO Delete_Territory_Usages_Pvt;
5140: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5141: FND_MSG_PUB.Count_And_Get
5134: p_data => x_msg_data
5135: );
5136:
5137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5138: --dbms_output('Delete_Territory_Usages: FND_API.G_EXC_UNEXPECTED_ERROR');
5139: ROLLBACK TO Delete_Territory_Usages_Pvt;
5140: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5141: FND_MSG_PUB.Count_And_Get
5142: ( p_count => x_msg_count,
5136:
5137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5138: --dbms_output('Delete_Territory_Usages: FND_API.G_EXC_UNEXPECTED_ERROR');
5139: ROLLBACK TO Delete_Territory_Usages_Pvt;
5140: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5141: FND_MSG_PUB.Count_And_Get
5142: ( p_count => x_msg_count,
5143: p_data => x_msg_data
5144: );
5144: );
5145:
5146: WHEN OTHERS THEN
5147: --dbms_output('Delete_Territory_Usages: OTHERS - ' || SQLERRM);
5148: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5149: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
5150: THEN
5151: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Territory_Usages');
5152: END IF;
5174: -- End of Comments
5175: --
5176: PROCEDURE Delete_Terr_QualType_Usage
5177: (P_Api_Version_Number IN NUMBER,
5178: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
5179: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
5180: P_Terr_Qual_Type_Usg_Id IN NUMBER,
5181: X_Return_Status OUT NOCOPY VARCHAR2,
5182: X_Msg_Count OUT NOCOPY VARCHAR2,
5175: --
5176: PROCEDURE Delete_Terr_QualType_Usage
5177: (P_Api_Version_Number IN NUMBER,
5178: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
5179: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
5180: P_Terr_Qual_Type_Usg_Id IN NUMBER,
5181: X_Return_Status OUT NOCOPY VARCHAR2,
5182: X_Msg_Count OUT NOCOPY VARCHAR2,
5183: X_Msg_Data OUT NOCOPY VARCHAR2)
5193: -- Standard start of PAI savepoint
5194: SAVEPOINT Delete_Terr_QualType_Usage_Pvt;
5195:
5196: -- Standard call to check for call compatibility.
5197: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5198: p_api_version_number,
5199: l_api_name,
5200: G_PKG_NAME)
5201: THEN
5198: p_api_version_number,
5199: l_api_name,
5200: G_PKG_NAME)
5201: THEN
5202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5203: END IF;
5204: -- Initialize message list if p_init_msg_list is set to TRUE.
5205: IF FND_API.to_Boolean( p_init_msg_list )
5206: THEN
5201: THEN
5202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5203: END IF;
5204: -- Initialize message list if p_init_msg_list is set to TRUE.
5205: IF FND_API.to_Boolean( p_init_msg_list )
5206: THEN
5207: FND_MSG_PUB.initialize;
5208: END IF;
5209:
5215: FND_MSG_PUB.Add;
5216: END IF;
5217:
5218: --Initialize the return status to success
5219: x_return_status := FND_API.G_RET_STS_SUCCESS;
5220:
5221: --dbms_output('Delete_Terr_QualType_Usage: Before Calling JTF_TERR_QTYPE_USGS_PKG.Delete_Row');
5222: --
5223: JTF_TERR_QTYPE_USGS_PKG.Delete_Row(x_terr_qtype_usg_id => P_Terr_Qual_Type_Usg_Id);
5227: FND_MESSAGE.SET_NAME('JTF','JTF_TERR_RECORD_DELETED');
5228:
5229: IF SQL%FOUND THEN
5230: --dbms_output('Delete_Terr_QualType_Usage: # Records deleted -' || to_char(SQL%ROWCOUNT));
5231: x_return_status := FND_API.G_RET_STS_SUCCESS;
5232: l_row_count := SQL%ROWCOUNT;
5233: END IF;
5234:
5235: --Prepare message token
5251: p_data => x_msg_data
5252: );
5253:
5254: -- Standard check for p_commit
5255: IF FND_API.to_Boolean( p_commit )
5256: THEN
5257: COMMIT WORK;
5258: END IF;
5259: --dbms_output('Delete_Terr_QualType_Usage: Exiting API');
5260: --
5261: EXCEPTION
5262: WHEN NO_DATA_FOUND THEN
5263: --dbms_output('Delete_Terr_QualType_Usage: NO_DATA_FOUND');
5264: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5265: l_row_count := 0;
5266:
5267: --Prepare message token
5268: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
5273: ( p_count => x_msg_count,
5274: p_data => x_msg_data
5275: );
5276:
5277: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5278: --dbms_output('Delete_Terr_QualType_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
5279: ROLLBACK TO Delete_Terr_QualType_Usage_Pvt;
5280: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5281: FND_MSG_PUB.Count_And_Get
5274: p_data => x_msg_data
5275: );
5276:
5277: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5278: --dbms_output('Delete_Terr_QualType_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
5279: ROLLBACK TO Delete_Terr_QualType_Usage_Pvt;
5280: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5281: FND_MSG_PUB.Count_And_Get
5282: ( p_count => x_msg_count,
5276:
5277: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5278: --dbms_output('Delete_Terr_QualType_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
5279: ROLLBACK TO Delete_Terr_QualType_Usage_Pvt;
5280: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5281: FND_MSG_PUB.Count_And_Get
5282: ( p_count => x_msg_count,
5283: p_data => x_msg_data
5284: );
5284: );
5285:
5286: WHEN OTHERS THEN
5287: --dbms_output('Delete_Terr_QualType_Usage: OTHERS - ' || SQLERRM);
5288: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5289:
5290: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
5291: THEN
5292: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Terr_QualType_Usage');
5315: -- End of Comments
5316: --
5317: PROCEDURE Delete_Terr_Qualifier
5318: (P_Api_Version_Number IN NUMBER,
5319: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
5320: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
5321: P_Terr_Qual_Id IN NUMBER,
5322: X_Return_Status OUT NOCOPY VARCHAR2,
5323: X_Msg_Count OUT NOCOPY VARCHAR2,
5316: --
5317: PROCEDURE Delete_Terr_Qualifier
5318: (P_Api_Version_Number IN NUMBER,
5319: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
5320: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
5321: P_Terr_Qual_Id IN NUMBER,
5322: X_Return_Status OUT NOCOPY VARCHAR2,
5323: X_Msg_Count OUT NOCOPY VARCHAR2,
5324: X_Msg_Data OUT NOCOPY VARCHAR2)
5341: -- Standard start of PAI savepoint
5342: SAVEPOINT Delete_Terr_Qualifier_Pvt;
5343:
5344: -- Standard call to check for call compatibility.
5345: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5346: p_api_version_number,
5347: l_api_name,
5348: G_PKG_NAME)
5349: THEN
5346: p_api_version_number,
5347: l_api_name,
5348: G_PKG_NAME)
5349: THEN
5350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5351: END IF;
5352: -- Initialize message list if p_init_msg_list is set to TRUE.
5353: IF FND_API.to_Boolean( p_init_msg_list )
5354: THEN
5349: THEN
5350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5351: END IF;
5352: -- Initialize message list if p_init_msg_list is set to TRUE.
5353: IF FND_API.to_Boolean( p_init_msg_list )
5354: THEN
5355: FND_MSG_PUB.initialize;
5356: END IF;
5357:
5363: FND_MSG_PUB.Add;
5364: END IF;
5365:
5366: --Initialize the return status to success
5367: x_return_status := FND_API.G_RET_STS_SUCCESS;
5368: --
5369: --dbms_output('Delete_Terr_Qualifier: Before Calling Create_TerrType_Qualifier TBL');
5370: --
5371:
5393: --Prepare message name
5394: FND_MESSAGE.SET_NAME('JTF','JTF_TERR_RECORD_DELETED');
5395: IF SQL%FOUND THEN
5396: --dbms_output('Delete_Terr_Qualifier: # Records deleted -' || to_char(SQL%ROWCOUNT));
5397: x_return_status := FND_API.G_RET_STS_SUCCESS;
5398: l_row_count := SQL%ROWCOUNT;
5399: END IF;
5400:
5401: /* update Sales territory's number of Account qualifiers
5421: p_data => x_msg_data
5422: );
5423:
5424: -- Standard check for p_commit
5425: IF FND_API.to_Boolean( p_commit )
5426: THEN
5427: COMMIT WORK;
5428: END IF;
5429: --
5430: --dbms_output('Delete_Terr_Qualifier: Exiting API');
5431: --
5432: EXCEPTION
5433: WHEN NO_DATA_FOUND THEN
5434: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5435: l_row_count := 0;
5436: --Prepare message token
5437: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
5438: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_QUALIFIERS');
5443: ( p_count => x_msg_count,
5444: p_data => x_msg_data
5445: );
5446:
5447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5448: --dbms_output('Delete_Terr_Qualifier: FND_API.G_EXC_UNEXPECTED_ERROR');
5449: ROLLBACK TO Delete_Terr_Qualifier_Pvt;
5450: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5451: FND_MSG_PUB.Count_And_Get
5444: p_data => x_msg_data
5445: );
5446:
5447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5448: --dbms_output('Delete_Terr_Qualifier: FND_API.G_EXC_UNEXPECTED_ERROR');
5449: ROLLBACK TO Delete_Terr_Qualifier_Pvt;
5450: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5451: FND_MSG_PUB.Count_And_Get
5452: ( p_count => x_msg_count,
5446:
5447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5448: --dbms_output('Delete_Terr_Qualifier: FND_API.G_EXC_UNEXPECTED_ERROR');
5449: ROLLBACK TO Delete_Terr_Qualifier_Pvt;
5450: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5451: FND_MSG_PUB.Count_And_Get
5452: ( p_count => x_msg_count,
5453: p_data => x_msg_data
5454: );
5454: );
5455:
5456: WHEN OTHERS THEN
5457: --dbms_output('Delete_Terr_Qualifier: OTHERS - ' || SQLERRM);
5458: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5459: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
5460: THEN
5461: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Terr_Qualifier');
5462: END IF;
5484: -- End of Comments
5485: --
5486: PROCEDURE Delete_Terr_Value
5487: (P_Api_Version_Number IN NUMBER,
5488: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
5489: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
5490: P_Terr_Value_Id IN NUMBER,
5491: X_Return_Status OUT NOCOPY VARCHAR2,
5492: X_Msg_Count OUT NOCOPY VARCHAR2,
5485: --
5486: PROCEDURE Delete_Terr_Value
5487: (P_Api_Version_Number IN NUMBER,
5488: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
5489: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
5490: P_Terr_Value_Id IN NUMBER,
5491: X_Return_Status OUT NOCOPY VARCHAR2,
5492: X_Msg_Count OUT NOCOPY VARCHAR2,
5493: X_Msg_Data OUT NOCOPY VARCHAR2)
5502: -- Standard start of PAI savepoint
5503: SAVEPOINT Delete_Terr_Value_Pvt;
5504:
5505: -- Standard call to check for call compatibility.
5506: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5507: p_api_version_number,
5508: l_api_name,
5509: G_PKG_NAME)
5510: THEN
5507: p_api_version_number,
5508: l_api_name,
5509: G_PKG_NAME)
5510: THEN
5511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5512: END IF;
5513: -- Initialize message list if p_init_msg_list is set to TRUE.
5514: IF FND_API.to_Boolean( p_init_msg_list )
5515: THEN
5510: THEN
5511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5512: END IF;
5513: -- Initialize message list if p_init_msg_list is set to TRUE.
5514: IF FND_API.to_Boolean( p_init_msg_list )
5515: THEN
5516: FND_MSG_PUB.initialize;
5517: END IF;
5518:
5524: FND_MSG_PUB.Add;
5525: END IF;
5526:
5527: --Initialize the return status to success
5528: x_return_status := FND_API.G_RET_STS_SUCCESS;
5529: --
5530:
5531: JTF_TERR_VALUES_PKG.Delete_Row(X_TERR_VALUE_ID => P_Terr_Value_Id);
5532: --
5533: --Prepare message name
5534: FND_MESSAGE.SET_NAME('JTF','JTF_TERR_RECORD_DELETED');
5535: IF SQL%FOUND THEN
5536: --dbms_output('Delete_Terr_Value: # Records deleted -' || to_char(SQL%ROWCOUNT));
5537: x_return_status := FND_API.G_RET_STS_SUCCESS;
5538: l_row_count := SQL%ROWCOUNT;
5539: END IF;
5540: --Prepare message token
5541: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
5556: p_data => x_msg_data
5557: );
5558:
5559: -- Standard check for p_commit
5560: IF FND_API.to_Boolean( p_commit )
5561: THEN
5562: COMMIT WORK;
5563: END IF;
5564: --
5566: --
5567: EXCEPTION
5568: WHEN NO_DATA_FOUND THEN
5569: --dbms_output('Delete_Terr_Value: NO-DATA-FOUND');
5570: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5571: l_row_count := 0;
5572: --Prepare message token
5573: FND_MESSAGE.SET_TOKEN('NO_OF_REC', TO_CHAR(l_row_count));
5574: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'JTF_TERR_VALUES');
5579: ( p_count => x_msg_count,
5580: p_data => x_msg_data
5581: );
5582:
5583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5584: --dbms_output('Delete_Terr_Value: FND_API.G_EXC_UNEXPECTED_ERROR');
5585: ROLLBACK TO Delete_Terr_Value_Pvt;
5586: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5587: FND_MSG_PUB.Count_And_Get
5580: p_data => x_msg_data
5581: );
5582:
5583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5584: --dbms_output('Delete_Terr_Value: FND_API.G_EXC_UNEXPECTED_ERROR');
5585: ROLLBACK TO Delete_Terr_Value_Pvt;
5586: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5587: FND_MSG_PUB.Count_And_Get
5588: ( p_count => x_msg_count,
5582:
5583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5584: --dbms_output('Delete_Terr_Value: FND_API.G_EXC_UNEXPECTED_ERROR');
5585: ROLLBACK TO Delete_Terr_Value_Pvt;
5586: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5587: FND_MSG_PUB.Count_And_Get
5588: ( p_count => x_msg_count,
5589: p_data => x_msg_data
5590: );
5590: );
5591:
5592: WHEN OTHERS THEN
5593: --dbms_output('Delete_Terr_Value: OTHERS - ' || SQLERRM);
5594: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5595: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
5596: THEN
5597: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Terr_Value');
5598: END IF;
5603: --
5604: PROCEDURE Validate_Qualifier
5605: (p_Terr_Id IN NUMBER,
5606: P_Terr_Qual_Rec IN Terr_Qual_Rec_Type := G_Miss_Terr_Qual_Rec,
5607: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5608: x_Return_Status OUT NOCOPY VARCHAR2,
5609: x_msg_count OUT NOCOPY NUMBER,
5610: x_msg_data OUT NOCOPY VARCHAR2 )
5611: AS
5614: BEGIN
5615: --dbms_output('Validate_Qualifier: Entering API');
5616:
5617: -- Initialize the status to success
5618: x_return_status := FND_API.G_RET_STS_SUCCESS;
5619: --
5620: --dbms_output('Validate P_Terr_Qual_Rec.Qual_Usg_Id - ' || to_char(P_Terr_Qual_Rec.Qual_Usg_Id));
5621: --
5622: if (P_Terr_Qual_Rec.Qual_Usg_Id IS NULL) OR
5619: --
5620: --dbms_output('Validate P_Terr_Qual_Rec.Qual_Usg_Id - ' || to_char(P_Terr_Qual_Rec.Qual_Usg_Id));
5621: --
5622: if (P_Terr_Qual_Rec.Qual_Usg_Id IS NULL) OR
5623: (P_Terr_Qual_Rec.Qual_Usg_Id = FND_API.G_MISS_NUM ) THEN
5624: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5625: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5626: FND_MESSAGE.Set_Token('COL_NAME', 'QUAL_USG_ID' );
5627: FND_MSG_PUB.ADD;
5625: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5626: FND_MESSAGE.Set_Token('COL_NAME', 'QUAL_USG_ID' );
5627: FND_MSG_PUB.ADD;
5628: END IF;
5629: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5630: END IF;
5631:
5632: --
5633:
5664: END IF;
5665: EXCEPTION
5666: WHEN NO_DATA_FOUND THEN
5667: --dbms_output('Validate_Qualifier: NO_DATA_FOUND Exception');
5668: x_return_status := FND_API.G_RET_STS_ERROR ;
5669: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_DISABLED_TERR_QUAL');
5670: FND_MSG_PUB.ADD;
5671: FND_MSG_PUB.Count_And_Get
5672: ( P_count => x_msg_count,
5688: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5689: FND_MESSAGE.Set_Name('JTF', 'JTY_DUPLICATE_QUALIFIER');
5690: FND_MSG_PUB.ADD;
5691: END IF;
5692: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5693: END IF;
5694: END IF ;
5695:
5696: /* -- Check for ORG_ID - obsolete: org_id is optional
5694: END IF ;
5695:
5696: /* -- Check for ORG_ID - obsolete: org_id is optional
5697: IF (P_Terr_Qual_Rec.ORG_ID is NULL OR
5698: P_Terr_Qual_Rec.ORG_ID = FND_API.G_MISS_NUM ) THEN
5699: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5700: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5701: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
5702: FND_MSG_PUB.ADD;
5700: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5701: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
5702: FND_MSG_PUB.ADD;
5703: END IF;
5704: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5705: End If;
5706: */
5707:
5708: -- Validate last updated by
5706: */
5707:
5708: -- Validate last updated by
5709: IF ( P_Terr_Qual_Rec.LAST_UPDATED_BY is NULL OR
5710: P_Terr_Qual_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
5711: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5712: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5713: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
5714: FND_MSG_PUB.ADD;
5712: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5713: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
5714: FND_MSG_PUB.ADD;
5715: END IF;
5716: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5717: End If;
5718:
5719: -- Check last update date
5720: If ( P_Terr_Qual_Rec.LAST_UPDATE_DATE IS NULL OR
5717: End If;
5718:
5719: -- Check last update date
5720: If ( P_Terr_Qual_Rec.LAST_UPDATE_DATE IS NULL OR
5721: P_Terr_Qual_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
5722: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5723: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5724: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
5725: FND_MSG_PUB.ADD;
5723: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5724: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
5725: FND_MSG_PUB.ADD;
5726: END IF;
5727: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5728: End If;
5729:
5730: --
5731: --Check last update login
5729:
5730: --
5731: --Check last update login
5732: If ( P_Terr_Qual_Rec.LAST_UPDATE_LOGIN is NULL OR
5733: P_Terr_Qual_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
5734: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5735: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5736: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
5737: FND_MSG_PUB.ADD;
5735: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5736: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
5737: FND_MSG_PUB.ADD;
5738: END IF;
5739: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5740: End If;
5741: --
5742:
5743: --
5748: EXCEPTION
5749: --
5750: WHEN NO_DATA_FOUND THEN
5751: --dbms_output('Validate_Qualifier: NO_DATA_FOUND Exception');
5752: x_return_status := FND_API.G_RET_STS_ERROR ;
5753: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_DISABLED_TERR_QUAL');
5754: FND_MSG_PUB.ADD;
5755: FND_MSG_PUB.Count_And_Get
5756: ( P_count => x_msg_count,
5758: );
5759:
5760: WHEN OTHERS THEN
5761: --dbms_output('Validate_Qualifier: Others Exception');
5762: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5763: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
5764: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Qualifer' );
5765: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
5766: FND_MSG_PUB.ADD;
5774: -- Validate the Territory RECORD
5775: -- Validate Territory Name is specified and also check for not null columns
5776: -- If Parent Territory_id, ESCALATION_TERRITORY_ID, territory_type_id is specified
5777: PROCEDURE Validate_Territory_Record
5778: (p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5779: x_Return_Status OUT NOCOPY VARCHAR2,
5780: x_msg_count OUT NOCOPY NUMBER,
5781: x_msg_data OUT NOCOPY VARCHAR2,
5782: p_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec)
5789: BEGIN
5790: --dbms_output('Validate_Territory_Record: Entering API');
5791:
5792: -- Initialize the status to success
5793: x_return_status := FND_API.G_RET_STS_SUCCESS;
5794:
5795: -- Check whether the territory Name is specified
5796: --
5797: IF (p_Terr_All_Rec.NAME is NULL) OR (p_Terr_All_Rec.NAME = FND_API.G_MISS_CHAR) THEN
5793: x_return_status := FND_API.G_RET_STS_SUCCESS;
5794:
5795: -- Check whether the territory Name is specified
5796: --
5797: IF (p_Terr_All_Rec.NAME is NULL) OR (p_Terr_All_Rec.NAME = FND_API.G_MISS_CHAR) THEN
5798: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5799: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5800: FND_MESSAGE.Set_Token('COL_NAME', 'NAME' );
5801: FND_MSG_PUB.ADD;
5799: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5800: FND_MESSAGE.Set_Token('COL_NAME', 'NAME' );
5801: FND_MSG_PUB.ADD;
5802: END IF;
5803: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5804: ELSE -- Territory Name is not null.
5805: -- Check for Duplicate Territory Names.
5806: IF p_Terr_All_Rec.START_DATE_ACTIVE IS NOT NULL
5807: AND p_Terr_All_Rec.END_DATE_ACTIVE IS NOT NULL
5826: FND_MESSAGE.Set_Name('JTF', 'JTY_TERR_DUP_NAME');
5827: FND_MESSAGE.Set_Token('TERR_NAME', p_Terr_All_Rec.NAME );
5828: FND_MSG_PUB.ADD;
5829: END IF;
5830: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5831: END IF;
5832: END IF;
5833: End If;
5834:
5833: End If;
5834:
5835: -- Parent Terr ID can't be null.
5836: If (p_Terr_All_Rec.PARENT_TERRITORY_ID is null) OR
5837: (p_Terr_All_Rec.PARENT_TERRITORY_ID = FND_API.G_MISS_NUM)
5838: Then
5839: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5840: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5841: FND_MESSAGE.Set_Token('COL_NAME', 'PARENT_TERRITORY_ID' );
5840: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5841: FND_MESSAGE.Set_Token('COL_NAME', 'PARENT_TERRITORY_ID' );
5842: FND_MSG_PUB.ADD;
5843: END IF;
5844: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5845: END IF;
5846:
5847: --dbms_output('Validate_Foreign_Key: Checking for Territory Type Id');
5848: -- Territory Type ID can't be null.
5846:
5847: --dbms_output('Validate_Foreign_Key: Checking for Territory Type Id');
5848: -- Territory Type ID can't be null.
5849: If (p_Terr_All_Rec.TERRITORY_TYPE_ID is null) OR
5850: (p_Terr_All_Rec.TERRITORY_TYPE_ID = FND_API.G_MISS_NUM)
5851: then
5852:
5853: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5854: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5854: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5855: FND_MESSAGE.Set_Token('COL_NAME', 'TERRITORY_TYPE_ID' );
5856: FND_MSG_PUB.ADD;
5857: END IF;
5858: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5859: End If;
5860:
5861: -- Check whether application short name is specified
5862: --
5860:
5861: -- Check whether application short name is specified
5862: --
5863: IF (p_Terr_All_Rec.APPLICATION_SHORT_NAME is NULL) OR
5864: (p_Terr_All_Rec.APPLICATION_SHORT_NAME = FND_API.G_MISS_CHAR) THEN
5865: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5866: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5867: FND_MESSAGE.Set_Token('COL_NAME', 'APPLICATION_SHORT_NAME' );
5868: FND_MSG_PUB.ADD;
5866: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5867: FND_MESSAGE.Set_Token('COL_NAME', 'APPLICATION_SHORT_NAME' );
5868: FND_MSG_PUB.ADD;
5869: END IF;
5870: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5871: End If;
5872:
5873: /* Check whether the enabled_flag is specified
5874: -- Obsolete: use date effectivity to determine
5873: /* Check whether the enabled_flag is specified
5874: -- Obsolete: use date effectivity to determine
5875: -- whether territory is enabled
5876: IF (p_Terr_All_Rec.ENABLED_FLAG is NULL) OR
5877: (p_Terr_All_Rec.ENABLED_FLAG = FND_API.G_MISS_CHAR) THEN
5878: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5879: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5880: FND_MESSAGE.Set_Token('COL_NAME', 'ENABLED_FLAG' );
5881: FND_MSG_PUB.ADD;
5879: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5880: FND_MESSAGE.Set_Token('COL_NAME', 'ENABLED_FLAG' );
5881: FND_MSG_PUB.ADD;
5882: END IF;
5883: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5884: End If;
5885: */
5886:
5887: -- Check for ORG_ID
5885: */
5886:
5887: -- Check for ORG_ID
5888: IF (p_Terr_All_Rec.ORG_ID is NULL) OR
5889: (p_Terr_All_Rec.ORG_ID = FND_API.G_MISS_NUM) THEN
5890: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5891: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5892: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
5893: FND_MSG_PUB.ADD;
5891: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5892: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
5893: FND_MSG_PUB.ADD;
5894: END IF;
5895: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5896: End If;
5897:
5898: If (p_Terr_All_Rec.ESCALATION_TERRITORY_FLAG = 'Y' and
5899: p_Terr_All_Rec.TEMPLATE_FLAG = 'Y' ) Then
5900: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5901: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_OVERLAPPING_FLAG');
5902: FND_MSG_PUB.ADD;
5903: END IF;
5904: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5905: End If;
5906:
5907: --Check created by
5908: IF ( p_Terr_All_Rec.CREATED_BY is NULL OR
5905: End If;
5906:
5907: --Check created by
5908: IF ( p_Terr_All_Rec.CREATED_BY is NULL OR
5909: p_Terr_All_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
5910: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5911: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5912: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
5913: FND_MSG_PUB.ADD;
5911: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5912: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
5913: FND_MSG_PUB.ADD;
5914: END IF;
5915: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5916: End If;
5917:
5918: --Check creation date
5919: If ( p_Terr_All_Rec.CREATION_DATE is NULL OR
5916: End If;
5917:
5918: --Check creation date
5919: If ( p_Terr_All_Rec.CREATION_DATE is NULL OR
5920: p_Terr_All_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
5921: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5922: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5923: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
5924: FND_MSG_PUB.ADD;
5922: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5923: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
5924: FND_MSG_PUB.ADD;
5925: END IF;
5926: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5927: End If;
5928:
5929: -- Validate last updated by
5930: IF ( p_Terr_All_Rec.LAST_UPDATED_BY is NULL OR
5927: End If;
5928:
5929: -- Validate last updated by
5930: IF ( p_Terr_All_Rec.LAST_UPDATED_BY is NULL OR
5931: p_Terr_All_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
5932: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5933: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5934: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
5935: FND_MSG_PUB.ADD;
5933: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5934: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
5935: FND_MSG_PUB.ADD;
5936: END IF;
5937: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5938: End If;
5939:
5940: -- Check last update date
5941: If ( p_Terr_All_Rec.LAST_UPDATE_DATE IS NULL OR
5938: End If;
5939:
5940: -- Check last update date
5941: If ( p_Terr_All_Rec.LAST_UPDATE_DATE IS NULL OR
5942: p_Terr_All_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
5943: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5944: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5945: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
5946: FND_MSG_PUB.ADD;
5944: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5945: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
5946: FND_MSG_PUB.ADD;
5947: END IF;
5948: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5949: End If;
5950:
5951: --Check last update login
5952: --If ( p_Terr_All_Rec.LAST_UPDATE_LOGIN is NULL OR
5949: End If;
5950:
5951: --Check last update login
5952: --If ( p_Terr_All_Rec.LAST_UPDATE_LOGIN is NULL OR
5953: -- p_Terr_All_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
5954: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5955: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5956: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
5957: -- FND_MSG_PUB.ADD;
5955: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5956: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
5957: -- FND_MSG_PUB.ADD;
5958: -- END IF;
5959: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
5960: --End If;
5961:
5962: --Check start date active
5963: If ( p_Terr_All_Rec.START_DATE_ACTIVE IS NULL OR
5960: --End If;
5961:
5962: --Check start date active
5963: If ( p_Terr_All_Rec.START_DATE_ACTIVE IS NULL OR
5964: p_Terr_All_Rec.START_DATE_ACTIVE = FND_API.G_MISS_DATE ) THEN
5965: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5966: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5967: FND_MESSAGE.Set_Token('COL_NAME', 'START_DATE_ACTIVE' );
5968: FND_MSG_PUB.ADD;
5966: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5967: FND_MESSAGE.Set_Token('COL_NAME', 'START_DATE_ACTIVE' );
5968: FND_MSG_PUB.ADD;
5969: END IF;
5970: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5971: End If;
5972:
5973: --Check End date active
5974: If ( p_Terr_All_Rec.END_DATE_ACTIVE IS NULL OR
5971: End If;
5972:
5973: --Check End date active
5974: If ( p_Terr_All_Rec.END_DATE_ACTIVE IS NULL OR
5975: p_Terr_All_Rec.END_DATE_ACTIVE = FND_API.G_MISS_DATE ) THEN
5976: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5977: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5978: FND_MESSAGE.Set_Token('COL_NAME', 'END_DATE_ACTIVE' );
5979: FND_MSG_PUB.ADD;
5977: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
5978: FND_MESSAGE.Set_Token('COL_NAME', 'END_DATE_ACTIVE' );
5979: FND_MSG_PUB.ADD;
5980: END IF;
5981: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5982: End If;
5983:
5984: IF (p_Terr_All_Rec.START_DATE_ACTIVE IS NOT NULL AND p_Terr_All_Rec.START_DATE_ACTIVE <> FND_API.G_MISS_DATE )
5985: AND (p_Terr_All_Rec.END_DATE_ACTIVE IS NOT NULL AND p_Terr_All_Rec.END_DATE_ACTIVE <> FND_API.G_MISS_DATE ) THEN
5980: END IF;
5981: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5982: End If;
5983:
5984: IF (p_Terr_All_Rec.START_DATE_ACTIVE IS NOT NULL AND p_Terr_All_Rec.START_DATE_ACTIVE <> FND_API.G_MISS_DATE )
5985: AND (p_Terr_All_Rec.END_DATE_ACTIVE IS NOT NULL AND p_Terr_All_Rec.END_DATE_ACTIVE <> FND_API.G_MISS_DATE ) THEN
5986: IF ( p_Terr_All_Rec.START_DATE_ACTIVE > p_Terr_All_Rec.END_DATE_ACTIVE ) THEN
5987: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5988: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_END_BAD');
5981: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5982: End If;
5983:
5984: IF (p_Terr_All_Rec.START_DATE_ACTIVE IS NOT NULL AND p_Terr_All_Rec.START_DATE_ACTIVE <> FND_API.G_MISS_DATE )
5985: AND (p_Terr_All_Rec.END_DATE_ACTIVE IS NOT NULL AND p_Terr_All_Rec.END_DATE_ACTIVE <> FND_API.G_MISS_DATE ) THEN
5986: IF ( p_Terr_All_Rec.START_DATE_ACTIVE > p_Terr_All_Rec.END_DATE_ACTIVE ) THEN
5987: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5988: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_END_BAD');
5989: FND_MSG_PUB.ADD;
5987: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5988: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_END_BAD');
5989: FND_MSG_PUB.ADD;
5990: END IF;
5991: x_Return_Status := FND_API.G_RET_STS_ERROR ;
5992: END IF;
5993: END IF;
5994:
5995: --Check Rank
5993: END IF;
5994:
5995: --Check Rank
5996: If ( p_Terr_All_Rec.RANK IS NULL OR
5997: p_Terr_All_Rec.RANK = FND_API.G_MISS_NUM ) THEN
5998: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5999: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6000: FND_MESSAGE.Set_Token('COL_NAME', 'RANK' );
6001: FND_MSG_PUB.ADD;
5999: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6000: FND_MESSAGE.Set_Token('COL_NAME', 'RANK' );
6001: FND_MSG_PUB.ADD;
6002: END IF;
6003: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6004: End If;
6005:
6006: /* Check Number Of Winners not set at
6007: ** a higher/lower level in the hierarchy
6008: ** 10/04/00 JDOCHERT
6009: */
6010: /* JDOCHERT: 06/27/03: bug#3020630
6011: IF ( p_terr_all_rec.NUM_WINNERS IS NOT NULL AND
6012: p_terr_all_rec.NUM_WINNERS <> FND_API.G_MISS_NUM ) THEN
6013:
6014: validate_num_winners(
6015: p_terr_all_rec => p_terr_all_rec,
6016: p_init_msg_list => p_init_msg_list,
6019: x_msg_data => x_msg_data,
6020: x_Reason => l_reason );
6021:
6022:
6023: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6024: x_Return_Status := l_return_Status;
6025: End If;
6026:
6027: End If;
6035: x_Return_Status => l_Return_Status,
6036: x_msg_count => x_msg_count,
6037: x_msg_data => x_msg_data);
6038:
6039: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6040: x_Return_Status := l_return_Status;
6041: End If;
6042:
6043: -- Since the message stack is already set
6046: p_data => x_msg_data);
6047:
6048: EXCEPTION
6049: --
6050: WHEN FND_API.G_EXC_ERROR THEN
6051: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
6052: x_return_status := FND_API.G_RET_STS_ERROR ;
6053: FND_MSG_PUB.Count_And_Get
6054: ( P_count => x_msg_count,
6047:
6048: EXCEPTION
6049: --
6050: WHEN FND_API.G_EXC_ERROR THEN
6051: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
6052: x_return_status := FND_API.G_RET_STS_ERROR ;
6053: FND_MSG_PUB.Count_And_Get
6054: ( P_count => x_msg_count,
6055: P_data => x_msg_data
6048: EXCEPTION
6049: --
6050: WHEN FND_API.G_EXC_ERROR THEN
6051: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
6052: x_return_status := FND_API.G_RET_STS_ERROR ;
6053: FND_MSG_PUB.Count_And_Get
6054: ( P_count => x_msg_count,
6055: P_data => x_msg_data
6056: );
6054: ( P_count => x_msg_count,
6055: P_data => x_msg_data
6056: );
6057:
6058: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6059: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_UNEXPECTED_ERROR');
6060: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6061: FND_MSG_PUB.Count_And_Get
6062: ( P_count => x_msg_count,
6055: P_data => x_msg_data
6056: );
6057:
6058: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6059: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_UNEXPECTED_ERROR');
6060: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6061: FND_MSG_PUB.Count_And_Get
6062: ( P_count => x_msg_count,
6063: P_data => x_msg_data
6056: );
6057:
6058: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6059: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_UNEXPECTED_ERROR');
6060: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6061: FND_MSG_PUB.Count_And_Get
6062: ( P_count => x_msg_count,
6063: P_data => x_msg_data
6064: );
6064: );
6065:
6066: WHEN OTHERS THEN
6067: --dbms_output('Validate_Territory_Record: OTHERS - ' || SQLERRM);
6068: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6069: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
6070: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Territory_Record' );
6071: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
6072: FND_MSG_PUB.ADD;
6078: END Validate_Territory_Record;
6079:
6080: -- Validate the Territory RECORD while updating the territory
6081: PROCEDURE Validate_TerrRec_Update
6082: (p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6083: x_Return_Status OUT NOCOPY VARCHAR2,
6084: x_msg_count OUT NOCOPY NUMBER,
6085: x_msg_data OUT NOCOPY VARCHAR2,
6086: p_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec)
6099: l_Validate_id NUMBER;
6100: BEGIN
6101: --dbms_output('Validate_Territory_Record: Entering API');
6102: -- Initialize the status to success
6103: x_return_status := FND_API.G_RET_STS_SUCCESS;
6104:
6105: -- Validate the territory Id
6106: l_Validate_id := p_Terr_All_Rec.TERR_ID;
6107: If l_Validate_id IS NOT NULL THEN
6104:
6105: -- Validate the territory Id
6106: l_Validate_id := p_Terr_All_Rec.TERR_ID;
6107: If l_Validate_id IS NOT NULL THEN
6108: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
6109: --dbms_output('Validate_Territory_Usage: l_status <> FND_API.G_TRUE');
6110: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
6111: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
6112: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
6105: -- Validate the territory Id
6106: l_Validate_id := p_Terr_All_Rec.TERR_ID;
6107: If l_Validate_id IS NOT NULL THEN
6108: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
6109: --dbms_output('Validate_Territory_Usage: l_status <> FND_API.G_TRUE');
6110: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
6111: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
6112: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
6113: FND_MSG_PUB.ADD;
6110: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
6111: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
6112: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
6113: FND_MSG_PUB.ADD;
6114: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6115: ELSE
6116: -- Terr_ID Is valid.
6117: SELECT name,
6118: START_DATE_ACTIVE,
6124: l_parent_territory_id
6125: FROM JTF_TERR_ALL
6126: WHERE TERR_ID = p_Terr_All_Rec.TERR_ID;
6127: -- Following values are used in finding the duplicate names.
6128: IF (p_Terr_All_Rec.START_DATE_ACTIVE IS NOT NULL AND p_Terr_All_Rec.START_DATE_ACTIVE <> FND_API.G_MISS_DATE ) THEN
6129: l_start_date_active := p_Terr_All_Rec.START_DATE_ACTIVE ;
6130: END IF;
6131:
6132: IF (p_Terr_All_Rec.END_DATE_ACTIVE IS NOT NULL AND p_Terr_All_Rec.END_DATE_ACTIVE <> FND_API.G_MISS_DATE ) THEN
6128: IF (p_Terr_All_Rec.START_DATE_ACTIVE IS NOT NULL AND p_Terr_All_Rec.START_DATE_ACTIVE <> FND_API.G_MISS_DATE ) THEN
6129: l_start_date_active := p_Terr_All_Rec.START_DATE_ACTIVE ;
6130: END IF;
6131:
6132: IF (p_Terr_All_Rec.END_DATE_ACTIVE IS NOT NULL AND p_Terr_All_Rec.END_DATE_ACTIVE <> FND_API.G_MISS_DATE ) THEN
6133: l_end_date_active := p_Terr_All_Rec.END_DATE_ACTIVE ;
6134: END IF;
6135:
6136: IF (p_Terr_All_Rec.PARENT_TERRITORY_ID IS NOT NULL
6133: l_end_date_active := p_Terr_All_Rec.END_DATE_ACTIVE ;
6134: END IF;
6135:
6136: IF (p_Terr_All_Rec.PARENT_TERRITORY_ID IS NOT NULL
6137: AND p_Terr_All_Rec.PARENT_TERRITORY_ID <> FND_API.G_MISS_NUM ) THEN
6138: l_parent_territory_id := p_Terr_All_Rec.PARENT_TERRITORY_ID ;
6139: END IF;
6140: END IF;
6141: END IF;
6141: END IF;
6142: -- Check whether the territory Name is specified
6143: --
6144: IF ( (p_Terr_All_Rec.NAME IS NOT NULL)
6145: AND (p_Terr_All_Rec.NAME <> FND_API.G_MISS_CHAR) )
6146: AND ( p_Terr_All_Rec.NAME <> l_ter_name ) THEN
6147:
6148: IF l_start_date_active IS NOT NULL
6149: AND l_end_date_active IS NOT NULL
6168: FND_MESSAGE.Set_Name('JTF', 'JTY_TERR_DUP_NAME');
6169: FND_MESSAGE.Set_Token('TERR_NAME', p_Terr_All_Rec.NAME );
6170: FND_MSG_PUB.ADD;
6171: END IF;
6172: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6173: END IF;
6174: END IF;
6175: End If;
6176:
6180: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6181: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_START_END_BAD');
6182: FND_MSG_PUB.ADD;
6183: END IF;
6184: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6185: END IF;
6186: END IF;
6187:
6188: -- Territory start and end active dates should fall in territory dates.
6200: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_STARTDATE_NOT_VALID');
6201: FND_MESSAGE.Set_Token('RES_NAME', ' ' );
6202: FND_MSG_PUB.ADD;
6203: END IF;
6204: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6205: END IF;
6206:
6207: -- Validate Terr end date.
6208: IF (l_end_date_active IS NOT NULL ) AND (( l_end_date_active < l_pterr_start_date ) OR ( l_end_date_active > l_pterr_end_date ) ) THEN
6210: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_ENDDATE_NOT_VALID');
6211: FND_MESSAGE.Set_Token('RES_NAME', ' ' );
6212: FND_MSG_PUB.ADD;
6213: END IF;
6214: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6215: END IF;
6216:
6217: EXCEPTION
6218: WHEN OTHERS THEN
6215: END IF;
6216:
6217: EXCEPTION
6218: WHEN OTHERS THEN
6219: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6220: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
6221: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Others Exception in Validate_Terr_Record ' || SQLERRM);
6222: END IF;
6223: END;
6226: --
6227: -- Check if the Parent Terr ID is valid for the given source.
6228: BEGIN
6229: IF ( p_terr_all_rec.PARENT_TERRITORY_ID IS NOT NULL
6230: AND p_terr_all_rec.PARENT_TERRITORY_ID <> FND_API.G_MISS_NUM
6231: AND p_terr_all_rec.PARENT_TERRITORY_ID <> 1) THEN
6232:
6233: SELECT 1
6234: INTO l_dummy
6252: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6253: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_OVERLAPPING_FLAG');
6254: FND_MSG_PUB.ADD;
6255: END IF;
6256: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6257: End If;
6258:
6259: -- Validate last updated by
6260: IF ( p_Terr_All_Rec.LAST_UPDATED_BY is NULL OR
6257: End If;
6258:
6259: -- Validate last updated by
6260: IF ( p_Terr_All_Rec.LAST_UPDATED_BY is NULL OR
6261: p_Terr_All_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
6262: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6263: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6264: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
6265: FND_MSG_PUB.ADD;
6263: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6264: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
6265: FND_MSG_PUB.ADD;
6266: END IF;
6267: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6268: End If;
6269:
6270: -- Check last update date
6271: If ( p_Terr_All_Rec.LAST_UPDATE_DATE IS NULL OR
6268: End If;
6269:
6270: -- Check last update date
6271: If ( p_Terr_All_Rec.LAST_UPDATE_DATE IS NULL OR
6272: p_Terr_All_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
6273: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6274: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6275: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
6276: FND_MSG_PUB.ADD;
6274: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6275: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
6276: FND_MSG_PUB.ADD;
6277: END IF;
6278: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6279: End If;
6280:
6281: --Check last update login
6282: If ( p_Terr_All_Rec.LAST_UPDATE_LOGIN is NULL OR
6279: End If;
6280:
6281: --Check last update login
6282: If ( p_Terr_All_Rec.LAST_UPDATE_LOGIN is NULL OR
6283: p_Terr_All_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
6284: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6285: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6286: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
6287: FND_MSG_PUB.ADD;
6285: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6286: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
6287: FND_MSG_PUB.ADD;
6288: END IF;
6289: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6290: End If;
6291:
6292: -- check that parent territory is not already a child of this territory
6293: validate_parent(p_Terr_All_Rec => p_Terr_All_Rec,
6295: x_Return_Status => l_Return_Status,
6296: x_msg_count => x_msg_count,
6297: x_msg_data => x_msg_data);
6298:
6299: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6300: x_Return_Status := l_return_Status;
6301: End If;
6302:
6303: -- Since the message stack is already set
6306: p_data => x_msg_data);
6307:
6308: EXCEPTION
6309: --
6310: WHEN FND_API.G_EXC_ERROR THEN
6311: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
6312: x_return_status := FND_API.G_RET_STS_ERROR ;
6313: FND_MSG_PUB.Count_And_Get
6314: ( P_count => x_msg_count,
6307:
6308: EXCEPTION
6309: --
6310: WHEN FND_API.G_EXC_ERROR THEN
6311: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
6312: x_return_status := FND_API.G_RET_STS_ERROR ;
6313: FND_MSG_PUB.Count_And_Get
6314: ( P_count => x_msg_count,
6315: P_data => x_msg_data
6308: EXCEPTION
6309: --
6310: WHEN FND_API.G_EXC_ERROR THEN
6311: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_ERROR');
6312: x_return_status := FND_API.G_RET_STS_ERROR ;
6313: FND_MSG_PUB.Count_And_Get
6314: ( P_count => x_msg_count,
6315: P_data => x_msg_data
6316: );
6314: ( P_count => x_msg_count,
6315: P_data => x_msg_data
6316: );
6317:
6318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6319: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_UNEXPECTED_ERROR');
6320: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6321: FND_MSG_PUB.Count_And_Get
6322: ( P_count => x_msg_count,
6315: P_data => x_msg_data
6316: );
6317:
6318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6319: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_UNEXPECTED_ERROR');
6320: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6321: FND_MSG_PUB.Count_And_Get
6322: ( P_count => x_msg_count,
6323: P_data => x_msg_data
6316: );
6317:
6318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6319: --dbms_output('Validate_Territory_Record: FND_API.G_EXC_UNEXPECTED_ERROR');
6320: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6321: FND_MSG_PUB.Count_And_Get
6322: ( P_count => x_msg_count,
6323: P_data => x_msg_data
6324: );
6324: );
6325:
6326: WHEN OTHERS THEN
6327: --dbms_output('Validate_Territory_Record: OTHERS - ' || SQLERRM);
6328: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6329: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
6330: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_TerrRec_Update' );
6331: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
6332: FND_MSG_PUB.ADD;
6341: --
6342: -- Validate Foreign Key references
6343: PROCEDURE Validate_Foreign_Key
6344: (p_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec,
6345: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6346: x_Return_Status OUT NOCOPY VARCHAR2,
6347: x_msg_count OUT NOCOPY NUMBER,
6348: x_msg_data OUT NOCOPY VARCHAR2 )
6349: AS
6353: PEND_DATE_ACTIVE DATE;
6354: BEGIN
6355: --dbms_output('Validate_Foreign_Key: Entering API');
6356: -- Initialize the status to success
6357: x_return_status := FND_API.G_RET_STS_SUCCESS;
6358: --
6359: --dbms_output('Validate_Foreign_Key: Checking for PARENT Territory' || TO_CHAR(p_Terr_All_Rec.parent_territory_Id));
6360: If (p_Terr_All_Rec.PARENT_TERRITORY_ID is not null) AND
6361: (p_Terr_All_Rec.PARENT_TERRITORY_ID <> FND_API.G_MISS_NUM)
6357: x_return_status := FND_API.G_RET_STS_SUCCESS;
6358: --
6359: --dbms_output('Validate_Foreign_Key: Checking for PARENT Territory' || TO_CHAR(p_Terr_All_Rec.parent_territory_Id));
6360: If (p_Terr_All_Rec.PARENT_TERRITORY_ID is not null) AND
6361: (p_Terr_All_Rec.PARENT_TERRITORY_ID <> FND_API.G_MISS_NUM)
6362: Then
6363: --
6364: l_parent_terr_id := p_Terr_All_Rec.parent_territory_Id;
6365: --dbms_output('Validate_Foreign_Key: Returned from JTF_CTM_UTILITY_PVT.fk_id_is_valid');
6362: Then
6363: --
6364: l_parent_terr_id := p_Terr_All_Rec.parent_territory_Id;
6365: --dbms_output('Validate_Foreign_Key: Returned from JTF_CTM_UTILITY_PVT.fk_id_is_valid');
6366: IF JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_parent_terr_id, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
6367: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6368: --dbms_output('PARENT Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6369: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_PARENT_TERR');
6370: FND_MESSAGE.Set_Token('TERR_ID', to_char(l_parent_terr_id));
6364: l_parent_terr_id := p_Terr_All_Rec.parent_territory_Id;
6365: --dbms_output('Validate_Foreign_Key: Returned from JTF_CTM_UTILITY_PVT.fk_id_is_valid');
6366: IF JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_parent_terr_id, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
6367: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6368: --dbms_output('PARENT Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6369: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_PARENT_TERR');
6370: FND_MESSAGE.Set_Token('TERR_ID', to_char(l_parent_terr_id));
6371: FND_MSG_PUB.ADD;
6372: End If;
6369: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_PARENT_TERR');
6370: FND_MESSAGE.Set_Token('TERR_ID', to_char(l_parent_terr_id));
6371: FND_MSG_PUB.ADD;
6372: End If;
6373: x_return_status := FND_API.G_RET_STS_ERROR;
6374: ELSE
6375: -- Parent Terr is Valid. Hence compare the Start Date active and End Date Active with Child's
6376: -- Start Date Active and End_date_active.
6377: IF (p_Terr_All_Rec.START_DATE_ACTIVE IS NOT NULL
6386: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6387: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_STARTDATE_NOT_VALID');
6388: FND_MSG_PUB.ADD;
6389: END IF;
6390: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6391: END IF;
6392:
6393: IF PEND_DATE_ACTIVE is NOT NULL
6394: AND PEND_DATE_ACTIVE < p_Terr_All_Rec.END_DATE_ACTIVE THEN
6395: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6396: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_ENDDATE_NOT_VALID');
6397: FND_MSG_PUB.ADD;
6398: END IF;
6399: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6400: END IF;
6401: END IF ;
6402: END IF;
6403: END IF;
6405: --
6406: --dbms_output('Validate_Foreign_Key: Checking for Territory Type Id');
6407: --
6408: If (p_Terr_All_Rec.TERRITORY_TYPE_ID is not null) AND
6409: (p_Terr_All_Rec.TERRITORY_TYPE_ID <> FND_API.G_MISS_NUM)
6410: then
6411: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.TERRITORY_TYPE_ID, 'TERR_TYPE_ID', 'JTF_TERR_TYPES_ALL');
6412: If l_status <> FND_API.G_TRUE Then
6413: x_return_status := FND_API.G_RET_STS_ERROR;
6408: If (p_Terr_All_Rec.TERRITORY_TYPE_ID is not null) AND
6409: (p_Terr_All_Rec.TERRITORY_TYPE_ID <> FND_API.G_MISS_NUM)
6410: then
6411: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.TERRITORY_TYPE_ID, 'TERR_TYPE_ID', 'JTF_TERR_TYPES_ALL');
6412: If l_status <> FND_API.G_TRUE Then
6413: x_return_status := FND_API.G_RET_STS_ERROR;
6414: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6415: --dbms_output('TERR TYPE: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6416: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_TYPE');
6409: (p_Terr_All_Rec.TERRITORY_TYPE_ID <> FND_API.G_MISS_NUM)
6410: then
6411: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.TERRITORY_TYPE_ID, 'TERR_TYPE_ID', 'JTF_TERR_TYPES_ALL');
6412: If l_status <> FND_API.G_TRUE Then
6413: x_return_status := FND_API.G_RET_STS_ERROR;
6414: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6415: --dbms_output('TERR TYPE: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6416: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_TYPE');
6417: FND_MESSAGE.Set_Token('TERR_TYPE_ID', to_char(p_Terr_All_Rec.TERRITORY_TYPE_ID));
6411: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.TERRITORY_TYPE_ID, 'TERR_TYPE_ID', 'JTF_TERR_TYPES_ALL');
6412: If l_status <> FND_API.G_TRUE Then
6413: x_return_status := FND_API.G_RET_STS_ERROR;
6414: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6415: --dbms_output('TERR TYPE: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6416: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_TYPE');
6417: FND_MESSAGE.Set_Token('TERR_TYPE_ID', to_char(p_Terr_All_Rec.TERRITORY_TYPE_ID));
6418: FND_MSG_PUB.ADD;
6419: End If;
6422: --
6423: --dbms_output('Validate_Foreign_Key: Checking for Organization ID');
6424: --
6425: If (p_Terr_All_Rec.ORG_ID is not null) AND
6426: (p_Terr_All_Rec.ORG_ID <> FND_API.G_MISS_NUM)
6427: then
6428: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.ORG_ID, 'ORGANIZATION_ID', 'HR_OPERATING_UNITS');
6429: If l_status <> FND_API.G_TRUE Then
6430: x_return_status := FND_API.G_RET_STS_ERROR;
6425: If (p_Terr_All_Rec.ORG_ID is not null) AND
6426: (p_Terr_All_Rec.ORG_ID <> FND_API.G_MISS_NUM)
6427: then
6428: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.ORG_ID, 'ORGANIZATION_ID', 'HR_OPERATING_UNITS');
6429: If l_status <> FND_API.G_TRUE Then
6430: x_return_status := FND_API.G_RET_STS_ERROR;
6431: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6432: --dbms_output('TERR TYPE: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6433: --Change the message name here
6426: (p_Terr_All_Rec.ORG_ID <> FND_API.G_MISS_NUM)
6427: then
6428: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.ORG_ID, 'ORGANIZATION_ID', 'HR_OPERATING_UNITS');
6429: If l_status <> FND_API.G_TRUE Then
6430: x_return_status := FND_API.G_RET_STS_ERROR;
6431: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6432: --dbms_output('TERR TYPE: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6433: --Change the message name here
6434: FND_MESSAGE.Set_Name('JTF', 'JTY_TERR_MISSING_ORG_ID');
6428: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.ORG_ID, 'ORGANIZATION_ID', 'HR_OPERATING_UNITS');
6429: If l_status <> FND_API.G_TRUE Then
6430: x_return_status := FND_API.G_RET_STS_ERROR;
6431: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6432: --dbms_output('TERR TYPE: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6433: --Change the message name here
6434: FND_MESSAGE.Set_Name('JTF', 'JTY_TERR_MISSING_ORG_ID');
6435: FND_MESSAGE.Set_Token('ORG_ID', to_char(p_Terr_All_Rec.ORG_ID));
6436: FND_MSG_PUB.ADD;
6440: --
6441: --dbms_output('Validate_Foreign_Key: Checking for TEMPLATE_TERRITORY_ID');
6442: --
6443: iF (p_Terr_All_Rec.TEMPLATE_TERRITORY_ID is not null) AND
6444: (p_Terr_All_Rec.TEMPLATE_TERRITORY_ID <> FND_API.G_MISS_NUM) Then
6445: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.TEMPLATE_TERRITORY_ID, 'TERR_ID', 'JTF_TERR_ALL');
6446: if l_status <> FND_API.G_TRUE Then
6447: x_return_status := FND_API.G_RET_STS_ERROR;
6448: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6442: --
6443: iF (p_Terr_All_Rec.TEMPLATE_TERRITORY_ID is not null) AND
6444: (p_Terr_All_Rec.TEMPLATE_TERRITORY_ID <> FND_API.G_MISS_NUM) Then
6445: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.TEMPLATE_TERRITORY_ID, 'TERR_ID', 'JTF_TERR_ALL');
6446: if l_status <> FND_API.G_TRUE Then
6447: x_return_status := FND_API.G_RET_STS_ERROR;
6448: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6449: --dbms_output('TEMP: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6450: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TEMP_TERR');
6443: iF (p_Terr_All_Rec.TEMPLATE_TERRITORY_ID is not null) AND
6444: (p_Terr_All_Rec.TEMPLATE_TERRITORY_ID <> FND_API.G_MISS_NUM) Then
6445: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.TEMPLATE_TERRITORY_ID, 'TERR_ID', 'JTF_TERR_ALL');
6446: if l_status <> FND_API.G_TRUE Then
6447: x_return_status := FND_API.G_RET_STS_ERROR;
6448: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6449: --dbms_output('TEMP: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6450: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TEMP_TERR');
6451: FND_MESSAGE.Set_Token('TERR_ID', to_char(p_Terr_All_Rec.TEMPLATE_TERRITORY_ID));
6445: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.TEMPLATE_TERRITORY_ID, 'TERR_ID', 'JTF_TERR_ALL');
6446: if l_status <> FND_API.G_TRUE Then
6447: x_return_status := FND_API.G_RET_STS_ERROR;
6448: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6449: --dbms_output('TEMP: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6450: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TEMP_TERR');
6451: FND_MESSAGE.Set_Token('TERR_ID', to_char(p_Terr_All_Rec.TEMPLATE_TERRITORY_ID));
6452: FND_MSG_PUB.ADD;
6453: End If;
6456: --
6457: --dbms_output('Validate_Foreign_Key: Checking for ESCALATION_TERRITORY_ID');
6458: --
6459: If (p_Terr_All_Rec.ESCALATION_TERRITORY_ID is not null) AND
6460: (p_Terr_All_Rec.ESCALATION_TERRITORY_ID <> FND_API.G_MISS_NUM) Then
6461: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.escalation_territory_id, 'TERR_ID', 'JTF_TERR_ALL');
6462: if l_status <> FND_API.G_TRUE Then
6463: x_return_status := FND_API.G_RET_STS_ERROR;
6464: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6458: --
6459: If (p_Terr_All_Rec.ESCALATION_TERRITORY_ID is not null) AND
6460: (p_Terr_All_Rec.ESCALATION_TERRITORY_ID <> FND_API.G_MISS_NUM) Then
6461: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.escalation_territory_id, 'TERR_ID', 'JTF_TERR_ALL');
6462: if l_status <> FND_API.G_TRUE Then
6463: x_return_status := FND_API.G_RET_STS_ERROR;
6464: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6465: --dbms_output('ESC TERR: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6466: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_ESC_TERR');
6459: If (p_Terr_All_Rec.ESCALATION_TERRITORY_ID is not null) AND
6460: (p_Terr_All_Rec.ESCALATION_TERRITORY_ID <> FND_API.G_MISS_NUM) Then
6461: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.escalation_territory_id, 'TERR_ID', 'JTF_TERR_ALL');
6462: if l_status <> FND_API.G_TRUE Then
6463: x_return_status := FND_API.G_RET_STS_ERROR;
6464: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6465: --dbms_output('ESC TERR: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6466: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_ESC_TERR');
6467: FND_MESSAGE.Set_Token('TERR_ID', to_char(p_Terr_All_Rec.terr_Id));
6461: l_status := JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_All_Rec.escalation_territory_id, 'TERR_ID', 'JTF_TERR_ALL');
6462: if l_status <> FND_API.G_TRUE Then
6463: x_return_status := FND_API.G_RET_STS_ERROR;
6464: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6465: --dbms_output('ESC TERR: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6466: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_ESC_TERR');
6467: FND_MESSAGE.Set_Token('TERR_ID', to_char(p_Terr_All_Rec.terr_Id));
6468: FND_MSG_PUB.ADD;
6469: End If;
6476: EXCEPTION
6477: --
6478: WHEN OTHERS THEN
6479: --dbms_output('Validate_Foreign_Key: Others exception' || SQLERRM);
6480: X_return_status := FND_API.G_RET_STS_ERROR;
6481: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
6482: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Foreign_Key' );
6483: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
6484: FND_MSG_PUB.ADD;
6497: -- Make sure the Territory Id is valid
6498: -- Make sure the territory usage Id is Valid
6499: ---------------------------------------------------------------------
6500: PROCEDURE Validate_Territory_Usage
6501: (p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6502: x_Return_Status OUT NOCOPY VARCHAR2,
6503: x_msg_count OUT NOCOPY NUMBER,
6504: x_msg_data OUT NOCOPY VARCHAR2,
6505: p_Terr_Usgs_Rec IN Terr_Usgs_Rec_Type := G_MISS_Terr_Usgs_Rec,
6510: BEGIN
6511: --dbms_output('Validate_Territory_Usage: Entering API');
6512:
6513: -- Initialize the status to success
6514: x_return_status := FND_API.G_RET_STS_SUCCESS;
6515:
6516: -- Validate the territory Id
6517: If p_Terr_Id IS NOT NULL THEN
6518: l_Validate_id := p_Terr_Id;
6515:
6516: -- Validate the territory Id
6517: If p_Terr_Id IS NOT NULL THEN
6518: l_Validate_id := p_Terr_Id;
6519: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
6520: --dbms_output('Validate_Territory_Usage: l_status <> FND_API.G_TRUE');
6521: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
6522: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
6523: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
6516: -- Validate the territory Id
6517: If p_Terr_Id IS NOT NULL THEN
6518: l_Validate_id := p_Terr_Id;
6519: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
6520: --dbms_output('Validate_Territory_Usage: l_status <> FND_API.G_TRUE');
6521: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
6522: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
6523: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
6524: FND_MSG_PUB.ADD;
6521: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
6522: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
6523: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
6524: FND_MSG_PUB.ADD;
6525: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6526: End If;
6527: --dbms_output('Validate_Territory_Usage: TERR_ID(' || to_char(l_Validate_id) || ') is valid');
6528: End If;
6529:
6529:
6530: -- Validate the source_id
6531: l_Validate_id := p_Terr_Usgs_rec.SOURCE_ID;
6532: -- Make sure the foreign key source_id is valid
6533: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'SOURCE_ID', 'JTF_SOURCES_ALL') <> FND_API.G_TRUE Then
6534: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6535: --dbms_output('Validate_Territory_Usage: FND_MSG_PUB.ADD');
6536: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
6537: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_SOURCES');
6537: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_SOURCES');
6538: FND_MESSAGE.Set_Token('COLUMN_NAME', 'SOURCE_ID');
6539: FND_MSG_PUB.ADD;
6540: End If;
6541: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6542: End If;
6543:
6544:
6545:
6543:
6544:
6545:
6546: -- Check for ORG_ID
6547: IF JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_Usgs_rec.ORG_ID, 'ORGANIZATION_ID', 'HR_OPERATING_UNITS') <> FND_API.G_TRUE THEN
6548: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6549: --dbms_output('TERR TYPE: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6550: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_TYPE');
6551: FND_MESSAGE.Set_Token('ORG_ID', to_char(p_Terr_Usgs_rec.ORG_ID));
6545:
6546: -- Check for ORG_ID
6547: IF JTF_CTM_UTILITY_PVT.fk_id_is_valid(p_Terr_Usgs_rec.ORG_ID, 'ORGANIZATION_ID', 'HR_OPERATING_UNITS') <> FND_API.G_TRUE THEN
6548: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6549: --dbms_output('TERR TYPE: Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6550: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_TYPE');
6551: FND_MESSAGE.Set_Token('ORG_ID', to_char(p_Terr_Usgs_rec.ORG_ID));
6552: FND_MSG_PUB.ADD;
6553: End If;
6550: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERR_TYPE');
6551: FND_MESSAGE.Set_Token('ORG_ID', to_char(p_Terr_Usgs_rec.ORG_ID));
6552: FND_MSG_PUB.ADD;
6553: End If;
6554: x_return_status := FND_API.G_RET_STS_ERROR;
6555: End If;
6556:
6557: --Check created by
6558: IF ( p_Terr_Usgs_rec.CREATED_BY is NULL OR
6555: End If;
6556:
6557: --Check created by
6558: IF ( p_Terr_Usgs_rec.CREATED_BY is NULL OR
6559: p_Terr_Usgs_rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
6560: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6561: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6562: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
6563: FND_MSG_PUB.ADD;
6561: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6562: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
6563: FND_MSG_PUB.ADD;
6564: END IF;
6565: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6566: End If;
6567:
6568: --Check creation date
6569: If ( p_Terr_Usgs_rec.CREATION_DATE is NULL OR
6566: End If;
6567:
6568: --Check creation date
6569: If ( p_Terr_Usgs_rec.CREATION_DATE is NULL OR
6570: p_Terr_Usgs_rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
6571: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6572: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6573: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
6574: FND_MSG_PUB.ADD;
6572: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6573: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
6574: FND_MSG_PUB.ADD;
6575: END IF;
6576: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6577: End If;
6578:
6579: -- Validate last updated by
6580: IF ( p_Terr_Usgs_rec.LAST_UPDATED_BY is NULL OR
6577: End If;
6578:
6579: -- Validate last updated by
6580: IF ( p_Terr_Usgs_rec.LAST_UPDATED_BY is NULL OR
6581: p_Terr_Usgs_rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
6582: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6583: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6584: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
6585: FND_MSG_PUB.ADD;
6583: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6584: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
6585: FND_MSG_PUB.ADD;
6586: END IF;
6587: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6588: End If;
6589:
6590: -- Check last update date
6591: If ( p_Terr_Usgs_rec.LAST_UPDATE_DATE IS NULL OR
6588: End If;
6589:
6590: -- Check last update date
6591: If ( p_Terr_Usgs_rec.LAST_UPDATE_DATE IS NULL OR
6592: p_Terr_Usgs_rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
6593: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6594: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6595: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
6596: FND_MSG_PUB.ADD;
6594: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6595: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
6596: FND_MSG_PUB.ADD;
6597: END IF;
6598: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6599: End If;
6600:
6601: --Check last update login
6602: --If ( p_Terr_Usgs_rec.LAST_UPDATE_LOGIN is NULL OR
6599: End If;
6600:
6601: --Check last update login
6602: --If ( p_Terr_Usgs_rec.LAST_UPDATE_LOGIN is NULL OR
6603: -- p_Terr_Usgs_rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
6604: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6605: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6606: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
6607: -- FND_MSG_PUB.ADD;
6605: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6606: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
6607: -- FND_MSG_PUB.ADD;
6608: -- END IF;
6609: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
6610: --End If;
6611:
6612: --
6613: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
6614: p_data => x_msg_data);
6615:
6616: EXCEPTION
6617: --
6618: WHEN FND_API.G_EXC_ERROR THEN
6619: --dbms_output('Validate_Territory_Usage: FND_API.G_EXC_ERROR');
6620: x_return_status := FND_API.G_RET_STS_ERROR ;
6621: FND_MSG_PUB.Count_And_Get
6622: ( P_count => x_msg_count,
6615:
6616: EXCEPTION
6617: --
6618: WHEN FND_API.G_EXC_ERROR THEN
6619: --dbms_output('Validate_Territory_Usage: FND_API.G_EXC_ERROR');
6620: x_return_status := FND_API.G_RET_STS_ERROR ;
6621: FND_MSG_PUB.Count_And_Get
6622: ( P_count => x_msg_count,
6623: P_data => x_msg_data
6616: EXCEPTION
6617: --
6618: WHEN FND_API.G_EXC_ERROR THEN
6619: --dbms_output('Validate_Territory_Usage: FND_API.G_EXC_ERROR');
6620: x_return_status := FND_API.G_RET_STS_ERROR ;
6621: FND_MSG_PUB.Count_And_Get
6622: ( P_count => x_msg_count,
6623: P_data => x_msg_data
6624: );
6622: ( P_count => x_msg_count,
6623: P_data => x_msg_data
6624: );
6625:
6626: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6627: --dbms_output('Validate_Territory_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
6628: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6629: FND_MSG_PUB.Count_And_Get
6630: ( P_count => x_msg_count,
6623: P_data => x_msg_data
6624: );
6625:
6626: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6627: --dbms_output('Validate_Territory_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
6628: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6629: FND_MSG_PUB.Count_And_Get
6630: ( P_count => x_msg_count,
6631: P_data => x_msg_data
6624: );
6625:
6626: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6627: --dbms_output('Validate_Territory_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
6628: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6629: FND_MSG_PUB.Count_And_Get
6630: ( P_count => x_msg_count,
6631: P_data => x_msg_data
6632: );
6632: );
6633:
6634: WHEN OTHERS THEN
6635: --dbms_output('Validate_Territory_Usage: OTHERS - ' || SQLERRM);
6636: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6637: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
6638: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Territory_Usage' );
6639: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
6640: FND_MSG_PUB.ADD;
6653: -- Make sure the Territory Id is valid
6654: -- Make sure the QUAL_TYPE_USG_ID is valid
6655: ---------------------------------------------------------------------
6656: PROCEDURE Validate_Terr_Qtype_Usage
6657: (p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6658: x_Return_Status OUT NOCOPY VARCHAR2,
6659: x_msg_count OUT NOCOPY NUMBER,
6660: x_msg_data OUT NOCOPY VARCHAR2,
6661: p_Terr_QualTypeUsgs_Rec IN Terr_QualTypeUsgs_Rec_Type := G_Miss_Terr_QualTypeUsgs_Rec,
6669: BEGIN
6670: --dbms_output('Validate_Terr_Qtype_Usage: Entering API');
6671:
6672: -- Initialize the status to success
6673: x_return_status := FND_API.G_RET_STS_SUCCESS;
6674:
6675: -- This block will validate territory
6676: -- qual_Type_Usg_id specified
6677: BEGIN
6687: EXCEPTION
6688: WHEN NO_DATA_FOUND THEN
6689: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_QTYPE');
6690: FND_MSG_PUB.ADD;
6691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6692: END;
6693:
6694: -- Validate the territory Id
6695: l_Validate_id := p_Terr_Id;
6694: -- Validate the territory Id
6695: l_Validate_id := p_Terr_Id;
6696: If p_Terr_Id IS NOT NULL Then
6697: --dbms_output('Validate_Terr_Qtype_Usage: TERR_ID(' || to_char(l_Validate_id) || ')');
6698: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
6699: --dbms_output('Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6700: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6701: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
6702: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_ALL');
6695: l_Validate_id := p_Terr_Id;
6696: If p_Terr_Id IS NOT NULL Then
6697: --dbms_output('Validate_Terr_Qtype_Usage: TERR_ID(' || to_char(l_Validate_id) || ')');
6698: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
6699: --dbms_output('Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
6700: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6701: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
6702: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_ALL');
6703: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
6702: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_ALL');
6703: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
6704: FND_MSG_PUB.ADD;
6705: END IF;
6706: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6707: End If;
6708: End If;
6709:
6710: --
6710: --
6711: --
6712: /*-- Check for ORG_ID - obsolete: org_id is optional
6713: IF (p_Terr_QualTypeUsgs_Rec.ORG_ID is NULL) OR
6714: (p_Terr_QualTypeUsgs_Rec.ORG_ID = FND_API.G_MISS_NUM) THEN
6715: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6716: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6717: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
6718: FND_MSG_PUB.ADD;
6716: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6717: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
6718: FND_MSG_PUB.ADD;
6719: END IF;
6720: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6721: End If;
6722: */
6723:
6724: --Check created by
6722: */
6723:
6724: --Check created by
6725: IF ( p_Terr_QualTypeUsgs_Rec.CREATED_BY is NULL OR
6726: p_Terr_QualTypeUsgs_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
6727: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6728: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6729: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
6730: FND_MSG_PUB.ADD;
6728: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6729: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
6730: FND_MSG_PUB.ADD;
6731: END IF;
6732: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6733: End If;
6734:
6735: --Check creation date
6736: If ( p_Terr_QualTypeUsgs_Rec.CREATION_DATE is NULL OR
6733: End If;
6734:
6735: --Check creation date
6736: If ( p_Terr_QualTypeUsgs_Rec.CREATION_DATE is NULL OR
6737: p_Terr_QualTypeUsgs_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
6738: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6739: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6740: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
6741: FND_MSG_PUB.ADD;
6739: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6740: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
6741: FND_MSG_PUB.ADD;
6742: END IF;
6743: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6744: End If;
6745:
6746: -- Validate last updated by
6747: IF ( p_Terr_QualTypeUsgs_Rec.LAST_UPDATED_BY is NULL OR
6744: End If;
6745:
6746: -- Validate last updated by
6747: IF ( p_Terr_QualTypeUsgs_Rec.LAST_UPDATED_BY is NULL OR
6748: p_Terr_QualTypeUsgs_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
6749: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6750: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6751: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
6752: FND_MSG_PUB.ADD;
6750: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6751: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
6752: FND_MSG_PUB.ADD;
6753: END IF;
6754: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6755: End If;
6756:
6757: -- Check last update date
6758: If ( p_Terr_QualTypeUsgs_Rec.LAST_UPDATE_DATE IS NULL OR
6755: End If;
6756:
6757: -- Check last update date
6758: If ( p_Terr_QualTypeUsgs_Rec.LAST_UPDATE_DATE IS NULL OR
6759: p_Terr_QualTypeUsgs_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
6760: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6761: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6762: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
6763: FND_MSG_PUB.ADD;
6761: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6762: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
6763: FND_MSG_PUB.ADD;
6764: END IF;
6765: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6766: End If;
6767:
6768: --Check last update login
6769: --If ( p_Terr_QualTypeUsgs_Rec.LAST_UPDATE_LOGIN is NULL OR
6766: End If;
6767:
6768: --Check last update login
6769: --If ( p_Terr_QualTypeUsgs_Rec.LAST_UPDATE_LOGIN is NULL OR
6770: -- p_Terr_QualTypeUsgs_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
6771: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6772: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6773: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
6774: -- FND_MSG_PUB.ADD;
6772: -- FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6773: -- FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
6774: -- FND_MSG_PUB.ADD;
6775: -- END IF;
6776: -- x_Return_Status := FND_API.G_RET_STS_ERROR ;
6777: --End If;
6778:
6779: --
6780: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
6780: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
6781: p_data => x_msg_data);
6782: EXCEPTION
6783: --
6784: WHEN FND_API.G_EXC_ERROR THEN
6785: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
6786: x_return_status := FND_API.G_RET_STS_ERROR ;
6787: FND_MSG_PUB.Count_And_Get
6788: ( P_count => x_msg_count,
6781: p_data => x_msg_data);
6782: EXCEPTION
6783: --
6784: WHEN FND_API.G_EXC_ERROR THEN
6785: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
6786: x_return_status := FND_API.G_RET_STS_ERROR ;
6787: FND_MSG_PUB.Count_And_Get
6788: ( P_count => x_msg_count,
6789: P_data => x_msg_data
6782: EXCEPTION
6783: --
6784: WHEN FND_API.G_EXC_ERROR THEN
6785: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
6786: x_return_status := FND_API.G_RET_STS_ERROR ;
6787: FND_MSG_PUB.Count_And_Get
6788: ( P_count => x_msg_count,
6789: P_data => x_msg_data
6790: );
6788: ( P_count => x_msg_count,
6789: P_data => x_msg_data
6790: );
6791:
6792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6793: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
6794: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6795: FND_MSG_PUB.Count_And_Get
6796: ( P_count => x_msg_count,
6789: P_data => x_msg_data
6790: );
6791:
6792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6793: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
6794: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6795: FND_MSG_PUB.Count_And_Get
6796: ( P_count => x_msg_count,
6797: P_data => x_msg_data
6790: );
6791:
6792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6793: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
6794: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6795: FND_MSG_PUB.Count_And_Get
6796: ( P_count => x_msg_count,
6797: P_data => x_msg_data
6798: );
6798: );
6799:
6800: WHEN OTHERS THEN
6801: --dbms_output.put_line('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
6802: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6803:
6804: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
6805: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Qtype_Usage' );
6806: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
6815: /* Function used in JTF_TERR_VALUES_DESC_V to return
6816: ** descriptive values for ids and lookup_codes
6817: */
6818: PROCEDURE Validate_terr_Value
6819: (p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6820: x_Return_Status OUT NOCOPY VARCHAR2,
6821: x_msg_count OUT NOCOPY NUMBER,
6822: x_msg_data OUT NOCOPY VARCHAR2,
6823: p_convert_to_id_flag IN VARCHAR2,
6821: x_msg_count OUT NOCOPY NUMBER,
6822: x_msg_data OUT NOCOPY VARCHAR2,
6823: p_convert_to_id_flag IN VARCHAR2,
6824: p_display_type IN VARCHAR2,
6825: p_display_sql IN VARCHAR2 := FND_API.G_MISS_CHAR,
6826: p_terr_value1 IN VARCHAR2,
6827: p_terr_value2 IN VARCHAR2 := FND_API.G_MISS_CHAR )
6828: IS
6829: query_str VARCHAR2(1000);
6823: p_convert_to_id_flag IN VARCHAR2,
6824: p_display_type IN VARCHAR2,
6825: p_display_sql IN VARCHAR2 := FND_API.G_MISS_CHAR,
6826: p_terr_value1 IN VARCHAR2,
6827: p_terr_value2 IN VARCHAR2 := FND_API.G_MISS_CHAR )
6828: IS
6829: query_str VARCHAR2(1000);
6830: value_desc VARCHAR2(1000);
6831: l_terr_value1 VARCHAR2(360);
6832: l_terr_value2 VARCHAR2(360);
6833:
6834: BEGIN
6835: -- Initialize the status to success
6836: x_return_status := FND_API.G_RET_STS_SUCCESS;
6837:
6838: IF ( p_display_sql IS NOT NULL AND p_display_sql <> FND_API.G_MISS_CHAR ) THEN
6839: query_str := p_display_sql;
6840: l_terr_value1 := p_terr_value1;
6834: BEGIN
6835: -- Initialize the status to success
6836: x_return_status := FND_API.G_RET_STS_SUCCESS;
6837:
6838: IF ( p_display_sql IS NOT NULL AND p_display_sql <> FND_API.G_MISS_CHAR ) THEN
6839: query_str := p_display_sql;
6840: l_terr_value1 := p_terr_value1;
6841: l_terr_value2 := p_terr_value2;
6842:
6868: END IF; -- p_display_sql IS NOT NULL
6869:
6870: EXCEPTION
6871: WHEN NO_DATA_FOUND THEN
6872: X_return_status := FND_API.G_RET_STS_ERROR;
6873: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6874: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
6875: FND_MSG_PUB.ADD;
6876: END IF;
6875: FND_MSG_PUB.ADD;
6876: END IF;
6877:
6878: WHEN OTHERS THEN
6879: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6880: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
6881: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_terr_Value' );
6882: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
6883: FND_MSG_PUB.ADD;
6902: --
6903: --
6904: ---------------------------------------------------------------------
6905: PROCEDURE Validate_terr_Value_Rec
6906: (p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6907: x_Return_Status OUT NOCOPY VARCHAR2,
6908: x_msg_count OUT NOCOPY NUMBER,
6909: x_msg_data OUT NOCOPY VARCHAR2,
6910: p_Terr_Qual_Id IN NUMBER,
6936: BEGIN
6937: --dbms_output('Validate_terr_Value_Rec: - terr_qual_id' || to_char(p_Terr_Qual_Id) );
6938:
6939: -- Initialize the status to success
6940: x_return_status := FND_API.G_RET_STS_SUCCESS;
6941:
6942: OPEN C_QualDef1;
6943: FETCH C_QualDef1
6944: INTO l_qual_usg_id,
6956: --dbms_output('l_convert_to_id_flag - ' || l_convert_to_id_flag );
6957:
6958: /*-- Check for ORG_ID - obsolete: org_id is optional
6959: IF (p_Terr_Value_Rec.ORG_ID is NULL) OR
6960: (p_Terr_Value_Rec.ORG_ID = FND_API.G_MISS_NUM) THEN
6961: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6962: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6963: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
6964: FND_MSG_PUB.ADD;
6962: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6963: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
6964: FND_MSG_PUB.ADD;
6965: END IF;
6966: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6967: End If;
6968: */
6969:
6970:
6970:
6971: /* ----- ARPATEL 041101 Bug#1508750 FIX -----------------------------------
6972:
6973: If ( p_Terr_Value_Rec.ID_USED_FLAG IS NULL OR
6974: p_Terr_Value_Rec.ID_USED_FLAG = FND_API.G_MISS_CHAR ) Then
6975: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6976: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6977: FND_MESSAGE.Set_Token('COL_NAME', 'ID_USED_FLAG' );
6978: FND_MSG_PUB.ADD;
6976: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6977: FND_MESSAGE.Set_Token('COL_NAME', 'ID_USED_FLAG' );
6978: FND_MSG_PUB.ADD;
6979: END IF;
6980: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6981: End If;
6982: -------------------------------------------------------------------------*/
6983:
6984:
6983:
6984:
6985: -- Validate last updated by
6986: IF ( p_Terr_Value_Rec.LAST_UPDATED_BY is NULL OR
6987: p_Terr_Value_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
6988: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6989: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6990: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
6991: FND_MSG_PUB.ADD;
6989: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
6990: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
6991: FND_MSG_PUB.ADD;
6992: END IF;
6993: x_Return_Status := FND_API.G_RET_STS_ERROR ;
6994: End If;
6995:
6996: -- Check last update date
6997: If ( p_Terr_Value_Rec.LAST_UPDATE_DATE IS NULL OR
6994: End If;
6995:
6996: -- Check last update date
6997: If ( p_Terr_Value_Rec.LAST_UPDATE_DATE IS NULL OR
6998: p_Terr_Value_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
6999: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7000: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
7001: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
7002: FND_MSG_PUB.ADD;
7000: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
7001: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
7002: FND_MSG_PUB.ADD;
7003: END IF;
7004: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7005: End If;
7006:
7007: --Check last update login
7008: If ( p_Terr_Value_Rec.LAST_UPDATE_LOGIN is NULL OR
7005: End If;
7006:
7007: --Check last update login
7008: If ( p_Terr_Value_Rec.LAST_UPDATE_LOGIN is NULL OR
7009: p_Terr_Value_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
7010: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7011: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
7012: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
7013: FND_MSG_PUB.ADD;
7011: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
7012: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
7013: FND_MSG_PUB.ADD;
7014: END IF;
7015: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7016: End If;
7017:
7018: -- Check the operator.
7019: /* All the qualifiers are divided into four groups based on their
7044: FND_MSG_PUB.ADD;
7045:
7046: END IF;
7047:
7048: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7049:
7050: END IF;
7051:
7052: ELSIF ( (l_display_type = 'CHAR') AND ( l_html_lov_sql1 IS NUll )) THEN
7063: FND_MSG_PUB.ADD;
7064:
7065: END IF;
7066:
7067: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7068:
7069: END IF;
7070:
7071: ELSE
7080: FND_MSG_PUB.ADD;
7081:
7082: END IF;
7083:
7084: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7085:
7086: END IF;
7087:
7088: END IF;
7100: FND_MSG_PUB.ADD;
7101:
7102: END IF;
7103:
7104: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7105:
7106: END IF;
7107:
7108: ELSE
7120: FND_MSG_PUB.ADD;
7121:
7122: END IF;
7123:
7124: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7125:
7126: END IF;
7127:
7128: END IF;
7126: END IF;
7127:
7128: END IF;
7129:
7130: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7131: RAISE FND_API.G_EXC_ERROR;
7132: END IF;
7133:
7134: --dbms_output('Before the main validation.');
7127:
7128: END IF;
7129:
7130: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7131: RAISE FND_API.G_EXC_ERROR;
7132: END IF;
7133:
7134: --dbms_output('Before the main validation.');
7135: ---------- Start Qualifier Value Validation. --------------
7137: IF ( l_display_type = 'CHAR' AND
7138: ( l_convert_to_id_flag = 'N' or l_convert_to_id_flag is NULL ) ) THEN
7139:
7140: IF ( ( p_Terr_Value_Rec.LOW_VALUE_CHAR IS NULL or
7141: p_Terr_Value_Rec.LOW_VALUE_CHAR = FND_API.G_MISS_CHAR ) OR
7142: p_Terr_Value_Rec.ID_USED_FLAG = 'Y' OR
7143: ( p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7144: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7145: ( p_Terr_Value_Rec.LOW_VALUE_CHAR_ID IS NOT NULL and
7140: IF ( ( p_Terr_Value_Rec.LOW_VALUE_CHAR IS NULL or
7141: p_Terr_Value_Rec.LOW_VALUE_CHAR = FND_API.G_MISS_CHAR ) OR
7142: p_Terr_Value_Rec.ID_USED_FLAG = 'Y' OR
7143: ( p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7144: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7145: ( p_Terr_Value_Rec.LOW_VALUE_CHAR_ID IS NOT NULL and
7146: p_Terr_Value_Rec.LOW_VALUE_CHAR_ID <> FND_API.G_MISS_NUM ) OR
7147: ( p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7148: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7142: p_Terr_Value_Rec.ID_USED_FLAG = 'Y' OR
7143: ( p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7144: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7145: ( p_Terr_Value_Rec.LOW_VALUE_CHAR_ID IS NOT NULL and
7146: p_Terr_Value_Rec.LOW_VALUE_CHAR_ID <> FND_API.G_MISS_NUM ) OR
7147: ( p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7148: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7149: ( p_Terr_Value_Rec.HIGH_VALUE_NUMBER IS NOT NULL and
7150: p_Terr_Value_Rec.HIGH_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7144: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7145: ( p_Terr_Value_Rec.LOW_VALUE_CHAR_ID IS NOT NULL and
7146: p_Terr_Value_Rec.LOW_VALUE_CHAR_ID <> FND_API.G_MISS_NUM ) OR
7147: ( p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7148: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7149: ( p_Terr_Value_Rec.HIGH_VALUE_NUMBER IS NOT NULL and
7150: p_Terr_Value_Rec.HIGH_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7151: ( p_Terr_Value_Rec.INTEREST_TYPE_ID IS NOT NULL and
7152: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) ) THEN
7146: p_Terr_Value_Rec.LOW_VALUE_CHAR_ID <> FND_API.G_MISS_NUM ) OR
7147: ( p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7148: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7149: ( p_Terr_Value_Rec.HIGH_VALUE_NUMBER IS NOT NULL and
7150: p_Terr_Value_Rec.HIGH_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7151: ( p_Terr_Value_Rec.INTEREST_TYPE_ID IS NOT NULL and
7152: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) ) THEN
7153:
7154: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7148: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7149: ( p_Terr_Value_Rec.HIGH_VALUE_NUMBER IS NOT NULL and
7150: p_Terr_Value_Rec.HIGH_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7151: ( p_Terr_Value_Rec.INTEREST_TYPE_ID IS NOT NULL and
7152: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) ) THEN
7153:
7154: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7155: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7156: FND_MSG_PUB.ADD;
7155: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7156: FND_MSG_PUB.ADD;
7157: END IF;
7158:
7159: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7160: ELSE
7161: IF ( p_Terr_Value_Rec.LOW_VALUE_CHAR IS NOT NULL AND
7162: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) THEN
7163: --Validate the value being passed.
7158:
7159: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7160: ELSE
7161: IF ( p_Terr_Value_Rec.LOW_VALUE_CHAR IS NOT NULL AND
7162: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) THEN
7163: --Validate the value being passed.
7164: Validate_terr_Value(
7165: p_init_msg_list => p_init_msg_list,
7166: x_Return_Status => x_Return_Status,
7170: p_display_type => l_display_type,
7171: p_display_sql => l_display_sql1,
7172: p_terr_value1 => p_Terr_Value_Rec.LOW_VALUE_CHAR);
7173:
7174: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7175: RAISE FND_API.G_EXC_ERROR;
7176: END IF;
7177:
7178: END IF;
7171: p_display_sql => l_display_sql1,
7172: p_terr_value1 => p_Terr_Value_Rec.LOW_VALUE_CHAR);
7173:
7174: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7175: RAISE FND_API.G_EXC_ERROR;
7176: END IF;
7177:
7178: END IF;
7179: END IF;
7184: -- If the Id is not specified in low_value_char_id or
7185: -- id_used_flag is not null or the operation is not
7186: -- specified, then flag exception
7187: If ( (p_Terr_Value_Rec.LOW_VALUE_CHAR_ID IS NULL or
7188: p_Terr_Value_Rec.LOW_VALUE_CHAR_ID = FND_API.G_MISS_NUM ) OR
7189: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7190: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7191: -- Description may be null
7192: -- 08/08/00 Change jdochert
7186: -- specified, then flag exception
7187: If ( (p_Terr_Value_Rec.LOW_VALUE_CHAR_ID IS NULL or
7188: p_Terr_Value_Rec.LOW_VALUE_CHAR_ID = FND_API.G_MISS_NUM ) OR
7189: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7190: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7191: -- Description may be null
7192: -- 08/08/00 Change jdochert
7193: --p_Terr_Value_Rec.LOW_VALUE_CHAR = FND_API.G_MISS_CHAR OR
7194: (p_Terr_Value_Rec.ID_USED_FLAG IS NULL OR
7189: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7190: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7191: -- Description may be null
7192: -- 08/08/00 Change jdochert
7193: --p_Terr_Value_Rec.LOW_VALUE_CHAR = FND_API.G_MISS_CHAR OR
7194: (p_Terr_Value_Rec.ID_USED_FLAG IS NULL OR
7195: p_Terr_Value_Rec.ID_USED_FLAG = FND_API.G_MISS_CHAR OR
7196: p_Terr_Value_Rec.ID_USED_FLAG <> 'Y' ) OR
7197: (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7191: -- Description may be null
7192: -- 08/08/00 Change jdochert
7193: --p_Terr_Value_Rec.LOW_VALUE_CHAR = FND_API.G_MISS_CHAR OR
7194: (p_Terr_Value_Rec.ID_USED_FLAG IS NULL OR
7195: p_Terr_Value_Rec.ID_USED_FLAG = FND_API.G_MISS_CHAR OR
7196: p_Terr_Value_Rec.ID_USED_FLAG <> 'Y' ) OR
7197: (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7198: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7199: (p_Terr_Value_Rec.HIGH_VALUE_NUMBER IS NOT NULL and
7194: (p_Terr_Value_Rec.ID_USED_FLAG IS NULL OR
7195: p_Terr_Value_Rec.ID_USED_FLAG = FND_API.G_MISS_CHAR OR
7196: p_Terr_Value_Rec.ID_USED_FLAG <> 'Y' ) OR
7197: (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7198: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7199: (p_Terr_Value_Rec.HIGH_VALUE_NUMBER IS NOT NULL and
7200: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7201: (p_Terr_Value_Rec.INTEREST_TYPE_ID IS NOT NULL and
7202: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) ) THEN
7196: p_Terr_Value_Rec.ID_USED_FLAG <> 'Y' ) OR
7197: (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7198: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7199: (p_Terr_Value_Rec.HIGH_VALUE_NUMBER IS NOT NULL and
7200: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7201: (p_Terr_Value_Rec.INTEREST_TYPE_ID IS NOT NULL and
7202: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) ) THEN
7203:
7204: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7198: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7199: (p_Terr_Value_Rec.HIGH_VALUE_NUMBER IS NOT NULL and
7200: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7201: (p_Terr_Value_Rec.INTEREST_TYPE_ID IS NOT NULL and
7202: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) ) THEN
7203:
7204: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7205: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7206: FND_MSG_PUB.ADD;
7205: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7206: FND_MSG_PUB.ADD;
7207: END IF;
7208:
7209: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7210:
7211: ELSE
7212: IF ( p_Terr_Value_Rec.LOW_VALUE_CHAR_ID IS NOT NULL AND
7213: p_Terr_Value_Rec.LOW_VALUE_CHAR_ID <> FND_API.G_MISS_NUM ) THEN
7209: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7210:
7211: ELSE
7212: IF ( p_Terr_Value_Rec.LOW_VALUE_CHAR_ID IS NOT NULL AND
7213: p_Terr_Value_Rec.LOW_VALUE_CHAR_ID <> FND_API.G_MISS_NUM ) THEN
7214:
7215: --Validate the value being passed.
7216: Validate_terr_Value(
7217: p_init_msg_list => p_init_msg_list,
7222: p_display_type => l_display_type,
7223: p_display_sql => l_display_sql1,
7224: p_terr_value1 => p_Terr_Value_Rec.LOW_VALUE_CHAR_ID);
7225:
7226: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7227: RAISE FND_API.G_EXC_ERROR;
7228: END IF;
7229:
7230: END IF;
7223: p_display_sql => l_display_sql1,
7224: p_terr_value1 => p_Terr_Value_Rec.LOW_VALUE_CHAR_ID);
7225:
7226: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7227: RAISE FND_API.G_EXC_ERROR;
7228: END IF;
7229:
7230: END IF;
7231: END IF;
7235: --dbms_output('Inside NUMERIC');
7236: -- Check whether the atleast LOW_VALUE_NUMBER, operator
7237: -- is specified
7238: If ( (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NULL OR
7239: p_Terr_Value_Rec.LOW_VALUE_NUMBER = FND_API.G_MISS_NUM ) OR
7240: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7241: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) ) THEN
7242:
7243: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7237: -- is specified
7238: If ( (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NULL OR
7239: p_Terr_Value_Rec.LOW_VALUE_NUMBER = FND_API.G_MISS_NUM ) OR
7240: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7241: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) ) THEN
7242:
7243: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7244: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7245: FND_MSG_PUB.ADD;
7244: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7245: FND_MSG_PUB.ADD;
7246: END IF;
7247:
7248: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7249:
7250: /* ELSIF -- No values validation is required for 'NUMERIC' data type.
7251: */
7252: END IF; -- l_display_type = 'CHAR'
7256: --dbms_output('Inside CURRENCY');
7257: -- Check whether the atleast LOW_VALUE_NUMBER, operator
7258: -- is specified
7259: If ( (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NULL OR
7260: p_Terr_Value_Rec.LOW_VALUE_NUMBER = FND_API.G_MISS_NUM ) OR
7261: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7262: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7263: (p_Terr_Value_Rec.CURRENCY_CODE IS NULL OR
7264: p_Terr_Value_Rec.CURRENCY_CODE = FND_API.G_MISS_CHAR ) OR
7258: -- is specified
7259: If ( (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NULL OR
7260: p_Terr_Value_Rec.LOW_VALUE_NUMBER = FND_API.G_MISS_NUM ) OR
7261: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7262: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7263: (p_Terr_Value_Rec.CURRENCY_CODE IS NULL OR
7264: p_Terr_Value_Rec.CURRENCY_CODE = FND_API.G_MISS_CHAR ) OR
7265: (p_Terr_Value_Rec.LOW_VALUE_CHAR IS NOT NULL and
7266: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) OR
7260: p_Terr_Value_Rec.LOW_VALUE_NUMBER = FND_API.G_MISS_NUM ) OR
7261: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7262: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7263: (p_Terr_Value_Rec.CURRENCY_CODE IS NULL OR
7264: p_Terr_Value_Rec.CURRENCY_CODE = FND_API.G_MISS_CHAR ) OR
7265: (p_Terr_Value_Rec.LOW_VALUE_CHAR IS NOT NULL and
7266: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) OR
7267: (p_Terr_Value_Rec.INTEREST_TYPE_ID IS NOT NULL and
7268: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) ) THEN
7262: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7263: (p_Terr_Value_Rec.CURRENCY_CODE IS NULL OR
7264: p_Terr_Value_Rec.CURRENCY_CODE = FND_API.G_MISS_CHAR ) OR
7265: (p_Terr_Value_Rec.LOW_VALUE_CHAR IS NOT NULL and
7266: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) OR
7267: (p_Terr_Value_Rec.INTEREST_TYPE_ID IS NOT NULL and
7268: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) ) THEN
7269:
7270: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7264: p_Terr_Value_Rec.CURRENCY_CODE = FND_API.G_MISS_CHAR ) OR
7265: (p_Terr_Value_Rec.LOW_VALUE_CHAR IS NOT NULL and
7266: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) OR
7267: (p_Terr_Value_Rec.INTEREST_TYPE_ID IS NOT NULL and
7268: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) ) THEN
7269:
7270: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7271: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7272: FND_MSG_PUB.ADD;
7271: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7272: FND_MSG_PUB.ADD;
7273: END IF;
7274:
7275: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7276: --ELSIF
7277: -- No validations required for CURRENCY display type. Display sql1 is not defined for this.
7278:
7279: END IF;
7283: --dbms_output('Inside INTEREST_TYPE');
7284: -- Check whether the atleast LOW_VALUE_NUMBER, operator
7285: -- is specified
7286: If ( (p_Terr_Value_Rec.INTEREST_TYPE_ID IS NULL OR
7287: p_Terr_Value_Rec.INTEREST_TYPE_ID = FND_API.G_MISS_NUM ) OR
7288: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7289: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7290: (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7291: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7285: -- is specified
7286: If ( (p_Terr_Value_Rec.INTEREST_TYPE_ID IS NULL OR
7287: p_Terr_Value_Rec.INTEREST_TYPE_ID = FND_API.G_MISS_NUM ) OR
7288: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7289: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7290: (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7291: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7292: (p_Terr_Value_Rec.LOW_VALUE_CHAR IS NOT NULL and
7293: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) ) THEN
7287: p_Terr_Value_Rec.INTEREST_TYPE_ID = FND_API.G_MISS_NUM ) OR
7288: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7289: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7290: (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7291: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7292: (p_Terr_Value_Rec.LOW_VALUE_CHAR IS NOT NULL and
7293: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) ) THEN
7294:
7295: --dbms_output('Error INTEREST_TYPE');
7289: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7290: (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7291: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7292: (p_Terr_Value_Rec.LOW_VALUE_CHAR IS NOT NULL and
7293: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) ) THEN
7294:
7295: --dbms_output('Error INTEREST_TYPE');
7296: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7297: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7297: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7298: FND_MSG_PUB.ADD;
7299: END IF;
7300:
7301: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7302:
7303: ELSE
7304: -- Validate the Intrest Type ID being passed if it is not null.
7305: IF ( p_Terr_Value_Rec.INTEREST_TYPE_ID IS NOT NULL AND
7302:
7303: ELSE
7304: -- Validate the Intrest Type ID being passed if it is not null.
7305: IF ( p_Terr_Value_Rec.INTEREST_TYPE_ID IS NOT NULL AND
7306: p_Terr_Value_Rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM ) THEN
7307:
7308: --Validate the value being passed.
7309: Validate_terr_Value(
7310: p_init_msg_list => p_init_msg_list,
7315: p_display_type => l_display_type,
7316: p_display_sql => l_display_sql1,
7317: p_terr_value1 => p_Terr_Value_Rec.INTEREST_TYPE_ID);
7318:
7319: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7320: RAISE FND_API.G_EXC_ERROR;
7321: END IF;
7322:
7323: END IF ;
7316: p_display_sql => l_display_sql1,
7317: p_terr_value1 => p_Terr_Value_Rec.INTEREST_TYPE_ID);
7318:
7319: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7320: RAISE FND_API.G_EXC_ERROR;
7321: END IF;
7322:
7323: END IF ;
7324:
7322:
7323: END IF ;
7324:
7325: IF ( p_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID IS NOT NULL AND
7326: p_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID <> FND_API.G_MISS_NUM ) THEN
7327:
7328: --Validate the value being passed.
7329: Validate_terr_Value(
7330: p_init_msg_list => p_init_msg_list,
7335: p_display_type => l_display_type,
7336: p_display_sql => l_display_sql2,
7337: p_terr_value1 => p_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID);
7338:
7339: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7340: RAISE FND_API.G_EXC_ERROR;
7341: END IF;
7342:
7343: END IF ;
7336: p_display_sql => l_display_sql2,
7337: p_terr_value1 => p_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID);
7338:
7339: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7340: RAISE FND_API.G_EXC_ERROR;
7341: END IF;
7342:
7343: END IF ;
7344: -- Validate SECONDARY_INTEREST_CODE_ID value if it is not null.
7342:
7343: END IF ;
7344: -- Validate SECONDARY_INTEREST_CODE_ID value if it is not null.
7345: IF ( p_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID IS NOT NULL AND
7346: p_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID <> FND_API.G_MISS_NUM ) THEN
7347:
7348: --Validate the value being passed.
7349: Validate_terr_Value(
7350: p_init_msg_list => p_init_msg_list,
7355: p_display_type => l_display_type,
7356: p_display_sql => l_display_sql3,
7357: p_terr_value1 => p_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID);
7358:
7359: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7360: RAISE FND_API.G_EXC_ERROR;
7361: END IF;
7362:
7363: END IF ;
7356: p_display_sql => l_display_sql3,
7357: p_terr_value1 => p_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID);
7358:
7359: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7360: RAISE FND_API.G_EXC_ERROR;
7361: END IF;
7362:
7363: END IF ;
7364: END IF;
7364: END IF;
7365: ElsIf ( l_display_type = 'CHAR_2IDS' ) Then
7366: --
7367: If ( (p_Terr_Value_Rec.VALUE1_ID IS NULL OR
7368: p_Terr_Value_Rec.VALUE1_ID = FND_API.G_MISS_NUM ) OR
7369: (p_Terr_Value_Rec.VALUE2_ID IS NULL OR
7370: p_Terr_Value_Rec.VALUE2_ID = FND_API.G_MISS_NUM ) OR
7371: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7372: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7366: --
7367: If ( (p_Terr_Value_Rec.VALUE1_ID IS NULL OR
7368: p_Terr_Value_Rec.VALUE1_ID = FND_API.G_MISS_NUM ) OR
7369: (p_Terr_Value_Rec.VALUE2_ID IS NULL OR
7370: p_Terr_Value_Rec.VALUE2_ID = FND_API.G_MISS_NUM ) OR
7371: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7372: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7373: (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7374: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7368: p_Terr_Value_Rec.VALUE1_ID = FND_API.G_MISS_NUM ) OR
7369: (p_Terr_Value_Rec.VALUE2_ID IS NULL OR
7370: p_Terr_Value_Rec.VALUE2_ID = FND_API.G_MISS_NUM ) OR
7371: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7372: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7373: (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7374: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7375: (p_Terr_Value_Rec.LOW_VALUE_CHAR IS NOT NULL and
7376: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) ) THEN
7370: p_Terr_Value_Rec.VALUE2_ID = FND_API.G_MISS_NUM ) OR
7371: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7372: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7373: (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7374: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7375: (p_Terr_Value_Rec.LOW_VALUE_CHAR IS NOT NULL and
7376: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) ) THEN
7377:
7378: --dbms_output('Error INTEREST_TYPE');
7372: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) OR
7373: (p_Terr_Value_Rec.LOW_VALUE_NUMBER IS NOT NULL and
7374: p_Terr_Value_Rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM ) OR
7375: (p_Terr_Value_Rec.LOW_VALUE_CHAR IS NOT NULL and
7376: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) ) THEN
7377:
7378: --dbms_output('Error INTEREST_TYPE');
7379: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7380: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7380: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7381: FND_MSG_PUB.ADD;
7382: END IF;
7383:
7384: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7385:
7386: ELSIF ( p_Terr_Value_Rec.VALUE1_ID IS NOT NULL AND
7387: p_Terr_Value_Rec.VALUE1_ID <> FND_API.G_MISS_NUM AND
7388: p_Terr_Value_Rec.VALUE2_ID IS NOT NULL AND
7383:
7384: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7385:
7386: ELSIF ( p_Terr_Value_Rec.VALUE1_ID IS NOT NULL AND
7387: p_Terr_Value_Rec.VALUE1_ID <> FND_API.G_MISS_NUM AND
7388: p_Terr_Value_Rec.VALUE2_ID IS NOT NULL AND
7389: p_Terr_Value_Rec.VALUE2_ID <> FND_API.G_MISS_NUM ) THEN
7390:
7391: --Validate the value being passed.
7385:
7386: ELSIF ( p_Terr_Value_Rec.VALUE1_ID IS NOT NULL AND
7387: p_Terr_Value_Rec.VALUE1_ID <> FND_API.G_MISS_NUM AND
7388: p_Terr_Value_Rec.VALUE2_ID IS NOT NULL AND
7389: p_Terr_Value_Rec.VALUE2_ID <> FND_API.G_MISS_NUM ) THEN
7390:
7391: --Validate the value being passed.
7392: Validate_terr_Value(
7393: p_init_msg_list => p_init_msg_list,
7399: p_display_sql => l_display_sql1,
7400: p_terr_value1 => p_Terr_Value_Rec.VALUE1_ID,
7401: p_terr_value2 => p_Terr_Value_Rec.VALUE2_ID);
7402:
7403: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7404: RAISE FND_API.G_EXC_ERROR;
7405: END IF;
7406:
7407: END IF; -- l_display_type = 'CHAR_2IDS'
7400: p_terr_value1 => p_Terr_Value_Rec.VALUE1_ID,
7401: p_terr_value2 => p_Terr_Value_Rec.VALUE2_ID);
7402:
7403: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7404: RAISE FND_API.G_EXC_ERROR;
7405: END IF;
7406:
7407: END IF; -- l_display_type = 'CHAR_2IDS'
7408:
7408:
7409: ElsIf ( l_display_type = 'DEP_2FIELDS' ) Then
7410:
7411: If ( (p_Terr_Value_Rec.VALUE1_ID IS NULL OR
7412: p_Terr_Value_Rec.VALUE1_ID = FND_API.G_MISS_NUM ) OR
7413: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7414: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) ) THEN
7415:
7416: --dbms_output('Error INTEREST_TYPE');
7410:
7411: If ( (p_Terr_Value_Rec.VALUE1_ID IS NULL OR
7412: p_Terr_Value_Rec.VALUE1_ID = FND_API.G_MISS_NUM ) OR
7413: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7414: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) ) THEN
7415:
7416: --dbms_output('Error INTEREST_TYPE');
7417: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7418: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7418: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7419: FND_MSG_PUB.ADD;
7420: END IF;
7421:
7422: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7423:
7424: ELSE
7425: IF ( p_Terr_Value_Rec.VALUE1_ID IS NOT NULL AND
7426: p_Terr_Value_Rec.VALUE1_ID <> FND_API.G_MISS_NUM ) THEN
7422: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7423:
7424: ELSE
7425: IF ( p_Terr_Value_Rec.VALUE1_ID IS NOT NULL AND
7426: p_Terr_Value_Rec.VALUE1_ID <> FND_API.G_MISS_NUM ) THEN
7427:
7428: --Validate the value being passed.
7429: Validate_terr_Value(
7430: p_init_msg_list => p_init_msg_list,
7435: p_display_type => l_display_type,
7436: p_display_sql => l_display_sql1,
7437: p_terr_value1 => p_Terr_Value_Rec.VALUE1_ID);
7438:
7439: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7440: RAISE FND_API.G_EXC_ERROR;
7441: END IF;
7442:
7443: END IF;
7436: p_display_sql => l_display_sql1,
7437: p_terr_value1 => p_Terr_Value_Rec.VALUE1_ID);
7438:
7439: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7440: RAISE FND_API.G_EXC_ERROR;
7441: END IF;
7442:
7443: END IF;
7444:
7442:
7443: END IF;
7444:
7445: IF ( p_Terr_Value_Rec.VALUE2_ID IS NOT NULL AND
7446: p_Terr_Value_Rec.VALUE2_ID <> FND_API.G_MISS_NUM ) THEN
7447:
7448: --Validate the value being passed.
7449: Validate_terr_Value(
7450: p_init_msg_list => p_init_msg_list,
7455: p_display_type => l_display_type,
7456: p_display_sql => l_display_sql2,
7457: p_terr_value1 => p_Terr_Value_Rec.VALUE2_ID);
7458:
7459: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7460: RAISE FND_API.G_EXC_ERROR;
7461: END IF;
7462:
7463: END IF;
7456: p_display_sql => l_display_sql2,
7457: p_terr_value1 => p_Terr_Value_Rec.VALUE2_ID);
7458:
7459: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7460: RAISE FND_API.G_EXC_ERROR;
7461: END IF;
7462:
7463: END IF;
7464: END IF; -- l_display_type = 'DEP_2FIELDS'
7465:
7466: ElsIf ( l_display_type = 'DEP_2FIELDS_CHAR_2IDS' ) Then
7467:
7468: IF ( (p_Terr_Value_Rec.VALUE1_ID IS NULL OR
7469: p_Terr_Value_Rec.VALUE1_ID = FND_API.G_MISS_NUM ) OR
7470: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7471: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) ) THEN
7472:
7473: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7467:
7468: IF ( (p_Terr_Value_Rec.VALUE1_ID IS NULL OR
7469: p_Terr_Value_Rec.VALUE1_ID = FND_API.G_MISS_NUM ) OR
7470: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7471: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) ) THEN
7472:
7473: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7474: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7475: FND_MSG_PUB.ADD;
7473: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7474: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7475: FND_MSG_PUB.ADD;
7476: END IF;
7477: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7478: ELSE
7479: IF ( p_Terr_Value_Rec.VALUE1_ID IS NOT NULL AND
7480: p_Terr_Value_Rec.VALUE1_ID <> FND_API.G_MISS_NUM ) THEN
7481:
7476: END IF;
7477: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7478: ELSE
7479: IF ( p_Terr_Value_Rec.VALUE1_ID IS NOT NULL AND
7480: p_Terr_Value_Rec.VALUE1_ID <> FND_API.G_MISS_NUM ) THEN
7481:
7482: --Validate the value being passed.
7483: Validate_terr_Value(
7484: p_init_msg_list => p_init_msg_list,
7490: p_display_sql => l_display_sql1,
7491: p_terr_value1 => p_Terr_Value_Rec.VALUE1_ID,
7492: p_terr_value2 => -9999 );
7493:
7494: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7495: RAISE FND_API.G_EXC_ERROR;
7496: END IF;
7497:
7498: END IF;
7491: p_terr_value1 => p_Terr_Value_Rec.VALUE1_ID,
7492: p_terr_value2 => -9999 );
7493:
7494: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7495: RAISE FND_API.G_EXC_ERROR;
7496: END IF;
7497:
7498: END IF;
7499:
7497:
7498: END IF;
7499:
7500: IF ( p_Terr_Value_Rec.VALUE2_ID IS NOT NULL AND
7501: p_Terr_Value_Rec.VALUE2_ID <> FND_API.G_MISS_NUM ) THEN
7502:
7503: --Validate the value being passed.
7504: Validate_terr_Value(
7505: p_init_msg_list => p_init_msg_list,
7511: p_display_sql => l_display_sql2,
7512: p_terr_value1 => p_Terr_Value_Rec.VALUE1_ID,
7513: p_terr_value2 => p_Terr_Value_Rec.VALUE2_ID);
7514:
7515: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7516: RAISE FND_API.G_EXC_ERROR;
7517: END IF;
7518:
7519: END IF;
7512: p_terr_value1 => p_Terr_Value_Rec.VALUE1_ID,
7513: p_terr_value2 => p_Terr_Value_Rec.VALUE2_ID);
7514:
7515: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7516: RAISE FND_API.G_EXC_ERROR;
7517: END IF;
7518:
7519: END IF;
7520: END IF; -- l_display_type = 'DEP_2FIELDS_CHAR_2IDS'
7521:
7522: ElsIf ( l_display_type = 'DEP_3FIELDS_CHAR_3IDS' ) Then
7523:
7524: IF ( (p_Terr_Value_Rec.VALUE1_ID IS NULL OR
7525: p_Terr_Value_Rec.VALUE1_ID = FND_API.G_MISS_NUM ) OR
7526: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7527: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) ) THEN
7528:
7529: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7523:
7524: IF ( (p_Terr_Value_Rec.VALUE1_ID IS NULL OR
7525: p_Terr_Value_Rec.VALUE1_ID = FND_API.G_MISS_NUM ) OR
7526: (p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7527: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) ) THEN
7528:
7529: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7530: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7531: FND_MSG_PUB.ADD;
7529: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7530: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7531: FND_MSG_PUB.ADD;
7532: END IF;
7533: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7534: ELSE
7535: IF ( p_Terr_Value_Rec.VALUE1_ID IS NOT NULL AND
7536: p_Terr_Value_Rec.VALUE1_ID <> FND_API.G_MISS_NUM ) THEN
7537:
7532: END IF;
7533: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7534: ELSE
7535: IF ( p_Terr_Value_Rec.VALUE1_ID IS NOT NULL AND
7536: p_Terr_Value_Rec.VALUE1_ID <> FND_API.G_MISS_NUM ) THEN
7537:
7538: --Validate the value being passed.
7539: Validate_terr_Value(
7540: p_init_msg_list => p_init_msg_list,
7546: p_display_sql => l_display_sql1,
7547: p_terr_value1 => p_Terr_Value_Rec.VALUE1_ID,
7548: p_terr_value2 => -9999 );
7549:
7550: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7551: RAISE FND_API.G_EXC_ERROR;
7552: END IF;
7553:
7554: END IF;
7547: p_terr_value1 => p_Terr_Value_Rec.VALUE1_ID,
7548: p_terr_value2 => -9999 );
7549:
7550: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7551: RAISE FND_API.G_EXC_ERROR;
7552: END IF;
7553:
7554: END IF;
7555:
7553:
7554: END IF;
7555:
7556: IF ( p_Terr_Value_Rec.VALUE2_ID IS NOT NULL AND
7557: p_Terr_Value_Rec.VALUE2_ID <> FND_API.G_MISS_NUM ) THEN
7558:
7559: --Validate the value being passed.
7560: Validate_terr_Value(
7561: p_init_msg_list => p_init_msg_list,
7567: p_display_sql => l_display_sql2,
7568: p_terr_value1 => p_Terr_Value_Rec.VALUE1_ID,
7569: p_terr_value2 => -9999);
7570:
7571: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7572: RAISE FND_API.G_EXC_ERROR;
7573: END IF;
7574:
7575: END IF;
7568: p_terr_value1 => p_Terr_Value_Rec.VALUE1_ID,
7569: p_terr_value2 => -9999);
7570:
7571: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7572: RAISE FND_API.G_EXC_ERROR;
7573: END IF;
7574:
7575: END IF;
7576:
7574:
7575: END IF;
7576:
7577: IF ( p_Terr_Value_Rec.VALUE3_ID IS NOT NULL AND
7578: p_Terr_Value_Rec.VALUE3_ID <> FND_API.G_MISS_NUM ) THEN
7579:
7580: --Validate the value being passed.
7581: Validate_terr_Value(
7582: p_init_msg_list => p_init_msg_list,
7588: p_display_sql => l_display_sql2,
7589: p_terr_value1 => p_Terr_Value_Rec.VALUE3_ID,
7590: p_terr_value2 => -9999);
7591:
7592: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7593: RAISE FND_API.G_EXC_ERROR;
7594: END IF;
7595:
7596: END IF;
7589: p_terr_value1 => p_Terr_Value_Rec.VALUE3_ID,
7590: p_terr_value2 => -9999);
7591:
7592: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7593: RAISE FND_API.G_EXC_ERROR;
7594: END IF;
7595:
7596: END IF;
7597:
7599:
7600: ElsIf ( l_display_type = 'DEP_2FIELDS_1CHAR_1ID' ) Then
7601:
7602: IF ( ( p_Terr_Value_Rec.LOW_VALUE_CHAR IS NULL or
7603: p_Terr_Value_Rec.LOW_VALUE_CHAR = FND_API.G_MISS_CHAR ) OR
7604: ( p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7605: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) ) THEN
7606:
7607: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7601:
7602: IF ( ( p_Terr_Value_Rec.LOW_VALUE_CHAR IS NULL or
7603: p_Terr_Value_Rec.LOW_VALUE_CHAR = FND_API.G_MISS_CHAR ) OR
7604: ( p_Terr_Value_Rec.COMPARISON_OPERATOR IS NULL OR
7605: p_Terr_Value_Rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR ) ) THEN
7606:
7607: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7608: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7609: FND_MSG_PUB.ADD;
7607: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7608: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_TERR_VALUE');
7609: FND_MSG_PUB.ADD;
7610: END IF;
7611: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7612: ELSE
7613: IF ( p_Terr_Value_Rec.LOW_VALUE_CHAR IS NOT NULL AND
7614: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) THEN
7615:
7610: END IF;
7611: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7612: ELSE
7613: IF ( p_Terr_Value_Rec.LOW_VALUE_CHAR IS NOT NULL AND
7614: p_Terr_Value_Rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR ) THEN
7615:
7616: --Validate the value being passed.
7617: Validate_terr_Value(
7618: p_init_msg_list => p_init_msg_list,
7623: p_display_type => l_display_type,
7624: p_display_sql => l_display_sql1,
7625: p_terr_value1 => p_Terr_Value_Rec.LOW_VALUE_CHAR);
7626:
7627: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7628: RAISE FND_API.G_EXC_ERROR;
7629: END IF;
7630:
7631: END IF;
7624: p_display_sql => l_display_sql1,
7625: p_terr_value1 => p_Terr_Value_Rec.LOW_VALUE_CHAR);
7626:
7627: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7628: RAISE FND_API.G_EXC_ERROR;
7629: END IF;
7630:
7631: END IF;
7632:
7630:
7631: END IF;
7632:
7633: IF ( p_Terr_Value_Rec.LOW_VALUE_CHAR_ID IS NOT NULL AND
7634: p_Terr_Value_Rec.LOW_VALUE_CHAR_ID <> FND_API.G_MISS_NUM ) THEN
7635:
7636: --Validate the value being passed.
7637: Validate_terr_Value(
7638: p_init_msg_list => p_init_msg_list,
7643: p_display_type => l_display_type,
7644: p_display_sql => l_display_sql2,
7645: p_terr_value1 => p_Terr_Value_Rec.LOW_VALUE_CHAR_ID);
7646:
7647: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7648: RAISE FND_API.G_EXC_ERROR;
7649: END IF;
7650:
7651: END IF;
7644: p_display_sql => l_display_sql2,
7645: p_terr_value1 => p_Terr_Value_Rec.LOW_VALUE_CHAR_ID);
7646:
7647: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7648: RAISE FND_API.G_EXC_ERROR;
7649: END IF;
7650:
7651: END IF;
7652:
7660: p_data => x_msg_data);
7661: */
7662: EXCEPTION
7663: --
7664: WHEN FND_API.G_EXC_ERROR THEN
7665: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
7666: x_return_status := FND_API.G_RET_STS_ERROR ;
7667: FND_MSG_PUB.Count_And_Get
7668: ( P_count => x_msg_count,
7661: */
7662: EXCEPTION
7663: --
7664: WHEN FND_API.G_EXC_ERROR THEN
7665: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
7666: x_return_status := FND_API.G_RET_STS_ERROR ;
7667: FND_MSG_PUB.Count_And_Get
7668: ( P_count => x_msg_count,
7669: P_data => x_msg_data
7662: EXCEPTION
7663: --
7664: WHEN FND_API.G_EXC_ERROR THEN
7665: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
7666: x_return_status := FND_API.G_RET_STS_ERROR ;
7667: FND_MSG_PUB.Count_And_Get
7668: ( P_count => x_msg_count,
7669: P_data => x_msg_data
7670: );
7668: ( P_count => x_msg_count,
7669: P_data => x_msg_data
7670: );
7671:
7672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7673: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
7674: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7675: FND_MSG_PUB.Count_And_Get
7676: ( P_count => x_msg_count,
7669: P_data => x_msg_data
7670: );
7671:
7672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7673: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
7674: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7675: FND_MSG_PUB.Count_And_Get
7676: ( P_count => x_msg_count,
7677: P_data => x_msg_data
7670: );
7671:
7672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7673: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
7674: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7675: FND_MSG_PUB.Count_And_Get
7676: ( P_count => x_msg_count,
7677: P_data => x_msg_data
7678: );
7678: );
7679:
7680: WHEN OTHERS THEN
7681: --dbms_output('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
7682: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7683:
7684: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
7685: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_terr_Value_Rec' );
7686: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
7695:
7696: -- CHECK FOR DUPLICATES VALUES
7697: --
7698: PROCEDURE Check_duplicate_Value
7699: (p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7700: x_Return_Status OUT NOCOPY VARCHAR2,
7701: x_msg_count OUT NOCOPY NUMBER,
7702: x_msg_data OUT NOCOPY VARCHAR2,
7703: p_Terr_Qual_Id IN NUMBER,
7709: Select 'X'
7710: into l_dummy
7711: From JTF_TERR_VALUES_ALL
7712: WHERE TERR_QUAL_ID = P_terr_qual_id
7713: AND nvl(COMPARISON_OPERATOR , '-9999') = nvl( decode(P_Terr_Value_Rec.COMPARISON_OPERATOR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.COMPARISON_OPERATOR ) , '-9999')
7714: AND nvl(LOW_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR ) , '-9999')
7715: AND nvl(HIGH_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.HIGH_VALUE_CHAR ) , '-9999')
7716: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7717: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7710: into l_dummy
7711: From JTF_TERR_VALUES_ALL
7712: WHERE TERR_QUAL_ID = P_terr_qual_id
7713: AND nvl(COMPARISON_OPERATOR , '-9999') = nvl( decode(P_Terr_Value_Rec.COMPARISON_OPERATOR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.COMPARISON_OPERATOR ) , '-9999')
7714: AND nvl(LOW_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR ) , '-9999')
7715: AND nvl(HIGH_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.HIGH_VALUE_CHAR ) , '-9999')
7716: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7717: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7718: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7711: From JTF_TERR_VALUES_ALL
7712: WHERE TERR_QUAL_ID = P_terr_qual_id
7713: AND nvl(COMPARISON_OPERATOR , '-9999') = nvl( decode(P_Terr_Value_Rec.COMPARISON_OPERATOR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.COMPARISON_OPERATOR ) , '-9999')
7714: AND nvl(LOW_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR ) , '-9999')
7715: AND nvl(HIGH_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.HIGH_VALUE_CHAR ) , '-9999')
7716: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7717: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7718: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7719: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7712: WHERE TERR_QUAL_ID = P_terr_qual_id
7713: AND nvl(COMPARISON_OPERATOR , '-9999') = nvl( decode(P_Terr_Value_Rec.COMPARISON_OPERATOR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.COMPARISON_OPERATOR ) , '-9999')
7714: AND nvl(LOW_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR ) , '-9999')
7715: AND nvl(HIGH_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.HIGH_VALUE_CHAR ) , '-9999')
7716: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7717: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7718: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7719: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7720: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7713: AND nvl(COMPARISON_OPERATOR , '-9999') = nvl( decode(P_Terr_Value_Rec.COMPARISON_OPERATOR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.COMPARISON_OPERATOR ) , '-9999')
7714: AND nvl(LOW_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR ) , '-9999')
7715: AND nvl(HIGH_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.HIGH_VALUE_CHAR ) , '-9999')
7716: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7717: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7718: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7719: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7720: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7721: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7714: AND nvl(LOW_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR ) , '-9999')
7715: AND nvl(HIGH_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.HIGH_VALUE_CHAR ) , '-9999')
7716: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7717: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7718: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7719: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7720: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7721: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7722: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7715: AND nvl(HIGH_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.HIGH_VALUE_CHAR ) , '-9999')
7716: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7717: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7718: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7719: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7720: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7721: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7722: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7723: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7716: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7717: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7718: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7719: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7720: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7721: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7722: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7723: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7724: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7717: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7718: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7719: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7720: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7721: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7722: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7723: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7724: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7725: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7718: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7719: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7720: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7721: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7722: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7723: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7724: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7725: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7726: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7719: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7720: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7721: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7722: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7723: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7724: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7725: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7726: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7727: AND nvl(VALUE2_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE2_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE2_ID ) , -9999)
7720: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7721: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7722: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7723: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7724: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7725: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7726: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7727: AND nvl(VALUE2_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE2_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE2_ID ) , -9999)
7728: AND nvl(VALUE3_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE3_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE3_ID ) , -9999)
7721: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7722: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7723: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7724: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7725: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7726: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7727: AND nvl(VALUE2_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE2_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE2_ID ) , -9999)
7728: AND nvl(VALUE3_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE3_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE3_ID ) , -9999)
7729: AND nvl(VALUE4_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE4_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE4_ID ) , -9999) ;
7722: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7723: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7724: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7725: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7726: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7727: AND nvl(VALUE2_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE2_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE2_ID ) , -9999)
7728: AND nvl(VALUE3_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE3_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE3_ID ) , -9999)
7729: AND nvl(VALUE4_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE4_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE4_ID ) , -9999) ;
7730:
7723: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7724: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7725: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7726: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7727: AND nvl(VALUE2_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE2_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE2_ID ) , -9999)
7728: AND nvl(VALUE3_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE3_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE3_ID ) , -9999)
7729: AND nvl(VALUE4_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE4_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE4_ID ) , -9999) ;
7730:
7731: IF l_dummy = 'X' THEN
7724: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7725: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7726: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7727: AND nvl(VALUE2_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE2_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE2_ID ) , -9999)
7728: AND nvl(VALUE3_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE3_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE3_ID ) , -9999)
7729: AND nvl(VALUE4_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE4_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE4_ID ) , -9999) ;
7730:
7731: IF l_dummy = 'X' THEN
7732: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7725: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7726: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7727: AND nvl(VALUE2_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE2_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE2_ID ) , -9999)
7728: AND nvl(VALUE3_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE3_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE3_ID ) , -9999)
7729: AND nvl(VALUE4_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE4_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE4_ID ) , -9999) ;
7730:
7731: IF l_dummy = 'X' THEN
7732: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7733: FND_MESSAGE.Set_Name('JTF', 'JTY_DUP_TRANS_ATTR_VAL');
7732: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7733: FND_MESSAGE.Set_Name('JTF', 'JTY_DUP_TRANS_ATTR_VAL');
7734: FND_MSG_PUB.ADD;
7735: END IF;
7736: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7737: End If;
7738: EXCEPTION
7739: --
7740: WHEN NO_DATA_FOUND THEN
7738: EXCEPTION
7739: --
7740: WHEN NO_DATA_FOUND THEN
7741: NULL;
7742: WHEN FND_API.G_EXC_ERROR THEN
7743: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
7744: x_return_status := FND_API.G_RET_STS_ERROR ;
7745: FND_MSG_PUB.Count_And_Get
7746: ( P_count => x_msg_count,
7739: --
7740: WHEN NO_DATA_FOUND THEN
7741: NULL;
7742: WHEN FND_API.G_EXC_ERROR THEN
7743: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
7744: x_return_status := FND_API.G_RET_STS_ERROR ;
7745: FND_MSG_PUB.Count_And_Get
7746: ( P_count => x_msg_count,
7747: P_data => x_msg_data
7740: WHEN NO_DATA_FOUND THEN
7741: NULL;
7742: WHEN FND_API.G_EXC_ERROR THEN
7743: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
7744: x_return_status := FND_API.G_RET_STS_ERROR ;
7745: FND_MSG_PUB.Count_And_Get
7746: ( P_count => x_msg_count,
7747: P_data => x_msg_data
7748: );
7746: ( P_count => x_msg_count,
7747: P_data => x_msg_data
7748: );
7749:
7750: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7751: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
7752: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7753: FND_MSG_PUB.Count_And_Get
7754: ( P_count => x_msg_count,
7747: P_data => x_msg_data
7748: );
7749:
7750: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7751: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
7752: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7753: FND_MSG_PUB.Count_And_Get
7754: ( P_count => x_msg_count,
7755: P_data => x_msg_data
7748: );
7749:
7750: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7751: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
7752: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7753: FND_MSG_PUB.Count_And_Get
7754: ( P_count => x_msg_count,
7755: P_data => x_msg_data
7756: );
7756: );
7757:
7758: WHEN OTHERS THEN
7759: --dbms_output('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
7760: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7761:
7762: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
7763: FND_MESSAGE.Set_Token('PROC_NAME', 'Check_duplicate_Value');
7764: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
7772: END Check_duplicate_Value;
7773: -- CHECK FOR DUPLICATES VALUES
7774: --
7775: PROCEDURE Check_duplicate_Value_update
7776: (p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7777: x_Return_Status OUT NOCOPY VARCHAR2,
7778: x_msg_count OUT NOCOPY NUMBER,
7779: x_msg_data OUT NOCOPY VARCHAR2,
7780: p_Terr_Qual_Id IN NUMBER,
7786: into l_dummy
7787: From JTF_TERR_VALUES_ALL
7788: WHERE TERR_VALUE_ID <> P_Terr_Value_Rec.TERR_VALUE_ID
7789: AND TERR_QUAL_ID = P_terr_qual_id
7790: AND nvl(COMPARISON_OPERATOR , '-9999') = nvl( decode(P_Terr_Value_Rec.COMPARISON_OPERATOR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.COMPARISON_OPERATOR ) , '-9999')
7791: AND nvl(LOW_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR ) , '-9999')
7792: AND nvl(HIGH_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.HIGH_VALUE_CHAR ) , '-9999')
7793: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7794: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7787: From JTF_TERR_VALUES_ALL
7788: WHERE TERR_VALUE_ID <> P_Terr_Value_Rec.TERR_VALUE_ID
7789: AND TERR_QUAL_ID = P_terr_qual_id
7790: AND nvl(COMPARISON_OPERATOR , '-9999') = nvl( decode(P_Terr_Value_Rec.COMPARISON_OPERATOR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.COMPARISON_OPERATOR ) , '-9999')
7791: AND nvl(LOW_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR ) , '-9999')
7792: AND nvl(HIGH_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.HIGH_VALUE_CHAR ) , '-9999')
7793: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7794: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7795: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7788: WHERE TERR_VALUE_ID <> P_Terr_Value_Rec.TERR_VALUE_ID
7789: AND TERR_QUAL_ID = P_terr_qual_id
7790: AND nvl(COMPARISON_OPERATOR , '-9999') = nvl( decode(P_Terr_Value_Rec.COMPARISON_OPERATOR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.COMPARISON_OPERATOR ) , '-9999')
7791: AND nvl(LOW_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR ) , '-9999')
7792: AND nvl(HIGH_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.HIGH_VALUE_CHAR ) , '-9999')
7793: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7794: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7795: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7796: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7789: AND TERR_QUAL_ID = P_terr_qual_id
7790: AND nvl(COMPARISON_OPERATOR , '-9999') = nvl( decode(P_Terr_Value_Rec.COMPARISON_OPERATOR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.COMPARISON_OPERATOR ) , '-9999')
7791: AND nvl(LOW_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR ) , '-9999')
7792: AND nvl(HIGH_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.HIGH_VALUE_CHAR ) , '-9999')
7793: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7794: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7795: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7796: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7797: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7790: AND nvl(COMPARISON_OPERATOR , '-9999') = nvl( decode(P_Terr_Value_Rec.COMPARISON_OPERATOR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.COMPARISON_OPERATOR ) , '-9999')
7791: AND nvl(LOW_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR ) , '-9999')
7792: AND nvl(HIGH_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.HIGH_VALUE_CHAR ) , '-9999')
7793: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7794: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7795: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7796: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7797: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7798: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7791: AND nvl(LOW_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR ) , '-9999')
7792: AND nvl(HIGH_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.HIGH_VALUE_CHAR ) , '-9999')
7793: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7794: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7795: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7796: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7797: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7798: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7799: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7792: AND nvl(HIGH_VALUE_CHAR , '-9999') = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_CHAR, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.HIGH_VALUE_CHAR ) , '-9999')
7793: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7794: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7795: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7796: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7797: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7798: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7799: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7800: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7793: AND nvl(LOW_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_NUMBER ) , -9999)
7794: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7795: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7796: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7797: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7798: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7799: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7800: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7801: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7794: AND nvl(HIGH_VALUE_NUMBER , -9999) = nvl( decode(P_Terr_Value_Rec.HIGH_VALUE_NUMBER, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.HIGH_VALUE_NUMBER ) , -9999)
7795: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7796: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7797: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7798: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7799: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7800: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7801: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7802: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7795: AND nvl(VALUE_SET , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE_SET, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE_SET ) , -9999)
7796: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7797: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7798: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7799: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7800: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7801: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7802: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7803: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7796: AND nvl(INTEREST_TYPE_ID , -9999) = nvl( decode(P_Terr_Value_Rec.INTEREST_TYPE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.INTEREST_TYPE_ID ) , -9999)
7797: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7798: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7799: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7800: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7801: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7802: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7803: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7804: AND nvl(VALUE2_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE2_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE2_ID ) , -9999)
7797: AND nvl(PRIMARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.PRIMARY_INTEREST_CODE_ID ) , -9999)
7798: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7799: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7800: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7801: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7802: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7803: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7804: AND nvl(VALUE2_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE2_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE2_ID ) , -9999)
7805: AND nvl(VALUE3_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE3_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE3_ID ) , -9999)
7798: AND nvl(SECONDARY_INTEREST_CODE_ID,-9999) = nvl( decode(P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.SECONDARY_INTEREST_CODE_ID ), -9999)
7799: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7800: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7801: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7802: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7803: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7804: AND nvl(VALUE2_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE2_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE2_ID ) , -9999)
7805: AND nvl(VALUE3_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE3_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE3_ID ) , -9999)
7806: AND nvl(VALUE4_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE4_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE4_ID ) , -9999) ;
7799: AND nvl(CURRENCY_CODE , '-9999') = nvl( decode(P_Terr_Value_Rec.CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL , P_Terr_Value_Rec.CURRENCY_CODE ) , '-9999')
7800: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7801: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7802: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7803: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7804: AND nvl(VALUE2_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE2_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE2_ID ) , -9999)
7805: AND nvl(VALUE3_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE3_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE3_ID ) , -9999)
7806: AND nvl(VALUE4_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE4_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE4_ID ) , -9999) ;
7807:
7800: AND nvl(LOW_VALUE_CHAR_ID , -9999) = nvl( decode(P_Terr_Value_Rec.LOW_VALUE_CHAR_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.LOW_VALUE_CHAR_ID ) , -9999)
7801: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7802: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7803: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7804: AND nvl(VALUE2_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE2_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE2_ID ) , -9999)
7805: AND nvl(VALUE3_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE3_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE3_ID ) , -9999)
7806: AND nvl(VALUE4_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE4_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE4_ID ) , -9999) ;
7807:
7808: IF l_dummy = 'X' THEN
7801: AND nvl(ORG_ID , -9999) = nvl( decode(P_Terr_Value_Rec.ORG_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.ORG_ID ) , -9999)
7802: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7803: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7804: AND nvl(VALUE2_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE2_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE2_ID ) , -9999)
7805: AND nvl(VALUE3_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE3_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE3_ID ) , -9999)
7806: AND nvl(VALUE4_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE4_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE4_ID ) , -9999) ;
7807:
7808: IF l_dummy = 'X' THEN
7809: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7802: AND nvl(CNR_GROUP_ID , -9999) = nvl( decode(P_Terr_Value_Rec.CNR_GROUP_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.CNR_GROUP_ID ) , -9999)
7803: AND nvl(VALUE1_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE1_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE1_ID ) , -9999)
7804: AND nvl(VALUE2_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE2_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE2_ID ) , -9999)
7805: AND nvl(VALUE3_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE3_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE3_ID ) , -9999)
7806: AND nvl(VALUE4_ID , -9999) = nvl( decode(P_Terr_Value_Rec.VALUE4_ID, FND_API.G_MISS_NUM, NULL , P_Terr_Value_Rec.VALUE4_ID ) , -9999) ;
7807:
7808: IF l_dummy = 'X' THEN
7809: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7810: FND_MESSAGE.Set_Name('JTF', 'JTY_DUP_TRANS_ATTR_VAL');
7809: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7810: FND_MESSAGE.Set_Name('JTF', 'JTY_DUP_TRANS_ATTR_VAL');
7811: FND_MSG_PUB.ADD;
7812: END IF;
7813: x_Return_Status := FND_API.G_RET_STS_ERROR ;
7814: End If;
7815: EXCEPTION
7816: --
7817: WHEN NO_DATA_FOUND THEN
7815: EXCEPTION
7816: --
7817: WHEN NO_DATA_FOUND THEN
7818: NULL;
7819: WHEN FND_API.G_EXC_ERROR THEN
7820: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
7821: x_return_status := FND_API.G_RET_STS_ERROR ;
7822: FND_MSG_PUB.Count_And_Get
7823: ( P_count => x_msg_count,
7816: --
7817: WHEN NO_DATA_FOUND THEN
7818: NULL;
7819: WHEN FND_API.G_EXC_ERROR THEN
7820: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
7821: x_return_status := FND_API.G_RET_STS_ERROR ;
7822: FND_MSG_PUB.Count_And_Get
7823: ( P_count => x_msg_count,
7824: P_data => x_msg_data
7817: WHEN NO_DATA_FOUND THEN
7818: NULL;
7819: WHEN FND_API.G_EXC_ERROR THEN
7820: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
7821: x_return_status := FND_API.G_RET_STS_ERROR ;
7822: FND_MSG_PUB.Count_And_Get
7823: ( P_count => x_msg_count,
7824: P_data => x_msg_data
7825: );
7823: ( P_count => x_msg_count,
7824: P_data => x_msg_data
7825: );
7826:
7827: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7828: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
7829: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7830: FND_MSG_PUB.Count_And_Get
7831: ( P_count => x_msg_count,
7824: P_data => x_msg_data
7825: );
7826:
7827: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7828: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
7829: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7830: FND_MSG_PUB.Count_And_Get
7831: ( P_count => x_msg_count,
7832: P_data => x_msg_data
7825: );
7826:
7827: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7828: --dbms_output('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
7829: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7830: FND_MSG_PUB.Count_And_Get
7831: ( P_count => x_msg_count,
7832: P_data => x_msg_data
7833: );
7833: );
7834:
7835: WHEN OTHERS THEN
7836: --dbms_output('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
7837: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7838:
7839: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
7840: FND_MESSAGE.Set_Token('PROC_NAME', 'Check_duplicate_Value');
7841: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
7892: ** 3. lock the template so that no other user can use that template for
7893: ** generation or update the template.
7894: */
7895: PROCEDURE Validate_Template_Record (
7896: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7897: p_template_terr_id IN NUMBER,
7898: x_Return_Status OUT NOCOPY VARCHAR2,
7899: x_msg_count OUT NOCOPY NUMBER,
7900: x_msg_data OUT NOCOPY VARCHAR2
7928:
7929: --dbms_output('Validate_Template_Record: Entering API');
7930:
7931: -- Initialize the status to success
7932: x_return_status := FND_API.G_RET_STS_SUCCESS;
7933:
7934: /* (1) check template exists */
7935: OPEN c_chk_template (p_template_terr_id);
7936: FETCH c_chk_template INTO l_csr_rtn;
7937: IF (c_chk_template%NOTFOUND) THEN
7938:
7939: fnd_message.set_name('JTF', 'JTF_TERR_INVALID_TEMPLATE');
7940: --fnd_msg_pub.add;
7941: x_return_status := FND_API.G_RET_STS_ERROR;
7942:
7943: END IF;
7944: CLOSE c_chk_template;
7945:
7952:
7953: IF (l_dynamic_qual_count = 0) THEN
7954: fnd_message.set_name ('JTF', 'JTF_TERR_NO_DYNAMIC_QUALIFIERS');
7955: fnd_msg_pub.add;
7956: x_return_status := FND_API.G_RET_STS_ERROR;
7957:
7958: END IF;
7959: CLOSE c_chk_qual_mode;
7960:
7973:
7974: EXCEPTION
7975: WHEN OTHERS THEN
7976: fnd_message.set_name('JTF','JTF_TERR_TEMPLATE_LOCKED');
7977: x_return_status := FND_API.G_RET_STS_ERROR;
7978: END; /* block for validation (4) */
7979:
7980: --dbms_output('Validate_Template_Record: x_return_status = '|| x_return_status);
7981:
7978: END; /* block for validation (4) */
7979:
7980: --dbms_output('Validate_Template_Record: x_return_status = '|| x_return_status);
7981:
7982: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7983: RAISE FND_API.G_EXC_ERROR;
7984: END IF;
7985:
7986: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
7979:
7980: --dbms_output('Validate_Template_Record: x_return_status = '|| x_return_status);
7981:
7982: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7983: RAISE FND_API.G_EXC_ERROR;
7984: END IF;
7985:
7986: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
7987: p_data => x_msg_data);
7986: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
7987: p_data => x_msg_data);
7988:
7989: EXCEPTION
7990: WHEN FND_API.G_EXC_ERROR THEN
7991: --dbms_output('Validate_Template_Record: FND_API.G_EXC_ERROR');
7992: x_return_status := FND_API.G_RET_STS_ERROR ;
7993: FND_MSG_PUB.Count_And_Get
7994: ( P_count => x_msg_count,
7987: p_data => x_msg_data);
7988:
7989: EXCEPTION
7990: WHEN FND_API.G_EXC_ERROR THEN
7991: --dbms_output('Validate_Template_Record: FND_API.G_EXC_ERROR');
7992: x_return_status := FND_API.G_RET_STS_ERROR ;
7993: FND_MSG_PUB.Count_And_Get
7994: ( P_count => x_msg_count,
7995: P_data => x_msg_data
7988:
7989: EXCEPTION
7990: WHEN FND_API.G_EXC_ERROR THEN
7991: --dbms_output('Validate_Template_Record: FND_API.G_EXC_ERROR');
7992: x_return_status := FND_API.G_RET_STS_ERROR ;
7993: FND_MSG_PUB.Count_And_Get
7994: ( P_count => x_msg_count,
7995: P_data => x_msg_data
7996: );
7994: ( P_count => x_msg_count,
7995: P_data => x_msg_data
7996: );
7997:
7998: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7999: --dbms_output('Validate_Template_Record: FND_API.G_EXC_UNEXPECTED_ERROR');
8000: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8001: FND_MSG_PUB.Count_And_Get
8002: ( P_count => x_msg_count,
7995: P_data => x_msg_data
7996: );
7997:
7998: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7999: --dbms_output('Validate_Template_Record: FND_API.G_EXC_UNEXPECTED_ERROR');
8000: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8001: FND_MSG_PUB.Count_And_Get
8002: ( P_count => x_msg_count,
8003: P_data => x_msg_data
7996: );
7997:
7998: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7999: --dbms_output('Validate_Template_Record: FND_API.G_EXC_UNEXPECTED_ERROR');
8000: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8001: FND_MSG_PUB.Count_And_Get
8002: ( P_count => x_msg_count,
8003: P_data => x_msg_data
8004: );
8004: );
8005:
8006: WHEN OTHERS THEN
8007: --dbms_output('Validate_Template_Record: OTHERS - ' || SQLERRM);
8008: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8009: FND_MSG_PUB.Count_And_Get
8010: ( P_count => x_msg_count,
8011: P_data => x_msg_data
8012: );
8260: BEGIN
8261:
8262: --dbms_output('create_new_terr START');
8263:
8264: l_new_terr_rec.TERR_ID := FND_API.G_MISS_NUM;
8265: l_new_terr_rec.LAST_UPDATE_DATE := SYSDATE;
8266: l_new_terr_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
8267: l_new_terr_rec.CREATION_DATE := SYSDATE;
8268: l_new_terr_rec.CREATED_BY := FND_GLOBAL.USER_ID;
8273: l_new_terr_rec.NAME := p_template_terr_rec.name ||
8274: ' - ' || ' #';
8275:
8276: l_new_terr_rec.ENABLED_FLAG := 'Y';
8277: l_new_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
8278: l_new_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
8279: l_new_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
8280: l_new_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
8281: l_new_terr_rec.START_DATE_ACTIVE := p_template_terr_rec.start_date_active;
8274: ' - ' || ' #';
8275:
8276: l_new_terr_rec.ENABLED_FLAG := 'Y';
8277: l_new_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
8278: l_new_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
8279: l_new_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
8280: l_new_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
8281: l_new_terr_rec.START_DATE_ACTIVE := p_template_terr_rec.start_date_active;
8282: l_new_terr_rec.RANK := p_template_terr_rec.rank;
8275:
8276: l_new_terr_rec.ENABLED_FLAG := 'Y';
8277: l_new_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
8278: l_new_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
8279: l_new_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
8280: l_new_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
8281: l_new_terr_rec.START_DATE_ACTIVE := p_template_terr_rec.start_date_active;
8282: l_new_terr_rec.RANK := p_template_terr_rec.rank;
8283: l_new_terr_rec.END_DATE_ACTIVE := p_template_terr_rec.end_date_active;
8276: l_new_terr_rec.ENABLED_FLAG := 'Y';
8277: l_new_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
8278: l_new_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
8279: l_new_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
8280: l_new_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
8281: l_new_terr_rec.START_DATE_ACTIVE := p_template_terr_rec.start_date_active;
8282: l_new_terr_rec.RANK := p_template_terr_rec.rank;
8283: l_new_terr_rec.END_DATE_ACTIVE := p_template_terr_rec.end_date_active;
8284: l_new_terr_rec.DESCRIPTION := p_template_terr_rec.description;
8314:
8315: /* create the territory record */
8316: create_territory_record (
8317: P_Api_Version_Number => 1.0,
8318: P_Init_Msg_List => FND_API.G_TRUE,
8319: P_Commit => FND_API.G_FALSE,
8320: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8321: P_Terr_All_Rec => l_new_terr_rec,
8322: X_Return_Status => l_return_status,
8315: /* create the territory record */
8316: create_territory_record (
8317: P_Api_Version_Number => 1.0,
8318: P_Init_Msg_List => FND_API.G_TRUE,
8319: P_Commit => FND_API.G_FALSE,
8320: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8321: P_Terr_All_Rec => l_new_terr_rec,
8322: X_Return_Status => l_return_status,
8323: X_Msg_Count => l_msg_count,
8316: create_territory_record (
8317: P_Api_Version_Number => 1.0,
8318: P_Init_Msg_List => FND_API.G_TRUE,
8319: P_Commit => FND_API.G_FALSE,
8320: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8321: P_Terr_All_Rec => l_new_terr_rec,
8322: X_Return_Status => l_return_status,
8323: X_Msg_Count => l_msg_count,
8324: X_Msg_Data => l_msg_data,
8331: l_new_terr_rec.NAME := l_new_terr_rec.name || TO_CHAR(l_new_terr_id);
8332:
8333: update_territory_record (
8334: P_Api_Version_Number => 1.0,
8335: P_Init_Msg_List => FND_API.G_TRUE,
8336: P_Commit => FND_API.G_FALSE,
8337: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8338: P_Terr_All_Rec => l_new_terr_rec,
8339: X_Return_Status => l_return_status,
8332:
8333: update_territory_record (
8334: P_Api_Version_Number => 1.0,
8335: P_Init_Msg_List => FND_API.G_TRUE,
8336: P_Commit => FND_API.G_FALSE,
8337: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8338: P_Terr_All_Rec => l_new_terr_rec,
8339: X_Return_Status => l_return_status,
8340: X_Msg_Count => l_msg_count,
8333: update_territory_record (
8334: P_Api_Version_Number => 1.0,
8335: P_Init_Msg_List => FND_API.G_TRUE,
8336: P_Commit => FND_API.G_FALSE,
8337: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8338: P_Terr_All_Rec => l_new_terr_rec,
8339: X_Return_Status => l_return_status,
8340: X_Msg_Count => l_msg_count,
8341: X_Msg_Data => l_msg_data,
8369: BEGIN
8370:
8371: --dbms_output('create_copied_terr START');
8372:
8373: l_new_terr_rec.TERR_ID := FND_API.G_MISS_NUM;
8374: l_new_terr_rec.LAST_UPDATE_DATE := SYSDATE;
8375: l_new_terr_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
8376: l_new_terr_rec.CREATION_DATE := SYSDATE;
8377: l_new_terr_rec.CREATED_BY := FND_GLOBAL.USER_ID;
8408: END IF;
8409: -- 04/06/01 ARPATEL - END
8410:
8411: l_new_terr_rec.ENABLED_FLAG := 'Y';
8412: l_new_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
8413: l_new_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
8414: l_new_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
8415: l_new_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
8416:
8409: -- 04/06/01 ARPATEL - END
8410:
8411: l_new_terr_rec.ENABLED_FLAG := 'Y';
8412: l_new_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
8413: l_new_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
8414: l_new_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
8415: l_new_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
8416:
8417: l_new_terr_rec.ORG_ID := p_copied_terr_rec.org_id;
8410:
8411: l_new_terr_rec.ENABLED_FLAG := 'Y';
8412: l_new_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
8413: l_new_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
8414: l_new_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
8415: l_new_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
8416:
8417: l_new_terr_rec.ORG_ID := p_copied_terr_rec.org_id;
8418: l_new_terr_rec.UPDATE_FLAG := 'Y'; --- p_copied_terr_rec.update_flag;
8411: l_new_terr_rec.ENABLED_FLAG := 'Y';
8412: l_new_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
8413: l_new_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
8414: l_new_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
8415: l_new_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
8416:
8417: l_new_terr_rec.ORG_ID := p_copied_terr_rec.org_id;
8418: l_new_terr_rec.UPDATE_FLAG := 'Y'; --- p_copied_terr_rec.update_flag;
8419: l_new_terr_rec.AUTO_ASSIGN_RESOURCES_FLAG := p_copied_terr_rec.auto_assign_resources_flag;
8420: l_new_terr_rec.PLANNED_FLAG := p_copied_terr_rec.planned_flag;
8421: l_new_terr_rec.TERRITORY_TYPE_ID := p_copied_terr_rec.territory_type_id;
8422: l_new_terr_rec.PARENT_TERRITORY_ID := p_copied_terr_rec.parent_territory_id;
8423: l_new_terr_rec.TEMPLATE_FLAG := p_copied_terr_rec.template_flag;
8424: l_new_terr_rec.TEMPLATE_TERRITORY_ID := FND_API.G_MISS_NUM;
8425: l_new_terr_rec.ESCALATION_TERRITORY_FLAG := p_copied_terr_rec.escalation_territory_flag;
8426: l_new_terr_rec.ESCALATION_TERRITORY_ID := p_copied_terr_rec.escalation_territory_id;
8427: l_new_terr_rec.OVERLAP_ALLOWED_FLAG := p_copied_terr_rec.overlap_allowed_flag;
8428: l_new_terr_rec.ATTRIBUTE_CATEGORY := p_copied_terr_rec.attribute_category;
8446:
8447: /* create the territory record */
8448: create_territory_record (
8449: P_Api_Version_Number => 1.0,
8450: P_Init_Msg_List => FND_API.G_TRUE,
8451: P_Commit => FND_API.G_FALSE,
8452: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8453: P_Terr_All_Rec => l_new_terr_rec,
8454: X_Return_Status => l_return_status,
8447: /* create the territory record */
8448: create_territory_record (
8449: P_Api_Version_Number => 1.0,
8450: P_Init_Msg_List => FND_API.G_TRUE,
8451: P_Commit => FND_API.G_FALSE,
8452: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8453: P_Terr_All_Rec => l_new_terr_rec,
8454: X_Return_Status => l_return_status,
8455: X_Msg_Count => l_msg_count,
8448: create_territory_record (
8449: P_Api_Version_Number => 1.0,
8450: P_Init_Msg_List => FND_API.G_TRUE,
8451: P_Commit => FND_API.G_FALSE,
8452: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8453: P_Terr_All_Rec => l_new_terr_rec,
8454: X_Return_Status => l_return_status,
8455: X_Msg_Count => l_msg_count,
8456: X_Msg_Data => l_msg_data,
8489:
8490: FOR i IN 0..p_terr_usgs_tbl.COUNT-1 LOOP
8491:
8492: /* Instantiate record items from FORM items */
8493: l_terr_usgs_rec.TERR_USG_ID := FND_API.G_MISS_NUM;
8494: l_terr_usgs_rec.LAST_UPDATE_DATE := SYSDATE;
8495: l_terr_usgs_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
8496: l_terr_usgs_rec.CREATION_DATE := SYSDATE;
8497: l_terr_usgs_rec.CREATED_BY := FND_GLOBAL.USER_ID;
8507:
8508: /* 11i - territory can only have one usage */
8509: create_territory_usages (
8510: P_Api_Version_Number => l_api_version_number,
8511: P_Init_Msg_List => FND_API.G_TRUE,
8512: P_Commit => FND_API.G_FALSE,
8513: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8514: P_Terr_id => p_new_terr_id,
8515: P_Terr_Usgs_Tbl => l_terr_usgs_tbl,
8508: /* 11i - territory can only have one usage */
8509: create_territory_usages (
8510: P_Api_Version_Number => l_api_version_number,
8511: P_Init_Msg_List => FND_API.G_TRUE,
8512: P_Commit => FND_API.G_FALSE,
8513: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8514: P_Terr_id => p_new_terr_id,
8515: P_Terr_Usgs_Tbl => l_terr_usgs_tbl,
8516: X_Return_Status => l_return_status,
8509: create_territory_usages (
8510: P_Api_Version_Number => l_api_version_number,
8511: P_Init_Msg_List => FND_API.G_TRUE,
8512: P_Commit => FND_API.G_FALSE,
8513: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8514: P_Terr_id => p_new_terr_id,
8515: P_Terr_Usgs_Tbl => l_terr_usgs_tbl,
8516: X_Return_Status => l_return_status,
8517: X_Msg_Count => l_msg_count,
8546:
8547: FOR i IN 0..p_terr_qtype_usgs_tbl.COUNT-1 LOOP
8548:
8549: /* Instantiate record items from appropriate items */
8550: l_terr_qtype_usgs_rec.TERR_QUAL_TYPE_USG_ID := FND_API.G_MISS_NUM;
8551: l_terr_qtype_usgs_rec.TERR_ID := p_new_terr_id;
8552: l_terr_qtype_usgs_rec.QUAL_TYPE_USG_ID := p_terr_qtype_usgs_tbl(i).qual_type_usg_id;
8553: l_terr_qtype_usgs_rec.LAST_UPDATE_DATE := SYSDATE;
8554: l_terr_qtype_usgs_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
8559:
8560:
8561: create_terr_qualtype_usage(
8562: P_Api_Version_Number => l_api_version_number,
8563: P_Init_Msg_List => FND_API.G_TRUE,
8564: P_Commit => FND_API.G_FALSE,
8565: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8566: P_Terr_Id => p_new_terr_id,
8567: P_Terr_QualTypeUsgs_Rec => l_terr_qtype_usgs_rec,
8560:
8561: create_terr_qualtype_usage(
8562: P_Api_Version_Number => l_api_version_number,
8563: P_Init_Msg_List => FND_API.G_TRUE,
8564: P_Commit => FND_API.G_FALSE,
8565: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8566: P_Terr_Id => p_new_terr_id,
8567: P_Terr_QualTypeUsgs_Rec => l_terr_qtype_usgs_rec,
8568: X_Return_Status => l_return_status,
8561: create_terr_qualtype_usage(
8562: P_Api_Version_Number => l_api_version_number,
8563: P_Init_Msg_List => FND_API.G_TRUE,
8564: P_Commit => FND_API.G_FALSE,
8565: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8566: P_Terr_Id => p_new_terr_id,
8567: P_Terr_QualTypeUsgs_Rec => l_terr_qtype_usgs_rec,
8568: X_Return_Status => l_return_status,
8569: X_Msg_Count => l_msg_count,
8611: --dbms_output('create_new_terr_qual_rec START');
8612:
8613: /* Instantiate record items from appropriate template items */
8614: l_new_terr_qual_rec.Rowid := NULL;
8615: l_new_terr_qual_rec.TERR_QUAL_ID := FND_API.G_MISS_NUM;
8616: l_new_terr_qual_rec.LAST_UPDATE_DATE := SYSDATE;
8617: l_new_terr_qual_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
8618: l_new_terr_qual_rec.CREATION_DATE := SYSDATE;
8619: l_new_terr_qual_rec.CREATED_BY := FND_GLOBAL.USER_ID;
8643: /* END OF 1520656 BUG FIX - JDOCHERT 12/07 */
8644:
8645: create_terr_qualifier(
8646: P_Api_Version_Number => l_api_version_number,
8647: P_Init_Msg_List => FND_API.G_TRUE,
8648: P_Commit => FND_API.G_FALSE,
8649: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8650: P_Terr_Id => l_new_terr_qual_rec.terr_id,
8651: P_Terr_Qual_rec => l_new_terr_qual_rec,
8644:
8645: create_terr_qualifier(
8646: P_Api_Version_Number => l_api_version_number,
8647: P_Init_Msg_List => FND_API.G_TRUE,
8648: P_Commit => FND_API.G_FALSE,
8649: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8650: P_Terr_Id => l_new_terr_qual_rec.terr_id,
8651: P_Terr_Qual_rec => l_new_terr_qual_rec,
8652: X_Return_Status => l_return_status,
8645: create_terr_qualifier(
8646: P_Api_Version_Number => l_api_version_number,
8647: P_Init_Msg_List => FND_API.G_TRUE,
8648: P_Commit => FND_API.G_FALSE,
8649: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8650: P_Terr_Id => l_new_terr_qual_rec.terr_id,
8651: P_Terr_Qual_rec => l_new_terr_qual_rec,
8652: X_Return_Status => l_return_status,
8653: X_Msg_Count => l_msg_count,
8744:
8745: /* insert value */
8746: create_terr_value(
8747: P_Api_Version_Number => 1.0,
8748: P_Init_Msg_List => FND_API.G_TRUE,
8749: P_Commit => FND_API.G_FALSE,
8750: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8751: P_Terr_Id => p_new_terr_id,
8752: P_Terr_Qual_id => l_new_terr_value_rec.terr_qual_id,
8745: /* insert value */
8746: create_terr_value(
8747: P_Api_Version_Number => 1.0,
8748: P_Init_Msg_List => FND_API.G_TRUE,
8749: P_Commit => FND_API.G_FALSE,
8750: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8751: P_Terr_Id => p_new_terr_id,
8752: P_Terr_Qual_id => l_new_terr_value_rec.terr_qual_id,
8753: P_Terr_Value_Rec => l_new_terr_value_rec,
8746: create_terr_value(
8747: P_Api_Version_Number => 1.0,
8748: P_Init_Msg_List => FND_API.G_TRUE,
8749: P_Commit => FND_API.G_FALSE,
8750: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8751: P_Terr_Id => p_new_terr_id,
8752: P_Terr_Qual_id => l_new_terr_value_rec.terr_qual_id,
8753: P_Terr_Value_Rec => l_new_terr_value_rec,
8754: X_Return_Status => l_return_status,
9337:
9338: /*--------------------------------------------------------------------------------------*/
9339: PROCEDURE Gen_Template_Territories (
9340: p_Api_Version_Number IN NUMBER,
9341: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
9342: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
9343: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9344: p_Template_Terr_Id IN NUMBER,
9345: x_Return_Status OUT NOCOPY VARCHAR2,
9338: /*--------------------------------------------------------------------------------------*/
9339: PROCEDURE Gen_Template_Territories (
9340: p_Api_Version_Number IN NUMBER,
9341: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
9342: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
9343: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9344: p_Template_Terr_Id IN NUMBER,
9345: x_Return_Status OUT NOCOPY VARCHAR2,
9346: x_Msg_Count OUT NOCOPY NUMBER,
9339: PROCEDURE Gen_Template_Territories (
9340: p_Api_Version_Number IN NUMBER,
9341: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
9342: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
9343: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9344: p_Template_Terr_Id IN NUMBER,
9345: x_Return_Status OUT NOCOPY VARCHAR2,
9346: x_Msg_Count OUT NOCOPY NUMBER,
9347: x_Msg_Data OUT NOCOPY VARCHAR2,
9380: -- Standard Start of API savepoint
9381: SAVEPOINT GEN_TEMPLATE_TERR_PVT;
9382:
9383: -- Standard call to check for call compatibility.
9384: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
9385: p_api_version_number,
9386: l_api_name,
9387: G_PKG_NAME)
9388: THEN
9385: p_api_version_number,
9386: l_api_name,
9387: G_PKG_NAME)
9388: THEN
9389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9390: END IF;
9391:
9392: -- Initialize message list if p_init_msg_list is set to TRUE.
9393: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9390: END IF;
9391:
9392: -- Initialize message list if p_init_msg_list is set to TRUE.
9393: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9394: FND_MSG_PUB.initialize;
9395: END IF;
9396:
9397: -- Debug Message
9402: FND_MSG_PUB.Add;
9403: END IF;
9404:
9405: -- Initialize API return status to success
9406: x_return_status := FND_API.G_RET_STS_SUCCESS;
9407:
9408:
9409: /* ===================== */
9410: /* API BODY START */
9410: /* API BODY START */
9411: /* ======================*/
9412:
9413: --arpatel 07/13 bug#1872642
9414: --IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
9415:
9416: /* Debug message */
9417: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
9418: THEN
9421: FND_MSG_PUB.Add;
9422: END IF;
9423:
9424: /* Invoke validation procedures */
9425: Validate_Template_Record( p_init_msg_list => FND_API.G_FALSE
9426: , p_Template_Terr_Id => p_template_terr_id
9427: , x_Return_Status => x_return_status
9428: , x_msg_count => x_msg_count
9429: , x_msg_data => x_msg_data );
9427: , x_Return_Status => x_return_status
9428: , x_msg_count => x_msg_count
9429: , x_msg_data => x_msg_data );
9430:
9431: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9432: RAISE FND_API.G_EXC_ERROR;
9433: END IF;
9434:
9435: --END IF;
9428: , x_msg_count => x_msg_count
9429: , x_msg_data => x_msg_data );
9430:
9431: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9432: RAISE FND_API.G_EXC_ERROR;
9433: END IF;
9434:
9435: --END IF;
9436:
9550: */
9551: x_num_gen_terr := l_terr_count;
9552:
9553: IF (l_terr_count <> l_num_gen_terr) THEN
9554: x_return_status := FND_API.G_RET_STS_ERROR ;
9555: END IF;
9556:
9557: /* ===================== */
9558: /* API BODY END */
9565: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
9566: FND_MSG_PUB.Add;
9567: END IF;
9568:
9569: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9570: RAISE FND_API.G_EXC_ERROR;
9571: END IF;
9572:
9573: FND_MSG_PUB.Count_And_Get
9566: FND_MSG_PUB.Add;
9567: END IF;
9568:
9569: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9570: RAISE FND_API.G_EXC_ERROR;
9571: END IF;
9572:
9573: FND_MSG_PUB.Count_And_Get
9574: ( p_count => x_msg_count,
9575: p_data => x_msg_data
9576: );
9577:
9578: -- Standard check for p_commit
9579: IF FND_API.to_Boolean( p_commit )
9580: THEN
9581: COMMIT WORK;
9582: END IF;
9583: EXCEPTION
9581: COMMIT WORK;
9582: END IF;
9583: EXCEPTION
9584:
9585: WHEN FND_API.G_EXC_ERROR THEN
9586: --dbms_output('Generate_Template_Territories PVT: FND_API.G_EXC_ERROR');
9587: ROLLBACK TO GEN_TEMPLATE_TERR_PVT;
9588: x_return_status := FND_API.G_RET_STS_ERROR ;
9589: FND_MSG_PUB.Count_And_Get
9582: END IF;
9583: EXCEPTION
9584:
9585: WHEN FND_API.G_EXC_ERROR THEN
9586: --dbms_output('Generate_Template_Territories PVT: FND_API.G_EXC_ERROR');
9587: ROLLBACK TO GEN_TEMPLATE_TERR_PVT;
9588: x_return_status := FND_API.G_RET_STS_ERROR ;
9589: FND_MSG_PUB.Count_And_Get
9590: ( p_count => x_msg_count,
9584:
9585: WHEN FND_API.G_EXC_ERROR THEN
9586: --dbms_output('Generate_Template_Territories PVT: FND_API.G_EXC_ERROR');
9587: ROLLBACK TO GEN_TEMPLATE_TERR_PVT;
9588: x_return_status := FND_API.G_RET_STS_ERROR ;
9589: FND_MSG_PUB.Count_And_Get
9590: ( p_count => x_msg_count,
9591: p_data => x_msg_data
9592: );
9590: ( p_count => x_msg_count,
9591: p_data => x_msg_data
9592: );
9593:
9594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9595: --dbms_output('Generate_Template_Territories PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
9596: ROLLBACK TO GEN_TEMPLATE_TERR_PVT;
9597: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9598: FND_MSG_PUB.Count_And_Get
9591: p_data => x_msg_data
9592: );
9593:
9594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9595: --dbms_output('Generate_Template_Territories PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
9596: ROLLBACK TO GEN_TEMPLATE_TERR_PVT;
9597: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9598: FND_MSG_PUB.Count_And_Get
9599: ( p_count => x_msg_count,
9593:
9594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9595: --dbms_output('Generate_Template_Territories PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
9596: ROLLBACK TO GEN_TEMPLATE_TERR_PVT;
9597: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9598: FND_MSG_PUB.Count_And_Get
9599: ( p_count => x_msg_count,
9600: p_data => x_msg_data
9601: );
9602:
9603: WHEN OTHERS THEN
9604: --dbms_output('Generate_Template_Territories PVT: OTHERS - ' || SQLERRM);
9605: ROLLBACK TO GEN_TEMPLATE_TERR_PVT;
9606: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9607: FND_MSG_PUB.Count_And_Get
9608: ( p_count => x_msg_count,
9609: p_data => x_msg_data
9610: );
9616: /*--------------------------------------------------------------------------------------*/
9617: -- eihsu100
9618: PROCEDURE Copy_Territory (
9619: p_Api_Version_Number IN NUMBER,
9620: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
9621: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
9622: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9623: p_copy_source_terr_Id IN NUMBER,
9624: p_new_terr_rec IN Terr_All_Rec_Type,
9617: -- eihsu100
9618: PROCEDURE Copy_Territory (
9619: p_Api_Version_Number IN NUMBER,
9620: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
9621: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
9622: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9623: p_copy_source_terr_Id IN NUMBER,
9624: p_new_terr_rec IN Terr_All_Rec_Type,
9625: p_copy_rsc_flag IN VARCHAR2 := 'N',
9618: PROCEDURE Copy_Territory (
9619: p_Api_Version_Number IN NUMBER,
9620: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
9621: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
9622: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9623: p_copy_source_terr_Id IN NUMBER,
9624: p_new_terr_rec IN Terr_All_Rec_Type,
9625: p_copy_rsc_flag IN VARCHAR2 := 'N',
9626: p_copy_hierarchy_flag IN VARCHAR2 := 'N',
9668: -- Standard Start of API savepoint
9669: SAVEPOINT COPY_TERR_PVT;
9670:
9671: -- Standard call to check for call compatibility.
9672: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
9673: p_api_version_number,
9674: l_api_name,
9675: G_PKG_NAME)
9676: THEN
9673: p_api_version_number,
9674: l_api_name,
9675: G_PKG_NAME)
9676: THEN
9677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9678: END IF;
9679:
9680: -- Initialize message list if p_init_msg_list is set to TRUE.
9681: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9678: END IF;
9679:
9680: -- Initialize message list if p_init_msg_list is set to TRUE.
9681: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9682: FND_MSG_PUB.initialize;
9683: END IF;
9684:
9685: -- Debug Message
9690: FND_MSG_PUB.Add;
9691: END IF;
9692:
9693: -- Initialize API return status to success
9694: x_return_status := FND_API.G_RET_STS_SUCCESS;
9695:
9696:
9697: /* ===================== */
9698: /* API BODY START */
9729:
9730: JTF_TERRITORY_RESOURCE_PVT.copy_terr_resources( p_Api_Version_Number => p_Api_Version_Number,
9731: p_Init_Msg_List => p_Init_Msg_List,
9732: p_Commit => p_Commit,
9733: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9734: p_source_terr_id => p_copy_source_terr_id,
9735: p_dest_terr_id => l_new_terr_id,
9736: x_msg_count => x_msg_count,
9737: x_msg_data => x_msg_data,
9788: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
9789: FND_MSG_PUB.Add;
9790: END IF;
9791:
9792: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9793: RAISE FND_API.G_EXC_ERROR;
9794: END IF;
9795:
9796: FND_MSG_PUB.Count_And_Get
9789: FND_MSG_PUB.Add;
9790: END IF;
9791:
9792: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9793: RAISE FND_API.G_EXC_ERROR;
9794: END IF;
9795:
9796: FND_MSG_PUB.Count_And_Get
9797: ( p_count => x_msg_count,
9798: p_data => x_msg_data
9799: );
9800:
9801: -- Standard check for p_commit
9802: IF FND_API.to_Boolean( p_commit )
9803: THEN
9804: COMMIT WORK;
9805: END IF;
9806: EXCEPTION
9804: COMMIT WORK;
9805: END IF;
9806: EXCEPTION
9807:
9808: WHEN FND_API.G_EXC_ERROR THEN
9809: --dbms_output('Generate_Duplicate_Territory PVT: FND_API.G_EXC_ERROR');
9810: ROLLBACK TO COPY_TERR_PVT;
9811: x_return_status := FND_API.G_RET_STS_ERROR ;
9812: FND_MSG_PUB.Count_And_Get
9805: END IF;
9806: EXCEPTION
9807:
9808: WHEN FND_API.G_EXC_ERROR THEN
9809: --dbms_output('Generate_Duplicate_Territory PVT: FND_API.G_EXC_ERROR');
9810: ROLLBACK TO COPY_TERR_PVT;
9811: x_return_status := FND_API.G_RET_STS_ERROR ;
9812: FND_MSG_PUB.Count_And_Get
9813: ( p_count => x_msg_count,
9807:
9808: WHEN FND_API.G_EXC_ERROR THEN
9809: --dbms_output('Generate_Duplicate_Territory PVT: FND_API.G_EXC_ERROR');
9810: ROLLBACK TO COPY_TERR_PVT;
9811: x_return_status := FND_API.G_RET_STS_ERROR ;
9812: FND_MSG_PUB.Count_And_Get
9813: ( p_count => x_msg_count,
9814: p_data => x_msg_data
9815: );
9813: ( p_count => x_msg_count,
9814: p_data => x_msg_data
9815: );
9816:
9817: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9818: --dbms_output('Generate_Duplicate_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
9819: ROLLBACK TO COPY_TERR_PVT;
9820: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9821: FND_MSG_PUB.Count_And_Get
9814: p_data => x_msg_data
9815: );
9816:
9817: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9818: --dbms_output('Generate_Duplicate_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
9819: ROLLBACK TO COPY_TERR_PVT;
9820: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9821: FND_MSG_PUB.Count_And_Get
9822: ( p_count => x_msg_count,
9816:
9817: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9818: --dbms_output('Generate_Duplicate_Territory PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
9819: ROLLBACK TO COPY_TERR_PVT;
9820: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9821: FND_MSG_PUB.Count_And_Get
9822: ( p_count => x_msg_count,
9823: p_data => x_msg_data
9824: );
9825:
9826: WHEN OTHERS THEN
9827: --dbms_output('Generate_Duplicate_Territory PVT: OTHERS - ' || SQLERRM);
9828: ROLLBACK TO COPY_TERR_PVT;
9829: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9830: FND_MSG_PUB.Count_And_Get
9831: ( p_count => x_msg_count,
9832: p_data => x_msg_data
9833: );
9863: -- Character
9864: -- low value char
9865: IF ( l_display_type = 'CHAR' and
9866: l_qual_col1_datatype = 'VARCHAR2' and
9867: ( l_convert_to_id_flag IN ('N', FND_API.G_MISS_CHAR) or
9868: l_convert_to_id_flag is NULL ) )
9869: Then
9870: If p_terr_value_record.low_value_char is NOT NULL Then
9871: Select count(*)
9988: End If;
9989:
9990: ElsIf ( l_qual_col1_datatype = 'NUMBER' AND
9991: l_display_type = 'CURRENCY' AND
9992: ( l_convert_to_id_flag IN ('N', FND_API.G_MISS_CHAR) OR
9993: l_convert_to_id_flag is NULL ) )
9994: Then
9995:
9996: If p_terr_value_record.low_value_number is NOT NULL Then
10038: End If;
10039:
10040: ElsIf ( l_qual_col1_datatype = 'NUMBER' AND
10041: l_display_type = 'INTEREST_TYPE'AND
10042: ( l_convert_to_id_flag IN ('N', FND_API.G_MISS_CHAR) OR
10043: l_convert_to_id_flag is NULL ) )
10044: Then
10045: Select count(*)
10046: into dummy
10060: End If;
10061: End If;
10062:
10063: If l_found > 0 Then
10064: RETURN FND_API.G_TRUE;
10065: Else
10066: RETURN FND_API.G_FALSE;
10067: End If;
10068: EXCEPTION
10062:
10063: If l_found > 0 Then
10064: RETURN FND_API.G_TRUE;
10065: Else
10066: RETURN FND_API.G_FALSE;
10067: End If;
10068: EXCEPTION
10069: WHEN NO_DATA_FOUND Then
10070: RETURN FND_API.G_FALSE;
10066: RETURN FND_API.G_FALSE;
10067: End If;
10068: EXCEPTION
10069: WHEN NO_DATA_FOUND Then
10070: RETURN FND_API.G_FALSE;
10071:
10072: WHEN OTHERS THEN
10073: RETURN FND_API.G_FALSE;
10074:
10069: WHEN NO_DATA_FOUND Then
10070: RETURN FND_API.G_FALSE;
10071:
10072: WHEN OTHERS THEN
10073: RETURN FND_API.G_FALSE;
10074:
10075: END Overlap_Exists;
10076:
10077: -- jdochert 09/09
10078: -- check for Unique Key constraint violation on JTF_TERR_USGS table
10079: PROCEDURE validate_terr_usgs_UK(
10080: p_Terr_Id IN NUMBER,
10081: p_Source_Id IN NUMBER,
10082: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
10083: x_Return_Status OUT NOCOPY VARCHAR2,
10084: x_msg_count OUT NOCOPY NUMBER,
10085: x_msg_data OUT NOCOPY VARCHAR2 )
10086: AS
10098: BEGIN
10099:
10100: --dbms_output.put_line('Validate TERR USGS Unique_Key: Entering API ' || p_terr_id || ' ' || p_source_id);
10101: -- Initialize the status to success
10102: x_return_status := FND_API.G_RET_STS_SUCCESS;
10103:
10104: /* check that Unique Key constraint not violated */
10105: IF ( p_terr_id IS NOT NULL AND p_terr_id <> FND_API.G_MISS_NUM AND
10106: p_source_id IS NOT NULL AND p_source_id <> FND_API.G_MISS_NUM ) THEN
10101: -- Initialize the status to success
10102: x_return_status := FND_API.G_RET_STS_SUCCESS;
10103:
10104: /* check that Unique Key constraint not violated */
10105: IF ( p_terr_id IS NOT NULL AND p_terr_id <> FND_API.G_MISS_NUM AND
10106: p_source_id IS NOT NULL AND p_source_id <> FND_API.G_MISS_NUM ) THEN
10107:
10108: /* check if rec already exists */
10109: OPEN csr_chk_uk_violation (p_terr_id, p_source_id);
10102: x_return_status := FND_API.G_RET_STS_SUCCESS;
10103:
10104: /* check that Unique Key constraint not violated */
10105: IF ( p_terr_id IS NOT NULL AND p_terr_id <> FND_API.G_MISS_NUM AND
10106: p_source_id IS NOT NULL AND p_source_id <> FND_API.G_MISS_NUM ) THEN
10107:
10108: /* check if rec already exists */
10109: OPEN csr_chk_uk_violation (p_terr_id, p_source_id);
10110: FETCH csr_chk_uk_violation INTO l_return_csr;
10112: IF csr_chk_uk_violation%FOUND THEN
10113:
10114: --dbms_output.put_line('Validate_Unique_Key: jtf_terr_usgs: VIOLATION');
10115:
10116: x_return_status := FND_API.G_RET_STS_ERROR;
10117:
10118: /* Debug message */
10119: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
10120: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_USGS_UK_CON');
10132: EXCEPTION
10133:
10134: WHEN OTHERS THEN
10135: --dbms_output('Validate_Foreign_Key: Others exception' || SQLERRM);
10136: X_return_status := FND_API.G_RET_STS_ERROR;
10137: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
10138: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Unique_Key' );
10139: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
10140: FND_MSG_PUB.ADD;
10149: -- check for Unique Key constraint violation on JTF_TERR_QTYPE_USGS table
10150: PROCEDURE validate_terr_qtype_usgs_UK(
10151: p_Terr_Id IN NUMBER,
10152: p_Qual_Type_Usg_Id IN NUMBER,
10153: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
10154: x_Return_Status OUT NOCOPY VARCHAR2,
10155: x_msg_count OUT NOCOPY NUMBER,
10156: x_msg_data OUT NOCOPY VARCHAR2 )
10157: AS
10169: BEGIN
10170:
10171: --dbms_output.put_line('Validate QUAL_TYPE_USGS Unique_Key: Entering API');
10172: -- Initialize the status to success
10173: x_return_status := FND_API.G_RET_STS_SUCCESS;
10174:
10175: /* check that Unique Key constraint not violated */
10176: IF ( p_terr_id IS NOT NULL AND p_terr_id <> FND_API.G_MISS_NUM AND
10177: p_qual_type_usg_id IS NOT NULL AND p_qual_type_usg_id <> FND_API.G_MISS_NUM ) THEN
10172: -- Initialize the status to success
10173: x_return_status := FND_API.G_RET_STS_SUCCESS;
10174:
10175: /* check that Unique Key constraint not violated */
10176: IF ( p_terr_id IS NOT NULL AND p_terr_id <> FND_API.G_MISS_NUM AND
10177: p_qual_type_usg_id IS NOT NULL AND p_qual_type_usg_id <> FND_API.G_MISS_NUM ) THEN
10178:
10179: /* check if rec already exists */
10180: OPEN csr_chk_uk_violation ( p_terr_id
10173: x_return_status := FND_API.G_RET_STS_SUCCESS;
10174:
10175: /* check that Unique Key constraint not violated */
10176: IF ( p_terr_id IS NOT NULL AND p_terr_id <> FND_API.G_MISS_NUM AND
10177: p_qual_type_usg_id IS NOT NULL AND p_qual_type_usg_id <> FND_API.G_MISS_NUM ) THEN
10178:
10179: /* check if rec already exists */
10180: OPEN csr_chk_uk_violation ( p_terr_id
10181: , p_qual_type_usg_id);
10183:
10184: IF csr_chk_uk_violation%FOUND THEN
10185: --dbms_output.put_line('Validate QUAL_TYPE_USGS Unique_Key Violation');
10186:
10187: x_return_status := FND_API.G_RET_STS_ERROR;
10188:
10189: /* Debug message */
10190: --arpatel 09/18 - set message for form to pick up.
10191: --IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
10208: EXCEPTION
10209:
10210: WHEN OTHERS THEN
10211: --dbms_output('Validate_Foreign_Key: Others exception' || SQLERRM);
10212: X_return_status := FND_API.G_RET_STS_ERROR;
10213: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
10214: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Unique_Key' );
10215: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
10216: FND_MSG_PUB.ADD;
10225: -- jdochert 10/04
10226: -- check that Number of Winners is valid for this territory
10227: PROCEDURE validate_num_winners(
10228: p_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec,
10229: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
10230: x_Return_Status OUT NOCOPY VARCHAR2,
10231: x_msg_count OUT NOCOPY NUMBER,
10232: x_msg_data OUT NOCOPY VARCHAR2,
10233: x_reason OUT NOCOPY VARCHAR2 )
10248: BEGIN
10249:
10250: --dbms_output.put_line('Validate_Num_Winners: Entering API ' || p_terr_id || ' ' || p_source_id);
10251: -- Initialize the status to success
10252: x_return_status := FND_API.G_RET_STS_SUCCESS;
10253:
10254: If ( p_terr_all_rec.parent_territory_id <> 1 AND
10255: p_terr_all_rec.num_winners IS NOT NULL AND
10256: p_terr_all_rec.num_winners <> FND_API.G_MISS_NUM ) THEN
10252: x_return_status := FND_API.G_RET_STS_SUCCESS;
10253:
10254: If ( p_terr_all_rec.parent_territory_id <> 1 AND
10255: p_terr_all_rec.num_winners IS NOT NULL AND
10256: p_terr_all_rec.num_winners <> FND_API.G_MISS_NUM ) THEN
10257:
10258: IF ( p_terr_all_rec.template_flag = 'Y' OR
10259: p_terr_all_rec.escalation_territory_flag = 'Y' ) THEN
10260:
10265: x_reason := 'A';
10266:
10267: END IF;
10268:
10269: x_return_status := FND_API.G_RET_STS_ERROR;
10270:
10271: /* Debug message */
10272: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
10273: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_NUM_WINNERS_TOP_LEVEL');
10282: EXCEPTION
10283:
10284: WHEN OTHERS THEN
10285: --dbms_output('Validate_Num_Winners: Others exception' || SQLERRM);
10286: X_return_status := FND_API.G_RET_STS_ERROR;
10287: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
10288: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Num_Winners' );
10289: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
10290: FND_MSG_PUB.ADD;
10315: BEGIN
10316:
10317: --dbms_output.put_line('chk_num_copy_terr: Entering API ' || p_terr_id );
10318: -- Initialize the status to success
10319: x_return_status := FND_API.G_RET_STS_SUCCESS;
10320:
10321: OPEN csr_get_terr_num(p_node_terr_id);
10322: FETCH csr_get_terr_num INTO x_terr_num;
10323: CLOSE csr_get_terr_num;
10323: CLOSE csr_get_terr_num;
10324:
10325: IF (x_terr_num <= p_limit_num) THEN
10326:
10327: x_copy_status := FND_API.G_TRUE;
10328:
10329: ELSE
10330: x_copy_status := FND_API.G_FALSE;
10331:
10326:
10327: x_copy_status := FND_API.G_TRUE;
10328:
10329: ELSE
10330: x_copy_status := FND_API.G_FALSE;
10331:
10332: END IF;
10333:
10334:
10343:
10344: EXCEPTION
10345: WHEN OTHERS THEN
10346: --dbms_output('chk_num_copy_terr: Others exception' || SQLERRM);
10347: X_return_status := FND_API.G_RET_STS_ERROR;
10348: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
10349: FND_MESSAGE.Set_Token('PROC_NAME', 'chk_num_copy_terr' );
10350: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
10351: FND_MSG_PUB.ADD;
10360: errbuf OUT NOCOPY VARCHAR2,
10361: retcode OUT NOCOPY VARCHAR2,
10362: p_copy_source_terr_Id IN NUMBER,
10363: p_name IN VARCHAR2,
10364: p_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
10365: p_rank IN NUMBER := FND_API.G_MISS_NUM,
10366: p_start_date IN DATE,
10367: p_end_date IN DATE := FND_API.G_MISS_DATE,
10368: p_copy_rsc_flag IN VARCHAR2 := 'N',
10361: retcode OUT NOCOPY VARCHAR2,
10362: p_copy_source_terr_Id IN NUMBER,
10363: p_name IN VARCHAR2,
10364: p_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
10365: p_rank IN NUMBER := FND_API.G_MISS_NUM,
10366: p_start_date IN DATE,
10367: p_end_date IN DATE := FND_API.G_MISS_DATE,
10368: p_copy_rsc_flag IN VARCHAR2 := 'N',
10369: p_copy_hierarchy_flag IN VARCHAR2 := 'N',
10363: p_name IN VARCHAR2,
10364: p_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
10365: p_rank IN NUMBER := FND_API.G_MISS_NUM,
10366: p_start_date IN DATE,
10367: p_end_date IN DATE := FND_API.G_MISS_DATE,
10368: p_copy_rsc_flag IN VARCHAR2 := 'N',
10369: p_copy_hierarchy_flag IN VARCHAR2 := 'N',
10370: p_first_terr_node_flag IN VARCHAR2 := 'N',
10371: p_debug_flag IN VARCHAR2 := 'N',
10421: l_terr_rec.START_DATE_ACTIVE := p_start_date;
10422: l_terr_rec.END_DATE_ACTIVE := p_end_date;
10423:
10424: l_terr_rec.ENABLED_FLAG := 'Y';
10425: l_terr_rec.TERR_ID := FND_API.G_MISS_NUM;
10426: l_terr_rec.LAST_UPDATE_DATE := FND_API.G_MISS_DATE;
10427: l_terr_rec.LAST_UPDATED_BY := FND_API.G_MISS_NUM;
10428: l_terr_rec.CREATION_DATE := FND_API.G_MISS_DATE;
10429: l_terr_rec.CREATED_BY := FND_API.G_MISS_NUM;
10422: l_terr_rec.END_DATE_ACTIVE := p_end_date;
10423:
10424: l_terr_rec.ENABLED_FLAG := 'Y';
10425: l_terr_rec.TERR_ID := FND_API.G_MISS_NUM;
10426: l_terr_rec.LAST_UPDATE_DATE := FND_API.G_MISS_DATE;
10427: l_terr_rec.LAST_UPDATED_BY := FND_API.G_MISS_NUM;
10428: l_terr_rec.CREATION_DATE := FND_API.G_MISS_DATE;
10429: l_terr_rec.CREATED_BY := FND_API.G_MISS_NUM;
10430: l_terr_rec.LAST_UPDATE_LOGIN := FND_API.G_MISS_NUM;
10423:
10424: l_terr_rec.ENABLED_FLAG := 'Y';
10425: l_terr_rec.TERR_ID := FND_API.G_MISS_NUM;
10426: l_terr_rec.LAST_UPDATE_DATE := FND_API.G_MISS_DATE;
10427: l_terr_rec.LAST_UPDATED_BY := FND_API.G_MISS_NUM;
10428: l_terr_rec.CREATION_DATE := FND_API.G_MISS_DATE;
10429: l_terr_rec.CREATED_BY := FND_API.G_MISS_NUM;
10430: l_terr_rec.LAST_UPDATE_LOGIN := FND_API.G_MISS_NUM;
10431: l_terr_rec.APPLICATION_SHORT_NAME := FND_API.G_MISS_CHAR;
10424: l_terr_rec.ENABLED_FLAG := 'Y';
10425: l_terr_rec.TERR_ID := FND_API.G_MISS_NUM;
10426: l_terr_rec.LAST_UPDATE_DATE := FND_API.G_MISS_DATE;
10427: l_terr_rec.LAST_UPDATED_BY := FND_API.G_MISS_NUM;
10428: l_terr_rec.CREATION_DATE := FND_API.G_MISS_DATE;
10429: l_terr_rec.CREATED_BY := FND_API.G_MISS_NUM;
10430: l_terr_rec.LAST_UPDATE_LOGIN := FND_API.G_MISS_NUM;
10431: l_terr_rec.APPLICATION_SHORT_NAME := FND_API.G_MISS_CHAR;
10432: l_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
10425: l_terr_rec.TERR_ID := FND_API.G_MISS_NUM;
10426: l_terr_rec.LAST_UPDATE_DATE := FND_API.G_MISS_DATE;
10427: l_terr_rec.LAST_UPDATED_BY := FND_API.G_MISS_NUM;
10428: l_terr_rec.CREATION_DATE := FND_API.G_MISS_DATE;
10429: l_terr_rec.CREATED_BY := FND_API.G_MISS_NUM;
10430: l_terr_rec.LAST_UPDATE_LOGIN := FND_API.G_MISS_NUM;
10431: l_terr_rec.APPLICATION_SHORT_NAME := FND_API.G_MISS_CHAR;
10432: l_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
10433: l_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
10426: l_terr_rec.LAST_UPDATE_DATE := FND_API.G_MISS_DATE;
10427: l_terr_rec.LAST_UPDATED_BY := FND_API.G_MISS_NUM;
10428: l_terr_rec.CREATION_DATE := FND_API.G_MISS_DATE;
10429: l_terr_rec.CREATED_BY := FND_API.G_MISS_NUM;
10430: l_terr_rec.LAST_UPDATE_LOGIN := FND_API.G_MISS_NUM;
10431: l_terr_rec.APPLICATION_SHORT_NAME := FND_API.G_MISS_CHAR;
10432: l_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
10433: l_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
10434: l_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
10427: l_terr_rec.LAST_UPDATED_BY := FND_API.G_MISS_NUM;
10428: l_terr_rec.CREATION_DATE := FND_API.G_MISS_DATE;
10429: l_terr_rec.CREATED_BY := FND_API.G_MISS_NUM;
10430: l_terr_rec.LAST_UPDATE_LOGIN := FND_API.G_MISS_NUM;
10431: l_terr_rec.APPLICATION_SHORT_NAME := FND_API.G_MISS_CHAR;
10432: l_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
10433: l_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
10434: l_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
10435: l_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
10428: l_terr_rec.CREATION_DATE := FND_API.G_MISS_DATE;
10429: l_terr_rec.CREATED_BY := FND_API.G_MISS_NUM;
10430: l_terr_rec.LAST_UPDATE_LOGIN := FND_API.G_MISS_NUM;
10431: l_terr_rec.APPLICATION_SHORT_NAME := FND_API.G_MISS_CHAR;
10432: l_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
10433: l_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
10434: l_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
10435: l_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
10436: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10429: l_terr_rec.CREATED_BY := FND_API.G_MISS_NUM;
10430: l_terr_rec.LAST_UPDATE_LOGIN := FND_API.G_MISS_NUM;
10431: l_terr_rec.APPLICATION_SHORT_NAME := FND_API.G_MISS_CHAR;
10432: l_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
10433: l_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
10434: l_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
10435: l_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
10436: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10437: l_terr_rec.UPDATE_FLAG := FND_API.G_MISS_CHAR;
10430: l_terr_rec.LAST_UPDATE_LOGIN := FND_API.G_MISS_NUM;
10431: l_terr_rec.APPLICATION_SHORT_NAME := FND_API.G_MISS_CHAR;
10432: l_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
10433: l_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
10434: l_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
10435: l_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
10436: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10437: l_terr_rec.UPDATE_FLAG := FND_API.G_MISS_CHAR;
10438: l_terr_rec.AUTO_ASSIGN_RESOURCES_FLAG := FND_API.G_MISS_CHAR;
10431: l_terr_rec.APPLICATION_SHORT_NAME := FND_API.G_MISS_CHAR;
10432: l_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
10433: l_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
10434: l_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
10435: l_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
10436: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10437: l_terr_rec.UPDATE_FLAG := FND_API.G_MISS_CHAR;
10438: l_terr_rec.AUTO_ASSIGN_RESOURCES_FLAG := FND_API.G_MISS_CHAR;
10439: l_terr_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
10432: l_terr_rec.REQUEST_ID := FND_API.G_MISS_NUM;
10433: l_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
10434: l_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
10435: l_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
10436: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10437: l_terr_rec.UPDATE_FLAG := FND_API.G_MISS_CHAR;
10438: l_terr_rec.AUTO_ASSIGN_RESOURCES_FLAG := FND_API.G_MISS_CHAR;
10439: l_terr_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
10440: l_terr_rec.TERRITORY_TYPE_ID := FND_API.G_MISS_NUM;
10433: l_terr_rec.PROGRAM_APPLICATION_ID := FND_API.G_MISS_NUM;
10434: l_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
10435: l_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
10436: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10437: l_terr_rec.UPDATE_FLAG := FND_API.G_MISS_CHAR;
10438: l_terr_rec.AUTO_ASSIGN_RESOURCES_FLAG := FND_API.G_MISS_CHAR;
10439: l_terr_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
10440: l_terr_rec.TERRITORY_TYPE_ID := FND_API.G_MISS_NUM;
10441: l_terr_rec.PARENT_TERRITORY_ID := FND_API.G_MISS_NUM;
10434: l_terr_rec.PROGRAM_ID := FND_API.G_MISS_NUM;
10435: l_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
10436: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10437: l_terr_rec.UPDATE_FLAG := FND_API.G_MISS_CHAR;
10438: l_terr_rec.AUTO_ASSIGN_RESOURCES_FLAG := FND_API.G_MISS_CHAR;
10439: l_terr_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
10440: l_terr_rec.TERRITORY_TYPE_ID := FND_API.G_MISS_NUM;
10441: l_terr_rec.PARENT_TERRITORY_ID := FND_API.G_MISS_NUM;
10442: l_terr_rec.TEMPLATE_FLAG := FND_API.G_MISS_CHAR;
10435: l_terr_rec.PROGRAM_UPDATE_DATE := FND_API.G_MISS_DATE;
10436: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10437: l_terr_rec.UPDATE_FLAG := FND_API.G_MISS_CHAR;
10438: l_terr_rec.AUTO_ASSIGN_RESOURCES_FLAG := FND_API.G_MISS_CHAR;
10439: l_terr_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
10440: l_terr_rec.TERRITORY_TYPE_ID := FND_API.G_MISS_NUM;
10441: l_terr_rec.PARENT_TERRITORY_ID := FND_API.G_MISS_NUM;
10442: l_terr_rec.TEMPLATE_FLAG := FND_API.G_MISS_CHAR;
10443: l_terr_rec.TEMPLATE_TERRITORY_ID := FND_API.G_MISS_NUM;
10436: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10437: l_terr_rec.UPDATE_FLAG := FND_API.G_MISS_CHAR;
10438: l_terr_rec.AUTO_ASSIGN_RESOURCES_FLAG := FND_API.G_MISS_CHAR;
10439: l_terr_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
10440: l_terr_rec.TERRITORY_TYPE_ID := FND_API.G_MISS_NUM;
10441: l_terr_rec.PARENT_TERRITORY_ID := FND_API.G_MISS_NUM;
10442: l_terr_rec.TEMPLATE_FLAG := FND_API.G_MISS_CHAR;
10443: l_terr_rec.TEMPLATE_TERRITORY_ID := FND_API.G_MISS_NUM;
10444: l_terr_rec.ESCALATION_TERRITORY_FLAG := FND_API.G_MISS_CHAR;
10437: l_terr_rec.UPDATE_FLAG := FND_API.G_MISS_CHAR;
10438: l_terr_rec.AUTO_ASSIGN_RESOURCES_FLAG := FND_API.G_MISS_CHAR;
10439: l_terr_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
10440: l_terr_rec.TERRITORY_TYPE_ID := FND_API.G_MISS_NUM;
10441: l_terr_rec.PARENT_TERRITORY_ID := FND_API.G_MISS_NUM;
10442: l_terr_rec.TEMPLATE_FLAG := FND_API.G_MISS_CHAR;
10443: l_terr_rec.TEMPLATE_TERRITORY_ID := FND_API.G_MISS_NUM;
10444: l_terr_rec.ESCALATION_TERRITORY_FLAG := FND_API.G_MISS_CHAR;
10445: l_terr_rec.ESCALATION_TERRITORY_ID := FND_API.G_MISS_NUM;
10438: l_terr_rec.AUTO_ASSIGN_RESOURCES_FLAG := FND_API.G_MISS_CHAR;
10439: l_terr_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
10440: l_terr_rec.TERRITORY_TYPE_ID := FND_API.G_MISS_NUM;
10441: l_terr_rec.PARENT_TERRITORY_ID := FND_API.G_MISS_NUM;
10442: l_terr_rec.TEMPLATE_FLAG := FND_API.G_MISS_CHAR;
10443: l_terr_rec.TEMPLATE_TERRITORY_ID := FND_API.G_MISS_NUM;
10444: l_terr_rec.ESCALATION_TERRITORY_FLAG := FND_API.G_MISS_CHAR;
10445: l_terr_rec.ESCALATION_TERRITORY_ID := FND_API.G_MISS_NUM;
10446: l_terr_rec.OVERLAP_ALLOWED_FLAG := FND_API.G_MISS_CHAR;
10439: l_terr_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
10440: l_terr_rec.TERRITORY_TYPE_ID := FND_API.G_MISS_NUM;
10441: l_terr_rec.PARENT_TERRITORY_ID := FND_API.G_MISS_NUM;
10442: l_terr_rec.TEMPLATE_FLAG := FND_API.G_MISS_CHAR;
10443: l_terr_rec.TEMPLATE_TERRITORY_ID := FND_API.G_MISS_NUM;
10444: l_terr_rec.ESCALATION_TERRITORY_FLAG := FND_API.G_MISS_CHAR;
10445: l_terr_rec.ESCALATION_TERRITORY_ID := FND_API.G_MISS_NUM;
10446: l_terr_rec.OVERLAP_ALLOWED_FLAG := FND_API.G_MISS_CHAR;
10447: l_terr_rec.ATTRIBUTE_CATEGORY := FND_API.G_MISS_CHAR;
10440: l_terr_rec.TERRITORY_TYPE_ID := FND_API.G_MISS_NUM;
10441: l_terr_rec.PARENT_TERRITORY_ID := FND_API.G_MISS_NUM;
10442: l_terr_rec.TEMPLATE_FLAG := FND_API.G_MISS_CHAR;
10443: l_terr_rec.TEMPLATE_TERRITORY_ID := FND_API.G_MISS_NUM;
10444: l_terr_rec.ESCALATION_TERRITORY_FLAG := FND_API.G_MISS_CHAR;
10445: l_terr_rec.ESCALATION_TERRITORY_ID := FND_API.G_MISS_NUM;
10446: l_terr_rec.OVERLAP_ALLOWED_FLAG := FND_API.G_MISS_CHAR;
10447: l_terr_rec.ATTRIBUTE_CATEGORY := FND_API.G_MISS_CHAR;
10448: l_terr_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
10441: l_terr_rec.PARENT_TERRITORY_ID := FND_API.G_MISS_NUM;
10442: l_terr_rec.TEMPLATE_FLAG := FND_API.G_MISS_CHAR;
10443: l_terr_rec.TEMPLATE_TERRITORY_ID := FND_API.G_MISS_NUM;
10444: l_terr_rec.ESCALATION_TERRITORY_FLAG := FND_API.G_MISS_CHAR;
10445: l_terr_rec.ESCALATION_TERRITORY_ID := FND_API.G_MISS_NUM;
10446: l_terr_rec.OVERLAP_ALLOWED_FLAG := FND_API.G_MISS_CHAR;
10447: l_terr_rec.ATTRIBUTE_CATEGORY := FND_API.G_MISS_CHAR;
10448: l_terr_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
10449: l_terr_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
10442: l_terr_rec.TEMPLATE_FLAG := FND_API.G_MISS_CHAR;
10443: l_terr_rec.TEMPLATE_TERRITORY_ID := FND_API.G_MISS_NUM;
10444: l_terr_rec.ESCALATION_TERRITORY_FLAG := FND_API.G_MISS_CHAR;
10445: l_terr_rec.ESCALATION_TERRITORY_ID := FND_API.G_MISS_NUM;
10446: l_terr_rec.OVERLAP_ALLOWED_FLAG := FND_API.G_MISS_CHAR;
10447: l_terr_rec.ATTRIBUTE_CATEGORY := FND_API.G_MISS_CHAR;
10448: l_terr_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
10449: l_terr_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
10450: l_terr_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
10443: l_terr_rec.TEMPLATE_TERRITORY_ID := FND_API.G_MISS_NUM;
10444: l_terr_rec.ESCALATION_TERRITORY_FLAG := FND_API.G_MISS_CHAR;
10445: l_terr_rec.ESCALATION_TERRITORY_ID := FND_API.G_MISS_NUM;
10446: l_terr_rec.OVERLAP_ALLOWED_FLAG := FND_API.G_MISS_CHAR;
10447: l_terr_rec.ATTRIBUTE_CATEGORY := FND_API.G_MISS_CHAR;
10448: l_terr_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
10449: l_terr_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
10450: l_terr_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
10451: l_terr_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
10444: l_terr_rec.ESCALATION_TERRITORY_FLAG := FND_API.G_MISS_CHAR;
10445: l_terr_rec.ESCALATION_TERRITORY_ID := FND_API.G_MISS_NUM;
10446: l_terr_rec.OVERLAP_ALLOWED_FLAG := FND_API.G_MISS_CHAR;
10447: l_terr_rec.ATTRIBUTE_CATEGORY := FND_API.G_MISS_CHAR;
10448: l_terr_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
10449: l_terr_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
10450: l_terr_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
10451: l_terr_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
10452: l_terr_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
10445: l_terr_rec.ESCALATION_TERRITORY_ID := FND_API.G_MISS_NUM;
10446: l_terr_rec.OVERLAP_ALLOWED_FLAG := FND_API.G_MISS_CHAR;
10447: l_terr_rec.ATTRIBUTE_CATEGORY := FND_API.G_MISS_CHAR;
10448: l_terr_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
10449: l_terr_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
10450: l_terr_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
10451: l_terr_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
10452: l_terr_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
10453: l_terr_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
10446: l_terr_rec.OVERLAP_ALLOWED_FLAG := FND_API.G_MISS_CHAR;
10447: l_terr_rec.ATTRIBUTE_CATEGORY := FND_API.G_MISS_CHAR;
10448: l_terr_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
10449: l_terr_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
10450: l_terr_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
10451: l_terr_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
10452: l_terr_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
10453: l_terr_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
10454: l_terr_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
10447: l_terr_rec.ATTRIBUTE_CATEGORY := FND_API.G_MISS_CHAR;
10448: l_terr_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
10449: l_terr_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
10450: l_terr_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
10451: l_terr_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
10452: l_terr_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
10453: l_terr_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
10454: l_terr_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
10455: l_terr_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
10448: l_terr_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
10449: l_terr_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
10450: l_terr_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
10451: l_terr_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
10452: l_terr_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
10453: l_terr_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
10454: l_terr_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
10455: l_terr_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
10456: l_terr_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
10449: l_terr_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
10450: l_terr_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
10451: l_terr_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
10452: l_terr_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
10453: l_terr_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
10454: l_terr_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
10455: l_terr_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
10456: l_terr_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
10457: l_terr_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
10450: l_terr_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
10451: l_terr_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
10452: l_terr_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
10453: l_terr_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
10454: l_terr_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
10455: l_terr_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
10456: l_terr_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
10457: l_terr_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
10458: l_terr_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
10451: l_terr_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
10452: l_terr_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
10453: l_terr_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
10454: l_terr_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
10455: l_terr_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
10456: l_terr_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
10457: l_terr_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
10458: l_terr_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
10459: l_terr_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
10452: l_terr_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
10453: l_terr_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
10454: l_terr_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
10455: l_terr_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
10456: l_terr_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
10457: l_terr_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
10458: l_terr_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
10459: l_terr_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
10460: l_terr_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
10453: l_terr_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
10454: l_terr_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
10455: l_terr_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
10456: l_terr_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
10457: l_terr_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
10458: l_terr_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
10459: l_terr_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
10460: l_terr_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
10461: l_terr_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
10454: l_terr_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
10455: l_terr_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
10456: l_terr_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
10457: l_terr_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
10458: l_terr_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
10459: l_terr_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
10460: l_terr_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
10461: l_terr_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
10462: l_terr_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
10455: l_terr_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
10456: l_terr_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
10457: l_terr_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
10458: l_terr_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
10459: l_terr_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
10460: l_terr_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
10461: l_terr_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
10462: l_terr_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
10463: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10456: l_terr_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
10457: l_terr_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
10458: l_terr_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
10459: l_terr_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
10460: l_terr_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
10461: l_terr_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
10462: l_terr_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
10463: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10464: l_terr_rec.NUM_WINNERS := FND_API.G_MISS_NUM;
10457: l_terr_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
10458: l_terr_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
10459: l_terr_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
10460: l_terr_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
10461: l_terr_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
10462: l_terr_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
10463: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10464: l_terr_rec.NUM_WINNERS := FND_API.G_MISS_NUM;
10465:
10458: l_terr_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
10459: l_terr_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
10460: l_terr_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
10461: l_terr_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
10462: l_terr_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
10463: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10464: l_terr_rec.NUM_WINNERS := FND_API.G_MISS_NUM;
10465:
10466: JTF_TERRITORY_PVT.Copy_Territory (
10459: l_terr_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
10460: l_terr_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
10461: l_terr_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
10462: l_terr_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
10463: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10464: l_terr_rec.NUM_WINNERS := FND_API.G_MISS_NUM;
10465:
10466: JTF_TERRITORY_PVT.Copy_Territory (
10467: p_Api_Version_Number => l_Api_Version_Number,
10460: l_terr_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
10461: l_terr_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
10462: l_terr_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
10463: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10464: l_terr_rec.NUM_WINNERS := FND_API.G_MISS_NUM;
10465:
10466: JTF_TERRITORY_PVT.Copy_Territory (
10467: p_Api_Version_Number => l_Api_Version_Number,
10468: p_Init_Msg_List => FND_API.G_TRUE,
10464: l_terr_rec.NUM_WINNERS := FND_API.G_MISS_NUM;
10465:
10466: JTF_TERRITORY_PVT.Copy_Territory (
10467: p_Api_Version_Number => l_Api_Version_Number,
10468: p_Init_Msg_List => FND_API.G_TRUE,
10469: p_Commit => FND_API.G_TRUE,
10470: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10471: p_copy_source_terr_Id => p_copy_source_terr_Id,
10472: p_new_terr_rec => l_terr_rec,
10465:
10466: JTF_TERRITORY_PVT.Copy_Territory (
10467: p_Api_Version_Number => l_Api_Version_Number,
10468: p_Init_Msg_List => FND_API.G_TRUE,
10469: p_Commit => FND_API.G_TRUE,
10470: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10471: p_copy_source_terr_Id => p_copy_source_terr_Id,
10472: p_new_terr_rec => l_terr_rec,
10473: p_copy_rsc_flag => p_copy_rsc_flag,
10466: JTF_TERRITORY_PVT.Copy_Territory (
10467: p_Api_Version_Number => l_Api_Version_Number,
10468: p_Init_Msg_List => FND_API.G_TRUE,
10469: p_Commit => FND_API.G_TRUE,
10470: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10471: p_copy_source_terr_Id => p_copy_source_terr_Id,
10472: p_new_terr_rec => l_terr_rec,
10473: p_copy_rsc_flag => p_copy_rsc_flag,
10474: p_copy_hierarchy_flag => p_copy_hierarchy_flag,
10479: x_terr_id => l_terr_id );
10480:
10481: --dbms_output.put_line('***l_return_status ' ||l_return_status);
10482:
10483: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10484:
10485: IF (G_Debug) THEN
10486: Write_Log(2, 'Copy Territories hierarchy has NOT completed successfully');
10487: errbuf := 'Program completed with errors';
10566:
10567: FUNCTION conc_req_copy_terr (
10568: p_copy_source_terr_Id IN NUMBER,
10569: p_name IN VARCHAR2,
10570: p_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
10571: p_rank IN NUMBER := FND_API.G_MISS_NUM,
10572: p_start_date IN DATE,
10573: p_end_date IN DATE := FND_API.G_MISS_DATE,
10574: p_copy_rsc_flag IN VARCHAR2 := 'N',
10567: FUNCTION conc_req_copy_terr (
10568: p_copy_source_terr_Id IN NUMBER,
10569: p_name IN VARCHAR2,
10570: p_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
10571: p_rank IN NUMBER := FND_API.G_MISS_NUM,
10572: p_start_date IN DATE,
10573: p_end_date IN DATE := FND_API.G_MISS_DATE,
10574: p_copy_rsc_flag IN VARCHAR2 := 'N',
10575: p_copy_hierarchy_flag IN VARCHAR2 := 'N',
10569: p_name IN VARCHAR2,
10570: p_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
10571: p_rank IN NUMBER := FND_API.G_MISS_NUM,
10572: p_start_date IN DATE,
10573: p_end_date IN DATE := FND_API.G_MISS_DATE,
10574: p_copy_rsc_flag IN VARCHAR2 := 'N',
10575: p_copy_hierarchy_flag IN VARCHAR2 := 'N',
10576: p_first_terr_node_flag IN VARCHAR2 := 'N'
10577: )
10612: -- check that parent territory is not already a child of this territory
10613: -- circular reference check
10614: PROCEDURE validate_parent(
10615: p_Terr_All_Rec IN Terr_All_Rec_Type := G_Miss_Terr_All_Rec,
10616: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
10617: x_Return_Status OUT NOCOPY VARCHAR2,
10618: x_msg_count OUT NOCOPY NUMBER,
10619: x_msg_data OUT NOCOPY VARCHAR2 )
10620: AS
10628: BEGIN
10629:
10630: --dbms_output.put_line('[1]Validate_Parent: Entering API ');
10631: -- Initialize the status to success
10632: x_return_status := FND_API.G_RET_STS_SUCCESS;
10633:
10634: --dbms_output.put_line('[2]Validate_Parent: Entering API ');
10635:
10636: BEGIN
10679:
10680: WHEN e_Circular_Reference THEN
10681: --dbms_output.put_line('Validate_Parent: e_Circular_Reference exception' || SQLERRM);
10682:
10683: X_return_status := FND_API.G_RET_STS_ERROR;
10684:
10685: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_CIRCULAR_REFERENCE');
10686: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Parent' );
10687: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
10691: ( p_count => x_msg_count,
10692: p_data => x_msg_data
10693: );
10694:
10695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10696: --dbms_output.put_line('Validate_Parent: FND_API.G_EXC_UNEXPECTED_ERROR');
10697: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10698: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
10699: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Parent' );
10692: p_data => x_msg_data
10693: );
10694:
10695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10696: --dbms_output.put_line('Validate_Parent: FND_API.G_EXC_UNEXPECTED_ERROR');
10697: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10698: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
10699: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Parent' );
10700: FND_MSG_PUB.Count_And_Get
10693: );
10694:
10695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10696: --dbms_output.put_line('Validate_Parent: FND_API.G_EXC_UNEXPECTED_ERROR');
10697: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10698: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
10699: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Parent' );
10700: FND_MSG_PUB.Count_And_Get
10701: ( P_count => x_msg_count,
10703: );
10704:
10705: WHEN OTHERS THEN
10706: --dbms_output.put_line('Validate_Parent: Others exception' || SQLERRM);
10707: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10708: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
10709: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Parent' );
10710: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
10711: FND_MSG_PUB.ADD;
10721: */
10722: FUNCTION get_terr_value_desc (
10723: p_convert_to_id_flag VARCHAR2
10724: , p_display_type VARCHAR2
10725: , p_column_count NUMBER := FND_API.G_MISS_NUM
10726: , p_display_sql VARCHAR2 := FND_API.G_MISS_CHAR
10727: , p_terr_value1 VARCHAR2
10728: , p_terr_value2 VARCHAR2 := FND_API.G_MISS_CHAR
10729: )
10722: FUNCTION get_terr_value_desc (
10723: p_convert_to_id_flag VARCHAR2
10724: , p_display_type VARCHAR2
10725: , p_column_count NUMBER := FND_API.G_MISS_NUM
10726: , p_display_sql VARCHAR2 := FND_API.G_MISS_CHAR
10727: , p_terr_value1 VARCHAR2
10728: , p_terr_value2 VARCHAR2 := FND_API.G_MISS_CHAR
10729: )
10730: RETURN VARCHAR2 IS
10724: , p_display_type VARCHAR2
10725: , p_column_count NUMBER := FND_API.G_MISS_NUM
10726: , p_display_sql VARCHAR2 := FND_API.G_MISS_CHAR
10727: , p_terr_value1 VARCHAR2
10728: , p_terr_value2 VARCHAR2 := FND_API.G_MISS_CHAR
10729: )
10730: RETURN VARCHAR2 IS
10731:
10732: query_str VARCHAR2(1000);
10735: l_terr_value2 VARCHAR2(360);
10736:
10737: BEGIN
10738:
10739: IF ( p_display_sql = FND_API.G_MISS_CHAR OR
10740: p_display_sql IS NULL) THEN
10741:
10742: --dbms_output( 'LOV_SQL IS NULL, returning value = ' || p_terr_value);
10743: