1: PACKAGE BODY CSI_T_PARTY_ACCOUNTS_PKG as
2: /* $Header: csittpab.pls 115.4 2002/11/12 00:24:47 rmamidip noship $ */
3: -- Package name : CSI_T_PARTY_ACCOUNTS_PKG
4: -- Purpose : Table Handler for csi_t_party_accounts
5: -- History : brmanesh created 12-MAY-2001
1: PACKAGE BODY CSI_T_PARTY_ACCOUNTS_PKG as
2: /* $Header: csittpab.pls 115.4 2002/11/12 00:24:47 rmamidip noship $ */
3: -- Package name : CSI_T_PARTY_ACCOUNTS_PKG
4: -- Purpose : Table Handler for csi_t_party_accounts
5: -- History : brmanesh created 12-MAY-2001
6: -- NOTE :
7:
1: PACKAGE BODY CSI_T_PARTY_ACCOUNTS_PKG as
2: /* $Header: csittpab.pls 115.4 2002/11/12 00:24:47 rmamidip noship $ */
3: -- Package name : CSI_T_PARTY_ACCOUNTS_PKG
4: -- Purpose : Table Handler for csi_t_party_accounts
5: -- History : brmanesh created 12-MAY-2001
6: -- NOTE :
7:
8:
5: -- History : brmanesh created 12-MAY-2001
6: -- NOTE :
7:
8:
9: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_T_PARTY_ACCOUNTS_PKG';
10: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csittpab.pls';
11:
12: PROCEDURE Insert_Row(
13: px_TXN_ACCOUNT_DETAIL_ID IN OUT NOCOPY NUMBER,
43: p_OBJECT_VERSION_NUMBER NUMBER,
44: p_CONTEXT VARCHAR2)
45:
46: IS
47: CURSOR C2 IS SELECT CSI_T_PARTY_ACCOUNTS_S.nextval FROM sys.dual;
48: BEGIN
49: If (px_TXN_ACCOUNT_DETAIL_ID IS NULL) OR (px_TXN_ACCOUNT_DETAIL_ID = FND_API.G_MISS_NUM) then
50: OPEN C2;
51: FETCH C2 INTO px_TXN_ACCOUNT_DETAIL_ID;
50: OPEN C2;
51: FETCH C2 INTO px_TXN_ACCOUNT_DETAIL_ID;
52: CLOSE C2;
53: End If;
54: INSERT INTO CSI_T_PARTY_ACCOUNTS(
55: TXN_ACCOUNT_DETAIL_ID,
56: TXN_PARTY_DETAIL_ID,
57: IP_ACCOUNT_ID,
58: ACCOUNT_ID,
154: p_CONTEXT VARCHAR2)
155:
156: IS
157: BEGIN
158: Update CSI_T_PARTY_ACCOUNTS
159: SET
160: TXN_PARTY_DETAIL_ID = decode( p_TXN_PARTY_DETAIL_ID, FND_API.G_MISS_NUM, TXN_PARTY_DETAIL_ID, p_TXN_PARTY_DETAIL_ID),
161: IP_ACCOUNT_ID = decode( p_IP_ACCOUNT_ID, FND_API.G_MISS_NUM, IP_ACCOUNT_ID, p_IP_ACCOUNT_ID),
162: ACCOUNT_ID = decode( p_ACCOUNT_ID, FND_API.G_MISS_NUM, ACCOUNT_ID, p_ACCOUNT_ID),
198: PROCEDURE Delete_Row(
199: p_TXN_ACCOUNT_DETAIL_ID NUMBER)
200: IS
201: BEGIN
202: DELETE FROM CSI_T_PARTY_ACCOUNTS
203: WHERE TXN_ACCOUNT_DETAIL_ID = p_TXN_ACCOUNT_DETAIL_ID;
204: If (SQL%NOTFOUND) then
205: RAISE NO_DATA_FOUND;
206: End If;
242:
243: IS
244: CURSOR C IS
245: SELECT *
246: FROM CSI_T_PARTY_ACCOUNTS
247: WHERE TXN_ACCOUNT_DETAIL_ID = p_TXN_ACCOUNT_DETAIL_ID
248: FOR UPDATE of TXN_ACCOUNT_DETAIL_ID NOWAIT;
249: Recinfo C%ROWTYPE;
250: BEGIN
358: APP_EXCEPTION.RAISE_EXCEPTION;
359: End If;
360: END Lock_Row;
361:
362: End CSI_T_PARTY_ACCOUNTS_PKG;