Oracle Ebs 更新工单组件API

DECLARE
  L_RETURNSTATUS     VARCHAR2(1);
  L_ERRORMSG         VARCHAR2(2000);
  L_SCHEDULINGMETHOD NUMBER := 1;
BEGIN
  FND_GLOBAL.APPS_INITIALIZE(USER_ID      => 124,
                             RESP_ID      => 546,
                             RESP_APPL_ID => 706);
  MO_GLOBAL.INIT('M');
  MO_GLOBAL.SET_POLICY_CONTEXT(P_ACCESS_MODE => 'S', P_ORG_ID => 96);
  WIP_BOMROUTING_PVT.REEXPLODEJOB(P_ORGID            => :PARAMETER.ORG_ID,
                                  P_WIPENTITYID      => :W_JOBS.WIP_ENTITY_ID,
                                  P_SCHEDULINGMETHOD => L_SCHEDULINGMETHOD,
                                  P_ALTROUTING       => NVL(:W_JOBS.ALTERNATE_ROUTING_DESIGNATOR,
                                                            '@@@'), -- Fix for Bug 7277832 (FP bug 7351628))
                                  P_ROUTINGREVDATE   => :W_JOBS.ROUTING_REVISION_DATE,
                                  P_ALTBOM           => NVL(:W_JOBS.ALTERNATE_BOM_DESIGNATOR,
                                                            '@@@'), -- Fix for Bug 7277832 (FP bug 7351628))
                                  P_BOMREVDATE       => :W_JOBS.BOM_REVISION_DATE,
                                  P_QTY              => :W_JOBS.START_QUANTITY,
                                  P_STARTDATE        => :W_JOBS.SCHEDULED_START_DATE,
                                  P_ENDDATE          => :W_JOBS.SCHEDULED_COMPLETION_DATE,
                                  P_PROJECTID        => :W_JOBS.PROJECT_ID,
                                  P_TASKID           => :W_JOBS.TASK_ID,
                                  P_RTGREFID         => :W_JOBS.ROUTING_REFERENCE_ID,
                                  P_BOMREFID         => :W_JOBS.BOM_REFERENCE_ID,
                                  P_ALLOWEXPLOSION   => TRUE,
                                  P_UNITNUMBER       => :W_JOBS.END_ITEM_UNIT_NUMBER, /* for bug 5332615 */
                                  X_RETURNSTATUS     => L_RETURNSTATUS,
                                  X_ERRORMSG         => L_ERRORMSG);
  DBMS_OUTPUT.PUT_LINE('L_RETURNSTATUS:' || L_RETURNSTATUS ||
                       '  L_ERRORMSG:' || L_ERRORMSG);

END;