16: procedure GENERIC_ERROR(routine in varchar2,
17: errcode in number,
18: errmsg in varchar2) is
19: begin
20: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
21: fnd_message.set_token('ROUTINE', routine);
22: fnd_message.set_token('ERRNO', errcode);
23: fnd_message.set_token('REASON', errmsg);
24: end;
17: errcode in number,
18: errmsg in varchar2) is
19: begin
20: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
21: fnd_message.set_token('ROUTINE', routine);
22: fnd_message.set_token('ERRNO', errcode);
23: fnd_message.set_token('REASON', errmsg);
24: end;
25:
18: errmsg in varchar2) is
19: begin
20: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
21: fnd_message.set_token('ROUTINE', routine);
22: fnd_message.set_token('ERRNO', errcode);
23: fnd_message.set_token('REASON', errmsg);
24: end;
25:
26:
19: begin
20: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
21: fnd_message.set_token('ROUTINE', routine);
22: fnd_message.set_token('ERRNO', errcode);
23: fnd_message.set_token('REASON', errmsg);
24: end;
25:
26:
27:
215: exception
216: when no_data_found then
217: return 0;
218: when others then
219: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
220: fnd_message.set_token('ROUTINE', 'FND_OAM.VALIDATE_USER');
221: fnd_message.set_token('ERRNO', SQLCODE);
222: fnd_message.set_token('REASON', SQLERRM);
223: message := fnd_message.get;
216: when no_data_found then
217: return 0;
218: when others then
219: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
220: fnd_message.set_token('ROUTINE', 'FND_OAM.VALIDATE_USER');
221: fnd_message.set_token('ERRNO', SQLCODE);
222: fnd_message.set_token('REASON', SQLERRM);
223: message := fnd_message.get;
224: return 0;
217: return 0;
218: when others then
219: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
220: fnd_message.set_token('ROUTINE', 'FND_OAM.VALIDATE_USER');
221: fnd_message.set_token('ERRNO', SQLCODE);
222: fnd_message.set_token('REASON', SQLERRM);
223: message := fnd_message.get;
224: return 0;
225:
218: when others then
219: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
220: fnd_message.set_token('ROUTINE', 'FND_OAM.VALIDATE_USER');
221: fnd_message.set_token('ERRNO', SQLCODE);
222: fnd_message.set_token('REASON', SQLERRM);
223: message := fnd_message.get;
224: return 0;
225:
226: end;
219: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
220: fnd_message.set_token('ROUTINE', 'FND_OAM.VALIDATE_USER');
221: fnd_message.set_token('ERRNO', SQLCODE);
222: fnd_message.set_token('REASON', SQLERRM);
223: message := fnd_message.get;
224: return 0;
225:
226: end;
227:
267: return 1;
268:
269: exception
270: when others then
271: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
272: fnd_message.set_token('ROUTINE', 'FND_OAM.Set_Debug');
273: fnd_message.set_token('ERRNO', SQLCODE);
274: fnd_message.set_token('REASON', SQLERRM);
275: message := fnd_message.get;
268:
269: exception
270: when others then
271: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
272: fnd_message.set_token('ROUTINE', 'FND_OAM.Set_Debug');
273: fnd_message.set_token('ERRNO', SQLCODE);
274: fnd_message.set_token('REASON', SQLERRM);
275: message := fnd_message.get;
276: return 0;
269: exception
270: when others then
271: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
272: fnd_message.set_token('ROUTINE', 'FND_OAM.Set_Debug');
273: fnd_message.set_token('ERRNO', SQLCODE);
274: fnd_message.set_token('REASON', SQLERRM);
275: message := fnd_message.get;
276: return 0;
277: end;
270: when others then
271: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
272: fnd_message.set_token('ROUTINE', 'FND_OAM.Set_Debug');
273: fnd_message.set_token('ERRNO', SQLCODE);
274: fnd_message.set_token('REASON', SQLERRM);
275: message := fnd_message.get;
276: return 0;
277: end;
278:
271: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
272: fnd_message.set_token('ROUTINE', 'FND_OAM.Set_Debug');
273: fnd_message.set_token('ERRNO', SQLCODE);
274: fnd_message.set_token('REASON', SQLERRM);
275: message := fnd_message.get;
276: return 0;
277: end;
278:
279:
356: tmp_actual,
357: pmon,
358: callstat);
359: if (callstat > 0) then
360: error_message := fnd_message.get;
361: error_code := 1;
362: return;
363: end if;
364:
379: and max_processes > 0;
380:
381: if ( n > 0) then /* All processes for an instance are down. */
382:
383: fnd_message.set_name('FND', 'CONC-SM SOME INST DOWN');
384: status := 2; /* Error*/
385:
386: else /* No one instance is completely down. */
387:
384: status := 2; /* Error*/
385:
386: else /* No one instance is completely down. */
387:
388: fnd_message.set_name('FND', 'CONC-SM SOME PROCS DOWN');
389: /* The message name is slightly misleading. This is an imbalance. */
390:
391: status := 1; /* Warning */
392:
391: status := 1; /* Warning */
392:
393: end if;
394:
395: description := fnd_message.get;
396: return;
397:
398: elsif (actual = 0 and target = 0) then /* All are inactive */
399:
417:
418: exception
419: when others then
420: generic_error('fnd_oam.get_service_status', SQLCODE, SQLERRM);
421: error_message := fnd_message.get;
422: error_code := 1;
423: end;
424:
425:
471: actual,
472: pmon,
473: callstat);
474: if (callstat > 0) then
475: error_message := fnd_message.get;
476: error_code := 1;
477: return;
478: end if;
479:
478: end if;
479:
480: if (actual = 0 and target > 0) then /* All processes down */
481:
482: fnd_message.set_name('FND', 'CONC-SM SVC INST DOWN');
483: description := fnd_message.get;
484: status := 2; /* Error */
485:
486: elsif (actual > 0 and actual < target) then /* Some procs down */
479:
480: if (actual = 0 and target > 0) then /* All processes down */
481:
482: fnd_message.set_name('FND', 'CONC-SM SVC INST DOWN');
483: description := fnd_message.get;
484: status := 2; /* Error */
485:
486: elsif (actual > 0 and actual < target) then /* Some procs down */
487:
484: status := 2; /* Error */
485:
486: elsif (actual > 0 and actual < target) then /* Some procs down */
487:
488: fnd_message.set_name('FND', 'CONC-SM INST PROCS DOWN');
489: /* Again, the message name is slightly misleading. */
490:
491: description := fnd_message.get;
492: status := 1; /* Warning */
487:
488: fnd_message.set_name('FND', 'CONC-SM INST PROCS DOWN');
489: /* Again, the message name is slightly misleading. */
490:
491: description := fnd_message.get;
492: status := 1; /* Warning */
493:
494: elsif (actual = 0 and target = 0) then /* Inactive */
495:
513:
514: exception
515: when others then
516: generic_error('fnd_oam.get_svc_inst_status', SQLCODE, SQLERRM);
517: error_message := fnd_message.get;
518: error_code := 1;
519: end;
520:
521:
591: actual,
592: pmon,
593: callstat);
594: if (callstat > 0) then
595: error_message := fnd_message.get;
596: error_code := 1;
597: return;
598: end if;
599: else
613:
614:
615: if (total_actual = 0 and total_target > 0) then /* All processes down */
616:
617: fnd_message.set_name('FND', 'CONC-NODE ALL PROCS DOWN');
618: description := fnd_message.get;
619: status := 2; /* Error */
620:
621: elsif (all_procs_down_for_service) then /* Some service down */
614:
615: if (total_actual = 0 and total_target > 0) then /* All processes down */
616:
617: fnd_message.set_name('FND', 'CONC-NODE ALL PROCS DOWN');
618: description := fnd_message.get;
619: status := 2; /* Error */
620:
621: elsif (all_procs_down_for_service) then /* Some service down */
622:
619: status := 2; /* Error */
620:
621: elsif (all_procs_down_for_service) then /* Some service down */
622:
623: fnd_message.set_name('FND', 'CONC-NODE SVC DOWN');
624: description := fnd_message.get;
625: status := 2; /* Error */
626:
627: elsif (total_target > total_actual) then /* Some procs down */
620:
621: elsif (all_procs_down_for_service) then /* Some service down */
622:
623: fnd_message.set_name('FND', 'CONC-NODE SVC DOWN');
624: description := fnd_message.get;
625: status := 2; /* Error */
626:
627: elsif (total_target > total_actual) then /* Some procs down */
628:
625: status := 2; /* Error */
626:
627: elsif (total_target > total_actual) then /* Some procs down */
628:
629: fnd_message.set_name('FND', 'CONC-NODE PROCS DOWN');
630: description := fnd_message.get;
631: status := 1; /* WARNING */
632:
633: else
626:
627: elsif (total_target > total_actual) then /* Some procs down */
628:
629: fnd_message.set_name('FND', 'CONC-NODE PROCS DOWN');
630: description := fnd_message.get;
631: status := 1; /* WARNING */
632:
633: else
634:
639:
640: exception
641: when others then
642: generic_error('fnd_oam.get_node_status', SQLCODE, SQLERRM);
643: error_message := fnd_message.get;
644: error_code := 1;
645: end;
646:
647: