CAMBIAR EL CONCEPTO DE LA MUESTRA ANALIZADA EN CERTIFICADO DE PT - 8568 : Colompack

cambiar el concepto que aparece en el certificado de producto terminado, ya que si no se ha finalizado la analítica no se debe evidenciar como aprobado, podría cambiarse por “SIN CONCEPTO” , ACA SE DEBE TENER EN CUENTA QUE SOLO ES APROBADA SI ESTA FIRMANDA POR EL COORDINADOR Y EL ADMINISTRATIVO

EL SCRIP DE CERTIFICADO ES EL SIGUIUENTE ANNTES DE LA MODIFICACION 21-03-2023:

SELECT PET.CODPETICION,

PET.CODESPECIFICACION,

(SELECT DESART FROM IPARTIC WHERE CODART=PET.CODESPECIFICACION) DESART,

CASE WHEN (SELECT STK.CODLOT FROM IPSTOCK STK WHERE STK.CODART = PET.CODESPECIFICACION AND STK.BULTO=(SELECT BULTO FROM IPLPETBULTOSMUE WHERE CODPETICION=$P{CODPETICION}))=PET.CODLOTFAB THEN PET.CODLOTFAB ELSE (SELECT STK.CODLOT FROM IPSTOCK STK WHERE STK.CODART = PET.CODESPECIFICACION AND STK.BULTO=(SELECT BULTO FROM IPLPETBULTOSMUE WHERE CODPETICION=$P{CODPETICION})) END CODLOTFAB,

CASE NVL(PET.FECENT,0) WHEN 0 THEN NULL ELSE TO_CHAR(TO_DATE(PET.FECENT, 'J'), 'DD-MM-YY') END FECENT,

RTRIM(to_char(CANTIP62HOST(PET.CANTLOTFAB, ART.UNIDADES, ART.UNIDADESHOST), 'FM999990.99999'), '.') || (SELECT UNIDADESHOST FROM IPARTIC WHERE CODART=PET.CODESPECIFICACION) CANTLOTFAB,

(SELECT UNIDADESHOST FROM IPARTIC WHERE CODART=PET.CODESPECIFICACION) TIPOUNI,

PET.UNIDADESHOST,

CASE NVL(PET.FECDISTRIBU,0) WHEN 0 THEN NULL ELSE TO_CHAR(TO_DATE(PET.FECDISTRIBU, 'J'), 'DD-MM-YY') END FECDISTRIBU,

PET.UNIEMB,

CASE WHEN PMV.OPERACION = 'IMPUREZAS' THEN

NVL((SELECT TRAD.TRADUCIDO FROM IPTRADUCCION TRAD WHERE PMV.DESCVARIABLE= TRAD.ORIGINAL AND PET.CODCOMEN=TRAD.CODTRADUCCION AND TRAD.IDIOMA='ESP'),PMV.DESCVARIABLE) ELSE

NVL( NVL((SELECT TRAD.TRADUCIDO FROM IPTRADUCCION TRAD WHERE PM.TEXTOESPECIFICACION= TRAD.ORIGINAL AND PET.CODCOMEN=TRAD.CODTRADUCCION AND TRAD.IDIOMA='ESP'),PM.TEXTOESPECIFICACION) , NVL((SELECT TRAD.TRADUCIDO FROM IPTRADUCCION TRAD WHERE PM.DESENSESP= TRAD.ORIGINAL AND PET.CODCOMEN=TRAD.CODTRADUCCION AND TRAD.IDIOMA='ESP'),PM.DESENSESP)) END TEXTOESPECIFICACION,

NVL((SELECT TRAD.TRADUCIDO FROM IPTRADUCCION TRAD WHERE PM.DESCENSAYO= TRAD.ORIGINAL AND PET.CODCOMEN=TRAD.CODTRADUCCION AND TRAD.IDIOMA='ESP'),PM.DESCENSAYO) ENS,

PM.CODESPECIFICACION ESP,

