SELECT CAST(A.CODMES AS CHAR(8)) AS CODMES,A.TIPDOC,A.CODDOC,A.CODDISCADO,
		A.NUMTELEFONO,A.PROB,A.SCORE,
       A.PRIORIDAD,A.ID_GRUPO,A.ID_SUBGRUPO,A.FLG_VALIDADO,A.FECACTUALIZACIONTABLA,
		A.FLGSOCIALMEDIA,
	   A.PRIOSOCIALMEDIA,B.DESGRUPOFTE,B.DESFUENTE,B.DESTIPFTE
FROM (
    SELECT CODMES, TIPDOC, CODDOC, CODDISCADO, NUMTELEFONO, PROB, SCORE, PRIORIDAD,
	       ID_GRUPO, ID_SUBGRUPO, FLG_VALIDADO, FECACTUALIZACIONTABLA, FLGSOCIALMEDIA, PRIOSOCIALMEDIA
    FROM E_DW_VIEWS.V_CONT_TELEFONO_APICLIENTE_HIST
	WHERE CODMES = '202303'
    UNION
	SELECT CODMES, TIPDOC, CODDOC, CODDISCADO, NUMTELEFONO, PROB, SCORE, PRIORIDAD,
	       ID_GRUPO, ID_SUBGRUPO, FLG_VALIDADO, FECACTUALIZACIONTABLA, FLGSOCIALMEDIA, PRIOSOCIALMEDIA
    FROM E_DW_VIEWS.V_CONT_TELEFONO_APICLIENTE_HIST
	WHERE CODMES > '202303'
	AND  CONCAT(CODDOC, NUMTELEFONO) IN (SELECT CONCAT(NUM_DOCUMENTO, NUM_TELEFONO) FROM E_DW_VIEWS.V_FEEDBACK_TELEVENTAS  WHERE (CATEGORIA IN('CE','CNE') 
	OR RESULTADO_LLAMADA LIKE '%(CE)%' 
	OR RESULTADO_LLAMADA LIKE '%(AC)%' 
	OR RESULTADO_LLAMADA LIKE '%ACEPTA%' 
	OR RESULTADO_LLAMADA IN (      'RETENCION EXITOSA TC', 'NM - No Acepta Repro - Pagará dentro de mes (NM)',
		   'CLIENTE YA FUE ATENDIDO', 'AP - Acepta Repro PP (AP)', 'LP - Lo Pensará (LP)',
		'VL - Volver a llamar (VL)',    'NO - No Acepta Repro - Otros (NO)',
		'ID - No Acepta Repro - No quiere incrementar deuda (ID)', 'CANCELACION CTS',
		   'TE - No Acepta Repro - Tasa Elevada (TE)', 'AT - Acepta Repro TC (AT)')))
) A 
INNER JOIN E_DW_VIEWS.V_MIDC_DE_FUENTE B 
	ON A.ID_GRUPO=B.CODGRUPOFTE 
	AND A.ID_SUBGRUPO=B.CODFUENTE 
WHERE ((A.TIPDOC='1' 
	AND LENGTH(A.CODDOC)=8) 
	OR (LENGTH(A.CODDOC)=11))
	AND A.NUMTELEFONO LIKE '9%' 
	AND A.NUMTELEFONO IS NOT NULL 
	AND A.NUMTELEFONO <> ''
QUALIFY ROW_NUMBER() OVER(PARTITION BY A.CODDOC, A.NUMTELEFONO ORDER BY A.CODMES DESC, A.PROB DESC) = 1