51: IF (AMS_DEBUG_HIGH_ON) THEN
52: AMS_Utility_PVT.Debug_Message(l_api_name||' Start ');
53: END IF;
54:
55: x_return_status := FND_API.G_RET_STS_SUCCESS;
56:
57: -- Create the Savepoint
58: SAVEPOINT Get_Party_Tab;
59:
68: x_return_status => x_return_status,
69: x_msg_count => x_msg_count,
70: x_msg_data => x_msg_data,
71: p_cell_id => l_cell_id,
72: p_party_id_only => FND_API.g_true,
73: x_sql_tbl => l_sql_tbl
74: );
75:
76: IF x_return_status = FND_API.g_ret_sts_error THEN
72: p_party_id_only => FND_API.g_true,
73: x_sql_tbl => l_sql_tbl
74: );
75:
76: IF x_return_status = FND_API.g_ret_sts_error THEN
77: IF (AMS_DEBUG_HIGH_ON) THEN
78: AMS_Utility_PVT.Debug_Message(l_api_name||' error on getting cell sql statement, please check if the workbook or sql string is valid or not');
79: END IF;
80:
77: IF (AMS_DEBUG_HIGH_ON) THEN
78: AMS_Utility_PVT.Debug_Message(l_api_name||' error on getting cell sql statement, please check if the workbook or sql string is valid or not');
79: END IF;
80:
81: RAISE FND_API.g_exc_error;
82: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
83: IF (AMS_DEBUG_HIGH_ON) THEN
84: AMS_Utility_PVT.Debug_Message(l_api_name||' unexpected error on get cell sql statement, please check if the workbook or sql string is valid or not');
85: END IF;
78: AMS_Utility_PVT.Debug_Message(l_api_name||' error on getting cell sql statement, please check if the workbook or sql string is valid or not');
79: END IF;
80:
81: RAISE FND_API.g_exc_error;
82: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
83: IF (AMS_DEBUG_HIGH_ON) THEN
84: AMS_Utility_PVT.Debug_Message(l_api_name||' unexpected error on get cell sql statement, please check if the workbook or sql string is valid or not');
85: END IF;
86:
83: IF (AMS_DEBUG_HIGH_ON) THEN
84: AMS_Utility_PVT.Debug_Message(l_api_name||' unexpected error on get cell sql statement, please check if the workbook or sql string is valid or not');
85: END IF;
86:
87: RAISE FND_API.g_exc_unexpected_error;
88: END IF;
89:
90: l_count := 1 ;
91: -- Open the cursor and parse it
138: IF (AMS_DEBUG_HIGH_ON) THEN
139: AMS_Utility_PVT.Debug_Message('Error in Get_Party_Tab '||sqlerrm);
140: END IF;
141:
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
143:
144: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
145: THEN
146: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
148:
149: FND_MSG_PUB.Count_AND_Get
150: ( p_count => x_msg_count,
151: p_data => x_msg_data,
152: p_encoded => FND_API.G_FALSE
153: );
154:
155: END Get_Party_Tab;
156:
180: SELECT column_value party_id FROM TABLE(CAST(p_party_tbl AS jtf_number_table));
181:
182: BEGIN
183:
184: x_return_status := FND_API.G_RET_STS_SUCCESS;
185:
186: IF (AMS_DEBUG_HIGH_ON) THEN
187: AMS_Utility_PVT.Debug_Message(l_full_name||': Start');
188: END IF;
222:
223: IF C_expired_party_ids%ISOPEN THEN
224: CLOSE C_expired_party_ids;
225: END IF;
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
227:
228: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
229: THEN
230: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
232:
233: FND_MSG_PUB.Count_AND_Get
234: ( p_count => x_msg_count,
235: p_data => x_msg_data,
236: p_encoded => FND_API.G_FALSE
237: );
238:
239: END Expire_Inactive_Party_Dbms;
240:
279: l_sql_tbl t_party_tab;
280: l_iterator NUMBER := 1;
281:
282: BEGIN
283: x_return_status := FND_API.G_RET_STS_SUCCESS;
284: OPEN c_old_party_rec;
285:
286: LOOP
287:
332: IF(c_old_party_rec%ISOPEN)then
333: CLOSE c_old_party_rec;
334: END IF;
335:
336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
337:
338: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
339: THEN
340: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
342:
343: FND_MSG_PUB.Count_AND_Get
344: ( p_count => x_msg_count,
345: p_data => x_msg_data,
346: p_encoded => FND_API.G_FALSE
347: );
348:
349: END Expire_Changed_Party_Dbms;
350:
398: IF (AMS_DEBUG_HIGH_ON) THEN
399: AMS_Utility_PVT.Debug_Message(l_api_name||' Start ');
400: END IF;
401:
402: x_return_status := FND_API.G_RET_STS_SUCCESS;
403:
404: OPEN C_new_parties;
405: FETCH C_new_parties BULK COLLECT INTO l_party_tbl;
406: CLOSE C_new_parties;
489: IF(C_activate_parties%ISOPEN)then
490: CLOSE C_activate_parties;
491: END IF;
492:
493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
494:
495: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
496: THEN
497: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
499:
500: FND_MSG_PUB.Count_AND_Get
501: ( p_count => x_msg_count,
502: p_data => x_msg_data,
503: p_encoded => FND_API.G_FALSE
504: );
505:
506: END Insert_New_Party_Dbms;
507:
551: IF (AMS_DEBUG_HIGH_ON) THEN
552: AMS_Utility_PVT.Debug_Message(l_api_name||' Start ');
553: END IF;
554:
555: x_return_status := FND_API.G_RET_STS_SUCCESS;
556:
557: -- Create the Savepoint
558: SAVEPOINT Load_Party_Seg;
559:
569: x_return_status,
570: x_msg_count,
571: x_msg_data
572: );
573: IF x_return_status = FND_API.g_ret_sts_error THEN
574: RAISE FND_API.g_exc_error;
575: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
576: RAISE FND_API.g_exc_unexpected_error;
577: END IF;
570: x_msg_count,
571: x_msg_data
572: );
573: IF x_return_status = FND_API.g_ret_sts_error THEN
574: RAISE FND_API.g_exc_error;
575: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
576: RAISE FND_API.g_exc_unexpected_error;
577: END IF;
578:
571: x_msg_data
572: );
573: IF x_return_status = FND_API.g_ret_sts_error THEN
574: RAISE FND_API.g_exc_error;
575: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
576: RAISE FND_API.g_exc_unexpected_error;
577: END IF;
578:
579: -- expires parties that no longer belong to the given market segment
572: );
573: IF x_return_status = FND_API.g_ret_sts_error THEN
574: RAISE FND_API.g_exc_error;
575: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
576: RAISE FND_API.g_exc_unexpected_error;
577: END IF;
578:
579: -- expires parties that no longer belong to the given market segment
580: IF (AMS_DEBUG_HIGH_ON) THEN
587: x_return_status,
588: x_msg_count,
589: x_msg_data
590: );
591: IF x_return_status = FND_API.g_ret_sts_error THEN
592: RAISE FND_API.g_exc_error;
593: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
594: RAISE FND_API.g_exc_unexpected_error;
595: END IF;
588: x_msg_count,
589: x_msg_data
590: );
591: IF x_return_status = FND_API.g_ret_sts_error THEN
592: RAISE FND_API.g_exc_error;
593: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
594: RAISE FND_API.g_exc_unexpected_error;
595: END IF;
596:
589: x_msg_data
590: );
591: IF x_return_status = FND_API.g_ret_sts_error THEN
592: RAISE FND_API.g_exc_error;
593: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
594: RAISE FND_API.g_exc_unexpected_error;
595: END IF;
596:
597: -- expires parties that originally belong to other marekt segments
590: );
591: IF x_return_status = FND_API.g_ret_sts_error THEN
592: RAISE FND_API.g_exc_error;
593: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
594: RAISE FND_API.g_exc_unexpected_error;
595: END IF;
596:
597: -- expires parties that originally belong to other marekt segments
598: -- and currently belong to the given market segment
604: -- x_return_status,
605: -- x_msg_count,
606: -- x_msg_data
607: -- );
608: --IF x_return_status = FND_API.g_ret_sts_error THEN
609: -- RAISE FND_API.g_exc_error;
610: --ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
611: -- RAISE FND_API.g_exc_unexpected_error;
612: --END IF;
605: -- x_msg_count,
606: -- x_msg_data
607: -- );
608: --IF x_return_status = FND_API.g_ret_sts_error THEN
609: -- RAISE FND_API.g_exc_error;
610: --ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
611: -- RAISE FND_API.g_exc_unexpected_error;
612: --END IF;
613:
606: -- x_msg_data
607: -- );
608: --IF x_return_status = FND_API.g_ret_sts_error THEN
609: -- RAISE FND_API.g_exc_error;
610: --ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
611: -- RAISE FND_API.g_exc_unexpected_error;
612: --END IF;
613:
614: IF l_party_count > 0 THEN
607: -- );
608: --IF x_return_status = FND_API.g_ret_sts_error THEN
609: -- RAISE FND_API.g_exc_error;
610: --ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
611: -- RAISE FND_API.g_exc_unexpected_error;
612: --END IF;
613:
614: IF l_party_count > 0 THEN
615: -- insert new parties that do not exist in the table
623: x_return_status,
624: x_msg_count,
625: x_msg_data
626: );
627: IF x_return_status = FND_API.g_ret_sts_error THEN
628: RAISE FND_API.g_exc_error;
629: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
630: RAISE FND_API.g_exc_unexpected_error;
631: END IF;
624: x_msg_count,
625: x_msg_data
626: );
627: IF x_return_status = FND_API.g_ret_sts_error THEN
628: RAISE FND_API.g_exc_error;
629: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
630: RAISE FND_API.g_exc_unexpected_error;
631: END IF;
632: END IF;
625: x_msg_data
626: );
627: IF x_return_status = FND_API.g_ret_sts_error THEN
628: RAISE FND_API.g_exc_error;
629: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
630: RAISE FND_API.g_exc_unexpected_error;
631: END IF;
632: END IF;
633:
626: );
627: IF x_return_status = FND_API.g_ret_sts_error THEN
628: RAISE FND_API.g_exc_error;
629: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
630: RAISE FND_API.g_exc_unexpected_error;
631: END IF;
632: END IF;
633:
634: -- Update size for this cell
681: -- If no errors, commit the work
682: COMMIT WORK;
683:
684: EXCEPTION
685: WHEN FND_API.g_exc_unexpected_error THEN
686: ROLLBACK TO Load_Party_Seg;
687: x_return_status := FND_API.g_ret_sts_unexp_error ;
688: FND_MSG_PUB.count_and_get (
689: p_encoded => FND_API.g_false,
683:
684: EXCEPTION
685: WHEN FND_API.g_exc_unexpected_error THEN
686: ROLLBACK TO Load_Party_Seg;
687: x_return_status := FND_API.g_ret_sts_unexp_error ;
688: FND_MSG_PUB.count_and_get (
689: p_encoded => FND_API.g_false,
690: p_count => x_msg_count,
691: p_data => x_msg_data
685: WHEN FND_API.g_exc_unexpected_error THEN
686: ROLLBACK TO Load_Party_Seg;
687: x_return_status := FND_API.g_ret_sts_unexp_error ;
688: FND_MSG_PUB.count_and_get (
689: p_encoded => FND_API.g_false,
690: p_count => x_msg_count,
691: p_data => x_msg_data
692: );
693: WHEN OTHERS THEN
691: p_data => x_msg_data
692: );
693: WHEN OTHERS THEN
694: ROLLBACK TO Load_Party_Seg;
695: x_return_status := FND_API.g_ret_sts_unexp_error ;
696:
697: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
698: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
699: END IF;
698: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
699: END IF;
700:
701: FND_MSG_PUB.count_and_get (
702: p_encoded => FND_API.g_false,
703: p_count => x_msg_count,
704: p_data => x_msg_data
705: );
706:
743:
744: AMS_Utility_PVT.Debug_Message(l_api_name||' Start ');
745: END IF;
746:
747: x_return_status := FND_API.G_RET_STS_SUCCESS;
748:
749: -- Check the cells if the p_cell_id is null then refresh all the cells
750: -- Else refresh only the given cell
751: IF p_cell_id IS NOT NULL
761: x_msg_count => x_msg_count,
762: x_msg_data => x_msg_data
763: );
764:
765: IF x_return_status = FND_API.g_ret_sts_error THEN
766: x_return_status := FND_API.g_ret_sts_error ;
767: FND_MSG_PUB.count_and_get (
768: p_encoded => FND_API.g_false,
769: p_count => x_msg_count,
762: x_msg_data => x_msg_data
763: );
764:
765: IF x_return_status = FND_API.g_ret_sts_error THEN
766: x_return_status := FND_API.g_ret_sts_error ;
767: FND_MSG_PUB.count_and_get (
768: p_encoded => FND_API.g_false,
769: p_count => x_msg_count,
770: p_data => x_msg_data
764:
765: IF x_return_status = FND_API.g_ret_sts_error THEN
766: x_return_status := FND_API.g_ret_sts_error ;
767: FND_MSG_PUB.count_and_get (
768: p_encoded => FND_API.g_false,
769: p_count => x_msg_count,
770: p_data => x_msg_data
771: );
772: failed_flag := 'Y';
769: p_count => x_msg_count,
770: p_data => x_msg_data
771: );
772: failed_flag := 'Y';
773: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
774: x_return_status := FND_API.g_ret_sts_unexp_error ;
775: FND_MSG_PUB.count_and_get (
776: p_encoded => FND_API.g_false,
777: p_count => x_msg_count,
770: p_data => x_msg_data
771: );
772: failed_flag := 'Y';
773: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
774: x_return_status := FND_API.g_ret_sts_unexp_error ;
775: FND_MSG_PUB.count_and_get (
776: p_encoded => FND_API.g_false,
777: p_count => x_msg_count,
778: p_data => x_msg_data
772: failed_flag := 'Y';
773: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
774: x_return_status := FND_API.g_ret_sts_unexp_error ;
775: FND_MSG_PUB.count_and_get (
776: p_encoded => FND_API.g_false,
777: p_count => x_msg_count,
778: p_data => x_msg_data
779: );
780: failed_flag := 'Y';
800: x_msg_count => x_msg_count,
801: x_msg_data => x_msg_data
802: );
803:
804: IF x_return_status = FND_API.g_ret_sts_error THEN
805: x_return_status := FND_API.g_ret_sts_error ;
806: FND_MSG_PUB.count_and_get (
807: p_encoded => FND_API.g_false,
808: p_count => x_msg_count,
801: x_msg_data => x_msg_data
802: );
803:
804: IF x_return_status = FND_API.g_ret_sts_error THEN
805: x_return_status := FND_API.g_ret_sts_error ;
806: FND_MSG_PUB.count_and_get (
807: p_encoded => FND_API.g_false,
808: p_count => x_msg_count,
809: p_data => x_msg_data
803:
804: IF x_return_status = FND_API.g_ret_sts_error THEN
805: x_return_status := FND_API.g_ret_sts_error ;
806: FND_MSG_PUB.count_and_get (
807: p_encoded => FND_API.g_false,
808: p_count => x_msg_count,
809: p_data => x_msg_data
810: );
811: failed_flag := 'Y';
808: p_count => x_msg_count,
809: p_data => x_msg_data
810: );
811: failed_flag := 'Y';
812: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
813: x_return_status := FND_API.g_ret_sts_unexp_error ;
814: FND_MSG_PUB.count_and_get (
815: p_encoded => FND_API.g_false,
816: p_count => x_msg_count,
809: p_data => x_msg_data
810: );
811: failed_flag := 'Y';
812: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
813: x_return_status := FND_API.g_ret_sts_unexp_error ;
814: FND_MSG_PUB.count_and_get (
815: p_encoded => FND_API.g_false,
816: p_count => x_msg_count,
817: p_data => x_msg_data
811: failed_flag := 'Y';
812: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
813: x_return_status := FND_API.g_ret_sts_unexp_error ;
814: FND_MSG_PUB.count_and_get (
815: p_encoded => FND_API.g_false,
816: p_count => x_msg_count,
817: p_data => x_msg_data
818: );
819: failed_flag := 'Y';
822:
823: CLOSE c_all_cell_rec;
824:
825: IF failed_flag = 'Y' THEN
826: x_return_status := FND_API.g_ret_sts_unexp_error ;
827: END IF;
828: END IF;
829:
830: END Load_Party_Seg;
863: x_msg_data => l_msg_data);
864:
865: -- Write_log ;
866: Ams_Utility_Pvt.Write_Conc_log ;
867: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
868: retcode :=0;
869: ELSE
870: retcode :=1;
871: errbuf := l_msg_data ;