[Home] [Help]
1: package body BSC_COLOR_PUB as
2: /* $Header: BSCPCOLB.pls 120.2.12000000.1 2007/07/17 07:43:48 appldev noship $ */
3: /*
4: +======================================================================================+
5: | Copyright (c) 2001 Oracle Corporation, Redwood Shores, CA, USA |
22: | the prototype flag of the objectives |
23: +======================================================================================+
24: */
25:
26: G_PKG_NAME CONSTANT varchar2(30) := 'BSC_COLOR_PUB';
27:
28:
29: /************************************************************************************
30: ************************************************************************************/
29: /************************************************************************************
30: ************************************************************************************/
31: PROCEDURE Create_Color(
32: p_commit IN VARCHAR2 := FND_API.G_FALSE
33: ,p_Bsc_Color_Rec IN BSC_COLOR_PUB.Bsc_Color_Rec
34: ,x_return_status OUT NOCOPY VARCHAR2
35: ,x_msg_count OUT NOCOPY NUMBER
36: ,x_msg_data OUT NOCOPY VARCHAR2
37: ) IS
103: l_color_data VARCHAR2(100);
104: l_color_num_eq NUMBER;
105: l_user_color NUMBER;
106: l_sys_color NUMBER;
107: l_Bsc_Color_Rec BSC_COLOR_PUB.Bsc_Color_Rec;
108: l_token_found BOOLEAN;
109: l_Weight_Reconfigured BOOLEAN;
110: l_User_Numeric_Equivalent_Orig bsc_sys_colors_b.user_numeric_equivalent%TYPE;
111:
227: WHEN OTHERS THEN
228: x_return_status := FND_API.G_RET_STS_ERROR;
229: END;
230:
231: END BSC_COLOR_PUB;