NVL((SELECT TRAD.TRADUCIDO FROM IPTRADUCCION TRAD WHERE PM.TEXTOESPECIFICACION= TRAD.ORIGINAL AND PET.CODCOMEN=TRAD.CODTRADUCCION AND TRAD.IDIOMA='ESP'),PM.TEXTOESPECIFICACION) ESPEC,

PM.DESENSESP, PM.PROCEDIMIENTO METODO,

NVL((SELECT TRAD.TRADUCIDO FROM IPTRADUCCION TRAD WHERE PMV.NOMVARIABLE= TRAD.ORIGINAL AND PET.CODCOMEN=TRAD.CODTRADUCCION AND TRAD.IDIOMA='ESP'),PMV.NOMVARIABLE) NOMVARIABLE,

NVL((SELECT TRAD.TRADUCIDO FROM IPTRADUCCION TRAD WHERE PMV.DESCVARIABLE= TRAD.ORIGINAL AND PET.CODCOMEN=TRAD.CODTRADUCCION AND TRAD.IDIOMA='ESP'),PMV.DESCVARIABLE) DESCVARIABLE,

NVL((SELECT TRAD.TRADUCIDO FROM IPTRADUCCION TRAD WHERE PMV.RESULTADO= TRAD.ORIGINAL AND PET.CODCOMEN=TRAD.CODTRADUCCION AND TRAD.IDIOMA='ESP'),PMV.RESULTADO)||' '||PMV.UNIDADESHOST RESULTADO,

PMV.UNIDADESHOST,

PMV.DESCTAREA,

PMV.FORMULA,

PET.CODOPEFIRMA,

TA.TERMINO VEREDICTO,

PM.SEQENSAYO,

pm.codensayo,

pm.codpeticion,

case when TA.TERMINO = 'NO CUMPLE' THEN 1 else 0 END RECHAZADA

FROM IPLPETMUEENSAYO PM,IPLPETMUEVARIABLETAREA PMV, IPLPETICION PET,

IPLTERMINOSATRIBUTO TA WHERE PM.CODPETICION=$P{CODPETICION} AND PMV.CODPETICION=PM.CODPETICION AND PMV.CODENSAYO=PM.CODENSAYO AND PM.CODPETICION=PET.CODPETICION AND PMV.RESULTADO IS NOT NULL AND PMV.OPERACION IN ('TODOS','CERTIFICADO', 'IMPUREZAS') AND PM.INFOCLIEXTRA IS NOT NULL AND PM.SEQENSAYO=PMV.SEQENSAYO

AND (PM.STATUS < 13000 OR PM.STATUS IS NULL)

AND TA.TIPODESC=PM.TIPOATRIBUTO

AND PMV.NOMVARIABLE <> 'COMENTARIOS'

AND TA.DESCRIPCION=PM.ATRIBUTO

AND (REPLACE(TA.SWTDGN,'S',1)=PM.INFOCLIEXTRA OR REPLACE(TA.SWTDGN,'N',0)=PM.INFOCLIEXTRA )

ORDER BY PM.ORDENIMP,PMV.NOMVARIABLE ASC)) DIAGNOSTICOGRAL,

CASE NVL(PET.FECCADUCI,0) WHEN 0 THEN NULL ELSE TO_CHAR(TO_DATE(PET.FECCADUCI, 'J'), 'DD-MM-YY') END FECCADUCI,

CASE NVL(PET.FECFIRMA,0) WHEN 0 THEN 'SIN FECHA' ELSE TO_CHAR(TO_DATE(PET.FECFIRMA, 'J'), 'DD-MM-YY') END FECFIRMA,

TO_CHAR(TO_DATE(FECHASYS, 'J'), 'DD-MM-YY') FECHAHOY,

(SELECT distinct descli FROM ipdirecciones WHERE codcli=(select codorigen from iplpeticion where CODPETICION=$P{CODPETICION})) CLIENTE,

(SELECT distinct DIRECCION FROM IPDIRECCIONES WHERE DESCLI=(SELECT distinct descli FROM ipdirecciones WHERE codcli=(select codorigen from iplpeticion where CODPETICION=$P{CODPETICION}))) DIRECCION,

