PACKAGE BODY: APPS.WF_EVENTS_APPS_PKG

Source

1 package body WF_EVENTS_APPS_PKG as
2 /* $Header: WFEVTAPB.pls 120.1 2005/07/02 08:18:28 appldev noship $ */
3 
4 -- This is called by the SSA Framework (wfehtmb.pls) only before calling any
5 -- table handlers
6 
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
16 	WF_EVENTS_PKG.g_Mode := 'FORCE';
17  else
18 	WF_EVENTS_PKG.g_Mode := 'CUSTOM';
19  end if;
20 
21 end setMode;
22 
23 ----------------------------------------------------------------------------
24 -- This is called by the OA Framework code before calling the table handlers
25 
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
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;