[Home] [Help]
18: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
19:
20: PROCEDURE Create_selcrit(
21: P_Api_Version_Number IN NUMBER,
22: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
23: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
24: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
25: P_Identity_Resource_Id IN NUMBER,
26: P_SELCRIT_Rec IN PV_RULE_RECTYPE_PUB.SELCRIT_Rec_Type
19:
20: PROCEDURE Create_selcrit(
21: P_Api_Version_Number IN NUMBER,
22: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
23: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
24: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
25: P_Identity_Resource_Id IN NUMBER,
26: P_SELCRIT_Rec IN PV_RULE_RECTYPE_PUB.SELCRIT_Rec_Type
27: := PV_RULE_RECTYPE_PUB.G_MISS_SELCRIT_REC,
20: PROCEDURE Create_selcrit(
21: P_Api_Version_Number IN NUMBER,
22: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
23: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
24: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
25: P_Identity_Resource_Id IN NUMBER,
26: P_SELCRIT_Rec IN PV_RULE_RECTYPE_PUB.SELCRIT_Rec_Type
27: := PV_RULE_RECTYPE_PUB.G_MISS_SELCRIT_REC,
28: X_SELECTION_CRITERIA_ID OUT NOCOPY NUMBER,
40: -- Standard Start of API savepoint
41: SAVEPOINT CREATE_SELCRIT_PVT;
42:
43: -- Standard call to check for call compatibility.
44: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
45: p_api_version_number,
46: l_api_name,
47: G_PKG_NAME)
48: THEN
45: p_api_version_number,
46: l_api_name,
47: G_PKG_NAME)
48: THEN
49: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
50: END IF;
51:
52:
53: -- Initialize message list if p_init_msg_list is set to TRUE.
50: END IF;
51:
52:
53: -- Initialize message list if p_init_msg_list is set to TRUE.
54: IF FND_API.to_Boolean( p_init_msg_list )
55: THEN
56: FND_MSG_PUB.initialize;
57: END IF;
58:
64: END IF;
65:
66:
67: -- Initialize API return status to SUCCESS
68: x_return_status := FND_API.G_RET_STS_SUCCESS;
69:
70: --
71: -- API body
72: --
80: FND_MESSAGE.Set_Name('PV', 'UT_CANNOT_GET_PROFILE_VALUE');
81: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
82: FND_MSG_PUB.ADD;
83: END IF;
84: RAISE FND_API.G_EXC_ERROR;
85: END IF;
86:
87: -- Debug message
88: IF (AS_DEBUG_HIGH_ON) THEN
91: END IF;
92:
93: -- Invoke validation procedures
94: Validate_selcrit(
95: p_init_msg_list => FND_API.G_FALSE,
96: p_validation_level => p_validation_level,
97: p_validation_mode => AS_UTILITY_PVT.G_CREATE,
98: P_SELCRIT_Rec => P_SELCRIT_Rec,
99: x_return_status => x_return_status,
99: x_return_status => x_return_status,
100: x_msg_count => x_msg_count,
101: x_msg_data => x_msg_data);
102:
103: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
104: RAISE FND_API.G_EXC_ERROR;
105: END IF;
106:
107: -- Hint: Add corresponding Master-Detail business logic here if necessary.
100: x_msg_count => x_msg_count,
101: x_msg_data => x_msg_data);
102:
103: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
104: RAISE FND_API.G_EXC_ERROR;
105: END IF;
106:
107: -- Hint: Add corresponding Master-Detail business logic here if necessary.
108:
125:
126: IF (l_previous_status = 'ACTIVE') THEN
127: FND_MESSAGE.Set_Name('PV', 'PV_MONITOR_RULE_ACTIVE');
128: FND_MSG_PUB.Add;
129: RAISE FND_API.G_EXC_ERROR;
130: END IF;
131: END IF;
132:
133: -- Debug Message
172: ,p_ATTRIBUTE15 => p_SELCRIT_rec.ATTRIBUTE15
173: ); -- Hint: Primary key should be returned.
174: -- x_SELECTION_CRITERIA_ID := px_SELECTION_CRITERIA_ID;
175:
176: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
177: RAISE FND_API.G_EXC_ERROR;
178: END IF;
179:
180: --
173: ); -- Hint: Primary key should be returned.
174: -- x_SELECTION_CRITERIA_ID := px_SELECTION_CRITERIA_ID;
175:
176: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
177: RAISE FND_API.G_EXC_ERROR;
178: END IF;
179:
180: --
181: -- End of API body
181: -- End of API body
182: --
183:
184: -- Standard check for p_commit
185: IF FND_API.to_Boolean( p_commit )
186: THEN
187: COMMIT WORK;
188: END IF;
189:
201: p_data => x_msg_data
202: );
203:
204: EXCEPTION
205: WHEN FND_API.G_EXC_ERROR THEN
206: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
207: P_API_NAME => L_API_NAME
208: ,P_PKG_NAME => G_PKG_NAME
209: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
211: ,X_MSG_COUNT => X_MSG_COUNT
212: ,X_MSG_DATA => X_MSG_DATA
213: ,X_RETURN_STATUS => X_RETURN_STATUS);
214:
215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
216: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
217: P_API_NAME => L_API_NAME
218: ,P_PKG_NAME => G_PKG_NAME
219: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
238:
239: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
240: PROCEDURE Update_selcrit(
241: P_Api_Version_Number IN NUMBER,
242: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
243: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
244: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
245: P_Identity_Resource_Id IN NUMBER,
246: P_SELCRIT_Rec IN PV_RULE_RECTYPE_PUB.SELCRIT_Rec_Type,
239: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
240: PROCEDURE Update_selcrit(
241: P_Api_Version_Number IN NUMBER,
242: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
243: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
244: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
245: P_Identity_Resource_Id IN NUMBER,
246: P_SELCRIT_Rec IN PV_RULE_RECTYPE_PUB.SELCRIT_Rec_Type,
247: X_Return_Status OUT NOCOPY VARCHAR2,
240: PROCEDURE Update_selcrit(
241: P_Api_Version_Number IN NUMBER,
242: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
243: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
244: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
245: P_Identity_Resource_Id IN NUMBER,
246: P_SELCRIT_Rec IN PV_RULE_RECTYPE_PUB.SELCRIT_Rec_Type,
247: X_Return_Status OUT NOCOPY VARCHAR2,
248: X_Msg_Count OUT NOCOPY NUMBER,
268: -- Standard Start of API savepoint
269: SAVEPOINT UPDATE_SELCRIT_PVT;
270:
271: -- Standard call to check for call compatibility.
272: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
273: p_api_version_number,
274: l_api_name,
275: G_PKG_NAME)
276: THEN
273: p_api_version_number,
274: l_api_name,
275: G_PKG_NAME)
276: THEN
277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
278: END IF;
279:
280:
281: -- Initialize message list if p_init_msg_list is set to TRUE.
278: END IF;
279:
280:
281: -- Initialize message list if p_init_msg_list is set to TRUE.
282: IF FND_API.to_Boolean( p_init_msg_list )
283: THEN
284: FND_MSG_PUB.initialize;
285: END IF;
286:
292: END IF;
293:
294:
295: -- Initialize API return status to SUCCESS
296: x_return_status := FND_API.G_RET_STS_SUCCESS;
297:
298: --
299: -- Api body
300: --
316: FND_MESSAGE.Set_Token ('INFO', 'selcrit', FALSE);
317: FND_MSG_PUB.Add;
318: END IF;
319: Close C_Get_selcrit;
320: raise FND_API.G_EXC_ERROR;
321: END IF;
322: -- Debug Message
323: IF (AS_DEBUG_HIGH_ON) THEN
324:
326: END IF;
327: Close C_Get_selcrit;
328:
329: If (l_tar_SELCRIT_rec.object_version_number is NULL or
330: l_tar_SELCRIT_rec.object_version_number = FND_API.G_MISS_NUM ) Then
331: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
332: THEN
333: FND_MESSAGE.Set_Name('PV', 'API_MISSING_ID');
334: FND_MESSAGE.Set_Token('COLUMN', 'object_version_number', FALSE);
333: FND_MESSAGE.Set_Name('PV', 'API_MISSING_ID');
334: FND_MESSAGE.Set_Token('COLUMN', 'object_version_number', FALSE);
335: FND_MSG_PUB.ADD;
336: END IF;
337: raise FND_API.G_EXC_ERROR;
338: End if;
339: -- Check Whether record has been changed by someone else
340: If (l_tar_SELCRIT_rec.object_version_number <> l_ref_SELCRIT_rec.object_version_number) Then
341: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
343: FND_MESSAGE.Set_Name('PV', 'API_RECORD_CHANGED');
344: FND_MESSAGE.Set_Token('INFO', 'selcrit', FALSE);
345: FND_MSG_PUB.ADD;
346: END IF;
347: raise FND_API.G_EXC_ERROR;
348: End if;
349:
350: -- Debug message
351: IF (AS_DEBUG_HIGH_ON) THEN
354: END IF;
355:
356: -- Invoke validation procedures
357: Validate_selcrit(
358: p_init_msg_list => FND_API.G_FALSE,
359: p_validation_level => p_validation_level,
360: p_validation_mode => AS_UTILITY_PVT.G_UPDATE,
361: P_SELCRIT_Rec => P_SELCRIT_Rec,
362: x_return_status => x_return_status,
362: x_return_status => x_return_status,
363: x_msg_count => x_msg_count,
364: x_msg_data => x_msg_data);
365:
366: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369:
370: -- Hint: Add corresponding Master-Detail business logic here if necessary.
363: x_msg_count => x_msg_count,
364: x_msg_data => x_msg_data);
365:
366: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369:
370: -- Hint: Add corresponding Master-Detail business logic here if necessary.
371:
388:
389: IF (l_previous_status = 'ACTIVE') THEN
390: FND_MESSAGE.Set_Name('PV', 'PV_MONITOR_RULE_ACTIVE');
391: FND_MSG_PUB.Add;
392: RAISE FND_API.G_EXC_ERROR;
393: END IF;
394: END IF;
395:
396:
405: PV_ENTY_SELECT_CRITERIA_PKG.Update_Row(
406: p_SELECTION_CRITERIA_ID => p_SELCRIT_rec.SELECTION_CRITERIA_ID
407: ,p_LAST_UPDATE_DATE => SYSDATE
408: ,p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID
409: ,p_CREATION_DATE => FND_API.G_MISS_DATE
410: ,p_CREATED_BY => FND_API.G_MISS_NUM
411: ,p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID
412: ,p_OBJECT_VERSION_NUMBER => p_SELCRIT_rec.OBJECT_VERSION_NUMBER
413: ,p_REQUEST_ID => p_SELCRIT_rec.REQUEST_ID
406: p_SELECTION_CRITERIA_ID => p_SELCRIT_rec.SELECTION_CRITERIA_ID
407: ,p_LAST_UPDATE_DATE => SYSDATE
408: ,p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID
409: ,p_CREATION_DATE => FND_API.G_MISS_DATE
410: ,p_CREATED_BY => FND_API.G_MISS_NUM
411: ,p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID
412: ,p_OBJECT_VERSION_NUMBER => p_SELCRIT_rec.OBJECT_VERSION_NUMBER
413: ,p_REQUEST_ID => p_SELCRIT_rec.REQUEST_ID
414: ,p_PROGRAM_APPLICATION_ID => p_SELCRIT_rec.PROGRAM_APPLICATION_ID
439: -- End of API body.
440: --
441:
442: -- Standard check for p_commit
443: IF FND_API.to_Boolean( p_commit )
444: THEN
445: COMMIT WORK;
446: END IF;
447:
459: p_data => x_msg_data
460: );
461:
462: EXCEPTION
463: WHEN FND_API.G_EXC_ERROR THEN
464: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
465: P_API_NAME => L_API_NAME
466: ,P_PKG_NAME => G_PKG_NAME
467: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
469: ,X_MSG_COUNT => X_MSG_COUNT
470: ,X_MSG_DATA => X_MSG_DATA
471: ,X_RETURN_STATUS => X_RETURN_STATUS);
472:
473: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
474: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
475: P_API_NAME => L_API_NAME
476: ,P_PKG_NAME => G_PKG_NAME
477: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
497: -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
498: -- The Master delete procedure may not be needed depends on different business requirements.
499: PROCEDURE Delete_selcrit(
500: P_Api_Version_Number IN NUMBER,
501: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
502: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
503: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
504: P_Identity_Resource_Id IN NUMBER,
505: P_SELCRIT_Rec IN PV_RULE_RECTYPE_PUB.SELCRIT_Rec_Type,
498: -- The Master delete procedure may not be needed depends on different business requirements.
499: PROCEDURE Delete_selcrit(
500: P_Api_Version_Number IN NUMBER,
501: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
502: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
503: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
504: P_Identity_Resource_Id IN NUMBER,
505: P_SELCRIT_Rec IN PV_RULE_RECTYPE_PUB.SELCRIT_Rec_Type,
506: X_Return_Status OUT NOCOPY VARCHAR2,
499: PROCEDURE Delete_selcrit(
500: P_Api_Version_Number IN NUMBER,
501: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
502: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
503: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
504: P_Identity_Resource_Id IN NUMBER,
505: P_SELCRIT_Rec IN PV_RULE_RECTYPE_PUB.SELCRIT_Rec_Type,
506: X_Return_Status OUT NOCOPY VARCHAR2,
507: X_Msg_Count OUT NOCOPY NUMBER,
524: -- Standard Start of API savepoint
525: SAVEPOINT DELETE_SELCRIT_PVT;
526:
527: -- Standard call to check for call compatibility.
528: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
529: p_api_version_number,
530: l_api_name,
531: G_PKG_NAME)
532: THEN
529: p_api_version_number,
530: l_api_name,
531: G_PKG_NAME)
532: THEN
533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
534: END IF;
535:
536:
537: -- Initialize message list if p_init_msg_list is set to TRUE.
534: END IF;
535:
536:
537: -- Initialize message list if p_init_msg_list is set to TRUE.
538: IF FND_API.to_Boolean( p_init_msg_list )
539: THEN
540: FND_MSG_PUB.initialize;
541: END IF;
542:
548: END IF;
549:
550:
551: -- Initialize API return status to SUCCESS
552: x_return_status := FND_API.G_RET_STS_SUCCESS;
553:
554: --
555: -- Api body
556: --
566: l_selattval_rec.attr_value_id := l_attr_value_id;
567:
568: PV_selattval_PVT.Delete_selattval(
569: P_Api_Version_Number => 2.0,
570: P_Init_Msg_List => FND_API.G_FALSE,
571: P_Commit => p_commit,
572: P_Validation_Level => p_Validation_Level,
573: P_Identity_Resource_Id => P_Identity_Resource_Id,
574: P_SELATTVAL_Rec => l_SELATTVAL_Rec,
577: X_Msg_Data => x_msg_data);
578:
579:
580: -- Check return status from the above procedure call
581: IF x_return_status = FND_API.G_RET_STS_ERROR then
582: raise FND_API.G_EXC_ERROR;
583: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
584: raise FND_API.G_EXC_UNEXPECTED_ERROR;
585: END IF;
578:
579:
580: -- Check return status from the above procedure call
581: IF x_return_status = FND_API.G_RET_STS_ERROR then
582: raise FND_API.G_EXC_ERROR;
583: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
584: raise FND_API.G_EXC_UNEXPECTED_ERROR;
585: END IF;
586:
579:
580: -- Check return status from the above procedure call
581: IF x_return_status = FND_API.G_RET_STS_ERROR then
582: raise FND_API.G_EXC_ERROR;
583: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
584: raise FND_API.G_EXC_UNEXPECTED_ERROR;
585: END IF;
586:
587: end loop;
580: -- Check return status from the above procedure call
581: IF x_return_status = FND_API.G_RET_STS_ERROR then
582: raise FND_API.G_EXC_ERROR;
583: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
584: raise FND_API.G_EXC_UNEXPECTED_ERROR;
585: END IF;
586:
587: end loop;
588: close lc_value_rows;
606: -- End of API body
607: --
608:
609: -- Standard check for p_commit
610: IF FND_API.to_Boolean( p_commit )
611: THEN
612: COMMIT WORK;
613: END IF;
614:
626: p_data => x_msg_data
627: );
628:
629: EXCEPTION
630: WHEN FND_API.G_EXC_ERROR THEN
631: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
632: P_API_NAME => L_API_NAME
633: ,P_PKG_NAME => G_PKG_NAME
634: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
636: ,X_MSG_COUNT => X_MSG_COUNT
637: ,X_MSG_DATA => X_MSG_DATA
638: ,X_RETURN_STATUS => X_RETURN_STATUS);
639:
640: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
641: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
642: P_API_NAME => L_API_NAME
643: ,P_PKG_NAME => G_PKG_NAME
644: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
662:
663:
664: -- Item-level validation procedures
665: PROCEDURE Validate_SELECTION_CRITERIA_ID (
666: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
667: P_Validation_mode IN VARCHAR2,
668: P_SELECTION_CRITERIA_ID IN NUMBER,
669: X_Return_Status OUT NOCOPY VARCHAR2,
670: X_Msg_Count OUT NOCOPY NUMBER,
679: l_val VARCHAR2(1);
680: BEGIN
681:
682: -- Initialize message list if p_init_msg_list is set to TRUE.
683: IF FND_API.to_Boolean( p_init_msg_list )
684: THEN
685: FND_MSG_PUB.initialize;
686: END IF;
687:
686: END IF;
687:
688:
689: -- Initialize API return status to SUCCESS
690: x_return_status := FND_API.G_RET_STS_SUCCESS;
691:
692: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
693: THEN
694: IF (p_selection_criteria_id IS NOT NULL) AND
691:
692: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
693: THEN
694: IF (p_selection_criteria_id IS NOT NULL) AND
695: (p_selection_criteria_id <> FND_API.G_MISS_NUM)
696: THEN
697: AS_UTILITY_PVT.Set_Message(
698: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
699: p_msg_name => 'API_INVALID_ID',
699: p_msg_name => 'API_INVALID_ID',
700: p_token1 => 'selection_criteria_id',
701: p_token1_value => p_selection_criteria_id);
702:
703: x_return_status := FND_API.G_RET_STS_ERROR;
704: END IF;
705:
706: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
707: THEN
706: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
707: THEN
708: -- validate NOT NULL column
709: IF (p_selection_criteria_id IS NULL) OR
710: (p_selection_criteria_id = FND_API.G_MISS_NUM)
711: THEN
712: AS_UTILITY_PVT.Set_Message(
713: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
714: p_msg_name => 'API_MISSING_LEAD_ID');
712: AS_UTILITY_PVT.Set_Message(
713: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
714: p_msg_name => 'API_MISSING_LEAD_ID');
715:
716: x_return_status := FND_API.G_RET_STS_ERROR;
717: ELSE
718: OPEN C_selection_criteria_id_exists (p_selection_criteria_id);
719: FETCH C_selection_criteria_id_exists into l_val;
720:
725: p_msg_name => 'API_INVALID_ID',
726: p_token1 => 'selection_criteria_id',
727: p_token1_value => p_selection_criteria_id );
728:
729: x_return_status := FND_API.G_RET_STS_ERROR;
730: END IF;
731:
732: CLOSE C_selection_criteria_id_exists;
733: END IF;
743: END Validate_SELECTION_CRITERIA_ID;
744:
745:
746: PROCEDURE Validate_selcrit(
747: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
748: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
749: P_Validation_mode IN VARCHAR2,
750: P_SELCRIT_Rec IN PV_RULE_RECTYPE_PUB.SELCRIT_Rec_Type,
751: X_Return_Status OUT NOCOPY VARCHAR2,
744:
745:
746: PROCEDURE Validate_selcrit(
747: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
748: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
749: P_Validation_mode IN VARCHAR2,
750: P_SELCRIT_Rec IN PV_RULE_RECTYPE_PUB.SELCRIT_Rec_Type,
751: X_Return_Status OUT NOCOPY VARCHAR2,
752: X_Msg_Count OUT NOCOPY NUMBER,
789: END IF;
790:
791:
792: -- Initialize API return status to SUCCESS
793: x_return_status := FND_API.G_RET_STS_SUCCESS;
794:
795: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM) THEN
796:
797: Validate_SELECTION_CRITERIA_ID(
794:
795: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM) THEN
796:
797: Validate_SELECTION_CRITERIA_ID(
798: p_init_msg_list => FND_API.G_FALSE,
799: p_validation_mode => p_validation_mode,
800: p_SELECTION_CRITERIA_ID => P_SELCRIT_Rec.SELECTION_CRITERIA_ID,
801: x_return_status => x_return_status,
802: x_msg_count => x_msg_count,
801: x_return_status => x_return_status,
802: x_msg_count => x_msg_count,
803: x_msg_data => x_msg_data);
804:
805: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
806: raise FND_API.G_EXC_ERROR;
807: END IF;
808:
809: pv_common_checks_pvt.Validate_OBJECT_VERSION_NUMBER(
802: x_msg_count => x_msg_count,
803: x_msg_data => x_msg_data);
804:
805: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
806: raise FND_API.G_EXC_ERROR;
807: END IF;
808:
809: pv_common_checks_pvt.Validate_OBJECT_VERSION_NUMBER(
810: p_init_msg_list => FND_API.G_FALSE,
806: raise FND_API.G_EXC_ERROR;
807: END IF;
808:
809: pv_common_checks_pvt.Validate_OBJECT_VERSION_NUMBER(
810: p_init_msg_list => FND_API.G_FALSE,
811: p_validation_mode => p_validation_mode,
812: p_OBJECT_VERSION_NUMBER => P_SELCRIT_Rec.OBJECT_VERSION_NUMBER,
813: x_return_status => x_return_status,
814: x_msg_count => x_msg_count,
813: x_return_status => x_return_status,
814: x_msg_count => x_msg_count,
815: x_msg_data => x_msg_data);
816:
817: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
818: raise FND_API.G_EXC_ERROR;
819: END IF;
820:
821: pv_common_checks_pvt.Validate_PROCESS_RULE_ID(
814: x_msg_count => x_msg_count,
815: x_msg_data => x_msg_data);
816:
817: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
818: raise FND_API.G_EXC_ERROR;
819: END IF;
820:
821: pv_common_checks_pvt.Validate_PROCESS_RULE_ID(
822: p_init_msg_list => FND_API.G_FALSE,
818: raise FND_API.G_EXC_ERROR;
819: END IF;
820:
821: pv_common_checks_pvt.Validate_PROCESS_RULE_ID(
822: p_init_msg_list => FND_API.G_FALSE,
823: p_validation_mode => p_validation_mode,
824: p_PROCESS_RULE_ID => P_SELCRIT_Rec.PROCESS_RULE_ID,
825: x_return_status => x_return_status,
826: x_msg_count => x_msg_count,
825: x_return_status => x_return_status,
826: x_msg_count => x_msg_count,
827: x_msg_data => x_msg_data);
828:
829: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
830: raise FND_API.G_EXC_ERROR;
831: END IF;
832:
833: pv_common_checks_pvt.Validate_Lookup(
826: x_msg_count => x_msg_count,
827: x_msg_data => x_msg_data);
828:
829: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
830: raise FND_API.G_EXC_ERROR;
831: END IF;
832:
833: pv_common_checks_pvt.Validate_Lookup(
834: p_init_msg_list => FND_API.G_FALSE,
830: raise FND_API.G_EXC_ERROR;
831: END IF;
832:
833: pv_common_checks_pvt.Validate_Lookup(
834: p_init_msg_list => FND_API.G_FALSE,
835: p_validation_mode => p_validation_mode,
836: p_TABLE_NAME => 'PV_ENTY_SELECT_CRITERIA',
837: p_COLUMN_NAME => 'SELECTION_TYPE_CODE',
838: p_lookup_type => 'PV_SELECTION_TYPE_CODE',
840: x_return_status => x_return_status,
841: x_msg_count => x_msg_count,
842: x_msg_data => x_msg_data);
843:
844: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
845: raise FND_API.G_EXC_ERROR;
846: END IF;
847:
848:
841: x_msg_count => x_msg_count,
842: x_msg_data => x_msg_data);
843:
844: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
845: raise FND_API.G_EXC_ERROR;
846: END IF;
847:
848:
849: --ryellapu - Additional checks to Rank and Attribute id to avoid any duplicate values
853:
854: if p_SELCRIT_REC.rank is null then
855: FND_MESSAGE.Set_Name('PV', 'PV_NULLCHECK_TIEBR_RANK');
856: FND_MSG_PUB.Add;
857: x_return_status := FND_API.G_RET_STS_ERROR;
858: raise FND_API.G_EXC_ERROR;
859: end if;
860:
861: select rank into l_rank from pv_enty_select_criteria
854: if p_SELCRIT_REC.rank is null then
855: FND_MESSAGE.Set_Name('PV', 'PV_NULLCHECK_TIEBR_RANK');
856: FND_MSG_PUB.Add;
857: x_return_status := FND_API.G_RET_STS_ERROR;
858: raise FND_API.G_EXC_ERROR;
859: end if;
860:
861: select rank into l_rank from pv_enty_select_criteria
862: where process_rule_id = p_SELCRIT_REC.process_rule_id and
864:
865: if l_rank is not null then
866: FND_MESSAGE.Set_Name('PV', 'PV_DUPLICATE_TIEBR_RANK');
867: FND_MSG_PUB.Add;
868: x_return_status := FND_API.G_RET_STS_ERROR;
869: raise FND_API.G_EXC_ERROR;
870: end if;
871: exception
872: when no_data_found then
865: if l_rank is not null then
866: FND_MESSAGE.Set_Name('PV', 'PV_DUPLICATE_TIEBR_RANK');
867: FND_MSG_PUB.Add;
868: x_return_status := FND_API.G_RET_STS_ERROR;
869: raise FND_API.G_EXC_ERROR;
870: end if;
871: exception
872: when no_data_found then
873: null;
871: exception
872: when no_data_found then
873: null;
874: when others then
875: x_return_status := FND_API.G_RET_STS_ERROR;
876: raise FND_API.G_EXC_ERROR;
877: end;
878: end if;
879:
872: when no_data_found then
873: null;
874: when others then
875: x_return_status := FND_API.G_RET_STS_ERROR;
876: raise FND_API.G_EXC_ERROR;
877: end;
878: end if;
879:
880: if p_SELCRIT_REC.SELECTION_TYPE_CODE = 'TIE_BREAKING' then
885:
886: if (l_attribute_id is not null and p_validation_mode = AS_UTILITY_PVT.G_CREATE) then
887: FND_MESSAGE.Set_Name('PV', 'PV_DUPLICATE_TIEBR_ATTRIBUTE');
888: FND_MSG_PUB.Add;
889: x_return_status := FND_API.G_RET_STS_ERROR;
890: raise FND_API.G_EXC_ERROR;
891: end if;
892: exception
893: when no_data_found then
886: if (l_attribute_id is not null and p_validation_mode = AS_UTILITY_PVT.G_CREATE) then
887: FND_MESSAGE.Set_Name('PV', 'PV_DUPLICATE_TIEBR_ATTRIBUTE');
888: FND_MSG_PUB.Add;
889: x_return_status := FND_API.G_RET_STS_ERROR;
890: raise FND_API.G_EXC_ERROR;
891: end if;
892: exception
893: when no_data_found then
894: null;
915: p_token3_value => 'PV_TIE_BREAKING_OPERATOR',
916: p_token4 => 'LOOKUP_CODE',
917: p_token4_value => p_SELCRIT_REC.OPERATOR);
918:
919: x_return_status := FND_API.G_RET_STS_ERROR;
920: raise FND_API.G_EXC_ERROR;
921:
922: end if;
923:
916: p_token4 => 'LOOKUP_CODE',
917: p_token4_value => p_SELCRIT_REC.OPERATOR);
918:
919: x_return_status := FND_API.G_RET_STS_ERROR;
920: raise FND_API.G_EXC_ERROR;
921:
922: end if;
923:
924: else
923:
924: else
925:
926: pv_common_checks_pvt.Validate_OPERATOR(
927: p_init_msg_list => FND_API.G_FALSE,
928: p_validation_mode => p_validation_mode,
929: p_TABLE_NAME => 'PV_ENTY_SELECT_CRITERIA',
930: p_COLUMN_NAME => 'OPERATOR',
931: p_attribute_id => P_SELCRIT_REC.ATTRIBUTE_ID,
935: x_msg_data => x_msg_data);
936:
937: end if;
938:
939: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
940: raise FND_API.G_EXC_ERROR;
941: END IF;
942:
943: END IF;
936:
937: end if;
938:
939: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
940: raise FND_API.G_EXC_ERROR;
941: END IF;
942:
943: END IF;
944:
971: p_token1_value => l_rule_name,
972: p_token2 => 'ATTRIBUTE_NAME',
973: p_token2_value => l_attribute_name);
974:
975: x_return_status := FND_API.G_RET_STS_ERROR;
976:
977: end if;
978:
979: end if;