DBA Data[Home] [Help]

APPS.FND_OAM_DSCRAM_BUNDLES_PKG dependencies on FND_OAM_DEBUG

Line 116: fnd_oam_debug.log(2, l_ctxt, 'ENTER');

112: FROM fnd_oam_dscram_bundles
113: WHERE run_id = p_run_id
114: AND bundle_id = p_bundle_id;
115: BEGIN
116: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
117: x_return_status := FND_API.G_RET_STS_ERROR;
118: x_return_msg := '';
119:
120: -- first validate the run

Line 127: fnd_oam_debug.log(6, l_ctxt, x_return_msg);

123: l_return_msg) THEN
124: -- the run has an invalid status, tell the execute to stop the bundle and return.
125: x_return_status := FND_OAM_DSCRAM_UTILS_PKG.G_RET_STS_STOPPED;
126: x_return_msg := '[Run Validation Failed]:(Status('||l_return_status||'), Msg('||l_return_msg||'))';
127: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
128: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
129: RETURN FALSE;
130: END IF;
131:

Line 128: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

124: -- the run has an invalid status, tell the execute to stop the bundle and return.
125: x_return_status := FND_OAM_DSCRAM_UTILS_PKG.G_RET_STS_STOPPED;
126: x_return_msg := '[Run Validation Failed]:(Status('||l_return_status||'), Msg('||l_return_msg||'))';
127: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
128: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
129: RETURN FALSE;
130: END IF;
131:
132: --fetch necessary bundle attributes

Line 137: fnd_oam_debug.log(6, l_ctxt, x_return_msg);

133: OPEN C1;
134: FETCH C1 INTO l_status, l_workers_allowed, l_workers_assigned;
135: IF C1%NOTFOUND THEN
136: x_return_msg := 'Invalid run_id: ('||p_run_id||') and/or bundle_id('||p_bundle_id||')';
137: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
138: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
139: RETURN FALSE;
140: END IF;
141: CLOSE C1;

Line 138: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

134: FETCH C1 INTO l_status, l_workers_allowed, l_workers_assigned;
135: IF C1%NOTFOUND THEN
136: x_return_msg := 'Invalid run_id: ('||p_run_id||') and/or bundle_id('||p_bundle_id||')';
137: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
138: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
139: RETURN FALSE;
140: END IF;
141: CLOSE C1;
142:

Line 149: fnd_oam_debug.log(1, l_ctxt, x_return_msg);

145: -- report the true status of the bundle to execute to pass on to execute's caller
146: x_return_status := FND_OAM_DSCRAM_UTILS_PKG.CONV_VALIDATE_START_STS_TO_RET(l_status);
147: IF FND_OAM_DSCRAM_UTILS_PKG.RET_STS_IS_ERROR(x_return_status) THEN
148: x_return_msg := 'Invalid bundle status('||l_status||')';
149: fnd_oam_debug.log(1, l_ctxt, x_return_msg);
150: END IF;
151: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
152: RETURN FALSE;
153: END IF;

Line 151: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

147: IF FND_OAM_DSCRAM_UTILS_PKG.RET_STS_IS_ERROR(x_return_status) THEN
148: x_return_msg := 'Invalid bundle status('||l_status||')';
149: fnd_oam_debug.log(1, l_ctxt, x_return_msg);
150: END IF;
151: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
152: RETURN FALSE;
153: END IF;
154:
155: --make sure there's a worker spot, assign will allocate but this check helps short

Line 159: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

155: --make sure there's a worker spot, assign will allocate but this check helps short
156: --circuit the lock.
157: IF l_workers_assigned >= l_workers_allowed THEN
158: x_return_status := FND_OAM_DSCRAM_UTILS_PKG.G_RET_STS_FULL;
159: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
160: RETURN FALSE;
161: END IF;
162:
163: --success

Line 164: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

160: RETURN FALSE;
161: END IF;
162:
163: --success
164: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
165: x_return_status := FND_API.G_RET_STS_SUCCESS;
166: RETURN TRUE;
167: EXCEPTION
168: WHEN OTHERS THEN

