DBA Data[Home] [Help]

APPS.WF_WL_LISTS_PKG dependencies on WF_WL_LISTS

Line 1: package body WF_WL_LISTS_PKG as

1: package body WF_WL_LISTS_PKG as
2: /* $Header: wfwllstb.pls 120.0.12020000.4 2013/05/15 21:26:41 alsosa noship $ */
3: function FIND_LIST_ID(p_list_key in VARCHAR2) return number is
4: l_list_id number;
5: begin

Line 7: from WF_WL_LISTS

3: function FIND_LIST_ID(p_list_key in VARCHAR2) return number is
4: l_list_id number;
5: begin
6: select LIST_ID into l_list_id
7: from WF_WL_LISTS
8: where LIST_KEY=p_list_key;
9: return l_list_id;
10: exception
11: when others then

Line 28: raise_application_error (-20000, 'WF_WL_LISTS_PKG.FIND_USER_ID: unable to find user '||p_user_name);

24: end if;
25: return l_user_id;
26: exception
27: when others then
28: raise_application_error (-20000, 'WF_WL_LISTS_PKG.FIND_USER_ID: unable to find user '||p_user_name);
29: end FIND_USER_ID;
30:
31: procedure INSERT_LIST_BY_KEY (X_LIST_KEY in VARCHAR2,
32: X_USER_NAME in VARCHAR2,

Line 43: cursor c_newrow is select ROWID from WF_WL_LISTS

39: X_DESCRIPTION in VARCHAR2,
40: X_OWNER IN VARCHAR2,
41: X_LAST_UPDATE_DATE IN VARCHAR2)
42: is
43: cursor c_newrow is select ROWID from WF_WL_LISTS
44: where LIST_KEY = X_LIST_KEY;
45: X_ROWID VARCHAR2(30);
46: l_user_id number := FIND_USER_ID(X_USER_NAME);
47: l_luby number := FND_LOAD_UTIL.OWNER_ID(X_OWNER);

