[Home] [Help]
1: package body IGW_PROP_SPECIAL_REVIEWS_PKG as
2: /* $Header: igwpr60b.pls 115.7 2002/03/28 19:13:31 pkm ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out VARCHAR2,
5: X_PROPOSAL_ID in NUMBER,
11: X_APPROVAL_DATE in DATE,
12: X_COMMENTS in VARCHAR2,
13: X_MODE in VARCHAR2 default 'R'
14: ) is
15: cursor C is select ROWID from IGW_PROP_SPECIAL_REVIEWS
16: where PROPOSAL_ID = X_PROPOSAL_ID
17: AND SPECIAL_REVIEW_CODE = X_SPECIAL_REVIEW_CODE;
18:
19: X_LAST_UPDATE_DATE DATE;
36: else
37: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
38: app_exception.raise_exception;
39: end if;
40: insert into IGW_PROP_SPECIAL_REVIEWS (
41: PROPOSAL_ID,
42: SPECIAL_REVIEW_CODE,
43: SPECIAL_REVIEW_TYPE,
44: APPROVAL_TYPE_CODE,
95: PROTOCOL_NUMBER,
96: APPLICATION_DATE,
97: APPROVAL_DATE,
98: COMMENTS
99: from IGW_PROP_SPECIAL_REVIEWS
100: where ROWID = X_ROWID
101: for update of PROPOSAL_ID nowait;
102: tlinfo c1%rowtype;
103:
170: else
171: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
172: app_exception.raise_exception;
173: end if;
174: update IGW_PROP_SPECIAL_REVIEWS set
175: SPECIAL_REVIEW_CODE = X_SPECIAL_REVIEW_CODE,
176: SPECIAL_REVIEW_TYPE = X_SPECIAL_REVIEW_TYPE,
177: APPROVAL_TYPE_CODE = X_APPROVAL_TYPE_CODE,
178: PROTOCOL_NUMBER = X_PROTOCOL_NUMBER,
200: X_APPROVAL_DATE in DATE,
201: X_COMMENTS in VARCHAR2,
202: X_MODE in VARCHAR2 default 'R'
203: ) is
204: cursor c1 is select rowid from IGW_PROP_SPECIAL_REVIEWS
205: where PROPOSAL_ID = X_PROPOSAL_ID
206: and SPECIAL_REVIEW_CODE = X_SPECIAL_REVIEW_CODE
207: ;
208: dummy c1%rowtype;
241: procedure DELETE_ROW (
242: X_ROWID in VARCHAR2
243: ) is
244: begin
245: delete from IGW_PROP_SPECIAL_REVIEWS
246: where ROWID = X_ROWID;
247: if (sql%notfound) then
248: raise no_data_found;
249: end if;
248: raise no_data_found;
249: end if;
250: end DELETE_ROW;
251:
252: end IGW_PROP_SPECIAL_REVIEWS_PKG;