EBS杂项出库事务处理

--初始化
/*
begin
  fnd_global.apps_initialize(user_id      => 8162,
                             resp_id      => 50692,
                             resp_appl_id => 20003);
  mo_global.init('M');
end;
*/
--插入库存事务接口表
declare


  l_api_name    CONSTANT VARCHAR2(80) := 'insert_transaction_iface';
  l_api_version CONSTANT NUMBER := 1.0;
  l_savepoint_name           VARCHAR2(80) := 'insert_transaction_iface01';
  l_progress                 VARCHAR2(240);
  l_uom_code                 VARCHAR2(30);
  l_document_number          VARCHAR2(240);
  l_project_id               NUMBER;
  l_doc_type_code            VARCHAR2(30);
  l_doc_seq                  NUMBER;
  l_tag                      VARCHAR2(10);
  l_project_number           VARCHAR2(240);
  l_transaction_action_id    NUMBER;
  l_material_expense_account NUMBER;
  l_handle_quantity          NUMBER;
  l_onhand_qty               NUMBER;
  l_lot_control              VARCHAR2(10);
  l_default_task_id          NUMBER;
  l_ccid                     NUMBER;
  l_org_segment              VARCHAR2(240);
  l_project_segment          VARCHAR2(240);
  l_account_segment          VARCHAR2(240);
  l_transaction_header_id    NUMBER;
  l_transaction_reference    VARCHAR2(240);
  l_retval                   NUMBER;
  l_mtl_txn_interface_rec    mtl_transactions_interface%ROWTYPE;
  l_iface_lot_rec            mtl_transaction_lots_interface%ROWTYPE;
  l_section_header_id        NUMBER;


  l_using_department   cux_inv_document_headers.using_department%TYPE;
  l_department_segment cux_inv_document_headers.using_department%TYPE;
  l_doc_object         VARCHAR2(240);


  l_api_name       CONSTANT VARCHAR2(30) := 'process_txn_iface';
  l_savepoint_name CONSTANT VARCHAR2(30) := 'process_txn_iface01';
  l_txn_count NUMBER;
  l_count     NUMBER := 0;


  X_return_status VARCHAR2(4);
  X_msg_count     NUMBER;
  X_msg_data      VARCHAR2(2000);


  x_trans_count NUMBER;
  x_err_msg     VARCHAR2(2000);


  x_transaction_header_id NUMBER;


BEG