174: FALSE);
175: end loop;
176:
177: COMMIT;
178: x_retcode := AD_CONC_UTILS_PKG.CONC_SUCCESS;
179: fnd_file.put_line(fnd_file.log,'End Upgrade_Cards');
180:
181: EXCEPTION
182: WHEN OTHERS THEN
183: ROLLBACK;
184: fnd_file.put_line(fnd_file.log,'Error in Upgrade_Cards');
185: fnd_file.put_line(fnd_file.log,'ERROR CODE:='||sqlcode);
186: fnd_file.put_line(fnd_file.log,'ERROR MESSAGE:='||SUBSTR(sqlerrm,1,150));
187: x_retcode := AD_CONC_UTILS_PKG.CONC_FAIL;
188: x_errbuf := SQLERRM;
189:
190: END Upgrade_Cards;
191:
276:
277: end loop;
278:
279: COMMIT;
280: x_retcode := AD_CONC_UTILS_PKG.CONC_SUCCESS;
281: fnd_file.put_line(fnd_file.log,'End Upgrade_Trxns');
282:
283: EXCEPTION
284: WHEN OTHERS THEN
285: ROLLBACK;
286: fnd_file.put_line(fnd_file.log,'Error in Upgrade_Trxns');
287: fnd_file.put_line(fnd_file.log,'ERROR CODE:='||sqlcode);
288: fnd_file.put_line(fnd_file.log,'ERROR MESSAGE:='||SUBSTR(sqlerrm,1,150));
289: x_retcode := AD_CONC_UTILS_PKG.CONC_FAIL;
290: x_errbuf := SQLERRM;
291:
292: END Upgrade_Trxns;
293:
304: )
305: IS
306: BEGIN
307: fnd_file.put_line(fnd_file.log,'Begin Upgrade_Trxns_Manager');
308: AD_CONC_UTILS_PKG.submit_subrequests
309: (X_errbuf => x_errbuf,
310: X_retcode => x_retcode,
311: X_WorkerConc_app_shortname => 'SQLAP',
312: X_WorkerConc_progname => 'APXCCTRXUPG',
320: ROLLBACK;
321: fnd_file.put_line(fnd_file.log,'Error in Upgrade_Trxns_Manager');
322: fnd_file.put_line(fnd_file.log,'ERROR CODE:='||sqlcode);
323: fnd_file.put_line(fnd_file.log,'ERROR MESSAGE:='||SUBSTR(sqlerrm,1,150));
324: x_retcode := AD_CONC_UTILS_PKG.CONC_FAIL;
325: x_errbuf := SQLERRM;
326:
327: END Upgrade_Trxns_Manager;
328:
340: )
341: IS
342: BEGIN
343: fnd_file.put_line(fnd_file.log,'Begin Upgrade_Cards_Manager');
344: AD_CONC_UTILS_PKG.submit_subrequests
345: (X_errbuf => x_errbuf,
346: X_retcode => x_retcode,
347: X_WorkerConc_app_shortname => 'SQLAP',
348: X_WorkerConc_progname => 'APXCCUPG',
356: ROLLBACK;
357: fnd_file.put_line(fnd_file.log,'Error in Upgrade_Cards_Manager');
358: fnd_file.put_line(fnd_file.log,'ERROR CODE:='||sqlcode);
359: fnd_file.put_line(fnd_file.log,'ERROR MESSAGE:='||SUBSTR(sqlerrm,1,150));
360: x_retcode := AD_CONC_UTILS_PKG.CONC_FAIL;
361: x_errbuf := SQLERRM;
362: END Upgrade_Cards_Manager;
363:
364: END AP_WEB_CC_UPGRADE_PKG;