PROCEDURE SENA.sql

CREATE OR REPLACE PROCEDURE SANKHYA.STP_MEGA(P_QUEIMA NUMBER)
AS

    P_VALOR VARCHAR2(100 BYTE);
    P_DEZENA1  NUMBER;
    P_DEZENA2  NUMBER;
    P_DEZENA3  NUMBER;
    P_DEZENA4  NUMBER;
    P_DEZENA5  NUMBER;
    P_DEZENA6  NUMBER;
    P_MESMADEZENA1      NUMBER;
    P_MESMADEZENA2      NUMBER;
    P_MESMADEZENA3      NUMBER;
    P_MESMADEZENA4      NUMBER;
    P_MESMADEZENA5      NUMBER;
    P_MESMADEZENA12     NUMBER;
    P_MESMADEZENA22     NUMBER;
    P_MESMADEZENA32     NUMBER;
    P_MESMADEZENA42     NUMBER;
    P_MESMADEZENA52     NUMBER;
    P_MESMADEZENA13     NUMBER;
    P_MESMADEZENA23     NUMBER;
    P_MESMADEZENA33     NUMBER;
    P_MESMADEZENA43     NUMBER;
    P_MESMADEZENA53     NUMBER;
    P_MESMADEZENA14     NUMBER;
    P_MESMADEZENA24     NUMBER;
    P_MESMADEZENA34     NUMBER;
    P_MESMADEZENA44     NUMBER;
    P_MESMADEZENA54     NUMBER;
    P_MESMADEZENA15     NUMBER;
    P_MESMADEZENA25     NUMBER;
    P_MESMADEZENA35     NUMBER;
    P_MESMADEZENA45     NUMBER;
    P_MESMADEZENA55     NUMBER;
    P_MESMADEZENA16     NUMBER;
    P_MESMADEZENA26     NUMBER;
    P_MESMADEZENA36     NUMBER;
    P_MESMADEZENA46     NUMBER;
    P_MESMADEZENA56     NUMBER;
    --QUADRANTES
    P_QUADRANTE11       NUMBER;
    P_QUADRANTE12       NUMBER;
    P_QUADRANTE13       NUMBER;
    P_QUADRANTE14       NUMBER;
    P_QUADRANTE15       NUMBER;
    P_QUADRANTE16       NUMBER;
    P_QUADRANTE21       NUMBER;
    P_QUADRANTE22       NUMBER;
    P_QUADRANTE23       NUMBER;
    P_QUADRANTE24       NUMBER;
    P_QUADRANTE25       NUMBER;
    P_QUADRANTE26       NUMBER;
    P_QUADRANTE31       NUMBER;
    P_QUADRANTE32       NUMBER;
    P_QUADRANTE33       NUMBER;
    P_QUADRANTE34       NUMBER;
    P_QUADRANTE35       NUMBER;
    P_QUADRANTE36       NUMBER;
    P_QUADRANTE41       NUMBER;
    P_QUADRANTE42       NUMBER;
    P_QUADRANTE43       NUMBER;
    P_QUADRANTE44       NUMBER;
    P_QUADRANTE45       NUMBER;
    P_QUADRANTE46       NUMBER;
    --SORTEIO
    P_NROSORTEIO        INT;
    TYPE tVETOR IS VARRAY(6) OF NUMBER(2);
    
    V tVETOR; --declara um vetor com o nome V e o tipo tVetor
    i NUMBER := 1;
    j NUMBER;
    k NUMBER;
    qtd NUMBER;


BEGIN

