[Home] [Help]
PACKAGE BODY: APPS.AR_ARYVTSLD_XMLP_PKG
Source
1 PACKAGE BODY AR_ARYVTSLD_XMLP_PKG AS
2 /* $Header: ARYVTSLDB.pls 120.1 2011/03/08 13:07:00 dgaurab ship $ */
3 FUNCTION C_CURRDATEFORMULA RETURN VARCHAR2 IS
4 BEGIN
5 RETURN (INITCAP(TO_CHAR(SYSDATE
6 ,'DY DD MON YYYY')));
7 END C_CURRDATEFORMULA;
8
9 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
10 BEGIN
11 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
12 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
13 DECLARE
14 SOBNAME VARCHAR2(60);
15 TDR_VAT_NO VARCHAR2(60);
16 SOBCURR VARCHAR2(20);
17 BRANCH_NAME VARCHAR2(240);
18 BRANCH_ADDR NUMBER;
19 BRANCH_CTY VARCHAR2(20);
20 BEGIN
21 IF P_REPTYPE = 'D' THEN
22 C_GROUP_BY := ',racl.customer_trx_line_id';
23 ELSE
24 -- NULL;
25 C_GROUP_BY := ' ';
26 END IF;
27 SELECT
28 GSB.NAME,
29 ASP.TAX_REGISTRATION_NUMBER,
30 GSB.CURRENCY_CODE
31 INTO C_SOBNAME,C_TDR_VAT_NO,C_SOBCURR
32 FROM
33 AR_SYSTEM_PARAMETERS ASP,
34 GL_SETS_OF_BOOKS GSB
35 WHERE ASP.SET_OF_BOOKS_ID = GSB.SET_OF_BOOKS_ID
36 AND GSB.CHART_OF_ACCOUNTS_ID = P_CHART_OF_ACCOUNTS_ID
37 AND GSB.SET_OF_BOOKS_ID = P_SET_OF_BOOKS_ID;
38 SELECT
39 LOC.ADDRESS1,
40 LOC.ADDRESS2,
41 LOC.CITY,
42 LOC.POSTAL_CODE,
43 LOC.COUNTRY
44 INTO C_BRANCH,C_STREET,C_CITY,C_POSTAL_CODE,C_COUNTRY
45 FROM
46 HZ_CUST_ACCT_SITES ACCT_SITE,
47 HZ_PARTY_SITES PARTY_SITE,
48 HZ_LOCATIONS LOC
49 WHERE ACCT_SITE.CUST_ACCOUNT_ID = - 1
50 AND ACCT_SITE.CUST_ACCT_SITE_ID = P_REMIT_TO_ADDRESS
51 AND ACCT_SITE.PARTY_SITE_ID = PARTY_SITE.PARTY_SITE_ID
52 AND LOC.LOCATION_ID = PARTY_SITE.LOCATION_ID;
53 END;
54 GET_BOILER_PLATES;
55 RETURN (TRUE);
56 END BEFOREREPORT;
57
58 FUNCTION INC_LINE_NO RETURN BOOLEAN IS
59 BEGIN
60 IF C_LINE_NO IS NULL THEN
61 C_LINE_NO := 1;
62 ELSE
63 C_LINE_NO := C_LINE_NO + 1;
64 END IF;
65 RETURN (TRUE);
66 END INC_LINE_NO;
67
68 FUNCTION AFTERREPORT RETURN BOOLEAN IS
69 BEGIN
70 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
71 RETURN (TRUE);
72 END AFTERREPORT;
73
74 PROCEDURE GET_LOOKUP_MEANING(P_LOOKUP_TYPE IN VARCHAR2
75 ,P_LOOKUP_CODE IN VARCHAR2
76 ,P_LOOKUP_MEANING IN OUT NOCOPY VARCHAR2) IS
77 W_MEANING VARCHAR2(80);
78 BEGIN
79 SELECT
80 MEANING
81 INTO W_MEANING
82 FROM
83 FND_LOOKUPS
84 WHERE LOOKUP_TYPE = P_LOOKUP_TYPE
85 AND LOOKUP_CODE = P_LOOKUP_CODE;
86 P_LOOKUP_MEANING := W_MEANING;
87 EXCEPTION
88 WHEN NO_DATA_FOUND THEN
89 P_LOOKUP_MEANING := NULL;
90 END GET_LOOKUP_MEANING;
91
92 PROCEDURE GET_BOILER_PLATES IS
93 W_INDUSTRY_CODE VARCHAR2(20);
94 W_INDUSTRY_STAT VARCHAR2(20);
95 BEGIN
96 IF GET(0
97 ,0
98 ,W_INDUSTRY_STAT
99 ,W_INDUSTRY_CODE) THEN
100 IF W_INDUSTRY_CODE = 'C' THEN
101 C_SALES_TITLE := NULL;
102 ELSE
103 GET_LOOKUP_MEANING('IND_SALES'
104 ,W_INDUSTRY_CODE
105 ,C_SALES_TITLE);
106 END IF;
107 END IF;
108 C_INDUSTRY_CODE := W_INDUSTRY_CODE;
109 END GET_BOILER_PLATES;
110
111 FUNCTION SET_DISPLAY_FOR_CORE RETURN BOOLEAN IS
112 BEGIN
113 IF C_INDUSTRY_CODE = 'C' THEN
114 RETURN (TRUE);
115 ELSE
116 IF C_SALES_TITLE IS NOT NULL THEN
117 RETURN (FALSE);
118 ELSE
119 RETURN (TRUE);
120 END IF;
121 END IF;
122 RETURN NULL;
123 END SET_DISPLAY_FOR_CORE;
124
125 FUNCTION SET_DISPLAY_FOR_GOV RETURN BOOLEAN IS
126 BEGIN
127 IF C_INDUSTRY_CODE = 'C' THEN
128 RETURN (FALSE);
129 ELSE
130 IF C_SALES_TITLE IS NOT NULL THEN
131 RETURN (TRUE);
132 ELSE
133 RETURN (FALSE);
134 END IF;
135 END IF;
136 RETURN NULL;
137 END SET_DISPLAY_FOR_GOV;
138
139 FUNCTION CF_CURRDATEFORMULA RETURN CHAR IS
140 BEGIN
141 --Bug11799279
142 RETURN FND_DATE.DATE_TO_CHARDT(SYSDATE, calendar_aware=> FND_DATE.calendar_aware_alt);
143 END CF_CURRDATEFORMULA;
144
145 FUNCTION CF_STARTFORMULA RETURN CHAR IS
146 BEGIN
147 --Bug11799279
148 RETURN FND_DATE.DATE_TO_CHARDATE(P_STARTDATE, calendar_aware=> FND_DATE.calendar_aware_alt);
149 END CF_STARTFORMULA;
150
151 FUNCTION CF_1FORMULA RETURN CHAR IS
152 BEGIN
153 --Bug11799279
154 RETURN FND_DATE.DATE_TO_CHARDATE(P_ENDDATE, calendar_aware=> FND_DATE.calendar_aware_alt);
155 END CF_1FORMULA;
156
157 FUNCTION AFTERPFORM RETURN BOOLEAN IS
158 BEGIN
159 IF (P_SITE_USE_CODE = 'SHIP_TO') THEN
160 LP_WHERE := 'and racu.cust_account_id = nvl(ract.ship_to_customer_id,ract.bill_to_customer_id)
161 and nvl(ract.ship_to_site_use_id, ract.bill_to_site_use_id) = rasu.site_use_id
162 ';
163 ELSE
164 LP_WHERE := 'and racu.cust_account_id = ract.bill_to_customer_id
165 and ract.bill_to_site_use_id = rasu.site_use_id
166 ';
167 END IF;
168 RETURN (TRUE);
169 END AFTERPFORM;
170
171 FUNCTION C_LINE_NO_P RETURN NUMBER IS
172 T BOOLEAN;
173 BEGIN
174 T:=INC_LINE_NO();
175 RETURN C_LINE_NO;
176 END C_LINE_NO_P;
177
178 FUNCTION C_GROUP_BY_P RETURN VARCHAR2 IS
179 BEGIN
180 RETURN C_GROUP_BY;
181 END C_GROUP_BY_P;
182
183 FUNCTION C_SOBNAME_P RETURN VARCHAR2 IS
184 BEGIN
185 RETURN C_SOBNAME;
186 END C_SOBNAME_P;
187
188 FUNCTION C_TDR_VAT_NO_P RETURN VARCHAR2 IS
189 BEGIN
190 RETURN C_TDR_VAT_NO;
191 END C_TDR_VAT_NO_P;
192
193 FUNCTION C_SOBCURR_P RETURN VARCHAR2 IS
194 BEGIN
195 RETURN C_SOBCURR;
196 END C_SOBCURR_P;
197
198 FUNCTION C_BRANCH_P RETURN VARCHAR2 IS
199 BEGIN
200 RETURN C_BRANCH;
201 END C_BRANCH_P;
202
203 FUNCTION C_COUNTRY_P RETURN VARCHAR2 IS
204 BEGIN
205 RETURN C_COUNTRY;
206 END C_COUNTRY_P;
207
208 FUNCTION C_ADDR_ID_P RETURN NUMBER IS
209 BEGIN
210 RETURN C_ADDR_ID;
211 END C_ADDR_ID_P;
212
213 FUNCTION C_INDUSTRY_CODE_P RETURN VARCHAR2 IS
214 BEGIN
215 RETURN C_INDUSTRY_CODE;
216 END C_INDUSTRY_CODE_P;
217
218 FUNCTION C_SALES_TITLE_P RETURN VARCHAR2 IS
219 BEGIN
220 RETURN C_SALES_TITLE;
221 END C_SALES_TITLE_P;
222
223 FUNCTION C_CITY_P RETURN VARCHAR2 IS
224 BEGIN
225 RETURN C_CITY;
226 END C_CITY_P;
227
228 FUNCTION C_POSTAL_CODE_P RETURN VARCHAR2 IS
229 BEGIN
230 RETURN C_POSTAL_CODE;
231 END C_POSTAL_CODE_P;
232
233 FUNCTION C_STREET_P RETURN VARCHAR2 IS
234 BEGIN
235 RETURN C_STREET;
236 END C_STREET_P;
237
238 FUNCTION GET(APPL_ID IN INTEGER
239 ,DEP_APPL_ID IN INTEGER
240 ,STATUS OUT NOCOPY VARCHAR2
241 ,INDUSTRY OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
242 X0 BOOLEAN;
243 BEGIN
244 /*STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_INSTALLATION.GET(:APPL_ID, :DEP_APPL_ID, :STATUS, :INDUSTRY); :X0 := sys.diutil.bool_to_int(X0rv); end;');
245 STPROC.BIND_I(APPL_ID);
246 STPROC.BIND_I(DEP_APPL_ID);
247 STPROC.BIND_O(STATUS);
248 STPROC.BIND_O(INDUSTRY);
249 STPROC.BIND_O(X0);
250 STPROC.EXECUTE;
251 STPROC.RETRIEVE(3
252 ,STATUS);
253 STPROC.RETRIEVE(4
254 ,INDUSTRY);
255 STPROC.RETRIEVE(5
256 ,X0);*/
257 RETURN X0;
258 END GET;
259
260 FUNCTION GET_APP_INFO(APPLICATION_SHORT_NAME IN VARCHAR2
261 ,STATUS OUT NOCOPY VARCHAR2
262 ,INDUSTRY OUT NOCOPY VARCHAR2
263 ,ORACLE_SCHEMA OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
264 X0 BOOLEAN;
265 BEGIN
266 /*STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_INSTALLATION.GET_APP_INFO(:APPLICATION_SHORT_NAME, :STATUS, :INDUSTRY, :ORACLE_SCHEMA); :X0 := sys.diutil.bool_to_int(X0rv); end;');
267 STPROC.BIND_I(APPLICATION_SHORT_NAME);
268 STPROC.BIND_O(STATUS);
269 STPROC.BIND_O(INDUSTRY);
270 STPROC.BIND_O(ORACLE_SCHEMA);
271 STPROC.BIND_O(X0);
272 STPROC.EXECUTE;
273 STPROC.RETRIEVE(2
274 ,STATUS);
275 STPROC.RETRIEVE(3
276 ,INDUSTRY);
277 STPROC.RETRIEVE(4
278 ,ORACLE_SCHEMA);
279 STPROC.RETRIEVE(5
280 ,X0);*/
281 RETURN X0;
282 END GET_APP_INFO;
283
284 FUNCTION GET_APP_INFO_OTHER(APPLICATION_SHORT_NAME IN VARCHAR2
285 ,TARGET_SCHEMA IN VARCHAR2
286 ,STATUS OUT NOCOPY VARCHAR2
287 ,INDUSTRY OUT NOCOPY VARCHAR2
288 ,ORACLE_SCHEMA OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
289 X0 BOOLEAN;
290 BEGIN
291 /* STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_INSTALLATION.GET_APP_INFO_OTHER(:APPLICATION_SHORT_NAME, :TARGET_SCHEMA, :STATUS, :INDUSTRY, :ORACLE_SCHEMA); :X0 := sys.diutil.bool_to_int(X0rv); end;');
292 STPROC.BIND_I(APPLICATION_SHORT_NAME);
293 STPROC.BIND_I(TARGET_SCHEMA);
294 STPROC.BIND_O(STATUS);
295 STPROC.BIND_O(INDUSTRY);
296 STPROC.BIND_O(ORACLE_SCHEMA);
297 STPROC.BIND_O(X0);
298 STPROC.EXECUTE;
299 STPROC.RETRIEVE(3
300 ,STATUS);
301 STPROC.RETRIEVE(4
302 ,INDUSTRY);
303 STPROC.RETRIEVE(5
304 ,ORACLE_SCHEMA);
305 STPROC.RETRIEVE(6
306 ,X0);*/
307 RETURN X0;
308 END GET_APP_INFO_OTHER;
309
310 END AR_ARYVTSLD_XMLP_PKG;
311