7: IS
8:
9: BEGIN
10:
11: hr_utility.trace('Inside Range Cursor');
12:
13: p_sqlstr := 'select distinct paaf.person_id
14: from per_all_assignments_f paaf,
15: pay_payroll_actions ppa,
23: and paaf.person_id =
24: nvl(pay_ca_t4_cancel_mag.get_parameter(''PER_ID'',ppa1.legislative_parameters),paaf.person_id)
25: order by paaf.person_id';
26:
27: hr_utility.trace('Leaving Range Cursor');
28:
29: END range_cursor;
30: /**************************************************************************/
31: PROCEDURE action_creation(
147: l_lockingactid_check pay_assignment_actions.assignment_action_id%TYPE;
148: l_payroll_act NUMBER;
149:
150: BEGIN
151: hr_utility.trace('+=========================================================+');
152: hr_utility.set_location( 'pay_ca_t4_cancel_mag.action_creation',10);
153: get_report_parameters(
154: p_pactid,
155: l_legislative_parameters,
148: l_payroll_act NUMBER;
149:
150: BEGIN
151: hr_utility.trace('+=========================================================+');
152: hr_utility.set_location( 'pay_ca_t4_cancel_mag.action_creation',10);
153: get_report_parameters(
154: p_pactid,
155: l_legislative_parameters,
156: l_year_end,
158: l_business_group_id);
159:
160: l_trans_gre := pay_ca_t4_cancel_mag.get_parameter('TRANSMITTER_GRE',
161: l_legislative_parameters);
162: hr_utility.trace('l_trans_gre ='||l_trans_gre);
163: l_validate_gre := validate_gre_data(l_trans_gre, to_char(l_year_end,'YYYY'));
164: IF l_validate_gre = '1' THEN
165: hr_utility.raise_error;
166: END IF;
161: l_legislative_parameters);
162: hr_utility.trace('l_trans_gre ='||l_trans_gre);
163: l_validate_gre := validate_gre_data(l_trans_gre, to_char(l_year_end,'YYYY'));
164: IF l_validate_gre = '1' THEN
165: hr_utility.raise_error;
166: END IF;
167: hr_utility.set_location( 'pay_ca_t4_cancel_mag.action_creation',15);
168: l_asg_set_id := to_number(pay_ca_t4_cancel_mag.get_parameter('ASG_SET_ID',
169: l_legislative_parameters));
163: l_validate_gre := validate_gre_data(l_trans_gre, to_char(l_year_end,'YYYY'));
164: IF l_validate_gre = '1' THEN
165: hr_utility.raise_error;
166: END IF;
167: hr_utility.set_location( 'pay_ca_t4_cancel_mag.action_creation',15);
168: l_asg_set_id := to_number(pay_ca_t4_cancel_mag.get_parameter('ASG_SET_ID',
169: l_legislative_parameters));
170: hr_utility.trace('l_assignment_set_id ='||l_asg_set_id);
171: --
166: END IF;
167: hr_utility.set_location( 'pay_ca_t4_cancel_mag.action_creation',15);
168: l_asg_set_id := to_number(pay_ca_t4_cancel_mag.get_parameter('ASG_SET_ID',
169: l_legislative_parameters));
170: hr_utility.trace('l_assignment_set_id ='||l_asg_set_id);
171: --
172: IF l_asg_set_id IS NOT NULL THEN
173: OPEN c_all_asg_in_asgset;
174: ELSE
182: l_tax_unit_id,
183: l_effective_end_date,
184: l_assignment_action_id,
185: l_payroll_act;
186: hr_utility.set_location('pay_ca_t4_cancel_mag.action_creation', 20);
187: EXIT WHEN c_all_asg_in_asgset%NOTFOUND;
188: ELSE
189: FETCH c_all_asg INTO l_person_id,
190: l_assignment_id,
191: l_tax_unit_id,
192: l_effective_end_date,
193: l_assignment_action_id,
194: l_payroll_act;
195: hr_utility.set_location('pay_ca_t4_cancel_mag.action_creation', 25);
196: EXIT WHEN c_all_asg%NOTFOUND;
197: END IF;
198:
199: hr_utility.trace('+------------------------------------------------+');
195: hr_utility.set_location('pay_ca_t4_cancel_mag.action_creation', 25);
196: EXIT WHEN c_all_asg%NOTFOUND;
197: END IF;
198:
199: hr_utility.trace('+------------------------------------------------+');
200: hr_utility.trace('Fetched Assignment ID : '|| to_char(l_assignment_id));
201: hr_utility.trace('Person ID : '|| to_char(l_person_id));
202: hr_utility.trace('Tax Unit ID : '|| to_char(l_tax_unit_id));
203: hr_utility.trace('Effective End Date : '|| to_char(l_effective_end_date,'DD-Mon-YYYY'));
196: EXIT WHEN c_all_asg%NOTFOUND;
197: END IF;
198:
199: hr_utility.trace('+------------------------------------------------+');
200: hr_utility.trace('Fetched Assignment ID : '|| to_char(l_assignment_id));
201: hr_utility.trace('Person ID : '|| to_char(l_person_id));
202: hr_utility.trace('Tax Unit ID : '|| to_char(l_tax_unit_id));
203: hr_utility.trace('Effective End Date : '|| to_char(l_effective_end_date,'DD-Mon-YYYY'));
204: hr_utility.trace('x------------------------------------------------x');
197: END IF;
198:
199: hr_utility.trace('+------------------------------------------------+');
200: hr_utility.trace('Fetched Assignment ID : '|| to_char(l_assignment_id));
201: hr_utility.trace('Person ID : '|| to_char(l_person_id));
202: hr_utility.trace('Tax Unit ID : '|| to_char(l_tax_unit_id));
203: hr_utility.trace('Effective End Date : '|| to_char(l_effective_end_date,'DD-Mon-YYYY'));
204: hr_utility.trace('x------------------------------------------------x');
205: SELECT pay_assignment_actions_s.nextval
198:
199: hr_utility.trace('+------------------------------------------------+');
200: hr_utility.trace('Fetched Assignment ID : '|| to_char(l_assignment_id));
201: hr_utility.trace('Person ID : '|| to_char(l_person_id));
202: hr_utility.trace('Tax Unit ID : '|| to_char(l_tax_unit_id));
203: hr_utility.trace('Effective End Date : '|| to_char(l_effective_end_date,'DD-Mon-YYYY'));
204: hr_utility.trace('x------------------------------------------------x');
205: SELECT pay_assignment_actions_s.nextval
206: INTO lockingactid
199: hr_utility.trace('+------------------------------------------------+');
200: hr_utility.trace('Fetched Assignment ID : '|| to_char(l_assignment_id));
201: hr_utility.trace('Person ID : '|| to_char(l_person_id));
202: hr_utility.trace('Tax Unit ID : '|| to_char(l_tax_unit_id));
203: hr_utility.trace('Effective End Date : '|| to_char(l_effective_end_date,'DD-Mon-YYYY'));
204: hr_utility.trace('x------------------------------------------------x');
205: SELECT pay_assignment_actions_s.nextval
206: INTO lockingactid
207: FROM dual;
200: hr_utility.trace('Fetched Assignment ID : '|| to_char(l_assignment_id));
201: hr_utility.trace('Person ID : '|| to_char(l_person_id));
202: hr_utility.trace('Tax Unit ID : '|| to_char(l_tax_unit_id));
203: hr_utility.trace('Effective End Date : '|| to_char(l_effective_end_date,'DD-Mon-YYYY'));
204: hr_utility.trace('x------------------------------------------------x');
205: SELECT pay_assignment_actions_s.nextval
206: INTO lockingactid
207: FROM dual;
208: hr_utility.trace('New T4 Cancel Action = ' ||to_char(lockingactid));
204: hr_utility.trace('x------------------------------------------------x');
205: SELECT pay_assignment_actions_s.nextval
206: INTO lockingactid
207: FROM dual;
208: hr_utility.trace('New T4 Cancel Action = ' ||to_char(lockingactid));
209: hr_utility.set_location('pay_ca_t4_cancel_mag.action_creation', 30);
210: hr_nonrun_asact.insact(lockingactid
211: ,l_assignment_id
212: ,p_pactid
205: SELECT pay_assignment_actions_s.nextval
206: INTO lockingactid
207: FROM dual;
208: hr_utility.trace('New T4 Cancel Action = ' ||to_char(lockingactid));
209: hr_utility.set_location('pay_ca_t4_cancel_mag.action_creation', 30);
210: hr_nonrun_asact.insact(lockingactid
211: ,l_assignment_id
212: ,p_pactid
213: ,p_chunk
211: ,l_assignment_id
212: ,p_pactid
213: ,p_chunk
214: ,l_tax_unit_id);
215: hr_utility.set_location('pay_ca_t4_cancel_mag.action_creation', 40);
216:
217: UPDATE pay_assignment_actions aa
218: SET aa.serial_number = to_char(l_person_id)
219: WHERE aa.assignment_action_id = lockingactid;
217: UPDATE pay_assignment_actions aa
218: SET aa.serial_number = to_char(l_person_id)
219: WHERE aa.assignment_action_id = lockingactid;
220:
221: hr_utility.set_location('pay_ca_t4_cancel_mag.action_creation', 50);
222: hr_nonrun_asact.insint(lockingactid ,l_assignment_action_id);
223: hr_utility.trace(to_char(lockingactid)||' locked Cancel Archiver ID '||to_char(l_assignment_action_id));
224: hr_utility.trace('x------------------------------------------------x');
225: END LOOP; --c_all_asg loop
219: WHERE aa.assignment_action_id = lockingactid;
220:
221: hr_utility.set_location('pay_ca_t4_cancel_mag.action_creation', 50);
222: hr_nonrun_asact.insint(lockingactid ,l_assignment_action_id);
223: hr_utility.trace(to_char(lockingactid)||' locked Cancel Archiver ID '||to_char(l_assignment_action_id));
224: hr_utility.trace('x------------------------------------------------x');
225: END LOOP; --c_all_asg loop
226: IF l_asg_set_id IS NOT NULL THEN
227: CLOSE c_all_asg_in_asgset;
220:
221: hr_utility.set_location('pay_ca_t4_cancel_mag.action_creation', 50);
222: hr_nonrun_asact.insint(lockingactid ,l_assignment_action_id);
223: hr_utility.trace(to_char(lockingactid)||' locked Cancel Archiver ID '||to_char(l_assignment_action_id));
224: hr_utility.trace('x------------------------------------------------x');
225: END LOOP; --c_all_asg loop
226: IF l_asg_set_id IS NOT NULL THEN
227: CLOSE c_all_asg_in_asgset;
228: ELSE
227: CLOSE c_all_asg_in_asgset;
228: ELSE
229: CLOSE c_all_asg;
230: END IF;
231: hr_utility.trace('X=========================================================X');
232: END action_creation;
233: /**************************************************************************/
234: FUNCTION validate_gre_data ( p_trans IN VARCHAR2,
235: p_year IN VARCHAR2)
297:
298: BEGIN
299: /* Fetching the Payroll Action Id for Trasnmitter GRE */
300:
301: hr_utility.trace('Inside the Validation Code');
302: hr_utility.trace('The Transmitter GRE id passed is '||p_trans);
303: OPEN c_trans_payid(p_trans,p_year);
304: FETCH c_trans_payid INTO l_trans_payid,l_bg_id;
305: IF c_trans_payid%NOTFOUND THEN
298: BEGIN
299: /* Fetching the Payroll Action Id for Trasnmitter GRE */
300:
301: hr_utility.trace('Inside the Validation Code');
302: hr_utility.trace('The Transmitter GRE id passed is '||p_trans);
303: OPEN c_trans_payid(p_trans,p_year);
304: FETCH c_trans_payid INTO l_trans_payid,l_bg_id;
305: IF c_trans_payid%NOTFOUND THEN
306: CLOSE c_trans_payid;
303: OPEN c_trans_payid(p_trans,p_year);
304: FETCH c_trans_payid INTO l_trans_payid,l_bg_id;
305: IF c_trans_payid%NOTFOUND THEN
306: CLOSE c_trans_payid;
307: hr_utility.trace('The Transmitter GRE ID not found :'||p_trans);
308: hr_utility.raise_error;
309: RETURN '1';
310: ELSE
311: CLOSE c_trans_payid;
304: FETCH c_trans_payid INTO l_trans_payid,l_bg_id;
305: IF c_trans_payid%NOTFOUND THEN
306: CLOSE c_trans_payid;
307: hr_utility.trace('The Transmitter GRE ID not found :'||p_trans);
308: hr_utility.raise_error;
309: RETURN '1';
310: ELSE
311: CLOSE c_trans_payid;
312: END IF;
310: ELSE
311: CLOSE c_trans_payid;
312: END IF;
313:
314: hr_utility.trace('Fetched the Payroll Id for transmitter GRE :'|| l_trans_payid);
315: hr_utility.trace('The Reporting Year is '||p_year);
316: /*Fetching the Trasnmitter Level Data */
317:
318: l_trans_no := get_arch_val(l_trans_payid, 'CAEOY_TRANSMITTER_NUMBER');
311: CLOSE c_trans_payid;
312: END IF;
313:
314: hr_utility.trace('Fetched the Payroll Id for transmitter GRE :'|| l_trans_payid);
315: hr_utility.trace('The Reporting Year is '||p_year);
316: /*Fetching the Trasnmitter Level Data */
317:
318: l_trans_no := get_arch_val(l_trans_payid, 'CAEOY_TRANSMITTER_NUMBER');
319: l_tech_name := get_arch_val(l_trans_payid, 'CAEOY_TECHNICAL_CONTACT_NAME');
329: OPEN c_gre_name(to_number(p_trans));
330: FETCH c_gre_name INTO l_trans_name;
331: CLOSE c_gre_name;
332:
333: hr_utility.trace('Transmitter Number :'||l_trans_no);
334: hr_utility.trace('Tech Name : '||l_tech_name);
335: hr_utility.trace('Tech Area : '||l_tech_area);
336: hr_utility.trace('Tech Phone : '||l_tech_phno);
337: hr_utility.trace('Tech Email : '||l_tech_email);
330: FETCH c_gre_name INTO l_trans_name;
331: CLOSE c_gre_name;
332:
333: hr_utility.trace('Transmitter Number :'||l_trans_no);
334: hr_utility.trace('Tech Name : '||l_tech_name);
335: hr_utility.trace('Tech Area : '||l_tech_area);
336: hr_utility.trace('Tech Phone : '||l_tech_phno);
337: hr_utility.trace('Tech Email : '||l_tech_email);
338: hr_utility.trace('Tech Language : '||l_lang);
331: CLOSE c_gre_name;
332:
333: hr_utility.trace('Transmitter Number :'||l_trans_no);
334: hr_utility.trace('Tech Name : '||l_tech_name);
335: hr_utility.trace('Tech Area : '||l_tech_area);
336: hr_utility.trace('Tech Phone : '||l_tech_phno);
337: hr_utility.trace('Tech Email : '||l_tech_email);
338: hr_utility.trace('Tech Language : '||l_lang);
339:
332:
333: hr_utility.trace('Transmitter Number :'||l_trans_no);
334: hr_utility.trace('Tech Name : '||l_tech_name);
335: hr_utility.trace('Tech Area : '||l_tech_area);
336: hr_utility.trace('Tech Phone : '||l_tech_phno);
337: hr_utility.trace('Tech Email : '||l_tech_email);
338: hr_utility.trace('Tech Language : '||l_lang);
339:
340: /* Checking for the validity of the above values fetched */
333: hr_utility.trace('Transmitter Number :'||l_trans_no);
334: hr_utility.trace('Tech Name : '||l_tech_name);
335: hr_utility.trace('Tech Area : '||l_tech_area);
336: hr_utility.trace('Tech Phone : '||l_tech_phno);
337: hr_utility.trace('Tech Email : '||l_tech_email);
338: hr_utility.trace('Tech Language : '||l_lang);
339:
340: /* Checking for the validity of the above values fetched */
341: IF l_trans_no IS NULL
334: hr_utility.trace('Tech Name : '||l_tech_name);
335: hr_utility.trace('Tech Area : '||l_tech_area);
336: hr_utility.trace('Tech Phone : '||l_tech_phno);
337: hr_utility.trace('Tech Email : '||l_tech_email);
338: hr_utility.trace('Tech Language : '||l_lang);
339:
340: /* Checking for the validity of the above values fetched */
341: IF l_trans_no IS NULL
342: OR TRANSLATE(l_trans_no,'M0123456789','M9999999999') <> 'MM999999' THEN
339:
340: /* Checking for the validity of the above values fetched */
341: IF l_trans_no IS NULL
342: OR TRANSLATE(l_trans_no,'M0123456789','M9999999999') <> 'MM999999' THEN
343: hr_utility.trace('Incorrect Transmitter No format');
344: hr_utility.set_message(801,'PAY_74155_INCORRECT_TRANSMT_NO');
345: hr_utility.set_message_token('GRE_NAME',l_trans_name);
346: pay_core_utils.push_message(801,'PAY_74155_INCORRECT_TRANSMT_NO','P');
347: pay_core_utils.push_token('GRE_NAME',l_trans_name);
340: /* Checking for the validity of the above values fetched */
341: IF l_trans_no IS NULL
342: OR TRANSLATE(l_trans_no,'M0123456789','M9999999999') <> 'MM999999' THEN
343: hr_utility.trace('Incorrect Transmitter No format');
344: hr_utility.set_message(801,'PAY_74155_INCORRECT_TRANSMT_NO');
345: hr_utility.set_message_token('GRE_NAME',l_trans_name);
346: pay_core_utils.push_message(801,'PAY_74155_INCORRECT_TRANSMT_NO','P');
347: pay_core_utils.push_token('GRE_NAME',l_trans_name);
348: hr_utility.raise_error;
341: IF l_trans_no IS NULL
342: OR TRANSLATE(l_trans_no,'M0123456789','M9999999999') <> 'MM999999' THEN
343: hr_utility.trace('Incorrect Transmitter No format');
344: hr_utility.set_message(801,'PAY_74155_INCORRECT_TRANSMT_NO');
345: hr_utility.set_message_token('GRE_NAME',l_trans_name);
346: pay_core_utils.push_message(801,'PAY_74155_INCORRECT_TRANSMT_NO','P');
347: pay_core_utils.push_token('GRE_NAME',l_trans_name);
348: hr_utility.raise_error;
349: RETURN '1';
344: hr_utility.set_message(801,'PAY_74155_INCORRECT_TRANSMT_NO');
345: hr_utility.set_message_token('GRE_NAME',l_trans_name);
346: pay_core_utils.push_message(801,'PAY_74155_INCORRECT_TRANSMT_NO','P');
347: pay_core_utils.push_token('GRE_NAME',l_trans_name);
348: hr_utility.raise_error;
349: RETURN '1';
350: END IF;
351:
352: IF l_tech_name IS NULL OR
353: l_tech_area IS NULL OR
354: l_tech_phno IS NULL OR
355: l_tech_email IS NULL OR
356: l_lang IS NULL THEN
357: hr_utility.trace('Technical contact details missing');
358: hr_utility.set_message(801,'PAY_74158_INCORRECT_TCHN_INFO');
359: hr_utility.set_message_token('GRE_NAME',l_trans_name);
360: pay_core_utils.push_message(801,'PAY_74158_INCORRECT_TCHN_INFO','P');
361: pay_core_utils.push_token('GRE_NAME',l_trans_name);
354: l_tech_phno IS NULL OR
355: l_tech_email IS NULL OR
356: l_lang IS NULL THEN
357: hr_utility.trace('Technical contact details missing');
358: hr_utility.set_message(801,'PAY_74158_INCORRECT_TCHN_INFO');
359: hr_utility.set_message_token('GRE_NAME',l_trans_name);
360: pay_core_utils.push_message(801,'PAY_74158_INCORRECT_TCHN_INFO','P');
361: pay_core_utils.push_token('GRE_NAME',l_trans_name);
362: hr_utility.raise_error;
355: l_tech_email IS NULL OR
356: l_lang IS NULL THEN
357: hr_utility.trace('Technical contact details missing');
358: hr_utility.set_message(801,'PAY_74158_INCORRECT_TCHN_INFO');
359: hr_utility.set_message_token('GRE_NAME',l_trans_name);
360: pay_core_utils.push_message(801,'PAY_74158_INCORRECT_TCHN_INFO','P');
361: pay_core_utils.push_token('GRE_NAME',l_trans_name);
362: hr_utility.raise_error;
363: RETURN '1';
358: hr_utility.set_message(801,'PAY_74158_INCORRECT_TCHN_INFO');
359: hr_utility.set_message_token('GRE_NAME',l_trans_name);
360: pay_core_utils.push_message(801,'PAY_74158_INCORRECT_TCHN_INFO','P');
361: pay_core_utils.push_token('GRE_NAME',l_trans_name);
362: hr_utility.raise_error;
363: RETURN '1';
364: END IF;
365:
366: IF l_acc_name IS NULL OR
369: l_acc_info_flag := 'N';
370: ELSE
371: l_acc_info_flag := 'Y';
372: END IF;
373: hr_utility.trace('The value of the Flag is '||l_acc_info_flag);
374:
375: /* If Transmitter Level Accounting Information is Missing checking for the GRE level information */
376:
377: OPEN c_all_gres(p_trans,p_year,l_bg_id);
376:
377: OPEN c_all_gres(p_trans,p_year,l_bg_id);
378: LOOP
379: FETCH c_all_gres into l_gre_payid, l_gre, l_gre_name;
380: hr_utility.trace('The Gre id fetched is '||l_gre);
381: IF c_all_gres%NOTFOUND THEN
382: CLOSE c_all_gres;
383: EXIT;
384: END IF;
382: CLOSE c_all_gres;
383: EXIT;
384: END IF;
385:
386: hr_utility.trace('Before fetching the GREs for this Transmitter '||l_gre||'-'||p_year);
387:
388:
389: IF l_gre <> to_number(p_trans) THEN
390: hr_utility.trace('Inside the loop'||l_gre_payid);
386: hr_utility.trace('Before fetching the GREs for this Transmitter '||l_gre||'-'||p_year);
387:
388:
389: IF l_gre <> to_number(p_trans) THEN
390: hr_utility.trace('Inside the loop'||l_gre_payid);
391:
392: hr_utility.trace('Checking GRE level data');
393: hr_utility.trace('The Payroll Action Id for Gre is '|| l_gre_payid);
394: l_bus_no := get_arch_val(l_gre_payid,'CAEOY_EMPLOYER_IDENTIFICATION_NUMBER');
388:
389: IF l_gre <> to_number(p_trans) THEN
390: hr_utility.trace('Inside the loop'||l_gre_payid);
391:
392: hr_utility.trace('Checking GRE level data');
393: hr_utility.trace('The Payroll Action Id for Gre is '|| l_gre_payid);
394: l_bus_no := get_arch_val(l_gre_payid,'CAEOY_EMPLOYER_IDENTIFICATION_NUMBER');
395: l_acc_name := get_arch_val(l_gre_payid, 'CAEOY_ACCOUNTING_CONTACT_NAME');
396: l_acc_area := get_arch_val(l_gre_payid, 'CAEOY_ACCOUNTING_CONTACT_AREA_CODE');
389: IF l_gre <> to_number(p_trans) THEN
390: hr_utility.trace('Inside the loop'||l_gre_payid);
391:
392: hr_utility.trace('Checking GRE level data');
393: hr_utility.trace('The Payroll Action Id for Gre is '|| l_gre_payid);
394: l_bus_no := get_arch_val(l_gre_payid,'CAEOY_EMPLOYER_IDENTIFICATION_NUMBER');
395: l_acc_name := get_arch_val(l_gre_payid, 'CAEOY_ACCOUNTING_CONTACT_NAME');
396: l_acc_area := get_arch_val(l_gre_payid, 'CAEOY_ACCOUNTING_CONTACT_AREA_CODE');
397: l_acc_phno := get_arch_val(l_gre_payid, 'CAEOY_ACCOUNTING_CONTACT_PHONE');
395: l_acc_name := get_arch_val(l_gre_payid, 'CAEOY_ACCOUNTING_CONTACT_NAME');
396: l_acc_area := get_arch_val(l_gre_payid, 'CAEOY_ACCOUNTING_CONTACT_AREA_CODE');
397: l_acc_phno := get_arch_val(l_gre_payid, 'CAEOY_ACCOUNTING_CONTACT_PHONE');
398:
399: hr_utility.trace('Tax unit ID :'||l_tax_unit_id);
400: hr_utility.trace('Acc Name :'||l_acc_name);
401: hr_utility.trace('Acc Area :'||l_acc_area);
402: hr_utility.trace('Acc Phone : '||l_acc_phno);
403: hr_utility.trace('GRE Name :'||l_gre_name);
396: l_acc_area := get_arch_val(l_gre_payid, 'CAEOY_ACCOUNTING_CONTACT_AREA_CODE');
397: l_acc_phno := get_arch_val(l_gre_payid, 'CAEOY_ACCOUNTING_CONTACT_PHONE');
398:
399: hr_utility.trace('Tax unit ID :'||l_tax_unit_id);
400: hr_utility.trace('Acc Name :'||l_acc_name);
401: hr_utility.trace('Acc Area :'||l_acc_area);
402: hr_utility.trace('Acc Phone : '||l_acc_phno);
403: hr_utility.trace('GRE Name :'||l_gre_name);
404:
397: l_acc_phno := get_arch_val(l_gre_payid, 'CAEOY_ACCOUNTING_CONTACT_PHONE');
398:
399: hr_utility.trace('Tax unit ID :'||l_tax_unit_id);
400: hr_utility.trace('Acc Name :'||l_acc_name);
401: hr_utility.trace('Acc Area :'||l_acc_area);
402: hr_utility.trace('Acc Phone : '||l_acc_phno);
403: hr_utility.trace('GRE Name :'||l_gre_name);
404:
405: IF l_bus_no IS NULL
398:
399: hr_utility.trace('Tax unit ID :'||l_tax_unit_id);
400: hr_utility.trace('Acc Name :'||l_acc_name);
401: hr_utility.trace('Acc Area :'||l_acc_area);
402: hr_utility.trace('Acc Phone : '||l_acc_phno);
403: hr_utility.trace('GRE Name :'||l_gre_name);
404:
405: IF l_bus_no IS NULL
406: OR TRANSLATE(l_bus_no,'0123456789RP','9999999999RP') <> '999999999RP9999' THEN
399: hr_utility.trace('Tax unit ID :'||l_tax_unit_id);
400: hr_utility.trace('Acc Name :'||l_acc_name);
401: hr_utility.trace('Acc Area :'||l_acc_area);
402: hr_utility.trace('Acc Phone : '||l_acc_phno);
403: hr_utility.trace('GRE Name :'||l_gre_name);
404:
405: IF l_bus_no IS NULL
406: OR TRANSLATE(l_bus_no,'0123456789RP','9999999999RP') <> '999999999RP9999' THEN
407: hr_utility.trace('No Business Number Entereed ');
403: hr_utility.trace('GRE Name :'||l_gre_name);
404:
405: IF l_bus_no IS NULL
406: OR TRANSLATE(l_bus_no,'0123456789RP','9999999999RP') <> '999999999RP9999' THEN
407: hr_utility.trace('No Business Number Entereed ');
408: hr_utility.set_message(801,'PAY_74154_INCORRECT_BN');
409: hr_utility.set_message_token('GRE_NAME',l_gre_name);
410: pay_core_utils.push_message(801,'PAY_74154_INCORRECT_BN','P');
411: pay_core_utils.push_token('GRE_NAME',l_gre_name);
404:
405: IF l_bus_no IS NULL
406: OR TRANSLATE(l_bus_no,'0123456789RP','9999999999RP') <> '999999999RP9999' THEN
407: hr_utility.trace('No Business Number Entereed ');
408: hr_utility.set_message(801,'PAY_74154_INCORRECT_BN');
409: hr_utility.set_message_token('GRE_NAME',l_gre_name);
410: pay_core_utils.push_message(801,'PAY_74154_INCORRECT_BN','P');
411: pay_core_utils.push_token('GRE_NAME',l_gre_name);
412: hr_utility.raise_error;
405: IF l_bus_no IS NULL
406: OR TRANSLATE(l_bus_no,'0123456789RP','9999999999RP') <> '999999999RP9999' THEN
407: hr_utility.trace('No Business Number Entereed ');
408: hr_utility.set_message(801,'PAY_74154_INCORRECT_BN');
409: hr_utility.set_message_token('GRE_NAME',l_gre_name);
410: pay_core_utils.push_message(801,'PAY_74154_INCORRECT_BN','P');
411: pay_core_utils.push_token('GRE_NAME',l_gre_name);
412: hr_utility.raise_error;
413: RETURN '1';
408: hr_utility.set_message(801,'PAY_74154_INCORRECT_BN');
409: hr_utility.set_message_token('GRE_NAME',l_gre_name);
410: pay_core_utils.push_message(801,'PAY_74154_INCORRECT_BN','P');
411: pay_core_utils.push_token('GRE_NAME',l_gre_name);
412: hr_utility.raise_error;
413: RETURN '1';
414: END IF;
415:
416: IF (l_acc_name IS NULL OR
416: IF (l_acc_name IS NULL OR
417: l_acc_area IS NULL OR
418: l_acc_phno IS NULL ) AND
419: l_acc_info_flag = 'N' THEN
420: hr_utility.trace('No Accounting Contact info present');
421: hr_utility.set_message(801,'PAY_74157_INCORRECT_ACNT_INFO');
422: hr_utility.set_message_token('GRE_NAME',l_gre_name);
423: pay_core_utils.push_message(801,'PAY_74157_INCORRECT_ACNT_INFO','P');
424: pay_core_utils.push_token('GRE_NAME',l_gre_name);
417: l_acc_area IS NULL OR
418: l_acc_phno IS NULL ) AND
419: l_acc_info_flag = 'N' THEN
420: hr_utility.trace('No Accounting Contact info present');
421: hr_utility.set_message(801,'PAY_74157_INCORRECT_ACNT_INFO');
422: hr_utility.set_message_token('GRE_NAME',l_gre_name);
423: pay_core_utils.push_message(801,'PAY_74157_INCORRECT_ACNT_INFO','P');
424: pay_core_utils.push_token('GRE_NAME',l_gre_name);
425: hr_utility.raise_error;
418: l_acc_phno IS NULL ) AND
419: l_acc_info_flag = 'N' THEN
420: hr_utility.trace('No Accounting Contact info present');
421: hr_utility.set_message(801,'PAY_74157_INCORRECT_ACNT_INFO');
422: hr_utility.set_message_token('GRE_NAME',l_gre_name);
423: pay_core_utils.push_message(801,'PAY_74157_INCORRECT_ACNT_INFO','P');
424: pay_core_utils.push_token('GRE_NAME',l_gre_name);
425: hr_utility.raise_error;
426: RETURN '1';
421: hr_utility.set_message(801,'PAY_74157_INCORRECT_ACNT_INFO');
422: hr_utility.set_message_token('GRE_NAME',l_gre_name);
423: pay_core_utils.push_message(801,'PAY_74157_INCORRECT_ACNT_INFO','P');
424: pay_core_utils.push_token('GRE_NAME',l_gre_name);
425: hr_utility.raise_error;
426: RETURN '1';
427: END IF;
428:
429: ELSIF l_gre = to_number(p_trans) THEN
429: ELSIF l_gre = to_number(p_trans) THEN
430:
431: IF l_trans_bus_no IS NULL
432: OR TRANSLATE(l_trans_bus_no,'0123456789RP','9999999999RP') <> '999999999RP9999' THEN
433: hr_utility.trace('No Business Number Entereed ');
434: hr_utility.set_message(801,'PAY_74154_INCORRECT_BN');
435: hr_utility.set_message_token('GRE_NAME',l_trans_name);
436: pay_core_utils.push_message(801,'PAY_74154_INCORRECT_BN','P');
437: pay_core_utils.push_token('GRE_NAME',l_trans_name);
430:
431: IF l_trans_bus_no IS NULL
432: OR TRANSLATE(l_trans_bus_no,'0123456789RP','9999999999RP') <> '999999999RP9999' THEN
433: hr_utility.trace('No Business Number Entereed ');
434: hr_utility.set_message(801,'PAY_74154_INCORRECT_BN');
435: hr_utility.set_message_token('GRE_NAME',l_trans_name);
436: pay_core_utils.push_message(801,'PAY_74154_INCORRECT_BN','P');
437: pay_core_utils.push_token('GRE_NAME',l_trans_name);
438: hr_utility.raise_error;
431: IF l_trans_bus_no IS NULL
432: OR TRANSLATE(l_trans_bus_no,'0123456789RP','9999999999RP') <> '999999999RP9999' THEN
433: hr_utility.trace('No Business Number Entereed ');
434: hr_utility.set_message(801,'PAY_74154_INCORRECT_BN');
435: hr_utility.set_message_token('GRE_NAME',l_trans_name);
436: pay_core_utils.push_message(801,'PAY_74154_INCORRECT_BN','P');
437: pay_core_utils.push_token('GRE_NAME',l_trans_name);
438: hr_utility.raise_error;
439: RETURN '1';
434: hr_utility.set_message(801,'PAY_74154_INCORRECT_BN');
435: hr_utility.set_message_token('GRE_NAME',l_trans_name);
436: pay_core_utils.push_message(801,'PAY_74154_INCORRECT_BN','P');
437: pay_core_utils.push_token('GRE_NAME',l_trans_name);
438: hr_utility.raise_error;
439: RETURN '1';
440: END IF;
441:
442: IF l_acc_info_flag = 'N' THEN
439: RETURN '1';
440: END IF;
441:
442: IF l_acc_info_flag = 'N' THEN
443: hr_utility.trace('No Accounting Contact info present');
444: hr_utility.set_message(801,'PAY_74157_INCORRECT_ACNT_INFO');
445: hr_utility.set_message_token('GRE_NAME',l_trans_name);
446: pay_core_utils.push_message(801,'PAY_74157_INCORRECT_ACNT_INFO','P');
447: pay_core_utils.push_token('GRE_NAME',l_trans_name);
440: END IF;
441:
442: IF l_acc_info_flag = 'N' THEN
443: hr_utility.trace('No Accounting Contact info present');
444: hr_utility.set_message(801,'PAY_74157_INCORRECT_ACNT_INFO');
445: hr_utility.set_message_token('GRE_NAME',l_trans_name);
446: pay_core_utils.push_message(801,'PAY_74157_INCORRECT_ACNT_INFO','P');
447: pay_core_utils.push_token('GRE_NAME',l_trans_name);
448: hr_utility.raise_error;
441:
442: IF l_acc_info_flag = 'N' THEN
443: hr_utility.trace('No Accounting Contact info present');
444: hr_utility.set_message(801,'PAY_74157_INCORRECT_ACNT_INFO');
445: hr_utility.set_message_token('GRE_NAME',l_trans_name);
446: pay_core_utils.push_message(801,'PAY_74157_INCORRECT_ACNT_INFO','P');
447: pay_core_utils.push_token('GRE_NAME',l_trans_name);
448: hr_utility.raise_error;
449: RETURN '1';
444: hr_utility.set_message(801,'PAY_74157_INCORRECT_ACNT_INFO');
445: hr_utility.set_message_token('GRE_NAME',l_trans_name);
446: pay_core_utils.push_message(801,'PAY_74157_INCORRECT_ACNT_INFO','P');
447: pay_core_utils.push_token('GRE_NAME',l_trans_name);
448: hr_utility.raise_error;
449: RETURN '1';
450: END IF;
451: END IF;
452: END LOOP;
572: l_data := REPLACE(l_data, '"' , '&' || 'quot;');
573: --------------------------------------------------------
574: --- P_Datatype: T = Text, N = Number, C=Currency, D=Date
575: --------------------------------------------------------
576: --hr_utility.trace('l_data='||l_data);
577: IF p_datatype = 'T' OR p_datatype = 'D' THEN
578: l_output := '<' || trim(p_tag) || '>' || trim(l_data)
579: || '' || trim(p_tag) || '>'||EOL;
580: -- hr_utility.trace('l_output='||l_output);
576: --hr_utility.trace('l_data='||l_data);
577: IF p_datatype = 'T' OR p_datatype = 'D' THEN
578: l_output := '<' || trim(p_tag) || '>' || trim(l_data)
579: || '' || trim(p_tag) || '>'||EOL;
580: -- hr_utility.trace('l_output='||l_output);
581: ELSIF p_datatype = 'N' OR p_datatype = 'C' THEN
582: IF TRIM(p_format) IS NOT NULL THEN
583: SELECT to_char(to_number(p_data), p_format)
584: INTO l_data FROM dual;
596: else l_data := l_data||'.00';
597: end if;
598: l_output := '<' || trim(p_tag) || '>' || trim(l_data) || '' || trim(p_tag) || '>';
599: END IF;
600: --hr_utility.trace('l_output='||l_output);
601: RETURN l_output;
602: END;
603: /**************************************************************************/
604: FUNCTION get_t4_pp_regno(p_pactid IN NUMBER,
687: T619_lang_cd NUMBER :=18;
688: T619_rpt_tcd NUMBER :=19;
689:
690: BEGIN
691: hr_utility.trace('+==========================================================+');
692: hr_utility.trace('XML Transmitter');
693:
694: begin
695: select max(paa1.payroll_action_id)
688: T619_rpt_tcd NUMBER :=19;
689:
690: BEGIN
691: hr_utility.trace('+==========================================================+');
692: hr_utility.trace('XML Transmitter');
693:
694: begin
695: select max(paa1.payroll_action_id)
696: into l_context1
707: when no_data_found then
708: raise;
709: end;
710:
711: hr_utility.trace('PAYROLL_ACTION_ID l_context1 ='||l_context1);
712:
713: l_return := pay_ca_archive_utils.get_archive_value(l_context1,
714: 'CAEOY_TRANSMITTER_NUMBER');
715: IF l_return IS NULL THEN
841: tab_transmitter(T619_lang_cd)
842: := convert_2_xml(l_return,'lang_cd');
843: ----
844: IF l_status = FALSE THEN
845: hr_utility.set_location('Error in T4 Transmitter record',10);
846: hr_utility.set_location('Error in the following fields: ' || l_field_name,10);
847: hr_utility.raise_error;
848: END IF;
849: ----
842: := convert_2_xml(l_return,'lang_cd');
843: ----
844: IF l_status = FALSE THEN
845: hr_utility.set_location('Error in T4 Transmitter record',10);
846: hr_utility.set_location('Error in the following fields: ' || l_field_name,10);
847: hr_utility.raise_error;
848: END IF;
849: ----
850: l_final_xml := '
843: ----
844: IF l_status = FALSE THEN
845: hr_utility.set_location('Error in T4 Transmitter record',10);
846: hr_utility.set_location('Error in the following fields: ' || l_field_name,10);
847: hr_utility.raise_error;
848: END IF;
849: ----
850: l_final_xml := '
851: || '
873: tab_transmitter(T619_cntc_extn_nbr)||
874: tab_transmitter(T619_cntc_email_area)||
875: '' || EOL||
876: '' || EOL;
877: hr_utility.trace(l_final_xml);
878: pay_core_files.write_to_magtape_lob(l_final_xml);
879: hr_utility.trace('X==========================================================X');
880: END;
881: END t4_cancel_mag_transmitter;
875: '' || EOL||
876: '' || EOL;
877: hr_utility.trace(l_final_xml);
878: pay_core_files.write_to_magtape_lob(l_final_xml);
879: hr_utility.trace('X==========================================================X');
880: END;
881: END t4_cancel_mag_transmitter;
882: /*****************************************************************************/
883:
885: BEGIN
886: DECLARE
887: l_final_xml_string VARCHAR2(32000);
888: BEGIN
889: hr_utility.trace('+==========================================================+');
890: hr_utility.trace('Entering end_of_file');
891: l_final_xml_string := '';
892:
893: hr_utility.trace(l_final_xml_string );
886: DECLARE
887: l_final_xml_string VARCHAR2(32000);
888: BEGIN
889: hr_utility.trace('+==========================================================+');
890: hr_utility.trace('Entering end_of_file');
891: l_final_xml_string := '';
892:
893: hr_utility.trace(l_final_xml_string );
894: pay_core_files.write_to_magtape_lob(l_final_xml_string);
889: hr_utility.trace('+==========================================================+');
890: hr_utility.trace('Entering end_of_file');
891: l_final_xml_string := '';
892:
893: hr_utility.trace(l_final_xml_string );
894: pay_core_files.write_to_magtape_lob(l_final_xml_string);
895: hr_utility.trace('Exiting end_of_file');
896: hr_utility.trace('X==========================================================X');
897: END;
891: l_final_xml_string := '';
892:
893: hr_utility.trace(l_final_xml_string );
894: pay_core_files.write_to_magtape_lob(l_final_xml_string);
895: hr_utility.trace('Exiting end_of_file');
896: hr_utility.trace('X==========================================================X');
897: END;
898: END end_of_file;
899: /*****************************************************************************/
892:
893: hr_utility.trace(l_final_xml_string );
894: pay_core_files.write_to_magtape_lob(l_final_xml_string);
895: hr_utility.trace('Exiting end_of_file');
896: hr_utility.trace('X==========================================================X');
897: END;
898: END end_of_file;
899: /*****************************************************************************/
900:
905: EOL VARCHAR2(5) := fnd_global.local_chr(13)
906: || fnd_global.local_chr(10);
907:
908: BEGIN
909: hr_utility.trace('+==========================================================+');
910: hr_utility.trace('Entering t4_cancel_employer_start');
911: l_final_xml_string := '
912: hr_utility.trace(l_final_xml_string);
913: pay_core_files.write_to_magtape_lob(l_final_xml_string);
906: || fnd_global.local_chr(10);
907:
908: BEGIN
909: hr_utility.trace('+==========================================================+');
910: hr_utility.trace('Entering t4_cancel_employer_start');
911: l_final_xml_string := '
912: hr_utility.trace(l_final_xml_string);
913: pay_core_files.write_to_magtape_lob(l_final_xml_string);
914: hr_utility.trace('Exiting t4_cancel_employer_start');
908: BEGIN
909: hr_utility.trace('+==========================================================+');
910: hr_utility.trace('Entering t4_cancel_employer_start');
911: l_final_xml_string := '
912: hr_utility.trace(l_final_xml_string);
913: pay_core_files.write_to_magtape_lob(l_final_xml_string);
914: hr_utility.trace('Exiting t4_cancel_employer_start');
915: hr_utility.trace('X==========================================================X');
916: END;
910: hr_utility.trace('Entering t4_cancel_employer_start');
911: l_final_xml_string := '
912: hr_utility.trace(l_final_xml_string);
913: pay_core_files.write_to_magtape_lob(l_final_xml_string);
914: hr_utility.trace('Exiting t4_cancel_employer_start');
915: hr_utility.trace('X==========================================================X');
916: END;
917: END t4_cancel_employer_start;
918:
911: l_final_xml_string := '
912: hr_utility.trace(l_final_xml_string);
913: pay_core_files.write_to_magtape_lob(l_final_xml_string);
914: hr_utility.trace('Exiting t4_cancel_employer_start');
915: hr_utility.trace('X==========================================================X');
916: END;
917: END t4_cancel_employer_start;
918:
919: /*****************************************************************************/
957: T4Summary_pprtr_2_sin NUMBER :=20;
958: T4Summary_rpt_tcd NUMBER :=21;
959:
960: BEGIN
961: hr_utility.trace('+==========================================================+');
962: hr_utility.trace('Entering t4_cancel_employer_record');
963: l_context1 := pay_magtape_generic.get_parameter_value('PAYROLL_ACTION_ID');
964: l_transfer_pact_id := pay_magtape_generic.get_parameter_value('TRANSFER_PAYROLL_ACTION_ID');
965: l_transfer_tax_unit_id := pay_magtape_generic.get_parameter_value('TRANSMITTER_GRE');
958: T4Summary_rpt_tcd NUMBER :=21;
959:
960: BEGIN
961: hr_utility.trace('+==========================================================+');
962: hr_utility.trace('Entering t4_cancel_employer_record');
963: l_context1 := pay_magtape_generic.get_parameter_value('PAYROLL_ACTION_ID');
964: l_transfer_pact_id := pay_magtape_generic.get_parameter_value('TRANSFER_PAYROLL_ACTION_ID');
965: l_transfer_tax_unit_id := pay_magtape_generic.get_parameter_value('TRANSMITTER_GRE');
966: l_transfer_ei_er_rate := pay_magtape_generic.get_parameter_value('TRANSFER_EI_ER_RATE');
964: l_transfer_pact_id := pay_magtape_generic.get_parameter_value('TRANSFER_PAYROLL_ACTION_ID');
965: l_transfer_tax_unit_id := pay_magtape_generic.get_parameter_value('TRANSMITTER_GRE');
966: l_transfer_ei_er_rate := pay_magtape_generic.get_parameter_value('TRANSFER_EI_ER_RATE');
967:
968: hr_utility.trace('PAYROLL_ACTION_ID l_context1 = ' ||l_context1);
969: hr_utility.trace('TRANSFER_PAYROLL_ACTION_ID l_transfer_pact_id = ' ||l_transfer_pact_id);
970: hr_utility.trace('TRANSMITTER_GRE l_transfer_tax_unit_id = ' ||l_transfer_tax_unit_id);
971: hr_utility.trace('TRANSFER_EI_ER_RATE l_transfer_ei_er_rate = ' ||l_transfer_ei_er_rate);
972: ----
965: l_transfer_tax_unit_id := pay_magtape_generic.get_parameter_value('TRANSMITTER_GRE');
966: l_transfer_ei_er_rate := pay_magtape_generic.get_parameter_value('TRANSFER_EI_ER_RATE');
967:
968: hr_utility.trace('PAYROLL_ACTION_ID l_context1 = ' ||l_context1);
969: hr_utility.trace('TRANSFER_PAYROLL_ACTION_ID l_transfer_pact_id = ' ||l_transfer_pact_id);
970: hr_utility.trace('TRANSMITTER_GRE l_transfer_tax_unit_id = ' ||l_transfer_tax_unit_id);
971: hr_utility.trace('TRANSFER_EI_ER_RATE l_transfer_ei_er_rate = ' ||l_transfer_ei_er_rate);
972: ----
973: l_return := pay_ca_archive_utils.get_archive_value(l_context1,
966: l_transfer_ei_er_rate := pay_magtape_generic.get_parameter_value('TRANSFER_EI_ER_RATE');
967:
968: hr_utility.trace('PAYROLL_ACTION_ID l_context1 = ' ||l_context1);
969: hr_utility.trace('TRANSFER_PAYROLL_ACTION_ID l_transfer_pact_id = ' ||l_transfer_pact_id);
970: hr_utility.trace('TRANSMITTER_GRE l_transfer_tax_unit_id = ' ||l_transfer_tax_unit_id);
971: hr_utility.trace('TRANSFER_EI_ER_RATE l_transfer_ei_er_rate = ' ||l_transfer_ei_er_rate);
972: ----
973: l_return := pay_ca_archive_utils.get_archive_value(l_context1,
974: 'CAEOY_GRE_EI_RATE');
967:
968: hr_utility.trace('PAYROLL_ACTION_ID l_context1 = ' ||l_context1);
969: hr_utility.trace('TRANSFER_PAYROLL_ACTION_ID l_transfer_pact_id = ' ||l_transfer_pact_id);
970: hr_utility.trace('TRANSMITTER_GRE l_transfer_tax_unit_id = ' ||l_transfer_tax_unit_id);
971: hr_utility.trace('TRANSFER_EI_ER_RATE l_transfer_ei_er_rate = ' ||l_transfer_ei_er_rate);
972: ----
973: l_return := pay_ca_archive_utils.get_archive_value(l_context1,
974: 'CAEOY_GRE_EI_RATE');
975: hr_utility.trace('CAEOY_GRE_EI_RATE = ' ||l_return);
971: hr_utility.trace('TRANSFER_EI_ER_RATE l_transfer_ei_er_rate = ' ||l_transfer_ei_er_rate);
972: ----
973: l_return := pay_ca_archive_utils.get_archive_value(l_context1,
974: 'CAEOY_GRE_EI_RATE');
975: hr_utility.trace('CAEOY_GRE_EI_RATE = ' ||l_return);
976: IF (l_return IS NULL) OR (to_number(l_return) = 0) THEN
977: tab_employer(EIRate):= convert_2_xml(l_transfer_ei_er_rate,'EIRate');
978: ELSE
979: tab_employer(EIRate):= convert_2_xml(l_return,'EIRate');
1113: ''||EOL||
1114: tab_employer(T4Summary_rpt_tcd)||
1115: '' || EOL||
1116: ''||EOL||''||EOL;
1117: hr_utility.trace(l_final_xml_string);
1118: pay_core_files.write_to_magtape_lob(l_final_xml_string);
1119: hr_utility.trace('X==========================================================X');
1120: END;
1121: END t4_cancel_employer_record;
1115: '' || EOL||
1116: ''||EOL||''||EOL;
1117: hr_utility.trace(l_final_xml_string);
1118: pay_core_files.write_to_magtape_lob(l_final_xml_string);
1119: hr_utility.trace('X==========================================================X');
1120: END;
1121: END t4_cancel_employer_record;
1122: /*****************************************************************************/
1123:
1317: AND ffc.context_name = 'JURISDICTION_CODE'
1318: AND fai.value='Y';
1319:
1320: BEGIN
1321: hr_utility.trace('+==========================================================+');
1322: hr_utility.trace('Employee Record');
1323: /* DBIs of other info amounts */
1324: tab_other_info_dbi(1) := 'CAEOY_T4_OTHER_INFO_AMOUNT30_PER_JD_GRE_YTD';
1325: tab_other_info_dbi(2) := 'CAEOY_T4_OTHER_INFO_AMOUNT31_PER_JD_GRE_YTD';
1318: AND fai.value='Y';
1319:
1320: BEGIN
1321: hr_utility.trace('+==========================================================+');
1322: hr_utility.trace('Employee Record');
1323: /* DBIs of other info amounts */
1324: tab_other_info_dbi(1) := 'CAEOY_T4_OTHER_INFO_AMOUNT30_PER_JD_GRE_YTD';
1325: tab_other_info_dbi(2) := 'CAEOY_T4_OTHER_INFO_AMOUNT31_PER_JD_GRE_YTD';
1326: tab_other_info_dbi(3) := 'CAEOY_T4_OTHER_INFO_AMOUNT32_PER_JD_GRE_YTD';
1401: tab_other_info_tag(35) := 'vlntr_firefighter_xmpt_amt'; -- for bug 13087483
1402: --
1403: l_payroll_actid := to_number(pay_magtape_generic.get_parameter_value
1404: ('TRANSFER_PAYROLL_ACTION_ID'));
1405: hr_utility.trace('T4_CANCEL_MAG Payroll action ='||l_payroll_actid);
1406: --
1407: l_mag_asg_action_id := to_number(pay_magtape_generic.get_parameter_value
1408: ('TRANSFER_ACT_ID'));
1409: hr_utility.trace('T4_CANCEL_MAG Assignment action ='|| to_char(l_mag_asg_action_id));
1405: hr_utility.trace('T4_CANCEL_MAG Payroll action ='||l_payroll_actid);
1406: --
1407: l_mag_asg_action_id := to_number(pay_magtape_generic.get_parameter_value
1408: ('TRANSFER_ACT_ID'));
1409: hr_utility.trace('T4_CANCEL_MAG Assignment action ='|| to_char(l_mag_asg_action_id));
1410:
1411: --
1412: OPEN c_get_payroll_asg_actid(l_mag_asg_action_id);
1413: FETCH c_get_payroll_asg_actid INTO l_arch_action_id, l_arch_pay_actid;
1411: --
1412: OPEN c_get_payroll_asg_actid(l_mag_asg_action_id);
1413: FETCH c_get_payroll_asg_actid INTO l_arch_action_id, l_arch_pay_actid;
1414: CLOSE c_get_payroll_asg_actid;
1415: hr_utility.trace('Archiver Assignment action='|| l_arch_action_id);
1416: hr_utility.trace('Archiver Payroll action='|| l_arch_pay_actid);
1417: --
1418: OPEN c_get_max_values(l_payroll_actid);
1419: FETCH c_get_max_values INTO transfer_cpp_max, transfer_ei_max, transfer_ppip_max;
1412: OPEN c_get_payroll_asg_actid(l_mag_asg_action_id);
1413: FETCH c_get_payroll_asg_actid INTO l_arch_action_id, l_arch_pay_actid;
1414: CLOSE c_get_payroll_asg_actid;
1415: hr_utility.trace('Archiver Assignment action='|| l_arch_action_id);
1416: hr_utility.trace('Archiver Payroll action='|| l_arch_pay_actid);
1417: --
1418: OPEN c_get_max_values(l_payroll_actid);
1419: FETCH c_get_max_values INTO transfer_cpp_max, transfer_ei_max, transfer_ppip_max;
1420: CLOSE c_get_max_values;
1417: --
1418: OPEN c_get_max_values(l_payroll_actid);
1419: FETCH c_get_max_values INTO transfer_cpp_max, transfer_ei_max, transfer_ppip_max;
1420: CLOSE c_get_max_values;
1421: hr_utility.trace('TRANSFER_CPP_MAX = '||transfer_cpp_max);
1422: hr_utility.trace('TRANSFER_EI_MAX = '||transfer_ei_max);
1423: hr_utility.trace('TRANSFER_PPIP_MAX = '||transfer_ppip_max);
1424: --
1425: lv_ei_display_flag := 1;
1418: OPEN c_get_max_values(l_payroll_actid);
1419: FETCH c_get_max_values INTO transfer_cpp_max, transfer_ei_max, transfer_ppip_max;
1420: CLOSE c_get_max_values;
1421: hr_utility.trace('TRANSFER_CPP_MAX = '||transfer_cpp_max);
1422: hr_utility.trace('TRANSFER_EI_MAX = '||transfer_ei_max);
1423: hr_utility.trace('TRANSFER_PPIP_MAX = '||transfer_ppip_max);
1424: --
1425: lv_ei_display_flag := 1;
1426: OPEN c_get_t4_ei_earn_display(l_arch_action_id);
1419: FETCH c_get_max_values INTO transfer_cpp_max, transfer_ei_max, transfer_ppip_max;
1420: CLOSE c_get_max_values;
1421: hr_utility.trace('TRANSFER_CPP_MAX = '||transfer_cpp_max);
1422: hr_utility.trace('TRANSFER_EI_MAX = '||transfer_ei_max);
1423: hr_utility.trace('TRANSFER_PPIP_MAX = '||transfer_ppip_max);
1424: --
1425: lv_ei_display_flag := 1;
1426: OPEN c_get_t4_ei_earn_display(l_arch_action_id);
1427: FETCH c_get_t4_ei_earn_display INTO lv_ei_display_flag;
1425: lv_ei_display_flag := 1;
1426: OPEN c_get_t4_ei_earn_display(l_arch_action_id);
1427: FETCH c_get_t4_ei_earn_display INTO lv_ei_display_flag;
1428: CLOSE c_get_t4_ei_earn_display;
1429: hr_utility.trace('lv_ei_display_flag ='||lv_ei_display_flag);
1430: /*Removed this as this is not required.
1431: l_arch_pay_actid
1432: := pay_magtape_generic.get_parameter_value('PAYROLL_ACTION_ID');
1433: */
1444: /* T4Slip Tags begin*/
1445: OPEN c_get_person_id(l_mag_asg_action_id);
1446: FETCH c_get_person_id INTO l_person_id;
1447: CLOSE c_get_person_id;
1448: hr_utility.trace('Person ID ='||l_person_id);
1449: ----1
1450: l_return := pay_ca_emp_address_dtls.get_emp_address(l_person_id,
1451: l_address_line1,
1452: l_address_line2,
1545: ELSE
1546: FETCH c_cancel_amend_jurisdictions INTO l_jurisdiction_code;
1547: EXIT WHEN c_cancel_amend_jurisdictions%NOTFOUND;
1548: END IF;
1549: hr_utility.trace('Jurisdiction Code ='|| to_char(l_jurisdiction_code));
1550: l_status := l_name_status;
1551: l_error_message := l_name_error_message;
1552: l_other_info_count := 0;
1553: l_other_info_sets := 1;
1827: /* T4_AMT Tags end */
1828: /*****************************************************************************/
1829: /* OTH_INFO Tags begin */
1830: IF l_status THEN
1831: hr_utility.trace('Status = Success');
1832: ELSE
1833: hr_utility.trace('Status = Fail');
1834: END IF;
1835:
1829: /* OTH_INFO Tags begin */
1830: IF l_status THEN
1831: hr_utility.trace('Status = Success');
1832: ELSE
1833: hr_utility.trace('Status = Fail');
1834: END IF;
1835:
1836:
1837: FOR i IN 1..tab_other_info_dbi.COUNT LOOP
1851: else
1852: l_return_xml := convert_2_xml(l_return ,tab_other_info_tag(i),'C');
1853: end if;
1854:
1855: hr_utility.trace(tab_other_info_dbi(i)||' => '||l_return_xml);
1856: l_other_info_count := l_other_info_count+1;
1857: IF l_status = FALSE THEN --Error report has single record A02
1858: l_other_info_xml_string(1) := l_other_info_xml_string(1)||l_return_xml;
1859: ELSIF l_status = TRUE THEN --Success report has multiple records
1878: END IF;
1879: END IF;
1880: END LOOP;
1881:
1882: hr_utility.trace('Other_info_count = '||l_other_info_count ||', Other_info_sets = '||l_other_info_sets);
1883:
1884: /* OTH_INFO Tags end */
1885: /*****************************************************************************/
1886: /* Final XML Generation begin */
1923: ELSE
1924: CLOSE c_cancel_amend_jurisdictions;
1925: END IF;
1926:
1927: hr_utility.trace(l_all_final_xml_string);
1928: pay_core_files.write_to_magtape_lob(l_all_final_xml_string);
1929: hr_utility.trace('End t4_cancel_employee_record ');
1930: hr_utility.trace('X==========================================================X');
1931:
1925: END IF;
1926:
1927: hr_utility.trace(l_all_final_xml_string);
1928: pay_core_files.write_to_magtape_lob(l_all_final_xml_string);
1929: hr_utility.trace('End t4_cancel_employee_record ');
1930: hr_utility.trace('X==========================================================X');
1931:
1932: /* Final XML Generation end */
1933: /*****************************************************************************/
1926:
1927: hr_utility.trace(l_all_final_xml_string);
1928: pay_core_files.write_to_magtape_lob(l_all_final_xml_string);
1929: hr_utility.trace('End t4_cancel_employee_record ');
1930: hr_utility.trace('X==========================================================X');
1931:
1932: /* Final XML Generation end */
1933: /*****************************************************************************/
1934: END;