DBA Data[Home] [Help]

APPS.XDP_PROC_BODY_PKG dependencies on XDP_PROC_BODY

Line 1: PACKAGE BODY XDP_PROC_BODY_PKG AS

1: PACKAGE BODY XDP_PROC_BODY_PKG AS
2: /* $Header: XDPPBDYB.pls 120.2 2005/07/15 01:52:00 appldev ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in OUT NOCOPY VARCHAR2,
5: X_PROC_NAME in VARCHAR2,

Line 18: cursor C is select ROWID from XDP_PROC_BODY

14: X_LAST_UPDATED_BY in NUMBER,
15: X_LAST_UPDATE_LOGIN in NUMBER,
16: X_PROTECTED_FLAG in VARCHAR2 := 'N'
17: ) is
18: cursor C is select ROWID from XDP_PROC_BODY
19: where PROC_NAME = X_PROC_NAME
20: ;
21: lv_lob_i CLOB;
22: begin

Line 26: insert into XDP_PROC_BODY (

22: begin
23: -- Bug Fix 1489219.
24: -- Removed references to CLOB
25:
26: insert into XDP_PROC_BODY (
27: proc_name,
28: proc_type,
29: protected_flag,
30: proc_spec,

Line 52: insert into XDP_PROC_BODY_TL (

48: returning proc_body into lv_lob_i;
49:
50: dbms_lob.write(lv_lob_i, length(X_PROC_BODY), 1, X_PROC_BODY);
51:
52: insert into XDP_PROC_BODY_TL (
53: proc_name,
54: display_name,
55: description,
56: created_by,

Line 78: from XDP_PROC_BODY_TL T

74: from FND_LANGUAGES L
75: where L.INSTALLED_FLAG in ('I', 'B')
76: and not exists
77: (select NULL
78: from XDP_PROC_BODY_TL T
79: where T.PROC_NAME = X_PROC_NAME
80: and T.LANGUAGE = L.LANGUAGE_CODE);
81:
82: open c;

Line 105: from XDP_PROC_BODY

101: PROC_BODY,
102: PROC_SPEC,
103: PROC_TYPE,
104: PROTECTED_FLAG
105: from XDP_PROC_BODY
106: where PROC_NAME = X_PROC_NAME
107: for update of PROC_NAME nowait;
108: recinfo c%rowtype;
109:

Line 114: from XDP_PROC_BODY_TL

110: cursor c1 is select
111: DISPLAY_NAME,
112: DESCRIPTION,
113: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
114: from XDP_PROC_BODY_TL
115: where PROC_NAME = X_PROC_NAME
116: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
117: for update of PROC_NAME nowait;
118: begin

Line 172: update XDP_PROC_BODY

168:
169: -- Bug Fix 1489219.
170: -- Removed references to CLOB
171:
172: update XDP_PROC_BODY
173: set
174: proc_spec = X_PROC_SPEC,
175: proc_body = empty_clob(),
176: proc_type = X_PROC_TYPE,

Line 192: update XDP_PROC_BODY_TL

188:
189: DBMS_LOB.WRITE(lv_lob_u,length(X_PROC_BODY),1,X_PROC_BODY);
190:
191:
192: update XDP_PROC_BODY_TL
193: set
194: display_name = X_DISPLAY_NAME,
195: description = X_DESCRIPTION,
196: last_updated_by = X_LAST_UPDATED_BY,

Line 213: delete from XDP_PROC_BODY_TL

209: procedure DELETE_ROW (
210: X_PROC_NAME in VARCHAR2
211: ) is
212: begin
213: delete from XDP_PROC_BODY_TL
214: where PROC_NAME = X_PROC_NAME;
215:
216: if (sql%notfound) then
217: raise no_data_found;

Line 220: delete from XDP_PROC_BODY

216: if (sql%notfound) then
217: raise no_data_found;
218: end if;
219:
220: delete from XDP_PROC_BODY
221: where PROC_NAME = X_PROC_NAME;
222:
223: if (sql%notfound) then
224: raise no_data_found;

Line 231: delete from XDP_PROC_BODY_TL T

227:
228: procedure ADD_LANGUAGE
229: is
230: begin
231: delete from XDP_PROC_BODY_TL T
232: where not exists
233: (select NULL
234: from XDP_PROC_BODY B
235: where B.PROC_NAME = T.PROC_NAME

Line 234: from XDP_PROC_BODY B

230: begin
231: delete from XDP_PROC_BODY_TL T
232: where not exists
233: (select NULL
234: from XDP_PROC_BODY B
235: where B.PROC_NAME = T.PROC_NAME
236: );
237:
238:

Line 245: update XDP_PROC_BODY_TL T set (

241:
242: -- rephrased the query to use EXISTS ratherthan using IN
243: -- skilaru 03/26/2001
244:
245: update XDP_PROC_BODY_TL T set (
246: DISPLAY_NAME,
247: DESCRIPTION
248: ) = (select
249: B.DISPLAY_NAME,

Line 251: from XDP_PROC_BODY_TL B

247: DESCRIPTION
248: ) = (select
249: B.DISPLAY_NAME,
250: B.DESCRIPTION
251: from XDP_PROC_BODY_TL B
252: where B.PROC_NAME = T.PROC_NAME
253: and B.LANGUAGE = T.SOURCE_LANG)
254: where (
255: T.PROC_NAME,

Line 260: from XDP_PROC_BODY_TL SUBB, XDP_PROC_BODY_TL SUBT

256: T.LANGUAGE
257: ) in (select
258: SUBT.PROC_NAME,
259: SUBT.LANGUAGE
260: from XDP_PROC_BODY_TL SUBB, XDP_PROC_BODY_TL SUBT
261: where SUBB.PROC_NAME = SUBT.PROC_NAME
262: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
263: and (SUBB.DISPLAY_NAME <> SUBT.DISPLAY_NAME
264: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION

Line 272: update XDP_PROC_BODY_TL T

268:
269: *****/
270:
271:
272: update XDP_PROC_BODY_TL T
273: set ( DISPLAY_NAME, DESCRIPTION) = (select B.DISPLAY_NAME, B.DESCRIPTION
274: from XDP_PROC_BODY_TL B
275: where B.PROC_NAME = T.PROC_NAME
276: and B.LANGUAGE = T.SOURCE_LANG)

