BD.FUNC.ACD FUNC CLI SEGMENTOS CREAR

Parámetros

USE `nimitz`;

DROP function IF EXISTS `nimitz`.`ACD_FUNC_CLI_SEGMENTOS_CREAR`;

DELIMITER $$

USE `nimitz`$$

CREATE DEFINER=`adminNimitz`@`%` FUNCTION `ACD_FUNC_CLI_SEGMENTOS_CREAR`(

PAR_C_ANI VARCHAR(32),

PAR_C_UCID VARCHAR(20),

PAR_C_VDN VARCHAR(45),

PAR_B_ES_DESVIADA BOOL

) RETURNS varchar(64) CHARSET utf8

MODIFIES SQL DATA

DETERMINISTIC

BEGIN

declare VAR_NO_HAY BOOLEAN;

declare VAR_ID_SEGMENTO INT;

declare VAR_B_ES_PROFESIONAL BOOL;

declare VAR_ID_DATOS INT;

declare VAR_C_CIP varchar(20);

declare VAR_C_NOMBRE varchar(45);

declare VAR_C_APELLIDO1 varchar(45);

declare VAR_C_APELLIDO2 varchar(45);

declare VAR_C_PROGRAMA varchar(45);

declare VAR_D_FECHA_INCLUSION varchar(20);

declare VAR_D_FECHA_ALTA varchar(20);

declare VAR_C_RELACION_PACIENTE varchar(60);

declare VAR_E_DEST_TRANSFER INT;

declare VAR_E_CODI int(11);

declare VAR_ES_DESVIADA int;

declare VAR_C_VDN varchar(45);

declare SQL_SEGMENTOS CURSOR for

select `ID`

from `DAT_SEGMENTOS`

where `C_UCID`=PAR_C_UCID AND (E_TIPO_SEGMENTO=200 or E_TIPO_SEGMENTO=250);

declare SQL_PACIENTES CURSOR for

select TP.`ID`,TP.`E_CODI`

from `CLI_TELEFONOS_PACIENTES` as TP

INNER JOIN `CLI_DATOS_PACIENTES` as DP on TP.`ID_DATOS_PACIENTE`=DP.`ID`

where TP.`C_ANI`=PAR_C_ANI;

declare SQL_PROFESIONALES CURSOR for

select TPR.`ID`,TPR.`E_CODI`,DPR.`C_NOMBRE`,DPR.`C_APELLIDO1`,DPR.`C_APELLIDO2`,

DPR.`C_REL_PACIENTE`

from `CLI_TELEFONOS_PROFESIONALES` as TPR

INNER JOIN `CLI_DATOS_PROFESIONALES` as DPR on TPR.`ID_DATOS_PROFESIONAL`=DPR.`ID`

where TPR.`C_ANI`=PAR_C_ANI;

declare CONTINUE HANDLER FOR NOT FOUND set VAR_NO_HAY=TRUE;

set VAR_B_ES_PROFESIONAL=false;

set VAR_ID_DATOS=NULL;

set VAR_C_CIP=;

set VAR_C_NOMBRE=;

set VAR_C_APELLIDO1=;

set VAR_C_APELLIDO2=;

set VAR_C_PROGRAMA=;

set VAR_D_FECHA_INCLUSION=;

set VAR_D_FECHA_ALTA=;

set VAR_C_RELACION_PACIENTE=;

set VAR_E_DEST_TRANSFER=0;

set VAR_E_CODI=0;

set VAR_ES_DESVIADA=PAR_B_ES_DESVIADA;

set VAR_C_VDN=PAR_C_VDN;

set VAR_NO_HAY=FALSE;

set VAR_ID_SEGMENTO=0;

open SQL_SEGMENTOS;

fetch SQL_SEGMENTOS into VAR_ID_SEGMENTO;

close SQL_SEGMENTOS;

if VAR_NO_HAY then return 'No existe segmento'; end if;

set VAR_NO_HAY=FALSE;

set VAR_ID_DATOS=0;

open SQL_PACIENTES;

fetch SQL_PACIENTES into VAR_ID_DATOS,

VAR_E_CODI;

close SQL_PACIENTES;

if VAR_NO_HAY

then set VAR_B_ES_PROFESIONAL=true;

set VAR_NO_HAY=FALSE;

set VAR_ID_DATOS=0;

open SQL_PROFESIONALES;

fetch SQL_PROFESIONALES into VAR_ID_DATOS,

VAR_E_CODI,

VAR_C_NOMBRE,

VAR_C_APELLIDO1,

VAR_C_APELLIDO2,

VAR_C_RELACION_PACIENTE; close SQL_PROFESIONALES;

if VAR_NO_HAY

then set VAR_B_ES_PROFESIONAL=true;

set VAR_ID_DATOS=NULL;

set VAR_C_CIP=;

set VAR_C_NOMBRE=;

set VAR_C_APELLIDO1=;

set VAR_C_APELLIDO2=;

set VAR_C_PROGRAMA=;

set VAR_D_FECHA_INCLUSION=;

set VAR_D_FECHA_ALTA=;

set VAR_C_RELACION_PACIENTE=;

set VAR_E_DEST_TRANSFER=0;

set VAR_E_CODI=0;

end if;

end if;

insert into `CLI_SEGMENTOS`

( `ID`,

`B_ES_PROFESIONAL`,

`ID_DATOS`,

`C_CIP`,

`C_NOMBRE`,

`C_APELLIDO1`,

`C_APELLIDO2`,

`C_PROGRAMA`,

`D_FECHA_INCLUSION`,

`D_FECHA_ALTA`,

`C_RELACION_PACIENTE`,

`E_DEST_TRANSFER`,

`E_CODI`,

`B_ES_DESVIADA`,

`C_VDN` )

values

( VAR_ID_SEGMENTO,

VAR_B_ES_PROFESIONAL,

VAR_ID_DATOS,

VAR_C_CIP,

VAR_C_NOMBRE,

VAR_C_APELLIDO1,

VAR_C_APELLIDO2,

VAR_C_PROGRAMA,

VAR_D_FECHA_INCLUSION,

VAR_D_FECHA_ALTA,

VAR_C_RELACION_PACIENTE,

VAR_E_DEST_TRANSFER,

VAR_E_CODI,

VAR_ES_DESVIADA,

VAR_C_VDN );

return 'OK';

end$$ DELIMITER ;