[Home] [Help]
1: package body pay_us_nacha_tape as
2: /* $Header: pytapnac.pkb 120.9 2011/10/05 10:02:52 abellur ship $ */
3: /*
4: ******************************************************************
5: * *
16: * 500 Oracle Parkway, Redwood City, CA, 94065. *
17: * *
18: ******************************************************************
19:
20: Name : pay_us_nacha_tape
21:
22: Description : This package holds building blocks used in the generation
23: of nacha Tape.
24:
581: hr_utility.trace('Exiting pay_nacha_tape.get_third_part_details - error');
582: hr_utility.set_message(801,'PAY_GARNISH_ELE_NOT_FOUND');
583: pay_core_utils.push_message(801,'PAY_GARNISH_ELE_NOT_FOUND','P');
584: pay_core_utils.push_token('ASSIGNMENT_ID',g_assignment_id);
585: raise_application_error(-20101, 'Error in pay_us_nacha_tape.get_third_party_details');
586: --Changes for Bug 8944172
587: end get_third_party_details;
588:
589: /* ****************************************************************
598: FUNCTION get_formula_id (p_formula_name varchar2)
599: RETURN varchar2 IS
600: ff_formula_id varchar2(9);
601: BEGIN
602: hr_utility.set_location('pay_us_nacha_tape.get_formula_id',1);
603: --
604: select TO_CHAR(FORMULA_ID) INTO ff_formula_id
605: from FF_FORMULAS_F
606: where g_effective_date between EFFECTIVE_START_DATE and
631: FUNCTION get_transfer_param ( p_param_name varchar2 )
632: RETURN Number IS
633: param_value number;
634: BEGIN
635: hr_utility.set_location('pay_us_nacha_tape.get_effective_date',20);
636: IF pay_mag_tape.internal_prm_names(3) = p_param_name
637: THEN
638: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
639: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
1193: /*****************************END of Local Functions ****************/
1194:
1195:
1196: BEGIN
1197: hr_utility.trace('Entering pay_us_nacha_tape.run_formula');
1198: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
1199: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
1200: pay_mag_tape.internal_prm_values(1) := '2';
1201:
1200: pay_mag_tape.internal_prm_values(1) := '2';
1201:
1202: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1203: pay_mag_tape.internal_cxt_values(1) := '1';
1204: hr_utility.set_location('pay_us_nacha_tape.run_formula',1);
1205:
1206: hr_utility.set_location ('run_formula loop',1);
1207:
1208: --Checking If the transaction is IAT
1248: and ppa.effective_date between opm.EFFECTIVE_START_DATE
1249: and opm.EFFECTIVE_END_DATE;
1250: if SQL%NOTFOUND then
1251: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1252: hr_utility.set_message_token('PROCEDURE','pay_us_nacha_tape');
1253: hr_utility.set_message_token('STEP','1');
1254: hr_utility.raise_error;
1255: end if;
1256:
1369: IF v_amount > 99999999.99 THEN
1370: hr_utility.set_message(801,'PAY_US_PAYMENT_OVERFLOW');
1371: pay_core_utils.push_message(801,'PAY_US_PAYMENT_OVERFLOW','P');
1372: pay_core_utils.push_token('ASSIGNMENT_NO',g_assignment_id);
1373: raise_application_error(-20101, 'Error in pay_us_nacha_tape.run_formula');
1374:
1375: END IF ;
1376:
1377:
1404: IF v_amount > 99999999.99 THEN
1405: hr_utility.set_message(801,'PAY_US_PAYMENT_OVERFLOW');
1406: pay_core_utils.push_message(801,'PAY_US_PAYMENT_OVERFLOW','P');
1407: pay_core_utils.push_token('ASSIGNMENT_NO',g_assignment_id);
1408: raise_application_error(-20101, 'Error in pay_us_nacha_tape.run_formula');
1409: END IF;
1410:
1411: hr_utility.trace('G_OVERFLOW_AMOUNT is : '|| g_overflow_amount);
1412: hr_utility.trace('G_ROWID value is : '|| g_rowid);
1735: END f_get_batch_transact_ident;
1736:
1737: --BEGIN
1738: -- hr_utility.trace_on(null, 'NACHA');
1739: END pay_us_nacha_tape;