1 PACKAGE BODY PA_PAXCPGAL_XMLP_PKG AS
2 /* $Header: PAXCPGALB.pls 120.2 2008/01/03 12:11:31 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 NDF VARCHAR2(80);
16 ERRBUF VARCHAR2(525);
17 PA_PERIOD_END_DATE DATE;
18 PA_THRU_DATE DATE;
19 PA_DPIS_THRU_DATE DATE;
20 P_CONC_REQUEST_ID NUMBER;
21 BEGIN
22 /*SRW.MESSAGE(10000
23 ,'Hello')*/NULL;
24 SELECT
25 MEANING
26 INTO NDF
27 FROM
28 PA_LOOKUPS
29 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
30 AND LOOKUP_TYPE = 'MESSAGE';
31 C_NO_DATA_FOUND := NDF;
32 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
33 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
34 SELECT
35 P_DPIS_THROUGH
36 INTO PA_DPIS_THRU_DATE
37 FROM
38 DUAL;
39 SELECT
40 P_CONC_REQUEST_ID
41 INTO P_CONC_REQUEST_ID
42 FROM
43 DUAL;
44 CURR_CODE := PA_CURRENCY.GET_CURRENCY_CODE;
45 IF (GET_COMPANY_NAME <> TRUE) THEN
46 RAISE INIT_FAILURE;
47 END IF;
48 SELECT
49 MEANING
50 INTO NDF
51 FROM
52 PA_LOOKUPS
53 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
54 AND LOOKUP_TYPE = 'MESSAGE';
55 C_NO_DATA_FOUND := NDF;
56 /*SRW.MESSAGE(1
57 ,'Calling set_in_service_thru_date')*/NULL;
58 PA_FAXFACE.SET_IN_SERVICE_THRU_DATE(PA_DPIS_THRU_DATE);
59 /*SRW.MESSAGE(1
60 ,'PA Through date entered ' || P_PA_THROUGH_DATE)*/NULL;
61 SELECT
62 P_PA_THROUGH_DATE
63 INTO PA_THRU_DATE
64 FROM
65 DUAL;
66 SELECT
67 MAX(END_DATE)
68 INTO PA_PERIOD_END_DATE
69 FROM
70 PA_PERIODS
71 WHERE TRUNC(END_DATE) <= TRUNC(PA_THRU_DATE);
72 /*SRW.MESSAGE(1
73 ,'PA Period End date used for generating asset lines ' || TO_CHAR(PA_PERIOD_END_DATE))*/NULL;
74 /*SRW.MESSAGE(1
75 ,'Calling summarize_proj')*/NULL;
76 BEGIN
77 IF P_CAPITAL_EVENT_ID IS NOT NULL THEN
78 BEGIN
79 SELECT
80 CAPITAL_EVENT_NUMBER
81 INTO P_CAPITAL_EVENT_NUMBER
82 FROM
83 PA_CAPITAL_EVENTS
84 WHERE CAPITAL_EVENT_ID = P_CAPITAL_EVENT_ID
85 AND ROWNUM = 1;
86 EXCEPTION
87 WHEN OTHERS THEN
88 NULL;
89 END;
90 END IF;
91 PA_FAXFACE.SET_REQUEST_ID(P_CONC_REQUEST_ID);
92 PA_FAXFACE.SUMMARIZE_PROJ(ERRBUF => ERRBUF
93 ,RETCODE => C_RETCODE
94 ,X_PROJECT_NUM_FROM => P_FROM_PROJECT_NUMBER
95 ,X_PROJECT_NUM_TO => P_TO_PROJECT_NUMBER
96 ,X_IN_SERVICE_DATE_THROUGH => PA_DPIS_THRU_DATE
97 ,X_COMMON_TASKS_FLAG => P_INCLUDE_COMMON_TASKS
98 ,X_PA_DATE => PA_PERIOD_END_DATE
99 ,X_CAPITAL_EVENT_ID => P_CAPITAL_EVENT_ID
100 ,X_DEBUG_MODE => P_DEBUG_MODE);
101 PA_PAXCPGAL_XMLP_PKG.P_CONC_REQUEST_ID := P_CONC_REQUEST_ID;
102 IF (C_RETCODE <> 0) THEN
103 /*SRW.MESSAGE(1
104 ,ERRBUF)*/NULL;
105 END IF;
106 EXCEPTION
107 WHEN STORAGE_ERROR THEN
108 C_RETCODE := -9999;
109 /*SRW.MESSAGE(1
110 ,'Exception: Storage Error')*/NULL;
111 WHEN TIMEOUT_ON_RESOURCE THEN
112 C_RETCODE := -9999;
113 /*SRW.MESSAGE(1
114 ,'Exception: Time Out Occured, waiting for a resource')*/NULL;
115 WHEN OTHERS THEN
116 C_RETCODE := -9999;
117 /*SRW.MESSAGE(1
118 ,'Exception was generated by SummarizeProj API')*/NULL;
119 END;
120 EXCEPTION
121 WHEN NO_DATA_FOUND THEN
122 SELECT
123 MEANING
124 INTO NDF
125 FROM
126 PA_LOOKUPS
127 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
128 AND LOOKUP_TYPE = 'MESSAGE';
129 C_NO_DATA_FOUND := NDF;
130 C_DUMMY_DATA := 1;
131 WHEN OTHERS THEN
132 /*SRW.MESSAGE(1
133 ,SQLERRM)*/NULL;
134 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
135 END;
136 LP_PA_THROUGH_DATE:=to_char(P_PA_THROUGH_DATE,'DD-MON-YYYY');
137 LP_DPIS_THROUGH:=to_char(P_DPIS_THROUGH,'DD-MON-YYYY');
138 RETURN (TRUE);
139 END BEFOREREPORT;
140
141 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
142 L_NAME VARCHAR2(30);
143 BEGIN
144 SELECT
145 GL.NAME
146 INTO L_NAME
147 FROM
148 GL_SETS_OF_BOOKS GL,
149 PA_IMPLEMENTATIONS PI
150 WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
151 C_COMPANY_NAME_HEADER := L_NAME;
152 RETURN (TRUE);
153 EXCEPTION
154 WHEN OTHERS THEN
155 RETURN (FALSE);
156 END GET_COMPANY_NAME;
157
158 FUNCTION UNASSIGNEDFORMULA(ASSET_NAME IN VARCHAR2) RETURN VARCHAR2 IS
159 BEGIN
160 IF ASSET_NAME = 'UNASSIGNED' THEN
161 RETURN ('*');
162 ELSE
163 RETURN (NULL);
164 END IF;
165 END UNASSIGNEDFORMULA;
166
167 FUNCTION AFTERREPORT RETURN BOOLEAN IS
168 BEGIN
169 DECLARE
170 NUMBER_OF_MESSAGES NUMBER;
171 MESSAGE_BUF VARCHAR2(2000);
172 GEN_ERROR EXCEPTION;
173 BEGIN
174 NUMBER_OF_MESSAGES := PA_DEBUG.NO_OF_DEBUG_MESSAGES;
175 /*SRW.MESSAGE(1
176 ,'Debug Messages: sa')*/NULL;
177 FOR i IN 1 .. NUMBER_OF_MESSAGES LOOP
178 PA_DEBUG.GET_MESSAGE(I
179 ,MESSAGE_BUF);
180 /*SRW.MESSAGE(1
181 ,MESSAGE_BUF)*/NULL;
182 END LOOP;
183 IF (C_RETCODE <> 0) THEN
184 RAISE GEN_ERROR;
185 END IF;
186 BEGIN
187 DELETE FROM PA_CAPITAL_EXCEPTIONS
188 WHERE REQUEST_ID = P_CONC_REQUEST_ID;
189 DELETE FROM PA_REPORTING_EXCEPTIONS
190 WHERE REQUEST_ID = P_CONC_REQUEST_ID
191 AND ATTRIBUTE8 = 'PROJECT EVENT ERRORS';
192 EXCEPTION
193 WHEN NO_DATA_FOUND THEN
194 NULL;
195 END;
196 EXCEPTION
197 WHEN OTHERS THEN
198 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
199 END;
200 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
201 RETURN (TRUE);
202 END AFTERREPORT;
203
204 FUNCTION CF_FORMAT_MASKFORMULA RETURN CHAR IS
205 BEGIN
206 RETURN (PA_MULTI_CURRENCY.GET_ACCT_CURRENCY_CODE);
207 END CF_FORMAT_MASKFORMULA;
208
209 FUNCTION CF_RET_UNASSIGNEDFORMULA(RET_ASSET_NAME IN VARCHAR2) RETURN CHAR IS
210 BEGIN
211 IF RET_ASSET_NAME IS NOT NULL THEN
212 RETURN NULL;
213 ELSE
214 RETURN '*';
215 END IF;
216 END CF_RET_UNASSIGNEDFORMULA;
217
218 FUNCTION CURR_CODEFORMULA RETURN CHAR IS
219 BEGIN
220 RETURN (LTRIM(RTRIM(CURR_CODE)));
221 END CURR_CODEFORMULA;
222
223 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
224 BEGIN
225 RETURN C_COMPANY_NAME_HEADER;
226 END C_COMPANY_NAME_HEADER_P;
227
228 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
229 BEGIN
230 RETURN C_NO_DATA_FOUND;
231 END C_NO_DATA_FOUND_P;
232
233 FUNCTION C_DUMMY_DATA_P RETURN NUMBER IS
234 BEGIN
235 RETURN C_DUMMY_DATA;
236 END C_DUMMY_DATA_P;
237
238 FUNCTION C_RETCODE_P RETURN VARCHAR2 IS
239 BEGIN
240 RETURN C_RETCODE;
241 END C_RETCODE_P;
242
243 FUNCTION CURR_CODE_P RETURN VARCHAR2 IS
244 BEGIN
245 RETURN CURR_CODE;
246 END CURR_CODE_P;
247
248 END PA_PAXCPGAL_XMLP_PKG;
249