1 PACKAGE BODY PA_PAXFRADR_XMLP_PKG AS
2 /* $Header: PAXFRADRB.pls 120.0 2008/01/02 11:33:00 krreddy noship $ */
3 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
4 BEGIN
5 RETURN (TRUE);
6 EXCEPTION
7 WHEN OTHERS THEN
8 RETURN (FALSE);
9 END GET_COVER_PAGE_VALUES;
10
11 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
12 BEGIN
13 DECLARE
14 INIT_FAILURE EXCEPTION;
15 L_NO_DATA_FOUND VARCHAR2(80);
16 L_NO_REPORT_DATA VARCHAR2(100);
17 L_MSG_COUNT NUMBER;
18 L_MSG_DATA VARCHAR2(200);
19 L_RETURN_STATUS VARCHAR2(10);
20 L_EXIST_FLAG VARCHAR2(2);
21 BEGIN
22 /*SRW.MESSAGE(1
23 ,'Started Before Report Function')*/NULL;
24 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
25 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
26 IF P_FROM_PROJECT_NUMBER IS NOT NULL THEN
27 BEGIN
28 SELECT
29 SEGMENT1
30 INTO P_FROM_PROJECT_NUMBER
31 FROM
32 PA_PROJECTS_ALL
33 WHERE PROJECT_ID = P_FROM_PROJECT_NUMBER;
34 END;
35 END IF;
36 IF P_TO_PROJECT_NUMBER IS NOT NULL THEN
37 BEGIN
38 SELECT
39 SEGMENT1
40 INTO P_TO_PROJECT_NUMBER
41 FROM
42 PA_PROJECTS_ALL
43 WHERE PROJECT_ID = P_TO_PROJECT_NUMBER;
44 END;
45 END IF;
46 IF P_PROJ_TYPE IS NOT NULL THEN
47 BEGIN
48 SELECT
49 PROJECT_TYPE
50 INTO P_PROJ_TYPE
51 FROM
52 PA_PROJECT_TYPES_ALL
53 WHERE PROJECT_TYPE_ID = P_PROJ_TYPE;
54 END;
55 END IF;
56 /*SRW.MESSAGE(1
57 ,'From Project Number : ' || P_FROM_PROJECT_NUMBER)*/NULL;
58 /*SRW.MESSAGE(1
59 ,'To Project Number : ' || P_TO_PROJECT_NUMBER)*/NULL;
60 BEGIN
61 L_EXIST_FLAG := 'Y';
62 BEGIN
63 SELECT
64 DISTINCT
65 'N'
66 INTO L_EXIST_FLAG
67 FROM
68 PA_PROJECTS P
69 WHERE P.SEGMENT1 BETWEEN NVL(P_FROM_PROJECT_NUMBER
70 ,'0')
71 AND NVL(P_TO_PROJECT_NUMBER
72 ,'z')
73 AND P.PROJECT_TYPE = NVL(P_PROJ_TYPE
74 ,P.PROJECT_TYPE)
75 AND ( NVL(REVALUATE_FUNDING_FLAG
76 ,'N') = 'N'
77 AND NOT EXISTS (
78 SELECT
79 F.PROJECT_ID
80 FROM
81 PA_PROJECT_FUNDINGS F
82 WHERE P.PROJECT_ID = F.PROJECT_ID
83 AND REVALUATION_THROUGH_DATE between NVL(TRUNC(P_REVAL_FROM_DATE)
84 ,SYSDATE - 10000)
85 AND NVL(TRUNC(P_REVAL_TO_DATE)
86 ,SYSDATE + 10000) ) );
87 EXCEPTION
88 WHEN NO_DATA_FOUND THEN
89 L_EXIST_FLAG := 'Y';
90 END;
91 BEGIN
92 SELECT
93 DISTINCT
94 'Y'
95 INTO L_EXIST_FLAG
96 FROM
97 PA_PROJECTS P
98 WHERE P.SEGMENT1 BETWEEN NVL(P_FROM_PROJECT_NUMBER
99 ,'0')
100 AND NVL(P_TO_PROJECT_NUMBER
101 ,'z')
102 AND P.PROJECT_TYPE = NVL(P_PROJ_TYPE
103 ,P.PROJECT_TYPE)
104 AND ( NVL(REVALUATE_FUNDING_FLAG
105 ,'N') = 'Y'
106 OR EXISTS (
107 SELECT
108 F.PROJECT_ID
109 FROM
110 PA_PROJECT_FUNDINGS F
111 WHERE P.PROJECT_ID = F.PROJECT_ID
112 AND REVALUATION_THROUGH_DATE between NVL(TRUNC(P_REVAL_FROM_DATE)
113 ,SYSDATE - 10000)
114 AND NVL(TRUNC(P_REVAL_TO_DATE)
115 ,SYSDATE + 10000) ) );
116 EXCEPTION
117 WHEN NO_DATA_FOUND THEN
118 NULL;
119 END;
120 IF L_EXIST_FLAG = 'N' THEN
121 SELECT
122 MESSAGE_TEXT
123 INTO L_NO_REPORT_DATA
124 FROM
125 FND_NEW_MESSAGES
126 WHERE MESSAGE_NAME = 'R_REP_NO_DATA';
127 C_NO_REPORT_DATA := L_NO_REPORT_DATA;
128 END IF;
129 END;
130 SELECT
131 MEANING
132 INTO L_NO_DATA_FOUND
133 FROM
134 PA_LOOKUPS
135 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
136 AND LOOKUP_TYPE = 'MESSAGE';
137 C_NO_DATA_FOUND := L_NO_DATA_FOUND;
138 IF P_MODE IS NULL THEN
139 P_MODE := 'D';
140 END IF;
141 /*SRW.MESSAGE(1
142 ,'Checking and Setting for Debug mode. Value : ' || P_DEBUG_MODE)*/NULL;
143 IF P_DEBUG_MODE = 'Y' THEN
144 PA_DEBUG.SET_PROCESS('PLSQL'
145 ,'LOG'
146 ,'Y');
147 PA_DEBUG.ENABLE_DEBUG;
148 END IF;
149 EXCEPTION
150 WHEN NO_DATA_FOUND THEN
151 C_DUMMY_DATA := 1;
152 WHEN OTHERS THEN
153 /*SRW.MESSAGE(1
154 ,'Error: From When-Others in Before Report')*/NULL;
155 /*SRW.MESSAGE(1
156 ,SQLERRM)*/NULL;
157 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
158 END;
159 LP_FROM_PROJECT_NUMBER:=P_FROM_PROJECT_NUMBER;
160 LP_TO_PROJECT_NUMBER:=P_TO_PROJECT_NUMBER;
161 LP_REVAL_FROM_DATE:=to_char(P_REVAL_FROM_DATE,'DD-MON-YY');
162 LP_REVAL_TO_DATE:=to_char(P_REVAL_TO_DATE,'DD-MON-YY');
163 RETURN (TRUE);
164 END BEFOREREPORT;
165
166 FUNCTION P_MODEVALIDTRIGGER RETURN BOOLEAN IS
167 BEGIN
168 BEGIN
169 SELECT
170 MEANING
171 INTO P_REPORT_MODE
172 FROM
173 FND_LOOKUP_VALUES
174 WHERE LOOKUP_TYPE = 'REPORT_TYPE_SD'
175 AND LOOKUP_CODE = NVL(P_MODE
176 ,'D');
177 EXCEPTION
178 WHEN NO_DATA_FOUND THEN
179 /*SRW.MESSAGE(1
180 ,'No Data found for Report Type Mode')*/NULL;
181 WHEN OTHERS THEN
182 /*SRW.MESSAGE(1
183 ,'Others for Report Type Mode')*/NULL;
184 END;
185 RETURN (TRUE);
186 END P_MODEVALIDTRIGGER;
187
188 FUNCTION AFTERREPORT RETURN BOOLEAN IS
189 BEGIN
190 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
191 RETURN (TRUE);
192 END AFTERREPORT;
193
194 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
195 BEGIN
196 RETURN C_COMPANY_NAME_HEADER;
197 END C_COMPANY_NAME_HEADER_P;
198
199 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
200 BEGIN
201 RETURN C_NO_DATA_FOUND;
202 END C_NO_DATA_FOUND_P;
203
204 FUNCTION C_DUMMY_DATA_P RETURN NUMBER IS
205 BEGIN
206 RETURN C_DUMMY_DATA;
207 END C_DUMMY_DATA_P;
208
209 FUNCTION C_RETCODE_P RETURN VARCHAR2 IS
210 BEGIN
211 RETURN C_RETCODE;
212 END C_RETCODE_P;
213
214 FUNCTION CURR_CODE_P RETURN VARCHAR2 IS
215 BEGIN
216 RETURN CURR_CODE;
217 END CURR_CODE_P;
218
219 FUNCTION C_ERROR_BUF_P RETURN VARCHAR2 IS
220 BEGIN
221 RETURN C_ERROR_BUF;
222 END C_ERROR_BUF_P;
223
224 FUNCTION C_NO_REPORT_DATA_P RETURN VARCHAR2 IS
225 BEGIN
226 RETURN C_NO_REPORT_DATA;
227 END C_NO_REPORT_DATA_P;
228
229 END PA_PAXFRADR_XMLP_PKG;
230