/*==============================================================================
FICHA: Indicador N°11: Ficha 11:Porcentaje de Personas de 50 a 70 años de edad que se han realizado prueba de tamlzaje de cáncer de colon-recto.
-- DL 1153 2023
ELABORACION: OGTI/ OGEI - MINSA - JL
==============================================================================*/
use DB_UEIS
go

--***************************************************
--				BASES DE DATOS.
--***************************************************
--HIS MINSA 
select 
	convert(date,FECHA_ATENCION) fecha_atencion
	, convert(int, Codigo_Unico) renaes
	, Id_Tipo_Documento id_tipo_doc
	, Numero_Documento num_doc
	,  TIPO_DIAGNOSTICO tipo_dx
	, [CODIGO_ITEM] cod_item  
	, valor_lab
into #his_minsa
from his_nominal(nolock)
where --sw=1															--Validacion de tipo y numero de documento
 (convert(int,edad_reg) between 50 and 70) and tipo_edad='A'


--***************************************************
--					SINTAXIS
--***************************************************
declare @mes_eval int,
		@año int 

set @mes_eval=7 --<=========== Mes de evaluación

set @año=2023 --<============= Año de evaluación 


DELETE FROM TB_F11 WHERE ANIO = @año 

--%%%%%%%%%%%%%%%%
-- DENOOMINADOR
--%%%%%%%%%%%%%%%%
--1. Total de personas de 50 a 70 años identificados con Documento de Identidad atendidos por todas las causas y registrados en el HIS
select distinct renaes, id_tipo_doc, num_doc, den=1
into #dpcan_den
from #his_minsa
where year(fecha_atencion)=@año
and month(fecha_atencion)<=@mes_eval
	
--%%%%%%%%%%%%%%%%
-- NUMERADOR
--%%%%%%%%%%%%%%%%

--1. Personas del denominador a quienes que se les ha entregado el resultado del test de sangre oculta en heces y registradas en el HIS con diagnóstico definitivo, lab A (resultado positivo) o N (resultado negativo) 
select distinct renaes, id_tipo_doc, num_doc, num=1
into #dpcan_num
from #his_minsa
where year(fecha_atencion)=@año
and month(fecha_atencion)<=@mes_eval
and tipo_dx='D'
and cod_item='82270'
and valor_lab in ('N','A')


--%%%%%%%%%%%%%%%%
--	INDICADOR
--%%%%%%%%%%%%%%%%
select @año anio, renaes, sum(den) den, sum(num) num
into #tabla_reporte
from (
		select a.*, isnull(b.num,0) num
		from #dpcan_den a
		left join #dpcan_num b on a.renaes=b.renaes and a.id_tipo_doc=b.id_tipo_doc and a.num_doc=b.num_doc
) as t group by renaes 

--select * from #tabla_reporte

INSERT INTO TB_F11
SELECT u.desc_prov,u.desc_dist,e.Disa,e.Codigo_Red,e.Red,e.Codigo_MicroRed,e.MicroRed,e.Nombre_Establecimiento,e.Categoria,t.*
--INTO TB_F11 
FROM #tabla_reporte t 
LEFT join ESTABLECIMIENTOS e on convert(int, t.renaes)=e.Codigo_Unico
inner join maestro_ubigeo u on e.Ubigueo_Establecimiento=u.UBIGEO
where ( u.desc_prov IN('MOYOBAMBA') or (u.ubigeo IN('220502') and convert(int,t.renaes) in('6348','7297','10516'))) --and t.id=1
--and ((t.seguro LIKE concat('%','0','%') or t.seguro LIKE concat('%','1','%') OR t.seguro LIKE concat('%','6','%') OR t.seguro IS NULL OR t.seguro='' )) 
ORDER BY t.anio asc


 delete from TB_F11 
 where  (convert(int,renaes) IN('6291','6282','6292','6293','6295','6296') and Red='RIOJA')--ubigeo='220101')