SET @OLD_UNIQUE_CHECKS=@@UNIQUE_CHECKS, UNIQUE_CHECKS=0;
SET @OLD_FOREIGN_KEY_CHECKS=@@FOREIGN_KEY_CHECKS, FOREIGN_KEY_CHECKS=0;
SET @OLD_SQL_MODE=@@SQL_MODE, SQL_MODE='TRADITIONAL';
USE `bdaplisysemdisalud` ;
-- -----------------------------------------------------
-- procedure CargarAmbito
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `CargarAmbito`()
BEGIN
SELECT 
  `codambito`,
  `descripcion`,
  `fechaultimamodificacion`,
  `estado`
FROM 
  `tblambito` WHERE Estado='A';
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure CargarIPS
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `CargarIPS`(
        IN P_Cliente VARCHAR(2)
    )
BEGIN
SELECT  CONVERT(tblips.ID,char) AS ID,tblips.nitips ,CONCAT(tblMunicipios.NOMBREMUNICIPIO, ' ', tblips.NOMBREIPS ) AS IPSMUNICIPIO,CONVERT(tblips.codips,char) AS codips
FROM(tblips)
INNER JOIN tblmunicipios ON ( tblips.codmunicipio = tblmunicipios.codmunicipio )
INNER JOIN tbldepartamentos ON ( tblmunicipios.coddepartamento = tbldepartamentos.codigodepartamento )  
AND ( tblips.coddepartamento = tbldepartamentos.codigodepartamento) 
WHERE tblips.estado = 'A' AND tblips.codcliente=P_Cliente ORDER BY NombreIPS ;
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure CargarRegimen
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `CargarRegimen`()
BEGIN
SELECT 
  `codregimen`,
  `sigla`,
  `descripcion`,
  `fechaultimamodificacion`,
  `estado`
FROM 
  `tblregimenes` WHERE Estado='A';
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure CargarSucursales
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `CargarSucursales`(
        IN P_Cliente VARCHAR(2)
    )
BEGIN
SELECT 
  `CodSucursal`,
  `NombSucursal`,
  `DescSucursal`,
  `CodCliente`,
  `FechaUltimaModificacion`,
  `Estado`,
  `CampoValidacion`,
  `CodValidacion`,
  `CodDepartamento`,
  `Direccion`,
  `CodMunicipio`
FROM 
  `tblsucursales` WHERE Estado='A' AND CodCliente=P_Cliente;
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure Ejecutar_SAG
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `Ejecutar_SAG`(
        IN P_Cliente INTEGER(11)
    )
BEGIN
SET SESSION group_concat_max_len = 1000000;
SET @CodCliente:=P_Cliente;
SELECT HIGH_PRIORITY
  tblips.nombreips AS NOMBRE_IPS,
  tblips.nitips AS NIT_IPS,
  tblips.codips AS COD_IPS,
  tbldepartamentos.nombredepartamento AS DEPARTAMENTO_IPS,
  tblmunicipios.nombremunicipio AS MUNICIPIO_IPS,
  tblconsultaglosas1.CodGlosa AS COD_GLOSA,  
  tblconsultaglosas1.Fecha_Glosa AS FECHA_GLOSA,
  DATEDIFF(CURDATE(), tblconsultaglosas1.Fecha_Glosa) AS DIASGLOSA,
  tblconsultaglosas1.Factura AS FACTURA,
  tblconsultaglosas1.Subfactura AS SUBFACTURA,
  tblconsultaglosas1.ValorFactura AS VALOR_FACTURA,
  CONVERT(CONCAT('0'),char) AS NOTA_CREDITO,
  CONVERT(CONCAT('0'),char) AS COPAGO,
  CONVERT(tblconsultaglosas1.Valor_Glosa,char) AS VALOR_GLOSA,
  tblconsultaglosas1.Fecha_Rta AS FECHA_RESPUESTA,
  tblconsultaglosas1.ValorAceptaAUD_Rta AS VALOR_ACP_AUD_RTA,
  tblconsultaglosas1.ValorAceptaIPS_Rta AS VALOR_ACP_IPS_RTA,
  tblconsultaglosas1.ValorPendiente_Rta AS VALOR_PENDIENTE_RTA,
  tblconsultaglosas1.Fecha_Con AS FECHA_CONCILIACION,
  tblconsultaglosas1.ValorAceptaAUD_Con AS VALOR_ACP_AUD_CON,
  tblconsultaglosas1.ValorAceptaIPS_Con AS VALOR_ACP_IPS_CON,
  tblconsultaglosas1.ValorPendiente_Con AS VALOR_PENDIENTE_CON,
  tblconsultaglosas1.ValorNoAcuerdo AS VALOR_NO_ACUERDO,
  IF( tblconsultaglosas1.Modalidad='1','Evento','Capitacion') AS MODALIDAD,  
  tblconsultaglosas1.Destino AS DESTINO, 
  CONVERT(tblconsultaglosas1.CodUsuario,char) AS COD_USUARIO,
  CONCAT('AP1') AS USUARIO_GLOSO,
  tbldepartamentos1.nombredepartamento AS DPTO_AFI,
  tblmunicipios1.nombremunicipio AS MPIO_AFI,
  tblmunicipios1.coddepartamento AS COD_DPTO_AFI,
  tblmunicipios1.codmunicipio AS COD_MPIO_AFI,
  CONCAT('0') AS CENTRO_COSTO,
  CONVERT(CONCAT('0'),char) AS G_MEDICA,
  CONVERT(CONCAT('0'),char) AS G_ADMIN,
  CONCAT('0') AS MOTIVO_GENERAL,
  CONCAT('0') AS MOTIVO_ESPECIFICO,
  CONCAT('0') AS DETALLE_GLOSA,
  REPLACE(tblconsultaglosas1.Descripcion,'\n','||') AS DESCRIPCION
FROM
  tblips
  RIGHT OUTER JOIN tblconsultaglosas1 ON (tblips.codips = tblconsultaglosas1.IPS)
  INNER JOIN tblmunicipios ON (tblmunicipios.coddepartamento = tblips.coddepartamento)
  AND (tblmunicipios.codmunicipio = tblips.codmunicipio)
  INNER JOIN tblmunicipios tblmunicipios1 ON (tblmunicipios1.codmunicipio = tblconsultaglosas1.Municipio)
  AND (tblmunicipios1.coddepartamento = tblconsultaglosas1.Departamento)
  INNER JOIN tbldepartamentos tbldepartamentos1 ON (tblmunicipios1.coddepartamento = tbldepartamentos1.codigodepartamento)
  INNER JOIN tbldepartamentos ON (tblmunicipios.coddepartamento = tbldepartamentos.codigodepartamento)  
  GROUP BY  tblconsultaglosas1.CodGlosa
