1 PACKAGE BODY WSH_WSHRDVLD_XMLP_PKG AS
2 /* $Header: WSHRDVLDB.pls 120.3 2008/01/04 10:38:26 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 BEGIN
7 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
8 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
9 EXCEPTION
10 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
11 /*SRW.MESSAGE(1
12 ,'Failed FND SRWINIT.')*/NULL;
13 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
14 END;
15 END;
16 RETURN (TRUE);
17 END BEFOREREPORT;
18
19 FUNCTION C_COMPANY_NAME RETURN VARCHAR2 IS
20 COMPANY_NAME VARCHAR2(50);
21 BEGIN
22 SELECT
23 NAME
24 INTO COMPANY_NAME
25 FROM
26 GL_LEDGERS_PUBLIC_V
27 WHERE LEDGER_ID = P_SOB_ID;
28 RETURN (COMPANY_NAME);
29 RETURN NULL;
30 EXCEPTION
31 WHEN NO_DATA_FOUND THEN
32 RETURN (NULL);
33 END C_COMPANY_NAME;
34
35 FUNCTION AFTERREPORT RETURN BOOLEAN IS
36 BEGIN
37 BEGIN
38 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
39 EXCEPTION
40 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
41 /*SRW.MESSAGE(1
42 ,'Failed in SRWEXIT')*/NULL;
43 RAISE;
44 END;
45 RETURN (TRUE);
46 END AFTERREPORT;
47
48 FUNCTION AFTERPFORM RETURN BOOLEAN IS
49 BEGIN
50 IF P_TRIP_ID IS NOT NULL THEN
51 LP_TRIP := ' and trp.trip_id = :P_trip_id ';
52 END IF;
53 RETURN (TRUE);
54 END AFTERPFORM;
55
56 FUNCTION P_ITEM_STRUCT_NUMVALIDTRIGGER RETURN BOOLEAN IS
57 BEGIN
58 RETURN (TRUE);
59 END P_ITEM_STRUCT_NUMVALIDTRIGGER;
60
61 FUNCTION CF_PICK_UP_CUST_JOBFORMULA(PICK_SOURCE_CODE IN VARCHAR2
62 ,PICK_SOURCE_LINE_ID IN NUMBER) RETURN CHAR IS
63 PICK_UP_CUST_JOB VARCHAR2(50);
64 CURSOR PICK_CUR(P_LINE_ID IN NUMBER) IS
65 SELECT
66 CUSTOMER_JOB
67 FROM
68 OE_ORDER_LINES_ALL
69 WHERE LINE_ID = P_LINE_ID;
70 BEGIN
71 IF PICK_SOURCE_CODE = 'OE' THEN
72 OPEN PICK_CUR(PICK_SOURCE_LINE_ID);
73 FETCH PICK_CUR
74 INTO PICK_UP_CUST_JOB;
75 CLOSE PICK_CUR;
76 END IF;
77 RETURN PICK_UP_CUST_JOB;
78 END CF_PICK_UP_CUST_JOBFORMULA;
79
80 FUNCTION CF_DROP_OFF_CUST_JOBFORMULA(DROP_SOURCE_CODE IN VARCHAR2
81 ,DROP_SOURCE_LINE_ID IN NUMBER) RETURN CHAR IS
82 DROP_OFF_CUST_JOB VARCHAR2(50);
83 CURSOR DROP_CUR(P_LINE_ID IN NUMBER) IS
84 SELECT
85 CUSTOMER_JOB
86 FROM
87 OE_ORDER_LINES_ALL
88 WHERE LINE_ID = P_LINE_ID;
89 BEGIN
90 IF DROP_SOURCE_CODE = 'OE' THEN
91 OPEN DROP_CUR(DROP_SOURCE_LINE_ID);
92 FETCH DROP_CUR
93 INTO DROP_OFF_CUST_JOB;
94 CLOSE DROP_CUR;
95 END IF;
96 RETURN DROP_OFF_CUST_JOB;
97 END CF_DROP_OFF_CUST_JOBFORMULA;
98
99 FUNCTION CF_PICK_ITEM_DESCFORMULA(PICK_INVENTORY_ITEM_ID IN NUMBER
100 ,PICK_UP_ITEM_DESCRIPTION IN VARCHAR2
101 ,DET_PICK_ITEM_DESC IN VARCHAR2) RETURN CHAR IS
102 BEGIN
103 IF PICK_INVENTORY_ITEM_ID IS NOT NULL THEN
104 RETURN PICK_UP_ITEM_DESCRIPTION;
105 ELSE
106 RETURN DET_PICK_ITEM_DESC;
107 END IF;
108 END CF_PICK_ITEM_DESCFORMULA;
109
110 FUNCTION CF_DROP_ITEM_DESCFORMULA(DROP_INVENTORY_ITEM_ID IN NUMBER
111 ,DROP_OFF_ITEM_DESCRIPTION IN VARCHAR2
112 ,DET_DROP_ITEM_DESCRIPTION IN VARCHAR2) RETURN CHAR IS
113 BEGIN
114 IF DROP_INVENTORY_ITEM_ID IS NOT NULL THEN
115 RETURN DROP_OFF_ITEM_DESCRIPTION;
116 ELSE
117 RETURN DET_DROP_ITEM_DESCRIPTION;
118 END IF;
119 END CF_DROP_ITEM_DESCFORMULA;
120
121 FUNCTION RP_SUB_TITLE_P RETURN VARCHAR2 IS
122 BEGIN
123 RETURN RP_SUB_TITLE;
124 END RP_SUB_TITLE_P;
125
126 END WSH_WSHRDVLD_XMLP_PKG;
127