[Home] [Help]
1: package body IGW_PROP_SCIENCE_CODES_PKG as
2: /* $Header: igwpr70b.pls 115.7 2002/03/28 19:13:33 pkm ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out VARCHAR2,
5: X_PROPOSAL_ID in NUMBER,
5: X_PROPOSAL_ID in NUMBER,
6: X_SCIENCE_CODE in VARCHAR2,
7: X_MODE in VARCHAR2 default 'R'
8: ) is
9: cursor C is select ROWID from IGW_PROP_SCIENCE_CODES
10: where PROPOSAL_ID = X_PROPOSAL_ID
11: and SCIENCE_CODE = X_SCIENCE_CODE;
12: X_LAST_UPDATE_DATE DATE;
13: X_LAST_UPDATED_BY NUMBER;
29: else
30: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
31: app_exception.raise_exception;
32: end if;
33: insert into IGW_PROP_SCIENCE_CODES (
34: PROPOSAL_ID,
35: SCIENCE_CODE,
36: CREATION_DATE,
37: CREATED_BY,
63: X_PROPOSAL_ID in NUMBER,
64: X_SCIENCE_CODE in VARCHAR2
65: ) is
66: cursor c1 is select *
67: from IGW_PROP_SCIENCE_CODES
68: where ROWID = X_ROWID
69: for update of PROPOSAL_ID nowait;
70: tlinfo c1%rowtype;
71:
118: else
119: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
120: app_exception.raise_exception;
121: end if;
122: update IGW_PROP_SCIENCE_CODES set
123: PROPOSAL_ID = X_PROPOSAL_ID,
124: SCIENCE_CODE = X_SCIENCE_CODE,
125: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
126: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
137: X_PROPOSAL_ID in NUMBER,
138: X_SCIENCE_CODE in VARCHAR2,
139: X_MODE in VARCHAR2 default 'R'
140: ) is
141: CURSOR C1 IS SELECT 'X' FROM IGW_PROP_SCIENCE_CODES
142: where PROPOSAL_ID = X_PROPOSAL_ID
143: and SCIENCE_CODE = X_SCIENCE_CODE
144: ;
145: dummy c1%rowtype;
166: procedure DELETE_ROW (
167: X_ROWID in VARCHAR2
168: ) is
169: begin
170: delete from IGW_PROP_SCIENCE_CODES
171: where ROWID = X_ROWID;
172: if (sql%notfound) then
173: raise no_data_found;
174: end if;
173: raise no_data_found;
174: end if;
175: end DELETE_ROW;
176:
177: end IGW_PROP_SCIENCE_CODES_PKG;