115: -- Added the following code as a part of Zero Downtime Patching Project.
116: -- Code Starts Here.
117: --
118: per_ric_pkg.Chk_integrity (
119: p_entity_name=> 'HR_DOCUMENT_TYPES_TL',
120: p_ref_entity=> 'HR_DOCUMENT_TYPES',
121: p_ref_column_name=>'DOCUMENT_TYPE_ID',
122: p_ref_col_value_number=>X_DOCUMENT_TYPE_ID,
123: p_ref_col_value_varchar=>NULL,
126: --
127: -- Code Ends Here
128: --
129:
130: insert into HR_DOCUMENT_TYPES_TL (
131: DOCUMENT_TYPE_ID,
132: DOCUMENT_TYPE,
133: DESCRIPTION,
134: CREATED_BY,
152: from FND_LANGUAGES L
153: where L.INSTALLED_FLAG in ('I', 'B')
154: and not exists
155: (select NULL
156: from HR_DOCUMENT_TYPES_TL T
157: where T.DOCUMENT_TYPE_ID = X_DOCUMENT_TYPE_ID
158: and T.LANGUAGE = L.LANGUAGE_CODE);
159:
160: end INSERT_ROW;
194: if (sql%notfound) then
195: raise no_data_found;
196: end if;
197:
198: update HR_DOCUMENT_TYPES_TL set
199: DOCUMENT_TYPE = X_DOCUMENT_TYPE,
200: DESCRIPTION = X_DESCRIPTION,
201: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
202: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
214: procedure DELETE_ROW (
215: X_DOCUMENT_TYPE_ID in NUMBER
216: ) is
217: begin
218: delete from HR_DOCUMENT_TYPES_TL
219: where DOCUMENT_TYPE_ID = X_DOCUMENT_TYPE_ID;
220:
221: if (sql%notfound) then
222: raise no_data_found;
227: -- Code Starts Here.
228: --
229: per_ric_pkg.Chk_integrity (
230: p_entity_name=> 'HR_DOCUMENT_TYPES',
231: p_ref_entity=> 'HR_DOCUMENT_TYPES_TL',
232: p_ref_column_name=>'DOCUMENT_TYPE_ID',
233: p_ref_col_value_number=>X_DOCUMENT_TYPE_ID,
234: p_ref_col_value_varchar=>NULL,
235: p_ref_col_value_date=>NULL,
247: --
248: procedure ADD_LANGUAGE
249: is
250: begin
251: delete from HR_DOCUMENT_TYPES_TL T
252: where not exists
253: (select NULL
254: from HR_DOCUMENT_TYPES B
255: where B.DOCUMENT_TYPE_ID = T.DOCUMENT_TYPE_ID
254: from HR_DOCUMENT_TYPES B
255: where B.DOCUMENT_TYPE_ID = T.DOCUMENT_TYPE_ID
256: );
257:
258: update HR_DOCUMENT_TYPES_TL T set (
259: DOCUMENT_TYPE
260: ) = (select
261: B.DOCUMENT_TYPE
262: from HR_DOCUMENT_TYPES_TL B
258: update HR_DOCUMENT_TYPES_TL T set (
259: DOCUMENT_TYPE
260: ) = (select
261: B.DOCUMENT_TYPE
262: from HR_DOCUMENT_TYPES_TL B
263: where B.DOCUMENT_TYPE_ID = T.DOCUMENT_TYPE_ID
264: and B.LANGUAGE = T.SOURCE_LANGUAGE)
265: where (
266: T.DOCUMENT_TYPE_ID,
267: T.LANGUAGE
268: ) in (select
269: SUBT.DOCUMENT_TYPE_ID,
270: SUBT.LANGUAGE
271: from HR_DOCUMENT_TYPES_TL SUBB, HR_DOCUMENT_TYPES_TL SUBT
272: where SUBB.DOCUMENT_TYPE_ID = SUBT.DOCUMENT_TYPE_ID
273: and SUBB.LANGUAGE = SUBT.SOURCE_LANGUAGE
274: and (SUBB.DOCUMENT_TYPE <> SUBT.DOCUMENT_TYPE
275: ));
273: and SUBB.LANGUAGE = SUBT.SOURCE_LANGUAGE
274: and (SUBB.DOCUMENT_TYPE <> SUBT.DOCUMENT_TYPE
275: ));
276:
277: insert into HR_DOCUMENT_TYPES_TL (
278: DOCUMENT_TYPE_ID,
279: DOCUMENT_TYPE,
280: DESCRIPTION,
281: CREATED_BY,
295: B.LAST_UPDATE_DATE,
296: B.LAST_UPDATE_LOGIN,
297: L.LANGUAGE_CODE,
298: B.SOURCE_LANGUAGE
299: from HR_DOCUMENT_TYPES_TL B, FND_LANGUAGES L
300: where L.INSTALLED_FLAG in ('I', 'B')
301: and B.LANGUAGE = userenv('LANG')
302: and not exists
303: (select NULL
300: where L.INSTALLED_FLAG in ('I', 'B')
301: and B.LANGUAGE = userenv('LANG')
302: and not exists
303: (select NULL
304: from HR_DOCUMENT_TYPES_TL T
305: where T.DOCUMENT_TYPE_ID = B.DOCUMENT_TYPE_ID
306: and T.LANGUAGE = L.LANGUAGE_CODE);
307: end ADD_LANGUAGE;
308:
415: X_LAST_UPDATED_BY,
416: X_LAST_UPDATE_LOGIN
417: );
418: --
419: update HR_DOCUMENT_TYPES_TL
420: set DOCUMENT_TYPE = X_DOCUMENT_TYPE,
421: DESCRIPTION = X_DESCRIPTION,
422: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
423: LAST_UPDATED_BY = X_LAST_UPDATED_BY,