valida.php

<?php
// vim: set expandtab tabstop=4 shiftwidth=4 foldmethod=marker fileencoding=utf-8 :
/**
 * Realiza validaciones a datos de base
 *
 * PHP version 5
 *
 * @category  SIVeL
 * @package   SIVeL
 * @author    Vladimir Támara <vtamara@pasosdeJesus.org>
 * @copyright 2010 Dominio público. Sin garantías.
 * @license   https://www.pasosdejesus.org/dominio_publico_colombia.html Dominio Público. Sin garantías
 * @link      http://sivel.sf.net
 */

/**
 * Realiza validaciones a datos de base
 */
require_once "aut.php";
require_once $_SESSION['dirsitio'] . '/conf.php';
require_once $_SESSION['dirsitio'] . '/conf_int.php';
require_once "confv.php";
require_once "misc.php";

$aut_usuario = "";
$db = autentica_usuario($dsn, $aut_usuario, 64);

$t = _("Reporte de consistencia del") ." " . @date("Y-m-d H:m");
encabezado_envia($t);
echo '<table width="100%"><td style="white-space: ' .
    ' nowrap; background-color: #CCCCCC;" align="left" ' .
    ' valign="top" colspan="2"><b><div align=center>' . $t;
echo '</div></b></td></table>';

res_valida(
    $db, _("Casos con memo vacio"),
    "SELECT id, fecha FROM caso WHERE LENGTH(TRIM(memo)) < 30 ORDER BY fecha", true
);

res_valida(
    $db, _("Casos con fecha de otras fuentes anterior a la del caso"),
    "SELECT caso.id, caso.fecha, fotra.nombre
    FROM caso_fotra, caso, fotra
    WHERE caso_fotra.id_caso = caso.id
    AND caso_fotra.id_fotra = fotra.id
    AND caso_fotra.fecha < caso.fecha order by fecha", 
    true
);

res_valida(
    $db, _("Casos con fecha de fuente frecuente anterior a la del caso"),
    "SELECT caso.id, caso.fecha, ffrecuente.nombre
    FROM caso_ffrecuente, ffrecuente, caso
    WHERE caso_ffrecuente.id_caso = caso.id
    AND caso_ffrecuente.id_ffrecuente = ffrecuente.id
    AND caso_ffrecuente.fecha < caso.fecha
    ORDER BY fecha",
    true
);

hace_consulta($db, "DROP VIEW y", false, false);
hace_consulta(
    $db, "CREATE VIEW y AS SELECT caso.id, " .
    " min(caso_usuario.fechainicio) " .
    " FROM caso_usuario, caso " .
    " WHERE caso.id>'35000' AND caso.id=caso_usuario.id_caso " .
    " GROUP BY caso.id order by caso.id"
);
res_valida(
    $db, _("Casos con fecha inicial de usuario anterior a la del caso"),
    "SELECT y.id, caso.fecha, y.min as fecha_usuario, usuario.nusuario
    FROM y, caso, caso_usuario, usuario
    WHERE y.id = caso.id AND y.min < caso.fecha
    AND caso_usuario.id_caso = caso.id
    AND caso_usuario.fechainicio = y.min
    AND caso_usuario.id_usuario = usuario.id;"
);

res_valida(
    $db, _("Casos sin usuario"),
    "SELECT caso.id, caso.fecha FROM caso
    WHERE NOT EXISTS (SELECT id_caso FROM caso_usuario WHERE id_caso=caso.id) ORDER BY 2;"
);

res_valida(
    $db,
    _("Casos que no tienen una sóla ubicación (mal en conteos)"),
    "SELECT id, fecha, c from (SELECT caso.id, caso.fecha, 
    count(ubicacion.id) AS c
    FROM caso, ubicacion WHERE caso.id = ubicacion.id_caso
    GROUP BY caso.id order by 3 desc, 2) AS f WHERE c <> 1", true
);


