[Home] [Help]
1: PACKAGE BODY EAM_WO_COMP_UTILITY_PVT AS
2: /* $Header: EAMVWCUB.pls 120.16 2006/08/21 09:21:03 sshahid noship $ */
3: /***************************************************************************
4: --
5: -- Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA
10: -- EAMVWCUB.pls
11: --
12: -- DESCRIPTION
13: --
14: -- Body of package EAM_WO_COMP_UTILITY_PVT
15: --
16: -- NOTES
17: --
18: -- HISTORY
18: -- HISTORY
19: --
20: -- 14-FEB-2005 mmaduska Initial Creation
21: ***************************************************************************/
22: G_PKG_NAME CONSTANT VARCHAR2(30) := 'EAM_WO_COMP_UTILITY_PVT';
23:
24:
25: PROCEDURE Perform_Writes
26: (
286:
287: BEGIN
288:
289: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
290: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.process_lot_serial : Start ');
291: END IF;
292:
293: -- prepare the data to insert into MTL_MATERIAL_TRANSACTIONS_TEMP,
294: -- MTL_SERIAL_NUMBERS_TEMP, and MTL_TRANSACTION_LOTS_TEMP
319:
320: if (l_revision_control_code = 2) then
321:
322: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
323: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.process_lot_serial : before bom_revisions.get_revision ');
324: END IF;
325:
326: -- get bom_revision
327: bom_revisions.get_revision (examine_type => 'ALL',
330: rev_date => sysdate,
331: itm_rev => i_revision);
332:
333: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
334: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.process_lot_serial : after bom_revisions.get_revision ');
335: END IF;
336: end if;
337:
338: -- get transaction source type id
373: return;
374: end if; -- end prepare data
375:
376: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
377: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.process_lot_serial : before inv_trx_util_pub.insert_line_trx');
378: END IF;
379:
380:
381: -- call inventory API to insert data to mtl_material_transactions_temp
400: x_proc_msg => errMsg);
401: if (errCode <> 0) then
402: return;
403: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
404: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.process_lot_serial : inv_trx_util_pub.insert_line_trx : ' || errMsg);
405: END IF;
406: end if;
407:
408: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
405: END IF;
406: end if;
407:
408: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
409: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.process_lot_serial : after inv_trx_util_pub.insert_line_trx');
410: END IF;
411:
412: FOR i IN 1..s_lot_serial_tbl.COUNT LOOP
413:
421: -- If it is, insert the data to coresponding tables
422: if(item.lotControlCode = WIP_CONSTANTS.LOT) then
423:
424: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
425: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.process_lot_serial : before inv_trx_util_pub.insert_lot_trx');
426: END IF;
427:
428: -- the item is under lot control
429:
442: return;
443: end if;
444:
445: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
446: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.process_lot_serial : after inv_trx_util_pub.insert_lot_trx');
447: END IF;
448:
449: else
450: null;
464: i_transaction_temp_id_s := i_transaction_temp_id;
465: end if; -- end lot control check
466:
467: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
468: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.process_lot_serial : before inv_trx_util_pub.insert_ser_trx');
469: END IF;
470:
471: -- call inventory API to insert data to mtl_serial_numbers_temp
472: -- the spec file is INVTRXUS.pls
480: return;
481: end if;
482:
483: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
484: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.process_lot_serial : after inv_trx_util_pub.insert_ser_trx');
485: END IF;
486:
487: else
488: null;
492:
493: l_initial_msg_count := FND_MSG_PUB.count_msg;
494:
495: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
496: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.process_lot_serial : before inv_lpn_trx_pub.process_lpn_trx');
497: END IF;
498: -- Call Inventory API to process to item
499: -- the spec file is INVTRXWS.pls
500: errCode := inv_lpn_trx_pub.process_lpn_trx(
517: p_value1 => errMsg);
518: end if;
519: */
520: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
521: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.process_lot_serial : End');
522: END IF;
523: END process_lot_serial;
524:
525: PROCEDURE process_item(
543: l_lot_serial_tbl Lot_Serial_Tbl_Type;
544: BEGIN
545:
546: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
547: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.process_item : Start ');
548: END IF;
549:
550: IF s_inventory_item_tbl.COUNT = 0 THEN
551: RETURN;
593: END IF;
594: END LOOP;
595:
596: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
597: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.process_item : End ');
598: END IF;
599:
600: END process_item;
601:
830:
831: x_return_status := EAM_ERROR_MESSAGE_PVT.G_STATUS_UNEXPECTED;
832:
833: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
834: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.update_row : Exception1 : '|| errMsg);
835: END IF;
836: return;
837: end if;
838: end if;
881: , x_mesg_token_Tbl => x_mesg_token_tbl
882: );
883: x_return_status := EAM_ERROR_MESSAGE_PVT.G_STATUS_UNEXPECTED;
884: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
885: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.update_row : Exception2 : '|| l_msg_data);
886: END IF;
887: return;
888: end if;
889:
947: );
948:
949: x_return_status := EAM_ERROR_MESSAGE_PVT.G_STATUS_UNEXPECTED;
950: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
951: EAM_ERROR_MESSAGE_PVT.Write_Debug('EAM_WO_COMP_UTILITY_PVT.update_row : Exception3 : '|| SQLERRM);
952: END IF;
953:
954: END update_row;
955:
953:
954: END update_row;
955:
956:
957: END EAM_WO_COMP_UTILITY_PVT;