[Home] [Help]
1: PACKAGE BODY IBE_Shop_List_PVT AS
2: /* $Header: IBEVQSLB.pls 120.3 2005/10/05 04:09:16 banatara noship $ */
3:
4: l_true VARCHAR2(1) := FND_API.G_TRUE;
5:
70: END Find_Same_Item_In_Qte_Line_Tbl;
71:
72:
73: FUNCTION Find_Same_Item_In_Lst_Line_Tbl(
74: p_list_line_tbl IN IBE_Shop_List_PVT.SL_Line_Tbl_Type,
75: p_inventory_item_id IN NUMBER ,
76: p_uom_code IN VARCHAR2
77: )
78: RETURN NUMBER
295: PROCEDURE Set_List_Lines_From_List_Lines(
296: p_list_line_id_tbl IN jtf_number_table ,
297: p_list_header_id IN NUMBER ,
298: p_combine_same_item IN VARCHAR2 := FND_API.G_MISS_CHAR ,
299: x_list_line_tbl OUT NOCOPY IBE_Shop_List_PVT.SL_Line_Tbl_Type,
300: x_list_line_id_map_tbl OUT NOCOPY jtf_number_table ,
301: x_list_line_index_tbl OUT NOCOPY jtf_number_table
302: )
303: IS
637: -- Initialize API return status to success
638: x_return_status := FND_API.G_RET_STS_SUCCESS;
639:
640: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
641: IBE_Util.Debug('IBE_Shop_List_PVT.Delete(+)');
642: -- API body
643:
644: IBE_Util.Debug('Delete Configuration Using list ids - Start');
645: END IF;
694: END LOOP;
695:
696: -- End of API body.
697: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
698: IBE_Util.Debug('IBE_Shop_List_PVT.Delete(-)');
699: END IF;
700:
701: -- Standard check of p_commit.
702: IF FND_API.To_Boolean( p_commit ) THEN
788: -- Initialize API return status to success
789: x_return_status := FND_API.G_RET_STS_SUCCESS;
790:
791: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
792: IBE_Util.Debug('IBE_Shop_List_PVT.Delete_All_Lines(+)');
793: -- API body
794:
795: IBE_Util.Debug('Delete Configuration Using list ids - Start');
796: END IF;
845: END LOOP;
846:
847: -- End of API body.
848: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
849: IBE_Util.Debug('IBE_Shop_List_PVT.Delete_All_Lines(-)');
850: END IF;
851:
852: -- Standard check of p_commit.
853: IF FND_API.To_Boolean( p_commit ) THEN
912: -- DBMS_OUTPUT.PUT_LINE('Inside Delete_line p_Shp_List_Item_Id = ' || p_Shp_List_Item_Id);
913: -- DBMS_OUTPUT.PUT_LINE('Inside Delete_line p_object_version_number = ' || p_object_version_number);
914:
915: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
916: IBE_Util.Debug('IBE_Shop_List_PVT.Delete_Line(+)...');
917: END IF;
918:
919: l_shp_list_item_id_tbl := jtf_number_table();
920:
940:
941: CLOSE c1;
942:
943: FOR i IN 1..l_count LOOP
944: IBE_Shop_List_PVT.Delete_Line(
945: p_object_version_number => p_object_version_number,
946: p_Shp_List_Item_Id => l_shp_list_item_id_tbl(i));
947:
948: END LOOP;
1010: -- Initialize API return status to success
1011: x_return_status := FND_API.G_RET_STS_SUCCESS;
1012:
1013: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1014: IBE_Util.Debug('IBE_Shop_List_PVT.Delete_Lines(+)');
1015: END IF;
1016: -- API body
1017:
1018: l_count := p_shop_list_line_ids.COUNT;
1082: END IF;
1083:
1084: -- End of API body.
1085: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1086: IBE_Util.Debug('IBE_Shop_List_PVT.Delete_Lines(-)');
1087: END IF;
1088:
1089: -- Standard check of p_commit.
1090: IF FND_API.To_Boolean( p_commit ) THEN
1170: -- Initialize API return status to success
1171: x_return_status := FND_API.G_RET_STS_SUCCESS;
1172:
1173: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1174: IBE_Util.Debug('IBE_Shop_List_PVT.Save(+)');
1175: END IF;
1176: --dbms_output.put_line('IBE_Shop_List_PVT.Save(+)');
1177: -- API body
1178:
1172:
1173: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1174: IBE_Util.Debug('IBE_Shop_List_PVT.Save(+)');
1175: END IF;
1176: --dbms_output.put_line('IBE_Shop_List_PVT.Save(+)');
1177: -- API body
1178:
1179: IF p_combine_same_item = FND_API.G_MISS_CHAR THEN
1180: l_combine_same_item := FND_Profile.Value('IBE_SC_MERGE_SHOPCART_LINES');
1454:
1455: END IF;
1456: -- End of API body.
1457: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1458: IBE_Util.Debug('IBE_Shop_List_PVT.Save(-)');
1459: END IF;
1460: --dbms_output.put_line('IBE_Shop_List_PVT.Save(-)');
1461:
1462: -- Standard check of p_commit.
1456: -- End of API body.
1457: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1458: IBE_Util.Debug('IBE_Shop_List_PVT.Save(-)');
1459: END IF;
1460: --dbms_output.put_line('IBE_Shop_List_PVT.Save(-)');
1461:
1462: -- Standard check of p_commit.
1463: IF FND_API.To_Boolean( p_commit ) THEN
1464: COMMIT WORK;
1522: -- Initialize API return status to success
1523: x_return_status := FND_API.G_RET_STS_SUCCESS;
1524:
1525: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1526: IBE_Util.Debug('IBE_Shop_List_PVT.Update_Config_Item_Lines(+)');
1527: END IF;
1528:
1529: -- API body
1530: FOR i IN 1..px_sl_line_tbl.COUNT LOOP
1577: END LOOP;
1578: -- End of API body.
1579:
1580: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1581: IBE_Util.Debug('IBE_Shop_List_PVT.Update_Config_Item_Lines(-)');
1582: END IF;
1583:
1584: -- Standard call to get message count and IF count is 1, get message info.
1585: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1660: -- Initialize API return status to success
1661: x_return_status := FND_API.G_RET_STS_SUCCESS;
1662:
1663: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1664: IBE_Util.Debug('IBE_Shop_List_PVT.Save_List_From_Items(+)');
1665: END IF;
1666: -- API body
1667:
1668: -- IF p_sl_header_rec.shp_list_id is not null, i.e. mode will be either 'ADDTO' or 'REPLACE'.
1677: -- create jtf_number_table of list id and obj. ver num to pass to Delete_All_Lines
1678: l_list_header_id_tbl := jtf_number_table(l_sl_header_rec.shp_list_id);
1679: l_obj_ver_num_tbl := jtf_number_table(l_sl_header_rec.object_version_number);
1680:
1681: IBE_Shop_List_PVT.Delete_All_Lines(
1682: p_api_version => p_api_version,
1683: p_init_msg_list => p_init_msg_list,
1684: p_commit => p_commit,
1685: x_return_status => x_return_status,
1766: */
1767: --dbms_output.put_line('Calling Save...');
1768:
1769: BEGIN
1770: IBE_Shop_List_PVT.Save(
1771: p_api_version => p_api_version,
1772: p_init_msg_list => p_init_msg_list,
1773: p_commit => p_commit,
1774: x_return_status => x_return_status,
1800: --dbms_output.put_line('After Save...');
1801:
1802: -- End of API body.
1803: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1804: IBE_Util.Debug('IBE_Shop_List_PVT.Save_List_From_Items(-)');
1805: END IF;
1806: --dbms_output.put_line('IBE_Shop_List_PVT.Save_List_From_Items(-)');
1807:
1808: -- Standard check of p_commit.
1802: -- End of API body.
1803: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1804: IBE_Util.Debug('IBE_Shop_List_PVT.Save_List_From_Items(-)');
1805: END IF;
1806: --dbms_output.put_line('IBE_Shop_List_PVT.Save_List_From_Items(-)');
1807:
1808: -- Standard check of p_commit.
1809: IF FND_API.To_Boolean( p_commit ) THEN
1810: COMMIT WORK;
1868: l_csr Csr_Type;
1869: l_csr_rel Csr_Type;
1870: l_sl_header_rec SL_Header_Rec_Type;
1871: l_sl_line_tbl SL_Line_Tbl_Type
1872: := IBE_Shop_List_PVT.G_MISS_SL_LINE_TBL;
1873: l_sl_line_rel_tbl SL_Line_Rel_Tbl_Type
1874: := IBE_Shop_List_PVT.G_MISS_SL_LINE_REL_TBL;
1875:
1876: i NUMBER := 1; -- index for l_sl_line_tbl
1870: l_sl_header_rec SL_Header_Rec_Type;
1871: l_sl_line_tbl SL_Line_Tbl_Type
1872: := IBE_Shop_List_PVT.G_MISS_SL_LINE_TBL;
1873: l_sl_line_rel_tbl SL_Line_Rel_Tbl_Type
1874: := IBE_Shop_List_PVT.G_MISS_SL_LINE_REL_TBL;
1875:
1876: i NUMBER := 1; -- index for l_sl_line_tbl
1877: j NUMBER := 1; -- index for l_sl_line_rel_tbl
1878:
1939: -- Initialize API return status to success
1940: x_return_status := FND_API.G_RET_STS_SUCCESS;
1941:
1942: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1943: IBE_Util.Debug('IBE_Shop_List_PVT.Save_List_From_Quote(+)');
1944: END IF;
1945: -- API body
1946:
1947:
1975: -- create jtf_number_table of list id and obj. ver num to pass to Delete_All_Lines
1976: l_list_header_id_tbl := jtf_number_table(l_sl_header_rec.shp_list_id);
1977: l_obj_ver_num_tbl := jtf_number_table(l_sl_header_rec.object_version_number);
1978:
1979: IBE_Shop_List_PVT.Delete_All_Lines(
1980: p_api_version => p_api_version,
1981: p_init_msg_list => p_init_msg_list,
1982: p_commit => p_commit,
1983: x_return_status => x_return_status,
2038: FROM aso_quote_headers
2039: WHERE quote_header_id = p_quote_header_id;
2040: */
2041: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2042: IBE_Util.Debug('IBE_Shop_List_PVT pl1-' || p_quote_header_id);
2043: END IF;
2044:
2045: OPEN l_csr FOR SELECT AQL.quote_line_id ,
2046: AQL.inventory_item_id ,
2112: l_PRG_configHdrId_tbl.EXTEND;
2113: l_PRG_configHdrId_tbl(l_PRG_configHdrId_tbl.LAST) := l_config_header_id;
2114:
2115: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2116: IBE_Util.Debug('IBE_Shop_List_PVT: FreeLine! l_PRG_configHdrId=' || l_config_header_id);
2117: end if;
2118: end if;
2119:
2120: -- check to see if the config child's parent is a PRG
2120: -- check to see if the config child's parent is a PRG
2121: l_checkPRGChild := Find_Index(l_config_header_id, l_PRG_configHdrId_tbl);
2122: if (l_checkPRGChild <> 0) then
2123: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2124: IBE_Util.Debug('IBE_Shop_List_PVT: l_config_header_id is that of the PRG MDL!');
2125: end if;
2126: l_PRGchildren_lineId_tbl.EXTEND;
2127: l_PRGchildren_lineId_tbl(l_PRGchildren_lineId_tbl.LAST) := l_quote_line_Id;
2128: end if;
2132: ((l_pricing_line_type_indicator is null) or (l_pricing_line_type_indicator <> 'F')) and
2133: ((l_config_header_id is null) or (l_checkPRGChild = 0)) ) then
2134:
2135: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2136: IBE_Util.Debug('IBE_Shop_List_PVT: !SRV and !PRG');
2137: end if;
2138:
2139: l_sl_line_tbl(i).inventory_item_id := l_inventory_item_id;
2140: l_sl_line_tbl(i).quantity := l_quantity;
2195:
2196: l_checkPRGChild := Find_Index(l_quote_line_id, l_PRGchildren_lineId_tbl);
2197: -- 3/26/03: avoid saving SRV info
2198: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2199: IBE_Util.Debug('IBE_Shop_List_PVT: l_checkPRGChild='||l_checkPRGChild);
2200: end if;
2201:
2202: if ((l_relationship_type_code <> 'SERVICE') and (l_checkPRGChild = 0)) then
2203:
2201:
2202: if ((l_relationship_type_code <> 'SERVICE') and (l_checkPRGChild = 0)) then
2203:
2204: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2205: IBE_Util.Debug('IBE_Shop_List_PVT: relationship -- !SRV and !PRG');
2206: end if;
2207:
2208: l_sl_line_rel_tbl(j).line_index
2209: := Find_Index(l_quote_line_id, l_quote_line_id_tbl, l_quote_line_index_tbl);
2259: END IF;
2260:
2261: BEGIN
2262:
2263: IBE_Shop_List_PVT.Save(
2264: p_api_version => p_api_version,
2265: p_init_msg_list => p_init_msg_list,
2266: p_commit => p_commit,
2267: x_return_status => x_return_status,
2296: --dbms_output.put_line('After Save...');
2297:
2298: -- End of API body.
2299: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2300: IBE_Util.Debug('IBE_Shop_List_PVT.Save_List_From_Quote(-)');
2301: END IF;
2302:
2303: -- Standard check of p_commit.
2304: IF FND_API.To_Boolean( p_commit ) THEN
2703: l_qte_line_index_tbl jtf_number_table;
2704: l_qte_line_tbl ASO_Quote_Pub.Qte_Line_Tbl_Type;
2705: l_qte_line_detail_tbl ASO_Quote_Pub.Qte_Line_Dtl_Tbl_Type;
2706: l_qte_line_relation_tbl ASO_Quote_Pub.Line_Rltship_Tbl_Type;
2707: l_list_line_relation_tbl IBE_Shop_List_PVT.SL_Line_Rel_Tbl_Type;
2708: lx_quote_header_id NUMBER;
2709: lx_last_update_date DATE;
2710:
2711: -- add 3/26/03: to be used for ibe_quote_save_pvt.save api
2755: -- Initialize API return status to success
2756: x_return_status := FND_API.G_RET_STS_SUCCESS;
2757:
2758: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2759: IBE_Util.Debug('IBE_Shop_List_PVT.Save_Quote_From_List_Items(+)');
2760: END IF;
2761: --dbms_output.put_line('IBE_Shop_List_PVT.Save_Quote_From_List_Items(+)');
2762: -- API body
2763:
2757:
2758: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2759: IBE_Util.Debug('IBE_Shop_List_PVT.Save_Quote_From_List_Items(+)');
2760: END IF;
2761: --dbms_output.put_line('IBE_Shop_List_PVT.Save_Quote_From_List_Items(+)');
2762: -- API body
2763:
2764: -- IF p_q_header_rec.quote_header_id is not null, i.e. mode will be either 'ADDTO' or 'REPLACE'.
2765: -- IN this case we just take leave header information as it is, but IF p_q_header_rec.quote_header_id
2766: -- is null, we create new line for quote header.
2767:
2768: IF (p_q_header_rec.quote_header_id <> FND_API.G_MISS_NUM) THEN
2769: IF (p_mode = 'REPLACE') THEN
2770: --dbms_output.put_line('calling IBE_Shop_List_PVT.DeleteAllLines()..');
2771: IBE_Quote_Save_pvt.DeleteAllLines(
2772: p_api_version_number => p_api_version,
2773: p_init_msg_list => FND_API.G_TRUE,
2774: p_commit => FND_API.G_FALSE,
2780: p_sharee_number => p_quote_retrieval_number,
2781: x_quote_header_id => lx_quote_header_id,
2782: x_last_update_date => lx_last_update_date);
2783:
2784: --dbms_output.put_line('back from IBE_Shop_List_PVT.DeleteAllLines()..');
2785: --dbms_output.put_line('x_return_status = ' || x_return_status);
2786: --dbms_output.put_line('x_msg_count = ' || x_msg_count);
2787: --dbms_output.put_line('x_msg_data = ' || x_msg_data);
2788: /*
3027:
3028: x_q_header_id := lx_quote_header_id;
3029: -- End of API body.
3030: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3031: IBE_Util.Debug('IBE_Shop_List_PVT.Save_Quote_From_List_Items(-)');
3032: END IF;
3033:
3034: -- Standard check of p_commit.
3035: IF FND_API.To_Boolean( p_commit ) THEN
3067: p_count => x_msg_count,
3068: p_data => x_msg_data);
3069: END Save_Quote_From_List_Items;
3070:
3071: END IBE_Shop_List_PVT;