Line 170: fnd_oam_debug.log(6, l_ctxt, x_return_msg);

166: RETURN TRUE;
167: EXCEPTION
168: WHEN OTHERS THEN
169: x_return_msg := 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';
170: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
172: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
173: RETURN FALSE;
174: END;

Line 172: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

168: WHEN OTHERS THEN
169: x_return_msg := 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';
170: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
172: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
173: RETURN FALSE;
174: END;
175:
176: -- Public

Line 210: fnd_oam_debug.log(1, l_ctxt, '>RE-QUERYING<');

206: -- check if we should do work or if we can presume the cached status
207: IF (p_force_query OR
208: FND_OAM_DSCRAM_UTILS_PKG.VALIDATION_DUE(b_bundle_info.last_validated)) THEN
209:
210: fnd_oam_debug.log(1, l_ctxt, '>RE-QUERYING<');
211:
212: -- re-init the cached fields to allow easy exit
213: b_bundle_info.last_validation_ret_sts := x_return_status;
214: b_bundle_info.last_validated := SYSDATE;

Line 222: fnd_oam_debug.log(6, l_ctxt, x_return_msg);

218: FETCH C1 INTO l_status;
219: IF C1%NOTFOUND THEN
220: --shouldn't happen since we're using the cache
221: x_return_msg := 'Invalid cached bundle_id: '||b_bundle_info.bundle_id;
222: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
223: RETURN FALSE;
224: END IF;
225: CLOSE C1;
226:

Line 233: fnd_oam_debug.log(1, l_ctxt, x_return_msg);

229: x_return_status := FND_OAM_DSCRAM_UTILS_PKG.CONV_VALIDATE_CONT_STS_TO_RET(l_status);
230: b_bundle_info.last_validation_ret_sts := x_return_status;
231: IF x_return_status <> FND_OAM_DSCRAM_UTILS_PKG.G_RET_STS_PROCESSED THEN
232: x_return_msg := 'Invalid bundle status('||l_status||')';
233: fnd_oam_debug.log(1, l_ctxt, x_return_msg);
234: END IF;
235: RETURN FALSE;
236: END IF;
237: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 251: fnd_oam_debug.log(1, l_ctxt, x_return_msg);

247: l_return_msg) THEN
248: -- the run has an invalid status, tell the execute to stop the bundle
249: x_return_status := FND_OAM_DSCRAM_UTILS_PKG.G_RET_STS_STOPPED;
250: x_return_msg := '[Continued Run Validation Failed]:(Status('||l_return_status||'), Msg('||l_return_msg||'))';
251: fnd_oam_debug.log(1, l_ctxt, x_return_msg);
252: RETURN FALSE;
253: END IF;
254: END IF;
255:

Line 263: fnd_oam_debug.log(6, l_ctxt, x_return_msg);

259: RETURN (x_return_status = FND_API.G_RET_STS_SUCCESS);
260: EXCEPTION
261: WHEN OTHERS THEN
262: x_return_msg := 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';
263: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
265: b_bundle_info.last_validation_ret_sts := x_return_status;
266: b_bundle_info.last_validated := SYSDATE;
267: RETURN FALSE;

Line 299: fnd_oam_debug.log(2, l_ctxt, 'ENTER');

295:
296: l_return_status VARCHAR2(6);
297: l_return_msg VARCHAR2(4000);
298: BEGIN
299: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
300: x_return_status := FND_API.G_RET_STS_ERROR;
301: x_return_msg := '';
302:
303: -- assign the worker to the run first

Line 311: fnd_oam_debug.log(6, l_ctxt, x_return_msg);

307: l_return_msg);
308: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
309: x_return_status := l_return_status;
310: x_return_msg := '[Assigning Worker to Run Failed]:('||l_return_msg||')';
311: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
312: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
313: RETURN;
314: END IF;
315:

Line 312: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

308: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
309: x_return_status := l_return_status;
310: x_return_msg := '[Assigning Worker to Run Failed]:('||l_return_msg||')';
311: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
312: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
313: RETURN;
314: END IF;
315:
316: -- Do a locking select without a pre-select since we always have to update the bundle

