23: --========================================================================
24: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'oks.plsql.import.' || G_PKG_NAME;
25: G_WORKER_REQ_ID CONSTANT NUMBER := FND_GLOBAL.conc_request_id;
26: G_MODULE_HEAD CONSTANT VARCHAR2(200) := G_MODULE_NAME || '(Req Id = '||G_WORKER_REQ_ID||').';
27: G_LOG_LEVEL CONSTANT NUMBER := fnd_log.G_CURRENT_RUNTIME_LEVEL;
28: G_UNEXPECTED_LOG CONSTANT BOOLEAN := fnd_log.level_unexpected >= G_LOG_LEVEL AND
29: fnd_log.TEST(fnd_log.level_unexpected, G_MODULE_HEAD);
30: G_ERROR_LOG CONSTANT BOOLEAN := G_UNEXPECTED_LOG AND fnd_log.level_error >= G_LOG_LEVEL;
31: G_EXCEPTION_LOG CONSTANT BOOLEAN := G_ERROR_LOG AND fnd_log.level_exception >= G_LOG_LEVEL;
24: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'oks.plsql.import.' || G_PKG_NAME;
25: G_WORKER_REQ_ID CONSTANT NUMBER := FND_GLOBAL.conc_request_id;
26: G_MODULE_HEAD CONSTANT VARCHAR2(200) := G_MODULE_NAME || '(Req Id = '||G_WORKER_REQ_ID||').';
27: G_LOG_LEVEL CONSTANT NUMBER := fnd_log.G_CURRENT_RUNTIME_LEVEL;
28: G_UNEXPECTED_LOG CONSTANT BOOLEAN := fnd_log.level_unexpected >= G_LOG_LEVEL AND
29: fnd_log.TEST(fnd_log.level_unexpected, G_MODULE_HEAD);
30: G_ERROR_LOG CONSTANT BOOLEAN := G_UNEXPECTED_LOG AND fnd_log.level_error >= G_LOG_LEVEL;
31: G_EXCEPTION_LOG CONSTANT BOOLEAN := G_ERROR_LOG AND fnd_log.level_exception >= G_LOG_LEVEL;
32: G_EVENT_LOG CONSTANT BOOLEAN := G_EXCEPTION_LOG AND fnd_log.level_event >= G_LOG_LEVEL;
25: G_WORKER_REQ_ID CONSTANT NUMBER := FND_GLOBAL.conc_request_id;
26: G_MODULE_HEAD CONSTANT VARCHAR2(200) := G_MODULE_NAME || '(Req Id = '||G_WORKER_REQ_ID||').';
27: G_LOG_LEVEL CONSTANT NUMBER := fnd_log.G_CURRENT_RUNTIME_LEVEL;
28: G_UNEXPECTED_LOG CONSTANT BOOLEAN := fnd_log.level_unexpected >= G_LOG_LEVEL AND
29: fnd_log.TEST(fnd_log.level_unexpected, G_MODULE_HEAD);
30: G_ERROR_LOG CONSTANT BOOLEAN := G_UNEXPECTED_LOG AND fnd_log.level_error >= G_LOG_LEVEL;
31: G_EXCEPTION_LOG CONSTANT BOOLEAN := G_ERROR_LOG AND fnd_log.level_exception >= G_LOG_LEVEL;
32: G_EVENT_LOG CONSTANT BOOLEAN := G_EXCEPTION_LOG AND fnd_log.level_event >= G_LOG_LEVEL;
33: G_PROCEDURE_LOG CONSTANT BOOLEAN := G_EVENT_LOG AND fnd_log.level_procedure >= G_LOG_LEVEL;
26: G_MODULE_HEAD CONSTANT VARCHAR2(200) := G_MODULE_NAME || '(Req Id = '||G_WORKER_REQ_ID||').';
27: G_LOG_LEVEL CONSTANT NUMBER := fnd_log.G_CURRENT_RUNTIME_LEVEL;
28: G_UNEXPECTED_LOG CONSTANT BOOLEAN := fnd_log.level_unexpected >= G_LOG_LEVEL AND
29: fnd_log.TEST(fnd_log.level_unexpected, G_MODULE_HEAD);
30: G_ERROR_LOG CONSTANT BOOLEAN := G_UNEXPECTED_LOG AND fnd_log.level_error >= G_LOG_LEVEL;
31: G_EXCEPTION_LOG CONSTANT BOOLEAN := G_ERROR_LOG AND fnd_log.level_exception >= G_LOG_LEVEL;
32: G_EVENT_LOG CONSTANT BOOLEAN := G_EXCEPTION_LOG AND fnd_log.level_event >= G_LOG_LEVEL;
33: G_PROCEDURE_LOG CONSTANT BOOLEAN := G_EVENT_LOG AND fnd_log.level_procedure >= G_LOG_LEVEL;
34: G_STMT_LOG CONSTANT BOOLEAN := G_PROCEDURE_LOG AND fnd_log.level_statement >= G_LOG_LEVEL;
27: G_LOG_LEVEL CONSTANT NUMBER := fnd_log.G_CURRENT_RUNTIME_LEVEL;
28: G_UNEXPECTED_LOG CONSTANT BOOLEAN := fnd_log.level_unexpected >= G_LOG_LEVEL AND
29: fnd_log.TEST(fnd_log.level_unexpected, G_MODULE_HEAD);
30: G_ERROR_LOG CONSTANT BOOLEAN := G_UNEXPECTED_LOG AND fnd_log.level_error >= G_LOG_LEVEL;
31: G_EXCEPTION_LOG CONSTANT BOOLEAN := G_ERROR_LOG AND fnd_log.level_exception >= G_LOG_LEVEL;
32: G_EVENT_LOG CONSTANT BOOLEAN := G_EXCEPTION_LOG AND fnd_log.level_event >= G_LOG_LEVEL;
33: G_PROCEDURE_LOG CONSTANT BOOLEAN := G_EVENT_LOG AND fnd_log.level_procedure >= G_LOG_LEVEL;
34: G_STMT_LOG CONSTANT BOOLEAN := G_PROCEDURE_LOG AND fnd_log.level_statement >= G_LOG_LEVEL;
35:
28: G_UNEXPECTED_LOG CONSTANT BOOLEAN := fnd_log.level_unexpected >= G_LOG_LEVEL AND
29: fnd_log.TEST(fnd_log.level_unexpected, G_MODULE_HEAD);
30: G_ERROR_LOG CONSTANT BOOLEAN := G_UNEXPECTED_LOG AND fnd_log.level_error >= G_LOG_LEVEL;
31: G_EXCEPTION_LOG CONSTANT BOOLEAN := G_ERROR_LOG AND fnd_log.level_exception >= G_LOG_LEVEL;
32: G_EVENT_LOG CONSTANT BOOLEAN := G_EXCEPTION_LOG AND fnd_log.level_event >= G_LOG_LEVEL;
33: G_PROCEDURE_LOG CONSTANT BOOLEAN := G_EVENT_LOG AND fnd_log.level_procedure >= G_LOG_LEVEL;
34: G_STMT_LOG CONSTANT BOOLEAN := G_PROCEDURE_LOG AND fnd_log.level_statement >= G_LOG_LEVEL;
35:
36: --=========================
29: fnd_log.TEST(fnd_log.level_unexpected, G_MODULE_HEAD);
30: G_ERROR_LOG CONSTANT BOOLEAN := G_UNEXPECTED_LOG AND fnd_log.level_error >= G_LOG_LEVEL;
31: G_EXCEPTION_LOG CONSTANT BOOLEAN := G_ERROR_LOG AND fnd_log.level_exception >= G_LOG_LEVEL;
32: G_EVENT_LOG CONSTANT BOOLEAN := G_EXCEPTION_LOG AND fnd_log.level_event >= G_LOG_LEVEL;
33: G_PROCEDURE_LOG CONSTANT BOOLEAN := G_EVENT_LOG AND fnd_log.level_procedure >= G_LOG_LEVEL;
34: G_STMT_LOG CONSTANT BOOLEAN := G_PROCEDURE_LOG AND fnd_log.level_statement >= G_LOG_LEVEL;
35:
36: --=========================
37: -- PROCEDURES AND FUNCTIONS
30: G_ERROR_LOG CONSTANT BOOLEAN := G_UNEXPECTED_LOG AND fnd_log.level_error >= G_LOG_LEVEL;
31: G_EXCEPTION_LOG CONSTANT BOOLEAN := G_ERROR_LOG AND fnd_log.level_exception >= G_LOG_LEVEL;
32: G_EVENT_LOG CONSTANT BOOLEAN := G_EXCEPTION_LOG AND fnd_log.level_event >= G_LOG_LEVEL;
33: G_PROCEDURE_LOG CONSTANT BOOLEAN := G_EVENT_LOG AND fnd_log.level_procedure >= G_LOG_LEVEL;
34: G_STMT_LOG CONSTANT BOOLEAN := G_PROCEDURE_LOG AND fnd_log.level_statement >= G_LOG_LEVEL;
35:
36: --=========================
37: -- PROCEDURES AND FUNCTIONS
38: --=========================
56: --
57: -- Clear AD cache for the current batch id
58: --
59: IF G_PROCEDURE_LOG THEN
60: fnd_log.string(fnd_log.level_procedure,
61: G_MODULE_HEAD || l_routine || '.' ||l_stmt_num,
62: 'Entering with ' ||
63: 'P_batch_id = ' || P_batch_id);
64: END IF;
69: l_table_owner);
70:
71: IF ((l_retstatus = FALSE) OR (l_table_owner is null)) then
72: IF G_ERROR_LOG THEN
73: fnd_log.string(fnd_log.level_error,
74: G_MODULE_HEAD || l_routine || '.' ||l_stmt_num,
75: 'Cannot get schema name for product : '||l_product);
76: END IF;
77: raise_application_error(-20001,'Cannot get schema name for product : '||l_product);
86: WHERE OWNER = l_table_owner AND TABLE_NAME = l_table_name AND script_name = l_update_name;
87:
88:
89: IF G_PROCEDURE_LOG THEN
90: fnd_log.string(fnd_log.level_procedure,
91: G_MODULE_HEAD || l_routine || '.' ||l_stmt_num,
92: 'Exit.');
93: END IF;
94: EXCEPTION
128: --
129: -- Manager processing for OKS_HEADERS_INTERFACE table
130: --
131: IF G_PROCEDURE_LOG THEN
132: fnd_log.string(fnd_log.level_procedure,
133: G_MODULE_HEAD || l_routine || '.' ||l_stmt_num,
134: 'Entering with ' ||
135: 'P_batch_id = ' || P_batch_id ||','||
136: 'P_Num_Workers = ' || P_Num_Workers ||','||
161: ELSE
162: DELETE FROM OKS_IMPORT_STATISTICS WHERE BATCH_ID = P_batch_id;
163: END IF;
164: IF G_PROCEDURE_LOG THEN
165: fnd_log.string(fnd_log.level_procedure,
166: G_MODULE_HEAD || l_routine || '.' ||l_stmt_num,
167: 'Exit with ' ||
168: 'X_errbuf = ' || X_errbuf ||','||
169: 'X_retcode = ' || X_retcode);
179: X_retcode := '2';
180: X_errbuf := l_msg_data;
181:
182: IF G_EXCEPTION_LOG THEN
183: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, G_MODULE_HEAD || l_routine , l_msg_data);
184: END IF;
185:
186: WHEN OTHERS THEN
187: X_errbuf := 'Stmt no '||l_stmt_num||' '|| SQLCODE || substr(SQLERRM, 1, 200);
192: ,p_data => l_msg_data
193: );
194:
195: IF G_EXCEPTION_LOG THEN
196: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
197: , G_MODULE_HEAD || l_routine ||'.others_exc'
198: , 'others: ' || X_errbuf || ' ' || substr(l_msg_data, 1,250)
199: );
200: END IF;