[Home] [Help]
1: PACKAGE BODY PAY_GB_MOVDED_EDI as
2: /* $Header: pygbmedi.pkb 120.45.12020000.2 2012/07/06 10:32:51 vmaripal ship $ */
3: /*===========================================================================+
4: | Copyright (c) 1993 Oracle Corporation |
5: | Redwood Shores, California, USA |
5: | Redwood Shores, California, USA |
6: | All rights reserved. |
7: +============================================================================
8: Name
9: PAY_GB_MOVDED_EDI
10: Purpose
11: Package to control archiver process in the creation of assignment actions
12: and the creation of EDI Message files uing the magtape process for EDI
13: Message Types : P45(3), P46, P46PENNOT
171: tax_basis VARCHAR2(20),
172: prev_paid VARCHAR2(20),
173: prev_tax VARCHAR2(20));
174:
175: g_package CONSTANT VARCHAR2(20):= 'pay_gb_movded_edi.';
176: --
177: --
178: /*------------- PRIVATE PROCEDURE -----------------*/
179: --
1623: IF l_p46_expat_start_empl_date = ' ' OR l_p46_expat_start_empl_date IS NULL THEN
1624: populate_run_msg(p_assactid,' The start date of employment in UK (P46EXPAT) for the assignment ' || l_assignment_number || ' is blank. Enter a valid start date.');
1625: fnd_file.put_line (fnd_file.LOG,l_assignment_number||' : The start date of employment in UK (P46EXPAT) for the assignment ' || l_assignment_number || ' is blank. Enter a valid start date.');
1626: edi_validation_fail := 'Y';
1627: ELSIF PAY_GB_MOVDED_EDI.date_validate(p_assactid,'UK_EMPL_DATE',to_date(l_p46_expat_start_empl_date,'YYYY/MM/DD HH24:MI:SS')) = 0 THEN
1628: populate_run_msg(p_assactid,' The start date of employment in UK (P46EXPAT) for the assignment ' || l_assignment_number || ' is invalid.');
1629: fnd_file.put_line (fnd_file.LOG,l_assignment_number||' : The start date of employment in UK (P46EXPAT) for the assignment ' || l_assignment_number || ' is blank. Enter a valid start date.');
1630: edi_validation_fail := 'Y';
1631: END IF;
3582:
3583: return l_return_valid;
3584: END date_validate;
3585:
3586: end PAY_GB_MOVDED_EDI;