Line 325: fnd_oam_debug.log(1, l_ctxt, 'Bundle Status: '||l_status);

321: FROM fnd_oam_dscram_bundles
322: WHERE bundle_id = p_bundle_id
323: FOR UPDATE;
324:
325: fnd_oam_debug.log(1, l_ctxt, 'Bundle Status: '||l_status);
326: fnd_oam_debug.log(1, l_ctxt, 'Workers Allowed: '||l_workers_allowed);
327: fnd_oam_debug.log(1, l_ctxt, 'Workers Assigned: '||l_workers_assigned);
328: fnd_oam_debug.log(1, l_ctxt, 'Argument Worker ID: '||to_char(px_worker_id));
329:

Line 326: fnd_oam_debug.log(1, l_ctxt, 'Workers Allowed: '||l_workers_allowed);

322: WHERE bundle_id = p_bundle_id
323: FOR UPDATE;
324:
325: fnd_oam_debug.log(1, l_ctxt, 'Bundle Status: '||l_status);
326: fnd_oam_debug.log(1, l_ctxt, 'Workers Allowed: '||l_workers_allowed);
327: fnd_oam_debug.log(1, l_ctxt, 'Workers Assigned: '||l_workers_assigned);
328: fnd_oam_debug.log(1, l_ctxt, 'Argument Worker ID: '||to_char(px_worker_id));
329:
330: -- make sure the status is still good

Line 327: fnd_oam_debug.log(1, l_ctxt, 'Workers Assigned: '||l_workers_assigned);

323: FOR UPDATE;
324:
325: fnd_oam_debug.log(1, l_ctxt, 'Bundle Status: '||l_status);
326: fnd_oam_debug.log(1, l_ctxt, 'Workers Allowed: '||l_workers_allowed);
327: fnd_oam_debug.log(1, l_ctxt, 'Workers Assigned: '||l_workers_assigned);
328: fnd_oam_debug.log(1, l_ctxt, 'Argument Worker ID: '||to_char(px_worker_id));
329:
330: -- make sure the status is still good
331: IF NOT FND_OAM_DSCRAM_UTILS_PKG.STATUS_IS_EXECUTABLE(l_status) THEN

Line 328: fnd_oam_debug.log(1, l_ctxt, 'Argument Worker ID: '||to_char(px_worker_id));

324:
325: fnd_oam_debug.log(1, l_ctxt, 'Bundle Status: '||l_status);
326: fnd_oam_debug.log(1, l_ctxt, 'Workers Allowed: '||l_workers_allowed);
327: fnd_oam_debug.log(1, l_ctxt, 'Workers Assigned: '||l_workers_assigned);
328: fnd_oam_debug.log(1, l_ctxt, 'Argument Worker ID: '||to_char(px_worker_id));
329:
330: -- make sure the status is still good
331: IF NOT FND_OAM_DSCRAM_UTILS_PKG.STATUS_IS_EXECUTABLE(l_status) THEN
332: x_return_status := FND_OAM_DSCRAM_UTILS_PKG.CONV_VALIDATE_START_STS_TO_RET(l_status);

Line 335: fnd_oam_debug.log(1, l_ctxt, x_return_msg);

331: IF NOT FND_OAM_DSCRAM_UTILS_PKG.STATUS_IS_EXECUTABLE(l_status) THEN
332: x_return_status := FND_OAM_DSCRAM_UTILS_PKG.CONV_VALIDATE_START_STS_TO_RET(l_status);
333: IF FND_OAM_DSCRAM_UTILS_PKG.RET_STS_IS_ERROR(x_return_status) THEN
334: x_return_msg := 'Invalid status for assign: ('||l_status||')';
335: fnd_oam_debug.log(1, l_ctxt, x_return_msg);
336: END IF;
337: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
338: ROLLBACK;
339: RETURN;

Line 337: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

333: IF FND_OAM_DSCRAM_UTILS_PKG.RET_STS_IS_ERROR(x_return_status) THEN
334: x_return_msg := 'Invalid status for assign: ('||l_status||')';
335: fnd_oam_debug.log(1, l_ctxt, x_return_msg);
336: END IF;
337: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
338: ROLLBACK;
339: RETURN;
340: END IF;
341:

