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:
269: FND_MESSAGE.set_token('NUM', (-1) * sqlcode);
270: FND_MESSAGE.set_token('TABLE', p_table_name);
271: FND_MSG_PUB.add;
272: END IF;
273: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
274: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,statement);
275: END IF;
276: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
277:
270: FND_MESSAGE.set_token('TABLE', p_table_name);
271: FND_MSG_PUB.add;
272: END IF;
273: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
274: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,statement);
275: END IF;
276: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
277:
278: END version_table;
469: FND_MESSAGE.set_token('NUM', sqlcode);
470: FND_MESSAGE.set_token('TABLE', p_table_name);
471: FND_MSG_PUB.add;
472: END IF;
473: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
474: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,statement);
475: END IF;
476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
477:
470: FND_MESSAGE.set_token('TABLE', p_table_name);
471: FND_MSG_PUB.add;
472: END IF;
473: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
474: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,statement);
475: END IF;
476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
477:
478: END restore_table;
572: progress := 2;
573:
574: x_prev_vers := okc_cvmv_rec_in.major_version;
575:
576: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
577: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Previous Version = ' || x_prev_vers);
578: END IF;
579:
580: --
573:
574: x_prev_vers := okc_cvmv_rec_in.major_version;
575:
576: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
577: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Previous Version = ' || x_prev_vers);
578: END IF;
579:
580: --
581: -- Version OKC side of contract components
608: progress := 4;
609:
610: x_new_vers := okc_cvmv_rec_out.major_version;
611:
612: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
613: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'New Version = ' || x_new_vers);
614: END IF;
615:
616: --
609:
610: x_new_vers := okc_cvmv_rec_out.major_version;
611:
612: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
613: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'New Version = ' || x_new_vers);
614: END IF;
615:
616: --
617: -- Load OKE Work List