[Home] [Help]
PACKAGE BODY: APPS.EAM_DIRECT_ITEMS_PKG_PVT
Source
1 PACKAGE BODY EAM_DIRECT_ITEMS_PKG_PVT AS
2 /* $Header: EAMVDIPB.pls 120.2 2006/03/24 03:05:41 gbadoni noship $ */
3 /***************************************************************************
4 --
5 -- Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA
6 -- All rights reserved.
7 --
8 -- FILENAME
9 --
10 -- EAMVDIPB.pls
11 --
12 -- DESCRIPTION
13 --
14 -- Body of package EAM_DIRECT_ITEMS_PKG_PVT
15 --
16 -- NOTES
17 --
18 -- HISTORY
19 --
20 -- 01-OCT-2003 6/3/2004Basanth Roy Initial Creation
21 ***************************************************************************/
22
23 G_PKG_NAME CONSTANT VARCHAR2(30) := 'EAM_DIRECT_ITEMS_PKG_PVT';
24
25
26
27
28
29 /********************************************************************
30 * Procedure : Insert_Row
31 * Parameters IN : Direct Items column record
32 * Parameters OUT NOCOPY: Return Status
33 * Purpose : Procedure will perfrom an insert into the
34 * wip_eam_direct_items table.
35 *********************************************************************/
36
37 PROCEDURE Insert_Row
38 ( X_DESCRIPTION IN VARCHAR2 ,
39 X_DIRECT_ITEM_TYPE IN NUMBER ,
40 X_PURCHASING_CATEGORY_ID IN NUMBER ,
41 X_DIRECT_ITEM_SEQUENCE_ID IN OUT NOCOPY NUMBER, -- Fix for Bug 3745360
42 X_INVENTORY_ITEM_ID IN NUMBER ,
43 X_OPERATION_SEQ_NUM IN NUMBER ,
44 X_DEPARTMENT_ID IN NUMBER ,
45 X_WIP_ENTITY_ID IN NUMBER ,
46 X_ORGANIZATION_ID IN NUMBER ,
47 X_SUGGESTED_VENDOR_NAME IN VARCHAR2 ,
48 X_SUGGESTED_VENDOR_ID IN NUMBER ,
49 X_SUGGESTED_VENDOR_SITE IN VARCHAR2 ,
50 X_SUGGESTED_VENDOR_SITE_ID IN NUMBER ,
51 X_SUGGESTED_VENDOR_CONTACT IN VARCHAR2 ,
52 X_SUGGESTED_VENDOR_CONTACT_ID IN NUMBER ,
53 X_SUGGESTED_VENDOR_PHONE IN VARCHAR2 ,
54 X_SUGGESTED_VENDOR_ITEM_NUM IN VARCHAR2 ,
55 X_UNIT_PRICE IN NUMBER ,
56 X_AUTO_REQUEST_MATERIAL IN VARCHAR2 ,
57 X_REQUIRED_QUANTITY IN NUMBER ,
58 X_UOM IN VARCHAR2 ,
59 X_NEED_BY_DATE IN DATE ,
60 X_ATTRIBUTE_CATEGORY IN VARCHAR2 ,
61 X_ATTRIBUTE1 IN VARCHAR2 ,
62 X_ATTRIBUTE2 IN VARCHAR2 ,
63 X_ATTRIBUTE3 IN VARCHAR2 ,
64 X_ATTRIBUTE4 IN VARCHAR2 ,
65 X_ATTRIBUTE5 IN VARCHAR2 ,
66 X_ATTRIBUTE6 IN VARCHAR2 ,
67 X_ATTRIBUTE7 IN VARCHAR2 ,
68 X_ATTRIBUTE8 IN VARCHAR2 ,
69 X_ATTRIBUTE9 IN VARCHAR2 ,
70 X_ATTRIBUTE10 IN VARCHAR2 ,
71 X_ATTRIBUTE11 IN VARCHAR2 ,
72 X_ATTRIBUTE12 IN VARCHAR2 ,
73 X_ATTRIBUTE13 IN VARCHAR2 ,
74 X_ATTRIBUTE14 IN VARCHAR2 ,
75 X_ATTRIBUTE15 IN VARCHAR2 ,
76 X_PROGRAM_APPLICATION_ID IN NUMBER ,
77 X_PROGRAM_ID IN NUMBER ,
78 X_PROGRAM_UPDATE_DATE IN DATE ,
79 X_REQUEST_ID IN NUMBER ,
80 x_return_Status OUT NOCOPY VARCHAR2,
81 x_material_shortage_flag OUT NOCOPY VARCHAR2,
82 x_material_shortage_check_date OUT NOCOPY DATE
83 )
84 IS
85 l_eam_direct_items_rec EAM_PROCESS_WO_PUB.eam_direct_items_rec_type;
86 l_eam_direct_items_tbl EAM_PROCESS_WO_PUB.eam_direct_items_tbl_type;
87 l_eam_mat_req_rec EAM_PROCESS_WO_PUB.eam_mat_req_rec_type;
88 l_eam_mat_req_tbl EAM_PROCESS_WO_PUB.eam_mat_req_tbl_type;
89 l_output_dir VARCHAR2(512);
90
91 l_eam_wo_rec EAM_PROCESS_WO_PUB.eam_wo_rec_type;
92 l_eam_op_tbl EAM_PROCESS_WO_PUB.eam_op_tbl_type;
93 l_eam_op_network_tbl EAM_PROCESS_WO_PUB.eam_op_network_tbl_type;
94 l_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type;
95 l_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type;
96 l_eam_sub_res_tbl EAM_PROCESS_WO_PUB.eam_sub_res_tbl_type;
97 l_eam_res_usage_tbl EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type;
98 l_eam_wo_comp_rec EAM_PROCESS_WO_PUB.eam_wo_comp_rec_type;
99 l_eam_wo_quality_tbl EAM_PROCESS_WO_PUB.eam_wo_quality_tbl_type;
100 l_eam_meter_reading_tbl EAM_PROCESS_WO_PUB.eam_meter_reading_tbl_type;
101 l_eam_wo_comp_rebuild_tbl EAM_PROCESS_WO_PUB.eam_wo_comp_rebuild_tbl_type;
102 l_eam_wo_comp_mr_read_tbl EAM_PROCESS_WO_PUB.eam_wo_comp_mr_read_tbl_type;
103 l_eam_op_comp_tbl EAM_PROCESS_WO_PUB.eam_op_comp_tbl_type;
104 l_eam_request_tbl EAM_PROCESS_WO_PUB.eam_request_tbl_type;
105 l_eam_counter_prop_tbl EAM_PROCESS_WO_PUB.eam_counter_prop_tbl_type;
106
107 l_out_eam_wo_rec EAM_PROCESS_WO_PUB.eam_wo_rec_type;
108 l_out_eam_op_tbl EAM_PROCESS_WO_PUB.eam_op_tbl_type;
109 l_out_eam_op_network_tbl EAM_PROCESS_WO_PUB.eam_op_network_tbl_type;
110 l_out_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type;
111 l_out_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type;
112 l_out_eam_sub_res_tbl EAM_PROCESS_WO_PUB.eam_sub_res_tbl_type;
113 l_out_eam_res_usage_tbl EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type;
114 l_out_eam_mat_req_tbl EAM_PROCESS_WO_PUB.eam_mat_req_tbl_type;
115 l_out_eam_direct_items_tbl EAM_PROCESS_WO_PUB.eam_direct_items_tbl_type;
116 l_out_eam_wo_comp_rec EAM_PROCESS_WO_PUB.eam_wo_comp_rec_type;
117 l_out_eam_wo_quality_tbl EAM_PROCESS_WO_PUB.eam_wo_quality_tbl_type;
118 l_out_eam_meter_reading_tbl EAM_PROCESS_WO_PUB.eam_meter_reading_tbl_type;
119 l_out_eam_wo_comp_rebuild_tbl EAM_PROCESS_WO_PUB.eam_wo_comp_rebuild_tbl_type;
120 l_out_eam_wo_comp_mr_read_tbl EAM_PROCESS_WO_PUB.eam_wo_comp_mr_read_tbl_type;
121 l_out_eam_op_comp_tbl EAM_PROCESS_WO_PUB.eam_op_comp_tbl_type;
122 l_out_eam_request_tbl EAM_PROCESS_WO_PUB.eam_request_tbl_type;
123 l_out_eam_counter_prop_tbl EAM_PROCESS_WO_PUB.eam_counter_prop_tbl_type;
124
125 l_return_status VARCHAR2(10);
126 l_msg_count NUMBER;
127
128 BEGIN
129
130 l_eam_direct_items_tbl.delete;
131 l_eam_mat_req_tbl.delete;
132
133 if X_DIRECT_ITEM_TYPE = 1 then -- description based
134
135 l_eam_direct_items_rec.DESCRIPTION := X_DESCRIPTION;
136 l_eam_direct_items_rec.PURCHASING_CATEGORY_ID := X_PURCHASING_CATEGORY_ID;
137 l_eam_direct_items_rec.Direct_Item_Sequence_Id := X_Direct_Item_Sequence_Id;
138 l_eam_direct_items_rec.Operation_Seq_Num := X_Operation_Seq_Num;
139 l_eam_direct_items_rec.Department_id := X_Department_id;
140 l_eam_direct_items_rec.Wip_entity_id := X_Wip_entity_id;
141 l_eam_direct_items_rec.Organization_id := X_Organization_id;
142 l_eam_direct_items_rec.Suggested_Vendor_Name := X_Suggested_Vendor_Name;
143 l_eam_direct_items_rec.Suggested_Vendor_Id := X_Suggested_Vendor_Id;
144 l_eam_direct_items_rec.Suggested_Vendor_Site := X_Suggested_Vendor_Site;
145 l_eam_direct_items_rec.Suggested_Vendor_Site_Id := X_Suggested_Vendor_Site_Id;
146 l_eam_direct_items_rec.Suggested_Vendor_Contact := X_Suggested_Vendor_Contact;
147 l_eam_direct_items_rec.Suggested_Vendor_Contact_Id := X_Suggested_Vendor_Contact_Id;
148 l_eam_direct_items_rec.Suggested_Vendor_Phone := X_Suggested_Vendor_Phone;
149 l_eam_direct_items_rec.Suggested_Vendor_Item_Num := X_Suggested_Vendor_Item_Num;
150 l_eam_direct_items_rec.Unit_Price := X_Unit_Price;
151 l_eam_direct_items_rec.Auto_request_Material := X_Auto_request_Material;
152 l_eam_direct_items_rec.Required_Quantity := X_Required_Quantity;
153 l_eam_direct_items_rec.UOM := X_UOM;
154 l_eam_direct_items_rec.Need_By_Date := X_Need_By_Date;
155 l_eam_direct_items_rec.ATTRIBUTE_CATEGORY := X_ATTRIBUTE_CATEGORY;
156 l_eam_direct_items_rec.ATTRIBUTE1 := X_ATTRIBUTE1;
157 l_eam_direct_items_rec.ATTRIBUTE2 := X_ATTRIBUTE2;
158 l_eam_direct_items_rec.ATTRIBUTE3 := X_ATTRIBUTE3;
159 l_eam_direct_items_rec.ATTRIBUTE4 := X_ATTRIBUTE4;
160 l_eam_direct_items_rec.ATTRIBUTE5 := X_ATTRIBUTE5;
161 l_eam_direct_items_rec.ATTRIBUTE6 := X_ATTRIBUTE6;
162 l_eam_direct_items_rec.ATTRIBUTE7 := X_ATTRIBUTE7;
163 l_eam_direct_items_rec.ATTRIBUTE8 := X_ATTRIBUTE8;
164 l_eam_direct_items_rec.ATTRIBUTE9 := X_ATTRIBUTE9;
165 l_eam_direct_items_rec.ATTRIBUTE10 := X_ATTRIBUTE10;
166 l_eam_direct_items_rec.ATTRIBUTE11 := X_ATTRIBUTE11;
167 l_eam_direct_items_rec.ATTRIBUTE12 := X_ATTRIBUTE12;
168 l_eam_direct_items_rec.ATTRIBUTE13 := X_ATTRIBUTE13;
169 l_eam_direct_items_rec.ATTRIBUTE14 := X_ATTRIBUTE14;
170 l_eam_direct_items_rec.ATTRIBUTE15 := X_ATTRIBUTE15;
171 l_eam_direct_items_rec.PROGRAM_APPLICATION_ID := null;
172 l_eam_direct_items_rec.PROGRAM_ID := null;
173 l_eam_direct_items_rec.PROGRAM_UPDATE_DATE := sysdate;
174 l_eam_direct_items_rec.REQUEST_ID := null;
175 l_eam_direct_items_rec.RETURN_STATUS := null;
176 l_eam_direct_items_rec.TRANSACTION_TYPE := EAM_PROCESS_WO_PVT.G_OPR_CREATE;
177 l_eam_direct_items_rec.HEADER_ID := 1;
178 l_eam_direct_items_rec.BATCH_ID := 1;
179 l_eam_direct_items_rec.ROW_ID := null;
180
181 l_eam_direct_items_tbl(1) := l_eam_direct_items_rec;
182
183 elsif X_DIRECT_ITEM_TYPE = 2 then -- non-stockable inventory item
184
185 l_eam_mat_req_rec.Operation_Seq_Num := X_Operation_Seq_Num;
186 l_eam_mat_req_rec.Department_id := X_Department_id;
187 l_eam_mat_req_rec.Wip_entity_id := X_Wip_entity_id;
188 l_eam_mat_req_rec.Organization_id := X_Organization_id;
189 l_eam_mat_req_rec.Suggested_Vendor_Name := X_Suggested_Vendor_Name; -- Fix for Bug 3665818
190 l_eam_mat_req_rec.Vendor_Id := X_Suggested_Vendor_Id; -- Fix for Bug 3665818
191 l_eam_mat_req_rec.inventory_item_id := X_INVENTORY_ITEM_ID;
192 l_eam_mat_req_rec.Unit_Price := X_Unit_Price;
193 l_eam_mat_req_rec.Auto_request_Material := X_Auto_request_Material;
194 l_eam_mat_req_rec.Required_Quantity := X_Required_Quantity;
195 l_eam_mat_req_rec.Date_Required := X_Need_By_Date;
196 l_eam_mat_req_rec.ATTRIBUTE_CATEGORY := X_ATTRIBUTE_CATEGORY;
197 l_eam_mat_req_rec.ATTRIBUTE1 := X_ATTRIBUTE1;
198 l_eam_mat_req_rec.ATTRIBUTE2 := X_ATTRIBUTE2;
199 l_eam_mat_req_rec.ATTRIBUTE3 := X_ATTRIBUTE3;
200 l_eam_mat_req_rec.ATTRIBUTE4 := X_ATTRIBUTE4;
201 l_eam_mat_req_rec.ATTRIBUTE5 := X_ATTRIBUTE5;
202 l_eam_mat_req_rec.ATTRIBUTE6 := X_ATTRIBUTE6;
203 l_eam_mat_req_rec.ATTRIBUTE7 := X_ATTRIBUTE7;
204 l_eam_mat_req_rec.ATTRIBUTE8 := X_ATTRIBUTE8;
205 l_eam_mat_req_rec.ATTRIBUTE9 := X_ATTRIBUTE9;
206 l_eam_mat_req_rec.ATTRIBUTE10 := X_ATTRIBUTE10;
207 l_eam_mat_req_rec.ATTRIBUTE11 := X_ATTRIBUTE11;
208 l_eam_mat_req_rec.ATTRIBUTE12 := X_ATTRIBUTE12;
209 l_eam_mat_req_rec.ATTRIBUTE13 := X_ATTRIBUTE13;
210 l_eam_mat_req_rec.ATTRIBUTE14 := X_ATTRIBUTE14;
211 l_eam_mat_req_rec.ATTRIBUTE15 := X_ATTRIBUTE15;
212 l_eam_mat_req_rec.PROGRAM_APPLICATION_ID := null;
213 l_eam_mat_req_rec.PROGRAM_ID := null;
214 l_eam_mat_req_rec.PROGRAM_UPDATE_DATE := sysdate;
215 l_eam_mat_req_rec.REQUEST_ID := null;
216 l_eam_mat_req_rec.RETURN_STATUS := null;
217 l_eam_mat_req_rec.TRANSACTION_TYPE := EAM_PROCESS_WO_PVT.G_OPR_CREATE;
218 l_eam_mat_req_rec.HEADER_ID := 1;
219 l_eam_mat_req_rec.BATCH_ID := 1;
220 l_eam_mat_req_rec.ROW_ID := null;
221
222 l_eam_mat_req_tbl(1) := l_eam_mat_req_rec;
223
224 end if;
225
226 EAM_WORKORDER_UTIL_PKG.log_path(l_output_dir);
227
228 EAM_PROCESS_WO_PUB.PROCESS_WO
229 ( p_bo_identifier => 'EAM'
230 , p_api_version_number => 1.0
231 , p_init_msg_list => FALSE
232 , p_commit => 'N'
233 , p_eam_wo_rec => l_eam_wo_rec
234 , p_eam_op_tbl => l_eam_op_tbl
235 , p_eam_op_network_tbl => l_eam_op_network_tbl
236 , p_eam_res_tbl => l_eam_res_tbl
237 , p_eam_res_inst_tbl => l_eam_res_inst_tbl
238 , p_eam_sub_res_tbl => l_eam_sub_res_tbl
239 , p_eam_res_usage_tbl => l_eam_res_usage_tbl
240 , p_eam_mat_req_tbl => l_eam_mat_req_tbl
241 , p_eam_direct_items_tbl => l_eam_direct_items_tbl
242 , p_eam_wo_comp_rec => l_eam_wo_comp_rec
243 , p_eam_wo_quality_tbl => l_eam_wo_quality_tbl
244 , p_eam_meter_reading_tbl => l_eam_meter_reading_tbl
245 , p_eam_counter_prop_tbl => l_eam_counter_prop_tbl
246 , p_eam_wo_comp_rebuild_tbl => l_eam_wo_comp_rebuild_tbl
247 , p_eam_wo_comp_mr_read_tbl => l_eam_wo_comp_mr_read_tbl
248 , p_eam_op_comp_tbl => l_eam_op_comp_tbl
249 , p_eam_request_tbl => l_eam_request_tbl
250 , x_eam_wo_rec => l_out_eam_wo_rec
251 , x_eam_op_tbl => l_out_eam_op_tbl
252 , x_eam_op_network_tbl => l_out_eam_op_network_tbl
253 , x_eam_res_tbl => l_out_eam_res_tbl
254 , x_eam_res_inst_tbl => l_out_eam_res_inst_tbl
255 , x_eam_sub_res_tbl => l_out_eam_sub_res_tbl
256 , x_eam_res_usage_tbl => l_out_eam_res_usage_tbl
257 , x_eam_mat_req_tbl => l_out_eam_mat_req_tbl
258 , x_eam_direct_items_tbl => l_out_eam_direct_items_tbl
259 , x_eam_wo_comp_rec => l_out_eam_wo_comp_rec
260 , x_eam_wo_quality_tbl => l_out_eam_wo_quality_tbl
261 , x_eam_meter_reading_tbl => l_out_eam_meter_reading_tbl
262 , x_eam_counter_prop_tbl => l_out_eam_counter_prop_tbl
263 , x_eam_wo_comp_rebuild_tbl => l_out_eam_wo_comp_rebuild_tbl
264 , x_eam_wo_comp_mr_read_tbl => l_out_eam_wo_comp_mr_read_tbl
265 , x_eam_op_comp_tbl => l_out_eam_op_comp_tbl
266 , x_eam_request_tbl => l_out_eam_request_tbl
267 , x_return_status => l_return_status
268 , x_msg_count => l_msg_count
269 , p_debug => NVL(fnd_profile.value('EAM_DEBUG'), 'N')
270 , p_output_dir => l_output_dir
271 , p_debug_filename => 'diitemins.log'
272 , p_debug_file_mode => 'w'
273 );
274
275 x_return_status := l_return_status;
276 x_material_shortage_flag := l_out_eam_wo_rec.material_shortage_flag;
277 x_material_shortage_check_date := l_out_eam_wo_rec.material_shortage_check_date;
278
279 BEGIN -- Fix for Bug 3745360 Begin
280 IF x_direct_item_type = 1 THEN
281 x_direct_item_sequence_id := l_out_eam_direct_items_tbl(1).direct_item_sequence_id;
282 END IF;
283 EXCEPTION
284 WHEN no_data_found THEN
285 null;
286 END; -- Fix for Bug 3745360 End
287 END Insert_Row;
288
289
290
291
292 /********************************************************************
293 * Procedure : Update_Row
294 * Parameters IN : Direct Items column record
295 * Parameters OUT NOCOPY: Message Token Table
296 * Return Status
300
297 * Purpose : Procedure will perfrom an Update on the
298 * wip_eam_direct_items
299 *********************************************************************/
301 PROCEDURE Update_Row
302 ( X_DESCRIPTION IN VARCHAR2 ,
303 X_DIRECT_ITEM_TYPE IN NUMBER ,
304 X_PURCHASING_CATEGORY_ID IN NUMBER ,
305 X_DIRECT_ITEM_SEQUENCE_ID IN NUMBER ,
306 X_INVENTORY_ITEM_ID IN NUMBER ,
307 X_OPERATION_SEQ_NUM IN NUMBER ,
308 X_DEPARTMENT_ID IN NUMBER ,
309 X_WIP_ENTITY_ID IN NUMBER ,
310 X_ORGANIZATION_ID IN NUMBER ,
311 X_SUGGESTED_VENDOR_NAME IN VARCHAR2 ,
312 X_SUGGESTED_VENDOR_ID IN NUMBER ,
313 X_SUGGESTED_VENDOR_SITE IN VARCHAR2 ,
314 X_SUGGESTED_VENDOR_SITE_ID IN NUMBER ,
315 X_SUGGESTED_VENDOR_CONTACT IN VARCHAR2 ,
316 X_SUGGESTED_VENDOR_CONTACT_ID IN NUMBER ,
317 X_SUGGESTED_VENDOR_PHONE IN VARCHAR2 ,
318 X_SUGGESTED_VENDOR_ITEM_NUM IN VARCHAR2 ,
319 X_UNIT_PRICE IN NUMBER ,
320 X_AUTO_REQUEST_MATERIAL IN VARCHAR2 ,
321 X_REQUIRED_QUANTITY IN NUMBER ,
322 X_UOM IN VARCHAR2 ,
323 X_NEED_BY_DATE IN DATE ,
324 X_ATTRIBUTE_CATEGORY IN VARCHAR2 ,
325 X_ATTRIBUTE1 IN VARCHAR2 ,
326 X_ATTRIBUTE2 IN VARCHAR2 ,
327 X_ATTRIBUTE3 IN VARCHAR2 ,
328 X_ATTRIBUTE4 IN VARCHAR2 ,
329 X_ATTRIBUTE5 IN VARCHAR2 ,
330 X_ATTRIBUTE6 IN VARCHAR2 ,
331 X_ATTRIBUTE7 IN VARCHAR2 ,
332 X_ATTRIBUTE8 IN VARCHAR2 ,
333 X_ATTRIBUTE9 IN VARCHAR2 ,
334 X_ATTRIBUTE10 IN VARCHAR2 ,
335 X_ATTRIBUTE11 IN VARCHAR2 ,
336 X_ATTRIBUTE12 IN VARCHAR2 ,
337 X_ATTRIBUTE13 IN VARCHAR2 ,
338 X_ATTRIBUTE14 IN VARCHAR2 ,
339 X_ATTRIBUTE15 IN VARCHAR2 ,
340 X_PROGRAM_APPLICATION_ID IN NUMBER ,
341 X_PROGRAM_ID IN NUMBER ,
342 X_PROGRAM_UPDATE_DATE IN DATE ,
343 X_REQUEST_ID IN NUMBER ,
344 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
345 X_MATERIAL_SHORTAGE_FLAG OUT NOCOPY VARCHAR2,
346 X_MATERIAL_SHORTAGE_CHECK_DATe OUT NOCOPY DATE
347 )
348 IS
349
350 l_eam_direct_items_rec EAM_PROCESS_WO_PUB.eam_direct_items_rec_type;
351 l_eam_direct_items_tbl EAM_PROCESS_WO_PUB.eam_direct_items_tbl_type;
352 l_eam_mat_req_rec EAM_PROCESS_WO_PUB.eam_mat_req_rec_type;
353 l_eam_mat_req_tbl EAM_PROCESS_WO_PUB.eam_mat_req_tbl_type;
354
355 l_eam_wo_rec EAM_PROCESS_WO_PUB.eam_wo_rec_type;
356 l_eam_op_tbl EAM_PROCESS_WO_PUB.eam_op_tbl_type;
357 l_eam_op_network_tbl EAM_PROCESS_WO_PUB.eam_op_network_tbl_type;
358 l_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type;
359 l_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type;
360 l_eam_sub_res_tbl EAM_PROCESS_WO_PUB.eam_sub_res_tbl_type;
361 l_eam_res_usage_tbl EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type;
362 l_eam_wo_comp_rec EAM_PROCESS_WO_PUB.eam_wo_comp_rec_type;
363 l_eam_wo_quality_tbl EAM_PROCESS_WO_PUB.eam_wo_quality_tbl_type;
364 l_eam_meter_reading_tbl EAM_PROCESS_WO_PUB.eam_meter_reading_tbl_type;
365 l_eam_wo_comp_rebuild_tbl EAM_PROCESS_WO_PUB.eam_wo_comp_rebuild_tbl_type;
366 l_eam_wo_comp_mr_read_tbl EAM_PROCESS_WO_PUB.eam_wo_comp_mr_read_tbl_type;
367 l_eam_op_comp_tbl EAM_PROCESS_WO_PUB.eam_op_comp_tbl_type;
368 l_eam_request_tbl EAM_PROCESS_WO_PUB.eam_request_tbl_type;
369 l_eam_counter_prop_tbl EAM_PROCESS_WO_PUB.eam_counter_prop_tbl_type;
370
371 l_out_eam_wo_rec EAM_PROCESS_WO_PUB.eam_wo_rec_type;
372 l_out_eam_op_tbl EAM_PROCESS_WO_PUB.eam_op_tbl_type;
373 l_out_eam_op_network_tbl EAM_PROCESS_WO_PUB.eam_op_network_tbl_type;
374 l_out_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type;
375 l_out_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type;
376 l_out_eam_sub_res_tbl EAM_PROCESS_WO_PUB.eam_sub_res_tbl_type;
377 l_out_eam_res_usage_tbl EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type;
378 l_out_eam_mat_req_tbl EAM_PROCESS_WO_PUB.eam_mat_req_tbl_type;
379 l_out_eam_direct_items_tbl EAM_PROCESS_WO_PUB.eam_direct_items_tbl_type;
380 l_out_eam_wo_comp_rec EAM_PROCESS_WO_PUB.eam_wo_comp_rec_type;
381 l_out_eam_wo_quality_tbl EAM_PROCESS_WO_PUB.eam_wo_quality_tbl_type;
382 l_out_eam_meter_reading_tbl EAM_PROCESS_WO_PUB.eam_meter_reading_tbl_type;
386 l_out_eam_request_tbl EAM_PROCESS_WO_PUB.eam_request_tbl_type;
383 l_out_eam_wo_comp_rebuild_tbl EAM_PROCESS_WO_PUB.eam_wo_comp_rebuild_tbl_type;
384 l_out_eam_wo_comp_mr_read_tbl EAM_PROCESS_WO_PUB.eam_wo_comp_mr_read_tbl_type;
385 l_out_eam_op_comp_tbl EAM_PROCESS_WO_PUB.eam_op_comp_tbl_type;
387 l_out_eam_counter_prop_tbl EAM_PROCESS_WO_PUB.eam_counter_prop_tbl_type;
388
389 l_return_status VARCHAR2(10);
390 l_msg_count NUMBER;
391 l_output_dir VARCHAR2(512);
392
393 BEGIN
394
395 if X_DIRECT_ITEM_TYPE = 1 then
396
397 l_eam_direct_items_rec.DESCRIPTION := X_DESCRIPTION;
398 l_eam_direct_items_rec.PURCHASING_CATEGORY_ID := X_PURCHASING_CATEGORY_ID;
399 l_eam_direct_items_rec.Direct_Item_Sequence_Id := X_Direct_Item_Sequence_Id;
400 l_eam_direct_items_rec.Operation_Seq_Num := X_Operation_Seq_Num;
401 l_eam_direct_items_rec.Department_id := X_Department_id;
402 l_eam_direct_items_rec.Wip_entity_id := X_Wip_entity_id;
403 l_eam_direct_items_rec.Organization_id := X_Organization_id;
404 l_eam_direct_items_rec.Suggested_Vendor_Name := X_Suggested_Vendor_Name;
405 l_eam_direct_items_rec.Suggested_Vendor_Id := X_Suggested_Vendor_Id;
406 l_eam_direct_items_rec.Suggested_Vendor_Site := X_Suggested_Vendor_Site;
407 l_eam_direct_items_rec.Suggested_Vendor_Site_Id := X_Suggested_Vendor_Site_Id;
408 l_eam_direct_items_rec.Suggested_Vendor_Contact := X_Suggested_Vendor_Contact;
409 l_eam_direct_items_rec.Suggested_Vendor_Contact_Id := X_Suggested_Vendor_Contact_Id;
410 l_eam_direct_items_rec.Suggested_Vendor_Phone := X_Suggested_Vendor_Phone;
411 l_eam_direct_items_rec.Suggested_Vendor_Item_Num := X_Suggested_Vendor_Item_Num;
412 l_eam_direct_items_rec.Unit_Price := X_Unit_Price;
413 l_eam_direct_items_rec.Auto_request_Material := X_Auto_request_Material;
414 l_eam_direct_items_rec.Required_Quantity := X_Required_Quantity;
415 l_eam_direct_items_rec.UOM := X_UOM;
416 l_eam_direct_items_rec.Need_By_Date := X_Need_By_Date;
417 l_eam_direct_items_rec.ATTRIBUTE_CATEGORY := X_ATTRIBUTE_CATEGORY;
418 l_eam_direct_items_rec.ATTRIBUTE1 := X_ATTRIBUTE1;
419 l_eam_direct_items_rec.ATTRIBUTE2 := X_ATTRIBUTE2;
420 l_eam_direct_items_rec.ATTRIBUTE3 := X_ATTRIBUTE3;
421 l_eam_direct_items_rec.ATTRIBUTE4 := X_ATTRIBUTE4;
422 l_eam_direct_items_rec.ATTRIBUTE5 := X_ATTRIBUTE5;
423 l_eam_direct_items_rec.ATTRIBUTE6 := X_ATTRIBUTE6;
424 l_eam_direct_items_rec.ATTRIBUTE7 := X_ATTRIBUTE7;
425 l_eam_direct_items_rec.ATTRIBUTE8 := X_ATTRIBUTE8;
426 l_eam_direct_items_rec.ATTRIBUTE9 := X_ATTRIBUTE9;
427 l_eam_direct_items_rec.ATTRIBUTE10 := X_ATTRIBUTE10;
428 l_eam_direct_items_rec.ATTRIBUTE11 := X_ATTRIBUTE11;
429 l_eam_direct_items_rec.ATTRIBUTE12 := X_ATTRIBUTE12;
430 l_eam_direct_items_rec.ATTRIBUTE13 := X_ATTRIBUTE13;
431 l_eam_direct_items_rec.ATTRIBUTE14 := X_ATTRIBUTE14;
432 l_eam_direct_items_rec.ATTRIBUTE15 := X_ATTRIBUTE15;
433 l_eam_direct_items_rec.PROGRAM_APPLICATION_ID := null;
434 l_eam_direct_items_rec.PROGRAM_ID := null;
435 l_eam_direct_items_rec.PROGRAM_UPDATE_DATE := sysdate;
436 l_eam_direct_items_rec.REQUEST_ID := null;
437 l_eam_direct_items_rec.RETURN_STATUS := null;
438 l_eam_direct_items_rec.TRANSACTION_TYPE := EAM_PROCESS_WO_PVT.G_OPR_UPDATE;
439 l_eam_direct_items_rec.HEADER_ID := 1;
440 l_eam_direct_items_rec.BATCH_ID := 1;
441 l_eam_direct_items_rec.ROW_ID := null;
442
443 l_eam_direct_items_tbl(1) := l_eam_direct_items_rec;
444
445 elsif X_DIRECT_ITEM_TYPE = 2 then
446
447 l_eam_mat_req_rec.Operation_Seq_Num := X_Operation_Seq_Num;
448 l_eam_mat_req_rec.Department_id := X_Department_id;
449 l_eam_mat_req_rec.Wip_entity_id := X_Wip_entity_id;
450 l_eam_mat_req_rec.Organization_id := X_Organization_id;
451 l_eam_mat_req_rec.Suggested_Vendor_Name := X_Suggested_Vendor_Name; -- Fix for Bug 3665818
452 l_eam_mat_req_rec.Vendor_Id := X_Suggested_Vendor_Id; -- Fix for Bug 3665818
453 l_eam_mat_req_rec.inventory_item_id := X_Inventory_Item_id;
454 l_eam_mat_req_rec.Unit_Price := X_Unit_Price;
455 l_eam_mat_req_rec.Auto_request_Material := X_Auto_request_Material;
456 l_eam_mat_req_rec.Required_Quantity := X_Required_Quantity;
457 l_eam_mat_req_rec.Date_Required := X_Need_By_Date;
458 l_eam_mat_req_rec.ATTRIBUTE_CATEGORY := X_ATTRIBUTE_CATEGORY;
459 l_eam_mat_req_rec.ATTRIBUTE1 := X_ATTRIBUTE1;
460 l_eam_mat_req_rec.ATTRIBUTE2 := X_ATTRIBUTE2;
461 l_eam_mat_req_rec.ATTRIBUTE3 := X_ATTRIBUTE3;
462 l_eam_mat_req_rec.ATTRIBUTE4 := X_ATTRIBUTE4;
463 l_eam_mat_req_rec.ATTRIBUTE5 := X_ATTRIBUTE5;
464 l_eam_mat_req_rec.ATTRIBUTE6 := X_ATTRIBUTE6;
465 l_eam_mat_req_rec.ATTRIBUTE7 := X_ATTRIBUTE7;
466 l_eam_mat_req_rec.ATTRIBUTE8 := X_ATTRIBUTE8;
467 l_eam_mat_req_rec.ATTRIBUTE9 := X_ATTRIBUTE9;
468 l_eam_mat_req_rec.ATTRIBUTE10 := X_ATTRIBUTE10;
469 l_eam_mat_req_rec.ATTRIBUTE11 := X_ATTRIBUTE11;
470 l_eam_mat_req_rec.ATTRIBUTE12 := X_ATTRIBUTE12;
471 l_eam_mat_req_rec.ATTRIBUTE13 := X_ATTRIBUTE13;
472 l_eam_mat_req_rec.ATTRIBUTE14 := X_ATTRIBUTE14;
476 l_eam_mat_req_rec.PROGRAM_UPDATE_DATE := sysdate;
473 l_eam_mat_req_rec.ATTRIBUTE15 := X_ATTRIBUTE15;
474 l_eam_mat_req_rec.PROGRAM_APPLICATION_ID := null;
475 l_eam_mat_req_rec.PROGRAM_ID := null;
477 l_eam_mat_req_rec.REQUEST_ID := null;
478 l_eam_mat_req_rec.RETURN_STATUS := null;
479 l_eam_mat_req_rec.TRANSACTION_TYPE := EAM_PROCESS_WO_PVT.G_OPR_UPDATE;
480 l_eam_mat_req_rec.HEADER_ID := 1;
481 l_eam_mat_req_rec.BATCH_ID := 1;
482 l_eam_mat_req_rec.ROW_ID := null;
483
484 l_eam_mat_req_tbl(1) := l_eam_mat_req_rec;
485
486 end if;
487
488 EAM_WORKORDER_UTIL_PKG.log_path(l_output_dir);
489
490 EAM_PROCESS_WO_PUB.PROCESS_WO
491 ( p_bo_identifier => 'EAM'
492 , p_api_version_number => 1.0
493 , p_init_msg_list => FALSE
494 , p_commit => 'N'
495 , p_eam_wo_rec => l_eam_wo_rec
496 , p_eam_op_tbl => l_eam_op_tbl
497 , p_eam_op_network_tbl => l_eam_op_network_tbl
498 , p_eam_res_tbl => l_eam_res_tbl
499 , p_eam_res_inst_tbl => l_eam_res_inst_tbl
500 , p_eam_sub_res_tbl => l_eam_sub_res_tbl
501 , p_eam_res_usage_tbl => l_eam_res_usage_tbl
502 , p_eam_mat_req_tbl => l_eam_mat_req_tbl
503 , p_eam_direct_items_tbl => l_eam_direct_items_tbl
504 , p_eam_wo_comp_rec => l_eam_wo_comp_rec
505 , p_eam_wo_quality_tbl => l_eam_wo_quality_tbl
506 , p_eam_meter_reading_tbl => l_eam_meter_reading_tbl
507 , p_eam_counter_prop_tbl => l_eam_counter_prop_tbl
508 , p_eam_wo_comp_rebuild_tbl => l_eam_wo_comp_rebuild_tbl
509 , p_eam_wo_comp_mr_read_tbl => l_eam_wo_comp_mr_read_tbl
510 , p_eam_op_comp_tbl => l_eam_op_comp_tbl
511 , p_eam_request_tbl => l_eam_request_tbl
512 , x_eam_wo_rec => l_out_eam_wo_rec
513 , x_eam_op_tbl => l_out_eam_op_tbl
514 , x_eam_op_network_tbl => l_out_eam_op_network_tbl
515 , x_eam_res_tbl => l_out_eam_res_tbl
516 , x_eam_res_inst_tbl => l_out_eam_res_inst_tbl
517 , x_eam_sub_res_tbl => l_out_eam_sub_res_tbl
518 , x_eam_res_usage_tbl => l_out_eam_res_usage_tbl
519 , x_eam_mat_req_tbl => l_out_eam_mat_req_tbl
520 , x_eam_direct_items_tbl => l_out_eam_direct_items_tbl
521 , x_eam_wo_comp_rec => l_out_eam_wo_comp_rec
522 , x_eam_wo_quality_tbl => l_out_eam_wo_quality_tbl
523 , x_eam_meter_reading_tbl => l_out_eam_meter_reading_tbl
524 , x_eam_counter_prop_tbl => l_out_eam_counter_prop_tbl
525 , x_eam_wo_comp_rebuild_tbl => l_out_eam_wo_comp_rebuild_tbl
526 , x_eam_wo_comp_mr_read_tbl => l_out_eam_wo_comp_mr_read_tbl
527 , x_eam_op_comp_tbl => l_out_eam_op_comp_tbl
528 , x_eam_request_tbl => l_out_eam_request_tbl
529 , x_return_status => l_return_status
530 , x_msg_count => l_msg_count
531 , p_debug => NVL(fnd_profile.value('EAM_DEBUG'), 'N')
532 , p_output_dir => l_output_dir
533 , p_debug_filename => 'diitemupd.log'
534 , p_debug_file_mode => 'w'
535 );
536
537 x_return_status := l_return_status;
538 x_material_shortage_flag := l_out_eam_wo_rec.material_shortage_flag;
539 x_material_shortage_check_date := l_out_eam_wo_rec.material_shortage_check_date;
540
541 END Update_Row;
542
543
544
545 /********************************************************************
546 * Procedure : Delete_Row
547 * Parameters IN : Direct Items column record
548 * Parameters OUT NOCOPY: Message Token Table
549 * Return Status
550 * Purpose : Procedure will perfrom an Delete on the
551 * wip_eam_direct_items
552 *********************************************************************/
553
554 PROCEDURE Delete_Row
555 ( X_DIRECT_ITEM_TYPE IN NUMBER,
556 X_DIRECT_ITEM_SEQUENCE_ID IN NUMBER,
557 X_INVENTORY_ITEM_ID IN NUMBER,
558 X_OPERATION_SEQ_NUM IN NUMBER,
559 X_WIP_ENTITY_ID IN NUMBER,
560 X_ORGANIZATION_ID IN NUMBER,
561 x_return_Status OUT NOCOPY VARCHAR2,
562 x_material_shortage_flag OUT NOCOPY VARCHAR2,
563 x_material_shortage_check_date OUT NOCOPY DATE
564 )
565 IS
566 l_eam_direct_items_rec EAM_PROCESS_WO_PUB.eam_direct_items_rec_type;
567 l_eam_direct_items_tbl EAM_PROCESS_WO_PUB.eam_direct_items_tbl_type;
568 l_eam_mat_req_rec EAM_PROCESS_WO_PUB.eam_mat_req_rec_type;
569 l_eam_mat_req_tbl EAM_PROCESS_WO_PUB.eam_mat_req_tbl_type;
570
571 l_eam_wo_rec EAM_PROCESS_WO_PUB.eam_wo_rec_type;
572 l_eam_op_tbl EAM_PROCESS_WO_PUB.eam_op_tbl_type;
573 l_eam_op_network_tbl EAM_PROCESS_WO_PUB.eam_op_network_tbl_type;
574 l_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type;
575 l_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type;
576 l_eam_sub_res_tbl EAM_PROCESS_WO_PUB.eam_sub_res_tbl_type;
577 l_eam_res_usage_tbl EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type;
578 l_eam_wo_comp_rec EAM_PROCESS_WO_PUB.eam_wo_comp_rec_type;
579 l_eam_wo_quality_tbl EAM_PROCESS_WO_PUB.eam_wo_quality_tbl_type;
580 l_eam_meter_reading_tbl EAM_PROCESS_WO_PUB.eam_meter_reading_tbl_type;
581 l_eam_wo_comp_rebuild_tbl EAM_PROCESS_WO_PUB.eam_wo_comp_rebuild_tbl_type;
582 l_eam_wo_comp_mr_read_tbl EAM_PROCESS_WO_PUB.eam_wo_comp_mr_read_tbl_type;
583 l_eam_op_comp_tbl EAM_PROCESS_WO_PUB.eam_op_comp_tbl_type;
584 l_eam_request_tbl EAM_PROCESS_WO_PUB.eam_request_tbl_type;
585 l_eam_counter_prop_tbl EAM_PROCESS_WO_PUB.eam_counter_prop_tbl_type;
586
587 l_out_eam_wo_rec EAM_PROCESS_WO_PUB.eam_wo_rec_type;
588 l_out_eam_op_tbl EAM_PROCESS_WO_PUB.eam_op_tbl_type;
589 l_out_eam_op_network_tbl EAM_PROCESS_WO_PUB.eam_op_network_tbl_type;
590 l_out_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type;
591 l_out_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type;
592 l_out_eam_sub_res_tbl EAM_PROCESS_WO_PUB.eam_sub_res_tbl_type;
593 l_out_eam_res_usage_tbl EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type;
594 l_out_eam_mat_req_tbl EAM_PROCESS_WO_PUB.eam_mat_req_tbl_type;
595 l_out_eam_direct_items_tbl EAM_PROCESS_WO_PUB.eam_direct_items_tbl_type;
596 l_out_eam_wo_comp_rec EAM_PROCESS_WO_PUB.eam_wo_comp_rec_type;
597 l_out_eam_wo_quality_tbl EAM_PROCESS_WO_PUB.eam_wo_quality_tbl_type;
598 l_out_eam_meter_reading_tbl EAM_PROCESS_WO_PUB.eam_meter_reading_tbl_type;
599 l_out_eam_wo_comp_rebuild_tbl EAM_PROCESS_WO_PUB.eam_wo_comp_rebuild_tbl_type;
600 l_out_eam_wo_comp_mr_read_tbl EAM_PROCESS_WO_PUB.eam_wo_comp_mr_read_tbl_type;
601 l_out_eam_op_comp_tbl EAM_PROCESS_WO_PUB.eam_op_comp_tbl_type;
602 l_out_eam_request_tbl EAM_PROCESS_WO_PUB.eam_request_tbl_type;
603 l_out_eam_counter_prop_tbl EAM_PROCESS_WO_PUB.eam_counter_prop_tbl_type;
604
605 l_return_status VARCHAR2(10);
606 l_msg_count NUMBER;
607 l_output_dir VARCHAR2(512);
608
609 BEGIN
610
611 l_eam_direct_items_tbl.delete;
612 l_eam_mat_req_tbl.delete;
613
614 EAM_WORKORDER_UTIL_PKG.log_path(l_output_dir);
615
616 if X_DIRECT_ITEM_TYPE = 1 then
617
618 l_eam_direct_items_rec.Direct_Item_Sequence_Id := X_Direct_Item_Sequence_Id;
619 l_eam_direct_items_rec.Operation_Seq_Num := X_Operation_Seq_Num;
620 l_eam_direct_items_rec.Wip_entity_id := X_Wip_entity_id;
621 l_eam_direct_items_rec.Organization_id := X_Organization_id;
622 l_eam_direct_items_rec.RETURN_STATUS := null;
623 l_eam_direct_items_rec.TRANSACTION_TYPE := EAM_PROCESS_WO_PVT.G_OPR_DELETE;
624 l_eam_direct_items_rec.HEADER_ID := 1;
625 l_eam_direct_items_rec.BATCH_ID := 1;
626 l_eam_direct_items_rec.ROW_ID := null;
627
628 l_eam_direct_items_tbl(1) := l_eam_direct_items_rec;
629
630 elsif X_DIRECT_ITEM_TYPE = 2 then
631
632 l_eam_mat_req_rec.Operation_Seq_Num := X_Operation_Seq_Num;
633 l_eam_mat_req_rec.Wip_entity_id := X_Wip_entity_id;
634 l_eam_mat_req_rec.Organization_id := X_Organization_id;
635 l_eam_mat_req_rec.inventory_item_id := X_Inventory_item_id;
636 l_eam_mat_req_rec.RETURN_STATUS := null;
637 l_eam_mat_req_rec.TRANSACTION_TYPE := EAM_PROCESS_WO_PVT.G_OPR_DELETE;
638 l_eam_mat_req_rec.HEADER_ID := 1;
639 l_eam_mat_req_rec.BATCH_ID := 1;
640 l_eam_mat_req_rec.ROW_ID := null;
641
642 l_eam_mat_req_tbl(1) := l_eam_mat_req_rec;
643
644 end if;
645
646 EAM_PROCESS_WO_PUB.PROCESS_WO
647 ( p_bo_identifier => 'EAM'
648 , p_api_version_number => 1.0
649 , p_init_msg_list => FALSE
653 , p_eam_op_network_tbl => l_eam_op_network_tbl
650 , p_commit => 'N'
651 , p_eam_wo_rec => l_eam_wo_rec
652 , p_eam_op_tbl => l_eam_op_tbl
654 , p_eam_res_tbl => l_eam_res_tbl
655 , p_eam_res_inst_tbl => l_eam_res_inst_tbl
656 , p_eam_sub_res_tbl => l_eam_sub_res_tbl
657 , p_eam_res_usage_tbl => l_eam_res_usage_tbl
658 , p_eam_mat_req_tbl => l_eam_mat_req_tbl
659 , p_eam_direct_items_tbl => l_eam_direct_items_tbl
660 , p_eam_wo_comp_rec => l_eam_wo_comp_rec
661 , p_eam_wo_quality_tbl => l_eam_wo_quality_tbl
662 , p_eam_meter_reading_tbl => l_eam_meter_reading_tbl
663 , p_eam_counter_prop_tbl => l_eam_counter_prop_tbl
664 , p_eam_wo_comp_rebuild_tbl => l_eam_wo_comp_rebuild_tbl
665 , p_eam_wo_comp_mr_read_tbl => l_eam_wo_comp_mr_read_tbl
666 , p_eam_op_comp_tbl => l_eam_op_comp_tbl
667 , p_eam_request_tbl => l_eam_request_tbl
668 , x_eam_wo_rec => l_out_eam_wo_rec
669 , x_eam_op_tbl => l_out_eam_op_tbl
670 , x_eam_op_network_tbl => l_out_eam_op_network_tbl
671 , x_eam_res_tbl => l_out_eam_res_tbl
672 , x_eam_res_inst_tbl => l_out_eam_res_inst_tbl
673 , x_eam_sub_res_tbl => l_out_eam_sub_res_tbl
674 , x_eam_res_usage_tbl => l_out_eam_res_usage_tbl
675 , x_eam_mat_req_tbl => l_out_eam_mat_req_tbl
676 , x_eam_direct_items_tbl => l_out_eam_direct_items_tbl
677 , x_eam_wo_comp_rec => l_out_eam_wo_comp_rec
678 , x_eam_wo_quality_tbl => l_out_eam_wo_quality_tbl
679 , x_eam_meter_reading_tbl => l_out_eam_meter_reading_tbl
680 , x_eam_counter_prop_tbl => l_out_eam_counter_prop_tbl
681 , x_eam_wo_comp_rebuild_tbl => l_out_eam_wo_comp_rebuild_tbl
682 , x_eam_wo_comp_mr_read_tbl => l_out_eam_wo_comp_mr_read_tbl
683 , x_eam_op_comp_tbl => l_out_eam_op_comp_tbl
684 , x_eam_request_tbl => l_out_eam_request_tbl
685 , x_return_status => l_return_status
686 , x_msg_count => l_msg_count
687 , p_debug => NVL(fnd_profile.value('EAM_DEBUG'), 'N')
688 , p_output_dir => l_output_dir
689 , p_debug_filename => 'diitemdel.log'
690 , p_debug_file_mode => 'w'
691 );
692
693 x_return_status := l_return_status;
694 x_material_shortage_flag := l_out_eam_wo_rec.material_shortage_flag;
695 x_material_shortage_check_date := l_out_eam_wo_rec.material_shortage_check_date;
696
697 END Delete_Row;
698
699 --Fix for 3352406.Added the following procedure to show the messages from the api
700 /********************************************************************
701 * Procedure : show_mesg
702 * Purpose : Procedure will concatenate all the messages
703 from the workorder api and return 1 string
704 *********************************************************************/
705 PROCEDURE show_mesg IS
706 l_msg_count NUMBER;
707 mesg varchar2(2000);
708 i NUMBER;
709 msg_index number;
710 temp varchar2(500);
711 BEGIN
712 mesg := '';
713
714 l_msg_count := fnd_msg_pub.count_msg;
715 IF(l_msg_count>0) THEN
716
717 msg_index := l_msg_count;
718
719 for i in 1..l_msg_count loop
720 fnd_msg_pub.get(p_msg_index => FND_MSG_PUB.G_NEXT,
721 p_encoded => 'F',
722 p_data => temp,
723 p_msg_index_out => msg_index);
724 msg_index := msg_index-1;
725 mesg := mesg || ' ' || to_char(i) || ' . '||temp ;
726 end loop;
727 fnd_message.set_name('EAM','EAM_WO_API_MESG');
728
729 fnd_message.set_token(token => 'MESG',
730 value =>mesg,
731 translate =>FALSE);
732 APP_EXCEPTION.RAISE_EXCEPTION;
733 END IF;
734
735 END show_mesg;
736
737 END EAM_DIRECT_ITEMS_PKG_PVT;