[Home] [Help]
PACKAGE BODY: APPS.PAY_MX_SS_ARCH_TRAN_DATE_UPG
Source
1 PACKAGE BODY PAY_MX_SS_ARCH_TRAN_DATE_UPG AS
2 /* $Header: paymxsstrandtupg.pkb 120.0.12000000.1 2007/05/02 10:05:43 sdahiya noship $ */
3 /*
4 ******************************************************************
5 * *
6 * Copyright (C) 2004, Oracle India Pvt. Ltd., Hyderabad *
7 * All rights reserved. *
8 * *
9 * This material has been provided pursuant to an agreement *
10 * containing restrictions on its use. The material is also *
11 * protected by copyright law. No part of this material may *
12 * be copied or distributed, transmitted or transcribed, in *
13 * any form or by any means, electronic, mechanical, magnetic, *
14 * manual, or otherwise, or disclosed to third parties without *
15 * the express written permission of Oracle Corporation, *
16 * 500 Oracle Parkway, Redwood City, CA, 94065. *
17 * *
18 ******************************************************************
19 Package Name : PAY_MX_SS_ARCH_TRAN_DATE_UPG
20 Package File Name : paymxsstrandtupg.pkb
21
22 Description : Used for Social Security Archiver upgrade for transaction
23 date.
24
25 Change List:
26 ------------
27
28 Name Date Version Bug Text
29 ------------- ----------- ------- ------- ------------------------------
30 sdahiya 24-Jan-2007 115.0 Created.
31
32 ***************************************************************************/
33
34 --
35 -- Global Variables
36 --
37 g_proc_name varchar2(240);
38 g_debug boolean;
39
40
41 /****************************************************************************
42 Name : HR_UTILITY_TRACE
43 Description : This procedure prints debug messages.
44 *****************************************************************************/
45 PROCEDURE HR_UTILITY_TRACE
46 (
47 P_TRC_DATA varchar2
48 ) AS
49 BEGIN
50 IF g_debug THEN
51 hr_utility.trace(p_trc_data);
52 END IF;
53 END HR_UTILITY_TRACE;
54
55
56 /****************************************************************************
57 Name : QUAL_PROC
58 Description : Qualifying procedure for generic upgrade process.
59 *****************************************************************************/
60 PROCEDURE QUAL_PROC
61 (
62 P_OBJECT_ID NUMBER,
63 P_QUAL OUT NOCOPY VARCHAR2
64 ) AS
65
66 CURSOR csr_qualified IS
67 SELECT 'Y'
68 FROM pay_payroll_actions ppa,
69 pay_assignment_actions paa,
70 pay_action_information pai
71 WHERE ppa.payroll_action_id = paa.payroll_action_id
72 AND paa.assignment_action_id = pai.action_context_id
73 AND pai.action_information_category = 'MX SS TRANSACTIONS'
74 AND paa.assignment_id = p_object_id
75 AND ppa.report_type = 'SS_ARCHIVE'
76 AND ppa.report_qualifier = 'SS_ARCHIVE'
77 AND ppa.report_category = 'RT';
78
79 l_proc_name varchar2(100);
80
81 BEGIN
82 l_proc_name := g_proc_name || 'QUAL_PROC';
83 hr_utility_trace ('Entering '||l_proc_name);
84
85 p_qual := 'N';
86 OPEN csr_qualified;
87 FETCH csr_qualified INTO p_qual;
88 CLOSE csr_qualified;
89
90 IF p_qual = 'Y' THEN
91 hr_utility_trace('Assignment ' || p_object_id || ' qualified.');
92 ELSE
93 hr_utility_trace('Assignment ' || p_object_id || ' did not qualify.');
94 END IF;
95
96 hr_utility_trace ('Leaving '||l_proc_name);
97 END QUAL_PROC;
98
99 /****************************************************************************
100 Name : UPG_PROC
101 Description : Upgrade procedure for generic upgrade process.
102 *****************************************************************************/
103 PROCEDURE UPG_PROC
104 (
105 P_OBJECT_ID NUMBER
106 ) AS
107
108 CURSOR csr_upgrade IS
109 SELECT pai.action_information2,
110 pai.action_information5,
111 pai.action_information_id,
112 pai.object_version_number
113 FROM pay_payroll_actions ppa,
114 pay_assignment_actions paa,
115 pay_action_information pai
116 WHERE ppa.payroll_action_id = paa.payroll_action_id
117 AND paa.assignment_action_id = pai.action_context_id
118 AND pai.action_information_category = 'MX SS TRANSACTIONS'
119 AND paa.assignment_id = p_object_id
120 AND ppa.report_type = 'SS_ARCHIVE'
121 AND ppa.report_qualifier = 'SS_ARCHIVE'
122 AND ppa.report_category = 'RT';
123
124 lv_transaction_date pay_action_information.action_information5%type;
125 lv_er_ss_id pay_action_information.action_information2%type;
126 ln_act_info_id number;
127 l_object_version_number number;
128
129 l_proc_name varchar2(100);
130 ln_count number;
131
132 BEGIN
133 l_proc_name := g_proc_name || 'UPG_PROC';
134 hr_utility_trace ('Entering '||l_proc_name);
135
136 ln_count := 0;
137 OPEN csr_upgrade;
138 LOOP
139 FETCH csr_upgrade INTO lv_er_ss_id,
140 lv_transaction_date,
141 ln_act_info_id,
142 l_object_version_number;
143 EXIT WHEN csr_upgrade%NOTFOUND;
144
145 pay_action_information_api.update_action_information
146 (p_action_information_id => ln_act_info_id,
147 p_object_version_number => l_object_version_number,
148 p_action_information2 => lv_transaction_date,
149 p_action_information5 => lv_er_ss_id);
150
151 ln_count := ln_count + 1;
152 END LOOP;
153 hr_utility_trace(ln_count ||
154 ' transaction(s) upgraded for assignment '||
155 p_object_id);
156 CLOSE csr_upgrade;
157 hr_utility_trace ('Leaving '||l_proc_name);
158 END UPG_PROC;
159
160 BEGIN
161 --hr_utility.trace_on(null, 'MX_IDC');
162 g_proc_name := 'PAY_MX_SS_ARCH_TRAN_DATE_UPG.';
163 g_debug := hr_utility.debug_enabled;
164 END PAY_MX_SS_ARCH_TRAN_DATE_UPG;