1 PACKAGE BODY WSH_WSHRDVLS_XMLP_PKG AS
2 /* $Header: WSHRDVLSB.pls 120.3 2008/01/04 10:58:23 npannamp noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
8 EXCEPTION
9 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
10 /*SRW.MESSAGE(1
11 ,'Failed FND SRWINIT.')*/NULL;
12 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
13 END;
14 RETURN (TRUE);
15 END BEFOREREPORT;
16
17 FUNCTION C_COMPANY_NAME RETURN VARCHAR2 IS
18 COMPANY_NAME VARCHAR2(50);
19 BEGIN
20 SELECT
21 NAME
22 INTO COMPANY_NAME
23 FROM
24 GL_LEDGERS_PUBLIC_V
25 WHERE LEDGER_ID = P_SOB_ID;
26 RETURN (COMPANY_NAME);
27 RETURN NULL;
28 EXCEPTION
29 WHEN NO_DATA_FOUND THEN
30 RETURN (NULL);
31 END C_COMPANY_NAME;
32
33 FUNCTION AFTERREPORT RETURN BOOLEAN IS
34 BEGIN
35 BEGIN
36 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
37 EXCEPTION
38 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
39 /*SRW.MESSAGE(1
40 ,'Failed in SRWEXIT')*/NULL;
41 RAISE;
42 END;
43 RETURN (TRUE);
44 END AFTERREPORT;
45
46 FUNCTION AFTERPFORM RETURN BOOLEAN IS
47 BEGIN
48 IF P_TRIP_ID IS NOT NULL THEN
49 LP_TRIP := ' and trp.trip_id = :P_trip_id ';
50 END IF;
51 RETURN (TRUE);
52 END AFTERPFORM;
53
54 FUNCTION CF_CONSOL_DELIVERY_NAMEFORMULA(PARENT_DELIVERY_LEG_ID IN NUMBER) RETURN CHAR IS
55 CURSOR CUR_GET_CONSOL_DELIVERY_NAME(P_PARENT_DELIVERY_LEG_ID IN NUMBER) IS
56 SELECT
57 WND.NAME
58 FROM
59 WSH_NEW_DELIVERIES WND,
60 WSH_DELIVERY_LEGS WDL
61 WHERE WND.DELIVERY_ID = WDL.DELIVERY_ID
62 AND WDL.DELIVERY_LEG_ID = P_PARENT_DELIVERY_LEG_ID;
63 L_CONSOL_DELIVERY_NAME VARCHAR2(30) := NULL;
64 BEGIN
65 IF PARENT_DELIVERY_LEG_ID IS NOT NULL THEN
66 OPEN CUR_GET_CONSOL_DELIVERY_NAME(PARENT_DELIVERY_LEG_ID);
67 FETCH CUR_GET_CONSOL_DELIVERY_NAME
68 INTO L_CONSOL_DELIVERY_NAME;
69 CLOSE CUR_GET_CONSOL_DELIVERY_NAME;
70 END IF;
71 RETURN (L_CONSOL_DELIVERY_NAME);
72 EXCEPTION
73 WHEN OTHERS THEN
74 IF CUR_GET_CONSOL_DELIVERY_NAME%ISOPEN THEN
75 CLOSE CUR_GET_CONSOL_DELIVERY_NAME;
76 END IF;
77 /*SRW.MESSAGE(1
78 ,'Failed in formula column CF_consol_delivery_name !')*/NULL;
79 RAISE;
80 END CF_CONSOL_DELIVERY_NAMEFORMULA;
81
82 FUNCTION RP_SUB_TITLE_P RETURN VARCHAR2 IS
83 BEGIN
84 RETURN RP_SUB_TITLE;
85 END RP_SUB_TITLE_P;
86
87 END WSH_WSHRDVLS_XMLP_PKG;
88