[Home] [Help]
1: package body PSP_EFFORT_MESSAGES_PKG as
2: /* $Header: PSPERMEB.pls 115.4 2002/11/18 12:34:34 lveerubh ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_MESSAGE_ID in NUMBER,
6: X_EFFORT_REPORT_MESSAGE_TYPE in VARCHAR2,
7: X_TEXT in VARCHAR2,
8: X_MODE in VARCHAR2 default 'R'
9: ) is
10: cursor C is select ROWID from PSP_EFFORT_MESSAGES
11: where MESSAGE_ID = X_MESSAGE_ID;
12: X_LAST_UPDATE_DATE DATE;
13: X_LAST_UPDATED_BY NUMBER;
14: X_LAST_UPDATE_LOGIN NUMBER;
29: else
30: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
31: app_exception.raise_exception;
32: end if;
33: insert into PSP_EFFORT_MESSAGES (
34: MESSAGE_ID,
35: EFFORT_REPORT_MESSAGE_TYPE,
36: TEXT,
37: CREATION_DATE,
67: ) is
68: cursor c1 is select
69: EFFORT_REPORT_MESSAGE_TYPE,
70: TEXT
71: from PSP_EFFORT_MESSAGES
72: where MESSAGE_ID = X_MESSAGE_ID
73: for update of MESSAGE_ID nowait;
74: tlinfo c1%rowtype;
75:
121: else
122: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
123: app_exception.raise_exception;
124: end if;
125: update PSP_EFFORT_MESSAGES set
126: EFFORT_REPORT_MESSAGE_TYPE = X_EFFORT_REPORT_MESSAGE_TYPE,
127: TEXT = X_TEXT,
128: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
129: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
141: X_EFFORT_REPORT_MESSAGE_TYPE in VARCHAR2,
142: X_TEXT in VARCHAR2,
143: X_MODE in VARCHAR2 default 'R'
144: ) is
145: cursor c1 is select rowid from PSP_EFFORT_MESSAGES
146: where MESSAGE_ID = X_MESSAGE_ID
147: ;
148: dummy c1%rowtype;
149: begin
170: procedure DELETE_ROW (
171: X_MESSAGE_ID in NUMBER
172: ) is
173: begin
174: delete from PSP_EFFORT_MESSAGES
175: where MESSAGE_ID = X_MESSAGE_ID;
176: ---if (sql%notfound) then
177: ---raise no_data_found;
178: ---end if;
177: ---raise no_data_found;
178: ---end if;
179: end DELETE_ROW;
180:
181: end PSP_EFFORT_MESSAGES_PKG;