1 PACKAGE BODY GMF_GLR20USR_XMLP_PKG AS
2 /* $Header: GLR20USRB.pls 120.0 2007/12/24 13:29:48 nchinnam noship $ */
3 FUNCTION SOURCECFFORMULA RETURN VARCHAR2 IS
4 BEGIN
5 IF LP_FROM_SOURCE IS NOT NULL AND LP_TO_SOURCE IS NOT NULL THEN
6 SOURCECP := ' and e.trans_source_code >= ''' || LP_FROM_SOURCE || '''
7 and e.trans_source_code <= ''' || LP_TO_SOURCE || '''';
8 ELSIF LP_FROM_SOURCE IS NULL AND LP_TO_SOURCE IS NULL THEN
9 SOURCECP :='AND 1=1';
10 LP_FROM_SOURCE := FND_PROFILE.VALUE('SY$ALL');
11 LP_TO_SOURCE := FND_PROFILE.VALUE('SY$ALL');
12 ELSIF LP_FROM_SOURCE IS NOT NULL AND LP_TO_SOURCE IS NULL THEN
13 SOURCECP := ' and e.trans_source_code >= ''' || LP_FROM_SOURCE || '''';
14 LP_TO_SOURCE := FND_PROFILE.VALUE('SY$ALL');
15 ELSIF LP_FROM_SOURCE IS NOT NULL AND LP_TO_SOURCE IS NOT NULL THEN
16 SOURCECP := ' and e.trans_source_code <= ''' || LP_TO_SOURCE || '''';
17 LP_FROM_SOURCE := FND_PROFILE.VALUE('SY$ALL');
18 END IF;
19 RETURN NULL;
20 END SOURCECFFORMULA;
21 FUNCTION EVENTCFFORMULA RETURN VARCHAR2 IS
22 BEGIN
23 IF LP_FROM_EVENT IS NOT NULL AND LP_TO_EVENT IS NOT NULL THEN
24 EVENTCP := ' and b.event_code >= ''' || LP_FROM_EVENT || '''
25 and b.event_code <= ''' || LP_TO_EVENT || '''';
26 ELSIF LP_FROM_EVENT IS NULL AND LP_TO_EVENT IS NULL THEN
27 EVENTCP := 'AND 1=1';
28 LP_FROM_EVENT := FND_PROFILE.VALUE('SY$ALL');
29 LP_TO_EVENT := FND_PROFILE.VALUE('SY$ALL');
30 ELSIF LP_FROM_EVENT IS NOT NULL AND LP_TO_EVENT IS NULL THEN
31 EVENTCP := ' and b.event_code >= ''' || LP_FROM_EVENT || '''';
32 LP_TO_EVENT := FND_PROFILE.VALUE('SY$ALL');
33 ELSIF LP_FROM_EVENT IS NOT NULL AND LP_TO_EVENT IS NOT NULL THEN
34 EVENTCP := ' and b.event_code <= ''' || LP_TO_EVENT || '''';
35 LP_FROM_EVENT := FND_PROFILE.VALUE('SY$ALL');
36 END IF;
37 RETURN NULL;
38 END EVENTCFFORMULA;
39 FUNCTION SUBEVENTCFFORMULA RETURN VARCHAR2 IS
40 BEGIN
41 IF LP_FROM_SUB_EVENT IS NOT NULL AND LP_TO_SUB_EVENT IS NOT NULL THEN
42 SUBEVENTCP := ' and c.sub_event_code >= ''' || LP_FROM_SUB_EVENT || '''
43 and c.sub_event_code <= ''' || LP_TO_SUB_EVENT || '''';
44 ELSIF LP_FROM_SUB_EVENT IS NULL AND LP_TO_SUB_EVENT IS NULL THEN
45 SUBEVENTCP := 'AND 1=1';
46 LP_FROM_SUB_EVENT := FND_PROFILE.VALUE('SY$ALL');
47 LP_TO_SUB_EVENT := FND_PROFILE.VALUE('SY$ALL');
48 ELSIF LP_FROM_SUB_EVENT IS NOT NULL AND LP_TO_SUB_EVENT IS NULL THEN
49 SUBEVENTCP := ' and c.sub_event_code >= ''' || LP_FROM_SUB_EVENT || '''';
50 LP_TO_SUB_EVENT := FND_PROFILE.VALUE('SY$ALL');
51 ELSIF LP_FROM_SUB_EVENT IS NOT NULL AND LP_TO_SUB_EVENT IS NOT NULL THEN
52 SUBEVENTCP := ' and c.sub_event_code <= ''' || LP_TO_SUB_EVENT || '''';
53 LP_FROM_SUB_EVENT := FND_PROFILE.VALUE('SY$ALL');
54 END IF;
55 RETURN NULL;
56 END SUBEVENTCFFORMULA;
57 FUNCTION ACCTTTLCFFORMULA RETURN VARCHAR2 IS
58 BEGIN
59 IF LP_FROM_ACCT_TTL IS NOT NULL AND LP_TO_ACCT_TTL IS NOT NULL THEN
60 ACCTTTLCP := ' and d.acct_ttl_code >= ''' || LP_FROM_ACCT_TTL || '''
61 and d.acct_ttl_code <= ''' || LP_TO_ACCT_TTL || '''';
62 ELSIF LP_FROM_ACCT_TTL IS NULL AND LP_TO_ACCT_TTL IS NULL THEN
63 ACCTTTLCP := 'AND 1=1';
64 LP_FROM_ACCT_TTL := FND_PROFILE.VALUE('SY$ALL');
65 LP_TO_ACCT_TTL := FND_PROFILE.VALUE('SY$ALL');
66 ELSIF LP_FROM_ACCT_TTL IS NOT NULL AND LP_TO_ACCT_TTL IS NULL THEN
67 ACCTTTLCP := ' and d.acct_ttl_code >= ''' || LP_FROM_ACCT_TTL || '''';
68 LP_TO_ACCT_TTL := FND_PROFILE.VALUE('SY$ALL');
69 ELSIF LP_FROM_ACCT_TTL IS NOT NULL AND LP_TO_ACCT_TTL IS NOT NULL THEN
70 ACCTTTLCP := ' and d.acct_ttl_code <= ''' || LP_TO_ACCT_TTL || '''';
71 LP_FROM_ACCT_TTL := FND_PROFILE.VALUE('SY$ALL');
72 END IF;
73 RETURN NULL;
74 END ACCTTTLCFFORMULA;
75 PROCEDURE GMF_GLR20USR_XMLP_PKG_HDR IS
76 BEGIN
77 NULL;
78 END GMF_GLR20USR_XMLP_PKG_HDR;
79 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
80 BEGIN
81 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
82 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
83 LP_FROM_SOURCE:=P_FROM_SOURCE;
84 LP_TO_SOURCE:=P_TO_SOURCE;
85 LP_FROM_EVENT:=P_FROM_EVENT;
86 LP_TO_EVENT:=P_TO_EVENT;
87 LP_FROM_SUB_EVENT:=P_FROM_SUB_EVENT;
88 LP_TO_SUB_EVENT:=P_TO_SUB_EVENT;
89 LP_FROM_ACCT_TTL:=P_FROM_ACCT_TTL;
90 LP_TO_ACCT_TTL:=P_TO_ACCT_TTL;
91 RETURN (TRUE);
92 END BEFOREREPORT;
93 FUNCTION AFTERREPORT RETURN BOOLEAN IS
94 BEGIN
95 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
96 RETURN (TRUE);
97 END AFTERREPORT;
98 FUNCTION SOURCECP_P RETURN VARCHAR2 IS
99 BEGIN
100 RETURN SOURCECP;
101 END SOURCECP_P;
102 FUNCTION EVENTCP_P RETURN VARCHAR2 IS
103 BEGIN
104 RETURN EVENTCP;
105 END EVENTCP_P;
106 FUNCTION SUBEVENTCP_P RETURN VARCHAR2 IS
107 BEGIN
108 RETURN SUBEVENTCP;
109 END SUBEVENTCP_P;
110 FUNCTION ACCTTTLCP_P RETURN VARCHAR2 IS
111 BEGIN
112 RETURN ACCTTTLCP;
113 END ACCTTTLCP_P;
114 END GMF_GLR20USR_XMLP_PKG;
115