Line 274: from XDP_PROC_BODY_TL B

270:
271:
272: update XDP_PROC_BODY_TL T
273: set ( DISPLAY_NAME, DESCRIPTION) = (select B.DISPLAY_NAME, B.DESCRIPTION
274: from XDP_PROC_BODY_TL B
275: where B.PROC_NAME = T.PROC_NAME
276: and B.LANGUAGE = T.SOURCE_LANG)
277: where EXISTS (select SUBT.PROC_NAME, SUBT.LANGUAGE
278: from XDP_PROC_BODY_TL SUBB, XDP_PROC_BODY_TL SUBT

Line 278: from XDP_PROC_BODY_TL SUBB, XDP_PROC_BODY_TL SUBT

274: from XDP_PROC_BODY_TL B
275: where B.PROC_NAME = T.PROC_NAME
276: and B.LANGUAGE = T.SOURCE_LANG)
277: where EXISTS (select SUBT.PROC_NAME, SUBT.LANGUAGE
278: from XDP_PROC_BODY_TL SUBB, XDP_PROC_BODY_TL SUBT
279: where SUBB.PROC_NAME = SUBT.PROC_NAME
280: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
281: and (SUBB.DISPLAY_NAME <> SUBT.DISPLAY_NAME
282: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION

Line 290: insert into XDP_PROC_BODY_TL (

286: and SUBT.language = T.LANGUAGE
287: );
288:
289:
290: insert into XDP_PROC_BODY_TL (
291: PROC_NAME,
292: DISPLAY_NAME,
293: DESCRIPTION,
294: CREATED_BY,

Line 312: from XDP_PROC_BODY_TL B, FND_LANGUAGES L

308: B.LAST_UPDATE_DATE,
309: B.LAST_UPDATE_LOGIN,
310: L.LANGUAGE_CODE,
311: B.SOURCE_LANG
312: from XDP_PROC_BODY_TL B, FND_LANGUAGES L
313: where L.INSTALLED_FLAG in ('I', 'B')
314: and B.LANGUAGE = userenv('LANG')
315: and not exists
316: (select NULL

Line 317: from XDP_PROC_BODY_TL T

313: where L.INSTALLED_FLAG in ('I', 'B')
314: and B.LANGUAGE = userenv('LANG')
315: and not exists
316: (select NULL
317: from XDP_PROC_BODY_TL T
318: where T.PROC_NAME = B.PROC_NAME
319: and T.LANGUAGE = L.LANGUAGE_CODE);
320: end ADD_LANGUAGE;
321:

Line 346: XDP_PROC_BODY_PKG.UPDATE_ROW (

342: -- user_id := 1;
343: --end if;
344: user_id := fnd_load_util.owner_id(X_OWNER);
345:
346: XDP_PROC_BODY_PKG.UPDATE_ROW (
347: X_PROC_NAME => X_PROC_NAME,
348: X_PROC_SPEC => X_PROC_SPEC,
349: X_PROC_BODY => X_PROC_BODY,
350: X_PROC_TYPE => X_PROC_TYPE,

Line 360: XDP_PROC_BODY_PKG.INSERT_ROW (

356: X_PROTECTED_FLAG => X_PROTECTED_FLAG);
357:
358: exception
359: when NO_DATA_FOUND then
360: XDP_PROC_BODY_PKG.INSERT_ROW (
361: X_ROWID => row_id,
362: X_PROC_NAME => X_PROC_NAME,
363: X_PROC_SPEC => X_PROC_SPEC,
364: X_PROC_BODY => X_PROC_BODY,

Line 387: update XDP_PROC_BODY_TL

383: begin
384:
385: -- only update rows that have not been altered by user
386:
387: update XDP_PROC_BODY_TL
388: set description = X_DESCRIPTION,
389: display_name = X_DISPLAY_NAME,
390: source_lang = userenv('LANG'),
391: last_update_date = sysdate,

Line 401: end XDP_PROC_BODY_PKG;

397:
398: end TRANSLATE_ROW;
399:
400:
401: end XDP_PROC_BODY_PKG;