282: --end if;
283: -- end temporary trace AS
284: --
285: -- Reserved positions
286: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
287: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
288: --
289: pay_mag_tape.internal_cxt_names(1) := 'Number_of_contexts';
290: -- Initial value
283: -- end temporary trace AS
284: --
285: -- Reserved positions
286: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
287: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
288: --
289: pay_mag_tape.internal_cxt_names(1) := 'Number_of_contexts';
290: -- Initial value
291: pay_mag_tape.internal_cxt_values(1) := 1;
285: -- Reserved positions
286: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
287: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
288: --
289: pay_mag_tape.internal_cxt_names(1) := 'Number_of_contexts';
290: -- Initial value
291: pay_mag_tape.internal_cxt_values(1) := 1;
292: --
293: --
287: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
288: --
289: pay_mag_tape.internal_cxt_names(1) := 'Number_of_contexts';
290: -- Initial value
291: pay_mag_tape.internal_cxt_values(1) := 1;
292: --
293: --
294: IF NOT bacs_assignments %ISOPEN THEN -- New file
295: hr_utility.set_location('bacsmgtp.new_formula',1);
299: count_for_block := 0;
300: org_payment_count := 0;
301: block_count := 1;
302: fetch_required := TRUE;
303: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
304: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
305: pay_mag_tape.internal_cxt_values(1) := 3;
306: pay_mag_tape.internal_cxt_values(3) := get_session_date;
307: --
300: org_payment_count := 0;
301: block_count := 1;
302: fetch_required := TRUE;
303: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
304: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
305: pay_mag_tape.internal_cxt_values(1) := 3;
306: pay_mag_tape.internal_cxt_values(3) := get_session_date;
307: --
308: pay_mag_tape.internal_prm_values(1) := 7;
301: block_count := 1;
302: fetch_required := TRUE;
303: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
304: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
305: pay_mag_tape.internal_cxt_values(1) := 3;
306: pay_mag_tape.internal_cxt_values(3) := get_session_date;
307: --
308: pay_mag_tape.internal_prm_values(1) := 7;
309: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_HEADER');
302: fetch_required := TRUE;
303: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
304: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
305: pay_mag_tape.internal_cxt_values(1) := 3;
306: pay_mag_tape.internal_cxt_values(3) := get_session_date;
307: --
308: pay_mag_tape.internal_prm_values(1) := 7;
309: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_HEADER');
310: --
304: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
305: pay_mag_tape.internal_cxt_values(1) := 3;
306: pay_mag_tape.internal_cxt_values(3) := get_session_date;
307: --
308: pay_mag_tape.internal_prm_values(1) := 7;
309: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_HEADER');
310: --
311: -- AS it looks like we have 3 parms so try this
312: if pay_mag_tape.internal_prm_names(3) = 'PAYROLL_ACTION_ID'
305: pay_mag_tape.internal_cxt_values(1) := 3;
306: pay_mag_tape.internal_cxt_values(3) := get_session_date;
307: --
308: pay_mag_tape.internal_prm_values(1) := 7;
309: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_HEADER');
310: --
311: -- AS it looks like we have 3 parms so try this
312: if pay_mag_tape.internal_prm_names(3) = 'PAYROLL_ACTION_ID'
313: then p_payroll_action_id := to_number(
308: pay_mag_tape.internal_prm_values(1) := 7;
309: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_HEADER');
310: --
311: -- AS it looks like we have 3 parms so try this
312: if pay_mag_tape.internal_prm_names(3) = 'PAYROLL_ACTION_ID'
313: then p_payroll_action_id := to_number(
314: pay_mag_tape.internal_prm_values(3));
315: end if;
316: hr_utility.set_location('bacsmgtp.payroll_action_id',p_payroll_action_id);
310: --
311: -- AS it looks like we have 3 parms so try this
312: if pay_mag_tape.internal_prm_names(3) = 'PAYROLL_ACTION_ID'
313: then p_payroll_action_id := to_number(
314: pay_mag_tape.internal_prm_values(3));
315: end if;
316: hr_utility.set_location('bacsmgtp.payroll_action_id',p_payroll_action_id);
317: --
318: expiration_date := get_expiration_date(p_payroll_action_id);
317: --
318: expiration_date := get_expiration_date(p_payroll_action_id);
319: submission_number := get_submission_number(p_payroll_action_id);
320: process_date := get_process_date(p_payroll_action_id);
321: pay_mag_tape.internal_cxt_values(2) :=
322: get_org_context(p_payroll_action_id);
323: p_previous_payment_id := get_org_context(p_payroll_action_id);
324: --
325: --
325: --
326: total_payment := 0;
327: total_payment_footer :=0;
328: final_contra := FALSE;
329: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_EXPIRATION_DATE';
330: pay_mag_tape.internal_prm_values(3) := expiration_date;
331: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_SUBMISSION_NUMBER';
332: pay_mag_tape.internal_prm_values(4) := submission_number;
333: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
326: total_payment := 0;
327: total_payment_footer :=0;
328: final_contra := FALSE;
329: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_EXPIRATION_DATE';
330: pay_mag_tape.internal_prm_values(3) := expiration_date;
331: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_SUBMISSION_NUMBER';
332: pay_mag_tape.internal_prm_values(4) := submission_number;
333: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
334: pay_mag_tape.internal_prm_values(5) := process_date;
327: total_payment_footer :=0;
328: final_contra := FALSE;
329: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_EXPIRATION_DATE';
330: pay_mag_tape.internal_prm_values(3) := expiration_date;
331: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_SUBMISSION_NUMBER';
332: pay_mag_tape.internal_prm_values(4) := submission_number;
333: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
334: pay_mag_tape.internal_prm_values(5) := process_date;
335: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
328: final_contra := FALSE;
329: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_EXPIRATION_DATE';
330: pay_mag_tape.internal_prm_values(3) := expiration_date;
331: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_SUBMISSION_NUMBER';
332: pay_mag_tape.internal_prm_values(4) := submission_number;
333: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
334: pay_mag_tape.internal_prm_values(5) := process_date;
335: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
336: pay_mag_tape.internal_prm_values(6) := '0001';
329: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_EXPIRATION_DATE';
330: pay_mag_tape.internal_prm_values(3) := expiration_date;
331: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_SUBMISSION_NUMBER';
332: pay_mag_tape.internal_prm_values(4) := submission_number;
333: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
334: pay_mag_tape.internal_prm_values(5) := process_date;
335: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
336: pay_mag_tape.internal_prm_values(6) := '0001';
337: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
330: pay_mag_tape.internal_prm_values(3) := expiration_date;
331: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_SUBMISSION_NUMBER';
332: pay_mag_tape.internal_prm_values(4) := submission_number;
333: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
334: pay_mag_tape.internal_prm_values(5) := process_date;
335: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
336: pay_mag_tape.internal_prm_values(6) := '0001';
337: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
338: pay_mag_tape.internal_prm_values(7) := get_todays_date;
331: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_SUBMISSION_NUMBER';
332: pay_mag_tape.internal_prm_values(4) := submission_number;
333: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
334: pay_mag_tape.internal_prm_values(5) := process_date;
335: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
336: pay_mag_tape.internal_prm_values(6) := '0001';
337: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
338: pay_mag_tape.internal_prm_values(7) := get_todays_date;
339: --
332: pay_mag_tape.internal_prm_values(4) := submission_number;
333: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
334: pay_mag_tape.internal_prm_values(5) := process_date;
335: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
336: pay_mag_tape.internal_prm_values(6) := '0001';
337: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
338: pay_mag_tape.internal_prm_values(7) := get_todays_date;
339: --
340: OPEN bacs_assignments ( p_payroll_action_id);
333: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BACS_PROCESS_DATE';
334: pay_mag_tape.internal_prm_values(5) := process_date;
335: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
336: pay_mag_tape.internal_prm_values(6) := '0001';
337: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
338: pay_mag_tape.internal_prm_values(7) := get_todays_date;
339: --
340: OPEN bacs_assignments ( p_payroll_action_id);
341: --
334: pay_mag_tape.internal_prm_values(5) := process_date;
335: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_SELECT_COUNT';
336: pay_mag_tape.internal_prm_values(6) := '0001';
337: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
338: pay_mag_tape.internal_prm_values(7) := get_todays_date;
339: --
340: OPEN bacs_assignments ( p_payroll_action_id);
341: --
342: ELSE
354: IF bacs_assignments %FOUND THEN
355: IF p_org_payment_method_id = p_previous_payment_id
356: THEN
357: hr_utility.set_location('bacsmgtp.new_formula',3);
358: pay_mag_tape.internal_prm_values(1) := 4;
359: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_BODY');
360: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
361: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
362: pay_mag_tape.internal_prm_values(3) := p_value * 100;
355: IF p_org_payment_method_id = p_previous_payment_id
356: THEN
357: hr_utility.set_location('bacsmgtp.new_formula',3);
358: pay_mag_tape.internal_prm_values(1) := 4;
359: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_BODY');
360: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
361: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
362: pay_mag_tape.internal_prm_values(3) := p_value * 100;
363: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
356: THEN
357: hr_utility.set_location('bacsmgtp.new_formula',3);
358: pay_mag_tape.internal_prm_values(1) := 4;
359: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_BODY');
360: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
361: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
362: pay_mag_tape.internal_prm_values(3) := p_value * 100;
363: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
364: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
357: hr_utility.set_location('bacsmgtp.new_formula',3);
358: pay_mag_tape.internal_prm_values(1) := 4;
359: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_BODY');
360: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
361: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
362: pay_mag_tape.internal_prm_values(3) := p_value * 100;
363: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
364: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
365: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
358: pay_mag_tape.internal_prm_values(1) := 4;
359: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_BODY');
360: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
361: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
362: pay_mag_tape.internal_prm_values(3) := p_value * 100;
363: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
364: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
365: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
366: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
359: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_BODY');
360: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
361: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
362: pay_mag_tape.internal_prm_values(3) := p_value * 100;
363: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
364: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
365: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
366: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
367: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
360: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
361: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
362: pay_mag_tape.internal_prm_values(3) := p_value * 100;
363: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
364: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
365: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
366: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
367: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
368: pay_mag_tape.internal_cxt_values(3):= get_session_date;
361: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;
362: pay_mag_tape.internal_prm_values(3) := p_value * 100;
363: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
364: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
365: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
366: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
367: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
368: pay_mag_tape.internal_cxt_values(3):= get_session_date;
369: pay_mag_tape.internal_cxt_values(1):= 4;
362: pay_mag_tape.internal_prm_values(3) := p_value * 100;
363: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
364: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
365: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
366: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
367: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
368: pay_mag_tape.internal_cxt_values(3):= get_session_date;
369: pay_mag_tape.internal_cxt_values(1):= 4;
370: pay_mag_tape.internal_cxt_names(4) := 'PER_PAY_METHOD_ID';
363: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ASSIGN_NO';
364: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
365: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
366: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
367: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
368: pay_mag_tape.internal_cxt_values(3):= get_session_date;
369: pay_mag_tape.internal_cxt_values(1):= 4;
370: pay_mag_tape.internal_cxt_names(4) := 'PER_PAY_METHOD_ID';
371: pay_mag_tape.internal_cxt_values(4):= p_personal_payment_method_id;
364: pay_mag_tape.internal_prm_values(4) := p_assignment_number;
365: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
366: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
367: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
368: pay_mag_tape.internal_cxt_values(3):= get_session_date;
369: pay_mag_tape.internal_cxt_values(1):= 4;
370: pay_mag_tape.internal_cxt_names(4) := 'PER_PAY_METHOD_ID';
371: pay_mag_tape.internal_cxt_values(4):= p_personal_payment_method_id;
372: org_payment_count := org_payment_count + 1;
365: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
366: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
367: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
368: pay_mag_tape.internal_cxt_values(3):= get_session_date;
369: pay_mag_tape.internal_cxt_values(1):= 4;
370: pay_mag_tape.internal_cxt_names(4) := 'PER_PAY_METHOD_ID';
371: pay_mag_tape.internal_cxt_values(4):= p_personal_payment_method_id;
372: org_payment_count := org_payment_count + 1;
373: total_body_count := total_body_count + 1;
366: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
367: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
368: pay_mag_tape.internal_cxt_values(3):= get_session_date;
369: pay_mag_tape.internal_cxt_values(1):= 4;
370: pay_mag_tape.internal_cxt_names(4) := 'PER_PAY_METHOD_ID';
371: pay_mag_tape.internal_cxt_values(4):= p_personal_payment_method_id;
372: org_payment_count := org_payment_count + 1;
373: total_body_count := total_body_count + 1;
374: total_payment := (p_value * 100) + total_payment;
367: pay_mag_tape.internal_cxt_values(2):= p_org_payment_method_id;
368: pay_mag_tape.internal_cxt_values(3):= get_session_date;
369: pay_mag_tape.internal_cxt_values(1):= 4;
370: pay_mag_tape.internal_cxt_names(4) := 'PER_PAY_METHOD_ID';
371: pay_mag_tape.internal_cxt_values(4):= p_personal_payment_method_id;
372: org_payment_count := org_payment_count + 1;
373: total_body_count := total_body_count + 1;
374: total_payment := (p_value * 100) + total_payment;
375: total_payment_footer := (p_value * 100) + total_payment_footer;
387: END IF;
388: --
389: ELSE
390: hr_utility.set_location('bacsmgtp.new_formula',6);
391: pay_mag_tape.internal_prm_values(1) := 5;
392: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
393: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
394: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
395: pay_mag_tape.internal_prm_values(3) := total_payment;
388: --
389: ELSE
390: hr_utility.set_location('bacsmgtp.new_formula',6);
391: pay_mag_tape.internal_prm_values(1) := 5;
392: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
393: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
394: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
395: pay_mag_tape.internal_prm_values(3) := total_payment;
396: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
389: ELSE
390: hr_utility.set_location('bacsmgtp.new_formula',6);
391: pay_mag_tape.internal_prm_values(1) := 5;
392: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
393: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
394: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
395: pay_mag_tape.internal_prm_values(3) := total_payment;
396: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
397: pay_mag_tape.internal_prm_values(4) := org_payment_count;
390: hr_utility.set_location('bacsmgtp.new_formula',6);
391: pay_mag_tape.internal_prm_values(1) := 5;
392: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
393: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
394: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
395: pay_mag_tape.internal_prm_values(3) := total_payment;
396: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
397: pay_mag_tape.internal_prm_values(4) := org_payment_count;
398: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
391: pay_mag_tape.internal_prm_values(1) := 5;
392: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
393: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
394: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
395: pay_mag_tape.internal_prm_values(3) := total_payment;
396: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
397: pay_mag_tape.internal_prm_values(4) := org_payment_count;
398: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
399: pay_mag_tape.internal_prm_values(5) := 'N';
392: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
393: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
394: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
395: pay_mag_tape.internal_prm_values(3) := total_payment;
396: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
397: pay_mag_tape.internal_prm_values(4) := org_payment_count;
398: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
399: pay_mag_tape.internal_prm_values(5) := 'N';
400: pay_mag_tape.internal_cxt_values(1) := 3;
393: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
394: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
395: pay_mag_tape.internal_prm_values(3) := total_payment;
396: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
397: pay_mag_tape.internal_prm_values(4) := org_payment_count;
398: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
399: pay_mag_tape.internal_prm_values(5) := 'N';
400: pay_mag_tape.internal_cxt_values(1) := 3;
401: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
394: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
395: pay_mag_tape.internal_prm_values(3) := total_payment;
396: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
397: pay_mag_tape.internal_prm_values(4) := org_payment_count;
398: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
399: pay_mag_tape.internal_prm_values(5) := 'N';
400: pay_mag_tape.internal_cxt_values(1) := 3;
401: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
402: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
395: pay_mag_tape.internal_prm_values(3) := total_payment;
396: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
397: pay_mag_tape.internal_prm_values(4) := org_payment_count;
398: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
399: pay_mag_tape.internal_prm_values(5) := 'N';
400: pay_mag_tape.internal_cxt_values(1) := 3;
401: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
402: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
403: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
396: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
397: pay_mag_tape.internal_prm_values(4) := org_payment_count;
398: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
399: pay_mag_tape.internal_prm_values(5) := 'N';
400: pay_mag_tape.internal_cxt_values(1) := 3;
401: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
402: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
403: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
404: pay_mag_tape.internal_cxt_values(3) := get_session_date;
397: pay_mag_tape.internal_prm_values(4) := org_payment_count;
398: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
399: pay_mag_tape.internal_prm_values(5) := 'N';
400: pay_mag_tape.internal_cxt_values(1) := 3;
401: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
402: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
403: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
404: pay_mag_tape.internal_cxt_values(3) := get_session_date;
405: total_contra_count := total_contra_count + 1;
398: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
399: pay_mag_tape.internal_prm_values(5) := 'N';
400: pay_mag_tape.internal_cxt_values(1) := 3;
401: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
402: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
403: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
404: pay_mag_tape.internal_cxt_values(3) := get_session_date;
405: total_contra_count := total_contra_count + 1;
406: count_for_block :=count_for_block + 1;
399: pay_mag_tape.internal_prm_values(5) := 'N';
400: pay_mag_tape.internal_cxt_values(1) := 3;
401: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
402: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
403: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
404: pay_mag_tape.internal_cxt_values(3) := get_session_date;
405: total_contra_count := total_contra_count + 1;
406: count_for_block :=count_for_block + 1;
407: p_previous_payment_id := p_org_payment_method_id;
400: pay_mag_tape.internal_cxt_values(1) := 3;
401: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
402: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
403: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
404: pay_mag_tape.internal_cxt_values(3) := get_session_date;
405: total_contra_count := total_contra_count + 1;
406: count_for_block :=count_for_block + 1;
407: p_previous_payment_id := p_org_payment_method_id;
408: org_payment_count := 0;
414: -- I need to call the CONTRA record again if it is the
415: -- last call before doing the padding and the footer
416: ELSE
417: IF final_contra = FALSE THEN
418: pay_mag_tape.internal_prm_values(1) := 5;
419: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
420: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
421: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
422: pay_mag_tape.internal_prm_values(3) := total_payment;
415: -- last call before doing the padding and the footer
416: ELSE
417: IF final_contra = FALSE THEN
418: pay_mag_tape.internal_prm_values(1) := 5;
419: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
420: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
421: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
422: pay_mag_tape.internal_prm_values(3) := total_payment;
423: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
416: ELSE
417: IF final_contra = FALSE THEN
418: pay_mag_tape.internal_prm_values(1) := 5;
419: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
420: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
421: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
422: pay_mag_tape.internal_prm_values(3) := total_payment;
423: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
424: pay_mag_tape.internal_prm_values(4) := org_payment_count;
417: IF final_contra = FALSE THEN
418: pay_mag_tape.internal_prm_values(1) := 5;
419: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
420: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
421: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
422: pay_mag_tape.internal_prm_values(3) := total_payment;
423: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
424: pay_mag_tape.internal_prm_values(4) := org_payment_count;
425: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
418: pay_mag_tape.internal_prm_values(1) := 5;
419: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
420: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
421: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
422: pay_mag_tape.internal_prm_values(3) := total_payment;
423: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
424: pay_mag_tape.internal_prm_values(4) := org_payment_count;
425: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
426: pay_mag_tape.internal_prm_values(5) := 'Y';
419: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
420: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
421: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
422: pay_mag_tape.internal_prm_values(3) := total_payment;
423: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
424: pay_mag_tape.internal_prm_values(4) := org_payment_count;
425: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
426: pay_mag_tape.internal_prm_values(5) := 'Y';
427: pay_mag_tape.internal_cxt_values(1) := 3;
420: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
421: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
422: pay_mag_tape.internal_prm_values(3) := total_payment;
423: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
424: pay_mag_tape.internal_prm_values(4) := org_payment_count;
425: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
426: pay_mag_tape.internal_prm_values(5) := 'Y';
427: pay_mag_tape.internal_cxt_values(1) := 3;
428: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
421: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';
422: pay_mag_tape.internal_prm_values(3) := total_payment;
423: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
424: pay_mag_tape.internal_prm_values(4) := org_payment_count;
425: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
426: pay_mag_tape.internal_prm_values(5) := 'Y';
427: pay_mag_tape.internal_cxt_values(1) := 3;
428: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
429: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
422: pay_mag_tape.internal_prm_values(3) := total_payment;
423: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
424: pay_mag_tape.internal_prm_values(4) := org_payment_count;
425: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
426: pay_mag_tape.internal_prm_values(5) := 'Y';
427: pay_mag_tape.internal_cxt_values(1) := 3;
428: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
429: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
430: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
423: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_PAYMENT_COUNT';
424: pay_mag_tape.internal_prm_values(4) := org_payment_count;
425: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
426: pay_mag_tape.internal_prm_values(5) := 'Y';
427: pay_mag_tape.internal_cxt_values(1) := 3;
428: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
429: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
430: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
431: pay_mag_tape.internal_cxt_values(3) := get_session_date;
424: pay_mag_tape.internal_prm_values(4) := org_payment_count;
425: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
426: pay_mag_tape.internal_prm_values(5) := 'Y';
427: pay_mag_tape.internal_cxt_values(1) := 3;
428: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
429: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
430: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
431: pay_mag_tape.internal_cxt_values(3) := get_session_date;
432: total_contra_count := total_contra_count + 1;
425: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_LAST_CONTRA';
426: pay_mag_tape.internal_prm_values(5) := 'Y';
427: pay_mag_tape.internal_cxt_values(1) := 3;
428: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
429: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
430: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
431: pay_mag_tape.internal_cxt_values(3) := get_session_date;
432: total_contra_count := total_contra_count + 1;
433: count_for_block :=count_for_block + 1;
426: pay_mag_tape.internal_prm_values(5) := 'Y';
427: pay_mag_tape.internal_cxt_values(1) := 3;
428: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
429: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
430: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
431: pay_mag_tape.internal_cxt_values(3) := get_session_date;
432: total_contra_count := total_contra_count + 1;
433: count_for_block :=count_for_block + 1;
434: final_contra :=TRUE;
427: pay_mag_tape.internal_cxt_values(1) := 3;
428: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
429: pay_mag_tape.internal_cxt_values(2) := p_previous_payment_id;
430: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
431: pay_mag_tape.internal_cxt_values(3) := get_session_date;
432: total_contra_count := total_contra_count + 1;
433: count_for_block :=count_for_block + 1;
434: final_contra :=TRUE;
435: ELSE
435: ELSE
436: hr_utility.set_location('bacsmgtp.new_formula',8);
437: IF count_for_block < 20 then
438: hr_utility.set_location('bacsmgtp.new_formula',9);
439: pay_mag_tape.internal_prm_values(1) :=2;
440: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
441: pay_mag_tape.internal_prm_values(2) :=
442: get_formula_id('BACS_PADDING');
443: count_for_block:= count_for_block + 1;
436: hr_utility.set_location('bacsmgtp.new_formula',8);
437: IF count_for_block < 20 then
438: hr_utility.set_location('bacsmgtp.new_formula',9);
439: pay_mag_tape.internal_prm_values(1) :=2;
440: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
441: pay_mag_tape.internal_prm_values(2) :=
442: get_formula_id('BACS_PADDING');
443: count_for_block:= count_for_block + 1;
444: ELSE
437: IF count_for_block < 20 then
438: hr_utility.set_location('bacsmgtp.new_formula',9);
439: pay_mag_tape.internal_prm_values(1) :=2;
440: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
441: pay_mag_tape.internal_prm_values(2) :=
442: get_formula_id('BACS_PADDING');
443: count_for_block:= count_for_block + 1;
444: ELSE
445: -- Padding finished - Now write footer,
444: ELSE
445: -- Padding finished - Now write footer,
446: --
447: hr_utility.set_location('bacsmgtp.new_formula',10);
448: pay_mag_tape.internal_cxt_values(1) := 3;
449: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
450: pay_mag_tape.internal_cxt_values(2) := p_org_payment_method_id;
451: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
452: pay_mag_tape.internal_cxt_values(3) := get_session_date;
445: -- Padding finished - Now write footer,
446: --
447: hr_utility.set_location('bacsmgtp.new_formula',10);
448: pay_mag_tape.internal_cxt_values(1) := 3;
449: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
450: pay_mag_tape.internal_cxt_values(2) := p_org_payment_method_id;
451: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
452: pay_mag_tape.internal_cxt_values(3) := get_session_date;
453: pay_mag_tape.internal_prm_values(1) := 6;
446: --
447: hr_utility.set_location('bacsmgtp.new_formula',10);
448: pay_mag_tape.internal_cxt_values(1) := 3;
449: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
450: pay_mag_tape.internal_cxt_values(2) := p_org_payment_method_id;
451: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
452: pay_mag_tape.internal_cxt_values(3) := get_session_date;
453: pay_mag_tape.internal_prm_values(1) := 6;
454: pay_mag_tape.internal_prm_values(2) :=
447: hr_utility.set_location('bacsmgtp.new_formula',10);
448: pay_mag_tape.internal_cxt_values(1) := 3;
449: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
450: pay_mag_tape.internal_cxt_values(2) := p_org_payment_method_id;
451: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
452: pay_mag_tape.internal_cxt_values(3) := get_session_date;
453: pay_mag_tape.internal_prm_values(1) := 6;
454: pay_mag_tape.internal_prm_values(2) :=
455: get_formula_id('BACS_FOOTER');
448: pay_mag_tape.internal_cxt_values(1) := 3;
449: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
450: pay_mag_tape.internal_cxt_values(2) := p_org_payment_method_id;
451: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
452: pay_mag_tape.internal_cxt_values(3) := get_session_date;
453: pay_mag_tape.internal_prm_values(1) := 6;
454: pay_mag_tape.internal_prm_values(2) :=
455: get_formula_id('BACS_FOOTER');
456: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
449: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
450: pay_mag_tape.internal_cxt_values(2) := p_org_payment_method_id;
451: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
452: pay_mag_tape.internal_cxt_values(3) := get_session_date;
453: pay_mag_tape.internal_prm_values(1) := 6;
454: pay_mag_tape.internal_prm_values(2) :=
455: get_formula_id('BACS_FOOTER');
456: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
457: pay_mag_tape.internal_prm_names(3) :=
450: pay_mag_tape.internal_cxt_values(2) := p_org_payment_method_id;
451: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
452: pay_mag_tape.internal_cxt_values(3) := get_session_date;
453: pay_mag_tape.internal_prm_values(1) := 6;
454: pay_mag_tape.internal_prm_values(2) :=
455: get_formula_id('BACS_FOOTER');
456: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
457: pay_mag_tape.internal_prm_names(3) :=
458: 'TRANSFER_EXPIRATION_DATE';
452: pay_mag_tape.internal_cxt_values(3) := get_session_date;
453: pay_mag_tape.internal_prm_values(1) := 6;
454: pay_mag_tape.internal_prm_values(2) :=
455: get_formula_id('BACS_FOOTER');
456: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
457: pay_mag_tape.internal_prm_names(3) :=
458: 'TRANSFER_EXPIRATION_DATE';
459: pay_mag_tape.internal_prm_values(3) := expiration_date;
460: pay_mag_tape.internal_prm_names(4) :=
453: pay_mag_tape.internal_prm_values(1) := 6;
454: pay_mag_tape.internal_prm_values(2) :=
455: get_formula_id('BACS_FOOTER');
456: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
457: pay_mag_tape.internal_prm_names(3) :=
458: 'TRANSFER_EXPIRATION_DATE';
459: pay_mag_tape.internal_prm_values(3) := expiration_date;
460: pay_mag_tape.internal_prm_names(4) :=
461: 'TRANSFER_SUBMISSION_NUMBER';
455: get_formula_id('BACS_FOOTER');
456: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
457: pay_mag_tape.internal_prm_names(3) :=
458: 'TRANSFER_EXPIRATION_DATE';
459: pay_mag_tape.internal_prm_values(3) := expiration_date;
460: pay_mag_tape.internal_prm_names(4) :=
461: 'TRANSFER_SUBMISSION_NUMBER';
462: pay_mag_tape.internal_prm_values(4) := submission_number;
463: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
456: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
457: pay_mag_tape.internal_prm_names(3) :=
458: 'TRANSFER_EXPIRATION_DATE';
459: pay_mag_tape.internal_prm_values(3) := expiration_date;
460: pay_mag_tape.internal_prm_names(4) :=
461: 'TRANSFER_SUBMISSION_NUMBER';
462: pay_mag_tape.internal_prm_values(4) := submission_number;
463: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
464: pay_mag_tape.internal_prm_values(5) := total_body_count;
458: 'TRANSFER_EXPIRATION_DATE';
459: pay_mag_tape.internal_prm_values(3) := expiration_date;
460: pay_mag_tape.internal_prm_names(4) :=
461: 'TRANSFER_SUBMISSION_NUMBER';
462: pay_mag_tape.internal_prm_values(4) := submission_number;
463: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
464: pay_mag_tape.internal_prm_values(5) := total_body_count;
465: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
466: pay_mag_tape.internal_prm_values(6) := block_count;
459: pay_mag_tape.internal_prm_values(3) := expiration_date;
460: pay_mag_tape.internal_prm_names(4) :=
461: 'TRANSFER_SUBMISSION_NUMBER';
462: pay_mag_tape.internal_prm_values(4) := submission_number;
463: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
464: pay_mag_tape.internal_prm_values(5) := total_body_count;
465: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
466: pay_mag_tape.internal_prm_values(6) := block_count;
467: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
460: pay_mag_tape.internal_prm_names(4) :=
461: 'TRANSFER_SUBMISSION_NUMBER';
462: pay_mag_tape.internal_prm_values(4) := submission_number;
463: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
464: pay_mag_tape.internal_prm_values(5) := total_body_count;
465: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
466: pay_mag_tape.internal_prm_values(6) := block_count;
467: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
468: pay_mag_tape.internal_prm_values(7) := get_todays_date;
461: 'TRANSFER_SUBMISSION_NUMBER';
462: pay_mag_tape.internal_prm_values(4) := submission_number;
463: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
464: pay_mag_tape.internal_prm_values(5) := total_body_count;
465: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
466: pay_mag_tape.internal_prm_values(6) := block_count;
467: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
468: pay_mag_tape.internal_prm_values(7) := get_todays_date;
469: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
462: pay_mag_tape.internal_prm_values(4) := submission_number;
463: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
464: pay_mag_tape.internal_prm_values(5) := total_body_count;
465: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
466: pay_mag_tape.internal_prm_values(6) := block_count;
467: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
468: pay_mag_tape.internal_prm_values(7) := get_todays_date;
469: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
470: pay_mag_tape.internal_prm_values(8) := total_payment_footer;
463: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_BODY_COUNT';
464: pay_mag_tape.internal_prm_values(5) := total_body_count;
465: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
466: pay_mag_tape.internal_prm_values(6) := block_count;
467: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
468: pay_mag_tape.internal_prm_values(7) := get_todays_date;
469: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
470: pay_mag_tape.internal_prm_values(8) := total_payment_footer;
471: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_CONTRA_COUNT';
464: pay_mag_tape.internal_prm_values(5) := total_body_count;
465: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
466: pay_mag_tape.internal_prm_values(6) := block_count;
467: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
468: pay_mag_tape.internal_prm_values(7) := get_todays_date;
469: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
470: pay_mag_tape.internal_prm_values(8) := total_payment_footer;
471: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_CONTRA_COUNT';
472: pay_mag_tape.internal_prm_values(9) := total_contra_count;
465: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_BLOCK_COUNT';
466: pay_mag_tape.internal_prm_values(6) := block_count;
467: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
468: pay_mag_tape.internal_prm_values(7) := get_todays_date;
469: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
470: pay_mag_tape.internal_prm_values(8) := total_payment_footer;
471: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_CONTRA_COUNT';
472: pay_mag_tape.internal_prm_values(9) := total_contra_count;
473: --
466: pay_mag_tape.internal_prm_values(6) := block_count;
467: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
468: pay_mag_tape.internal_prm_values(7) := get_todays_date;
469: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
470: pay_mag_tape.internal_prm_values(8) := total_payment_footer;
471: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_CONTRA_COUNT';
472: pay_mag_tape.internal_prm_values(9) := total_contra_count;
473: --
474: CLOSE bacs_assignments;
467: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_TODAYS_DATE';
468: pay_mag_tape.internal_prm_values(7) := get_todays_date;
469: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
470: pay_mag_tape.internal_prm_values(8) := total_payment_footer;
471: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_CONTRA_COUNT';
472: pay_mag_tape.internal_prm_values(9) := total_contra_count;
473: --
474: CLOSE bacs_assignments;
475: END IF;
468: pay_mag_tape.internal_prm_values(7) := get_todays_date;
469: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_TOTAL_PAYMENT';
470: pay_mag_tape.internal_prm_values(8) := total_payment_footer;
471: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_CONTRA_COUNT';
472: pay_mag_tape.internal_prm_values(9) := total_contra_count;
473: --
474: CLOSE bacs_assignments;
475: END IF;
476: --