[Home] [Help]
1: package body GMS_REPORTS_PKG as
2: -- $Header: gmsawrpb.pls 115.5 2002/11/26 19:05:53 jmuthuku ship $
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_REPORT_ID in NUMBER,
27: X_ATTRIBUTE14 in VARCHAR2,
28: X_ATTRIBUTE15 in VARCHAR2,
29: X_MODE in VARCHAR2 default 'R'
30: ) is
31: cursor C is select ROWID from GMS_REPORTS
32: where REPORT_ID = X_REPORT_ID;
33: X_LAST_UPDATE_DATE DATE;
34: X_LAST_UPDATED_BY NUMBER;
35: X_LAST_UPDATE_LOGIN NUMBER;
50: else
51: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
52: app_exception.raise_exception;
53: end if;
54: insert into GMS_REPORTS (
55: REPORT_ID,
56: INSTALLMENT_ID,
57: REPORT_TEMPLATE_ID,
58: SITE_USE_ID,
172: ATTRIBUTE12,
173: ATTRIBUTE13,
174: ATTRIBUTE14,
175: ATTRIBUTE15
176: from GMS_REPORTS
177: where REPORT_ID = X_REPORT_ID
178: for update of REPORT_ID nowait;
179: tlinfo c1%rowtype;
180:
306: else
307: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
308: app_exception.raise_exception;
309: end if;
310: update GMS_REPORTS set
311: INSTALLMENT_ID = X_INSTALLMENT_ID,
312: REPORT_TEMPLATE_ID = X_REPORT_TEMPLATE_ID,
313: SITE_USE_ID = X_SITE_USE_ID,
314: COPY_NUMBER = X_COPY_NUMBER,
368: X_ATTRIBUTE14 in VARCHAR2,
369: X_ATTRIBUTE15 in VARCHAR2,
370: X_MODE in VARCHAR2 default 'R'
371: ) is
372: cursor c1 is select rowid from GMS_REPORTS
373: where REPORT_ID = X_REPORT_ID
374: ;
375: dummy c1%rowtype;
376: begin
439: procedure DELETE_ROW (
440: X_REPORT_ID in NUMBER
441: ) is
442: begin
443: delete from GMS_REPORTS
444: where REPORT_ID = X_REPORT_ID;
445: if (sql%notfound) then
446: raise no_data_found;
447: end if;
446: raise no_data_found;
447: end if;
448: end DELETE_ROW;
449:
450: end GMS_REPORTS_PKG;