[Home] [Help]
47: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
48:
49: PROCEDURE Create_Ct_Rule(
50: p_api_version_number IN NUMBER,
51: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
52: p_commit IN VARCHAR2 := FND_API.G_FALSE,
53: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
54:
55: x_return_status OUT NOCOPY VARCHAR2,
48:
49: PROCEDURE Create_Ct_Rule(
50: p_api_version_number IN NUMBER,
51: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
52: p_commit IN VARCHAR2 := FND_API.G_FALSE,
53: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
54:
55: x_return_status OUT NOCOPY VARCHAR2,
56: x_msg_count OUT NOCOPY NUMBER,
49: PROCEDURE Create_Ct_Rule(
50: p_api_version_number IN NUMBER,
51: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
52: p_commit IN VARCHAR2 := FND_API.G_FALSE,
53: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
54:
55: x_return_status OUT NOCOPY VARCHAR2,
56: x_msg_count OUT NOCOPY NUMBER,
57: x_msg_data OUT NOCOPY VARCHAR2,
64: L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Ct_Rule';
65: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
66: l_return_status_full VARCHAR2(1);
67: l_object_version_number NUMBER := 1;
68: l_org_id NUMBER := FND_API.G_MISS_NUM;
69: l_CONTENT_RULE_ID NUMBER;
70: l_dummy NUMBER;
71:
72: CURSOR c_id IS
82: -- Standard Start of API savepoint
83: SAVEPOINT CREATE_Ct_Rule_PVT;
84:
85: -- Standard call to check for call compatibility.
86: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
87: p_api_version_number,
88: l_api_name,
89: G_PKG_NAME)
90: THEN
87: p_api_version_number,
88: l_api_name,
89: G_PKG_NAME)
90: THEN
91: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
92: END IF;
93:
94: -- Initialize message list if p_init_msg_list is set to TRUE.
95: IF FND_API.to_Boolean( p_init_msg_list )
91: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
92: END IF;
93:
94: -- Initialize message list if p_init_msg_list is set to TRUE.
95: IF FND_API.to_Boolean( p_init_msg_list )
96: THEN
97: FND_MSG_PUB.initialize;
98: END IF;
99:
104: END IF;
105:
106:
107: -- Initialize API return status to SUCCESS
108: x_return_status := FND_API.G_RET_STS_SUCCESS;
109:
110: -- Local variable initialization
111:
112: IF p_ct_rule_rec.CONTENT_RULE_ID IS NULL OR p_ct_rule_rec.CONTENT_RULE_ID = FND_API.g_miss_num THEN
108: x_return_status := FND_API.G_RET_STS_SUCCESS;
109:
110: -- Local variable initialization
111:
112: IF p_ct_rule_rec.CONTENT_RULE_ID IS NULL OR p_ct_rule_rec.CONTENT_RULE_ID = FND_API.g_miss_num THEN
113: LOOP
114: l_dummy := NULL;
115: OPEN c_id;
116: FETCH c_id INTO l_CONTENT_RULE_ID;
127: -- Validate Environment
128: IF FND_GLOBAL.User_Id IS NULL
129: THEN
130: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
131: RAISE FND_API.G_EXC_ERROR;
132: END IF;
133:
134: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
135: THEN
130: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
131: RAISE FND_API.G_EXC_ERROR;
132: END IF;
133:
134: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
135: THEN
136: -- Debug message
137: IF (AMS_DEBUG_HIGH_ON) THEN
138:
141:
142: -- Invoke validation procedures
143: Validate_ct_rule(
144: p_api_version_number => 1.0,
145: p_init_msg_list => FND_API.G_FALSE,
146: p_validation_level => p_validation_level,
147: p_validation_mode => JTF_PLSQL_API.g_create,
148: p_ct_rule_rec => p_ct_rule_rec,
149: x_return_status => x_return_status,
150: x_msg_count => x_msg_count,
151: x_msg_data => x_msg_data);
152: END IF;
153:
154: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
155: RAISE FND_API.G_EXC_ERROR;
156: END IF;
157:
158:
151: x_msg_data => x_msg_data);
152: END IF;
153:
154: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
155: RAISE FND_API.G_EXC_ERROR;
156: END IF;
157:
158:
159: -- Debug Message
185: p_delivery_mode => p_ct_rule_rec.delivery_mode
186: );
187:
188: x_content_rule_id := l_content_rule_id;
189: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
190: RAISE FND_API.G_EXC_ERROR;
191: END IF;
192: --
193: -- End of API body
186: );
187:
188: x_content_rule_id := l_content_rule_id;
189: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
190: RAISE FND_API.G_EXC_ERROR;
191: END IF;
192: --
193: -- End of API body
194: --
193: -- End of API body
194: --
195:
196: -- Standard check for p_commit
197: IF FND_API.to_Boolean( p_commit )
198: THEN
199: COMMIT WORK;
200: END IF;
201:
213: );
214: EXCEPTION
215:
216: WHEN AMS_Utility_PVT.resource_locked THEN
217: x_return_status := FND_API.g_ret_sts_error;
218: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
219:
220: WHEN FND_API.G_EXC_ERROR THEN
221: ROLLBACK TO CREATE_Ct_Rule_PVT;
216: WHEN AMS_Utility_PVT.resource_locked THEN
217: x_return_status := FND_API.g_ret_sts_error;
218: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
219:
220: WHEN FND_API.G_EXC_ERROR THEN
221: ROLLBACK TO CREATE_Ct_Rule_PVT;
222: x_return_status := FND_API.G_RET_STS_ERROR;
223: -- Standard call to get message count and if count=1, get the message
224: FND_MSG_PUB.Count_And_Get (
218: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
219:
220: WHEN FND_API.G_EXC_ERROR THEN
221: ROLLBACK TO CREATE_Ct_Rule_PVT;
222: x_return_status := FND_API.G_RET_STS_ERROR;
223: -- Standard call to get message count and if count=1, get the message
224: FND_MSG_PUB.Count_And_Get (
225: p_encoded => FND_API.G_FALSE,
226: p_count => x_msg_count,
221: ROLLBACK TO CREATE_Ct_Rule_PVT;
222: x_return_status := FND_API.G_RET_STS_ERROR;
223: -- Standard call to get message count and if count=1, get the message
224: FND_MSG_PUB.Count_And_Get (
225: p_encoded => FND_API.G_FALSE,
226: p_count => x_msg_count,
227: p_data => x_msg_data
228: );
229:
226: p_count => x_msg_count,
227: p_data => x_msg_data
228: );
229:
230: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
231: ROLLBACK TO CREATE_Ct_Rule_PVT;
232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
233: -- Standard call to get message count and if count=1, get the message
234: FND_MSG_PUB.Count_And_Get (
228: );
229:
230: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
231: ROLLBACK TO CREATE_Ct_Rule_PVT;
232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
233: -- Standard call to get message count and if count=1, get the message
234: FND_MSG_PUB.Count_And_Get (
235: p_encoded => FND_API.G_FALSE,
236: p_count => x_msg_count,
231: ROLLBACK TO CREATE_Ct_Rule_PVT;
232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
233: -- Standard call to get message count and if count=1, get the message
234: FND_MSG_PUB.Count_And_Get (
235: p_encoded => FND_API.G_FALSE,
236: p_count => x_msg_count,
237: p_data => x_msg_data
238: );
239:
238: );
239:
240: WHEN OTHERS THEN
241: ROLLBACK TO CREATE_Ct_Rule_PVT;
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
244: THEN
245: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
246: END IF;
245: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
246: END IF;
247: -- Standard call to get message count and if count=1, get the message
248: FND_MSG_PUB.Count_And_Get (
249: p_encoded => FND_API.G_FALSE,
250: p_count => x_msg_count,
251: p_data => x_msg_data
252: );
253: End Create_Ct_Rule;
269:
270:
271: PROCEDURE Update_Ct_Rule(
272: p_api_version_number IN NUMBER,
273: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
274: p_commit IN VARCHAR2 := FND_API.G_FALSE,
275: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
276:
277: x_return_status OUT NOCOPY VARCHAR2,
270:
271: PROCEDURE Update_Ct_Rule(
272: p_api_version_number IN NUMBER,
273: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
274: p_commit IN VARCHAR2 := FND_API.G_FALSE,
275: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
276:
277: x_return_status OUT NOCOPY VARCHAR2,
278: x_msg_count OUT NOCOPY NUMBER,
271: PROCEDURE Update_Ct_Rule(
272: p_api_version_number IN NUMBER,
273: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
274: p_commit IN VARCHAR2 := FND_API.G_FALSE,
275: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
276:
277: x_return_status OUT NOCOPY VARCHAR2,
278: x_msg_count OUT NOCOPY NUMBER,
279: x_msg_data OUT NOCOPY VARCHAR2,
302: -- Standard Start of API savepoint
303: SAVEPOINT UPDATE_Ct_Rule_PVT;
304:
305: -- Standard call to check for call compatibility.
306: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
307: p_api_version_number,
308: l_api_name,
309: G_PKG_NAME)
310: THEN
307: p_api_version_number,
308: l_api_name,
309: G_PKG_NAME)
310: THEN
311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
312: END IF;
313:
314: -- Initialize message list if p_init_msg_list is set to TRUE.
315: IF FND_API.to_Boolean( p_init_msg_list )
311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
312: END IF;
313:
314: -- Initialize message list if p_init_msg_list is set to TRUE.
315: IF FND_API.to_Boolean( p_init_msg_list )
316: THEN
317: FND_MSG_PUB.initialize;
318: END IF;
319:
324: END IF;
325:
326:
327: -- Initialize API return status to SUCCESS
328: x_return_status := FND_API.G_RET_STS_SUCCESS;
329:
330: -- Debug Message
331: IF (AMS_DEBUG_HIGH_ON) THEN
332:
341: If ( c_get_Ct_Rule%NOTFOUND) THEN
342: AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
343: p_token_name => 'INFO',
344: p_token_value => 'Ct_Rule') ;
345: RAISE FND_API.G_EXC_ERROR;
346: END IF;
347: -- Debug Message
348: IF (AMS_DEBUG_HIGH_ON) THEN
349:
353: */
354:
355:
356: If (l_tar_ct_rule_rec.object_version_number is NULL or
357: l_tar_ct_rule_rec.object_version_number = FND_API.G_MISS_NUM ) Then
358: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
359: p_token_name => 'COLUMN',
360: p_token_value => 'Last_Update_Date') ;
361: raise FND_API.G_EXC_ERROR;
357: l_tar_ct_rule_rec.object_version_number = FND_API.G_MISS_NUM ) Then
358: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
359: p_token_name => 'COLUMN',
360: p_token_value => 'Last_Update_Date') ;
361: raise FND_API.G_EXC_ERROR;
362: End if;
363: -- Check Whether record has been changed by someone else
364: If (l_tar_ct_rule_rec.object_version_number <> l_ref_ct_rule_rec.object_version_number) Then
365: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
364: If (l_tar_ct_rule_rec.object_version_number <> l_ref_ct_rule_rec.object_version_number) Then
365: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
366: p_token_name => 'INFO',
367: p_token_value => 'Ct_Rule') ;
368: raise FND_API.G_EXC_ERROR;
369: End if;
370: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
371: THEN
372: -- Debug message
366: p_token_name => 'INFO',
367: p_token_value => 'Ct_Rule') ;
368: raise FND_API.G_EXC_ERROR;
369: End if;
370: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
371: THEN
372: -- Debug message
373: IF (AMS_DEBUG_HIGH_ON) THEN
374:
377:
378: -- Invoke validation procedures
379: Validate_ct_rule(
380: p_api_version_number => 1.0,
381: p_init_msg_list => FND_API.G_FALSE,
382: p_validation_level => p_validation_level,
383: p_validation_mode => JTF_PLSQL_API.g_update,
384: p_ct_rule_rec => p_ct_rule_rec,
385: x_return_status => x_return_status,
386: x_msg_count => x_msg_count,
387: x_msg_data => x_msg_data);
388: END IF;
389:
390: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
391: RAISE FND_API.G_EXC_ERROR;
392: END IF;
393:
394:
387: x_msg_data => x_msg_data);
388: END IF;
389:
390: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
391: RAISE FND_API.G_EXC_ERROR;
392: END IF;
393:
394:
395: -- Debug Message
428: -- End of API body.
429: --
430:
431: -- Standard check for p_commit
432: IF FND_API.to_Boolean( p_commit )
433: THEN
434: COMMIT WORK;
435: END IF;
436:
448: );
449: EXCEPTION
450:
451: WHEN AMS_Utility_PVT.resource_locked THEN
452: x_return_status := FND_API.g_ret_sts_error;
453: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
454:
455: WHEN FND_API.G_EXC_ERROR THEN
456: ROLLBACK TO UPDATE_Ct_Rule_PVT;
451: WHEN AMS_Utility_PVT.resource_locked THEN
452: x_return_status := FND_API.g_ret_sts_error;
453: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
454:
455: WHEN FND_API.G_EXC_ERROR THEN
456: ROLLBACK TO UPDATE_Ct_Rule_PVT;
457: x_return_status := FND_API.G_RET_STS_ERROR;
458: -- Standard call to get message count and if count=1, get the message
459: FND_MSG_PUB.Count_And_Get (
453: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
454:
455: WHEN FND_API.G_EXC_ERROR THEN
456: ROLLBACK TO UPDATE_Ct_Rule_PVT;
457: x_return_status := FND_API.G_RET_STS_ERROR;
458: -- Standard call to get message count and if count=1, get the message
459: FND_MSG_PUB.Count_And_Get (
460: p_encoded => FND_API.G_FALSE,
461: p_count => x_msg_count,
456: ROLLBACK TO UPDATE_Ct_Rule_PVT;
457: x_return_status := FND_API.G_RET_STS_ERROR;
458: -- Standard call to get message count and if count=1, get the message
459: FND_MSG_PUB.Count_And_Get (
460: p_encoded => FND_API.G_FALSE,
461: p_count => x_msg_count,
462: p_data => x_msg_data
463: );
464:
461: p_count => x_msg_count,
462: p_data => x_msg_data
463: );
464:
465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
466: ROLLBACK TO UPDATE_Ct_Rule_PVT;
467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
468: -- Standard call to get message count and if count=1, get the message
469: FND_MSG_PUB.Count_And_Get (
463: );
464:
465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
466: ROLLBACK TO UPDATE_Ct_Rule_PVT;
467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
468: -- Standard call to get message count and if count=1, get the message
469: FND_MSG_PUB.Count_And_Get (
470: p_encoded => FND_API.G_FALSE,
471: p_count => x_msg_count,
466: ROLLBACK TO UPDATE_Ct_Rule_PVT;
467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
468: -- Standard call to get message count and if count=1, get the message
469: FND_MSG_PUB.Count_And_Get (
470: p_encoded => FND_API.G_FALSE,
471: p_count => x_msg_count,
472: p_data => x_msg_data
473: );
474:
473: );
474:
475: WHEN OTHERS THEN
476: ROLLBACK TO UPDATE_Ct_Rule_PVT;
477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
478: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
479: THEN
480: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
481: END IF;
480: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
481: END IF;
482: -- Standard call to get message count and if count=1, get the message
483: FND_MSG_PUB.Count_And_Get (
484: p_encoded => FND_API.G_FALSE,
485: p_count => x_msg_count,
486: p_data => x_msg_data
487: );
488: End Update_Ct_Rule;
503:
504:
505: PROCEDURE Delete_Ct_Rule(
506: p_api_version_number IN NUMBER,
507: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
508: p_commit IN VARCHAR2 := FND_API.G_FALSE,
509: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
510: x_return_status OUT NOCOPY VARCHAR2,
511: x_msg_count OUT NOCOPY NUMBER,
504:
505: PROCEDURE Delete_Ct_Rule(
506: p_api_version_number IN NUMBER,
507: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
508: p_commit IN VARCHAR2 := FND_API.G_FALSE,
509: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
510: x_return_status OUT NOCOPY VARCHAR2,
511: x_msg_count OUT NOCOPY NUMBER,
512: x_msg_data OUT NOCOPY VARCHAR2,
505: PROCEDURE Delete_Ct_Rule(
506: p_api_version_number IN NUMBER,
507: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
508: p_commit IN VARCHAR2 := FND_API.G_FALSE,
509: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
510: x_return_status OUT NOCOPY VARCHAR2,
511: x_msg_count OUT NOCOPY NUMBER,
512: x_msg_data OUT NOCOPY VARCHAR2,
513: p_content_rule_id IN NUMBER,
523: -- Standard Start of API savepoint
524: SAVEPOINT DELETE_Ct_Rule_PVT;
525:
526: -- Standard call to check for call compatibility.
527: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
528: p_api_version_number,
529: l_api_name,
530: G_PKG_NAME)
531: THEN
528: p_api_version_number,
529: l_api_name,
530: G_PKG_NAME)
531: THEN
532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
533: END IF;
534:
535: -- Initialize message list if p_init_msg_list is set to TRUE.
536: IF FND_API.to_Boolean( p_init_msg_list )
532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
533: END IF;
534:
535: -- Initialize message list if p_init_msg_list is set to TRUE.
536: IF FND_API.to_Boolean( p_init_msg_list )
537: THEN
538: FND_MSG_PUB.initialize;
539: END IF;
540:
545: END IF;
546:
547:
548: -- Initialize API return status to SUCCESS
549: x_return_status := FND_API.G_RET_STS_SUCCESS;
550:
551: --
552: -- Api body
553: --
564: -- End of API body
565: --
566:
567: -- Standard check for p_commit
568: IF FND_API.to_Boolean( p_commit )
569: THEN
570: COMMIT WORK;
571: END IF;
572:
584: );
585: EXCEPTION
586:
587: WHEN AMS_Utility_PVT.resource_locked THEN
588: x_return_status := FND_API.g_ret_sts_error;
589: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
590:
591: WHEN FND_API.G_EXC_ERROR THEN
592: ROLLBACK TO DELETE_Ct_Rule_PVT;
587: WHEN AMS_Utility_PVT.resource_locked THEN
588: x_return_status := FND_API.g_ret_sts_error;
589: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
590:
591: WHEN FND_API.G_EXC_ERROR THEN
592: ROLLBACK TO DELETE_Ct_Rule_PVT;
593: x_return_status := FND_API.G_RET_STS_ERROR;
594: -- Standard call to get message count and if count=1, get the message
595: FND_MSG_PUB.Count_And_Get (
589: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
590:
591: WHEN FND_API.G_EXC_ERROR THEN
592: ROLLBACK TO DELETE_Ct_Rule_PVT;
593: x_return_status := FND_API.G_RET_STS_ERROR;
594: -- Standard call to get message count and if count=1, get the message
595: FND_MSG_PUB.Count_And_Get (
596: p_encoded => FND_API.G_FALSE,
597: p_count => x_msg_count,
592: ROLLBACK TO DELETE_Ct_Rule_PVT;
593: x_return_status := FND_API.G_RET_STS_ERROR;
594: -- Standard call to get message count and if count=1, get the message
595: FND_MSG_PUB.Count_And_Get (
596: p_encoded => FND_API.G_FALSE,
597: p_count => x_msg_count,
598: p_data => x_msg_data
599: );
600:
597: p_count => x_msg_count,
598: p_data => x_msg_data
599: );
600:
601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
602: ROLLBACK TO DELETE_Ct_Rule_PVT;
603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
604: -- Standard call to get message count and if count=1, get the message
605: FND_MSG_PUB.Count_And_Get (
599: );
600:
601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
602: ROLLBACK TO DELETE_Ct_Rule_PVT;
603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
604: -- Standard call to get message count and if count=1, get the message
605: FND_MSG_PUB.Count_And_Get (
606: p_encoded => FND_API.G_FALSE,
607: p_count => x_msg_count,
602: ROLLBACK TO DELETE_Ct_Rule_PVT;
603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
604: -- Standard call to get message count and if count=1, get the message
605: FND_MSG_PUB.Count_And_Get (
606: p_encoded => FND_API.G_FALSE,
607: p_count => x_msg_count,
608: p_data => x_msg_data
609: );
610:
609: );
610:
611: WHEN OTHERS THEN
612: ROLLBACK TO DELETE_Ct_Rule_PVT;
613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
614: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
615: THEN
616: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
617: END IF;
616: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
617: END IF;
618: -- Standard call to get message count and if count=1, get the message
619: FND_MSG_PUB.Count_And_Get (
620: p_encoded => FND_API.G_FALSE,
621: p_count => x_msg_count,
622: p_data => x_msg_data
623: );
624: End Delete_Ct_Rule;
640:
641:
642: PROCEDURE Lock_Ct_Rule(
643: p_api_version_number IN NUMBER,
644: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
645:
646: x_return_status OUT NOCOPY VARCHAR2,
647: x_msg_count OUT NOCOPY NUMBER,
648: x_msg_data OUT NOCOPY VARCHAR2,
672: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
673: END IF;
674:
675: -- Initialize message list if p_init_msg_list is set to TRUE.
676: IF FND_API.to_Boolean( p_init_msg_list )
677: THEN
678: FND_MSG_PUB.initialize;
679: END IF;
680:
678: FND_MSG_PUB.initialize;
679: END IF;
680:
681: -- Standard call to check for call compatibility.
682: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
683: p_api_version_number,
684: l_api_name,
685: G_PKG_NAME)
686: THEN
683: p_api_version_number,
684: l_api_name,
685: G_PKG_NAME)
686: THEN
687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
688: END IF;
689:
690:
691: -- Initialize API return status to SUCCESS
688: END IF;
689:
690:
691: -- Initialize API return status to SUCCESS
692: x_return_status := FND_API.G_RET_STS_SUCCESS;
693:
694:
695: ------------------------ lock -------------------------
696:
710: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
711: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
712: FND_MSG_PUB.add;
713: END IF;
714: RAISE FND_API.g_exc_error;
715: END IF;
716:
717: CLOSE c_Ct_Rule;
718:
717: CLOSE c_Ct_Rule;
718:
719: -------------------- finish --------------------------
720: FND_MSG_PUB.count_and_get(
721: p_encoded => FND_API.g_false,
722: p_count => x_msg_count,
723: p_data => x_msg_data);
724: IF (AMS_DEBUG_HIGH_ON) THEN
725:
727: END IF;
728: EXCEPTION
729:
730: WHEN AMS_Utility_PVT.resource_locked THEN
731: x_return_status := FND_API.g_ret_sts_error;
732: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
733:
734: WHEN FND_API.G_EXC_ERROR THEN
735: ROLLBACK TO LOCK_Ct_Rule_PVT;
730: WHEN AMS_Utility_PVT.resource_locked THEN
731: x_return_status := FND_API.g_ret_sts_error;
732: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
733:
734: WHEN FND_API.G_EXC_ERROR THEN
735: ROLLBACK TO LOCK_Ct_Rule_PVT;
736: x_return_status := FND_API.G_RET_STS_ERROR;
737: -- Standard call to get message count and if count=1, get the message
738: FND_MSG_PUB.Count_And_Get (
732: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
733:
734: WHEN FND_API.G_EXC_ERROR THEN
735: ROLLBACK TO LOCK_Ct_Rule_PVT;
736: x_return_status := FND_API.G_RET_STS_ERROR;
737: -- Standard call to get message count and if count=1, get the message
738: FND_MSG_PUB.Count_And_Get (
739: p_encoded => FND_API.G_FALSE,
740: p_count => x_msg_count,
735: ROLLBACK TO LOCK_Ct_Rule_PVT;
736: x_return_status := FND_API.G_RET_STS_ERROR;
737: -- Standard call to get message count and if count=1, get the message
738: FND_MSG_PUB.Count_And_Get (
739: p_encoded => FND_API.G_FALSE,
740: p_count => x_msg_count,
741: p_data => x_msg_data
742: );
743:
740: p_count => x_msg_count,
741: p_data => x_msg_data
742: );
743:
744: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
745: ROLLBACK TO LOCK_Ct_Rule_PVT;
746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
747: -- Standard call to get message count and if count=1, get the message
748: FND_MSG_PUB.Count_And_Get (
742: );
743:
744: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
745: ROLLBACK TO LOCK_Ct_Rule_PVT;
746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
747: -- Standard call to get message count and if count=1, get the message
748: FND_MSG_PUB.Count_And_Get (
749: p_encoded => FND_API.G_FALSE,
750: p_count => x_msg_count,
745: ROLLBACK TO LOCK_Ct_Rule_PVT;
746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
747: -- Standard call to get message count and if count=1, get the message
748: FND_MSG_PUB.Count_And_Get (
749: p_encoded => FND_API.G_FALSE,
750: p_count => x_msg_count,
751: p_data => x_msg_data
752: );
753:
752: );
753:
754: WHEN OTHERS THEN
755: ROLLBACK TO LOCK_Ct_Rule_PVT;
756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
757: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
758: THEN
759: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
760: END IF;
759: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
760: END IF;
761: -- Standard call to get message count and if count=1, get the message
762: FND_MSG_PUB.Count_And_Get (
763: p_encoded => FND_API.G_FALSE,
764: p_count => x_msg_count,
765: p_data => x_msg_data
766: );
767: End Lock_Ct_Rule;
838: IF (AMS_DEBUG_HIGH_ON) THEN
839:
840: AMS_UTILITY_PVT.debug_message(G_PKG_NAME||' Private API: check_rule_unique : did not find anything');
841: END IF;
842: RETURN FND_API.g_true ;
843: ELSE
844: IF (AMS_DEBUG_HIGH_ON) THEN
845:
846: AMS_UTILITY_PVT.debug_message(G_PKG_NAME||' Private API: check_rule_unique : found something');
844: IF (AMS_DEBUG_HIGH_ON) THEN
845:
846: AMS_UTILITY_PVT.debug_message(G_PKG_NAME||' Private API: check_rule_unique : found something');
847: END IF;
848: RETURN FND_API.g_false;
849: END IF;
850:
851: END check_rule_unique ;
852:
878:
879: AMS_UTILITY_PVT.debug_message(G_PKG_NAME||' Private API: check_ct_rule_uk_items start');
880: END IF;
881:
882: x_return_status := FND_API.g_ret_sts_success;
883: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
884: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
885: 'AMS_CONTENT_RULES_B',
886: 'CONTENT_RULE_ID = ''' || p_ct_rule_rec.CONTENT_RULE_ID ||''''
918: 'AMS_CONTENT_RULES_B',
919: l_sql
920: );
921:
922: IF l_valid_flag = FND_API.g_false
923: */
924: IF FND_API.G_FALSE = check_rule_unique(
925: p_ct_rule_rec.object_type
926: , p_ct_rule_rec.trigger_code
920: );
921:
922: IF l_valid_flag = FND_API.g_false
923: */
924: IF FND_API.G_FALSE = check_rule_unique(
925: p_ct_rule_rec.object_type
926: , p_ct_rule_rec.trigger_code
927: , p_ct_rule_rec.object_id
928: , p_ct_rule_rec.enabled_flag
928: , p_ct_rule_rec.enabled_flag
929: )
930: THEN
931: AMS_Utility_PVT.Error_Message('AMS_CONR_ONLY_ONE');
932: x_return_status := FND_API.g_ret_sts_error;
933: RAISE FND_API.g_exc_error;
934: END IF ;
935: END IF;
936: IF (AMS_DEBUG_HIGH_ON) THEN
929: )
930: THEN
931: AMS_Utility_PVT.Error_Message('AMS_CONR_ONLY_ONE');
932: x_return_status := FND_API.g_ret_sts_error;
933: RAISE FND_API.g_exc_error;
934: END IF ;
935: END IF;
936: IF (AMS_DEBUG_HIGH_ON) THEN
937:
937:
938: AMS_UTILITY_PVT.debug_message(G_PKG_NAME||' Private API: check_ct_rule_uk_items after unique check');
939: END IF;
940:
941: IF l_valid_flag = FND_API.g_false THEN
942: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_CONTENT_RULE_ID_DUPLICATE');
943: x_return_status := FND_API.g_ret_sts_error;
944: RETURN;
945: END IF;
939: END IF;
940:
941: IF l_valid_flag = FND_API.g_false THEN
942: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_CONTENT_RULE_ID_DUPLICATE');
943: x_return_status := FND_API.g_ret_sts_error;
944: RETURN;
945: END IF;
946:
947: END check_ct_rule_uk_items;
970: x_return_status OUT NOCOPY VARCHAR2
971: )
972: IS
973: BEGIN
974: x_return_status := FND_API.g_ret_sts_success;
975: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
976:
977:
978: IF p_ct_rule_rec.object_type = FND_API.g_miss_char OR p_ct_rule_rec.object_type IS NULL THEN
974: x_return_status := FND_API.g_ret_sts_success;
975: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
976:
977:
978: IF p_ct_rule_rec.object_type = FND_API.g_miss_char OR p_ct_rule_rec.object_type IS NULL THEN
979: FND_MESSAGE.set_name('AMS', 'AMS_NO_OBJECT_TYPE');
980: FND_MSG_PUB.Add;
981: x_return_status := FND_API.g_ret_sts_error;
982: RETURN;
977:
978: IF p_ct_rule_rec.object_type = FND_API.g_miss_char OR p_ct_rule_rec.object_type IS NULL THEN
979: FND_MESSAGE.set_name('AMS', 'AMS_NO_OBJECT_TYPE');
980: FND_MSG_PUB.Add;
981: x_return_status := FND_API.g_ret_sts_error;
982: RETURN;
983: END IF;
984:
985: IF p_ct_rule_rec.trigger_code = FND_API.g_miss_char OR p_ct_rule_rec.trigger_code IS NULL THEN
981: x_return_status := FND_API.g_ret_sts_error;
982: RETURN;
983: END IF;
984:
985: IF p_ct_rule_rec.trigger_code = FND_API.g_miss_char OR p_ct_rule_rec.trigger_code IS NULL THEN
986: FND_MESSAGE.set_name('AMS', 'AMS_NO_TRIGGER_CODE');
987: FND_MSG_PUB.Add;
988: x_return_status := FND_API.g_ret_sts_error;
989: RETURN;
984:
985: IF p_ct_rule_rec.trigger_code = FND_API.g_miss_char OR p_ct_rule_rec.trigger_code IS NULL THEN
986: FND_MESSAGE.set_name('AMS', 'AMS_NO_TRIGGER_CODE');
987: FND_MSG_PUB.Add;
988: x_return_status := FND_API.g_ret_sts_error;
989: RETURN;
990: END IF;
991:
992: IF p_ct_rule_rec.cover_letter_id = FND_API.g_miss_num OR p_ct_rule_rec.cover_letter_id IS NULL THEN
988: x_return_status := FND_API.g_ret_sts_error;
989: RETURN;
990: END IF;
991:
992: IF p_ct_rule_rec.cover_letter_id = FND_API.g_miss_num OR p_ct_rule_rec.cover_letter_id IS NULL THEN
993: FND_MESSAGE.set_name('AMS', 'AMS_NO_COVER_LETTER_ID');
994: FND_MSG_PUB.Add;
995:
996: x_return_status := FND_API.g_ret_sts_error;
992: IF p_ct_rule_rec.cover_letter_id = FND_API.g_miss_num OR p_ct_rule_rec.cover_letter_id IS NULL THEN
993: FND_MESSAGE.set_name('AMS', 'AMS_NO_COVER_LETTER_ID');
994: FND_MSG_PUB.Add;
995:
996: x_return_status := FND_API.g_ret_sts_error;
997: RETURN;
998: END IF;
999:
1000: ELSE
1002:
1003: IF p_ct_rule_rec.object_type IS NULL THEN
1004: FND_MESSAGE.set_name('AMS', 'AMS_NO_OBJECT_TYPE');
1005: FND_MSG_PUB.Add;
1006: x_return_status := FND_API.g_ret_sts_error;
1007: RETURN;
1008: END IF;
1009:
1010: IF p_ct_rule_rec.trigger_code IS NULL THEN
1009:
1010: IF p_ct_rule_rec.trigger_code IS NULL THEN
1011: FND_MESSAGE.set_name('AMS', 'AMS_NO_TRIGGER_CODE');
1012: FND_MSG_PUB.Add;
1013: x_return_status := FND_API.g_ret_sts_error;
1014: RETURN;
1015: END IF;
1016:
1017: IF p_ct_rule_rec.cover_letter_id IS NULL THEN
1016:
1017: IF p_ct_rule_rec.cover_letter_id IS NULL THEN
1018: FND_MESSAGE.set_name('AMS', 'AMS_NO_COVER_LETTER_ID');
1019: FND_MSG_PUB.Add;
1020: x_return_status := FND_API.g_ret_sts_error;
1021: RETURN;
1022: END IF;
1023:
1024: END IF;
1046: x_return_status OUT NOCOPY VARCHAR2
1047: )
1048: IS
1049: BEGIN
1050: x_return_status := FND_API.g_ret_sts_success;
1051:
1052: -- Enter custom code here
1053:
1054: END check_ct_rule_FK_items;
1058: x_return_status OUT NOCOPY VARCHAR2
1059: )
1060: IS
1061: BEGIN
1062: x_return_status := FND_API.g_ret_sts_success;
1063:
1064: -- Enter custom code here
1065:
1066: END check_ct_rule_Lookup_items;
1092: check_ct_rule_uk_items(
1093: p_ct_rule_rec => p_ct_rule_rec,
1094: p_validation_mode => p_validation_mode,
1095: x_return_status => x_return_status);
1096: IF x_return_status <> FND_API.g_ret_sts_success THEN
1097: RETURN;
1098: END IF;
1099:
1100: -- Check Items Required/NOT NULL API calls
1102: check_ct_rule_req_items(
1103: p_ct_rule_rec => p_ct_rule_rec,
1104: p_validation_mode => p_validation_mode,
1105: x_return_status => x_return_status);
1106: IF x_return_status <> FND_API.g_ret_sts_success THEN
1107: RETURN;
1108: END IF;
1109: -- Check Items Foreign Keys API calls
1110:
1110:
1111: check_ct_rule_FK_items(
1112: p_ct_rule_rec => p_ct_rule_rec,
1113: x_return_status => x_return_status);
1114: IF x_return_status <> FND_API.g_ret_sts_success THEN
1115: RETURN;
1116: END IF;
1117: -- Check Items Lookups
1118:
1118:
1119: check_ct_rule_Lookup_items(
1120: p_ct_rule_rec => p_ct_rule_rec,
1121: x_return_status => x_return_status);
1122: IF x_return_status <> FND_API.g_ret_sts_success THEN
1123: RETURN;
1124: END IF;
1125:
1126: END Check_ct_rule_Items;
1160: FETCH c_complete INTO l_ct_rule_rec;
1161: CLOSE c_complete;
1162:
1163: -- content_rule_id
1164: IF p_ct_rule_rec.content_rule_id = FND_API.g_miss_num THEN
1165: x_complete_rec.content_rule_id := l_ct_rule_rec.content_rule_id;
1166: END IF;
1167:
1168: -- created_by
1165: x_complete_rec.content_rule_id := l_ct_rule_rec.content_rule_id;
1166: END IF;
1167:
1168: -- created_by
1169: IF p_ct_rule_rec.created_by = FND_API.g_miss_num THEN
1170: x_complete_rec.created_by := l_ct_rule_rec.created_by;
1171: END IF;
1172:
1173: -- creation_date
1170: x_complete_rec.created_by := l_ct_rule_rec.created_by;
1171: END IF;
1172:
1173: -- creation_date
1174: IF p_ct_rule_rec.creation_date = FND_API.g_miss_date THEN
1175: x_complete_rec.creation_date := l_ct_rule_rec.creation_date;
1176: END IF;
1177:
1178: -- last_updated_by
1175: x_complete_rec.creation_date := l_ct_rule_rec.creation_date;
1176: END IF;
1177:
1178: -- last_updated_by
1179: IF p_ct_rule_rec.last_updated_by = FND_API.g_miss_num THEN
1180: x_complete_rec.last_updated_by := l_ct_rule_rec.last_updated_by;
1181: END IF;
1182:
1183: -- last_updated_date
1180: x_complete_rec.last_updated_by := l_ct_rule_rec.last_updated_by;
1181: END IF;
1182:
1183: -- last_updated_date
1184: IF p_ct_rule_rec.last_updated_date = FND_API.g_miss_date THEN
1185: x_complete_rec.last_updated_date := l_ct_rule_rec.last_update_date;
1186: END IF;
1187:
1188: -- last_update_login
1185: x_complete_rec.last_updated_date := l_ct_rule_rec.last_update_date;
1186: END IF;
1187:
1188: -- last_update_login
1189: IF p_ct_rule_rec.last_update_login = FND_API.g_miss_num THEN
1190: x_complete_rec.last_update_login := l_ct_rule_rec.last_update_login;
1191: END IF;
1192:
1193: -- object_version_number
1190: x_complete_rec.last_update_login := l_ct_rule_rec.last_update_login;
1191: END IF;
1192:
1193: -- object_version_number
1194: IF p_ct_rule_rec.object_version_number = FND_API.g_miss_num THEN
1195: x_complete_rec.object_version_number := l_ct_rule_rec.object_version_number;
1196: END IF;
1197:
1198: -- object_type
1195: x_complete_rec.object_version_number := l_ct_rule_rec.object_version_number;
1196: END IF;
1197:
1198: -- object_type
1199: IF p_ct_rule_rec.object_type = FND_API.g_miss_char THEN
1200: x_complete_rec.object_type := l_ct_rule_rec.object_type;
1201: END IF;
1202:
1203: -- object_id
1200: x_complete_rec.object_type := l_ct_rule_rec.object_type;
1201: END IF;
1202:
1203: -- object_id
1204: IF p_ct_rule_rec.object_id = FND_API.g_miss_num THEN
1205: x_complete_rec.object_id := l_ct_rule_rec.object_id;
1206: END IF;
1207:
1208: -- sender
1205: x_complete_rec.object_id := l_ct_rule_rec.object_id;
1206: END IF;
1207:
1208: -- sender
1209: IF p_ct_rule_rec.sender = FND_API.g_miss_char THEN
1210: x_complete_rec.sender := l_ct_rule_rec.sender;
1211: END IF;
1212:
1213: -- reply_to
1210: x_complete_rec.sender := l_ct_rule_rec.sender;
1211: END IF;
1212:
1213: -- reply_to
1214: IF p_ct_rule_rec.reply_to = FND_API.g_miss_char THEN
1215: x_complete_rec.reply_to := l_ct_rule_rec.reply_to;
1216: END IF;
1217:
1218: -- cover_letter_id
1215: x_complete_rec.reply_to := l_ct_rule_rec.reply_to;
1216: END IF;
1217:
1218: -- cover_letter_id
1219: IF p_ct_rule_rec.cover_letter_id = FND_API.g_miss_num THEN
1220: x_complete_rec.cover_letter_id := l_ct_rule_rec.cover_letter_id;
1221: END IF;
1222:
1223: -- table_of_content_flag
1220: x_complete_rec.cover_letter_id := l_ct_rule_rec.cover_letter_id;
1221: END IF;
1222:
1223: -- table_of_content_flag
1224: IF p_ct_rule_rec.table_of_content_flag = FND_API.g_miss_char THEN
1225: x_complete_rec.table_of_content_flag := l_ct_rule_rec.table_of_content_flag;
1226: END IF;
1227:
1228: -- trigger_code
1225: x_complete_rec.table_of_content_flag := l_ct_rule_rec.table_of_content_flag;
1226: END IF;
1227:
1228: -- trigger_code
1229: IF p_ct_rule_rec.trigger_code = FND_API.g_miss_char THEN
1230: x_complete_rec.trigger_code := l_ct_rule_rec.trigger_code;
1231: END IF;
1232:
1233: -- enabled_flag
1230: x_complete_rec.trigger_code := l_ct_rule_rec.trigger_code;
1231: END IF;
1232:
1233: -- enabled_flag
1234: IF p_ct_rule_rec.enabled_flag = FND_API.g_miss_char THEN
1235: x_complete_rec.enabled_flag := l_ct_rule_rec.enabled_flag;
1236: END IF;
1237: -- Note: Developers need to modify the procedure
1238: -- to handle any business specific requirements.
1237: -- Note: Developers need to modify the procedure
1238: -- to handle any business specific requirements.
1239:
1240: -- sender_display_name : anchaudh
1241: IF p_ct_rule_rec.sender_display_name = FND_API.g_miss_char THEN
1242: x_complete_rec.sender_display_name := l_ct_rule_rec.sender_display_name;
1243: END IF;
1244:
1245: -- delivery_mode prageorg 5/29/2006
1242: x_complete_rec.sender_display_name := l_ct_rule_rec.sender_display_name;
1243: END IF;
1244:
1245: -- delivery_mode prageorg 5/29/2006
1246: IF p_ct_rule_rec.delivery_mode = FND_API.g_miss_char THEN
1247: x_complete_rec.delivery_mode := l_ct_rule_rec.delivery_mode;
1248: END IF;
1249:
1250: END Complete_ct_rule_Rec;
1266:
1267:
1268: PROCEDURE Validate_ct_rule(
1269: p_api_version_number IN NUMBER,
1270: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1271: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1272: p_ct_rule_rec IN ct_rule_rec_type,
1273: p_validation_mode IN VARCHAR2,
1274: x_return_status OUT NOCOPY VARCHAR2,
1267:
1268: PROCEDURE Validate_ct_rule(
1269: p_api_version_number IN NUMBER,
1270: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1271: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1272: p_ct_rule_rec IN ct_rule_rec_type,
1273: p_validation_mode IN VARCHAR2,
1274: x_return_status OUT NOCOPY VARCHAR2,
1275: x_msg_count OUT NOCOPY NUMBER,
1285: -- Standard Start of API savepoint
1286: SAVEPOINT VALIDATE_Ct_Rule_;
1287:
1288: -- Standard call to check for call compatibility.
1289: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1290: p_api_version_number,
1291: l_api_name,
1292: G_PKG_NAME)
1293: THEN
1290: p_api_version_number,
1291: l_api_name,
1292: G_PKG_NAME)
1293: THEN
1294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1295: END IF;
1296:
1297: -- Initialize message list if p_init_msg_list is set to TRUE.
1298: IF FND_API.to_Boolean( p_init_msg_list )
1294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1295: END IF;
1296:
1297: -- Initialize message list if p_init_msg_list is set to TRUE.
1298: IF FND_API.to_Boolean( p_init_msg_list )
1299: THEN
1300: FND_MSG_PUB.initialize;
1301: END IF;
1302: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1305: p_validation_mode => p_validation_mode,
1306: x_return_status => x_return_status
1307: );
1308:
1309: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1310: RAISE FND_API.G_EXC_ERROR;
1311: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1313: END IF;
1306: x_return_status => x_return_status
1307: );
1308:
1309: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1310: RAISE FND_API.G_EXC_ERROR;
1311: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1313: END IF;
1314: END IF;
1307: );
1308:
1309: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1310: RAISE FND_API.G_EXC_ERROR;
1311: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1313: END IF;
1314: END IF;
1315:
1308:
1309: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1310: RAISE FND_API.G_EXC_ERROR;
1311: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1313: END IF;
1314: END IF;
1315:
1316: Complete_ct_rule_Rec(
1320:
1321: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1322: Validate_ct_rule_Rec(
1323: p_api_version_number => 1.0,
1324: p_init_msg_list => FND_API.G_FALSE,
1325: x_return_status => x_return_status,
1326: x_msg_count => x_msg_count,
1327: x_msg_data => x_msg_data,
1328: p_ct_rule_rec => l_ct_rule_rec);
1326: x_msg_count => x_msg_count,
1327: x_msg_data => x_msg_data,
1328: p_ct_rule_rec => l_ct_rule_rec);
1329:
1330: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1331: RAISE FND_API.G_EXC_ERROR;
1332: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1334: END IF;
1327: x_msg_data => x_msg_data,
1328: p_ct_rule_rec => l_ct_rule_rec);
1329:
1330: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1331: RAISE FND_API.G_EXC_ERROR;
1332: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1334: END IF;
1335: END IF;
1328: p_ct_rule_rec => l_ct_rule_rec);
1329:
1330: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1331: RAISE FND_API.G_EXC_ERROR;
1332: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1334: END IF;
1335: END IF;
1336:
1329:
1330: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1331: RAISE FND_API.G_EXC_ERROR;
1332: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1334: END IF;
1335: END IF;
1336:
1337:
1342: END IF;
1343:
1344:
1345: -- Initialize API return status to SUCCESS
1346: x_return_status := FND_API.G_RET_STS_SUCCESS;
1347:
1348:
1349: -- Debug Message
1350: IF (AMS_DEBUG_HIGH_ON) THEN
1359: );
1360: EXCEPTION
1361:
1362: WHEN AMS_Utility_PVT.resource_locked THEN
1363: x_return_status := FND_API.g_ret_sts_error;
1364: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1365:
1366: WHEN FND_API.G_EXC_ERROR THEN
1367: ROLLBACK TO VALIDATE_Ct_Rule_;
1362: WHEN AMS_Utility_PVT.resource_locked THEN
1363: x_return_status := FND_API.g_ret_sts_error;
1364: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1365:
1366: WHEN FND_API.G_EXC_ERROR THEN
1367: ROLLBACK TO VALIDATE_Ct_Rule_;
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: -- Standard call to get message count and if count=1, get the message
1370: FND_MSG_PUB.Count_And_Get (
1364: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1365:
1366: WHEN FND_API.G_EXC_ERROR THEN
1367: ROLLBACK TO VALIDATE_Ct_Rule_;
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: -- Standard call to get message count and if count=1, get the message
1370: FND_MSG_PUB.Count_And_Get (
1371: p_encoded => FND_API.G_FALSE,
1372: p_count => x_msg_count,
1367: ROLLBACK TO VALIDATE_Ct_Rule_;
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: -- Standard call to get message count and if count=1, get the message
1370: FND_MSG_PUB.Count_And_Get (
1371: p_encoded => FND_API.G_FALSE,
1372: p_count => x_msg_count,
1373: p_data => x_msg_data
1374: );
1375:
1372: p_count => x_msg_count,
1373: p_data => x_msg_data
1374: );
1375:
1376: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1377: ROLLBACK TO VALIDATE_Ct_Rule_;
1378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1379: -- Standard call to get message count and if count=1, get the message
1380: FND_MSG_PUB.Count_And_Get (
1374: );
1375:
1376: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1377: ROLLBACK TO VALIDATE_Ct_Rule_;
1378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1379: -- Standard call to get message count and if count=1, get the message
1380: FND_MSG_PUB.Count_And_Get (
1381: p_encoded => FND_API.G_FALSE,
1382: p_count => x_msg_count,
1377: ROLLBACK TO VALIDATE_Ct_Rule_;
1378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1379: -- Standard call to get message count and if count=1, get the message
1380: FND_MSG_PUB.Count_And_Get (
1381: p_encoded => FND_API.G_FALSE,
1382: p_count => x_msg_count,
1383: p_data => x_msg_data
1384: );
1385:
1384: );
1385:
1386: WHEN OTHERS THEN
1387: ROLLBACK TO VALIDATE_Ct_Rule_;
1388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1389: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1390: THEN
1391: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1392: END IF;
1391: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1392: END IF;
1393: -- Standard call to get message count and if count=1, get the message
1394: FND_MSG_PUB.Count_And_Get (
1395: p_encoded => FND_API.G_FALSE,
1396: p_count => x_msg_count,
1397: p_data => x_msg_data
1398: );
1399: End Validate_Ct_Rule;
1413: --===================================================================
1414:
1415: PROCEDURE Validate_ct_rule_rec(
1416: p_api_version_number IN NUMBER,
1417: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1418: x_return_status OUT NOCOPY VARCHAR2,
1419: x_msg_count OUT NOCOPY NUMBER,
1420: x_msg_data OUT NOCOPY VARCHAR2,
1421: p_ct_rule_rec IN ct_rule_rec_type
1422: )
1423: IS
1424: BEGIN
1425: -- Initialize message list if p_init_msg_list is set to TRUE.
1426: IF FND_API.to_Boolean( p_init_msg_list )
1427: THEN
1428: FND_MSG_PUB.initialize;
1429: END IF;
1430:
1428: FND_MSG_PUB.initialize;
1429: END IF;
1430:
1431: -- Initialize API return status to SUCCESS
1432: x_return_status := FND_API.G_RET_STS_SUCCESS;
1433:
1434: -- Hint: Validate data
1435: -- If data not valid
1436: -- THEN
1433:
1434: -- Hint: Validate data
1435: -- If data not valid
1436: -- THEN
1437: -- x_return_status := FND_API.G_RET_STS_ERROR;
1438:
1439: -- Debug Message
1440: IF (AMS_DEBUG_HIGH_ON) THEN
1441:
1482: --===================================================================
1483:
1484: PROCEDURE check_content_rule(
1485: p_api_version IN NUMBER,
1486: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1487: p_commit IN VARCHAR2 := FND_API.g_false,
1488: p_object_type IN VARCHAR2,
1489: p_object_id IN NUMBER,
1490: p_trigger_type IN VARCHAR2,
1483:
1484: PROCEDURE check_content_rule(
1485: p_api_version IN NUMBER,
1486: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1487: p_commit IN VARCHAR2 := FND_API.g_false,
1488: p_object_type IN VARCHAR2,
1489: p_object_id IN NUMBER,
1490: p_trigger_type IN VARCHAR2,
1491: p_requestor_type IN VARCHAR2 := NULL,
1581:
1582: BEGIN
1583:
1584: x_request_history_id := -1;
1585: x_return_status := FND_API.G_RET_STS_SUCCESS;
1586:
1587: l_send_request := 0;
1588:
1589: IF (AMS_DEBUG_HIGH_ON) THEN