Query executada cliente não respondeu

Conceito

Quando o cliente responder ao chatbot, vamos guardar a resposta na tabela “CRM_CHATBOT_RESPOSTA”

Ou seja, se não tem registro nesta tabela, ainda não respondeu

Query

 Procedure Job_Leadzap_Nao_Respondeu Is

   Begin

     For CHAT_BOT In (SELECT E.COD_EMPRESA,

                             E.COD_EVENTO,

                             F.ID_DISPARO

                      FROM CRM_EVENTOS E,

                           CRM_DISPARO_FILA F,

                           PARM_SYS3 PS

                      WHERE E.COD_EVENTO  = F.COD_EVENTO

                        AND E.COD_EMPRESA = PS.COD_EMPRESA

                        AND F.STATUS      = 'E'  --ENVIADO

                        AND E.STATUS      = 'P'  --EVENTO PENDENTE

                        --Tira Cliente = 1

                        AND E.COD_CLIENTE <> 1

                        AND NOT EXISTS (SELECT 1

                                        FROM CRM_CHATBOT_RESPOSTA R

                                        WHERE R.COD_EVENTO = E.COD_EVENTO

                                         AND R.COD_EMPRESA = E.COD_EMPRESA) --NAO FOI RESPONDIDO

                        AND (SYSDATE - F.DATA_DISPARO) > NVL(PS.LEADZAP_NAO_RESPONDEU, 1)

                      Union

                      SELECT E.COD_EMPRESA,

                             E.COD_EVENTO,

                             0 ID_DISPARO

                      FROM CRM_EVENTOS E,

                           PARM_SYS3 PS

                      WHERE E.STATUS = 'P' --EVENTO PENDENTE

                        AND E.COD_EMPRESA = PS.COD_EMPRESA

                        --Tira Cliente = 1

                        AND E.COD_CLIENTE <> 1

                        AND NOT EXISTS (SELECT 1

                                        FROM CRM_CHATBOT_RESPOSTA R

                                        WHERE R.COD_EVENTO = E.COD_EVENTO

                                         AND R.COD_EMPRESA = E.COD_EMPRESA)  --NAO FOI RESPONDIDO

                        AND E.COD_PROGRAMACAO IN (1000002) --- AGENDAMENTO SOMENTE

                        AND (SYSDATE - E.DATA_EVENTO) >  NVL(PS.LEADZAP_NAO_RESPONDEU, 1)) LOOP

        Insert Into Crm_Chatbot_Resposta

          (COD_EMPRESA, COD_EVENTO, ID_DISPARO, ID_ITEM)

        Values

          (CHAT_BOT.Cod_Empresa, CHAT_BOT.Cod_Evento, CHAT_BOT.Id_Disparo, 99);

     End Loop;