27:
28:
29: PROCEDURE Query_Rows
30: ( p_price_adj_Assoc_id IN NUMBER :=
31: FND_API.G_MISS_NUM
32: , p_price_adjustment_id IN NUMBER :=
33: FND_API.G_MISS_NUM
34: , x_Header_Adj_Assoc_Tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Assoc_Tbl_Type
35: )
29: PROCEDURE Query_Rows
30: ( p_price_adj_Assoc_id IN NUMBER :=
31: FND_API.G_MISS_NUM
32: , p_price_adjustment_id IN NUMBER :=
33: FND_API.G_MISS_NUM
34: , x_Header_Adj_Assoc_Tbl IN OUT NOCOPY OE_Order_PUB.Header_Adj_Assoc_Tbl_Type
35: )
36: IS
37: l_count NUMBER;
79: x_Header_Adj_Assoc_Tbl(l_count).RLTD_PRICE_ADJ_ID := iml_rec.RLTD_PRICE_ADJ_ID;
80: x_Header_Adj_Assoc_Tbl(l_count).LOCK_CONTROL := iml_rec.LOCK_CONTROL;
81:
82: -- set values for non-DB fields
83: x_Header_Adj_Assoc_Tbl(l_count).db_flag := FND_API.G_TRUE;
84: x_Header_Adj_Assoc_Tbl(l_count).operation := FND_API.G_MISS_CHAR;
85: x_Header_Adj_Assoc_Tbl(l_count).return_status := FND_API.G_MISS_CHAR;
86:
87: l_count := l_count + 1;
80: x_Header_Adj_Assoc_Tbl(l_count).LOCK_CONTROL := iml_rec.LOCK_CONTROL;
81:
82: -- set values for non-DB fields
83: x_Header_Adj_Assoc_Tbl(l_count).db_flag := FND_API.G_TRUE;
84: x_Header_Adj_Assoc_Tbl(l_count).operation := FND_API.G_MISS_CHAR;
85: x_Header_Adj_Assoc_Tbl(l_count).return_status := FND_API.G_MISS_CHAR;
86:
87: l_count := l_count + 1;
88:
81:
82: -- set values for non-DB fields
83: x_Header_Adj_Assoc_Tbl(l_count).db_flag := FND_API.G_TRUE;
84: x_Header_Adj_Assoc_Tbl(l_count).operation := FND_API.G_MISS_CHAR;
85: x_Header_Adj_Assoc_Tbl(l_count).return_status := FND_API.G_MISS_CHAR;
86:
87: l_count := l_count + 1;
88:
89: END LOOP;
88:
89: END LOOP;
90:
91: IF ( p_price_adj_Assoc_id IS NOT NULL
92: and p_price_adj_Assoc_id <> FND_API.G_MISS_NUM)
93: AND
94: (x_Header_Adj_Assoc_tbl.COUNT = 0 )
95: THEN
96: RAISE NO_DATA_FOUND;
101:
102:
103: EXCEPTION
104:
105: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
106:
107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
108:
109: WHEN OTHERS THEN
103: EXCEPTION
104:
105: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
106:
107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
108:
109: WHEN OTHERS THEN
110:
111: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
115: , 'Query_Rows'
116: );
117: END IF;
118:
119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
120:
121: END Query_Rows;
122:
123: PROCEDURE Insert_Row
176: ( G_PKG_NAME
177: , 'Insert_Row'
178: );
179: END IF;
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181:
182: END Insert_Row;
183:
184: PROCEDURE Update_Row
228: ( G_PKG_NAME
229: , 'Update_Row'
230: );
231: END IF;
232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
233:
234:
235:
236: END Update_Row ;
235:
236: END Update_Row ;
237:
238: PROCEDURE Delete_Row
239: ( p_price_adj_Assoc_id NUMBER := FND_API.G_MISS_NUM
240: , p_price_adjustment_id NUMBER := FND_API.G_MISS_NUM
241: )
242: IS
243: --
236: END Update_Row ;
237:
238: PROCEDURE Delete_Row
239: ( p_price_adj_Assoc_id NUMBER := FND_API.G_MISS_NUM
240: , p_price_adjustment_id NUMBER := FND_API.G_MISS_NUM
241: )
242: IS
243: --
244: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
243: --
244: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
245: --
246: BEGIN
247: IF p_price_adjustment_id <> FND_API.G_MISS_NUM then
248: -- SQL ID: 16486572
249: DELETE OE_PRICE_ADJ_ASSOCS opaa
250: WHERE opaa.price_adjustment_id = p_price_adjustment_id;
251: DELETE OE_PRICE_ADJ_ASSOCS opaa
263: ( G_PKG_NAME
264: , 'Delete_Row'
265: );
266: END IF;
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268: END Delete_Row;
269:
270: PROCEDURE Complete_Record
271: ( p_x_Header_Adj_Assoc_Rec IN OUT NOCOPY OE_Order_PUB.Header_Adj_Assoc_Rec_Type
278: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
279: --
280: BEGIN
281:
282: IF l_Header_Adj_Assoc_Rec.RLTD_PRICE_ADJ_ID = FND_API.G_MISS_NUM THEN
283: l_Header_Adj_Assoc_Rec.RLTD_PRICE_ADJ_ID :=
284: p_old_Header_Adj_Assoc_Rec.RLTD_PRICE_ADJ_ID;
285: END IF;
286:
284: p_old_Header_Adj_Assoc_Rec.RLTD_PRICE_ADJ_ID;
285: END IF;
286:
287:
288: IF l_Header_Adj_Assoc_Rec.PRICE_ADJUSTMENT_ID = FND_API.G_MISS_NUM THEN
289: l_Header_Adj_Assoc_Rec.PRICE_ADJUSTMENT_ID := p_old_Header_Adj_Assoc_Rec.PRICE_ADJUSTMENT_ID;
290: END IF;
291:
292: IF l_Header_Adj_Assoc_Rec.CREATION_DATE = FND_API.G_MISS_DATE THEN
288: IF l_Header_Adj_Assoc_Rec.PRICE_ADJUSTMENT_ID = FND_API.G_MISS_NUM THEN
289: l_Header_Adj_Assoc_Rec.PRICE_ADJUSTMENT_ID := p_old_Header_Adj_Assoc_Rec.PRICE_ADJUSTMENT_ID;
290: END IF;
291:
292: IF l_Header_Adj_Assoc_Rec.CREATION_DATE = FND_API.G_MISS_DATE THEN
293: l_Header_Adj_Assoc_Rec.CREATION_DATE := p_old_Header_Adj_Assoc_Rec.CREATION_DATE;
294: END IF;
295:
296: IF l_Header_Adj_Assoc_Rec.CREATED_BY = FND_API.G_MISS_NUM THEN
292: IF l_Header_Adj_Assoc_Rec.CREATION_DATE = FND_API.G_MISS_DATE THEN
293: l_Header_Adj_Assoc_Rec.CREATION_DATE := p_old_Header_Adj_Assoc_Rec.CREATION_DATE;
294: END IF;
295:
296: IF l_Header_Adj_Assoc_Rec.CREATED_BY = FND_API.G_MISS_NUM THEN
297: l_Header_Adj_Assoc_Rec.CREATED_BY := p_old_Header_Adj_Assoc_Rec.CREATED_BY;
298: END IF;
299:
300: IF l_Header_Adj_Assoc_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE THEN
296: IF l_Header_Adj_Assoc_Rec.CREATED_BY = FND_API.G_MISS_NUM THEN
297: l_Header_Adj_Assoc_Rec.CREATED_BY := p_old_Header_Adj_Assoc_Rec.CREATED_BY;
298: END IF;
299:
300: IF l_Header_Adj_Assoc_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE THEN
301: l_Header_Adj_Assoc_Rec.LAST_UPDATE_DATE := p_old_Header_Adj_Assoc_Rec.LAST_UPDATE_DATE;
302: END IF;
303:
304: IF l_Header_Adj_Assoc_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM THEN
300: IF l_Header_Adj_Assoc_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE THEN
301: l_Header_Adj_Assoc_Rec.LAST_UPDATE_DATE := p_old_Header_Adj_Assoc_Rec.LAST_UPDATE_DATE;
302: END IF;
303:
304: IF l_Header_Adj_Assoc_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM THEN
305: l_Header_Adj_Assoc_Rec.LAST_UPDATED_BY := p_old_Header_Adj_Assoc_Rec.LAST_UPDATED_BY;
306: END IF;
307:
308: IF l_Header_Adj_Assoc_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM THEN
304: IF l_Header_Adj_Assoc_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM THEN
305: l_Header_Adj_Assoc_Rec.LAST_UPDATED_BY := p_old_Header_Adj_Assoc_Rec.LAST_UPDATED_BY;
306: END IF;
307:
308: IF l_Header_Adj_Assoc_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM THEN
309: l_Header_Adj_Assoc_Rec.LAST_UPDATE_LOGIN := p_old_Header_Adj_Assoc_Rec.LAST_UPDATE_LOGIN;
310: END IF;
311:
312: IF l_Header_Adj_Assoc_Rec.PROGRAM_APPLICATION_ID = FND_API.G_MISS_NUM THEN
308: IF l_Header_Adj_Assoc_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM THEN
309: l_Header_Adj_Assoc_Rec.LAST_UPDATE_LOGIN := p_old_Header_Adj_Assoc_Rec.LAST_UPDATE_LOGIN;
310: END IF;
311:
312: IF l_Header_Adj_Assoc_Rec.PROGRAM_APPLICATION_ID = FND_API.G_MISS_NUM THEN
313: l_Header_Adj_Assoc_Rec.PROGRAM_APPLICATION_ID := p_old_Header_Adj_Assoc_Rec.PROGRAM_APPLICATION_ID;
314: END IF;
315:
316: IF l_Header_Adj_Assoc_Rec.PROGRAM_ID = FND_API.G_MISS_NUM THEN
312: IF l_Header_Adj_Assoc_Rec.PROGRAM_APPLICATION_ID = FND_API.G_MISS_NUM THEN
313: l_Header_Adj_Assoc_Rec.PROGRAM_APPLICATION_ID := p_old_Header_Adj_Assoc_Rec.PROGRAM_APPLICATION_ID;
314: END IF;
315:
316: IF l_Header_Adj_Assoc_Rec.PROGRAM_ID = FND_API.G_MISS_NUM THEN
317: l_Header_Adj_Assoc_Rec.PROGRAM_ID := p_old_Header_Adj_Assoc_Rec.PROGRAM_ID;
318: END IF;
319:
320: IF l_Header_Adj_Assoc_Rec.PROGRAM_UPDATE_DATE = FND_API.G_MISS_DATE THEN
316: IF l_Header_Adj_Assoc_Rec.PROGRAM_ID = FND_API.G_MISS_NUM THEN
317: l_Header_Adj_Assoc_Rec.PROGRAM_ID := p_old_Header_Adj_Assoc_Rec.PROGRAM_ID;
318: END IF;
319:
320: IF l_Header_Adj_Assoc_Rec.PROGRAM_UPDATE_DATE = FND_API.G_MISS_DATE THEN
321: l_Header_Adj_Assoc_Rec.PROGRAM_UPDATE_DATE := p_old_Header_Adj_Assoc_Rec.PROGRAM_UPDATE_DATE;
322: END IF;
323:
324: IF l_Header_Adj_Assoc_Rec.REQUEST_ID = FND_API.G_MISS_NUM THEN
320: IF l_Header_Adj_Assoc_Rec.PROGRAM_UPDATE_DATE = FND_API.G_MISS_DATE THEN
321: l_Header_Adj_Assoc_Rec.PROGRAM_UPDATE_DATE := p_old_Header_Adj_Assoc_Rec.PROGRAM_UPDATE_DATE;
322: END IF;
323:
324: IF l_Header_Adj_Assoc_Rec.REQUEST_ID = FND_API.G_MISS_NUM THEN
325: l_Header_Adj_Assoc_Rec.REQUEST_ID := p_old_Header_Adj_Assoc_Rec.REQUEST_ID;
326: END IF;
327:
328: IF l_Header_Adj_Assoc_Rec.PRICE_ADJ_ASSOC_ID = FND_API.G_MISS_NUM THEN
324: IF l_Header_Adj_Assoc_Rec.REQUEST_ID = FND_API.G_MISS_NUM THEN
325: l_Header_Adj_Assoc_Rec.REQUEST_ID := p_old_Header_Adj_Assoc_Rec.REQUEST_ID;
326: END IF;
327:
328: IF l_Header_Adj_Assoc_Rec.PRICE_ADJ_ASSOC_ID = FND_API.G_MISS_NUM THEN
329: l_Header_Adj_Assoc_Rec.PRICE_ADJ_ASSOC_ID := p_old_Header_Adj_Assoc_Rec.PRICE_ADJ_ASSOC_ID;
330: END IF;
331:
332: IF l_Header_Adj_Assoc_Rec.LINE_ID = FND_API.G_MISS_NUM THEN
328: IF l_Header_Adj_Assoc_Rec.PRICE_ADJ_ASSOC_ID = FND_API.G_MISS_NUM THEN
329: l_Header_Adj_Assoc_Rec.PRICE_ADJ_ASSOC_ID := p_old_Header_Adj_Assoc_Rec.PRICE_ADJ_ASSOC_ID;
330: END IF;
331:
332: IF l_Header_Adj_Assoc_Rec.LINE_ID = FND_API.G_MISS_NUM THEN
333: l_Header_Adj_Assoc_Rec.LINE_ID := p_old_Header_Adj_Assoc_Rec.LINE_ID;
334: END IF;
335:
336: -- RETURN l_Header_Adj_Assoc_Rec;
346: --
347: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
348: --
349: BEGIN
350: IF l_Header_Adj_Assoc_Rec.RLTD_PRICE_ADJ_ID = FND_API.G_MISS_NUM THEN
351: l_Header_Adj_Assoc_Rec.RLTD_PRICE_ADJ_ID := Null;
352: END IF;
353:
354: IF l_Header_Adj_Assoc_Rec.PRICE_ADJUSTMENT_ID = FND_API.G_MISS_NUM THEN
350: IF l_Header_Adj_Assoc_Rec.RLTD_PRICE_ADJ_ID = FND_API.G_MISS_NUM THEN
351: l_Header_Adj_Assoc_Rec.RLTD_PRICE_ADJ_ID := Null;
352: END IF;
353:
354: IF l_Header_Adj_Assoc_Rec.PRICE_ADJUSTMENT_ID = FND_API.G_MISS_NUM THEN
355: l_Header_Adj_Assoc_Rec.PRICE_ADJUSTMENT_ID := Null;
356: END IF;
357:
358: IF l_Header_Adj_Assoc_Rec.CREATION_DATE = FND_API.G_MISS_DATE THEN
354: IF l_Header_Adj_Assoc_Rec.PRICE_ADJUSTMENT_ID = FND_API.G_MISS_NUM THEN
355: l_Header_Adj_Assoc_Rec.PRICE_ADJUSTMENT_ID := Null;
356: END IF;
357:
358: IF l_Header_Adj_Assoc_Rec.CREATION_DATE = FND_API.G_MISS_DATE THEN
359: l_Header_Adj_Assoc_Rec.CREATION_DATE := Null;
360: END IF;
361:
362: IF l_Header_Adj_Assoc_Rec.CREATED_BY = FND_API.G_MISS_NUM THEN
358: IF l_Header_Adj_Assoc_Rec.CREATION_DATE = FND_API.G_MISS_DATE THEN
359: l_Header_Adj_Assoc_Rec.CREATION_DATE := Null;
360: END IF;
361:
362: IF l_Header_Adj_Assoc_Rec.CREATED_BY = FND_API.G_MISS_NUM THEN
363: l_Header_Adj_Assoc_Rec.CREATED_BY := Null;
364: END IF;
365:
366: IF l_Header_Adj_Assoc_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE THEN
362: IF l_Header_Adj_Assoc_Rec.CREATED_BY = FND_API.G_MISS_NUM THEN
363: l_Header_Adj_Assoc_Rec.CREATED_BY := Null;
364: END IF;
365:
366: IF l_Header_Adj_Assoc_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE THEN
367: l_Header_Adj_Assoc_Rec.LAST_UPDATE_DATE := Null;
368: END IF;
369:
370: IF l_Header_Adj_Assoc_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM THEN
366: IF l_Header_Adj_Assoc_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE THEN
367: l_Header_Adj_Assoc_Rec.LAST_UPDATE_DATE := Null;
368: END IF;
369:
370: IF l_Header_Adj_Assoc_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM THEN
371: l_Header_Adj_Assoc_Rec.LAST_UPDATED_BY := Null;
372: END IF;
373:
374: IF l_Header_Adj_Assoc_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM THEN
370: IF l_Header_Adj_Assoc_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM THEN
371: l_Header_Adj_Assoc_Rec.LAST_UPDATED_BY := Null;
372: END IF;
373:
374: IF l_Header_Adj_Assoc_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM THEN
375: l_Header_Adj_Assoc_Rec.LAST_UPDATE_LOGIN := Null;
376: END IF;
377:
378: IF l_Header_Adj_Assoc_Rec.PROGRAM_APPLICATION_ID = FND_API.G_MISS_NUM THEN
374: IF l_Header_Adj_Assoc_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM THEN
375: l_Header_Adj_Assoc_Rec.LAST_UPDATE_LOGIN := Null;
376: END IF;
377:
378: IF l_Header_Adj_Assoc_Rec.PROGRAM_APPLICATION_ID = FND_API.G_MISS_NUM THEN
379: l_Header_Adj_Assoc_Rec.PROGRAM_APPLICATION_ID := Null;
380: END IF;
381:
382: IF l_Header_Adj_Assoc_Rec.PROGRAM_ID = FND_API.G_MISS_NUM THEN
378: IF l_Header_Adj_Assoc_Rec.PROGRAM_APPLICATION_ID = FND_API.G_MISS_NUM THEN
379: l_Header_Adj_Assoc_Rec.PROGRAM_APPLICATION_ID := Null;
380: END IF;
381:
382: IF l_Header_Adj_Assoc_Rec.PROGRAM_ID = FND_API.G_MISS_NUM THEN
383: l_Header_Adj_Assoc_Rec.PROGRAM_ID := Null;
384: END IF;
385:
386: IF l_Header_Adj_Assoc_Rec.PROGRAM_UPDATE_DATE = FND_API.G_MISS_DATE THEN
382: IF l_Header_Adj_Assoc_Rec.PROGRAM_ID = FND_API.G_MISS_NUM THEN
383: l_Header_Adj_Assoc_Rec.PROGRAM_ID := Null;
384: END IF;
385:
386: IF l_Header_Adj_Assoc_Rec.PROGRAM_UPDATE_DATE = FND_API.G_MISS_DATE THEN
387: l_Header_Adj_Assoc_Rec.PROGRAM_UPDATE_DATE := Null;
388: END IF;
389:
390: IF l_Header_Adj_Assoc_Rec.REQUEST_ID = FND_API.G_MISS_NUM THEN
386: IF l_Header_Adj_Assoc_Rec.PROGRAM_UPDATE_DATE = FND_API.G_MISS_DATE THEN
387: l_Header_Adj_Assoc_Rec.PROGRAM_UPDATE_DATE := Null;
388: END IF;
389:
390: IF l_Header_Adj_Assoc_Rec.REQUEST_ID = FND_API.G_MISS_NUM THEN
391: l_Header_Adj_Assoc_Rec.REQUEST_ID := Null;
392: END IF;
393:
394: IF l_Header_Adj_Assoc_Rec.PRICE_ADJ_ASSOC_ID = FND_API.G_MISS_NUM THEN
390: IF l_Header_Adj_Assoc_Rec.REQUEST_ID = FND_API.G_MISS_NUM THEN
391: l_Header_Adj_Assoc_Rec.REQUEST_ID := Null;
392: END IF;
393:
394: IF l_Header_Adj_Assoc_Rec.PRICE_ADJ_ASSOC_ID = FND_API.G_MISS_NUM THEN
395: l_Header_Adj_Assoc_Rec.PRICE_ADJ_ASSOC_ID := Null;
396: END IF;
397:
398: IF l_Header_Adj_Assoc_Rec.LINE_ID = FND_API.G_MISS_NUM THEN
394: IF l_Header_Adj_Assoc_Rec.PRICE_ADJ_ASSOC_ID = FND_API.G_MISS_NUM THEN
395: l_Header_Adj_Assoc_Rec.PRICE_ADJ_ASSOC_ID := Null;
396: END IF;
397:
398: IF l_Header_Adj_Assoc_Rec.LINE_ID = FND_API.G_MISS_NUM THEN
399: l_Header_Adj_Assoc_Rec.LINE_ID := Null;
400: END IF;
401:
402: -- RETURN l_Header_Adj_Assoc_Rec;
423: PROCEDURE Lock_Row
424: ( x_return_status OUT NOCOPY VARCHAR2
425:
426: , p_x_Header_Adj_Assoc_Rec IN OUT NOCOPY OE_Order_PUB.Header_Adj_Assoc_Rec_Type
427: , p_price_adj_assoc_id IN NUMBER := FND_API.G_MISS_NUM
428: -- , x_Header_Adj_Assoc_Rec OUT OE_Order_PUB.Header_Adj_Assoc_Rec_Type
429: )
430: is
431: l_Header_Adj_Assoc_Rec OE_Order_PUB.Header_Adj_Assoc_Rec_Type;
443: SAVEPOINT Lock_Row;
444:
445: l_lock_control := NULL;
446:
447: IF p_price_adj_assoc_id <> FND_API.G_MISS_NUM THEN
448: l_price_adj_assoc_id := p_price_adj_assoc_id;
449: ELSE
450: l_price_adj_assoc_id := p_x_Header_Adj_Assoc_rec.price_adj_assoc_id;
451: l_lock_control := p_x_Header_Adj_Assoc_rec.lock_control;
469:
470: -- If lock_control is not passed(is null or missing), then return the locked record.
471:
472: IF l_lock_control is null OR
473: l_lock_control = FND_API.G_MISS_NUM
474: THEN
475:
476: -- Set return status
477: x_return_status := FND_API.G_RET_STS_SUCCESS;
473: l_lock_control = FND_API.G_MISS_NUM
474: THEN
475:
476: -- Set return status
477: x_return_status := FND_API.G_RET_STS_SUCCESS;
478: p_x_Header_Adj_Assoc_rec.return_status := FND_API.G_RET_STS_SUCCESS;
479:
480: -- return for lock by ID.
481: RETURN;
474: THEN
475:
476: -- Set return status
477: x_return_status := FND_API.G_RET_STS_SUCCESS;
478: p_x_Header_Adj_Assoc_rec.return_status := FND_API.G_RET_STS_SUCCESS;
479:
480: -- return for lock by ID.
481: RETURN;
482:
500: END IF;
501:
502: -- Set return status
503:
504: x_return_status := FND_API.G_RET_STS_SUCCESS;
505: p_x_Header_Adj_Assoc_rec.return_status := FND_API.G_RET_STS_SUCCESS;
506:
507: ELSE
508:
501:
502: -- Set return status
503:
504: x_return_status := FND_API.G_RET_STS_SUCCESS;
505: p_x_Header_Adj_Assoc_rec.return_status := FND_API.G_RET_STS_SUCCESS;
506:
507: ELSE
508:
509: -- Row has changed by another user.
510: IF l_debug_level > 0 THEN
511: oe_debug_pub.add( 'ROW CHANGED BY OTHER USER' , 1 ) ;
512: END IF;
513:
514: x_return_status := FND_API.G_RET_STS_ERROR;
515: p_x_Header_Adj_Assoc_rec.return_status := FND_API.G_RET_STS_ERROR;
516:
517: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
518: THEN
511: oe_debug_pub.add( 'ROW CHANGED BY OTHER USER' , 1 ) ;
512: END IF;
513:
514: x_return_status := FND_API.G_RET_STS_ERROR;
515: p_x_Header_Adj_Assoc_rec.return_status := FND_API.G_RET_STS_ERROR;
516:
517: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
518: THEN
519:
531: EXCEPTION
532:
533: WHEN NO_DATA_FOUND THEN
534:
535: x_return_status := FND_API.G_RET_STS_ERROR;
536: p_x_Header_Adj_Assoc_Rec.return_status := FND_API.G_RET_STS_ERROR;
537:
538: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
539: THEN
532:
533: WHEN NO_DATA_FOUND THEN
534:
535: x_return_status := FND_API.G_RET_STS_ERROR;
536: p_x_Header_Adj_Assoc_Rec.return_status := FND_API.G_RET_STS_ERROR;
537:
538: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
539: THEN
540:
543:
544: END IF;
545: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
546:
547: x_return_status := FND_API.G_RET_STS_ERROR;
548: p_x_Header_Adj_Assoc_Rec.return_status := FND_API.G_RET_STS_ERROR;
549:
550: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
551: THEN
544: END IF;
545: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
546:
547: x_return_status := FND_API.G_RET_STS_ERROR;
548: p_x_Header_Adj_Assoc_Rec.return_status := FND_API.G_RET_STS_ERROR;
549:
550: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
551: THEN
552:
555:
556: END IF;
557: WHEN OTHERS THEN
558:
559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
560: p_x_Header_Adj_Assoc_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561:
562: end lock_row;
563:
556: END IF;
557: WHEN OTHERS THEN
558:
559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
560: p_x_Header_Adj_Assoc_Rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561:
562: end lock_row;
563:
564: -- procedure lock_rows
563:
564: -- procedure lock_rows
565: PROCEDURE Lock_Rows
566: ( p_price_adj_assoc_id IN NUMBER
567: := FND_API.G_MISS_NUM
568: , p_price_adjustment_id IN NUMBER
569: := FND_API.G_MISS_NUM
570: , x_Header_Adj_Assoc_tbl OUT NOCOPY OE_Order_PUB.Header_Adj_Assoc_Tbl_Type
571: , x_return_status OUT NOCOPY VARCHAR2
565: PROCEDURE Lock_Rows
566: ( p_price_adj_assoc_id IN NUMBER
567: := FND_API.G_MISS_NUM
568: , p_price_adjustment_id IN NUMBER
569: := FND_API.G_MISS_NUM
570: , x_Header_Adj_Assoc_tbl OUT NOCOPY OE_Order_PUB.Header_Adj_Assoc_Tbl_Type
571: , x_return_status OUT NOCOPY VARCHAR2
572:
573: )
592: oe_debug_pub.add( 'ENTERING OE_HEADER_ADJ_ASSOCS_UTIL.LOCK_ROWS.' , 1 ) ;
593: END IF;
594:
595: IF (p_price_adj_assoc_id IS NOT NULL AND
596: p_price_adj_assoc_id <> FND_API.G_MISS_NUM) AND
597: (p_price_adjustment_id IS NOT NULL AND
598: p_price_adjustment_id <> FND_API.G_MISS_NUM)
599: THEN
600: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
594:
595: IF (p_price_adj_assoc_id IS NOT NULL AND
596: p_price_adj_assoc_id <> FND_API.G_MISS_NUM) AND
597: (p_price_adjustment_id IS NOT NULL AND
598: p_price_adjustment_id <> FND_API.G_MISS_NUM)
599: THEN
600: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
601: OE_MSG_PUB.Add_Exc_Msg
602: ( G_PKG_NAME
604: , 'Keys are mutually exclusive: price_adj_assoc_id = ' ||
605: p_price_adj_assoc_id || ', price_adjustment_id = ' || p_price_adjustment_id );
606: END IF;
607:
608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
609: END IF;
610:
611: IF p_price_adj_assoc_id <> FND_API.G_MISS_NUM THEN
612:
607:
608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
609: END IF;
610:
611: IF p_price_adj_assoc_id <> FND_API.G_MISS_NUM THEN
612:
613: SELECT price_adj_assoc_id
614: INTO l_price_adj_assoc_id
615: FROM oe_price_adj_assocs
619:
620: -- null header_id shouldn't be passed in unnecessarily if
621: -- price_adj_assoc_id is passed in already.
622: BEGIN
623: IF p_price_adjustment_id <> FND_API.G_MISS_NUM THEN
624: SAVEPOINT LOCK_ROWS;
625: OPEN lock_assoc_hdr(p_price_adjustment_id);
626:
627: LOOP
647: , p_price_adjustment_id => p_price_adjustment_id
648: , x_Header_Adj_Assoc_tbl => x_Header_Adj_Assoc_tbl
649: );
650:
651: x_return_status := FND_API.G_RET_STS_SUCCESS;
652:
653: EXCEPTION
654: WHEN NO_DATA_FOUND THEN
655: x_return_status := FND_API.G_RET_STS_ERROR;
651: x_return_status := FND_API.G_RET_STS_SUCCESS;
652:
653: EXCEPTION
654: WHEN NO_DATA_FOUND THEN
655: x_return_status := FND_API.G_RET_STS_ERROR;
656: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
657: THEN
658: fnd_message.set_name('ONT','OE_LOCK_ROW_DELETED');
659: OE_MSG_PUB.Add;
659: OE_MSG_PUB.Add;
660: END IF;
661:
662: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
663: x_return_status := FND_API.G_RET_STS_ERROR;
664: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
665: THEN
666: fnd_message.set_name('ONT','OE_LOCK_ROW_ALREADY_LOCKED');
667: OE_MSG_PUB.Add;
667: OE_MSG_PUB.Add;
668: END IF;
669:
670: WHEN OTHERS THEN
671: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
672: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
673: THEN
674: OE_MSG_PUB.Add_Exc_Msg
675: ( G_PKG_NAME