Advertisement
Guest User

Untitled

a guest
Feb 21st, 2017
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.09 KB | None | 0 0
  1. SELECT * FROM (SELECT ROWNUM RNUM2, AUX2.* FROM (
  2.  
  3. SELECT
  4. A.INDICE_AGENDAMIENTO, A.ACCESSION_NUMBER, A.INDICE_AREA_CENTRO, (SELECT COUNT(*) FROM AG_EVENTOS WHERE INDICE_AGENDAMIENTO = A.INDICE_AGENDAMIENTO) AS EVENTOS, A.STUDY_INSTANCE_UID, A.IMAGEN_DICOM, A.VALIDADO, CC.INDICE_CENTRO, A.ATENDING_DOCTOR_ID, A.SOBRECUPO, A.AN_PADRE, A.SESION, come.comentario comentario_estudio, come.estado comentario_estado, esta.nombre titulo_estudio, DC.NOMBRE NOMBRE_DIAGNOSTICO, DC.INDICE_DIAGNOSTICO, DH.DETALLE DETALLE_DIAGNOSTICO, A.PATIENT_ID, A.NUMERO_BOLETA, A.PATIENT_RUT, TP.INDICE_TIPOPROCEDIMIENTO, TP.DESCRIPCION_EMPRESA AS PRESTACION, EX.DESCRIPCION AS ASIGNACION, TO_CHAR(A.FECHA_HORA, 'DD-MM-YYYY HH24:MI') AS FECHA_HORA, ES.DESCRIPCION AS DESCRIPCION_ESTADO, ES.COLOR_FILE AS COLOR_FILE, NULL2STR(A.ORDER_STATUS) AS CODIGO_ESTADO,P.NOMBRES AS NOMBRE_PACIENTE,P.APELLIDO_P AS APELLIDOS_PACIENTE,REPLACE(USU.APELLIDO_P || ' ' || USU.NOMBRE,'-') AS NOMBRE_COMPLETO_DOCTOR,P.SEXO AS PATIENT_SEX,TO_CHAR(A.FECHA_HORA_LLEGADA, 'HH24:MI') AS FECHA_HORA_LLEGADA,PREV.DESCRIPCION_PREVISION AS PREVISION_PACIENTE,A.VALOR,RET.NOMBRE AS RETIRADO_POR,TO_CHAR(A.PATIENT_BIRTHDATETIME, 'DD-MM-YYYY HH24:MI') AS EDAD,A.REFERING_DOCTOR,TO_CHAR(CE.FECHA_HORA, 'DD-MM-YYYY HH24:MI:SS') AS MAXIMO,A.NUMERO_DOCUMENTO,TO_CHAR(A.FECHA_HORA_REPORTE,'DD-MM-YYYY HH24:MI:SS') AS FECHA_HORA_INFORME,TO_CHAR(A.FECHA_PAGO, 'DD/MM/YYYY') FECHA_PAGO,PAG.DESCRIPCION_PAGO AS FORMA_DE_PAGO,PRO.DESCRIPCION AS DESCRIPCION_PRIORIDAD,PRO.COLOR AS COLOR_PRIORIDAD,EM.DESCRIPCION AS EMPRESA,A.CONTRASTE,A.ANESTESIA,TP.CODIGO_FONASA,A.FACTURA, TO_CHAR(A.FECHA_ASIGNACION_INFORMANTE , 'DD-MM-YYYY HH24:MI') FECHA_ASIGNACION_INFORMANTE,(SELECT NUMERO_TELEFONO FROM TELEFONOS WHERE (INDICE_PACIENTE_MEDICO = P.INDICE_PACIENTE) AND ((TIPO_TELEFONO = 'PH') OR (TIPO_TELEFONO = '0')) AND rownum = 1) AS TELEFONO1, (SELECT NUMERO_TELEFONO FROM TELEFONOS WHERE (INDICE_PACIENTE_MEDICO = P.INDICE_PACIENTE) AND ((TIPO_TELEFONO = 'CP') OR (TIPO_TELEFONO = '1')) AND rownum = 1) AS TELEFONO2,A.DIAG_EGRESO,A.DIAG_INGRESO,TO_CHAR(A.FECHA_OM, 'DD-MM-YYYY') FECHA_OM,A.MEDICO_TRATANTE,DI.DIRECCION_CALLE,A.ACCESSION_NUMBER,TO_CHAR(A.FECHA_IMAGEN_DICOM , 'DD-MM-YYYY HH24:MI') FECHA_ALMACENAMIENTO, TO_CHAR(A.FECHA_ASIGNACION_GRUPO , 'DD-MM-YYYY HH24:MI') FECHA_ASIGNACION_GRUPO,A.ORDEN_PAGO_ID AS ESTADO_OP,A.ORDEN_PAGO_ID AS ID_OP,CC.INSTITUTION_NAME CENTRO,AACC.INSTITUTIONAL_DEPARTAMENT_NAME CLINICA,A.MODALITY MODALIDAD,(SELECT
  5. RTRIM(REGEXP_REPLACE( LISTAGG( DE.NOMBRE,',') WITHIN GROUP (ORDER by( DE.indice_etiqueta )asc ) , '([^,]*)(,\1)+($|,)', '\1\3'),',')
  6. from etiqueta_agendamiento EA
  7. inner join etiqueta_alertas DE on DE.indice_etiqueta=EA.indice_etiqueta
  8. where EA.INDICE_AGENDAMIENTO=A.INDICE_AGENDAMIENTO)ETIQUETAS,
  9.  
  10. (SELECT
  11. RTRIM(REGEXP_REPLACE( LISTAGG( DE.color,',') WITHIN GROUP (ORDER by( DE.indice_etiqueta )asc ) , '([^,]*)(,\1)+($|,)', '\1\3'),',')
  12. from etiqueta_agendamiento EA
  13. inner join etiqueta_alertas DE on DE.indice_etiqueta=EA.indice_etiqueta
  14. where EA.INDICE_AGENDAMIENTO=A.INDICE_AGENDAMIENTO) LISTA_COLO
  15. FROM AGENDAMIENTO A
  16. LEFT OUTER JOIN PACIENTES P ON (P.NUM_REGISTRO_MEDICO = A.PATIENT_ID) LEFT OUTER JOIN PRIORIDAD PRO ON (PRO.INDICE_PRIORIDAD = A.PRIORITY) LEFT OUTER JOIN PERSONAL PE ON (A.ATENDING_DOCTOR_ID = PE.CODIGO) LEFT OUTER JOIN USUARIOS USU ON (A.ATENDING_DOCTOR_ID = to_char(USU.INDICE_USUARIO)) LEFT OUTER JOIN CATEGORIA PR ON (A.INDICE_PREVISION = PR.INDICE_CATEGORIA) LEFT OUTER JOIN PREVISION PREV ON (PR.INDICE_PREVISION = PREV.INDICE_PREVISION) LEFT OUTER JOIN BANCO BANC ON (A.INDICE_BANCO = BANC.INDICE_BANCO) LEFT OUTER JOIN TIPO_PAGO PAG ON(A.INDICE_PAGO=PAG.INDICE_PAGO) LEFT OUTER JOIN TRADUCCION_ESTADO ES ON (A.ORDER_STATUS = ES.ESTADO_COD and ES.INDICE_AREA_CENTRO = A.INDICE_AREA_CENTRO) LEFT OUTER JOIN RETIRO_EXAMENES RET ON(A.INDICE_AGENDAMIENTO=RET.INDICE_AGENDAMIENTO) LEFT OUTER JOIN AG_EXTERNA EX ON(A.AG_ASIGNACION=EX.ID) LEFT OUTER JOIN TIPOPROCEDIMIENTOS TP ON (A.UNIVERSAL_SERVICEID_ID = TP.VALOR) LEFT OUTER JOIN TIPOPROCEDIMIENTOS_AREA_CENTRO TPA ON (TP.INDICE_TIPOPROCEDIMIENTO = TPA.INDICE_TIPOPROCEDIMIENTOS) LEFT OUTER JOIN PROCEDENCIA PRO ON (A.REFERING_DOCTOR_ID = PRO.RUT) LEFT OUTER JOIN DIRECCIONES DI ON (P.INDICE_PACIENTE = DI.INDICE_PACIENTE_MEDICO AND (DI.TIPO_DIRECCION ='H')) LEFT OUTER JOIN CAMBIOS_ESTADO CE ON CE.INDICE_AGENDAMIENTO = A.INDICE_AGENDAMIENTO LEFT OUTER JOIN EMPRESAS EM ON EM.INDICE_EMPRESA = A.INDICE_EMPRESA LEFT OUTER JOIN AG_PABELLONES PAB ON PAB.ID = A.INDICE_PABELLON INNER JOIN AREAS_CENTROS AACC ON AACC.INDICE_AREA_CENTRO = A.INDICE_AREA_CENTRO INNER JOIN CENTROS CC ON CC.INDICE_CENTRO = AACC.INDICE_CENTRO LEFT OUTER JOIN COMENTARIOS_ESTUDIO COME ON (COME.INDICE_AGENDAMIENTO = A.INDICE_AGENDAMIENTO) LEFT OUTER JOIN ESTADOS_ALERTA ESTA ON ESTA.ID_ESTADO= COME.TITULO_COMENTARIO LEFT OUTER JOIN DIAGNOSTICO_AGENDAMIENTO DA ON DA.INDICE_AGENDAMIENTO=A.INDICE_AGENDAMIENTO LEFT OUTER JOIN DIAGNOSTICO_CRITICO DC ON DC.INDICE_DIAGNOSTICO=DA.INDICE_DIAGNOSTICO LEFT OUTER JOIN DIAGNOSTICO_HISTORIAL DH ON DA.INDICE_HISTORIAL=DH.INDICE_HISTORIAL
  17. WHERE
  18.  
  19. A.INDICE_AREA_CENTRO IN (58318754) AND
  20. ((
  21. A.INDICE_AREA_CENTRO= 58318754
  22.  
  23.  
  24. AND A.ORDER_STATUS IN ('HD','SC','PT','PR','TT','EF','CM','VT','IM','ET','CA') AND A.ORDER_STATUS IN (SELECT REGEXP_SUBSTR(
  25. (SELECT UTL_RAW.CAST_TO_VARCHAR2(AGGE.ESTADOS_DISPONIBLES)
  26. FROM AG_GRUPOS_ESTADOS AGGE WHERE AGGE.INDICE_GRUPO=495 and AGGE.INDICE_AREA_CENTRO= 58318754),'[^,]+', 1, LEVEL) ESTADOS FROM DUAL
  27. CONNECT BY REGEXP_SUBSTR((SELECT UTL_RAW.CAST_TO_VARCHAR2(AGGE.ESTADOS_DISPONIBLES)
  28. FROM AG_GRUPOS_ESTADOS AGGE WHERE AGGE.INDICE_GRUPO=495 and AGGE.INDICE_AREA_CENTRO= 58318754), '[^,]+', 1, LEVEL) IS NOT NULL)
  29.  
  30.  
  31. )) AND
  32. (TPA.INDICE_AREA_CENTRO = A.INDICE_AREA_CENTRO OR TPA.INDICE_AREA_CENTRO IS NULL) AND
  33. A.FECHA_HORA BETWEEN TO_DATE('01-02-2017 00:00', 'DD-MM-YYYY HH24:MI') AND TO_DATE('28-02-2017 23:59', 'DD-MM-YYYY HH24:MI')
  34. AND CE.INDICE_CAMBIOS_ESTADO = (SELECT MAX(INDICE_CAMBIOS_ESTADO) FROM CAMBIOS_ESTADO WHERE INDICE_AGENDAMIENTO = A.INDICE_AGENDAMIENTO)
  35.  
  36. AND ((COME.INDICE_AGENDAMIENTO =A.INDICE_AGENDAMIENTO AND COME.INDICE_COMENTARIO = (SELECT MAX(INDICE_COMENTARIO) FROM COMENTARIOS_ESTUDIO WHERE A.INDICE_AGENDAMIENTO = INDICE_AGENDAMIENTO) AND COME.ESTADO IN (-1,0,1)) OR COME.INDICE_AGENDAMIENTO IS NULL)
  37. ORDER BY A.FECHA_HORA ASC )AUX2 WHERE ROWNUM <= 50) WHERE RNUM2 >= 1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement