Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ALTER PROCEDURE [dbo].[spu_historiaclinica_indmedica_horario]
- @pac_numficha NUMERIC(10), @ingcorrel NUMERIC(10), @hojas VARCHAR(50) , @servicio VARCHAR(100), @usu_login VARCHAR(30), @fecha datetime
- AS
- BEGIN
- SET NOCOUNT ON;
- DECLARE @edad datetime
- DECLARE @rut CHAR(10)
- DECLARE @paciente VARCHAR(250)
- DECLARE @servicio_p VARCHAR(100)
- DECLARE @fecha_ing datetime
- DECLARE @med_trat VARCHAR(250)
- DECLARE @fecha_ind datetime
- DECLARE @usuario VARCHAR(150)
- DECLARE @cama VARCHAR(5)
- DECLARE @diag VARCHAR(2500)
- DECLARE @hpacorrel VARCHAR(10)
- CREATE TABLE #informe (
- hpa_correl NUMERIC(10),
- servicio_ind VARCHAR(250),
- fecha_ind datetime,
- medico_ind VARCHAR(2500),
- ind_general VARCHAR(5000),
- horario VARCHAR(1),
- fecha_hoy datetime
- )
- --SE ASOCIAN LOS DATOS PARA CADA REGISTRO HOJA
- while @hojas <> ''
- BEGIN
- IF CHARINDEX(',',@hojas) > 0
- SET @hpacorrel = LEFT(@hojas,CHARINDEX(',',@hojas) - 1)
- ELSE
- SET @hpacorrel = @hojas
- INSERT INTO #informe (hpa_correl,servicio_ind,fecha_ind, medico_ind, ind_general,fecha_hoy)
- SELECT DISTINCT
- HOJA_PACIENTE.HPA_CORREL,
- SER_NOMBRE,
- HPA_FECHA,
- CASE
- WHEN charindex(' ',rtrim(ltrim(USU_NOMBRES))) > 0 THEN
- rtrim(LEFT(USU_NOMBRES,charindex(' ',rtrim(ltrim(USU_NOMBRES)))))+ ' ' +USU_PATERNO + ISNULL(' ' +USU_MATERNO, '')
- ELSE rtrim(ltrim(USU_NOMBRES))+ ' ' +USU_PATERNO + ISNULL(' ' +USU_MATERNO, '')
- END,
- ISNULL((SELECT rtrim(ltrim(IPA_TEXTO)) FROM ITEM_PACIENTE WHERE ITEM_PACIENTE.HPA_CORREL =@hpacorrel AND ICL_CORREL= 128 ),'') ,
- GETDATE()
- FROM HOJA_PACIENTE (NOLOCK)
- LEFT JOIN SERVICIO (NOLOCK) ON SERVICIO.SER_CODIGO = HOJA_PACIENTE.SER_CODIGO
- LEFT JOIN USUARIO (NOLOCK) ON USUARIO.USU_LOGIN = HOJA_PACIENTE.USU_LOGIN
- WHERE HOJA_PACIENTE.HPA_CORREL = @hpacorrel
- ORDER BY HPA_FECHA
- IF CHARINDEX(',',@hojas) = 0
- SET @hojas = ''
- ELSE
- SET @hojas = RIGHT(@hojas,LEN(@hojas) - CHARINDEX(',',@hojas))
- END
- --SE MUESTRAN LOS RESULTADOS
- SELECT * FROM #informe
- END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement