SE REALIZAN MODIFCACIONES AL SCRIPT DE CERTIFICADO DE PT EL CUAL QUEDO DE LA SIGUIENTE MANERA:
EL ARCHIVO EN DONDE ESTA EL SCRIPT: CC_Informe_CertificadoPTESP.jrxml
ESE SCRIPT ES DE LA CABECERA
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,
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 'RECHAZADA' 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( 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}
ESTE ES EL RESULTADO DE LA MODIFICACION:
