[Home] [Help]
1: PACKAGE BODY WSH_SC_TRX_INTERFACE as
2: /* $Header: WSHSDOIB.pls 115.17 99/08/19 17:01:12 porting s $ */
3: completion_status varchar2(20);
4: conc_request_id number;
5:
3: completion_status varchar2(20);
4: conc_request_id number;
5:
6: --****************************************************************************
7: -- PACKAGE NAME: WSH_SC_TRX_INTERFACE
8: -- DESCRIPTION: Ship Confirm Open Interface
9: -- Main Function: Confirm_Interface_Data
10: --
11: -- DEPENDANCIES
450: and nvl(container_id, nvl(x_container_id,-1)) = nvl(x_container_id,-1)
451: and rownum < 2;
452: EXCEPTION when others then
453: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
454: FND_MESSAGE.Set_Token('PACKAGE','WSH_SC_TRX_INTERFACE.update_sopld');
455: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
456: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
457: APP_EXCEPTION.Raise_Exception;
458: END;
635: AND m.inventory_location_id (+) = nvl(x_locator_id,pld.inventory_location_id);
636:
637: EXCEPTION when others then
638: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
639: FND_MESSAGE.Set_Token('PACKAGE','WSH_SC_TRX_INTERFACE.Insert_sopld');
640: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
641: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
642: APP_EXCEPTION.Raise_Exception;
643:
690: ' by:'||to_char(X_shipped_quantity));
691:
692: EXCEPTION when others then
693: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
694: FND_MESSAGE.Set_Token('PACKAGE','WSH_SC_TRX_INTERFACE.update_requested_quantity');
695: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
696: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
697: APP_EXCEPTION.Raise_Exception;
698: END;
749: --------------------------------------------------------------------------
750: -- decrement the requested qty on the original detail line by the ship qty
751: -- of the detail line we are trying to insert/update
752: --------------------------------------------------------------------------
753: WSH_SC_TRX_INTERFACE.update_requested_quantity (X_picking_line_detail_id, X_shipped_quantity,
754: X_backorder_flag, error_code);
755:
756: --------------------------------------------------------------------------
757: -- before inserting a new detail line, try updating any line detail
758: -- for this picking line with the same inventory controls
759: -- if serial_number exists we assume there is no such line and skip this
760: --------------------------------------------------------------------------
761: if error_code = '0' then
762: WSH_SC_TRX_INTERFACE.insert_sopld_row
763: (X_picking_line_detail_id,
764: new_pld_id,
765: X_pick_slip_number,
766: X_shipped_quantity,
782: end if;
783:
784: EXCEPTION when others then
785: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
786: FND_MESSAGE.Set_Token('PACKAGE','WSH_SC_TRX_INTERFACE.split_sopld_row');
787: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
788: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
789: APP_EXCEPTION.Raise_Exception;
790:
1488: wsh_del_oi_core.println('Going for split_line');
1489: if x_backorder_flag = false then
1490: wsh_del_oi_core.println('BACKORDER FLAG is FALSE.Going for split of:'||
1491: ' pld:'|| to_char(oirec.picking_line_detail_id));
1492: WSH_SC_TRX_INTERFACE.split_sopld_row
1493: (oirec.picking_line_id,
1494: oirec.picking_line_detail_id,
1495: oirec.pick_slip_number,
1496: new_pld_id,
1575: end if;
1576:
1577: EXCEPTION when others then
1578: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1579: FND_MESSAGE.Set_Token('PACKAGE','WSH_SC_TRX_INTERFACE.update_sopld1');
1580: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1581: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1582: APP_EXCEPTION.Raise_Exception;
1583: END;
1602: -- Control will reach here ONLY in case of backorder_flag=TRUE
1603: -- this update will fail only if the inventory controls are different & the
1604: -- pld splitting will take place by the next call.
1605:
1606: WSH_SC_TRX_INTERFACE.update_sopld_row
1607: (oirec.picking_line_id,
1608: oirec.picking_line_detail_id,
1609: 0,
1610: oirec.shipped_quantity,
1646: to_char(valid_warehouse_id)||','||
1647: valid_lot||','||valid_revision||','||
1648: valid_sub||','||valid_loc),1,2000));
1649:
1650: WSH_SC_TRX_INTERFACE.split_sopld_row
1651: (oirec.picking_line_id,
1652: oirec.picking_line_detail_id,
1653: oirec.pick_slip_number,
1654: new_pld_id,
1732: x_error_code := 'OE_QUERY_ERROR';
1733: FND_MESSAGE.SET_NAME('OE', x_error_code);
1734: wsh_del_oi_core.println('PLD Process EXCEPTION others ');
1735: --FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1736: --FND_MESSAGE.Set_Token('PACKAGE','WSH_SC_TRX_INTERFACE.process_sopld_interface');
1737: --FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1738: --FND_MESSAGE.Set_Token('ORA_TEXT','Insert statement');
1739: --APP_EXCEPTION.Raise_Exception;
1740: END;
1757: -- so this rowid indicates the record in error.
1758: -- error_code any error code
1759: -- Notes
1760: -- inserts all freight charges for a given transaction.
1761: -- called from WSH_SC_TRX_INTERFACE.Process_Interface_Data
1762: -- once for each transaction to process
1763: -- This can be called any time prior to AR Interface
1764: --------------------------------------------------------------------------
1765:
2086:
2087: EXCEPTION
2088: when others then
2089: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
2090: FND_MESSAGE.Set_Token('PACKAGE','WSH_SC_TRX_INTERFACE.insert_freight_charges statement');
2091: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
2092: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
2093: APP_EXCEPTION.Raise_Exception;
2094: EXIT;
2123: when others then
2124: return_msg1 := FND_MESSAGE.get;
2125: wsh_del_oi_core.println('msg ='|| return_msg1);
2126: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
2127: FND_MESSAGE.Set_Token('PACKAGE','WSH_SC_TRX_INTERFACE.insert_freight_charges');
2128: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
2129: FND_MESSAGE.Set_Token('ORA_TEXT','Insert statement');
2130: APP_EXCEPTION.Raise_Exception;
2131:
2136: END PROCESS_FREIGHT_CHARGES_INTER;
2137:
2138:
2139:
2140: end WSH_SC_TRX_INTERFACE;