DBA Data[Home] [Help]

APPS.WF_WL_VIEWS_PKG dependencies on WF_WL_VIEWS

Line 1: package body WF_WL_VIEWS_PKG as

1: package body WF_WL_VIEWS_PKG as
2: /* $Header: wfwlvwsb.pls 120.0.12020000.4 2013/05/15 21:24:52 alsosa noship $ */
3: g_mode varchar2(10);
4:
5: procedure LoaderSetMode(x_mode in varchar2) is

Line 35: l_view_key WF_WL_VIEWS.VIEW_KEY%TYPE;

31: end if;
32: end is_update_allowed;
33:
34: function FIND_VIEW_KEY(x_view_id in number) return varchar2 is
35: l_view_key WF_WL_VIEWS.VIEW_KEY%TYPE;
36: begin
37: if x_view_id is null then
38: return null;
39: end if;

Line 41: from WF_WL_VIEWS

37: if x_view_id is null then
38: return null;
39: end if;
40: select VIEW_KEY into l_view_key
41: from WF_WL_VIEWS
42: where VIEW_ID=x_view_id;
43: return l_view_key;
44: exception
45: when others then

Line 46: raise_application_error (-20000, 'WF_WL_VIEWS_PKG.FIND_VIEW_KEY: unable to find viewid '||l_view_key);

42: where VIEW_ID=x_view_id;
43: return l_view_key;
44: exception
45: when others then
46: raise_application_error (-20000, 'WF_WL_VIEWS_PKG.FIND_VIEW_KEY: unable to find viewid '||l_view_key);
47: end FIND_VIEW_KEY;
48:
49: function FIND_VIEW_ID(X_KEY in VARCHAR2) return number is
50: l_view_id number;

Line 53: from WF_WL_VIEWS

49: function FIND_VIEW_ID(X_KEY in VARCHAR2) return number is
50: l_view_id number;
51: begin
52: select VIEW_ID into l_view_id
53: from WF_WL_VIEWS
54: where VIEW_KEY=X_KEY;
55: return l_view_id;
56: exception
57: when others then

Line 58: raise_application_error (-20000, 'WF_WL_VIEWS_PKG.FIND_VIEW_ID: unable to find view '||X_KEY);

54: where VIEW_KEY=X_KEY;
55: return l_view_id;
56: exception
57: when others then
58: raise_application_error (-20000, 'WF_WL_VIEWS_PKG.FIND_VIEW_ID: unable to find view '||X_KEY);
59: end FIND_VIEW_ID;
60:
61: function fetch_custom_level (p_view_key in varchar2) return varchar2 is
62: l_custom_level varchar2(1);

Line 66: from WF_WL_VIEWS

62: l_custom_level varchar2(1);
63: l_view_id number := FIND_VIEW_ID(p_view_key);
64: begin
65: select CUSTOMIZATION_LEVEL into l_custom_level
66: from WF_WL_VIEWS
67: where VIEW_ID=l_view_id;
68: return l_custom_level;
69: end fetch_custom_level;
70:

Line 90: cursor c_newrow is select ROWID from WF_WL_VIEWS

86: X_DESCRIPTION in VARCHAR2,
87: X_OWNER IN VARCHAR2,
88: X_LAST_UPDATE_DATE IN VARCHAR2)
89: is
90: cursor c_newrow is select ROWID from WF_WL_VIEWS
91: where VIEW_KEY = X_VIEW_KEY;
92: l_rowid varchar2(30);
93: l_luby number;
94: l_ludate date;