Line 50: insert into WF_WL_LISTS (LIST_ID,

46: l_user_id number := FIND_USER_ID(X_USER_NAME);
47: l_luby number := FND_LOAD_UTIL.OWNER_ID(X_OWNER);
48: l_ludate date := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
49: begin
50: insert into WF_WL_LISTS (LIST_ID,
51: LIST_KEY,
52: USER_ID,
53: APPLICATION_ID,
54: STATUS,

Line 64: values (WF_WL_LISTS_S.NEXTVAL,

60: LAST_UPDATE_DATE,
61: LAST_UPDATED_BY,
62: LAST_UPDATE_LOGIN,
63: SECURITY_GROUP_ID)
64: values (WF_WL_LISTS_S.NEXTVAL,
65: X_LIST_KEY,
66: l_user_id,
67: X_APPLICATION_ID,
68: X_STATUS,

Line 78: insert into WF_WL_LISTS_TL (LIST_ID,

74: l_ludate, --LAST_UPDATE_DATE,
75: l_luby, --LAST_UPDATED_BY,
76: 0, --LAST_UPDATE_LOGIN,
77: FND_GLOBAL.SECURITY_GROUP_ID);
78: insert into WF_WL_LISTS_TL (LIST_ID,
79: LIST_NAME,
80: DESCRIPTION,
81: LANGUAGE,
82: SOURCE_LANG,

Line 89: select WF_WL_LISTS_S.CURRVAL,

85: LAST_UPDATE_DATE,
86: LAST_UPDATED_BY,
87: LAST_UPDATE_LOGIN,
88: SECURITY_GROUP_ID)
89: select WF_WL_LISTS_S.CURRVAL,
90: X_LIST_NAME,
91: X_DESCRIPTION,
92: L.LANGUAGE_CODE,
93: userenv('LANG'),

Line 104: from WF_WL_LISTS_TL TL, WF_WL_LISTS B

100: from FND_LANGUAGES L
101: where L.INSTALLED_FLAG in ('I', 'B')
102: and not exists
103: (select NULL
104: from WF_WL_LISTS_TL TL, WF_WL_LISTS B
105: where B.LIST_ID = TL.LIST_ID and
106: B.LIST_KEY = X_LIST_KEY and
107: TL.LANGUAGE = L.LANGUAGE_CODE);
108:

Line 113: raise_application_error (-20000, 'WF_WL_LISTS_PKG.INSERT_LIST_BY_KEY: unable to create list '||X_LIST_KEY);

109: open c_newrow;
110: fetch c_newrow into X_ROWID;
111: if (c_newrow%notfound) then
112: close c_newrow;
113: raise_application_error (-20000, 'WF_WL_LISTS_PKG.INSERT_LIST_BY_KEY: unable to create list '||X_LIST_KEY);
114: end if;
115: close c_newrow;
116: end INSERT_LIST_BY_KEY;
117:

Line 135: update WF_WL_LISTS B

131: l_user_id number := FIND_USER_ID(X_USER_NAME);
132: l_luby number := FND_LOAD_UTIL.OWNER_ID(X_OWNER);
133: l_ludate date := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
134: begin
135: update WF_WL_LISTS B
136: set B.USER_ID = l_user_id,
137: B.APPLICATION_ID = X_APPLICATION_ID,
138: B.STATUS = X_STATUS,
139: B.FILTER_CONDITION = X_FILTER_CONDITION,

Line 173: insert into WF_WL_LISTS_TL (LIST_ID,

169: end UPDATE_LIST_BY_KEY;
170:
171: procedure ADD_LANGUAGE is
172: begin
173: insert into WF_WL_LISTS_TL (LIST_ID,
174: LIST_NAME,
175: DESCRIPTION,
176: LANGUAGE,
177: SOURCE_LANG,

Line 195: from WF_WL_LISTS_TL B, FND_LANGUAGES L

191: B.LAST_UPDATE_DATE,
192: B.LAST_UPDATED_BY,
193: B.LAST_UPDATE_LOGIN,
194: B.SECURITY_GROUP_ID
195: from WF_WL_LISTS_TL B, FND_LANGUAGES L
196: where L.INSTALLED_FLAG in ('I', 'B')
197: and B.LANGUAGE=userenv('LANG')
198: and not exists
199: (select NULL

Line 200: from WF_WL_LISTS_TL TL

196: where L.INSTALLED_FLAG in ('I', 'B')
197: and B.LANGUAGE=userenv('LANG')
198: and not exists
199: (select NULL
200: from WF_WL_LISTS_TL TL
201: where B.LIST_ID = TL.LIST_ID and
202: TL.LANGUAGE = L.LANGUAGE_CODE);
203: exception
204: when others then

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

201: where B.LIST_ID = TL.LIST_ID and
202: TL.LANGUAGE = L.LANGUAGE_CODE);
203: exception
204: when others then
205: raise_application_error (-20000, 'WF_WL_LISTS_PKG.ADD_LANGUAGE: unable to add '||userenv('LANG')||' translation due to error '||sqlcode);
206: end ADD_LANGUAGE;
207:
208: procedure TRANSLATE_LIST_BY_KEY (X_LIST_KEY in VARCHAR2,
209: X_LIST_NAME in VARCHAR2,

Line 217: UPDATE WF_WL_LISTS_TL TL

213: l_list_id number := FIND_LIST_ID(X_LIST_KEY);
214: l_luby number := FND_LOAD_UTIL.OWNER_ID(X_OWNER);
215: l_ludate date := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
216: BEGIN
217: UPDATE WF_WL_LISTS_TL TL
218: SET TL.LIST_NAME = X_LIST_NAME,
219: TL.DESCRIPTION = X_DESCRIPTION,
220: TL.SOURCE_LANG = userenv('LANG'),
221: TL.LAST_UPDATE_DATE = l_ludate,

Line 227: raise_application_error (-20000, 'WF_WL_LISTS_PKG.TRANSLATE_LIST_BY_KEY: unable to translate list '||X_LIST_KEY||'. Ensure base language is uploaded first');

223: TL.LAST_UPDATE_LOGIN = 0
224: WHERE LIST_ID = l_list_id and
225: userenv('LANG') in (LANGUAGE,SOURCE_LANG);
226: IF (sql%rowcount=0) THEN
227: raise_application_error (-20000, 'WF_WL_LISTS_PKG.TRANSLATE_LIST_BY_KEY: unable to translate list '||X_LIST_KEY||'. Ensure base language is uploaded first');
228: END IF;
229: end TRANSLATE_LIST_BY_KEY;
230:
231: procedure INSERT_FAVORITE_BY_KEY (X_LIST_KEY in VARCHAR2,

Line 242: raise_application_error (-20000, 'WF_WL_LISTS_PKG.INSERT_FAVORITE_BY_KEY: null value(s) when creating favorite list '||X_LIST_KEY||' for user '||X_USER_NAME);

238: l_luby number := FND_LOAD_UTIL.OWNER_ID(X_OWNER);
239: l_ludate date := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
240: begin
241: if l_list_id is null or l_user_id is null then
242: raise_application_error (-20000, 'WF_WL_LISTS_PKG.INSERT_FAVORITE_BY_KEY: null value(s) when creating favorite list '||X_LIST_KEY||' for user '||X_USER_NAME);
243: end if;
244: insert into WF_WL_FAVORITE_LISTS (LIST_ID,
245: USER_ID,
246: SEQUENCE,

Line 264: raise_application_error (-20000, 'WF_WL_LISTS_PKG.INSERT_FAVORITE_BY_KEY: unable to create favorite list '||X_LIST_KEY||' for user '||X_USER_NAME||'. '||SQLCODE);

260: 0, --LAST_UPDATE_LOGIN,
261: FND_GLOBAL.SECURITY_GROUP_ID);
262: exception
263: when others then
264: raise_application_error (-20000, 'WF_WL_LISTS_PKG.INSERT_FAVORITE_BY_KEY: unable to create favorite list '||X_LIST_KEY||' for user '||X_USER_NAME||'. '||SQLCODE);
265: end INSERT_FAVORITE_BY_KEY;
266:
267: procedure UPDATE_FAVORITE_BY_KEY (X_LIST_KEY in VARCHAR2,
268: X_USER_NAME in VARCHAR2,

Line 293: raise_application_error (-20000, 'WF_WL_LISTS_PKG.UPDATE_FAVORITE_BY_KEY: unable to update favorite list '||X_LIST_KEY||' for user '||X_USER_NAME||'. '||SQLCODE);

289: X_LAST_UPDATE_DATE => UPDATE_FAVORITE_BY_KEY.X_LAST_UPDATE_DATE);
290: end if;
291: exception
292: when others then
293: raise_application_error (-20000, 'WF_WL_LISTS_PKG.UPDATE_FAVORITE_BY_KEY: unable to update favorite list '||X_LIST_KEY||' for user '||X_USER_NAME||'. '||SQLCODE);
294: end UPDATE_FAVORITE_BY_KEY;
295:
296: end WF_WL_LISTS_PKG;

Line 296: end WF_WL_LISTS_PKG;

292: when others then
293: raise_application_error (-20000, 'WF_WL_LISTS_PKG.UPDATE_FAVORITE_BY_KEY: unable to update favorite list '||X_LIST_KEY||' for user '||X_USER_NAME||'. '||SQLCODE);
294: end UPDATE_FAVORITE_BY_KEY;
295:
296: end WF_WL_LISTS_PKG;