[Home] [Help]
1: package body PSP_TEMPLATE_AWARDS_PKG as
2: /* $Header: PSPERAWB.pls 115.4 2002/11/18 12:27:01 lveerubh ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_TEMPLATE_ID in NUMBER,
6: X_AWARD_ID in NUMBER,
7: X_ATTRIBUTE1 in VARCHAR2,
8: X_MODE in VARCHAR2 default 'R'
9: ) is
10: cursor C is select ROWID from PSP_TEMPLATE_AWARDS
11: where TEMPLATE_ID = X_TEMPLATE_ID
12: and AWARD_ID = X_AWARD_ID;
13: X_LAST_UPDATE_DATE DATE;
14: X_LAST_UPDATED_BY NUMBER;
30: else
31: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
32: app_exception.raise_exception;
33: end if;
34: insert into PSP_TEMPLATE_AWARDS (
35: TEMPLATE_ID,
36: AWARD_ID,
37: ATTRIBUTE1,
38: CREATION_DATE,
68: X_ATTRIBUTE1 in VARCHAR2
69: ) is
70: cursor c1 is select
71: ATTRIBUTE1
72: from PSP_TEMPLATE_AWARDS
73: where TEMPLATE_ID = X_TEMPLATE_ID
74: and AWARD_ID = X_AWARD_ID
75: for update of TEMPLATE_ID nowait;
76: tlinfo c1%rowtype;
124: else
125: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
126: app_exception.raise_exception;
127: end if;
128: update PSP_TEMPLATE_AWARDS set
129: ATTRIBUTE1 = X_ATTRIBUTE1,
130: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
131: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
132: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
145: X_AWARD_ID in NUMBER,
146: X_ATTRIBUTE1 in VARCHAR2,
147: X_MODE in VARCHAR2 default 'R'
148: ) is
149: cursor c1 is select rowid from PSP_TEMPLATE_AWARDS
150: where TEMPLATE_ID = X_TEMPLATE_ID
151: and AWARD_ID = X_AWARD_ID
152: ;
153: dummy c1%rowtype;
176: procedure DELETE_ROW (
177: X_TEMPLATE_ID in NUMBER
178: ) is
179: begin
180: delete from PSP_TEMPLATE_AWARDS
181: where TEMPLATE_ID = X_TEMPLATE_ID;
182: ---if (sql%notfound) then
183: ---raise no_data_found;
184: ---end if;
184: ---end if;
185: commit;
186: end DELETE_ROW;
187:
188: end PSP_TEMPLATE_AWARDS_PKG;