UNION ALL
SELECT 
tblips.nombreips AS NOMBRE_IPS,
tblips.nitips AS NIT_IPS,
tblips.codips AS COD_IPS,
tbldepartamentos.nombredepartamento AS DEPARTAMENTO_IPS,
tblmunicipios.nombremunicipio AS MUNICIPIO_IPS,
tblconsultaglosas.CodGlosa AS COD_GLOSA,
tblconsultaglosas.Fecha_Glosa AS FECHA_GLOSA,
DATEDIFF(CURDATE(), tblconsultaglosas.Fecha_Glosa) AS DIAS_GLOSA,
tblfacturarecepcionadasevento.NroFacturaGeneral AS FACTURA,
tblfacturarecepcionadasevento.NroFacturaGeneral AS SUBFACTURA,
tblfacturarecepcionadasevento.ValorFacturaGeneral AS VALOR_FACTURA,
tblfacturarecepcionadasevento.ValorNotaCreditoFacturaGeneral AS NOTA_CREDITO,
tblfacturarecepcionadasevento.ValorCopagoFacturaGeneral AS COPAGO,
CONVERT(tblconsultaglosas.Valor_Glosa,char) AS VALOR_GLOSA,
tblconsultaglosas.Fecha_Rta AS FECHA_RESPUESTA,
tblconsultaglosas.ValorAceptaAUD_Rta AS VALOR_ACP_AUD_RTA,
tblconsultaglosas.ValorAceptaIPS_Rta AS VALOR_ACP_IPS_RTA,
tblconsultaglosas.ValorPendiente_Rta AS VALOR_PENDIENTE_RTA,
tblconsultaglosas.Fecha_Con AS FECHA_CONCILIACION,
tblconsultaglosas.ValorAceptaAUD_Con AS VALOR_ACP_AUD_CON,
tblconsultaglosas.ValorAceptaIPS_Con AS VALOR_ACP_IPS_CON,
tblconsultaglosas.ValorPendiente_Con AS VALOR_PENDIENTE,
tblconsultaglosas.ValorNoAcuerdo AS VALOR_NO_ACUERDO,
CONCAT('Evento') AS MODALIDAD,
tblconsultaglosas.Destino AS DESTINO,
CONVERT(tblusuarios.autousuario,char) AS COD_USUARIO,
(SELECT CONCAT_WS(' ',primernombre,segundonombre,primerapellido,segundoapellido) FROM tblusuarios WHERE codusuario=tblconsultaglosas.CodUsuario LIMIT 1) AS USUARIO_GLOSO,
tbldepartamentos1.nombredepartamento AS DPTO_AFI,
tblmunicipios1.nombremunicipio AS MPIO_AFI,
tbldepartamentos1.codigodepartamento AS COD_DPTO_AFI,
tblmunicipios1.codmunicipio AS COD_MPIO_AFI,
GROUP_CONCAT(DISTINCT  tblcentrosdecosto.nombre) AS CENTRO_COSTO,
CONVERT((SELECT SUM(B.valorglosa) AS G_Medica FROM tblcentrodecostosglosa B INNER JOIN tblconsultaglosas A ON (B.CodGlosa = A.codglosa) INNER JOIN tbl3047tipoyclase C ON (B.CodMotivoEspecifico = C.codigoespecifico) AND (B.CodMotivoGeneral = C.codigogeneral) WHERE C.clase = 'MEDICA' AND tblconsultaglosas.codglosa = A.codglosa),char) AS G_MEDICA,
CONVERT((SELECT SUM(B.valorglosa) AS G_Medica FROM tblcentrodecostosglosa B INNER JOIN tblconsultaglosas A ON (B.CodGlosa = A.codglosa) INNER JOIN tbl3047tipoyclase C ON (B.CodMotivoEspecifico = C.codigoespecifico) AND (B.CodMotivoGeneral = C.codigogeneral) WHERE C.clase = 'ADMINISTRATIVA' AND tblconsultaglosas.codglosa = A.codglosa),char) AS G_ADMIN,
GROUP_CONCAT(DISTINCT tbl3047general.ConcepoGeneral) AS MOTIVO_GENERAL,
GROUP_CONCAT(DISTINCT tbl3047especifica.ConceptoEspecifico) AS MOTIVO_ESPECIFICO,
REPLACE(GROUP_CONCAT(DISTINCT tblcentrodecostosglosa.DetalleGlosa),'\n','||') AS DETALLE_GLOSA,
REPLACE(tblconsultaglosas.Descripcion,'\n','||') AS DESCRIPCION 
FROM
tblfacturarecepcionadasevento
INNER JOIN tblradicacion ON (tblfacturarecepcionadasevento.NroRecepcion =tblradicacion.codrecepcion)AND (tblfacturarecepcionadasevento.NroFacturaGeneral = tblradicacion.codfactura)
INNER JOIN tblconsultaglosas ON (tblradicacion.codradicacion = tblconsultaglosas.CodRadicacion)
INNER JOIN tblcentrodecostosglosa ON (tblconsultaglosas.CodGlosa = tblcentrodecostosglosa.CodGlosa)
INNER JOIN tblrelacion3047 ON (tblrelacion3047.CodigoGeneral = tblcentrodecostosglosa.CodMotivoGeneral)
AND (tblrelacion3047.CodigoEspecifico = tblcentrodecostosglosa.CodMotivoEspecifico)
INNER JOIN tbl3047especifica ON (tbl3047especifica.CodigoEspecifico = tblrelacion3047.CodigoEspecifico)
INNER JOIN tbl3047general ON (tblrelacion3047.CodigoGeneral = tbl3047general.CodigoGeneral)
INNER JOIN tblips ON (tblfacturarecepcionadasevento.CodIps = tblips.codips)
AND (tblfacturarecepcionadasevento.CodCliente = tblips.codcliente)
INNER JOIN tblmunicipios ON (tblmunicipios.coddepartamento = tblips.coddepartamento)
AND (tblmunicipios.codmunicipio = tblips.codmunicipio)
INNER JOIN tblcooafiliados ON (tblfacturarecepcionadasevento.NroCarnetFacturaGeneral = tblcooafiliados.nrocarnet)
INNER JOIN tblmunicipios tblmunicipios1 ON (tblmunicipios1.codmunicipio = tblcooafiliados.codmunicipio)
AND (tblmunicipios1.coddepartamento = tblcooafiliados.coddepartamento)
INNER JOIN tbldepartamentos tbldepartamentos1 ON (tblmunicipios1.coddepartamento = tbldepartamentos1.codigodepartamento)
INNER JOIN tbldepartamentos ON (tbldepartamentos.codigodepartamento = tblmunicipios.coddepartamento)
INNER JOIN tblcentrosdecosto ON (tblcentrodecostosglosa.CodCentroCostos = tblcentrosdecosto.idcentrocosto)
INNER JOIN tblusuarios ON (tblconsultaglosas.CodUsuario = tblusuarios.codusuario)
WHERE
tblfacturarecepcionadasevento.CodCliente = @CodCliente AND 
tblfacturarecepcionadasevento.Subfactura = 'No' 
GROUP BY
tblconsultaglosas.CodGlosa
UNION ALL
SELECT 
tblips.nombreips AS NOMBRE_IPS,
tblips.nitips AS NIT_IPS,
tblips.codips AS COD_IPS,
tbldepartamentos.nombredepartamento AS DEPARTAMENTO_IPS,
tblmunicipios.nombremunicipio AS MUNICIPIO_IPS,
tblconsultaglosas.CodGlosa AS COD_GLOSA,
tblconsultaglosas.Fecha_Glosa AS FECHA_GLOSA,
DATEDIFF(CURDATE(), tblconsultaglosas.Fecha_Glosa) AS DIAS_GLOSA,
tblfacturarecepcionadasevento.NroFacturaGeneral AS FACTURA,
tblsubfacturarecepcionada.NroSubfactura AS SUBFACTURA,
tblsubfacturarecepcionada.ValorSubfactura AS VALOR_FACTURA,
tblsubfacturarecepcionada.ValorNotaCreditoSubfactura AS NOTA_CREDITO,
tblsubfacturarecepcionada.ValorCopagoSubfactura AS COPAGO,
CONVERT(tblconsultaglosas.Valor_Glosa,char) AS VALOR_GLOSA,
tblconsultaglosas.Fecha_Rta AS FECHA_RTA,
tblconsultaglosas.ValorAceptaAUD_Rta AS VALOR_ACP_AUD_RTA,
tblconsultaglosas.ValorAceptaIPS_Rta AS VALOR_ACP_IPS_RTA,
tblconsultaglosas.ValorPendiente_Rta AS VALOR_PENDIENTE_RTA,
tblconsultaglosas.Fecha_Con AS FECHA_CONCILIACION,
tblconsultaglosas.ValorAceptaAUD_Con AS VALOR_ACP_AUD_CON,
tblconsultaglosas.ValorAceptaIPS_Con AS VALOR_ACP_IPS_CON,
tblconsultaglosas.ValorPendiente_Con AS VALOR_PENDIENTE_CON,
tblconsultaglosas.ValorNoAcuerdo AS VALOR_NO_ACUERDO,
CONCAT('Evento') AS MODALIDAD,
tblconsultaglosas.Destino AS DESTINO,
CONVERT(tblusuarios.autousuario,char) AS COD_USUARIO,
(SELECT CONCAT_WS(' ',primernombre,segundonombre,primerapellido,segundoapellido) FROM tblusuarios WHERE codusuario=tblconsultaglosas.CodUsuario LIMIT 1) AS USUARIO_GLOSO,
tbldepartamentos1.nombredepartamento AS DPTO_AFI,
tblmunicipios1.nombremunicipio AS MPIO_AFI,
tbldepartamentos1.codigodepartamento AS COD_DPTO_AFI,
tblmunicipios1.codmunicipio AS COD_MPIO_AFI,
GROUP_CONCAT(DISTINCT tblcentrosdecosto.nombre) AS CENTRO_COSTO,
CONVERT((SELECT SUM(B.valorglosa) AS G_Medica FROM tblcentrodecostosglosa B INNER JOIN tblconsultaglosas A ON (B.CodGlosa = A.codglosa) INNER JOIN tbl3047tipoyclase C ON (B.CodMotivoEspecifico = C.codigoespecifico) AND (B.CodMotivoGeneral = C.codigogeneral) WHERE C.clase = 'MEDICA' AND tblconsultaglosas.codglosa = A.codglosa),char) AS G_MEDICA,
CONVERT((SELECT SUM(B.valorglosa) AS G_Medica FROM tblcentrodecostosglosa B INNER JOIN tblconsultaglosas A ON (B.CodGlosa = A.codglosa) INNER JOIN tbl3047tipoyclase C ON (B.CodMotivoEspecifico = C.codigoespecifico) AND (B.CodMotivoGeneral = C.codigogeneral) WHERE C.clase = 'ADMINISTRATIVA' AND tblconsultaglosas.codglosa = A.codglosa),char) AS G_ADMIN,
GROUP_CONCAT(DISTINCT tbl3047general.ConcepoGeneral) AS MOTIVO_GENERAL,
GROUP_CONCAT(DISTINCT tbl3047especifica.ConceptoEspecifico) AS MOTIVO_ESPECIFICO,
REPLACE(GROUP_CONCAT(DISTINCT tblcentrodecostosglosa.DetalleGlosa),'\n','||') AS DETALLE_GLOSA,
REPLACE(tblconsultaglosas.Descripcion,'\n','||') AS DESCRIPCION 
FROM
tblfacturarecepcionadasevento
INNER JOIN tblsubfacturarecepcionada ON (tblfacturarecepcionadasevento.NroRecepcion = tblsubfacturarecepcionada.NroRecepcion)AND (tblfacturarecepcionadasevento.NroFacturaGeneral = tblsubfacturarecepcionada.NroFacturaGeneral)
INNER JOIN tblips ON (tblfacturarecepcionadasevento.CodIps = tblips.codips)AND (tblfacturarecepcionadasevento.CodCliente = tblips.codcliente)
INNER JOIN tblmunicipios ON (tblmunicipios.coddepartamento = tblips.coddepartamento)AND (tblmunicipios.codmunicipio = tblips.codmunicipio)
INNER JOIN tblcooafiliados ON (tblsubfacturarecepcionada.NroCarnetSubfactura = tblcooafiliados.nrocarnet)
INNER JOIN tblmunicipios tblmunicipios1 ON (tblmunicipios1.codmunicipio = tblcooafiliados.codmunicipio)AND (tblmunicipios1.coddepartamento = tblcooafiliados.coddepartamento)
INNER JOIN tblradicacion ON (tblfacturarecepcionadasevento.NroRecepcion = tblradicacion.codrecepcion)
AND (tblsubfacturarecepcionada.NroSubfactura = tblradicacion.codsubfactura)
AND (tblsubfacturarecepcionada.NroFacturaGeneral = tblradicacion.codfactura)
INNER JOIN tblconsultaglosas ON (tblradicacion.codradicacion = tblconsultaglosas.CodRadicacion)
INNER JOIN tblcentrodecostosglosa ON (tblconsultaglosas.CodGlosa = tblcentrodecostosglosa.CodGlosa)
INNER JOIN tblcentrosdecosto ON (tblcentrodecostosglosa.CodCentroCostos = tblcentrosdecosto.idcentrocosto)
INNER JOIN tblrelacion3047 ON (tblrelacion3047.CodigoEspecifico = tblcentrodecostosglosa.CodMotivoEspecifico)
AND (tblrelacion3047.CodigoGeneral = tblcentrodecostosglosa.CodMotivoGeneral)
INNER JOIN tbl3047especifica ON (tbl3047especifica.CodigoEspecifico = tblrelacion3047.CodigoEspecifico)
INNER JOIN tbl3047general ON (tblrelacion3047.CodigoGeneral = tbl3047general.CodigoGeneral)
INNER JOIN tbldepartamentos tbldepartamentos1 ON (tbldepartamentos1.codigodepartamento = tblmunicipios1.coddepartamento)
INNER JOIN tbldepartamentos ON (tbldepartamentos.codigodepartamento = tblmunicipios.coddepartamento)
INNER JOIN tblusuarios ON (tblconsultaglosas.CodUsuario = tblusuarios.codusuario)
WHERE
tblfacturarecepcionadasevento.CodCliente = @CodCliente AND 
tblfacturarecepcionadasevento.Subfactura = 'Si' 
GROUP BY
tblconsultaglosas.CodGlosa
UNION ALL
SELECT 
tblips.nombreips AS NOMBRE_IPS,
tblips.nitips AS NIT_IPS,
tblips.codips AS COD_IPS,
tbldepartamentos.nombredepartamento AS DEPARTAMENTO_IPS,
tblmunicipios.nombremunicipio AS MUNICIPIO_IPS,
tblconsultaglosas.CodGlosa AS COD_GLOSA,
tblconsultaglosas.Fecha_Glosa AS FECHA_GLOSA,
DATEDIFF(CURDATE(), tblconsultaglosas.Fecha_Glosa) AS DIAS_GLOSA,
tblfacturarecepcionadacapitacion.nrofactura AS FACTURA,
tblfacturarecepcionadacapitacion.nrofactura AS SUBFACTURA,
tblfacturarecepcionadacapitacion.valortotalfactura AS VALOR_FACTURA,
tblfacturarecepcionadacapitacion.ValorNotaCredito AS NOTA_CREDITO,
CONVERT(CONCAT('0'),char) AS COPAGO,
CONVERT(tblconsultaglosas.Valor_Glosa,char) AS VALOR_GLOSA ,
tblconsultaglosas.Fecha_Rta AS FECHA_RTA,
tblconsultaglosas.ValorAceptaAUD_Rta AS VALOR_ACP_AUD_RTA,
tblconsultaglosas.ValorAceptaIPS_Rta AS VALOR_ACP_IPS_RTA,
tblconsultaglosas.ValorPendiente_Rta AS VALOR_PENDIENTE_RTA,
tblconsultaglosas.Fecha_Con AS FECHA_CONCILIACION,
tblconsultaglosas.ValorAceptaAUD_Con AS VALOR_ACP_AUD_CON,
tblconsultaglosas.ValorAceptaIPS_Con AS VALOR_ACP_IPS_CON,
tblconsultaglosas.ValorPendiente_Con AS VALOR_PENDIENTE_CON,
tblconsultaglosas.ValorNoAcuerdo AS VALOR_NO_ACUERDO,
CONCAT('Capitacion') AS MODALIDAD,
tblconsultaglosas.Destino AS DESTINO,
CONVERT(tblusuarios.autousuario,char) AS COD_USUARIO,
(SELECT CONCAT_WS(' ',primernombre,segundonombre,primerapellido,segundoapellido) FROM tblusuarios WHERE codusuario=tblconsultaglosas.CodUsuario LIMIT 1) AS USUARIO_GLOSO,
tbldepartamentos.nombredepartamento AS DPTO_AFI,
tblmunicipios.nombremunicipio AS MPIO_AFI,
tbldepartamentos.codigodepartamento AS COD_DPTO_AFI,
tblmunicipios.codmunicipio AS COD_MPIO_AFI,
GROUP_CONCAT(DISTINCT tblcentrosdecosto.nombre) AS CENTRO_COSTO,
CONVERT((SELECT SUM(B.valorglosa) AS G_Medica FROM tblcentrodecostosglosa B INNER JOIN tblconsultaglosas A ON (B.CodGlosa = A.codglosa) INNER JOIN tbl3047tipoyclase C ON (B.CodMotivoEspecifico = C.codigoespecifico) AND (B.CodMotivoGeneral = C.codigogeneral) WHERE C.clase = 'MEDICA' AND tblconsultaglosas.codglosa = A.codglosa),char) AS G_MEDICA,
CONVERT((SELECT SUM(B.valorglosa) AS G_Medica FROM tblcentrodecostosglosa B INNER JOIN tblconsultaglosas A ON (B.CodGlosa = A.codglosa) INNER JOIN tbl3047tipoyclase C ON (B.CodMotivoEspecifico = C.codigoespecifico) AND (B.CodMotivoGeneral = C.codigogeneral) WHERE C.clase = 'ADMINISTRATIVA' AND tblconsultaglosas.codglosa = A.codglosa),char) AS G_ADMIN,
GROUP_CONCAT(DISTINCT tbl3047general.ConcepoGeneral) AS MOTIVO_GENERAL,
GROUP_CONCAT(DISTINCT tbl3047especifica.ConceptoEspecifico) AS MOTIVO_ESPECIFICO,
REPLACE(GROUP_CONCAT(DISTINCT tblcentrodecostosglosa.DetalleGlosa),'\n','||') AS DETALLE_GLOSA,
REPLACE(tblconsultaglosas.Descripcion,'\n','||') AS DESCRIPCION 
FROM
tblips
INNER JOIN tblfacturarecepcionadacapitacion ON (tblips.codips = tblfacturarecepcionadacapitacion.codips)
AND (tblips.codcliente = tblfacturarecepcionadacapitacion.codcliente)INNER JOIN tblmunicipios ON (tblmunicipios.codmunicipio = tblips.codmunicipio)
AND (tblmunicipios.coddepartamento = tblips.coddepartamento)INNER JOIN 
tblradicacion ON (tblfacturarecepcionadacapitacion.nrorecepcion = tblradicacion.codrecepcion)
INNER JOIN tblconsultaglosas ON (tblradicacion.codradicacion = tblconsultaglosas.CodRadicacion)
INNER JOIN tblusuarios ON (tblconsultaglosas.CodUsuario = tblusuarios.codusuario)
INNER JOIN tblcentrodecostosglosa ON (tblconsultaglosas.CodGlosa = tblcentrodecostosglosa.CodGlosa)
INNER JOIN tblrelacion3047 ON (tblrelacion3047.CodigoGeneral = tblcentrodecostosglosa.CodMotivoGeneral)
AND (tblrelacion3047.CodigoEspecifico = tblcentrodecostosglosa.CodMotivoEspecifico)
INNER JOIN tblcentrosdecosto ON (tblcentrodecostosglosa.CodCentroCostos = tblcentrosdecosto.idcentrocosto)
INNER JOIN tbl3047general ON (tblrelacion3047.CodigoGeneral = tbl3047general.CodigoGeneral)
INNER JOIN tbl3047especifica ON (tblrelacion3047.CodigoEspecifico = tbl3047especifica.CodigoEspecifico)
INNER JOIN tbldepartamentos ON (tbldepartamentos.codigodepartamento = tblmunicipios.coddepartamento)
WHERE
tblfacturarecepcionadacapitacion.CodCliente = @CodCliente 
GROUP BY
tblconsultaglosas.CodGlosa;
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure ExisteUsuario
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `ExisteUsuario`(
        IN P_TipoID VARCHAR(3),
        IN P_NumID VARCHAR(20),
        IN P_NombreUno VARCHAR(20),
        IN P_NombreDos VARCHAR(20),
        IN P_ApellidoUno VARCHAR(20),
        IN P_ApellidoDos VARCHAR(20),
        IN P_Dpto VARCHAR(2),
        IN P_Mpio VARCHAR(3)
    )
