EBS开发_采购订单接收_批次_ONLINE模式

--以下脚本于20180124在Tony环境实现
--online模式接收
DECLARE
  g_group_id          NUMBER := rcv_interface_groups_s.nextval;
  g_creation_date     DATE := SYSDATE;
  g_created_by        NUMBER := fnd_global.user_id;
  g_last_updated_by   NUMBER := fnd_global.user_id;
  g_last_update_date  DATE := SYSDATE;
  g_last_update_login NUMBER := fnd_global.login_id;


  l_request_id   NUMBER;
  l_request_flag BOOLEAN := false;
  l_phase        VARCHAR2(30);
  l_dev_status   VARCHAR2(30);
  l_status       VARCHAR2(20);
  l_dev_phase    VARCHAR2(200);
  l_message      VARCHAR2(2000);


  timeout NUMBER;
  RC      NUMBER :=0;
  outcome              VARCHAR2(200) := NULL;
  message              VARCHAR2(200) := NULL;  


  L_PO_HEADER_ID       NUMBER;
  L_PO_LINE_ID         NUMBER;
  L_PO_DISTRIBUTION_ID NUMBER;
  L_LINE_LOCATION_ID   NUMBER;


  l_header_iface       rcv_headers_interface%ROWTYPE;
  l_trx_iface          rcv_transactions_interface%ROWTYPE;
  l_rcv_lots_interface mtl_transaction_lots_interface%ROWTYPE;
BEGIN
  /*      fnd_global.apps_initialize(user_id      =>1170,--fnd_global.user_id,
                                              resp_id      =>50838,--fnd_global.resp_id,
                                              resp_appl_id =>20004);--fnd_global.resp_appl_id);
  mo_global.init('PO');
  mo_global.set_policy_context('S',101);  */


  begin
    fnd_global.apps_initialize(user_id      => 1110,
                               resp_id      => 50597,
                               resp_appl_id => 20003);
    mo_global.init('M');
  end;


  SELECT PDA.PO_HEADER_ID,
         PDA.PO_LINE_ID,
         PDA.PO_DISTRIBUTION_ID,
         PDA.LINE_LOCATION_ID
    INTO L_PO_HEADER_ID,
         L_PO_LINE_ID,
         L_PO_DISTRIBUTION_ID,
         L_LINE_LOCATION_ID
    FROM PO_HEADERS_ALL PHA, PO_LINES_ALL PLA, PO_DISTRIBUTIONS_ALL PDA
   WHERE PHA.PO_HEADER_ID = PLA.PO_HEADER_ID
     AND PLA.PO_LINE_ID = PDA.PO_LINE_