[Home] [Help]
1: PACKAGE BODY ASO_SHIPMENTS_PKG as
2: /* $Header: asotshpb.pls 120.0 2005/05/31 11:54:05 appldev noship $ */
3: -- Start of Comments
4: -- Package name : ASO_SHIPMENTS_PKG
5: -- Purpose :
1: PACKAGE BODY ASO_SHIPMENTS_PKG as
2: /* $Header: asotshpb.pls 120.0 2005/05/31 11:54:05 appldev noship $ */
3: -- Start of Comments
4: -- Package name : ASO_SHIPMENTS_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_SHIPMENTS_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'asotshpb.pls';
13:
14: PROCEDURE Insert_Row(
15: px_SHIPMENT_ID IN OUT NOCOPY NUMBER,
74: p_DEMAND_CLASS_CODE VARCHAR2
75: )
76:
77: IS
78: CURSOR C2 IS SELECT ASO_SHIPMENTS_S.nextval FROM sys.dual;
79: BEGIN
80: If (px_SHIPMENT_ID IS NULL) OR (px_SHIPMENT_ID = FND_API.G_MISS_NUM) then
81: OPEN C2;
82: FETCH C2 INTO px_SHIPMENT_ID;
81: OPEN C2;
82: FETCH C2 INTO px_SHIPMENT_ID;
83: CLOSE C2;
84: End If;
85: INSERT INTO ASO_SHIPMENTS(
86: SHIPMENT_ID,
87: CREATION_DATE,
88: CREATED_BY,
89: LAST_UPDATE_DATE,
271: )
272:
273: IS
274: BEGIN
275: Update ASO_SHIPMENTS
276: SET
277: /* CREATION_DATE = ASO_UTILITY_PVT.decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_DATE),
278: CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),*/
279: LAST_UPDATE_DATE = ASO_UTILITY_PVT.decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE),
345: PROCEDURE Delete_Row(
346: p_SHIPMENT_ID NUMBER)
347: IS
348: BEGIN
349: DELETE FROM ASO_SHIPMENTS
350: WHERE SHIPMENT_ID = p_SHIPMENT_ID;
351: If (SQL%NOTFOUND) then
352: RAISE NO_DATA_FOUND;
353: End If;
455: ATTRIBUTE14,
456: ATTRIBUTE15,
457: SHIP_QUOTE_PRICE,
458: SHIP_FROM_ORG_ID
459: FROM ASO_SHIPMENTS
460: WHERE SHIPMENT_ID = p_SHIPMENT_ID
461: FOR UPDATE of SHIPMENT_ID NOWAIT;
462: Recinfo C%ROWTYPE;
463: BEGIN
625: APP_EXCEPTION.RAISE_EXCEPTION;
626: End If;
627: END Lock_Row;
628:
629: End ASO_SHIPMENTS_PKG;