[Home] [Help]
1: PACKAGE BODY CSI_I_PARTIES_PKG as
2: /* $Header: csitptyb.pls 115.15 2003/09/04 00:22:35 sguthiva ship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_I_PARTIES_PKG';
1: PACKAGE BODY CSI_I_PARTIES_PKG as
2: /* $Header: csitptyb.pls 115.15 2003/09/04 00:22:35 sguthiva ship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_I_PARTIES_PKG';
6: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csitptyb.pls';
7:
8: PROCEDURE Insert_Row(
9: p_INSTANCE_PARTY_ID IN OUT NOCOPY NUMBER,
39: p_OBJECT_VERSION_NUMBER NUMBER,
40: p_PRIMARY_FLAG VARCHAR2,
41: p_PREFERRED_FLAG VARCHAR2)
42: IS
43: CURSOR C2 IS SELECT CSI_I_PARTIES_S.nextval FROM sys.dual;
44: BEGIN
45: If (p_INSTANCE_PARTY_ID IS NULL) OR (p_INSTANCE_PARTY_ID = FND_API.G_MISS_NUM) then
46: OPEN C2;
47: FETCH C2 INTO p_INSTANCE_PARTY_ID;
46: OPEN C2;
47: FETCH C2 INTO p_INSTANCE_PARTY_ID;
48: CLOSE C2;
49: End If;
50: INSERT INTO CSI_I_PARTIES(
51: INSTANCE_PARTY_ID,
52: INSTANCE_ID,
53: PARTY_SOURCE_TABLE,
54: PARTY_ID,
152: p_PRIMARY_FLAG VARCHAR2,
153: p_PREFERRED_FLAG VARCHAR2)
154: IS
155: BEGIN
156: Update CSI_I_PARTIES
157: SET
158: INSTANCE_ID = decode( p_INSTANCE_ID, FND_API.G_MISS_NUM, INSTANCE_ID, p_INSTANCE_ID),
159: PARTY_SOURCE_TABLE = decode( p_PARTY_SOURCE_TABLE, FND_API.G_MISS_CHAR, PARTY_SOURCE_TABLE, p_PARTY_SOURCE_TABLE),
160: PARTY_ID = decode( p_PARTY_ID, FND_API.G_MISS_NUM, PARTY_ID, p_PARTY_ID),
197: PROCEDURE Delete_Row(
198: p_INSTANCE_PARTY_ID NUMBER)
199: IS
200: BEGIN
201: DELETE FROM CSI_I_PARTIES
202: WHERE INSTANCE_PARTY_ID = p_INSTANCE_PARTY_ID;
203: If (SQL%NOTFOUND) then
204: RAISE NO_DATA_FOUND;
205: End If;
241: p_PREFERRED_FLAG VARCHAR2)
242: IS
243: CURSOR C IS
244: SELECT *
245: FROM CSI_I_PARTIES
246: WHERE INSTANCE_PARTY_ID = p_INSTANCE_PARTY_ID
247: FOR UPDATE of INSTANCE_PARTY_ID NOWAIT;
248: Recinfo C%ROWTYPE;
249: BEGIN
360: APP_EXCEPTION.RAISE_EXCEPTION;
361: End If;
362: END Lock_Row;
363:
364: End CSI_I_PARTIES_PKG;
365: