95: X_LAST_UPDATED_BY,
96: X_LAST_UPDATE_LOGIN
97: );
98:
99: insert into WMS_WP_PLANNING_CRITERIA_TL (
100: PLANNING_CRITERIA_ID,
101: PLANNING_CRITERIA,
102: CREATED_BY,
103: CREATION_DATE,
119: from FND_LANGUAGES L
120: where L.INSTALLED_FLAG in ('I', 'B')
121: and not exists
122: (select NULL
123: from WMS_WP_PLANNING_CRITERIA_TL T
124: where T.PLANNING_CRITERIA_ID = X_PLANNING_CRITERIA_ID
125: and T.LANGUAGE = L.LANGUAGE_CODE);
126:
127: open c;
188:
189: cursor c1 is select
190: PLANNING_CRITERIA,
191: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
192: from WMS_WP_PLANNING_CRITERIA_TL
193: where PLANNING_CRITERIA_ID = X_PLANNING_CRITERIA_ID
194: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
195: for update of PLANNING_CRITERIA_ID nowait;
196: begin
325: if (sql%notfound) then
326: raise no_data_found;
327: end if;
328:
329: update WMS_WP_PLANNING_CRITERIA_TL set
330: PLANNING_CRITERIA = X_PLANNING_CRITERIA,
331: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
332: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
333: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
343: procedure DELETE_ROW (
344: X_PLANNING_CRITERIA_ID in NUMBER
345: ) is
346: begin
347: delete from WMS_WP_PLANNING_CRITERIA_TL
348: where PLANNING_CRITERIA_ID = X_PLANNING_CRITERIA_ID;
349:
350: if (sql%notfound) then
351: raise no_data_found;
361:
362: procedure ADD_LANGUAGE
363: is
364: begin
365: delete from WMS_WP_PLANNING_CRITERIA_TL T
366: where not exists
367: (select NULL
368: from WMS_WP_PLANNING_CRITERIA_B B
369: where B.PLANNING_CRITERIA_ID = T.PLANNING_CRITERIA_ID
368: from WMS_WP_PLANNING_CRITERIA_B B
369: where B.PLANNING_CRITERIA_ID = T.PLANNING_CRITERIA_ID
370: );
371:
372: update WMS_WP_PLANNING_CRITERIA_TL T set (
373: PLANNING_CRITERIA
374: ) = (select
375: B.PLANNING_CRITERIA
376: from WMS_WP_PLANNING_CRITERIA_TL B
372: update WMS_WP_PLANNING_CRITERIA_TL T set (
373: PLANNING_CRITERIA
374: ) = (select
375: B.PLANNING_CRITERIA
376: from WMS_WP_PLANNING_CRITERIA_TL B
377: where B.PLANNING_CRITERIA_ID = T.PLANNING_CRITERIA_ID
378: and B.LANGUAGE = T.SOURCE_LANG)
379: where (
380: T.PLANNING_CRITERIA_ID,
381: T.LANGUAGE
382: ) in (select
383: SUBT.PLANNING_CRITERIA_ID,
384: SUBT.LANGUAGE
385: from WMS_WP_PLANNING_CRITERIA_TL SUBB, WMS_WP_PLANNING_CRITERIA_TL SUBT
386: where SUBB.PLANNING_CRITERIA_ID = SUBT.PLANNING_CRITERIA_ID
387: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
388: and (SUBB.PLANNING_CRITERIA <> SUBT.PLANNING_CRITERIA
389: or (SUBB.PLANNING_CRITERIA is null and SUBT.PLANNING_CRITERIA is not null)
389: or (SUBB.PLANNING_CRITERIA is null and SUBT.PLANNING_CRITERIA is not null)
390: or (SUBB.PLANNING_CRITERIA is not null and SUBT.PLANNING_CRITERIA is null)
391: ));
392:
393: insert into WMS_WP_PLANNING_CRITERIA_TL (
394: PLANNING_CRITERIA_ID,
395: PLANNING_CRITERIA,
396: CREATED_BY,
397: CREATION_DATE,
409: B.LAST_UPDATE_DATE,
410: B.LAST_UPDATE_LOGIN,
411: L.LANGUAGE_CODE,
412: B.SOURCE_LANG
413: from WMS_WP_PLANNING_CRITERIA_TL B, FND_LANGUAGES L
414: where L.INSTALLED_FLAG in ('I', 'B')
415: and B.LANGUAGE = userenv('LANG')
416: and not exists
417: (select NULL
414: where L.INSTALLED_FLAG in ('I', 'B')
415: and B.LANGUAGE = userenv('LANG')
416: and not exists
417: (select NULL
418: from WMS_WP_PLANNING_CRITERIA_TL T
419: where T.PLANNING_CRITERIA_ID = B.PLANNING_CRITERIA_ID
420: and T.LANGUAGE = L.LANGUAGE_CODE);
421: end ADD_LANGUAGE;
422: