Validar digito verificador de processos junto ao CNJ

[Kenio Souza]

Caros colaboradores,

Desde 2010, todos os processos de todos os Tribunais de todos os estados do Brasil deverão utilizar uma numeração única. 

Estou precisando de ajuda com relação ao cálculo do dígito (DD) verificador que utiliza a norma ISO 7064 algorítimo Modulo 97 base 10.

NNNNNNN–DD.AAAA.J.TR.OOOO

Onde:

NNNNNNN (7 numeros) número do processo

DD (2 numeros) Dígito a ser calculado

AAAA (4 numeros) ano

J (1 numero) Tipo de Tribunal

TR (2 numeros) Estado

OOOO (4 numeros) Origem - Comarca

N6 N5 N4 N3 N2 N1 N0 D1 D0 A3 A2 A1 A0 J2 T1 R0 O3 O2 O1 O0

Etapa 1 – Preparação - Retirar o DD (digito a ser calculado)

N6 N5 N4 N3 N2 N1 N0 A3 A2 A1 A0 J2 T1 R0 O3 O2 O1 O0 01 00

Etapa 2 – Cálculo

D1 D0 = 98 – (N6 N5 N4 N3 N2 N1 N0 A3 A2 A1 A0 J2 T1 R0 O3 O2 O1 O0 01 00 mod 97)

Alguém já criou alguma rotina que faz essa validação?