PACKAGE BODY: APPS.PAY_PROC_ENVIRONMENT_PKG

Source

1 package body pay_proc_environment_pkg as
2 /* $Header: pycopenv.pkb 120.3.12010000.1 2008/07/27 22:22:46 appldev ship $ */
3 --
4 /*
5    update_pop_action_status
6 
7    This procedure updates the action population then issues a commit.
8 */
9 procedure update_pop_action_status(p_payroll_action_id in number,
10                                    p_status in varchar2)
11 is
12 begin
13 --
14    UPDATE PAY_PAYROLL_ACTIONS PAC
15    SET    PAC.ACTION_POPULATION_STATUS = p_status,
16           PAC.LAST_UPDATE_DATE         = SYSDATE,
17           PAC.LAST_UPDATED_BY          = g_user_id,
18           PAC.LAST_UPDATE_LOGIN        = g_login_id
19    WHERE  PAC.PAYROLL_ACTION_ID        = p_payroll_action_id;
20 --
21    commit;
22 --
23 end update_pop_action_status;
24 --
25 /*
26    initialise_proc_env
27 
28    Initialise the process env.
29 */
30 procedure initialise_proc_env
31 is
32 begin
33 --
34    process_env_type := TRUE;
35 --
36    /* need to setup the trace options */
37 --
38    if (instr(pay_proc_environment_pkg.logging_category,
39              pay_proc_logging.PY_INTRSQL) <> 0) then
40 --
41      if (instr(pay_proc_environment_pkg.logging_category,
42              pay_proc_logging.PY_HRTRACE) <> 0) then
43 --
44         hr_utility.trace_on;
45         hr_utility.set_trace_options('TRACE_DEST:PAY_LOG');
46 --
47      end if;
48 --
49      pay_proc_logging.init_logging;
50 --
51    end if;
52 
53    if (instr(pay_proc_environment_pkg.logging_category,
54              pay_proc_logging.PY_FORMULA) <> 0)
55    then
56      pay_proc_logging.init_form_logging;
57    end if;
58 
59 
60 --
61 end initialise_proc_env;
62 --
63 /*
64    deinitialise_proc_env
65 
66    Deinitialise the process env.
67 */
68 procedure deinitialise_proc_env
69 is
70 begin
71 --
72    /* need to setup the trace options */
73 --
74    if (instr(pay_proc_environment_pkg.logging_category,
75              pay_proc_logging.PY_INTRSQL) <> 0) then
76 --
77      hr_utility.trace_off;
78      pay_proc_logging.deinit_logging;
79 --
80    end if;
81 --
82    if (instr(pay_proc_environment_pkg.logging_category,
83              pay_proc_logging.PY_FORMULA) <> 0)
84    then
85      pay_proc_logging.deinit_form_logging;
86    end if;
87 
88    process_env_type := FALSE;
89 --
90 end deinitialise_proc_env;
91 --
92 /*
93    get_pactid
94 
95    Returns the environment pactid
96 
97    This looks like a strange procedure, but its need to workaround
98    and RDBMS issue on referening PL/SQL variables in SQL statements
99 */
100 function get_pactid return number
101 is
102 begin
103    return pactid;
104 end get_pactid;
105 --
106 begin
107    logging_level := 0;
108    logging_category := '';
109    process_env_type := FALSE;
110 end pay_proc_environment_pkg;