(SELECT distinct TELEFONO FROM IPDIRECCIONES WHERE DESCLI=(SELECT distinct descli FROM ipdirecciones WHERE codcli=(select codorigen from iplpeticion where CODPETICION=$P{CODPETICION}))) TELEFONO,

(SELECT distinct NOMBREEXT FROM IPDIRECCIONES WHERE DESCLI=(SELECT distinct descli FROM ipdirecciones WHERE codcli=(select codorigen from iplpeticion where CODPETICION=$P{CODPETICION}))) NIT,

nvl((SELECT INFOCLIEXTRA FROM IPUSUARIO WHERE CODOPE=PET.CODOPEFIRMA),'SIN FIRMA') NOMBREFIRMA,

nvl((SELECT USU.INFOCLIEXTRA FROM IPLPETFIRMAS PFI, IPUSUARIO USU WHERE PFI.CODOPEFIRMA=USU.CODOPE AND PFI.GRUPOFIRMA = 'ADMINISTRATIVO' AND PFI.CODPETICION = $P{CODPETICION}),'SIN FIRMA') NOMBRER,

(SELECT CASE NVL(PFI.FECFIRMA,0) WHEN '0' THEN 'SIN FECHA' ELSE TO_CHAR(TO_DATE(PFI.FECFIRMA, 'J'), 'DD-MM-YY') END FROM IPLPETFIRMAS PFI WHERE PFI.CODPETICION = PET.CODPETICION AND PFI.GRUPOFIRMA = 'ADMINISTRATIVO') FECFIRMAR,

(SELECT MAX(valor) FROM IPLLOTESDATOSCOMP WHERE CODLOT=(SELECT CODLOTFAB FROM IPLPETICION WHERE CODPETICION=$P{CODPETICION}) AND PROPIEDAD='Fabricante') FABRICANTE,

(SELECT TO_CHAR(TO_DATE(CADUCI, 'YYYYMMDD'), 'MM-YY') FROM IPLOTES WHERE CODLOT=(SELECT CODLOTFAB FROM IPLPETICION WHERE CODPETICION=$P{CODPETICION}) AND CODART=(SELECT CODESPECIFICACION FROM IPLPETICION WHERE CODPETICION=$P{CODPETICION}) AND ROWNUM = 1) FECVEN,

(SELECT TO_CHAR(TO_DATE(MAX(valor),'DD-MM-YY'),'MM-YY') FROM IPLLOTESDATOSCOMP WHERE CODLOT=(SELECT CODLOTFAB FROM IPLPETICION WHERE CODPETICION=$P{CODPETICION}) AND PROPIEDAD='Fecha de Fabricacion') FECFAB,

NVL((SELECT STK.BULTO FROM IPSTOCK STK WHERE STK.CODLOT = PET.CODLOTFAB AND STK.CODART = PET.CODESPECIFICACION AND ROWNUM = 1), 'SIN STOCK') QC,NVL((SELECT BULTO FROM IPLPETBULTOSMUE WHERE CODPETICION=$P{CODPETICION}),'SIN STOCK')QCL,(SELECT valor FROM IPLLOTESDATOSCOMP WHERE CODLOT=(SELECT CODLOTFAB FROM IPLPETICION WHERE CODPETICION=$P{CODPETICION}) AND PROPIEDAD='Forma Farmaceutica') FFARMA,

(SELECT valor FROM IPLLOTESDATOSCOMP WHERE CODLOT=(SELECT CODLOTFAB FROM IPLPETICION WHERE CODPETICION=$P{CODPETICION}) AND PROPIEDAD='Presentacion') PRESENTACION,

(SELECT valor FROM IPLLOTESDATOSCOMP WHERE CODLOT=(SELECT CODLOTFAB FROM IPLPETICION WHERE CODPETICION=$P{CODPETICION}) AND PROPIEDAD='Principio Activo') PACTIVO,(SELECT valor FROM IPLLOTESDATOSCOMP WHERE CODLOT=(SELECT CODLOTFAB FROM IPLPETICION WHERE CODPETICION=$P{CODPETICION}) AND PROPIEDAD='Concentracion') CONCENTRACION,

