select
	sotech.esus_atividadecoletiva.pkatividadecoletiva,
	sotech.esus_atividadecoletiva.dataatendimento,
	sotech.esus_atividadecoletiva.outralocalidade,
	coalesce(sotech.esus_inep.codinep, '') as codinep,
	sotech.esus_atividadecoletiva.numeroparticipantes,
	sotech.esus_atividadecoletiva.numeroavaliacoesalteradas,
	coalesce(tipoatividade.codtabela, '') as tipoatividade,
	coalesce(cnslocalatividade.cnes, '') as cneslocalatividade,
	coalesce(sotech.tbn_procedimento.codprocedimento, '') as sigtap,
	coalesce(sotech.cdg_interveniente.cnscnes, '') as profissionalcns,
	coalesce(tbn_cbo.codcbo, '') as cboprofissional2002,
	cnesprofissional.cnes as cnesunicalotacao,
	coalesce(equipe.ine, '') as ine,
	sotech.esus_atividadecoletiva.fkunidadesaude,
	coalesce(municipio.codibge, '') as ibge,
	coalesce(sotech.esus_atividadecoletiva.educacao, false) as educacao,
	coalesce(sotech.esus_atividadecoletiva.saude, false) as saude,
	coalesce
	(
		(
			select
				case when length(dados.registros) = 0 then
					''
				else
					'[' || chr(13) || dados.registros || chr(13) || ']'
				end
			from
				(
					select
						array_to_string
						(
							array
							(
								select
									'	{' || chr(13) ||
									'		cnsProfissional: ' || coalesce(sotech.cdg_interveniente.cnscnes, '') || ',' || chr(13) ||
									'		codigoCbo2002: ' || coalesce(sotech.tbn_cbo.codcbo, '') || chr(13) ||
									'	}'
								from
													sotech.esus_atividadecoletiva_profissional
									left	join		sotech.cdg_interveniente	on	sotech.cdg_interveniente.pkinterveniente = sotech.esus_atividadecoletiva_profissional.fkprofissional
									left	join		sotech.tbn_cbo					on	sotech.tbn_cbo.pkcbo = sotech.esus_atividadecoletiva_profissional.fkcbo
								where
									sotech.esus_atividadecoletiva_profissional.fkatividadecoletiva = sotech.esus_atividadecoletiva.pkatividadecoletiva
							),
							',' || chr(13)
						) as registros
				) as dados
		),
		''
	) as json_profissionais,
	coalesce
	(
		(
			select
				case when length(dados.registros) = 0 then
					''
				else
					'[' || chr(13) || dados.registros || chr(13) || ']'
				end
			from
				(
					select
						array_to_string
						(
							array
							(
								select
									'	{' || chr(13) ||
									'		cnsParticipante: ' || coalesce(sotech.cdg_paciente.cns, '') || ',' || chr(13) ||
									'		dataNascimento: ' || cast(sotech.cdg_paciente.datanascimento as text) || ',' || chr(13) ||
									'		avaliacaoAlterada: ' || case when sotech.esus_atividadecoletiva_paciente.avaliacao_alterada = true then 'true' else 'false' end || ',' || chr(13) ||
									'		peso: ' || coalesce(cast(sotech.esus_atividadecoletiva_paciente.peso as text), '') || ',' || chr(13) ||
									'		altura: ' || coalesce(cast(sotech.esus_atividadecoletiva_paciente.altura as text), '') || ',' || chr(13) ||
									'		cessouHabitoFumar: ' || case when sotech.esus_atividadecoletiva_paciente.cessou_habito_fumar = true then 'true' else 'false' end || ',' || chr(13) ||
									'		abandonouGrupo: ' || case when sotech.esus_atividadecoletiva_paciente.abandonou_grupo = true then 'true' else 'false' end || ',' || chr(13) ||
									'		sexo: ' || coalesce(sotech.tbl_sexo.codtabela, '') || chr(13) ||
									'	}'
								from
													sotech.esus_atividadecoletiva_paciente
									left	join		sotech.cdg_paciente	on	sotech.cdg_paciente.pkpaciente = sotech.esus_atividadecoletiva_paciente.fkpaciente
									left	join			sotech.tbl_sexo	on	sotech.tbl_sexo.pksexo = sotech.cdg_paciente.fksexo
								where
									sotech.esus_atividadecoletiva_paciente.fkatividadecoletiva = sotech.esus_atividadecoletiva.pkatividadecoletiva
							),
							',' || chr(13)
						) as registros
				) as dados
		),
		''
	) as json_pacientes,
	array_to_string
	(
		array
		(
			select
				sotech.esus_tabela.codtabela
			from
								sotech.esus_atividadecoletiva_temareuniao
				inner	join		sotech.esus_tabela	on	sotech.esus_tabela.pktabela = sotech.esus_atividadecoletiva_temareuniao.fktemareuniao
			where
				sotech.esus_atividadecoletiva_temareuniao.fkatividadecoletiva = sotech.esus_atividadecoletiva.pkatividadecoletiva
		),
		';'
	) as temas_reuniao,
	array_to_string
	(
		array
		(
			select
				sotech.esus_tabela.codtabela
			from
						sotech.esus_atividadecoletiva_publicoalvo
				inner	join		sotech.esus_tabela	on	sotech.esus_tabela.pktabela = sotech.esus_atividadecoletiva_publicoalvo.fkpublicoalvo
			where
				sotech.esus_atividadecoletiva_publicoalvo.fkatividadecoletiva = sotech.esus_atividadecoletiva.pkatividadecoletiva
		),
		';'
	) as publico_alvo,
	array_to_string
	(
		array
		(
			select
				sotech.esus_tabela.codtabela
			from
						sotech.esus_atividadecoletiva_temasaude
				inner join		sotech.esus_tabela	on	sotech.esus_tabela.pktabela = sotech.esus_atividadecoletiva_temasaude.fktemasaude
			where
				sotech.esus_atividadecoletiva_temasaude.fkatividadecoletiva	= sotech.esus_atividadecoletiva.pkatividadecoletiva
		),
		';'
	) as temas_saude,
	array_to_string
	(
		array
		(
			select
				sotech.esus_tabela.codtabela
			from	sotech.esus_atividadecoletiva_praticasaude
				inner join		sotech.esus_tabela	on	sotech.esus_tabela.pktabela = sotech.esus_atividadecoletiva_praticasaude.fkpraticasaude
			where
				sotech.esus_atividadecoletiva_praticasaude.fkatividadecoletiva = sotech.esus_atividadecoletiva.pkatividadecoletiva
		),
		';'
	) as praticas_saude
