87: AND r1.subject_id=p_party_id;
88:
89: BEGIN
90:
91: IF aso_party_id IS NULL OR aso_party_id = FND_API.g_miss_num THEN
92: OPEN cur_get_party_id(om_sold_to_org);
93: FETCH cur_get_party_id into p_party_id;
94: CLOSE cur_get_party_id;
95: ELSE
164: BEGIN
165: g_bg_tbl.delete;
166: g_total := 1;
167:
168: IF aso_party_id IS NULL OR aso_party_id = FND_API.g_miss_num THEN
169: OPEN cur_get_party_id(om_sold_to_org);
170: FETCH cur_get_party_id into p_party_id;
171: CLOSE cur_get_party_id;
172: ELSE
229: BEGIN
230: g_bg_tbl.DELETE;
231: g_total := 1;
232:
233: IF aso_party_id IS NULL OR aso_party_id = FND_API.g_miss_num THEN
234: IF om_sold_to_org IS NULL OR om_sold_to_org = FND_API.g_miss_num THEN
235: p_party_id := ic_party_id;
236: ELSE
237: OPEN cur_get_party_id(om_sold_to_org);
230: g_bg_tbl.DELETE;
231: g_total := 1;
232:
233: IF aso_party_id IS NULL OR aso_party_id = FND_API.g_miss_num THEN
234: IF om_sold_to_org IS NULL OR om_sold_to_org = FND_API.g_miss_num THEN
235: p_party_id := ic_party_id;
236: ELSE
237: OPEN cur_get_party_id(om_sold_to_org);
238: FETCH cur_get_party_id into p_party_id;
295: l_total NUMBER := 1 ;
296:
297: BEGIN
298:
299: IF aso_party_id = FND_API.g_miss_num THEN
300: OPEN cur_get_party_id(om_sold_to_org);
301: FETCH cur_get_party_id into p_party_id;
302: CLOSE cur_get_party_id;
303: ELSE
345: l_total NUMBER := 1 ;
346:
347: BEGIN
348:
349: IF aso_party_id = FND_API.g_miss_num THEN
350: OPEN cur_get_party_id(om_sold_to_org);
351: FETCH cur_get_party_id into p_party_id;
352: CLOSE cur_get_party_id;
353: ELSE
423:
424: BEGIN
425: -- initializing
426: --apps.FND_MSG_PUB.initialize;
427: l_return_status := Fnd_Api.g_ret_sts_success;
428:
429: -- territory rec
430: l_trans_rec.trans_object_id := JTF_TERR_NUMBER_LIST(null);
431: l_trans_rec.trans_detail_object_id := JTF_TERR_NUMBER_LIST(null);
641: CLOSE cur_is_terr_setup;
642:
643: IF l_count > 0 THEN
644:
645: IF p_party_id = Fnd_Api.g_miss_num
646: OR p_party_id IS NULL THEN
647: OPEN cur_get_party_id(p_sold_to_org);
648: FETCH cur_get_party_id INTO l_party_id;
649: CLOSE cur_get_party_id;
663: oe_debug_pub.add('Trade MGR: before calling get_winners: party_id ' || l_trans_rec.SQUAL_NUM01(1));
664:
665: JTF_TERR_ASSIGN_PUB.get_winners
666: ( p_api_version_number => l_api_version,
667: p_init_msg_list => FND_API.G_TRUE,
668: p_use_type => 'RESOURCE',
669: p_source_id => -1003,
670: p_trans_id => -1007,
671: p_trans_rec => l_trans_rec,
668: p_use_type => 'RESOURCE',
669: p_source_id => -1003,
670: p_trans_id => -1007,
671: p_trans_rec => l_trans_rec,
672: p_resource_type => FND_API.G_MISS_CHAR,
673: p_role => FND_API.G_MISS_CHAR,
674: p_top_level_terr_id => FND_API.G_MISS_NUM,
675: p_num_winners => FND_API.G_MISS_NUM,
676: x_return_status => l_return_status,
669: p_source_id => -1003,
670: p_trans_id => -1007,
671: p_trans_rec => l_trans_rec,
672: p_resource_type => FND_API.G_MISS_CHAR,
673: p_role => FND_API.G_MISS_CHAR,
674: p_top_level_terr_id => FND_API.G_MISS_NUM,
675: p_num_winners => FND_API.G_MISS_NUM,
676: x_return_status => l_return_status,
677: x_msg_count => l_msg_count,
670: p_trans_id => -1007,
671: p_trans_rec => l_trans_rec,
672: p_resource_type => FND_API.G_MISS_CHAR,
673: p_role => FND_API.G_MISS_CHAR,
674: p_top_level_terr_id => FND_API.G_MISS_NUM,
675: p_num_winners => FND_API.G_MISS_NUM,
676: x_return_status => l_return_status,
677: x_msg_count => l_msg_count,
678: x_msg_data => l_msg_data,
671: p_trans_rec => l_trans_rec,
672: p_resource_type => FND_API.G_MISS_CHAR,
673: p_role => FND_API.G_MISS_CHAR,
674: p_top_level_terr_id => FND_API.G_MISS_NUM,
675: p_num_winners => FND_API.G_MISS_NUM,
676: x_return_status => l_return_status,
677: x_msg_count => l_msg_count,
678: x_msg_data => l_msg_data,
679: x_winners_rec => l_winner_rec
681: oe_debug_pub.add('Trade MGR: after calling get_winners: status ' || l_return_status);
682: oe_debug_pub.add('Trade MGR: terr count ' || l_winner_rec.terr_id.COUNT);
683: END IF;
684:
685: IF l_return_status = Fnd_Api.g_ret_sts_success THEN
686: FOR i IN NVL(l_winner_rec.terr_id.FIRST, 1)..NVL(l_winner_rec.terr_id.LAST, 0) LOOP
687: l_multirecord(i) := l_winner_rec.terr_id(i);
688: oe_debug_pub.add('Trade MGR: terr_id(' || i || ') ' || l_multirecord(i));
689: END LOOP;
781: l_count NUMBER;
782: BEGIN
783: -- initializing
784: --apps.FND_MSG_PUB.initialize;
785: l_return_status := Fnd_Api.g_ret_sts_success;
786:
787: -- territory rec
788: l_trx_rec.trans_object_id := JTF_TERR_NUMBER_LIST(null);
789: l_trx_rec.trans_detail_object_id := JTF_TERR_NUMBER_LIST(null);
999: CLOSE cur_is_terr_setup;
1000:
1001: IF l_count > 0 THEN
1002:
1003: IF p_party_id = Fnd_Api.g_miss_num
1004: OR p_party_id IS NULL THEN
1005: OPEN cur_get_party_id(p_sold_to_org);
1006: FETCH cur_get_party_id INTO l_party_id;
1007: CLOSE cur_get_party_id;
1024: OPEN c_cust_profile(p_sold_to_org, p_ship_to_org, p_bill_to_org);
1025: FETCH c_cust_profile INTO l_trx_rec.squal_num15(1);
1026: CLOSE c_cust_profile;
1027: /*
1028: IF p_bill_to_org IS NOT NULL AND p_bill_to_org <> fnd_api.g_miss_num THEN
1029: l_index := l_index + 1;
1030: l_trx_rec.squal_char17.EXTEND;
1031: OPEN c_site_use_code(p_bill_to_org);
1032: FETCH c_site_use_code INTO l_trx_rec.squal_char17(l_index);
1032: FETCH c_site_use_code INTO l_trx_rec.squal_char17(l_index);
1033: CLOSE c_site_use_code;
1034: END IF;
1035:
1036: IF p_ship_to_org IS NOT NULL AND p_ship_to_org <> fnd_api.g_miss_num THEN
1037: l_index := l_index + 1;
1038: l_trx_rec.squal_char17.EXTEND;
1039: OPEN c_site_use_code(p_ship_to_org);
1040: FETCH c_site_use_code INTO l_trx_rec.squal_char17(l_index);
1042: END IF;
1043: */
1044: JTF_TERR_ASSIGN_PUB.get_winners
1045: ( p_api_version_number => l_api_version,
1046: p_init_msg_list => FND_API.G_TRUE,
1047: p_use_type => 'RESOURCE',
1048: p_source_id => -1003,
1049: p_trans_id => -1007,
1050: p_trans_rec => l_trx_rec,
1047: p_use_type => 'RESOURCE',
1048: p_source_id => -1003,
1049: p_trans_id => -1007,
1050: p_trans_rec => l_trx_rec,
1051: p_resource_type => FND_API.G_MISS_CHAR,
1052: p_role => FND_API.G_MISS_CHAR,
1053: p_top_level_terr_id => FND_API.G_MISS_NUM,
1054: p_num_winners => FND_API.G_MISS_NUM,
1055: x_return_status => l_return_status,
1048: p_source_id => -1003,
1049: p_trans_id => -1007,
1050: p_trans_rec => l_trx_rec,
1051: p_resource_type => FND_API.G_MISS_CHAR,
1052: p_role => FND_API.G_MISS_CHAR,
1053: p_top_level_terr_id => FND_API.G_MISS_NUM,
1054: p_num_winners => FND_API.G_MISS_NUM,
1055: x_return_status => l_return_status,
1056: x_msg_count => l_msg_count,
1049: p_trans_id => -1007,
1050: p_trans_rec => l_trx_rec,
1051: p_resource_type => FND_API.G_MISS_CHAR,
1052: p_role => FND_API.G_MISS_CHAR,
1053: p_top_level_terr_id => FND_API.G_MISS_NUM,
1054: p_num_winners => FND_API.G_MISS_NUM,
1055: x_return_status => l_return_status,
1056: x_msg_count => l_msg_count,
1057: x_msg_data => l_msg_data,
1050: p_trans_rec => l_trx_rec,
1051: p_resource_type => FND_API.G_MISS_CHAR,
1052: p_role => FND_API.G_MISS_CHAR,
1053: p_top_level_terr_id => FND_API.G_MISS_NUM,
1054: p_num_winners => FND_API.G_MISS_NUM,
1055: x_return_status => l_return_status,
1056: x_msg_count => l_msg_count,
1057: x_msg_data => l_msg_data,
1058: x_winners_rec => l_winner_rec
1058: x_winners_rec => l_winner_rec
1059: );
1060: END IF;
1061:
1062: IF l_return_status = Fnd_Api.g_ret_sts_success THEN
1063: FOR i IN 1..l_winner_rec.terr_id.COUNT LOOP
1064: l_multirecord(i) := l_winner_rec.terr_id(i);
1065: END LOOP;
1066: END IF;
1129:
1130: BEGIN
1131: -- initializing
1132: --apps.FND_MSG_PUB.initialize;
1133: l_return_status := Fnd_Api.g_ret_sts_success;
1134:
1135: -- territory rec
1136: l_trans_rec.trans_object_id := JTF_TERR_NUMBER_LIST(null);
1137: l_trans_rec.trans_detail_object_id := JTF_TERR_NUMBER_LIST(null);
1347: CLOSE cur_is_terr_setup;
1348:
1349: IF l_count > 0 THEN
1350:
1351: IF p_party_id = Fnd_Api.g_miss_num
1352: OR p_party_id IS NULL THEN
1353: OPEN cur_get_party_id(p_sold_to_org);
1354: FETCH cur_get_party_id INTO l_party_id;
1355: CLOSE cur_get_party_id;
1368: oe_debug_pub.add('Trade MGR SA: before calling get_winners: party_id ' || l_trans_rec.SQUAL_NUM01(1));
1369:
1370: JTF_TERR_ASSIGN_PUB.get_winners
1371: ( p_api_version_number => l_api_version,
1372: p_init_msg_list => FND_API.G_TRUE,
1373: p_use_type => 'RESOURCE',
1374: p_source_id => -1001,
1375: p_trans_id => -1002,
1376: p_trans_rec => l_trans_rec,
1373: p_use_type => 'RESOURCE',
1374: p_source_id => -1001,
1375: p_trans_id => -1002,
1376: p_trans_rec => l_trans_rec,
1377: p_resource_type => FND_API.G_MISS_CHAR,
1378: p_role => FND_API.G_MISS_CHAR,
1379: p_top_level_terr_id => FND_API.G_MISS_NUM,
1380: p_num_winners => FND_API.G_MISS_NUM,
1381: x_return_status => l_return_status,
1374: p_source_id => -1001,
1375: p_trans_id => -1002,
1376: p_trans_rec => l_trans_rec,
1377: p_resource_type => FND_API.G_MISS_CHAR,
1378: p_role => FND_API.G_MISS_CHAR,
1379: p_top_level_terr_id => FND_API.G_MISS_NUM,
1380: p_num_winners => FND_API.G_MISS_NUM,
1381: x_return_status => l_return_status,
1382: x_msg_count => l_msg_count,
1375: p_trans_id => -1002,
1376: p_trans_rec => l_trans_rec,
1377: p_resource_type => FND_API.G_MISS_CHAR,
1378: p_role => FND_API.G_MISS_CHAR,
1379: p_top_level_terr_id => FND_API.G_MISS_NUM,
1380: p_num_winners => FND_API.G_MISS_NUM,
1381: x_return_status => l_return_status,
1382: x_msg_count => l_msg_count,
1383: x_msg_data => l_msg_data,
1376: p_trans_rec => l_trans_rec,
1377: p_resource_type => FND_API.G_MISS_CHAR,
1378: p_role => FND_API.G_MISS_CHAR,
1379: p_top_level_terr_id => FND_API.G_MISS_NUM,
1380: p_num_winners => FND_API.G_MISS_NUM,
1381: x_return_status => l_return_status,
1382: x_msg_count => l_msg_count,
1383: x_msg_data => l_msg_data,
1384: x_winners_rec => l_winner_rec
1387: END IF;
1388: oe_debug_pub.add('Trade MGR SA: after calling get_winners: status ' || l_return_status);
1389: oe_debug_pub.add('Trade MGR SA: terr count ' || l_winner_rec.terr_id.COUNT);
1390:
1391: IF l_return_status = Fnd_Api.g_ret_sts_success THEN
1392: FOR i IN NVL(l_winner_rec.terr_id.FIRST, 1)..NVL(l_winner_rec.terr_id.LAST, 0) LOOP
1393: l_multirecord(i) := l_winner_rec.terr_id(i);
1394: oe_debug_pub.add('Trade MGR SA: terr_id(' || i || ') ' || l_multirecord(i));
1395: END LOOP;
1467:
1468: BEGIN
1469: -- initializing
1470: --apps.FND_MSG_PUB.initialize;
1471: l_return_status := Fnd_Api.g_ret_sts_success;
1472:
1473: -- territory rec
1474: l_trans_rec.trans_object_id := JTF_TERR_NUMBER_LIST(null);
1475: l_trans_rec.trans_detail_object_id := JTF_TERR_NUMBER_LIST(null);
1685: CLOSE cur_is_terr_setup;
1686:
1687: IF l_count > 0 THEN
1688:
1689: IF p_party_id = Fnd_Api.g_miss_num
1690: OR p_party_id IS NULL THEN
1691: OPEN cur_get_party_id(p_sold_to_org);
1692: FETCH cur_get_party_id INTO l_party_id;
1693: CLOSE cur_get_party_id;
1704: CLOSE c_party_site_id;
1705:
1706: JTF_TERR_ASSIGN_PUB.get_winners
1707: ( p_api_version_number => l_api_version,
1708: p_init_msg_list => FND_API.G_TRUE,
1709: p_use_type => 'RESOURCE',
1710: p_source_id => -1001,
1711: p_trans_id => -1002,
1712: p_trans_rec => l_trans_rec,
1709: p_use_type => 'RESOURCE',
1710: p_source_id => -1001,
1711: p_trans_id => -1002,
1712: p_trans_rec => l_trans_rec,
1713: p_resource_type => FND_API.G_MISS_CHAR,
1714: p_role => FND_API.G_MISS_CHAR,
1715: p_top_level_terr_id => FND_API.G_MISS_NUM,
1716: p_num_winners => FND_API.G_MISS_NUM,
1717: x_return_status => l_return_status,
1710: p_source_id => -1001,
1711: p_trans_id => -1002,
1712: p_trans_rec => l_trans_rec,
1713: p_resource_type => FND_API.G_MISS_CHAR,
1714: p_role => FND_API.G_MISS_CHAR,
1715: p_top_level_terr_id => FND_API.G_MISS_NUM,
1716: p_num_winners => FND_API.G_MISS_NUM,
1717: x_return_status => l_return_status,
1718: x_msg_count => l_msg_count,
1711: p_trans_id => -1002,
1712: p_trans_rec => l_trans_rec,
1713: p_resource_type => FND_API.G_MISS_CHAR,
1714: p_role => FND_API.G_MISS_CHAR,
1715: p_top_level_terr_id => FND_API.G_MISS_NUM,
1716: p_num_winners => FND_API.G_MISS_NUM,
1717: x_return_status => l_return_status,
1718: x_msg_count => l_msg_count,
1719: x_msg_data => l_msg_data,
1712: p_trans_rec => l_trans_rec,
1713: p_resource_type => FND_API.G_MISS_CHAR,
1714: p_role => FND_API.G_MISS_CHAR,
1715: p_top_level_terr_id => FND_API.G_MISS_NUM,
1716: p_num_winners => FND_API.G_MISS_NUM,
1717: x_return_status => l_return_status,
1718: x_msg_count => l_msg_count,
1719: x_msg_data => l_msg_data,
1720: x_winners_rec => l_winner_rec
1721: );
1722:
1723: END IF;
1724:
1725: IF l_return_status = Fnd_Api.g_ret_sts_success THEN
1726: FOR i IN 1..l_winner_rec.terr_id.COUNT LOOP
1727: l_multirecord(i) := l_winner_rec.terr_id(i);
1728: END LOOP;
1729: END IF;
1743: l_distributor_acct_id NUMBER;
1744: BEGIN
1745: IF p_resale_line_tbl.COUNT > 0 THEN
1746: l_distributor_acct_id := p_resale_line_tbl(1).sold_from_cust_account_id;
1747: IF l_distributor_acct_id IS NOT NULL AND l_distributor_acct_id <> fnd_api.g_miss_num THEN
1748: l_sales_method := 'I';
1749: ELSE
1750: l_sales_method := 'D';
1751: END IF;
1785: l_distributor_acct_id NUMBER;
1786: BEGIN
1787: IF p_resale_line_tbl.COUNT > 0 THEN
1788: l_distributor_acct_id := p_resale_line_tbl(1).sold_from_cust_account_id;
1789: IF l_distributor_acct_id IS NOT NULL AND l_distributor_acct_id <> fnd_api.g_miss_num THEN
1790: l_multirecord := get_lists(fnd_api.g_miss_num, l_distributor_acct_id);
1791: END IF;
1792: END IF;
1793:
1786: BEGIN
1787: IF p_resale_line_tbl.COUNT > 0 THEN
1788: l_distributor_acct_id := p_resale_line_tbl(1).sold_from_cust_account_id;
1789: IF l_distributor_acct_id IS NOT NULL AND l_distributor_acct_id <> fnd_api.g_miss_num THEN
1790: l_multirecord := get_lists(fnd_api.g_miss_num, l_distributor_acct_id);
1791: END IF;
1792: END IF;
1793:
1794: RETURN l_multirecord;
1805: l_distributor_acct_id NUMBER;
1806: BEGIN
1807: IF p_resale_line_tbl.COUNT > 0 THEN
1808: l_distributor_acct_id := p_resale_line_tbl(1).sold_from_cust_account_id;
1809: IF l_distributor_acct_id IS NOT NULL AND l_distributor_acct_id <> fnd_api.g_miss_num THEN
1810: l_multirecord := get_segments(fnd_api.g_miss_num, l_distributor_acct_id);
1811: END IF;
1812: END IF;
1813:
1806: BEGIN
1807: IF p_resale_line_tbl.COUNT > 0 THEN
1808: l_distributor_acct_id := p_resale_line_tbl(1).sold_from_cust_account_id;
1809: IF l_distributor_acct_id IS NOT NULL AND l_distributor_acct_id <> fnd_api.g_miss_num THEN
1810: l_multirecord := get_segments(fnd_api.g_miss_num, l_distributor_acct_id);
1811: END IF;
1812: END IF;
1813:
1814: RETURN l_multirecord;
1827: BEGIN
1828: IF p_resale_line_tbl.COUNT > 0 THEN
1829: l_distributor_acct_id := p_resale_line_tbl(1).sold_from_cust_account_id;
1830: l_ship_to_org_id := p_resale_line_tbl(1).sold_from_site_id;
1831: IF l_distributor_acct_id IS NOT NULL AND l_distributor_acct_id <> fnd_api.g_miss_num THEN
1832: l_multirecord := find_tm_territories(fnd_api.g_miss_num, l_distributor_acct_id, l_ship_to_org_id, fnd_api.g_miss_num);
1833: END IF;
1834: END IF;
1835:
1828: IF p_resale_line_tbl.COUNT > 0 THEN
1829: l_distributor_acct_id := p_resale_line_tbl(1).sold_from_cust_account_id;
1830: l_ship_to_org_id := p_resale_line_tbl(1).sold_from_site_id;
1831: IF l_distributor_acct_id IS NOT NULL AND l_distributor_acct_id <> fnd_api.g_miss_num THEN
1832: l_multirecord := find_tm_territories(fnd_api.g_miss_num, l_distributor_acct_id, l_ship_to_org_id, fnd_api.g_miss_num);
1833: END IF;
1834: END IF;
1835:
1836: RETURN l_multirecord;