1: PACKAGE BODY EAM_CE_WORK_ORDER_LINES_PKG AS
2: /* $Header: EAMTCWOB.pls 120.2.12020000.2 2012/11/01 20:10:02 devijay ship $ */
3: -- Start of Comments
4: -- Package name : EAM_CE_WORK_ORDER_LINES_PKG
5: -- Purpose : Base Package to Insert/Delete/Update EAM_CE_WORK_ORDER_LINES
1: PACKAGE BODY EAM_CE_WORK_ORDER_LINES_PKG AS
2: /* $Header: EAMTCWOB.pls 120.2.12020000.2 2012/11/01 20:10:02 devijay ship $ */
3: -- Start of Comments
4: -- Package name : EAM_CE_WORK_ORDER_LINES_PKG
5: -- Purpose : Base Package to Insert/Delete/Update EAM_CE_WORK_ORDER_LINES
6: -- History :
7: -- NOTE :
8: -- End of Comments
1: PACKAGE BODY EAM_CE_WORK_ORDER_LINES_PKG AS
2: /* $Header: EAMTCWOB.pls 120.2.12020000.2 2012/11/01 20:10:02 devijay ship $ */
3: -- Start of Comments
4: -- Package name : EAM_CE_WORK_ORDER_LINES_PKG
5: -- Purpose : Base Package to Insert/Delete/Update EAM_CE_WORK_ORDER_LINES
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_CE_WORK_ORDER_LINES_PKG';
11: G_FILE_NAME CONSTANT VARCHAR2(12) := 'EAMTCWOB.pls';
12:
13: PROCEDURE INSERT_ROW
14: (
91: BEGIN
92: IF (p_estimate_id IS NOT NULL) OR (p_estimate_id <> FND_API.G_MISS_NUM) THEN
93:
94: IF p_estimate_work_order_line_id IS NULL THEN
95: SELECT EAM_CE_WORK_ORDER_LINES_S.NEXTVAL INTO l_wo_line_id_seq FROM DUAL;
96:
97:
98:
99: ELSE
99: ELSE
100: l_wo_line_id_seq := p_estimate_work_order_line_id;
101: END IF;
102:
103: INSERT INTO EAM_CE_WORK_ORDER_LINES(
104: ESTIMATE_WORK_ORDER_LINE_ID,
105: ESTIMATE_WORK_ORDER_ID
106: ,SRC_CU_ID
107: ,SRC_ACTIVITY_ID
332: p_res_sch_flag NUMBER
333: )
334: IS
335: BEGIN
336: UPDATE EAM_CE_WORK_ORDER_LINES
337: SET ESTIMATE_WORK_ORDER_ID = decode(p_estimate_work_order_id, FND_API.G_MISS_NUM, ESTIMATE_WORK_ORDER_ID, p_estimate_work_order_id),
338: SRC_CU_ID = decode(p_src_cu_id, FND_API.G_MISS_NUM, SRC_CU_ID, p_src_cu_id),
339: SRC_ACTIVITY_ID = decode(p_src_activity_id, FND_API.G_MISS_NUM, SRC_ACTIVITY_ID, p_src_activity_id),
340: SRC_ACTIVITY_QTY = decode(p_src_activity_qty, FND_API.G_MISS_NUM, SRC_ACTIVITY_QTY, p_src_activity_qty),
417: p_estimate_id IN NUMBER
418: )
419: IS
420: BEGIN
421: DELETE FROM EAM_CE_WORK_ORDER_LINES
422: WHERE ESTIMATE_ID = p_estimate_id;
423: EXCEPTION
424: WHEN OTHERS THEN
425: NULL;
430: )
431: IS
432: BEGIN
433:
434: DELETE FROM EAM_CE_WORK_ORDER_LINES
435: WHERE ESTIMATE_WORK_ORDER_LINE_ID = p_work_order_line_id;
436:
437: IF (SQL%NOTFOUND) THEN
438: RAISE NO_DATA_FOUND;
438: RAISE NO_DATA_FOUND;
439: END IF;
440: END DELETE_ROW;
441:
442: END EAM_CE_WORK_ORDER_LINES_PKG;