1 package pay_magtape_generic
2 /* $Header: pymaggen.pkh 120.2.12010000.1 2008/07/27 23:08:58 appldev ship $ */
3 as
4 --
5 --
6 /*
7 PRODUCT
8 Oracle*Payroll
9 --
10 NAME
11 pymaggen.pkh
12 --
13 DESCRIPTION
14 This script creates the package body which can be used by the Magnetic
15 Tape process. This package creates procedures that setup the parameter
16 and context tables, used in the Magtape process, based on data held
17 in the PAY_MAGNETIC_BLOCKS and PAY_MAGNETIC_RECORDS tables.
18 --
19 MODIFIED (DD-MON-YYYY)
20 nbristow 27-FEB-1995 - created.
21 allee 20-SEP-1995 - added function 'date_earned' that
22 is used in global cursors defined
23 in pyusmrep.pkh
24 jalloun 30-JUL-1996 - Added error handling.
25 nbristow 16-JUN-1997 - Bug 505208. Increased size of parameter strings.
26 nbristow 06-SEP-2004 - Changes for multithraeded magtape.
27 nbristow 07-SEP-2004 - Fixed GSCC errors.
28 tbattoo 03-Dec-2004 - added support for magtape in xml
29 tbattoo 26-Jan-2005 - added support for magtape in xml using procedure calls
30 tbattoo 25-Jul-2005 - added proc to set parameter value
31 in ff_archive_items
32 tbattoo 09-FEB-2006 - added clear_cursors
33 */
34
35 use_action_block varchar2(5);
36 process_action_rec varchar2(5);
37 cur_fetch boolean;
38 --
39 function date_earned
40 (
41 p_report_date date,
42 p_assignment_id number
43 ) return date;
44
45 pragma restrict_references(date_earned, WNDS, WNPS);
46 type char_array is table of varchar(257) index by binary_integer;
47 ret_vals char_array;
48 boolean_flag boolean;
49 procedure new_formula;
50 function get_parameter_value(prm_name varchar2)
51 return varchar2;
52 pragma restrict_references (get_parameter_value, WNDS, WNPS);
53 function get_cursor_return(curs_name pay_magnetic_blocks.cursor_name%TYPE,
54 pos number) return varchar;
55 --
56 pragma restrict_references (get_cursor_return, WNDS, WNPS);
57
58 procedure clear_cache;
59 procedure clear_cursors;
60
61 procedure set_paramter_value(asg_act_id number,
62 prm_name varchar,
63 prm_value varchar);
64
65
66 end pay_magtape_generic;
[Home] [Help]