res_valida(
    $db, _("Víctimas con categorias que no son para víctimas individuales"),
    "SELECT acto.id_caso AS id, caso.fecha, acto.id_categoria, acto.id_persona,
    persona.nombres || ' ' || persona.apellidos
    FROM acto, caso, persona
    WHERE acto.id_caso=caso.id 
    AND persona.id = acto.id_persona 
    AND NOT EXISTS (SELECT id FROM categoria WHERE tipocat = 'I' AND id=id_categoria)
    ORDER BY caso.fecha", true
);


res_valida(
    $db,
    _("Víctimas colectivas con categorias que no son para víctimas colectivas"),
    "SELECT actocolectivo.id_caso AS id, caso.fecha, actocolectivo.id_categoria, 
        grupoper.nombre
    FROM actocolectivo, grupoper, caso
    WHERE grupoper.id = actocolectivo.id_grupoper
    AND actocolectivo.id_caso=caso.id
    AND NOT EXISTS (SELECT id FROM categoria WHERE tipocat = 'C' and id=id_categoria)
    ORDER BY caso.fecha", true
);

res_valida(
    $db, _("Registros en victima individual sin acto de violencia"),
    "SELECT id_caso AS id, caso.fecha, id_persona, 
        persona.nombres || ' ' || persona.apellidos
    FROM victima JOIN caso ON id_caso=caso.id 
        JOIN persona ON id_persona=persona.id
    WHERE NOT EXISTS (SELECT id_persona FROM acto WHERE id_persona=persona.id)
    ORDER BY caso.fecha", true
);


res_valida(
    $db, _("Registros en victima colectiva pero que no tienen acto colectivo"),
    "SELECT id_caso AS id, caso.fecha, id_grupoper, grupoper.nombre
    FROM victimacolectiva JOIN caso ON id_caso=caso.id 
        JOIN grupoper ON id_grupoper=grupoper.id
    WHERE NOT EXISTS (SELECT id_grupoper FROM actocolectivo 
        WHERE id_grupoper=grupoper.id)
    ORDER BY caso.fecha", true
);

res_valida(
    $db, _("Nombres muy cortos"),
    "SELECT id_caso AS id, caso.fecha, nombres FROM victima 
        JOIN caso ON victima.id_caso=caso.id
        JOIN persona ON victima.id_persona=persona.id 
    WHERE length(nombres) <= 2
    AND nombres<>'N'
    ORDER BY caso.fecha", true
);
res_valida(
    $db, _("Apellidos muy cortos"),
    "SELECT id_caso AS id, caso.fecha, apellidos FROM victima 
        JOIN caso ON victima.id_caso=caso.id
        JOIN persona ON victima.id_persona=persona.id 
    WHERE length(apellidos) <= 2
    AND apellidos<>''
    AND apellidos<>'N'
    ORDER BY caso.fecha", true
);

hace_consulta($db, "REFRESH MATERIALIZED VIEW nmujeres");
echo "Refrescados nombres de mujeres<br>";

hace_consulta($db, "REFRESH MATERIALIZED VIEW nhombres");
echo "Refrescados nombres de hombres<br>";

hace_consulta($db, "REFRESH MATERIALIZED VIEW napellidos");
echo "Refrescados apellidos<br>";

res_valida(
    $db, _("Nombres de personas con sexo de nacimiento femenino 
    que parecen de hombre ingresados hace 
    ${GLOBALS['anios_valida_sexo']} año(s)"),
    "SELECT victima.id_caso AS id, caso.fecha,nombres, probmujer(nombres) AS pmujer, 
        probhombre(nombres) AS phombre 
    FROM victima
        JOIN caso ON victima.id_caso=caso.id
        JOIN persona ON victima.id_persona=persona.id
        JOIN iniciador ON victima.id_caso=iniciador.id_caso
    WHERE iniciador.fecha_inicio>=(current_date - 
    interval '${GLOBALS['anios_valida_sexo']} year')
    AND sexo='F' 
    AND probhombre(nombres)>probmujer(nombres)
    AND nombres<>'N'
    ORDER BY caso.fecha", true
);

res_valida(
    $db, _("Nombres de personas con sexo de nacimiento masculino 
    que parecen de mujer ingresados hace
    ${GLOBALS['anios_valida_sexo']} año(s)"),
    "SELECT victima.id_caso AS id, caso.fecha, nombres, 
        probhombre(nombres) AS phombre, 
        probmujer(nombres) AS pmujer 
    FROM victima
        JOIN caso ON victima.id_caso=caso.id
        JOIN persona ON victima.id_persona=persona.id
        JOIN iniciador ON victima.id_caso=iniciador.id_caso
    WHERE iniciador.fecha_inicio>=(current_date -
    interval '${GLOBALS['anios_valida_sexo']} year')
    AND sexo='F' 
    AND sexo='M' 
    AND probhombre(nombres)<probmujer(nombres)
    AND nombres<>'N'
    ORDER BY caso.fecha", true
);

res_valida(
    $db, _("Nombres de personas con sexo de nacimiento SIN INFORMACIÓN 
    que parecen de mujer ingresados hace
    ${GLOBALS['anios_valida_sexo']} año(s)"),
    "SELECT victima.id_caso AS id, caso.fecha, nombres, persona.id AS persona_id,
        probhombre(nombres) AS phombre, 
        probmujer(nombres) AS pmujer 
    FROM victima
        JOIN caso ON victima.id_caso=caso.id
        JOIN persona ON victima.id_persona=persona.id
        JOIN iniciador ON victima.id_caso=iniciador.id_caso
    WHERE iniciador.fecha_inicio>=(current_date - 
    interval '${GLOBALS['anios_valida_sexo']} year')
    AND sexo='S' 
    AND probhombre(nombres)<probmujer(nombres)
    AND nombres<>'N'
    AND nombres<>'N.'
    AND nombres<>'PERSONA SIN IDENTIFICAR'
    ORDER BY caso.fecha", true
);

res_valida(
    $db, _("Nombres de personas con sexo de nacimiento SIN INFORMACIÓN 
    que parecen de hombre ingresados hace
    ${GLOBALS['anios_valida_sexo']} año(s)"),
    "SELECT victima.id_caso AS id, caso.fecha, nombres, persona.id AS persona_id, 
        probhombre(nombres) AS phombre, 
        probmujer(nombres) AS pmujer 
    FROM victima
        JOIN caso ON victima.id_caso=caso.id
        JOIN persona ON victima.id_persona=persona.id
        JOIN iniciador ON victima.id_caso=iniciador.id_caso
    WHERE iniciador.fecha_inicio>=(current_date - 
    interval '${GLOBALS['anios_valida_sexo']} year')
    AND sexo='S' 
    AND probhombre(nombres)>probmujer(nombres)
    AND nombres<>'N'
    AND nombres<>'N.'
    AND nombres<>'PERSONA SIN IDENTIFICAR'
    ORDER BY caso.fecha", true
);


res_valida(
    $db, _("Nombres con sexo SIN INFORMACIÓN que podría deducirse
    hace ${GLOBALS['anios_valida_sexo']} año(s)"),
    "SELECT victima.id_caso AS id, caso.fecha, nombres, persona.id AS persona_id, 
        probhombre(nombres) AS phombre, 
        probmujer(nombres) AS pmujer 
    FROM victima
        JOIN caso ON victima.id_caso=caso.id
        JOIN persona ON victima.id_persona=persona.id
        JOIN iniciador ON victima.id_caso=iniciador.id_caso
    WHERE iniciador.fecha_inicio>=(current_date -
    	interval '${GLOBALS['anios_valida_sexo']} year')
    AND sexo='S' 
    AND probhombre(nombres)=probmujer(nombres)
    AND nombres<>'N'
    AND nombres<>'N.'
    AND nombres<>'PERSONA SIN IDENTIFICAR'
    ORDER BY caso.fecha", true
);

res_valida(
    $db, _("Nombres de mujeres que parecen apellidos 
    hace ${GLOBALS['anios_valida_sexo']} año(s)"),
    "SELECT victima.id_caso AS id, caso.fecha, nombres, persona.id AS persona_id, 
        probmujer(nombres) AS pmujer, 
        probapellido(nombres) AS papellidos 
    FROM victima
        JOIN caso ON victima.id_caso=caso.id
        JOIN persona ON victima.id_persona=persona.id
        JOIN iniciador ON victima.id_caso=iniciador.id_caso
    WHERE iniciador.fecha_inicio>=(current_date -
    	interval '${GLOBALS['anios_valida_sexo']} year')
    AND sexo='F' 
    AND probapellido(nombres)>probmujer(nombres)
    AND nombres<>'N' 
    ORDER BY caso.fecha", true
);

res_valida(
    $db, _("Nombres de hombres que parecen apellidos 
    hace ${GLOBALS['anios_valida_sexo']} año(s)"),
    "SELECT victima.id_caso AS id, caso.fecha, nombres, persona.id AS persona_id,
    probhombre(nombres) AS phombre, 
    probapellido(nombres) AS papellidos 
    FROM victima
        JOIN caso ON victima.id_caso=caso.id
        JOIN persona ON victima.id_persona=persona.id
        JOIN iniciador ON victima.id_caso=iniciador.id_caso
    WHERE iniciador.fecha_inicio>=(current_date -
    	interval '${GLOBALS['anios_valida_sexo']} year')
    AND sexo='M' 
    AND probapellido(nombres)>probhombre(nombres)
    AND nombres<>'N'
    ORDER BY caso.fecha", true
);

foreach ($GLOBALS['validaciones_tipicas'] as $desc => $sql) {
    res_valida($db, _("Casos") . " " . $desc, $sql);
}


if (isset($GLOBALS['gancho_valida_base'])) {
    foreach ($GLOBALS['gancho_valida_base'] as $k => $f) {
        if (is_callable($f)) {
            call_user_func_array(
                $f,
                array(&$db)
            );
        } else {
            echo_esc(_("Falta") . " $k - $f");
        }
    }
}

res_valida(
    $db, _("Apellidos que parecen nombre de hombre 
    hace ${GLOBALS['anios_valida_sexo']} año(s)"),
    "SELECT victima.id_caso, caso.fecha, apellidos, 
        probhombre(apellidos) AS phombre, 
        probapellido(apellidos) AS papellidos 
    FROM victima
        JOIN caso ON victima.id_caso=caso.id
        JOIN persona ON victima.id_persona=persona.id
        JOIN iniciador ON victima.id_caso=iniciador.id_caso
    WHERE iniciador.fecha_inicio>=(current_date -
    	interval '${GLOBALS['anios_valida_sexo']} year')
    AND probapellido(apellidos)<probhombre(apellidos)
    AND apellidos<>'N' 
    ORDER BY caso.fecha"
);

res_valida(
    $db, _("Apellidos que parecen nombre de mujer 
    hace ${GLOBALS['anios_valida_sexo']} año(s)"),
    "SELECT victima.id_caso, caso.fecha, apellidos, 
        probhombre(apellidos) AS phombre, 
        probapellido(apellidos) AS papellidos 
    FROM victima
        JOIN caso ON victima.id_caso=caso.id
        JOIN persona ON victima.id_persona=persona.id
        JOIN iniciador ON victima.id_caso=iniciador.id_caso
    WHERE iniciador.fecha_inicio>=(current_date -
    	interval '${GLOBALS['anios_valida_sexo']} year')
    AND probapellido(apellidos)<probmujer(apellidos)
    AND apellidos<>'N'
    ORDER BY caso.fecha"
);


echo '<table width="100%">
    <td style = "white-space: nowrap; background-color: #CCCCCC;"
    align = "left" valign="top" colspan="2"><b><div align=right>
    <a href = "index.php">' . _('Men&uacute; Principal') .
    '</a></div></b></td></table>';
pie_envia();
?>