PACKAGE BODY: APPS.PSB_WS_POSITION_CPC_PVT

Source

1 PACKAGE BODY PSB_WS_POSITION_CPC_PVT AS
2 /* $Header: PSBWPPCB.pls 120.2 2005/07/13 11:36:56 shtripat ship $ */
3 
4   G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_WS_POSITION_CPC_PVT';
5 
6 /*=======================================================================+
7  |                       PROCEDURE Calculate_Position_Cost               |
8  +=======================================================================*/
9 
10 PROCEDURE Calculate_Position_Cost
11 (
12   p_api_version                 IN      NUMBER,
13   p_init_msg_list               IN      VARCHAR2 := FND_API.G_FALSE,
14   p_commit                      IN      VARCHAR2 := FND_API.G_FALSE,
15   p_validation_level            IN      NUMBER   := FND_API.G_VALID_LEVEL_FULL,
16   --
17   p_return_status              OUT  NOCOPY      VARCHAR2,
18   p_msg_count                  OUT  NOCOPY      NUMBER,
19   p_msg_data                   OUT  NOCOPY      VARCHAR2,
20   --
21   p_worksheet_id                IN      NUMBER,
22   p_position_line_id            IN      NUMBER
23 )
24 IS
25   l_api_name            VARCHAR2(30)  := 'Calculate_Position_Cost';
26   l_return_status       VARCHAR2(1)   := '';
27 
28 BEGIN
29   --
30        PSB_WS_POS_PVT.Calculate_Position_Cost
31 	(
32 	p_api_version                 => 1.0,
33 	p_init_msg_list               => FND_API.G_FALSE,
34 	p_commit                      => FND_API.G_FALSE,
35 	p_validation_level            => FND_API.G_VALID_LEVEL_FULL,
36 	--
37 	p_return_status               => l_return_status,
38 	p_msg_count                   => p_msg_count,
39 	p_msg_data                    => p_msg_data,
40 	--
41 	p_worksheet_id                => p_worksheet_id,
42 	p_position_line_id            => p_position_line_id
43 	);
44       --
45       p_return_status :=  l_return_status;
46 
47       IF    l_return_status = FND_API.G_RET_STS_ERROR THEN
48 	RAISE FND_API.G_EXC_ERROR ;
49       ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
50 	RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
51       END IF;
52 
53 EXCEPTION
54   --
55   WHEN FND_API.G_EXC_ERROR THEN
56     --
57     p_return_status := FND_API.G_RET_STS_ERROR;
58     FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
59 				p_data  => p_msg_data );
60   --
61   WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
62     --
63     p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
64     FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
65 				p_data  => p_msg_data );
66   --
67   WHEN OTHERS THEN
68     --
69     p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
70     --
71     IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
72       FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
73 				l_api_name);
74     END if;
75 
76 
77 END Calculate_Position_Cost;
78 /*-------------------------------------------------------------------------*/
79 END PSB_WS_POSITION_CPC_PVT;