1 PACKAGE BODY GMI_RILOC_XMLP_PKG AS
2 /* $Header: RILOCB.pls 120.0 2007/12/24 13:25:08 nchinnam noship $ */
3 FUNCTION LEXPRMCFFORMULA RETURN VARCHAR2 IS
4 W_FROM VARCHAR2(4);
5 W_TO VARCHAR2(4);
6 D_FROM VARCHAR2(40);
7 D_TO VARCHAR2(40);
8 BEGIN
9 /*SRW.REFERENCE(LEXPRMCP)*/NULL;
10 IF FROM_WHSE IS NULL THEN
11 W_FROM := '0';
12 ELSE
13 W_FROM := FROM_WHSE;
14 END IF;
15 IF TO_WHSE IS NULL THEN
16 W_TO := 'zzzz';
17 ELSE
18 W_TO := TO_WHSE;
19 END IF;
20 IF FROM_LOCATION IS NULL THEN
21 D_FROM := '0';
22 ELSE
23 D_FROM := FROM_LOCATION;
24 END IF;
25 IF TO_LOCATION IS NULL THEN
26 D_TO := 'zzzzzzzzzzzzzzzz';
27 ELSE
28 D_TO := TO_LOCATION;
29 END IF;
30 IF SORT_BY = 'Whse' THEN
31 LEXPRMCP := 'whse_code >=''' || W_FROM || ''' and whse_code <= ''' || W_TO || '''';
32 ELSIF SORT_BY = 'Location' THEN
33 LEXPRMCP := 'location >=''' || D_FROM || ''' and location <= ''' || D_TO || '''';
34 END IF;
35 RETURN NULL;
36 END LEXPRMCFFORMULA;
37
38 FUNCTION LEXORDCFFORMULA RETURN VARCHAR2 IS
39 BEGIN
40 IF SORT_BY = 'Whse' THEN
41 IF ORDER1 = 'Ascending' THEN
42 RETURN ('whse_code asc, location asc');
43 ELSE
44 RETURN ('whse_code desc, location desc');
45 END IF;
46 ELSIF SORT_BY = 'Location' THEN
47 IF ORDER1 = 'Ascending' THEN
48 RETURN ('Location asc ');
49 ELSE
50 RETURN ('Location desc');
51 END IF;
52 END IF;
53 RETURN 'whse_code';
54 END LEXORDCFFORMULA;
55
56 FUNCTION USERCFFORMULA RETURN VARCHAR2 IS
57 USERNAME VARCHAR2(100);
58 BEGIN
59 SELECT
60 USER_NAME
61 INTO USERNAME
62 FROM
63 FND_USER
64 WHERE USER_ID = GMI_RILOC_XMLP_PKG.USER_ID;
65 RETURN (USERNAME);
66 END USERCFFORMULA;
67
68 FUNCTION RANGE1CFFORMULA RETURN VARCHAR2 IS
69 RANGEV VARCHAR2(200);
70 BEGIN
71 IF SORT_BY = 'Whse' THEN
72 SELECT
73 DECODE(FROM_WHSE
74 ,NULL
75 ,DECODE(TO_WHSE
76 ,NULL
77 ,' Range : All '
78 ,' Range From: All - ' || TO_WHSE)
79 ,DECODE(TO_WHSE
80 ,NULL
81 ,' Range From: ' || FROM_WHSE || ' - All '
82 ,' Range From: ' || FROM_WHSE || ' - ' || TO_WHSE))
83 INTO RANGEV
84 FROM
85 DUAL;
86 ELSIF SORT_BY = 'Location' THEN
87 SELECT
88 DECODE(FROM_LOCATION
89 ,NULL
90 ,DECODE(TO_LOCATION
91 ,NULL
92 ,' Range : All '
93 ,' Range From: All - ' || TO_LOCATION)
94 ,DECODE(TO_LOCATION
95 ,NULL
96 ,' Range From: ' || FROM_LOCATION || ' - All '
97 ,' Range From: ' || FROM_LOCATION || ' - ' || TO_LOCATION))
98 INTO RANGEV
99 FROM
100 DUAL;
101 END IF;
102 RETURN (RANGEV);
103 END RANGE1CFFORMULA;
104
105 FUNCTION FROM_LOCATIONCFFORMULA RETURN VARCHAR2 IS
106 BEGIN
107 IF FROM_LOCATION IS NULL THEN
108 SELECT
109 'All'
110 INTO FROM_LOCATIONCP
111 FROM
112 DUAL;
113 ELSE
114 FROM_LOCATIONCP := FROM_LOCATION;
115 END IF;
116 RETURN (FROM_LOCATIONCP);
117 END FROM_LOCATIONCFFORMULA;
118
119 FUNCTION TO_LOCATIONCFFORMULA RETURN VARCHAR2 IS
120 BEGIN
121 IF TO_LOCATION IS NULL THEN
122 SELECT
123 'All'
124 INTO TO_LOCATIONCP
125 FROM
126 DUAL;
127 ELSE
128 TO_LOCATIONCP := TO_LOCATION;
129 END IF;
130 RETURN (TO_LOCATIONCP);
131 END TO_LOCATIONCFFORMULA;
132
133 FUNCTION FROM_WHSECFFORMULA RETURN VARCHAR2 IS
134 BEGIN
135 IF FROM_WHSE IS NULL THEN
136 SELECT
137 'All'
138 INTO FROM_WHSECP
139 FROM
140 DUAL;
141 ELSE
142 FROM_WHSECP := FROM_WHSE;
143 END IF;
144 RETURN (FROM_WHSECP);
145 END FROM_WHSECFFORMULA;
146
147 FUNCTION TO_WHSECFFORMULA RETURN VARCHAR2 IS
148 BEGIN
149 IF TO_WHSE IS NULL THEN
150 SELECT
151 'All'
152 INTO TO_WHSECP
153 FROM
154 DUAL;
155 ELSE
156 TO_WHSECP := TO_WHSE;
157 END IF;
158 RETURN (TO_WHSECP);
159 END TO_WHSECFFORMULA;
160
161 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
162 BEGIN
163 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
164 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
165 /*SRW.MESSAGE(100
166 ,LEXPRMCP)*/NULL;
167 RETURN (TRUE);
168 END BEFOREREPORT;
169
170 PROCEDURE HEADER IS
171 BEGIN
172 NULL;
173 END HEADER;
174
175 FUNCTION AFTERREPORT RETURN BOOLEAN IS
176 BEGIN
177 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
178 RETURN (TRUE);
179 END AFTERREPORT;
180
181 FUNCTION LEXPRMCP_P RETURN VARCHAR2 IS
182 BEGIN
183 RETURN LEXPRMCP;
184 END LEXPRMCP_P;
185
186 FUNCTION FROM_LOCATIONCP_P RETURN VARCHAR2 IS
187 BEGIN
188 RETURN FROM_LOCATIONCP;
189 END FROM_LOCATIONCP_P;
190
191 FUNCTION TO_LOCATIONCP_P RETURN VARCHAR2 IS
192 BEGIN
193 RETURN TO_LOCATIONCP;
194 END TO_LOCATIONCP_P;
195
196 FUNCTION FROM_WHSECP_P RETURN VARCHAR2 IS
197 BEGIN
198 RETURN FROM_WHSECP;
199 END FROM_WHSECP_P;
200
201 FUNCTION TO_WHSECP_P RETURN VARCHAR2 IS
202 BEGIN
203 RETURN TO_WHSECP;
204 END TO_WHSECP_P;
205
206 END GMI_RILOC_XMLP_PKG;
207