CREATE OR REPLACE PROCEDURE ARQUIVO_GIA_PE_ANUAL(
   P_CDIMPOSTO    IN IMPOSTO.CDIMPOSTO%TYPE,
   P_CDEMPRESA    IN EMPRESA.CDEMPRESA%TYPE,
   P_CDINSCESTA   IN EMPRESA.CDINSCESTA%TYPE,
   P_ANO          IN VARCHAR2,
   P_VERSAO       IN VARCHAR2,
   P_RELEASE      IN VARCHAR2,
   P_INDICADOR    IN VARCHAR2,
   P_NRSEQARQMAG  IN ARQMAGNETICO.NRSEQARQMAG%TYPE)
AS
   V_CONTREG  NUMBER;

BEGIN

------------------------------------------/*CABECALHO DO ARQUIVO (0)*/----------------------------------------------------------
   V_CONTREG := 0;
   V_CONTREG := GIA_PE_ANUAL_0(P_VERSAO, P_RELEASE, P_NRSEQARQMAG);

--------------------------------------------/*CABECALHO DE GIA (1)*/------------------------------------------------------------
   V_CONTREG := GIA_PE_ANUAL_1(V_CONTREG, P_CDINSCESTA, P_ANO, P_INDICADOR, P_NRSEQARQMAG);

----------------------------------/*TOTAIS DOS QUADROS I - ENTRADAS E II - SAIDAS (2)*/-----------------------------------------
   V_CONTREG := GIA_PE_ANUAL_2(V_CONTREG, P_CDIMPOSTO, P_CDEMPRESA, P_CDINSCESTA, P_ANO, P_NRSEQARQMAG);

---------------------------/*ENTRADAS DE MERCADORIAS, BENS E/OU AQUISICAO DE SERVICOS - QUADRO I (3)*/--------------------------
   V_CONTREG := GIA_PE_ANUAL_3(V_CONTREG, P_CDIMPOSTO, P_CDEMPRESA, P_CDINSCESTA, P_ANO, P_NRSEQARQMAG);

-----------------------/*SAIDAS DE MERCADORIAS, BENS E/OU PRESTACAO DE SERVICOS - QUADRO II (4)*/-------------------------------
   V_CONTREG := GIA_PE_ANUAL_4(V_CONTREG, P_CDIMPOSTO, P_CDEMPRESA, P_CDINSCESTA, P_ANO, P_NRSEQARQMAG);

--------------------------------------------/*RODAPE DO ARQUIVO (9)*/-----------------------------------------------------------
   V_CONTREG := GIA_PE_ANUAL_9(V_CONTREG, P_NRSEQARQMAG);

END;
/