62: EXCEPTION
63: WHEN OTHERS THEN
64:
65: IF (SQLCODE <> -20001) THEN
66: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
67: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
68: END IF;
69: APP_EXCEPTION.RAISE_EXCEPTION;
70:
63: WHEN OTHERS THEN
64:
65: IF (SQLCODE <> -20001) THEN
66: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
67: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
68: END IF;
69: APP_EXCEPTION.RAISE_EXCEPTION;
70:
71: END Print;
7753: -- This is the concurrent executable of the subworker.
7754: IF (l_worker(i) = 0) THEN --9531253 replaced l_request_id with l_worker(i)
7755: rollback;
7756: l_debug_info := 'Error in Procedure: Submit_Multiple_Requests.' ||
7757: 'Message: '||fnd_message.get;
7758: IF g_debug_switch in ('y','Y') THEN
7759: Print('(Submit_Multiple_Requests)'||l_debug_info);
7760: END IF;
7761: p_success := FALSE ; -- Bug 9268290
7956:
7957: EXCEPTION
7958: WHEN OTHERS THEN
7959: IF (SQLCODE < 0 ) then
7960: errbuf := FND_MESSAGE.get ;
7961: retcode := 2 ;
7962: Print(SQLERRM);
7963: END IF;
7964: END Purge_acctg_and_ap_table;