1 PACKAGE BODY ONT_OEXDERUL_XMLP_PKG AS
2 /* $Header: OEXDERULB.pls 120.1 2007/12/25 07:11:28 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_REPORT_NAME VARCHAR2(240);
17 BEGIN
18 SELECT
19 CP.USER_CONCURRENT_PROGRAM_NAME
20 INTO L_REPORT_NAME
21 FROM
22 FND_CONCURRENT_PROGRAMS_VL CP,
23 FND_CONCURRENT_REQUESTS CR
24 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
25 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
26 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
27 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
28 RP_REPORT_NAME := L_REPORT_NAME;
29 EXCEPTION
30 WHEN NO_DATA_FOUND THEN
31 RP_REPORT_NAME := 'Defaulting Rules Listing Report';
32 END;
33 DECLARE
34 OBJECT VARCHAR2(80);
35 ATTRIBUTE VARCHAR2(80);
36 CONDITION VARCHAR2(80);
37 SEEDED VARCHAR2(2);
38 BEGIN
39 IF P_OBJECT IS NOT NULL THEN
40 SELECT
41 NAME
42 INTO OBJECT
43 FROM
44 OE_DEF_AK_OBJ_EXT_V
45 WHERE DATABASE_OBJECT_NAME = P_OBJECT;
46 RP_OBJECT := OBJECT;
47 ELSE
48 RP_OBJECT := 'All Objects';
49 END IF;
50 IF P_ATTRIBUTE IS NOT NULL THEN
51 SELECT
52 DISTINCT
53 ATTRIBUTE_DISPLAY_NAME
54 INTO ATTRIBUTE
55 FROM
56 OE_DEF_AK_ATTR_EXT_V
57 WHERE ATTRIBUTE_CODE = P_ATTRIBUTE;
58 RP_ATTRIBUTE := ATTRIBUTE;
59 ELSE
60 RP_ATTRIBUTE := 'All Attributes';
61 END IF;
62 IF P_CONDITION IS NOT NULL THEN
63 SELECT
64 DISTINCT
65 DISPLAY_NAME
66 INTO CONDITION
67 FROM
68 OE_DEF_CONDITIONS_VL
69 WHERE CONDITION_ID = P_CONDITION;
70 RP_CONDITION := CONDITION;
71 ELSE
72 RP_CONDITION := 'All Conditions';
73 END IF;
74 IF P_SEEDED IS NOT NULL THEN
75 RP_SEEDED := P_SEEDED;
76 ELSE
77 RP_SEEDED := 'All Values';
78 END IF;
79 EXCEPTION
80 WHEN NO_DATA_FOUND THEN
81 NULL;
82 END;
83 END;
84 RETURN (TRUE);
85 END BEFOREREPORT;
86
87 FUNCTION AFTERREPORT RETURN BOOLEAN IS
88 BEGIN
89 BEGIN
90 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
91 EXCEPTION
92 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
93 /*SRW.MESSAGE(1
94 ,'Failed in AFTER REPORT TRIGGER')*/NULL;
95 RETURN (FALSE);
96 END;
97 RETURN (TRUE);
98 END AFTERREPORT;
99
100 FUNCTION AFTERPFORM RETURN BOOLEAN IS
101 BEGIN
102 BEGIN
103 IF P_OBJECT IS NOT NULL THEN
104 OBJECT_WHERE := ' and d.database_object_name = :p_object ';
105 END IF;
106 IF P_ATTRIBUTE IS NOT NULL THEN
107 ATTRIBUTE_WHERE := ' and d.attribute_code = :p_attribute ';
108 END IF;
109 IF P_CONDITION IS NOT NULL THEN
110 CONDITION_WHERE := ' and d.condition_id = :p_condition ';
111 END IF;
112 IF P_SEEDED IS NOT NULL THEN
113 SEED_WHERE := ' and d.system_flag = :p_seeded ';
114 END IF;
115 END;
116 RETURN (TRUE);
117 END AFTERPFORM;
118
119 FUNCTION SOURCEVALUEFORMULA(SRC_TYPE IN VARCHAR2
120 ,ATTRIBUTE_CODE IN VARCHAR2
121 ,SOURCE IN VARCHAR2) RETURN CHAR IS
122 BEGIN
123 IF (SRC_TYPE = ATTRIBUTE_CODE) THEN
124 OM_REPORTS_COMMON_PKG.DF_SET_CONTEXT(SRC_TYPE);
125 OM_REPORTS_COMMON_PKG.DF_SET_COLUMN_VALUE('SRC_CONSTANT_VALUE'
126 ,SOURCE);
127 IF (OM_REPORTS_COMMON_PKG.DF_VALIDATE_FLEX('Defaulting Rules Flexfield'
128 ,'I')) THEN
129 RETURN OM_REPORTS_COMMON_PKG.DF_CONCATENATED_VALUES;
130 ELSE
131 RETURN 'Unable to get value';
132 END IF;
133 ELSE
134 RETURN SOURCE;
135 END IF;
136 END SOURCEVALUEFORMULA;
137
138 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
139 BEGIN
140 RETURN RP_REPORT_NAME;
141 END RP_REPORT_NAME_P;
142
143 FUNCTION RP_SUB_TITLE_P RETURN VARCHAR2 IS
144 BEGIN
145 RETURN RP_SUB_TITLE;
146 END RP_SUB_TITLE_P;
147
148 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
149 BEGIN
150 RETURN RP_DATA_FOUND;
151 END RP_DATA_FOUND_P;
152
153 FUNCTION RP_CONDITION_P RETURN VARCHAR2 IS
154 BEGIN
155 RETURN RP_CONDITION;
156 END RP_CONDITION_P;
157
158 FUNCTION RP_OBJECT_P RETURN VARCHAR2 IS
159 BEGIN
160 RETURN RP_OBJECT;
161 END RP_OBJECT_P;
162
163 FUNCTION RP_ATTRIBUTE_P RETURN VARCHAR2 IS
164 BEGIN
165 RETURN RP_ATTRIBUTE;
166 END RP_ATTRIBUTE_P;
167
168 FUNCTION RP_SEEDED_P RETURN VARCHAR2 IS
169 BEGIN
170 RETURN RP_SEEDED;
171 END RP_SEEDED_P;
172
173 END ONT_OEXDERUL_XMLP_PKG;
174