BEGIN
SELECT 
  `nrocarnet`,
  `coddepartamento`,
  `codmunicipio`,
  `estado`,
  `tipoid`,
  `idafiliado`,
  `primerapellido`,
  `segundoapellido`,
  `primernombre`,
  `segundonombre`,
  `fechanacimiento`,
  `sexo`,
  `zona`,
  `nivelsisben`,
  `activo`, 
  `codregimen`,
  `fechaafiliacion`,
  `fechainactivo`,
  `fechaactualizacion`,
  `nrocontrato`,
  `fechaultimamodificacion`,
  `bded`,
  `codcliente`,
  `codusuarioagrego`,
  `contratoafi`,
  `EstadoApli`
FROM 
  `tblcooafiliados`
  WHERE ( `idafiliado`=P_NumID) OR ( `primerapellido`=P_ApellidoUno AND `primernombre`=P_NombreUno) ORDER BY estado;
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure GetCodContable
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `GetCodContable`(
        IN P_Centro VARCHAR(2)
    )
BEGIN
SELECT 
  `CodContable`,
  `DescripcionCContable`,
  `IDCentroCosto`,
  `Poliza`,
  `Modalidad`
FROM 
  `tblcodcontable` WHERE IDCentroCosto= P_Centro;
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure GetCodPUC
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `GetCodPUC`(
        IN P_CodPUC VARCHAR(30)
    )