Line 346: fnd_oam_debug.log(6, l_ctxt, x_return_msg);

342: -- make sure there's room for this worker
343: IF l_workers_assigned >= l_workers_allowed THEN
344: x_return_status := FND_OAM_DSCRAM_UTILS_PKG.G_RET_STS_FULL;
345: x_return_msg := 'Workers Assigned('||l_workers_assigned||') >= workers allowed('||l_workers_allowed||')';
346: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
347: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
348: ROLLBACK;
349: RETURN;
350: END IF;

Line 347: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

343: IF l_workers_assigned >= l_workers_allowed THEN
344: x_return_status := FND_OAM_DSCRAM_UTILS_PKG.G_RET_STS_FULL;
345: x_return_msg := 'Workers Assigned('||l_workers_assigned||') >= workers allowed('||l_workers_allowed||')';
346: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
347: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
348: ROLLBACK;
349: RETURN;
350: END IF;
351:

Line 352: fnd_oam_debug.log(1, l_ctxt, 'Creating a New Worker...');

348: ROLLBACK;
349: RETURN;
350: END IF;
351:
352: fnd_oam_debug.log(1, l_ctxt, 'Creating a New Worker...');
353: IF l_status <> FND_OAM_DSCRAM_UTILS_PKG.G_STATUS_PROCESSING THEN
354: IF l_workers_assigned = 0 THEN
355: --create a stats entry
356: FND_OAM_DSCRAM_STATS_PKG.CREATE_ENTRY(p_source_object_type => FND_OAM_DSCRAM_UTILS_PKG.G_TYPE_BUNDLE,

Line 369: fnd_oam_debug.log(6, l_ctxt, x_return_msg);

365: WHERE bundle_id = p_bundle_id;
366: ELSE
367: --the bundle isn't processing but somebody's set it to processing, this shouldn't happen
368: x_return_msg := 'Bundle Status ('||l_status||') is not in-progress but the number of workers assigned('||l_workers_assigned||') is nonzero.';
369: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
370: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
371: ROLLBACK;
372: RETURN;
373: END IF;

Line 370: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

366: ELSE
367: --the bundle isn't processing but somebody's set it to processing, this shouldn't happen
368: x_return_msg := 'Bundle Status ('||l_status||') is not in-progress but the number of workers assigned('||l_workers_assigned||') is nonzero.';
369: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
370: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
371: ROLLBACK;
372: RETURN;
373: END IF;
374: END IF;

Line 378: fnd_oam_debug.log(1, l_ctxt, 'Invalid argument worker_id, resetting to NULL.');

374: END IF;
375:
376: -- sanity check the worker id
377: IF px_worker_id IS NOT NULL AND (px_worker_id <= 0 OR px_worker_id > l_workers_allowed) THEN
378: fnd_oam_debug.log(1, l_ctxt, 'Invalid argument worker_id, resetting to NULL.');
379: px_worker_id := NULL;
380: END IF;
381: -- default the worker_id if one was not provided
382: IF px_worker_id IS NULL THEN

Line 411: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

407: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
408: b_bundle_info.initialized := FALSE;
409: x_return_status := l_return_status;
410: x_return_msg := l_return_msg;
411: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
412: RETURN;
413: END IF;
414:
415: fnd_oam_debug.log(1, l_ctxt, 'Worker Assigned.');

Line 415: fnd_oam_debug.log(1, l_ctxt, 'Worker Assigned.');

411: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
412: RETURN;
413: END IF;
414:
415: fnd_oam_debug.log(1, l_ctxt, 'Worker Assigned.');
416: fnd_oam_debug.log(1, l_ctxt, 'Worker ID: '||px_worker_id);
417: fnd_oam_debug.log(1, l_ctxt, 'Default Batch Size: '||l_batch_size);
418:
419: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 416: fnd_oam_debug.log(1, l_ctxt, 'Worker ID: '||px_worker_id);

412: RETURN;
413: END IF;
414:
415: fnd_oam_debug.log(1, l_ctxt, 'Worker Assigned.');
416: fnd_oam_debug.log(1, l_ctxt, 'Worker ID: '||px_worker_id);
417: fnd_oam_debug.log(1, l_ctxt, 'Default Batch Size: '||l_batch_size);
418:
419: x_return_status := FND_API.G_RET_STS_SUCCESS;
420: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

Line 417: fnd_oam_debug.log(1, l_ctxt, 'Default Batch Size: '||l_batch_size);

413: END IF;
414:
415: fnd_oam_debug.log(1, l_ctxt, 'Worker Assigned.');
416: fnd_oam_debug.log(1, l_ctxt, 'Worker ID: '||px_worker_id);
417: fnd_oam_debug.log(1, l_ctxt, 'Default Batch Size: '||l_batch_size);
418:
419: x_return_status := FND_API.G_RET_STS_SUCCESS;
420: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
421: EXCEPTION

Line 420: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

416: fnd_oam_debug.log(1, l_ctxt, 'Worker ID: '||px_worker_id);
417: fnd_oam_debug.log(1, l_ctxt, 'Default Batch Size: '||l_batch_size);
418:
419: x_return_status := FND_API.G_RET_STS_SUCCESS;
420: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
421: EXCEPTION
422: WHEN OTHERS THEN
423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
424: x_return_msg := 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';

Line 425: fnd_oam_debug.log(6, l_ctxt, x_return_msg);

421: EXCEPTION
422: WHEN OTHERS THEN
423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
424: x_return_msg := 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';
425: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
426: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
427: ROLLBACK;
428: END;
429:

Line 426: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

422: WHEN OTHERS THEN
423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
424: x_return_msg := 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';
425: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
426: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
427: ROLLBACK;
428: END;
429:
430: -- Private: Autonomous Txn

Line 452: fnd_oam_debug.log(2, l_ctxt, 'ENTER');

448:
449: l_status VARCHAR2(30);
450: l_workers_assigned NUMBER;
451: BEGIN
452: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
453:
454: -- always lock the bundle since we have to decrement the worker count
455: SELECT bundle_status, workers_assigned
456: INTO l_status, l_workers_assigned

Line 468: fnd_oam_debug.log(1, l_ctxt, 'Translated status "'||p_proposed_status||'" into "'||l_final_status||'"');

464: p_proposed_status,
465: p_proposed_ret_sts,
466: l_final_status,
467: l_final_ret_sts);
468: fnd_oam_debug.log(1, l_ctxt, 'Translated status "'||p_proposed_status||'" into "'||l_final_status||'"');
469: fnd_oam_debug.log(1, l_ctxt, 'Translated Execute Ret Sts "'||p_proposed_ret_sts||'" into "'||l_final_ret_sts||'"');
470:
471: --update the status, workers_assigned
472: UPDATE fnd_oam_dscram_bundles

