PACKAGE: APPS.PAY_HK_IR56_ARCHIVE

Source

1 package pay_hk_ir56_archive AUTHID CURRENT_USER 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,
62 PROCEDURE ARCHIVE_ITEM
59  P_EFFECTIVE_DATE        IN       DATE
60   );
61 
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;