[Home] [Help]
PACKAGE: APPS.PER_JP_EMPDET_REPORT_PKG
Source
1 PACKAGE per_jp_empdet_report_pkg AUTHID CURRENT_USER
2 -- $Header: pejperpt.pkh 120.0.12010000.8 2009/09/09 11:55:48 mpothala noship $
3 -- *************************************************************************
4 -- * Copyright (c) Oracle Corporation Japan,2009 Product Development.
5 -- * All rights reserved
6 -- *************************************************************************
7 -- *
8 -- * PROGRAM NAME
9 -- * pejperpt.pkh
10 -- *
11 -- * DESCRIPTION
12 -- * This script creates the package header of per_jp_empdet_report_pkg.
13 -- *
14 -- * DEPENDENCIES
15 -- * None
16 -- *
17 -- * CALLED BY
18 -- * Concurrent Program
19 -- *
20 -- * LAST UPDATE DATE 08-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 -- * 17-APR-2009 SPATTEM 120.0.12010000.1 8574160 Creation
29 -- * 26-JUN-2009 SPATTEM 120.0.12010000.4 8574160 Added payroll_action_id
30 -- * , assignment_set_id to parameters RECORD
31 -- * 27-JUL-2009 MDARBHA 120.0.12010000.5 8574160 Changed the Variable type of xmlrec from VARCHAR to CLOB
32 -- * 03-AUG-2009 MDARBHA 120.0.12010000.6 8727238 Changed the cursor c_body for sort order
33 -- * 19-AUG-2009 RDARASI 120.1.12010000.7 8766043 Changed sort_action Procedure
34 -- * 09-SEP-2009 MPOTHALA 120.1.12010000.8 8843783 Added job_hist_type Type
35 -- **********************************************************************************************************
36 AS
37 --
38 TYPE job_hist_type IS RECORD(assignment_id per_assignments_f.assignment_id%TYPE
39 ,start_date VARCHAR2(20)
40 ,end_date VARCHAR2(20)
41 ,company_name hr_organization_units.name%TYPE
42 );
43 TYPE gt_job_tbl IS TABLE of job_hist_type INDEX BY binary_integer;
44 --
45 TYPE parameters IS RECORD (payroll_action_id NUMBER
46 ,assignment_set_id NUMBER
47 ,business_group_id NUMBER
48 ,organization_id NUMBER
49 ,location_id NUMBER
50 ,effective_date DATE
51 ,include_org_hierarchy VARCHAR2(1)
52 ,incl_term_emp VARCHAR2(10)
53 ,term_date_from DATE
54 ,term_date_to DATE
55 ,img_display VARCHAR2(10)
56 ,sort_order_1 VARCHAR(30)
57 ,sort_order_2 VARCHAR(30)
58 ,sort_order_3 VARCHAR(30)
59 );
60
61 gr_parameters parameters;
62 g_mag_payroll_action_id pay_payroll_actions.payroll_action_id%TYPE;
63 --
64 TYPE xmlrec IS RECORD(xmlstring CLOB);
65 TYPE txmltable IS TABLE OF xmlrec INDEX BY BINARY_INTEGER;
66 --
67 vxmltable txmltable;
68 level_cnt NUMBER;
69 --
70 CURSOR c_header
71 IS
72 SELECT 1
73 FROM dual ;
74 --
75 CURSOR c_footer
76 IS
77 SELECT 1
78 FROM dual ;
79 --
80 CURSOR eof
81 IS
82 SELECT 1
83 FROM dual ;
84 --
85 CURSOR c_body
86 IS
87 SELECT 'TRANSFER_ACT_ID=P'
88 ,assignment_action_id
89 FROM pay_assignment_actions
90 WHERE payroll_action_id = pay_magtape_generic.get_parameter_value('TRANSFER_PAYROLL_ACTION_ID')
91 ORDER BY action_sequence; --Bug 8727238
92 --
93 PROCEDURE range_cursor ( p_payroll_action_id IN NUMBER
94 , p_sqlstr OUT NOCOPY VARCHAR2
95 );
96 --
97 PROCEDURE sort_action ( p_payroll_action_id IN NUMBER -- Added by RDARASI for Bug#8766043
98 , sqlstr IN OUT NOCOPY VARCHAR2
99 , len OUT NOCOPY NUMBER
100 );
101 --
102 PROCEDURE action_creation ( p_payroll_action_id IN NUMBER
103 , p_start_person_id IN NUMBER
104 , p_end_person_id IN NUMBER
105 , p_chunk IN NUMBER
106 );
107 --
108 PROCEDURE gen_xml_header;
109 --
110 PROCEDURE generate_xml;
111 --
112 PROCEDURE print_clob ( p_clob IN CLOB );
113 --
114 PROCEDURE gen_xml_footer;
115 --
116 PROCEDURE init_code (p_payroll_action_id IN NUMBER);
117 --
118 PROCEDURE archive_code ( p_assignment_action_id IN NUMBER
119 , p_effective_date IN DATE
120 );
121 --
122 PROCEDURE assact_xml ( p_assignment_action_id IN NUMBER);
123 --
124 PROCEDURE get_cp_xml ( p_assignment_action_id IN NUMBER
125 , p_xml OUT NOCOPY CLOB
126 );
127 --
128 PROCEDURE writetoclob ( p_write_xml OUT NOCOPY CLOB);
129 --
130 PROCEDURE deinitialise (p_payroll_action_id IN NUMBER);
131 --
132 END per_jp_empdet_report_pkg;