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