Line 469: fnd_oam_debug.log(1, l_ctxt, 'Translated Execute Ret Sts "'||p_proposed_ret_sts||'" into "'||l_final_ret_sts||'"');

465: p_proposed_ret_sts,
466: l_final_status,
467: l_final_ret_sts);
468: fnd_oam_debug.log(1, l_ctxt, 'Translated status "'||p_proposed_status||'" into "'||l_final_status||'"');
469: fnd_oam_debug.log(1, l_ctxt, 'Translated Execute Ret Sts "'||p_proposed_ret_sts||'" into "'||l_final_ret_sts||'"');
470:
471: --update the status, workers_assigned
472: UPDATE fnd_oam_dscram_bundles
473: SET bundle_status = l_final_status,

Line 504: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

500:
501: --after completing the bundle, kill the state
502: b_bundle_info.initialized := FALSE;
503:
504: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
505: EXCEPTION
506: WHEN OTHERS THEN
507: x_final_status := FND_OAM_DSCRAM_UTILS_PKG.G_STATUS_ERROR_UNKNOWN;
508: x_final_ret_sts := FND_API.G_RET_STS_UNEXP_ERROR;

Line 509: fnd_oam_debug.log(6, l_ctxt, 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))');

505: EXCEPTION
506: WHEN OTHERS THEN
507: x_final_status := FND_OAM_DSCRAM_UTILS_PKG.G_STATUS_ERROR_UNKNOWN;
508: x_final_ret_sts := FND_API.G_RET_STS_UNEXP_ERROR;
509: fnd_oam_debug.log(6, l_ctxt, 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))');
510: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
511: ROLLBACK;
512: END;
513:

Line 510: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

506: WHEN OTHERS THEN
507: x_final_status := FND_OAM_DSCRAM_UTILS_PKG.G_STATUS_ERROR_UNKNOWN;
508: x_final_ret_sts := FND_API.G_RET_STS_UNEXP_ERROR;
509: fnd_oam_debug.log(6, l_ctxt, 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))');
510: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
511: ROLLBACK;
512: END;
513:
514: -- Private

Line 528: fnd_oam_debug.log(2, l_ctxt, 'ENTER');

524:
525: l_msg VARCHAR2(200);
526: l_msg_maxlen NUMBER := 4000;
527: BEGIN
528: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
529:
530: fnd_oam_debug.log(1, l_ctxt, 'Task ID('||p_task_id||') seen as failed - current bundle final status('||px_final_status||')');
531:
532: --set the final status to stopped if it's not set to error

Line 530: fnd_oam_debug.log(1, l_ctxt, 'Task ID('||p_task_id||') seen as failed - current bundle final status('||px_final_status||')');

526: l_msg_maxlen NUMBER := 4000;
527: BEGIN
528: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
529:
530: fnd_oam_debug.log(1, l_ctxt, 'Task ID('||p_task_id||') seen as failed - current bundle final status('||px_final_status||')');
531:
532: --set the final status to stopped if it's not set to error
533: IF NOT FND_OAM_DSCRAM_UTILS_PKG.STATUS_IS_ERROR(px_final_status) THEN
534: px_final_status := FND_OAM_DSCRAM_UTILS_PKG.G_STATUS_STOPPED;

Line 542: fnd_oam_debug.log(1, l_ctxt, 'New bundle final status: '||px_final_status);

538: ((length(px_return_msg) + length(l_msg)) < l_msg_maxlen)) THEN
539: px_return_msg := px_return_msg||l_msg;
540: END IF;
541:
542: fnd_oam_debug.log(1, l_ctxt, 'New bundle final status: '||px_final_status);
543: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
544: END;
545:
546: -- Public

Line 543: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

539: px_return_msg := px_return_msg||l_msg;
540: END IF;
541:
542: fnd_oam_debug.log(1, l_ctxt, 'New bundle final status: '||px_final_status);
543: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
544: END;
545:
546: -- Public
547: -- Return Statuses:

Line 565: fnd_oam_debug.log(2, l_ctxt, 'ENTER');

561: l_return_status VARCHAR2(6);
562: l_return_msg VARCHAR2(4000);
563: l_temp VARCHAR2(30);
564: BEGIN
565: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
566: x_return_status := FND_API.G_RET_STS_ERROR;
567: x_return_msg := '';
568:
569: -- do an initial validation of the bundle

Line 579: fnd_oam_debug.log(1, l_ctxt, x_return_msg);

575: IF l_return_status NOT IN (FND_OAM_DSCRAM_UTILS_PKG.G_RET_STS_PROCESSED,
576: FND_OAM_DSCRAM_UTILS_PKG.G_RET_STS_SKIPPED) THEN
577: x_return_msg := '[Bundle Start Validation Failed]:('||l_return_msg||')';
578: END IF;
579: fnd_oam_debug.log(1, l_ctxt, x_return_msg);
580: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
581: RETURN;
582: END IF;
583:

Line 580: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

576: FND_OAM_DSCRAM_UTILS_PKG.G_RET_STS_SKIPPED) THEN
577: x_return_msg := '[Bundle Start Validation Failed]:('||l_return_msg||')';
578: END IF;
579: fnd_oam_debug.log(1, l_ctxt, x_return_msg);
580: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
581: RETURN;
582: END IF;
583:
584: -- attempt to assign this invocation as a worker for the bundle

Line 593: fnd_oam_debug.log(1, l_ctxt, x_return_msg);

589: l_return_msg);
590: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
591: x_return_status := l_return_status;
592: x_return_msg := '[Bundle Worker Assignment Failed]:('||l_return_msg||')';
593: fnd_oam_debug.log(1, l_ctxt, x_return_msg);
594: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
595: RETURN;
596: END IF;
597:

Line 594: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

590: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
591: x_return_status := l_return_status;
592: x_return_msg := '[Bundle Worker Assignment Failed]:('||l_return_msg||')';
593: fnd_oam_debug.log(1, l_ctxt, x_return_msg);
594: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
595: RETURN;
596: END IF;
597:
598: --before proceeding after the assign, check our parent objects to make sure

Line 611: fnd_oam_debug.log(1, l_ctxt, x_return_msg);

607: FND_OAM_DSCRAM_UTILS_PKG.G_RET_STS_STOPPED,
608: l_completed_status,
609: x_return_status);
610: x_return_msg := '[Post-Assignment Parent Validation Failed]:('||l_return_msg||')';
611: fnd_oam_debug.log(1, l_ctxt, x_return_msg);
612: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
613: RETURN;
614: END IF;
615:

Line 612: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

608: l_completed_status,
609: x_return_status);
610: x_return_msg := '[Post-Assignment Parent Validation Failed]:('||l_return_msg||')';
611: fnd_oam_debug.log(1, l_ctxt, x_return_msg);
612: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
613: RETURN;
614: END IF;
615:
616: --at this point, we're assigned so we need to issue a complete before returning.

Line 636: fnd_oam_debug.log(6, l_ctxt, x_return_msg);

632: EXIT outer;
633: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
634: l_completed_status := FND_OAM_DSCRAM_UTILS_PKG.G_STATUS_ERROR_UNKNOWN;
635: x_return_msg := '[Fetch Next Task Failed]:('||l_return_msg||')';
636: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
637: EXIT outer;
638: END IF;
639:
640: --execute the task

Line 648: fnd_oam_debug.log(1, l_ctxt, 'Exec task found the task was full, loop fetch for more tasks');

644: IF l_return_status = FND_OAM_DSCRAM_UTILS_PKG.G_RET_STS_FULL THEN
645: -- the task is full when all available(in-phase) child units have the max
646: -- # of workers assigned.
647: -- to handle this, loop to fetch additional tasks and try to execute those
648: fnd_oam_debug.log(1, l_ctxt, 'Exec task found the task was full, loop fetch for more tasks');
649: <>
650: LOOP
651: FND_OAM_DSCRAM_TASKS_PKG.FETCH_NEXT_TASK(FALSE,
652: l_task_id,

Line 658: fnd_oam_debug.log(1, l_ctxt, '[Inner Fetch Empty, Waiting for a progress alert]');

654: l_return_msg);
655: IF l_return_status = FND_OAM_DSCRAM_UTILS_PKG.G_RET_STS_EMPTY THEN
656: -- seeing an empty here doesn't mean the bundle's finished, just that
657: --the bundle is busy and we should pause before restarting the outer loop.
658: fnd_oam_debug.log(1, l_ctxt, '[Inner Fetch Empty, Waiting for a progress alert]');
659: FND_OAM_DSCRAM_UTILS_PKG.WAIT_FOR_PROGRESS_ALERT;
660: EXIT inner;
661: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
662: l_completed_status := FND_OAM_DSCRAM_UTILS_PKG.G_STATUS_ERROR_UNKNOWN;

Line 664: fnd_oam_debug.log(6, l_ctxt, x_return_msg);

660: EXIT inner;
661: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
662: l_completed_status := FND_OAM_DSCRAM_UTILS_PKG.G_STATUS_ERROR_UNKNOWN;
663: x_return_msg := '[Inner Fetch Next Task Failed]:('||l_return_msg||')';
664: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
665: EXIT outer;
666: END IF;
667:
668: -- try to execute this task

Line 716: fnd_oam_debug.log(1, l_ctxt, x_return_msg);

712: l_completed_status := FND_OAM_DSCRAM_UTILS_PKG.CONV_RET_STS_TO_COMPL_STATUS(l_return_status);
713: --change stop to stopped
714: IF FND_OAM_DSCRAM_UTILS_PKG.STATUS_IS_ERROR(l_return_status) THEN
715: x_return_msg := '[End-of-Loop Validate Failed]:('||l_return_msg||')';
716: fnd_oam_debug.log(1, l_ctxt, x_return_msg);
717: END IF;
718: EXIT outer;
719: END IF;
720:

Line 724: fnd_oam_debug.log(1, l_ctxt, 'Finished Bundle with status: '||l_completed_status||'('||l_return_status||')');

720:
721: END LOOP outer;
722:
723: --finished processing the bundle
724: fnd_oam_debug.log(1, l_ctxt, 'Finished Bundle with status: '||l_completed_status||'('||l_return_status||')');
725: COMPLETE_BUNDLE(l_completed_status,
726: l_return_status,
727: l_temp,
728: x_return_status);

Line 730: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

726: l_return_status,
727: l_temp,
728: x_return_status);
729:
730: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
731: EXCEPTION
732: WHEN OTHERS THEN
733: COMPLETE_BUNDLE(FND_OAM_DSCRAM_UTILS_PKG.G_STATUS_ERROR_UNKNOWN,
734: FND_API.G_RET_STS_UNEXP_ERROR,

Line 738: fnd_oam_debug.log(6, l_ctxt, x_return_msg);

734: FND_API.G_RET_STS_UNEXP_ERROR,
735: l_completed_status,
736: x_return_status);
737: x_return_msg := 'Unhandled Exception: [Code('||SQLCODE||'), Message("'||SQLERRM||'")]';
738: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
739: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
740: END;
741:
742: -- Public

Line 739: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

735: l_completed_status,
736: x_return_status);
737: x_return_msg := 'Unhandled Exception: [Code('||SQLCODE||'), Message("'||SQLERRM||'")]';
738: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
739: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
740: END;
741:
742: -- Public
743: -- Return Statuses:

Line 761: fnd_oam_debug.log(2, l_ctxt, 'ENTER');

757: k NUMBER;
758: l_return_status VARCHAR2(6);
759: l_return_msg VARCHAR2(4000);
760: BEGIN
761: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
762:
763: --default to success if there's no bundles for this host
764: x_return_status := FND_API.G_RET_STS_SUCCESS;
765: x_return_msg := '';

Line 783: fnd_oam_debug.log(2, l_ctxt, 'Executing bundle_id: '||l_bundle_ids(k));

779:
780: --iterate and call
781: k := l_bundle_ids.FIRST;
782: WHILE k IS NOT NULL LOOP
783: fnd_oam_debug.log(2, l_ctxt, 'Executing bundle_id: '||l_bundle_ids(k));
784: EXECUTE_BUNDLE(p_run_id,
785: l_bundle_ids(k),
786: px_worker_id,
787: x_return_status,

Line 803: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

799:
800: k := l_bundle_ids.NEXT(k);
801: END LOOP;
802:
803: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
804: EXCEPTION
805: WHEN OTHERS THEN
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
807: x_return_msg := 'Unhandled Exception: [Code('||SQLCODE||'), Message("'||SQLERRM||'")]';

Line 808: fnd_oam_debug.log(6, l_ctxt, x_return_msg);

804: EXCEPTION
805: WHEN OTHERS THEN
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
807: x_return_msg := 'Unhandled Exception: [Code('||SQLCODE||'), Message("'||SQLERRM||'")]';
808: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
809: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
810: END;
811:
812: END FND_OAM_DSCRAM_BUNDLES_PKG;

Line 809: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

805: WHEN OTHERS THEN
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
807: x_return_msg := 'Unhandled Exception: [Code('||SQLCODE||'), Message("'||SQLERRM||'")]';
808: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
809: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
810: END;
811:
812: END FND_OAM_DSCRAM_BUNDLES_PKG;