1754: p_token10 IN VARCHAR2,
1755: p_token10_value IN VARCHAR2
1756: ) RETURN VARCHAR2 IS
1757: BEGIN
1758: Fnd_Message.Set_Name( p_app_name, p_msg_name );
1759: IF (p_token1 IS NOT NULL) AND (p_token1_value IS NOT NULL) THEN
1760: Fnd_Message.Set_Token( token => p_token1, value => p_token1_value);
1761: END IF;
1762: IF (p_token2 IS NOT NULL) AND (p_token2_value IS NOT NULL) THEN
1756: ) RETURN VARCHAR2 IS
1757: BEGIN
1758: Fnd_Message.Set_Name( p_app_name, p_msg_name );
1759: IF (p_token1 IS NOT NULL) AND (p_token1_value IS NOT NULL) THEN
1760: Fnd_Message.Set_Token( token => p_token1, value => p_token1_value);
1761: END IF;
1762: IF (p_token2 IS NOT NULL) AND (p_token2_value IS NOT NULL) THEN
1763: Fnd_Message.Set_Token( token => p_token2, value => p_token2_value);
1764: END IF;
1759: IF (p_token1 IS NOT NULL) AND (p_token1_value IS NOT NULL) THEN
1760: Fnd_Message.Set_Token( token => p_token1, value => p_token1_value);
1761: END IF;
1762: IF (p_token2 IS NOT NULL) AND (p_token2_value IS NOT NULL) THEN
1763: Fnd_Message.Set_Token( token => p_token2, value => p_token2_value);
1764: END IF;
1765: IF (p_token3 IS NOT NULL) AND (p_token3_value IS NOT NULL) THEN
1766: Fnd_Message.Set_Token( token => p_token3, value => p_token3_value);
1767: END IF;
1762: IF (p_token2 IS NOT NULL) AND (p_token2_value IS NOT NULL) THEN
1763: Fnd_Message.Set_Token( token => p_token2, value => p_token2_value);
1764: END IF;
1765: IF (p_token3 IS NOT NULL) AND (p_token3_value IS NOT NULL) THEN
1766: Fnd_Message.Set_Token( token => p_token3, value => p_token3_value);
1767: END IF;
1768: IF (p_token4 IS NOT NULL) AND (p_token4_value IS NOT NULL) THEN
1769: Fnd_Message.Set_Token( token => p_token4, value => p_token4_value);
1770: END IF;
1765: IF (p_token3 IS NOT NULL) AND (p_token3_value IS NOT NULL) THEN
1766: Fnd_Message.Set_Token( token => p_token3, value => p_token3_value);
1767: END IF;
1768: IF (p_token4 IS NOT NULL) AND (p_token4_value IS NOT NULL) THEN
1769: Fnd_Message.Set_Token( token => p_token4, value => p_token4_value);
1770: END IF;
1771: IF (p_token5 IS NOT NULL) AND (p_token5_value IS NOT NULL) THEN
1772: Fnd_Message.Set_Token( token => p_token5, value => p_token5_value);
1773: END IF;
1768: IF (p_token4 IS NOT NULL) AND (p_token4_value IS NOT NULL) THEN
1769: Fnd_Message.Set_Token( token => p_token4, value => p_token4_value);
1770: END IF;
1771: IF (p_token5 IS NOT NULL) AND (p_token5_value IS NOT NULL) THEN
1772: Fnd_Message.Set_Token( token => p_token5, value => p_token5_value);
1773: END IF;
1774: IF (p_token6 IS NOT NULL) AND (p_token6_value IS NOT NULL) THEN
1775: Fnd_Message.Set_Token( token => p_token6, value => p_token6_value);
1776: END IF;
1771: IF (p_token5 IS NOT NULL) AND (p_token5_value IS NOT NULL) THEN
1772: Fnd_Message.Set_Token( token => p_token5, value => p_token5_value);
1773: END IF;
1774: IF (p_token6 IS NOT NULL) AND (p_token6_value IS NOT NULL) THEN
1775: Fnd_Message.Set_Token( token => p_token6, value => p_token6_value);
1776: END IF;
1777: IF (p_token7 IS NOT NULL) AND (p_token7_value IS NOT NULL) THEN
1778: Fnd_Message.Set_Token( token => p_token7, value => p_token7_value);
1779: END IF;
1774: IF (p_token6 IS NOT NULL) AND (p_token6_value IS NOT NULL) THEN
1775: Fnd_Message.Set_Token( token => p_token6, value => p_token6_value);
1776: END IF;
1777: IF (p_token7 IS NOT NULL) AND (p_token7_value IS NOT NULL) THEN
1778: Fnd_Message.Set_Token( token => p_token7, value => p_token7_value);
1779: END IF;
1780: IF (p_token8 IS NOT NULL) AND (p_token8_value IS NOT NULL) THEN
1781: Fnd_Message.Set_Token( token => p_token8, value => p_token8_value);
1782: END IF;
1777: IF (p_token7 IS NOT NULL) AND (p_token7_value IS NOT NULL) THEN
1778: Fnd_Message.Set_Token( token => p_token7, value => p_token7_value);
1779: END IF;
1780: IF (p_token8 IS NOT NULL) AND (p_token8_value IS NOT NULL) THEN
1781: Fnd_Message.Set_Token( token => p_token8, value => p_token8_value);
1782: END IF;
1783: IF (p_token9 IS NOT NULL) AND (p_token9_value IS NOT NULL) THEN
1784: Fnd_Message.Set_Token( token => p_token9, value => p_token9_value);
1785: END IF;
1780: IF (p_token8 IS NOT NULL) AND (p_token8_value IS NOT NULL) THEN
1781: Fnd_Message.Set_Token( token => p_token8, value => p_token8_value);
1782: END IF;
1783: IF (p_token9 IS NOT NULL) AND (p_token9_value IS NOT NULL) THEN
1784: Fnd_Message.Set_Token( token => p_token9, value => p_token9_value);
1785: END IF;
1786: IF (p_token10 IS NOT NULL) AND (p_token10_value IS NOT NULL) THEN
1787: Fnd_Message.Set_Token( token => p_token10, value => p_token10_value);
1788: END IF;
1783: IF (p_token9 IS NOT NULL) AND (p_token9_value IS NOT NULL) THEN
1784: Fnd_Message.Set_Token( token => p_token9, value => p_token9_value);
1785: END IF;
1786: IF (p_token10 IS NOT NULL) AND (p_token10_value IS NOT NULL) THEN
1787: Fnd_Message.Set_Token( token => p_token10, value => p_token10_value);
1788: END IF;
1789: RETURN Fnd_Message.Get;
1790:
1791: END Get_Message;
1785: END IF;
1786: IF (p_token10 IS NOT NULL) AND (p_token10_value IS NOT NULL) THEN
1787: Fnd_Message.Set_Token( token => p_token10, value => p_token10_value);
1788: END IF;
1789: RETURN Fnd_Message.Get;
1790:
1791: END Get_Message;
1792:
1793: /* Modified Cursor for Bug 4956969 */
5447:
5448: l_variable_value_id := NULL;
5449:
5450: IF p_output_error = FND_API.G_TRUE THEN
5451: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_EXEC');
5452: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5453: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5454: FND_MSG_PUB.ADD;
5455: END IF;
5448: l_variable_value_id := NULL;
5449:
5450: IF p_output_error = FND_API.G_TRUE THEN
5451: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_EXEC');
5452: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5453: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5454: FND_MSG_PUB.ADD;
5455: END IF;
5456: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
5449:
5450: IF p_output_error = FND_API.G_TRUE THEN
5451: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_EXEC');
5452: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5453: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5454: FND_MSG_PUB.ADD;
5455: END IF;
5456: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
5457:
5457:
5458: l_variable_value_id := NULL;
5459:
5460: IF p_output_error = FND_API.G_TRUE THEN
5461: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_UNEXP');
5462: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5463: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5464: FND_MSG_PUB.ADD;
5465: END IF;
5458: l_variable_value_id := NULL;
5459:
5460: IF p_output_error = FND_API.G_TRUE THEN
5461: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_UNEXP');
5462: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5463: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5464: FND_MSG_PUB.ADD;
5465: END IF;
5466: END IF;
5459:
5460: IF p_output_error = FND_API.G_TRUE THEN
5461: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_UNEXP');
5462: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5463: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5464: FND_MSG_PUB.ADD;
5465: END IF;
5466: END IF;
5467:
5490: CLOSE csr_check_proc_spec_status;
5491: CLOSE csr_check_proc_body_status;
5492:
5493: IF l_dummy <> 'X' THEN
5494: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_NOT_EXIST');
5495: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5496: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5497: FND_MSG_PUB.ADD;
5498: ELSIF l_procedure_spec_status = 'INVALID' OR l_procedure_body_status = 'INVALID' THEN
5491: CLOSE csr_check_proc_body_status;
5492:
5493: IF l_dummy <> 'X' THEN
5494: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_NOT_EXIST');
5495: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5496: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5497: FND_MSG_PUB.ADD;
5498: ELSIF l_procedure_spec_status = 'INVALID' OR l_procedure_body_status = 'INVALID' THEN
5499: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_INVALID');
5492:
5493: IF l_dummy <> 'X' THEN
5494: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_NOT_EXIST');
5495: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5496: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5497: FND_MSG_PUB.ADD;
5498: ELSIF l_procedure_spec_status = 'INVALID' OR l_procedure_body_status = 'INVALID' THEN
5499: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_INVALID');
5500: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5495: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5496: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5497: FND_MSG_PUB.ADD;
5498: ELSIF l_procedure_spec_status = 'INVALID' OR l_procedure_body_status = 'INVALID' THEN
5499: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_INVALID');
5500: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5501: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5502: FND_MSG_PUB.ADD;
5503: END IF;
5496: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5497: FND_MSG_PUB.ADD;
5498: ELSIF l_procedure_spec_status = 'INVALID' OR l_procedure_body_status = 'INVALID' THEN
5499: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_INVALID');
5500: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5501: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5502: FND_MSG_PUB.ADD;
5503: END IF;
5504: END IF;
5497: FND_MSG_PUB.ADD;
5498: ELSIF l_procedure_spec_status = 'INVALID' OR l_procedure_body_status = 'INVALID' THEN
5499: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_INVALID');
5500: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5501: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5502: FND_MSG_PUB.ADD;
5503: END IF;
5504: END IF;
5505:
5566: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'500: Error while fetching value from valueset:'||sqlerrm);
5567: END IF;
5568:
5569: IF p_output_error = FND_API.G_TRUE THEN
5570: FND_MESSAGE.set_name('OKC','OKC_UDV_VSET_INVALID');
5571: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5572: FND_MSG_PUB.ADD;
5573: END IF;
5574: END;
5567: END IF;
5568:
5569: IF p_output_error = FND_API.G_TRUE THEN
5570: FND_MESSAGE.set_name('OKC','OKC_UDV_VSET_INVALID');
5571: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5572: FND_MSG_PUB.ADD;
5573: END IF;
5574: END;
5575: