1: package body fnd_cp_fndsm as
2: /* $Header: AFCPFSMB.pls 120.9.12020000.5 2012/10/11 22:31:09 ckclark ship $ */
3:
4: procedure mark_shutdown_fndsm( node IN varchar2)
5: is
6: PRAGMA AUTONOMOUS_TRANSACTION;
7: begin
8: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
9: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
10: 'fnd.plsql.FND_CP_FNDSM.MARK_SHUTDOWN_FNDSM',
11: 'mark_shutdown_fndsm called for node'||node);
12: end if;
13:
14: update FND_CONCURRENT_PROCESSES
21: and NODE_NAME = node)
22: and PROCESS_STATUS_CODE not in ('S', 'K');
23: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
24: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
25: 'fnd.plsql.FND_CP_FNDSM.MARK_SHUTDOWN_FNDSM',
26: to_char(SQL%ROWCOUNT) ||' fnd_concurrent_processes rows updated');
27: end if;
28:
29: update FND_CONCURRENT_QUEUES
33: where MANAGER_TYPE = '6'
34: and NODE_NAME = node;
35: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
36: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
37: 'fnd.plsql.FND_CP_FNDSM.MARK_SHUTDOWN_FNDSM',
38: to_char(SQL%ROWCOUNT) ||' fnd_concurrent_queues rows updated');
39: end if;
40:
41: commit;
52: begin
53:
54: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
55: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
56: 'fnd.plsql.FND_CP_FNDSM.MARK_KILLED_FNDSM',
57: 'mark_shutdown_fndsm called for node'||node);
58: end if;
59: update FND_CONCURRENT_PROCESSES
60: set PROCESS_STATUS_CODE = 'K',
66: and NODE_NAME = node)
67: and PROCESS_STATUS_CODE not in ('S', 'K');
68: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
69: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
70: 'fnd.plsql.FND_CP_FNDSM.MARK_SHUTDOWN_FNDSM',
71: to_char(SQL%ROWCOUNT) ||' fnd_concurrent_processes rows updated');
72: end if;
73:
74: update FND_CONCURRENT_QUEUES
78: where MANAGER_TYPE = 6
79: and NODE_NAME = node;
80: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
81: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
82: 'fnd.plsql.FND_CP_FNDSM.MARK_SHUTDOWN_FNDSM',
83: to_char(SQL%ROWCOUNT) ||' fnd_concurrent_queues rows updated');
84: end if;
85:
86: commit;
465: raise;
466:
467: end insert_service_fcp;
468:
469: end fnd_cp_fndsm;