[Home] [Help]
1: package body IGW_PROP_LOCATIONS_PKG as
2: /* $Header: igwpr30b.pls 115.6 2002/03/28 19:13:27 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_PERFORMING_ORGANIZATION_ID in NUMBER,
7: X_MODE in VARCHAR2 default 'R'
8: ) is
9: cursor C is select ROWID from IGW_PROP_LOCATIONS
10: where PROPOSAL_ID = X_PROPOSAL_ID
11: and PERFORMING_ORGANIZATION_ID = X_PERFORMING_ORGANIZATION_ID;
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_LOCATIONS (
34: PROPOSAL_ID,
35: PERFORMING_ORGANIZATION_ID,
36: CREATION_DATE,
37: CREATED_BY,
64: X_PERFORMING_ORGANIZATION_ID in NUMBER
65: ) is
66: cursor c1 is select
67: PERFORMING_ORGANIZATION_ID
68: from IGW_PROP_LOCATIONS
69: where ROWID = X_ROWID
70: for update of PROPOSAL_ID nowait;
71: tlinfo c1%rowtype;
72:
117: else
118: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
119: app_exception.raise_exception;
120: end if;
121: update IGW_PROP_LOCATIONS set
122: PERFORMING_ORGANIZATION_ID = X_PERFORMING_ORGANIZATION_ID,
123: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
124: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
125: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
135: X_PROPOSAL_ID in NUMBER,
136: X_PERFORMING_ORGANIZATION_ID in NUMBER,
137: X_MODE in VARCHAR2 default 'R'
138: ) is
139: cursor c1 is select rowid from IGW_PROP_LOCATIONS
140: where PROPOSAL_ID = X_PROPOSAL_ID
141: and PERFORMING_ORGANIZATION_ID = X_PERFORMING_ORGANIZATION_ID
142: ;
143: dummy c1%rowtype;
164: procedure DELETE_ROW (
165: X_ROWID in VARCHAR2
166: ) is
167: begin
168: delete from IGW_PROP_LOCATIONS
169: where ROWID = X_ROWID;
170: if (sql%notfound) then
171: raise no_data_found;
172: end if;
171: raise no_data_found;
172: end if;
173: end DELETE_ROW;
174:
175: end IGW_PROP_LOCATIONS_PKG;