1: PACKAGE BODY HZ_DUP_MERGE_PARTIES_PKG AS
2: /*$Header: ARHDQDMB.pls 120.4 2005/06/16 21:10:36 jhuang noship $ */
3:
4: PROCEDURE Insert_Row(
5: p_DUP_BATCH_ID IN OUT NOCOPY NUMBER,
13: IS
14:
15: BEGIN
16:
17: INSERT INTO HZ_DUP_MERGE_PARTIES(
18: DUP_BATCH_ID,
19: MERGE_FROM_ID,
20: MERGE_TO_ID,
21: CREATED_BY,
41: PROCEDURE Delete_Row(p_DUP_batch_id NUMBER,
42: p_MERGE_FROM_ID NUMBER,
43: p_MERGE_TO_ID NUMBER) IS
44: BEGIN
45: DELETE FROM hz_DUP_MERGE_PARTIES
46: where DUP_batch_id = p_DUP_batch_id
47: AND MERGE_FROM_ID = p_MERGE_FROM_ID
48: AND MERGE_TO_ID = p_MERGE_TO_ID;
49: If (SQL%NOTFOUND) then
63: ) IS
64:
65: CURSOR C IS
66: SELECT *
67: FROM hz_DUP_MERGE_PARTIES
68: WHERE DUP_batch_id = p_DUP_batch_id
69: AND MERGE_FROM_ID = p_MERGE_FROM_ID
70: AND MERGE_TO_ID = P_MERGE_TO_ID
71: FOR UPDATE OF DUP_batch_id, MERGE_FROM_ID , MERGE_TO_ID NOWAIT;
111: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
112: APP_EXCEPTION.RAISE_EXCEPTION;
113: End If;
114: END Lock_Row;
115: END HZ_DUP_MERGE_PARTIES_PKG;