[Home] [Help]
1: package body IGW_PROP_PERSONS_PKG as
2: /* $Header: igwpr40b.pls 115.11 2002/03/28 19:13:29 pkm ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out VARCHAR2,
5: X_PROPOSAL_ID in NUMBER,
11: X_PERCENT_EFFORT in NUMBER,
12: X_PERSON_ORGANIZATION_ID in NUMBER,
13: X_MODE in VARCHAR2 default 'R'
14: ) is
15: cursor C is select ROWID from IGW_PROP_PERSONS
16: where PROPOSAL_ID = X_PROPOSAL_ID
17: and PERSON_ID = X_PERSON_ID;
18: X_LAST_UPDATE_DATE DATE;
19: X_LAST_UPDATED_BY NUMBER;
35: else
36: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
37: app_exception.raise_exception;
38: end if;
39: insert into IGW_PROP_PERSONS (
40: PROPOSAL_ID,
41: PERSON_ID,
42: PERSON_SEQUENCE,
43: PROPOSAL_ROLE_CODE,
94: PI_FLAG,
95: KEY_PERSON_FLAG,
96: PERCENT_EFFORT,
97: PERSON_ORGANIZATION_ID
98: from IGW_PROP_PERSONS
99: where ROWID = X_ROWID
100: for update of PROPOSAL_ID nowait;
101: tlinfo c1%rowtype;
102:
169: else
170: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
171: app_exception.raise_exception;
172: end if;
173: update IGW_PROP_PERSONS set
174: PERSON_ID = X_PERSON_ID,
175: PERSON_SEQUENCE = X_PERSON_SEQUENCE,
176: PROPOSAL_ROLE_CODE = X_PROPOSAL_ROLE_CODE,
177: PI_FLAG = X_PI_FLAG,
199: X_PERCENT_EFFORT in NUMBER,
200: X_PERSON_ORGANIZATION_ID in NUMBER,
201: X_MODE in VARCHAR2 default 'R'
202: ) is
203: cursor c1 is select rowid from IGW_PROP_PERSONS
204: where PROPOSAL_ID = X_PROPOSAL_ID
205: and PERSON_ID = X_PERSON_ID
206: ;
207: dummy c1%rowtype;
240: procedure DELETE_ROW (
241: X_ROWID in VARCHAR2
242: ) is
243: begin
244: delete from IGW_PROP_PERSONS
245: where ROWID = X_ROWID;
246: if (sql%notfound) then
247: raise no_data_found;
248: end if;
247: raise no_data_found;
248: end if;
249: end DELETE_ROW;
250:
251: end IGW_PROP_PERSONS_PKG;