1 PACKAGE BODY PA_PAXBAUPD_XMLP_PKG AS
2 /* $Header: PAXBAUPDB.pls 120.0 2008/01/02 11:20:05 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 ERRBUF VARCHAR2(2000);
16 RETCODE VARCHAR2(2);
17 NDF VARCHAR2(80);
18 REQ_ID NUMBER;
19 BEGIN
20 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
21 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
22 /*SRW.USER_EXIT('FND GETPROFILE
23 NAME="PA_DEBUG_MODE"
24 FIELD=":p_debug_mode"
25 PRINT_ERROR="N"')*/NULL;
26 P_RULE_OPTIMIZER := FND_PROFILE.VALUE('PA_RULE_BASED_OPTIMIZER');
27 IF (GET_COMPANY_NAME <> TRUE) THEN
28 RAISE INIT_FAILURE;
29 END IF;
30 SELECT
31 MEANING
32 INTO NDF
33 FROM
34 PA_LOOKUPS
35 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
36 AND LOOKUP_TYPE = 'MESSAGE';
37 C_NO_DATA_FOUND := NDF;
38 PROC_CONC(ERRBUF
39 ,RETCODE
40 ,P_BATCH_ID
41 ,REQ_ID);
42 CP_REQ_ID := REQ_ID;
43 IF RETCODE = '2' THEN
44 CP_ERRBUF := ERRBUF;
45 END IF;
46 EXCEPTION
47 WHEN NO_DATA_FOUND THEN
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 C_DUMMY_DATA := 1;
57 WHEN OTHERS THEN
58 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
59 END;
60 RETURN (TRUE);
61 END BEFOREREPORT;
62
63 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
64 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
65 BEGIN
66 SELECT
67 GL.NAME
68 INTO L_NAME
69 FROM
70 GL_SETS_OF_BOOKS GL,
71 PA_IMPLEMENTATIONS PI
72 WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
73 C_COMPANY_NAME_HEADER := L_NAME;
74 RETURN (TRUE);
75 EXCEPTION
76 WHEN OTHERS THEN
77 RETURN (FALSE);
78 END GET_COMPANY_NAME;
79
80 FUNCTION CF_UPDATE_FLAGFORMULA(UPDATE_FLAG IN VARCHAR2) RETURN VARCHAR2 IS
81 TMP_YN_FLAG VARCHAR2(80);
82 BEGIN
83 SELECT
84 MEANING
85 INTO TMP_YN_FLAG
86 FROM
87 FND_LOOKUPS
88 WHERE LOOKUP_TYPE = 'YES_NO'
89 AND LOOKUP_CODE = UPDATE_FLAG;
90 RETURN TMP_YN_FLAG;
91 END CF_UPDATE_FLAGFORMULA;
92
93 FUNCTION CF_RECAL_FLAGFORMULA(RECALCULATE_FLAG IN VARCHAR2) RETURN VARCHAR2 IS
94 TMP_YN_FLAG VARCHAR2(80);
95 BEGIN
96 SELECT
97 MEANING
98 INTO TMP_YN_FLAG
99 FROM
100 FND_LOOKUPS
101 WHERE LOOKUP_TYPE = 'YES_NO'
102 AND LOOKUP_CODE = RECALCULATE_FLAG;
103 RETURN TMP_YN_FLAG;
104 END CF_RECAL_FLAGFORMULA;
105
106 FUNCTION AFTERREPORT RETURN BOOLEAN IS
107 BEGIN
108 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
109 RETURN (TRUE);
110 END AFTERREPORT;
111
112 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
113 BEGIN
114 RETURN C_COMPANY_NAME_HEADER;
115 END C_COMPANY_NAME_HEADER_P;
116
117 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
118 BEGIN
119 RETURN C_NO_DATA_FOUND;
120 END C_NO_DATA_FOUND_P;
121
122 FUNCTION C_DUMMY_DATA_P RETURN NUMBER IS
123 BEGIN
124 RETURN C_DUMMY_DATA;
125 END C_DUMMY_DATA_P;
126
127 FUNCTION CP_RET_CODE_P RETURN VARCHAR2 IS
128 BEGIN
129 RETURN CP_RET_CODE;
130 END CP_RET_CODE_P;
131
132 FUNCTION CP_ERRBUF_P RETURN VARCHAR2 IS
133 BEGIN
134 RETURN CP_ERRBUF;
135 END CP_ERRBUF_P;
136
137 FUNCTION CP_REQ_ID_P RETURN NUMBER IS
138 BEGIN
139 RETURN CP_REQ_ID;
140 END CP_REQ_ID_P;
141 /*
142 PROCEDURE INSERT_ROW1(X_ROWID IN OUT NOCOPY VARCHAR2
143 ,X_BATCH_ID IN OUT NOCOPY NUMBER
144 ,X_CREATION_DATE IN DATE
145 ,X_CREATED_BY IN NUMBER
146 ,X_LAST_UPDATED_BY IN NUMBER
147 ,X_LAST_UPDATE_DATE IN DATE
148 ,X_LAST_UPDATE_LOGIN IN NUMBER
149 ,X_BATCH_NAME IN VARCHAR2
150 ,X_BATCH_STATUS_CODE IN VARCHAR2
151 ,X_DESCRIPTION IN VARCHAR2
152 ,X_PROJECT_ATTRIBUTE IN VARCHAR2
153 ,X_EFFECTIVE_DATE IN DATE
154 ,X_ATTRIBUTE_CATEGORY IN VARCHAR2
155 ,X_ATTRIBUTE1 IN VARCHAR2
156 ,X_ATTRIBUTE2 IN VARCHAR2
157 ,X_ATTRIBUTE3 IN VARCHAR2
158 ,X_ATTRIBUTE4 IN VARCHAR2
159 ,X_ATTRIBUTE5 IN VARCHAR2
160 ,X_ATTRIBUTE6 IN VARCHAR2
161 ,X_ATTRIBUTE7 IN VARCHAR2
162 ,X_ATTRIBUTE8 IN VARCHAR2
163 ,X_ATTRIBUTE9 IN VARCHAR2
164 ,X_ATTRIBUTE10 IN VARCHAR2
165 ,X_ATTRIBUTE11 IN VARCHAR2
166 ,X_ATTRIBUTE12 IN VARCHAR2
167 ,X_ATTRIBUTE13 IN VARCHAR2
168 ,X_ATTRIBUTE14 IN VARCHAR2
169 ,X_ATTRIBUTE15 IN VARCHAR2) IS
170 BEGIN
171 begin
172 INSERT_ROW(X_ROWID, X_BATCH_ID, X_CREATION_DATE, X_CREATED_BY, X_LAST_UPDATED_BY, X_LAST_UPDATE_DATE,
173 X_LAST_UPDATE_LOGIN, X_BATCH_NAME, X_BATCH_STATUS_CODE, X_DESCRIPTION, X_PROJECT_ATTRIBUTE, X_EFFECTIVE_DATE,
174 X_ATTRIBUTE_CATEGORY, X_ATTRIBUTE1, X_ATTRIBUTE2, X_ATTRIBUTE3, X_ATTRIBUTE4, X_ATTRIBUTE5, X_ATTRIBUTE6,
175 X_ATTRIBUTE7, X_ATTRIBUTE8, X_ATTRIBUTE9, X_ATTRIBUTE10, X_ATTRIBUTE11, X_ATTRIBUTE12, X_ATTRIBUTE13, X_ATTRIBUTE14, X_ATTRIBUTE15);
176 end;
177
178 END INSERT_ROW;
179
180 PROCEDURE UPDATE_ROW(X_ROWID IN VARCHAR2
181 ,X_LAST_UPDATED_BY IN NUMBER
182 ,X_LAST_UPDATE_DATE IN DATE
183 ,X_LAST_UPDATE_LOGIN IN NUMBER
184 ,X_BATCH_NAME IN VARCHAR2
185 ,X_BATCH_STATUS_CODE IN VARCHAR2
186 ,X_REJECTION_CODE IN VARCHAR2
187 ,X_DESCRIPTION IN VARCHAR2
188 ,X_PROJECT_ATTRIBUTE IN VARCHAR2
189 ,X_EFFECTIVE_DATE IN DATE
190 ,X_PROCESS_RUN_BY IN NUMBER
191 ,X_PROCESS_RUN_DATE IN DATE
192 ,X_ATTRIBUTE_CATEGORY IN VARCHAR2
193 ,X_ATTRIBUTE1 IN VARCHAR2
194 ,X_ATTRIBUTE2 IN VARCHAR2
195 ,X_ATTRIBUTE3 IN VARCHAR2
196 ,X_ATTRIBUTE4 IN VARCHAR2
197 ,X_ATTRIBUTE5 IN VARCHAR2
198 ,X_ATTRIBUTE6 IN VARCHAR2
199 ,X_ATTRIBUTE7 IN VARCHAR2
200 ,X_ATTRIBUTE8 IN VARCHAR2
201 ,X_ATTRIBUTE9 IN VARCHAR2
202 ,X_ATTRIBUTE10 IN VARCHAR2
203 ,X_ATTRIBUTE11 IN VARCHAR2
204 ,X_ATTRIBUTE12 IN VARCHAR2
205 ,X_ATTRIBUTE13 IN VARCHAR2
206 ,X_ATTRIBUTE14 IN VARCHAR2
207 ,X_ATTRIBUTE15 IN VARCHAR2) IS
208 BEGIN
209 begin
210 PA_MU_BATCHES_V_PKG.UPDATE_ROW(X_ROWID, X_LAST_UPDATED_BY, X_LAST_UPDATE_DATE, X_LAST_UPDATE_LOGIN, X_BATCH_NAME,
211 X_BATCH_STATUS_CODE, X_REJECTION_CODE, X_DESCRIPTION, X_PROJECT_ATTRIBUTE, X_EFFECTIVE_DATE, X_PROCESS_RUN_BY,
212 X_PROCESS_RUN_DATE, X_ATTRIBUTE_CATEGORY, X_ATTRIBUTE1, X_ATTRIBUTE2, X_ATTRIBUTE3, X_ATTRIBUTE4, X_ATTRIBUTE5,
213 X_ATTRIBUTE6, X_ATTRIBUTE7, X_ATTRIBUTE8, X_ATTRIBUTE9, X_ATTRIBUTE10, X_ATTRIBUTE11, X_ATTRIBUTE12, X_ATTRIBUTE13,
214 X_ATTRIBUTE14, X_ATTRIBUTE15);
215 end;
216 END UPDATE_ROW;
217
218 PROCEDURE LOCK_ROW(X_ROWID IN VARCHAR2
219 ,X_BATCH_NAME IN VARCHAR2
220 ,X_BATCH_STATUS_CODE IN VARCHAR2
221 ,X_DESCRIPTION IN VARCHAR2
222 ,X_PROJECT_ATTRIBUTE IN VARCHAR2
223 ,X_PROCESS_RUN_BY IN NUMBER
224 ,X_PROCESS_RUN_DATE IN DATE
225 ,X_EFFECTIVE_DATE IN DATE
226 ,X_REJECTION_CODE IN VARCHAR2
227 ,X_ATTRIBUTE_CATEGORY IN VARCHAR2
228 ,X_ATTRIBUTE1 IN VARCHAR2
229 ,X_ATTRIBUTE2 IN VARCHAR2
230 ,X_ATTRIBUTE3 IN VARCHAR2
231 ,X_ATTRIBUTE4 IN VARCHAR2
232 ,X_ATTRIBUTE5 IN VARCHAR2
233 ,X_ATTRIBUTE6 IN VARCHAR2
234 ,X_ATTRIBUTE7 IN VARCHAR2
235 ,X_ATTRIBUTE8 IN VARCHAR2
236 ,X_ATTRIBUTE9 IN VARCHAR2
237 ,X_ATTRIBUTE10 IN VARCHAR2
238 ,X_ATTRIBUTE11 IN VARCHAR2
239 ,X_ATTRIBUTE12 IN VARCHAR2
240 ,X_ATTRIBUTE13 IN VARCHAR2
241 ,X_ATTRIBUTE14 IN VARCHAR2
242 ,X_ATTRIBUTE15 IN VARCHAR2) IS
243 BEGIN
244 begin
245 PA_MU_BATCHES_V_PKG.LOCK_ROW(X_ROWID, X_BATCH_NAME, X_BATCH_STATUS_CODE, X_DESCRIPTION, X_PROJECT_ATTRIBUTE,
246 X_PROCESS_RUN_BY, X_PROCESS_RUN_DATE, X_EFFECTIVE_DATE, X_REJECTION_CODE, X_ATTRIBUTE_CATEGORY, X_ATTRIBUTE1,
247 X_ATTRIBUTE2, X_ATTRIBUTE3, X_ATTRIBUTE4, X_ATTRIBUTE5, X_ATTRIBUTE6, X_ATTRIBUTE7, X_ATTRIBUTE8, X_ATTRIBUTE9,
248 X_ATTRIBUTE10, X_ATTRIBUTE11, X_ATTRIBUTE12, X_ATTRIBUTE13, X_ATTRIBUTE14, X_ATTRIBUTE15);
249 end;
250 END LOCK_ROW;
251
252 PROCEDURE DELETE_ROW(X_ROWID IN VARCHAR2) IS
253 BEGIN
254 begin
255 PA_MU_BATCHES_V_PKG.DELETE_ROW(X_ROWID);
256 end;
257 END DELETE_ROW;
258 */
259 PROCEDURE PROC_CONC(ERRBUF OUT NOCOPY VARCHAR2
260 ,RETCODE OUT NOCOPY VARCHAR2
261 ,X_BATCH_ID IN NUMBER
262 ,X_REQUEST_ID OUT NOCOPY NUMBER) IS
263 BEGIN
264 begin
265 PA_MU_BATCHES_V_PKG.PROC_CONC(ERRBUF, RETCODE, X_BATCH_ID, X_REQUEST_ID);
266 end;
267 END PROC_CONC;
268 /*
269 PROCEDURE PROCESS(ERRBUF OUT NOCOPY VARCHAR2
270 ,RETCODE OUT NOCOPY VARCHAR2
271 ,X_BATCH_ID IN NUMBER
272 ,X_CONCURRENT IN VARCHAR2
273 ,X_ALL_BATCHES IN VARCHAR2) IS
274 BEGIN
275 begin
276 PA_MU_BATCHES_V_PKG.PROCESS(ERRBUF, RETCODE, X_BATCH_ID, X_CONCURRENT, X_ALL_BATCHES);
277 end;
278 END PROCESS;
279 */
280 END PA_PAXBAUPD_XMLP_PKG;
281