EBS: LOOKUP_VALUES 导入快码值

DECLARE  
  v_lookup_type           varchar2(30);
  v_view_appsname         varchar2(150);
  v_lookup_code           varchar2(30);
  v_enabled_flag          varchar2(150);
  v_start_date_active     varchar2(150);
  v_end_date_active       varchar2(150);
  v_territory_code        varchar2(150);
  v_tag                   varchar2(150);
  v_attribute_category    varchar2(150);
  v_attribute1            varchar2(150);
  v_attribute2            varchar2(150);
  v_attribute3            varchar2(150);
  v_attribute4            varchar2(150);
  v_attribute5            varchar2(150);
  v_attribute6            varchar2(150);
  v_attribute7            varchar2(150);
  v_attribute8            varchar2(150);
  v_attribute9            varchar2(150);
  v_attribute10           varchar2(150);
  v_attribute11           varchar2(150);
  v_attribute12           varchar2(150);
  v_attribute13           varchar2(150);
  v_attribute14           varchar2(150);
  v_attribute15           varchar2(150);
  v_last_update_date      varchar2(150);
  v_owner                 varchar2(150);
  v_meaning               varchar2(80);
  v_description           varchar2(150);
  v_security_group        varchar2(150);
  v_custom_mode           varchar2(150);
  v_cnt                   number;
  cursor c1 is   
SELECT PERSON_ID AS EMPLOYEE_ID, 
       EFFECTIVE_START_DATE, 
       EFFECTIVE_END_DATE, 
       START_DATE, 
       LAST_NAME, 
       FULL_NAME ,
       EMPLOYEE_NUMBER --AS "工号" ,
 FROM  APPS.PER_ALL_PEOPLE_F EMP
 WHERE 1=1
  AND EMP.LAST_NAME LIKE '%'
  AND EMP.PERSON_TYPE_ID = 6   -- 在职员工
  --AND EMP.EMPLOYEE_NUMBER LIKE '23%'
  and not exists( select 1 from  APPS.FND_LOOKUP_VALUES_VL FLV
    WHERE 1=1
  AND LOOKUP_TYPE = 'OM_LLY' 
  and flv.attribute1 = emp.employee_number )
  AND NVL(EMP.EFFECTIVE_END_DATE, SYSDATE)>= SYSDATE 
 ORDER BY EMPLOYEE_NUMBER ;
BEGIN
   v_cnt := 0 ;
   v_tag := '联络员';
   v_description := 'N/A';
  for r1 in c1 loop  
    v_cnt := v_cnt + 1;
    v_lookup_code := SUBSTRB(r1.employee_number || r1.last_name ,1,30);  
    v_meaning := SUBSTRB( r1.employee_number || r1.last_name ,1,80) ;  
    v_attribute1 := r1.employee_number; 
   
  -- DBMS_OUTPUT.PUT_LINE(v_meaning);  
   
  APPS.FND_LOOKUP_VALUES_PKG.LOAD_ROW(
  x_lookup_type           => 'OM_LLY',
  x_view_appsname         => 'ONT',
  x_lookup_code           => v_lookup_code ,
  x_enabled_flag          => 'Y',
  x_start_date_active     => TO_CHAR(SYSDATE, 'YYYY/MM/DD'),
  x_end_date_active       => NULL,
  x_territory_code        => NULL,
  x_tag                   => v_tag,
  x_attribute_category    => 'OM_LLY',
  x_attribute1            => v_attribute1,
  x_attribute2            => v_attribute2,
  x_attribute3            => v_attribute3,
  x_attribute4            => v_attribute4,
  x_attribute5            => v_attribute5,
  x_attribute6            => v_attribute6,
  x_attribute7            => v_attribute7,
  x_attribute8            => v_attribute8,
  x_attribute9            => v_attribute9,
  x_attribute10           => v_attribute10,
  x_attribute11           => v_attribute11,
  x_attribute12           => v_attribute12,
  x_attribute13           => v_attribute13,
  x_attribute14           => v_attribute14,
  x_attribute15           => v_attribute15,
  x_last_update_date      => NULL,  --TO_CHAR(SYSDATE, 'YYYY/MM/DD'),
  x_owner                 => 'CUX001',
  x_meaning               => v_meaning,
  x_description           => v_description,
  x_security_group        => 'STANDARD',
  x_custom_mode           => 'FORCE'
  );

  end loop; 
  dbms_output.put_line('count = '|| to_char( v_cnt ) ); 
END; 
/