[Home] [Help]
PACKAGE BODY: APPS.RCV_INSPECTION_GRP
Source
1 PACKAGE BODY RCV_INSPECTION_GRP AS
2 /* $Header: rcvginsb.pls 120.8.12010000.3 2008/10/27 07:15:09 sdpaul ship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30):='RCV_INSPECTION_GRP';
5 G_MSG_LVL_UNEXP_ERROR CONSTANT NUMBER := 60;
6
7 PROCEDURE Insert_Inspection
8 ( p_api_version IN NUMBER ,
9 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
10 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
11 p_validation_level IN NUMBER :=
12 FND_API.G_VALID_LEVEL_FULL ,
13 p_created_by IN NUMBER ,
14 p_last_updated_by IN NUMBER ,
15 p_last_update_login IN NUMBER ,
16 p_employee_id IN NUMBER ,
17 p_group_id IN NUMBER ,
18 p_transaction_id IN NUMBER ,
19 p_transaction_type IN VARCHAR2 ,
20 p_processing_mode IN VARCHAR2 ,
21 p_quantity IN NUMBER ,
22 p_uom IN VARCHAR2 ,
23 p_quality_code IN VARCHAR2 := NULL ,
24 p_transaction_date IN DATE ,
25 p_comments IN VARCHAR2 := NULL ,
26 p_reason_id IN NUMBER := NULL ,
27 p_vendor_lot IN VARCHAR2 := NULL ,
28 p_qa_collection_id IN NUMBER ,
29 p_lpn_id IN NUMBER := NULL ,
30 p_transfer_lpn_id IN NUMBER := NULL ,
31 p_from_subinventory IN VARCHAR2 , -- Added bug # 6529950
32 p_from_locator_id IN NUMBER , -- Added bug # 6529950
33 p_subinventory IN VARCHAR2 , -- Added bug # 6529950
34 p_locator_id IN NUMBER , -- Added bug # 6529950
35 p_return_status OUT NOCOPY VARCHAR2 ,
36 p_msg_count OUT NOCOPY NUMBER ,
37 p_msg_data OUT NOCOPY VARCHAR2
38 )
39 IS
40 l_api_name CONSTANT VARCHAR2(30) := 'Insert_Inspection';
41 l_api_version CONSTANT NUMBER := 1.1;
42
43 --BUG 5219112. Replace the view RCV_TRANSACTIONS_V with base tables
44 /*CURSOR C1 IS
45 SELECT RTV.RECEIPT_SOURCE_CODE,
46 RTV.SOURCE_DOCUMENT_CODE,
47 RTV.SHIPMENT_HEADER_ID,
48 RTV.SHIPMENT_LINE_ID,
49 RTV.SUBSTITUTE_UNORDERED_CODE,
50 RTV.RCV_TRANSACTION_ID,
51 RTV.PO_HEADER_ID,
52 RTV.PO_RELEASE_ID,
53 RTV.PO_LINE_ID,
54 RTV.PO_LINE_LOCATION_ID,
55 RTV.PO_DISTRIBUTION_ID,
56 RTV.PO_REVISION_NUM,
57 RTV.PO_UNIT_PRICE,
58 RTV.CURRENCY_CODE,
59 RTV.CURRENCY_CONVERSION_RATE,
60 RTV.REQ_LINE_ID,
61 RTV.REQ_DISTRIBUTION_ID,
62 RTV.ROUTING_ID,
63 RTV.ROUTING_STEP_ID,
64 RTV.LOCATION_ID,
65 RTV.CATEGORY_ID,
66 RTV.PRIMARY_UOM,
67 RTV.ITEM_ID,
68 RTV.ITEM_REVISION,
69 RTV.TO_ORGANIZATION_ID,
70 RTV.DELIVER_TO_LOCATION_ID,
71 RTV.VENDOR_ID,
72 RTV.VENDOR_SITE_ID, --Bug 2114669 Also fetching vendor_site_id
73 RTV.LOT_CONTROL_CODE,
74 RTV.SERIAL_NUMBER_CONTROL_CODE,
75 RTV.CURRENCY_CONVERSION_DATE,
76 RTV.CURRENCY_CONVERSION_TYPE,
77 RTV.OE_ORDER_HEADER_ID,
78 RTV.OE_ORDER_NUM,
79 RTV.OE_ORDER_LINE_ID,
80 RTV.OE_ORDER_LINE_NUM,
81 RTV.CUSTOMER_ID,
82 RTV.CUSTOMER_SITE_ID,
83 RTV.CUSTOMER_ITEM_NUM,
84 -- Bug# 1548597
85 RTV.SECONDARY_QUANTITY,
86 RTV.SECONDARY_UNIT_OF_MEASURE,
87 RTV.ORG_ID --<R12 MOAC>
88 FROM RCV_TRANSACTIONS_V RTV
89 WHERE RTV.RCV_TRANSACTION_ID = p_transaction_id;
90 */
91
92 /* Bug# 7440432
93 * Modified the below cursor query to also join with
94 * PO_REQUISITION_HEADERS_ALL table and fetch the operating_unit_id
95 * as ORG_ID for requisitions
96 */
97
98 CURSOR C1 IS
99 SELECT RSH.RECEIPT_SOURCE_CODE
100 , RT.SOURCE_DOCUMENT_CODE
101 , RSUP.SHIPMENT_HEADER_ID
102 , RSUP.SHIPMENT_LINE_ID
103 , RT.SUBSTITUTE_UNORDERED_CODE
104 , RSUP.RCV_TRANSACTION_ID
105 , RSUP.PO_HEADER_ID
106 , RSUP.PO_RELEASE_ID
107 , RSUP.PO_LINE_ID
108 , RSUP.PO_LINE_LOCATION_ID
109 , RT.PO_DISTRIBUTION_ID
110 , RT.PO_REVISION_NUM
111 , NVL(PLL.PRICE_OVERRIDE, POL.UNIT_PRICE) PO_UNIT_PRICE
112 , RT.CURRENCY_CODE
113 , RT.CURRENCY_CONVERSION_RATE
114 , RSUP.REQ_LINE_ID
115 , RSL.REQ_DISTRIBUTION_ID
116 , RT.ROUTING_HEADER_ID ROUTING_ID
117 , RT.ROUTING_STEP_ID
118 , RT.LOCATION_ID
119 , RSL.CATEGORY_ID
120 , RT.PRIMARY_UNIT_OF_MEASURE PRIMARY_UOM
121 , RSUP.ITEM_ID
122 , RSUP.ITEM_REVISION
123 , RSUP.TO_ORGANIZATION_ID
124 , RSL.DELIVER_TO_LOCATION_ID
125 , RSH.VENDOR_ID
126 , RT.VENDOR_SITE_ID
127 , MSI.LOT_CONTROL_CODE LOT_CONTROL_CODE
128 , MSI.SERIAL_NUMBER_CONTROL_CODE SERIAL_NUMBER_CONTROL_CODE
129 , RT.CURRENCY_CONVERSION_DATE
130 , RT.CURRENCY_CONVERSION_TYPE
131 , RSUP.OE_ORDER_HEADER_ID
132 , OEH.ORDER_NUMBER OE_ORDER_NUM
133 , RSUP.OE_ORDER_LINE_ID
134 , OEL.LINE_NUMBER OE_ORDER_LINE_NUM
135 , RSH.CUSTOMER_ID
136 , RSH.CUSTOMER_SITE_ID
137 , decode(oel.item_identifier_type, 'CUST', MCI.CUSTOMER_ITEM_NUMBER, '') CUSTOMER_ITEM_NUM
138 , RT.SECONDARY_QUANTITY
139 , RT.SECONDARY_UNIT_OF_MEASURE
140 , DECODE(RT.SOURCE_DOCUMENT_CODE, 'PO', PLL.ORG_ID, 'RMA', OEH.ORG_ID, 'REQ', PRHA.ORG_ID, NULL) ORG_ID -- Bug# 7440432
141 , POL.UNIT_MEAS_LOOKUP_CODE --Done to merge C3 into C1
142 , RT.ATTRIBUTE_CATEGORY -- Bug 6365501: Start
143 , RT.ATTRIBUTE1
144 , RT.ATTRIBUTE2
145 , RT.ATTRIBUTE3
146 , RT.ATTRIBUTE4
147 , RT.ATTRIBUTE5
148 , RT.ATTRIBUTE6
149 , RT.ATTRIBUTE7
150 , RT.ATTRIBUTE8
151 , RT.ATTRIBUTE9
152 , RT.ATTRIBUTE10
153 , RT.ATTRIBUTE11
154 , RT.ATTRIBUTE12
155 , RT.ATTRIBUTE13
156 , RT.ATTRIBUTE14
157 , RT.ATTRIBUTE15 -- Bug 6365501: End
158 , RT.LCM_SHIPMENT_LINE_ID -- lcm changes
159 , RT.UNIT_LANDED_COST -- lcm changes
160 FROM
161 RCV_SUPPLY RSUP ,
162 RCV_SHIPMENT_LINES RSL,
163 RCV_TRANSACTIONS RT ,
164 RCV_SHIPMENT_HEADERS RSH,
165 PO_LINES_ALL POL,
166 PO_LINE_LOCATIONS_ALL PLL,
167 MTL_SYSTEM_ITEMS MSI,
168 OE_ORDER_LINES_ALL OEL,
169 OE_ORDER_HEADERS_ALL OEH,
170 MTL_CUSTOMER_ITEMS MCI,
171 PO_REQUISITION_HEADERS_ALL PRHA -- Bug# 7440432
172 WHERE RT.TRANSACTION_ID = RSUP.RCV_TRANSACTION_ID
173 AND RSUP.SUPPLY_TYPE_CODE = 'RECEIVING'
174 AND RSL.SHIPMENT_LINE_ID = RSUP.SHIPMENT_LINE_ID
175 AND RSH.SHIPMENT_HEADER_ID = RSUP.SHIPMENT_HEADER_ID
176 AND RT.TRANSACTION_TYPE <> 'UNORDERED'
177 AND POL.PO_LINE_ID(+) = RSUP.PO_LINE_ID
178 AND PLL.LINE_LOCATION_ID(+) = RSUP.PO_LINE_LOCATION_ID
179 AND OEL.LINE_ID(+) = RSUP.OE_ORDER_LINE_ID
180 AND OEH.HEADER_ID(+) = RSUP.OE_ORDER_HEADER_ID
181 AND OEL.ORDERED_ITEM_ID = MCI.CUSTOMER_ITEM_ID(+)
182 AND PRHA.REQUISITION_HEADER_ID(+) = RSUP.REQ_HEADER_ID -- Bug# 7440432
183 AND MSI.ORGANIZATION_ID(+) = RSUP.TO_ORGANIZATION_ID
184 AND MSI.INVENTORY_ITEM_ID(+) = RSUP.ITEM_ID
185 AND RSUP.RCV_TRANSACTION_ID = P_TRANSACTION_ID
186 AND NVL(PLL.MATCHING_BASIS(+),'QUANTITY') <> 'AMOUNT'
187 AND PLL.PAYMENT_TYPE IS NULL;
188
189 -- End Bug# 7440432
190
191 RCVT C1%ROWTYPE;
192 --START BUG 5219112
193 --REMOVE CURSOR C2 AND MERGE C3 WITH C1
194 /*
195 CURSOR C2 IS
196 SELECT MOVEMENT_ID
197 FROM RCV_TRANSACTIONS
198 WHERE TRANSACTION_ID = p_transaction_id;
199
200 CURSOR C3(X_PO_LINE_ID NUMBER) IS
201 SELECT UNIT_MEAS_LOOKUP_CODE
202 FROM PO_LINES
203 WHERE PO_LINE_ID = X_PO_LINE_ID;
204 */
205 --END BUG 5219112
206 l_inspection_status_code VARCHAR2(30);
207 --l_movement_id NUMBER; Not being used anywhere in the code
208 l_rowid VARCHAR2(30);
209 l_interface_id NUMBER;
210 l_source_doc_uom VARCHAR2(25):=NULL;
211 l_source_doc_quantity NUMBER;
212 l_primary_quantity NUMBER;
213
214 -- Bug 5018102
215 l_project_id RCV_TRANSACTIONS_INTERFACE.PROJECT_ID%TYPE;
216 l_task_id RCV_TRANSACTIONS_INTERFACE.TASK_ID%TYPE;
217 BEGIN
218
219 --dbms_output.enable('1000000');
220 -- Standard Start of API savepoint
221 SAVEPOINT INSPECTION_GRP;
222 -- Standard call to check for call compatibility.
223 IF NOT FND_API.Compatible_API_Call ( l_api_version ,
224 p_api_version ,
225 l_api_name ,
226 G_PKG_NAME )
227 THEN
228 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229 END IF;
230 -- Initialize message list if p_init_msg_list is set to TRUE.
231 IF FND_API.to_Boolean( p_init_msg_list ) THEN
232 FND_MSG_PUB.initialize;
233 END IF;
234 -- Initialize API return status to success
235 p_return_status := FND_API.G_RET_STS_SUCCESS;
236
237 if p_transaction_type = 'ACCEPT' then
238 l_inspection_status_code := 'ACCEPTED';
239 elsif p_transaction_type = 'REJECT' then
240 l_inspection_status_code := 'REJECTED';
241 else
242 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243 end if;
244
245 OPEN C1;
246 FETCH C1 INTO RCVT;
247 CLOSE C1;
248 --START BUG 5219112
249 --REMOVE CURSOR C2 AND MERGE C3 WITH C1
250 /*OPEN C2;
251 FETCH C2 INTO l_movement_id;
252 CLOSE C2;
253
254 OPEN C3(RCVT.PO_LINE_ID);
255 FETCH C3 INTO l_source_doc_uom;
256 CLOSE C3;
257 */
258 --Populate l_source_doc_uom from C1 only.
259 --Don't populate l_movement_id as it is not being used anywhere in the code
260 l_source_doc_uom := RCVT.UNIT_MEAS_LOOKUP_CODE;
261 --END BUG 5219112
262
263 -- Convert to primary quantity
264 PO_UOM_S.UOM_CONVERT(p_quantity,
265 p_uom,
266 RCVT.ITEM_ID,
267 RCVT.primary_uom,
268 l_primary_quantity);
269
270 -- Convert to source document quantity
271 IF l_source_doc_uom IS NOT NULL THEN
272 PO_UOM_S.UOM_CONVERT(p_quantity,
273 p_uom,
274 RCVT.ITEM_ID,
275 l_source_doc_uom,
276 l_source_doc_quantity);
277 END IF;
278
279 RCV_TRX_INTERFACE_INSERT_PKG.INSERT_ROW(
280 X_Rowid => l_Rowid,
281 X_Interface_Transaction_Id => l_interface_id,
282 X_Group_Id => p_group_id,
283 X_Last_Update_Date => sysdate,
284 X_Last_Updated_By => p_last_updated_by,
285 X_Creation_Date => sysdate,
286 X_Created_By => p_created_by,
287 X_Last_Update_Login => p_last_update_login,
288 X_Transaction_Type => p_transaction_type,
289 X_Transaction_Date => p_transaction_date,
290 X_Processing_Status_Code => 'PENDING',
291 X_Processing_Mode_Code => p_processing_mode,
292 X_Processing_Request_Id => NULL,
293 X_Transaction_Status_Code => 'PENDING',
294 X_Category_Id => RCVT.CATEGORY_ID,
295 X_Quantity => p_quantity,
296 X_Unit_Of_Measure => p_uom,
297 X_Interface_Source_Code => 'RCV',
298 X_Interface_Source_Line_Id => NULL,
299 X_Inv_Transaction_Id => NULL,
300 X_Item_Id => RCVT.ITEM_ID,
301 X_Item_Description => NULL,
302 X_Item_Revision => RCVT.ITEM_REVISION,
303 X_Uom_Code => NULL,
304 X_Employee_Id => p_employee_id,
305 X_Auto_Transact_Code => NULL,
306 X_Shipment_Header_Id => RCVT.SHIPMENT_HEADER_ID,
307 X_Shipment_Line_Id => RCVT.SHIPMENT_LINE_ID,
308 X_Ship_To_Location_Id => NULL,
309 X_Primary_Quantity => l_primary_quantity,
310 X_Primary_Unit_Of_Measure => RCVT.PRIMARY_UOM,
311 X_Receipt_Source_Code => RCVT.RECEIPT_SOURCE_CODE,
312 X_Vendor_Id => RCVT.VENDOR_ID,
313 X_Vendor_Site_Id => RCVT.VENDOR_SITE_ID, /* 2114669 Passing vendor_site_id from cursor RCVT */
314 X_From_Organization_Id => NULL,
315 X_To_Organization_Id => RCVT.TO_ORGANIZATION_ID,
316 X_Routing_Header_Id => RCVT.ROUTING_ID,
317 X_Routing_Step_Id => RCVT.ROUTING_STEP_ID,
318 X_Source_Document_Code => RCVT.SOURCE_DOCUMENT_CODE,
319 X_Parent_Transaction_Id => p_transaction_id,
320 X_Po_Header_Id => RCVT.PO_HEADER_ID,
321 X_Po_Revision_Num => RCVT.PO_REVISION_NUM,
322 X_Po_Release_Id => RCVT.PO_RELEASE_ID,
323 X_Po_Line_Id => RCVT.PO_LINE_ID,
324 X_Po_Line_Location_Id => RCVT.PO_LINE_LOCATION_ID,
325 X_Po_Unit_Price => RCVT.PO_UNIT_PRICE,
326 X_Currency_Code => RCVT.CURRENCY_CODE,
327 X_Currency_Conversion_Type => RCVT.CURRENCY_CONVERSION_TYPE,
328 X_Currency_Conversion_Rate => RCVT.CURRENCY_CONVERSION_RATE,
329 X_Currency_Conversion_Date => RCVT.CURRENCY_CONVERSION_DATE,
330 X_Po_Distribution_Id => RCVT.PO_DISTRIBUTION_ID,
331 X_Requisition_Line_Id => RCVT.REQ_LINE_ID,
332 X_Req_Distribution_Id => RCVT.REQ_DISTRIBUTION_ID,
333 X_Charge_Account_Id => NULL,
334 X_Substitute_Unordered_Code => RCVT.SUBSTITUTE_UNORDERED_CODE,
335 X_Receipt_Exception_Flag => NULL,
336 X_Accrual_Status_Code => NULL,
337 X_Inspection_Status_Code => l_inspection_status_code,
338 X_Inspection_Quality_Code => p_quality_code,
339 X_Destination_Type_Code => 'RECEIVING',
340 X_Deliver_To_Person_Id => NULL,
341 X_Location_Id => RCVT.LOCATION_ID,
342 X_Deliver_To_Location_Id => NULL,
343 X_Subinventory => p_subinventory, --Inserting the value passed by QA for bug 6529950
344 X_Locator_Id => p_locator_id, --Inserting the value passed by QA for bug 6529950
345 X_Wip_Entity_Id => NULL,
346 X_Wip_Line_Id => NULL,
347 X_Department_Code => NULL,
348 X_Wip_Repetitive_Schedule_Id => NULL,
349 X_Wip_Operation_Seq_Num => NULL,
350 X_Wip_Resource_Seq_Num => NULL,
351 X_Bom_Resource_Id => NULL,
352 X_Shipment_Num => NULL,
353 X_Freight_Carrier_Code => NULL,
354 X_Bill_Of_Lading => NULL,
355 X_Packing_Slip => NULL,
356 X_Shipped_Date => NULL,
357 X_Expected_Receipt_Date => NULL,
358 X_Actual_Cost => NULL,
359 X_Transfer_Cost => NULL,
360 X_Transportation_Cost => NULL,
361 X_Transportation_Account_Id => NULL,
362 X_Num_Of_Containers => NULL,
363 X_Waybill_Airbill_Num => NULL,
364 X_Vendor_Item_Num => NULL,
365 X_Vendor_Lot_Num => p_vendor_lot,
366 X_Rma_Reference => NULL,
367 X_Comments => p_comments,
368 X_Attribute_Category => RCVT.ATTRIBUTE_CATEGORY, -- Bug 6365501: Start
369 X_Attribute1 => RCVT.ATTRIBUTE1,
370 X_Attribute2 => RCVT.ATTRIBUTE2,
371 X_Attribute3 => RCVT.ATTRIBUTE3,
372 X_Attribute4 => RCVT.ATTRIBUTE4,
373 X_Attribute5 => RCVT.ATTRIBUTE5,
374 X_Attribute6 => RCVT.ATTRIBUTE6,
375 X_Attribute7 => RCVT.ATTRIBUTE7,
376 X_Attribute8 => RCVT.ATTRIBUTE8,
377 X_Attribute9 => RCVT.ATTRIBUTE9,
378 X_Attribute10 => RCVT.ATTRIBUTE10,
379 X_Attribute11 => RCVT.ATTRIBUTE11,
380 X_Attribute12 => RCVT.ATTRIBUTE12,
381 X_Attribute13 => RCVT.ATTRIBUTE13,
382 X_Attribute14 => RCVT.ATTRIBUTE14,
383 X_Attribute15 => RCVT.ATTRIBUTE15, -- Bug 6365501: End
384 X_Ship_Head_Attribute_Category => NULL,
385 X_Ship_Head_Attribute1 => NULL,
386 X_Ship_Head_Attribute2 => NULL,
387 X_Ship_Head_Attribute3 => NULL,
388 X_Ship_Head_Attribute4 => NULL,
389 X_Ship_Head_Attribute5 => NULL,
390 X_Ship_Head_Attribute6 => NULL,
391 X_Ship_Head_Attribute7 => NULL,
392 X_Ship_Head_Attribute8 => NULL,
393 X_Ship_Head_Attribute9 => NULL,
394 X_Ship_Head_Attribute10 => NULL,
395 X_Ship_Head_Attribute11 => NULL,
396 X_Ship_Head_Attribute12 => NULL,
397 X_Ship_Head_Attribute13 => NULL,
398 X_Ship_Head_Attribute14 => NULL,
399 X_Ship_Head_Attribute15 => NULL,
400 X_Ship_Line_Attribute_Category => NULL,
401 X_Ship_Line_Attribute1 => NULL,
402 X_Ship_Line_Attribute2 => NULL,
403 X_Ship_Line_Attribute3 => NULL,
404 X_Ship_Line_Attribute4 => NULL,
405 X_Ship_Line_Attribute5 => NULL,
406 X_Ship_Line_Attribute6 => NULL,
407 X_Ship_Line_Attribute7 => NULL,
408 X_Ship_Line_Attribute8 => NULL,
409 X_Ship_Line_Attribute9 => NULL,
410 X_Ship_Line_Attribute10 => NULL,
411 X_Ship_Line_Attribute11 => NULL,
412 X_Ship_Line_Attribute12 => NULL,
413 X_Ship_Line_Attribute13 => NULL,
414 X_Ship_Line_Attribute14 => NULL,
415 X_Ship_Line_Attribute15 => NULL,
416 X_Ussgl_Transaction_Code => NULL,
417 X_Government_Context => NULL,
418 X_Reason_Id => p_reason_id,
419 X_Destination_Context => 'RECEIVING',
420 X_Source_Doc_Quantity => l_source_doc_quantity,
421 X_Source_Doc_Unit_Of_Measure => l_source_doc_uom,
422 X_Lot_Number_CC => RCVT.LOT_CONTROL_CODE,
423 X_Serial_Number_CC => RCVT.SERIAL_NUMBER_CONTROL_CODE,
424 X_Qa_Collection_ID => p_qa_collection_id,
425 X_Country_of_origin_code => NULL,
426 X_oe_order_header_id => RCVT.OE_ORDER_HEADER_ID,
427 X_oe_order_line_id => RCVT.OE_ORDER_LINE_ID,
428 X_customer_item_num => RCVT.CUSTOMER_ITEM_NUM,
429 X_customer_id => RCVT.CUSTOMER_ID,
430 X_customer_site_id => RCVT.CUSTOMER_SITE_ID,
431 X_put_away_rule_id => NULL,
432 X_put_away_strategy_id => NULL,
433 X_lpn_id => p_lpn_id,
434 X_transfer_lpn_id => p_transfer_lpn_id,
435 X_cost_group_id => NULL,
436 X_mmtt_temp_id => NULL,
437 X_mobile_txn => NULL,
438 /*bUG# 1548597 */
439 X_secondary_quantity => RCVT.SECONDARY_QUANTITY,
440 X_secondary_unit_of_measure => RCVT.SECONDARY_UNIT_OF_MEASURE,
441 p_org_id => RCVT.ORG_ID, --<R12 MOAC>
442 X_from_subinventory => p_from_subinventory, -- Added bug # 6529950
443 X_from_locator_id => p_from_locator_id, -- Added bug # 6529950
444 X_lcm_shipment_line_id => RCVT.lcm_shipment_line_id, -- lcm changes
445 X_unit_landed_cost => RCVT.UNIT_LANDED_COST -- lcm changes
446 );
447
448 /* Bug 5018102 : INV process_txn() API expects project_id and task_id populated in RTI for
449 ** Inspection transactions. Updating project_id/task_id in RTI from rcv_transactions.
450 */
451
452 SELECT project_id
453 , task_id
454 INTO l_project_id
455 , l_task_id
456 FROM rcv_transactions
457 WHERE transaction_id = p_transaction_id;
458
459 IF l_project_id IS NOT NULL THEN
460
461 UPDATE rcv_transactions_interface
462 SET project_id = l_project_id
463 , task_id = l_task_id
464 WHERE interface_transaction_id = l_interface_id;
465
466 END IF;
467
468 /* End Bug 5018102 */
469
470 -- Standard check of p_commit.
471 IF FND_API.To_Boolean( p_commit ) THEN
472 COMMIT WORK;
473 END IF;
474 -- Standard call to get message count and if count is 1, get message info.
475 FND_MSG_PUB.Count_And_Get
476 ( p_count => p_msg_count ,
477 p_data => p_msg_data
478 );
479
480 EXCEPTION
481 WHEN FND_API.G_EXC_ERROR THEN
482 ROLLBACK TO INSPECTION_GRP;
483 p_return_status := FND_API.G_RET_STS_ERROR ;
484 FND_MSG_PUB.Count_And_Get
485 ( p_count => p_msg_count ,
486 p_data => p_msg_data
487 );
488 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
489 ROLLBACK TO INSPECTION_GRP;
490 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
491 FND_MSG_PUB.Count_And_Get
492 ( p_count => p_msg_count ,
493 p_data => p_msg_data
494 );
495
496 WHEN OTHERS THEN
497 ROLLBACK TO INSPECTION_GRP;
498 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
499 IF FND_MSG_PUB.Check_Msg_Level
500 (G_MSG_LVL_UNEXP_ERROR)
501 THEN
502 FND_MSG_PUB.Add_Exc_Msg
503 ( G_PKG_NAME ,
504 l_api_name
505 );
506 END IF;
507 FND_MSG_PUB.Count_And_Get
508 ( p_count => p_msg_count ,
509 p_data => p_msg_data
510 );
511
512 END Insert_Inspection;
513
514 END RCV_Inspection_GRP;
515