[Home] [Help]
PACKAGE BODY: APPS.PV_BATCH_CHG_PRTNR_PKG
Source
1 PACKAGE BODY PV_BATCH_CHG_PRTNR_PKG as
2 /* $Header: pvxtchpb.pls 115.0 2003/10/15 04:01:26 rdsharma noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- PV_TAP_BATCH_CHG_PARTNERS_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- This Api is generated with Latest version of
14 -- Rosetta, where g_miss indicates NULL and
15 -- NULL indicates missing value. Rosetta Version 1.55
16 -- End of Comments
17 -- ===============================================================
18
19
20 G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_TAP_BATCH_CHG_PARTNERS_PKG';
21 G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxtchpb.pls';
22
23 -- ========================================================
24 --
25 -- NAME
26 -- Insert_Row
27 --
28 -- PURPOSE
29 --
30 -- NOTES
31 --
32 -- HISTORY
33 --
34 -- ========================================================
35 PROCEDURE Insert_Row(
36 px_partner_id IN OUT NOCOPY NUMBER,
37 p_last_update_date DATE,
38 p_last_update_by NUMBER,
39 p_creation_date DATE,
40 p_created_by NUMBER,
41 p_last_update_login NUMBER,
42 p_object_version_number NUMBER,
43 p_request_id NUMBER,
44 p_program_application_id NUMBER,
45 p_program_id NUMBER,
46 p_program_update_date DATE,
47 p_processed_flag VARCHAR2,
48 p_vad_partner_id NUMBER,
49 x_return_status IN OUT NOCOPY VARCHAR2)
50
51 IS
52 x_rowid VARCHAR2(30);
53 l_object_version_number NUMBER;
54 L_API_NAME CONSTANT VARCHAR2(30) := 'Insert_Row';
55
56 BEGIN
57
58 -- Standard Start of API savepoint
59 SAVEPOINT Insert_Chng_Partner_Row;
60
61 l_object_version_number := nvl(p_object_version_number, 1);
62
63 -- Initialize API return status to SUCCESS
64 x_return_status := FND_API.G_RET_STS_SUCCESS;
65
66
67 INSERT INTO PV_TAP_BATCH_CHG_PARTNERS(
68 partner_id,
69 last_update_date,
70 last_update_by,
71 creation_date,
72 created_by,
73 last_update_login,
74 object_version_number,
75 request_id,
76 program_application_id,
77 program_id,
78 program_update_date,
79 processed_flag,
80 vad_partner_id
81 ) VALUES (
82 DECODE( px_partner_id, FND_API.G_MISS_NUM, NULL,NULL,NULL, px_partner_id),
83 DECODE( p_last_update_date, FND_API.G_MISS_DATE, SYSDATE,NULL, SYSDATE, p_last_update_date),
84 DECODE( p_last_update_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, NULL, FND_GLOBAL.USER_ID, p_last_update_by),
85 DECODE( p_creation_date, FND_API.G_MISS_DATE, SYSDATE,NULL, SYSDATE, p_creation_date),
86 DECODE( p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID,NULL, FND_GLOBAL.USER_ID, p_created_by),
87 DECODE( p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.CONC_LOGIN_ID, NULL, FND_GLOBAL.CONC_LOGIN_ID, p_last_update_login),
88 DECODE( p_object_version_number,FND_API.G_MISS_NUM, l_object_version_number, NULL, l_object_version_number, p_object_version_number),
89 DECODE( p_request_id, FND_API.G_MISS_NUM, NULL, p_request_id),
90 DECODE( p_program_application_id, FND_API.G_MISS_NUM, NULL, p_program_application_id),
91 DECODE( p_program_id, FND_API.G_MISS_NUM, NULL, p_program_id),
92 DECODE( p_program_update_date, FND_API.G_MISS_DATE, NULL, p_program_update_date),
93 DECODE( p_processed_flag, FND_API.g_miss_char, 'P', p_processed_flag),
94 DECODE( p_vad_partner_id, FND_API.g_miss_num, null, NULL, NULL, p_vad_partner_id));
95
96 EXCEPTION
97 WHEN OTHERS THEN
98 ROLLBACK TO Insert_Chng_Partner_Row;
99 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
100
101 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
102 THEN
103 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
104 END IF;
105
106 END Insert_Row;
107
108
109
110
111 -- ========================================================
112 --
113 -- NAME
114 -- Update_Row
115 --
116 -- PURPOSE
117 --
118 -- NOTES
119 --
120 -- HISTORY
121 --
122 -- ========================================================
123 PROCEDURE Update_Row(
124 p_partner_id NUMBER,
125 p_last_update_date DATE,
126 p_last_update_by NUMBER,
127 p_last_update_login NUMBER,
128 p_object_version_number NUMBER,
129 p_request_id NUMBER,
130 p_program_application_id NUMBER,
131 p_program_id NUMBER,
132 p_program_update_date DATE,
133 p_processed_flag VARCHAR2,
134 p_vad_partner_id NUMBER,
135 x_return_status IN OUT NOCOPY VARCHAR2)
136
137 IS
138 L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Row';
139 BEGIN
140
141 -- Standard Start of API savepoint
142 SAVEPOINT Update_Chng_Partner_Row;
143
144 -- Initialize API return status to SUCCESS
145 x_return_status := FND_API.G_RET_STS_SUCCESS;
146
147 Update PV_TAP_BATCH_CHG_PARTNERS
148 SET
149 partner_id = DECODE( p_partner_id, null, partner_id, FND_API.G_MISS_NUM, null, p_partner_id),
150 last_update_date = DECODE( p_last_update_date, null, last_update_date, FND_API.G_MISS_DATE, null, p_last_update_date),
151 last_update_by = DECODE( p_last_update_by, null, last_update_by, FND_API.G_MISS_NUM, null, p_last_update_by),
152 last_update_login = DECODE( p_last_update_login, null, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login),
153 object_version_number = nvl(p_object_version_number,0) + 1 ,
154 request_id = DECODE( p_request_id, null, request_id, FND_API.G_MISS_NUM, null, p_request_id),
155 program_application_id = DECODE( p_program_application_id, null, program_application_id, FND_API.G_MISS_NUM, null, p_program_application_id),
156 program_id = DECODE( p_program_id, null, program_id, FND_API.G_MISS_NUM, null, p_program_id),
157 program_update_date = DECODE( p_program_update_date, null, program_update_date, FND_API.G_MISS_DATE, null, p_program_update_date),
158 processed_flag = DECODE( p_processed_flag, null, processed_flag, FND_API.g_miss_char, null, p_processed_flag),
159 vad_partner_id = DECODE( p_vad_partner_id,null,null,FND_API.g_miss_num, NULL, p_vad_partner_id)
160 WHERE partner_id = p_partner_id
161 AND object_version_number = p_object_version_number;
162
163
164 IF (SQL%NOTFOUND) THEN
165 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
166 END IF;
167
168 EXCEPTION
169
170 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
171 ROLLBACK TO Update_Chng_Partner_Row;
172 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
173
174 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
175 THEN
176 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
177 END IF;
178
179 WHEN OTHERS THEN
180 ROLLBACK TO Update_Chng_Partner_Row;
181 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
182
183 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
184 THEN
185 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
186 END IF;
187
188 END Update_Row;
189
190
191
192
193 -- ========================================================
194 --
195 -- NAME
196 -- Delete_Row
197 --
198 -- PURPOSE
199 --
200 -- NOTES
201 --
202 -- HISTORY
203 --
204 -- ========================================================
205 PROCEDURE Delete_Row(
206 p_partner_id NUMBER,
207 p_object_version_number NUMBER,
208 x_return_status IN OUT NOCOPY VARCHAR2)
209 IS
210 L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Row';
211 BEGIN
212 -- Standard Start of API savepoint
213 SAVEPOINT Delete_Chng_Partner_Row;
214
215 -- Initialize API return status to SUCCESS
216 x_return_status := FND_API.G_RET_STS_SUCCESS;
217
218 DELETE FROM PV_TAP_BATCH_CHG_PARTNERS
219 WHERE partner_id = p_partner_id
220 AND object_version_number = p_object_version_number;
221 If (SQL%NOTFOUND) then
222 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
223 End If;
224
225 EXCEPTION
226 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
227 ROLLBACK TO Delete_Chng_Partner_Row;
228 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
229
230 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
231 THEN
232 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
233 END IF;
234
235 WHEN OTHERS THEN
236 ROLLBACK TO Delete_Chng_Partner_Row;
237 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238
239 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
240 THEN
241 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
242 END IF;
243
244 END Delete_Row ;
245
246
247
248
249
250 -- ========================================================
251 --
252 -- NAME
253 -- Lock_Row
254 --
255 -- PURPOSE
256 --
257 -- NOTES
258 --
259 -- HISTORY
260 --
261 -- ========================================================
262 PROCEDURE Lock_Row(
263 p_partner_id NUMBER,
264 p_object_version_number NUMBER,
265 x_return_status IN OUT NOCOPY VARCHAR2)
266 IS
267 CURSOR C IS
268 SELECT *
269 FROM PV_TAP_BATCH_CHG_PARTNERS
270 WHERE partner_id = p_partner_id
271 AND object_version_number = p_object_version_number
272 FOR UPDATE OF partner_id NOWAIT;
273 Recinfo C%ROWTYPE;
274
275 L_API_NAME CONSTANT VARCHAR2(30) := 'Lock_Row';
276
277 BEGIN
278 -- Standard Start of API savepoint
279 SAVEPOINT Lock_Chng_Partner_Row;
280
281 -- Initialize API return status to SUCCESS
282 x_return_status := FND_API.G_RET_STS_SUCCESS;
283
284 OPEN c;
285 FETCH c INTO Recinfo;
286 IF (c%NOTFOUND) THEN
287 CLOSE c;
288 PVX_Utility_PVT.error_message ('PV_API_RECORD_NOT_FOUND');
289 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
290 END IF;
291 CLOSE c;
292 EXCEPTION
293 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
294 ROLLBACK TO Lock_Chng_Partner_Row;
295 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
296
297 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
298 THEN
299 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
300 END IF;
301 WHEN OTHERS THEN
302 ROLLBACK TO Lock_Chng_Partner_Row;
303 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304
305 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
306 THEN
307 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
308 END IF;
309
310 END Lock_Row;
311
312
313
314 END PV_BATCH_CHG_PRTNR_PKG;