1 package pay_hk_ir56_archive AS
2 -- $Header: pyhk56ar.pkh 120.0.12010000.1 2008/07/27 22:48:06 appldev ship $
3
4 -- Copyright (C) 1999 Oracle Corporation
5 -- All Rights Reserved
6 --
7 -- Script to create pay_hk_ir56_archive package header
8 -- for HK IR56B Archive
9 --
10 -- Change List
11 -- ===========
12 --
13 -- Date Author Reference Description
14 -- -----------+----------------+---------+------------------------------------------
15 -- 05 Jul 2001 A Tripathi Initial version
16 -- 27 Aug 2001 a Tripathi Changed archive message curosr
17 -- 01 Dec 2002 srrajago 2689229 Included the nocopy option for 'OUT'
18 -- parameter of the procedure range_code.
19 -- 10 Jan 2003 srrajago 2740270 A PL/SQL table defined to store assignment ids.
20
21 /* Bug No : 2740270 - Defined PL/SQL table to store assignment_ids */
22 TYPE t_assignmentid_store_tab
23 IS table of per_all_assignments.assignment_id%type
24 index by binary_integer;
25
26 t_assignmentid_store t_assignmentid_store_tab;
27
28 LEVEL_CNT Number;
29
30 CURSOR archive_messages
31 IS
32 SELECT DISTINCT
33 'ARCHIVE_MESSAGE=P',
34 fai.value
35 FROM per_all_assignments_f paa,
36 pay_payroll_actions ppa,
37 pay_assignment_actions pac,
38 ff_database_items fdi,
39 ff_archive_items fai
40 WHERE ppa.payroll_action_id = pay_magtape_generic.get_parameter_value('TRANSFER_PAYROLL_ACTION_ID')
41 AND pac.action_status = 'C'
42 AND ppa.payroll_action_id = pac.payroll_action_id
43 AND paa.assignment_id = pac.assignment_id
44 AND fdi.user_entity_id = fai.user_entity_id
45 AND fdi.user_name = 'X_HK_ARCHIVE_MESSAGE'
46 AND fai.context1 = pac.assignment_action_id
47 AND fai.value is not null;
48
49 CURSOR csr_submit_reports
50 IS
51 SELECT 'P_ARCHIVE_OR_MAGTAPE=P',
52 'ARCHIVE'
53 FROM dual;
54
55
56 PROCEDURE ARCHIVE_CODE
57 (
58 p_assignment_action_id in pay_assignment_actions.assignment_action_id%TYPE,
59 P_EFFECTIVE_DATE IN DATE
60 );
61
62 PROCEDURE ARCHIVE_ITEM
63 (
64 p_user_entity_name IN ff_user_entities.user_entity_name%TYPE,
65 p_assignment_action_id IN pay_assignment_actions.assignment_action_id%TYPE,
66 p_archive_value IN ff_archive_items.value%TYPE
67 );
68
69 PROCEDURE ASSIGNMENT_ACTION_CODE
70 (
71 p_payroll_action_id in pay_payroll_actions.payroll_action_id%TYPE,
72 p_start_person_id in per_all_people_f.person_id%TYPE,
73 p_end_person_id in per_all_people_f.person_id%TYPE,
74 p_chunk in number
75 );
76
77
78
79 PROCEDURE INITIALIZATION_CODE
80 (
81 p_payroll_action_id in pay_payroll_actions.payroll_action_id%TYPE
82 );
83
84 PROCEDURE RANGE_CODE
85 (
86 P_PAYROLL_ACTION_ID IN pay_payroll_actions.payroll_action_id%TYPE,
87 P_SQL OUT nocopy VARCHAR2
88 );
89
90 FUNCTION SUBMIT_REPORT
91 (p_archive_or_magtape in varchar2)
92 RETURN Number;
93
94 END pay_hk_ir56_archive;
|
|
|