45: --BEGIN
46: -- IF p_text IS NULL THEN
47: -- l_count := FND_MSG_PUB.count_msg;
48: -- FOR l_cnt IN 1 .. l_count LOOP
49: -- l_msg := FND_MSG_PUB.get(l_cnt, FND_API.g_false);
50: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '(' || l_cnt || ') ' || l_msg);
51: -- END LOOP;
52: -- ELSE
53: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, p_text );
96: l_new_party_id NUMBER;
97: l_expire_flag VARCHAR2(1);
98:
99: BEGIN
100: x_return_status := FND_API.G_RET_STS_SUCCESS;
101: OPEN c_old_party_id;
102:
103: LOOP
104:
145: IF(c_new_party_id%ISOPEN)then
146: CLOSE c_new_party_id;
147: END IF;
148:
149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
150:
151: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
152: THEN
153: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
155:
156: FND_MSG_PUB.Count_AND_Get
157: ( p_count => x_msg_count,
158: p_data => x_msg_data,
159: p_encoded => FND_API.G_FALSE
160: );
161:
162: END Expire_Inactive_Party;
163:
202: l_old_mkt_seg_id NUMBER;
203: l_expire_flag VARCHAR2(1);
204:
205: BEGIN
206: x_return_status := FND_API.G_RET_STS_SUCCESS;
207: OPEN c_old_party_rec;
208:
209: LOOP
210:
253: IF(c_new_party_id%ISOPEN)then
254: CLOSE c_new_party_id;
255: END IF;
256:
257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
258:
259: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
260: THEN
261: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
263:
264: FND_MSG_PUB.Count_AND_Get
265: ( p_count => x_msg_count,
266: p_data => x_msg_data,
267: p_encoded => FND_API.G_FALSE
268: );
269:
270: END Expire_Changed_Party;
271:
329: BEGIN
330:
331: AMS_Utility_Pvt.Debug_Message('String : '||p_sql_str) ;
332: --
333: x_return_status := FND_API.G_RET_STS_SUCCESS;
334: OPEN c_party_id FOR p_sql_str;
335:
336: LOOP
337:
442: IF(c_party_mkt_seg_count%ISOPEN)then
443: CLOSE c_party_mkt_seg_count;
444: END IF;
445:
446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
447:
448: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
449: THEN
450: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
452:
453: FND_MSG_PUB.Count_AND_Get
454: ( p_count => x_msg_count,
455: p_data => x_msg_data,
456: p_encoded => FND_API.G_FALSE
457: );
458:
459: END Insert_New_Party;
460:
494: l_old_party_id NUMBER;
495: l_expire_flag VARCHAR2(1);
496:
497: BEGIN
498: x_return_status := FND_API.G_RET_STS_SUCCESS;
499:
500:
501:
502: AMS_Utility_PVT.debug_message(l_full_name||': PARSE SQL start');
537: --
538: IF(c_old_party_id%ISOPEN)then
539: CLOSE c_old_party_id;
540: END IF;
541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
542:
543: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
544: THEN
545: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
547:
548: FND_MSG_PUB.Count_AND_Get
549: ( p_count => x_msg_count,
550: p_data => x_msg_data,
551: p_encoded => FND_API.G_FALSE
552: );
553:
554: END Expire_Inactive_Party_Dbms;
555:
591: l_old_mkt_seg_id NUMBER;
592: l_expire_flag VARCHAR2(1);
593:
594: BEGIN
595: x_return_status := FND_API.G_RET_STS_SUCCESS;
596: OPEN c_old_party_rec;
597:
598: LOOP
599:
633: IF(c_old_party_rec%ISOPEN)then
634: CLOSE c_old_party_rec;
635: END IF;
636:
637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
638:
639: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
640: THEN
641: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
643:
644: FND_MSG_PUB.Count_AND_Get
645: ( p_count => x_msg_count,
646: p_data => x_msg_data,
647: p_encoded => FND_API.G_FALSE
648: );
649:
650: END Expire_Changed_Party_Dbms;
651:
705: l_count NUMBER;
706:
707: BEGIN
708:
709: x_return_status := FND_API.G_RET_STS_SUCCESS;
710:
711: FOR i IN p_sql_tbl.FIRST..p_sql_tbl.last
712: LOOP
713: l_party_id := p_sql_tbl(i) ;
817: IF(c_party_mkt_seg_count%ISOPEN)then
818: CLOSE c_party_mkt_seg_count;
819: END IF;
820:
821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
822:
823: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
824: THEN
825: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
827:
828: FND_MSG_PUB.Count_AND_Get
829: ( p_count => x_msg_count,
830: p_data => x_msg_data,
831: p_encoded => FND_API.G_FALSE
832: );
833:
834: END Insert_New_Party_Dbms;
835:
894: x_return_status,
895: x_msg_count ,
896: x_msg_data
897: );
898: IF x_return_status = FND_API.g_ret_sts_error THEN
899: RAISE FND_API.g_exc_error;
900: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
901: RAISE FND_API.g_exc_unexpected_error;
902: END IF;
895: x_msg_count ,
896: x_msg_data
897: );
898: IF x_return_status = FND_API.g_ret_sts_error THEN
899: RAISE FND_API.g_exc_error;
900: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
901: RAISE FND_API.g_exc_unexpected_error;
902: END IF;
903:
896: x_msg_data
897: );
898: IF x_return_status = FND_API.g_ret_sts_error THEN
899: RAISE FND_API.g_exc_error;
900: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
901: RAISE FND_API.g_exc_unexpected_error;
902: END IF;
903:
904:
897: );
898: IF x_return_status = FND_API.g_ret_sts_error THEN
899: RAISE FND_API.g_exc_error;
900: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
901: RAISE FND_API.g_exc_unexpected_error;
902: END IF;
903:
904:
905: -- expires parties that originally belong to other marekt segments
912: x_return_status,
913: x_msg_count ,
914: x_msg_data
915: );
916: IF x_return_status = FND_API.g_ret_sts_error THEN
917: RAISE FND_API.g_exc_error;
918: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
919: RAISE FND_API.g_exc_unexpected_error;
920: END IF;
913: x_msg_count ,
914: x_msg_data
915: );
916: IF x_return_status = FND_API.g_ret_sts_error THEN
917: RAISE FND_API.g_exc_error;
918: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
919: RAISE FND_API.g_exc_unexpected_error;
920: END IF;
921:
914: x_msg_data
915: );
916: IF x_return_status = FND_API.g_ret_sts_error THEN
917: RAISE FND_API.g_exc_error;
918: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
919: RAISE FND_API.g_exc_unexpected_error;
920: END IF;
921:
922: -- insert new parties that do not exist in the table
915: );
916: IF x_return_status = FND_API.g_ret_sts_error THEN
917: RAISE FND_API.g_exc_error;
918: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
919: RAISE FND_API.g_exc_unexpected_error;
920: END IF;
921:
922: -- insert new parties that do not exist in the table
923: Insert_New_Party
928: x_return_status,
929: x_msg_count ,
930: x_msg_data
931: );
932: IF x_return_status = FND_API.g_ret_sts_error THEN
933: RAISE FND_API.g_exc_error;
934: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
935: RAISE FND_API.g_exc_unexpected_error;
936: END IF;
929: x_msg_count ,
930: x_msg_data
931: );
932: IF x_return_status = FND_API.g_ret_sts_error THEN
933: RAISE FND_API.g_exc_error;
934: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
935: RAISE FND_API.g_exc_unexpected_error;
936: END IF;
937:
930: x_msg_data
931: );
932: IF x_return_status = FND_API.g_ret_sts_error THEN
933: RAISE FND_API.g_exc_error;
934: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
935: RAISE FND_API.g_exc_unexpected_error;
936: END IF;
937:
938: ELSIF p_type = 'DBMS' THEN
931: );
932: IF x_return_status = FND_API.g_ret_sts_error THEN
933: RAISE FND_API.g_exc_error;
934: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
935: RAISE FND_API.g_exc_unexpected_error;
936: END IF;
937:
938: ELSIF p_type = 'DBMS' THEN
939: --
1001: x_return_status,
1002: x_msg_count ,
1003: x_msg_data
1004: );
1005: IF x_return_status = FND_API.g_ret_sts_error THEN
1006: RAISE FND_API.g_exc_error;
1007: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1008: RAISE FND_API.g_exc_unexpected_error;
1009: END IF;
1002: x_msg_count ,
1003: x_msg_data
1004: );
1005: IF x_return_status = FND_API.g_ret_sts_error THEN
1006: RAISE FND_API.g_exc_error;
1007: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1008: RAISE FND_API.g_exc_unexpected_error;
1009: END IF;
1010:
1003: x_msg_data
1004: );
1005: IF x_return_status = FND_API.g_ret_sts_error THEN
1006: RAISE FND_API.g_exc_error;
1007: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1008: RAISE FND_API.g_exc_unexpected_error;
1009: END IF;
1010:
1011: -- expires parties that originally belong to other marekt segments
1004: );
1005: IF x_return_status = FND_API.g_ret_sts_error THEN
1006: RAISE FND_API.g_exc_error;
1007: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1008: RAISE FND_API.g_exc_unexpected_error;
1009: END IF;
1010:
1011: -- expires parties that originally belong to other marekt segments
1012: -- and currently belong to the given market segment
1018: x_return_status,
1019: x_msg_count ,
1020: x_msg_data
1021: );
1022: IF x_return_status = FND_API.g_ret_sts_error THEN
1023: RAISE FND_API.g_exc_error;
1024: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1025: RAISE FND_API.g_exc_unexpected_error;
1026: END IF;
1019: x_msg_count ,
1020: x_msg_data
1021: );
1022: IF x_return_status = FND_API.g_ret_sts_error THEN
1023: RAISE FND_API.g_exc_error;
1024: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1025: RAISE FND_API.g_exc_unexpected_error;
1026: END IF;
1027:
1020: x_msg_data
1021: );
1022: IF x_return_status = FND_API.g_ret_sts_error THEN
1023: RAISE FND_API.g_exc_error;
1024: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1025: RAISE FND_API.g_exc_unexpected_error;
1026: END IF;
1027:
1028: -- insert new parties that do not exist in the table
1021: );
1022: IF x_return_status = FND_API.g_ret_sts_error THEN
1023: RAISE FND_API.g_exc_error;
1024: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1025: RAISE FND_API.g_exc_unexpected_error;
1026: END IF;
1027:
1028: -- insert new parties that do not exist in the table
1029: Insert_New_Party_Dbms
1034: x_return_status,
1035: x_msg_count ,
1036: x_msg_data
1037: );
1038: IF x_return_status = FND_API.g_ret_sts_error THEN
1039: RAISE FND_API.g_exc_error;
1040: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1041: RAISE FND_API.g_exc_unexpected_error;
1042: END IF;
1035: x_msg_count ,
1036: x_msg_data
1037: );
1038: IF x_return_status = FND_API.g_ret_sts_error THEN
1039: RAISE FND_API.g_exc_error;
1040: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1041: RAISE FND_API.g_exc_unexpected_error;
1042: END IF;
1043:
1036: x_msg_data
1037: );
1038: IF x_return_status = FND_API.g_ret_sts_error THEN
1039: RAISE FND_API.g_exc_error;
1040: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1041: RAISE FND_API.g_exc_unexpected_error;
1042: END IF;
1043:
1044:
1037: );
1038: IF x_return_status = FND_API.g_ret_sts_error THEN
1039: RAISE FND_API.g_exc_error;
1040: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1041: RAISE FND_API.g_exc_unexpected_error;
1042: END IF;
1043:
1044:
1045: END IF;
1044:
1045: END IF;
1046:
1047: EXCEPTION
1048: WHEN FND_API.g_exc_error THEN
1049: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1050: DBMS_SQL.Close_Cursor(l_party_cur) ;
1051: END IF;
1052: x_return_status := FND_API.g_ret_sts_error;
1048: WHEN FND_API.g_exc_error THEN
1049: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1050: DBMS_SQL.Close_Cursor(l_party_cur) ;
1051: END IF;
1052: x_return_status := FND_API.g_ret_sts_error;
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
1050: DBMS_SQL.Close_Cursor(l_party_cur) ;
1051: END IF;
1052: x_return_status := FND_API.g_ret_sts_error;
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: WHEN FND_API.g_exc_unexpected_error THEN
1054: p_encoded => FND_API.g_false,
1055: p_count => x_msg_count,
1056: p_data => x_msg_data
1057: );
1058: WHEN FND_API.g_exc_unexpected_error THEN
1059: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1060: DBMS_SQL.Close_Cursor(l_party_cur) ;
1061: END IF;
1062: x_return_status := FND_API.g_ret_sts_unexp_error ;
1058: WHEN FND_API.g_exc_unexpected_error THEN
1059: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1060: DBMS_SQL.Close_Cursor(l_party_cur) ;
1061: END IF;
1062: x_return_status := FND_API.g_ret_sts_unexp_error ;
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
1060: DBMS_SQL.Close_Cursor(l_party_cur) ;
1061: END IF;
1062: x_return_status := FND_API.g_ret_sts_unexp_error ;
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: WHEN OTHERS THEN
1069: --
1070: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1071: DBMS_SQL.Close_Cursor(l_party_cur) ;
1072: END IF;
1073: x_return_status := FND_API.g_ret_sts_unexp_error ;
1074:
1075: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1076: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1077: END IF;
1076: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1077: END IF;
1078:
1079: FND_MSG_PUB.count_and_get (
1080: p_encoded => FND_API.g_false,
1081: p_count => x_msg_count,
1082: p_data => x_msg_data
1083: );
1084:
1139: x_return_status,
1140: x_msg_count ,
1141: x_msg_data
1142: );
1143: IF x_return_status = FND_API.g_ret_sts_error THEN
1144: RAISE FND_API.g_exc_error;
1145: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1146: RAISE FND_API.g_exc_unexpected_error;
1147: END IF;
1140: x_msg_count ,
1141: x_msg_data
1142: );
1143: IF x_return_status = FND_API.g_ret_sts_error THEN
1144: RAISE FND_API.g_exc_error;
1145: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1146: RAISE FND_API.g_exc_unexpected_error;
1147: END IF;
1148:
1141: x_msg_data
1142: );
1143: IF x_return_status = FND_API.g_ret_sts_error THEN
1144: RAISE FND_API.g_exc_error;
1145: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1146: RAISE FND_API.g_exc_unexpected_error;
1147: END IF;
1148:
1149: -- insert new parties that do not exist in the table
1142: );
1143: IF x_return_status = FND_API.g_ret_sts_error THEN
1144: RAISE FND_API.g_exc_error;
1145: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1146: RAISE FND_API.g_exc_unexpected_error;
1147: END IF;
1148:
1149: -- insert new parties that do not exist in the table
1150: Insert_New_Party
1155: x_return_status,
1156: x_msg_count ,
1157: x_msg_data
1158: );
1159: IF x_return_status = FND_API.g_ret_sts_error THEN
1160: RAISE FND_API.g_exc_error;
1161: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1162: RAISE FND_API.g_exc_unexpected_error;
1163: END IF;
1156: x_msg_count ,
1157: x_msg_data
1158: );
1159: IF x_return_status = FND_API.g_ret_sts_error THEN
1160: RAISE FND_API.g_exc_error;
1161: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1162: RAISE FND_API.g_exc_unexpected_error;
1163: END IF;
1164:
1157: x_msg_data
1158: );
1159: IF x_return_status = FND_API.g_ret_sts_error THEN
1160: RAISE FND_API.g_exc_error;
1161: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1162: RAISE FND_API.g_exc_unexpected_error;
1163: END IF;
1164:
1165: ELSIF p_type = 'DBMS' THEN
1158: );
1159: IF x_return_status = FND_API.g_ret_sts_error THEN
1160: RAISE FND_API.g_exc_error;
1161: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1162: RAISE FND_API.g_exc_unexpected_error;
1163: END IF;
1164:
1165: ELSIF p_type = 'DBMS' THEN
1166: -- Get the query in to Table
1223: x_return_status,
1224: x_msg_count ,
1225: x_msg_data
1226: );
1227: IF x_return_status = FND_API.g_ret_sts_error THEN
1228: RAISE FND_API.g_exc_error;
1229: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1230: RAISE FND_API.g_exc_unexpected_error;
1231: END IF;
1224: x_msg_count ,
1225: x_msg_data
1226: );
1227: IF x_return_status = FND_API.g_ret_sts_error THEN
1228: RAISE FND_API.g_exc_error;
1229: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1230: RAISE FND_API.g_exc_unexpected_error;
1231: END IF;
1232:
1225: x_msg_data
1226: );
1227: IF x_return_status = FND_API.g_ret_sts_error THEN
1228: RAISE FND_API.g_exc_error;
1229: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1230: RAISE FND_API.g_exc_unexpected_error;
1231: END IF;
1232:
1233: -- insert new parties that do not exist in the table
1226: );
1227: IF x_return_status = FND_API.g_ret_sts_error THEN
1228: RAISE FND_API.g_exc_error;
1229: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1230: RAISE FND_API.g_exc_unexpected_error;
1231: END IF;
1232:
1233: -- insert new parties that do not exist in the table
1234: Insert_New_Party_Dbms
1239: x_return_status,
1240: x_msg_count ,
1241: x_msg_data
1242: );
1243: IF x_return_status = FND_API.g_ret_sts_error THEN
1244: RAISE FND_API.g_exc_error;
1245: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1246: RAISE FND_API.g_exc_unexpected_error;
1247: END IF;
1240: x_msg_count ,
1241: x_msg_data
1242: );
1243: IF x_return_status = FND_API.g_ret_sts_error THEN
1244: RAISE FND_API.g_exc_error;
1245: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1246: RAISE FND_API.g_exc_unexpected_error;
1247: END IF;
1248:
1241: x_msg_data
1242: );
1243: IF x_return_status = FND_API.g_ret_sts_error THEN
1244: RAISE FND_API.g_exc_error;
1245: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1246: RAISE FND_API.g_exc_unexpected_error;
1247: END IF;
1248:
1249:
1242: );
1243: IF x_return_status = FND_API.g_ret_sts_error THEN
1244: RAISE FND_API.g_exc_error;
1245: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1246: RAISE FND_API.g_exc_unexpected_error;
1247: END IF;
1248:
1249:
1250: END IF;
1249:
1250: END IF;
1251:
1252: EXCEPTION
1253: WHEN FND_API.g_exc_error THEN
1254: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1255: DBMS_SQL.Close_Cursor(l_party_cur) ;
1256: END IF;
1257: x_return_status := FND_API.g_ret_sts_error;
1253: WHEN FND_API.g_exc_error THEN
1254: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1255: DBMS_SQL.Close_Cursor(l_party_cur) ;
1256: END IF;
1257: x_return_status := FND_API.g_ret_sts_error;
1258: FND_MSG_PUB.count_and_get(
1259: p_encoded => FND_API.g_false,
1260: p_count => x_msg_count,
1261: p_data => x_msg_data
1255: DBMS_SQL.Close_Cursor(l_party_cur) ;
1256: END IF;
1257: x_return_status := FND_API.g_ret_sts_error;
1258: FND_MSG_PUB.count_and_get(
1259: p_encoded => FND_API.g_false,
1260: p_count => x_msg_count,
1261: p_data => x_msg_data
1262: );
1263: WHEN FND_API.g_exc_unexpected_error THEN
1259: p_encoded => FND_API.g_false,
1260: p_count => x_msg_count,
1261: p_data => x_msg_data
1262: );
1263: WHEN FND_API.g_exc_unexpected_error THEN
1264: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1265: DBMS_SQL.Close_Cursor(l_party_cur) ;
1266: END IF;
1267: x_return_status := FND_API.g_ret_sts_unexp_error ;
1263: WHEN FND_API.g_exc_unexpected_error THEN
1264: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1265: DBMS_SQL.Close_Cursor(l_party_cur) ;
1266: END IF;
1267: x_return_status := FND_API.g_ret_sts_unexp_error ;
1268: FND_MSG_PUB.count_and_get (
1269: p_encoded => FND_API.g_false,
1270: p_count => x_msg_count,
1271: p_data => x_msg_data
1265: DBMS_SQL.Close_Cursor(l_party_cur) ;
1266: END IF;
1267: x_return_status := FND_API.g_ret_sts_unexp_error ;
1268: FND_MSG_PUB.count_and_get (
1269: p_encoded => FND_API.g_false,
1270: p_count => x_msg_count,
1271: p_data => x_msg_data
1272: );
1273: WHEN OTHERS THEN
1273: WHEN OTHERS THEN
1274: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1275: DBMS_SQL.Close_Cursor(l_party_cur) ;
1276: END IF;
1277: x_return_status := FND_API.g_ret_sts_unexp_error ;
1278:
1279: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1280: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1281: END IF;
1280: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1281: END IF;
1282:
1283: FND_MSG_PUB.count_and_get (
1284: p_encoded => FND_API.g_false,
1285: p_count => x_msg_count,
1286: p_data => x_msg_data
1287: );
1288:
1356:
1357: BEGIN
1358: AMS_Utility_Pvt.Debug_Message('Start Loading ');
1359: --
1360: x_return_status := FND_API.G_RET_STS_SUCCESS;
1361:
1362: -- Check the cells If the p_cell_id is null then Refresh all the cells
1363: -- Else refresh only the given cell and the Target sells which are
1364: -- children of the current cells
1395: x_return_status => x_return_status,
1396: x_msg_count => x_msg_count ,
1397: x_msg_data => x_msg_data ) ;
1398:
1399: IF x_return_status = FND_API.g_ret_sts_error THEN
1400: RAISE FND_API.g_exc_error;
1401: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1402: RAISE FND_API.g_exc_unexpected_error;
1403: END IF;
1396: x_msg_count => x_msg_count ,
1397: x_msg_data => x_msg_data ) ;
1398:
1399: IF x_return_status = FND_API.g_ret_sts_error THEN
1400: RAISE FND_API.g_exc_error;
1401: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1402: RAISE FND_API.g_exc_unexpected_error;
1403: END IF;
1404:
1397: x_msg_data => x_msg_data ) ;
1398:
1399: IF x_return_status = FND_API.g_ret_sts_error THEN
1400: RAISE FND_API.g_exc_error;
1401: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1402: RAISE FND_API.g_exc_unexpected_error;
1403: END IF;
1404:
1405:
1398:
1399: IF x_return_status = FND_API.g_ret_sts_error THEN
1400: RAISE FND_API.g_exc_error;
1401: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1402: RAISE FND_API.g_exc_unexpected_error;
1403: END IF;
1404:
1405:
1406: IF l_mkt_seg_flag = 'Y' THEN
1429:
1430: END LOOP; -- end: the loop for all CELL_IDs
1431: CLOSE c_cell_rec;
1432:
1433: IF x_return_status = FND_API.g_ret_sts_error THEN
1434: RAISE FND_API.g_exc_error;
1435: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1436: RAISE FND_API.g_exc_unexpected_error;
1437: END IF;
1430: END LOOP; -- end: the loop for all CELL_IDs
1431: CLOSE c_cell_rec;
1432:
1433: IF x_return_status = FND_API.g_ret_sts_error THEN
1434: RAISE FND_API.g_exc_error;
1435: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1436: RAISE FND_API.g_exc_unexpected_error;
1437: END IF;
1438:
1431: CLOSE c_cell_rec;
1432:
1433: IF x_return_status = FND_API.g_ret_sts_error THEN
1434: RAISE FND_API.g_exc_error;
1435: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1436: RAISE FND_API.g_exc_unexpected_error;
1437: END IF;
1438:
1439: -- If No Errors , Commit the work
1432:
1433: IF x_return_status = FND_API.g_ret_sts_error THEN
1434: RAISE FND_API.g_exc_error;
1435: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1436: RAISE FND_API.g_exc_unexpected_error;
1437: END IF;
1438:
1439: -- If No Errors , Commit the work
1440: COMMIT WORK;
1471: x_msg_count => x_msg_count ,
1472: x_msg_data => x_msg_data ) ;
1473:
1474:
1475: IF x_return_status = FND_API.g_ret_sts_success THEN
1476: -- Load the Segments
1477:
1478: IF l_mkt_seg_flag = 'Y' THEN
1479:
1498: x_msg_data);
1499:
1500: END IF;
1501:
1502: IF x_return_status = FND_API.g_ret_sts_success THEN
1503: COMMIT WORK ;
1504: END IF;
1505: END IF;
1506: END LOOP; -- end: the loop for all CELL_IDs
1509:
1510:
1511:
1512: EXCEPTION
1513: WHEN FND_API.g_exc_error THEN
1514: IF(c_cell_rec%ISOPEN)then
1515: CLOSE c_cell_rec;
1516: END IF;
1517: IF(c_sql_id%ISOPEN)then
1520: IF(c_all_cell_rec%ISOPEN)then
1521: CLOSE c_all_cell_rec;
1522: END IF;
1523: ROLLBACK TO Load_Party_Mkt_Seg;
1524: x_return_status := FND_API.g_ret_sts_error;
1525: FND_MSG_PUB.count_and_get (
1526: p_encoded => FND_API.g_false,
1527: p_count => x_msg_count,
1528: p_data => x_msg_data
1522: END IF;
1523: ROLLBACK TO Load_Party_Mkt_Seg;
1524: x_return_status := FND_API.g_ret_sts_error;
1525: FND_MSG_PUB.count_and_get (
1526: p_encoded => FND_API.g_false,
1527: p_count => x_msg_count,
1528: p_data => x_msg_data
1529: );
1530: WHEN FND_API.g_exc_unexpected_error THEN
1526: p_encoded => FND_API.g_false,
1527: p_count => x_msg_count,
1528: p_data => x_msg_data
1529: );
1530: WHEN FND_API.g_exc_unexpected_error THEN
1531: IF(c_cell_rec%ISOPEN)then
1532: CLOSE c_cell_rec;
1533: END IF;
1534: IF(c_sql_id%ISOPEN)then
1537: IF(c_all_cell_rec%ISOPEN)then
1538: CLOSE c_all_cell_rec;
1539: END IF;
1540: ROLLBACK TO Load_Party_Mkt_Seg;
1541: x_return_status := FND_API.g_ret_sts_unexp_error ;
1542: FND_MSG_PUB.count_and_get (
1543: p_encoded => FND_API.g_false,
1544: p_count => x_msg_count,
1545: p_data => x_msg_data
1539: END IF;
1540: ROLLBACK TO Load_Party_Mkt_Seg;
1541: x_return_status := FND_API.g_ret_sts_unexp_error ;
1542: FND_MSG_PUB.count_and_get (
1543: p_encoded => FND_API.g_false,
1544: p_count => x_msg_count,
1545: p_data => x_msg_data
1546: );
1547: WHEN OTHERS THEN
1554: IF(c_all_cell_rec%ISOPEN)then
1555: CLOSE c_all_cell_rec;
1556: END IF;
1557: ROLLBACK TO Load_Party_Mkt_Seg;
1558: x_return_status := FND_API.g_ret_sts_unexp_error ;
1559:
1560: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1561: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1562: END IF;
1560: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1561: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1562: END IF;
1563: FND_MSG_PUB.count_and_get (
1564: p_encoded => FND_API.g_false,
1565: p_count => x_msg_count,
1566: p_data => x_msg_data
1567: );
1568:
1611: -- x_msg_data => l_msg_data ) ;
1612:
1613: -- Write_log ;
1614: Ams_Utility_Pvt.Write_Conc_log ;
1615: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
1616: retcode :=0;
1617: ELSE
1618: retcode :=1;
1619: errbuf := l_msg_data ;
1743: -- The PL/SQL table which stores 255 character length strings to be passed
1744: -- to DBMS_SQL package
1745: -- l_sql_str DBMS_SQL.varchar2s ;
1746:
1747: l_found VARCHAR2(1) := FND_API.G_FALSE;
1748: l_found_in_str NUMBER := 0 ;
1749: l_position NUMBER := 0 ;
1750: l_overflow NUMBER := 0 ;
1751:
1763: AMS_Utility_PVT.debug_message(l_full_name||': start');
1764: --
1765:
1766: -- Initialize API return status to success
1767: l_return_status := FND_API.G_RET_STS_SUCCESS;
1768:
1769: --
1770: -- API body
1771: -- Take the sql query into PLSQL table
1782: FND_MESSAGE.Set_Token('WORKBOOK', p_workbook_name);
1783: FND_MESSAGE.Set_Token('CELL', p_cell_name);
1784: FND_MSG_PUB.Add;
1785: CLOSE c_ws_name ;
1786: RAISE FND_API.G_EXC_ERROR;
1787: END IF;
1788: END IF ;
1789: CLOSE c_ws_name ;
1790:
1799: x_position => l_position,
1800: x_overflow => l_overflow);
1801:
1802:
1803: IF (l_found = FND_API.G_FALSE) THEN
1804: AMS_Utility_PVT.debug_message(l_full_name||': Invalid SQL');
1805: --
1806: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1807: -- Invalid SQL for the Discoverer
1808: FND_MESSAGE.set_name('AMS', 'AMS_MKS_BAD_WB');
1809: FND_MESSAGE.Set_Token('CELL', p_cell_name);
1810: FND_MSG_PUB.Add;
1811: CLOSE c_ws_name ;
1812: RAISE FND_API.G_EXC_ERROR;
1813: END IF;
1814: ELSIF(l_found = FND_API.G_TRUE)THEN
1815:
1816: --calculating the max. number of chars to be searched when searching for master and subtypes.
1810: FND_MSG_PUB.Add;
1811: CLOSE c_ws_name ;
1812: RAISE FND_API.G_EXC_ERROR;
1813: END IF;
1814: ELSIF(l_found = FND_API.G_TRUE)THEN
1815:
1816: --calculating the max. number of chars to be searched when searching for master and subtypes.
1817: l_max_search_len := (l_found_in_str ) * 2000 + l_position;
1818:
1838: x_found_in_str => l_found_in_str,
1839: x_position => l_position,
1840: x_overflow => l_overflow);
1841:
1842: IF (l_found = FND_API.G_FALSE) THEN
1843: AMS_Utility_PVT.debug_message(l_full_name||': No party ID in the SQL');
1844: --
1845: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1846: -- Invalid SQL for the Discoverer
1847: FND_MESSAGE.set_name('AMS', 'AMS_MKS_BAD_WB');
1848: FND_MESSAGE.Set_Token('CELL', p_cell_name);
1849: FND_MSG_PUB.Add;
1850: CLOSE c_ws_name ;
1851: RAISE FND_API.G_EXC_ERROR;
1852: END IF;
1853: ELSIF(l_found = FND_API.G_TRUE)THEN
1854: AMS_Utility_PVT.debug_message(l_full_name||': Party ID in the SQL');
1855: --
1849: FND_MSG_PUB.Add;
1850: CLOSE c_ws_name ;
1851: RAISE FND_API.G_EXC_ERROR;
1852: END IF;
1853: ELSIF(l_found = FND_API.G_TRUE)THEN
1854: AMS_Utility_PVT.debug_message(l_full_name||': Party ID in the SQL');
1855: --
1856:
1857: -- Get the sql string form "SELECT" to "FROM" into the string and
1930:
1931: AMS_Utility_PVT.debug_message(l_full_name||': End');
1932:
1933: EXCEPTION
1934: WHEN FND_API.G_EXC_ERROR THEN
1935:
1936: x_return_status := FND_API.G_RET_STS_ERROR ;
1937:
1938: FND_MSG_PUB.Count_AND_Get
1932:
1933: EXCEPTION
1934: WHEN FND_API.G_EXC_ERROR THEN
1935:
1936: x_return_status := FND_API.G_RET_STS_ERROR ;
1937:
1938: FND_MSG_PUB.Count_AND_Get
1939: ( p_count => x_msg_count,
1940: p_data => x_msg_data,
1937:
1938: FND_MSG_PUB.Count_AND_Get
1939: ( p_count => x_msg_count,
1940: p_data => x_msg_data,
1941: p_encoded => FND_API.G_FALSE
1942: );
1943:
1944:
1945: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1941: p_encoded => FND_API.G_FALSE
1942: );
1943:
1944:
1945: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1946:
1947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1948:
1949: FND_MSG_PUB.Count_AND_Get
1943:
1944:
1945: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1946:
1947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1948:
1949: FND_MSG_PUB.Count_AND_Get
1950: ( p_count => x_msg_count,
1951: p_data => x_msg_data,
1948:
1949: FND_MSG_PUB.Count_AND_Get
1950: ( p_count => x_msg_count,
1951: p_data => x_msg_data,
1952: p_encoded => FND_API.G_FALSE
1953: );
1954:
1955:
1956: WHEN OTHERS THEN
1954:
1955:
1956: WHEN OTHERS THEN
1957:
1958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1959:
1960: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1961: THEN
1962: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1964:
1965: FND_MSG_PUB.Count_AND_Get
1966: ( p_count => x_msg_count,
1967: p_data => x_msg_data,
1968: p_encoded => FND_API.G_FALSE
1969: );
1970:
1971: END Validate_Sql ;
1972:
2005: x_msg_data => l_msg_data);
2006:
2007: -- Write_log ;
2008: Ams_Utility_Pvt.Write_Conc_log ;
2009: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
2010: retcode :=0;
2011: ELSE
2012: retcode :=1;
2013: errbuf := l_msg_data ;
2195: l_index NUMBER;
2196: BEGIN
2197: JTF_TERRITORY_GET_PUB.Get_Territory_Details(
2198: p_Api_Version => l_api_version,
2199: p_Init_Msg_List => FND_API.G_FALSE,
2200: x_return_status => l_return_status,
2201: x_msg_count => l_msg_count,
2202: x_msg_data => l_msg_data,
2203: p_terr_id => p_terr_id,
2209: x_terr_qual_tbl => l_terr_qual_table,
2210: x_terr_values_tbl => l_terr_values_table,
2211: x_terr_rsc_tbl => l_terr_rsc_table);
2212: -- dbms_output.put_line('get_territory_details(terr_id=' || p_terr_id || ') returns ' || l_return_status);
2213: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2214: RAISE FND_API.g_exc_error;
2215: END IF;
2216:
2217: J := l_terr_values_table.FIRST;
2210: x_terr_values_tbl => l_terr_values_table,
2211: x_terr_rsc_tbl => l_terr_rsc_table);
2212: -- dbms_output.put_line('get_territory_details(terr_id=' || p_terr_id || ') returns ' || l_return_status);
2213: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2214: RAISE FND_API.g_exc_error;
2215: END IF;
2216:
2217: J := l_terr_values_table.FIRST;
2218: l_index := p_bindvar_index;