PACKAGE BODY: APPS.FND_CONCURRENT_PROG_ANNO_PKG

Source

1 package body FND_CONCURRENT_PROG_ANNO_PKG as
2 /* $Header: AFCPANTB.pls 120.1 2005/07/02 03:58:27 appldev noship $ */
3 
4 FUNCTION GET_ANNOTATION(X_APPLICATION_ID NUMBER, X_CONCURRENT_PROGRAM_ID NUMBER) RETURN VARCHAR2 as
5   anno_text varchar2(32100);
6   anno_text1 varchar2(32100);
7   start_index number := 1;
8   download_size  number := 4000;
9   lcount number ;
10 BEGIN
11   anno_text := '';
12   lcount := 1;
13 
14   LOOP
15 
16     select dbms_lob.substr(PROGRAM_ANNOTATION,download_size,start_index ) into anno_text1
17     from FND_CONC_PROG_ANNOTATIONS where CONCURRENT_PROGRAM_ID=X_CONCURRENT_PROGRAM_ID AND
18     APPLICATION_ID=X_APPLICATION_ID ;
19 
20     start_index := start_index+download_size;
21 
22     lcount := lcount + 1;
23 
24     anno_text := anno_text || anno_text1;
25 
26     EXIT WHEN lcount > 8;
27 
28   END LOOP;
29 
30   RETURN anno_text;
31 END GET_ANNOTATION;
32 
33 end FND_CONCURRENT_PROG_ANNO_PKG;