[Home] [Help]
PACKAGE BODY: APPS.AR_ARYVTSLD_XMLP_PKG
Source
1 PACKAGE BODY AR_ARYVTSLD_XMLP_PKG AS
2 /* $Header: ARYVTSLDB.pls 120.0 2007/12/27 14:11:59 abraghun noship $ */
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 RETURN FND_DATE.DATE_TO_CHARDT(SYSDATE);
142 END CF_CURRDATEFORMULA;
143
144 FUNCTION CF_STARTFORMULA RETURN CHAR IS
145 BEGIN
146 RETURN FND_DATE.DATE_TO_CHARDATE(P_STARTDATE);
147 END CF_STARTFORMULA;
148
149 FUNCTION CF_1FORMULA RETURN CHAR IS
150 BEGIN
151 RETURN FND_DATE.DATE_TO_CHARDATE(P_ENDDATE);
152 END CF_1FORMULA;
153
154 FUNCTION AFTERPFORM RETURN BOOLEAN IS
155 BEGIN
156 IF (P_SITE_USE_CODE = 'SHIP_TO') THEN
157 LP_WHERE := 'and racu.cust_account_id = nvl(ract.ship_to_customer_id,ract.bill_to_customer_id)
158 and nvl(ract.ship_to_site_use_id, ract.bill_to_site_use_id) = rasu.site_use_id
159 ';
160 ELSE
161 LP_WHERE := 'and racu.cust_account_id = ract.bill_to_customer_id
162 and ract.bill_to_site_use_id = rasu.site_use_id
163 ';
164 END IF;
165 RETURN (TRUE);
166 END AFTERPFORM;
167
168 FUNCTION C_LINE_NO_P RETURN NUMBER IS
169 T BOOLEAN;
170 BEGIN
171 T:=INC_LINE_NO();
172 RETURN C_LINE_NO;
173 END C_LINE_NO_P;
174
175 FUNCTION C_GROUP_BY_P RETURN VARCHAR2 IS
176 BEGIN
177 RETURN C_GROUP_BY;
178 END C_GROUP_BY_P;
179
180 FUNCTION C_SOBNAME_P RETURN VARCHAR2 IS
181 BEGIN
182 RETURN C_SOBNAME;
183 END C_SOBNAME_P;
184
185 FUNCTION C_TDR_VAT_NO_P RETURN VARCHAR2 IS
186 BEGIN
187 RETURN C_TDR_VAT_NO;
188 END C_TDR_VAT_NO_P;
189
190 FUNCTION C_SOBCURR_P RETURN VARCHAR2 IS
191 BEGIN
192 RETURN C_SOBCURR;
193 END C_SOBCURR_P;
194
195 FUNCTION C_BRANCH_P RETURN VARCHAR2 IS
196 BEGIN
197 RETURN C_BRANCH;
198 END C_BRANCH_P;
199
200 FUNCTION C_COUNTRY_P RETURN VARCHAR2 IS
201 BEGIN
202 RETURN C_COUNTRY;
203 END C_COUNTRY_P;
204
205 FUNCTION C_ADDR_ID_P RETURN NUMBER IS
206 BEGIN
207 RETURN C_ADDR_ID;
208 END C_ADDR_ID_P;
209
210 FUNCTION C_INDUSTRY_CODE_P RETURN VARCHAR2 IS
211 BEGIN
212 RETURN C_INDUSTRY_CODE;
213 END C_INDUSTRY_CODE_P;
214
215 FUNCTION C_SALES_TITLE_P RETURN VARCHAR2 IS
216 BEGIN
217 RETURN C_SALES_TITLE;
218 END C_SALES_TITLE_P;
219
220 FUNCTION C_CITY_P RETURN VARCHAR2 IS
221 BEGIN
222 RETURN C_CITY;
223 END C_CITY_P;
224
225 FUNCTION C_POSTAL_CODE_P RETURN VARCHAR2 IS
226 BEGIN
227 RETURN C_POSTAL_CODE;
228 END C_POSTAL_CODE_P;
229
230 FUNCTION C_STREET_P RETURN VARCHAR2 IS
231 BEGIN
232 RETURN C_STREET;
233 END C_STREET_P;
234
235 FUNCTION GET(APPL_ID IN INTEGER
236 ,DEP_APPL_ID IN INTEGER
237 ,STATUS OUT NOCOPY VARCHAR2
238 ,INDUSTRY OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
239 X0 BOOLEAN;
240 BEGIN
241 /*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;');
242 STPROC.BIND_I(APPL_ID);
243 STPROC.BIND_I(DEP_APPL_ID);
244 STPROC.BIND_O(STATUS);
245 STPROC.BIND_O(INDUSTRY);
246 STPROC.BIND_O(X0);
247 STPROC.EXECUTE;
248 STPROC.RETRIEVE(3
249 ,STATUS);
250 STPROC.RETRIEVE(4
251 ,INDUSTRY);
252 STPROC.RETRIEVE(5
253 ,X0);*/
254 RETURN X0;
255 END GET;
256
257 FUNCTION GET_APP_INFO(APPLICATION_SHORT_NAME IN VARCHAR2
258 ,STATUS OUT NOCOPY VARCHAR2
259 ,INDUSTRY OUT NOCOPY VARCHAR2
260 ,ORACLE_SCHEMA OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
261 X0 BOOLEAN;
262 BEGIN
263 /*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;');
264 STPROC.BIND_I(APPLICATION_SHORT_NAME);
265 STPROC.BIND_O(STATUS);
266 STPROC.BIND_O(INDUSTRY);
267 STPROC.BIND_O(ORACLE_SCHEMA);
268 STPROC.BIND_O(X0);
269 STPROC.EXECUTE;
270 STPROC.RETRIEVE(2
271 ,STATUS);
272 STPROC.RETRIEVE(3
273 ,INDUSTRY);
274 STPROC.RETRIEVE(4
275 ,ORACLE_SCHEMA);
276 STPROC.RETRIEVE(5
277 ,X0);*/
278 RETURN X0;
279 END GET_APP_INFO;
280
281 FUNCTION GET_APP_INFO_OTHER(APPLICATION_SHORT_NAME IN VARCHAR2
282 ,TARGET_SCHEMA IN VARCHAR2
283 ,STATUS OUT NOCOPY VARCHAR2
284 ,INDUSTRY OUT NOCOPY VARCHAR2
285 ,ORACLE_SCHEMA OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
286 X0 BOOLEAN;
287 BEGIN
288 /* 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;');
289 STPROC.BIND_I(APPLICATION_SHORT_NAME);
290 STPROC.BIND_I(TARGET_SCHEMA);
291 STPROC.BIND_O(STATUS);
292 STPROC.BIND_O(INDUSTRY);
293 STPROC.BIND_O(ORACLE_SCHEMA);
294 STPROC.BIND_O(X0);
295 STPROC.EXECUTE;
296 STPROC.RETRIEVE(3
297 ,STATUS);
298 STPROC.RETRIEVE(4
299 ,INDUSTRY);
300 STPROC.RETRIEVE(5
301 ,ORACLE_SCHEMA);
302 STPROC.RETRIEVE(6
303 ,X0);*/
304 RETURN X0;
305 END GET_APP_INFO_OTHER;
306
307 END AR_ARYVTSLD_XMLP_PKG;
308