7: procedure setMode
8: is
9: uname varchar2(320);
10: begin
11: if WF_EVENTS_PKG.g_Mode is null then
12: wfa_sec.GetSession(uname);
13: end if;
14:
15: if uname = WF_EVENTS_PKG.g_SeedUser then
11: if WF_EVENTS_PKG.g_Mode is null then
12: wfa_sec.GetSession(uname);
13: end if;
14:
15: if uname = WF_EVENTS_PKG.g_SeedUser then
16: WF_EVENTS_PKG.g_Mode := 'FORCE';
17: else
18: WF_EVENTS_PKG.g_Mode := 'CUSTOM';
19: end if;
12: wfa_sec.GetSession(uname);
13: end if;
14:
15: if uname = WF_EVENTS_PKG.g_SeedUser then
16: WF_EVENTS_PKG.g_Mode := 'FORCE';
17: else
18: WF_EVENTS_PKG.g_Mode := 'CUSTOM';
19: end if;
20:
14:
15: if uname = WF_EVENTS_PKG.g_SeedUser then
16: WF_EVENTS_PKG.g_Mode := 'FORCE';
17: else
18: WF_EVENTS_PKG.g_Mode := 'CUSTOM';
19: end if;
20:
21: end setMode;
22:
26: procedure FWKsetMode
27: is
28: uname varchar2(320);
29: begin
30: if WF_EVENTS_PKG.g_Mode is null then
31: uname := wfa_sec.GetFWKUserName;
32: end if;
33:
34: if uname = WF_EVENTS_PKG.g_SeedUser then
30: if WF_EVENTS_PKG.g_Mode is null then
31: uname := wfa_sec.GetFWKUserName;
32: end if;
33:
34: if uname = WF_EVENTS_PKG.g_SeedUser then
35: WF_EVENTS_PKG.g_Mode := 'FORCE';
36: else
37: WF_EVENTS_PKG.g_Mode := 'CUSTOM';
38: end if;
31: uname := wfa_sec.GetFWKUserName;
32: end if;
33:
34: if uname = WF_EVENTS_PKG.g_SeedUser then
35: WF_EVENTS_PKG.g_Mode := 'FORCE';
36: else
37: WF_EVENTS_PKG.g_Mode := 'CUSTOM';
38: end if;
39: end FWKsetMode;
33:
34: if uname = WF_EVENTS_PKG.g_SeedUser then
35: WF_EVENTS_PKG.g_Mode := 'FORCE';
36: else
37: WF_EVENTS_PKG.g_Mode := 'CUSTOM';
38: end if;
39: end FWKsetMode;
40:
41: end WF_EVENTS_APPS_PKG;