PACKAGE BODY: APPS.INV_COST_GROUP_PUB

Source

1 PACKAGE BODY INV_COST_GROUP_PUB AS
2 /* $Header: INVPDCGB.pls 120.1 2005/06/17 17:21:34 appldev  $ */
3 
4 --  Global constant holding the package name
5 
6 --G_PKG_NAME                    CONSTANT VARCHAR2(30) := 'INV_COST_GROUP_PUB';
7 is_debug BOOLEAN := TRUE;
8 
9 --  Start of Comments
10 --  API name    Assign_Cost_Group
11 --  Type        Public
12 --  Function
13 --
14 --  Pre-reqs
15 --
16 --  Parameters
17 --
18 --  Version     Current version = 1.0
19 --              Initial version = 1.0
20 --
21 --  End of Comments
22 
23 procedure print_debug(p_message in VARCHAR2) IS
24     l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
25 begin
26     if( is_debug = TRUE ) then
27         --inv_debug.message('ssia', p_message);
28         null;
29     end if;
30 end;
31 
32 procedure set_globals(p_cost_group_id IN NUMBER,
33 		     p_transfer_cost_group_id IN NUMBER)
34 IS
35     l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
36 BEGIN
37     g_cost_group_id := p_cost_group_id;
38     g_transfer_cost_group_id := p_transfer_cost_group_id;
39 END;
40 
41 procedure get_globals(x_cost_group_id OUT NOCOPY NUMBER,
42 		     x_transfer_cost_group_id OUT NOCOPY NUMBER) IS
43     l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
44 BEGIN
45     x_cost_group_id := g_cost_group_id;
46     x_transfer_cost_group_id := g_transfer_cost_group_id;
47 END;
48 
49 PROCEDURE Assign_Cost_Group
50 (
51     p_api_version_number            IN  NUMBER
52 ,   p_init_msg_list                 IN  VARCHAR2 := FND_API.G_FALSE
53 ,   p_commit                        IN  VARCHAR2 := FND_API.G_FALSE
54 ,   x_return_status                 OUT NOCOPY VARCHAR2
55 ,   x_msg_count                     OUT NOCOPY NUMBER
56 ,   x_msg_data                      OUT NOCOPY VARCHAR2
57 ,   p_line_id                       IN  NUMBER
58 ,   p_organization_id               IN  NUMBER
59 ,   p_input_type                    IN  VARCHAR2
60 ,   x_cost_Group_id                 OUT NOCOPY NUMBER
61 ,   x_transfer_cost_Group_id        OUT NOCOPY NUMBER
62 )
63 IS
64     l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
65 BEGIN
66    -- call the private package
67    inv_cost_group_pvt.assign_cost_group(
68    	x_return_status                 => x_return_status,
69    	x_msg_count                     => x_msg_count,
70    	x_msg_data                      => x_msg_data,
71    	p_line_id                       => p_line_id,
72    	p_organization_id               => p_organization_id,
73    	p_input_type                    => p_input_type,
74    	x_cost_Group_id                 => x_cost_group_id,
75    	x_transfer_cost_Group_id        => x_transfer_cost_group_id);
76    if( x_return_status = FND_API.G_RET_STS_ERROR ) then
77 	raise FND_API.G_EXC_ERROR;
78    elsif( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) then
79 	raise FND_API.G_EXC_UNEXPECTED_ERROR;
80    end if;
81    if( p_commit = FND_API.G_TRUE ) then
82 	commit;
83    end if;
84 
85 EXCEPTION
86     WHEN FND_API.G_EXC_ERROR THEN
87         x_return_status := FND_API.G_RET_STS_ERROR;
88         FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
89 
90     WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
91         x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
92         FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
93 
94     WHEN OTHERS THEN
95         x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
96         IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
97             FND_MSG_PUB.Add_Exc_Msg
98             (   G_PKG_NAME, 'INV_COST_GROUP_PUB');
99         end if;
100 END Assign_Cost_Group;
101 END;
102