1: PACKAGE BODY CSP_CARRIER_DELIVERY_TIMES_PKG AS
2: /* $Header: csptcdtb.pls 120.1.12020000.2 2012/07/25 05:41:40 htank ship $ */
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,
48: p_DISTANCE NUMBER,
49: p_DISTANCE_UOM VARCHAR2)
50:
51: IS
52: CURSOR C2 IS SELECT CSP_CARRIER_DELIVERY_TIMES_S1.nextval FROM sys.dual;
53: BEGIN
54: If (px_RELATION_SHIP_ID IS NULL) OR (px_RELATION_SHIP_ID = FND_API.G_MISS_NUM) then
55: OPEN C2;
56: FETCH C2 INTO px_RELATION_SHIP_ID;
56: FETCH C2 INTO px_RELATION_SHIP_ID;
57: CLOSE C2;
58: End If;
59:
60: INSERT INTO CSP_CARRIER_DELIVERY_TIMES(
61: RELATION_SHIP_ID,
62: CREATED_BY,
63: CREATION_DATE,
64: LAST_UPDATED_BY,
166: p_DISTANCE_UOM VARCHAR2)
167:
168: IS
169: BEGIN
170: Update CSP_CARRIER_DELIVERY_TIMES
171: SET
172: CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),
173: CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_DATE),
174: LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
211: PROCEDURE Delete_Row(
212: p_RELATION_SHIP_ID NUMBER)
213: IS
214: BEGIN
215: DELETE FROM CSP_CARRIER_DELIVERY_TIMES
216: WHERE RELATION_SHIP_ID = p_RELATION_SHIP_ID;
217: If (SQL%NOTFOUND) then
218: RAISE NO_DATA_FOUND;
219: End If;
256:
257: IS
258: CURSOR C IS
259: SELECT *
260: FROM CSP_CARRIER_DELIVERY_TIMES
261: WHERE RELATION_SHIP_ID = p_RELATION_SHIP_ID
262: FOR UPDATE of RELATION_SHIP_ID NOWAIT;
263: Recinfo C%ROWTYPE;
264: BEGIN
375: APP_EXCEPTION.RAISE_EXCEPTION;
376: End If;
377: END Lock_Row;
378:
379: End CSP_CARRIER_DELIVERY_TIMES_PKG;