[Home] [Help]
PACKAGE: APPS.PER_JP_WRKREG_REPORT_PKG
Source
1 PACKAGE per_jp_wrkreg_report_pkg AUTHID CURRENT_USER
2 -- $Header: pejpwrpt.pkh 120.0.12010000.5 2009/07/30 11:03:39 mdarbha noship $
3 -- *************************************************************************
4 -- * Copyright (c) Oracle Corporation Japan,2009 Product Development.
5 -- * All rights reserved
6 -- *************************************************************************
7 -- *
8 -- * PROGRAM NAME
9 -- * pejpwrpt.pkh
10 -- *
11 -- * DESCRIPTION
12 -- * This script creates the package specification of per_jp_wrkreg_report_pkg.
13 -- *
14 -- * DEPENDENCIES
15 -- * None
16 -- *
17 -- * CALLED BY
18 -- * Concurrent Program
19 -- *
20 -- * LAST UPDATE DATE 9-JUN-2009
21 -- * Date the program has been modified for the last time
22 -- *
23 -- * HISTORY
24 -- * =======
25 -- *
26 -- * DATE AUTHOR(S) VERSION BUG NO DESCRIPTION
27 -- * --------------------+--------------+-----------------------+--------------+------------------+----------------+-----------------+-----------
28 -- * 19-MAR-2009 MDARBHA 120.0.12010000.1 8558615 Creation
29 -- * 09-JUN-2009 MDARBHA 120.0.12010000.2 8558615 Changed as per review Comments
30 -- * 20-JUL-2009 MDARBHA 120.0.12010000.3 8558615 Changed the type of xmlrec from varchar to CLOB
31 -- ************************************************************************************************
32 AS
33 TYPE parameters IS RECORD (payroll_action_id NUMBER
34 ,ass_setid NUMBER
35 ,business_group_id NUMBER
36 ,include_org_hierarchy VARCHAR2(1)
37 ,organization_id NUMBER
38 ,location_id NUMBER
39 ,effective_date DATE
40 ,sort_order_1 VARCHAR(30)
41 ,sort_order_2 VARCHAR(30)
42 ,sort_order_3 VARCHAR(30)
43 ,incl_term_emp VARCHAR(10)
44 ,term_eff_date_from DATE
45 ,term_eff_date_to DATE
46 );
47 --
48 gr_parameters parameters;
49 g_mag_payroll_action_id pay_payroll_actions.payroll_action_id%TYPE;
50 --
51 TYPE xmlrec IS RECORD(xmlstring CLOB);
52 TYPE txmltable IS TABLE OF xmlrec INDEX BY BINARY_INTEGER;
53 --
54 vxmltable txmltable;
55 level_cnt NUMBER;
56 --
57 CURSOR c_header
58 IS
59 SELECT 1
60 FROM dual ;
61 --
62 CURSOR c_footer
63 IS
64 SELECT 1
65 FROM dual ;
66 --
67 CURSOR eof
68 IS
69 SELECT 1
70 FROM dual ;
71 --
72 CURSOR c_body
73 IS
74 SELECT 'TRANSFER_ACT_ID=P',
75 assignment_action_id
76 FROM pay_assignment_actions
77 WHERE payroll_action_id = pay_magtape_generic.get_parameter_value('TRANSFER_PAYROLL_ACTION_ID')
78 ORDER BY action_sequence;
79 --
80 PROCEDURE range_cursor ( p_payroll_action_id IN NUMBER
81 , p_sqlstr OUT NOCOPY VARCHAR2
82 );
83 --
84 PROCEDURE sort_action ( p_payroll_action_id IN NUMBER,
85 sqlstr IN OUT NOCOPY VARCHAR2,
86 len OUT NOCOPY NUMBER
87 );
88 --
89 PROCEDURE action_creation ( p_payroll_action_id IN NUMBER
90 , p_start_person_id IN NUMBER
91 , p_end_person_id IN NUMBER
92 , p_chunk IN NUMBER
93 );
94 --
95 PROCEDURE gen_xml_header;
96 --
97 PROCEDURE generate_xml;
98 --
99 PROCEDURE print_clob ( p_clob IN CLOB );
100 --
101 PROCEDURE gen_xml_footer;
102 --
103 PROCEDURE init_code (p_payroll_action_id IN NUMBER);
104 --
105 PROCEDURE archive_code ( p_assignment_action_id IN NUMBER
106 , p_effective_date IN DATE
107 );
108 --
109 PROCEDURE assact_xml ( p_assignment_action_id IN NUMBER);
110 --
111 PROCEDURE get_cp_xml ( p_assignment_action_id IN NUMBER
112 , p_xml OUT NOCOPY CLOB
113 );
114 --
115 PROCEDURE writetoclob ( p_write_xml OUT NOCOPY CLOB);
116 --
117 PROCEDURE deinitialise (p_payroll_action_id IN NUMBER);
118 --
119 END per_jp_wrkreg_report_pkg;