PACKAGE BODY: APPS.QP_BLANKET_AGR_UTIL

Source

1 PACKAGE BODY QP_BLANKET_AGR_UTIL AS
2 /* $Header: QPXBKUTB.pls 120.0 2005/06/02 00:03:15 appldev noship $ */
3 FUNCTION GET_ATTRIBUTE_CODE(
4                              p_FlexField_Name      IN  VARCHAR2,
5                              p_Context_Name        IN  VARCHAR2,
6                              p_attribute           IN  VARCHAR2 ) RETURN VARCHAR2 IS
7 
8 x_attribute_code QP_SEGMENTS_TL.seeded_segment_name%TYPE;
9 x_segment_name   QP_SEGMENTS_B.SEGMENT_CODE%TYPE;
10 l_debug VARCHAR2(3);
11 l_routine_name VARCHAR2(30) := 'GET_ATTRIBUTE_CODE';
12 BEGIN
13  l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
14  IF l_debug = FND_API.G_TRUE THEN
15     QP_PREQ_GRP.engine_debug('START:'||G_PKG_NAME||':GET_ATTRIBUTE_CODE: Entering');
16  END IF;
17  QP_UTIL.Get_Attribute_Code(p_FlexField_Name => p_FlexField_Name,
18                             p_Context_Name   => p_Context_Name,
19                             p_attribute      => p_attribute,
20                             x_attribute_code => x_attribute_code,
21                             x_segment_name   => x_segment_name);
22  IF l_debug = FND_API.G_TRUE THEN
23     QP_PREQ_GRP.engine_debug('END:'||G_PKG_NAME||':GET_ATTRIBUTE_CODE: Exiting');
24  END IF;
25 
26 
27 RETURN(x_attribute_code);
28 EXCEPTION
29 WHEN OTHERS THEN
30        IF l_debug = FND_API.G_TRUE THEN
31           QP_PREQ_GRP.engine_debug(G_PKG_NAME||':GET_ATTRIBUTE_CODE: In the exception section');
32        END IF;
33        FND_MSG_PUB.Add_Exc_Msg(
34                 p_pkg_name => G_PKG_NAME,
35                 p_procedure_name => l_routine_name);
36        RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
37 
38 END GET_ATTRIBUTE_CODE;
39 
40 
41 END QP_BLANKET_AGR_UTIL;