EBS开发_离散工单创建API

--以下代码于20171213在TONY环境中实现

DECLARE  
  l_iface_rec    wip.wip_job_schedule_interface%ROWTYPE; --工单任务接口表  
  l_group_id     NUMBER;  
  l_returnstatus VARCHAR2(40);  
  l_errormsg     VARCHAR2(2000);  
  l_error        VARCHAR2(2000);  
BEGIN  
  l_group_id := wip.wip_job_schedule_interface_s.NEXTVAL; --每次导入给定唯一的group_id，也可以不给  
  
begin
  fnd_global.apps_initialize(user_id      => 1110,
                             resp_id      => 50597,
                             resp_appl_id => 20003);
  mo_global.init('M');
end;
  --  
  l_iface_rec.last_update_date := to_date(sysdate, 'yyyy-mm-dd');  
  l_iface_rec.last_updated_by  := fnd_global.user_id;  
  l_iface_rec.creation_date    := to_date(sysdate, 'yyyy-mm-dd');  
  l_iface_rec.created_by       := fnd_global.user_id;  
  --  
  l_ifa