Line 101: insert into WF_WL_VIEWS (VIEW_ID,

97: l_luby := fnd_load_util.OWNER_ID(x_owner);
98: -- Translate char last_update_date to date
99: l_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
100:
101: insert into WF_WL_VIEWS (VIEW_ID,
102: VIEW_KEY,
103: PARENT_VIEW_ID,
104: VIEW_TYPE,
105: APPLICATION_MODULE,

Line 122: values (WF_WL_VIEWS_S.NEXTVAL,

118: LAST_UPDATE_DATE,
119: LAST_UPDATED_BY,
120: LAST_UPDATE_LOGIN,
121: SECURITY_GROUP_ID)
122: values (WF_WL_VIEWS_S.NEXTVAL,
123: X_VIEW_KEY,
124: X_PARENT_VIEW_ID,
125: X_VIEW_TYPE,
126: X_APPLICATION_MODULE,

Line 143: insert into WF_WL_VIEWS_TL (VIEW_ID, TITLE,

139: l_ludate, -- X_LAST_UPDATE_DATE,
140: l_luby, -- X_LAST_UPDATED_BY,
141: 0, -- X_LAST_UPDATE_LOGIN,
142: FND_GLOBAL.SECURITY_GROUP_ID);
143: insert into WF_WL_VIEWS_TL (VIEW_ID, TITLE,
144: DESCRIPTION,
145: LANGUAGE,
146: SOURCE_LANG,
147: CREATION_DATE,

Line 153: select WF_WL_VIEWS_S.CURRVAL,

149: LAST_UPDATE_DATE,
150: LAST_UPDATED_BY,
151: LAST_UPDATE_LOGIN,
152: SECURITY_GROUP_ID)
153: select WF_WL_VIEWS_S.CURRVAL,
154: X_TITLE, X_DESCRIPTION,
155: L.LANGUAGE_CODE,
156: userenv('LANG'),
157: l_ludate,

Line 167: from WF_WL_VIEWS_TL TL, WF_WL_VIEWS B

163: from FND_LANGUAGES L
164: where L.INSTALLED_FLAG in ('I', 'B')
165: and not exists
166: (select NULL
167: from WF_WL_VIEWS_TL TL, WF_WL_VIEWS B
168: where B.VIEW_ID = TL.VIEW_ID and
169: B.VIEW_KEY = X_VIEW_KEY and
170: TL.LANGUAGE = L.LANGUAGE_CODE);
171:

Line 176: raise_application_error (-20000, 'WF_WL_VIEWS_PKG.INSERT_VIEW_BY_KEY: unable to create view '||X_VIEW_KEY);

172: open c_newrow;
173: fetch c_newrow into l_rowid ;
174: if (c_newrow%notfound) then
175: close c_newrow;
176: raise_application_error (-20000, 'WF_WL_VIEWS_PKG.INSERT_VIEW_BY_KEY: unable to create view '||X_VIEW_KEY);
177: end if;
178: close c_newrow;
179: end INSERT_VIEW_BY_KEY;
180:

Line 200: l_parent_view_id WF_WL_VIEWS.PARENT_VIEW_ID%TYPE;

196: X_DESCRIPTION in VARCHAR2,
197: X_OWNER IN VARCHAR2,
198: X_LAST_UPDATE_DATE IN VARCHAR2) is
199: l_custom_level varchar2(1);
200: l_parent_view_id WF_WL_VIEWS.PARENT_VIEW_ID%TYPE;
201: l_luby number;
202: l_ludate date;
203: begin
204: -- Translate owner to file_last_updated_by

Line 214: update WF_WL_VIEWS B

210: if X_PARENT_VIEW is not null then
211: l_parent_view_id := FIND_VIEW_ID (X_PARENT_VIEW);
212: end if;
213: if g_mode='FORCE' or (X_CUSTOMIZATION_LEVEL = 'C' and g_mode = 'UPGRADE') then
214: update WF_WL_VIEWS B
215: set B.VIEW_TYPE = X_VIEW_TYPE,
216: B.PARENT_VIEW_ID = l_parent_view_id,
217: B.APPLICATION_MODULE = X_APPLICATION_MODULE,
218: B.AM_IMPL_CLASS = X_AM_IMPL_CLASS,

Line 240: update WF_WL_VIEWS B

236: -- In FNDLOAD there are only two modes: FORCE and UPGRADE. If we are here it means
237: -- that g_mode='UPGRADE' and X_CUSTOMIZATION_LEVEL<>'C'
238: l_custom_level := fetch_custom_level(X_VIEW_KEY);
239: if is_update_allowed(X_CUSTOMIZATION_LEVEL, l_custom_level) = 'Y' then
240: update WF_WL_VIEWS B
241: set B.STATUS = X_STATUS,
242: B.LAST_UPDATE_DATE = l_ludate, -- X_LAST_UPDATE_DATE,
243: B.LAST_UPDATED_BY = l_luby, -- X_LAST_UPDATED_BY,
244: B.LAST_UPDATE_LOGIN = 0

Line 250: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.UPDATE_VIEW_BY_KEY unable to update view '||X_VIEW_KEY||' due to customization');

246: if (sql%notfound) then
247: raise no_data_found;
248: end if;
249: else
250: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.UPDATE_VIEW_BY_KEY unable to update view '||X_VIEW_KEY||' due to customization');
251: end if;
252: end if;
253:
254: TRANSLATE_VIEW_BY_KEY (X_VIEW_KEY => UPDATE_VIEW_BY_KEY.X_VIEW_KEY ,

Line 317: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.ADD_VIEW_ATTR_LANGUAGE unable to add '||userenv('LANG')||' translation due to error '||sqlcode);

313: TL.ATTRIBUTE_NAME = B.ATTRIBUTE_NAME and
314: TL.LANGUAGE = L.LANGUAGE_CODE);
315: exception
316: when others then
317: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.ADD_VIEW_ATTR_LANGUAGE unable to add '||userenv('LANG')||' translation due to error '||sqlcode);
318: end ADD_VIEW_ATTR_LANGUAGE;
319:
320: procedure ADD_LANGUAGE is
321: l_view_id WF_WL_VIEWS_TL.VIEW_ID%TYPE;

Line 321: l_view_id WF_WL_VIEWS_TL.VIEW_ID%TYPE;

317: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.ADD_VIEW_ATTR_LANGUAGE unable to add '||userenv('LANG')||' translation due to error '||sqlcode);
318: end ADD_VIEW_ATTR_LANGUAGE;
319:
320: procedure ADD_LANGUAGE is
321: l_view_id WF_WL_VIEWS_TL.VIEW_ID%TYPE;
322: l_language FND_LANGUAGES.LANGUAGE_CODE%TYPE;
323: begin
324: begin
325: insert into WF_WL_VIEWS_TL (VIEW_ID,

Line 325: insert into WF_WL_VIEWS_TL (VIEW_ID,

321: l_view_id WF_WL_VIEWS_TL.VIEW_ID%TYPE;
322: l_language FND_LANGUAGES.LANGUAGE_CODE%TYPE;
323: begin
324: begin
325: insert into WF_WL_VIEWS_TL (VIEW_ID,
326: TITLE,
327: DESCRIPTION,
328: LANGUAGE,
329: SOURCE_LANG,

Line 347: from WF_WL_VIEWS_TL B, FND_LANGUAGES L

343: B.LAST_UPDATE_DATE,
344: B.LAST_UPDATED_BY,
345: B.LAST_UPDATE_LOGIN,
346: B.SECURITY_GROUP_ID
347: from WF_WL_VIEWS_TL B, FND_LANGUAGES L
348: where L.INSTALLED_FLAG in ('I', 'B')
349: and B.LANGUAGE = userenv('LANG')
350: and not exists
351: (select NULL

Line 352: from WF_WL_VIEWS_TL T

348: where L.INSTALLED_FLAG in ('I', 'B')
349: and B.LANGUAGE = userenv('LANG')
350: and not exists
351: (select NULL
352: from WF_WL_VIEWS_TL T
353: where B.VIEW_ID = T.VIEW_ID
354: and T.LANGUAGE = L.LANGUAGE_CODE);
355: exception
356: when others then

Line 357: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.ADD_LANGUAGE unable to add '||userenv('LANG')||' translation due to error '||sqlcode);

353: where B.VIEW_ID = T.VIEW_ID
354: and T.LANGUAGE = L.LANGUAGE_CODE);
355: exception
356: when others then
357: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.ADD_LANGUAGE unable to add '||userenv('LANG')||' translation due to error '||sqlcode);
358: end;
359: ADD_VIEW_ATTR_LANGUAGE;
360: end ADD_LANGUAGE;
361:

Line 376: UPDATE WF_WL_VIEWS_TL TL

372: l_luby := fnd_load_util.OWNER_ID(x_owner);
373: -- Translate char last_update_date to date
374: l_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
375:
376: UPDATE WF_WL_VIEWS_TL TL
377: SET TL.TITLE = X_TITLE,
378: TL.DESCRIPTION = X_DESCRIPTION,
379: TL.SOURCE_LANG = userenv('LANG'),
380: TL.LAST_UPDATE_DATE = l_ludate,

Line 386: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.TRANSLATE_VIEW_BY_KEY unable to translate view '||X_VIEW_KEY||'. Ensure base language is uploaded first');

382: WHERE TL.VIEW_ID = l_view_id and
383: userenv('LANG') in (TL.LANGUAGE, TL.SOURCE_LANG);
384:
385: IF (sql%rowcount=0) THEN
386: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.TRANSLATE_VIEW_BY_KEY unable to translate view '||X_VIEW_KEY||'. Ensure base language is uploaded first');
387: END IF;
388:
389: end TRANSLATE_VIEW_BY_KEY;
390:

Line 474: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.INSERT_VIEW_ATTR_BY_KEY unable to create attribute '||X_ATTRIBUTE_NAME||' for view '||X_VIEW_KEY);

470: open c_newrow;
471: fetch c_newrow into l_row_id;
472: if (c_newrow%notfound) then
473: close c_newrow;
474: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.INSERT_VIEW_ATTR_BY_KEY unable to create attribute '||X_ATTRIBUTE_NAME||' for view '||X_VIEW_KEY);
475: end if;
476: close c_newrow;
477: end INSERT_VIEW_ATTR_BY_KEY;
478:

Line 558: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.TRANSLATE_VIEW_ATTR_BY_KEY unable to translate attribute '

554: WHERE TL.VIEW_ID = l_view_id and
555: TL.ATTRIBUTE_NAME = X_ATTRIBUTE_NAME and
556: userenv('LANG') in (TL.LANGUAGE, TL.SOURCE_LANG);
557: IF (sql%rowcount=0) THEN
558: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.TRANSLATE_VIEW_ATTR_BY_KEY unable to translate attribute '
559: ||X_ATTRIBUTE_NAME||' for view '||X_VIEW_KEY||'. Ensure base language is uploaded first');
560: END IF;
561: end TRANSLATE_VIEW_ATTR_BY_KEY;
562:

Line 611: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.INSERT_VIEW_PARAM_BY_KEY unable to create parameter '||X_PARAMETER_NAME||' for view '||X_VIEW_KEY);

607: open c_newrow;
608: fetch c_newrow into l_row_id;
609: if (c_newrow%notfound) then
610: close c_newrow;
611: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.INSERT_VIEW_PARAM_BY_KEY unable to create parameter '||X_PARAMETER_NAME||' for view '||X_VIEW_KEY);
612: end if;
613: close c_newrow;
614: end INSERT_VIEW_PARAM_BY_KEY;
615:

Line 687: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.INSERT_REGION_VIEW_BY_KEY unable to create region view '||X_REGION_KEY||'/'||X_VIEW_KEY);

683: exception
684: when DUP_VAL_ON_INDEX then
685: null; --The combination already exists. Nothing else to do
686: when others then
687: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.INSERT_REGION_VIEW_BY_KEY unable to create region view '||X_REGION_KEY||'/'||X_VIEW_KEY);
688: end INSERT_REGION_VIEW_BY_KEY;
689: end WF_WL_VIEWS_PKG;

Line 689: end WF_WL_VIEWS_PKG;

685: null; --The combination already exists. Nothing else to do
686: when others then
687: raise_application_error(-20000, 'WF_WL_VIEWS_PKG.INSERT_REGION_VIEW_BY_KEY unable to create region view '||X_REGION_KEY||'/'||X_VIEW_KEY);
688: end INSERT_REGION_VIEW_BY_KEY;
689: end WF_WL_VIEWS_PKG;