BEGIN
SELECT 
  `idCodContable`,
  `CodContable`,
  `Descripcion`,
  `TipoIPS`,
  `Clasificacion`,
  `Estado`
FROM 
`tblpuc`
WHERE CodContable=P_CodPUC;
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure GetConProceso
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `GetConProceso`(
        IN P_IPS VARCHAR(20),
        IN P_Factura VARCHAR(15),
        IN P_Subfactura VARCHAR(15)
    )
BEGIN
SELECT   NroRecepcion,  CodIps,  NroFacturaGeneral
FROM   tblfacturarecepcionadasevento
WHERE  NroFacturaGeneral=P_Factura AND CodIps=P_IPS
UNION ALL
SELECT nrorecepcion,codips,nrofactura
FROM tblfacturarecepcionadacapitacion
WHERE nrofactura=P_Factura AND codips=P_IPS
UNION ALL
SELECT 
  tblsubfacturarecepcionada.NroRecepcion,
  tblfacturarecepcionadasevento.CodIps,
  tblsubfacturarecepcionada.NroFacturaGeneral
FROM
  tblsubfacturarecepcionada
  INNER JOIN tblfacturarecepcionadasevento ON (tblsubfacturarecepcionada.NroRecepcion = tblfacturarecepcionadasevento.NroRecepcion)
  AND (tblsubfacturarecepcionada.NroFacturaGeneral = tblfacturarecepcionadasevento.NroFacturaGeneral)
