1 PACKAGE BODY PSB_PSBRPERR_XMLP_PKG AS
2 /* $Header: PSBRPERRB.pls 120.0 2008/01/07 10:37:55 vijranga noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 L_PROCESS_ID NUMBER;
5 L_SOURCE_PROCESS VARCHAR2(80);
6 L_PROCESS_NAME VARCHAR2(80);
7 L_CONC_ID VARCHAR2(30);
8 L_MAX_CONC_ID NUMBER;
9 BEGIN
10 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
11 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
12 FND_MESSAGE.SET_NAME('PSB'
13 ,'PSB_NO_DATA_FOUND');
14 C_NLS_NO_DATA_EXISTS := FND_MESSAGE.GET;
15 FND_MESSAGE.SET_NAME('PSB'
16 ,'PSB_END_OF_REPORT');
17 C_NLS_END_OF_REPORT := FND_MESSAGE.GET;
18 IF (P_CONC_ID IS NOT NULL AND P_PROCESS_ID IS NULL) THEN
19 CP_MAX_CONC_ID := TO_CHAR(P_CONC_ID);
20 L_CONC_ID := TO_CHAR(P_CONC_ID);
21 SELECT
22 PROCESS_ID,
23 SOURCE_PROCESS,
24 SOURCE_PROCESS_MEANING,
25 PROCESS_NAME
26 INTO L_PROCESS_ID,P_SOURCE_PROCESS,L_SOURCE_PROCESS,L_PROCESS_NAME
27 FROM
28 PSB_ERROR_REQUESTS_V
29 WHERE CONCURRENT_REQUEST_ID = P_CONC_ID;
30 CP_CONC_ID := L_CONC_ID;
31 CP_SOURCE_PROCESS := L_SOURCE_PROCESS;
32 CP_NAME := L_PROCESS_NAME;
33 CP_PROCESS_ID := TO_CHAR(L_PROCESS_ID);
34 IF P_SOURCE_PROCESS = 'VALIDATE_BUDGET_HIERARCHY' THEN
35 SELECT
36 NAME,
37 SHORT_NAME
38 INTO CP_PROCESS_ID,CP_NAME
39 FROM
40 PSB_BUDGET_GROUPS
41 WHERE BUDGET_GROUP_ID = L_PROCESS_ID;
42 END IF;
43 END IF;
44 IF (P_PROCESS_ID IS NOT NULL AND P_CONC_ID IS NULL) THEN
45 SELECT
46 MAX(CONCURRENT_REQUEST_ID)
47 INTO L_MAX_CONC_ID
48 FROM
49 PSB_ERROR_MESSAGES
50 WHERE PROCESS_ID = P_PROCESS_ID
51 AND SOURCE_PROCESS = P_SOURCE_PROCESS
52 GROUP BY
53 PROCESS_ID,
54 SOURCE_PROCESS;
55 CP_MAX_CONC_ID := TO_CHAR(L_MAX_CONC_ID);
56 FND_MESSAGE.SET_NAME('PSB'
57 ,'PSB_ALL');
58 CP_CONC_ID := FND_MESSAGE.GET;
59 SELECT
60 DISTINCT
61 SOURCE_PROCESS_MEANING,
62 PROCESS_NAME
63 INTO L_SOURCE_PROCESS,L_PROCESS_NAME
64 FROM
65 PSB_ERROR_REQUESTS_V
66 WHERE PROCESS_ID = P_PROCESS_ID
67 AND SOURCE_PROCESS = P_SOURCE_PROCESS;
68 CP_PROCESS_ID := TO_CHAR(P_PROCESS_ID);
69 CP_SOURCE_PROCESS := L_SOURCE_PROCESS;
70 CP_NAME := L_PROCESS_NAME;
71 IF P_SOURCE_PROCESS = 'VALIDATE_BUDGET_HIERARCHY' THEN
72 SELECT
73 NAME,
74 SHORT_NAME
75 INTO CP_PROCESS_ID,CP_NAME
76 FROM
77 PSB_BUDGET_GROUPS
78 WHERE BUDGET_GROUP_ID = P_PROCESS_ID;
79 END IF;
80 END IF;
81 IF (P_CONC_ID IS NOT NULL AND P_PROCESS_ID IS NOT NULL) THEN
82 IF P_SOURCE_PROCESS <> 'BUDGET_REVISION' THEN
83 SELECT
84 PROCESS_ID,
85 PROCESS_NAME
86 INTO L_PROCESS_ID,L_PROCESS_NAME
87 FROM
88 PSB_ERROR_REQUESTS_V
89 WHERE CONCURRENT_REQUEST_ID = P_CONC_ID;
90 END IF;
91 IF (P_SOURCE_PROCESS <> 'BUDGET_REVISION') AND L_PROCESS_ID <> P_PROCESS_ID THEN
92 SELECT
93 - 1
94 INTO L_MAX_CONC_ID
95 FROM
96 DUAL;
97 CP_MAX_CONC_ID := TO_CHAR(L_MAX_CONC_ID);
98 ELSE
99 CP_MAX_CONC_ID := TO_CHAR(P_CONC_ID);
100 END IF;
101 CP_CONC_ID := P_CONC_ID;
102 CP_SOURCE_PROCESS := P_SOURCE_PROCESS;
103 CP_PROCESS_ID := P_PROCESS_ID;
104 L_PROCESS_ID := P_PROCESS_ID;
105 CP_NAME := L_PROCESS_NAME;
106 IF P_SOURCE_PROCESS = 'VALIDATE_BUDGET_HIERARCHY' THEN
107 SELECT
108 NAME,
109 SHORT_NAME
110 INTO CP_PROCESS_ID,CP_NAME
111 FROM
112 PSB_BUDGET_GROUPS
113 WHERE BUDGET_GROUP_ID = L_PROCESS_ID;
114 END IF;
115 END IF;
116 RETURN TRUE;
117 EXCEPTION
118 WHEN NO_DATA_FOUND THEN
119 NULL;
120 WHEN OTHERS THEN
121 NULL;
122 END BEFOREREPORT;
123 FUNCTION AFTERREPORT RETURN BOOLEAN IS
124 BEGIN
125 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
126 RETURN (TRUE);
127 END AFTERREPORT;
128 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
129 BEGIN
130 RETURN (TRUE);
131 END BEFOREPFORM;
132 FUNCTION AFTERPFORM RETURN BOOLEAN IS
133 BEGIN
134 RETURN (TRUE);
135 END AFTERPFORM;
136 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
137 BEGIN
138 RETURN (TRUE);
139 END BETWEENPAGE;
140 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
141 BEGIN
142 RETURN C_NLS_END_OF_REPORT;
143 END C_NLS_END_OF_REPORT_P;
144 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
145 BEGIN
146 RETURN C_NLS_NO_DATA_EXISTS;
147 END C_NLS_NO_DATA_EXISTS_P;
148 FUNCTION P_CONC_REQUEST_ID_P RETURN NUMBER IS
149 BEGIN
150 RETURN P_CONC_REQUEST_ID;
151 END P_CONC_REQUEST_ID_P;
152 FUNCTION CP_PROCESS_ID_P RETURN VARCHAR2 IS
153 BEGIN
154 RETURN CP_PROCESS_ID;
155 END CP_PROCESS_ID_P;
156 FUNCTION CP_NAME_P RETURN VARCHAR2 IS
157 BEGIN
158 RETURN CP_NAME;
159 END CP_NAME_P;
160 FUNCTION CP_SOURCE_PROCESS_P RETURN VARCHAR2 IS
161 BEGIN
162 RETURN CP_SOURCE_PROCESS;
163 END CP_SOURCE_PROCESS_P;
164 FUNCTION CP_CONC_ID_P RETURN VARCHAR2 IS
165 BEGIN
166 RETURN CP_CONC_ID;
167 END CP_CONC_ID_P;
168 FUNCTION CP_MAX_CONC_ID_P RETURN VARCHAR2 IS
169 BEGIN
170 RETURN CP_MAX_CONC_ID;
171 END CP_MAX_CONC_ID_P;
172 END PSB_PSBRPERR_XMLP_PKG;
173
174
175
176
177