[Home] [Help]
1: package body CS_CP_LANGUAGES_PKG as
2: /* $Header: csxtcplb.pls 115.1 2000/02/01 16:37:18 pkm ship $*/
3: procedure INSERT_ROW (
4: X_ROWID in out VARCHAR2,
5: X_CP_LANGUAGE_ID in out NUMBER,
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_CP_LANGUAGES
34: where CP_LANGUAGE_ID = X_CP_LANGUAGE_ID;
35: begin
36:
37: select cs_cp_languages_s.nextval into x_cp_language_id from dual;
33: cursor C is select ROWID from CS_CP_LANGUAGES
34: where CP_LANGUAGE_ID = X_CP_LANGUAGE_ID;
35: begin
36:
37: select cs_cp_languages_s.nextval into x_cp_language_id from dual;
38:
39: insert into CS_CP_LANGUAGES (
40: CP_LANGUAGE_ID,
41: LANGUAGE_CODE,
35: begin
36:
37: select cs_cp_languages_s.nextval into x_cp_language_id from dual;
38:
39: insert into CS_CP_LANGUAGES (
40: CP_LANGUAGE_ID,
41: LANGUAGE_CODE,
42: CUSTOMER_PRODUCT_ID,
43: START_DATE_ACTIVE,
148: ATTRIBUTE15,
149: CONTEXT,
150: OBJECT_VERSION_NUMBER,
151: ATTRIBUTE1
152: from CS_CP_LANGUAGES
153: where CP_LANGUAGE_ID = X_CP_LANGUAGE_ID
154: for update of CP_LANGUAGE_ID nowait;
155: begin
156: for tlinfo in c1 loop
229: X_LAST_UPDATED_BY in NUMBER,
230: X_LAST_UPDATE_LOGIN in NUMBER
231: ) is
232: begin
233: update CS_CP_LANGUAGES set
234: LANGUAGE_CODE = X_LANGUAGE_CODE,
235: CUSTOMER_PRODUCT_ID = X_CUSTOMER_PRODUCT_ID,
236: START_DATE_ACTIVE = X_START_DATE_ACTIVE,
237: END_DATE_ACTIVE = X_END_DATE_ACTIVE,
267: procedure DELETE_ROW (
268: X_CP_LANGUAGE_ID in NUMBER
269: ) is
270: begin
271: delete from CS_CP_LANGUAGES
272: where CP_LANGUAGE_ID = X_CP_LANGUAGE_ID;
273:
274: if (sql%notfound) then
275: raise no_data_found;
276: end if;
277:
278: end DELETE_ROW;
279:
280: end CS_CP_LANGUAGES_PKG;