(SELECT MAX(valor) FROM IPLLOTESDATOSCOMP WHERE CODLOT=(SELECT CODLOTFAB FROM IPLPETICION WHERE CODPETICION=$P{CODPETICION}) AND PROPIEDAD='Proveedor') PROVEEDOR,

NVL((SELECT MAX(valor) FROM IPLLOTESDATOSCOMP WHERE CODLOT=(SELECT CODLOTFAB FROM IPLPETICION WHERE CODPETICION=$P{CODPETICION}) AND PROPIEDAD='Fecha de Reanalisis'),'N/A') FREANALISIS,

(SELECT MAX(valor) FROM IPLLOTESDATOSCOMP WHERE CODLOT=(SELECT CODLOTFAB FROM IPLPETICION WHERE CODPETICION=$P{CODPETICION}) AND PROPIEDAD='Origen') ORIGEN,

nvl((select infocliextra from iplpetdatoscomp where propiedad='Observaciones' and codpeticion=PET.codpeticion AND ROWNUM=1 AND INFOCLIEXTRA IS NOT NULL),'Sin observaciones') OBSERVACIONES,

nvl((select VALOR from IPLESPTERMDATOSCOMPESP where propiedad='Metodologia - Versión' and CODESPECIFICACION=PET.CODESPECIFICACION AND VERSION=PET.VERSION AND VALOR IS NOT NULL),'Sin metodologia') METODOLOGIA,

nvl((select VALOR from IPLESPTERMDATOSCOMPESP where propiedad='Especificación' and CODESPECIFICACION=PET.CODESPECIFICACION AND VERSION=PET.VERSION AND VALOR IS NOT NULL),'Sin Especificación') ESPECIFICACION

FROM IPLPETICION PET

INNER JOIN IPARTIC ART ON ART.CODART = PET.CODART

WHERE CODPETICION = $P{CODPETICION}

=========================================000 ESTA ES LA MODIFICACION 21-03-2023

SELECT PET.CODPETICION,

PET.CODESPECIFICACION,

(SELECT DESART FROM IPARTIC WHERE CODART=PET.CODESPECIFICACION) DESART,

CASE NVL(PET.FECENT,0) WHEN 0 THEN NULL ELSE TO_CHAR(TO_DATE(PET.FECENT, 'J'), 'DD-MM-YY') END FECENT,

RTRIM(to_char(CANTIP62HOST(PET.CANTLOTFAB, ART.UNIDADES, ART.UNIDADESHOST), 'FM999990.99999'), '.') || (SELECT UNIDADESHOST FROM IPARTIC WHERE CODART=PET.CODESPECIFICACION) CANTLOTFAB,

(SELECT UNIDADESHOST FROM IPARTIC WHERE CODART=PET.CODESPECIFICACION) TIPOUNI,

PET.UNIDADESHOST,

CASE NVL(PET.FECDISTRIBU,0) WHEN 0 THEN NULL ELSE TO_CHAR(TO_DATE(PET.FECDISTRIBU, 'J'), 'DD-MM-YY') END FECDISTRIBU,

PET.UNIEMB,

