89: x_msg_data OUT NOCOPY VARCHAR2
90: )
91: is
92: l_list_header_rec AMS_ListHeader_PVT.list_header_rec_type;
93: l_init_msg_list VARCHAR2(2000) := FND_API.G_FALSE;
94: l_api_name CONSTANT VARCHAR2(30) := 'Validate Target Group Segment';
95: l_action_rec AMS_ListAction_PVT.action_rec_type ;
96: l_action_id NUMBER;
97: l_cell_list_name VARCHAR2(200);
133: AMS_Utility_PVT.debug_message(l_api_name||': validate ');
134: END IF;
135: AMS_CELL_PVT.get_single_sql(
136: p_api_version => 1.0,
137: p_init_msg_list => FND_API.G_FALSE,
138: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
139: x_return_status => l_return_status,
140: x_msg_count => x_msg_count,
141: x_msg_data => x_msg_data,
134: END IF;
135: AMS_CELL_PVT.get_single_sql(
136: p_api_version => 1.0,
137: p_init_msg_list => FND_API.G_FALSE,
138: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
139: x_return_status => l_return_status,
140: x_msg_count => x_msg_count,
141: x_msg_data => x_msg_data,
142: p_cell_id => p_cell_id,
144: );
145: IF (AMS_DEBUG_HIGH_ON) THEN
146: AMS_Utility_PVT.debug_message('get_single_sql status:' || l_return_status);
147: END IF;
148: IF l_return_status = FND_API.g_ret_sts_error THEN
149: RAISE FND_API.g_exc_error;
150: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
151: RAISE FND_API.g_exc_unexpected_error;
152: END IF;
145: IF (AMS_DEBUG_HIGH_ON) THEN
146: AMS_Utility_PVT.debug_message('get_single_sql status:' || l_return_status);
147: END IF;
148: IF l_return_status = FND_API.g_ret_sts_error THEN
149: RAISE FND_API.g_exc_error;
150: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
151: RAISE FND_API.g_exc_unexpected_error;
152: END IF;
153:
146: AMS_Utility_PVT.debug_message('get_single_sql status:' || l_return_status);
147: END IF;
148: IF l_return_status = FND_API.g_ret_sts_error THEN
149: RAISE FND_API.g_exc_error;
150: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
151: RAISE FND_API.g_exc_unexpected_error;
152: END IF;
153:
154: IF (AMS_DEBUG_HIGH_ON) THEN
147: END IF;
148: IF l_return_status = FND_API.g_ret_sts_error THEN
149: RAISE FND_API.g_exc_error;
150: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
151: RAISE FND_API.g_exc_unexpected_error;
152: END IF;
153:
154: IF (AMS_DEBUG_HIGH_ON) THEN
155: AMS_Utility_PVT.debug_message('sql_string:' || length(l_sql_string));
156: END IF;
157: IF l_sql_string IS NULL OR
158: l_sql_string = ''
159: THEN
160: RAISE FND_API.G_EXC_ERROR;
161: ELSE
162: --l_sql_string := UPPER(l_sql_string);
163:
164: IF (AMS_DEBUG_HIGH_ON) THEN
197: END IF;
198: IF l_found = 'N' THEN
199: FND_MESSAGE.set_name('AMS', 'AMS_LIST_FROM_NOT_FOUND');
200: FND_MSG_PUB.Add;
201: RAISE FND_API.G_EXC_ERROR;
202: END IF;
203:
204: l_found := 'N';
205:
220: END IF;
221: IF nvl(l_found,'N') = 'N' THEN
222: FND_MESSAGE.set_name('AMS', 'AMS_LIST_NO_MASTER_TYPE');
223: FND_MSG_PUB.Add;
224: RAISE FND_API.G_EXC_ERROR;
225: END IF;
226: END IF;
227: IF (AMS_DEBUG_HIGH_ON) THEN
228: AMS_Utility_PVT.debug_message('sucess full:' );
226: END IF;
227: IF (AMS_DEBUG_HIGH_ON) THEN
228: AMS_Utility_PVT.debug_message('sucess full:' );
229: END IF;
230: x_return_status := FND_API.G_RET_STS_SUCCESS;
231: FND_MSG_PUB.count_and_get(
232: p_encoded => FND_API.g_false,
233: p_count => x_msg_count,
234: p_data => x_msg_data);
228: AMS_Utility_PVT.debug_message('sucess full:' );
229: END IF;
230: x_return_status := FND_API.G_RET_STS_SUCCESS;
231: FND_MSG_PUB.count_and_get(
232: p_encoded => FND_API.g_false,
233: p_count => x_msg_count,
234: p_data => x_msg_data);
235:
236:
234: p_data => x_msg_data);
235:
236:
237: EXCEPTION
238: WHEN FND_API.G_EXC_ERROR THEN
239: FND_MESSAGE.set_name('AMS', 'AMS_CELL_CREATE_LIST_ERROR');
240: FND_MSG_PUB.Add;
241: -- Check if reset of the status is required
242: x_return_status := FND_API.G_RET_STS_ERROR ;
238: WHEN FND_API.G_EXC_ERROR THEN
239: FND_MESSAGE.set_name('AMS', 'AMS_CELL_CREATE_LIST_ERROR');
240: FND_MSG_PUB.Add;
241: -- Check if reset of the status is required
242: x_return_status := FND_API.G_RET_STS_ERROR ;
243: FND_MSG_PUB.count_and_get(
244: p_encoded => FND_API.g_false,
245: p_count => x_msg_count,
246: p_data => x_msg_data);
240: FND_MSG_PUB.Add;
241: -- Check if reset of the status is required
242: x_return_status := FND_API.G_RET_STS_ERROR ;
243: FND_MSG_PUB.count_and_get(
244: p_encoded => FND_API.g_false,
245: p_count => x_msg_count,
246: p_data => x_msg_data);
247:
248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
244: p_encoded => FND_API.g_false,
245: p_count => x_msg_count,
246: p_data => x_msg_data);
247:
248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
249: FND_MESSAGE.set_name('AMS', 'AMS_CELL_CREATE_LIST_ERROR');
250: FND_MSG_PUB.Add;
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
252: FND_MSG_PUB.count_and_get(
247:
248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
249: FND_MESSAGE.set_name('AMS', 'AMS_CELL_CREATE_LIST_ERROR');
250: FND_MSG_PUB.Add;
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
252: FND_MSG_PUB.count_and_get(
253: p_encoded => FND_API.g_false,
254: p_count => x_msg_count,
255: p_data => x_msg_data);
249: FND_MESSAGE.set_name('AMS', 'AMS_CELL_CREATE_LIST_ERROR');
250: FND_MSG_PUB.Add;
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
252: FND_MSG_PUB.count_and_get(
253: p_encoded => FND_API.g_false,
254: p_count => x_msg_count,
255: p_data => x_msg_data);
256:
257: WHEN OTHERS THEN
256:
257: WHEN OTHERS THEN
258: FND_MESSAGE.set_name('AMS', 'AMS_CELL_CREATE_LIST_ERROR');
259: FND_MSG_PUB.Add;
260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
261: FND_MSG_PUB.count_and_get(
262: p_encoded => FND_API.g_false,
263: p_count => x_msg_count,
264: p_data => x_msg_data);
258: FND_MESSAGE.set_name('AMS', 'AMS_CELL_CREATE_LIST_ERROR');
259: FND_MSG_PUB.Add;
260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
261: FND_MSG_PUB.count_and_get(
262: p_encoded => FND_API.g_false,
263: p_count => x_msg_count,
264: p_data => x_msg_data);
265: END validate_segment;
266:
343:
344: -- Hint: Primary key needs to be returned.
345: PROCEDURE Create_Act_List(
346: p_api_version_number IN NUMBER,
347: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
348: p_commit IN VARCHAR2 := FND_API.G_FALSE,
349: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
350: x_return_status OUT NOCOPY VARCHAR2,
351: x_msg_count OUT NOCOPY NUMBER,
344: -- Hint: Primary key needs to be returned.
345: PROCEDURE Create_Act_List(
346: p_api_version_number IN NUMBER,
347: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
348: p_commit IN VARCHAR2 := FND_API.G_FALSE,
349: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
350: x_return_status OUT NOCOPY VARCHAR2,
351: x_msg_count OUT NOCOPY NUMBER,
352: x_msg_data OUT NOCOPY VARCHAR2,
345: PROCEDURE Create_Act_List(
346: p_api_version_number IN NUMBER,
347: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
348: p_commit IN VARCHAR2 := FND_API.G_FALSE,
349: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
350: x_return_status OUT NOCOPY VARCHAR2,
351: x_msg_count OUT NOCOPY NUMBER,
352: x_msg_data OUT NOCOPY VARCHAR2,
353: p_act_list_rec IN act_list_rec_type := g_miss_act_list_rec,
407: -- Standard Start of API savepoint
408: SAVEPOINT CREATE_Act_List_PVT;
409:
410: -- Standard call to check for call compatibility.
411: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
412: p_api_version_number,
413: l_api_name,
414: G_PKG_NAME)
415: THEN
412: p_api_version_number,
413: l_api_name,
414: G_PKG_NAME)
415: THEN
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417: END IF;
418:
419: -- The first action with the smallest order number should be INCLUDE
420:
428: CLOSE c_min_list_action_type;
429: else
430: l_action_type := p_act_list_rec.list_action_type;
431: end if;
432: IF l_action_type <> FND_API.G_MISS_CHAR
433: AND l_action_type IS NOT NULL THEN
434: IF(l_action_type <>'INCLUDE')THEN
435: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
436: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_FIRST_INCLUDE');
435: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
436: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_FIRST_INCLUDE');
437: FND_MSG_PUB.Add;
438: END IF;
439: x_return_status := FND_API.G_RET_STS_ERROR;
440: RAISE FND_API.G_EXC_ERROR;
441: END IF; --end if l_action_type <>'INCLUDE'
442: END IF;-- end IF l_action_type <> FND_API.G_MISS_CHAR
443:
436: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_FIRST_INCLUDE');
437: FND_MSG_PUB.Add;
438: END IF;
439: x_return_status := FND_API.G_RET_STS_ERROR;
440: RAISE FND_API.G_EXC_ERROR;
441: END IF; --end if l_action_type <>'INCLUDE'
442: END IF;-- end IF l_action_type <> FND_API.G_MISS_CHAR
443:
444:
438: END IF;
439: x_return_status := FND_API.G_RET_STS_ERROR;
440: RAISE FND_API.G_EXC_ERROR;
441: END IF; --end if l_action_type <>'INCLUDE'
442: END IF;-- end IF l_action_type <> FND_API.G_MISS_CHAR
443:
444:
445: -- Initialize message list if p_init_msg_list is set to TRUE.
446: IF FND_API.to_Boolean( p_init_msg_list )
442: END IF;-- end IF l_action_type <> FND_API.G_MISS_CHAR
443:
444:
445: -- Initialize message list if p_init_msg_list is set to TRUE.
446: IF FND_API.to_Boolean( p_init_msg_list )
447: THEN
448: FND_MSG_PUB.initialize;
449: END IF;
450:
455: END IF;
456:
457:
458: -- Initialize API return status to SUCCESS
459: x_return_status := FND_API.G_RET_STS_SUCCESS;
460:
461: -- Local variable initialization
462:
463: IF l_act_list_rec.ACT_LIST_HEADER_ID IS NULL OR
460:
461: -- Local variable initialization
462:
463: IF l_act_list_rec.ACT_LIST_HEADER_ID IS NULL OR
464: l_act_list_rec.ACT_LIST_HEADER_ID = FND_API.g_miss_num THEN
465: LOOP
466: l_dummy := NULL;
467: OPEN c_id;
468: FETCH c_id INTO l_ACT_LIST_HEADER_ID;
482:
483: IF FND_GLOBAL.User_Id IS NULL
484: THEN
485: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_USER_PROFILE_MISSING');
486: RAISE FND_API.G_EXC_ERROR;
487: END IF;
488:
489: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
490: THEN
485: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_USER_PROFILE_MISSING');
486: RAISE FND_API.G_EXC_ERROR;
487: END IF;
488:
489: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
490: THEN
491: -- Debug message
492: IF (AMS_DEBUG_HIGH_ON) THEN
493:
500: END IF;
501:
502: Validate_act_list(
503: p_api_version_number => 1.0,
504: p_init_msg_list => FND_API.G_FALSE,
505: p_validation_level => p_validation_level,
506: p_act_list_rec => l_act_list_rec,
507: x_return_status => x_return_status,
508: x_msg_count => x_msg_count,
515: AMS_Utility_PVT.debug_message('2)validate act list ->' || x_return_status );
516: END IF;
517: END IF;
518:
519: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
520: RAISE FND_API.G_EXC_ERROR;
521: END IF;
522:
523:
516: END IF;
517: END IF;
518:
519: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
520: RAISE FND_API.G_EXC_ERROR;
521: END IF;
522:
523:
524: if l_act_list_rec.list_act_type <> 'TARGET'
541: l_list_group_rec.created_by := fnd_global.user_id;
542: if l_act_list_group_id is null then
543: AMS_List_Group_PVT.Create_List_Group(
544: p_api_version_number => 1.0,
545: p_init_msg_list => FND_API.G_FALSE,
546: p_commit => FND_API.G_FALSE,
547: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
548: x_return_status => x_return_status,
549: x_msg_count => x_msg_count,
542: if l_act_list_group_id is null then
543: AMS_List_Group_PVT.Create_List_Group(
544: p_api_version_number => 1.0,
545: p_init_msg_list => FND_API.G_FALSE,
546: p_commit => FND_API.G_FALSE,
547: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
548: x_return_status => x_return_status,
549: x_msg_count => x_msg_count,
550: x_msg_data => x_msg_data,
543: AMS_List_Group_PVT.Create_List_Group(
544: p_api_version_number => 1.0,
545: p_init_msg_list => FND_API.G_FALSE,
546: p_commit => FND_API.G_FALSE,
547: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
548: x_return_status => x_return_status,
549: x_msg_count => x_msg_count,
550: x_msg_data => x_msg_data,
551: p_list_group_rec => l_list_group_rec,
550: x_msg_data => x_msg_data,
551: p_list_group_rec => l_list_group_rec,
552: x_act_list_group_id => l_act_list_group_id
553: );
554: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
555: RAISE FND_API.G_EXC_ERROR;
556: END IF;
557: end if;
558: end if;
551: p_list_group_rec => l_list_group_rec,
552: x_act_list_group_id => l_act_list_group_id
553: );
554: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
555: RAISE FND_API.G_EXC_ERROR;
556: END IF;
557: end if;
558: end if;
559:
581: p_order_number => l_act_list_rec.order_number
582: );
583:
584:
585: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
586: RAISE FND_API.G_EXC_ERROR;
587: END IF;
588:
589: --
582: );
583:
584:
585: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
586: RAISE FND_API.G_EXC_ERROR;
587: END IF;
588:
589: --
590: -- End of API body
594: (l_act_list_rec.list_action_type = 'INCLUDE') THEN
595:
596: Ams_Refreshmetric_Pvt. Copy_Seeded_Metric (
597: p_api_version => 1.0,
598: p_init_msg_list => Fnd_Api.G_FALSE,
599: p_commit => Fnd_Api.G_FALSE,
600: x_return_status => x_return_status,
601: x_msg_count => x_msg_count,
602: x_msg_data => x_msg_data,
595:
596: Ams_Refreshmetric_Pvt. Copy_Seeded_Metric (
597: p_api_version => 1.0,
598: p_init_msg_list => Fnd_Api.G_FALSE,
599: p_commit => Fnd_Api.G_FALSE,
600: x_return_status => x_return_status,
601: x_msg_count => x_msg_count,
602: x_msg_data => x_msg_data,
603: p_arc_act_metric_used_by=> 'ALIST',
605: p_act_metric_used_by_type => null
606: );
607: END IF;
608:
609: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
610: RAISE FND_API.G_EXC_ERROR;
611: END IF;
612:
613: --end vbhandar 04/21 to copy metrics
606: );
607: END IF;
608:
609: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
610: RAISE FND_API.G_EXC_ERROR;
611: END IF;
612:
613: --end vbhandar 04/21 to copy metrics
614:
613: --end vbhandar 04/21 to copy metrics
614:
615:
616: -- Standard check for p_commit
617: IF FND_API.to_Boolean( p_commit )
618: THEN
619: COMMIT WORK;
620: END IF;
621:
633: );
634: EXCEPTION
635:
636: WHEN AMS_Utility_PVT.resource_locked THEN
637: x_return_status := FND_API.g_ret_sts_error;
638: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
639:
640: WHEN FND_API.G_EXC_ERROR THEN
641: ROLLBACK TO CREATE_Act_List_PVT;
636: WHEN AMS_Utility_PVT.resource_locked THEN
637: x_return_status := FND_API.g_ret_sts_error;
638: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
639:
640: WHEN FND_API.G_EXC_ERROR THEN
641: ROLLBACK TO CREATE_Act_List_PVT;
642: x_return_status := FND_API.G_RET_STS_ERROR;
643: -- Standard call to get message count and if count=1, get the message
644: FND_MSG_PUB.Count_And_Get (
638: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
639:
640: WHEN FND_API.G_EXC_ERROR THEN
641: ROLLBACK TO CREATE_Act_List_PVT;
642: x_return_status := FND_API.G_RET_STS_ERROR;
643: -- Standard call to get message count and if count=1, get the message
644: FND_MSG_PUB.Count_And_Get (
645: p_encoded => FND_API.G_FALSE,
646: p_count => x_msg_count,
641: ROLLBACK TO CREATE_Act_List_PVT;
642: x_return_status := FND_API.G_RET_STS_ERROR;
643: -- Standard call to get message count and if count=1, get the message
644: FND_MSG_PUB.Count_And_Get (
645: p_encoded => FND_API.G_FALSE,
646: p_count => x_msg_count,
647: p_data => x_msg_data
648: );
649:
646: p_count => x_msg_count,
647: p_data => x_msg_data
648: );
649:
650: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
651: ROLLBACK TO CREATE_Act_List_PVT;
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
653: -- Standard call to get message count and if count=1, get the message
654: FND_MSG_PUB.Count_And_Get (
648: );
649:
650: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
651: ROLLBACK TO CREATE_Act_List_PVT;
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
653: -- Standard call to get message count and if count=1, get the message
654: FND_MSG_PUB.Count_And_Get (
655: p_encoded => FND_API.G_FALSE,
656: p_count => x_msg_count,
651: ROLLBACK TO CREATE_Act_List_PVT;
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
653: -- Standard call to get message count and if count=1, get the message
654: FND_MSG_PUB.Count_And_Get (
655: p_encoded => FND_API.G_FALSE,
656: p_count => x_msg_count,
657: p_data => x_msg_data
658: );
659:
658: );
659:
660: WHEN OTHERS THEN
661: ROLLBACK TO CREATE_Act_List_PVT;
662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
663: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
664: THEN
665: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
666: END IF;
665: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
666: END IF;
667: -- Standard call to get message count and if count=1, get the message
668: FND_MSG_PUB.Count_And_Get (
669: p_encoded => FND_API.G_FALSE,
670: p_count => x_msg_count,
671: p_data => x_msg_data
672: );
673: End Create_Act_List;
675: PROCEDURE init_act_list_Rec (
676: x_act_list_rec OUT NOCOPY act_list_rec_type)
677: IS
678: BEGIN
679: x_act_list_rec.act_list_header_id := FND_API.g_miss_num ;
680: x_act_list_rec.group_code := FND_API.g_miss_char ;
681: x_act_list_rec.last_update_date := FND_API.g_miss_date ;
682: x_act_list_rec.last_updated_by := FND_API.g_miss_num ;
683: x_act_list_rec.creation_date := FND_API.g_miss_date ;
676: x_act_list_rec OUT NOCOPY act_list_rec_type)
677: IS
678: BEGIN
679: x_act_list_rec.act_list_header_id := FND_API.g_miss_num ;
680: x_act_list_rec.group_code := FND_API.g_miss_char ;
681: x_act_list_rec.last_update_date := FND_API.g_miss_date ;
682: x_act_list_rec.last_updated_by := FND_API.g_miss_num ;
683: x_act_list_rec.creation_date := FND_API.g_miss_date ;
684: x_act_list_rec.created_by := FND_API.g_miss_num ;
677: IS
678: BEGIN
679: x_act_list_rec.act_list_header_id := FND_API.g_miss_num ;
680: x_act_list_rec.group_code := FND_API.g_miss_char ;
681: x_act_list_rec.last_update_date := FND_API.g_miss_date ;
682: x_act_list_rec.last_updated_by := FND_API.g_miss_num ;
683: x_act_list_rec.creation_date := FND_API.g_miss_date ;
684: x_act_list_rec.created_by := FND_API.g_miss_num ;
685: x_act_list_rec.object_version_number := FND_API.g_miss_num ;
678: BEGIN
679: x_act_list_rec.act_list_header_id := FND_API.g_miss_num ;
680: x_act_list_rec.group_code := FND_API.g_miss_char ;
681: x_act_list_rec.last_update_date := FND_API.g_miss_date ;
682: x_act_list_rec.last_updated_by := FND_API.g_miss_num ;
683: x_act_list_rec.creation_date := FND_API.g_miss_date ;
684: x_act_list_rec.created_by := FND_API.g_miss_num ;
685: x_act_list_rec.object_version_number := FND_API.g_miss_num ;
686: x_act_list_rec.last_update_login := FND_API.g_miss_num ;
679: x_act_list_rec.act_list_header_id := FND_API.g_miss_num ;
680: x_act_list_rec.group_code := FND_API.g_miss_char ;
681: x_act_list_rec.last_update_date := FND_API.g_miss_date ;
682: x_act_list_rec.last_updated_by := FND_API.g_miss_num ;
683: x_act_list_rec.creation_date := FND_API.g_miss_date ;
684: x_act_list_rec.created_by := FND_API.g_miss_num ;
685: x_act_list_rec.object_version_number := FND_API.g_miss_num ;
686: x_act_list_rec.last_update_login := FND_API.g_miss_num ;
687: x_act_list_rec.list_header_id := FND_API.g_miss_num ;
680: x_act_list_rec.group_code := FND_API.g_miss_char ;
681: x_act_list_rec.last_update_date := FND_API.g_miss_date ;
682: x_act_list_rec.last_updated_by := FND_API.g_miss_num ;
683: x_act_list_rec.creation_date := FND_API.g_miss_date ;
684: x_act_list_rec.created_by := FND_API.g_miss_num ;
685: x_act_list_rec.object_version_number := FND_API.g_miss_num ;
686: x_act_list_rec.last_update_login := FND_API.g_miss_num ;
687: x_act_list_rec.list_header_id := FND_API.g_miss_num ;
688: x_act_list_rec.list_used_by_id := FND_API.g_miss_num ;
681: x_act_list_rec.last_update_date := FND_API.g_miss_date ;
682: x_act_list_rec.last_updated_by := FND_API.g_miss_num ;
683: x_act_list_rec.creation_date := FND_API.g_miss_date ;
684: x_act_list_rec.created_by := FND_API.g_miss_num ;
685: x_act_list_rec.object_version_number := FND_API.g_miss_num ;
686: x_act_list_rec.last_update_login := FND_API.g_miss_num ;
687: x_act_list_rec.list_header_id := FND_API.g_miss_num ;
688: x_act_list_rec.list_used_by_id := FND_API.g_miss_num ;
689: x_act_list_rec.list_used_by := FND_API.g_miss_char ;
682: x_act_list_rec.last_updated_by := FND_API.g_miss_num ;
683: x_act_list_rec.creation_date := FND_API.g_miss_date ;
684: x_act_list_rec.created_by := FND_API.g_miss_num ;
685: x_act_list_rec.object_version_number := FND_API.g_miss_num ;
686: x_act_list_rec.last_update_login := FND_API.g_miss_num ;
687: x_act_list_rec.list_header_id := FND_API.g_miss_num ;
688: x_act_list_rec.list_used_by_id := FND_API.g_miss_num ;
689: x_act_list_rec.list_used_by := FND_API.g_miss_char ;
690: x_act_list_rec.list_act_type := FND_API.g_miss_char ;
683: x_act_list_rec.creation_date := FND_API.g_miss_date ;
684: x_act_list_rec.created_by := FND_API.g_miss_num ;
685: x_act_list_rec.object_version_number := FND_API.g_miss_num ;
686: x_act_list_rec.last_update_login := FND_API.g_miss_num ;
687: x_act_list_rec.list_header_id := FND_API.g_miss_num ;
688: x_act_list_rec.list_used_by_id := FND_API.g_miss_num ;
689: x_act_list_rec.list_used_by := FND_API.g_miss_char ;
690: x_act_list_rec.list_act_type := FND_API.g_miss_char ;
691: x_act_list_rec.list_action_type := FND_API.g_miss_char ;
684: x_act_list_rec.created_by := FND_API.g_miss_num ;
685: x_act_list_rec.object_version_number := FND_API.g_miss_num ;
686: x_act_list_rec.last_update_login := FND_API.g_miss_num ;
687: x_act_list_rec.list_header_id := FND_API.g_miss_num ;
688: x_act_list_rec.list_used_by_id := FND_API.g_miss_num ;
689: x_act_list_rec.list_used_by := FND_API.g_miss_char ;
690: x_act_list_rec.list_act_type := FND_API.g_miss_char ;
691: x_act_list_rec.list_action_type := FND_API.g_miss_char ;
692: x_act_list_rec.order_number := FND_API.g_miss_num ;
685: x_act_list_rec.object_version_number := FND_API.g_miss_num ;
686: x_act_list_rec.last_update_login := FND_API.g_miss_num ;
687: x_act_list_rec.list_header_id := FND_API.g_miss_num ;
688: x_act_list_rec.list_used_by_id := FND_API.g_miss_num ;
689: x_act_list_rec.list_used_by := FND_API.g_miss_char ;
690: x_act_list_rec.list_act_type := FND_API.g_miss_char ;
691: x_act_list_rec.list_action_type := FND_API.g_miss_char ;
692: x_act_list_rec.order_number := FND_API.g_miss_num ;
693:
686: x_act_list_rec.last_update_login := FND_API.g_miss_num ;
687: x_act_list_rec.list_header_id := FND_API.g_miss_num ;
688: x_act_list_rec.list_used_by_id := FND_API.g_miss_num ;
689: x_act_list_rec.list_used_by := FND_API.g_miss_char ;
690: x_act_list_rec.list_act_type := FND_API.g_miss_char ;
691: x_act_list_rec.list_action_type := FND_API.g_miss_char ;
692: x_act_list_rec.order_number := FND_API.g_miss_num ;
693:
694: END init_act_list_Rec;
687: x_act_list_rec.list_header_id := FND_API.g_miss_num ;
688: x_act_list_rec.list_used_by_id := FND_API.g_miss_num ;
689: x_act_list_rec.list_used_by := FND_API.g_miss_char ;
690: x_act_list_rec.list_act_type := FND_API.g_miss_char ;
691: x_act_list_rec.list_action_type := FND_API.g_miss_char ;
692: x_act_list_rec.order_number := FND_API.g_miss_num ;
693:
694: END init_act_list_Rec;
695:
688: x_act_list_rec.list_used_by_id := FND_API.g_miss_num ;
689: x_act_list_rec.list_used_by := FND_API.g_miss_char ;
690: x_act_list_rec.list_act_type := FND_API.g_miss_char ;
691: x_act_list_rec.list_action_type := FND_API.g_miss_char ;
692: x_act_list_rec.order_number := FND_API.g_miss_num ;
693:
694: END init_act_list_Rec;
695:
696: PROCEDURE Complete_act_list_Rec (
712: FETCH c_complete INTO l_act_list_rec;
713: CLOSE c_complete;
714:
715: -- act_list_header_id
716: IF p_act_list_rec.act_list_header_id = FND_API.g_miss_num THEN
717: x_complete_rec.act_list_header_id := l_act_list_rec.act_list_header_id;
718: END IF;
719:
720: IF p_act_list_rec.group_code = FND_API.g_miss_char THEN
716: IF p_act_list_rec.act_list_header_id = FND_API.g_miss_num THEN
717: x_complete_rec.act_list_header_id := l_act_list_rec.act_list_header_id;
718: END IF;
719:
720: IF p_act_list_rec.group_code = FND_API.g_miss_char THEN
721: x_complete_rec.group_code := l_act_list_rec.group_code;
722: END IF;
723:
724: -- last_update_date
721: x_complete_rec.group_code := l_act_list_rec.group_code;
722: END IF;
723:
724: -- last_update_date
725: IF p_act_list_rec.last_update_date = FND_API.g_miss_date THEN
726: x_complete_rec.last_update_date := l_act_list_rec.last_update_date;
727: END IF;
728:
729: -- last_updated_by
726: x_complete_rec.last_update_date := l_act_list_rec.last_update_date;
727: END IF;
728:
729: -- last_updated_by
730: IF p_act_list_rec.last_updated_by = FND_API.g_miss_num THEN
731: x_complete_rec.last_updated_by := l_act_list_rec.last_updated_by;
732: END IF;
733:
734: -- creation_date
731: x_complete_rec.last_updated_by := l_act_list_rec.last_updated_by;
732: END IF;
733:
734: -- creation_date
735: IF p_act_list_rec.creation_date = FND_API.g_miss_date THEN
736: x_complete_rec.creation_date := l_act_list_rec.creation_date;
737: END IF;
738:
739: -- created_by
736: x_complete_rec.creation_date := l_act_list_rec.creation_date;
737: END IF;
738:
739: -- created_by
740: IF p_act_list_rec.created_by = FND_API.g_miss_num THEN
741: x_complete_rec.created_by := l_act_list_rec.created_by;
742: END IF;
743:
744: -- object_version_number
741: x_complete_rec.created_by := l_act_list_rec.created_by;
742: END IF;
743:
744: -- object_version_number
745: IF p_act_list_rec.object_version_number = FND_API.g_miss_num THEN
746: x_complete_rec.object_version_number := l_act_list_rec.object_version_number;
747: END IF;
748:
749: -- last_update_login
746: x_complete_rec.object_version_number := l_act_list_rec.object_version_number;
747: END IF;
748:
749: -- last_update_login
750: IF p_act_list_rec.last_update_login = FND_API.g_miss_num THEN
751: x_complete_rec.last_update_login := l_act_list_rec.last_update_login;
752: END IF;
753:
754: -- list_header_id
751: x_complete_rec.last_update_login := l_act_list_rec.last_update_login;
752: END IF;
753:
754: -- list_header_id
755: IF p_act_list_rec.list_header_id = FND_API.g_miss_num THEN
756: x_complete_rec.list_header_id := l_act_list_rec.list_header_id;
757: END IF;
758:
759: -- list_used_by_id
756: x_complete_rec.list_header_id := l_act_list_rec.list_header_id;
757: END IF;
758:
759: -- list_used_by_id
760: IF p_act_list_rec.list_used_by_id = FND_API.g_miss_num THEN
761: x_complete_rec.list_used_by_id := l_act_list_rec.list_used_by_id;
762: END IF;
763:
764: -- list_used_by
761: x_complete_rec.list_used_by_id := l_act_list_rec.list_used_by_id;
762: END IF;
763:
764: -- list_used_by
765: IF p_act_list_rec.list_used_by = FND_API.g_miss_char THEN
766: x_complete_rec.list_used_by := l_act_list_rec.list_used_by;
767: END IF;
768: -- list_act_type
769: IF p_act_list_rec.list_act_type = FND_API.g_miss_char THEN
765: IF p_act_list_rec.list_used_by = FND_API.g_miss_char THEN
766: x_complete_rec.list_used_by := l_act_list_rec.list_used_by;
767: END IF;
768: -- list_act_type
769: IF p_act_list_rec.list_act_type = FND_API.g_miss_char THEN
770: x_complete_rec.list_act_type := l_act_list_rec.list_act_type;
771: END IF;
772: -- list_action_type
773: IF p_act_list_rec.list_action_type = FND_API.g_miss_char THEN
769: IF p_act_list_rec.list_act_type = FND_API.g_miss_char THEN
770: x_complete_rec.list_act_type := l_act_list_rec.list_act_type;
771: END IF;
772: -- list_action_type
773: IF p_act_list_rec.list_action_type = FND_API.g_miss_char THEN
774: x_complete_rec.list_action_type := l_act_list_rec.list_action_type;
775: END IF;
776: -- order number
777: IF p_act_list_rec.order_number = FND_API.g_miss_num THEN
773: IF p_act_list_rec.list_action_type = FND_API.g_miss_char THEN
774: x_complete_rec.list_action_type := l_act_list_rec.list_action_type;
775: END IF;
776: -- order number
777: IF p_act_list_rec.order_number = FND_API.g_miss_num THEN
778: x_complete_rec.order_number := l_act_list_rec.order_number;
779: END IF;
780:
781:
784: END Complete_act_list_Rec;
785:
786: PROCEDURE Update_Act_List(
787: p_api_version_number IN NUMBER,
788: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
789: p_commit IN VARCHAR2 := FND_API.G_FALSE,
790: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
791: x_return_status OUT NOCOPY VARCHAR2,
792: x_msg_count OUT NOCOPY NUMBER,
785:
786: PROCEDURE Update_Act_List(
787: p_api_version_number IN NUMBER,
788: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
789: p_commit IN VARCHAR2 := FND_API.G_FALSE,
790: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
791: x_return_status OUT NOCOPY VARCHAR2,
792: x_msg_count OUT NOCOPY NUMBER,
793: x_msg_data OUT NOCOPY VARCHAR2,
786: PROCEDURE Update_Act_List(
787: p_api_version_number IN NUMBER,
788: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
789: p_commit IN VARCHAR2 := FND_API.G_FALSE,
790: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
791: x_return_status OUT NOCOPY VARCHAR2,
792: x_msg_count OUT NOCOPY NUMBER,
793: x_msg_data OUT NOCOPY VARCHAR2,
794: p_act_list_rec IN act_list_rec_type,
845: BEGIN
846: -- Standard Start of API savepoint
847: SAVEPOINT UPDATE_Act_List_PVT;
848: -- Standard call to check for call compatibility.
849: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
850: p_api_version_number,
851: l_api_name,
852: G_PKG_NAME)
853: THEN
850: p_api_version_number,
851: l_api_name,
852: G_PKG_NAME)
853: THEN
854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: END IF;
856:
857: -- The first action with the smallest order number should be INCLUDE
858: open c_min_order;
867: CLOSE c_min_list_action_type;
868: else
869: l_action_type := p_act_list_rec.list_action_type;
870: end if;
871: IF l_action_type <> FND_API.G_MISS_CHAR
872: AND l_action_type IS NOT NULL THEN
873: IF(l_action_type <>'INCLUDE')THEN
874: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
875: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_FIRST_INCLUDE');
874: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
875: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_FIRST_INCLUDE');
876: FND_MSG_PUB.Add;
877: END IF;
878: x_return_status := FND_API.G_RET_STS_ERROR;
879: RAISE FND_API.G_EXC_ERROR;
880: END IF; --end if l_action_type <>'INCLUDE'
881: END IF;-- end IF l_action_type <> FND_API.G_MISS_CHAR
882:
875: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_FIRST_INCLUDE');
876: FND_MSG_PUB.Add;
877: END IF;
878: x_return_status := FND_API.G_RET_STS_ERROR;
879: RAISE FND_API.G_EXC_ERROR;
880: END IF; --end if l_action_type <>'INCLUDE'
881: END IF;-- end IF l_action_type <> FND_API.G_MISS_CHAR
882:
883:
877: END IF;
878: x_return_status := FND_API.G_RET_STS_ERROR;
879: RAISE FND_API.G_EXC_ERROR;
880: END IF; --end if l_action_type <>'INCLUDE'
881: END IF;-- end IF l_action_type <> FND_API.G_MISS_CHAR
882:
883:
884:
885:
883:
884:
885:
886: -- Initialize message list if p_init_msg_list is set to TRUE.
887: IF FND_API.to_Boolean( p_init_msg_list )
888: THEN
889: FND_MSG_PUB.initialize;
890: END IF;
891:
895: AMS_Utility_PVT.debug_message('Private API: ' || l_api_name || 'start');
896: END IF;
897:
898: -- Initialize API return status to SUCCESS
899: x_return_status := FND_API.G_RET_STS_SUCCESS;
900:
901: -- Debug Message
902: IF (AMS_DEBUG_HIGH_ON) THEN
903:
910: AMS_Utility_PVT.Error_Message(p_message_name =>
911: 'AMS_API_MISSING_UPDATE_TARGET',
912: p_token_name => 'INFO',
913: p_token_value => 'Act_List') ;
914: RAISE FND_API.G_EXC_ERROR;
915: END IF;
916: -- Debug Message
917: IF (AMS_DEBUG_HIGH_ON) THEN
918:
921: CLOSE c_get_Act_List;
922:
923:
924: If (l_tar_act_list_rec.object_version_number is NULL or
925: l_tar_act_list_rec.object_version_number = FND_API.G_MISS_NUM ) Then
926: AMS_Utility_PVT.Error_Message(p_message_name =>
927: 'AMS_API_VERSION_MISSING',
928: p_token_name => 'COLUMN',
929: p_token_value => 'Last_Update_Date') ;
926: AMS_Utility_PVT.Error_Message(p_message_name =>
927: 'AMS_API_VERSION_MISSING',
928: p_token_name => 'COLUMN',
929: p_token_value => 'Last_Update_Date') ;
930: raise FND_API.G_EXC_ERROR;
931: End if;
932: -- Check Whether record has been changed by someone else
933: If (l_tar_act_list_rec.object_version_number <>
934: l_ref_act_list_rec.object_version_number) Then
934: l_ref_act_list_rec.object_version_number) Then
935: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
936: p_token_name => 'INFO',
937: p_token_value => 'Act_List') ;
938: raise FND_API.G_EXC_ERROR;
939: End if;
940:
941: -- Complete rec
942: Complete_act_list_Rec(
942: Complete_act_list_Rec(
943: p_act_list_rec => p_act_list_rec,
944: x_complete_rec => l_act_list_rec
945: );
946: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
947: THEN
948:
949: IF (AMS_DEBUG_HIGH_ON) THEN
950:
956:
957: -- Invoke validation procedures
958: Validate_act_list(
959: p_api_version_number => 1.0,
960: p_init_msg_list => FND_API.G_FALSE,
961: p_validation_level => p_validation_level,
962: p_act_list_rec => l_act_list_rec,
963: x_return_status => x_return_status,
964: x_msg_count => x_msg_count,
964: x_msg_count => x_msg_count,
965: x_msg_data => x_msg_data);
966: END IF;
967:
968: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
969: RAISE FND_API.G_EXC_ERROR;
970: END IF;
971:
972:
965: x_msg_data => x_msg_data);
966: END IF;
967:
968: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
969: RAISE FND_API.G_EXC_ERROR;
970: END IF;
971:
972:
973:
987:
988: if l_act_list_group_id is null then
989: AMS_List_Group_PVT.Create_List_Group(
990: p_api_version_number => 1.0,
991: p_init_msg_list => FND_API.G_FALSE,
992: p_commit => FND_API.G_FALSE,
993: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
994: x_return_status => x_return_status,
995: x_msg_count => x_msg_count,
988: if l_act_list_group_id is null then
989: AMS_List_Group_PVT.Create_List_Group(
990: p_api_version_number => 1.0,
991: p_init_msg_list => FND_API.G_FALSE,
992: p_commit => FND_API.G_FALSE,
993: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
994: x_return_status => x_return_status,
995: x_msg_count => x_msg_count,
996: x_msg_data => x_msg_data,
989: AMS_List_Group_PVT.Create_List_Group(
990: p_api_version_number => 1.0,
991: p_init_msg_list => FND_API.G_FALSE,
992: p_commit => FND_API.G_FALSE,
993: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
994: x_return_status => x_return_status,
995: x_msg_count => x_msg_count,
996: x_msg_data => x_msg_data,
997: p_list_group_rec => l_list_group_rec,
996: x_msg_data => x_msg_data,
997: p_list_group_rec => l_list_group_rec,
998: x_act_list_group_id => l_act_list_group_id
999: );
1000: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1001: RAISE FND_API.G_EXC_ERROR;
1002: END IF;
1003: end if;
1004: end if;
997: p_list_group_rec => l_list_group_rec,
998: x_act_list_group_id => l_act_list_group_id
999: );
1000: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1001: RAISE FND_API.G_EXC_ERROR;
1002: END IF;
1003: end if;
1004: end if;
1005:
1023: -- End of API body.
1024: --
1025:
1026: -- Standard check for p_commit
1027: IF FND_API.to_Boolean( p_commit )
1028: THEN
1029: COMMIT WORK;
1030: END IF;
1031:
1043: );
1044: EXCEPTION
1045:
1046: WHEN AMS_Utility_PVT.resource_locked THEN
1047: x_return_status := FND_API.g_ret_sts_error;
1048: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1049: WHEN FND_API.G_EXC_ERROR THEN
1050: ROLLBACK TO UPDATE_Act_List_PVT;
1051: x_return_status := FND_API.G_RET_STS_ERROR;
1045:
1046: WHEN AMS_Utility_PVT.resource_locked THEN
1047: x_return_status := FND_API.g_ret_sts_error;
1048: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1049: WHEN FND_API.G_EXC_ERROR THEN
1050: ROLLBACK TO UPDATE_Act_List_PVT;
1051: x_return_status := FND_API.G_RET_STS_ERROR;
1052: -- Standard call to get message count and if count=1, get the message
1053: FND_MSG_PUB.Count_And_Get (
1047: x_return_status := FND_API.g_ret_sts_error;
1048: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1049: WHEN FND_API.G_EXC_ERROR THEN
1050: ROLLBACK TO UPDATE_Act_List_PVT;
1051: x_return_status := FND_API.G_RET_STS_ERROR;
1052: -- Standard call to get message count and if count=1, get the message
1053: FND_MSG_PUB.Count_And_Get (
1054: p_encoded => FND_API.G_FALSE,
1055: p_count => x_msg_count,
1050: ROLLBACK TO UPDATE_Act_List_PVT;
1051: x_return_status := FND_API.G_RET_STS_ERROR;
1052: -- Standard call to get message count and if count=1, get the message
1053: FND_MSG_PUB.Count_And_Get (
1054: p_encoded => FND_API.G_FALSE,
1055: p_count => x_msg_count,
1056: p_data => x_msg_data
1057: );
1058:
1055: p_count => x_msg_count,
1056: p_data => x_msg_data
1057: );
1058:
1059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1060: ROLLBACK TO UPDATE_Act_List_PVT;
1061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1062: -- Standard call to get message count and if count=1, get the message
1063: FND_MSG_PUB.Count_And_Get (
1057: );
1058:
1059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1060: ROLLBACK TO UPDATE_Act_List_PVT;
1061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1062: -- Standard call to get message count and if count=1, get the message
1063: FND_MSG_PUB.Count_And_Get (
1064: p_encoded => FND_API.G_FALSE,
1065: p_count => x_msg_count,
1060: ROLLBACK TO UPDATE_Act_List_PVT;
1061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1062: -- Standard call to get message count and if count=1, get the message
1063: FND_MSG_PUB.Count_And_Get (
1064: p_encoded => FND_API.G_FALSE,
1065: p_count => x_msg_count,
1066: p_data => x_msg_data
1067: );
1068:
1067: );
1068:
1069: WHEN OTHERS THEN
1070: ROLLBACK TO UPDATE_Act_List_PVT;
1071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1072: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1073: THEN
1074: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1075: END IF;
1074: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1075: END IF;
1076: -- Standard call to get message count and if count=1, get the message
1077: FND_MSG_PUB.Count_And_Get (
1078: p_encoded => FND_API.G_FALSE,
1079: p_count => x_msg_count,
1080: p_data => x_msg_data
1081: );
1082: End Update_Act_List;
1083:
1084:
1085: PROCEDURE Delete_Act_List(
1086: p_api_version_number IN NUMBER,
1087: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1088: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1089: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1090: x_return_status OUT NOCOPY VARCHAR2,
1091: x_msg_count OUT NOCOPY NUMBER,
1084:
1085: PROCEDURE Delete_Act_List(
1086: p_api_version_number IN NUMBER,
1087: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1088: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1089: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1090: x_return_status OUT NOCOPY VARCHAR2,
1091: x_msg_count OUT NOCOPY NUMBER,
1092: x_msg_data OUT NOCOPY VARCHAR2,
1085: PROCEDURE Delete_Act_List(
1086: p_api_version_number IN NUMBER,
1087: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1088: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1089: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1090: x_return_status OUT NOCOPY VARCHAR2,
1091: x_msg_count OUT NOCOPY NUMBER,
1092: x_msg_data OUT NOCOPY VARCHAR2,
1093: p_act_list_header_id IN NUMBER,
1121: -- Standard Start of API savepoint
1122: SAVEPOINT DELETE_Act_List_PVT;
1123:
1124: -- Standard call to check for call compatibility.
1125: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1126: p_api_version_number,
1127: l_api_name,
1128: G_PKG_NAME)
1129: THEN
1126: p_api_version_number,
1127: l_api_name,
1128: G_PKG_NAME)
1129: THEN
1130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1131: END IF;
1132:
1133: -- Initialize message list if p_init_msg_list is set to TRUE.
1134: IF FND_API.to_Boolean( p_init_msg_list )
1130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1131: END IF;
1132:
1133: -- Initialize message list if p_init_msg_list is set to TRUE.
1134: IF FND_API.to_Boolean( p_init_msg_list )
1135: THEN
1136: FND_MSG_PUB.initialize;
1137: END IF;
1138:
1143: END IF;
1144:
1145:
1146: -- Initialize API return status to SUCCESS
1147: x_return_status := FND_API.G_RET_STS_SUCCESS;
1148:
1149: --
1150: -- Api body
1151: --
1159: -- Invoke table handler(AMS_ACT_LISTS_PKG.Delete_Row)
1160: if l_char = 'x' then
1161: FND_MESSAGE.set_name('AMS', 'AMS_DELETE_TARGET');
1162: FND_MSG_PUB.add;
1163: RAISE FND_API.g_exc_error;
1164: else
1165: AMS_ACT_LISTS_PKG.Delete_Row(
1166: p_ACT_LIST_HEADER_ID => p_ACT_LIST_HEADER_ID);
1167: end if;
1169: -- End of API body
1170: --
1171:
1172: -- Standard check for p_commit
1173: IF FND_API.to_Boolean( p_commit )
1174: THEN
1175: COMMIT WORK;
1176: END IF;
1177:
1189: );
1190: EXCEPTION
1191:
1192: WHEN AMS_Utility_PVT.resource_locked THEN
1193: x_return_status := FND_API.g_ret_sts_error;
1194: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1195: WHEN FND_API.G_EXC_ERROR THEN
1196: ROLLBACK TO DELETE_Act_List_PVT;
1197: x_return_status := FND_API.G_RET_STS_ERROR;
1191:
1192: WHEN AMS_Utility_PVT.resource_locked THEN
1193: x_return_status := FND_API.g_ret_sts_error;
1194: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1195: WHEN FND_API.G_EXC_ERROR THEN
1196: ROLLBACK TO DELETE_Act_List_PVT;
1197: x_return_status := FND_API.G_RET_STS_ERROR;
1198: -- Standard call to get message count and if count=1, get the message
1199: FND_MSG_PUB.Count_And_Get (
1193: x_return_status := FND_API.g_ret_sts_error;
1194: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1195: WHEN FND_API.G_EXC_ERROR THEN
1196: ROLLBACK TO DELETE_Act_List_PVT;
1197: x_return_status := FND_API.G_RET_STS_ERROR;
1198: -- Standard call to get message count and if count=1, get the message
1199: FND_MSG_PUB.Count_And_Get (
1200: p_encoded => FND_API.G_FALSE,
1201: p_count => x_msg_count,
1196: ROLLBACK TO DELETE_Act_List_PVT;
1197: x_return_status := FND_API.G_RET_STS_ERROR;
1198: -- Standard call to get message count and if count=1, get the message
1199: FND_MSG_PUB.Count_And_Get (
1200: p_encoded => FND_API.G_FALSE,
1201: p_count => x_msg_count,
1202: p_data => x_msg_data
1203: );
1204:
1201: p_count => x_msg_count,
1202: p_data => x_msg_data
1203: );
1204:
1205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1206: ROLLBACK TO DELETE_Act_List_PVT;
1207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1208: -- Standard call to get message count and if count=1, get the message
1209: FND_MSG_PUB.Count_And_Get (
1203: );
1204:
1205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1206: ROLLBACK TO DELETE_Act_List_PVT;
1207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1208: -- Standard call to get message count and if count=1, get the message
1209: FND_MSG_PUB.Count_And_Get (
1210: p_encoded => FND_API.G_FALSE,
1211: p_count => x_msg_count,
1206: ROLLBACK TO DELETE_Act_List_PVT;
1207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1208: -- Standard call to get message count and if count=1, get the message
1209: FND_MSG_PUB.Count_And_Get (
1210: p_encoded => FND_API.G_FALSE,
1211: p_count => x_msg_count,
1212: p_data => x_msg_data
1213: );
1214:
1213: );
1214:
1215: WHEN OTHERS THEN
1216: ROLLBACK TO DELETE_Act_List_PVT;
1217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1218: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1219: THEN
1220: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1221: END IF;
1220: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1221: END IF;
1222: -- Standard call to get message count and if count=1, get the message
1223: FND_MSG_PUB.Count_And_Get (
1224: p_encoded => FND_API.G_FALSE,
1225: p_count => x_msg_count,
1226: p_data => x_msg_data
1227: );
1228: End Delete_Act_List;
1231:
1232: -- Hint: Primary key needs to be returned.
1233: PROCEDURE Lock_Act_List(
1234: p_api_version_number IN NUMBER,
1235: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1236: x_return_status OUT NOCOPY VARCHAR2,
1237: x_msg_count OUT NOCOPY NUMBER,
1238: x_msg_data OUT NOCOPY VARCHAR2,
1239: p_act_list_header_id IN NUMBER,
1260:
1261: AMS_Utility_PVT.debug_message('Private API: ' || l_api_name || 'start');
1262: END IF;
1263: -- Initialize message list if p_init_msg_list is set to TRUE.
1264: IF FND_API.to_Boolean( p_init_msg_list )
1265: THEN
1266: FND_MSG_PUB.initialize;
1267: END IF;
1268:
1266: FND_MSG_PUB.initialize;
1267: END IF;
1268:
1269: -- Standard call to check for call compatibility.
1270: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1271: p_api_version_number,
1272: l_api_name,
1273: G_PKG_NAME)
1274: THEN
1271: p_api_version_number,
1272: l_api_name,
1273: G_PKG_NAME)
1274: THEN
1275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1276: END IF;
1277:
1278:
1279: -- Initialize API return status to SUCCESS
1276: END IF;
1277:
1278:
1279: -- Initialize API return status to SUCCESS
1280: x_return_status := FND_API.G_RET_STS_SUCCESS;
1281:
1282: IF (AMS_DEBUG_HIGH_ON) THEN
1283:
1284:
1295: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1296: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1297: FND_MSG_PUB.add;
1298: END IF;
1299: RAISE FND_API.g_exc_error;
1300: END IF;
1301:
1302: CLOSE c_Act_List;
1303:
1302: CLOSE c_Act_List;
1303:
1304: -------------------- finish --------------------------
1305: FND_MSG_PUB.count_and_get(
1306: p_encoded => FND_API.g_false,
1307: p_count => x_msg_count,
1308: p_data => x_msg_data);
1309: IF (AMS_DEBUG_HIGH_ON) THEN
1310:
1312: END IF;
1313: EXCEPTION
1314:
1315: WHEN AMS_Utility_PVT.resource_locked THEN
1316: x_return_status := FND_API.g_ret_sts_error;
1317: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1318: WHEN FND_API.G_EXC_ERROR THEN
1319: ROLLBACK TO LOCK_Act_List_PVT;
1320: x_return_status := FND_API.G_RET_STS_ERROR;
1314:
1315: WHEN AMS_Utility_PVT.resource_locked THEN
1316: x_return_status := FND_API.g_ret_sts_error;
1317: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1318: WHEN FND_API.G_EXC_ERROR THEN
1319: ROLLBACK TO LOCK_Act_List_PVT;
1320: x_return_status := FND_API.G_RET_STS_ERROR;
1321: -- Standard call to get message count and if count=1, get the message
1322: FND_MSG_PUB.Count_And_Get (
1316: x_return_status := FND_API.g_ret_sts_error;
1317: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1318: WHEN FND_API.G_EXC_ERROR THEN
1319: ROLLBACK TO LOCK_Act_List_PVT;
1320: x_return_status := FND_API.G_RET_STS_ERROR;
1321: -- Standard call to get message count and if count=1, get the message
1322: FND_MSG_PUB.Count_And_Get (
1323: p_encoded => FND_API.G_FALSE,
1324: p_count => x_msg_count,
1319: ROLLBACK TO LOCK_Act_List_PVT;
1320: x_return_status := FND_API.G_RET_STS_ERROR;
1321: -- Standard call to get message count and if count=1, get the message
1322: FND_MSG_PUB.Count_And_Get (
1323: p_encoded => FND_API.G_FALSE,
1324: p_count => x_msg_count,
1325: p_data => x_msg_data
1326: );
1327:
1324: p_count => x_msg_count,
1325: p_data => x_msg_data
1326: );
1327:
1328: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1329: ROLLBACK TO LOCK_Act_List_PVT;
1330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1331: -- Standard call to get message count and if count=1, get the message
1332: FND_MSG_PUB.Count_And_Get (
1326: );
1327:
1328: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1329: ROLLBACK TO LOCK_Act_List_PVT;
1330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1331: -- Standard call to get message count and if count=1, get the message
1332: FND_MSG_PUB.Count_And_Get (
1333: p_encoded => FND_API.G_FALSE,
1334: p_count => x_msg_count,
1329: ROLLBACK TO LOCK_Act_List_PVT;
1330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1331: -- Standard call to get message count and if count=1, get the message
1332: FND_MSG_PUB.Count_And_Get (
1333: p_encoded => FND_API.G_FALSE,
1334: p_count => x_msg_count,
1335: p_data => x_msg_data
1336: );
1337:
1336: );
1337:
1338: WHEN OTHERS THEN
1339: ROLLBACK TO LOCK_Act_List_PVT;
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1341: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1342: THEN
1343: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1344: END IF;
1343: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1344: END IF;
1345: -- Standard call to get message count and if count=1, get the message
1346: FND_MSG_PUB.Count_And_Get (
1347: p_encoded => FND_API.G_FALSE,
1348: p_count => x_msg_count,
1349: p_data => x_msg_data
1350: );
1351: End Lock_Act_List;
1373: AND act_list_header_id <> p_act_list_header_id;
1374:
1375: l_count NUMBER;
1376: BEGIN
1377: x_return_status := FND_API.g_ret_sts_success;
1378: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1379: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
1380: 'AMS_ACT_LISTS',
1381: 'ACT_LIST_HEADER_ID = ' || p_act_list_rec.ACT_LIST_HEADER_ID
1389: ||' AND ACT_LIST_HEADER_ID <> ' || p_act_list_rec.ACT_LIST_HEADER_ID
1390: );
1391: END IF;
1392:
1393: IF l_valid_flag = FND_API.g_false THEN
1394: AMS_Utility_PVT.Error_Message(p_message_name =>
1395: 'AMS_ACT_LIST_ID_DUPLICATE');
1396: x_return_status := FND_API.g_ret_sts_error;
1397: RETURN;
1392:
1393: IF l_valid_flag = FND_API.g_false THEN
1394: AMS_Utility_PVT.Error_Message(p_message_name =>
1395: 'AMS_ACT_LIST_ID_DUPLICATE');
1396: x_return_status := FND_API.g_ret_sts_error;
1397: RETURN;
1398: END IF;
1399:
1400: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1424: p_act_list_rec.act_list_Header_id);
1425: fetch c_check_act_list_uniqueness into l_count;
1426: close c_checK_act_list_uniqueness;
1427: IF l_count >= 1 THEN
1428: l_valid_flag := FND_API.G_FALSE;
1429: ELSE
1430: l_valid_flag := FND_API.G_TRUE;
1431: END IF;
1432: END IF;
1426: close c_checK_act_list_uniqueness;
1427: IF l_count >= 1 THEN
1428: l_valid_flag := FND_API.G_FALSE;
1429: ELSE
1430: l_valid_flag := FND_API.G_TRUE;
1431: END IF;
1432: END IF;
1433:
1434: IF l_valid_flag = FND_API.g_false THEN
1430: l_valid_flag := FND_API.G_TRUE;
1431: END IF;
1432: END IF;
1433:
1434: IF l_valid_flag = FND_API.g_false THEN
1435: AMS_Utility_PVT.Error_Message(p_message_name =>
1436: 'AMS_ACT_LIST_USED_DUP');
1437: x_return_status := FND_API.g_ret_sts_error;
1438: RETURN;
1433:
1434: IF l_valid_flag = FND_API.g_false THEN
1435: AMS_Utility_PVT.Error_Message(p_message_name =>
1436: 'AMS_ACT_LIST_USED_DUP');
1437: x_return_status := FND_API.g_ret_sts_error;
1438: RETURN;
1439: END IF;
1440:
1441: END check_act_list_uk_items;
1446: x_return_status OUT NOCOPY VARCHAR2
1447: )
1448: IS
1449: BEGIN
1450: x_return_status := FND_API.g_ret_sts_success;
1451:
1452: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1453:
1454: IF p_act_list_rec.list_header_id = FND_API.g_miss_num OR
1450: x_return_status := FND_API.g_ret_sts_success;
1451:
1452: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1453:
1454: IF p_act_list_rec.list_header_id = FND_API.g_miss_num OR
1455: p_act_list_rec.list_header_id IS NULL THEN
1456: AMS_Utility_PVT.Error_Message(p_message_name =>
1457: 'AMS_API_MISSING_FIELD');
1458: FND_MESSAGE.set_token('MISS_FIELD',
1456: AMS_Utility_PVT.Error_Message(p_message_name =>
1457: 'AMS_API_MISSING_FIELD');
1458: FND_MESSAGE.set_token('MISS_FIELD',
1459: 'LIST_HEADER_ID' );
1460: x_return_status := FND_API.g_ret_sts_error;
1461: RETURN;
1462: END IF;
1463:
1464:
1461: RETURN;
1462: END IF;
1463:
1464:
1465: IF p_act_list_rec.list_used_by_id = FND_API.g_miss_num OR
1466: p_act_list_rec.list_used_by_id IS NULL THEN
1467: AMS_Utility_PVT.Error_Message(p_message_name =>
1468: 'AMS_USER_PROFILE_MISSING');
1469: x_return_status := FND_API.g_ret_sts_error;
1465: IF p_act_list_rec.list_used_by_id = FND_API.g_miss_num OR
1466: p_act_list_rec.list_used_by_id IS NULL THEN
1467: AMS_Utility_PVT.Error_Message(p_message_name =>
1468: 'AMS_USER_PROFILE_MISSING');
1469: x_return_status := FND_API.g_ret_sts_error;
1470: RETURN;
1471: END IF;
1472:
1473:
1470: RETURN;
1471: END IF;
1472:
1473:
1474: IF p_act_list_rec.list_used_by = FND_API.g_miss_char OR
1475: p_act_list_rec.list_used_by IS NULL THEN
1476: AMS_Utility_PVT.Error_Message(p_message_name =>
1477: 'AMS_API_MISSING_FIELD');
1478: FND_MESSAGE.set_token('MISS_FIELD',
1476: AMS_Utility_PVT.Error_Message(p_message_name =>
1477: 'AMS_API_MISSING_FIELD');
1478: FND_MESSAGE.set_token('MISS_FIELD',
1479: 'LIST_USED_BY' );
1480: x_return_status := FND_API.g_ret_sts_error;
1481: RETURN;
1482: END IF;
1483: IF p_act_list_rec.list_act_type = FND_API.g_miss_char OR
1484: p_act_list_rec.list_act_type IS NULL THEN
1479: 'LIST_USED_BY' );
1480: x_return_status := FND_API.g_ret_sts_error;
1481: RETURN;
1482: END IF;
1483: IF p_act_list_rec.list_act_type = FND_API.g_miss_char OR
1484: p_act_list_rec.list_act_type IS NULL THEN
1485: AMS_Utility_PVT.Error_Message(p_message_name =>
1486: 'AMS_API_MISSING_FIELD');
1487: FND_MESSAGE.set_token('MISS_FIELD',
1485: AMS_Utility_PVT.Error_Message(p_message_name =>
1486: 'AMS_API_MISSING_FIELD');
1487: FND_MESSAGE.set_token('MISS_FIELD',
1488: 'LIST_ACT_TYPE' );
1489: x_return_status := FND_API.g_ret_sts_error;
1490: RETURN;
1491: END IF;
1492:
1493:
1497: AMS_Utility_PVT.Error_Message(p_message_name =>
1498: 'AMS_API_MISSING_FIELD');
1499: FND_MESSAGE.set_token('MISS_FIELD',
1500: 'ACT_LIST_HEADER_ID' );
1501: x_return_status := FND_API.g_ret_sts_error;
1502: RETURN;
1503: END IF;
1504:
1505: IF p_act_list_rec.list_header_id IS NULL THEN
1504:
1505: IF p_act_list_rec.list_header_id IS NULL THEN
1506: AMS_Utility_PVT.Error_Message(p_message_name =>
1507: 'AMS_API_RESOURCE_LOCKED');
1508: x_return_status := FND_API.g_ret_sts_error;
1509: RETURN;
1510: END IF;
1511:
1512:
1512:
1513: IF p_act_list_rec.list_used_by_id IS NULL THEN
1514: AMS_Utility_PVT.Error_Message(p_message_name =>
1515: 'AMS_API_RESOURCE_LOCKED');
1516: x_return_status := FND_API.g_ret_sts_error;
1517: RETURN;
1518: END IF;
1519:
1520:
1520:
1521: IF p_act_list_rec.list_used_by IS NULL THEN
1522: AMS_Utility_PVT.Error_Message(p_message_name =>
1523: 'AMS_API_RESOURCE_LOCKED');
1524: x_return_status := FND_API.g_ret_sts_error;
1525: RETURN;
1526: END IF;
1527:
1528: IF p_act_list_rec.list_act_type IS NULL THEN
1527:
1528: IF p_act_list_rec.list_act_type IS NULL THEN
1529: AMS_Utility_PVT.Error_Message(p_message_name =>
1530: 'AMS_API_RESOURCE_LOCKED');
1531: x_return_status := FND_API.g_ret_sts_error;
1532: RETURN;
1533: END IF;
1534:
1535:
1547: l_pk_name varchar2(100);
1548: l_list_act_type varchar2(60);
1549:
1550: BEGIN
1551: x_return_status := FND_API.g_ret_sts_success;
1552:
1553: IF p_act_list_rec.list_used_by <> FND_API.g_miss_char THEN
1554: AMS_Utility_PVT.get_qual_table_name_and_pk(
1555: p_sys_qual => p_act_list_rec.list_used_by,
1549:
1550: BEGIN
1551: x_return_status := FND_API.g_ret_sts_success;
1552:
1553: IF p_act_list_rec.list_used_by <> FND_API.g_miss_char THEN
1554: AMS_Utility_PVT.get_qual_table_name_and_pk(
1555: p_sys_qual => p_act_list_rec.list_used_by,
1556: x_return_status => x_return_status,
1557: x_table_name => l_table_name,
1557: x_table_name => l_table_name,
1558: x_pk_name => l_pk_name
1559: );
1560:
1561: IF x_return_status <> FND_API.g_ret_sts_success THEN
1562: RETURN;
1563: END IF;
1564:
1565: IF p_act_list_rec.list_used_by_id <> FND_API.g_miss_num THEN
1561: IF x_return_status <> FND_API.g_ret_sts_success THEN
1562: RETURN;
1563: END IF;
1564:
1565: IF p_act_list_rec.list_used_by_id <> FND_API.g_miss_num THEN
1566: IF ( AMS_Utility_PVT.Check_FK_Exists(l_table_name
1567: , l_pk_name
1568: , p_act_list_rec.list_used_by_id)
1569: = FND_API.G_TRUE)
1565: IF p_act_list_rec.list_used_by_id <> FND_API.g_miss_num THEN
1566: IF ( AMS_Utility_PVT.Check_FK_Exists(l_table_name
1567: , l_pk_name
1568: , p_act_list_rec.list_used_by_id)
1569: = FND_API.G_TRUE)
1570: THEN
1571: x_return_status := FND_API.G_RET_STS_SUCCESS;
1572:
1573: ELSE
1567: , l_pk_name
1568: , p_act_list_rec.list_used_by_id)
1569: = FND_API.G_TRUE)
1570: THEN
1571: x_return_status := FND_API.G_RET_STS_SUCCESS;
1572:
1573: ELSE
1574: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1575: THEN
1575: THEN
1576: FND_MESSAGE.set_name('AMS', 'AMS_SCHEDULE_ID_MISSING');
1577: FND_MSG_PUB.Add;
1578: END IF;
1579: x_return_status := FND_API.G_RET_STS_ERROR;
1580: RAISE FND_API.G_EXC_ERROR;
1581: END IF;
1582: END IF;
1583: END IF;
1576: FND_MESSAGE.set_name('AMS', 'AMS_SCHEDULE_ID_MISSING');
1577: FND_MSG_PUB.Add;
1578: END IF;
1579: x_return_status := FND_API.G_RET_STS_ERROR;
1580: RAISE FND_API.G_EXC_ERROR;
1581: END IF;
1582: END IF;
1583: END IF;
1584: IF p_act_list_rec.list_header_id <> FND_API.g_miss_num THEN
1580: RAISE FND_API.G_EXC_ERROR;
1581: END IF;
1582: END IF;
1583: END IF;
1584: IF p_act_list_rec.list_header_id <> FND_API.g_miss_num THEN
1585:
1586: if p_act_list_rec.list_act_type = 'TARGET' or p_act_list_rec.list_act_type = 'EMPLOYEE' then
1587: l_list_act_type := 'LIST';
1588: else
1594: x_table_name => l_table_name,
1595: x_pk_name => l_pk_name
1596: );
1597:
1598: IF x_return_status <> FND_API.g_ret_sts_success THEN
1599: RETURN;
1600: END IF;
1601:
1602: IF ( AMS_Utility_PVT.Check_FK_Exists(l_table_name
1601:
1602: IF ( AMS_Utility_PVT.Check_FK_Exists(l_table_name
1603: , l_pk_name
1604: , p_act_list_rec.list_header_id)
1605: = FND_API.G_TRUE)
1606: THEN
1607: x_return_status := FND_API.G_RET_STS_SUCCESS;
1608:
1609: ELSE
1603: , l_pk_name
1604: , p_act_list_rec.list_header_id)
1605: = FND_API.G_TRUE)
1606: THEN
1607: x_return_status := FND_API.G_RET_STS_SUCCESS;
1608:
1609: ELSE
1610: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1611: THEN
1611: THEN
1612: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ID_MISSING');
1613: FND_MSG_PUB.Add;
1614: END IF;
1615: x_return_status := FND_API.G_RET_STS_ERROR;
1616: RAISE FND_API.G_EXC_ERROR;
1617: END IF;
1618: END IF;
1619:
1612: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ID_MISSING');
1613: FND_MSG_PUB.Add;
1614: END IF;
1615: x_return_status := FND_API.G_RET_STS_ERROR;
1616: RAISE FND_API.G_EXC_ERROR;
1617: END IF;
1618: END IF;
1619:
1620: END check_act_list_FK_items;
1624: x_return_status OUT NOCOPY VARCHAR2
1625: )
1626: IS
1627: BEGIN
1628: x_return_status := FND_API.g_ret_sts_success;
1629:
1630: -- Enter custom code here
1631: IF p_act_list_rec.list_act_type <> 'TARGET' and p_act_list_rec.list_act_type <> 'EMPLOYEE' then
1632: IF p_act_list_rec.list_act_type <> FND_API.g_miss_char THEN
1628: x_return_status := FND_API.g_ret_sts_success;
1629:
1630: -- Enter custom code here
1631: IF p_act_list_rec.list_act_type <> 'TARGET' and p_act_list_rec.list_act_type <> 'EMPLOYEE' then
1632: IF p_act_list_rec.list_act_type <> FND_API.g_miss_char THEN
1633: IF AMS_Utility_PVT.check_lookup_exists(
1634: p_lookup_type => 'AMS_LIST_ACT_TYPE',
1635: p_lookup_code => p_act_list_rec.list_act_type
1636: ) = FND_API.g_false
1632: IF p_act_list_rec.list_act_type <> FND_API.g_miss_char THEN
1633: IF AMS_Utility_PVT.check_lookup_exists(
1634: p_lookup_type => 'AMS_LIST_ACT_TYPE',
1635: p_lookup_code => p_act_list_rec.list_act_type
1636: ) = FND_API.g_false
1637: THEN
1638: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1639: THEN
1640: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_TYPE_INVALID');
1642: p_act_list_rec.list_act_type);
1643: FND_MSG_PUB.add;
1644: END IF;
1645:
1646: x_return_status := FND_API.g_ret_sts_error;
1647: RETURN;
1648: END IF;
1649: END IF;
1650: END IF;
1649: END IF;
1650: END IF;
1651:
1652: -- Check list_action_type
1653: IF p_act_list_rec.list_action_type <> FND_API.g_miss_char THEN
1654: IF AMS_Utility_PVT.check_lookup_exists(
1655: p_lookup_type => 'AMS_LIST_SELECT_ACTION',
1656: p_lookup_code => p_act_list_rec.list_action_type
1657: ) = FND_API.g_false
1653: IF p_act_list_rec.list_action_type <> FND_API.g_miss_char THEN
1654: IF AMS_Utility_PVT.check_lookup_exists(
1655: p_lookup_type => 'AMS_LIST_SELECT_ACTION',
1656: p_lookup_code => p_act_list_rec.list_action_type
1657: ) = FND_API.g_false
1658: THEN
1659: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1660: THEN
1661: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_TYPE_INVALID');
1662: FND_MESSAGE.set_token('LIST_ACT_TYPE', p_act_list_rec.list_action_type);
1663: FND_MSG_PUB.add;
1664: END IF;
1665:
1666: x_return_status := FND_API.g_ret_sts_error;
1667: RETURN;
1668: END IF;
1669: END IF;
1670: END check_act_list_Lookup_items;
1676: )
1677: IS
1678: BEGIN
1679:
1680: x_return_status := FND_API.g_ret_sts_success ;
1681: -- Check Items Uniqueness API calls
1682:
1683: IF (AMS_DEBUG_HIGH_ON) THEN
1684:
1690: check_act_list_uk_items(
1691: p_act_list_rec => p_act_list_rec,
1692: p_validation_mode => p_validation_mode,
1693: x_return_status => x_return_status);
1694: IF x_return_status <> FND_API.g_ret_sts_success THEN
1695: RETURN;
1696: END IF;
1697:
1698: -- Check Items Required/NOT NULL API calls
1707: check_act_list_req_items(
1708: p_act_list_rec => p_act_list_rec,
1709: p_validation_mode => p_validation_mode,
1710: x_return_status => x_return_status);
1711: IF x_return_status <> FND_API.g_ret_sts_success THEN
1712: RETURN;
1713: END IF;
1714: -- Check Items Foreign Keys API calls
1715: IF (AMS_DEBUG_HIGH_ON) THEN
1719:
1720: check_act_list_FK_items(
1721: p_act_list_rec => p_act_list_rec,
1722: x_return_status => x_return_status);
1723: IF x_return_status <> FND_API.g_ret_sts_success THEN
1724: RETURN;
1725: END IF;
1726: -- Check Items Lookups
1727:
1734: END IF;
1735: check_act_list_Lookup_items(
1736: p_act_list_rec => p_act_list_rec,
1737: x_return_status => x_return_status);
1738: IF x_return_status <> FND_API.g_ret_sts_success THEN
1739: RETURN;
1740: END IF;
1741:
1742: IF (AMS_DEBUG_HIGH_ON) THEN
1748:
1749:
1750: PROCEDURE Validate_act_list(
1751: p_api_version_number IN NUMBER,
1752: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1753: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1754: p_act_list_rec IN act_list_rec_type,
1755: x_return_status OUT NOCOPY VARCHAR2,
1756: x_msg_count OUT NOCOPY NUMBER,
1749:
1750: PROCEDURE Validate_act_list(
1751: p_api_version_number IN NUMBER,
1752: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1753: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1754: p_act_list_rec IN act_list_rec_type,
1755: x_return_status OUT NOCOPY VARCHAR2,
1756: x_msg_count OUT NOCOPY NUMBER,
1757: x_msg_data OUT NOCOPY VARCHAR2
1768:
1769:
1770:
1771: -- Standard call to check for call compatibility.
1772: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1773: p_api_version_number,
1774: l_api_name,
1775: G_PKG_NAME)
1776: THEN
1773: p_api_version_number,
1774: l_api_name,
1775: G_PKG_NAME)
1776: THEN
1777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1778: END IF;
1779:
1780: -- Initialize message list if p_init_msg_list is set to TRUE.
1781: IF FND_API.to_Boolean( p_init_msg_list )
1777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1778: END IF;
1779:
1780: -- Initialize message list if p_init_msg_list is set to TRUE.
1781: IF FND_API.to_Boolean( p_init_msg_list )
1782: THEN
1783: FND_MSG_PUB.initialize;
1784: END IF;
1785:
1793: p_validation_mode => JTF_PLSQL_API.g_update,
1794: x_return_status => x_return_status
1795: );
1796:
1797: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1798: RAISE FND_API.G_EXC_ERROR;
1799: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1801: END IF;
1794: x_return_status => x_return_status
1795: );
1796:
1797: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1798: RAISE FND_API.G_EXC_ERROR;
1799: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1801: END IF;
1802:
1795: );
1796:
1797: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1798: RAISE FND_API.G_EXC_ERROR;
1799: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1801: END IF;
1802:
1803: END IF;
1796:
1797: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1798: RAISE FND_API.G_EXC_ERROR;
1799: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1801: END IF;
1802:
1803: END IF;
1804:
1804:
1805: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1806: Validate_act_list_Rec(
1807: p_api_version_number => 1.0,
1808: p_init_msg_list => FND_API.G_FALSE,
1809: x_return_status => x_return_status,
1810: x_msg_count => x_msg_count,
1811: x_msg_data => x_msg_data,
1812: p_act_list_rec => l_act_list_rec);
1810: x_msg_count => x_msg_count,
1811: x_msg_data => x_msg_data,
1812: p_act_list_rec => l_act_list_rec);
1813:
1814: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1815: RAISE FND_API.G_EXC_ERROR;
1816: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1818: END IF;
1811: x_msg_data => x_msg_data,
1812: p_act_list_rec => l_act_list_rec);
1813:
1814: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1815: RAISE FND_API.G_EXC_ERROR;
1816: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1818: END IF;
1819: END IF;
1812: p_act_list_rec => l_act_list_rec);
1813:
1814: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1815: RAISE FND_API.G_EXC_ERROR;
1816: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1818: END IF;
1819: END IF;
1820:
1813:
1814: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1815: RAISE FND_API.G_EXC_ERROR;
1816: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1818: END IF;
1819: END IF;
1820:
1821:
1824: AMS_Utility_PVT.debug_message('validate act_list after_act_list_rec' || x_return_status );
1825: END IF;
1826:
1827: -- Initialize API return status to SUCCESS
1828: x_return_status := FND_API.G_RET_STS_SUCCESS;
1829:
1830:
1831: EXCEPTION
1832:
1830:
1831: EXCEPTION
1832:
1833: WHEN AMS_Utility_PVT.resource_locked THEN
1834: x_return_status := FND_API.g_ret_sts_error;
1835: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1836:
1837: WHEN FND_API.G_EXC_ERROR THEN
1838: ROLLBACK TO VALIDATE_Act_List_;
1833: WHEN AMS_Utility_PVT.resource_locked THEN
1834: x_return_status := FND_API.g_ret_sts_error;
1835: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1836:
1837: WHEN FND_API.G_EXC_ERROR THEN
1838: ROLLBACK TO VALIDATE_Act_List_;
1839: x_return_status := FND_API.G_RET_STS_ERROR;
1840: -- Standard call to get message count and if count=1, get the message
1841: FND_MSG_PUB.Count_And_Get (
1835: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1836:
1837: WHEN FND_API.G_EXC_ERROR THEN
1838: ROLLBACK TO VALIDATE_Act_List_;
1839: x_return_status := FND_API.G_RET_STS_ERROR;
1840: -- Standard call to get message count and if count=1, get the message
1841: FND_MSG_PUB.Count_And_Get (
1842: p_encoded => FND_API.G_FALSE,
1843: p_count => x_msg_count,
1838: ROLLBACK TO VALIDATE_Act_List_;
1839: x_return_status := FND_API.G_RET_STS_ERROR;
1840: -- Standard call to get message count and if count=1, get the message
1841: FND_MSG_PUB.Count_And_Get (
1842: p_encoded => FND_API.G_FALSE,
1843: p_count => x_msg_count,
1844: p_data => x_msg_data
1845: );
1846:
1843: p_count => x_msg_count,
1844: p_data => x_msg_data
1845: );
1846:
1847: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1848: ROLLBACK TO VALIDATE_Act_List_;
1849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1850: -- Standard call to get message count and if count=1, get the message
1851: FND_MSG_PUB.Count_And_Get (
1845: );
1846:
1847: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1848: ROLLBACK TO VALIDATE_Act_List_;
1849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1850: -- Standard call to get message count and if count=1, get the message
1851: FND_MSG_PUB.Count_And_Get (
1852: p_encoded => FND_API.G_FALSE,
1853: p_count => x_msg_count,
1848: ROLLBACK TO VALIDATE_Act_List_;
1849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1850: -- Standard call to get message count and if count=1, get the message
1851: FND_MSG_PUB.Count_And_Get (
1852: p_encoded => FND_API.G_FALSE,
1853: p_count => x_msg_count,
1854: p_data => x_msg_data
1855: );
1856:
1855: );
1856:
1857: WHEN OTHERS THEN
1858: ROLLBACK TO VALIDATE_Act_List_;
1859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1860: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1861: THEN
1862: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1863: END IF;
1862: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1863: END IF;
1864: -- Standard call to get message count and if count=1, get the message
1865: FND_MSG_PUB.Count_And_Get (
1866: p_encoded => FND_API.G_FALSE,
1867: p_count => x_msg_count,
1868: p_data => x_msg_data
1869: );
1870: End Validate_Act_List;
1871:
1872:
1873: PROCEDURE Validate_act_list_rec(
1874: p_api_version_number IN NUMBER,
1875: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1876: x_return_status OUT NOCOPY VARCHAR2,
1877: x_msg_count OUT NOCOPY NUMBER,
1878: x_msg_data OUT NOCOPY VARCHAR2,
1879: p_act_list_rec IN act_list_rec_type
1880: )
1881: IS
1882: BEGIN
1883: -- Initialize message list if p_init_msg_list is set to TRUE.
1884: IF FND_API.to_Boolean( p_init_msg_list )
1885: THEN
1886: FND_MSG_PUB.initialize;
1887: END IF;
1888:
1886: FND_MSG_PUB.initialize;
1887: END IF;
1888:
1889: -- Initialize API return status to SUCCESS
1890: x_return_status := FND_API.G_RET_STS_SUCCESS;
1891:
1892: -- Hint: Validate data
1893: -- If data not valid
1894: -- THEN
1891:
1892: -- Hint: Validate data
1893: -- If data not valid
1894: -- THEN
1895: -- x_return_status := FND_API.G_RET_STS_ERROR;
1896:
1897: -- Debug Message
1898: IF (AMS_DEBUG_HIGH_ON) THEN
1899:
1908:
1909:
1910: PROCEDURE create_target_group_list
1911: ( p_api_version IN NUMBER,
1912: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1913: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1914: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1915: p_list_used_by_name in VARCHAR2,
1916: p_list_used_by in VARCHAR2,
1909:
1910: PROCEDURE create_target_group_list
1911: ( p_api_version IN NUMBER,
1912: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1913: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1914: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1915: p_list_used_by_name in VARCHAR2,
1916: p_list_used_by in VARCHAR2,
1917: p_list_used_by_id in NUMBER,
1910: PROCEDURE create_target_group_list
1911: ( p_api_version IN NUMBER,
1912: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1913: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1914: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1915: p_list_used_by_name in VARCHAR2,
1916: p_list_used_by in VARCHAR2,
1917: p_list_used_by_id in NUMBER,
1918: p_list_type in VARCHAR2 := 'TARGET' ,
1935: and list_used_by_id = p_list_used_by_id
1936: and list_act_type = 'TARGET' ;
1937:
1938: BEGIN
1939: x_return_status := FND_API.G_RET_STS_SUCCESS;
1940: -- Standard call to check for call compatibility.
1941: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1942: p_api_version,
1943: l_api_name,
1937:
1938: BEGIN
1939: x_return_status := FND_API.G_RET_STS_SUCCESS;
1940: -- Standard call to check for call compatibility.
1941: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1942: p_api_version,
1943: l_api_name,
1944: G_PKG_NAME) THEN
1945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1941: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1942: p_api_version,
1943: l_api_name,
1944: G_PKG_NAME) THEN
1945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1946: END IF;
1947:
1948:
1949: -- Initialize message list IF p_init_msg_list is set to TRUE.
1946: END IF;
1947:
1948:
1949: -- Initialize message list IF p_init_msg_list is set to TRUE.
1950: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1951: FND_MSG_PUB.initialize;
1952: END IF;
1953:
1954: -- Debug Message
1959: FND_MSG_PUB.Add;
1960: END IF;
1961: */
1962: -- Initialize API return status to success
1963: x_return_status := FND_API.G_RET_STS_SUCCESS;
1964: -- Perform the database operation
1965:
1966: open c1;
1967: fetch c1 into l_count ;
2000: x_act_list_header_id => l_act_list_header_id
2001: ) ;
2002:
2003:
2004: if x_return_status <> FND_API.g_ret_sts_success THEN
2005: RAISE FND_API.G_EXC_ERROR;
2006: end if;
2007: end if;
2008:
2001: ) ;
2002:
2003:
2004: if x_return_status <> FND_API.g_ret_sts_success THEN
2005: RAISE FND_API.G_EXC_ERROR;
2006: end if;
2007: end if;
2008:
2009: -- Standard check of p_commit.
2007: end if;
2008:
2009: -- Standard check of p_commit.
2010:
2011: IF FND_API.To_Boolean ( p_commit ) THEN
2012: COMMIT WORK;
2013: END IF;
2014:
2015: -- Success Message
2027: FND_MESSAGE.Set_Token('TEXT', 'AMS_ACT_LIST.list_act_creation: END');
2028: FND_MSG_PUB.Add;
2029: END IF; */
2030: FND_MSG_PUB.count_and_get(
2031: p_encoded => FND_API.g_false,
2032: p_count => x_msg_count,
2033: p_data => x_msg_data
2034: );
2035:
2033: p_data => x_msg_data
2034: );
2035:
2036: EXCEPTION
2037: WHEN FND_API.G_EXC_ERROR THEN
2038: FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
2039: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
2040: FND_MSG_PUB.Add;
2041: -- Check if reset of the status is required
2038: FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
2039: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
2040: FND_MSG_PUB.Add;
2041: -- Check if reset of the status is required
2042: x_return_status := FND_API.G_RET_STS_ERROR ;
2043: FND_MSG_PUB.count_and_get(
2044: p_encoded => FND_API.g_false,
2045: p_count => x_msg_count,
2046: p_data => x_msg_data);
2040: FND_MSG_PUB.Add;
2041: -- Check if reset of the status is required
2042: x_return_status := FND_API.G_RET_STS_ERROR ;
2043: FND_MSG_PUB.count_and_get(
2044: p_encoded => FND_API.g_false,
2045: p_count => x_msg_count,
2046: p_data => x_msg_data);
2047:
2048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2044: p_encoded => FND_API.g_false,
2045: p_count => x_msg_count,
2046: p_data => x_msg_data);
2047:
2048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2049: FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
2050: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
2051: FND_MSG_PUB.Add;
2052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2049: FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
2050: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
2051: FND_MSG_PUB.Add;
2052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2053: FND_MSG_PUB.count_and_get(
2054: p_encoded => FND_API.g_false,
2055: p_count => x_msg_count,
2056: p_data => x_msg_data);
2050: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
2051: FND_MSG_PUB.Add;
2052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2053: FND_MSG_PUB.count_and_get(
2054: p_encoded => FND_API.g_false,
2055: p_count => x_msg_count,
2056: p_data => x_msg_data);
2057:
2058: WHEN OTHERS THEN
2058: WHEN OTHERS THEN
2059: FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
2060: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
2061: FND_MSG_PUB.Add;
2062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2063: FND_MSG_PUB.count_and_get(
2064: p_encoded => FND_API.g_false,
2065: p_count => x_msg_count,
2066: p_data => x_msg_data);
2060: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
2061: FND_MSG_PUB.Add;
2062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2063: FND_MSG_PUB.count_and_get(
2064: p_encoded => FND_API.g_false,
2065: p_count => x_msg_count,
2066: p_data => x_msg_data);
2067: END create_target_group_list;
2068:
2094:
2095: BEGIN
2096: write_to_act_log('Executing procedure control group generation in the remote instance.','LIST',p_list_header_id,'LOW');
2097:
2098: x_return_status := FND_API.G_RET_STS_SUCCESS;
2099:
2100:
2101: open c_get_count(p_list_header_id);
2102: fetch c_get_count into l_list_entry_count;
2143: p_log_used_by_id => g_list_header_id,
2144: p_level=>'HIGH');
2145: x_msg_count := 1;
2146: x_msg_data := 'Error during CG generation'||' '|| sqlcode || '-->'||sqlerrm;
2147: x_return_status := 'E'; -- FND_API.G_RET_STS_ERROR ;
2148: END Control_Group_Generation;
2149:
2150: PROCEDURE apply_supp(p_list_header_id in NUMBER,
2151: p_sql_string in VARCHAR2,
2432:
2433:
2434:
2435: IF SQL%NOTFOUND THEN
2436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2437: ELSE
2438: x_return_status := FND_API.g_ret_sts_success ;
2439: END IF;
2440:
2434:
2435: IF SQL%NOTFOUND THEN
2436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2437: ELSE
2438: x_return_status := FND_API.g_ret_sts_success ;
2439: END IF;
2440:
2441:
2442: EXCEPTION
2443:
2444: WHEN OTHERS THEN
2445: x_source_code := NULL;
2446: x_source_id := NULL;
2447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2448:
2449: End;
2450:
2451:
2484: END IF;
2485:
2486:
2487: -- Initialize API return status to success
2488: x_return_status := FND_API.G_RET_STS_SUCCESS;
2489:
2490: if p_list_used_by = 'CSCH' then
2491: open c_camp_source_code(p_list_used_by_id );
2492: fetch c_camp_source_code into
2517: x_source_id => l_source_id);
2518: end if;
2519:
2520:
2521: if x_return_status <> FND_API.g_ret_sts_success THEN
2522: RAISE FND_API.G_EXC_ERROR;
2523: end if;
2524: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2525: THEN
2518: end if;
2519:
2520:
2521: if x_return_status <> FND_API.g_ret_sts_success THEN
2522: RAISE FND_API.G_EXC_ERROR;
2523: end if;
2524: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2525: THEN
2526: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2538:
2539: EXCEPTION
2540: WHEN OTHERS THEN
2541:
2542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2543:
2544: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2545: THEN
2546: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,'get_source_code');
2548: End get_source_code;
2549:
2550: PROCEDURE generate_target_group_list_old
2551: ( p_api_version IN NUMBER,
2552: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2553: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2554: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2555: p_list_used_by in VARCHAR2,
2556: p_list_used_by_id in NUMBER,
2549:
2550: PROCEDURE generate_target_group_list_old
2551: ( p_api_version IN NUMBER,
2552: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2553: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2554: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2555: p_list_used_by in VARCHAR2,
2556: p_list_used_by_id in NUMBER,
2557: x_return_status OUT NOCOPY VARCHAR2,
2550: PROCEDURE generate_target_group_list_old
2551: ( p_api_version IN NUMBER,
2552: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2553: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2554: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2555: p_list_used_by in VARCHAR2,
2556: p_list_used_by_id in NUMBER,
2557: x_return_status OUT NOCOPY VARCHAR2,
2558: x_msg_count OUT NOCOPY NUMBER,
2641:
2642:
2643: BEGIN
2644:
2645: x_return_status := FND_API.G_RET_STS_SUCCESS;
2646: g_remote_list := 'N';
2647:
2648: open c1;
2649: fetch c1 into l_list_header_id ,
2680: end if;
2681: --Ends changes.
2682:
2683: -- Standard call to check for call compatibility.
2684: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2685: p_api_version,
2686: l_api_name,
2687: G_PKG_NAME) THEN
2688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2684: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2685: p_api_version,
2686: l_api_name,
2687: G_PKG_NAME) THEN
2688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2689: END IF;
2690:
2691: -- Initialize message list IF p_init_msg_list is set to TRUE.
2692: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2689: END IF;
2690:
2691: -- Initialize message list IF p_init_msg_list is set to TRUE.
2692: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2693: FND_MSG_PUB.initialize;
2694: END IF;
2695:
2696: get_Source_Code(
2698: p_list_used_by => p_list_used_by ,
2699: p_list_used_by_id => p_list_used_by_id ,
2700: x_source_code => l_source_code );
2701:
2702: if x_return_status <> FND_API.g_ret_sts_success THEN
2703: RAISE FND_API.G_EXC_ERROR;
2704: end if;
2705:
2706:
2699: p_list_used_by_id => p_list_used_by_id ,
2700: x_source_code => l_source_code );
2701:
2702: if x_return_status <> FND_API.g_ret_sts_success THEN
2703: RAISE FND_API.G_EXC_ERROR;
2704: end if;
2705:
2706:
2707: /* ------------------------- added by savio bug 381 7724 ---------------*/
2761:
2762:
2763: AMS_LISTGENERATION_PKG.GENERATE_TARGET_GROUP
2764: ( p_api_version => p_api_version,
2765: p_init_msg_list => FND_API.G_TRUE,
2766: p_commit => FND_API.G_FALSE,
2767: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2768: p_list_header_id => l_list_header_id,
2769: x_return_status => x_return_status,
2762:
2763: AMS_LISTGENERATION_PKG.GENERATE_TARGET_GROUP
2764: ( p_api_version => p_api_version,
2765: p_init_msg_list => FND_API.G_TRUE,
2766: p_commit => FND_API.G_FALSE,
2767: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2768: p_list_header_id => l_list_header_id,
2769: x_return_status => x_return_status,
2770: x_msg_count => x_msg_count,
2763: AMS_LISTGENERATION_PKG.GENERATE_TARGET_GROUP
2764: ( p_api_version => p_api_version,
2765: p_init_msg_list => FND_API.G_TRUE,
2766: p_commit => FND_API.G_FALSE,
2767: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2768: p_list_header_id => l_list_header_id,
2769: x_return_status => x_return_status,
2770: x_msg_count => x_msg_count,
2771: x_msg_data => x_msg_data );
2769: x_return_status => x_return_status,
2770: x_msg_count => x_msg_count,
2771: x_msg_data => x_msg_data );
2772:
2773: If x_return_status in (FND_API.g_ret_sts_error,FND_API.g_ret_sts_unexp_error) then
2774: write_to_act_log(p_msg_data => 'Error in generating target group' ,
2775: p_arc_log_used_by => 'LIST',
2776: p_log_used_by_id => g_list_header_id,
2777: p_level => 'HIGH');
2776: p_log_used_by_id => g_list_header_id,
2777: p_level => 'HIGH');
2778: end if;
2779:
2780: IF x_return_status = FND_API.g_ret_sts_error THEN
2781: RAISE FND_API.g_exc_error;
2782: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2783: RAISE FND_API.g_exc_unexpected_error;
2784: END IF;
2777: p_level => 'HIGH');
2778: end if;
2779:
2780: IF x_return_status = FND_API.g_ret_sts_error THEN
2781: RAISE FND_API.g_exc_error;
2782: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2783: RAISE FND_API.g_exc_unexpected_error;
2784: END IF;
2785:
2778: end if;
2779:
2780: IF x_return_status = FND_API.g_ret_sts_error THEN
2781: RAISE FND_API.g_exc_error;
2782: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2783: RAISE FND_API.g_exc_unexpected_error;
2784: END IF;
2785:
2786: write_to_act_log(p_msg_data => 'Procedure AMS_LISTGENERATION_PKG.GENERATE_TARGET_GROUP executed successfully.' ,
2779:
2780: IF x_return_status = FND_API.g_ret_sts_error THEN
2781: RAISE FND_API.g_exc_error;
2782: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2783: RAISE FND_API.g_exc_unexpected_error;
2784: END IF;
2785:
2786: write_to_act_log(p_msg_data => 'Procedure AMS_LISTGENERATION_PKG.GENERATE_TARGET_GROUP executed successfully.' ,
2787: p_arc_log_used_by => 'LIST',
2949: p_log_used_by_id => g_list_header_id,
2950: p_level=>'HIGH');
2951: ams_listgeneration_pkg.logger;
2952: -- Initialize API return status to success
2953: x_return_status := FND_API.G_RET_STS_SUCCESS;
2954: -- Perform the database operation
2955:
2956: -- Standard check of p_commit.
2957:
2954: -- Perform the database operation
2955:
2956: -- Standard check of p_commit.
2957:
2958: IF FND_API.To_Boolean ( p_commit ) THEN
2959: COMMIT WORK;
2960: END IF;
2961:
2962: -- Success Message
2973: FND_MESSAGE.Set_Token('TEXT', 'AMS_ACT_LIST.list_act_creation: END');
2974: FND_MSG_PUB.Add;
2975: END IF;
2976: FND_MSG_PUB.count_and_get(
2977: p_encoded => FND_API.g_false,
2978: p_count => x_msg_count,
2979: p_data => x_msg_data
2980: );
2981:
2979: p_data => x_msg_data
2980: );
2981:
2982: EXCEPTION
2983: WHEN FND_API.G_EXC_ERROR THEN
2984: FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
2985: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
2986: FND_MSG_PUB.Add;
2987: -- Check if reset of the status is required
2984: FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
2985: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
2986: FND_MSG_PUB.Add;
2987: -- Check if reset of the status is required
2988: x_return_status := FND_API.G_RET_STS_ERROR ;
2989: FND_MSG_PUB.count_and_get(
2990: p_encoded => FND_API.g_false,
2991: p_count => x_msg_count,
2992: p_data => x_msg_data);
2986: FND_MSG_PUB.Add;
2987: -- Check if reset of the status is required
2988: x_return_status := FND_API.G_RET_STS_ERROR ;
2989: FND_MSG_PUB.count_and_get(
2990: p_encoded => FND_API.g_false,
2991: p_count => x_msg_count,
2992: p_data => x_msg_data);
2993:
2994: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2990: p_encoded => FND_API.g_false,
2991: p_count => x_msg_count,
2992: p_data => x_msg_data);
2993:
2994: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2995: FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
2996: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
2997: FND_MSG_PUB.Add;
2998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2994: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2995: FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
2996: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
2997: FND_MSG_PUB.Add;
2998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2999: FND_MSG_PUB.count_and_get(
3000: p_encoded => FND_API.g_false,
3001: p_count => x_msg_count,
3002: p_data => x_msg_data);
2996: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
2997: FND_MSG_PUB.Add;
2998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2999: FND_MSG_PUB.count_and_get(
3000: p_encoded => FND_API.g_false,
3001: p_count => x_msg_count,
3002: p_data => x_msg_data);
3003:
3004: WHEN OTHERS THEN
3004: WHEN OTHERS THEN
3005: FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
3006: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
3007: FND_MSG_PUB.Add;
3008: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3009: FND_MSG_PUB.count_and_get(
3010: p_encoded => FND_API.g_false,
3011: p_count => x_msg_count,
3012: p_data => x_msg_data);
3006: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
3007: FND_MSG_PUB.Add;
3008: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3009: FND_MSG_PUB.count_and_get(
3010: p_encoded => FND_API.g_false,
3011: p_count => x_msg_count,
3012: p_data => x_msg_data);
3013: END generate_target_group_list_old;
3014:
3014:
3015:
3016: PROCEDURE generate_target_group_list
3017: ( p_api_version IN NUMBER,
3018: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3019: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3020: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3021: p_list_used_by in VARCHAR2,
3022: p_list_used_by_id in NUMBER,
3015:
3016: PROCEDURE generate_target_group_list
3017: ( p_api_version IN NUMBER,
3018: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3019: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3020: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3021: p_list_used_by in VARCHAR2,
3022: p_list_used_by_id in NUMBER,
3023: x_return_status OUT NOCOPY VARCHAR2,
3016: PROCEDURE generate_target_group_list
3017: ( p_api_version IN NUMBER,
3018: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3019: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3020: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3021: p_list_used_by in VARCHAR2,
3022: p_list_used_by_id in NUMBER,
3023: x_return_status OUT NOCOPY VARCHAR2,
3024: x_msg_count OUT NOCOPY NUMBER,
3051:
3052: l_status_code varchar2(30);
3053:
3054: begin
3055: x_return_status := FND_API.G_RET_STS_SUCCESS;
3056: -- Standard call to check for call compatibility.
3057: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3058: p_api_version,
3059: l_api_name,
3053:
3054: begin
3055: x_return_status := FND_API.G_RET_STS_SUCCESS;
3056: -- Standard call to check for call compatibility.
3057: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3058: p_api_version,
3059: l_api_name,
3060: G_PKG_NAME) THEN
3061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3057: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3058: p_api_version,
3059: l_api_name,
3060: G_PKG_NAME) THEN
3061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3062: END IF;
3063:
3064:
3065: -- Initialize message list IF p_init_msg_list is set to TRUE.
3062: END IF;
3063:
3064:
3065: -- Initialize message list IF p_init_msg_list is set to TRUE.
3066: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3067: FND_MSG_PUB.initialize;
3068: END IF;
3069:
3070:
3077: CLOSE c_status ;
3078: IF l_status_code = 'GENERATING' THEN
3079: FND_MESSAGE.Set_Name('AMS','AMS_GENERATING');
3080: FND_MSG_PUB.Add;
3081: RAISE FND_API.G_EXC_ERROR;
3082: END IF;
3083:
3084:
3085: open check_cell;
3093: x_msg_data => x_msg_data
3094: );
3095: end loop;
3096: close check_cell;
3097: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3098: RAISE FND_API.G_EXC_ERROR;
3099: END IF;
3100:
3101: if l_list_header_id is not null then
3094: );
3095: end loop;
3096: close check_cell;
3097: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3098: RAISE FND_API.G_EXC_ERROR;
3099: END IF;
3100:
3101: if l_list_header_id is not null then
3102: AMS_LIST_WF.StartProcess
3102: AMS_LIST_WF.StartProcess
3103: ( p_list_header_id => l_list_header_id
3104: ,workflowprocess => 'AMSLISTG') ;
3105: end if;
3106: x_return_status := FND_API.G_RET_STS_SUCCESS;
3107: -- Perform the database operation
3108:
3109: -- Standard check of p_commit.
3110:
3107: -- Perform the database operation
3108:
3109: -- Standard check of p_commit.
3110:
3111: IF FND_API.To_Boolean ( p_commit ) THEN
3112: COMMIT WORK;
3113: END IF;
3114:
3115: -- Success Message
3128: FND_MSG_PUB.Add;
3129: END IF;
3130: */
3131: FND_MSG_PUB.count_and_get(
3132: p_encoded => FND_API.g_false,
3133: p_count => x_msg_count,
3134: p_data => x_msg_data
3135: );
3136: EXCEPTION
3133: p_count => x_msg_count,
3134: p_data => x_msg_data
3135: );
3136: EXCEPTION
3137: WHEN FND_API.G_EXC_ERROR THEN
3138: --FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
3139: --FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
3140: --FND_MSG_PUB.Add;
3141: -- Check if reset of the status is required
3138: --FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
3139: --FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
3140: --FND_MSG_PUB.Add;
3141: -- Check if reset of the status is required
3142: x_return_status := FND_API.G_RET_STS_ERROR ;
3143: FND_MSG_PUB.count_and_get(
3144: p_encoded => FND_API.g_false,
3145: p_count => x_msg_count,
3146: p_data => x_msg_data);
3140: --FND_MSG_PUB.Add;
3141: -- Check if reset of the status is required
3142: x_return_status := FND_API.G_RET_STS_ERROR ;
3143: FND_MSG_PUB.count_and_get(
3144: p_encoded => FND_API.g_false,
3145: p_count => x_msg_count,
3146: p_data => x_msg_data);
3147:
3148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3144: p_encoded => FND_API.g_false,
3145: p_count => x_msg_count,
3146: p_data => x_msg_data);
3147:
3148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3149: --FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
3150: --FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
3151: --FND_MSG_PUB.Add;
3152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3149: --FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
3150: --FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
3151: --FND_MSG_PUB.Add;
3152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3153: FND_MSG_PUB.count_and_get(
3154: p_encoded => FND_API.g_false,
3155: p_count => x_msg_count,
3156: p_data => x_msg_data);
3150: --FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
3151: --FND_MSG_PUB.Add;
3152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3153: FND_MSG_PUB.count_and_get(
3154: p_encoded => FND_API.g_false,
3155: p_count => x_msg_count,
3156: p_data => x_msg_data);
3157:
3158: WHEN OTHERS THEN
3158: WHEN OTHERS THEN
3159: --FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
3160: --FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
3161: --FND_MSG_PUB.Add;
3162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3163: FND_MSG_PUB.count_and_get(
3164: p_encoded => FND_API.g_false,
3165: p_count => x_msg_count,
3166: p_data => x_msg_data);
3160: --FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);
3161: --FND_MSG_PUB.Add;
3162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3163: FND_MSG_PUB.count_and_get(
3164: p_encoded => FND_API.g_false,
3165: p_count => x_msg_count,
3166: p_data => x_msg_data);
3167:
3168:
3597:
3598: if l_found = 'N' then
3599: FND_MESSAGE.set_name('AMS', 'AMS_LIST_FROM_NOT_FOUND');
3600: FND_MSG_PUB.Add;
3601: RAISE FND_API.G_EXC_ERROR;
3602: end if;
3603: write_to_act_log('Process_all_sql: FROM Position ->'|| l_from_position ||
3604: '<--FROM Counter ->' || l_from_counter ||
3605: '<--FROM Found ->' || l_found,null,null);
3616: x_source_object_pk_field => l_source_object_pk_field);
3617: if l_found = 'N' then
3618: FND_MESSAGE.set_name('AMS', 'AMS_LIST_NO_MASTER_TYPE');
3619: FND_MSG_PUB.Add;
3620: RAISE FND_API.G_EXC_ERROR;
3621: end if;
3622: --write_to_act_log('Process_all_sql: Master Type->'|| l_master_type ||'<--' );
3623:
3624:
3684: );
3685: write_to_act_log('Process_all_sql: ***********end insert sql->' ,null,null);
3686: --write_to_act_log('Proc_all__sql -> end' ||x_return_status);
3687: EXCEPTION
3688: WHEN FND_API.G_EXC_ERROR THEN
3689: write_to_act_log('Error: AMS_ListGeneration_PKG.process_all_sql: ',null,null);
3690: x_return_status := FND_API.G_RET_STS_ERROR ;
3691: FND_MSG_PUB.count_and_get(
3692: p_encoded => FND_API.g_false,
3686: --write_to_act_log('Proc_all__sql -> end' ||x_return_status);
3687: EXCEPTION
3688: WHEN FND_API.G_EXC_ERROR THEN
3689: write_to_act_log('Error: AMS_ListGeneration_PKG.process_all_sql: ',null,null);
3690: x_return_status := FND_API.G_RET_STS_ERROR ;
3691: FND_MSG_PUB.count_and_get(
3692: p_encoded => FND_API.g_false,
3693: p_count => x_msg_count,
3694: p_data => x_msg_data
3688: WHEN FND_API.G_EXC_ERROR THEN
3689: write_to_act_log('Error: AMS_ListGeneration_PKG.process_all_sql: ',null,null);
3690: x_return_status := FND_API.G_RET_STS_ERROR ;
3691: FND_MSG_PUB.count_and_get(
3692: p_encoded => FND_API.g_false,
3693: p_count => x_msg_count,
3694: p_data => x_msg_data
3695: );
3696:
3693: p_count => x_msg_count,
3694: p_data => x_msg_data
3695: );
3696:
3697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3698: write_to_act_log('Error: AMS_ListGeneration_PKG.process_all_sql: ',null,null);
3699: x_return_status := FND_API.G_RET_STS_ERROR ;
3700: FND_MSG_PUB.count_and_get(
3701: p_encoded => FND_API.g_false,
3695: );
3696:
3697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3698: write_to_act_log('Error: AMS_ListGeneration_PKG.process_all_sql: ',null,null);
3699: x_return_status := FND_API.G_RET_STS_ERROR ;
3700: FND_MSG_PUB.count_and_get(
3701: p_encoded => FND_API.g_false,
3702: p_count => x_msg_count,
3703: p_data => x_msg_data
3697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3698: write_to_act_log('Error: AMS_ListGeneration_PKG.process_all_sql: ',null,null);
3699: x_return_status := FND_API.G_RET_STS_ERROR ;
3700: FND_MSG_PUB.count_and_get(
3701: p_encoded => FND_API.g_false,
3702: p_count => x_msg_count,
3703: p_data => x_msg_data
3704: );
3705:
3704: );
3705:
3706: WHEN OTHERS THEN
3707: write_to_act_log('Error: AMS_ListGeneration_PKG.process_all_sql:' ,null,null);
3708: x_return_status := FND_API.G_RET_STS_ERROR ;
3709: FND_MSG_PUB.count_and_get(
3710: p_encoded => FND_API.g_false,
3711: p_count => x_msg_count,
3712: p_data => x_msg_data
3706: WHEN OTHERS THEN
3707: write_to_act_log('Error: AMS_ListGeneration_PKG.process_all_sql:' ,null,null);
3708: x_return_status := FND_API.G_RET_STS_ERROR ;
3709: FND_MSG_PUB.count_and_get(
3710: p_encoded => FND_API.g_false,
3711: p_count => x_msg_count,
3712: p_data => x_msg_data
3713: );
3714:
3763:
3764: --write_to_act_log('AMS_ListGeneration_PKG.Get Comp sql:');
3765: ams_cell_pvt.get_comp_sql(
3766: p_api_version => 1.0,
3767: p_init_msg_list => FND_API.g_false,
3768: p_validation_level => FND_API.g_valid_level_full,
3769: x_return_status => x_return_status,
3770: x_msg_count => x_msg_count ,
3771: x_msg_data =>x_msg_data,
3764: --write_to_act_log('AMS_ListGeneration_PKG.Get Comp sql:');
3765: ams_cell_pvt.get_comp_sql(
3766: p_api_version => 1.0,
3767: p_init_msg_list => FND_API.g_false,
3768: p_validation_level => FND_API.g_valid_level_full,
3769: x_return_status => x_return_status,
3770: x_msg_count => x_msg_count ,
3771: x_msg_data =>x_msg_data,
3772: p_cell_id => p_incl_object_id ,
3769: x_return_status => x_return_status,
3770: x_msg_count => x_msg_count ,
3771: x_msg_data =>x_msg_data,
3772: p_cell_id => p_incl_object_id ,
3773: p_party_id_only => FND_API.g_false,
3774: x_sql_tbl => l_sql_2
3775: );
3776: --write_to_act_log('AMS_ListGeneration_PKG.After Comp sql:');
3777:
3860: copy_target_group
3861: (p_from_schedule_id ,
3862: p_to_schedule_id ,
3863: p_list_used_by ,
3864: FND_API.G_FALSE,
3865: x_msg_count ,
3866: x_msg_data ,
3867: x_return_status );
3868:
4008:
4009: ams_listheader_pvt.complete_listheader_rec
4010: (p_listheader_rec =>l_tmp_listheader_rec,
4011: x_complete_rec =>l_listheader_rec);
4012: l_listheader_rec.list_header_id := fnd_api.g_miss_num;
4013: l_listheader_rec.list_name := l_sched_rec.list_name; -- Kiran changed to l_sched_rec.list_name
4014: --l_listheader_rec.list_name := l_listheader_rec.list_name || '_'||
4015: --p_to_schedule_id ;
4016: -- l_listheader_rec.NO_OF_ROWS_DUPLICATES := 0;
4067:
4068: -- ckapoor R12 copy
4069: AMS_ListHeader_PVT.Create_Listheader
4070: ( p_api_version => 1.0,
4071: p_init_msg_list => FND_API.g_false,
4072: p_commit => FND_API.g_false,
4073: p_validation_level => FND_API.g_valid_level_full,
4074: x_return_status => l_return_status,
4075: x_msg_count => l_msg_count,
4068: -- ckapoor R12 copy
4069: AMS_ListHeader_PVT.Create_Listheader
4070: ( p_api_version => 1.0,
4071: p_init_msg_list => FND_API.g_false,
4072: p_commit => FND_API.g_false,
4073: p_validation_level => FND_API.g_valid_level_full,
4074: x_return_status => l_return_status,
4075: x_msg_count => l_msg_count,
4076: x_msg_data => l_msg_data,
4069: AMS_ListHeader_PVT.Create_Listheader
4070: ( p_api_version => 1.0,
4071: p_init_msg_list => FND_API.g_false,
4072: p_commit => FND_API.g_false,
4073: p_validation_level => FND_API.g_valid_level_full,
4074: x_return_status => l_return_status,
4075: x_msg_count => l_msg_count,
4076: x_msg_data => l_msg_data,
4077: p_listheader_rec => l_listheader_rec,
4080: UPDATE ams_list_headers_all SET query_template_id = l_query_temp_id
4081: WHERE list_header_id = l_list_header_id;
4082: --for i in 1 .. l_msg_count loop
4083: --FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,
4084: --FND_API.G_FALSE,
4085: --l_msg_data,
4086: --l_msg_count);
4087: --end loop;
4088: IF l_return_status = FND_API.g_ret_sts_error THEN
4084: --FND_API.G_FALSE,
4085: --l_msg_data,
4086: --l_msg_count);
4087: --end loop;
4088: IF l_return_status = FND_API.g_ret_sts_error THEN
4089: RAISE FND_API.g_exc_error;
4090: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4091: RAISE FND_API.g_exc_unexpected_error;
4092: END IF;
4085: --l_msg_data,
4086: --l_msg_count);
4087: --end loop;
4088: IF l_return_status = FND_API.g_ret_sts_error THEN
4089: RAISE FND_API.g_exc_error;
4090: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4091: RAISE FND_API.g_exc_unexpected_error;
4092: END IF;
4093:
4086: --l_msg_count);
4087: --end loop;
4088: IF l_return_status = FND_API.g_ret_sts_error THEN
4089: RAISE FND_API.g_exc_error;
4090: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4091: RAISE FND_API.g_exc_unexpected_error;
4092: END IF;
4093:
4094: IF (AMS_DEBUG_HIGH_ON) THEN
4087: --end loop;
4088: IF l_return_status = FND_API.g_ret_sts_error THEN
4089: RAISE FND_API.g_exc_error;
4090: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4091: RAISE FND_API.g_exc_unexpected_error;
4092: END IF;
4093:
4094: IF (AMS_DEBUG_HIGH_ON) THEN
4095: AMS_Utility_PVT.debug_message('Private API: copy_target_group, done creating header '||l_list_header_id);
4104: x_return_status => l_return_status,
4105: x_query_id =>l_query_id
4106: );
4107:
4108: IF l_return_status = FND_API.g_ret_sts_error THEN
4109: RAISE FND_API.g_exc_error;
4110: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4111: RAISE FND_API.g_exc_unexpected_error;
4112: END IF;
4105: x_query_id =>l_query_id
4106: );
4107:
4108: IF l_return_status = FND_API.g_ret_sts_error THEN
4109: RAISE FND_API.g_exc_error;
4110: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4111: RAISE FND_API.g_exc_unexpected_error;
4112: END IF;
4113:
4106: );
4107:
4108: IF l_return_status = FND_API.g_ret_sts_error THEN
4109: RAISE FND_API.g_exc_error;
4110: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4111: RAISE FND_API.g_exc_unexpected_error;
4112: END IF;
4113:
4114: IF (AMS_DEBUG_HIGH_ON) THEN
4107:
4108: IF l_return_status = FND_API.g_ret_sts_error THEN
4109: RAISE FND_API.g_exc_error;
4110: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4111: RAISE FND_API.g_exc_unexpected_error;
4112: END IF;
4113:
4114: IF (AMS_DEBUG_HIGH_ON) THEN
4115: AMS_Utility_PVT.debug_message('Private API: copy_target_group, done copy_selections '||FND_API.G_VALID_LEVEL_FULL);
4111: RAISE FND_API.g_exc_unexpected_error;
4112: END IF;
4113:
4114: IF (AMS_DEBUG_HIGH_ON) THEN
4115: AMS_Utility_PVT.debug_message('Private API: copy_target_group, done copy_selections '||FND_API.G_VALID_LEVEL_FULL);
4116: END IF;
4117:
4118:
4119: IF l_query_temp_id IS NOT NULL THEN
4141: x_old_templ_inst_id => l_old_templ_inst_id,
4142: x_new_templ_inst_id => l_new_templ_inst_id
4143: );
4144:
4145: IF l_return_status = FND_API.g_ret_sts_error THEN
4146: RAISE FND_API.g_exc_error;
4147: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4148: RAISE FND_API.g_exc_unexpected_error;
4149: END IF;
4142: x_new_templ_inst_id => l_new_templ_inst_id
4143: );
4144:
4145: IF l_return_status = FND_API.g_ret_sts_error THEN
4146: RAISE FND_API.g_exc_error;
4147: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4148: RAISE FND_API.g_exc_unexpected_error;
4149: END IF;
4150:
4143: );
4144:
4145: IF l_return_status = FND_API.g_ret_sts_error THEN
4146: RAISE FND_API.g_exc_error;
4147: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4148: RAISE FND_API.g_exc_unexpected_error;
4149: END IF;
4150:
4151: IF (AMS_DEBUG_HIGH_ON) THEN
4144:
4145: IF l_return_status = FND_API.g_ret_sts_error THEN
4146: RAISE FND_API.g_exc_error;
4147: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4148: RAISE FND_API.g_exc_unexpected_error;
4149: END IF;
4150:
4151: IF (AMS_DEBUG_HIGH_ON) THEN
4152: AMS_Utility_PVT.debug_message('Private API: copy_target_group, done copy_template_instance');
4206: l_act_list_rec.list_act_type := 'TARGET';
4207:
4208: AMS_ACT_LIST_PVT.Create_Act_List(
4209: p_api_version_number => 1.0,
4210: p_init_msg_list => FND_API.g_false,
4211: p_commit => FND_API.g_false,
4212: p_validation_level => FND_API.g_valid_level_full,
4213: x_return_status => l_return_status,
4214: x_msg_count => l_msg_count,
4207:
4208: AMS_ACT_LIST_PVT.Create_Act_List(
4209: p_api_version_number => 1.0,
4210: p_init_msg_list => FND_API.g_false,
4211: p_commit => FND_API.g_false,
4212: p_validation_level => FND_API.g_valid_level_full,
4213: x_return_status => l_return_status,
4214: x_msg_count => l_msg_count,
4215: x_msg_data => l_msg_data,
4208: AMS_ACT_LIST_PVT.Create_Act_List(
4209: p_api_version_number => 1.0,
4210: p_init_msg_list => FND_API.g_false,
4211: p_commit => FND_API.g_false,
4212: p_validation_level => FND_API.g_valid_level_full,
4213: x_return_status => l_return_status,
4214: x_msg_count => l_msg_count,
4215: x_msg_data => l_msg_data,
4216: p_act_list_rec => l_act_list_rec ,
4216: p_act_list_rec => l_act_list_rec ,
4217: x_act_list_header_id => l_act_list_header_id
4218: ) ;
4219:
4220: IF l_return_status = FND_API.g_ret_sts_error THEN
4221: RAISE FND_API.g_exc_error;
4222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4223: RAISE FND_API.g_exc_unexpected_error;
4224: END IF;
4217: x_act_list_header_id => l_act_list_header_id
4218: ) ;
4219:
4220: IF l_return_status = FND_API.g_ret_sts_error THEN
4221: RAISE FND_API.g_exc_error;
4222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4223: RAISE FND_API.g_exc_unexpected_error;
4224: END IF;
4225:
4218: ) ;
4219:
4220: IF l_return_status = FND_API.g_ret_sts_error THEN
4221: RAISE FND_API.g_exc_error;
4222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4223: RAISE FND_API.g_exc_unexpected_error;
4224: END IF;
4225:
4226:
4219:
4220: IF l_return_status = FND_API.g_ret_sts_error THEN
4221: RAISE FND_API.g_exc_error;
4222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4223: RAISE FND_API.g_exc_unexpected_error;
4224: END IF;
4225:
4226:
4227: IF (AMS_DEBUG_HIGH_ON) THEN
4262: END IF;
4263:
4264: AMS_ACT_LIST_PVT.Create_Act_List(
4265: p_api_version_number => 1.0,
4266: p_init_msg_list => FND_API.g_false,
4267: p_commit => FND_API.g_false,
4268: p_validation_level => FND_API.G_VALID_LEVEL_FULL, --here
4269: x_return_status => l_return_status,
4270: x_msg_count => l_msg_count,
4263:
4264: AMS_ACT_LIST_PVT.Create_Act_List(
4265: p_api_version_number => 1.0,
4266: p_init_msg_list => FND_API.g_false,
4267: p_commit => FND_API.g_false,
4268: p_validation_level => FND_API.G_VALID_LEVEL_FULL, --here
4269: x_return_status => l_return_status,
4270: x_msg_count => l_msg_count,
4271: x_msg_data => l_msg_data,
4264: AMS_ACT_LIST_PVT.Create_Act_List(
4265: p_api_version_number => 1.0,
4266: p_init_msg_list => FND_API.g_false,
4267: p_commit => FND_API.g_false,
4268: p_validation_level => FND_API.G_VALID_LEVEL_FULL, --here
4269: x_return_status => l_return_status,
4270: x_msg_count => l_msg_count,
4271: x_msg_data => l_msg_data,
4272: p_act_list_rec => l_act_list_rec ,
4272: p_act_list_rec => l_act_list_rec ,
4273: x_act_list_header_id => l_act_list_header_id
4274: ) ;
4275:
4276: IF l_return_status = FND_API.g_ret_sts_error THEN
4277: RAISE FND_API.g_exc_error;
4278: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4279: RAISE FND_API.g_exc_unexpected_error;
4280: END IF;
4273: x_act_list_header_id => l_act_list_header_id
4274: ) ;
4275:
4276: IF l_return_status = FND_API.g_ret_sts_error THEN
4277: RAISE FND_API.g_exc_error;
4278: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4279: RAISE FND_API.g_exc_unexpected_error;
4280: END IF;
4281:
4274: ) ;
4275:
4276: IF l_return_status = FND_API.g_ret_sts_error THEN
4277: RAISE FND_API.g_exc_error;
4278: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4279: RAISE FND_API.g_exc_unexpected_error;
4280: END IF;
4281:
4282: IF (AMS_DEBUG_HIGH_ON) THEN
4275:
4276: IF l_return_status = FND_API.g_ret_sts_error THEN
4277: RAISE FND_API.g_exc_error;
4278: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4279: RAISE FND_API.g_exc_unexpected_error;
4280: END IF;
4281:
4282: IF (AMS_DEBUG_HIGH_ON) THEN
4283: AMS_Utility_PVT.debug_message('Private API: copy_target_group, done second Create_Act_List');
4286: if j = 1 then
4287: --bug 4623994
4288: /*for i in 1 .. l_msg_count loop
4289: FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,
4290: FND_API.G_FALSE,
4291: l_msg_data,
4292: l_msg_count);
4293: end loop;*/
4294: null;
4293: end loop;*/
4294: null;
4295: end if;
4296: end loop;
4297: IF p_repeat_flag = FND_API.G_TRUE then
4298:
4299: open c_get_schedule_details;
4300: fetch c_get_schedule_details into l_exclude_flag ;
4301: close c_get_schedule_details ;
4311: l_act_list_rec.order_number := l_last_order_number +5 ;
4312: l_act_list_rec.group_code := l_target_group_rec.group_code ;
4313: AMS_ACT_LIST_PVT.Create_Act_List(
4314: p_api_version_number => 1.0,
4315: p_init_msg_list => FND_API.g_false,
4316: p_commit => FND_API.g_false,
4317: p_validation_level => FND_API.g_valid_level_full,
4318: x_return_status => l_return_status,
4319: x_msg_count => l_msg_count,
4312: l_act_list_rec.group_code := l_target_group_rec.group_code ;
4313: AMS_ACT_LIST_PVT.Create_Act_List(
4314: p_api_version_number => 1.0,
4315: p_init_msg_list => FND_API.g_false,
4316: p_commit => FND_API.g_false,
4317: p_validation_level => FND_API.g_valid_level_full,
4318: x_return_status => l_return_status,
4319: x_msg_count => l_msg_count,
4320: x_msg_data => l_msg_data,
4313: AMS_ACT_LIST_PVT.Create_Act_List(
4314: p_api_version_number => 1.0,
4315: p_init_msg_list => FND_API.g_false,
4316: p_commit => FND_API.g_false,
4317: p_validation_level => FND_API.g_valid_level_full,
4318: x_return_status => l_return_status,
4319: x_msg_count => l_msg_count,
4320: x_msg_data => l_msg_data,
4321: p_act_list_rec => l_act_list_rec ,
4323: ) ;
4324: --bug 4623994
4325: /*for i in 1 .. l_msg_count loop
4326: FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,
4327: FND_API.G_FALSE,
4328: l_msg_data,
4329: l_msg_count);
4330: end loop;*/
4331:
4361: END IF;
4362:
4363: AMS_ListAction_PVT.Create_ListAction
4364: ( 1.0,
4365: FND_API.g_false,
4366: FND_API.g_false ,
4367: FND_API.G_VALID_LEVEL_FULL, --here
4368: l_return_status ,
4369: l_msg_count,
4362:
4363: AMS_ListAction_PVT.Create_ListAction
4364: ( 1.0,
4365: FND_API.g_false,
4366: FND_API.g_false ,
4367: FND_API.G_VALID_LEVEL_FULL, --here
4368: l_return_status ,
4369: l_msg_count,
4370: l_msg_data,
4363: AMS_ListAction_PVT.Create_ListAction
4364: ( 1.0,
4365: FND_API.g_false,
4366: FND_API.g_false ,
4367: FND_API.G_VALID_LEVEL_FULL, --here
4368: l_return_status ,
4369: l_msg_count,
4370: l_msg_data,
4371: l_exclude_action_rec,
4379:
4380:
4381:
4382:
4383: IF l_return_status = FND_API.g_ret_sts_error THEN
4384: RAISE FND_API.g_exc_error;
4385: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4386: RAISE FND_API.g_exc_unexpected_error;
4387: END IF;
4380:
4381:
4382:
4383: IF l_return_status = FND_API.g_ret_sts_error THEN
4384: RAISE FND_API.g_exc_error;
4385: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4386: RAISE FND_API.g_exc_unexpected_error;
4387: END IF;
4388: --bug 4623994
4381:
4382:
4383: IF l_return_status = FND_API.g_ret_sts_error THEN
4384: RAISE FND_API.g_exc_error;
4385: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4386: RAISE FND_API.g_exc_unexpected_error;
4387: END IF;
4388: --bug 4623994
4389: /*for i in 1 .. l_msg_count loop
4382:
4383: IF l_return_status = FND_API.g_ret_sts_error THEN
4384: RAISE FND_API.g_exc_error;
4385: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4386: RAISE FND_API.g_exc_unexpected_error;
4387: END IF;
4388: --bug 4623994
4389: /*for i in 1 .. l_msg_count loop
4390: FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,
4387: END IF;
4388: --bug 4623994
4389: /*for i in 1 .. l_msg_count loop
4390: FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,
4391: FND_API.G_FALSE,
4392: l_msg_data,
4393: l_msg_count);
4394: end loop;*/
4395: end if;
4397:
4398: IF (AMS_DEBUG_HIGH_ON) THEN
4399: AMS_Utility_PVT.debug_message('Private API: copy_target_group,finished');
4400: END IF;
4401: --RAISE FND_API.G_EXC_ERROR;
4402: END IF ; -- if l_target_group_found
4403: EXCEPTION
4404:
4405: WHEN AMS_Utility_PVT.resource_locked THEN
4402: END IF ; -- if l_target_group_found
4403: EXCEPTION
4404:
4405: WHEN AMS_Utility_PVT.resource_locked THEN
4406: x_return_status := FND_API.g_ret_sts_error;
4407: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
4408: WHEN FND_API.G_EXC_ERROR THEN
4409: ROLLBACK TO copy_target_group_pvt;
4410: x_return_status := FND_API.G_RET_STS_ERROR;
4404:
4405: WHEN AMS_Utility_PVT.resource_locked THEN
4406: x_return_status := FND_API.g_ret_sts_error;
4407: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
4408: WHEN FND_API.G_EXC_ERROR THEN
4409: ROLLBACK TO copy_target_group_pvt;
4410: x_return_status := FND_API.G_RET_STS_ERROR;
4411: -- Standard call to get message count and if count=1, get the message
4412: FND_MSG_PUB.Count_And_Get (
4406: x_return_status := FND_API.g_ret_sts_error;
4407: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
4408: WHEN FND_API.G_EXC_ERROR THEN
4409: ROLLBACK TO copy_target_group_pvt;
4410: x_return_status := FND_API.G_RET_STS_ERROR;
4411: -- Standard call to get message count and if count=1, get the message
4412: FND_MSG_PUB.Count_And_Get (
4413: p_encoded => FND_API.G_FALSE,
4414: p_count => x_msg_count,
4409: ROLLBACK TO copy_target_group_pvt;
4410: x_return_status := FND_API.G_RET_STS_ERROR;
4411: -- Standard call to get message count and if count=1, get the message
4412: FND_MSG_PUB.Count_And_Get (
4413: p_encoded => FND_API.G_FALSE,
4414: p_count => x_msg_count,
4415: p_data => x_msg_data
4416: );
4417:
4414: p_count => x_msg_count,
4415: p_data => x_msg_data
4416: );
4417:
4418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4419: ROLLBACK TO copy_target_group_pvt;
4420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4421: -- Standard call to get message count and if count=1, get the message
4422: FND_MSG_PUB.Count_And_Get (
4416: );
4417:
4418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4419: ROLLBACK TO copy_target_group_pvt;
4420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4421: -- Standard call to get message count and if count=1, get the message
4422: FND_MSG_PUB.Count_And_Get (
4423: p_encoded => FND_API.G_FALSE,
4424: p_count => x_msg_count,
4419: ROLLBACK TO copy_target_group_pvt;
4420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4421: -- Standard call to get message count and if count=1, get the message
4422: FND_MSG_PUB.Count_And_Get (
4423: p_encoded => FND_API.G_FALSE,
4424: p_count => x_msg_count,
4425: p_data => x_msg_data
4426: );
4427:
4426: );
4427:
4428: WHEN OTHERS THEN
4429: ROLLBACK TO copy_target_group_pvt;
4430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4431: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4432: THEN
4433: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4434: END IF;
4433: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4434: END IF;
4435: -- Standard call to get message count and if count=1, get the message
4436: FND_MSG_PUB.Count_And_Get (
4437: p_encoded => FND_API.G_FALSE,
4438: p_count => x_msg_count,
4439: p_data => x_msg_data
4440: );
4441: END copy_target_group;
4469: l_action_id number;
4470: l_act_list_header_id number;
4471: l_msg_data VARCHAR2(2000);
4472: l_api_version CONSTANT NUMBER := 1.0;
4473: l_init_msg_list VARCHAR2(2000) := FND_API.G_FALSE;
4474: l_list_select_action_id NUMBER;
4475: l_listaction_rec ams_listaction_pvt.action_rec_type;
4476: l_tmp_listaction_rec ams_listaction_pvt.action_rec_type;
4477: l_action_rec AMS_ListAction_PVT.action_rec_type;
4554: x_msg_data => l_msg_data,
4555: x_return_status => l_return_status
4556: );
4557:
4558: IF l_return_status = FND_API.g_ret_sts_error THEN
4559: RAISE FND_API.g_exc_error;
4560: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4561: RAISE FND_API.g_exc_unexpected_error;
4562: END IF;
4555: x_return_status => l_return_status
4556: );
4557:
4558: IF l_return_status = FND_API.g_ret_sts_error THEN
4559: RAISE FND_API.g_exc_error;
4560: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4561: RAISE FND_API.g_exc_unexpected_error;
4562: END IF;
4563:
4556: );
4557:
4558: IF l_return_status = FND_API.g_ret_sts_error THEN
4559: RAISE FND_API.g_exc_error;
4560: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4561: RAISE FND_API.g_exc_unexpected_error;
4562: END IF;
4563:
4564: IF (AMS_DEBUG_HIGH_ON) THEN
4557:
4558: IF l_return_status = FND_API.g_ret_sts_error THEN
4559: RAISE FND_API.g_exc_error;
4560: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4561: RAISE FND_API.g_exc_unexpected_error;
4562: END IF;
4563:
4564: IF (AMS_DEBUG_HIGH_ON) THEN
4565: AMS_Utility_PVT.debug_message('Private API: copy_target_group, done copy_query_list_params');
4574:
4575: AMS_ListAction_PVT.Create_ListAction
4576: ( l_api_version,
4577: l_init_msg_list,
4578: FND_API.g_false ,
4579: FND_API.G_VALID_LEVEL_FULL, --here
4580: l_return_status , -------------VBCHANGE--------------------
4581: l_msg_count,-------------VBCHANGE--------------------
4582: l_msg_data,-------------VBCHANGE--------------------
4575: AMS_ListAction_PVT.Create_ListAction
4576: ( l_api_version,
4577: l_init_msg_list,
4578: FND_API.g_false ,
4579: FND_API.G_VALID_LEVEL_FULL, --here
4580: l_return_status , -------------VBCHANGE--------------------
4581: l_msg_count,-------------VBCHANGE--------------------
4582: l_msg_data,-------------VBCHANGE--------------------
4583: l_action_rec,
4585: ) ;
4586:
4587: -------------VBCHANGE--------------------
4588: /* FOR i IN 1 .. l_msg_count LOOP
4589: l_msg_data := FND_MSG_PUB.get(i, FND_API.g_false);
4590: AMS_Utility_PVT.debug_message('(' || i || ') ' || l_msg_data);
4591: END LOOP;*/
4592:
4593: IF (AMS_DEBUG_HIGH_ON) THEN
4592:
4593: IF (AMS_DEBUG_HIGH_ON) THEN
4594: AMS_Utility_PVT.debug_message('Return status from Create_ListAction'||l_return_status);
4595: END IF;
4596: IF l_return_status = FND_API.g_ret_sts_error THEN
4597: RAISE FND_API.g_exc_error;
4598: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4599: RAISE FND_API.g_exc_unexpected_error;
4600: END IF;
4593: IF (AMS_DEBUG_HIGH_ON) THEN
4594: AMS_Utility_PVT.debug_message('Return status from Create_ListAction'||l_return_status);
4595: END IF;
4596: IF l_return_status = FND_API.g_ret_sts_error THEN
4597: RAISE FND_API.g_exc_error;
4598: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4599: RAISE FND_API.g_exc_unexpected_error;
4600: END IF;
4601:
4594: AMS_Utility_PVT.debug_message('Return status from Create_ListAction'||l_return_status);
4595: END IF;
4596: IF l_return_status = FND_API.g_ret_sts_error THEN
4597: RAISE FND_API.g_exc_error;
4598: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4599: RAISE FND_API.g_exc_unexpected_error;
4600: END IF;
4601:
4602: -------------VBCHANGE--------------------
4595: END IF;
4596: IF l_return_status = FND_API.g_ret_sts_error THEN
4597: RAISE FND_API.g_exc_error;
4598: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4599: RAISE FND_API.g_exc_unexpected_error;
4600: END IF;
4601:
4602: -------------VBCHANGE--------------------
4603: UPDATE ams_list_select_actions SET incl_object_name = l_list_actions_rec.incl_object_name
4643:
4644: long_var LONG;
4645: l_queries_rec fetch_list_queries_all%rowtype;
4646: l_api_version CONSTANT NUMBER := 1.0;
4647: l_init_msg_list VARCHAR2(2000) := FND_API.G_FALSE;
4648: l_tmplist_query_rec AMS_List_Query_PVT.list_query_rec_type;
4649: l_list_query_rec AMS_List_Query_PVT.list_query_rec_type;
4650:
4651: l_return_status VARCHAR2(1);
4684:
4685:
4686: AMS_List_Query_PVT.Create_List_Query(
4687: p_api_version_number => 1.0,
4688: p_init_msg_list => FND_API.G_FALSE,
4689: p_commit => FND_API.G_FALSE,
4690: p_validation_level => FND_API.G_VALID_LEVEL_FULL, --here
4691: x_return_status => x_return_status,
4692: x_msg_count => x_msg_count,
4685:
4686: AMS_List_Query_PVT.Create_List_Query(
4687: p_api_version_number => 1.0,
4688: p_init_msg_list => FND_API.G_FALSE,
4689: p_commit => FND_API.G_FALSE,
4690: p_validation_level => FND_API.G_VALID_LEVEL_FULL, --here
4691: x_return_status => x_return_status,
4692: x_msg_count => x_msg_count,
4693: x_msg_data => x_msg_data,
4686: AMS_List_Query_PVT.Create_List_Query(
4687: p_api_version_number => 1.0,
4688: p_init_msg_list => FND_API.G_FALSE,
4689: p_commit => FND_API.G_FALSE,
4690: p_validation_level => FND_API.G_VALID_LEVEL_FULL, --here
4691: x_return_status => x_return_status,
4692: x_msg_count => x_msg_count,
4693: x_msg_data => x_msg_data,
4694: p_list_query_rec => l_list_query_rec ,
4697: IF (AMS_DEBUG_HIGH_ON) THEN
4698: AMS_Utility_PVT.debug_message('copy_queries...l_list_query_id '||l_list_query_id );
4699: END IF;
4700:
4701: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4702: RAISE FND_API.G_EXC_ERROR;
4703: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4705: END IF;
4698: AMS_Utility_PVT.debug_message('copy_queries...l_list_query_id '||l_list_query_id );
4699: END IF;
4700:
4701: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4702: RAISE FND_API.G_EXC_ERROR;
4703: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4705: END IF;
4706:
4699: END IF;
4700:
4701: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4702: RAISE FND_API.G_EXC_ERROR;
4703: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4705: END IF;
4706:
4707: /*
4700:
4701: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4702: RAISE FND_API.G_EXC_ERROR;
4703: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4705: END IF;
4706:
4707: /*
4708: OPEN fetch_long_query_val(p_old_query_id);
4743: SELECT AMS_LIST_QUERIES_PARAM_s.NEXTVAL FROM dual;
4744:
4745:
4746: l_api_version CONSTANT NUMBER := 1.0;
4747: l_init_msg_list VARCHAR2(2000) := FND_API.G_FALSE;
4748: l_sql VARCHAR2(5000);
4749: l_list_query_param_id NUMBER;
4750: l_return_status VARCHAR2(1);
4751: l_msg_count number;
4810: where instance_used_by_id = p_header_id;
4811:
4812:
4813: l_api_version CONSTANT NUMBER := 1.0;
4814: l_init_msg_list VARCHAR2(2000) := FND_API.G_FALSE;
4815: l_sql VARCHAR2(5000);
4816: l_templ_inst_id NUMBER;
4817: l_return_status VARCHAR2(1);
4818: l_msg_count number;
5148: IS
5149: BEGIN
5150:
5151: -- INITIALIZE RETURN STATUS TO SUCCESS
5152: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
5153:
5154: IF (AMS_DEBUG_HIGH_ON) THEN
5155: AMS_Utility_PVT.debug_message('****FUNCTION: UPDATE_LIST_STATUS_TO_LOCKED start****');
5156:
5173:
5174: EXCEPTION
5175:
5176:
5177: WHEN FND_API.G_EXC_ERROR THEN
5178: IF (AMS_DEBUG_HIGH_ON) THEN
5179: AMS_Utility_PVT.debug_message('Exception while executing procedure UPDATE_LIST_STATUS_TO_LOCKED'||' '||sqlerrm||' '||sqlcode);
5180: END IF;
5181:
5178: IF (AMS_DEBUG_HIGH_ON) THEN
5179: AMS_Utility_PVT.debug_message('Exception while executing procedure UPDATE_LIST_STATUS_TO_LOCKED'||' '||sqlerrm||' '||sqlcode);
5180: END IF;
5181:
5182: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5183: IF (AMS_DEBUG_HIGH_ON) THEN
5184: AMS_Utility_PVT.debug_message('UNEXPECTED_ERROR while executing procedure UPDATE_LIST_STATUS_TO_LOCKED'||' '||sqlerrm||' '||sqlcode);
5185: END IF;
5186: