PACKAGE BODY: APPS.FND_LOG_ATTACHMENT_FRM

Source

1 PACKAGE BODY FND_LOG_ATTACHMENT_FRM AS
2   /* $Header: AFUTLGFB.pls 115.1 2004/05/05 01:21:57 kkapur noship $ */
3 
4 
5   /**
6    ** Writes Message to the Attachment.
7    ** For Internal Use From Forms FND_LOG_ATTACHMENT ONLY!
8    */
9 
10   procedure WRITE(WRITER_ID IN VARCHAR2, Message IN Attachment_Table, Array_start IN NUMBER, array_end in NUMBER) IS
11   BEGIN
12     if ( writer_id > 0 ) then
13       for i in Array_start..array_end LOOP
14         if ( message(i).attachment is not NULL ) THEN
15 	  FND_LOG_ATTACHMENT.WRITE(WRITER_ID, message(i).attachment);
16         end if;
17       end LOOP;
18       FND_LOG_ATTACHMENT.CLOSE(WRITER_ID);
19     end if;
20   END WRITE;
21 
22   procedure CLOSE(Writer_ID IN VARCHAR2) IS
23   BEGIN
24     null;
25 	-- Close is a stub for now. we inisist on it being called but
26 	-- it is not used in the clob case. It may be in the file case.
27   END CLOSE;
28 
29 
30 
31 END FND_LOG_ATTACHMENT_FRM;