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: /**
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
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;
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
27: END CLOSE;
28:
29:
30:
31: END FND_LOG_ATTACHMENT_FRM;