[Home] [Help]
1: package body PSP_ORGANIZATION_ACCOUNTS_PKG as
2: /* $Header: PSPSUOAB.pls 120.1 2006/11/13 23:55:07 vdharmap noship $ */
3:
4: /* Introduced x_poeta_start_date,x_poeta_end_date for Enh. Bug# 2259310 */
5: procedure INSERT_ROW (
37: X_set_of_books_id in NUMBER,
38: X_POETA_START_DATE in DATE DEFAULT NULL,
39: X_POETA_END_DATE in DATE DEFAULT NULL
40: ) is
41: cursor C is select ROWID from PSP_ORGANIZATION_ACCOUNTS
42: where ORGANIZATION_ACCOUNT_ID = X_ORGANIZATION_ACCOUNT_ID
43: and BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
44: AND SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID;
45: X_LAST_UPDATE_DATE DATE;
62: else
63: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
64: app_exception.raise_exception;
65: end if;
66: insert into PSP_ORGANIZATION_ACCOUNTS (
67: ORGANIZATION_ACCOUNT_ID,
68: ORGANIZATION_ID,
69: ACCOUNT_TYPE_CODE,
70: START_DATE_ACTIVE,
212: ATTRIBUTE14,
213: ATTRIBUTE15,
214: BUSINESS_GROUP_ID,
215: SET_OF_BOOKS_ID
216: from PSP_ORGANIZATION_ACCOUNTS
217: where ORGANIZATION_ACCOUNT_ID = X_ORGANIZATION_ACCOUNT_ID
218: AND BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
219: AND SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID
220: for update of ORGANIZATION_ACCOUNT_ID nowait;
371: else
372: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
373: app_exception.raise_exception;
374: end if;
375: update PSP_ORGANIZATION_ACCOUNTS set
376: ORGANIZATION_ID = X_ORGANIZATION_ID,
377: ACCOUNT_TYPE_CODE = X_ACCOUNT_TYPE_CODE,
378: START_DATE_ACTIVE = X_START_DATE_ACTIVE,
379: END_DATE_ACTIVE = X_END_DATE_ACTIVE,
449: X_SET_OF_BOOKS_ID IN NUMBER,
450: X_POETA_START_DATE in DATE DEFAULT NULL,
451: X_POETA_END_DATE in DATE DEFAULT NULL
452: ) is
453: cursor c1 is select rowid from PSP_ORGANIZATION_ACCOUNTS
454: where ORGANIZATION_ACCOUNT_ID = X_ORGANIZATION_ACCOUNT_ID
455: and BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
456: and SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID ;
457: dummy c1%rowtype;
540: X_ORGANIZATION_ACCOUNT_ID in NUMBER,
541: X_BUSINESS_GROUP_ID IN NUMBER,
542: X_SET_OF_BOOKS_ID IN NUMBER) is
543: begin
544: delete from PSP_ORGANIZATION_ACCOUNTS
545: where ORGANIZATION_ACCOUNT_ID = X_ORGANIZATION_ACCOUNT_ID
546: and BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
547: AND SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID;
548: if (sql%notfound) then
567: return g_default_award_number;
568: end;
569:
570:
571: end PSP_ORGANIZATION_ACCOUNTS_PKG;