from
					sotech.esus_atividadecoletiva
	left	join		sotech.esus_inep							on	sotech.esus_inep.pkinep = sotech.esus_atividadecoletiva.fkinep
	left	join		sotech.esus_tabela as tipoatividade			on	tipoatividade.pktabela = sotech.esus_atividadecoletiva.fktipoatividade
	left 	join		sotech.cdx_unidadesaude cnslocalatividade 	on 	cnslocalatividade.fkunidadesaude = sotech.esus_atividadecoletiva.fkunidadesaudelocalidade
	left	join		sotech.esus_atividadecoletiva_praticasaude 	on 	sotech.esus_atividadecoletiva_praticasaude.fkatividadecoletiva = sotech.esus_atividadecoletiva.pkatividadecoletiva
	left 	join		sotech.tbn_procedimento						on	sotech.tbn_procedimento.pkprocedimento = sotech.esus_atividadecoletiva_praticasaude.fkprocedimento
	inner 	join		sotech.cdg_interveniente					on 	sotech.cdg_interveniente.pkinterveniente = sotech.esus_atividadecoletiva.fkprofissional


	left 	join		sotech.esus_lotacao as lotacao				on	lotacao.fkprofissional = sotech.esus_atividadecoletiva.fkprofissional
	left 	join		sotech.tbn_cbo								on	sotech.tbn_cbo.pkcbo	= lotacao.fkcbo
	left	join		sotech.esus_equipe as equipe				on	equipe.pkequipe = lotacao.fkequipe
	inner	join		sotech.cdg_unidadesaude						on	sotech.cdg_unidadesaude.pkunidadesaude = sotech.esus_atividadecoletiva.fkunidadesaude
	inner 	join		sotech.cdx_unidadesaude	cnesprofissional	on	cnesprofissional.fkunidadesaude	=	sotech.cdg_unidadesaude.pkunidadesaude
	left	join		sotech.tbn_municipio as municipio			on	municipio.pkmunicipio = sotech.cdg_unidadesaude.fkcidade




	where
		1 = 1
	--and	sotech.esus_atividadecoletiva.pkatividadecoletiva = :p_atividadecoletiva