Customer Item Open Interface Validation

Question

Hi Folks,
I have to write package for customer item open interface ,
can anyone let me know what are the validation required or if any one have package written ,please share it with me .[email protected]
Waiting for your kind response.
Thanks in advance....
Regards
RP

Answer 1

Hi
Please find the code below for Customer Item Interface
HTH
Dinesh
declare
     ex_not_ok     exception          ;
     Cursor      cur_cust_item  is
     select     b.*,rowid from btl_cust_item b      ;
     rec_cur_cust_item     cur_cust_item%rowtype;
     vc_rowid          varchar2(50);     
     vc_error_desc          varchar2(2000);
     vc_org_code          varchar2(20)     :='F02';
     vc_org_id          varchar2(20)     ;
     vc_inv_item          number          ;
     vc_cust_id          varchar2(50)     ;
     vc_create_by          number;
     vc_last_updated_by     number;
     vc_user_name          varchar2(100);
     vc_login_name          varchar2(30)     := '&1';
     vc_master               number;
begin
     vc_org_id := &2 ;
  vc_master := &3;
     begin
          select      user_id          ,last_updated_by      ,user_name 
          into     vc_create_by     ,vc_last_updated_by     , vc_user_name     
          from      fnd_user
          where      user_name = vc_login_name;
     end;
     open     cur_cust_item;          -- open cursor
     loop
          begin 
          fetch     cur_cust_item
          INTO     rec_cur_cust_item;
          vc_rowid     := rec_cur_cust_item.rowid;
          exit when cur_cust_item%NOTFOUND;
          -- perform the mandatory validations
          -- 1. Check the validity of the customer
          begin
               select      count(*)
               into     vc_cust_id
               from      ra_customers
               where     upper(customer_number) = upper(rec_cur_cust_item.customer_number);
               if      vc_cust_id > 0 then
                    null;
               else
                    vc_error_desc := rec_cur_cust_item.customer_number||' '|| rec_cur_cust_item.customer_name ||' - Customer Number  Does not Exist in Ra_customers';
                    raise     ex_not_ok;
               end if;                
               exception
                    when no_data_found then
                    update      btl_cust_item
                    set     process_flag = 'E',
                         error_message = 'XREF-  Customer Does not exist '||vc_error_desc
                    where     rowid     = vc_rowid;
          end ;
          -- 2. Check that the Customer Item Is not Null
          begin
               if     rec_cur_cust_item.customer_item_number is not null then
                    null;
               else
                    vc_error_desc := rec_cur_cust_item.Customer_Number ||' - '|| rec_cur_cust_item.customer_item_number || ' - Customer Item has no value    ';
                    raise ex_not_ok;
               end if;
          end;
          -- 3. Validate the Inventory Item
          begin
               select      count(*)
               into     vc_inv_item
               from      mtl_system_items  a, org_organization_definitions b
               where     a.organization_id            = b.organization_id
               and     rec_cur_cust_item.inventory_item = segment1
               and     a.organization_id             = vc_org_id;
               if     vc_inv_item != 0 then
                    null;
               else
                    vc_error_desc := 'Inventory Item '|| rec_cur_cust_item.inventory_item ||'  is not valid/exist in mtl_system_item ';
                    raise ex_not_ok;
               end if;
          end;
    rec_cur_cust_item.commodity_code := 'MISC';
          insert into mtl_ci_interface (               
                    PROCESS_FLAG          ,
                    PROCESS_MODE          ,
                    TRANSACTION_TYPE     ,
                    CUSTOMER_NUMBER          ,
                    CUSTOMER_NAME          ,
                    CUSTOMER_ITEM_NUMBER     ,
                    ITEM_DEFINITION_LEVEL     ,
                    COMMODITY_CODE          ,
                    INACTIVE_FLAG          ,
                    LOCK_FLAG          ,
                    LAST_UPDATE_DATE     ,
                    LAST_UPDATED_BY          ,
                    CREATION_DATE          ,
                    CREATED_BY          ,
                    --LAST_UPDATE_LOGIN     ,
                    ERROR_CODE          ,
                    ERROR_EXPLANATION               
          values
                    '1'                                ,     --PROCESS_FLAG
                    '1'                                ,     --PROCESS_MODE
                    'CREATE'                     , -- TRNASACTION_TYPE
                    rec_cur_cust_item.customer_number     ,     --CUSTOMER_NUMBER          
                    rec_cur_cust_item.customer_name           , --CUSTOMER_NAME          
                    rec_cur_cust_item.customer_item_number, --CUSTOMER_ITEM_NUMBER     
                    '1'                          , --ITEM_DEFINATION_LEVEL
                    rec_cur_cust_item.commodity_code      , --COMMODITY_CODE
                    '2'                          , --INACTIVE_FLAG
                    'N'                          ,     --LOCK_FLAG
                    sysdate                      , --LAST_UPDATE_DATE
                    vc_last_updated_by                    , --LAST_UPDATED_BY
                    sysdate                          , --CREATION_DATE
                    vc_create_by                     , --CREATED_BY
                    --'10'                          , --LAST_UPDATE_LOGIN
                    'N'                          , --ERROR_CODE
                    ' '                             --ERROR_EXPLANATION
          Insert into mtl_ci_xrefs_interface (
                    PROCESS_FLAG          ,
                    PROCESS_MODE          ,
                    TRANSACTION_TYPE     ,
                    CUSTOMER_NUMBER          ,
                    CUSTOMER_NAME          ,
                    CUSTOMER_ITEM_NUMBER     ,
                    ITEM_DEFINITION_LEVEL     ,
                    INVENTORY_ITEM          ,
                    MASTER_ORGANIzATION_ID     ,
                    PREFERENCE_NUMBER     ,
                    INACTIVE_FLAG          ,
                    LOCK_FLAG          ,
                    LAST_UPDATE_DATE     ,
                    LAST_UPDATED_BY          ,
                    CREATION_DATE          ,
                    CREATED_BY          ,
                    --LAST_UPDATE_LOGIN     ,
                    ERROR_CODE          ,          
                    ERROR_EXPLANATION
          Values
                    '1'                    ,      --PROCESS_FLAG          
                    '1'                    ,      --PROCESS_MODE          
                    'CREATE'               ,      --TRNSACTION_TYPE          
                    rec_cur_cust_item.customer_number,     --CUSTOMER_NUMBER          
                    rec_cur_cust_item.customer_name     ,      --CUSTOMER_NAME          
                    rec_cur_cust_item.customer_item_number, --CUSTOMER_ITEM_NUMBER     
                    '1'                    ,     --ITEM_DEFINATION_LEVEL     
                    rec_cur_cust_item.inventory_item,     --INVENTORY_ITEM
                    vc_master               ,      --MASTER_ORGANISATION_ID
                    '1'                    ,     --PREFERENCE_NUMBER
                    '2'                    ,     --INACTIVE_FLAG     
                    'N'                    ,     --LOCK_FLAG     
                    sysdate                    ,     --LAST_UPDATE_DATE     
                    vc_last_updated_by          ,     --LAST_UPDATED_BY          
                    sysdate                    ,     --CREATION_DATE          
                    vc_create_by               ,     --CREATED_BY          
                    --'10'                    ,     --LAST_UPDATE_LOGIN     
                    'N'                    ,     --ERROR_CODE                    
                    ' '                         --ERROR_EXPLANATION     
--dbms_output.put_line( ' Inserting into reference table - done');
          exception
               when ex_not_ok then
                    update      btl_cust_item
                    set     process_flag = 'E',
                         error_message = 'XREF-'||vc_error_desc
                    where     rowid     = vc_rowid;                    
          end ;
     end loop;
     commit;
     begin
           dbms_application_info.set_client_info(' ');     
     end;
     dbms_output.put_line ( ' End time ' || to_char( sysdate, 'DD-MON-YYYY HH24:MI:SS'));
     exception
          when others then
               dbms_output.put_line( Sqlcode || ' ' || Sqlerrm );
end ;
/