1 PACKAGE BODY WSH_WSHRDIST_XMLP_PKG AS
2 /* $Header: WSHRDISTB.pls 120.2 2007/12/25 07:22:19 nchinnam noship $ */
3 FUNCTION AFTERPFORM RETURN BOOLEAN IS
4 BEGIN
5 /*SRW.MESSAGE(99999
6 ,'$Header: WSHRDISTB.pls 120.2 2007/12/25 07:22:19 nchinnam noship $')*/NULL;
7 IF P_APPLICATION_ID IS NOT NULL THEN
8 LP_APPLICATION_ID := 'and wrc.application_id = ' || P_APPLICATION_ID;
9 ELSE
10 LP_APPLICATION_ID := ' ';
11 END IF;
12 IF P_APPL_USER_ID IS NOT NULL THEN
13 LP_APPL_USER_ID := 'and wrc.application_user_id = ' || P_APPL_USER_ID;
14 ELSE
15 LP_APPL_USER_ID := ' ';
16 END IF;
17 IF P_MASTER_ORG_ID IS NOT NULL THEN
18 LP_MASTER_ORG_ID := 'and wrc.master_organization_id = ' || P_MASTER_ORG_ID;
19 ELSE
20 LP_MASTER_ORG_ID := ' ';
21 END IF;
22 IF P_ORGANIZATION_ID IS NOT NULL THEN
23 LP_ORGANIZATION_ID := 'and wrc.organization_id = ' || P_ORGANIZATION_ID;
24 ELSE
25 LP_ORGANIZATION_ID := ' ';
26 END IF;
27 IF P_VENDOR_ID IS NOT NULL THEN
28 LP_VENDOR_ID := 'and wiv.vendor_id = ' || P_VENDOR_ID;
29 ELSE
30 LP_VENDOR_ID := ' ';
31 END IF;
32 RETURN (TRUE);
33 EXCEPTION
34 WHEN OTHERS THEN
35 RETURN (FALSE);
36 END AFTERPFORM;
37
38 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
39 BEGIN
40 BEGIN
41 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
42 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
43 EXCEPTION
44 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
45 /*SRW.MESSAGE(1
46 ,'Failed FND SRWINIT.')*/NULL;
47 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
48 END;
49 RETURN (TRUE);
50 END BEFOREREPORT;
51
52 FUNCTION CF_APPLICATION_IDFORMULA RETURN CHAR IS
53 APPL_NAME VARCHAR2(240);
54 BEGIN
55 IF P_APPLICATION_ID IS NOT NULL THEN
56 SELECT
57 APPLICATION_NAME
58 INTO APPL_NAME
59 FROM
60 FND_APPLICATION_VL
61 WHERE APPLICATION_ID = P_APPLICATION_ID;
62 ELSE
63 APPL_NAME := ' ';
64 END IF;
65 RETURN (APPL_NAME);
66 EXCEPTION
67 WHEN NO_DATA_FOUND THEN
68 APPL_NAME := ' ';
69 RETURN (APPL_NAME);
70 WHEN OTHERS THEN
71 RAISE;
72 END CF_APPLICATION_IDFORMULA;
73
74 FUNCTION CF_SERVICE_PROVIDERFORMULA RETURN CHAR IS
75 SERVICE_PROVIDER VARCHAR2(100);
76 BEGIN
77 IF P_VENDOR_ID IS NOT NULL THEN
78 SELECT
79 SERVICE_PROVIDER
80 INTO SERVICE_PROVIDER
81 FROM
82 WSH_ITM_VENDORS
83 WHERE VENDOR_ID = P_VENDOR_ID;
84 ELSE
85 SERVICE_PROVIDER := ' ';
86 END IF;
87 RETURN (SERVICE_PROVIDER);
88 EXCEPTION
89 WHEN NO_DATA_FOUND THEN
90 SERVICE_PROVIDER := ' ';
91 RETURN (SERVICE_PROVIDER);
92 WHEN OTHERS THEN
93 RAISE;
94 END CF_SERVICE_PROVIDERFORMULA;
95
96 FUNCTION CF_MASTER_ORGFORMULA RETURN CHAR IS
97 MASTER_ORG_NAME ORG_ORGANIZATION_DEFINITIONS2.ORGANIZATION_NAME%TYPE;
98 BEGIN
99 IF P_MASTER_ORG_ID IS NOT NULL THEN
100 SELECT
101 ORG.ORGANIZATION_NAME
102 INTO MASTER_ORG_NAME
103 FROM
104 ORG_ORGANIZATION_DEFINITIONS2 ORG,
105 MTL_PARAMETERS MTL,
106 MFG_LOOKUPS A
107 WHERE NVL(ORG.DISABLE_DATE
108 ,SYSDATE + 1) > sysdate
109 AND ( ( MTL.ORGANIZATION_ID = MTL.MASTER_ORGANIZATION_ID ) )
110 AND mtl.organization_id (+) = ORG.ORGANIZATION_ID
111 AND A.LOOKUP_CODE = NVL(MTL.PRIMARY_COST_METHOD
112 ,1)
113 AND A.LOOKUP_TYPE = 'MTL_PRIMARY_COST'
114 AND ORG.ORGANIZATION_ID = P_MASTER_ORG_ID;
115 ELSE
116 MASTER_ORG_NAME := ' ';
117 END IF;
118 RETURN (MASTER_ORG_NAME);
119 EXCEPTION
120 WHEN NO_DATA_FOUND THEN
121 MASTER_ORG_NAME := ' ';
122 RETURN (MASTER_ORG_NAME);
123 WHEN OTHERS THEN
124 RAISE;
125 END CF_MASTER_ORGFORMULA;
126
127 FUNCTION CF_ORG_NAMEFORMULA RETURN CHAR IS
128 ORG_NAME ORG_ORGANIZATION_DEFINITIONS.ORGANIZATION_NAME%TYPE;
129 BEGIN
130 IF P_ORGANIZATION_ID IS NOT NULL THEN
131 SELECT
132 ORGANIZATION_NAME
133 INTO ORG_NAME
134 FROM
135 ORG_ORGANIZATION_DEFINITIONS
136 WHERE ORGANIZATION_ID = P_ORGANIZATION_ID;
137 ELSE
138 ORG_NAME := ' ';
139 END IF;
140 RETURN (ORG_NAME);
141 EXCEPTION
142 WHEN NO_DATA_FOUND THEN
143 ORG_NAME := ' ';
144 RETURN (ORG_NAME);
145 WHEN OTHERS THEN
146 RAISE;
147 END CF_ORG_NAMEFORMULA;
148
149 FUNCTION CF_APPLICATION_USERFORMULA RETURN CHAR IS
150 APPLICATION_USER VARCHAR2(100);
151 BEGIN
152 IF P_APPL_USER_ID IS NOT NULL THEN
153 SELECT
154 USER_NAME
155 INTO APPLICATION_USER
156 FROM
157 FND_USER
158 WHERE USER_ID = P_APPL_USER_ID;
159 ELSE
160 APPLICATION_USER := ' ';
161 END IF;
162 RETURN (APPLICATION_USER);
163 EXCEPTION
164 WHEN NO_DATA_FOUND THEN
165 APPLICATION_USER := ' ';
166 RETURN (APPLICATION_USER);
167 WHEN OTHERS THEN
168 RAISE;
169 END CF_APPLICATION_USERFORMULA;
170
171 FUNCTION AFTERREPORT RETURN BOOLEAN IS
172 BEGIN
173 BEGIN
174 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
175 EXCEPTION
176 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
177 /*SRW.MESSAGE(1
178 ,'Failed in SRWEXIT')*/NULL;
179 RAISE;
180 END;
181 RETURN (TRUE);
182 END AFTERREPORT;
183
184 END WSH_WSHRDIST_XMLP_PKG;
185
186