[Home] [Help]
1: package body PSP_ELEMENT_TYPES_PKG as
2: /* $Header: PSPSUELB.pls 115.8 2003/09/08 16:10:57 spchakra ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_ELEMENT_TYPE_ID in NUMBER,
26: X_MODE in VARCHAR2 default 'R',
27: X_BUSINESS_GROUP_ID IN NUMBER, -- Introduced for bug fix 3098050
28: X_SET_OF_BOOKS_ID IN NUMBER -- Introduced for bug fix 3098050
29: ) is
30: cursor C is select ROWID from PSP_ELEMENT_TYPES
31: where ELEMENT_TYPE_ID = X_ELEMENT_TYPE_ID
32: and START_DATE_ACTIVE = X_START_DATE_ACTIVE;
33: X_LAST_UPDATE_DATE DATE;
34: X_LAST_UPDATED_BY NUMBER;
50: else
51: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
52: app_exception.raise_exception;
53: end if;
54: insert into PSP_ELEMENT_TYPES (
55: ELEMENT_TYPE_ID,
56: START_DATE_ACTIVE,
57: END_DATE_ACTIVE,
58: COMMENTS,
167: ATTRIBUTE14,
168: ATTRIBUTE15,
169: BUSINESS_GROUP_ID, -- Introduced for bug fix 3098050
170: SET_OF_BOOKS_ID -- Introduced for bug fix 3098050
171: from PSP_ELEMENT_TYPES
172: where ELEMENT_TYPE_ID = X_ELEMENT_TYPE_ID
173: and START_DATE_ACTIVE = X_START_DATE_ACTIVE
174: -- Introduced BG/SOB check for bug fix 3098050
175: AND BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
300: else
301: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
302: app_exception.raise_exception;
303: end if;
304: update PSP_ELEMENT_TYPES set
305: END_DATE_ACTIVE = X_END_DATE_ACTIVE,
306: COMMENTS = X_COMMENTS,
307: ADJUST = X_ADJUST,
308: ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
361: X_MODE in VARCHAR2 default 'R',
362: X_BUSINESS_GROUP_ID IN NUMBER, -- Introduced for bug fix 3098050
363: X_SET_OF_BOOKS_ID IN NUMBER -- Introduced for bug fix 3098050
364: ) is
365: cursor c1 is select rowid from PSP_ELEMENT_TYPES
366: where ELEMENT_TYPE_ID = X_ELEMENT_TYPE_ID
367: and START_DATE_ACTIVE = X_START_DATE_ACTIVE
368: ;
369: dummy c1%rowtype;
432: X_ELEMENT_TYPE_ID in NUMBER,
433: X_START_DATE_ACTIVE in DATE
434: ) is
435: begin
436: delete from PSP_ELEMENT_TYPES
437: where ELEMENT_TYPE_ID = X_ELEMENT_TYPE_ID
438: and START_DATE_ACTIVE = X_START_DATE_ACTIVE;
439: if (sql%notfound) then
440: raise no_data_found;
440: raise no_data_found;
441: end if;
442: end DELETE_ROW;
443:
444: end PSP_ELEMENT_TYPES_PKG;