WHERE
  tblsubfacturarecepcionada.NroFacturaGeneral=P_Factura AND
  tblsubfacturarecepcionada.NroSubfactura=P_Subfactura AND
  tblfacturarecepcionadasevento.CodIps = P_IPS
  ;
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure IniciarSesion
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `IniciarSesion`(
        IN P_Password VARCHAR(20),
        IN P_User VARCHAR(20)
    )
BEGIN
SELECT autousuario
FROM  tblusuarios
WHERE  tblusuarios.codusuario=P_User AND tblusuarios.password=MD5(P_Password);
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure InsertDigitacion
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `InsertDigitacion`(
        IN P_CodDigitacion VARCHAR(20),
        IN P_CodRadicacion VARCHAR(30),
        IN P_Factura VARCHAR(20),
        IN P_Subfactura VARCHAR(20),
        IN P_Valor DOUBLE,
        IN P_CodDX VARCHAR(10),
        IN P_CodCUPS VARCHAR(10),
        IN P_NoCre DOUBLE,
        IN P_Copago DOUBLE,
        IN P_Usuario VARCHAR(20),
        IN P_Observaciones TEXT,
        IN P_Autorizacion VARCHAR(20),
        IN P_IPS VARCHAR(15),
        IN P_Dpto VARCHAR(2),
        IN P_Mpio VARCHAR(3),
        IN P_Cliente VARCHAR(2),
        IN P_Sucursal VARCHAR(2),
        IN P_CodContable VARCHAR(15),
        IN P_CentroCosto VARCHAR(2),
        IN P_Consecutivo VARCHAR(50),
        IN P_Regimen VARCHAR(2),
        IN P_Nivel VARCHAR(10)
    )
BEGIN
INSERT INTO 
  tbldigitacion
(
  CodDigitacion,
  CodRadicacion,
  CodFacturaGnral,
  CodSubfactura,
  Entrada,
  EstadoEgreso,
  Plan1,
  Tipo,
  ValorTipo,
  Plan2,
  ValorPlan2,
  Nivel,
  CodDiagnostico,
  CodProcedimiento1,
  ValorPro1,
  CodProcedimiento2,
  ValorPro2,
  FechaEntradaRevisoria,
  FechaRevisoria,
  FechaAuditoria,
  FechaEntradaAuditoria,
  NotaCredito,
  Copago,
  CodRevisor,
  CodAuditor,
  CodDigitador,
  Observaciones,
  CodJustificacion,
  FechaUltimaModificacion,
  Estado,
  BdeD,
  FechaDigitacionSistema,
  DestinoFactura,
  consecutivoRIPS
) 
VALUE (
  P_CodDigitacion,
  P_CodRadicacion,
  P_Factura,
  P_Subfactura,
  "1",
  "1",
  "2",
  "NA",
  "0",
  "NA",
  "0",
  P_Nivel,
  P_CodDX,
  P_CodCUPS,
  "0",
  "NA",
  "0",
  CURDATE(),
  CURDATE(),
  CURDATE(),
  CURDATE(),
  P_NoCre,
  P_Copago,
  P_Usuario,
  P_Usuario,
  P_Usuario,
  CONCAT('Información cargada por RIPS, ',P_Observaciones),
  "NA",
  CURDATE(),
  "A",
  "N",
  CURDATE(),
  "Contabilidad",
  P_Consecutivo
);
/*------------------------------------------------------*/
INSERT INTO 
  tblautorizacionesdigitacion
(
  coddigitacion,
  prefijo,
  nroautorizacion,
  descripcionautorizacion,
  FechaAutorizacion
) 
VALUE (
  P_CodDigitacion,
  "NUA",
  P_Autorizacion,
  "Auditoria por RIPS",
  CURDATE()
);
/*------------------------------------------------------*/
INSERT INTO 
  tbllistadosdigitacion
(
  ConsecutivoListado,
  CodListado,
  Estado,
  FacturaGeneral,
  Subfactura,
  ValorFacturado,
  ValorNeto,
  ValorCopago,
  ValorGlosa,
  ValorDevolucionFactura,
  ValorNotaCredito,
  TotalAPagar,
  RadGlosa,
  IPS,
  CodDepartamento,
  CodMunicipio,
  CodCliente,
  CodUsuario,
  Modalidad,
  EnvioG,
  CodDigitacion,
  FechaListado,
  Completa,
  Entrada,
  EntradaRpta
) 
VALUE (
  "0",
  "DiL-",
  "N",
  P_Factura,
  P_Subfactura,
  P_Valor,
  P_Valor-P_Copago,
  P_Copago,
  "0",
  "0",
  P_NoCre,
  P_Valor,
  "NA",
  P_IPS,
  P_Dpto,
  P_Mpio,
  P_Cliente,
  P_Usuario,
  "1",
  "N",
  P_CodDigitacion,
  CURDATE(),
  "Si",
  "1",
  "0"
);
/*------------------------------------------------------*/
INSERT INTO 
  tbllistadoobjeciones
(
  ConsecutivoListado,
  CodListado,
  Estado,
  IPS,
  CodCliente,
  CodUsuario,
  Modalidad,
  FechaListado,
  CodRadicacion,
  CodDigitacion,
  CodSucursal,
  CodUsuarioG,
  Completa,
  Factura,
  Subfactura,
  FechaDigitacion
) 
VALUE (
  "0",
  "OL-",
  "N",
  P_IPS,
  P_Cliente,
  P_Usuario,
  "1",
  CURDATE(),
  P_CodRadicacion,
  P_CodDigitacion,
  P_Sucursal,
  "",
  "Si",
  P_Factura,
  P_Subfactura,
  CURDATE()
);
/*------------------------------------------------------*/
INSERT INTO 
  tblenvios
(
  ConsecutivoListado,
  CodListado,
  Estado,
  Factura,
  NotaCredito,
  Copago,
  Glosa,
  TotalAPagar,
  IPS,
  CodCliente,
  CodUsuario,
  Modalidad,
  Departamento,
  Municipio,
  CodContable,
  CentroCosto,
  Plan,
  Regimen,
  CodRadicado,
  ValorCentroC,
  AltoCosto,
  FacturasR,
  Nivel,
  CodigoListadoD,
  CodDigitacion,
  FechaEnvio
) 
VALUE (
  "0",
  "EL-",
  "N",
  P_Factura,
  P_NoCre,
  P_Copago,
  "0",
  "0",
  P_IPS,
  P_Cliente,
  P_Usuario,
  "1",
  P_Dpto,
  P_Mpio,
  P_CodContable,
  P_CentroCosto,
  "2",
  P_Regimen,
  P_CodRadicacion,
  P_Valor,
  "No",
  P_Factura,
  P_Nivel,
  "0",
  P_CodDigitacion,
  CURDATE()
);
UPDATE  tblenvios
INNER JOIN tblcodcontable ON (tblenvios.CentroCosto=tblcodcontable.IDCentroCosto)
AND (tblenvios.Modalidad=tblcodcontable.Modalidad)
AND (tblenvios.Plan=tblcodcontable.Poliza)
SET  tblenvios.CodContable= tblcodcontable.CodContable
WHERE (tblenvios.CentroCosto=tblcodcontable.IDCentroCosto)
AND (tblenvios.Modalidad=tblcodcontable.Modalidad)
AND (tblenvios.Plan=tblcodcontable.Poliza) AND tblenvios.CodRadicado=P_CodRadicacion;
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure InsertRadicacion
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `InsertRadicacion`(
        IN P_NroRadicacion VARCHAR(30),
        IN P_NroRecepcion VARCHAR(30),
        IN P_Factura VARCHAR(20),
        IN P_Subfactura VARCHAR(20),
        IN P_Usuario VARCHAR(20),
        IN P_CentroCosto VARCHAR(2),
        IN P_ValCentroCosto DOUBLE,
        IN P_Finaldidad VARCHAR(2),
        IN P_Ambito VARCHAR(3),
        IN P_IdCodContable INTEGER(11)
    )
BEGIN
INSERT INTO 
  tblradicacion
(
  codradicacion,
  codrecepcion,
  codfactura,
  codsubfactura,
  fechaentregaradicacion,
  fecharadicacion,
  codambito,
  codmodalidad,
  estado,
  codusuarioradico,
  fechaultimamodificacion
) 
VALUE (
  P_NroRadicacion,
  P_NroRecepcion,
  P_Factura,
  P_Subfactura,
  CURDATE()	,
  CURDATE(),
  P_Ambito,
  "1",
  "A",
  P_Usuario,
  CURDATE()
);
INSERT INTO 
  tblradicacioncentrodecosto
(
  codradicacion,
  codcentrocosto,
  valcentrocosto,
  fechaultimamodificacion,
  finalidad,
  idCodContable
) 
VALUE (
  P_NroRadicacion,
  P_CentroCosto,
  P_ValCentroCosto,
  CURDATE(),
  P_Finaldidad,
  P_idCodContable
);
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure InsertRecepcionEvento
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `InsertRecepcionEvento`(
        IN P_NroRecepcion VARCHAR(20),
        IN P_NroCarnetFacturaGeneral VARCHAR(20),
        IN P_CodCliente VARCHAR(2),
        IN P_CodIps VARCHAR(20),
        IN P_NroFacturaGeneral VARCHAR(15),
        IN P_ValorFacturaGeneral DOUBLE,
        IN P_ValorCopagoFacturaGeneral DOUBLE,
        IN P_ValorNetoFacturaGeneral DOUBLE,
        IN P_NroNotaCreditoFacturaGeneral VARCHAR(20),
        IN P_ValorNotaCreditoFacturaGeneral DOUBLE,
        IN P_FechaFacturaGeneral DATE,
        IN P_FechaRecepcionCliente DATE,
        IN P_FechaRecepcionAplisalud DATE,
        IN P_FechaIngresoPaciente DATE,
        IN P_FechaEgresoPaciente DATE,
        IN P_CodRegimen VARCHAR(2),
        IN P_CodUsuRecepciono VARCHAR(50),
        IN P_IDContrato VARCHAR(50),
        IN P_Subfactura VARCHAR(2),
        IN P_NroSeven TEXT,
        IN P_ContratoEnte VARCHAR(50),
        IN P_Radicado VARCHAR(50),
        IN P_Mpio VARCHAR(3),
        IN P_Dpto VARCHAR(2)
    )