DECODE(NVL((SELECT TRAD.TRADUCIDO FROM IPTRADUCCION TRAD WHERE PET.DIAGNOSTICO= TRAD.ORIGINAL AND PET.CODCOMEN=TRAD.CODTRADUCCION AND TRAD.IDIOMA='ESP'),PET.DIAGNOSTICO),'LIBERADA','APROBADA') DIAGNOSTICO,( SELECT CASE WHEN SUM(RECHAZADA) > 0 THEN 'SIN CONCEPTO' WHEN (SELECT USU.INFOCLIEXTRA FROM IPUSUARIO USU, IPLPETICION PETI WHERE USU.CODOPE=PETI.CODOPEFIRMA AND PETI.CODPETICION = $P{CODPETICION} AND ROWNUM=1) IS NULL AND (SELECT USU.INFOCLIEXTRA FROM IPLPETFIRMAS PFI, IPUSUARIO USU WHERE PFI.CODOPEFIRMA=USU.CODOPE AND PFI.GRUPOFIRMA = 'ADMINISTRATIVO' AND PFI.CODPETICION = $P{CODPETICION}AND ROWNUM=1) IS NULL THEN 'SIN CONCEPTO' ELSE 'APROBADA' END DIAGNOSTICOGRAL FROM (SELECT

CASE WHEN PMV.OPERACION = 'IMPUREZAS' THEN

NVL((SELECT TRAD.TRADUCIDO FROM IPTRADUCCION TRAD WHERE PMV.DESCVARIABLE= TRAD.ORIGINAL AND PET.CODCOMEN=TRAD.CODTRADUCCION AND TRAD.IDIOMA='ESP'),PMV.DESCVARIABLE) ELSE

NVL((SELECT TRAD.TRADUCIDO FROM IPTRADUCCION TRAD WHERE PM.DESCENSAYO= TRAD.ORIGINAL AND PET.CODCOMEN=TRAD.CODTRADUCCION AND TRAD.IDIOMA='ESP'),PM.DESCENSAYO) ENS,

PM.CODESPECIFICACION ESP,

NVL((SELECT TRAD.TRADUCIDO FROM IPTRADUCCION TRAD WHERE PM.TEXTOESPECIFICACION= TRAD.ORIGINAL AND PET.CODCOMEN=TRAD.CODTRADUCCION AND TRAD.IDIOMA='ESP'),PM.TEXTOESPECIFICACION) ESPEC,

PM.DESENSESP, PM.PROCEDIMIENTO METODO,

NVL((SELECT TRAD.TRADUCIDO FROM IPTRADUCCION TRAD WHERE PMV.NOMVARIABLE= TRAD.ORIGINAL AND PET.CODCOMEN=TRAD.CODTRADUCCION AND TRAD.IDIOMA='ESP'),PMV.NOMVARIABLE) NOMVARIABLE,

NVL((SELECT TRAD.TRADUCIDO FROM IPTRADUCCION TRAD WHERE PMV.DESCVARIABLE= TRAD.ORIGINAL AND PET.CODCOMEN=TRAD.CODTRADUCCION AND TRAD.IDIOMA='ESP'),PMV.DESCVARIABLE) DESCVARIABLE,

NVL((SELECT TRAD.TRADUCIDO FROM IPTRADUCCION TRAD WHERE PMV.RESULTADO= TRAD.ORIGINAL AND PET.CODCOMEN=TRAD.CODTRADUCCION AND TRAD.IDIOMA='ESP'),PMV.RESULTADO)||' '||PMV.UNIDADESHOST RESULTADO,

PMV.UNIDADESHOST,

PMV.DESCTAREA,

PMV.FORMULA,

PET.CODOPEFIRMA,

TA.TERMINO VEREDICTO,

PM.SEQENSAYO,

pm.codensayo,

pm.codpeticion,

case when TA.TERMINO = 'NO CUMPLE' THEN 1 else 0 END RECHAZADA

FROM IPLPETMUEENSAYO PM,IPLPETMUEVARIABLETAREA PMV, IPLPETICION PET,

AND (PM.STATUS < 13000 OR PM.STATUS IS NULL)

AND TA.TIPODESC=PM.TIPOATRIBUTO

AND PMV.NOMVARIABLE <> 'COMENTARIOS'

AND TA.DESCRIPCION=PM.ATRIBUTO

AND (REPLACE(TA.SWTDGN,'S',1)=PM.INFOCLIEXTRA OR REPLACE(TA.SWTDGN,'N',0)=PM.INFOCLIEXTRA )

ORDER BY PM.ORDENIMP,PMV.NOMVARIABLE ASC)WHERE ROWNUM=1 GROUP BY RECHAZADA) DIAGNOSTICOGRAL,