24: --
25: PROCEDURE TimeStamp ( tag VARCHAR2 ) IS
26: l_api_name CONSTANT VARCHAR2(30) := 'TimeStamp';
27: BEGIN
28: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
29: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name, tag || ' : ' || to_char(sysdate,'YYYY/MM/DD HH24:MI:SS') );
30: END IF;
31:
32: END TimeStamp;
25: PROCEDURE TimeStamp ( tag VARCHAR2 ) IS
26: l_api_name CONSTANT VARCHAR2(30) := 'TimeStamp';
27: BEGIN
28: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
29: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name, tag || ' : ' || to_char(sysdate,'YYYY/MM/DD HH24:MI:SS') );
30: END IF;
31:
32: END TimeStamp;
33:
248: FND_MESSAGE.set_token('NUM', (-1) * sqlcode);
249: FND_MESSAGE.set_token('TABLE', p_table_name);
250: FND_MSG_PUB.add;
251: END IF;
252: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
253: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,statement);
254: END IF;
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256:
249: FND_MESSAGE.set_token('TABLE', p_table_name);
250: FND_MSG_PUB.add;
251: END IF;
252: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
253: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,statement);
254: END IF;
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256:
257: END version_table;
427: FND_MESSAGE.set_token('NUM', sqlcode);
428: FND_MESSAGE.set_token('TABLE', p_table_name);
429: FND_MSG_PUB.add;
430: END IF;
431: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
432: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,statement);
433: END IF;
434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
435:
428: FND_MESSAGE.set_token('TABLE', p_table_name);
429: FND_MSG_PUB.add;
430: END IF;
431: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
432: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,statement);
433: END IF;
434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
435:
436: END restore_table;
530: progress := 2;
531:
532: x_prev_vers := okc_cvmv_rec_in.major_version;
533:
534: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
535: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Previous Version = ' || x_prev_vers);
536: END IF;
537:
538: --
531:
532: x_prev_vers := okc_cvmv_rec_in.major_version;
533:
534: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
535: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Previous Version = ' || x_prev_vers);
536: END IF;
537:
538: --
539: -- Version OKC side of contract components
566: progress := 4;
567:
568: x_new_vers := okc_cvmv_rec_out.major_version;
569:
570: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
571: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'New Version = ' || x_new_vers);
572: END IF;
573:
574: --
567:
568: x_new_vers := okc_cvmv_rec_out.major_version;
569:
570: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
571: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'New Version = ' || x_new_vers);
572: END IF;
573:
574: --
575: -- Load OKE Work List