PACKAGE BODY: APPS.BIS_BIA_RSG_GENERATOR_UTIL

Source

1 package body BIS_BIA_RSG_GENERATOR_UTIL AS
2 /*$Header: BISARGUB.pls 120.0 2005/06/01 15:40:07 appldev noship $*/
3 
4   FUNCTION GET_CONC_PAGES_BY_REQUEST_SET( P_SET_NAME VARCHAR2)
5   RETURN VARCHAR2
6   IS
7     CURSOR C_PAGES ( P_SET_NAME bis_request_set_objects_v.user_object_name%type )
8     IS
9     select
10       user_object_name
11     from
12       bis_request_set_objects_v
13     where request_set_name = P_SET_NAME;
14     l_page_name       bis_request_set_objects_v.user_object_name%type;
15     l_page_name_conc  VARCHAR2(32767);
16 
17   begin
18     open C_PAGES(P_SET_NAME);
19     loop
20       fetch C_PAGES into l_page_name;
21       exit when C_PAGES%NOTFOUND;
22       l_page_name_conc := l_page_name_conc || l_page_name || ', ';
23     end loop;
24     close C_PAGES;
25     l_page_name_conc := substr(l_page_name_conc, 1, length(l_page_name_conc) - 2);
26     return l_page_name_conc;
27   end;
28 
29   --FUNCTION IS_INCR_REF_PREINIT( P_FORCE_FULL VARCHAR2, P_REFRESH_MODE VARCHAR2)
30   FUNCTION GET_LOAD_SUMMARY_OPTION( P_FORCE_FULL VARCHAR2, P_REFRESH_MODE VARCHAR2)
31   RETURN VARCHAR2 IS
32   BEGIN
33    IF(P_FORCE_FULL = 'N' and P_REFRESH_MODE = 'INIT') THEN
34      /*Initial Load (Incrementally refreshes previously collected summaries) */
35      RETURN 'INCR_INIT_LK';
36    ELSIF(P_FORCE_FULL = 'Y' and P_REFRESH_MODE = 'INIT') THEN
37      /*Clear and Load all summaries */
38      RETURN 'INIT_LK';
39    ELSIF(P_REFRESH_MODE = 'INCR') THEN
40      RETURN 'INCR_LK';
41    ELSE
42      RETURN NULL;
43    END IF;
44   END;
45 
46 
47   FUNCTION GET_LOAD_SUMMARY_OPTION_LK( P_FORCE_FULL VARCHAR2, P_REFRESH_MODE VARCHAR2)
48   RETURN VARCHAR2 IS
49     CURSOR C_BIS_LK(p_type VARCHAR2, p_code VARCHAR2) IS
50     select distinct meaning
51     from fnd_common_lookups
52     where lookup_type= p_type
53     and lookup_code=NVL(p_code, 'N');
54 
55     CURSOR C_SYS_LK(p_type VARCHAR2, p_code VARCHAR2) IS
56     select distinct meaning
57     from fnd_lookups
58     where lookup_type= p_type
59     and lookup_code=NVL(p_code, 'N');
60 
61     l_lk  varchar2(2000);
62   BEGIN
63    IF(P_FORCE_FULL = 'N' and P_REFRESH_MODE = 'INIT') THEN
64      /*Initial Load (Incrementally refreshes previously collected summaries) */
65      l_lk := FND_MESSAGE.GET_STRING('BIS', 'BIS_BIA_RSG_GEN_OPT1');
66      RETURN l_lk;
67    ELSIF(P_FORCE_FULL = 'Y' and P_REFRESH_MODE = 'INIT') THEN
68      /*Clear and Load all summaries */
69      OPEN C_BIS_LK('BIS_BIA_RSG_GENERATOR_LOAD_OPT', 'INIT_LK');
70      FETCH C_BIS_LK into l_lk;
71      CLOSE C_BIS_LK;
72      RETURN l_lk;
73    ELSIF(P_REFRESH_MODE = 'INCR') THEN
74      OPEN C_BIS_LK('BIS_BIA_RSG_GENERATOR_LOAD_OPT', 'INCR_LK');
75      FETCH C_BIS_LK into l_lk;
76      CLOSE C_BIS_LK;
77      RETURN l_lk;
78    ELSE
79      OPEN C_SYS_LK('YES_NO', 'N');
80      FETCH C_SYS_LK into l_lk;
81      CLOSE C_SYS_LK;
82      RETURN l_lk;
83    END IF;
84   END;
85 
86 
87 END BIS_BIA_RSG_GENERATOR_UTIL;