1 package pay_archive as
2 /* $Header: pyarchiv.pkh 120.0.12010000.1 2008/07/27 22:03:32 appldev ship $ */
3 --
4 /*
5 /*
6 ******************************************************************
7 * *
8 * Copyright (C) 1992 Oracle Corporation UK Ltd., *
9 * Chertsey, England. *
10 * *
11 * All rights reserved. *
12 * *
13 * This material has been provided pursuant to an agreement *
14 * containing restrictions on its use. The material is also *
15 * protected by copyright law. No part of this material may *
16 * be copied or distributed, transmitted or transcribed, in *
17 * any form or by any means, electronic, mechanical, magnetic, *
18 * manual, or otherwise, or disclosed to third parties without *
19 * the express written permission of Oracle Corporation UK Ltd, *
20 * Oracle Park, Bittams Lane, Guildford Road, Chertsey, Surrey, *
21 * England. *
22 * *
23 ******************************************************************
24
25 20-MAR-1998 First Created.
26 25-JUN-1998 dzshanno 40.1 add multi context functionality
27 17-JUL-1998 dzshanno added set_jur_level
28 08-MAR-1999 nbristow 110.2 Added remove_report_actions.
29 17-SEP-1999 nbristow 110.3 Added archive_aa.
30 15-FEB-2000 alogue 115.3 Utf8 support : use of
31 varchar_240_tbl.
32 19-MAY-2000 nbristow 115.4 Added the deinitialise
33 section.
34 13-JUL-2000 ssarma 115.5 Added g_leg_code global.
35 Added function get_jursd_level.
36 30-JAN-2002 mreid 115.6 Added dbdrv standards
37 16-JUL-2002 nbristow 115.7 Added standard_deinit.
38 09-JUL-2004 nbristow 115.8 Added process_chunk.
39 */
40 TYPE number_tbl IS TABLE OF NUMBER INDEX BY binary_integer;
41 TYPE varchar_60_tbl IS TABLE OF VARCHAR(60) INDEX BY binary_integer;
42 TYPE varchar_240_tbl IS TABLE OF VARCHAR(240) INDEX BY binary_integer;
43
44 TYPE context_values IS RECORD
45 (
46 name varchar_60_tbl,
47 value varchar_60_tbl,
48 sz integer
49 );
50
51 g_context_values context_values;
52 g_leg_code varchar2(10) := null;
53 --
54 -- Variables
55 --
56 balance_aa number;
57 archive_aa number;
58 --
59 -- Procedures
60 procedure arch_initialise(p_payroll_action_id in number);
61 function get_jursd_level(p_route_id number,p_user_entity_id number) return number;
62 procedure deinitialise(p_payroll_action_id in number);
63 procedure process_chunk(p_payroll_action_id in number,
64 p_chunk_number in number);
65 procedure process_employee(p_assact_id in number);
66 procedure set_dbi_level (p_dbi_name in varchar2,p_jur_level in varchar2);
67 procedure remove_report_actions(p_pact_id in number,
68 p_chunk_no in number default null);
69 procedure standard_deinit (pactid in number);
70 end pay_archive;