dbo.sp_pep_worldsys

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
CREATE OR ALTER PROCEDURE dbo.sp_pep_worldsys 

AS
BEGIN
    SET NOCOUNT ON;

 declare @ID numeric(18, 0),
   @DOCUMENTO varchar(20),
   @DENOMINACION varchar(200),
   @MARCA_PEP varchar(1),
   @LISTA varchar(50),
   @URL varchar(200),
   @porcentaje_similitud varchar(50),
   @INSTITUCION varchar(200),
   @CARGO_FUNCION varchar(200),
   @RELACION varchar(200),
   @NORMA_UIF varchar(500),
   @descripcion varchar(8000)

 declare @id_registro int, 
         @descripcionLista varchar(200),
   @hallazgos int = 0, 
   @total int = 0

 DECLARE C_cur CURSOR FOR
      select * from pep_worldsys2 
  order by id 

 OPEN C_cur
 FETCH NEXT FROM C_cur INTO  @ID,
        @DOCUMENTO,
        @DENOMINACION,
        @MARCA_PEP,
        @LISTA,
        @URL,
        @porcentaje_similitud,
        @INSTITUCION,
        @CARGO_FUNCION,
        @RELACION,
        @NORMA_UIF,
        @descripcion
 WHILE @@fetch_status = 0
 BEGIN
  set @total = @total + 1
  set @id_registro = 0
  set @hallazgos = 0
  if (@MARCA_PEP = 'S') set @hallazgos = 1 

  INSERT INTO LN_Fidecheck_ws
  (
   cuit,
   nombre_persona,
   id_padron,
   webservice,
   StatusCode,
   Status,
   Reason,
   Id,
   Fuente,
   NombreModificado,
   DocumentoBuscado,
   NombreBuscado,
   Documento,
   TipoFuente,
   Residencia,
   DescripcionPais,
   PaisNoColaborativo,
   Hallazgos,
   ExisteDocumentacion,
   PorcentajeSimilitud,
   created,
   visible,
   fidecheck
  ) 
  VALUES
  (
   @DOCUMENTO,
   @DENOMINACION,
   0,
   'worldsys',
   '200',
   'OK',              
   NULL,    
   @ID,                  
   @LISTA,              
   @DENOMINACION,
   @DOCUMENTO,    
   @DENOMINACION,      
   @DOCUMENTO,           
   'P.E.P.',          
   'AR',          
   'AR',     
   NULL,  
   @hallazgos,           
   @hallazgos,            
   @porcentaje_similitud,
   GETDATE(),
   1,
   @MARCA_PEP
  )
  SELECT @id_registro = @@IDENTITY  
  if (isnull(@id_registro,0) != 0 and @MARCA_PEP = 'S')
  begin
   set @descripcionLista = null
   select @descripcionLista = descripcion from listas_worldsys where lista = @LISTA
   if (len(@descripcion) > 500) 
      set @descripcion = SUBSTRING(@descripcion,1,500)
   INSERT INTO LN_Fidecheck_ws_mas_datos
     (id_resultado, id,
     StatusCode, 
     Status, 
     Cargo, 
     Institucion, 
     NumeroIdTributaria, 
     URL, 
     Relacion, 
     created, 
     PrincipalLista,
     PrincipalListaDescripcion,
     PaisSwift, 
     Pais, 
     NormaUif,
     NormaUifDescripcion,
     FuenteLista, 
     FuenteActiva, 
     FuenteDescripcion)

    VALUES
    (
     @id_registro, @id, 
     '200',
     'OK',  
     @CARGO_FUNCION,
     @INSTITUCION,
     @DOCUMENTO, 
     @URL,
     @ReLACION, 
     GETDATE(), 
     @LISTA,
     @descripcionLista, 
     'AR', 
     'ARGENTINA', 
     @NORMA_UIF,
     replace(@descripcion,'"',''),
     @LISTA,
     'S', 
     @descripcionLista)    
  end 

  FETCH NEXT FROM C_cur INTO  @ID,
        @DOCUMENTO,
        @DENOMINACION,
        @MARCA_PEP,
        @LISTA,
        @URL,
        @porcentaje_similitud,
        @INSTITUCION,
        @CARGO_FUNCION,
        @RELACION,
        @NORMA_UIF,
        @descripcion
 END 
 CLOSE C_cur
 DEALLOCATE C_cur
 select @total
END 
GO