[Home] [Help]
1: package body GMS_REPORT_TEMPLATES_PKG as
2: -- $Header: gmsawrtb.pls 115.4 2002/11/26 19:17:33 jmuthuku ship $
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_REPORT_TEMPLATE_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_REPORT_TEMPLATES
32: where REPORT_TEMPLATE_ID = X_REPORT_TEMPLATE_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_REPORT_TEMPLATES (
55: REPORT_TEMPLATE_ID,
56: REPORT_NAME,
57: TYPE,
58: START_DATE_ACTIVE,
172: ATTRIBUTE12,
173: ATTRIBUTE13,
174: ATTRIBUTE14,
175: ATTRIBUTE15
176: from GMS_REPORT_TEMPLATES
177: where REPORT_TEMPLATE_ID = X_REPORT_TEMPLATE_ID
178: for update of REPORT_TEMPLATE_ID nowait;
179: tlinfo c1%rowtype;
180:
310: else
311: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
312: app_exception.raise_exception;
313: end if;
314: update GMS_REPORT_TEMPLATES set
315: REPORT_NAME = X_REPORT_NAME,
316: TYPE = X_TYPE,
317: START_DATE_ACTIVE = X_START_DATE_ACTIVE,
318: END_DATE_ACTIVE = X_END_DATE_ACTIVE,
372: X_ATTRIBUTE14 in VARCHAR2,
373: X_ATTRIBUTE15 in VARCHAR2,
374: X_MODE in VARCHAR2 default 'R'
375: ) is
376: cursor c1 is select rowid from GMS_REPORT_TEMPLATES
377: where REPORT_TEMPLATE_ID = X_REPORT_TEMPLATE_ID
378: ;
379: dummy c1%rowtype;
380: begin
443: procedure DELETE_ROW (
444: X_REPORT_TEMPLATE_ID in NUMBER
445: ) is
446: begin
447: delete from GMS_REPORT_TEMPLATES
448: where REPORT_TEMPLATE_ID = X_REPORT_TEMPLATE_ID;
449: if (sql%notfound) then
450: raise no_data_found;
451: end if;
450: raise no_data_found;
451: end if;
452: end DELETE_ROW;
453:
454: end GMS_REPORT_TEMPLATES_PKG;