1: PACKAGE BODY HZ_MERGE_PARTIES_PKG as
2: /* $Header: ARHMPTBB.pls 120.2 2005/06/16 21:12:45 jhuang noship $ */
3: -- Start of Comments
4: -- Package name : HZ_MERGE_PARTIES_PKG
5: -- Purpose :
1: PACKAGE BODY HZ_MERGE_PARTIES_PKG as
2: /* $Header: ARHMPTBB.pls 120.2 2005/06/16 21:12:45 jhuang noship $ */
3: -- Start of Comments
4: -- Package name : HZ_MERGE_PARTIES_PKG
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments
7: -- NOTE :
8: -- End of Comments
9:
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'HZ_MERGE_PARTIES_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'arhtptbb.pls';
13:
14: PROCEDURE Insert_Row(
15: px_BATCH_PARTY_ID IN OUT NOCOPY NUMBER,
25: p_LAST_UPDATE_DATE DATE,
26: p_LAST_UPDATED_BY NUMBER)
27:
28: IS
29: CURSOR C2 IS SELECT HZ_MERGE_PARTIES_S.nextval FROM sys.dual;
30: BEGIN
31: If (px_BATCH_PARTY_ID IS NULL) OR (px_BATCH_PARTY_ID = FND_API.G_MISS_NUM) then
32: OPEN C2;
33: FETCH C2 INTO px_BATCH_PARTY_ID;
32: OPEN C2;
33: FETCH C2 INTO px_BATCH_PARTY_ID;
34: CLOSE C2;
35: End If;
36: INSERT INTO HZ_MERGE_PARTIES(
37: BATCH_PARTY_ID,
38: BATCH_ID,
39: MERGE_TYPE,
40: FROM_PARTY_ID,
76: p_LAST_UPDATED_BY NUMBER)
77:
78: IS
79: BEGIN
80: Update HZ_MERGE_PARTIES
81: SET
82: BATCH_ID = decode( p_BATCH_ID, FND_API.G_MISS_NUM, BATCH_ID, p_BATCH_ID),
83: MERGE_TYPE = decode( p_MERGE_TYPE, FND_API.G_MISS_CHAR, MERGE_TYPE, p_MERGE_TYPE),
84: FROM_PARTY_ID = decode( p_FROM_PARTY_ID, FND_API.G_MISS_NUM, FROM_PARTY_ID, p_FROM_PARTY_ID),
103: PROCEDURE Delete_Row(
104: p_BATCH_PARTY_ID NUMBER)
105: IS
106: BEGIN
107: DELETE FROM HZ_MERGE_PARTIES
108: WHERE BATCH_PARTY_ID = p_BATCH_PARTY_ID;
109: If (SQL%NOTFOUND) then
110: RAISE NO_DATA_FOUND;
111: End If;
127:
128: IS
129: CURSOR C IS
130: SELECT *
131: FROM HZ_MERGE_PARTIES
132: WHERE BATCH_PARTY_ID = p_BATCH_PARTY_ID
133: FOR UPDATE of BATCH_PARTY_ID NOWAIT;
134: Recinfo C%ROWTYPE;
135: BEGIN
183: APP_EXCEPTION.RAISE_EXCEPTION;
184: End If;
185: END Lock_Row;
186:
187: End HZ_MERGE_PARTIES_PKG;