[Home] [Help]
1: package body GMS_DEFAULT_REPORTS_PKG as
2: -- $Header: gmsawdrb.pls 120.1 2005/07/26 14:20:38 appldev ship $
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_DEFAULT_REPORT_ID in NUMBER,
26: X_ATTRIBUTE14 in VARCHAR2,
27: X_ATTRIBUTE15 in VARCHAR2,
28: X_MODE in VARCHAR2 default 'R'
29: ) is
30: cursor C is select ROWID from GMS_DEFAULT_REPORTS
31: where DEFAULT_REPORT_ID = X_DEFAULT_REPORT_ID;
32: X_LAST_UPDATE_DATE DATE;
33: X_LAST_UPDATED_BY NUMBER;
34: X_LAST_UPDATE_LOGIN NUMBER;
49: else
50: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
51: app_exception.raise_exception;
52: end if;
53: insert into GMS_DEFAULT_REPORTS (
54: DEFAULT_REPORT_ID,
55: REPORT_TEMPLATE_ID,
56: AWARD_ID,
57: FREQUENCY,
167: ATTRIBUTE12,
168: ATTRIBUTE13,
169: ATTRIBUTE14,
170: ATTRIBUTE15
171: from GMS_DEFAULT_REPORTS
172: where DEFAULT_REPORT_ID = X_DEFAULT_REPORT_ID
173: for update of DEFAULT_REPORT_ID nowait;
174: tlinfo c1%rowtype;
175:
295: else
296: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
297: app_exception.raise_exception;
298: end if;
299: update GMS_DEFAULT_REPORTS set
300: REPORT_TEMPLATE_ID = X_REPORT_TEMPLATE_ID,
301: AWARD_ID = X_AWARD_ID,
302: FREQUENCY = X_FREQUENCY,
303: DUE_WITHIN_DAYS = X_DUE_WITHIN_DAYS,
355: X_ATTRIBUTE14 in VARCHAR2,
356: X_ATTRIBUTE15 in VARCHAR2,
357: X_MODE in VARCHAR2 default 'R'
358: ) is
359: cursor c1 is select rowid from GMS_DEFAULT_REPORTS
360: where DEFAULT_REPORT_ID = X_DEFAULT_REPORT_ID
361: ;
362: dummy c1%rowtype;
363: begin
424: procedure DELETE_ROW (
425: X_DEFAULT_REPORT_ID in NUMBER
426: ) is
427: begin
428: delete from GMS_DEFAULT_REPORTS
429: where DEFAULT_REPORT_ID = X_DEFAULT_REPORT_ID;
430: if (sql%notfound) then
431: raise no_data_found;
432: end if;
431: raise no_data_found;
432: end if;
433: end DELETE_ROW;
434:
435: end GMS_DEFAULT_REPORTS_PKG;