[Home] [Help]
PACKAGE BODY: APPS.IBE_SHOP_LIST_LINE_PKG
Source
1 PACKAGE BODY IBE_Shop_List_Line_PKG AS
2 /* $Header: IBEVSLLB.pls 120.1 2005/08/28 21:50:58 appldev ship $ */
3
4 -- Start of comments
5 -- Package name : IBE_Shop_List_Line_PKG
6 -- Function :
7 -- Parameters :
8 -- Version : Current version 1.0
9 -- Notes :
10 --
11 -- End of comments
12 l_true VARCHAR2(1) := FND_API.G_TRUE;
13
14 PROCEDURE Insert_Row(
15 x_shp_list_item_id OUT NOCOPY NUMBER ,
16 p_object_version_number IN NUMBER ,
17 p_creation_date IN DATE ,
18 p_created_by IN NUMBER ,
19 p_last_updated_by IN NUMBER ,
20 p_last_update_date IN DATE ,
21 p_last_update_login IN NUMBER ,
22 p_request_id IN NUMBER ,
23 p_program_id IN NUMBER ,
24 p_program_application_id IN NUMBER ,
25 p_program_update_date IN DATE ,
26 p_shp_list_id IN NUMBER ,
27 p_inventory_item_id IN NUMBER ,
28 p_organization_id IN NUMBER ,
29 p_uom_code IN VARCHAR2,
30 p_quantity IN NUMBER ,
31 p_config_header_id IN NUMBER ,
32 p_config_revision_num IN NUMBER ,
33 p_complete_configuration_flag IN VARCHAR2,
34 p_valid_configuration_flag IN VARCHAR2,
35 p_item_type_code IN VARCHAR2,
36 p_attribute_category IN VARCHAR2,
37 p_attribute1 IN VARCHAR2,
38 p_attribute2 IN VARCHAR2,
39 p_attribute3 IN VARCHAR2,
40 p_attribute4 IN VARCHAR2,
41 p_attribute5 IN VARCHAR2,
42 p_attribute6 IN VARCHAR2,
43 p_attribute7 IN VARCHAR2,
44 p_attribute8 IN VARCHAR2,
45 p_attribute9 IN VARCHAR2,
46 p_attribute10 IN VARCHAR2,
47 p_attribute11 IN VARCHAR2,
48 p_attribute12 IN VARCHAR2,
49 p_attribute13 IN VARCHAR2,
50 p_attribute14 IN VARCHAR2,
51 p_attribute15 IN VARCHAR2,
52 p_org_id IN NUMBER
53 )
54 IS
55 CURSOR C2 IS SELECT IBE_SH_SHP_LIST_ITEMS_S1.nextval FROM sys.dual;
56 BEGIN
57 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
58 IBE_Util.Debug('start IBE_Shop_List_LINE_PKG.Insert row');
59 END IF;
60 INSERT INTO ibe_shp_list_items_all(
61 shp_list_item_id,
62 request_id,
63 program_application_id,
64 program_id,
65 program_update_date,
66 object_version_number,
67 created_by,
68 creation_date,
69 last_updated_by,
70 last_update_date,
71 last_update_login,
72 shp_list_id,
73 inventory_item_id,
74 organization_id,
75 uom_code,
76 quantity,
77 config_header_id,
78 config_revision_num,
79 complete_configuration_flag,
80 valid_configuration_flag,
81 item_type_code,
82 attribute_category,
83 attribute1,
84 attribute2,
85 attribute3,
86 attribute4,
87 attribute5,
88 attribute6,
89 attribute7,
90 attribute8,
91 attribute9,
92 attribute10,
93 attribute11,
94 attribute12,
95 attribute13,
96 attribute14,
97 attribute15,
98 org_id
99 )
100 VALUES(
101 ibe_sh_shp_list_items_s1.NEXTVAL,
102 DECODE(p_request_id, FND_API.G_MISS_NUM, NULL, p_request_id),
103 DECODE(p_program_application_id, FND_API.G_MISS_NUM, NULL, p_program_application_id),
104 DECODE(p_program_id, FND_API.G_MISS_NUM, NULL, p_program_id),
105 DECODE(p_program_update_date, FND_API.G_MISS_DATE, NULL, p_program_update_date),
106 1,
107 FND_Global.User_ID,
108 SYSDATE,
109 FND_Global.User_ID,
110 SYSDATE,
111 FND_Global.Login_ID,
112 p_shp_list_id,
113 p_inventory_item_id,
114 p_organization_id,
115 p_uom_code,
116 p_quantity,
117 DECODE(p_config_header_id, FND_API.G_MISS_NUM, NULL, p_config_header_id),
118 DECODE(p_config_revision_num, FND_API.G_MISS_NUM, NULL, p_config_revision_num),
119 DECODE(p_complete_configuration_flag, FND_API.G_MISS_CHAR, NULL, p_complete_configuration_flag),
120 DECODE(p_valid_configuration_flag, FND_API.G_MISS_CHAR, NULL, p_valid_configuration_flag),
121 DECODE(p_item_type_code, FND_API.G_MISS_CHAR, NULL, p_item_type_code),
122 DECODE(p_attribute_category, FND_API.G_MISS_CHAR, NULL, p_attribute_category),
123 DECODE(p_attribute1, FND_API.G_MISS_CHAR, NULL, p_attribute1),
124 DECODE(p_attribute2, FND_API.G_MISS_CHAR, NULL, p_attribute2),
125 DECODE(p_attribute3, FND_API.G_MISS_CHAR, NULL, p_attribute3),
126 DECODE(p_attribute4, FND_API.G_MISS_CHAR, NULL, p_attribute4),
127 DECODE(p_attribute5, FND_API.G_MISS_CHAR, NULL, p_attribute5),
128 DECODE(p_attribute6, FND_API.G_MISS_CHAR, NULL, p_attribute6),
129 DECODE(p_attribute7, FND_API.G_MISS_CHAR, NULL, p_attribute7),
130 DECODE(p_attribute8, FND_API.G_MISS_CHAR, NULL, p_attribute8),
131 DECODE(p_attribute9, FND_API.G_MISS_CHAR, NULL, p_attribute9),
132 DECODE(p_attribute10, FND_API.G_MISS_CHAR, NULL, p_attribute10),
133 DECODE(p_attribute11, FND_API.G_MISS_CHAR, NULL, p_attribute11),
134 DECODE(p_attribute12, FND_API.G_MISS_CHAR, NULL, p_attribute12),
135 DECODE(p_attribute13, FND_API.G_MISS_CHAR, NULL, p_attribute13),
136 DECODE(p_attribute14, FND_API.G_MISS_CHAR, NULL, p_attribute14),
137 DECODE(p_attribute15, FND_API.G_MISS_CHAR, NULL, p_attribute15),
138 DECODE(p_org_id, FND_API.G_MISS_NUM, MO_GLOBAL.get_current_org_id(), p_org_id))
139 RETURNING shp_list_item_id INTO x_shp_list_item_id;
140
141 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
142 IBE_Util.Debug('Exit IBE_Shop_List_line_PKG.Insert row');
143 END IF;
144 END Insert_Row;
145
146
147 PROCEDURE Update_Row(
148 p_shp_list_item_id IN NUMBER ,
149 p_object_version_number IN NUMBER ,
150 p_creation_date IN DATE ,
151 p_created_by IN NUMBER ,
152 p_last_updated_by IN NUMBER ,
153 p_last_update_date IN DATE ,
154 p_last_update_login IN NUMBER ,
155 p_request_id IN NUMBER ,
156 p_program_id IN NUMBER ,
157 p_program_application_id IN NUMBER ,
158 p_program_update_date IN DATE ,
159 p_shp_list_id IN NUMBER ,
160 p_inventory_item_id IN NUMBER ,
161 p_organization_id IN NUMBER ,
162 p_uom_code IN VARCHAR2,
163 p_quantity IN NUMBER ,
164 p_config_header_id IN NUMBER ,
165 p_config_revision_num IN NUMBER ,
166 p_complete_configuration_flag IN VARCHAR2,
167 p_valid_configuration_flag IN VARCHAR2,
168 p_item_type_code IN VARCHAR2,
169 p_attribute_category IN VARCHAR2,
170 p_attribute1 IN VARCHAR2,
171 p_attribute2 IN VARCHAR2,
172 p_attribute3 IN VARCHAR2,
173 p_attribute4 IN VARCHAR2,
174 p_attribute5 IN VARCHAR2,
175 p_attribute6 IN VARCHAR2,
176 p_attribute7 IN VARCHAR2,
177 p_attribute8 IN VARCHAR2,
178 p_attribute9 IN VARCHAR2,
179 p_attribute10 IN VARCHAR2,
180 p_attribute11 IN VARCHAR2,
181 p_attribute12 IN VARCHAR2,
182 p_attribute13 IN VARCHAR2,
183 p_attribute14 IN VARCHAR2,
184 p_attribute15 IN VARCHAR2,
185 p_org_id IN NUMBER
186 )
187 IS
188 BEGIN
189 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
190 IBE_Util.Debug('Start IBE_Shop_List_line_PKG.update_row');
191 END IF;
192
193 UPDATE ibe_shp_list_items_all
194 SET request_id = DECODE(p_request_id, FND_API.G_MISS_NUM, request_id, p_request_id),
195 program_application_id = DECODE(p_program_application_id, FND_API.G_MISS_NUM, program_application_id, p_program_application_id),
196 program_id = DECODE(p_program_id, FND_API.G_MISS_NUM, program_id, p_program_id),
197 program_update_date = DECODE(p_program_update_date, FND_API.G_MISS_DATE, program_update_date, p_program_update_date),
198 object_version_number = object_version_number + 1,
199 created_by = created_by,
200 creation_date = creation_date,
201 last_updated_by = FND_Global.User_ID,
202 last_update_date = SYSDATE,
203 last_update_login = FND_Global.Login_ID,
204 shp_list_id = shp_list_id,
205 inventory_item_id = inventory_item_id,
206 organization_id = organization_id,
207 uom_code = DECODE(p_uom_code, FND_API.G_MISS_CHAR, uom_code, p_uom_code),
208 quantity = DECODE(p_quantity, FND_API.G_MISS_NUM, quantity, p_quantity),
209 config_header_id = DECODE(p_config_header_id, FND_API.G_MISS_NUM, config_header_id, p_config_header_id),
210 config_revision_num = DECODE(p_config_revision_num, FND_API.G_MISS_NUM, config_revision_num, p_config_revision_num),
211 complete_configuration_flag = DECODE(p_complete_configuration_flag, FND_API.G_MISS_CHAR, complete_configuration_flag, p_complete_configuration_flag),
212 valid_configuration_flag = DECODE(p_valid_configuration_flag, FND_API.G_MISS_CHAR, valid_configuration_flag, p_valid_configuration_flag),
213 item_type_code = DECODE(p_item_type_code, FND_API.G_MISS_CHAR, item_type_code, p_item_type_code),
214 attribute_category = DECODE(p_attribute_category, FND_API.G_MISS_CHAR, attribute_category, p_attribute_category),
215 attribute1 = DECODE(p_attribute1, FND_API.G_MISS_CHAR, attribute1, p_attribute1),
216 attribute2 = DECODE(p_attribute2, FND_API.G_MISS_CHAR, attribute2, p_attribute2),
217 attribute3 = DECODE(p_attribute3, FND_API.G_MISS_CHAR, attribute3, p_attribute3),
218 attribute4 = DECODE(p_attribute4, FND_API.G_MISS_CHAR, attribute4, p_attribute4),
219 attribute5 = DECODE(p_attribute5, FND_API.G_MISS_CHAR, attribute5, p_attribute5),
220 attribute6 = DECODE(p_attribute6, FND_API.G_MISS_CHAR, attribute6, p_attribute6),
221 attribute7 = DECODE(p_attribute7, FND_API.G_MISS_CHAR, attribute7, p_attribute7),
222 attribute8 = DECODE(p_attribute8, FND_API.G_MISS_CHAR, attribute8, p_attribute8),
223 attribute9 = DECODE(p_attribute9, FND_API.G_MISS_CHAR, attribute9, p_attribute9),
224 attribute10 = DECODE(p_attribute10, FND_API.G_MISS_CHAR, attribute10, p_attribute10),
225 attribute11 = DECODE(p_attribute11, FND_API.G_MISS_CHAR, attribute11, p_attribute11),
226 attribute12 = DECODE(p_attribute12, FND_API.G_MISS_CHAR, attribute12, p_attribute12),
227 attribute13 = DECODE(p_attribute13, FND_API.G_MISS_CHAR, attribute13, p_attribute13),
228 attribute14 = DECODE(p_attribute14, FND_API.G_MISS_CHAR, attribute14, p_attribute14),
229 attribute15 = DECODE(p_attribute15, FND_API.G_MISS_CHAR, attribute15, p_attribute15),
230 org_id = org_id
231 WHERE shp_list_item_id = p_shp_list_item_id
232 AND object_version_number = DECODE(p_object_version_number, FND_API.G_MISS_NUM, object_version_number, p_object_version_number);
233 IF (SQL%NOTFOUND) THEN
234 RAISE NO_DATA_FOUND;
235 END IF;
236 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
237 IBE_Util.Debug('Exit IBE_Shop_List_line_PKG.update_row');
238 END IF;
239 END Update_Row;
240
241
242 PROCEDURE Delete_Row(
243 p_shp_list_item_id IN NUMBER,
244 p_object_version_number IN NUMBER := FND_API.G_MISS_NUM
245 )
246 IS
247 BEGIN
248 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
249 IBE_Util.Debug('start IBE_Shop_List_line_PKG.delete row');
250 END IF;
251 DELETE
252 FROM ibe_shp_list_items_all
253 WHERE shp_list_item_id = p_shp_list_item_id
254 AND object_version_number = DECODE(p_object_version_number, FND_API.G_MISS_NUM, object_version_number, p_object_version_number);
255
256 IF (SQL%NOTFOUND) THEN
257 RAISE NO_DATA_FOUND;
258 END IF;
259 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
260 IBE_Util.Debug('Exit IBE_Shop_List_line_PKG.delete row');
261 END IF;
262 END Delete_Row;
263
264 END IBE_Shop_List_Line_PKG;