--ERRO SE NÃO INFORMAR O NUMERO CERTO PARA QUEIMAR DEZENA
 IF P_QUEIMA NOT IN (0,1,11,21,31,41,51) THEN
  RAISE_APPLICATION_ERROR(-20101,'PARA QUEIMAR TEM QUE OS SEGUINTES NÚMEROS VÁLIDOS: (1,11,21,31,41,51)');
 END IF;
  

 --GERAR DEZENA ATÉ GERAR SOMENTE SEM A QUE FOI QUEIMADA
 SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA1
   FROM DUAL;
  WHILE (P_DEZENA1 >=P_QUEIMA AND P_DEZENA1<=P_QUEIMA+9) AND P_QUEIMA <> 0
            LOOP
            SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA1
             FROM DUAL;
  END LOOP;
  
  
  SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA2
  FROM DUAL;
   WHILE P_DEZENA2 >=P_QUEIMA AND P_DEZENA2<=P_QUEIMA+9  AND P_QUEIMA <> 0
   LOOP
    SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA2
     FROM DUAL;
    
  END LOOP;
  
  SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA3
  FROM DUAL;
   WHILE P_DEZENA3 >=P_QUEIMA AND P_DEZENA3<=P_QUEIMA+9 AND P_QUEIMA <> 0
   LOOP
    SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA3
     FROM DUAL;
    
  END LOOP;

  SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA4
  FROM DUAL;
   WHILE P_DEZENA4 >=P_QUEIMA AND P_DEZENA4<=P_QUEIMA+9  AND P_QUEIMA <> 0
   LOOP
    SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA4
     FROM DUAL;
    
  END LOOP;
  
  SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA5
  FROM DUAL;
   WHILE P_DEZENA5 >=P_QUEIMA AND P_DEZENA5<=P_QUEIMA+9  LOOP
    SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA5
     FROM DUAL;
    
  END LOOP;
  
  SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA6
  FROM DUAL;
   WHILE P_DEZENA6 >=P_QUEIMA AND P_DEZENA6<=P_QUEIMA+9 AND P_QUEIMA <> 0
   LOOP
    SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA6
     FROM DUAL;
    
  END LOOP;
  P_MESMADEZENA1:=0;
  P_MESMADEZENA2:=0;
  P_MESMADEZENA3:=0;
  P_MESMADEZENA4:=0;
  P_MESMADEZENA5:=0;
  
  --ORDENAR DEZENAS
     V:= tVETOR(P_DEZENA1,P_DEZENA2,P_DEZENA3,P_DEZENA4,P_DEZENA5,P_DEZENA6);
   
   
   WHILE i <= 6 LOOP /* looping para contagem de tamanho do vetor */
      j := 1;
    qtd := 0;
    
    WHILE j <= 6 LOOP /* looping para a verificação dos valores */
        IF v(i) > v(j) THEN /* verificação se posição x é maior que posição y */
        qtd := qtd + 1; /* contagem para atribuição de valores nas variáveis */
        END IF;
        j := j + 1;
        END LOOP;

        IF (qtd + 1 = 1) THEN /* atribuindo valores as variáveis conforme a contagem */
        P_DEZENA1 := v(i);
        ELSIF (qtd + 1 = 2) THEN
        P_DEZENA2 := v(i);
        ELSIF (qtd + 1 = 3) THEN
        P_DEZENA3 := v(i);
        ELSIF (qtd + 1 = 4) THEN
        P_DEZENA4 := v(i);
        ELSIF (qtd + 1 = 5) THEN
        P_DEZENA5 := v(i);
        ELSE
        P_DEZENA6 := v(i);
        END IF;

        i := i + 1;

   END LOOP;
   
  --VERIFICAR SE DEZENAS ESTAO COM MENOS DE 10 NUMEROS DE DIFERENCA
    IF RETORNA_INTEIRO((P_DEZENA1 - P_DEZENA2)) < 6 
    THEN P_MESMADEZENA1:=1;
    END IF;
    IF RETORNA_INTEIRO(P_DEZENA1 - P_DEZENA3) < 6 
    THEN P_MESMADEZENA2:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA1 - P_DEZENA4) < 6 
    THEN P_MESMADEZENA3:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA1 - P_DEZENA5) < 6 
    THEN P_MESMADEZENA4:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA1 - P_DEZENA6) < 6 
    THEN P_MESMADEZENA5:=1;
    END IF; 
    
        IF RETORNA_INTEIRO((P_DEZENA2 - P_DEZENA1)) < 6 
    THEN P_MESMADEZENA12:=1;
    END IF;
    IF RETORNA_INTEIRO(P_DEZENA2 - P_DEZENA3) < 6 
    THEN P_MESMADEZENA22:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA2 - P_DEZENA4) < 6 
    THEN P_MESMADEZENA32:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA2 - P_DEZENA5) < 6 
    THEN P_MESMADEZENA42:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA2 - P_DEZENA6) < 6 
    THEN P_MESMADEZENA52:=1;
    END IF;
    
    IF RETORNA_INTEIRO((P_DEZENA3 - P_DEZENA1)) < 6 
    THEN P_MESMADEZENA13:=1;
    END IF;
    IF RETORNA_INTEIRO(P_DEZENA3 - P_DEZENA2) < 6 
    THEN P_MESMADEZENA23:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA3 - P_DEZENA4) < 6 
    THEN P_MESMADEZENA33:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA3 - P_DEZENA5) < 6 
    THEN P_MESMADEZENA43:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA3 - P_DEZENA6) < 6 
    THEN P_MESMADEZENA53:=1;
    END IF;
    
    IF RETORNA_INTEIRO((P_DEZENA4 - P_DEZENA1)) < 6 
    THEN P_MESMADEZENA14:=1;
    END IF;
    IF RETORNA_INTEIRO(P_DEZENA4 - P_DEZENA2) < 6 
    THEN P_MESMADEZENA24:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA4 - P_DEZENA3) < 6 
    THEN P_MESMADEZENA34:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA4 - P_DEZENA5) < 6 
    THEN P_MESMADEZENA44:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA4 - P_DEZENA6) < 6 
    THEN P_MESMADEZENA54:=1;
    END IF;
    
    IF RETORNA_INTEIRO((P_DEZENA5 - P_DEZENA1)) < 6 
    THEN P_MESMADEZENA15:=1;
    END IF;
    IF RETORNA_INTEIRO(P_DEZENA5 - P_DEZENA2) < 6 
    THEN P_MESMADEZENA25:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA5 - P_DEZENA3) < 6 
    THEN P_MESMADEZENA35:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA5 - P_DEZENA4) < 6 
    THEN P_MESMADEZENA45:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA5 - P_DEZENA6) < 6 
    THEN P_MESMADEZENA55:=1;
    END IF;
    
    IF RETORNA_INTEIRO((P_DEZENA6 - P_DEZENA1)) < 6 
    THEN P_MESMADEZENA16:=1;
    END IF;
    IF RETORNA_INTEIRO(P_DEZENA6 - P_DEZENA2) < 6 
    THEN P_MESMADEZENA26:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA6 - P_DEZENA3) < 6 
    THEN P_MESMADEZENA36:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA6 - P_DEZENA4) < 6 
    THEN P_MESMADEZENA46:=1;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA6 - P_DEZENA5) < 6 
    THEN P_MESMADEZENA56:=1;
    END IF;
    
    --VERIFICAR SE DEZENAS ESTÃO NO QUADRANTE 1
    SELECT COUNT(1) INTO P_QUADRANTE11                      
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE1 = P_DEZENA1;
     
    SELECT COUNT(1) INTO P_QUADRANTE12
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE1 = P_DEZENA2;
     
    SELECT COUNT(1) INTO P_QUADRANTE13
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE1 = P_DEZENA3;
    
    SELECT COUNT(1) INTO P_QUADRANTE14
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE1 = P_DEZENA4;
     
    SELECT COUNT(1) INTO P_QUADRANTE15
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE1 = P_DEZENA5;
     
    SELECT COUNT(1) INTO P_QUADRANTE16
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE1 = P_DEZENA6;
     
        --VERIFICAR SE DEZENAS ESTÃO NO QUADRANTE 2
    SELECT COUNT(1) INTO P_QUADRANTE21
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE2 = P_DEZENA1;
     
    SELECT COUNT(1) INTO P_QUADRANTE22
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE2 = P_DEZENA2;
     
    SELECT COUNT(1) INTO P_QUADRANTE23
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE2 = P_DEZENA3;
    
    SELECT COUNT(1) INTO P_QUADRANTE24
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE2 = P_DEZENA4;
     
    SELECT COUNT(1) INTO P_QUADRANTE25
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE2 = P_DEZENA5;
     
    SELECT COUNT(1) INTO P_QUADRANTE26
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE2 = P_DEZENA6;
     
             --VERIFICAR SE DEZENAS ESTÃO NO QUADRANTE 3
    SELECT COUNT(1) INTO P_QUADRANTE31
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE3 = P_DEZENA1;
     
    SELECT COUNT(1) INTO P_QUADRANTE32
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE3 = P_DEZENA2;
     
    SELECT COUNT(1) INTO P_QUADRANTE33
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE3 = P_DEZENA3;
    
    SELECT COUNT(1) INTO P_QUADRANTE34
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE3 = P_DEZENA4;
     
    SELECT COUNT(1) INTO P_QUADRANTE35
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE3 = P_DEZENA5;
     
    SELECT COUNT(1) INTO P_QUADRANTE36
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE3 = P_DEZENA6;
     
                  --VERIFICAR SE DEZENAS ESTÃO NO QUADRANTE 4
    SELECT COUNT(1) INTO P_QUADRANTE41
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE4 = P_DEZENA1;
     
    SELECT COUNT(1) INTO P_QUADRANTE42
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE4 = P_DEZENA2;
     
    SELECT COUNT(1) INTO P_QUADRANTE43
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE4 = P_DEZENA3;
    
    SELECT COUNT(1) INTO P_QUADRANTE44
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE4 = P_DEZENA4;
     
    SELECT COUNT(1) INTO P_QUADRANTE45
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE4 = P_DEZENA5;
     
    SELECT COUNT(1) INTO P_QUADRANTE46
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE4 = P_DEZENA6;
  
  WHILE  (((P_DEZENA1 = P_DEZENA2) OR (P_DEZENA1 = P_DEZENA3) OR (P_DEZENA1 = P_DEZENA4) OR (P_DEZENA1 = P_DEZENA5) OR (P_DEZENA1 = P_DEZENA6))
 OR 
   ((P_DEZENA2 = P_DEZENA3) OR (P_DEZENA2 = P_DEZENA4) OR (P_DEZENA2 = P_DEZENA5) OR (P_DEZENA2 = P_DEZENA6))
 OR 
   ((P_DEZENA3 = P_DEZENA4) OR (P_DEZENA3 = P_DEZENA5) OR (P_DEZENA3 = P_DEZENA6))
    OR 
   ((P_DEZENA4 = P_DEZENA5) OR (P_DEZENA4 = P_DEZENA6))
   OR 
   ((P_DEZENA5 = P_DEZENA6))) 
   OR ((P_MESMADEZENA1+P_MESMADEZENA2+P_MESMADEZENA3+P_MESMADEZENA4+P_MESMADEZENA5) > 3
   OR (P_MESMADEZENA12+P_MESMADEZENA22+P_MESMADEZENA32+P_MESMADEZENA42+P_MESMADEZENA52) > 3
   OR (P_MESMADEZENA13+P_MESMADEZENA23+P_MESMADEZENA33+P_MESMADEZENA43+P_MESMADEZENA53) > 3
   OR (P_MESMADEZENA14+P_MESMADEZENA24+P_MESMADEZENA34+P_MESMADEZENA44+P_MESMADEZENA54) > 3 
   OR (P_MESMADEZENA15+P_MESMADEZENA25+P_MESMADEZENA35+P_MESMADEZENA45+P_MESMADEZENA55) > 3 
   OR (P_MESMADEZENA16+P_MESMADEZENA26+P_MESMADEZENA36+P_MESMADEZENA46+P_MESMADEZENA56) > 3 ) 
   OR --NOT
   (  (P_QUADRANTE11+P_QUADRANTE12+P_QUADRANTE13+P_QUADRANTE14+P_QUADRANTE15+P_QUADRANTE16) >4
   OR (P_QUADRANTE21+P_QUADRANTE22+P_QUADRANTE23+P_QUADRANTE24+P_QUADRANTE25+P_QUADRANTE26) >4   
   OR (P_QUADRANTE31+P_QUADRANTE32+P_QUADRANTE33+P_QUADRANTE34+P_QUADRANTE35+P_QUADRANTE36) >4
   OR (P_QUADRANTE41+P_QUADRANTE42+P_QUADRANTE43+P_QUADRANTE44+P_QUADRANTE45+P_QUADRANTE46) >4)
   OR ((P_DEZENA6 < 25) OR (P_DEZENA1 > 40) OR (P_DEZENA2 >50) OR (P_DEZENA5 <10))
   OR (P_DEZENA1 * P_DEZENA2 * P_DEZENA3 * P_DEZENA4 * P_DEZENA5 * P_DEZENA6) < 56000
   OR (P_DEZENA1 * P_DEZENA2 * P_DEZENA3 * P_DEZENA4 * P_DEZENA5 * P_DEZENA6) > 20023799000
   OR (POWER((
     (POWER(P_DEZENA1 - ((P_DEZENA1 + P_DEZENA2 + P_DEZENA3 + P_DEZENA4 + P_DEZENA5 + P_DEZENA6)/6),2) +
      POWER(P_DEZENA2 - ((P_DEZENA1 + P_DEZENA2 + P_DEZENA3 + P_DEZENA4 + P_DEZENA5 + P_DEZENA6)/6),2) +
      POWER(P_DEZENA3 - ((P_DEZENA1 + P_DEZENA2 + P_DEZENA3 + P_DEZENA4 + P_DEZENA5 + P_DEZENA6)/6),2) +
      POWER(P_DEZENA4 - ((P_DEZENA1 + P_DEZENA2 + P_DEZENA3 + P_DEZENA4 + P_DEZENA5 + P_DEZENA6)/6),2) +
      POWER(P_DEZENA5 - ((P_DEZENA1 + P_DEZENA2 + P_DEZENA3 + P_DEZENA4 + P_DEZENA5 + P_DEZENA6)/6),2) +
      POWER(P_DEZENA6 - ((P_DEZENA1 + P_DEZENA2 + P_DEZENA3 + P_DEZENA4 + P_DEZENA5 + P_DEZENA6)/6),2)) 
      /5),0.5) < 5 OR POWER((
     (POWER(P_DEZENA1 - ((P_DEZENA1 + P_DEZENA2 + P_DEZENA3 + P_DEZENA4 + P_DEZENA5 + P_DEZENA6)/6),2) +
      POWER(P_DEZENA2 - ((P_DEZENA1 + P_DEZENA2 + P_DEZENA3 + P_DEZENA4 + P_DEZENA5 + P_DEZENA6)/6),2) +
      POWER(P_DEZENA3 - ((P_DEZENA1 + P_DEZENA2 + P_DEZENA3 + P_DEZENA4 + P_DEZENA5 + P_DEZENA6)/6),2) +
      POWER(P_DEZENA4 - ((P_DEZENA1 + P_DEZENA2 + P_DEZENA3 + P_DEZENA4 + P_DEZENA5 + P_DEZENA6)/6),2) +
      POWER(P_DEZENA5 - ((P_DEZENA1 + P_DEZENA2 + P_DEZENA3 + P_DEZENA4 + P_DEZENA5 + P_DEZENA6)/6),2) +
      POWER(P_DEZENA6 - ((P_DEZENA1 + P_DEZENA2 + P_DEZENA3 + P_DEZENA4 + P_DEZENA5 + P_DEZENA6)/6),2)) 
      /5),0.5)>28)
       
 LOOP  
              SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA1
          FROM DUAL;
  WHILE (P_DEZENA1 >=P_QUEIMA AND P_DEZENA1<=P_QUEIMA+9) AND P_QUEIMA <> 0
            LOOP
            SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA1
             FROM DUAL;
  END LOOP;
  
  SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA2
  FROM DUAL;
   WHILE P_DEZENA2 >=P_QUEIMA AND P_DEZENA2<=P_QUEIMA+9 AND P_QUEIMA <> 0 
   LOOP
    SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA2
     FROM DUAL;
    
  END LOOP;
  
  SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA3
  FROM DUAL;
   WHILE P_DEZENA3 >=P_QUEIMA AND P_DEZENA3<=P_QUEIMA+9  AND P_QUEIMA <> 0
   LOOP
    SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA3
     FROM DUAL;
     
  END LOOP;
  
  SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA4
  FROM DUAL;
   WHILE P_DEZENA4 >=P_QUEIMA AND P_DEZENA4<=P_QUEIMA+9 AND P_QUEIMA <> 0
    LOOP
    SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA4
     FROM DUAL;
  
  END LOOP;
  
  SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA5
  FROM DUAL;
   WHILE P_DEZENA5 >=P_QUEIMA AND P_DEZENA5<=P_QUEIMA+9 AND P_QUEIMA <> 0
    LOOP
    SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA5
     FROM DUAL;
    
  END LOOP;
  
  SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA6
  FROM DUAL;
   WHILE P_DEZENA6 >=P_QUEIMA AND P_DEZENA6<=P_QUEIMA+9 AND P_QUEIMA <> 0
   LOOP
    SELECT ROUND(DBMS_RANDOM.VALUE(1,60)) INTO P_DEZENA6
     FROM DUAL;

END LOOP;
    
                
    IF RETORNA_INTEIRO((P_DEZENA1 - P_DEZENA2)) < 10 
    THEN P_MESMADEZENA1:=1;
    ELSE P_MESMADEZENA1:=0;
    END IF;
    IF RETORNA_INTEIRO(P_DEZENA1 - P_DEZENA3) < 10 
    THEN P_MESMADEZENA2:=1;
    ELSE P_MESMADEZENA2:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA1 - P_DEZENA4) < 10 
    THEN P_MESMADEZENA3:=1;
    ELSE P_MESMADEZENA3:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA1 - P_DEZENA5) < 10 
    THEN P_MESMADEZENA4:=1;
    ELSE P_MESMADEZENA4:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA1 - P_DEZENA6) < 10 
    THEN P_MESMADEZENA5:=1;
    ELSE P_MESMADEZENA5:=0;
    END IF; 
    
    IF RETORNA_INTEIRO((P_DEZENA2 - P_DEZENA1)) < 10 
    THEN P_MESMADEZENA12:=1;
    ELSE P_MESMADEZENA12:=0;
    END IF;
    IF RETORNA_INTEIRO(P_DEZENA2 - P_DEZENA3) < 10 
    THEN P_MESMADEZENA22:=1;
    ELSE P_MESMADEZENA22:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA2 - P_DEZENA4) < 10 
    THEN P_MESMADEZENA32:=1;
    ELSE P_MESMADEZENA32:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA2 - P_DEZENA5) < 10 
    THEN P_MESMADEZENA42:=1;
    ELSE P_MESMADEZENA42:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA2 - P_DEZENA6) < 10 
    THEN P_MESMADEZENA52:=1;
    ELSE P_MESMADEZENA52:=0;
    END IF; 
    
    IF RETORNA_INTEIRO((P_DEZENA3 - P_DEZENA1)) < 10 
    THEN P_MESMADEZENA13:=1;
    ELSE P_MESMADEZENA13:=0;
    END IF;
    IF RETORNA_INTEIRO(P_DEZENA3 - P_DEZENA2) < 10 
    THEN P_MESMADEZENA23:=1;
    ELSE P_MESMADEZENA23:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA3 - P_DEZENA4) < 10 
    THEN P_MESMADEZENA33:=1;
    ELSE P_MESMADEZENA33:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA3 - P_DEZENA5) < 10 
    THEN P_MESMADEZENA43:=1;
    ELSE P_MESMADEZENA43:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA3 - P_DEZENA6) < 10 
    THEN P_MESMADEZENA53:=1;
    ELSE P_MESMADEZENA53:=0;
    END IF;    
    
    IF RETORNA_INTEIRO((P_DEZENA4 - P_DEZENA1)) < 10 
    THEN P_MESMADEZENA14:=1;
    ELSE P_MESMADEZENA14:=0;
    END IF;
    IF RETORNA_INTEIRO(P_DEZENA4 - P_DEZENA2) < 10 
    THEN P_MESMADEZENA24:=1;
    ELSE P_MESMADEZENA24:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA4 - P_DEZENA3) < 10 
    THEN P_MESMADEZENA34:=1;
    ELSE P_MESMADEZENA34:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA4 - P_DEZENA5) < 10 
    THEN P_MESMADEZENA44:=1;
    ELSE P_MESMADEZENA44:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA4 - P_DEZENA6) < 10 
    THEN P_MESMADEZENA54:=1;
    ELSE P_MESMADEZENA54:=0;
    END IF; 
    
    IF RETORNA_INTEIRO((P_DEZENA5 - P_DEZENA1)) < 10 
    THEN P_MESMADEZENA15:=1;
    ELSE P_MESMADEZENA15:=0;
    END IF;
    IF RETORNA_INTEIRO(P_DEZENA5 - P_DEZENA2) < 10 
    THEN P_MESMADEZENA25:=1;
    ELSE P_MESMADEZENA25:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA5 - P_DEZENA3) < 10 
    THEN P_MESMADEZENA35:=1;
    ELSE P_MESMADEZENA35:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA5 - P_DEZENA4) < 10 
    THEN P_MESMADEZENA45:=1;
    ELSE P_MESMADEZENA45:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA5 - P_DEZENA6) < 10 
    THEN P_MESMADEZENA55:=1;
    ELSE P_MESMADEZENA55:=0;
    END IF; 
    
    IF RETORNA_INTEIRO((P_DEZENA6 - P_DEZENA1)) < 10 
    THEN P_MESMADEZENA16:=1;
    ELSE P_MESMADEZENA16:=0;
    END IF;
    IF RETORNA_INTEIRO(P_DEZENA6 - P_DEZENA2) < 10 
    THEN P_MESMADEZENA26:=1;
    ELSE P_MESMADEZENA26:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA6 - P_DEZENA3) < 10 
    THEN P_MESMADEZENA36:=1;
    ELSE P_MESMADEZENA36:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA6 - P_DEZENA4) < 10 
    THEN P_MESMADEZENA46:=1;
    ELSE P_MESMADEZENA46:=0;
    END IF; 
    IF RETORNA_INTEIRO(P_DEZENA6 - P_DEZENA5) < 10 
    THEN P_MESMADEZENA56:=1;
    ELSE P_MESMADEZENA56:=0;
    END IF; 

       --VERIFICAR SE DEZENAS ESTÃO NO QUADRANTE 1
    SELECT COUNT(1) INTO P_QUADRANTE11                      
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE1 = P_DEZENA1;
     
    SELECT COUNT(1) INTO P_QUADRANTE12
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE1 = P_DEZENA2;
     
    SELECT COUNT(1) INTO P_QUADRANTE13
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE1 = P_DEZENA3;
    
    SELECT COUNT(1) INTO P_QUADRANTE14
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE1 = P_DEZENA4;
     
    SELECT COUNT(1) INTO P_QUADRANTE15
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE1 = P_DEZENA5;
     
    SELECT COUNT(1) INTO P_QUADRANTE16
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE1 = P_DEZENA6;
     
        --VERIFICAR SE DEZENAS ESTÃO NO QUADRANTE 2
    SELECT COUNT(1) INTO P_QUADRANTE21
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE2 = P_DEZENA1;
     
    SELECT COUNT(1) INTO P_QUADRANTE22
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE2 = P_DEZENA2;
     
    SELECT COUNT(1) INTO P_QUADRANTE23
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE2 = P_DEZENA3;
    
    SELECT COUNT(1) INTO P_QUADRANTE24
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE2 = P_DEZENA4;
     
    SELECT COUNT(1) INTO P_QUADRANTE25
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE2 = P_DEZENA5;
     
    SELECT COUNT(1) INTO P_QUADRANTE26
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE2 = P_DEZENA6;
     
             --VERIFICAR SE DEZENAS ESTÃO NO QUADRANTE 3
    SELECT COUNT(1) INTO P_QUADRANTE31
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE3 = P_DEZENA1;
     
    SELECT COUNT(1) INTO P_QUADRANTE32
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE3 = P_DEZENA2;
     
    SELECT COUNT(1) INTO P_QUADRANTE33
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE3 = P_DEZENA3;
    
    SELECT COUNT(1) INTO P_QUADRANTE34
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE3 = P_DEZENA4;
     
    SELECT COUNT(1) INTO P_QUADRANTE35
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE3 = P_DEZENA5;
     
    SELECT COUNT(1) INTO P_QUADRANTE36
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE3 = P_DEZENA6;
     
                  --VERIFICAR SE DEZENAS ESTÃO NO QUADRANTE 4
    SELECT COUNT(1) INTO P_QUADRANTE41
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE4 = P_DEZENA1;
     
    SELECT COUNT(1) INTO P_QUADRANTE42
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE4 = P_DEZENA2;
     
    SELECT COUNT(1) INTO P_QUADRANTE43
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE4 = P_DEZENA3;
    
    SELECT COUNT(1) INTO P_QUADRANTE44
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE4 = P_DEZENA4;
     
    SELECT COUNT(1) INTO P_QUADRANTE45
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE4 = P_DEZENA5;
     
    SELECT COUNT(1) INTO P_QUADRANTE46
      FROM QUADRANTEMEGA Q
     WHERE Q.QUADRANTE4 = P_DEZENA6;
     
           i := 1;
           j :=0;
           k :=0;
           qtd :=0;
      --ORDENAR DEZENAS
     V:= tVETOR(P_DEZENA1,P_DEZENA2,P_DEZENA3,P_DEZENA4,P_DEZENA5,P_DEZENA6);
  
 WHILE i <= 6 LOOP /* looping para contagem de tamanho do vetor */
      j := 1;
    qtd := 0;
    
    WHILE j <= 6 LOOP /* looping para a verificação dos valores */
        IF v(i) > v(j) THEN /* verificação se posição x é maior que posição y */
        qtd := qtd + 1; /* contagem para atribuição de valores nas variáveis */
        END IF;
        j := j + 1;
        END LOOP;

        IF (qtd + 1 = 1) THEN /* atribuindo valores as variáveis conforme a contagem */
        P_DEZENA1 := v(i);
        ELSIF (qtd + 1 = 2) THEN
        P_DEZENA2 := v(i);
        ELSIF (qtd + 1 = 3) THEN
        P_DEZENA3 := v(i);
        ELSIF (qtd + 1 = 4) THEN
        P_DEZENA4 := v(i);
        ELSIF (qtd + 1 = 5) THEN
        P_DEZENA5 := v(i);
        ELSE
        P_DEZENA6 := v(i);
        END IF;

        i := i + 1;

   END LOOP;
   
  END LOOP; 
    
  
--            i := 1;
--           j :=0;
--           k :=0;
--           qtd :=0;
--    --ORDENAR DEZENAS
--     V:= tVETOR(P_DEZENA1,P_DEZENA2,P_DEZENA3,P_DEZENA4,P_DEZENA5,P_DEZENA6);
--   
--   
--   WHILE i <= 6 LOOP /* looping para contagem de tamanho do vetor */
--      j := 1;
--    qtd := 0;
--    
--    WHILE j <= 6 LOOP /* looping para a verificação dos valores */
--        IF v(i) > v(j) THEN /* verificação se posição x é maior que posição y */
--        qtd := qtd + 1; /* contagem para atribuição de valores nas variáveis */
--        END IF;
--        j := j + 1;
--        END LOOP;
--
--        IF (qtd + 1 = 1) THEN /* atribuindo valores as variáveis conforme a contagem */
--        P_DEZENA1 := v(i);
--        ELSIF (qtd + 1 = 2) THEN
--        P_DEZENA2 := v(i);
--        ELSIF (qtd + 1 = 3) THEN
--        P_DEZENA3 := v(i);
--        ELSIF (qtd + 1 = 4) THEN
--        P_DEZENA4 := v(i);
--        ELSIF (qtd + 1 = 5) THEN
--        P_DEZENA5 := v(i);
--        ELSE
--        P_DEZENA6 := v(i);
--        END IF;
--
--        i := i + 1;
--
--   END LOOP;
  
   
     INSERT INTO MEGASENA (DEZENA1,DEZENA2,DEZENA3,DEZENA4,DEZENA5,DEZENA6)
        VALUES         (P_DEZENA1,P_DEZENA2,P_DEZENA3,P_DEZENA4,P_DEZENA5,P_DEZENA6);
        COMMIT;
         
         SELECT NVL(MAX(NROSORTEIO),0) INTO P_NROSORTEIO
           FROM HISTMEGA G
          WHERE G.DEZENA1=P_DEZENA1
            AND G.DEZENA2=P_DEZENA2
            AND G.DEZENA3=P_DEZENA3
            AND G.DEZENA4=P_DEZENA4
            AND G.DEZENA5=P_DEZENA5
            AND G.DEZENA6=P_DEZENA6
            --AND G.NROSORTEIO=1728
            ;
            
        IF P_NROSORTEIO > 0 THEN
        RAISE_APPLICATION_ERROR(-20101,'GANHOU NA MEGA'||P_NROSORTEIO);
        END IF;
          
END;
/