CREATE OR REPLACE PROCEDURE ANEXA_XML_IMPARQXMLNFCE
(
   P_NRIMPARQXMLNFCE IN NUMBER,	
   P_DSARQXMLNFCE_PARTE CLOB
)
AS
	PRAGMA AUTONOMOUS_TRANSACTION;	
BEGIN

	/* Rotina criada para permitir particionamento do arquivo XML, visto que existem limitações na chamada de procedures
	   usando parâmetros de texto muito longos(mais de 30 mil caracteres). O arquivo será particionado antes para ser enviado em partes 
	   para essa rotina concatenar a parte no campo e registro onde o arquivo já está salvo
	*/	
	UPDATE IMPARQXMLNFCE
	   SET DSARQXMLNFCE = DSARQXMLNFCE || P_DSARQXMLNFCE_PARTE
    WHERE NRIMPARQXMLNFCE = P_NRIMPARQXMLNFCE;

	COMMIT; 
END;
/