BEGIN
INSERT INTO 
  tblfacturarecepcionadasevento
(
  NroRecepcion,
  NroCarnetFacturaGeneral,
  CodCliente,
  CodIps,
  NroFacturaGeneral,
  ValorFacturaGeneral,
  ValorCopagoFacturaGeneral,
  ValorNetoFacturaGeneral,
  NroNotaCreditoFacturaGeneral,
  ValorNotaCreditoFacturaGeneral,
  FechaFacturaGeneral,
  FechaRecepcionCliente,
  FechaRecepcionAplisalud,
  FechaRecepcionSistema,
  FechaIngresoPaciente,
  FechaEgresoPaciente,
  CodRegimen,
  Tipo,
  FechaUltimaModificacion,
  Estado,
  BdeD,
  CodUsuRecepciono,
  IDContrato,
  Subfactura,
  NroSeven,
  ContratoEnte,
  Radicado
) 
VALUE (
  P_NroRecepcion,
  P_NroCarnetFacturaGeneral,
  P_CodCliente,
  P_CodIps,
  P_NroFacturaGeneral,
  P_ValorFacturaGeneral,
  P_ValorCopagoFacturaGeneral,
  P_ValorNetoFacturaGeneral,
  P_NroNotaCreditoFacturaGeneral,
  P_ValorNotaCreditoFacturaGeneral,
  P_FechaFacturaGeneral,
  P_FechaRecepcionCliente,
  P_FechaRecepcionAplisalud,
  CURDATE(),
  P_FechaIngresoPaciente,
  P_FechaEgresoPaciente,
  P_CodRegimen,
  '2',
  CURDATE(),
  'A',
  'N',
  P_CodUsuRecepciono,
  P_IDContrato,
  P_Subfactura,
  P_NroSeven,
  P_ContratoEnte,
  P_Radicado
);
INSERT INTO 
  tbllistadosrecepcionxevento
(
  ConsecutivoListado,
  CodListado,
  Estado,
  FacturaGeneral,
  Subfactura,
  ValorFactura,
  ValorNetoFactura,
  Copago,
  NroNotaCredito,
  ValorNotaCredito,
  Regimen,
  NroRecepcion,
  CodCliente,
  CodUsuario,
  IPS,
  Modalidad,
  nrocarnet,
  MunicipioA,
  DepartamentoA,
  FechaListado,
  Autorizacion,
  Orden,
  RelacionIPS
) 
VALUE (
  "0",
  "REL-",
  "N",
  P_NroFacturaGeneral,
  "",
  P_ValorFacturaGeneral,
  P_ValorNetoFacturaGeneral,
  P_ValorCopagoFacturaGeneral,
  P_NroNotaCreditoFacturaGeneral,
  P_ValorNotaCreditoFacturaGeneral,
  P_CodRegimen,
  P_NroRecepcion,
  P_CodCliente,
  P_CodUsuRecepciono,
  P_CodIps,
  "1",
  P_NroCarnetFacturaGeneral,
  P_Mpio,
  P_Dpto,
  CURDATE(),
  "0",
  "0",
  "0"
  );
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure InsertSubfactura
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `InsertSubfactura`(
        IN P_Accion CHAR(2),
        IN P_NroRecepcion VARCHAR(20),
        IN P_NroCarnetFacturaGeneral VARCHAR(20),
        IN P_CodCliente VARCHAR(2),
        IN P_CodIps VARCHAR(20),
        IN P_NroFacturaGeneral VARCHAR(15),
        IN P_ValorFacturaGeneral DOUBLE,
        IN P_ValorCopagoFacturaGeneral DOUBLE,
        IN P_ValorNetoFacturaGeneral DOUBLE,
        IN P_NroNotaCreditoFacturaGeneral VARCHAR(20),
        IN P_ValorNotaCreditoFacturaGeneral DOUBLE,
        IN P_FechaFacturaGeneral DATE,
        IN P_FechaRecepcionCliente DATE,
        IN P_FechaRecepcionAplisalud DATE,
        IN P_FechaIngresoPaciente DATE,
        IN P_FechaEgresoPaciente DATE,
        IN P_CodRegimen VARCHAR(2),
        IN P_CodUsuRecepciono VARCHAR(20),
        IN P_IDContrato VARCHAR(20),
        IN P_Subfactura VARCHAR(2),
        IN P_NroSeven VARCHAR(50),
        IN P_ContratoEnte VARCHAR(50),
        IN P_Radicado VARCHAR(50),
        IN P_NroSubfactura VARCHAR(20),
        IN P_Mpio VARCHAR(3),
        IN P_Dpto VARCHAR(2),
        IN P_TotalCopago DOUBLE,
        IN P_TotalNeto DOUBLE,
        IN P_TotalNota DOUBLE,
        IN P_TotalFactura DOUBLE
    )
BEGIN
IF P_Accion = 'No' THEN
INSERT INTO 
  tblfacturarecepcionadasevento
(
  NroRecepcion,
  NroCarnetFacturaGeneral,
  CodCliente,
  CodIps,
  NroFacturaGeneral,
  ValorFacturaGeneral,
  ValorCopagoFacturaGeneral,
  ValorNetoFacturaGeneral,
  NroNotaCreditoFacturaGeneral,
  ValorNotaCreditoFacturaGeneral,
  FechaFacturaGeneral,
  FechaRecepcionCliente,
  FechaRecepcionAplisalud,
  FechaRecepcionSistema,
  FechaIngresoPaciente,
  FechaEgresoPaciente,
  CodRegimen,
  Tipo,
  FechaUltimaModificacion,
  Estado,
  BdeD,
  CodUsuRecepciono,
  IDContrato,
  Subfactura,
  NroSeven,
  ContratoEnte,
  Radicado
) 
VALUE (
  P_NroRecepcion,
  P_NroCarnetFacturaGeneral,
  P_CodCliente,
  P_CodIps,
  P_NroFacturaGeneral,
  P_TotalFactura,
  P_TotalCopago,
  P_TotalNeto,
  P_NroNotaCreditoFacturaGeneral,
  P_TotalNota,
  P_FechaFacturaGeneral,
  P_FechaRecepcionCliente,
  P_FechaRecepcionAplisalud,
  CURDATE(),
  P_FechaIngresoPaciente,
  P_FechaEgresoPaciente,
  P_CodRegimen,
  '2',
  CURDATE(),
  'A',
  'N',
  P_CodUsuRecepciono,
  P_IDContrato,
  P_Subfactura,
  P_NroSeven,
  P_ContratoEnte,
  P_Radicado
);
END IF;
INSERT INTO 
  tbllistadosrecepcionxevento
(
  ConsecutivoListado,
  CodListado,
  Estado,
  FacturaGeneral,
  Subfactura,
  ValorFactura,
  ValorNetoFactura,
  Copago,
  NroNotaCredito,
  ValorNotaCredito,
  Regimen,
  NroRecepcion,
  CodCliente,
  CodUsuario,
  IPS,
  Modalidad,
  nrocarnet,
  MunicipioA,
  DepartamentoA,
  FechaListado,
  Autorizacion,
  Orden,
  RelacionIPS
) 
VALUE (
  "0",
  "REL-",
  "N",
  P_NroFacturaGeneral,
  P_NroSubfactura,
  P_ValorFacturaGeneral,
  P_ValorNetoFacturaGeneral,
  P_ValorCopagoFacturaGeneral,
  P_NroNotaCreditoFacturaGeneral,
  P_ValorNotaCreditoFacturaGeneral,
  P_CodRegimen,
  P_NroRecepcion,
  P_CodCliente,
  P_CodUsuRecepciono,
  P_CodIps,
  "1",
  P_NroCarnetFacturaGeneral,
  P_Mpio,
  P_Dpto,
  CURDATE(),
  "0",
  "0",
  "0"
  );
  INSERT INTO 
  tblsubfacturarecepcionada
(
  NroSubfactura,
  ValorCopagoSubfactura,
  NroNotaCreditoSubfactura,
  NroCarnetSubfactura,
  ValorSubfactura,
  ValorNotaCreditoSubfactura,
  TotalNetoSubfactura,
  FechaUltimaModificacion,
  FechaSubfactura,
  FechaIngresoPs,
  FechaEgresoPs,
  Estado,
  BdeD,
  CodUsuRecepciono,
  NroFacturaGeneral,
  NroRecepcion,
  TipoS,
  CodRegimen,
  IDContrato
) 
VALUE (
  P_NroSubfactura,
  P_ValorCopagoFacturaGeneral,
  P_NroNotaCreditoFacturaGeneral,
  P_NroCarnetFacturaGeneral,
  P_ValorFacturaGeneral,
  P_ValorNotaCreditoFacturaGeneral,
  P_ValorFacturaGeneral-P_ValorCopagoFacturaGeneral,
  CURDATE(),
  P_FechaFacturaGeneral,
  P_FechaIngresoPaciente,
  P_FechaEgresoPaciente,
  "A",
  "N",
  P_CodUsuRecepciono,
  P_NroFacturaGeneral,
  P_NroRecepcion,
  "2",
  P_CodRegimen,
  "0"
);
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure SelectCUPS
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `SelectCUPS`(
        IN P_CUPS VARCHAR(50)
    )
BEGIN
SELECT 
  `CodigoProced`,
  `NivelComplejidad`
  `DescripcionProced`,
  `CodigoOriginal`,
  `Minima`,
  `Fija`,
  `ValorUnitario`  
FROM 
  `tblcups` WHERE CodigoProced=P_CUPS;
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure SelectCentroCosto
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `SelectCentroCosto`(
        IN P_CC VARCHAR(2)
    )
BEGIN
SELECT 
  `idcentrocosto`,
  `nombre`
FROM 
  `tblcentrosdecosto` WHERE `idcentrocosto`=P_CC;
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure SelectDX
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `SelectDX`(
        IN P_DX VARCHAR(4)
    )
BEGIN
  SELECT 
  `CodigoDx`,
  `DescripcionDiag`,
  `Edad_ini`,
  `Edad_fin`,
  `TipoEdad`,
  `Sexo`,
  `Pol`,
  `Patologia`
FROM 
  `tblcie10`
  WHERE CodigoDx=P_DX;
END$$
DELIMITER ;
-- -----------------------------------------------------
-- function fun_Altocosto
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` FUNCTION `fun_Altocosto`(
        p_Dx vARCHAR(4),
        p_Cups VARCHAR(6),
        p_Poliza vARCHAR(5),
        p_Nivel VARCHAR(10)
    ) RETURNS varchar(30) CHARSET utf8
BEGIN
	DECLARE Retorno VARCHAR(30);
    DECLARE MiNivel VARCHAR(10);
    IF p_Nivel='1- Nivel' THEN
    	SET Minivel=' I NIVEL';
    ELSEIF p_Nivel='2- Nivel' THEN
        SET Minivel=' II NIVEL';
    ELSEIF p_Nivel='3- Nivel' THEN
        SET Minivel=' III NIVEL';
    ELSEIF p_Nivel='4- Nivel' THEN
       SET Minivel=' IV NIVEL';        
    END IF;
    IF p_Poliza='3' THEN
    SET Retorno='NO POSS JUSTIFICADO';    
    ELSEIF p_Poliza='4' THEN
    SET Retorno='NO POSS SIN JUSTIFICAR';
    ELSEIF p_Poliza='1' THEN
     IF (SELECT Patologia <=> NULL FROM tblcie10 WHERE codigodx = p_Dx LIMIT 1)=0 OR p_Cups LIKE 'S1210%' THEN
     SET Retorno='ALTO COSTO';
     ELSE
     SET Retorno=CONCAT('POS',MiNivel);
     END IF;
    ELSEIF p_Poliza='2' THEN
     IF (SELECT Patologia <=> NULL FROM tblcie10 WHERE codigodx = p_Dx LIMIT 1)=0 OR p_Cups LIKE 'S1210%' THEN
     SET Retorno='ALTO COSTO';
     ELSE
     SET Retorno=CONCAT('POS',MiNivel);
     END IF;
  END IF;
  RETURN Retorno;
END$$
DELIMITER ;
-- -----------------------------------------------------
-- procedure getCodigos
-- -----------------------------------------------------
DELIMITER $$
USE `bdaplisysemdisalud`$$
CREATE DEFINER=`root`@`%` PROCEDURE `getCodigos`(
        IN P_Usuario INTEGER(11)
    )
BEGIN
SELECT 
  autousuario,
  codusuario,
  consecutivoradicacion,
  consecutivorecepcion,
  consecutivodigitacion,
  ConsecutivoListado
 FROM 
  tblusuarios
WHERE  autousuario =P_Usuario 
  ;
END$$
DELIMITER ;
SET SQL_MODE=@OLD_SQL_MODE;
SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS;
SET UNIQUE_CHECKS=@OLD_UNIQUE_CHECKS;