1: PACKAGE BODY EAM_ESTIMATE_ASSOCIATIONS_PKG AS
2: /* $Header: EAMTESAB.pls 120.0.12010000.2 2008/12/24 02:31:52 devijay noship $ */
3: -- Start of Comments
4: -- Package name : EAM_ESTIMATE_ASSOCIATIONS_PKG
5: -- Purpose : Body of package EAM_ESTIMATE_ASSOCIATIONS_PKG
1: PACKAGE BODY EAM_ESTIMATE_ASSOCIATIONS_PKG AS
2: /* $Header: EAMTESAB.pls 120.0.12010000.2 2008/12/24 02:31:52 devijay noship $ */
3: -- Start of Comments
4: -- Package name : EAM_ESTIMATE_ASSOCIATIONS_PKG
5: -- Purpose : Body of package EAM_ESTIMATE_ASSOCIATIONS_PKG
6: -- History :
7: -- NOTE :
8: -- End of Comments
1: PACKAGE BODY EAM_ESTIMATE_ASSOCIATIONS_PKG AS
2: /* $Header: EAMTESAB.pls 120.0.12010000.2 2008/12/24 02:31:52 devijay noship $ */
3: -- Start of Comments
4: -- Package name : EAM_ESTIMATE_ASSOCIATIONS_PKG
5: -- Purpose : Body of package EAM_ESTIMATE_ASSOCIATIONS_PKG
6: -- History :
7: -- NOTE :
8: -- End of Comments
9:
6: -- History :
7: -- NOTE :
8: -- End of Comments
9:
10: G_PKG_NAME CONSTANT VARCHAR2(30):= 'EAM_ESTIMATE_ASSOCIATIONS_PKG';
11: G_FILE_NAME CONSTANT VARCHAR2(12) := 'EAMTESAB.pls';
12:
13: PROCEDURE INSERT_ROW(
14: px_ESTIMATE_ASSOCIATION_ID IN OUT NOCOPY NUMBER,
27: p_LAST_UPDATED_BY NUMBER,
28: p_LAST_UPDATE_LOGIN NUMBER
29: )
30: IS
31: CURSOR C IS SELECT EAM_ESTIMATE_ASSOCIATIONS_S.NEXTVAL FROM SYS.DUAL;
32: BEGIN
33: IF (px_ESTIMATE_ASSOCIATION_ID IS NULL) OR (px_ESTIMATE_ASSOCIATION_ID = FND_API.G_MISS_NUM) THEN
34: OPEN C;
35: FETCH C INTO px_ESTIMATE_ASSOCIATION_ID;
34: OPEN C;
35: FETCH C INTO px_ESTIMATE_ASSOCIATION_ID;
36: CLOSE C;
37: END IF;
38: INSERT INTO EAM_ESTIMATE_ASSOCIATIONS(
39: ESTIMATE_ASSOCIATION_ID,
40: ORGANIZATION_ID,
41: ESTIMATE_ID,
42: CU_ID,
88: p_LAST_UPDATE_LOGIN NUMBER
89: )
90: IS
91: BEGIN
92: UPDATE EAM_ESTIMATE_ASSOCIATIONS
93: SET ORGANIZATION_ID = decode(p_ORGANIZATION_ID, FND_API.G_MISS_NUM, ORGANIZATION_ID, p_ORGANIZATION_ID),
94: ESTIMATE_ID = decode(p_ESTIMATE_ID, FND_API.G_MISS_NUM, ESTIMATE_ID, p_ESTIMATE_ID),
95: CU_ID = decode(p_CU_ID, FND_API.G_MISS_NUM, CU_ID, p_CU_ID),
96: CU_QTY = decode(p_CU_QTY, FND_API.G_MISS_NUM, CU_QTY, p_CU_QTY),
130: )
131: IS
132: CURSOR C IS
133: SELECT *
134: FROM EAM_ESTIMATE_ASSOCIATIONS
135: WHERE ESTIMATE_ASSOCIATION_ID = p_ESTIMATE_ASSOCIATION_ID
136: FOR UPDATE OF ESTIMATE_ASSOCIATION_ID NOWAIT;
137: Recinfo C%ROWTYPE;
138: BEGIN
173: p_ESTIMATE_ASSOCIATION_ID NUMBER
174: )
175: IS
176: BEGIN
177: DELETE FROM EAM_ESTIMATE_ASSOCIATIONS
178: WHERE ESTIMATE_ASSOCIATION_ID = p_ESTIMATE_ASSOCIATION_ID;
179:
180: IF (SQL%NOTFOUND) THEN
181: RAISE NO_DATA_FOUND;
181: RAISE NO_DATA_FOUND;
182: END IF;
183: END DELETE_ROW;
184:
185: END EAM_ESTIMATE_ASSOCIATIONS_PKG;