245: --end if;
246: -- end temporary trace AS
247: --
248: -- Reserved positions
249: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
250: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
251: --
252: pay_mag_tape.internal_cxt_names(1) := 'Number_of_contexts';
253: -- Initial value
246: -- end temporary trace AS
247: --
248: -- Reserved positions
249: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
250: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
251: --
252: pay_mag_tape.internal_cxt_names(1) := 'Number_of_contexts';
253: -- Initial value
254: pay_mag_tape.internal_cxt_values(1) := 1;
248: -- Reserved positions
249: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
250: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
251: --
252: pay_mag_tape.internal_cxt_names(1) := 'Number_of_contexts';
253: -- Initial value
254: pay_mag_tape.internal_cxt_values(1) := 1;
255: --
256: --
250: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
251: --
252: pay_mag_tape.internal_cxt_names(1) := 'Number_of_contexts';
253: -- Initial value
254: pay_mag_tape.internal_cxt_values(1) := 1;
255: --
256: --
257: IF NOT bacs_assignments %ISOPEN THEN -- New file
258: hr_utility.set_location('bacsmgtp.new_formula',1);
262: count_for_block := 0;
263: org_payment_count := 0;
264: block_count := 1;
265: fetch_required := TRUE;
266: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
267: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
268: pay_mag_tape.internal_cxt_values(1) := 3;
269: pay_mag_tape.internal_cxt_values(3) := get_session_date;
270: --
263: org_payment_count := 0;
264: block_count := 1;
265: fetch_required := TRUE;
266: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
267: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
268: pay_mag_tape.internal_cxt_values(1) := 3;
269: pay_mag_tape.internal_cxt_values(3) := get_session_date;
270: --
271: pay_mag_tape.internal_prm_values(1) := 7;
264: block_count := 1;
265: fetch_required := TRUE;
266: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
267: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
268: pay_mag_tape.internal_cxt_values(1) := 3;
269: pay_mag_tape.internal_cxt_values(3) := get_session_date;
270: --
271: pay_mag_tape.internal_prm_values(1) := 7;
272: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_HEADER');
265: fetch_required := TRUE;
266: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
267: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
268: pay_mag_tape.internal_cxt_values(1) := 3;
269: pay_mag_tape.internal_cxt_values(3) := get_session_date;
270: --
271: pay_mag_tape.internal_prm_values(1) := 7;
272: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_HEADER');
273: --
267: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
268: pay_mag_tape.internal_cxt_values(1) := 3;
269: pay_mag_tape.internal_cxt_values(3) := get_session_date;
270: --
271: pay_mag_tape.internal_prm_values(1) := 7;
272: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_HEADER');
273: --
274: -- AS it looks like we have 3 parms so try this
275: if pay_mag_tape.internal_prm_names(3) = 'PAYROLL_ACTION_ID'
268: pay_mag_tape.internal_cxt_values(1) := 3;
269: pay_mag_tape.internal_cxt_values(3) := get_session_date;
270: --
271: pay_mag_tape.internal_prm_values(1) := 7;
272: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_HEADER');
273: --
274: -- AS it looks like we have 3 parms so try this
275: if pay_mag_tape.internal_prm_names(3) = 'PAYROLL_ACTION_ID'
276: then p_payroll_action_id := to_number(
271: pay_mag_tape.internal_prm_values(1) := 7;
272: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_HEADER');
273: --
274: -- AS it looks like we have 3 parms so try this
275: if pay_mag_tape.internal_prm_names(3) = 'PAYROLL_ACTION_ID'
276: then p_payroll_action_id := to_number(
277: pay_mag_tape.internal_prm_values(3));
278: end if;
279: hr_utility.set_location('bacsmgtp.payroll_action_id',p_payroll_action_id);
273: --
274: -- AS it looks like we have 3 parms so try this
275: if pay_mag_tape.internal_prm_names(3) = 'PAYROLL_ACTION_ID'
276: then p_payroll_action_id := to_number(
277: pay_mag_tape.internal_prm_values(3));
278: end if;
279: hr_utility.set_location('bacsmgtp.payroll_action_id',p_payroll_action_id);
280: --
281: expiration_date := get_expiration_date(p_payroll_action_id);
280: --
281: expiration_date := get_expiration_date(p_payroll_action_id);
282: submission_number := get_submission_number(p_payroll_action_id);
283: process_date := get_process_date(p_payroll_action_id);
284: pay_mag_tape.internal_cxt_values(2) :=
285: get_org_context(p_payroll_action_id);
286: p_previous_payment_id := get_org_context(p_payroll_action_id);
287: --
288: --
288: --
289: total_payment := 0;
290: total_payment_footer :=0;
291: final_contra := FALSE;
292: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_EXPIRATION_DATE';
293: pay_mag_tape.internal_prm_values(3) := expiration_date;
294: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_SUBMISSION_NUMBER';
295: pay_mag_tape.internal_prm_values(4) := submission_number;
296: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
289: total_payment := 0;
290: total_payment_footer :=0;
291: final_contra := FALSE;
292: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_EXPIRATION_DATE';
293: pay_mag_tape.internal_prm_values(3) := expiration_date;
294: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_SUBMISSION_NUMBER';
295: pay_mag_tape.internal_prm_values(4) := submission_number;
296: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
297: pay_mag_tape.internal_prm_values(5) := process_date;
290: total_payment_footer :=0;
291: final_contra := FALSE;
292: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_EXPIRATION_DATE';
293: pay_mag_tape.internal_prm_values(3) := expiration_date;
294: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_SUBMISSION_NUMBER';
295: pay_mag_tape.internal_prm_values(4) := submission_number;
296: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
297: pay_mag_tape.internal_prm_values(5) := process_date;
298: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
291: final_contra := FALSE;
292: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_EXPIRATION_DATE';
293: pay_mag_tape.internal_prm_values(3) := expiration_date;
294: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_SUBMISSION_NUMBER';
295: pay_mag_tape.internal_prm_values(4) := submission_number;
296: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
297: pay_mag_tape.internal_prm_values(5) := process_date;
298: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
299: pay_mag_tape.internal_prm_values(6) := '0001';
292: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_EXPIRATION_DATE';
293: pay_mag_tape.internal_prm_values(3) := expiration_date;
294: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_SUBMISSION_NUMBER';
295: pay_mag_tape.internal_prm_values(4) := submission_number;
296: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
297: pay_mag_tape.internal_prm_values(5) := process_date;
298: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
299: pay_mag_tape.internal_prm_values(6) := '0001';
300: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
293: pay_mag_tape.internal_prm_values(3) := expiration_date;
294: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_SUBMISSION_NUMBER';
295: pay_mag_tape.internal_prm_values(4) := submission_number;
296: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
297: pay_mag_tape.internal_prm_values(5) := process_date;
298: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
299: pay_mag_tape.internal_prm_values(6) := '0001';
300: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
301: pay_mag_tape.internal_prm_values(7) := get_todays_date;
294: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_SUBMISSION_NUMBER';
295: pay_mag_tape.internal_prm_values(4) := submission_number;
296: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
297: pay_mag_tape.internal_prm_values(5) := process_date;
298: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
299: pay_mag_tape.internal_prm_values(6) := '0001';
300: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
301: pay_mag_tape.internal_prm_values(7) := get_todays_date;
302: --
295: pay_mag_tape.internal_prm_values(4) := submission_number;
296: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
297: pay_mag_tape.internal_prm_values(5) := process_date;
298: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
299: pay_mag_tape.internal_prm_values(6) := '0001';
300: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
301: pay_mag_tape.internal_prm_values(7) := get_todays_date;
302: --
303: OPEN bacs_assignments ( p_payroll_action_id);
296: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
297: pay_mag_tape.internal_prm_values(5) := process_date;
298: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
299: pay_mag_tape.internal_prm_values(6) := '0001';
300: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
301: pay_mag_tape.internal_prm_values(7) := get_todays_date;
302: --
303: OPEN bacs_assignments ( p_payroll_action_id);
304: --
297: pay_mag_tape.internal_prm_values(5) := process_date;
298: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
299: pay_mag_tape.internal_prm_values(6) := '0001';
300: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
301: pay_mag_tape.internal_prm_values(7) := get_todays_date;
302: --
303: OPEN bacs_assignments ( p_payroll_action_id);
304: --
305: ELSE
317: IF bacs_assignments %FOUND THEN
318: IF p_org_payment_method_id = p_previous_payment_id
319: THEN
320: hr_utility.set_location('bacsmgtp.new_formula',3);
321: pay_mag_tape.internal_prm_values(1) := 4;
322: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_BODY');
323: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
324: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
325: pay_mag_tape.internal_prm_values(3) := p_value * 100;
318: IF p_org_payment_method_id = p_previous_payment_id
319: THEN
320: hr_utility.set_location('bacsmgtp.new_formula',3);
321: pay_mag_tape.internal_prm_values(1) := 4;
322: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_BODY');
323: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
324: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
325: pay_mag_tape.internal_prm_values(3) := p_value * 100;
326: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
319: THEN
320: hr_utility.set_location('bacsmgtp.new_formula',3);
321: pay_mag_tape.internal_prm_values(1) := 4;
322: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_BODY');
323: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
324: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
325: pay_mag_tape.internal_prm_values(3) := p_value * 100;
326: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
327: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
320: hr_utility.set_location('bacsmgtp.new_formula',3);
321: pay_mag_tape.internal_prm_values(1) := 4;
322: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_BODY');
323: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
324: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
325: pay_mag_tape.internal_prm_values(3) := p_value * 100;
326: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
327: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
328: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
321: pay_mag_tape.internal_prm_values(1) := 4;
322: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_BODY');
323: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
324: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
325: pay_mag_tape.internal_prm_values(3) := p_value * 100;
326: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
327: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
328: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
329: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
322: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_BODY');
323: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
324: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
325: pay_mag_tape.internal_prm_values(3) := p_value * 100;
326: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
327: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
328: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
329: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
330: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
323: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
324: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
325: pay_mag_tape.internal_prm_values(3) := p_value * 100;
326: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
327: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
328: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
329: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
330: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
331: pay_mag_tape.internal_cxt_values(3):= get_session_date;
324: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
325: pay_mag_tape.internal_prm_values(3) := p_value * 100;
326: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
327: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
328: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
329: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
330: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
331: pay_mag_tape.internal_cxt_values(3):= get_session_date;
332: pay_mag_tape.internal_cxt_values(1):= 4;
325: pay_mag_tape.internal_prm_values(3) := p_value * 100;
326: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
327: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
328: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
329: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
330: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
331: pay_mag_tape.internal_cxt_values(3):= get_session_date;
332: pay_mag_tape.internal_cxt_values(1):= 4;
333: pay_mag_tape.internal_cxt_names(4) := 'PER_PAY_METHOD_ID';
326: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
327: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
328: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
329: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
330: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
331: pay_mag_tape.internal_cxt_values(3):= get_session_date;
332: pay_mag_tape.internal_cxt_values(1):= 4;
333: pay_mag_tape.internal_cxt_names(4) := 'PER_PAY_METHOD_ID';
334: pay_mag_tape.internal_cxt_values(4):= p_personal_payment_method_id;
327: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
328: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
329: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
330: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
331: pay_mag_tape.internal_cxt_values(3):= get_session_date;
332: pay_mag_tape.internal_cxt_values(1):= 4;
333: pay_mag_tape.internal_cxt_names(4) := 'PER_PAY_METHOD_ID';
334: pay_mag_tape.internal_cxt_values(4):= p_personal_payment_method_id;
335: org_payment_count := org_payment_count + 1;
328: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
329: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
330: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
331: pay_mag_tape.internal_cxt_values(3):= get_session_date;
332: pay_mag_tape.internal_cxt_values(1):= 4;
333: pay_mag_tape.internal_cxt_names(4) := 'PER_PAY_METHOD_ID';
334: pay_mag_tape.internal_cxt_values(4):= p_personal_payment_method_id;
335: org_payment_count := org_payment_count + 1;
336: total_body_count := total_body_count + 1;
329: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
330: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
331: pay_mag_tape.internal_cxt_values(3):= get_session_date;
332: pay_mag_tape.internal_cxt_values(1):= 4;
333: pay_mag_tape.internal_cxt_names(4) := 'PER_PAY_METHOD_ID';
334: pay_mag_tape.internal_cxt_values(4):= p_personal_payment_method_id;
335: org_payment_count := org_payment_count + 1;
336: total_body_count := total_body_count + 1;
337: total_payment := (p_value * 100) + total_payment;
330: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
331: pay_mag_tape.internal_cxt_values(3):= get_session_date;
332: pay_mag_tape.internal_cxt_values(1):= 4;
333: pay_mag_tape.internal_cxt_names(4) := 'PER_PAY_METHOD_ID';
334: pay_mag_tape.internal_cxt_values(4):= p_personal_payment_method_id;
335: org_payment_count := org_payment_count + 1;
336: total_body_count := total_body_count + 1;
337: total_payment := (p_value * 100) + total_payment;
338: total_payment_footer := (p_value * 100) + total_payment_footer;
350: END IF;
351: --
352: ELSE
353: hr_utility.set_location('bacsmgtp.new_formula',6);
354: pay_mag_tape.internal_prm_values(1) := 5;
355: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
356: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
357: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
358: pay_mag_tape.internal_prm_values(3) := total_payment;
351: --
352: ELSE
353: hr_utility.set_location('bacsmgtp.new_formula',6);
354: pay_mag_tape.internal_prm_values(1) := 5;
355: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
356: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
357: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
358: pay_mag_tape.internal_prm_values(3) := total_payment;
359: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
352: ELSE
353: hr_utility.set_location('bacsmgtp.new_formula',6);
354: pay_mag_tape.internal_prm_values(1) := 5;
355: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
356: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
357: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
358: pay_mag_tape.internal_prm_values(3) := total_payment;
359: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
360: pay_mag_tape.internal_prm_values(4) := org_payment_count;
353: hr_utility.set_location('bacsmgtp.new_formula',6);
354: pay_mag_tape.internal_prm_values(1) := 5;
355: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
356: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
357: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
358: pay_mag_tape.internal_prm_values(3) := total_payment;
359: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
360: pay_mag_tape.internal_prm_values(4) := org_payment_count;
361: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
354: pay_mag_tape.internal_prm_values(1) := 5;
355: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
356: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
357: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
358: pay_mag_tape.internal_prm_values(3) := total_payment;
359: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
360: pay_mag_tape.internal_prm_values(4) := org_payment_count;
361: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
362: pay_mag_tape.internal_prm_values(5) := 'N';
355: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
356: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
357: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
358: pay_mag_tape.internal_prm_values(3) := total_payment;
359: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
360: pay_mag_tape.internal_prm_values(4) := org_payment_count;
361: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
362: pay_mag_tape.internal_prm_values(5) := 'N';
363: pay_mag_tape.internal_cxt_values(1) := 3;
356: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
357: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
358: pay_mag_tape.internal_prm_values(3) := total_payment;
359: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
360: pay_mag_tape.internal_prm_values(4) := org_payment_count;
361: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
362: pay_mag_tape.internal_prm_values(5) := 'N';
363: pay_mag_tape.internal_cxt_values(1) := 3;
364: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
357: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
358: pay_mag_tape.internal_prm_values(3) := total_payment;
359: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
360: pay_mag_tape.internal_prm_values(4) := org_payment_count;
361: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
362: pay_mag_tape.internal_prm_values(5) := 'N';
363: pay_mag_tape.internal_cxt_values(1) := 3;
364: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
365: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
358: pay_mag_tape.internal_prm_values(3) := total_payment;
359: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
360: pay_mag_tape.internal_prm_values(4) := org_payment_count;
361: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
362: pay_mag_tape.internal_prm_values(5) := 'N';
363: pay_mag_tape.internal_cxt_values(1) := 3;
364: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
365: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
366: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
359: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
360: pay_mag_tape.internal_prm_values(4) := org_payment_count;
361: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
362: pay_mag_tape.internal_prm_values(5) := 'N';
363: pay_mag_tape.internal_cxt_values(1) := 3;
364: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
365: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
366: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
367: pay_mag_tape.internal_cxt_values(3) := get_session_date;
360: pay_mag_tape.internal_prm_values(4) := org_payment_count;
361: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
362: pay_mag_tape.internal_prm_values(5) := 'N';
363: pay_mag_tape.internal_cxt_values(1) := 3;
364: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
365: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
366: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
367: pay_mag_tape.internal_cxt_values(3) := get_session_date;
368: total_contra_count := total_contra_count + 1;
361: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
362: pay_mag_tape.internal_prm_values(5) := 'N';
363: pay_mag_tape.internal_cxt_values(1) := 3;
364: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
365: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
366: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
367: pay_mag_tape.internal_cxt_values(3) := get_session_date;
368: total_contra_count := total_contra_count + 1;
369: count_for_block :=count_for_block + 1;
362: pay_mag_tape.internal_prm_values(5) := 'N';
363: pay_mag_tape.internal_cxt_values(1) := 3;
364: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
365: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
366: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
367: pay_mag_tape.internal_cxt_values(3) := get_session_date;
368: total_contra_count := total_contra_count + 1;
369: count_for_block :=count_for_block + 1;
370: p_previous_payment_id := p_org_payment_method_id;
363: pay_mag_tape.internal_cxt_values(1) := 3;
364: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
365: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
366: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
367: pay_mag_tape.internal_cxt_values(3) := get_session_date;
368: total_contra_count := total_contra_count + 1;
369: count_for_block :=count_for_block + 1;
370: p_previous_payment_id := p_org_payment_method_id;
371: org_payment_count := 0;
377: -- I need to call the CONTRA record again if it is the
378: -- last call before doing the padding and the footer
379: ELSE
380: IF final_contra = FALSE THEN
381: pay_mag_tape.internal_prm_values(1) := 5;
382: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
383: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
384: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
385: pay_mag_tape.internal_prm_values(3) := total_payment;
378: -- last call before doing the padding and the footer
379: ELSE
380: IF final_contra = FALSE THEN
381: pay_mag_tape.internal_prm_values(1) := 5;
382: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
383: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
384: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
385: pay_mag_tape.internal_prm_values(3) := total_payment;
386: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
379: ELSE
380: IF final_contra = FALSE THEN
381: pay_mag_tape.internal_prm_values(1) := 5;
382: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
383: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
384: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
385: pay_mag_tape.internal_prm_values(3) := total_payment;
386: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
387: pay_mag_tape.internal_prm_values(4) := org_payment_count;
380: IF final_contra = FALSE THEN
381: pay_mag_tape.internal_prm_values(1) := 5;
382: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
383: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
384: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
385: pay_mag_tape.internal_prm_values(3) := total_payment;
386: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
387: pay_mag_tape.internal_prm_values(4) := org_payment_count;
388: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
381: pay_mag_tape.internal_prm_values(1) := 5;
382: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
383: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
384: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
385: pay_mag_tape.internal_prm_values(3) := total_payment;
386: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
387: pay_mag_tape.internal_prm_values(4) := org_payment_count;
388: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
389: pay_mag_tape.internal_prm_values(5) := 'Y';
382: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
383: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
384: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
385: pay_mag_tape.internal_prm_values(3) := total_payment;
386: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
387: pay_mag_tape.internal_prm_values(4) := org_payment_count;
388: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
389: pay_mag_tape.internal_prm_values(5) := 'Y';
390: pay_mag_tape.internal_cxt_values(1) := 3;
383: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
384: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
385: pay_mag_tape.internal_prm_values(3) := total_payment;
386: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
387: pay_mag_tape.internal_prm_values(4) := org_payment_count;
388: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
389: pay_mag_tape.internal_prm_values(5) := 'Y';
390: pay_mag_tape.internal_cxt_values(1) := 3;
391: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
384: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
385: pay_mag_tape.internal_prm_values(3) := total_payment;
386: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
387: pay_mag_tape.internal_prm_values(4) := org_payment_count;
388: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
389: pay_mag_tape.internal_prm_values(5) := 'Y';
390: pay_mag_tape.internal_cxt_values(1) := 3;
391: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
392: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
385: pay_mag_tape.internal_prm_values(3) := total_payment;
386: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
387: pay_mag_tape.internal_prm_values(4) := org_payment_count;
388: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
389: pay_mag_tape.internal_prm_values(5) := 'Y';
390: pay_mag_tape.internal_cxt_values(1) := 3;
391: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
392: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
393: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
386: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
387: pay_mag_tape.internal_prm_values(4) := org_payment_count;
388: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
389: pay_mag_tape.internal_prm_values(5) := 'Y';
390: pay_mag_tape.internal_cxt_values(1) := 3;
391: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
392: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
393: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
394: pay_mag_tape.internal_cxt_values(3) := get_session_date;
387: pay_mag_tape.internal_prm_values(4) := org_payment_count;
388: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
389: pay_mag_tape.internal_prm_values(5) := 'Y';
390: pay_mag_tape.internal_cxt_values(1) := 3;
391: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
392: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
393: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
394: pay_mag_tape.internal_cxt_values(3) := get_session_date;
395: total_contra_count := total_contra_count + 1;
388: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
389: pay_mag_tape.internal_prm_values(5) := 'Y';
390: pay_mag_tape.internal_cxt_values(1) := 3;
391: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
392: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
393: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
394: pay_mag_tape.internal_cxt_values(3) := get_session_date;
395: total_contra_count := total_contra_count + 1;
396: count_for_block :=count_for_block + 1;
389: pay_mag_tape.internal_prm_values(5) := 'Y';
390: pay_mag_tape.internal_cxt_values(1) := 3;
391: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
392: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
393: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
394: pay_mag_tape.internal_cxt_values(3) := get_session_date;
395: total_contra_count := total_contra_count + 1;
396: count_for_block :=count_for_block + 1;
397: final_contra :=TRUE;
390: pay_mag_tape.internal_cxt_values(1) := 3;
391: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
392: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
393: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
394: pay_mag_tape.internal_cxt_values(3) := get_session_date;
395: total_contra_count := total_contra_count + 1;
396: count_for_block :=count_for_block + 1;
397: final_contra :=TRUE;
398: ELSE
398: ELSE
399: hr_utility.set_location('bacsmgtp.new_formula',8);
400: IF count_for_block < 20 then
401: hr_utility.set_location('bacsmgtp.new_formula',9);
402: pay_mag_tape.internal_prm_values(1) :=2;
403: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
404: pay_mag_tape.internal_prm_values(2) :=
405: get_formula_id('BACS_PADDING');
406: count_for_block:= count_for_block + 1;
399: hr_utility.set_location('bacsmgtp.new_formula',8);
400: IF count_for_block < 20 then
401: hr_utility.set_location('bacsmgtp.new_formula',9);
402: pay_mag_tape.internal_prm_values(1) :=2;
403: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
404: pay_mag_tape.internal_prm_values(2) :=
405: get_formula_id('BACS_PADDING');
406: count_for_block:= count_for_block + 1;
407: ELSE
400: IF count_for_block < 20 then
401: hr_utility.set_location('bacsmgtp.new_formula',9);
402: pay_mag_tape.internal_prm_values(1) :=2;
403: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
404: pay_mag_tape.internal_prm_values(2) :=
405: get_formula_id('BACS_PADDING');
406: count_for_block:= count_for_block + 1;
407: ELSE
408: -- Padding finished - Now write footer,
407: ELSE
408: -- Padding finished - Now write footer,
409: --
410: hr_utility.set_location('bacsmgtp.new_formula',10);
411: pay_mag_tape.internal_cxt_values(1) := 3;
412: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
413: pay_mag_tape.internal_cxt_values(2) := p_org_payment_method_id;
414: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
415: pay_mag_tape.internal_cxt_values(3) := get_session_date;
408: -- Padding finished - Now write footer,
409: --
410: hr_utility.set_location('bacsmgtp.new_formula',10);
411: pay_mag_tape.internal_cxt_values(1) := 3;
412: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
413: pay_mag_tape.internal_cxt_values(2) := p_org_payment_method_id;
414: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
415: pay_mag_tape.internal_cxt_values(3) := get_session_date;
416: pay_mag_tape.internal_prm_values(1) := 6;
409: --
410: hr_utility.set_location('bacsmgtp.new_formula',10);
411: pay_mag_tape.internal_cxt_values(1) := 3;
412: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
413: pay_mag_tape.internal_cxt_values(2) := p_org_payment_method_id;
414: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
415: pay_mag_tape.internal_cxt_values(3) := get_session_date;
416: pay_mag_tape.internal_prm_values(1) := 6;
417: pay_mag_tape.internal_prm_values(2) :=
410: hr_utility.set_location('bacsmgtp.new_formula',10);
411: pay_mag_tape.internal_cxt_values(1) := 3;
412: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
413: pay_mag_tape.internal_cxt_values(2) := p_org_payment_method_id;
414: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
415: pay_mag_tape.internal_cxt_values(3) := get_session_date;
416: pay_mag_tape.internal_prm_values(1) := 6;
417: pay_mag_tape.internal_prm_values(2) :=
418: get_formula_id('BACS_FOOTER');
411: pay_mag_tape.internal_cxt_values(1) := 3;
412: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
413: pay_mag_tape.internal_cxt_values(2) := p_org_payment_method_id;
414: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
415: pay_mag_tape.internal_cxt_values(3) := get_session_date;
416: pay_mag_tape.internal_prm_values(1) := 6;
417: pay_mag_tape.internal_prm_values(2) :=
418: get_formula_id('BACS_FOOTER');
419: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
412: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
413: pay_mag_tape.internal_cxt_values(2) := p_org_payment_method_id;
414: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
415: pay_mag_tape.internal_cxt_values(3) := get_session_date;
416: pay_mag_tape.internal_prm_values(1) := 6;
417: pay_mag_tape.internal_prm_values(2) :=
418: get_formula_id('BACS_FOOTER');
419: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
420: pay_mag_tape.internal_prm_names(3) :=
413: pay_mag_tape.internal_cxt_values(2) := p_org_payment_method_id;
414: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
415: pay_mag_tape.internal_cxt_values(3) := get_session_date;
416: pay_mag_tape.internal_prm_values(1) := 6;
417: pay_mag_tape.internal_prm_values(2) :=
418: get_formula_id('BACS_FOOTER');
419: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
420: pay_mag_tape.internal_prm_names(3) :=
421: 'TRANSFER_EXPIRATION_DATE';
415: pay_mag_tape.internal_cxt_values(3) := get_session_date;
416: pay_mag_tape.internal_prm_values(1) := 6;
417: pay_mag_tape.internal_prm_values(2) :=
418: get_formula_id('BACS_FOOTER');
419: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
420: pay_mag_tape.internal_prm_names(3) :=
421: 'TRANSFER_EXPIRATION_DATE';
422: pay_mag_tape.internal_prm_values(3) := expiration_date;
423: pay_mag_tape.internal_prm_names(4) :=
416: pay_mag_tape.internal_prm_values(1) := 6;
417: pay_mag_tape.internal_prm_values(2) :=
418: get_formula_id('BACS_FOOTER');
419: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
420: pay_mag_tape.internal_prm_names(3) :=
421: 'TRANSFER_EXPIRATION_DATE';
422: pay_mag_tape.internal_prm_values(3) := expiration_date;
423: pay_mag_tape.internal_prm_names(4) :=
424: 'TRANSFER_SUBMISSION_NUMBER';
418: get_formula_id('BACS_FOOTER');
419: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
420: pay_mag_tape.internal_prm_names(3) :=
421: 'TRANSFER_EXPIRATION_DATE';
422: pay_mag_tape.internal_prm_values(3) := expiration_date;
423: pay_mag_tape.internal_prm_names(4) :=
424: 'TRANSFER_SUBMISSION_NUMBER';
425: pay_mag_tape.internal_prm_values(4) := submission_number;
426: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
419: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
420: pay_mag_tape.internal_prm_names(3) :=
421: 'TRANSFER_EXPIRATION_DATE';
422: pay_mag_tape.internal_prm_values(3) := expiration_date;
423: pay_mag_tape.internal_prm_names(4) :=
424: 'TRANSFER_SUBMISSION_NUMBER';
425: pay_mag_tape.internal_prm_values(4) := submission_number;
426: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
427: pay_mag_tape.internal_prm_values(5) := total_body_count;
421: 'TRANSFER_EXPIRATION_DATE';
422: pay_mag_tape.internal_prm_values(3) := expiration_date;
423: pay_mag_tape.internal_prm_names(4) :=
424: 'TRANSFER_SUBMISSION_NUMBER';
425: pay_mag_tape.internal_prm_values(4) := submission_number;
426: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
427: pay_mag_tape.internal_prm_values(5) := total_body_count;
428: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
429: pay_mag_tape.internal_prm_values(6) := block_count;
422: pay_mag_tape.internal_prm_values(3) := expiration_date;
423: pay_mag_tape.internal_prm_names(4) :=
424: 'TRANSFER_SUBMISSION_NUMBER';
425: pay_mag_tape.internal_prm_values(4) := submission_number;
426: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
427: pay_mag_tape.internal_prm_values(5) := total_body_count;
428: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
429: pay_mag_tape.internal_prm_values(6) := block_count;
430: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
423: pay_mag_tape.internal_prm_names(4) :=
424: 'TRANSFER_SUBMISSION_NUMBER';
425: pay_mag_tape.internal_prm_values(4) := submission_number;
426: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
427: pay_mag_tape.internal_prm_values(5) := total_body_count;
428: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
429: pay_mag_tape.internal_prm_values(6) := block_count;
430: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
431: pay_mag_tape.internal_prm_values(7) := get_todays_date;
424: 'TRANSFER_SUBMISSION_NUMBER';
425: pay_mag_tape.internal_prm_values(4) := submission_number;
426: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
427: pay_mag_tape.internal_prm_values(5) := total_body_count;
428: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
429: pay_mag_tape.internal_prm_values(6) := block_count;
430: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
431: pay_mag_tape.internal_prm_values(7) := get_todays_date;
432: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
425: pay_mag_tape.internal_prm_values(4) := submission_number;
426: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
427: pay_mag_tape.internal_prm_values(5) := total_body_count;
428: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
429: pay_mag_tape.internal_prm_values(6) := block_count;
430: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
431: pay_mag_tape.internal_prm_values(7) := get_todays_date;
432: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
433: pay_mag_tape.internal_prm_values(8) := total_payment_footer;
426: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
427: pay_mag_tape.internal_prm_values(5) := total_body_count;
428: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
429: pay_mag_tape.internal_prm_values(6) := block_count;
430: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
431: pay_mag_tape.internal_prm_values(7) := get_todays_date;
432: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
433: pay_mag_tape.internal_prm_values(8) := total_payment_footer;
434: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_CONTRA_COUNT';
427: pay_mag_tape.internal_prm_values(5) := total_body_count;
428: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
429: pay_mag_tape.internal_prm_values(6) := block_count;
430: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
431: pay_mag_tape.internal_prm_values(7) := get_todays_date;
432: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
433: pay_mag_tape.internal_prm_values(8) := total_payment_footer;
434: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_CONTRA_COUNT';
435: pay_mag_tape.internal_prm_values(9) := total_contra_count;
428: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
429: pay_mag_tape.internal_prm_values(6) := block_count;
430: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
431: pay_mag_tape.internal_prm_values(7) := get_todays_date;
432: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
433: pay_mag_tape.internal_prm_values(8) := total_payment_footer;
434: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_CONTRA_COUNT';
435: pay_mag_tape.internal_prm_values(9) := total_contra_count;
436: --
429: pay_mag_tape.internal_prm_values(6) := block_count;
430: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
431: pay_mag_tape.internal_prm_values(7) := get_todays_date;
432: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
433: pay_mag_tape.internal_prm_values(8) := total_payment_footer;
434: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_CONTRA_COUNT';
435: pay_mag_tape.internal_prm_values(9) := total_contra_count;
436: --
437: CLOSE bacs_assignments;
430: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
431: pay_mag_tape.internal_prm_values(7) := get_todays_date;
432: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
433: pay_mag_tape.internal_prm_values(8) := total_payment_footer;
434: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_CONTRA_COUNT';
435: pay_mag_tape.internal_prm_values(9) := total_contra_count;
436: --
437: CLOSE bacs_assignments;
438: END IF;
431: pay_mag_tape.internal_prm_values(7) := get_todays_date;
432: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
433: pay_mag_tape.internal_prm_values(8) := total_payment_footer;
434: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_CONTRA_COUNT';
435: pay_mag_tape.internal_prm_values(9) := total_contra_count;
436: --
437: CLOSE bacs_assignments;
438: END IF;
439: --