1 PACKAGE BODY WSH_WSHRDLAB_XMLP_PKG AS
2 /* $Header: WSHRDLABB.pls 120.3 2008/01/04 10:36:55 dwkrishn noship $ */
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 SOURCE_HEADER_NUMBER
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 RETURN (TRUE);
140 EXCEPTION
141 WHEN NO_DATA_FOUND THEN
142 NULL;
143 END AFTERPFORM;
144
145 FUNCTION CF_SHIP_TO_CUST_NAMEFORMULA(C_SHIP_TO_SITE_USE_ID IN NUMBER) RETURN CHAR IS
146 BEGIN
147 DECLARE
148 SHIP_TO_CUST_NAME HZ_PARTIES.PARTY_NAME%TYPE;
149 L_PERSON_TITLE HZ_PARTIES.PERSON_TITLE%TYPE;
150 L_ADDRESSEE HZ_PARTY_SITES.ADDRESSEE%TYPE;
151 L_PERSON_TITLE_UP HZ_PARTIES.PERSON_TITLE%TYPE;
152 L_LOOKUP_TYPE VARCHAR2(20);
153 BEGIN
154 /*SRW.REFERENCE(C_SHIP_TO_SITE_USE_ID)*/NULL;
155 SELECT
156 HP.PARTY_NAME,
157 NVL(HP.PERSON_PRE_NAME_ADJUNCT
158 ,HP.PERSON_TITLE) TITLE,
159 PS.ADDRESSEE
160 INTO SHIP_TO_CUST_NAME,L_PERSON_TITLE,L_ADDRESSEE
161 FROM
162 HZ_PARTY_SITES PS,
163 HZ_CUST_ACCT_SITES_ALL CA,
164 HZ_CUST_SITE_USES_ALL SU,
165 HZ_PARTIES HP
166 WHERE SU.SITE_USE_ID = C_SHIP_TO_SITE_USE_ID
167 AND SU.CUST_ACCT_SITE_ID = CA.CUST_ACCT_SITE_ID
168 AND CA.PARTY_SITE_ID = PS.PARTY_SITE_ID
169 AND HP.PARTY_ID = PS.PARTY_ID;
170 IF L_PERSON_TITLE IS NOT NULL THEN
171 BEGIN
172 L_LOOKUP_TYPE := 'RESPONSIBILITY';
173 L_PERSON_TITLE_UP := UPPER(L_PERSON_TITLE);
174 SELECT
175 MEANING || ' ' || SHIP_TO_CUST_NAME
176 INTO SHIP_TO_CUST_NAME
177 FROM
178 AR_LOOKUPS
179 WHERE LOOKUP_CODE = L_PERSON_TITLE_UP
180 AND LOOKUP_TYPE = L_LOOKUP_TYPE;
181 EXCEPTION
182 WHEN OTHERS THEN
183 SHIP_TO_CUST_NAME := L_PERSON_TITLE || ' ' || SHIP_TO_CUST_NAME;
184 END;
185 END IF;
186 CP_ADDRESSEE := L_ADDRESSEE;
187 IF SQL%NOTFOUND THEN
188 RETURN (NULL);
189 END IF;
190 RETURN (SHIP_TO_CUST_NAME);
191 EXCEPTION
192 WHEN NO_DATA_FOUND THEN
193 RETURN (NULL);
194 WHEN OTHERS THEN
195 RAISE;
196 END;
197 END CF_SHIP_TO_CUST_NAMEFORMULA;
198
199 FUNCTION CF_FREIGHT_CARRIERFORMULA(CARRIER_NAME IN VARCHAR2
200 ,DEL_ORGANIZATION_ID IN NUMBER
201 ,DELIVERY_ID1 IN NUMBER) RETURN CHAR IS
202 L_CARRIER VARCHAR2(35);
203 L_COUNT NUMBER;
204 L_SHIP_METHOD_CODE WSH_TRIPS.SHIP_METHOD_CODE%TYPE;
205 L_TRIP_PRESENT BOOLEAN := FALSE;
206 L_SHIP_METHOD_MEANING VARCHAR2(50);
207 BEGIN
208 /*SRW.REFERENCE(CARRIER_NAME)*/NULL;
209 /*SRW.REFERENCE(DEL_ORGANIZATION_ID)*/NULL;
210 /*SRW.REFERENCE(P_ORGANIZATION_ID)*/NULL;
211 /*SRW.REFERENCE(DELIVERY_ID)*/NULL;
212 IF CARRIER_NAME IS NOT NULL THEN
213 RETURN (CARRIER_NAME);
214 ELSE
215 BEGIN
216 L_SHIP_METHOD_CODE := NULL;
217 SELECT
218 SHIP_METHOD_CODE
219 INTO L_SHIP_METHOD_CODE
220 FROM
224 IF SQL%NOTFOUND THEN
221 WSH_NEW_DELIVERIES
222 WHERE DELIVERY_ID = DELIVERY_ID1;
223 --WHERE DELIVERY_ID = DELIVERY_ID;
225 NULL;
226 END IF;
227 EXCEPTION
228 WHEN NO_DATA_FOUND THEN
229 L_SHIP_METHOD_CODE := NULL;
230 END;
231 IF L_SHIP_METHOD_CODE IS NULL THEN
232 BEGIN
233 SELECT
234 WT.SHIP_METHOD_CODE
235 INTO L_SHIP_METHOD_CODE
236 FROM
237 WSH_TRIPS WT,
238 WSH_TRIP_STOPS WTS,
239 WSH_DELIVERY_ASSIGNMENTS_V WDA,
240 WSH_DELIVERY_LEGS WDL
241 WHERE WTS.STOP_ID = WDL.PICK_UP_STOP_ID
242 --AND WDA.DELIVERY_ID = DELIVERY_ID
243 AND WDA.DELIVERY_ID = DELIVERY_ID1
244 AND WDA.DELIVERY_ID = WDL.DELIVERY_ID
245 AND WTS.TRIP_ID = WT.TRIP_ID
246 AND ROWNUM = 1;
247 IF SQL%NOTFOUND THEN
248 NULL;
249 END IF;
250 EXCEPTION
251 WHEN NO_DATA_FOUND THEN
252 L_SHIP_METHOD_CODE := NULL;
253 END;
254 END IF;
255 IF L_SHIP_METHOD_CODE IS NULL THEN
256 L_SHIP_METHOD_MEANING := NULL;
257 ELSE
258 L_CARRIER := L_SHIP_METHOD_CODE;
259 BEGIN
260 SELECT
261 SUBSTR(SHIP_METHOD_MEANING
262 ,1
263 ,50)
264 INTO L_SHIP_METHOD_MEANING
265 FROM
266 WSH_CARRIER_SERVICES
267 WHERE SHIP_METHOD_CODE = L_CARRIER;
268 EXCEPTION
269 WHEN NO_DATA_FOUND THEN
270 L_SHIP_METHOD_MEANING := L_CARRIER;
271 END;
272 END IF;
273 RETURN (L_SHIP_METHOD_MEANING);
274 END IF;
275 END CF_FREIGHT_CARRIERFORMULA;
276
277 FUNCTION CF_SHIP_TO_COUNTRY_NAMEFORMULA(SHIP_TO_COUNTRY IN VARCHAR2) RETURN CHAR IS
278 L_SHIP_TO_COUNTRY_NAME VARCHAR2(80);
279 BEGIN
280 SELECT
281 TERRITORY_SHORT_NAME
282 INTO L_SHIP_TO_COUNTRY_NAME
283 FROM
284 FND_TERRITORIES_VL
285 WHERE TERRITORY_CODE = SHIP_TO_COUNTRY;
286 RETURN L_SHIP_TO_COUNTRY_NAME;
287 EXCEPTION
288 WHEN NO_DATA_FOUND THEN
289 RETURN NULL;
290 END CF_SHIP_TO_COUNTRY_NAMEFORMULA;
291
292 FUNCTION CF_DEL_TO_COUNTRY_NAMEFORMULA(DEL_TO_COUNTRY IN VARCHAR2) RETURN CHAR IS
293 L_DEL_TO_COUNTRY_NAME VARCHAR2(80);
294 BEGIN
295 SELECT
296 TERRITORY_SHORT_NAME
297 INTO L_DEL_TO_COUNTRY_NAME
298 FROM
299 FND_TERRITORIES_VL
300 WHERE TERRITORY_CODE = DEL_TO_COUNTRY;
301 RETURN L_DEL_TO_COUNTRY_NAME;
302 EXCEPTION
303 WHEN NO_DATA_FOUND THEN
304 RETURN NULL;
305 END CF_DEL_TO_COUNTRY_NAMEFORMULA;
306
307 FUNCTION CF_CONTACT_NAMEFORMULA(CONTACT_NAME IN VARCHAR2
308 ,CONTACT_PHONE_NUMBER IN VARCHAR2
309 ,DELIVERY_DETAIL_ID IN NUMBER) RETURN CHAR IS
310 CURSOR C_IS_CONTAINER(P_DEL_DET_ID_1 IN NUMBER) IS
311 SELECT
312 1
313 FROM
314 WSH_DELIVERY_DETAILS
315 WHERE DELIVERY_DETAIL_ID = P_DEL_DET_ID_1
316 AND CONTAINER_FLAG = 'Y';
317 CURSOR C_GET_DETAIL_HAVING_ST_CONTACT(P_DEL_DET_ID_2 IN NUMBER) IS
318 SELECT
319 DELIVERY_DETAIL_ID
320 FROM
321 WSH_DELIVERY_DETAILS
322 WHERE DELIVERY_DETAIL_ID in (
323 SELECT
324 WDA.DELIVERY_DETAIL_ID
325 FROM
326 WSH_DELIVERY_ASSIGNMENTS_V WDA
327 START WITH WDA.PARENT_DELIVERY_DETAIL_ID = P_DEL_DET_ID_2
328 CONNECT BY prior WDA.DELIVERY_DETAIL_ID = PARENT_DELIVERY_DETAIL_ID )
329 AND SHIP_TO_CONTACT_ID is not null
330 AND CONTAINER_FLAG IN ( 'N' , 'Y' )
331 AND ROWNUM < 2;
332 CURSOR C_GET_CONTACT_INFO(P_DEL_DET_ID_3 IN NUMBER) IS
333 SELECT
334 CONTACT_NAME,
335 CONTACT_PHONE_NUMBER
336 FROM
337 ( SELECT
338 DISTINCT
339 CONTACT.PERSON_PRE_NAME_ADJUNCT || ' ' || SUBSTRB(CONTACT.PERSON_FIRST_NAME
340 ,1
341 ,40) || ' ' || SUBSTRB(CONTACT.PERSON_LAST_NAME
342 ,1
343 ,50) CONTACT_NAME,
344 DECODE(PHONES.CONTACT_POINT_TYPE
345 ,'TLX'
346 ,PHONES.TELEX_NUMBER
347 ,PHONES.PHONE_NUMBER) CONTACT_PHONE_NUMBER
348 FROM
349 ( SELECT
350 PARTY.PERSON_PRE_NAME_ADJUNCT,
351 PARTY.PERSON_FIRST_NAME,
352 PARTY.PERSON_LAST_NAME,
353 ACCT_ROLE.CUST_ACCOUNT_ROLE_ID
354 FROM
355 HZ_CUST_ACCOUNT_ROLES ACCT_ROLE,
356 HZ_PARTIES PARTY,
357 HZ_RELATIONSHIPS REL,
358 HZ_ORG_CONTACTS ORG_CONT,
359 HZ_CUST_ACCOUNTS ROLE_ACCT
360 WHERE ACCT_ROLE.PARTY_ID = REL.PARTY_ID
361 AND ACCT_ROLE.ROLE_TYPE = 'CONTACT'
362 AND ORG_CONT.PARTY_RELATIONSHIP_ID = REL.RELATIONSHIP_ID
363 AND REL.SUBJECT_ID = PARTY.PARTY_ID
364 AND REL.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
365 AND REL.OBJECT_TABLE_NAME = 'HZ_PARTIES'
366 AND ACCT_ROLE.CUST_ACCOUNT_ID = ROLE_ACCT.CUST_ACCOUNT_ID
367 AND ROLE_ACCT.PARTY_ID = REL.OBJECT_ID ) CONTACT,
368 ( SELECT
369 CONT_POINT.PHONE_LINE_TYPE PHONE_LINE_TYPE,
370 CONT_POINT.CONTACT_POINT_TYPE CONTACT_POINT_TYPE,
374 NVL(CONT_POINT.PHONE_LINE_TYPE
371 CAR.CUST_ACCOUNT_ROLE_ID CUST_ACCOUNT_ROLE_ID,
372 CONT_POINT.TELEX_NUMBER TELEX_NUMBER,
373 CONT_POINT.PHONE_NUMBER PHONE_NUMBER,
375 ,CONT_POINT.CONTACT_POINT_TYPE) PHONE_TYPE
376 FROM
377 HZ_CONTACT_POINTS CONT_POINT,
378 HZ_CUST_ACCOUNT_ROLES CAR
379 WHERE CAR.PARTY_ID = CONT_POINT.OWNER_TABLE_ID
380 AND CONT_POINT.OWNER_TABLE_NAME = 'HZ_PARTIES'
381 AND CONT_POINT.CONTACT_POINT_TYPE not in ( 'EDI' , 'EMAIL' , 'WEB' ) ) PHONES,
382 WSH_DELIVERY_DETAILS WDD
383 WHERE WDD.DELIVERY_DETAIL_ID = P_DEL_DET_ID_3
384 AND WDD.SHIP_TO_CONTACT_ID = contact.cust_account_role_id (+)
385 AND CONTACT.CUST_ACCOUNT_ROLE_ID = phones.cust_account_role_id (+)
386 AND phones.phone_type (+) = 'PHONE' )
387 WHERE ROWNUM < 2;
388 L_CONTACT_NAME VARCHAR2(122);
389 L_CONTACT_PHONE VARCHAR2(50);
390 L_DELIVERY_DETAIL_ID NUMBER;
391 L_TEMP NUMBER;
392 BEGIN
393 L_CONTACT_NAME := CONTACT_NAME;
394 L_CONTACT_PHONE := CONTACT_PHONE_NUMBER;
395 IF RTRIM(L_CONTACT_NAME) IS NULL AND RTRIM(L_CONTACT_PHONE) IS NULL THEN
396 OPEN C_IS_CONTAINER(DELIVERY_DETAIL_ID);
397 FETCH C_IS_CONTAINER
398 INTO L_TEMP;
399 IF C_IS_CONTAINER%FOUND THEN
400 OPEN C_GET_DETAIL_HAVING_ST_CONTACT(DELIVERY_DETAIL_ID);
401 FETCH C_GET_DETAIL_HAVING_ST_CONTACT
402 INTO L_DELIVERY_DETAIL_ID;
403 IF C_GET_DETAIL_HAVING_ST_CONTACT%FOUND AND L_DELIVERY_DETAIL_ID IS NOT NULL THEN
404 OPEN C_GET_CONTACT_INFO(L_DELIVERY_DETAIL_ID);
405 FETCH C_GET_CONTACT_INFO
406 INTO L_CONTACT_NAME,L_CONTACT_PHONE;
407 CLOSE C_GET_CONTACT_INFO;
408 END IF;
409 CLOSE C_GET_DETAIL_HAVING_ST_CONTACT;
410 END IF;
411 CLOSE C_IS_CONTAINER;
412 END IF;
413 CP_CONTACT_PHONE := L_CONTACT_PHONE;
414 RETURN L_CONTACT_NAME;
415 EXCEPTION
416 WHEN OTHERS THEN
417 CP_CONTACT_PHONE := L_CONTACT_PHONE;
418 RETURN L_CONTACT_NAME;
419 END CF_CONTACT_NAMEFORMULA;
420
421 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
422 BEGIN
423 BEGIN
424 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
425 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
426 EXCEPTION
427 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
428 /*SRW.MESSAGE(1
429 ,'Failed FND SRWINIT.')*/NULL;
430 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
431 END;
432 RETURN (TRUE);
433 END BEFOREREPORT;
434
435 FUNCTION AFTERREPORT RETURN BOOLEAN IS
436 BEGIN
437 BEGIN
438 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
439 EXCEPTION
440 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
441 /*SRW.MESSAGE(1
442 ,'Failed in SRWEXIT')*/NULL;
443 RAISE;
444 END;
445 RETURN (TRUE);
446 END AFTERREPORT;
447
448 FUNCTION CP_CONTACT_PHONE_P RETURN VARCHAR2 IS
449 BEGIN
450 RETURN CP_CONTACT_PHONE;
451 END CP_CONTACT_PHONE_P;
452
453 FUNCTION CP_ADDRESSEE_P RETURN VARCHAR2 IS
454 BEGIN
455 RETURN CP_ADDRESSEE;
456 END CP_ADDRESSEE_P;
457
458 FUNCTION CP_DELIVER_TO_LOCATION_ID_P RETURN NUMBER IS
459 BEGIN
460 RETURN CP_DELIVER_TO_LOCATION_ID;
461 END CP_DELIVER_TO_LOCATION_ID_P;
462
463 FUNCTION CP_SHIP_TO_ADDRESS1_P RETURN VARCHAR2 IS
464 BEGIN
465 RETURN CP_SHIP_TO_ADDRESS1;
466 END CP_SHIP_TO_ADDRESS1_P;
467
468 FUNCTION CP_SHIP_TO_ADDRESS2_P RETURN VARCHAR2 IS
469 BEGIN
470 RETURN CP_SHIP_TO_ADDRESS2;
471 END CP_SHIP_TO_ADDRESS2_P;
472
473 FUNCTION CP_SHIP_TO_ADDRESS3_P RETURN VARCHAR2 IS
474 BEGIN
475 RETURN CP_SHIP_TO_ADDRESS3;
476 END CP_SHIP_TO_ADDRESS3_P;
477
478 FUNCTION CP_SHIP_TO_CSZ_P RETURN VARCHAR2 IS
479 BEGIN
480 RETURN CP_SHIP_TO_CSZ;
481 END CP_SHIP_TO_CSZ_P;
482
483 FUNCTION CP_SHIP_TO_COUNTRY_P RETURN VARCHAR2 IS
484 BEGIN
485 RETURN CP_SHIP_TO_COUNTRY;
486 END CP_SHIP_TO_COUNTRY_P;
487
488 FUNCTION CP_DEL_TO_ADDRESS1_P RETURN VARCHAR2 IS
489 BEGIN
490 RETURN CP_DEL_TO_ADDRESS1;
491 END CP_DEL_TO_ADDRESS1_P;
492
493 FUNCTION CP_DEL_TO_ADDRESS2_P RETURN VARCHAR2 IS
494 BEGIN
495 RETURN CP_DEL_TO_ADDRESS2;
496 END CP_DEL_TO_ADDRESS2_P;
497
498 FUNCTION CP_DEL_TO_ADDRESS3_P RETURN VARCHAR2 IS
499 BEGIN
500 RETURN CP_DEL_TO_ADDRESS3;
501 END CP_DEL_TO_ADDRESS3_P;
502
503 FUNCTION CP_DEL_TO_CSZ_P RETURN VARCHAR2 IS
504 BEGIN
505 RETURN CP_DEL_TO_CSZ;
506 END CP_DEL_TO_CSZ_P;
507
508 FUNCTION CP_DEL_TO_COUNTRY_P RETURN VARCHAR2 IS
509 BEGIN
510 RETURN CP_DEL_TO_COUNTRY;
511 END CP_DEL_TO_COUNTRY_P;
512
513 END WSH_WSHRDLAB_XMLP_PKG;
514