[Home] [Help]
PACKAGE BODY: APPS.ONT_OEXOEPCL_XMLP_PKG
Source
1 PACKAGE BODY ONT_OEXOEPCL_XMLP_PKG AS
2 /* $Header: OEXOEPCLB.pls 120.1 2007/12/25 07:24:21 npannamp 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(1000
12 ,'Failed in BEFORE REPORT trigger')*/NULL;
13 RETURN (FALSE);
14 END;
15 DECLARE
16 L_COMPANY_NAME VARCHAR2(100);
17 L_FUNCTIONAL_CURRENCY VARCHAR2(15);
18 BEGIN
19 SELECT
20 SOB.NAME,
21 SOB.CURRENCY_CODE
22 INTO L_COMPANY_NAME,L_FUNCTIONAL_CURRENCY
23 FROM
24 GL_SETS_OF_BOOKS SOB,
25 FND_CURRENCIES CUR
26 WHERE SOB.SET_OF_BOOKS_ID = P_SOB_ID
27 AND SOB.CURRENCY_CODE = CUR.CURRENCY_CODE;
28 RP_COMPANY_NAME := L_COMPANY_NAME;
29 RP_FUNCTIONAL_CURRENCY := L_FUNCTIONAL_CURRENCY;
30 EXCEPTION
31 WHEN NO_DATA_FOUND THEN
32 NULL;
33 END;
34 DECLARE
35 L_REPORT_NAME VARCHAR2(240);
36 BEGIN
37 SELECT
38 CP.USER_CONCURRENT_PROGRAM_NAME
39 INTO L_REPORT_NAME
40 FROM
41 FND_CONCURRENT_PROGRAMS_VL CP,
42 FND_CONCURRENT_REQUESTS CR
43 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
44 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
45 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
46 RP_REPORT_NAME := SUBSTR(L_REPORT_NAME,1,INSTR(L_REPORT_NAME,' (XML)'));
47 EXCEPTION
48 WHEN NO_DATA_FOUND THEN
49 RP_REPORT_NAME := 'Processing Constraints Listing';
50 END;
51 END;
52 RETURN (TRUE);
53 END BEFOREREPORT;
54
55 FUNCTION AFTERREPORT RETURN BOOLEAN IS
56 BEGIN
57 BEGIN
58 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
59 EXCEPTION
60 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
61 /*SRW.MESSAGE(1
62 ,'Failed in AFTER REPORT TRIGGER')*/NULL;
63 RETURN (FALSE);
64 END;
65 RETURN (TRUE);
66 END AFTERREPORT;
67
68 FUNCTION AFTERPFORM RETURN BOOLEAN IS
69 BEGIN
70 /*SRW.MESSAGE(99999
71 ,'$Header: ONT_OEXOEPCL_XMLP_PKG.rdf 120.1 2005/10/21 08:44 ddey noship
72 $')*/NULL;
73 DECLARE
74 ENTITY VARCHAR2(80);
75 ATTRIBUTE VARCHAR2(80);
76 OPERATION VARCHAR2(80);
77 VAL_ENTITY VARCHAR2(80);
78 RECORD_SET VARCHAR2(80);
79 VAL_TEMPLATE VARCHAR2(80);
80 SEEDED VARCHAR2(80);
81 BEGIN
82 BEGIN
83 IF P_ENTITY IS NOT NULL THEN
84 LP_ENTITY := ' and c.entity_id = :p_entity ';
85 SELECT
86 NVL(E.ENTITY_DISPLAY_NAME
87 ,' ')
88 INTO ENTITY
89 FROM
90 OE_PC_ENTITIES_V E
91 WHERE E.ENTITY_ID = P_ENTITY;
92 RP_ENTITY := ENTITY;
93 ELSE
94 LP_ENTITY := ' '; --praveen
95 END IF;
96 EXCEPTION
97 WHEN NO_DATA_FOUND THEN --praveen
98 NULL;
99 END;
100 BEGIN
101 IF P_ATTRIBUTE IS NOT NULL THEN
102 LP_ATTRIBUTE := ' and c.column_name = :p_attribute ';
103 SELECT
104 NVL(A.ATTRIBUTE_DISPLAY_NAME
105 ,' ')
106 INTO ATTRIBUTE
107 FROM
108 OE_PC_ATTRIBUTES_V A
109 WHERE A.COLUMN_NAME = P_ATTRIBUTE
110 AND ENTITY_ID = P_ENTITY;
111 RP_ATTRIBUTE := ATTRIBUTE;
112 ELSE
113 LP_ATTRIBUTE := ' '; --praveen
114 END IF;
115 EXCEPTION
116 WHEN NO_DATA_FOUND THEN --praveen
117 NULL;
118 END;
119 BEGIN
120 IF P_OPERATION IS NOT NULL THEN
121 LP_OPERATION := ' and c.constrained_operation = :p_operation ';
122 SELECT
123 NVL(LU.MEANING
124 ,' ')
125 INTO OPERATION
126 FROM
127 OE_LOOKUPS LU
128 WHERE LU.LOOKUP_CODE = P_OPERATION
129 AND LU.LOOKUP_TYPE = 'PC_OPERATION';
130 RP_OPERATION := OPERATION;
131 ELSE
132 LP_OPERATION := ' '; --praveen
133 END IF;
134 EXCEPTION
135 WHEN NO_DATA_FOUND THEN --praveen
136 NULL;
137
138 END;
139 BEGIN
140 IF P_VAL_ENTITY IS NOT NULL THEN
141 LP_VAL_ENTITY := ' and cc.validation_entity_id = :p_val_entity ';
142 SELECT
143 DISTINCT
144 NVL(V.VALIDATION_ENTITY_DISPLAY_NAME
145 ,' ')
146 INTO VAL_ENTITY
147 FROM
148 OE_PC_VENTITIES_V V
149 WHERE V.VALIDATION_ENTITY_ID = P_VAL_ENTITY
150 AND V.ENTITY_ID = P_ENTITY;
151 RP_VAL_ENTITY := VAL_ENTITY;
152 ELSE
153 LP_VAL_ENTITY := ' ';--praveen
154 END IF;
155 EXCEPTION
156 WHEN NO_DATA_FOUND THEN --praveen
157 NULL;
158 END;
159 BEGIN
160 IF P_RECORD_SET IS NOT NULL THEN
161 LP_RECORD_SET := ' and cc.record_set_id = :p_record_set ';
162 SELECT
163 NVL(RECORD_SET_DISPLAY_NAME
164 ,' ')
165 INTO RECORD_SET
166 FROM
167 OE_PC_RSETS_VL
168 WHERE RECORD_SET_ID = P_RECORD_SET
169 AND ENTITY_ID = P_VAL_ENTITY;
170 RP_RECORD_SET := RECORD_SET;
171 ELSE
172 LP_RECORD_SET := ' ';--praveen
173 END IF;
174 EXCEPTION
175 WHEN NO_DATA_FOUND THEN --praveen
176 NULL;
177 END;
178 BEGIN
179 IF P_VAL_TEMPLATE IS NOT NULL THEN
180 LP_VAL_TEMPLATE := ' and cc.validation_tmplt_id = :p_val_template ';
181 SELECT
182 NVL(VALIDATION_TMPLT_DISPLAY_NAME
183 ,' ')
184 INTO VAL_TEMPLATE
185 FROM
186 OE_PC_VTMPLTS_VL
187 WHERE VALIDATION_TMPLT_ID = P_VAL_TEMPLATE
188 AND ENTITY_ID = P_VAL_ENTITY;
189 RP_VAL_TEMPLATE := VAL_TEMPLATE;
190 ELSE
191 LP_VAL_TEMPLATE :=' '; --praveen
192 END IF;
193 EXCEPTION
194 WHEN NO_DATA_FOUND THEN --praveen
195 NULL;
196 END;
197 BEGIN
198 IF P_SEEDED IS NOT NULL THEN
199 LP_SEEDED := ' and cc.system_flag = :p_seeded ';
200 SELECT
201 NVL(LU.MEANING
202 ,' ')
203 INTO SEEDED
204 FROM
205 FND_LOOKUPS LU
206 WHERE LU.LOOKUP_CODE = P_SEEDED
207 AND LU.LOOKUP_TYPE = 'YES_NO';
208 RP_SEEDED := SEEDED;
209 ELSE
210 LP_SEEDED :=' '; --praveen
211 END IF;
212 EXCEPTION
213 WHEN NO_DATA_FOUND THEN --praveen
214 NULL;
215 END;
216 END;
217 RETURN (TRUE);
218 END AFTERPFORM;
219
220 FUNCTION C_APPL_TOFORMULA(C_COUNT_RESP IN NUMBER
221 ,CONSTRAINT_ID IN NUMBER) RETURN CHAR IS
222 BEGIN
223 DECLARE
224 L_APPL_TO VARCHAR2(20);
225 L_FLAG VARCHAR2(1);
226 BEGIN
227 IF C_COUNT_RESP = 0 THEN
228 L_APPL_TO := 'ALL';
229 ELSE
230 SELECT
231 NVL(ASSIGNED_OR_EXCLUDED_FLAG
232 ,' ')
233 INTO L_FLAG
234 FROM
235 OE_PC_RESPS_V
236 WHERE CONSTRAINT_ID = CONSTRAINT_ID
237 AND ROWNUM = 1;
238 IF L_FLAG = 'A' THEN
239 L_APPL_TO := 'Constrained';
240 ELSIF L_FLAG = 'E' THEN
241 L_APPL_TO := 'Authorized';
242 END IF;
243 END IF;
244 RETURN (L_APPL_TO);
245 END;
246 END C_APPL_TOFORMULA;
247
248 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
249 BEGIN
250 RETURN RP_REPORT_NAME;
251 END RP_REPORT_NAME_P;
252
253 FUNCTION RP_SUB_TITLE_P RETURN VARCHAR2 IS
254 BEGIN
255 RETURN RP_SUB_TITLE;
256 END RP_SUB_TITLE_P;
257
258 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
259 BEGIN
260 RETURN RP_COMPANY_NAME;
261 END RP_COMPANY_NAME_P;
262
263 FUNCTION RP_FUNCTIONAL_CURRENCY_P RETURN VARCHAR2 IS
264 BEGIN
265 RETURN RP_FUNCTIONAL_CURRENCY;
266 END RP_FUNCTIONAL_CURRENCY_P;
267
268 END ONT_OEXOEPCL_XMLP_PKG;
269