65: , 'Update_Row'
66: );
67: END IF;
68:
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70:
71: END Update_Row;
72:
73: -- Procedure Insert_Row
187: END IF;
188:
189: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Insert_Row:'||SQLERRM);
190:
191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
192:
193: WHEN OTHERS THEN
194: IF l_debug_level > 0 THEN
195: oe_debug_pub.add( G_PKG_NAME||':INSER_ROW:'||SQLERRM ) ;
203: END IF;
204:
205: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Insert_Row:'||SQLERRM);
206:
207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
208:
209: END Insert_Row;
210:
211: -- Procedure Delete_Row
209: END Insert_Row;
210:
211: -- Procedure Delete_Row
212: PROCEDURE Delete_Row
213: ( p_payment_trx_id IN NUMBER := FND_API.G_MISS_NUM
214: , p_header_id IN NUMBER := FND_API.G_MISS_NUM
215: , p_line_id IN NUMBER := FND_API.G_MISS_NUM
216: )
217: IS
210:
211: -- Procedure Delete_Row
212: PROCEDURE Delete_Row
213: ( p_payment_trx_id IN NUMBER := FND_API.G_MISS_NUM
214: , p_header_id IN NUMBER := FND_API.G_MISS_NUM
215: , p_line_id IN NUMBER := FND_API.G_MISS_NUM
216: )
217: IS
218: l_return_status VARCHAR2(30);
211: -- Procedure Delete_Row
212: PROCEDURE Delete_Row
213: ( p_payment_trx_id IN NUMBER := FND_API.G_MISS_NUM
214: , p_header_id IN NUMBER := FND_API.G_MISS_NUM
215: , p_line_id IN NUMBER := FND_API.G_MISS_NUM
216: )
217: IS
218: l_return_status VARCHAR2(30);
219:
225: IF l_debug_level > 0 THEN
226: oe_debug_pub.add( 'ENTERING DELETING COMMITMENT FOR LINE: '||P_LINE_ID , 1 ) ;
227: END IF;
228:
229: IF p_payment_trx_id IS NOT NULL AND p_payment_trx_id <> FND_API.G_MISS_NUM THEN
230: DELETE FROM oe_payments
231: WHERE payment_trx_id = p_payment_trx_id;
232: END IF;
233:
230: DELETE FROM oe_payments
231: WHERE payment_trx_id = p_payment_trx_id;
232: END IF;
233:
234: IF p_line_id IS NOT NULL AND p_line_id <> FND_API.G_MISS_NUM
235: AND p_header_id IS NOT NULL AND p_header_id <> FND_API.G_MISS_NUM THEN
236: DELETE FROM oe_payments
237: WHERE line_id = p_line_id
238: AND header_id = p_header_id
231: WHERE payment_trx_id = p_payment_trx_id;
232: END IF;
233:
234: IF p_line_id IS NOT NULL AND p_line_id <> FND_API.G_MISS_NUM
235: AND p_header_id IS NOT NULL AND p_header_id <> FND_API.G_MISS_NUM THEN
236: DELETE FROM oe_payments
237: WHERE line_id = p_line_id
238: AND header_id = p_header_id
239: AND payment_type_code = 'COMMITMENT'; --Added for Bug# 16654431
252: , 'Delete_Row'
253: );
254: END IF;
255:
256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
257:
258: END Delete_Row;
259:
260: -- Procedure Query_Row
283: END Query_Row;
284:
285: -- Procedure Query_Rows
286: PROCEDURE Query_Rows
287: ( p_payment_trx_id IN NUMBER := FND_API.G_MISS_NUM
288: , p_Header_id IN NUMBER := FND_API.G_MISS_NUM
289: , p_line_id IN NUMBER := FND_API.G_MISS_NUM
290: , x_Payment_Types_Tbl IN OUT NOCOPY Payment_Types_Tbl_Type
291: , x_return_status OUT NOCOPY VARCHAR2
284:
285: -- Procedure Query_Rows
286: PROCEDURE Query_Rows
287: ( p_payment_trx_id IN NUMBER := FND_API.G_MISS_NUM
288: , p_Header_id IN NUMBER := FND_API.G_MISS_NUM
289: , p_line_id IN NUMBER := FND_API.G_MISS_NUM
290: , x_Payment_Types_Tbl IN OUT NOCOPY Payment_Types_Tbl_Type
291: , x_return_status OUT NOCOPY VARCHAR2
292:
285: -- Procedure Query_Rows
286: PROCEDURE Query_Rows
287: ( p_payment_trx_id IN NUMBER := FND_API.G_MISS_NUM
288: , p_Header_id IN NUMBER := FND_API.G_MISS_NUM
289: , p_line_id IN NUMBER := FND_API.G_MISS_NUM
290: , x_Payment_Types_Tbl IN OUT NOCOPY Payment_Types_Tbl_Type
291: , x_return_status OUT NOCOPY VARCHAR2
292:
293: )
397: /***
398: IF
399: (p_price_adjustment_id IS NOT NULL
400: AND
401: p_price_adjustment_id <> FND_API.G_MISS_NUM)
402: AND
403: (p_line_id IS NOT NULL
404: AND
405: p_line_id <> FND_API.G_MISS_NUM)
401: p_price_adjustment_id <> FND_API.G_MISS_NUM)
402: AND
403: (p_line_id IS NOT NULL
404: AND
405: p_line_id <> FND_API.G_MISS_NUM)
406: THEN
407: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
408: THEN
409: FND_MSG_PUB.Add_Exc_Msg
412: , 'Keys are mutually exclusive: price_adjustment_id = '|| p_price_adjustment_id || ', line_id = '|| p_line_id
413: );
414: END IF;
415:
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417:
418: END IF;
419: ***/
420:
466: x_payment_types_tbl(l_count).attribute15 := l_implicit_rec.ATTRIBUTE15;
467: x_payment_types_tbl(l_count).payment_amount := l_implicit_rec.payment_amount;
468:
469: -- set values for non-DB fields
470: x_payment_types_tbl(l_count).db_flag := FND_API.G_TRUE;
471: x_payment_types_tbl(l_count).operation := FND_API.G_MISS_CHAR;
472: x_payment_types_tbl(l_count).return_status := FND_API.G_MISS_CHAR;
473:
474: l_count := l_count + 1;
467: x_payment_types_tbl(l_count).payment_amount := l_implicit_rec.payment_amount;
468:
469: -- set values for non-DB fields
470: x_payment_types_tbl(l_count).db_flag := FND_API.G_TRUE;
471: x_payment_types_tbl(l_count).operation := FND_API.G_MISS_CHAR;
472: x_payment_types_tbl(l_count).return_status := FND_API.G_MISS_CHAR;
473:
474: l_count := l_count + 1;
475:
468:
469: -- set values for non-DB fields
470: x_payment_types_tbl(l_count).db_flag := FND_API.G_TRUE;
471: x_payment_types_tbl(l_count).operation := FND_API.G_MISS_CHAR;
472: x_payment_types_tbl(l_count).return_status := FND_API.G_MISS_CHAR;
473:
474: l_count := l_count + 1;
475:
476: END LOOP;
480: /***
481: IF
482: (p_payment_id IS NOT NULL
483: AND
484: p_payment_id <> FND_API.G_MISS_NUM)
485: AND
486: (x_payment_types_tbl.COUNT = 0)
487: THEN
488: RAISE NO_DATA_FOUND;
493: -- Return fetched table
494:
495: EXCEPTION
496:
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: IF l_debug_level > 0 THEN
499: oe_debug_pub.add( G_PKG_NAME||':QUERY_ROW:'||SQLERRM ) ;
500: END IF;
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: IF l_debug_level > 0 THEN
499: oe_debug_pub.add( G_PKG_NAME||':QUERY_ROW:'||SQLERRM ) ;
500: END IF;
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502:
503: WHEN OTHERS THEN
504: IF l_debug_level > 0 THEN
505: oe_debug_pub.add( G_PKG_NAME||':QUERY_ROW:'||SQLERRM ) ;
511: , 'Query_Rows'
512: );
513: END IF;
514:
515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516:
517: END Query_Rows;
518:
519: -- get the balance of applied commitment