PACKAGE BODY: APPS.WF_BES_CLEANUP_INIT

Source

1 package body wf_bes_cleanup_init as
2 /* $Header: WFBESCUIB.pls 115.0 2002/08/21 19:28:21 gashford noship $ */
3 
4 --------------------------------------------------------------------------------
5 -- Initializes the apps context to SYSADMIN.
6 --------------------------------------------------------------------------------
7 procedure apps_initialize
8 is
9    l_user_id number;
10    l_resp_id number;
11    l_resp_appl_id number;
12 begin
13    select u.user_id
14    into l_user_id
15    from fnd_user u
16    where u.user_name = 'SYSADMIN';
17 
18    select r.application_id,
19           r.responsibility_id
20    into l_resp_appl_id,
21         l_resp_id
22    from fnd_application a,
23         fnd_responsibility r
24    where r.application_id = a.application_id
25    and a.application_short_name = 'SYSADMIN'
26    and r.responsibility_key = 'SYSTEM_ADMINISTRATOR';
27 
28    fnd_global.apps_initialize(user_id      => l_user_id,
29                               resp_id      => l_resp_id,
30                               resp_appl_id => l_resp_appl_id);
31 end apps_initialize;
32 
33 --------------------------------------------------------------------------------
34 procedure start_cleanup_process
35 is
36    l_request_id number;
37    l_phase varchar2(30);
38    l_status varchar2(30);
39    l_dev_phase varchar2(30);
40    l_dev_status varchar2(30);
41    l_message varchar2(2000);
42    l_request_status_return boolean;
43    l_repeat_options_return boolean;
44    l_submit_request_return number;
45 
46    l_cleanup_repeat_interval number;
47    l_cleanup_repeat_unit varchar2(30);
48    l_cleanup_repeat_type varchar2(30);
49    l_cleanup_app_short_name varchar2(50);
50    l_cleanup_program varchar2(30);
51 begin
52    l_cleanup_repeat_interval := 12;
53    l_cleanup_repeat_unit := 'HOURS';
54    l_cleanup_repeat_type := 'START';
55    l_cleanup_app_short_name := 'FND';
56    l_cleanup_program := 'FNDWFBES_CONTROL_QUEUE_CLEANUP';
57 
58   -- see if the cleanup process is already there
59 
60    l_request_status_return := fnd_concurrent.get_request_status(
61                                  request_id     => l_request_id,
62                                  appl_shortname => l_cleanup_app_short_name,
63                                  program        => l_cleanup_program,
64                                  phase          => l_phase,
65                                  status         => l_status,
66                                  dev_phase      => l_dev_phase,
67                                  dev_status     => l_dev_status,
68                                  message        => l_message);
69 
70    if(l_request_id is null) then
71       -- the cleanup request has never been submitted so submit it
72 
73       apps_initialize();
74 
75       l_repeat_options_return := fnd_request.set_repeat_options(
76                                     repeat_interval => l_cleanup_repeat_interval,
77                                     repeat_unit     => l_cleanup_repeat_unit,
78                                     repeat_type     => l_cleanup_repeat_type);
79 
80       l_submit_request_return := fnd_request.submit_request(
81                                     application => l_cleanup_app_short_name,
82                                     program     => l_cleanup_program);
83 
84       commit;
85    else
86       -- the cleanup request has already been submitted so no action is required
87 
88       null;
89    end if;
90 end start_cleanup_process;
91 
92 end wf_bes_cleanup_init;