[Home] [Help]
1: PACKAGE BODY CSP_CARRIER_DELIVERY_TIMES_PKG AS
2: /* $Header: csptcdtb.pls 115.6 2002/11/26 07:42:14 hhaugeru noship $ */
3: -- Start of Comments
4: -- Package name : CSP_SCH_INT_PVT
5: -- Purpose :
8: -- End of Comments
9:
10:
11:
12: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSP_CARRIER_DELIVERY_TIMES_PKG';
13: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csptcdtb.pls';
14:
15: PROCEDURE Insert_Row(
16: px_RELATION_SHIP_ID IN OUT NOCOPY NUMBER,
45: p_ATTRIBUTE15 VARCHAR2,
46: p_SAFTEY_ZONE NUMBER)
47:
48: IS
49: CURSOR C2 IS SELECT CSP_CARRIER_DELIVERY_TIMES_S1.nextval FROM sys.dual;
50: BEGIN
51: If (px_RELATION_SHIP_ID IS NULL) OR (px_RELATION_SHIP_ID = FND_API.G_MISS_NUM) then
52: OPEN C2;
53: FETCH C2 INTO px_RELATION_SHIP_ID;
52: OPEN C2;
53: FETCH C2 INTO px_RELATION_SHIP_ID;
54: CLOSE C2;
55: End If;
56: INSERT INTO CSP_CARRIER_DELIVERY_TIMES(
57: RELATION_SHIP_ID,
58: CREATED_BY,
59: CREATION_DATE,
60: LAST_UPDATED_BY,
153: p_SAFTEY_ZONE NUMBER)
154:
155: IS
156: BEGIN
157: Update CSP_CARRIER_DELIVERY_TIMES
158: SET
159: CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),
160: CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_DATE),
161: LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
196: PROCEDURE Delete_Row(
197: p_RELATION_SHIP_ID NUMBER)
198: IS
199: BEGIN
200: DELETE FROM CSP_CARRIER_DELIVERY_TIMES
201: WHERE RELATION_SHIP_ID = p_RELATION_SHIP_ID;
202: If (SQL%NOTFOUND) then
203: RAISE NO_DATA_FOUND;
204: End If;
239:
240: IS
241: CURSOR C IS
242: SELECT *
243: FROM CSP_CARRIER_DELIVERY_TIMES
244: WHERE RELATION_SHIP_ID = p_RELATION_SHIP_ID
245: FOR UPDATE of RELATION_SHIP_ID NOWAIT;
246: Recinfo C%ROWTYPE;
247: BEGIN
352: APP_EXCEPTION.RAISE_EXCEPTION;
353: End If;
354: END Lock_Row;
355:
356: End CSP_CARRIER_DELIVERY_TIMES_PKG;