178: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
179: END IF;
180:
181: /* Set concurrent program status to error */
182: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',FND_MESSAGE.GET);
183:
184: WHEN FND_API.G_EXC_ERROR THEN
185: ROLLBACK;
186: IF (l_exceptionLog) THEN
187: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,l_module, TRUE);
188: END IF;
189:
190: /* Set concurrent program status to error */
191: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',FND_MESSAGE.GET);
192:
193: WHEN OTHERS THEN
194: ROLLBACK;
195:
192:
193: WHEN OTHERS THEN
194: ROLLBACK;
195:
196: FND_MESSAGE.SET_NAME('BOM','CST_LOG_UNEXPECTED');
197: FND_MESSAGE.SET_TOKEN('SQLERRM',SQLERRM);
198: IF (l_uLog) THEN
199: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
200: END IF;
193: WHEN OTHERS THEN
194: ROLLBACK;
195:
196: FND_MESSAGE.SET_NAME('BOM','CST_LOG_UNEXPECTED');
197: FND_MESSAGE.SET_TOKEN('SQLERRM',SQLERRM);
198: IF (l_uLog) THEN
199: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
200: END IF;
201:
200: END IF;
201:
202: /* Set concurrent program status to error */
203: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',
204: FND_MESSAGE.GET);
205: fnd_file.put_line( FND_FILE.LOG, FND_MESSAGE.GET);
206:
207: END Launch_Workers;
208:
201:
202: /* Set concurrent program status to error */
203: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',
204: FND_MESSAGE.GET);
205: fnd_file.put_line( FND_FILE.LOG, FND_MESSAGE.GET);
206:
207: END Launch_Workers;
208:
209: END CST_LcmAdjustments_PUB; -- end package body