180: RETURN NUMBER IS
181: param_value NUMBER;
182: BEGIN
183: hr_utility.set_location('pay_us_nacha_tape.get_effective_date', 20);
184: IF pay_mag_tape.internal_prm_names(3) = p_param_name
185: THEN
186: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
187: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
188: THEN
182: BEGIN
183: hr_utility.set_location('pay_us_nacha_tape.get_effective_date', 20);
184: IF pay_mag_tape.internal_prm_names(3) = p_param_name
185: THEN
186: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
187: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
188: THEN
189: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
190: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
183: hr_utility.set_location('pay_us_nacha_tape.get_effective_date', 20);
184: IF pay_mag_tape.internal_prm_names(3) = p_param_name
185: THEN
186: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
187: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
188: THEN
189: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
190: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
191: THEN
185: THEN
186: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
187: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
188: THEN
189: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
190: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
191: THEN
192: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
193: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
186: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
187: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
188: THEN
189: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
190: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
191: THEN
192: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
193: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
194: THEN
188: THEN
189: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
190: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
191: THEN
192: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
193: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
194: THEN
195: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
196: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
189: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
190: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
191: THEN
192: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
193: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
194: THEN
195: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
196: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
197: THEN
191: THEN
192: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
193: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
194: THEN
195: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
196: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
197: THEN
198: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(7));
199: ELSIF pay_mag_tape.internal_prm_names(8) = p_param_name
192: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
193: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
194: THEN
195: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
196: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
197: THEN
198: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(7));
199: ELSIF pay_mag_tape.internal_prm_names(8) = p_param_name
200: THEN
194: THEN
195: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
196: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
197: THEN
198: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(7));
199: ELSIF pay_mag_tape.internal_prm_names(8) = p_param_name
200: THEN
201: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(8));
202: END IF;
195: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
196: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
197: THEN
198: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(7));
199: ELSIF pay_mag_tape.internal_prm_names(8) = p_param_name
200: THEN
201: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(8));
202: END IF;
203: RETURN param_value;
197: THEN
198: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(7));
199: ELSIF pay_mag_tape.internal_prm_names(8) = p_param_name
200: THEN
201: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(8));
202: END IF;
203: RETURN param_value;
204: END get_transfer_param;
205:
212:
213: hr_utility.TRACE('Writing File Header');
214: hr_utility.TRACE('.... Writing File Header Context');
215:
216: pay_mag_tape.internal_cxt_values(1) := '3';
217: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
218: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
219: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
220: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
213: hr_utility.TRACE('Writing File Header');
214: hr_utility.TRACE('.... Writing File Header Context');
215:
216: pay_mag_tape.internal_cxt_values(1) := '3';
217: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
218: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
219: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
220: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
221: --
214: hr_utility.TRACE('.... Writing File Header Context');
215:
216: pay_mag_tape.internal_cxt_values(1) := '3';
217: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
218: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
219: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
220: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
221: --
222: hr_utility.TRACE('.... Writing File Header Parameters');
215:
216: pay_mag_tape.internal_cxt_values(1) := '3';
217: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
218: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
219: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
220: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
221: --
222: hr_utility.TRACE('.... Writing File Header Parameters');
223: hr_utility.TRACE('g_file_header ' || g_file_header);
216: pay_mag_tape.internal_cxt_values(1) := '3';
217: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
218: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
219: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
220: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
221: --
222: hr_utility.TRACE('.... Writing File Header Parameters');
223: hr_utility.TRACE('g_file_header ' || g_file_header);
224:
221: --
222: hr_utility.TRACE('.... Writing File Header Parameters');
223: hr_utility.TRACE('g_file_header ' || g_file_header);
224:
225: pay_mag_tape.internal_prm_values(1) := '5';
226: pay_mag_tape.internal_prm_values(2) := g_file_header;
227: pay_mag_tape.internal_prm_names(3) := 'FILE_ID_MODIFIER';
228: pay_mag_tape.internal_prm_values(3) := p_file_id_modifier;
229: pay_mag_tape.internal_prm_names(4) := 'CREATION_DATE';
222: hr_utility.TRACE('.... Writing File Header Parameters');
223: hr_utility.TRACE('g_file_header ' || g_file_header);
224:
225: pay_mag_tape.internal_prm_values(1) := '5';
226: pay_mag_tape.internal_prm_values(2) := g_file_header;
227: pay_mag_tape.internal_prm_names(3) := 'FILE_ID_MODIFIER';
228: pay_mag_tape.internal_prm_values(3) := p_file_id_modifier;
229: pay_mag_tape.internal_prm_names(4) := 'CREATION_DATE';
230: pay_mag_tape.internal_prm_values(4) := g_date;
223: hr_utility.TRACE('g_file_header ' || g_file_header);
224:
225: pay_mag_tape.internal_prm_values(1) := '5';
226: pay_mag_tape.internal_prm_values(2) := g_file_header;
227: pay_mag_tape.internal_prm_names(3) := 'FILE_ID_MODIFIER';
228: pay_mag_tape.internal_prm_values(3) := p_file_id_modifier;
229: pay_mag_tape.internal_prm_names(4) := 'CREATION_DATE';
230: pay_mag_tape.internal_prm_values(4) := g_date;
231: pay_mag_tape.internal_prm_names(5) := 'CREATION_TIME';
224:
225: pay_mag_tape.internal_prm_values(1) := '5';
226: pay_mag_tape.internal_prm_values(2) := g_file_header;
227: pay_mag_tape.internal_prm_names(3) := 'FILE_ID_MODIFIER';
228: pay_mag_tape.internal_prm_values(3) := p_file_id_modifier;
229: pay_mag_tape.internal_prm_names(4) := 'CREATION_DATE';
230: pay_mag_tape.internal_prm_values(4) := g_date;
231: pay_mag_tape.internal_prm_names(5) := 'CREATION_TIME';
232: pay_mag_tape.internal_prm_values(5) := g_time;
225: pay_mag_tape.internal_prm_values(1) := '5';
226: pay_mag_tape.internal_prm_values(2) := g_file_header;
227: pay_mag_tape.internal_prm_names(3) := 'FILE_ID_MODIFIER';
228: pay_mag_tape.internal_prm_values(3) := p_file_id_modifier;
229: pay_mag_tape.internal_prm_names(4) := 'CREATION_DATE';
230: pay_mag_tape.internal_prm_values(4) := g_date;
231: pay_mag_tape.internal_prm_names(5) := 'CREATION_TIME';
232: pay_mag_tape.internal_prm_values(5) := g_time;
233:
226: pay_mag_tape.internal_prm_values(2) := g_file_header;
227: pay_mag_tape.internal_prm_names(3) := 'FILE_ID_MODIFIER';
228: pay_mag_tape.internal_prm_values(3) := p_file_id_modifier;
229: pay_mag_tape.internal_prm_names(4) := 'CREATION_DATE';
230: pay_mag_tape.internal_prm_values(4) := g_date;
231: pay_mag_tape.internal_prm_names(5) := 'CREATION_TIME';
232: pay_mag_tape.internal_prm_values(5) := g_time;
233:
234: hr_utility.TRACE('Leaving File Header');
227: pay_mag_tape.internal_prm_names(3) := 'FILE_ID_MODIFIER';
228: pay_mag_tape.internal_prm_values(3) := p_file_id_modifier;
229: pay_mag_tape.internal_prm_names(4) := 'CREATION_DATE';
230: pay_mag_tape.internal_prm_values(4) := g_date;
231: pay_mag_tape.internal_prm_names(5) := 'CREATION_TIME';
232: pay_mag_tape.internal_prm_values(5) := g_time;
233:
234: hr_utility.TRACE('Leaving File Header');
235:
228: pay_mag_tape.internal_prm_values(3) := p_file_id_modifier;
229: pay_mag_tape.internal_prm_names(4) := 'CREATION_DATE';
230: pay_mag_tape.internal_prm_values(4) := g_date;
231: pay_mag_tape.internal_prm_names(5) := 'CREATION_TIME';
232: pay_mag_tape.internal_prm_values(5) := g_time;
233:
234: hr_utility.TRACE('Leaving File Header');
235:
236: hr_utility.set_location('run_formula.File_head', 6);
268: -- Context for NACHA_BATCH_HEADER
269: -- first context is number of contexts
270: hr_utility.TRACE('.... Writing IAT Batch Header Context');
271:
272: pay_mag_tape.internal_cxt_values(1) := '4';
273: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
274: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
275: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
276: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
269: -- first context is number of contexts
270: hr_utility.TRACE('.... Writing IAT Batch Header Context');
271:
272: pay_mag_tape.internal_cxt_values(1) := '4';
273: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
274: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
275: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
276: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
277: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
270: hr_utility.TRACE('.... Writing IAT Batch Header Context');
271:
272: pay_mag_tape.internal_cxt_values(1) := '4';
273: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
274: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
275: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
276: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
277: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
278: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
271:
272: pay_mag_tape.internal_cxt_values(1) := '4';
273: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
274: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
275: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
276: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
277: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
278: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
279:
272: pay_mag_tape.internal_cxt_values(1) := '4';
273: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
274: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
275: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
276: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
277: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
278: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
279:
280: -- Parameters for NACHA_BATCH_HEADER
273: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
274: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
275: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
276: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
277: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
278: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
279:
280: -- Parameters for NACHA_BATCH_HEADER
281: -- first parameter is number of parameters
274: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
275: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
276: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
277: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
278: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
279:
280: -- Parameters for NACHA_BATCH_HEADER
281: -- first parameter is number of parameters
282: -- second parameter is formula is
281: -- first parameter is number of parameters
282: -- second parameter is formula is
283: hr_utility.TRACE('.... Writing Batch Header Parameters');
284:
285: pay_mag_tape.internal_prm_values(1) := '6';
286: pay_mag_tape.internal_prm_values(2) := g_batch_header;
287:
288: pay_mag_tape.internal_prm_names(3) := 'COMPANY_ENTRY_DESCRIPTION';
289: pay_mag_tape.internal_prm_values(3) := g_company_entry_desc;
282: -- second parameter is formula is
283: hr_utility.TRACE('.... Writing Batch Header Parameters');
284:
285: pay_mag_tape.internal_prm_values(1) := '6';
286: pay_mag_tape.internal_prm_values(2) := g_batch_header;
287:
288: pay_mag_tape.internal_prm_names(3) := 'COMPANY_ENTRY_DESCRIPTION';
289: pay_mag_tape.internal_prm_values(3) := g_company_entry_desc;
290:
284:
285: pay_mag_tape.internal_prm_values(1) := '6';
286: pay_mag_tape.internal_prm_values(2) := g_batch_header;
287:
288: pay_mag_tape.internal_prm_names(3) := 'COMPANY_ENTRY_DESCRIPTION';
289: pay_mag_tape.internal_prm_values(3) := g_company_entry_desc;
290:
291: pay_mag_tape.internal_prm_names(4) := 'EFFECTIVE_ENTRY_DATE';
292: pay_mag_tape.internal_prm_values(4) := nvl(p_direct_dep_date,
285: pay_mag_tape.internal_prm_values(1) := '6';
286: pay_mag_tape.internal_prm_values(2) := g_batch_header;
287:
288: pay_mag_tape.internal_prm_names(3) := 'COMPANY_ENTRY_DESCRIPTION';
289: pay_mag_tape.internal_prm_values(3) := g_company_entry_desc;
290:
291: pay_mag_tape.internal_prm_names(4) := 'EFFECTIVE_ENTRY_DATE';
292: pay_mag_tape.internal_prm_values(4) := nvl(p_direct_dep_date,
293: TO_CHAR(p_effective_date, 'YYMMDD'));
287:
288: pay_mag_tape.internal_prm_names(3) := 'COMPANY_ENTRY_DESCRIPTION';
289: pay_mag_tape.internal_prm_values(3) := g_company_entry_desc;
290:
291: pay_mag_tape.internal_prm_names(4) := 'EFFECTIVE_ENTRY_DATE';
292: pay_mag_tape.internal_prm_values(4) := nvl(p_direct_dep_date,
293: TO_CHAR(p_effective_date, 'YYMMDD'));
294: pay_mag_tape.internal_prm_names(5) := 'BATCH_NUMBER';
295: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_batch_number);
288: pay_mag_tape.internal_prm_names(3) := 'COMPANY_ENTRY_DESCRIPTION';
289: pay_mag_tape.internal_prm_values(3) := g_company_entry_desc;
290:
291: pay_mag_tape.internal_prm_names(4) := 'EFFECTIVE_ENTRY_DATE';
292: pay_mag_tape.internal_prm_values(4) := nvl(p_direct_dep_date,
293: TO_CHAR(p_effective_date, 'YYMMDD'));
294: pay_mag_tape.internal_prm_names(5) := 'BATCH_NUMBER';
295: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_batch_number);
296:
290:
291: pay_mag_tape.internal_prm_names(4) := 'EFFECTIVE_ENTRY_DATE';
292: pay_mag_tape.internal_prm_values(4) := nvl(p_direct_dep_date,
293: TO_CHAR(p_effective_date, 'YYMMDD'));
294: pay_mag_tape.internal_prm_names(5) := 'BATCH_NUMBER';
295: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_batch_number);
296:
297: pay_mag_tape.internal_prm_names(6) := 'FORMAT_TYPE';
298: pay_mag_tape.internal_prm_values(6) := 'IAT';
291: pay_mag_tape.internal_prm_names(4) := 'EFFECTIVE_ENTRY_DATE';
292: pay_mag_tape.internal_prm_values(4) := nvl(p_direct_dep_date,
293: TO_CHAR(p_effective_date, 'YYMMDD'));
294: pay_mag_tape.internal_prm_names(5) := 'BATCH_NUMBER';
295: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_batch_number);
296:
297: pay_mag_tape.internal_prm_names(6) := 'FORMAT_TYPE';
298: pay_mag_tape.internal_prm_values(6) := 'IAT';
299:
293: TO_CHAR(p_effective_date, 'YYMMDD'));
294: pay_mag_tape.internal_prm_names(5) := 'BATCH_NUMBER';
295: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_batch_number);
296:
297: pay_mag_tape.internal_prm_names(6) := 'FORMAT_TYPE';
298: pay_mag_tape.internal_prm_values(6) := 'IAT';
299:
300:
301:
294: pay_mag_tape.internal_prm_names(5) := 'BATCH_NUMBER';
295: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_batch_number);
296:
297: pay_mag_tape.internal_prm_names(6) := 'FORMAT_TYPE';
298: pay_mag_tape.internal_prm_values(6) := 'IAT';
299:
300:
301:
302: hr_utility.TRACE('Leaving Batch Header');
329: --
330:
331: -- Context Setup for NACHA_ENTRY_DETAIL
332: -- First context value is number of contexts
333: pay_mag_tape.internal_cxt_values(1) := '4';
334: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
335: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
336: pay_mag_tape.internal_cxt_names(3) := 'PER_PAY_METHOD_ID';
337: pay_mag_tape.internal_cxt_values(3) := to_char(g_personal_payment_method_id);
330:
331: -- Context Setup for NACHA_ENTRY_DETAIL
332: -- First context value is number of contexts
333: pay_mag_tape.internal_cxt_values(1) := '4';
334: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
335: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
336: pay_mag_tape.internal_cxt_names(3) := 'PER_PAY_METHOD_ID';
337: pay_mag_tape.internal_cxt_values(3) := to_char(g_personal_payment_method_id);
338: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
331: -- Context Setup for NACHA_ENTRY_DETAIL
332: -- First context value is number of contexts
333: pay_mag_tape.internal_cxt_values(1) := '4';
334: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
335: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
336: pay_mag_tape.internal_cxt_names(3) := 'PER_PAY_METHOD_ID';
337: pay_mag_tape.internal_cxt_values(3) := to_char(g_personal_payment_method_id);
338: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
339: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
332: -- First context value is number of contexts
333: pay_mag_tape.internal_cxt_values(1) := '4';
334: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
335: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
336: pay_mag_tape.internal_cxt_names(3) := 'PER_PAY_METHOD_ID';
337: pay_mag_tape.internal_cxt_values(3) := to_char(g_personal_payment_method_id);
338: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
339: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
340:
333: pay_mag_tape.internal_cxt_values(1) := '4';
334: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
335: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
336: pay_mag_tape.internal_cxt_names(3) := 'PER_PAY_METHOD_ID';
337: pay_mag_tape.internal_cxt_values(3) := to_char(g_personal_payment_method_id);
338: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
339: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
340:
341:
334: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
335: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
336: pay_mag_tape.internal_cxt_names(3) := 'PER_PAY_METHOD_ID';
337: pay_mag_tape.internal_cxt_values(3) := to_char(g_personal_payment_method_id);
338: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
339: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
340:
341:
342: -- Parameter Setup for NACHA_ENTRY_DETAIL
335: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
336: pay_mag_tape.internal_cxt_names(3) := 'PER_PAY_METHOD_ID';
337: pay_mag_tape.internal_cxt_values(3) := to_char(g_personal_payment_method_id);
338: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
339: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
340:
341:
342: -- Parameter Setup for NACHA_ENTRY_DETAIL
343: -- First parameter value is number of parameters
344: -- second parameter value is formula id
345:
346: hr_utility.TRACE('.... Writing Entry Detail Parameters');
347:
348: pay_mag_tape.internal_prm_values(1) := '8';
349: pay_mag_tape.internal_prm_values(2) := g_entry_detail;
350:
351: IF g_temp_count = 0 THEN
352: -- If this is the first entry detail of a batch, reset these
345:
346: hr_utility.TRACE('.... Writing Entry Detail Parameters');
347:
348: pay_mag_tape.internal_prm_values(1) := '8';
349: pay_mag_tape.internal_prm_values(2) := g_entry_detail;
350:
351: IF g_temp_count = 0 THEN
352: -- If this is the first entry detail of a batch, reset these
353: -- parameters.
350:
351: IF g_temp_count = 0 THEN
352: -- If this is the first entry detail of a batch, reset these
353: -- parameters.
354: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_ENTRY_COUNT';
355: pay_mag_tape.internal_prm_values(3) := '0';
356: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_HASH';
357: pay_mag_tape.internal_prm_values(4) := '0';
358: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CREDIT_AMOUNT';
351: IF g_temp_count = 0 THEN
352: -- If this is the first entry detail of a batch, reset these
353: -- parameters.
354: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_ENTRY_COUNT';
355: pay_mag_tape.internal_prm_values(3) := '0';
356: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_HASH';
357: pay_mag_tape.internal_prm_values(4) := '0';
358: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CREDIT_AMOUNT';
359: pay_mag_tape.internal_prm_values(5) := '0';
352: -- If this is the first entry detail of a batch, reset these
353: -- parameters.
354: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_ENTRY_COUNT';
355: pay_mag_tape.internal_prm_values(3) := '0';
356: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_HASH';
357: pay_mag_tape.internal_prm_values(4) := '0';
358: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CREDIT_AMOUNT';
359: pay_mag_tape.internal_prm_values(5) := '0';
360: /* pay_mag_tape.internal_prm_names(7) := 'TRANSFER_ORG_PAY_TOT';
353: -- parameters.
354: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_ENTRY_COUNT';
355: pay_mag_tape.internal_prm_values(3) := '0';
356: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_HASH';
357: pay_mag_tape.internal_prm_values(4) := '0';
358: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CREDIT_AMOUNT';
359: pay_mag_tape.internal_prm_values(5) := '0';
360: /* pay_mag_tape.internal_prm_names(7) := 'TRANSFER_ORG_PAY_TOT';
361: pay_mag_tape.internal_prm_values(7) := '0';*/
354: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_ENTRY_COUNT';
355: pay_mag_tape.internal_prm_values(3) := '0';
356: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_HASH';
357: pay_mag_tape.internal_prm_values(4) := '0';
358: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CREDIT_AMOUNT';
359: pay_mag_tape.internal_prm_values(5) := '0';
360: /* pay_mag_tape.internal_prm_names(7) := 'TRANSFER_ORG_PAY_TOT';
361: pay_mag_tape.internal_prm_values(7) := '0';*/
362:
355: pay_mag_tape.internal_prm_values(3) := '0';
356: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_HASH';
357: pay_mag_tape.internal_prm_values(4) := '0';
358: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CREDIT_AMOUNT';
359: pay_mag_tape.internal_prm_values(5) := '0';
360: /* pay_mag_tape.internal_prm_names(7) := 'TRANSFER_ORG_PAY_TOT';
361: pay_mag_tape.internal_prm_values(7) := '0';*/
362:
363:
356: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_HASH';
357: pay_mag_tape.internal_prm_values(4) := '0';
358: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CREDIT_AMOUNT';
359: pay_mag_tape.internal_prm_values(5) := '0';
360: /* pay_mag_tape.internal_prm_names(7) := 'TRANSFER_ORG_PAY_TOT';
361: pay_mag_tape.internal_prm_values(7) := '0';*/
362:
363:
364: g_temp_count := 1;
357: pay_mag_tape.internal_prm_values(4) := '0';
358: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CREDIT_AMOUNT';
359: pay_mag_tape.internal_prm_values(5) := '0';
360: /* pay_mag_tape.internal_prm_names(7) := 'TRANSFER_ORG_PAY_TOT';
361: pay_mag_tape.internal_prm_values(7) := '0';*/
362:
363:
364: g_temp_count := 1;
365: hr_utility.set_location('run_formula.Assignment', 8);
369: -- Parameters 3-5 are transferred from previous formula
370: -- 3 - TRANSFER_ENTRY_COUNT
371: -- 4 - TRANSFER_ENTRY_HASH
372: -- 5 - TRANSFER_CREDIT_AMOUNT
373: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_PAY_VALUE';
374: pay_mag_tape.internal_prm_values(6) := fnd_number.number_to_canonical(v_amount);
375:
376: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
377: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_count);
370: -- 3 - TRANSFER_ENTRY_COUNT
371: -- 4 - TRANSFER_ENTRY_HASH
372: -- 5 - TRANSFER_CREDIT_AMOUNT
373: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_PAY_VALUE';
374: pay_mag_tape.internal_prm_values(6) := fnd_number.number_to_canonical(v_amount);
375:
376: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
377: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_count);
378:
372: -- 5 - TRANSFER_CREDIT_AMOUNT
373: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_PAY_VALUE';
374: pay_mag_tape.internal_prm_values(6) := fnd_number.number_to_canonical(v_amount);
375:
376: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
377: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_count);
378:
379: pay_mag_tape.internal_prm_names(8) := 'TEST_FILE';
380: pay_mag_tape.internal_prm_values(8) := p_test_file;
373: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_PAY_VALUE';
374: pay_mag_tape.internal_prm_values(6) := fnd_number.number_to_canonical(v_amount);
375:
376: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
377: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_count);
378:
379: pay_mag_tape.internal_prm_names(8) := 'TEST_FILE';
380: pay_mag_tape.internal_prm_values(8) := p_test_file;
381:
375:
376: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
377: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_count);
378:
379: pay_mag_tape.internal_prm_names(8) := 'TEST_FILE';
380: pay_mag_tape.internal_prm_values(8) := p_test_file;
381:
382: hr_utility.set_location('run_formula.Assignment', 7);
383:
376: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
377: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_count);
378:
379: pay_mag_tape.internal_prm_names(8) := 'TEST_FILE';
380: pay_mag_tape.internal_prm_values(8) := p_test_file;
381:
382: hr_utility.set_location('run_formula.Assignment', 7);
383:
384:
438: -- Context Setup for NACHA_ORG_PAY_ENTRY_DETAIL
439: -- first context is number of context values
440: hr_utility.TRACE('.... Writing Org Entry Detail Context');
441:
442: pay_mag_tape.internal_cxt_values(1) := '3';
443: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
444: pay_mag_tape.internal_cxt_values(2) := g_csr_org_pay_meth_id;
445: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
446: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
439: -- first context is number of context values
440: hr_utility.TRACE('.... Writing Org Entry Detail Context');
441:
442: pay_mag_tape.internal_cxt_values(1) := '3';
443: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
444: pay_mag_tape.internal_cxt_values(2) := g_csr_org_pay_meth_id;
445: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
446: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
447:
440: hr_utility.TRACE('.... Writing Org Entry Detail Context');
441:
442: pay_mag_tape.internal_cxt_values(1) := '3';
443: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
444: pay_mag_tape.internal_cxt_values(2) := g_csr_org_pay_meth_id;
445: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
446: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
447:
448: -- Parameter Setup for NACHA_ORG_PAY_ENTRY_DETAIL
441:
442: pay_mag_tape.internal_cxt_values(1) := '3';
443: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
444: pay_mag_tape.internal_cxt_values(2) := g_csr_org_pay_meth_id;
445: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
446: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
447:
448: -- Parameter Setup for NACHA_ORG_PAY_ENTRY_DETAIL
449: -- first parameter is number of parameters
442: pay_mag_tape.internal_cxt_values(1) := '3';
443: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
444: pay_mag_tape.internal_cxt_values(2) := g_csr_org_pay_meth_id;
445: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
446: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
447:
448: -- Parameter Setup for NACHA_ORG_PAY_ENTRY_DETAIL
449: -- first parameter is number of parameters
450: -- second parameter is formula id
449: -- first parameter is number of parameters
450: -- second parameter is formula id
451: hr_utility.TRACE('.... Writing Org Entry Detail Parameters');
452:
453: pay_mag_tape.internal_prm_values(1) := '8';
454: pay_mag_tape.internal_prm_values(2) := g_org_pay_entry_detail;
455:
456: -- Parameters 3-6 are transferred from previous formula
457: -- 3 - TRANSFER_ENTRY_COUNT
450: -- second parameter is formula id
451: hr_utility.TRACE('.... Writing Org Entry Detail Parameters');
452:
453: pay_mag_tape.internal_prm_values(1) := '8';
454: pay_mag_tape.internal_prm_values(2) := g_org_pay_entry_detail;
455:
456: -- Parameters 3-6 are transferred from previous formula
457: -- 3 - TRANSFER_ENTRY_COUNT
458: -- 4 - TRANSFER_ENTRY_HASH
457: -- 3 - TRANSFER_ENTRY_COUNT
458: -- 4 - TRANSFER_ENTRY_HASH
459: -- 5 - TRANSFER_CREDIT_AMOUNT
460:
461: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_PAY_VALUE';
462: pay_mag_tape.internal_prm_values(6) := get_transfer_param ('TRANSFER_CREDIT_AMOUNT');
463:
464: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
465: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_count);
458: -- 4 - TRANSFER_ENTRY_HASH
459: -- 5 - TRANSFER_CREDIT_AMOUNT
460:
461: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_PAY_VALUE';
462: pay_mag_tape.internal_prm_values(6) := get_transfer_param ('TRANSFER_CREDIT_AMOUNT');
463:
464: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
465: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_count);
466:
460:
461: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_PAY_VALUE';
462: pay_mag_tape.internal_prm_values(6) := get_transfer_param ('TRANSFER_CREDIT_AMOUNT');
463:
464: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
465: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_count);
466:
467: pay_mag_tape.internal_prm_names(8) := 'TEST_FILE';
468: pay_mag_tape.internal_prm_values(8) := p_test_file;
461: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_PAY_VALUE';
462: pay_mag_tape.internal_prm_values(6) := get_transfer_param ('TRANSFER_CREDIT_AMOUNT');
463:
464: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
465: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_count);
466:
467: pay_mag_tape.internal_prm_names(8) := 'TEST_FILE';
468: pay_mag_tape.internal_prm_values(8) := p_test_file;
469:
463:
464: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
465: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_count);
466:
467: pay_mag_tape.internal_prm_names(8) := 'TEST_FILE';
468: pay_mag_tape.internal_prm_values(8) := p_test_file;
469:
470:
471: --Closing the cursor which was opened based on db version
464: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
465: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_count);
466:
467: pay_mag_tape.internal_prm_names(8) := 'TEST_FILE';
468: pay_mag_tape.internal_prm_values(8) := p_test_file;
469:
470:
471: --Closing the cursor which was opened based on db version
472: IF (nvl(hr_general2.get_oracle_db_version, 0) < 10.0) THEN
508: IF g_addenda_num = 6 THEN
509:
510: hr_utility.TRACE('First Addenda');
511:
512: pay_mag_tape.internal_cxt_values(1) := '3';
513:
514: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
515: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
516:
510: hr_utility.TRACE('First Addenda');
511:
512: pay_mag_tape.internal_cxt_values(1) := '3';
513:
514: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
515: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
516:
517: pay_mag_tape.internal_cxt_names(3) := 'PAYROLL_ID';
518: pay_mag_tape.internal_cxt_values(3) := g_payroll_id;
511:
512: pay_mag_tape.internal_cxt_values(1) := '3';
513:
514: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
515: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
516:
517: pay_mag_tape.internal_cxt_names(3) := 'PAYROLL_ID';
518: pay_mag_tape.internal_cxt_values(3) := g_payroll_id;
519:
513:
514: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
515: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
516:
517: pay_mag_tape.internal_cxt_names(3) := 'PAYROLL_ID';
518: pay_mag_tape.internal_cxt_values(3) := g_payroll_id;
519:
520: g_addenda := get_formula_id('NACHA_IAT_ADDENDA1');
521: pay_mag_tape.internal_prm_values(1) := '11';
514: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
515: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
516:
517: pay_mag_tape.internal_cxt_names(3) := 'PAYROLL_ID';
518: pay_mag_tape.internal_cxt_values(3) := g_payroll_id;
519:
520: g_addenda := get_formula_id('NACHA_IAT_ADDENDA1');
521: pay_mag_tape.internal_prm_values(1) := '11';
522: pay_mag_tape.internal_prm_values(2) := g_addenda;
517: pay_mag_tape.internal_cxt_names(3) := 'PAYROLL_ID';
518: pay_mag_tape.internal_cxt_values(3) := g_payroll_id;
519:
520: g_addenda := get_formula_id('NACHA_IAT_ADDENDA1');
521: pay_mag_tape.internal_prm_values(1) := '11';
522: pay_mag_tape.internal_prm_values(2) := g_addenda;
523:
524: -- Parameters 3-6 are transferred from previous formula
525: -- 3 - TRANSFER_ENTRY_COUNT
518: pay_mag_tape.internal_cxt_values(3) := g_payroll_id;
519:
520: g_addenda := get_formula_id('NACHA_IAT_ADDENDA1');
521: pay_mag_tape.internal_prm_values(1) := '11';
522: pay_mag_tape.internal_prm_values(2) := g_addenda;
523:
524: -- Parameters 3-6 are transferred from previous formula
525: -- 3 - TRANSFER_ENTRY_COUNT
526: -- 4 - TRANSFER_ENTRY_HASH
525: -- 3 - TRANSFER_ENTRY_COUNT
526: -- 4 - TRANSFER_ENTRY_HASH
527: -- 5 - TRANSFER_CREDIT_AMOUNT
528:
529: pay_mag_tape.internal_prm_names(7) := 'ADDENDA_NUMBER';
530: pay_mag_tape.internal_prm_values(7) := to_char(7 - g_addenda_num);
531:
532: pay_mag_tape.internal_prm_names(8) := 'TRACE_SEQUENCE_NUMBER';
533: pay_mag_tape.internal_prm_values(8) := to_char(g_count);
526: -- 4 - TRANSFER_ENTRY_HASH
527: -- 5 - TRANSFER_CREDIT_AMOUNT
528:
529: pay_mag_tape.internal_prm_names(7) := 'ADDENDA_NUMBER';
530: pay_mag_tape.internal_prm_values(7) := to_char(7 - g_addenda_num);
531:
532: pay_mag_tape.internal_prm_names(8) := 'TRACE_SEQUENCE_NUMBER';
533: pay_mag_tape.internal_prm_values(8) := to_char(g_count);
534:
528:
529: pay_mag_tape.internal_prm_names(7) := 'ADDENDA_NUMBER';
530: pay_mag_tape.internal_prm_values(7) := to_char(7 - g_addenda_num);
531:
532: pay_mag_tape.internal_prm_names(8) := 'TRACE_SEQUENCE_NUMBER';
533: pay_mag_tape.internal_prm_values(8) := to_char(g_count);
534:
535: pay_mag_tape.internal_prm_names(9) := 'TEST_FILE';
536: pay_mag_tape.internal_prm_values(9) := p_test_file;
529: pay_mag_tape.internal_prm_names(7) := 'ADDENDA_NUMBER';
530: pay_mag_tape.internal_prm_values(7) := to_char(7 - g_addenda_num);
531:
532: pay_mag_tape.internal_prm_names(8) := 'TRACE_SEQUENCE_NUMBER';
533: pay_mag_tape.internal_prm_values(8) := to_char(g_count);
534:
535: pay_mag_tape.internal_prm_names(9) := 'TEST_FILE';
536: pay_mag_tape.internal_prm_values(9) := p_test_file;
537:
531:
532: pay_mag_tape.internal_prm_names(8) := 'TRACE_SEQUENCE_NUMBER';
533: pay_mag_tape.internal_prm_values(8) := to_char(g_count);
534:
535: pay_mag_tape.internal_prm_names(9) := 'TEST_FILE';
536: pay_mag_tape.internal_prm_values(9) := p_test_file;
537:
538: pay_mag_tape.internal_prm_names(10) := 'FULL_NAME';
539: IF g_org_addenda = 'N' THEN
532: pay_mag_tape.internal_prm_names(8) := 'TRACE_SEQUENCE_NUMBER';
533: pay_mag_tape.internal_prm_values(8) := to_char(g_count);
534:
535: pay_mag_tape.internal_prm_names(9) := 'TEST_FILE';
536: pay_mag_tape.internal_prm_values(9) := p_test_file;
537:
538: pay_mag_tape.internal_prm_names(10) := 'FULL_NAME';
539: IF g_org_addenda = 'N' THEN
540: pay_mag_tape.internal_prm_values(10) := g_full_name;
534:
535: pay_mag_tape.internal_prm_names(9) := 'TEST_FILE';
536: pay_mag_tape.internal_prm_values(9) := p_test_file;
537:
538: pay_mag_tape.internal_prm_names(10) := 'FULL_NAME';
539: IF g_org_addenda = 'N' THEN
540: pay_mag_tape.internal_prm_values(10) := g_full_name;
541: ELSE
542: pay_mag_tape.internal_prm_values(10) := g_org_name;
536: pay_mag_tape.internal_prm_values(9) := p_test_file;
537:
538: pay_mag_tape.internal_prm_names(10) := 'FULL_NAME';
539: IF g_org_addenda = 'N' THEN
540: pay_mag_tape.internal_prm_values(10) := g_full_name;
541: ELSE
542: pay_mag_tape.internal_prm_values(10) := g_org_name;
543: END IF;
544:
538: pay_mag_tape.internal_prm_names(10) := 'FULL_NAME';
539: IF g_org_addenda = 'N' THEN
540: pay_mag_tape.internal_prm_values(10) := g_full_name;
541: ELSE
542: pay_mag_tape.internal_prm_values(10) := g_org_name;
543: END IF;
544:
545: pay_mag_tape.internal_prm_names(11) := 'ORG_ADDENDA';
546: pay_mag_tape.internal_prm_values(11) := g_org_addenda;
541: ELSE
542: pay_mag_tape.internal_prm_values(10) := g_org_name;
543: END IF;
544:
545: pay_mag_tape.internal_prm_names(11) := 'ORG_ADDENDA';
546: pay_mag_tape.internal_prm_values(11) := g_org_addenda;
547:
548: ELSIF g_addenda_num = 5 THEN
549:
542: pay_mag_tape.internal_prm_values(10) := g_org_name;
543: END IF;
544:
545: pay_mag_tape.internal_prm_names(11) := 'ORG_ADDENDA';
546: pay_mag_tape.internal_prm_values(11) := g_org_addenda;
547:
548: ELSIF g_addenda_num = 5 THEN
549:
550: hr_utility.TRACE('Second Addenda');
549:
550: hr_utility.TRACE('Second Addenda');
551:
552: g_addenda := get_formula_id('NACHA_IAT_ADDENDA2');
553: pay_mag_tape.internal_prm_values(1) := '9';
554: pay_mag_tape.internal_prm_values(2) := g_addenda;
555:
556:
557: -- Parameters 3-6 are transferred from previous formula
550: hr_utility.TRACE('Second Addenda');
551:
552: g_addenda := get_formula_id('NACHA_IAT_ADDENDA2');
553: pay_mag_tape.internal_prm_values(1) := '9';
554: pay_mag_tape.internal_prm_values(2) := g_addenda;
555:
556:
557: -- Parameters 3-6 are transferred from previous formula
558: -- 3 - TRANSFER_ENTRY_COUNT
558: -- 3 - TRANSFER_ENTRY_COUNT
559: -- 4 - TRANSFER_ENTRY_HASH
560: -- 5 - TRANSFER_CREDIT_AMOUNT
561:
562: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
563: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
564: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
565: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
566: pay_mag_tape.internal_prm_names(8) := 'ORG_NAME';
559: -- 4 - TRANSFER_ENTRY_HASH
560: -- 5 - TRANSFER_CREDIT_AMOUNT
561:
562: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
563: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
564: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
565: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
566: pay_mag_tape.internal_prm_names(8) := 'ORG_NAME';
567: pay_mag_tape.internal_prm_values(8) := g_org_name;
560: -- 5 - TRANSFER_CREDIT_AMOUNT
561:
562: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
563: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
564: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
565: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
566: pay_mag_tape.internal_prm_names(8) := 'ORG_NAME';
567: pay_mag_tape.internal_prm_values(8) := g_org_name;
568: pay_mag_tape.internal_prm_names(9) := 'ORG_STREET';
561:
562: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
563: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
564: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
565: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
566: pay_mag_tape.internal_prm_names(8) := 'ORG_NAME';
567: pay_mag_tape.internal_prm_values(8) := g_org_name;
568: pay_mag_tape.internal_prm_names(9) := 'ORG_STREET';
569: pay_mag_tape.internal_prm_values(9) := g_street_address;
562: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
563: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
564: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
565: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
566: pay_mag_tape.internal_prm_names(8) := 'ORG_NAME';
567: pay_mag_tape.internal_prm_values(8) := g_org_name;
568: pay_mag_tape.internal_prm_names(9) := 'ORG_STREET';
569: pay_mag_tape.internal_prm_values(9) := g_street_address;
570:
563: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
564: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
565: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
566: pay_mag_tape.internal_prm_names(8) := 'ORG_NAME';
567: pay_mag_tape.internal_prm_values(8) := g_org_name;
568: pay_mag_tape.internal_prm_names(9) := 'ORG_STREET';
569: pay_mag_tape.internal_prm_values(9) := g_street_address;
570:
571: ELSIF g_addenda_num = 4 THEN
564: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
565: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
566: pay_mag_tape.internal_prm_names(8) := 'ORG_NAME';
567: pay_mag_tape.internal_prm_values(8) := g_org_name;
568: pay_mag_tape.internal_prm_names(9) := 'ORG_STREET';
569: pay_mag_tape.internal_prm_values(9) := g_street_address;
570:
571: ELSIF g_addenda_num = 4 THEN
572:
565: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
566: pay_mag_tape.internal_prm_names(8) := 'ORG_NAME';
567: pay_mag_tape.internal_prm_values(8) := g_org_name;
568: pay_mag_tape.internal_prm_names(9) := 'ORG_STREET';
569: pay_mag_tape.internal_prm_values(9) := g_street_address;
570:
571: ELSIF g_addenda_num = 4 THEN
572:
573: hr_utility.TRACE('Third Addenda');
572:
573: hr_utility.TRACE('Third Addenda');
574:
575: g_addenda := get_formula_id('NACHA_IAT_ADDENDA3');
576: pay_mag_tape.internal_prm_values(1) := '9';
577: pay_mag_tape.internal_prm_values(2) := g_addenda;
578:
579: -- Parameters 3-6 are transferred from previous formula
580: -- 3 - TRANSFER_ENTRY_COUNT
573: hr_utility.TRACE('Third Addenda');
574:
575: g_addenda := get_formula_id('NACHA_IAT_ADDENDA3');
576: pay_mag_tape.internal_prm_values(1) := '9';
577: pay_mag_tape.internal_prm_values(2) := g_addenda;
578:
579: -- Parameters 3-6 are transferred from previous formula
580: -- 3 - TRANSFER_ENTRY_COUNT
581: -- 4 - TRANSFER_ENTRY_HASH
582: -- 5 - TRANSFER_CREDIT_AMOUNT
583: -- 6 - TRANSFER_PAY_VALUE
584: -- 7 - TRANSFER_ORG_PAY_TOT
585:
586: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
587: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
588:
589: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
590: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
583: -- 6 - TRANSFER_PAY_VALUE
584: -- 7 - TRANSFER_ORG_PAY_TOT
585:
586: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
587: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
588:
589: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
590: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
591:
585:
586: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
587: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
588:
589: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
590: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
591:
592: pay_mag_tape.internal_prm_names(8) := 'ORG_CITY_STATE';
593: pay_mag_tape.internal_prm_values(8) := g_city || get_addr_delim(g_state) || g_state || '\';
586: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
587: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
588:
589: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
590: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
591:
592: pay_mag_tape.internal_prm_names(8) := 'ORG_CITY_STATE';
593: pay_mag_tape.internal_prm_values(8) := g_city || get_addr_delim(g_state) || g_state || '\';
594:
588:
589: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
590: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
591:
592: pay_mag_tape.internal_prm_names(8) := 'ORG_CITY_STATE';
593: pay_mag_tape.internal_prm_values(8) := g_city || get_addr_delim(g_state) || g_state || '\';
594:
595: pay_mag_tape.internal_prm_names(9) := 'ORG_COUNTRY_POSTAL';
596: pay_mag_tape.internal_prm_values(9) := g_country || get_addr_delim(g_postal_code) || g_postal_code || '\';
589: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
590: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
591:
592: pay_mag_tape.internal_prm_names(8) := 'ORG_CITY_STATE';
593: pay_mag_tape.internal_prm_values(8) := g_city || get_addr_delim(g_state) || g_state || '\';
594:
595: pay_mag_tape.internal_prm_names(9) := 'ORG_COUNTRY_POSTAL';
596: pay_mag_tape.internal_prm_values(9) := g_country || get_addr_delim(g_postal_code) || g_postal_code || '\';
597:
591:
592: pay_mag_tape.internal_prm_names(8) := 'ORG_CITY_STATE';
593: pay_mag_tape.internal_prm_values(8) := g_city || get_addr_delim(g_state) || g_state || '\';
594:
595: pay_mag_tape.internal_prm_names(9) := 'ORG_COUNTRY_POSTAL';
596: pay_mag_tape.internal_prm_values(9) := g_country || get_addr_delim(g_postal_code) || g_postal_code || '\';
597:
598: ELSIF g_addenda_num = 3 THEN
599:
592: pay_mag_tape.internal_prm_names(8) := 'ORG_CITY_STATE';
593: pay_mag_tape.internal_prm_values(8) := g_city || get_addr_delim(g_state) || g_state || '\';
594:
595: pay_mag_tape.internal_prm_names(9) := 'ORG_COUNTRY_POSTAL';
596: pay_mag_tape.internal_prm_values(9) := g_country || get_addr_delim(g_postal_code) || g_postal_code || '\';
597:
598: ELSIF g_addenda_num = 3 THEN
599:
600: hr_utility.TRACE('Fourth Addenda');
598: ELSIF g_addenda_num = 3 THEN
599:
600: hr_utility.TRACE('Fourth Addenda');
601:
602: pay_mag_tape.internal_cxt_values(1) := '3';
603:
604: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
605: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
606:
600: hr_utility.TRACE('Fourth Addenda');
601:
602: pay_mag_tape.internal_cxt_values(1) := '3';
603:
604: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
605: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
606:
607: pay_mag_tape.internal_cxt_names(3) := 'ORG_PAY_METHOD_ID';
608: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
601:
602: pay_mag_tape.internal_cxt_values(1) := '3';
603:
604: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
605: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
606:
607: pay_mag_tape.internal_cxt_names(3) := 'ORG_PAY_METHOD_ID';
608: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
609:
603:
604: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
605: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
606:
607: pay_mag_tape.internal_cxt_names(3) := 'ORG_PAY_METHOD_ID';
608: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
609:
610: hr_utility.TRACE('Fourth Addenda');
611: g_addenda := get_formula_id('NACHA_IAT_ADDENDA4');
604: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
605: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
606:
607: pay_mag_tape.internal_cxt_names(3) := 'ORG_PAY_METHOD_ID';
608: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
609:
610: hr_utility.TRACE('Fourth Addenda');
611: g_addenda := get_formula_id('NACHA_IAT_ADDENDA4');
612: pay_mag_tape.internal_prm_values(1) := '7';
608: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
609:
610: hr_utility.TRACE('Fourth Addenda');
611: g_addenda := get_formula_id('NACHA_IAT_ADDENDA4');
612: pay_mag_tape.internal_prm_values(1) := '7';
613: pay_mag_tape.internal_prm_values(2) := g_addenda;
614:
615: -- Parameters 3-6 are transferred from previous formula
616: -- 3 - TRANSFER_ENTRY_COUNT
609:
610: hr_utility.TRACE('Fourth Addenda');
611: g_addenda := get_formula_id('NACHA_IAT_ADDENDA4');
612: pay_mag_tape.internal_prm_values(1) := '7';
613: pay_mag_tape.internal_prm_values(2) := g_addenda;
614:
615: -- Parameters 3-6 are transferred from previous formula
616: -- 3 - TRANSFER_ENTRY_COUNT
617: -- 4 - TRANSFER_ENTRY_HASH
617: -- 4 - TRANSFER_ENTRY_HASH
618: -- 5 - TRANSFER_CREDIT_AMOUNT
619:
620:
621: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
622: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
623:
624: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
625: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
618: -- 5 - TRANSFER_CREDIT_AMOUNT
619:
620:
621: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
622: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
623:
624: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
625: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
626:
620:
621: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
622: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
623:
624: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
625: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
626:
627: ELSIF g_addenda_num = 2 THEN
628:
621: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
622: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
623:
624: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
625: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
626:
627: ELSIF g_addenda_num = 2 THEN
628:
629: hr_utility.TRACE('Fifth Addenda');
629: hr_utility.TRACE('Fifth Addenda');
630:
631: g_addenda := get_formula_id('NACHA_IAT_ADDENDA5');
632:
633: pay_mag_tape.internal_cxt_values(1) := '4';
634:
635: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
636: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
637:
631: g_addenda := get_formula_id('NACHA_IAT_ADDENDA5');
632:
633: pay_mag_tape.internal_cxt_values(1) := '4';
634:
635: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
636: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
637:
638: pay_mag_tape.internal_cxt_names(3) := 'PER_PAY_METHOD_ID';
639: pay_mag_tape.internal_cxt_values(3) := to_char(g_personal_payment_method_id);
632:
633: pay_mag_tape.internal_cxt_values(1) := '4';
634:
635: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
636: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
637:
638: pay_mag_tape.internal_cxt_names(3) := 'PER_PAY_METHOD_ID';
639: pay_mag_tape.internal_cxt_values(3) := to_char(g_personal_payment_method_id);
640:
634:
635: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
636: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
637:
638: pay_mag_tape.internal_cxt_names(3) := 'PER_PAY_METHOD_ID';
639: pay_mag_tape.internal_cxt_values(3) := to_char(g_personal_payment_method_id);
640:
641: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
642: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
635: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
636: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
637:
638: pay_mag_tape.internal_cxt_names(3) := 'PER_PAY_METHOD_ID';
639: pay_mag_tape.internal_cxt_values(3) := to_char(g_personal_payment_method_id);
640:
641: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
642: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
643:
637:
638: pay_mag_tape.internal_cxt_names(3) := 'PER_PAY_METHOD_ID';
639: pay_mag_tape.internal_cxt_values(3) := to_char(g_personal_payment_method_id);
640:
641: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
642: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
643:
644: pay_mag_tape.internal_prm_values(1) := '8';
645: pay_mag_tape.internal_prm_values(2) := g_addenda;
638: pay_mag_tape.internal_cxt_names(3) := 'PER_PAY_METHOD_ID';
639: pay_mag_tape.internal_cxt_values(3) := to_char(g_personal_payment_method_id);
640:
641: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
642: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
643:
644: pay_mag_tape.internal_prm_values(1) := '8';
645: pay_mag_tape.internal_prm_values(2) := g_addenda;
646:
640:
641: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
642: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
643:
644: pay_mag_tape.internal_prm_values(1) := '8';
645: pay_mag_tape.internal_prm_values(2) := g_addenda;
646:
647: -- Parameters 3-6 are transferred from previous formula
648: -- 3 - TRANSFER_ENTRY_COUNT
641: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
642: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
643:
644: pay_mag_tape.internal_prm_values(1) := '8';
645: pay_mag_tape.internal_prm_values(2) := g_addenda;
646:
647: -- Parameters 3-6 are transferred from previous formula
648: -- 3 - TRANSFER_ENTRY_COUNT
649: -- 4 - TRANSFER_ENTRY_HASH
649: -- 4 - TRANSFER_ENTRY_HASH
650: -- 5 - TRANSFER_CREDIT_AMOUNT
651:
652:
653: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
654: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
655:
656: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
657: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
650: -- 5 - TRANSFER_CREDIT_AMOUNT
651:
652:
653: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
654: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
655:
656: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
657: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
658:
652:
653: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
654: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
655:
656: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
657: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
658:
659: pay_mag_tape.internal_prm_names(8) := 'ORG_ADDENDA';
660: pay_mag_tape.internal_prm_values(8) := g_org_addenda;
653: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
654: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
655:
656: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
657: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
658:
659: pay_mag_tape.internal_prm_names(8) := 'ORG_ADDENDA';
660: pay_mag_tape.internal_prm_values(8) := g_org_addenda;
661:
655:
656: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
657: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
658:
659: pay_mag_tape.internal_prm_names(8) := 'ORG_ADDENDA';
660: pay_mag_tape.internal_prm_values(8) := g_org_addenda;
661:
662:
663: ELSIF g_addenda_num = 1 THEN
656: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
657: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
658:
659: pay_mag_tape.internal_prm_names(8) := 'ORG_ADDENDA';
660: pay_mag_tape.internal_prm_values(8) := g_org_addenda;
661:
662:
663: ELSIF g_addenda_num = 1 THEN
664:
663: ELSIF g_addenda_num = 1 THEN
664:
665: hr_utility.TRACE('Sixth Addenda');
666:
667: pay_mag_tape.internal_cxt_values(1) := '3';
668:
669: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
670: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
671:
665: hr_utility.TRACE('Sixth Addenda');
666:
667: pay_mag_tape.internal_cxt_values(1) := '3';
668:
669: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
670: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
671:
672: pay_mag_tape.internal_cxt_names(3) := 'ORG_PAY_METHOD_ID';
673: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
666:
667: pay_mag_tape.internal_cxt_values(1) := '3';
668:
669: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
670: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
671:
672: pay_mag_tape.internal_cxt_names(3) := 'ORG_PAY_METHOD_ID';
673: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
674:
668:
669: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
670: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
671:
672: pay_mag_tape.internal_cxt_names(3) := 'ORG_PAY_METHOD_ID';
673: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
674:
675: g_addenda := get_formula_id('NACHA_IAT_ADDENDA6');
676: pay_mag_tape.internal_prm_values(1) := '10';
669: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
670: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
671:
672: pay_mag_tape.internal_cxt_names(3) := 'ORG_PAY_METHOD_ID';
673: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
674:
675: g_addenda := get_formula_id('NACHA_IAT_ADDENDA6');
676: pay_mag_tape.internal_prm_values(1) := '10';
677: pay_mag_tape.internal_prm_values(2) := g_addenda;
672: pay_mag_tape.internal_cxt_names(3) := 'ORG_PAY_METHOD_ID';
673: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
674:
675: g_addenda := get_formula_id('NACHA_IAT_ADDENDA6');
676: pay_mag_tape.internal_prm_values(1) := '10';
677: pay_mag_tape.internal_prm_values(2) := g_addenda;
678:
679: -- Parameters 3-6 are transferred from previous formula
680: -- 3 - TRANSFER_ENTRY_COUNT
673: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
674:
675: g_addenda := get_formula_id('NACHA_IAT_ADDENDA6');
676: pay_mag_tape.internal_prm_values(1) := '10';
677: pay_mag_tape.internal_prm_values(2) := g_addenda;
678:
679: -- Parameters 3-6 are transferred from previous formula
680: -- 3 - TRANSFER_ENTRY_COUNT
681: -- 4 - TRANSFER_ENTRY_HASH
680: -- 3 - TRANSFER_ENTRY_COUNT
681: -- 4 - TRANSFER_ENTRY_HASH
682: -- 5 - TRANSFER_CREDIT_AMOUNT
683:
684: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
685: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
686:
687: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
688: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
681: -- 4 - TRANSFER_ENTRY_HASH
682: -- 5 - TRANSFER_CREDIT_AMOUNT
683:
684: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
685: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
686:
687: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
688: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
689:
683:
684: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
685: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
686:
687: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
688: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
689:
690: pay_mag_tape.internal_prm_names(8) := 'EMPLOYEE_NUMBER';
691: pay_mag_tape.internal_prm_values(8) := to_char(g_emp_num);
684: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
685: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
686:
687: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
688: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
689:
690: pay_mag_tape.internal_prm_names(8) := 'EMPLOYEE_NUMBER';
691: pay_mag_tape.internal_prm_values(8) := to_char(g_emp_num);
692:
686:
687: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
688: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
689:
690: pay_mag_tape.internal_prm_names(8) := 'EMPLOYEE_NUMBER';
691: pay_mag_tape.internal_prm_values(8) := to_char(g_emp_num);
692:
693: pay_mag_tape.internal_prm_names(9) := 'EMPLOYEE_ADDR';
694: pay_mag_tape.internal_prm_values(9) := to_char(g_emp_adress);
687: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
688: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
689:
690: pay_mag_tape.internal_prm_names(8) := 'EMPLOYEE_NUMBER';
691: pay_mag_tape.internal_prm_values(8) := to_char(g_emp_num);
692:
693: pay_mag_tape.internal_prm_names(9) := 'EMPLOYEE_ADDR';
694: pay_mag_tape.internal_prm_values(9) := to_char(g_emp_adress);
695:
689:
690: pay_mag_tape.internal_prm_names(8) := 'EMPLOYEE_NUMBER';
691: pay_mag_tape.internal_prm_values(8) := to_char(g_emp_num);
692:
693: pay_mag_tape.internal_prm_names(9) := 'EMPLOYEE_ADDR';
694: pay_mag_tape.internal_prm_values(9) := to_char(g_emp_adress);
695:
696: pay_mag_tape.internal_prm_names(10) := 'ORG_ADDENDA';
697: pay_mag_tape.internal_prm_values(10) := g_org_addenda;
690: pay_mag_tape.internal_prm_names(8) := 'EMPLOYEE_NUMBER';
691: pay_mag_tape.internal_prm_values(8) := to_char(g_emp_num);
692:
693: pay_mag_tape.internal_prm_names(9) := 'EMPLOYEE_ADDR';
694: pay_mag_tape.internal_prm_values(9) := to_char(g_emp_adress);
695:
696: pay_mag_tape.internal_prm_names(10) := 'ORG_ADDENDA';
697: pay_mag_tape.internal_prm_values(10) := g_org_addenda;
698:
692:
693: pay_mag_tape.internal_prm_names(9) := 'EMPLOYEE_ADDR';
694: pay_mag_tape.internal_prm_values(9) := to_char(g_emp_adress);
695:
696: pay_mag_tape.internal_prm_names(10) := 'ORG_ADDENDA';
697: pay_mag_tape.internal_prm_values(10) := g_org_addenda;
698:
699: ELSIF g_addenda_num = 0 THEN
700:
693: pay_mag_tape.internal_prm_names(9) := 'EMPLOYEE_ADDR';
694: pay_mag_tape.internal_prm_values(9) := to_char(g_emp_adress);
695:
696: pay_mag_tape.internal_prm_names(10) := 'ORG_ADDENDA';
697: pay_mag_tape.internal_prm_values(10) := g_org_addenda;
698:
699: ELSIF g_addenda_num = 0 THEN
700:
701: hr_utility.TRACE('Seventh Addenda');
699: ELSIF g_addenda_num = 0 THEN
700:
701: hr_utility.TRACE('Seventh Addenda');
702:
703: pay_mag_tape.internal_cxt_values(1) := '3';
704:
705: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
706: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
707:
701: hr_utility.TRACE('Seventh Addenda');
702:
703: pay_mag_tape.internal_cxt_values(1) := '3';
704:
705: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
706: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
707:
708: pay_mag_tape.internal_cxt_names(3) := 'ORG_PAY_METHOD_ID';
709: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
702:
703: pay_mag_tape.internal_cxt_values(1) := '3';
704:
705: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
706: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
707:
708: pay_mag_tape.internal_cxt_names(3) := 'ORG_PAY_METHOD_ID';
709: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
710:
704:
705: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
706: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
707:
708: pay_mag_tape.internal_cxt_names(3) := 'ORG_PAY_METHOD_ID';
709: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
710:
711: g_addenda := get_formula_id('NACHA_IAT_ADDENDA7');
712: pay_mag_tape.internal_prm_values(1) := '10';
705: pay_mag_tape.internal_cxt_names(2) := 'DATE_EARNED';
706: pay_mag_tape.internal_cxt_values(2) := fnd_date.date_to_canonical(p_effective_date);
707:
708: pay_mag_tape.internal_cxt_names(3) := 'ORG_PAY_METHOD_ID';
709: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
710:
711: g_addenda := get_formula_id('NACHA_IAT_ADDENDA7');
712: pay_mag_tape.internal_prm_values(1) := '10';
713: pay_mag_tape.internal_prm_values(2) := g_addenda;
708: pay_mag_tape.internal_cxt_names(3) := 'ORG_PAY_METHOD_ID';
709: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
710:
711: g_addenda := get_formula_id('NACHA_IAT_ADDENDA7');
712: pay_mag_tape.internal_prm_values(1) := '10';
713: pay_mag_tape.internal_prm_values(2) := g_addenda;
714:
715: -- Parameters 3-6 are transferred from previous formula
716: -- 3 - TRANSFER_ENTRY_COUNT
709: pay_mag_tape.internal_cxt_values(3) := g_org_payment_method_id;
710:
711: g_addenda := get_formula_id('NACHA_IAT_ADDENDA7');
712: pay_mag_tape.internal_prm_values(1) := '10';
713: pay_mag_tape.internal_prm_values(2) := g_addenda;
714:
715: -- Parameters 3-6 are transferred from previous formula
716: -- 3 - TRANSFER_ENTRY_COUNT
717: -- 4 - TRANSFER_ENTRY_HASH
716: -- 3 - TRANSFER_ENTRY_COUNT
717: -- 4 - TRANSFER_ENTRY_HASH
718: -- 5 - TRANSFER_CREDIT_AMOUNT
719:
720: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
721: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
722:
723: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
724: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
717: -- 4 - TRANSFER_ENTRY_HASH
718: -- 5 - TRANSFER_CREDIT_AMOUNT
719:
720: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
721: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
722:
723: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
724: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
725:
719:
720: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
721: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
722:
723: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
724: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
725:
726: pay_mag_tape.internal_prm_names(8) := 'EMP_CITY_STATE';
727: pay_mag_tape.internal_prm_values(8) := g_emp_city || get_addr_delim(g_emp_state )|| g_emp_state || '\';
720: pay_mag_tape.internal_prm_names(6) := 'ADDENDA_NUMBER';
721: pay_mag_tape.internal_prm_values(6) := to_char(7 - g_addenda_num);
722:
723: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
724: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
725:
726: pay_mag_tape.internal_prm_names(8) := 'EMP_CITY_STATE';
727: pay_mag_tape.internal_prm_values(8) := g_emp_city || get_addr_delim(g_emp_state )|| g_emp_state || '\';
728:
722:
723: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
724: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
725:
726: pay_mag_tape.internal_prm_names(8) := 'EMP_CITY_STATE';
727: pay_mag_tape.internal_prm_values(8) := g_emp_city || get_addr_delim(g_emp_state )|| g_emp_state || '\';
728:
729: pay_mag_tape.internal_prm_names(9) := 'EMP_COUNTRY_POSTAL';
730: pay_mag_tape.internal_prm_values(9) := g_emp_country || get_addr_delim(g_emp_postal) || g_emp_postal || '\';
723: pay_mag_tape.internal_prm_names(7) := 'TRACE_SEQUENCE_NUMBER';
724: pay_mag_tape.internal_prm_values(7) := to_char(g_count);
725:
726: pay_mag_tape.internal_prm_names(8) := 'EMP_CITY_STATE';
727: pay_mag_tape.internal_prm_values(8) := g_emp_city || get_addr_delim(g_emp_state )|| g_emp_state || '\';
728:
729: pay_mag_tape.internal_prm_names(9) := 'EMP_COUNTRY_POSTAL';
730: pay_mag_tape.internal_prm_values(9) := g_emp_country || get_addr_delim(g_emp_postal) || g_emp_postal || '\';
731:
725:
726: pay_mag_tape.internal_prm_names(8) := 'EMP_CITY_STATE';
727: pay_mag_tape.internal_prm_values(8) := g_emp_city || get_addr_delim(g_emp_state )|| g_emp_state || '\';
728:
729: pay_mag_tape.internal_prm_names(9) := 'EMP_COUNTRY_POSTAL';
730: pay_mag_tape.internal_prm_values(9) := g_emp_country || get_addr_delim(g_emp_postal) || g_emp_postal || '\';
731:
732: pay_mag_tape.internal_prm_names(10) := 'ORG_ADDENDA';
733: pay_mag_tape.internal_prm_values(10) := g_org_addenda;
726: pay_mag_tape.internal_prm_names(8) := 'EMP_CITY_STATE';
727: pay_mag_tape.internal_prm_values(8) := g_emp_city || get_addr_delim(g_emp_state )|| g_emp_state || '\';
728:
729: pay_mag_tape.internal_prm_names(9) := 'EMP_COUNTRY_POSTAL';
730: pay_mag_tape.internal_prm_values(9) := g_emp_country || get_addr_delim(g_emp_postal) || g_emp_postal || '\';
731:
732: pay_mag_tape.internal_prm_names(10) := 'ORG_ADDENDA';
733: pay_mag_tape.internal_prm_values(10) := g_org_addenda;
734:
728:
729: pay_mag_tape.internal_prm_names(9) := 'EMP_COUNTRY_POSTAL';
730: pay_mag_tape.internal_prm_values(9) := g_emp_country || get_addr_delim(g_emp_postal) || g_emp_postal || '\';
731:
732: pay_mag_tape.internal_prm_names(10) := 'ORG_ADDENDA';
733: pay_mag_tape.internal_prm_values(10) := g_org_addenda;
734:
735: g_org_addenda := 'N';
736:
729: pay_mag_tape.internal_prm_names(9) := 'EMP_COUNTRY_POSTAL';
730: pay_mag_tape.internal_prm_values(9) := g_emp_country || get_addr_delim(g_emp_postal) || g_emp_postal || '\';
731:
732: pay_mag_tape.internal_prm_names(10) := 'ORG_ADDENDA';
733: pay_mag_tape.internal_prm_values(10) := g_org_addenda;
734:
735: g_org_addenda := 'N';
736:
737: ELSE
778: -- First context value is number of context values
779:
780: hr_utility.TRACE('.... Writing Batch Control Context');
781:
782: pay_mag_tape.internal_cxt_values(1) := '4';
783: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
784: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
785: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
786: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
779:
780: hr_utility.TRACE('.... Writing Batch Control Context');
781:
782: pay_mag_tape.internal_cxt_values(1) := '4';
783: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
784: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
785: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
786: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
787: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
780: hr_utility.TRACE('.... Writing Batch Control Context');
781:
782: pay_mag_tape.internal_cxt_values(1) := '4';
783: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
784: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
785: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
786: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
787: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
788: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
781:
782: pay_mag_tape.internal_cxt_values(1) := '4';
783: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
784: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
785: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
786: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
787: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
788: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
789:
782: pay_mag_tape.internal_cxt_values(1) := '4';
783: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
784: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
785: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
786: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
787: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
788: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
789:
790: -- Parameter Setup for NACHA_BATCH_CONTROL
783: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
784: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
785: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
786: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
787: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
788: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
789:
790: -- Parameter Setup for NACHA_BATCH_CONTROL
791: -- First parameter value is number of parameters
784: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
785: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
786: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
787: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
788: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
789:
790: -- Parameter Setup for NACHA_BATCH_CONTROL
791: -- First parameter value is number of parameters
792:
791: -- First parameter value is number of parameters
792:
793: hr_utility.TRACE('.... Writing Batch Control Parameters');
794:
795: pay_mag_tape.internal_prm_values(1) := '6';
796: pay_mag_tape.internal_prm_values(2) := g_batch_control;
797:
798: -- Parameters 4-7 are transferred from previous formula
799: -- 3 - TRANSFER_ENTRY_COUNT
792:
793: hr_utility.TRACE('.... Writing Batch Control Parameters');
794:
795: pay_mag_tape.internal_prm_values(1) := '6';
796: pay_mag_tape.internal_prm_values(2) := g_batch_control;
797:
798: -- Parameters 4-7 are transferred from previous formula
799: -- 3 - TRANSFER_ENTRY_COUNT
800: -- 4 - TRANSFER_ENTRY_HASH
800: -- 4 - TRANSFER_ENTRY_HASH
801: -- 5 - TRANSFER_CREDIT_AMOUNT
802:
803:
804: pay_mag_tape.internal_prm_names(6) := 'BATCH_NUMBER';
805: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_batch_number);
806:
807: hr_utility.set_location('run_formula.Batch_ctrl', 9);
808:
801: -- 5 - TRANSFER_CREDIT_AMOUNT
802:
803:
804: pay_mag_tape.internal_prm_names(6) := 'BATCH_NUMBER';
805: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_batch_number);
806:
807: hr_utility.set_location('run_formula.Batch_ctrl', 9);
808:
809: hr_utility.TRACE('Leaving Batch Control');
841:
842: hr_utility.TRACE('.... Writing File Control Context');
843:
844: -- dscully - added contexts for NACHA_BALANCED_NACHA_FILE DBI
845: pay_mag_tape.internal_cxt_values(1) := '3';
846: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
847: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
848: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
849: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
842: hr_utility.TRACE('.... Writing File Control Context');
843:
844: -- dscully - added contexts for NACHA_BALANCED_NACHA_FILE DBI
845: pay_mag_tape.internal_cxt_values(1) := '3';
846: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
847: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
848: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
849: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
850:
843:
844: -- dscully - added contexts for NACHA_BALANCED_NACHA_FILE DBI
845: pay_mag_tape.internal_cxt_values(1) := '3';
846: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
847: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
848: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
849: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
850:
851: hr_utility.TRACE('.... Writing File Control Parameters');
844: -- dscully - added contexts for NACHA_BALANCED_NACHA_FILE DBI
845: pay_mag_tape.internal_cxt_values(1) := '3';
846: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
847: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
848: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
849: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
850:
851: hr_utility.TRACE('.... Writing File Control Parameters');
852:
845: pay_mag_tape.internal_cxt_values(1) := '3';
846: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
847: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
848: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
849: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
850:
851: hr_utility.TRACE('.... Writing File Control Parameters');
852:
853: pay_mag_tape.internal_prm_values(1) := '8';
849: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(p_effective_date);
850:
851: hr_utility.TRACE('.... Writing File Control Parameters');
852:
853: pay_mag_tape.internal_prm_values(1) := '8';
854: pay_mag_tape.internal_prm_values(2) := g_file_control;
855:
856: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
857: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
850:
851: hr_utility.TRACE('.... Writing File Control Parameters');
852:
853: pay_mag_tape.internal_prm_values(1) := '8';
854: pay_mag_tape.internal_prm_values(2) := g_file_control;
855:
856: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
857: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
858:
852:
853: pay_mag_tape.internal_prm_values(1) := '8';
854: pay_mag_tape.internal_prm_values(2) := g_file_control;
855:
856: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
857: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
858:
859: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
860: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
853: pay_mag_tape.internal_prm_values(1) := '8';
854: pay_mag_tape.internal_prm_values(2) := g_file_control;
855:
856: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
857: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
858:
859: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
860: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
861:
855:
856: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
857: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
858:
859: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
860: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
861:
862: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
863: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
856: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
857: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
858:
859: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
860: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
861:
862: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
863: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
864:
858:
859: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
860: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
861:
862: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
863: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
864:
865: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
866: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
859: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
860: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
861:
862: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
863: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
864:
865: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
866: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
867:
861:
862: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
863: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
864:
865: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
866: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
867:
868: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
869: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
862: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
863: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
864:
865: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
866: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
867:
868: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
869: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
870:
864:
865: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
866: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
867:
868: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
869: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
870:
871: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
872: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_pad_count);
865: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
866: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
867:
868: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
869: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
870:
871: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
872: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_pad_count);
873: --
867:
868: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
869: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
870:
871: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
872: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_pad_count);
873: --
874: hr_utility.set_location('run_formula.File_Control', 11);
875: hr_utility.TRACE('Leaving File Control');
868: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
869: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
870:
871: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
872: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_pad_count);
873: --
874: hr_utility.set_location('run_formula.File_Control', 11);
875: hr_utility.TRACE('Leaving File Control');
876:
889: BEGIN
890:
891: hr_utility.TRACE('Writing Padding');
892:
893: pay_mag_tape.internal_cxt_values(1) := '1';
894:
895: hr_utility.TRACE('Writing Padding for IAT');
896: pay_mag_tape.internal_prm_values(1) := '3';
897: pay_mag_tape.internal_prm_values(2) := g_padding;
892:
893: pay_mag_tape.internal_cxt_values(1) := '1';
894:
895: hr_utility.TRACE('Writing Padding for IAT');
896: pay_mag_tape.internal_prm_values(1) := '3';
897: pay_mag_tape.internal_prm_values(2) := g_padding;
898: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_PAD_COUNT';
899: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_pad_count);
900:
893: pay_mag_tape.internal_cxt_values(1) := '1';
894:
895: hr_utility.TRACE('Writing Padding for IAT');
896: pay_mag_tape.internal_prm_values(1) := '3';
897: pay_mag_tape.internal_prm_values(2) := g_padding;
898: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_PAD_COUNT';
899: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_pad_count);
900:
901: IF g_pad_count = 1 THEN
894:
895: hr_utility.TRACE('Writing Padding for IAT');
896: pay_mag_tape.internal_prm_values(1) := '3';
897: pay_mag_tape.internal_prm_values(2) := g_padding;
898: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_PAD_COUNT';
899: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_pad_count);
900:
901: IF g_pad_count = 1 THEN
902: CLOSE csr_nacha_batch;
895: hr_utility.TRACE('Writing Padding for IAT');
896: pay_mag_tape.internal_prm_values(1) := '3';
897: pay_mag_tape.internal_prm_values(2) := g_padding;
898: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_PAD_COUNT';
899: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_pad_count);
900:
901: IF g_pad_count = 1 THEN
902: CLOSE csr_nacha_batch;
903: ELSE
914:
915: BEGIN
916:
917: hr_utility.TRACE('Entering pay_us_nacha_iat_tape.run_formula');
918: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
919: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
920: pay_mag_tape.internal_prm_values(1) := '2';
921:
922: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
915: BEGIN
916:
917: hr_utility.TRACE('Entering pay_us_nacha_iat_tape.run_formula');
918: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
919: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
920: pay_mag_tape.internal_prm_values(1) := '2';
921:
922: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
923: pay_mag_tape.internal_cxt_values(1) := '1';
916:
917: hr_utility.TRACE('Entering pay_us_nacha_iat_tape.run_formula');
918: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
919: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
920: pay_mag_tape.internal_prm_values(1) := '2';
921:
922: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
923: pay_mag_tape.internal_cxt_values(1) := '1';
924: hr_utility.set_location('pay_us_nacha_iat_tape.run_formula', 1);
918: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
919: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
920: pay_mag_tape.internal_prm_values(1) := '2';
921:
922: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
923: pay_mag_tape.internal_cxt_values(1) := '1';
924: hr_utility.set_location('pay_us_nacha_iat_tape.run_formula', 1);
925:
926:
919: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
920: pay_mag_tape.internal_prm_values(1) := '2';
921:
922: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
923: pay_mag_tape.internal_cxt_values(1) := '1';
924: hr_utility.set_location('pay_us_nacha_iat_tape.run_formula', 1);
925:
926:
927: IF NOT csr_nacha_batch%ISOPEN AND g_first_exec = 'Y' THEN
929: g_first_exec := 'N';
930:
931: hr_utility.set_location('run_formula.Init', 5);
932: g_payroll_action_id := fnd_number.canonical_to_number(
933: pay_mag_tape.internal_prm_values(3));
934:
935: hr_utility.TRACE('g_payroll_action_id : ' || g_payroll_action_id);
936:
937: