[Home] [Help]
28: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
29:
30: PROCEDURE Create_process_rule(
31: P_Api_Version_Number IN NUMBER,
32: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
33: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
34: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
35: P_Identity_Resource_Id IN NUMBER,
36: P_PROCESS_RULE_Rec IN PV_RULE_RECTYPE_PUB.RULES_REC_TYPE
29:
30: PROCEDURE Create_process_rule(
31: P_Api_Version_Number IN NUMBER,
32: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
33: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
34: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
35: P_Identity_Resource_Id IN NUMBER,
36: P_PROCESS_RULE_Rec IN PV_RULE_RECTYPE_PUB.RULES_REC_TYPE
37: := PV_RULE_RECTYPE_PUB.G_MISS_RULES_REC,
30: PROCEDURE Create_process_rule(
31: P_Api_Version_Number IN NUMBER,
32: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
33: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
34: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
35: P_Identity_Resource_Id IN NUMBER,
36: P_PROCESS_RULE_Rec IN PV_RULE_RECTYPE_PUB.RULES_REC_TYPE
37: := PV_RULE_RECTYPE_PUB.G_MISS_RULES_REC,
38: X_PROCESS_RULE_ID OUT NOCOPY NUMBER,
50: -- Standard Start of API savepoint
51: SAVEPOINT CREATE_PROCESS_RULE_PVT;
52:
53: -- Standard call to check for call compatibility.
54: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
55: p_api_version_number,
56: l_api_name,
57: G_PKG_NAME)
58: THEN
55: p_api_version_number,
56: l_api_name,
57: G_PKG_NAME)
58: THEN
59: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60: END IF;
61:
62:
63: -- Initialize message list if p_init_msg_list is set to TRUE.
60: END IF;
61:
62:
63: -- Initialize message list if p_init_msg_list is set to TRUE.
64: IF FND_API.to_Boolean( p_init_msg_list )
65: THEN
66: FND_MSG_PUB.initialize;
67: END IF;
68:
74: END IF;
75:
76:
77: -- Initialize API return status to SUCCESS
78: x_return_status := FND_API.G_RET_STS_SUCCESS;
79:
80: --
81: -- API body
82: --
90: FND_MESSAGE.Set_Name('PV', 'UT_CANNOT_GET_PROFILE_VALUE');
91: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
92: FND_MSG_PUB.ADD;
93: END IF;
94: RAISE FND_API.G_EXC_ERROR;
95: END IF;
96:
97: -- Debug message
98: IF (AS_DEBUG_HIGH_ON) THEN
101: END IF;
102:
103: -- Invoke validation procedures
104: Validate_process_rule(
105: p_init_msg_list => FND_API.G_FALSE,
106: p_validation_level => p_validation_level,
107: p_validation_mode => AS_UTILITY_PVT.G_CREATE,
108: P_PROCESS_RULE_Rec => p_PROCESS_RULE_rec,
109: x_return_status => x_return_status,
109: x_return_status => x_return_status,
110: x_msg_count => x_msg_count,
111: x_msg_data => x_msg_data);
112:
113: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
114: RAISE FND_API.G_EXC_ERROR;
115: END IF;
116:
117: /*
110: x_msg_count => x_msg_count,
111: x_msg_data => x_msg_data);
112:
113: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
114: RAISE FND_API.G_EXC_ERROR;
115: END IF;
116:
117: /*
118: --
121: FND_MESSAGE.Set_Token('TEXT', 'parent_rule_id:' || p_PROCESS_RULE_rec.PARENT_RULE_ID);
122: FND_MESSAGE.Set_Token('TEXT', 'child_rule_id:' || x_PROCESS_RULE_ID);
123: FND_MESSAGE.Set_Token('TEXT', 'rank:' || p_PROCESS_RULE_rec.rank);
124: FND_MSG_PUB.ADD;
125: RAISE FND_API.G_EXC_ERROR;
126: -- ========================================================================
127: */
128: Validate_rank(
129: P_Init_Msg_List => FND_API.G_FALSE,
125: RAISE FND_API.G_EXC_ERROR;
126: -- ========================================================================
127: */
128: Validate_rank(
129: P_Init_Msg_List => FND_API.G_FALSE,
130: P_Validation_mode => AS_UTILITY_PVT.G_CREATE,
131: P_Parent_Rule_ID => p_PROCESS_RULE_rec.PARENT_RULE_ID,
132: P_Child_Rule_ID => x_PROCESS_RULE_ID,
133: P_RANK => p_PROCESS_RULE_rec.rank,
134: X_Return_Status => x_return_status,
135: X_Msg_Count => x_msg_count,
136: X_Msg_Data => x_msg_data);
137:
138: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
139: RAISE FND_API.G_EXC_ERROR;
140: END IF;
141:
142: Validate_enddate(
135: X_Msg_Count => x_msg_count,
136: X_Msg_Data => x_msg_data);
137:
138: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
139: RAISE FND_API.G_EXC_ERROR;
140: END IF;
141:
142: Validate_enddate(
143: P_Init_Msg_List => FND_API.G_FALSE,
139: RAISE FND_API.G_EXC_ERROR;
140: END IF;
141:
142: Validate_enddate(
143: P_Init_Msg_List => FND_API.G_FALSE,
144: P_Validation_mode => AS_UTILITY_PVT.G_CREATE,
145: P_START_DATE => p_PROCESS_RULE_rec.start_date,
146: P_END_DATE => p_PROCESS_RULE_rec.end_date,
147: X_Return_Status => x_return_status,
147: X_Return_Status => x_return_status,
148: X_Msg_Count => x_msg_count,
149: X_Msg_Data => x_msg_data);
150:
151: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
152: RAISE FND_API.G_EXC_ERROR;
153: END IF;
154:
155: Validate_startdate(
148: X_Msg_Count => x_msg_count,
149: X_Msg_Data => x_msg_data);
150:
151: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
152: RAISE FND_API.G_EXC_ERROR;
153: END IF;
154:
155: Validate_startdate(
156: P_Init_Msg_List => FND_API.G_FALSE,
152: RAISE FND_API.G_EXC_ERROR;
153: END IF;
154:
155: Validate_startdate(
156: P_Init_Msg_List => FND_API.G_FALSE,
157: P_Validation_mode => AS_UTILITY_PVT.G_CREATE,
158: P_Parent_Rule_ID => p_PROCESS_RULE_rec.PARENT_RULE_ID,
159: P_START_DATE => p_PROCESS_RULE_rec.start_date,
160: X_Return_Status => x_return_status,
160: X_Return_Status => x_return_status,
161: X_Msg_Count => x_msg_count,
162: X_Msg_Data => x_msg_data);
163:
164: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
165: RAISE FND_API.G_EXC_ERROR;
166: END IF;
167:
168: Validate_status(
161: X_Msg_Count => x_msg_count,
162: X_Msg_Data => x_msg_data);
163:
164: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
165: RAISE FND_API.G_EXC_ERROR;
166: END IF;
167:
168: Validate_status(
169: P_Init_Msg_List => FND_API.G_FALSE,
165: RAISE FND_API.G_EXC_ERROR;
166: END IF;
167:
168: Validate_status(
169: P_Init_Msg_List => FND_API.G_FALSE,
170: P_Validation_mode => AS_UTILITY_PVT.G_CREATE,
171: P_Parent_Rule_ID => p_PROCESS_RULE_rec.PARENT_RULE_ID,
172: P_STATUS => p_PROCESS_RULE_rec.status_code,
173: X_Return_Status => x_return_status,
173: X_Return_Status => x_return_status,
174: X_Msg_Count => x_msg_count,
175: X_Msg_Data => x_msg_data);
176:
177: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
178: RAISE FND_API.G_EXC_ERROR;
179: END IF;
180:
181: -- Debug Message
174: X_Msg_Count => x_msg_count,
175: X_Msg_Data => x_msg_data);
176:
177: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
178: RAISE FND_API.G_EXC_ERROR;
179: END IF;
180:
181: -- Debug Message
182: IF (AS_DEBUG_HIGH_ON) THEN
227: ,p_ATTRIBUTE14 => p_PROCESS_RULE_rec.ATTRIBUTE14
228: ,p_ATTRIBUTE15 => p_PROCESS_RULE_rec.ATTRIBUTE15
229: );
230:
231: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
232: RAISE FND_API.G_EXC_ERROR;
233: END IF;
234:
235: --
228: ,p_ATTRIBUTE15 => p_PROCESS_RULE_rec.ATTRIBUTE15
229: );
230:
231: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
232: RAISE FND_API.G_EXC_ERROR;
233: END IF;
234:
235: --
236: -- End of API body
236: -- End of API body
237: --
238:
239: -- Standard check for p_commit
240: IF FND_API.to_Boolean( p_commit )
241: THEN
242: COMMIT WORK;
243: END IF;
244:
256: p_data => x_msg_data
257: );
258:
259: EXCEPTION
260: WHEN FND_API.G_EXC_ERROR THEN
261: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
262: P_API_NAME => L_API_NAME
263: ,P_PKG_NAME => G_PKG_NAME
264: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
266: ,X_MSG_COUNT => X_MSG_COUNT
267: ,X_MSG_DATA => X_MSG_DATA
268: ,X_RETURN_STATUS => X_RETURN_STATUS);
269:
270: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
271: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
272: P_API_NAME => L_API_NAME
273: ,P_PKG_NAME => G_PKG_NAME
274: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
293:
294: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
295: PROCEDURE Update_process_rule(
296: P_Api_Version_Number IN NUMBER,
297: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
298: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
299: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
300: P_Identity_Resource_Id IN NUMBER,
301: P_PROCESS_RULE_Rec IN PV_RULE_RECTYPE_PUB.RULES_REC_TYPE,
294: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
295: PROCEDURE Update_process_rule(
296: P_Api_Version_Number IN NUMBER,
297: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
298: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
299: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
300: P_Identity_Resource_Id IN NUMBER,
301: P_PROCESS_RULE_Rec IN PV_RULE_RECTYPE_PUB.RULES_REC_TYPE,
302: X_Return_Status OUT NOCOPY VARCHAR2,
295: PROCEDURE Update_process_rule(
296: P_Api_Version_Number IN NUMBER,
297: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
298: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
299: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
300: P_Identity_Resource_Id IN NUMBER,
301: P_PROCESS_RULE_Rec IN PV_RULE_RECTYPE_PUB.RULES_REC_TYPE,
302: X_Return_Status OUT NOCOPY VARCHAR2,
303: X_Msg_Count OUT NOCOPY NUMBER,
321: -- Standard Start of API savepoint
322: SAVEPOINT UPDATE_PROCESS_RULE_PVT;
323:
324: -- Standard call to check for call compatibility.
325: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
326: p_api_version_number,
327: l_api_name,
328: G_PKG_NAME)
329: THEN
326: p_api_version_number,
327: l_api_name,
328: G_PKG_NAME)
329: THEN
330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
331: END IF;
332:
333:
334: -- Initialize message list if p_init_msg_list is set to TRUE.
331: END IF;
332:
333:
334: -- Initialize message list if p_init_msg_list is set to TRUE.
335: IF FND_API.to_Boolean( p_init_msg_list )
336: THEN
337: FND_MSG_PUB.initialize;
338: END IF;
339:
345: END IF;
346:
347:
348: -- Initialize API return status to SUCCESS
349: x_return_status := FND_API.G_RET_STS_SUCCESS;
350:
351: --
352: -- Api body
353: --
371: FND_MESSAGE.Set_Token ('INFO', 'process_rule', FALSE);
372: FND_MSG_PUB.Add;
373: END IF;
374: Close C_Get_process_rule;
375: raise FND_API.G_EXC_ERROR;
376: END IF;
377: -- Debug Message
378: IF (AS_DEBUG_HIGH_ON) THEN
379:
381: END IF;
382: Close C_Get_process_rule;
383:
384: If (l_tar_PROCESS_RULE_rec.object_version_number is NULL or
385: l_tar_PROCESS_RULE_rec.object_version_number = FND_API.G_MISS_NUM ) Then
386: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
387: THEN
388: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
389: FND_MESSAGE.Set_Token('COLUMN', 'object_version_number', FALSE);
388: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
389: FND_MESSAGE.Set_Token('COLUMN', 'object_version_number', FALSE);
390: FND_MSG_PUB.ADD;
391: END IF;
392: raise FND_API.G_EXC_ERROR;
393: End if;
394: -- Check Whether record has been changed by someone else
395: If (l_tar_PROCESS_RULE_rec.object_version_number <> l_ref_PROCESS_RULE_rec.object_version_number) Then
396: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
398: FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
399: FND_MESSAGE.Set_Token('INFO', 'process_rule', FALSE);
400: FND_MSG_PUB.ADD;
401: END IF;
402: raise FND_API.G_EXC_ERROR;
403: End if;
404:
405: -- Debug message
406: IF (AS_DEBUG_HIGH_ON) THEN
409: END IF;
410:
411: -- Invoke validation procedures
412: Validate_process_rule(
413: p_init_msg_list => FND_API.G_FALSE,
414: p_validation_level => p_validation_level,
415: p_validation_mode => AS_UTILITY_PVT.G_UPDATE,
416: P_PROCESS_RULE_Rec => P_PROCESS_RULE_Rec,
417: x_return_status => x_return_status,
417: x_return_status => x_return_status,
418: x_msg_count => x_msg_count,
419: x_msg_data => x_msg_data);
420:
421: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
422: RAISE FND_API.G_EXC_ERROR;
423: END IF;
424:
425:
418: x_msg_count => x_msg_count,
419: x_msg_data => x_msg_data);
420:
421: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
422: RAISE FND_API.G_EXC_ERROR;
423: END IF;
424:
425:
426: Validate_rank(
423: END IF;
424:
425:
426: Validate_rank(
427: P_Init_Msg_List => FND_API.G_FALSE,
428: P_Validation_mode => AS_UTILITY_PVT.G_UPDATE,
429: P_Parent_Rule_ID => p_PROCESS_RULE_rec.PARENT_RULE_ID,
430: P_Child_Rule_ID => P_PROCESS_RULE_Rec.PROCESS_RULE_ID,
431: P_RANK => p_PROCESS_RULE_rec.rank,
432: X_Return_Status => x_return_status,
433: X_Msg_Count => x_msg_count,
434: X_Msg_Data => x_msg_data);
435:
436: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
437: RAISE FND_API.G_EXC_ERROR;
438: END IF;
439:
440:
433: X_Msg_Count => x_msg_count,
434: X_Msg_Data => x_msg_data);
435:
436: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
437: RAISE FND_API.G_EXC_ERROR;
438: END IF;
439:
440:
441: Validate_enddate(
438: END IF;
439:
440:
441: Validate_enddate(
442: P_Init_Msg_List => FND_API.G_FALSE,
443: P_Validation_mode => AS_UTILITY_PVT.G_UPDATE,
444: P_START_DATE => p_PROCESS_RULE_rec.start_date,
445: P_END_DATE => p_PROCESS_RULE_rec.end_date,
446: X_Return_Status => x_return_status,
446: X_Return_Status => x_return_status,
447: X_Msg_Count => x_msg_count,
448: X_Msg_Data => x_msg_data);
449:
450: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
451: RAISE FND_API.G_EXC_ERROR;
452: END IF;
453:
454: Validate_startdate(
447: X_Msg_Count => x_msg_count,
448: X_Msg_Data => x_msg_data);
449:
450: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
451: RAISE FND_API.G_EXC_ERROR;
452: END IF;
453:
454: Validate_startdate(
455: P_Init_Msg_List => FND_API.G_FALSE,
451: RAISE FND_API.G_EXC_ERROR;
452: END IF;
453:
454: Validate_startdate(
455: P_Init_Msg_List => FND_API.G_FALSE,
456: P_Validation_mode => AS_UTILITY_PVT.G_UPDATE,
457: P_Parent_Rule_ID => p_PROCESS_RULE_rec.PARENT_RULE_ID,
458: P_START_DATE => p_PROCESS_RULE_rec.start_date,
459: X_Return_Status => x_return_status,
459: X_Return_Status => x_return_status,
460: X_Msg_Count => x_msg_count,
461: X_Msg_Data => x_msg_data);
462:
463: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
464: RAISE FND_API.G_EXC_ERROR;
465: END IF;
466:
467: G_PROCESS_TYPE := p_PROCESS_RULE_rec.process_type;
460: X_Msg_Count => x_msg_count,
461: X_Msg_Data => x_msg_data);
462:
463: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
464: RAISE FND_API.G_EXC_ERROR;
465: END IF;
466:
467: G_PROCESS_TYPE := p_PROCESS_RULE_rec.process_type;
468: G_ACTION := 'UPDATE';
467: G_PROCESS_TYPE := p_PROCESS_RULE_rec.process_type;
468: G_ACTION := 'UPDATE';
469:
470: Validate_status(
471: P_Init_Msg_List => FND_API.G_FALSE,
472: P_Validation_mode => AS_UTILITY_PVT.G_UPDATE,
473: P_Parent_Rule_ID => p_PROCESS_RULE_rec.process_RULE_ID,
474: P_STATUS => p_PROCESS_RULE_rec.status_code,
475: X_Return_Status => x_return_status,
475: X_Return_Status => x_return_status,
476: X_Msg_Count => x_msg_count,
477: X_Msg_Data => x_msg_data);
478:
479: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
480: RAISE FND_API.G_EXC_ERROR;
481: END IF;
482:
483:
476: X_Msg_Count => x_msg_count,
477: X_Msg_Data => x_msg_data);
478:
479: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
480: RAISE FND_API.G_EXC_ERROR;
481: END IF;
482:
483:
484: -- Debug Message
491: PV_PROCESS_RULES_PKG.Update_Row(
492: p_PROCESS_RULE_ID => p_PROCESS_RULE_rec.PROCESS_RULE_ID
493: ,p_LAST_UPDATE_DATE => SYSDATE
494: ,p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID
495: ,p_CREATION_DATE => FND_API.G_MISS_DATE
496: ,p_CREATED_BY => FND_API.G_MISS_NUM
497: ,p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID
498: ,p_OBJECT_VERSION_NUMBER => p_PROCESS_RULE_rec.OBJECT_VERSION_NUMBER
499: ,p_REQUEST_ID => p_PROCESS_RULE_rec.REQUEST_ID
492: p_PROCESS_RULE_ID => p_PROCESS_RULE_rec.PROCESS_RULE_ID
493: ,p_LAST_UPDATE_DATE => SYSDATE
494: ,p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID
495: ,p_CREATION_DATE => FND_API.G_MISS_DATE
496: ,p_CREATED_BY => FND_API.G_MISS_NUM
497: ,p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID
498: ,p_OBJECT_VERSION_NUMBER => p_PROCESS_RULE_rec.OBJECT_VERSION_NUMBER
499: ,p_REQUEST_ID => p_PROCESS_RULE_rec.REQUEST_ID
500: ,p_PROGRAM_APPLICATION_ID => p_PROCESS_RULE_rec.PROGRAM_APPLICATION_ID
532: -- End of API body.
533: --
534:
535: -- Standard check for p_commit
536: IF FND_API.to_Boolean( p_commit )
537: THEN
538: COMMIT WORK;
539: END IF;
540:
552: p_data => x_msg_data
553: );
554:
555: EXCEPTION
556: WHEN FND_API.G_EXC_ERROR THEN
557: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
558: P_API_NAME => L_API_NAME
559: ,P_PKG_NAME => G_PKG_NAME
560: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
562: ,X_MSG_COUNT => X_MSG_COUNT
563: ,X_MSG_DATA => X_MSG_DATA
564: ,X_RETURN_STATUS => X_RETURN_STATUS);
565:
566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
567: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
568: P_API_NAME => L_API_NAME
569: ,P_PKG_NAME => G_PKG_NAME
570: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
593: -- The Master delete procedure may not be needed depends on different business requirements.
594: -- ----------------------------------------------------------------------------------------
595: PROCEDURE Delete_process_rule(
596: P_Api_Version_Number IN NUMBER,
597: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
598: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
599: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
600: P_Identity_Resource_Id IN NUMBER,
601: P_PROCESS_RULE_Rec IN PV_RULE_RECTYPE_PUB.RULES_REC_TYPE,
594: -- ----------------------------------------------------------------------------------------
595: PROCEDURE Delete_process_rule(
596: P_Api_Version_Number IN NUMBER,
597: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
598: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
599: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
600: P_Identity_Resource_Id IN NUMBER,
601: P_PROCESS_RULE_Rec IN PV_RULE_RECTYPE_PUB.RULES_REC_TYPE,
602: X_Return_Status OUT NOCOPY VARCHAR2,
595: PROCEDURE Delete_process_rule(
596: P_Api_Version_Number IN NUMBER,
597: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
598: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
599: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
600: P_Identity_Resource_Id IN NUMBER,
601: P_PROCESS_RULE_Rec IN PV_RULE_RECTYPE_PUB.RULES_REC_TYPE,
602: X_Return_Status OUT NOCOPY VARCHAR2,
603: X_Msg_Count OUT NOCOPY NUMBER,
695: -- Standard Start of API savepoint
696: SAVEPOINT DELETE_PROCESS_RULE_PVT;
697:
698: -- Standard call to check for call compatibility.
699: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
700: p_api_version_number,
701: l_api_name,
702: G_PKG_NAME)
703: THEN
700: p_api_version_number,
701: l_api_name,
702: G_PKG_NAME)
703: THEN
704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
705: END IF;
706:
707:
708: -- Initialize message list if p_init_msg_list is set to TRUE.
705: END IF;
706:
707:
708: -- Initialize message list if p_init_msg_list is set to TRUE.
709: IF FND_API.to_Boolean( p_init_msg_list )
710: THEN
711: FND_MSG_PUB.initialize;
712: END IF;
713:
719: END IF;
720:
721:
722: -- Initialize API return status to SUCCESS
723: x_return_status := FND_API.G_RET_STS_SUCCESS;
724:
725: --
726: -- Api body
727: --
756: FND_MESSAGE.Set_Token('PROCESS_RULE_NAME',l_process_rule_name);
757: FND_MSG_PUB.Add;
758: END IF;
759:
760: RAISE FND_API.G_EXC_ERROR;
761:
762: l_process_rule_name := null;
763:
764: end if;
787: FND_MESSAGE.Set_Token('PROCESS_RULE_NAME',l_process_rule_name);
788: FND_MSG_PUB.Add;
789: END IF;
790:
791: RAISE FND_API.G_EXC_ERROR;
792:
793: end if;
794:
795: begin
803: l_entyrout_rec.entity_routing_id := l_entity_routing_id;
804:
805: PV_entyrout_PVT.Delete_entyrout(
806: P_Api_Version_Number => 2.0,
807: P_Init_Msg_List => FND_API.G_FALSE,
808: P_Commit => p_commit,
809: P_Validation_Level => p_Validation_Level,
810: P_Identity_Resource_Id => P_Identity_Resource_Id,
811: P_ENTYROUT_Rec => l_ENTYROUT_Rec,
813: X_Msg_Count => x_msg_count,
814: X_Msg_Data => x_msg_data);
815:
816: -- Check return status from the above procedure call
817: IF x_return_status = FND_API.G_RET_STS_ERROR then
818: raise FND_API.G_EXC_ERROR;
819: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
820: raise FND_API.G_EXC_UNEXPECTED_ERROR;
821: END IF;
814: X_Msg_Data => x_msg_data);
815:
816: -- Check return status from the above procedure call
817: IF x_return_status = FND_API.G_RET_STS_ERROR then
818: raise FND_API.G_EXC_ERROR;
819: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
820: raise FND_API.G_EXC_UNEXPECTED_ERROR;
821: END IF;
822:
815:
816: -- Check return status from the above procedure call
817: IF x_return_status = FND_API.G_RET_STS_ERROR then
818: raise FND_API.G_EXC_ERROR;
819: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
820: raise FND_API.G_EXC_UNEXPECTED_ERROR;
821: END IF;
822:
823: end loop;
816: -- Check return status from the above procedure call
817: IF x_return_status = FND_API.G_RET_STS_ERROR then
818: raise FND_API.G_EXC_ERROR;
819: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
820: raise FND_API.G_EXC_UNEXPECTED_ERROR;
821: END IF;
822:
823: end loop;
824: close lc_get_entity_routing;
841:
842:
843: PV_entyattmap_PVT.Delete_entyattmap(
844: P_Api_Version_Number => 2.0,
845: P_Init_Msg_List => FND_API.G_FALSE,
846: P_Commit => p_commit,
847: P_Validation_Level => p_Validation_Level,
848: P_Identity_Resource_Id => P_Identity_Resource_Id,
849: P_ENTYATTMAP_Rec => l_ENTYATTMAP_Rec,
851: X_Msg_Count => x_msg_count,
852: X_Msg_Data => x_msg_data);
853:
854: -- Check return status from the above procedure call
855: IF x_return_status = FND_API.G_RET_STS_ERROR then
856: raise FND_API.G_EXC_ERROR;
857: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
858: raise FND_API.G_EXC_UNEXPECTED_ERROR;
859: END IF;
852: X_Msg_Data => x_msg_data);
853:
854: -- Check return status from the above procedure call
855: IF x_return_status = FND_API.G_RET_STS_ERROR then
856: raise FND_API.G_EXC_ERROR;
857: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
858: raise FND_API.G_EXC_UNEXPECTED_ERROR;
859: END IF;
860:
853:
854: -- Check return status from the above procedure call
855: IF x_return_status = FND_API.G_RET_STS_ERROR then
856: raise FND_API.G_EXC_ERROR;
857: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
858: raise FND_API.G_EXC_UNEXPECTED_ERROR;
859: END IF;
860:
861: end loop;
854: -- Check return status from the above procedure call
855: IF x_return_status = FND_API.G_RET_STS_ERROR then
856: raise FND_API.G_EXC_ERROR;
857: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
858: raise FND_API.G_EXC_UNEXPECTED_ERROR;
859: END IF;
860:
861: end loop;
862: close lc_get_attr_mapping;
878: l_selcrit_rec.selection_criteria_id := l_selection_criteria_id;
879:
880: PV_selcrit_PVT.Delete_selcrit(
881: P_Api_Version_Number => 2.0,
882: P_Init_Msg_List => FND_API.G_FALSE,
883: P_Commit => p_commit,
884: P_Validation_Level => p_Validation_Level,
885: P_Identity_Resource_Id => P_Identity_Resource_Id,
886: P_SELCRIT_Rec => l_SELCRIT_Rec,
888: X_Msg_Count => x_msg_count,
889: X_Msg_Data => x_msg_data);
890:
891: -- Check return status from the above procedure call
892: IF x_return_status = FND_API.G_RET_STS_ERROR then
893: raise FND_API.G_EXC_ERROR;
894: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
895: raise FND_API.G_EXC_UNEXPECTED_ERROR;
896: END IF;
889: X_Msg_Data => x_msg_data);
890:
891: -- Check return status from the above procedure call
892: IF x_return_status = FND_API.G_RET_STS_ERROR then
893: raise FND_API.G_EXC_ERROR;
894: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
895: raise FND_API.G_EXC_UNEXPECTED_ERROR;
896: END IF;
897:
890:
891: -- Check return status from the above procedure call
892: IF x_return_status = FND_API.G_RET_STS_ERROR then
893: raise FND_API.G_EXC_ERROR;
894: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
895: raise FND_API.G_EXC_UNEXPECTED_ERROR;
896: END IF;
897:
898: end loop;
891: -- Check return status from the above procedure call
892: IF x_return_status = FND_API.G_RET_STS_ERROR then
893: raise FND_API.G_EXC_ERROR;
894: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
895: raise FND_API.G_EXC_UNEXPECTED_ERROR;
896: END IF;
897:
898: end loop;
899: close lc_get_selcrit;
931: PV_PROCESS_RULES_PKG.Delete_Row(
932: p_PROCESS_RULE_ID => l_process_rule_id);
933:
934: -- Check return status from the above procedure call
935: IF x_return_status = FND_API.G_RET_STS_ERROR then
936: raise FND_API.G_EXC_ERROR;
937: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
938: raise FND_API.G_EXC_UNEXPECTED_ERROR;
939: END IF;
932: p_PROCESS_RULE_ID => l_process_rule_id);
933:
934: -- Check return status from the above procedure call
935: IF x_return_status = FND_API.G_RET_STS_ERROR then
936: raise FND_API.G_EXC_ERROR;
937: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
938: raise FND_API.G_EXC_UNEXPECTED_ERROR;
939: END IF;
940: end loop;
933:
934: -- Check return status from the above procedure call
935: IF x_return_status = FND_API.G_RET_STS_ERROR then
936: raise FND_API.G_EXC_ERROR;
937: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
938: raise FND_API.G_EXC_UNEXPECTED_ERROR;
939: END IF;
940: end loop;
941: close lc_get_parent_rule_id;
934: -- Check return status from the above procedure call
935: IF x_return_status = FND_API.G_RET_STS_ERROR then
936: raise FND_API.G_EXC_ERROR;
937: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
938: raise FND_API.G_EXC_UNEXPECTED_ERROR;
939: END IF;
940: end loop;
941: close lc_get_parent_rule_id;
942: exception
947:
948: -- END OF CHILD RULE DELETION
949:
950: -- Standard check for p_commit
951: IF FND_API.to_Boolean( p_commit )
952: THEN
953: COMMIT WORK;
954: END IF;
955:
967: p_data => x_msg_data
968: );
969:
970: EXCEPTION
971: WHEN FND_API.G_EXC_ERROR THEN
972: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
973: P_API_NAME => L_API_NAME
974: ,P_PKG_NAME => G_PKG_NAME
975: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
977: ,X_MSG_COUNT => X_MSG_COUNT
978: ,X_MSG_DATA => X_MSG_DATA
979: ,X_RETURN_STATUS => X_RETURN_STATUS);
980:
981: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
982: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
983: P_API_NAME => L_API_NAME
984: ,P_PKG_NAME => G_PKG_NAME
985: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1004:
1005: -- Hint: Primary key needs to be returned.
1006: PROCEDURE Copy_process_rule(
1007: P_Api_Version_Number IN NUMBER,
1008: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1009: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1010: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1011: P_Identity_Resource_Id IN NUMBER,
1012: P_PROCESS_RULE_Rec IN PV_RULE_RECTYPE_PUB.RULES_REC_TYPE
1005: -- Hint: Primary key needs to be returned.
1006: PROCEDURE Copy_process_rule(
1007: P_Api_Version_Number IN NUMBER,
1008: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1009: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1010: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1011: P_Identity_Resource_Id IN NUMBER,
1012: P_PROCESS_RULE_Rec IN PV_RULE_RECTYPE_PUB.RULES_REC_TYPE
1013: := PV_RULE_RECTYPE_PUB.G_MISS_RULES_REC,
1006: PROCEDURE Copy_process_rule(
1007: P_Api_Version_Number IN NUMBER,
1008: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1009: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1010: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1011: P_Identity_Resource_Id IN NUMBER,
1012: P_PROCESS_RULE_Rec IN PV_RULE_RECTYPE_PUB.RULES_REC_TYPE
1013: := PV_RULE_RECTYPE_PUB.G_MISS_RULES_REC,
1014: X_PROCESS_RULE_ID OUT NOCOPY NUMBER,
1076: --l_SELECT_ATTR_VALUES_rec PV_RULE_RECTYPE_PUB.SELATTVAL_REC_TYPE;
1077: --l_ENTITY_ATTR_MAPPINGS_rec PV_RULE_RECTYPE_PUB.ENTYATTMAP_REC_TYPE;
1078: --l_ENTITY_ROUTINGS_rec PV_RULE_RECTYPE_PUB.ENTYROUT_REC_TYPE;
1079: --l_api_version_number CONSTANT NUMBER := 2.0;
1080: --l_Init_Msg_List VARCHAR2(30) := FND_API.G_FALSE;
1081: --l_Commit VARCHAR2(30) := FND_API.G_FALSE;
1082: --l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1083: --L_API_NAME VARCHAR2(30) := 'PV_RULES_COPY_PUB';
1084: --l_PROCESS_RULE_ID NUMBER ;
1077: --l_ENTITY_ATTR_MAPPINGS_rec PV_RULE_RECTYPE_PUB.ENTYATTMAP_REC_TYPE;
1078: --l_ENTITY_ROUTINGS_rec PV_RULE_RECTYPE_PUB.ENTYROUT_REC_TYPE;
1079: --l_api_version_number CONSTANT NUMBER := 2.0;
1080: --l_Init_Msg_List VARCHAR2(30) := FND_API.G_FALSE;
1081: --l_Commit VARCHAR2(30) := FND_API.G_FALSE;
1082: --l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1083: --L_API_NAME VARCHAR2(30) := 'PV_RULES_COPY_PUB';
1084: --l_PROCESS_RULE_ID NUMBER ;
1085:
1078: --l_ENTITY_ROUTINGS_rec PV_RULE_RECTYPE_PUB.ENTYROUT_REC_TYPE;
1079: --l_api_version_number CONSTANT NUMBER := 2.0;
1080: --l_Init_Msg_List VARCHAR2(30) := FND_API.G_FALSE;
1081: --l_Commit VARCHAR2(30) := FND_API.G_FALSE;
1082: --l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1083: --L_API_NAME VARCHAR2(30) := 'PV_RULES_COPY_PUB';
1084: --l_PROCESS_RULE_ID NUMBER ;
1085:
1086: l_Return_Status VARCHAR2(30);
1102: -- Standard Start of API savepoint
1103: SAVEPOINT COPY_PROCESS_RULE_PVT;
1104:
1105: -- Standard call to check for call compatibility.
1106: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1107: p_api_version_number,
1108: l_api_name,
1109: G_PKG_NAME)
1110: THEN
1107: p_api_version_number,
1108: l_api_name,
1109: G_PKG_NAME)
1110: THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: END IF;
1113:
1114:
1115: -- Initialize message list if p_init_msg_list is set to TRUE.
1112: END IF;
1113:
1114:
1115: -- Initialize message list if p_init_msg_list is set to TRUE.
1116: IF FND_API.to_Boolean( p_init_msg_list )
1117: THEN
1118: FND_MSG_PUB.initialize;
1119: END IF;
1120:
1126: END IF;
1127:
1128:
1129: -- Initialize API return status to SUCCESS
1130: x_return_status := FND_API.G_RET_STS_SUCCESS;
1131:
1132: --
1133: -- API body
1134: --
1142: FND_MESSAGE.Set_Name('PV', 'UT_CANNOT_GET_PROFILE_VALUE');
1143: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1144: FND_MSG_PUB.ADD;
1145: END IF;
1146: RAISE FND_API.G_EXC_ERROR;
1147: END IF;
1148:
1149: -- Debug message
1150: IF (AS_DEBUG_HIGH_ON) THEN
1153: END IF;
1154:
1155: -- Invoke validation procedures
1156: Validate_process_rule(
1157: p_init_msg_list => FND_API.G_FALSE,
1158: p_validation_level => p_validation_level,
1159: p_validation_mode => AS_UTILITY_PVT.G_CREATE,
1160: P_PROCESS_RULE_Rec => P_PROCESS_RULE_Rec,
1161: x_return_status => x_return_status,
1161: x_return_status => x_return_status,
1162: x_msg_count => x_msg_count,
1163: x_msg_data => x_msg_data);
1164:
1165: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1166: RAISE FND_API.G_EXC_ERROR;
1167: END IF;
1168:
1169:
1162: x_msg_count => x_msg_count,
1163: x_msg_data => x_msg_data);
1164:
1165: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1166: RAISE FND_API.G_EXC_ERROR;
1167: END IF;
1168:
1169:
1170: FOR V_Get_parent_process_rules IN C_Get_parent_process_rules(P_PROCESS_RULE_Rec.Process_Rule_Id) LOOP
1293: -- End of API body
1294: --
1295:
1296: -- Standard check for p_commit
1297: IF FND_API.to_Boolean( p_commit )
1298: THEN
1299: COMMIT WORK;
1300: END IF;
1301:
1313: p_data => x_msg_data
1314: );
1315:
1316: EXCEPTION
1317: WHEN FND_API.G_EXC_ERROR THEN
1318: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1319: P_API_NAME => L_API_NAME
1320: ,P_PKG_NAME => G_PKG_NAME
1321: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1323: ,X_MSG_COUNT => X_MSG_COUNT
1324: ,X_MSG_DATA => X_MSG_DATA
1325: ,X_RETURN_STATUS => X_RETURN_STATUS);
1326:
1327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1328: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1329: P_API_NAME => L_API_NAME
1330: ,P_PKG_NAME => G_PKG_NAME
1331: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1348: End Copy_process_rule;
1349:
1350: -- Item-level validation procedures
1351: PROCEDURE Validate_PROCESS_RULE_ID (
1352: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1353: P_Validation_mode IN VARCHAR2,
1354: P_PROCESS_RULE_ID IN NUMBER,
1355: X_Return_Status OUT NOCOPY VARCHAR2,
1356: X_Msg_Count OUT NOCOPY NUMBER,
1366:
1367: BEGIN
1368:
1369: -- Initialize message list if p_init_msg_list is set to TRUE.
1370: IF FND_API.to_Boolean( p_init_msg_list )
1371: THEN
1372: FND_MSG_PUB.initialize;
1373: END IF;
1374:
1373: END IF;
1374:
1375:
1376: -- Initialize API return status to SUCCESS
1377: x_return_status := FND_API.G_RET_STS_SUCCESS;
1378:
1379: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1380: THEN
1381: IF (p_process_rule_id IS NOT NULL) AND
1378:
1379: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1380: THEN
1381: IF (p_process_rule_id IS NOT NULL) AND
1382: (p_process_rule_id <> FND_API.G_MISS_NUM)
1383: THEN
1384: OPEN C_Process_Rule_Id_Exists (p_process_rule_id);
1385: FETCH C_Process_Rule_Id_Exists into l_val;
1386:
1393: p_token1_value => 'PROCESS_RULE_ID',
1394: p_token2 => 'VALUE',
1395: p_token2_value => p_process_rule_id);
1396:
1397: x_return_status := FND_API.G_RET_STS_ERROR;
1398: END IF;
1399: CLOSE C_Process_Rule_Id_Exists ;
1400: END IF;
1401:
1402: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1403: THEN
1404: -- validate NOT NULL column
1405: IF (p_process_rule_id IS NULL) OR
1406: (p_process_rule_id = FND_API.G_MISS_NUM)
1407: THEN
1408: AS_UTILITY_PVT.Set_Message(
1409: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1410: p_msg_name => 'API_MISSING_ID',
1410: p_msg_name => 'API_MISSING_ID',
1411: p_token1 => 'COLUMN',
1412: p_token1_value => 'PROCESS_RULE_ID');
1413:
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415: ELSE
1416: OPEN C_Process_Rule_Id_Exists (p_process_rule_id);
1417: FETCH C_Process_Rule_Id_Exists into l_val;
1418:
1425: p_token1_value => 'PROCESS_RULE_ID',
1426: p_token2 => 'VALUE',
1427: p_token2_value => p_process_rule_id);
1428:
1429: x_return_status := FND_API.G_RET_STS_ERROR;
1430: END IF;
1431:
1432: CLOSE C_Process_Rule_Id_Exists;
1433: END IF;
1442: END Validate_PROCESS_RULE_ID;
1443:
1444:
1445: PROCEDURE Validate_OWNER_RESOURCE_ID (
1446: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1447: P_Validation_mode IN VARCHAR2,
1448: P_OWNER_RESOURCE_ID IN NUMBER,
1449: X_Return_Status OUT NOCOPY VARCHAR2,
1450: X_Msg_Count OUT NOCOPY NUMBER,
1459: l_val VARCHAR2(1);
1460: BEGIN
1461:
1462: -- Initialize message list if p_init_msg_list is set to TRUE.
1463: IF FND_API.to_Boolean( p_init_msg_list )
1464: THEN
1465: FND_MSG_PUB.initialize;
1466: END IF;
1467:
1466: END IF;
1467:
1468:
1469: -- Initialize API return status to SUCCESS
1470: x_return_status := FND_API.G_RET_STS_SUCCESS;
1471:
1472: -- Validate RESOURCE_ID
1473: IF (p_owner_resource_id IS NOT NULL
1474: AND p_owner_resource_id <> FND_API.G_MISS_NUM)
1470: x_return_status := FND_API.G_RET_STS_SUCCESS;
1471:
1472: -- Validate RESOURCE_ID
1473: IF (p_owner_resource_id IS NOT NULL
1474: AND p_owner_resource_id <> FND_API.G_MISS_NUM)
1475: THEN
1476: OPEN C_Check_Resource_Id (p_owner_resource_id);
1477: FETCH C_Check_Resource_Id INTO l_val;
1478: IF (C_Check_Resource_Id%NOTFOUND)
1484: p_token1_value => 'OWNER_RESOURCE_ID',
1485: p_token2 => 'VALUE',
1486: p_token2_value => p_OWNER_RESOURCE_ID );
1487:
1488: x_return_status := FND_API.G_RET_STS_ERROR;
1489: END IF;
1490: CLOSE C_Check_Resource_Id;
1491: END IF;
1492:
1499: END Validate_OWNER_RESOURCE_ID;
1500:
1501:
1502: PROCEDURE Validate_CURRENCY_CODE (
1503: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1504: P_Validation_mode IN VARCHAR2,
1505: P_CURRENCY_CODE IN VARCHAR2,
1506: X_Return_Status OUT NOCOPY VARCHAR2,
1507: X_Msg_Count OUT NOCOPY NUMBER,
1519: l_val VARCHAR2(1);
1520: BEGIN
1521:
1522: -- Initialize message list if p_init_msg_list is set to TRUE.
1523: IF FND_API.to_Boolean( p_init_msg_list )
1524: THEN
1525: FND_MSG_PUB.initialize;
1526: END IF;
1527:
1525: FND_MSG_PUB.initialize;
1526: END IF;
1527:
1528: -- Initialize API return status to SUCCESS
1529: x_return_status := FND_API.G_RET_STS_SUCCESS;
1530:
1531: -- Validate Currency Code
1532: IF (p_currency_code is NOT NULL
1533: AND p_currency_code <> FND_API.G_MISS_CHAR)
1529: x_return_status := FND_API.G_RET_STS_SUCCESS;
1530:
1531: -- Validate Currency Code
1532: IF (p_currency_code is NOT NULL
1533: AND p_currency_code <> FND_API.G_MISS_CHAR)
1534: THEN
1535: OPEN C_Currency_Exists ( p_currency_code );
1536: FETCH C_Currency_Exists into l_val;
1537: IF C_Currency_Exists%NOTFOUND THEN
1542: p_token1_value => 'CURRENCY',
1543: p_token2 => 'VALUE',
1544: p_token2_value => p_CURRENCY_CODE );
1545:
1546: x_return_status := FND_API.G_RET_STS_ERROR;
1547: END IF;
1548: CLOSE C_Currency_Exists;
1549: END IF;
1550:
1556:
1557: END Validate_CURRENCY_CODE;
1558:
1559: PROCEDURE Validate_RANK (
1560: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1561: P_Validation_mode IN VARCHAR2,
1562: P_Parent_Rule_ID IN NUMBER,
1563: P_Child_Rule_ID IN NUMBER,
1564: P_RANK IN NUMBER,
1583:
1584: BEGIN
1585:
1586: -- Initialize message list if p_init_msg_list is set to TRUE.
1587: IF FND_API.to_Boolean( p_init_msg_list )
1588: THEN
1589: FND_MSG_PUB.initialize;
1590: END IF;
1591:
1590: END IF;
1591:
1592:
1593: -- Initialize API return status to SUCCESS
1594: x_return_status := FND_API.G_RET_STS_SUCCESS;
1595:
1596: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE OR
1597: p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1598: THEN
1595:
1596: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE OR
1597: p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1598: THEN
1599: IF (p_rank IS NULL) OR (p_rank = FND_API.G_MISS_NUM) THEN
1600: AS_UTILITY_PVT.Set_Message(
1601: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1602: p_msg_name => 'API_MISSING_RANK',
1603: p_token1 => 'RANK',
1602: p_msg_name => 'API_MISSING_RANK',
1603: p_token1 => 'RANK',
1604: p_token1_value => p_rank);
1605:
1606: x_return_status := FND_API.G_RET_STS_ERROR;
1607:
1608: -- -------------------------------------------------------------------------
1609: -- Check for the duplicate criteria, which are criteria with the same rank
1610: -- (Order of Evaluation).
1617: FND_MESSAGE.Set_Name('PV', 'PV_DUPLICATE_CRITERION');
1618: FND_MSG_PUB.Add;
1619:
1620: CLOSE lc_chk_criterion_dups;
1621: RAISE FND_API.G_EXC_ERROR;
1622: END IF;
1623:
1624: -- Debug Message
1625: IF (AS_DEBUG_HIGH_ON) THEN
1639: END Validate_Rank;
1640:
1641:
1642: PROCEDURE Validate_enddate(
1643: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1644: P_Validation_mode IN VARCHAR2,
1645: P_START_DATE IN DATE,
1646: P_END_DATE IN DATE,
1647: X_Return_Status OUT NOCOPY VARCHAR2,
1651: IS
1652: l_api_name CONSTANT VARCHAR2(30) := 'Validate_end_date';
1653: BEGIN
1654: -- Initialize message list if p_init_msg_list is set to TRUE.
1655: IF FND_API.to_Boolean( p_init_msg_list )
1656: THEN
1657: FND_MSG_PUB.initialize;
1658: END IF;
1659:
1657: FND_MSG_PUB.initialize;
1658: END IF;
1659:
1660: -- Initialize API return status to SUCCESS
1661: x_return_status := FND_API.G_RET_STS_SUCCESS;
1662:
1663: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE OR
1664: p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1665: THEN
1668: IF P_END_DATE < P_START_DATE
1669: THEN
1670: FND_MESSAGE.Set_Name('PV', 'PV_END_DATE_GREATER_START_DATE');
1671: FND_MSG_PUB.Add;
1672: RAISE FND_API.G_EXC_ERROR;
1673: END IF;
1674: END IF;
1675: -- Debug Message
1676: IF (AS_DEBUG_HIGH_ON) THEN
1685: );
1686: END Validate_enddate;
1687:
1688: PROCEDURE Validate_startdate(
1689: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1690: P_Validation_mode IN VARCHAR2,
1691: P_Parent_Rule_ID IN NUMBER,
1692: P_START_DATE IN DATE,
1693: X_Return_Status OUT NOCOPY VARCHAR2,
1698: l_api_name CONSTANT VARCHAR2(30) := 'Validate_start_date';
1699:
1700: BEGIN
1701: -- Initialize message list if p_init_msg_list is set to TRUE.
1702: IF FND_API.to_Boolean( p_init_msg_list )
1703: THEN
1704: FND_MSG_PUB.initialize;
1705: END IF;
1706:
1704: FND_MSG_PUB.initialize;
1705: END IF;
1706:
1707: -- Initialize API return status to SUCCESS
1708: x_return_status := FND_API.G_RET_STS_SUCCESS;
1709:
1710: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE OR p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1711: THEN
1712: IF (P_PARENT_RULE_ID is null or P_PARENT_RULE_ID = FND_API.G_MISS_NUM) then
1708: x_return_status := FND_API.G_RET_STS_SUCCESS;
1709:
1710: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE OR p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1711: THEN
1712: IF (P_PARENT_RULE_ID is null or P_PARENT_RULE_ID = FND_API.G_MISS_NUM) then
1713: IF (P_START_DATE is null or P_START_DATE = FND_API.G_MISS_DATE) then
1714: FND_MESSAGE.Set_Name('PV', 'PV_STARTDATE_NOTNULL');
1715: FND_MSG_PUB.Add;
1716: RAISE FND_API.G_EXC_ERROR;
1709:
1710: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE OR p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1711: THEN
1712: IF (P_PARENT_RULE_ID is null or P_PARENT_RULE_ID = FND_API.G_MISS_NUM) then
1713: IF (P_START_DATE is null or P_START_DATE = FND_API.G_MISS_DATE) then
1714: FND_MESSAGE.Set_Name('PV', 'PV_STARTDATE_NOTNULL');
1715: FND_MSG_PUB.Add;
1716: RAISE FND_API.G_EXC_ERROR;
1717: END IF;
1712: IF (P_PARENT_RULE_ID is null or P_PARENT_RULE_ID = FND_API.G_MISS_NUM) then
1713: IF (P_START_DATE is null or P_START_DATE = FND_API.G_MISS_DATE) then
1714: FND_MESSAGE.Set_Name('PV', 'PV_STARTDATE_NOTNULL');
1715: FND_MSG_PUB.Add;
1716: RAISE FND_API.G_EXC_ERROR;
1717: END IF;
1718: END IF;
1719: IF (AS_DEBUG_HIGH_ON) THEN
1720: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
1730: -- ------------------------------------------------------------------------------
1731: -- Validate_status
1732: -- ------------------------------------------------------------------------------
1733: PROCEDURE Validate_status(
1734: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1735: P_Validation_mode IN VARCHAR2,
1736: P_Parent_Rule_ID IN NUMBER,
1737: P_STATUS IN VARCHAR2,
1738: X_Return_Status OUT NOCOPY VARCHAR2,
1755:
1756: BEGIN
1757:
1758: -- Initialize message list if p_init_msg_list is set to TRUE.
1759: IF FND_API.to_Boolean( p_init_msg_list )
1760: THEN
1761: FND_MSG_PUB.initialize;
1762: END IF;
1763:
1761: FND_MSG_PUB.initialize;
1762: END IF;
1763:
1764: -- Initialize API return status to SUCCESS
1765: x_return_status := FND_API.G_RET_STS_SUCCESS;
1766:
1767: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE OR p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1768: THEN
1769: IF (P_PARENT_RULE_ID is null or P_PARENT_RULE_ID = FND_API.G_MISS_NUM) then
1765: x_return_status := FND_API.G_RET_STS_SUCCESS;
1766:
1767: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE OR p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1768: THEN
1769: IF (P_PARENT_RULE_ID is null or P_PARENT_RULE_ID = FND_API.G_MISS_NUM) then
1770: IF (P_STATUS is null or P_STATUS = FND_API.G_MISS_CHAR) then
1771: FND_MESSAGE.Set_Name('PV', 'PV_STATUS_NOTNULL');
1772: FND_MSG_PUB.Add;
1773: RAISE FND_API.G_EXC_ERROR;
1766:
1767: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE OR p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1768: THEN
1769: IF (P_PARENT_RULE_ID is null or P_PARENT_RULE_ID = FND_API.G_MISS_NUM) then
1770: IF (P_STATUS is null or P_STATUS = FND_API.G_MISS_CHAR) then
1771: FND_MESSAGE.Set_Name('PV', 'PV_STATUS_NOTNULL');
1772: FND_MSG_PUB.Add;
1773: RAISE FND_API.G_EXC_ERROR;
1774: END IF;
1769: IF (P_PARENT_RULE_ID is null or P_PARENT_RULE_ID = FND_API.G_MISS_NUM) then
1770: IF (P_STATUS is null or P_STATUS = FND_API.G_MISS_CHAR) then
1771: FND_MESSAGE.Set_Name('PV', 'PV_STATUS_NOTNULL');
1772: FND_MSG_PUB.Add;
1773: RAISE FND_API.G_EXC_ERROR;
1774: END IF;
1775: END IF;
1776: IF (AS_DEBUG_HIGH_ON) THEN
1777: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
1798:
1799: IF (l_previous_status = 'ACTIVE') THEN
1800: FND_MESSAGE.Set_Name('PV', 'PV_MONITOR_RULE_ACTIVE');
1801: FND_MSG_PUB.Add;
1802: RAISE FND_API.G_EXC_ERROR;
1803: END IF;
1804:
1805: ELSIF (G_PROCESS_TYPE = 'PARTNER_MATCHING' AND G_ACTION = 'UPDATE' AND
1806: p_status <> 'ACTIVE')
1811:
1812: IF l_result IS NOT NULL THEN
1813: FND_MESSAGE.Set_Name('PV', 'PV_RULE_REF_BY_PROFILE_STATUS');
1814: FND_MSG_PUB.Add;
1815: RAISE FND_API.G_EXC_ERROR;
1816: END IF;
1817: END IF;
1818:
1819: -- Standard call to get message count and if count is 1, get message info.
1825:
1826:
1827:
1828: PROCEDURE Validate_process_rule(
1829: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1830: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1831: P_Validation_mode IN VARCHAR2,
1832: P_PROCESS_RULE_Rec IN PV_RULE_RECTYPE_PUB.RULES_REC_TYPE,
1833: X_Return_Status OUT NOCOPY VARCHAR2,
1826:
1827:
1828: PROCEDURE Validate_process_rule(
1829: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1830: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1831: P_Validation_mode IN VARCHAR2,
1832: P_PROCESS_RULE_Rec IN PV_RULE_RECTYPE_PUB.RULES_REC_TYPE,
1833: X_Return_Status OUT NOCOPY VARCHAR2,
1834: X_Msg_Count OUT NOCOPY NUMBER,
1845: END IF;
1846:
1847:
1848: -- Initialize API return status to SUCCESS
1849: x_return_status := FND_API.G_RET_STS_SUCCESS;
1850:
1851: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM) THEN
1852: -- Hint: We provide validation procedure for every column. Developer should delete
1853: -- unnecessary validation procedures.
1851: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM) THEN
1852: -- Hint: We provide validation procedure for every column. Developer should delete
1853: -- unnecessary validation procedures.
1854: Validate_PROCESS_RULE_ID(
1855: p_init_msg_list => FND_API.G_FALSE,
1856: p_validation_mode => p_validation_mode,
1857: p_PROCESS_RULE_ID => P_PROCESS_RULE_Rec.PROCESS_RULE_ID,
1858: x_return_status => x_return_status,
1859: x_msg_count => x_msg_count,
1857: p_PROCESS_RULE_ID => P_PROCESS_RULE_Rec.PROCESS_RULE_ID,
1858: x_return_status => x_return_status,
1859: x_msg_count => x_msg_count,
1860: x_msg_data => x_msg_data);
1861: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1862: raise FND_API.G_EXC_ERROR;
1863: END IF;
1864:
1865: PV_COMMON_CHECKS_PVT.Validate_OBJECT_VERSION_NUMBER(
1858: x_return_status => x_return_status,
1859: x_msg_count => x_msg_count,
1860: x_msg_data => x_msg_data);
1861: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1862: raise FND_API.G_EXC_ERROR;
1863: END IF;
1864:
1865: PV_COMMON_CHECKS_PVT.Validate_OBJECT_VERSION_NUMBER(
1866: p_init_msg_list => FND_API.G_FALSE,
1862: raise FND_API.G_EXC_ERROR;
1863: END IF;
1864:
1865: PV_COMMON_CHECKS_PVT.Validate_OBJECT_VERSION_NUMBER(
1866: p_init_msg_list => FND_API.G_FALSE,
1867: p_validation_mode => p_validation_mode,
1868: p_OBJECT_VERSION_NUMBER => P_PROCESS_RULE_Rec.OBJECT_VERSION_NUMBER,
1869: x_return_status => x_return_status,
1870: x_msg_count => x_msg_count,
1868: p_OBJECT_VERSION_NUMBER => P_PROCESS_RULE_Rec.OBJECT_VERSION_NUMBER,
1869: x_return_status => x_return_status,
1870: x_msg_count => x_msg_count,
1871: x_msg_data => x_msg_data);
1872: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1873: raise FND_API.G_EXC_ERROR;
1874: END IF;
1875:
1876: PV_COMMON_CHECKS_PVT.Validate_Lookup(
1869: x_return_status => x_return_status,
1870: x_msg_count => x_msg_count,
1871: x_msg_data => x_msg_data);
1872: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1873: raise FND_API.G_EXC_ERROR;
1874: END IF;
1875:
1876: PV_COMMON_CHECKS_PVT.Validate_Lookup(
1877: p_init_msg_list => FND_API.G_FALSE,
1873: raise FND_API.G_EXC_ERROR;
1874: END IF;
1875:
1876: PV_COMMON_CHECKS_PVT.Validate_Lookup(
1877: p_init_msg_list => FND_API.G_FALSE,
1878: p_validation_mode => p_validation_mode,
1879: p_TABLE_NAME => 'PV_PROCESS_RULES_B',
1880: p_COLUMN_NAME => 'PROCESS_TYPE',
1881: p_LOOKUP_TYPE => 'PV_PROCESS_TYPE',
1882: p_LOOKUP_CODE => P_PROCESS_RULE_Rec.PROCESS_TYPE,
1883: x_return_status => x_return_status,
1884: x_msg_count => x_msg_count,
1885: x_msg_data => x_msg_data);
1886: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1887: raise FND_API.G_EXC_ERROR;
1888: END IF;
1889:
1890: if p_PROCESS_RULE_Rec.STATUS_CODE is NOT NULL and
1883: x_return_status => x_return_status,
1884: x_msg_count => x_msg_count,
1885: x_msg_data => x_msg_data);
1886: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1887: raise FND_API.G_EXC_ERROR;
1888: END IF;
1889:
1890: if p_PROCESS_RULE_Rec.STATUS_CODE is NOT NULL and
1891: p_PROCESS_RULE_Rec.STATUS_CODE <> FND_API.G_MISS_CHAR then
1887: raise FND_API.G_EXC_ERROR;
1888: END IF;
1889:
1890: if p_PROCESS_RULE_Rec.STATUS_CODE is NOT NULL and
1891: p_PROCESS_RULE_Rec.STATUS_CODE <> FND_API.G_MISS_CHAR then
1892:
1893: PV_COMMON_CHECKS_PVT.Validate_Lookup(
1894: p_init_msg_list => FND_API.G_FALSE,
1895: p_validation_mode => p_validation_mode,
1890: if p_PROCESS_RULE_Rec.STATUS_CODE is NOT NULL and
1891: p_PROCESS_RULE_Rec.STATUS_CODE <> FND_API.G_MISS_CHAR then
1892:
1893: PV_COMMON_CHECKS_PVT.Validate_Lookup(
1894: p_init_msg_list => FND_API.G_FALSE,
1895: p_validation_mode => p_validation_mode,
1896: p_TABLE_NAME => 'PV_PROCESS_RULES_B',
1897: p_COLUMN_NAME => 'STATUS_CODE',
1898: p_LOOKUP_TYPE => 'PV_RULE_STATUS_CODE',
1899: p_LOOKUP_CODE => P_PROCESS_RULE_Rec.STATUS_CODE,
1900: x_return_status => x_return_status,
1901: x_msg_count => x_msg_count,
1902: x_msg_data => x_msg_data);
1903: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1904: raise FND_API.G_EXC_ERROR;
1905: END IF;
1906:
1907: end if;
1900: x_return_status => x_return_status,
1901: x_msg_count => x_msg_count,
1902: x_msg_data => x_msg_data);
1903: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1904: raise FND_API.G_EXC_ERROR;
1905: END IF;
1906:
1907: end if;
1908:
1906:
1907: end if;
1908:
1909: Validate_OWNER_RESOURCE_ID(
1910: p_init_msg_list => FND_API.G_FALSE,
1911: p_validation_mode => p_validation_mode,
1912: p_OWNER_RESOURCE_ID => P_PROCESS_RULE_Rec.OWNER_RESOURCE_ID,
1913: x_return_status => x_return_status,
1914: x_msg_count => x_msg_count,
1912: p_OWNER_RESOURCE_ID => P_PROCESS_RULE_Rec.OWNER_RESOURCE_ID,
1913: x_return_status => x_return_status,
1914: x_msg_count => x_msg_count,
1915: x_msg_data => x_msg_data);
1916: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1917: raise FND_API.G_EXC_ERROR;
1918: END IF;
1919:
1920: Validate_CURRENCY_CODE(
1913: x_return_status => x_return_status,
1914: x_msg_count => x_msg_count,
1915: x_msg_data => x_msg_data);
1916: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1917: raise FND_API.G_EXC_ERROR;
1918: END IF;
1919:
1920: Validate_CURRENCY_CODE(
1921: p_init_msg_list => FND_API.G_FALSE,
1917: raise FND_API.G_EXC_ERROR;
1918: END IF;
1919:
1920: Validate_CURRENCY_CODE(
1921: p_init_msg_list => FND_API.G_FALSE,
1922: p_validation_mode => p_validation_mode,
1923: p_CURRENCY_CODE => P_PROCESS_RULE_Rec.CURRENCY_CODE,
1924: x_return_status => x_return_status,
1925: x_msg_count => x_msg_count,
1923: p_CURRENCY_CODE => P_PROCESS_RULE_Rec.CURRENCY_CODE,
1924: x_return_status => x_return_status,
1925: x_msg_count => x_msg_count,
1926: x_msg_data => x_msg_data);
1927: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1928: raise FND_API.G_EXC_ERROR;
1929: END IF;
1930:
1931: /*
1924: x_return_status => x_return_status,
1925: x_msg_count => x_msg_count,
1926: x_msg_data => x_msg_data);
1927: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1928: raise FND_API.G_EXC_ERROR;
1929: END IF;
1930:
1931: /*
1932: Validate_RANK(
1929: END IF;
1930:
1931: /*
1932: Validate_RANK(
1933: p_init_msg_list => FND_API.G_FALSE,
1934: p_validation_mode => p_validation_mode,
1935: P_Parent_Rule_ID => p_PROCESS_RULE_rec.PARENT_RULE_ID,
1936: P_Child_Rule_ID => p_CHILD_RULE_ID,
1937: p_RANK => P_PROCESS_RULE_Rec.RANK,
1938: x_return_status => x_return_status,
1939: x_msg_count => x_msg_count,
1940: x_msg_data => x_msg_data);
1941:
1942: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1943: raise FND_API.G_EXC_ERROR;
1944: END IF;
1945: */
1946: END IF;
1939: x_msg_count => x_msg_count,
1940: x_msg_data => x_msg_data);
1941:
1942: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1943: raise FND_API.G_EXC_ERROR;
1944: END IF;
1945: */
1946: END IF;
1947: