1 PACKAGE BODY WSH_WSHRDLAB_XMLP_PKG AS
2 /* $Header: WSHRDLABB.pls 120.3.12010000.2 2009/03/20 09:45:46 gbhargav ship $ */
3 FUNCTION CF_ORDER_NUMBERFORMULA(DELIVERY_DETAIL_ID IN NUMBER) RETURN VARCHAR2 IS
4 CURSOR C_GET_NUM_DELIVERY_DETAILS(V_DELIVERY_DETAIL_ID IN NUMBER) IS
5 SELECT
6 decode(P_STANDALONE ,'N', source_header_number,nvl(reference_number,source_header_number)) --STANDALONE CHANGES
7 FROM
8 WSH_DELIVERY_DETAILS
9 WHERE CONTAINER_FLAG = 'N'
10 AND DELIVERY_DETAIL_ID = V_DELIVERY_DETAIL_ID;
11 CURSOR C_GET_DELIVERY_DETAILS(P_DELIVERY_DETAIL_ID IN NUMBER) IS
12 SELECT
13 DELIVERY_DETAIL_ID
14 FROM
15 WSH_DELIVERY_ASSIGNMENTS_V DA
16 START WITH DELIVERY_DETAIL_ID = P_DELIVERY_DETAIL_ID
17 CONNECT BY prior DELIVERY_DETAIL_ID = PARENT_DELIVERY_DETAIL_ID;
18 L_ORDER_NUMBER WSH_DELIVERY_DETAILS.SOURCE_HEADER_NUMBER%TYPE;
19 L_FIRST_ORDER_NUMBER WSH_DELIVERY_DETAILS.SOURCE_HEADER_NUMBER%TYPE;
20 L_DELIVERY_DETAIL_ID NUMBER;
21 L_ORDER_COUNT NUMBER := 0;
22 L_COUNT NUMBER := 0;
23 BEGIN
24 /*SRW.REFERENCE(DELIVERY_DETAIL_ID)*/NULL;
25 OPEN C_GET_DELIVERY_DETAILS(DELIVERY_DETAIL_ID);
26 LOOP
27 FETCH C_GET_DELIVERY_DETAILS
28 INTO L_DELIVERY_DETAIL_ID;
29 EXIT WHEN C_GET_DELIVERY_DETAILS%NOTFOUND;
30 OPEN C_GET_NUM_DELIVERY_DETAILS(L_DELIVERY_DETAIL_ID);
31 FETCH C_GET_NUM_DELIVERY_DETAILS
32 INTO L_ORDER_NUMBER;
33 IF C_GET_NUM_DELIVERY_DETAILS%FOUND THEN
34 IF L_COUNT = 0 THEN
35 L_FIRST_ORDER_NUMBER := L_ORDER_NUMBER;
36 L_ORDER_COUNT := 1;
37 END IF;
38 L_COUNT := L_COUNT + 1;
39 IF L_ORDER_NUMBER <> L_FIRST_ORDER_NUMBER THEN
40 L_ORDER_COUNT := 2;
41 CLOSE C_GET_NUM_DELIVERY_DETAILS;
42 EXIT;
43 END IF;
44 END IF;
45 CLOSE C_GET_NUM_DELIVERY_DETAILS;
46 END LOOP;
47 CLOSE C_GET_DELIVERY_DETAILS;
48 IF (L_ORDER_COUNT = 1) THEN
49 RETURN (L_ORDER_NUMBER);
50 ELSE
51 RETURN NULL;
52 END IF;
53 END CF_ORDER_NUMBERFORMULA;
54
55 FUNCTION CP_SHIP_TO_ADDRESS1FORMULA RETURN CHAR IS
56 BEGIN
57 NULL;
58 END CP_SHIP_TO_ADDRESS1FORMULA;
59
60 FUNCTION AFTERPFORM RETURN BOOLEAN IS
61 CURSOR C_GET_DELIVERY_DETAIL_ID(P_CONTAINER_NAME IN VARCHAR2) IS
62 SELECT
63 DELIVERY_DETAIL_ID
64 FROM
65 WSH_DELIVERY_DETAILS WDD
66 WHERE CONTAINER_NAME = P_CONTAINER_NAME
67 AND NVL(WDD.LINE_DIRECTION
68 ,'O') IN ( 'O' , 'IO' )
69 AND CONTAINER_FLAG = 'Y';
70 L_DELIVERY_DETAIL_ID NUMBER;
71 BEGIN
72 IF P_CONTAINER_ID IS NOT NULL THEN
73 LP_CONTAINER_ID := 'AND wdd.delivery_detail_id = :P_CONTAINER_ID';
74 ELSE
75 LP_MASTER_FLAG := 'AND wda.parent_delivery_detail_id IS NULL';
76 END IF;
77 IF (LP_CONTAINER_ID IS NULL) THEN
78 LP_CONTAINER_ID := ' ';
79 END IF;
80 IF (LP_MASTER_FLAG IS NULL) THEN
81 LP_MASTER_FLAG := ' ';
82 END IF;
83 IF P_DELIVERY_ID IS NOT NULL THEN
84 LP_DELIVERY_ID := 'AND wnd.delivery_id = :P_DELIVERY_ID';
85 END IF;
86
87 IF (LP_DELIVERY_ID IS NULL) THEN
88 LP_DELIVERY_ID := ' ';
89 END IF;
90
91 IF P_FREIGHT_CODE IS NOT NULL THEN
92 LP_FREIGHT_CODE := 'AND wnd.ship_method_code = :P_FREIGHT_CODE';
93 END IF;
94
95 IF (LP_FREIGHT_CODE IS NULL) THEN
96 LP_FREIGHT_CODE := ' ';
97 END IF;
98
99 IF P_ORGANIZATION_ID IS NOT NULL THEN
100 LP_ORGANIZATION_ID := 'AND wnd.organization_id = :P_ORGANIZATION_ID';
101 END IF;
102
103 IF (LP_ORGANIZATION_ID IS NULL) THEN
104 LP_ORGANIZATION_ID := ' ';
105 END IF;
106
107 IF P_TRIP_STOP_ID IS NOT NULL THEN
108 LP_TRIP_STOP_ID := 'AND wnd.delivery_id in (select distinct delivery_id from wsh_delivery_legs where (pick_up_stop_id =
109 :P_TRIP_STOP_ID OR drop_off_stop_id = :P_TRIP_STOP_ID ))';
110 END IF;
111 IF (LP_TRIP_STOP_ID IS NULL) THEN
112 LP_TRIP_STOP_ID := ' ';
113 END IF;
114 IF P_TRIP_ID IS NOT NULL THEN
115 LP_TRIP_ID := 'AND wnd.delivery_id in (select distinct delivery_id from wsh_delivery_legs wdl , wsh_trip_stops wts
116 where wdl.pick_up_stop_id = wts.stop_id and
117 wts.trip_id = :P_TRIP_ID )';
118 END IF;
119
120 IF (LP_TRIP_ID IS NULL) THEN
121 LP_TRIP_ID := ' ';
122 END IF;
123
124 IF P_DEPARTURE_DATE_HIGH IS NOT NULL THEN
125 CP_DEPARTURE_DATE_HIGH := P_DEPARTURE_DATE_HIGH + (86399 / 86400);
126 END IF;
127 IF P_DEPARTURE_DATE_LOW IS NOT NULL OR P_DEPARTURE_DATE_HIGH IS NOT NULL THEN
128 IF P_DEPARTURE_DATE_LOW IS NULL THEN
129 LP_DATE_RANGE := 'AND wnd.delivery_id in (select distinct delivery_id from wsh_delivery_legs where pick_up_stop_id in (select stop_id from wsh_trip_stops where planned_departure_date <= :P_DEPARTURE_DATE_HIGH))';
130 ELSIF P_DEPARTURE_DATE_HIGH IS NULL THEN
131 LP_DATE_RANGE := 'AND wnd.delivery_id in (select distinct delivery_id from wsh_delivery_legs where pick_up_stop_id in (select stop_id from wsh_trip_stops where planned_departure_date >= :P_DEPARTURE_DATE_LOW))';
132 ELSE
133 LP_DATE_RANGE := 'AND wnd.delivery_id in (select distinct delivery_id from wsh_delivery_legs where pick_up_stop_id in (select stop_id from wsh_trip_stops where planned_departure_date between :P_DEPARTURE_DATE_LOW and :P_DEPARTURE_DATE_HIGH))';
134 END IF;
135 END IF;
136 IF (LP_DATE_RANGE IS NULL) THEN
137 LP_DATE_RANGE := ' ';
138 END IF;
139 --STANDALONE CHANGES
140 IF WMS_DEPLOY.WMS_DEPLOYMENT_MODE = 'D' THEN
141 P_STANDALONE := 'Y';
142 ELSE
143 P_STANDALONE := 'N';
144 END IF;
145
146 RETURN (TRUE);
147 EXCEPTION
148 WHEN NO_DATA_FOUND THEN
149 NULL;
150 END AFTERPFORM;
151
152 FUNCTION CF_SHIP_TO_CUST_NAMEFORMULA(C_SHIP_TO_SITE_USE_ID IN NUMBER) RETURN CHAR IS
153 BEGIN
154 DECLARE
155 SHIP_TO_CUST_NAME HZ_PARTIES.PARTY_NAME%TYPE;
156 L_PERSON_TITLE HZ_PARTIES.PERSON_TITLE%TYPE;
157 L_ADDRESSEE HZ_PARTY_SITES.ADDRESSEE%TYPE;
158 L_PERSON_TITLE_UP HZ_PARTIES.PERSON_TITLE%TYPE;
159 L_LOOKUP_TYPE VARCHAR2(20);
160 BEGIN
161 /*SRW.REFERENCE(C_SHIP_TO_SITE_USE_ID)*/NULL;
162 SELECT
163 HP.PARTY_NAME,
164 NVL(HP.PERSON_PRE_NAME_ADJUNCT
165 ,HP.PERSON_TITLE) TITLE,
166 PS.ADDRESSEE
167 INTO SHIP_TO_CUST_NAME,L_PERSON_TITLE,L_ADDRESSEE
168 FROM
169 HZ_PARTY_SITES PS,
170 HZ_CUST_ACCT_SITES_ALL CA,
171 HZ_CUST_SITE_USES_ALL SU,
172 HZ_PARTIES HP
173 WHERE SU.SITE_USE_ID = C_SHIP_TO_SITE_USE_ID
174 AND SU.CUST_ACCT_SITE_ID = CA.CUST_ACCT_SITE_ID
175 AND CA.PARTY_SITE_ID = PS.PARTY_SITE_ID
176 AND HP.PARTY_ID = PS.PARTY_ID;
177 IF L_PERSON_TITLE IS NOT NULL THEN
178 BEGIN
179 L_LOOKUP_TYPE := 'RESPONSIBILITY';
180 L_PERSON_TITLE_UP := UPPER(L_PERSON_TITLE);
181 SELECT
182 MEANING || ' ' || SHIP_TO_CUST_NAME
183 INTO SHIP_TO_CUST_NAME
184 FROM
185 AR_LOOKUPS
186 WHERE LOOKUP_CODE = L_PERSON_TITLE_UP
187 AND LOOKUP_TYPE = L_LOOKUP_TYPE;
188 EXCEPTION
189 WHEN OTHERS THEN
190 SHIP_TO_CUST_NAME := L_PERSON_TITLE || ' ' || SHIP_TO_CUST_NAME;
191 END;
192 END IF;
193 CP_ADDRESSEE := L_ADDRESSEE;
194 IF SQL%NOTFOUND THEN
195 RETURN (NULL);
196 END IF;
197 RETURN (SHIP_TO_CUST_NAME);
198 EXCEPTION
199 WHEN NO_DATA_FOUND THEN
200 RETURN (NULL);
201 WHEN OTHERS THEN
202 RAISE;
203 END;
204 END CF_SHIP_TO_CUST_NAMEFORMULA;
205
206 FUNCTION CF_FREIGHT_CARRIERFORMULA(CARRIER_NAME IN VARCHAR2
207 ,DEL_ORGANIZATION_ID IN NUMBER
208 ,DELIVERY_ID1 IN NUMBER) RETURN CHAR IS
209 L_CARRIER VARCHAR2(35);
210 L_COUNT NUMBER;
211 L_SHIP_METHOD_CODE WSH_TRIPS.SHIP_METHOD_CODE%TYPE;
212 L_TRIP_PRESENT BOOLEAN := FALSE;
213 L_SHIP_METHOD_MEANING VARCHAR2(50);
214 BEGIN
215 /*SRW.REFERENCE(CARRIER_NAME)*/NULL;
216 /*SRW.REFERENCE(DEL_ORGANIZATION_ID)*/NULL;
217 /*SRW.REFERENCE(P_ORGANIZATION_ID)*/NULL;
218 /*SRW.REFERENCE(DELIVERY_ID)*/NULL;
219 IF CARRIER_NAME IS NOT NULL THEN
220 RETURN (CARRIER_NAME);
221 ELSE
222 BEGIN
223 L_SHIP_METHOD_CODE := NULL;
224 SELECT
225 SHIP_METHOD_CODE
226 INTO L_SHIP_METHOD_CODE
227 FROM
228 WSH_NEW_DELIVERIES
229 WHERE DELIVERY_ID = DELIVERY_ID1;
230 --WHERE DELIVERY_ID = DELIVERY_ID;
231 IF SQL%NOTFOUND THEN
232 NULL;
233 END IF;
234 EXCEPTION
235 WHEN NO_DATA_FOUND THEN
236 L_SHIP_METHOD_CODE := NULL;
237 END;
238 IF L_SHIP_METHOD_CODE IS NULL THEN
239 BEGIN
240 SELECT
241 WT.SHIP_METHOD_CODE
242 INTO L_SHIP_METHOD_CODE
243 FROM
244 WSH_TRIPS WT,
245 WSH_TRIP_STOPS WTS,
246 WSH_DELIVERY_ASSIGNMENTS_V WDA,
247 WSH_DELIVERY_LEGS WDL
248 WHERE WTS.STOP_ID = WDL.PICK_UP_STOP_ID
249 --AND WDA.DELIVERY_ID = DELIVERY_ID
250 AND WDA.DELIVERY_ID = DELIVERY_ID1
251 AND WDA.DELIVERY_ID = WDL.DELIVERY_ID
252 AND WTS.TRIP_ID = WT.TRIP_ID
253 AND ROWNUM = 1;
254 IF SQL%NOTFOUND THEN
255 NULL;
256 END IF;
257 EXCEPTION
258 WHEN NO_DATA_FOUND THEN
259 L_SHIP_METHOD_CODE := NULL;
260 END;
261 END IF;
262 IF L_SHIP_METHOD_CODE IS NULL THEN
263 L_SHIP_METHOD_MEANING := NULL;
264 ELSE
265 L_CARRIER := L_SHIP_METHOD_CODE;
266 BEGIN
267 SELECT
268 SUBSTR(SHIP_METHOD_MEANING
269 ,1
270 ,50)
271 INTO L_SHIP_METHOD_MEANING
272 FROM
273 WSH_CARRIER_SERVICES
274 WHERE SHIP_METHOD_CODE = L_CARRIER;
275 EXCEPTION
276 WHEN NO_DATA_FOUND THEN
277 L_SHIP_METHOD_MEANING := L_CARRIER;
278 END;
279 END IF;
280 RETURN (L_SHIP_METHOD_MEANING);
281 END IF;
282 END CF_FREIGHT_CARRIERFORMULA;
283
284 FUNCTION CF_SHIP_TO_COUNTRY_NAMEFORMULA(SHIP_TO_COUNTRY IN VARCHAR2) RETURN CHAR IS
285 L_SHIP_TO_COUNTRY_NAME VARCHAR2(80);
286 BEGIN
287 SELECT
288 TERRITORY_SHORT_NAME
289 INTO L_SHIP_TO_COUNTRY_NAME
290 FROM
291 FND_TERRITORIES_VL
292 WHERE TERRITORY_CODE = SHIP_TO_COUNTRY;
293 RETURN L_SHIP_TO_COUNTRY_NAME;
294 EXCEPTION
295 WHEN NO_DATA_FOUND THEN
296 RETURN NULL;
297 END CF_SHIP_TO_COUNTRY_NAMEFORMULA;
298
299 FUNCTION CF_DEL_TO_COUNTRY_NAMEFORMULA(DEL_TO_COUNTRY IN VARCHAR2) RETURN CHAR IS
300 L_DEL_TO_COUNTRY_NAME VARCHAR2(80);
301 BEGIN
302 SELECT
303 TERRITORY_SHORT_NAME
304 INTO L_DEL_TO_COUNTRY_NAME
305 FROM
306 FND_TERRITORIES_VL
307 WHERE TERRITORY_CODE = DEL_TO_COUNTRY;
308 RETURN L_DEL_TO_COUNTRY_NAME;
309 EXCEPTION
310 WHEN NO_DATA_FOUND THEN
311 RETURN NULL;
312 END CF_DEL_TO_COUNTRY_NAMEFORMULA;
313
314 FUNCTION CF_CONTACT_NAMEFORMULA(CONTACT_NAME IN VARCHAR2
315 ,CONTACT_PHONE_NUMBER IN VARCHAR2
316 ,DELIVERY_DETAIL_ID IN NUMBER) RETURN CHAR IS
317 CURSOR C_IS_CONTAINER(P_DEL_DET_ID_1 IN NUMBER) IS
318 SELECT
319 1
320 FROM
321 WSH_DELIVERY_DETAILS
322 WHERE DELIVERY_DETAIL_ID = P_DEL_DET_ID_1
323 AND CONTAINER_FLAG = 'Y';
324 CURSOR C_GET_DETAIL_HAVING_ST_CONTACT(P_DEL_DET_ID_2 IN NUMBER) IS
325 SELECT
326 DELIVERY_DETAIL_ID
327 FROM
328 WSH_DELIVERY_DETAILS
329 WHERE DELIVERY_DETAIL_ID in (
330 SELECT
331 WDA.DELIVERY_DETAIL_ID
332 FROM
333 WSH_DELIVERY_ASSIGNMENTS_V WDA
334 START WITH WDA.PARENT_DELIVERY_DETAIL_ID = P_DEL_DET_ID_2
335 CONNECT BY prior WDA.DELIVERY_DETAIL_ID = PARENT_DELIVERY_DETAIL_ID )
336 AND SHIP_TO_CONTACT_ID is not null
337 AND CONTAINER_FLAG IN ( 'N' , 'Y' )
338 AND ROWNUM < 2;
339 CURSOR C_GET_CONTACT_INFO(P_DEL_DET_ID_3 IN NUMBER) IS
340 SELECT
341 CONTACT_NAME,
342 CONTACT_PHONE_NUMBER
343 FROM
344 ( SELECT
345 DISTINCT
346 CONTACT.PERSON_PRE_NAME_ADJUNCT || ' ' || SUBSTRB(CONTACT.PERSON_FIRST_NAME
347 ,1
348 ,40) || ' ' || SUBSTRB(CONTACT.PERSON_LAST_NAME
349 ,1
350 ,50) CONTACT_NAME,
351 DECODE(PHONES.CONTACT_POINT_TYPE
352 ,'TLX'
353 ,PHONES.TELEX_NUMBER
354 ,PHONES.PHONE_NUMBER) CONTACT_PHONE_NUMBER
355 FROM
356 ( SELECT
357 PARTY.PERSON_PRE_NAME_ADJUNCT,
358 PARTY.PERSON_FIRST_NAME,
359 PARTY.PERSON_LAST_NAME,
360 ACCT_ROLE.CUST_ACCOUNT_ROLE_ID
361 FROM
362 HZ_CUST_ACCOUNT_ROLES ACCT_ROLE,
363 HZ_PARTIES PARTY,
364 HZ_RELATIONSHIPS REL,
365 HZ_ORG_CONTACTS ORG_CONT,
366 HZ_CUST_ACCOUNTS ROLE_ACCT
367 WHERE ACCT_ROLE.PARTY_ID = REL.PARTY_ID
368 AND ACCT_ROLE.ROLE_TYPE = 'CONTACT'
369 AND ORG_CONT.PARTY_RELATIONSHIP_ID = REL.RELATIONSHIP_ID
370 AND REL.SUBJECT_ID = PARTY.PARTY_ID
371 AND REL.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
372 AND REL.OBJECT_TABLE_NAME = 'HZ_PARTIES'
373 AND ACCT_ROLE.CUST_ACCOUNT_ID = ROLE_ACCT.CUST_ACCOUNT_ID
374 AND ROLE_ACCT.PARTY_ID = REL.OBJECT_ID ) CONTACT,
375 ( SELECT
376 CONT_POINT.PHONE_LINE_TYPE PHONE_LINE_TYPE,
377 CONT_POINT.CONTACT_POINT_TYPE CONTACT_POINT_TYPE,
378 CAR.CUST_ACCOUNT_ROLE_ID CUST_ACCOUNT_ROLE_ID,
379 CONT_POINT.TELEX_NUMBER TELEX_NUMBER,
380 CONT_POINT.PHONE_NUMBER PHONE_NUMBER,
381 NVL(CONT_POINT.PHONE_LINE_TYPE
382 ,CONT_POINT.CONTACT_POINT_TYPE) PHONE_TYPE
383 FROM
384 HZ_CONTACT_POINTS CONT_POINT,
385 HZ_CUST_ACCOUNT_ROLES CAR
386 WHERE CAR.PARTY_ID = CONT_POINT.OWNER_TABLE_ID
387 AND CONT_POINT.OWNER_TABLE_NAME = 'HZ_PARTIES'
388 AND CONT_POINT.CONTACT_POINT_TYPE not in ( 'EDI' , 'EMAIL' , 'WEB' ) ) PHONES,
389 WSH_DELIVERY_DETAILS WDD
390 WHERE WDD.DELIVERY_DETAIL_ID = P_DEL_DET_ID_3
391 AND WDD.SHIP_TO_CONTACT_ID = contact.cust_account_role_id (+)
392 AND CONTACT.CUST_ACCOUNT_ROLE_ID = phones.cust_account_role_id (+)
393 AND phones.phone_type (+) = 'PHONE' )
394 WHERE ROWNUM < 2;
395 L_CONTACT_NAME VARCHAR2(122);
396 L_CONTACT_PHONE VARCHAR2(50);
397 L_DELIVERY_DETAIL_ID NUMBER;
398 L_TEMP NUMBER;
399 BEGIN
400 L_CONTACT_NAME := CONTACT_NAME;
401 L_CONTACT_PHONE := CONTACT_PHONE_NUMBER;
402 IF RTRIM(L_CONTACT_NAME) IS NULL AND RTRIM(L_CONTACT_PHONE) IS NULL THEN
403 OPEN C_IS_CONTAINER(DELIVERY_DETAIL_ID);
404 FETCH C_IS_CONTAINER
405 INTO L_TEMP;
406 IF C_IS_CONTAINER%FOUND THEN
407 OPEN C_GET_DETAIL_HAVING_ST_CONTACT(DELIVERY_DETAIL_ID);
408 FETCH C_GET_DETAIL_HAVING_ST_CONTACT
409 INTO L_DELIVERY_DETAIL_ID;
410 IF C_GET_DETAIL_HAVING_ST_CONTACT%FOUND AND L_DELIVERY_DETAIL_ID IS NOT NULL THEN
411 OPEN C_GET_CONTACT_INFO(L_DELIVERY_DETAIL_ID);
412 FETCH C_GET_CONTACT_INFO
413 INTO L_CONTACT_NAME,L_CONTACT_PHONE;
414 CLOSE C_GET_CONTACT_INFO;
415 END IF;
416 CLOSE C_GET_DETAIL_HAVING_ST_CONTACT;
417 END IF;
418 CLOSE C_IS_CONTAINER;
419 END IF;
420 CP_CONTACT_PHONE := L_CONTACT_PHONE;
421 RETURN L_CONTACT_NAME;
422 EXCEPTION
423 WHEN OTHERS THEN
424 CP_CONTACT_PHONE := L_CONTACT_PHONE;
425 RETURN L_CONTACT_NAME;
426 END CF_CONTACT_NAMEFORMULA;
427
428 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
429 BEGIN
430 BEGIN
431 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
432 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
433 EXCEPTION
434 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
435 /*SRW.MESSAGE(1
436 ,'Failed FND SRWINIT.')*/NULL;
437 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
438 END;
439 RETURN (TRUE);
440 END BEFOREREPORT;
441
442 FUNCTION AFTERREPORT RETURN BOOLEAN IS
443 BEGIN
444 BEGIN
445 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
446 EXCEPTION
447 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
448 /*SRW.MESSAGE(1
449 ,'Failed in SRWEXIT')*/NULL;
450 RAISE;
451 END;
452 RETURN (TRUE);
453 END AFTERREPORT;
454
455 FUNCTION CP_CONTACT_PHONE_P RETURN VARCHAR2 IS
456 BEGIN
457 RETURN CP_CONTACT_PHONE;
458 END CP_CONTACT_PHONE_P;
459
460 FUNCTION CP_ADDRESSEE_P RETURN VARCHAR2 IS
461 BEGIN
462 RETURN CP_ADDRESSEE;
463 END CP_ADDRESSEE_P;
464
465 FUNCTION CP_DELIVER_TO_LOCATION_ID_P RETURN NUMBER IS
466 BEGIN
467 RETURN CP_DELIVER_TO_LOCATION_ID;
468 END CP_DELIVER_TO_LOCATION_ID_P;
469
470 FUNCTION CP_SHIP_TO_ADDRESS1_P RETURN VARCHAR2 IS
471 BEGIN
472 RETURN CP_SHIP_TO_ADDRESS1;
473 END CP_SHIP_TO_ADDRESS1_P;
474
475 FUNCTION CP_SHIP_TO_ADDRESS2_P RETURN VARCHAR2 IS
476 BEGIN
477 RETURN CP_SHIP_TO_ADDRESS2;
478 END CP_SHIP_TO_ADDRESS2_P;
479
480 FUNCTION CP_SHIP_TO_ADDRESS3_P RETURN VARCHAR2 IS
481 BEGIN
482 RETURN CP_SHIP_TO_ADDRESS3;
483 END CP_SHIP_TO_ADDRESS3_P;
484
485 FUNCTION CP_SHIP_TO_CSZ_P RETURN VARCHAR2 IS
486 BEGIN
487 RETURN CP_SHIP_TO_CSZ;
488 END CP_SHIP_TO_CSZ_P;
489
490 FUNCTION CP_SHIP_TO_COUNTRY_P RETURN VARCHAR2 IS
491 BEGIN
492 RETURN CP_SHIP_TO_COUNTRY;
493 END CP_SHIP_TO_COUNTRY_P;
494
495 FUNCTION CP_DEL_TO_ADDRESS1_P RETURN VARCHAR2 IS
496 BEGIN
497 RETURN CP_DEL_TO_ADDRESS1;
498 END CP_DEL_TO_ADDRESS1_P;
499
500 FUNCTION CP_DEL_TO_ADDRESS2_P RETURN VARCHAR2 IS
501 BEGIN
502 RETURN CP_DEL_TO_ADDRESS2;
503 END CP_DEL_TO_ADDRESS2_P;
504
505 FUNCTION CP_DEL_TO_ADDRESS3_P RETURN VARCHAR2 IS
506 BEGIN
507 RETURN CP_DEL_TO_ADDRESS3;
508 END CP_DEL_TO_ADDRESS3_P;
509
510 FUNCTION CP_DEL_TO_CSZ_P RETURN VARCHAR2 IS
511 BEGIN
512 RETURN CP_DEL_TO_CSZ;
513 END CP_DEL_TO_CSZ_P;
514
515 FUNCTION CP_DEL_TO_COUNTRY_P RETURN VARCHAR2 IS
516 BEGIN
517 RETURN CP_DEL_TO_COUNTRY;
518 END CP_DEL_TO_COUNTRY_P;
519
520 END WSH_WSHRDLAB_XMLP_PKG;
521