[Home] [Help]
PACKAGE BODY: APPS.PSB_WS_POSITION_LINE_O_PVT
Source
1 package body PSB_WS_POSITION_LINE_O_PVT as
2 /* $Header: PSBVPLOB.pls 120.2 2005/07/13 11:28:43 shtripat ship $ */
3
4
5 G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_WS_POSITION_LINE_O_PVT';
6
7
8 procedure UPDATE_ROW (
9 p_api_version IN NUMBER,
10 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11 p_commit IN VARCHAR2 := FND_API.G_FALSE,
12 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
13 p_return_status OUT NOCOPY VARCHAR2,
14 p_msg_count OUT NOCOPY NUMBER,
15 p_msg_data OUT NOCOPY VARCHAR2,
16 --
17 P_POSITION_LINE_ID IN NUMBER,
18 P_POSITION_ID IN NUMBER,
19 P_DESCRIPTION IN VARCHAR2,
20 P_ATTRIBUTE1 in VARCHAR2,
21 P_ATTRIBUTE2 in VARCHAR2,
22 P_ATTRIBUTE3 in VARCHAR2,
23 P_ATTRIBUTE4 in VARCHAR2,
24 P_ATTRIBUTE5 in VARCHAR2,
25 P_ATTRIBUTE6 in VARCHAR2,
26 P_ATTRIBUTE7 in VARCHAR2,
27 P_ATTRIBUTE8 in VARCHAR2,
28 P_ATTRIBUTE9 in VARCHAR2,
29 P_ATTRIBUTE10 in VARCHAR2,
30 P_CONTEXT in VARCHAR2
31 ) is
32 --
33 l_api_name CONSTANT VARCHAR2(30) := 'Update_Row';
34 l_api_version CONSTANT NUMBER := 1.0;
35 --
36 BEGIN
37 --
38 SAVEPOINT Update_Row_Pvt ;
39 --
40 IF NOT FND_API.Compatible_API_Call ( l_api_version,
41 p_api_version,
42 l_api_name,
43 G_PKG_NAME )
44 THEN
45 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
46 END IF;
47 --
48
49 IF FND_API.to_Boolean ( p_init_msg_list ) THEN
50 FND_MSG_PUB.initialize ;
51 END IF;
52 --
53 p_return_status := FND_API.G_RET_STS_SUCCESS ;
54 --
55 update PSB_WS_POSITION_LINES set
56 DESCRIPTION = P_DESCRIPTION,
57 ATTRIBUTE1 = P_ATTRIBUTE1,
58 ATTRIBUTE2 = P_ATTRIBUTE2,
59 ATTRIBUTE3 = P_ATTRIBUTE3,
60 ATTRIBUTE4 = P_ATTRIBUTE4,
61 ATTRIBUTE5 = P_ATTRIBUTE5,
62 ATTRIBUTE6 = P_ATTRIBUTE6,
63 ATTRIBUTE7 = P_ATTRIBUTE7,
64 ATTRIBUTE8 = P_ATTRIBUTE8,
65 ATTRIBUTE9 = P_ATTRIBUTE9,
66 ATTRIBUTE10 = P_ATTRIBUTE10,
67 CONTEXT = P_CONTEXT
68 where POSITION_LINE_ID = P_POSITION_LINE_ID
69 and POSITION_ID = P_POSITION_ID
70 ;
71 if (sql%notfound) then
72 raise no_data_found;
73 end if;
74 --
75 IF FND_API.To_Boolean ( p_commit ) THEN
76 COMMIT WORK;
77 END iF;
78 --
79 FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
80 p_data => p_msg_data );
81 --
82 EXCEPTION
83 --
84 WHEN FND_API.G_EXC_ERROR THEN
85 --
86 ROLLBACK TO Update_Row_Pvt ;
87 p_return_status := FND_API.G_RET_STS_ERROR;
88 FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
89 p_data => p_msg_data );
90 --
91 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
92 --
93 ROLLBACK TO Update_Row_Pvt ;
94 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
95 FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
96 p_data => p_msg_data );
97 --
98 WHEN OTHERS THEN
99 --
100 ROLLBACK TO Update_Row_Pvt ;
101 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
102 --
103 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
104 FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
105 l_api_name);
106 END if;
107 --
108 FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
109 p_data => p_msg_data );
110 --
111 END Update_Row;
112
113 end PSB_WS_POSITION_LINE_O_PVT;