T_EXISTE_SERVICO := 0;
    SELECT COUNT(0)
    INTO T_EXISTE_SERVICO
    FROM TFA_PABX P , TFA_REL_SERVICO_PABX S
    WHERE P.CD_PABX = S.CD_PABX
    AND S.SIGLA_SERVICO_CONT_FILHO = 'PVN'
    AND P.CONTA_CORRENTE = P_CONTA_CORRENTE_AGREG
    AND P.NUM_SEQ_PONTA = TO_NUMBER(SUBSTR(P_DESIGNACAO, -4));
    IF T_EXISTE_SERVICO > 0 THEN
       T_IN_PVN := 'S';
    END IF;
    TO_RETORNO     := RPAD('Contrato nco encontrado.', 100, ' ');