[Home] [Help]
1: package body PSP_AUTO_SEGMENTS_PKG as
2: --$Header: PSPAUSGB.pls 115.9 2002/11/19 10:55:50 ddubey psp2376993.sql $
3: /* $HEADER$ */
4: procedure INSERT_ROW (
5: X_ROWID in out NOCOPY VARCHAR2,
7: X_BUSINESS_GROUP_ID in NUMBER,
8: X_SEGMENT_NUMBER in NUMBER,
9: X_MODE in VARCHAR2 default 'R'
10: ) is
11: cursor C is select ROWID from PSP_AUTO_SEGMENTS
12: where SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID and
13: BUSINESS_GROUP_ID =X_BUSINESS_GROUP_ID;
14: X_LAST_UPDATE_DATE DATE;
15: X_LAST_UPDATED_BY NUMBER;
31: else
32: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
33: app_exception.raise_exception;
34: end if;
35: insert into PSP_AUTO_SEGMENTS (
36: SET_OF_BOOKS_ID,
37: BUSINESS_GROUP_ID ,
38: SEGMENT_NUMBER,
39: CREATION_DATE,
68: X_SEGMENT_NUMBER in NUMBER
69: ) is
70: cursor c1 is select
71: SEGMENT_NUMBER
72: from PSP_AUTO_SEGMENTS
73: where SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID
74: and BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
75: for update of SET_OF_BOOKS_ID, BUSINESS_GROUP_ID nowait;
76: tlinfo c1%rowtype;
124: else
125: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
126: app_exception.raise_exception;
127: end if;
128: update PSP_AUTO_SEGMENTS set
129: SEGMENT_NUMBER = X_SEGMENT_NUMBER,
130: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
131: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
132: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
144: X_BUSINESS_GROUP_ID in NUMBER,
145: X_SEGMENT_NUMBER in NUMBER,
146: X_MODE in VARCHAR2 default 'R'
147: ) is
148: cursor c1 is select rowid from PSP_AUTO_SEGMENTS
149: where SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID
150: and BUSINESS_GROUP_ID=X_BUSINESS_GROUP_ID
151: ;
152: dummy c1%rowtype;
175: X_SET_OF_BOOKS_ID in NUMBER,
176: X_BUSINESS_GROUP_ID IN NUMBER
177: ) is
178: begin
179: delete from PSP_AUTO_SEGMENTS
180: where SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID
181: and BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID;
182: if (sql%notfound) then
183: raise no_data_found;
183: raise no_data_found;
184: end if;
185: end DELETE_ROW;
186:
187: end PSP_AUTO_SEGMENTS_PKG;