1: package body GMS_PROJECT_FUNDINGS_PKG as
2: -- $Header: gmsawpfb.pls 115.5 2002/11/26 12:47:43 mmalhotr ship $
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_GMS_PROJECT_FUNDING_ID in NUMBER,
10: X_FUNDING_AMOUNT in NUMBER,
11: X_DATE_ALLOCATED in DATE,
12: X_MODE in VARCHAR2 default 'R'
13: ) is
14: cursor C is select ROWID from GMS_PROJECT_FUNDINGS
15: where GMS_PROJECT_FUNDING_ID = X_GMS_PROJECT_FUNDING_ID;
16: X_LAST_UPDATE_DATE DATE;
17: X_LAST_UPDATED_BY NUMBER;
18: X_LAST_UPDATE_LOGIN NUMBER;
33: else
34: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
35: app_exception.raise_exception;
36: end if;
37: insert into GMS_PROJECT_FUNDINGS (
38: GMS_PROJECT_FUNDING_ID,
39: PROJECT_FUNDING_ID,
40: PROJECT_ID,
41: TASK_ID,
87: TASK_ID,
88: INSTALLMENT_ID,
89: FUNDING_AMOUNT,
90: DATE_ALLOCATED
91: from GMS_PROJECT_FUNDINGS
92: where GMS_PROJECT_FUNDING_ID = X_GMS_PROJECT_FUNDING_ID
93: for update of GMS_PROJECT_FUNDING_ID nowait;
94: tlinfo c1%rowtype;
95:
153: else
154: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
155: app_exception.raise_exception;
156: end if;
157: update GMS_PROJECT_FUNDINGS set
158: PROJECT_FUNDING_ID = X_PROJECT_FUNDING_ID,
159: PROJECT_ID = X_PROJECT_ID,
160: TASK_ID = X_TASK_ID,
161: INSTALLMENT_ID = X_INSTALLMENT_ID,
181: X_FUNDING_AMOUNT in NUMBER,
182: X_DATE_ALLOCATED in DATE,
183: X_MODE in VARCHAR2 default 'R'
184: ) is
185: cursor c1 is select rowid from GMS_PROJECT_FUNDINGS
186: where GMS_PROJECT_FUNDING_ID = X_GMS_PROJECT_FUNDING_ID
187: ;
188: dummy c1%rowtype;
189: begin
218: procedure DELETE_ROW (
219: X_GMS_PROJECT_FUNDING_ID in NUMBER
220: ) is
221: begin
222: delete from GMS_PROJECT_FUNDINGS
223: where GMS_PROJECT_FUNDING_ID = X_GMS_PROJECT_FUNDING_ID;
224: if (sql%notfound) then
225: raise no_data_found;
226: end if;
225: raise no_data_found;
226: end if;
227: end DELETE_ROW;
228:
229: end GMS_PROJECT_FUNDINGS_PKG;