1: package body CS_SR_PREFERRED_LANG_PKG as
2: /* $Header: csxsrplb.pls 120.1 2005/06/20 07:26:43 appldev ship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID in out nocopy VARCHAR2, -- 4425768
29: X_LAST_UPDATE_DATE in DATE,
30: X_LAST_UPDATED_BY in NUMBER,
31: X_LAST_UPDATE_LOGIN in NUMBER
32: ) is
33: cursor C is select ROWID from CS_SR_PREFERRED_LANG
34: where PREF_LANG_ID = X_PREF_LANG_ID
35: ;
36: begin
37: insert into CS_SR_PREFERRED_LANG (
33: cursor C is select ROWID from CS_SR_PREFERRED_LANG
34: where PREF_LANG_ID = X_PREF_LANG_ID
35: ;
36: begin
37: insert into CS_SR_PREFERRED_LANG (
38: ATTRIBUTE_CATEGORY,
39: PREF_LANG_ID,
40: LANGUAGE_CODE,
41: START_DATE_ACTIVE,
144: ATTRIBUTE8,
145: ATTRIBUTE9,
146: ATTRIBUTE10,
147: OBJECT_VERSION_NUMBER
148: from CS_SR_PREFERRED_LANG
149: where PREF_LANG_ID = X_PREF_LANG_ID
150: for update of PREF_LANG_ID nowait;
151: recinfo c%rowtype;
152:
236: X_LAST_UPDATED_BY in NUMBER,
237: X_LAST_UPDATE_LOGIN in NUMBER
238: ) is
239: begin
240: update CS_SR_PREFERRED_LANG set
241: ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
242: LANGUAGE_CODE = X_LANGUAGE_CODE,
243: START_DATE_ACTIVE = X_START_DATE_ACTIVE,
244: END_DATE_ACTIVE = X_END_DATE_ACTIVE,
273: procedure DELETE_ROW (
274: X_PREF_LANG_ID in NUMBER
275: ) is
276: begin
277: delete from CS_SR_PREFERRED_LANG
278: where PREF_LANG_ID = X_PREF_LANG_ID;
279:
280: if (sql%notfound) then
281: raise no_data_found;
281: raise no_data_found;
282: end if;
283: end DELETE_ROW;
284:
285: end CS_SR_PREFERRED_LANG_PKG;