[Home] [Help]
1: PACKAGE BODY CSI_IP_ACCOUNTS_PKG as
2: /* $Header: csitaccb.pls 115.14 2003/09/04 00:12:28 sguthiva ship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_IP_ACCOUNTS_PKG';
1: PACKAGE BODY CSI_IP_ACCOUNTS_PKG as
2: /* $Header: csitaccb.pls 115.14 2003/09/04 00:12:28 sguthiva ship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_IP_ACCOUNTS_PKG';
6: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csitaccb.pls';
7:
8: PROCEDURE Insert_Row(
9: px_IP_ACCOUNT_ID IN OUT NOCOPY NUMBER,
42: p_program_update_date DATE
43: )
44:
45: IS
46: CURSOR C2 IS SELECT CSI_IP_ACCOUNTS_S.nextval FROM sys.dual;
47: BEGIN
48: If (px_IP_ACCOUNT_ID IS NULL) OR (px_IP_ACCOUNT_ID = FND_API.G_MISS_NUM) then
49: OPEN C2;
50: FETCH C2 INTO px_IP_ACCOUNT_ID;
49: OPEN C2;
50: FETCH C2 INTO px_IP_ACCOUNT_ID;
51: CLOSE C2;
52: End If;
53: INSERT INTO CSI_IP_ACCOUNTS(
54: IP_ACCOUNT_ID,
55: INSTANCE_PARTY_ID,
56: PARTY_ACCOUNT_ID,
57: RELATIONSHIP_TYPE_CODE,
161: )
162:
163: IS
164: BEGIN
165: Update CSI_IP_ACCOUNTS
166: SET
167: INSTANCE_PARTY_ID = decode( p_INSTANCE_PARTY_ID, FND_API.G_MISS_NUM, INSTANCE_PARTY_ID, p_INSTANCE_PARTY_ID),
168: PARTY_ACCOUNT_ID = decode( p_PARTY_ACCOUNT_ID, FND_API.G_MISS_NUM, PARTY_ACCOUNT_ID, p_PARTY_ACCOUNT_ID),
169: RELATIONSHIP_TYPE_CODE = decode( p_RELATIONSHIP_TYPE_CODE, FND_API.G_MISS_CHAR, RELATIONSHIP_TYPE_CODE, p_RELATIONSHIP_TYPE_CODE),
207: PROCEDURE Delete_Row(
208: p_IP_ACCOUNT_ID NUMBER)
209: IS
210: BEGIN
211: DELETE FROM CSI_IP_ACCOUNTS
212: WHERE IP_ACCOUNT_ID = p_IP_ACCOUNT_ID;
213: If (SQL%NOTFOUND) then
214: RAISE NO_DATA_FOUND;
215: End If;
249:
250: IS
251: CURSOR C IS
252: SELECT *
253: FROM CSI_IP_ACCOUNTS
254: WHERE IP_ACCOUNT_ID = p_IP_ACCOUNT_ID
255: FOR UPDATE of IP_ACCOUNT_ID NOWAIT;
256: Recinfo C%ROWTYPE;
257: BEGIN
359: APP_EXCEPTION.RAISE_EXCEPTION;
360: End If;
361: END Lock_Row;
362:
363: End CSI_IP_ACCOUNTS_PKG;
364: