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 ;