[Home] [Help]
PACKAGE BODY: APPS.IBE_SHOP_LIST_MGMT_PVT
Source
1 PACKAGE BODY IBE_Shop_List_MGMT_PVT AS
2 /* $Header: IBEVQOCSLB.pls 120.1 2010/11/19 08:41:05 amaheshw noship $ */
3 PROCEDURE Save_New_ShopList(
4 p_api_version IN NUMBER := 1 ,
5 p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
6 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
7 x_return_status OUT NOCOPY VARCHAR2 ,
8 x_msg_count OUT NOCOPY NUMBER ,
9 x_msg_data OUT NOCOPY VARCHAR2 ,
10 p_inventory_item_id IN JTF_Number_Table ,
11 p_org_id IN NUMBER ,
12 p_qty IN NUMBER ,
13 p_uom IN JTF_Varchar2_Table_100 ,
14 p_minisite_id IN NUMBER := FND_API.G_MISS_NUM ,
15 p_last_update_date IN DATE := FND_API.G_MISS_DATE,
16 p_mode IN VARCHAR2 := 'MERGE' ,
17 p_combine_same_item IN VARCHAR2 := FND_API.G_MISS_CHAR,
18 p_sl_header_rec IN IBE_Shop_List_PVT.SL_Header_Rec_Type ,
19 x_sl_header_id OUT NOCOPY NUMBER ,
20 p_item_type_code IN JTF_Varchar2_Table_100
21 ) IS
22
23 l_sl_line_tbl IBE_Shop_List_PVT.SL_Line_Tbl_Type
24 := IBE_Shop_List_PVT.G_MISS_SL_LINE_TBL;
25 l_sl_line_rel_tbl IBE_Shop_List_PVT.SL_Line_Rel_Tbl_Type
26 := IBE_Shop_List_PVT.G_MISS_SL_LINE_REL_TBL;
27 L_ORG_ID CONSTANT NUMBER := FND_Profile.Value('ORG_ID');
28 BEGIN
29 FOR i IN 1..p_inventory_item_id.COUNT LOOP
30 BEGIN
31 l_sl_line_tbl(i).inventory_item_id := p_inventory_item_id(i);
32 l_sl_line_tbl(i).quantity := p_qty;
33 l_sl_line_tbl(i).uom_code := p_uom(i);
34 l_sl_line_tbl(i).organization_id := p_org_id;
35 l_sl_line_tbl(i).org_id := L_ORG_ID;
36 l_sl_line_tbl(i).item_type_code := p_item_type_code(i);
37 EXCEPTION
38 WHEN DUP_VAL_ON_INDEX THEN
39 NULL;
40 END;
41 END LOOP;
42
43 IBE_Shop_List_PVT.Save(
44 p_api_version => p_api_version,
45 p_init_msg_list => p_init_msg_list,
46 p_commit => p_commit,
47 x_return_status => x_return_status,
48 x_msg_count => x_msg_count,
49 x_msg_data => x_msg_data,
50 p_combine_same_item => p_combine_same_item,
51 p_sl_header_rec => p_sl_header_rec,
52 p_sl_line_tbl => l_sl_line_tbl,
53 p_sl_line_rel_tbl => l_sl_line_rel_tbl,
54 x_sl_header_id => x_sl_header_id
55 );
56 end Save_New_ShopList;
57
58
59 PROCEDURE Save_New_ShopList(
60 p_api_version IN NUMBER := 1 ,
61 p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
62 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
63 x_return_status OUT NOCOPY VARCHAR2 ,
64 x_msg_count OUT NOCOPY NUMBER ,
65 x_msg_data OUT NOCOPY VARCHAR2 ,
66 p_inventory_item_id IN JTF_Number_Table ,
67 p_org_id IN NUMBER ,
68 p_qty IN NUMBER ,
69 p_uom IN JTF_Varchar2_Table_100 ,
70 p_minisite_id IN NUMBER := FND_API.G_MISS_NUM ,
71 p_last_update_date IN DATE := FND_API.G_MISS_DATE,
72 p_mode IN VARCHAR2 := 'MERGE' ,
73 p_combine_same_item IN VARCHAR2 := FND_API.G_MISS_CHAR,
74 p_party_id IN NUMBER ,
75 p_cust_account_id IN NUMBER ,
76 p_shopping_list_name IN VARCHAR2 ,
77 p_list_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
78
79 x_sl_header_id OUT NOCOPY NUMBER ,
80 p_item_type_code IN JTF_Varchar2_Table_100
81 ) IS
82 p_sl_header_rec IBE_Shop_List_PVT.SL_Header_Rec_Type := IBE_Shop_List_PVT.G_MISS_SL_HEADER_REC;
83
84
85 BEGIN
86
87 p_sl_header_rec.party_id := p_party_id;
88 p_sl_header_rec.cust_account_id := p_cust_account_id;
89 p_sl_header_rec.shopping_list_name := p_shopping_list_name;
90 p_sl_header_rec.description := p_list_description;
91
92
93 IBE_Shop_List_MGMT_PVT.Save_New_ShopList(
94 p_api_version => p_api_version ,
95 p_init_msg_list => p_init_msg_list ,
96 p_commit => p_commit ,
97 x_return_status => x_return_status ,
98 x_msg_count => x_msg_count ,
99 x_msg_data => x_msg_data ,
100 p_inventory_item_id => p_inventory_item_id ,
101 p_org_id => p_org_id ,
102 p_qty => p_qty ,
103 p_uom => p_uom ,
104 p_minisite_id => p_minisite_id ,
105 p_last_update_date => p_last_update_date ,
106 p_mode => p_mode ,
107 p_combine_same_item => p_combine_same_item ,
108 p_sl_header_rec => p_sl_header_rec ,
109 x_sl_header_id => x_sl_header_id ,
110 p_item_type_code => p_item_type_code
111 );
112
113 end Save_New_ShopList;
114
115 PROCEDURE Add_Item_to_ShopList(
116 p_api_version IN NUMBER := 1 ,
117 p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
118 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
119 x_return_status OUT NOCOPY VARCHAR2 ,
120 x_msg_count OUT NOCOPY NUMBER ,
121 x_msg_data OUT NOCOPY VARCHAR2 ,
122 p_inventory_item_id IN JTF_Number_Table ,
123 p_org_id IN NUMBER ,
124 p_qty IN NUMBER ,
125 p_uom IN JTF_Varchar2_Table_100 ,
126 p_minisite_id IN NUMBER := FND_API.G_MISS_NUM ,
127 p_last_update_date IN DATE := FND_API.G_MISS_DATE,
128 p_mode IN VARCHAR2 := 'MERGE' ,
129 p_combine_same_item IN VARCHAR2 := FND_API.G_MISS_CHAR,
130 p_party_id IN NUMBER ,
131 p_cust_account_id IN NUMBER ,
132 p_shopping_list_name IN VARCHAR2 ,
133 p_list_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
134
135 x_sl_header_id OUT NOCOPY NUMBER,
136 p_shp_list_id IN NUMBER ,
137 p_item_type_code IN JTF_Varchar2_Table_100
138
139 ) IS
140 p_sl_header_rec IBE_Shop_List_PVT.SL_Header_Rec_Type := IBE_Shop_List_PVT.G_MISS_SL_HEADER_REC;
141
142
143 BEGIN
144
145 p_sl_header_rec.party_id := p_party_id;
146 p_sl_header_rec.cust_account_id := p_cust_account_id;
147 --p_sl_header_rec.shopping_list_name := p_shopping_list_name;
148 p_sl_header_rec.description := p_list_description;
149 p_sl_header_rec.shp_list_id := p_shp_list_id;
150
151
152 IBE_Shop_List_MGMT_PVT.Save_New_ShopList(
153 p_api_version => p_api_version ,
154 p_init_msg_list => p_init_msg_list ,
155 p_commit => p_commit ,
156 x_return_status => x_return_status ,
157 x_msg_count => x_msg_count ,
158 x_msg_data => x_msg_data ,
159 p_inventory_item_id => p_inventory_item_id ,
160 p_org_id => p_org_id ,
161 p_qty => p_qty ,
162 p_uom => p_uom ,
163 p_minisite_id => p_minisite_id ,
164 p_last_update_date => p_last_update_date ,
165 p_mode => p_mode ,
166 p_combine_same_item => p_combine_same_item ,
167 p_sl_header_rec => p_sl_header_rec ,
168 x_sl_header_id => x_sl_header_id ,
169 p_item_type_code => p_item_type_code
170 );
171 end Add_Item_to_ShopList;
172
173 END IBE_Shop_List_MGMT_PVT;