[Home] [Help]
1: PACKAGE BODY ASO_QUOTE_ACCESSES_PKG AS
2: /* $Header: asotqacb.pls 120.1 2005/06/29 12:40:16 appldev ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ASO_QUOTE_ACCESSES_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'asotqacb.pls';
1: PACKAGE BODY ASO_QUOTE_ACCESSES_PKG AS
2: /* $Header: asotqacb.pls 120.1 2005/06/29 12:40:16 appldev ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ASO_QUOTE_ACCESSES_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'asotqacb.pls';
6:
7: procedure INSERT_ROW (
8: PX_ACCESS_ID IN OUT NOCOPY /* file.sql.39 change */ NUMBER,
48: p_OBJECT_VERSION_NUMBER NUMBER
49: )
50: IS
51:
52: CURSOR C2 IS SELECT ASO_QUOTE_ACCESSES_S.nextval FROM sys.dual;
53:
54: begin
55: If (PX_ACCESS_ID IS NULL) OR (PX_ACCESS_ID = FND_API.G_MISS_NUM) then
56: OPEN C2;
57: FETCH C2 INTO PX_ACCESS_ID;
58: CLOSE C2;
59: End If;
60:
61: insert into ASO_QUOTE_ACCESSES (
62: ACCESS_ID,
63: QUOTE_NUMBER,
64: RESOURCE_ID,
65: RESOURCE_GRP_ID,
192: p_OBJECT_VERSION_NUMBER NUMBER
193: )
194: IS
195: BEGIN
196: update ASO_QUOTE_ACCESSES
197: set
198: QUOTE_NUMBER = decode( P_QUOTE_NUMBER, FND_API.G_MISS_NUM, QUOTE_NUMBER, P_QUOTE_NUMBER),
199: RESOURCE_ID = decode( p_RESOURCE_ID, FND_API.G_MISS_NUM, RESOURCE_ID, p_RESOURCE_ID),
200: RESOURCE_GRP_ID = decode( P_RESOURCE_GRP_ID, FND_API.G_MISS_NUM, RESOURCE_GRP_ID, P_RESOURCE_GRP_ID),
244: procedure DELETE_ROW (
245: P_ACCESS_ID in NUMBER
246: ) is
247: begin
248: delete from ASO_QUOTE_ACCESSES
249: where ACCESS_ID = P_ACCESS_ID;
250:
251: if (sql%notfound) then
252: raise no_data_found;
328: ATTRIBUTE13 ,
329: ATTRIBUTE14 ,
330: ATTRIBUTE15
331:
332: from ASO_QUOTE_ACCESSES
333: where ACCESS_ID = P_ACCESS_ID
334: for update of ACCESS_ID nowait;
335:
336: recinfo C1%ROWTYPE;
354: app_exception.raise_exception;
355: end if;
356: end LOCK_ROW;
357:
358: end ASO_QUOTE_ACCESSES_PKG;