1: PACKAGE BODY ASO_PAYMENTS_PKG as
2: /* $Header: asotpayb.pls 120.2 2005/07/19 11:17:51 appldev ship $ */
3: -- Start of Comments
4: -- Package name : ASO_PAYMENTS_PKG
5: -- Purpose :
1: PACKAGE BODY ASO_PAYMENTS_PKG as
2: /* $Header: asotpayb.pls 120.2 2005/07/19 11:17:51 appldev ship $ */
3: -- Start of Comments
4: -- Package name : ASO_PAYMENTS_PKG
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments
7: -- NOTE :
8: -- End of Comments
9:
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'ASO_PAYMENTS_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'asotpayb.pls';
13:
14: PROCEDURE Insert_Row(
15: px_PAYMENT_ID IN OUT NOCOPY /* file.sql.39 change */ NUMBER,
63: p_TRXN_EXTENSION_ID NUMBER
64: )
65:
66: IS
67: CURSOR C2 IS SELECT ASO_PAYMENTS_S.nextval FROM sys.dual;
68: BEGIN
69: If (px_PAYMENT_ID IS NULL) OR (px_PAYMENT_ID = FND_API.G_MISS_NUM) then
70: OPEN C2;
71: FETCH C2 INTO px_PAYMENT_ID;
70: OPEN C2;
71: FETCH C2 INTO px_PAYMENT_ID;
72: CLOSE C2;
73: End If;
74: INSERT INTO ASO_PAYMENTS(
75: PAYMENT_ID,
76: CREATION_DATE,
77: CREATED_BY,
78: LAST_UPDATE_DATE,
227: )
228:
229: IS
230: BEGIN
231: Update ASO_PAYMENTS
232: SET
233: /* CREATION_DATE = ASO_UTILITY_PVT.decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_DATE),
234: CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),*/
235: LAST_UPDATE_DATE = ASO_UTILITY_PVT.decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE),
288: PROCEDURE Delete_Row(
289: p_PAYMENT_ID NUMBER)
290: IS
291: BEGIN
292: DELETE FROM ASO_PAYMENTS
293: WHERE PAYMENT_ID = p_PAYMENT_ID;
294: If (SQL%NOTFOUND) then
295: RAISE NO_DATA_FOUND;
296: End If;
299: PROCEDURE Delete_Row(
300: p_QUOTE_LINE_ID NUMBER)
301: IS
302: BEGIN
303: DELETE FROM ASO_PAYMENTS
304: WHERE QUOTE_LINE_ID = p_QUOTE_LINE_ID;
305: If (SQL%NOTFOUND) then
306: RAISE NO_DATA_FOUND;
307: End If;
392: ATTRIBUTE14,
393: ATTRIBUTE15,
394: QUOTE_SHIPMENT_ID,
395: CUST_PO_NUMBER
396: FROM ASO_PAYMENTS
397: WHERE PAYMENT_ID = p_PAYMENT_ID
398: FOR UPDATE of PAYMENT_ID NOWAIT;
399: Recinfo C%ROWTYPE;
400: BEGIN
541: APP_EXCEPTION.RAISE_EXCEPTION;
542: End If;
543: END Lock_Row;
544:
545: End ASO_PAYMENTS_PKG;