WIP 物料事务处理 API Demo

--WIP 物料事务处理
DECLARE
  p_issue_txn_id  NUMBER;
  x_error_status  VARCHAR2(1);
  x_error_message VARCHAR2(2000);
  l_iface_rec     inv.mtl_transactions_interface%ROWTYPE;
  l_iface_lot_rec inv.mtl_transaction_lots_interface%ROWTYPE;
  l_return_status VARCHAR2(40);
  l_msg_count     NUMBER;
  l_msg_data      VARCHAR2(2000);
  l_trans_count   NUMBER;
  l_request_id    NUMBER;

BEGIN
  --
  fnd_global.apps_initialize(user_id => 2411, resp_id => 50647, resp_appl_id => 20003);
  --
  l_iface_rec.last_update_date  := SYSDATE;
  l_iface_rec.last_updated_by   := fnd_global.user_id;
  l_iface_rec.creation_date     := SYSDATE;
  l_iface_rec.created_by        := fnd_global.user_id;
  l_iface_rec.last_update_login := fnd_global.user_id;
  --
  SELECT mtl_material_transactions_s.nextval INTO l_iface_rec.transaction_interface_id FROM dual;
  l_iface_rec.transaction_header_id := l_iface_rec.transaction_interface_id;
  /******