122: --- This can repeat up to 5 times
123: for l_index in 1..l_count loop
124: l_edi := l_edi + 1;
125: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(assets(l_index).description, 71) ||
126: rpad(assets(l_index).other_description, 71) || rpad(' ',70) || fnd_global.local_chr(10);
127: l_edi := l_edi + 1;
128: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier8 || fnd_global.local_chr(10) ||
129: edi_moa1 || assets(l_index).cost_or_mkt_value || edi_currency || fnd_global.local_chr(10);
130: l_edi := l_edi + 1;
124: l_edi := l_edi + 1;
125: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(assets(l_index).description, 71) ||
126: rpad(assets(l_index).other_description, 71) || rpad(' ',70) || fnd_global.local_chr(10);
127: l_edi := l_edi + 1;
128: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier8 || fnd_global.local_chr(10) ||
129: edi_moa1 || assets(l_index).cost_or_mkt_value || edi_currency || fnd_global.local_chr(10);
130: l_edi := l_edi + 1;
131: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10) ||
132: edi_moa1 || assets(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10);
125: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(assets(l_index).description, 71) ||
126: rpad(assets(l_index).other_description, 71) || rpad(' ',70) || fnd_global.local_chr(10);
127: l_edi := l_edi + 1;
128: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier8 || fnd_global.local_chr(10) ||
129: edi_moa1 || assets(l_index).cost_or_mkt_value || edi_currency || fnd_global.local_chr(10);
130: l_edi := l_edi + 1;
131: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10) ||
132: edi_moa1 || assets(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10);
133: l_edi := l_edi + 1;
127: l_edi := l_edi + 1;
128: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier8 || fnd_global.local_chr(10) ||
129: edi_moa1 || assets(l_index).cost_or_mkt_value || edi_currency || fnd_global.local_chr(10);
130: l_edi := l_edi + 1;
131: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10) ||
132: edi_moa1 || assets(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10);
133: l_edi := l_edi + 1;
134: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) ||
135: edi_moa1 || assets(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
128: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier8 || fnd_global.local_chr(10) ||
129: edi_moa1 || assets(l_index).cost_or_mkt_value || edi_currency || fnd_global.local_chr(10);
130: l_edi := l_edi + 1;
131: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10) ||
132: edi_moa1 || assets(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10);
133: l_edi := l_edi + 1;
134: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) ||
135: edi_moa1 || assets(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
136: end loop;
130: l_edi := l_edi + 1;
131: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10) ||
132: edi_moa1 || assets(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10);
133: l_edi := l_edi + 1;
134: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) ||
135: edi_moa1 || assets(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
136: end loop;
137:
138: if (l_total >= 1) then
131: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10) ||
132: edi_moa1 || assets(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10);
133: l_edi := l_edi + 1;
134: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) ||
135: edi_moa1 || assets(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
136: end loop;
137:
138: if (l_total >= 1) then
139: edi_cat := rpad('Q',18);
137:
138: if (l_total >= 1) then
139: edi_cat := rpad('Q',18);
140: l_edi := l_edi + 1;
141: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
142: l_edi := l_edi + 1;
143: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier115 || fnd_global.local_chr(10) ||
144: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_total) || edi_currency || fnd_global.local_chr(10);
145: end if;
139: edi_cat := rpad('Q',18);
140: l_edi := l_edi + 1;
141: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
142: l_edi := l_edi + 1;
143: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier115 || fnd_global.local_chr(10) ||
144: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_total) || edi_currency || fnd_global.local_chr(10);
145: end if;
146:
147: -- Maximum output is 22 + 1 edi records
140: l_edi := l_edi + 1;
141: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
142: l_edi := l_edi + 1;
143: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier115 || fnd_global.local_chr(10) ||
144: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_total) || edi_currency || fnd_global.local_chr(10);
145: end if;
146:
147: -- Maximum output is 22 + 1 edi records
148: l_edi := l_edi + 1;
276: l_edi := 0;
277: --- This can repeat up to 7 times
278: for l_index in 1..l_count loop
279: l_edi := l_edi + 1;
280: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(payments(l_index).description, 71) || rpad(' ', 71) || rpad(' ',70) || fnd_global.local_chr(10);
281: l_edi := l_edi + 1;
282: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier4 || fnd_global.local_chr(10) ||
283: edi_moa1 || payments(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
284: end loop;
278: for l_index in 1..l_count loop
279: l_edi := l_edi + 1;
280: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(payments(l_index).description, 71) || rpad(' ', 71) || rpad(' ',70) || fnd_global.local_chr(10);
281: l_edi := l_edi + 1;
282: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier4 || fnd_global.local_chr(10) ||
283: edi_moa1 || payments(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
284: end loop;
285:
286: if (l_total >= 1) then
279: l_edi := l_edi + 1;
280: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(payments(l_index).description, 71) || rpad(' ', 71) || rpad(' ',70) || fnd_global.local_chr(10);
281: l_edi := l_edi + 1;
282: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier4 || fnd_global.local_chr(10) ||
283: edi_moa1 || payments(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
284: end loop;
285:
286: if (l_total >= 1) then
287: edi_cat := rpad('R',18);
285:
286: if (l_total >= 1) then
287: edi_cat := rpad('R',18);
288: l_edi := l_edi + 1;
289: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
290: l_edi := l_edi + 1;
291: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier116 || fnd_global.local_chr(10) ||
292: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_total) || edi_currency || fnd_global.local_chr(10);
293: l_edi := l_edi + 1;
287: edi_cat := rpad('R',18);
288: l_edi := l_edi + 1;
289: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
290: l_edi := l_edi + 1;
291: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier116 || fnd_global.local_chr(10) ||
292: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_total) || edi_currency || fnd_global.local_chr(10);
293: l_edi := l_edi + 1;
294: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier117 || fnd_global.local_chr(10) ||
295: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_notional) || edi_currency || fnd_global.local_chr(10);
288: l_edi := l_edi + 1;
289: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
290: l_edi := l_edi + 1;
291: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier116 || fnd_global.local_chr(10) ||
292: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_total) || edi_currency || fnd_global.local_chr(10);
293: l_edi := l_edi + 1;
294: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier117 || fnd_global.local_chr(10) ||
295: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_notional) || edi_currency || fnd_global.local_chr(10);
296: end if;
290: l_edi := l_edi + 1;
291: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier116 || fnd_global.local_chr(10) ||
292: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_total) || edi_currency || fnd_global.local_chr(10);
293: l_edi := l_edi + 1;
294: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier117 || fnd_global.local_chr(10) ||
295: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_notional) || edi_currency || fnd_global.local_chr(10);
296: end if;
297:
298: -- Maximum output is 17 + 1 edi records
291: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier116 || fnd_global.local_chr(10) ||
292: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_total) || edi_currency || fnd_global.local_chr(10);
293: l_edi := l_edi + 1;
294: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier117 || fnd_global.local_chr(10) ||
295: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_notional) || edi_currency || fnd_global.local_chr(10);
296: end if;
297:
298: -- Maximum output is 17 + 1 edi records
299: l_edi := l_edi + 1;
388: close get_data;
389:
390: if l_cash_equivalent >= 1 then
391: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
392: rpad(' ', 70) || fnd_global.local_chr(10);
393: p_edi_rec2 := edi_tax1 || edi_tax_qualifier41 || fnd_global.local_chr(10);
394: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_gross_amount) ||
395: edi_currency || fnd_global.local_chr(10);
396: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
389:
390: if l_cash_equivalent >= 1 then
391: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
392: rpad(' ', 70) || fnd_global.local_chr(10);
393: p_edi_rec2 := edi_tax1 || edi_tax_qualifier41 || fnd_global.local_chr(10);
394: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_gross_amount) ||
395: edi_currency || fnd_global.local_chr(10);
396: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
397: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
391: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
392: rpad(' ', 70) || fnd_global.local_chr(10);
393: p_edi_rec2 := edi_tax1 || edi_tax_qualifier41 || fnd_global.local_chr(10);
394: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_gross_amount) ||
395: edi_currency || fnd_global.local_chr(10);
396: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
397: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
398: edi_currency || fnd_global.local_chr(10);
399: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
392: rpad(' ', 70) || fnd_global.local_chr(10);
393: p_edi_rec2 := edi_tax1 || edi_tax_qualifier41 || fnd_global.local_chr(10);
394: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_gross_amount) ||
395: edi_currency || fnd_global.local_chr(10);
396: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
397: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
398: edi_currency || fnd_global.local_chr(10);
399: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
400: p_edi_rec7 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
394: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_gross_amount) ||
395: edi_currency || fnd_global.local_chr(10);
396: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
397: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
398: edi_currency || fnd_global.local_chr(10);
399: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
400: p_edi_rec7 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
401: edi_currency || fnd_global.local_chr(10);
402: end if;
395: edi_currency || fnd_global.local_chr(10);
396: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
397: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
398: edi_currency || fnd_global.local_chr(10);
399: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
400: p_edi_rec7 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
401: edi_currency || fnd_global.local_chr(10);
402: end if;
403: end get_voucher_n_creditcard;
397: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
398: edi_currency || fnd_global.local_chr(10);
399: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
400: p_edi_rec7 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
401: edi_currency || fnd_global.local_chr(10);
402: end if;
403: end get_voucher_n_creditcard;
404: /******************* Voucher or Credit Cards (Single Occurance) ***********************/
405:
456: close get_data;
457:
458: if l_cash_equivalent >= 1 then
459: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
460: rpad(' ', 70) || fnd_global.local_chr(10);
461: p_edi_rec2 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
462: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
463: edi_currency || fnd_global.local_chr(10);
464: end if;
457:
458: if l_cash_equivalent >= 1 then
459: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
460: rpad(' ', 70) || fnd_global.local_chr(10);
461: p_edi_rec2 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
462: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
463: edi_currency || fnd_global.local_chr(10);
464: end if;
465: end get_living_accommodation;
459: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
460: rpad(' ', 70) || fnd_global.local_chr(10);
461: p_edi_rec2 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
462: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
463: edi_currency || fnd_global.local_chr(10);
464: end if;
465: end get_living_accommodation;
466: /******************* Living Accommodation (Single Occurance) ***********************/
467:
518: close get_data;
519:
520: if l_taxable_payments >= 1 then
521: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
522: rpad(' ', 70) || fnd_global.local_chr(10);
523: p_edi_rec2 := edi_tax1 || edi_tax_qualifier71 || fnd_global.local_chr(10);
524: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_taxable_payments) ||
525: edi_currency || fnd_global.local_chr(10);
526: end if;
519:
520: if l_taxable_payments >= 1 then
521: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
522: rpad(' ', 70) || fnd_global.local_chr(10);
523: p_edi_rec2 := edi_tax1 || edi_tax_qualifier71 || fnd_global.local_chr(10);
524: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_taxable_payments) ||
525: edi_currency || fnd_global.local_chr(10);
526: end if;
527: end get_mileage_allowance;
521: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
522: rpad(' ', 70) || fnd_global.local_chr(10);
523: p_edi_rec2 := edi_tax1 || edi_tax_qualifier71 || fnd_global.local_chr(10);
524: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_taxable_payments) ||
525: edi_currency || fnd_global.local_chr(10);
526: end if;
527: end get_mileage_allowance;
528: /******************* Mileage Allowance (Single Occurance) ***********************/
529:
757: edi_date_to := substr(l_benefit_end_date,1,4) ||
758: substr(l_benefit_end_date,6,2) ||
759: substr(l_benefit_end_date,9,2);
760:
761: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) || rpad(' ', 70) || fnd_global.local_chr(10);
762: p_edi_rec2 := edi_tax1 || edi_tax_qualifier43 || fnd_global.local_chr(10);
763: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_list_price) || edi_currency || fnd_global.local_chr(10);
764:
765: if to_number(l_optional_accessories_fitted) > 0 then
758: substr(l_benefit_end_date,6,2) ||
759: substr(l_benefit_end_date,9,2);
760:
761: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) || rpad(' ', 70) || fnd_global.local_chr(10);
762: p_edi_rec2 := edi_tax1 || edi_tax_qualifier43 || fnd_global.local_chr(10);
763: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_list_price) || edi_currency || fnd_global.local_chr(10);
764:
765: if to_number(l_optional_accessories_fitted) > 0 then
766: p_edi_rec4 := edi_tax1 || edi_tax_qualifier136 || fnd_global.local_chr(10);
759: substr(l_benefit_end_date,9,2);
760:
761: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) || rpad(' ', 70) || fnd_global.local_chr(10);
762: p_edi_rec2 := edi_tax1 || edi_tax_qualifier43 || fnd_global.local_chr(10);
763: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_list_price) || edi_currency || fnd_global.local_chr(10);
764:
765: if to_number(l_optional_accessories_fitted) > 0 then
766: p_edi_rec4 := edi_tax1 || edi_tax_qualifier136 || fnd_global.local_chr(10);
767: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_optional_accessories_fitted) ||
762: p_edi_rec2 := edi_tax1 || edi_tax_qualifier43 || fnd_global.local_chr(10);
763: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_list_price) || edi_currency || fnd_global.local_chr(10);
764:
765: if to_number(l_optional_accessories_fitted) > 0 then
766: p_edi_rec4 := edi_tax1 || edi_tax_qualifier136 || fnd_global.local_chr(10);
767: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_optional_accessories_fitted) ||
768: edi_currency || fnd_global.local_chr(10);
769: end if;
770:
764:
765: if to_number(l_optional_accessories_fitted) > 0 then
766: p_edi_rec4 := edi_tax1 || edi_tax_qualifier136 || fnd_global.local_chr(10);
767: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_optional_accessories_fitted) ||
768: edi_currency || fnd_global.local_chr(10);
769: end if;
770:
771: if to_number(l_capital_contribution_made) > 0 then
772: p_edi_rec6 := edi_tax1 || edi_tax_qualifier21 || fnd_global.local_chr(10);
768: edi_currency || fnd_global.local_chr(10);
769: end if;
770:
771: if to_number(l_capital_contribution_made) > 0 then
772: p_edi_rec6 := edi_tax1 || edi_tax_qualifier21 || fnd_global.local_chr(10);
773: p_edi_rec7 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_capital_contribution_made) ||
774: edi_currency || fnd_global.local_chr(10);
775: end if;
776:
770:
771: if to_number(l_capital_contribution_made) > 0 then
772: p_edi_rec6 := edi_tax1 || edi_tax_qualifier21 || fnd_global.local_chr(10);
773: p_edi_rec7 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_capital_contribution_made) ||
774: edi_currency || fnd_global.local_chr(10);
775: end if;
776:
777: if to_number(l_private_use_payments) > 0 then
778: p_edi_rec8 := edi_tax1 || edi_tax_qualifier5 || fnd_global.local_chr(10);
774: edi_currency || fnd_global.local_chr(10);
775: end if;
776:
777: if to_number(l_private_use_payments) > 0 then
778: p_edi_rec8 := edi_tax1 || edi_tax_qualifier5 || fnd_global.local_chr(10);
779: p_edi_rec9 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_private_use_payments) || edi_currency || fnd_global.local_chr(10);
780: end if;
781:
782: p_edi_rec10:= edi_tax1 || edi_tax_qualifier9 || fnd_global.local_chr(10);
775: end if;
776:
777: if to_number(l_private_use_payments) > 0 then
778: p_edi_rec8 := edi_tax1 || edi_tax_qualifier5 || fnd_global.local_chr(10);
779: p_edi_rec9 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_private_use_payments) || edi_currency || fnd_global.local_chr(10);
780: end if;
781:
782: p_edi_rec10:= edi_tax1 || edi_tax_qualifier9 || fnd_global.local_chr(10);
783: p_edi_rec11:= edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent_for_car) ||
778: p_edi_rec8 := edi_tax1 || edi_tax_qualifier5 || fnd_global.local_chr(10);
779: p_edi_rec9 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_private_use_payments) || edi_currency || fnd_global.local_chr(10);
780: end if;
781:
782: p_edi_rec10:= edi_tax1 || edi_tax_qualifier9 || fnd_global.local_chr(10);
783: p_edi_rec11:= edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent_for_car) ||
784: edi_currency || fnd_global.local_chr(10);
785:
786: --if (l_co2_emission is not null or l_engine_cc_for_fuel_charge <> ' ') then
780: end if;
781:
782: p_edi_rec10:= edi_tax1 || edi_tax_qualifier9 || fnd_global.local_chr(10);
783: p_edi_rec11:= edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent_for_car) ||
784: edi_currency || fnd_global.local_chr(10);
785:
786: --if (l_co2_emission is not null or l_engine_cc_for_fuel_charge <> ' ') then
787: --if to_number(l_cash_equivalent_for_fuel) > 0 then
788: if ((l_co2_emission <> ' ' or l_engine_cc_for_fuel_charge <> ' ') and
787: --if to_number(l_cash_equivalent_for_fuel) > 0 then
788: if ((l_co2_emission <> ' ' or l_engine_cc_for_fuel_charge <> ' ') and
789: to_number(l_cash_equivalent_for_fuel) > 0
790: ) then
791: p_edi_rec12 := edi_tax1 || edi_tax_qualifier10 || fnd_global.local_chr(10);
792: p_edi_rec13 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent_for_fuel) ||
793: edi_currency || fnd_global.local_chr(10);
794: end if;
795:
789: to_number(l_cash_equivalent_for_fuel) > 0
790: ) then
791: p_edi_rec12 := edi_tax1 || edi_tax_qualifier10 || fnd_global.local_chr(10);
792: p_edi_rec13 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent_for_fuel) ||
793: edi_currency || fnd_global.local_chr(10);
794: end if;
795:
796: p_edi_rec14:= edi_att3 || edi_att3_qualifier5 || rpad(l_make_of_car || ' ' || l_model,35) || fnd_global.local_chr(10);
797:
792: p_edi_rec13 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent_for_fuel) ||
793: edi_currency || fnd_global.local_chr(10);
794: end if;
795:
796: p_edi_rec14:= edi_att3 || edi_att3_qualifier5 || rpad(l_make_of_car || ' ' || l_model,35) || fnd_global.local_chr(10);
797:
798: if (to_date(substr(l_date_first_registered,1,10),'YYYY/MM/DD') >=
799: to_date('1998/01/01','YYYY/MM/DD') and l_mileage_band is not null and
800: to_number(nvl(l_mileage_band,0)) > 0 ) and
798: if (to_date(substr(l_date_first_registered,1,10),'YYYY/MM/DD') >=
799: to_date('1998/01/01','YYYY/MM/DD') and l_mileage_band is not null and
800: to_number(nvl(l_mileage_band,0)) > 0 ) and
801: (l_fuel_type <> 'E') then
802: p_edi_rec15 := edi_att3 || edi_tax_qualifier28 || rpad(l_co2_emission,35) || fnd_global.local_chr(10);
803: end if;
804:
805: if (to_date(substr(l_date_first_registered,1,10),'YYYY/MM/DD') >=
806: to_date('1998/01/01','YYYY/MM/DD') and l_mileage_band is null) or
804:
805: if (to_date(substr(l_date_first_registered,1,10),'YYYY/MM/DD') >=
806: to_date('1998/01/01','YYYY/MM/DD') and l_mileage_band is null) or
807: (l_fuel_type = 'E') then
808: p_edi_rec16 := edi_att3 || edi_tax_qualifier30 || rpad(' ',35) || fnd_global.local_chr(10);
809: end if;
810:
811: if l_engine_cc_for_fuel_charge <> ' ' then
812: if l_fuel_type = 'E' then
811: if l_engine_cc_for_fuel_charge <> ' ' then
812: if l_fuel_type = 'E' then
813: l_engine_cc_for_fuel_charge := '0000';
814: end if;
815: p_edi_rec17 := edi_att3 || edi_tax_qualifier13 || rpad(l_engine_cc_for_fuel_charge,35) || fnd_global.local_chr(10);
816: end if;
817:
818: if (to_date(substr(l_date_first_registered,1,10),'YYYY/MM/DD') >=
819: to_date('1998/01/01','YYYY/MM/DD')) then
816: end if;
817:
818: if (to_date(substr(l_date_first_registered,1,10),'YYYY/MM/DD') >=
819: to_date('1998/01/01','YYYY/MM/DD')) then
820: p_edi_rec18 := edi_att3 || edi_tax_qualifier4 || rpad(l_fuel_type,35) || fnd_global.local_chr(10);
821: end if;
822:
823: if l_free_fuel_reinstated <> 'N' then
824: p_edi_rec19 := edi_att3 || edi_tax_qualifier34 || rpad(' ',35) || fnd_global.local_chr(10);
820: p_edi_rec18 := edi_att3 || edi_tax_qualifier4 || rpad(l_fuel_type,35) || fnd_global.local_chr(10);
821: end if;
822:
823: if l_free_fuel_reinstated <> 'N' then
824: p_edi_rec19 := edi_att3 || edi_tax_qualifier34 || rpad(' ',35) || fnd_global.local_chr(10);
825: end if;
826:
827: p_edi_rec20 := edi_dtm2 || edi_dtm375 ||
828: rpad(to_char(to_date(substr(l_date_first_registered,1,10),'YYYY/MM/DD'),'YYYYMMDD'),36) ||
825: end if;
826:
827: p_edi_rec20 := edi_dtm2 || edi_dtm375 ||
828: rpad(to_char(to_date(substr(l_date_first_registered,1,10),'YYYY/MM/DD'),'YYYYMMDD'),36) ||
829: edi_dtm102 || fnd_global.local_chr(10);
830:
831: if to_number(edi_date_from) > to_number(edi_tax_year_start) then
832: p_edi_rec21 := edi_dtm2 || edi_dtm488 || rpad(edi_date_from,36) || edi_dtm102 || fnd_global.local_chr(10);
833: end if;
828: rpad(to_char(to_date(substr(l_date_first_registered,1,10),'YYYY/MM/DD'),'YYYYMMDD'),36) ||
829: edi_dtm102 || fnd_global.local_chr(10);
830:
831: if to_number(edi_date_from) > to_number(edi_tax_year_start) then
832: p_edi_rec21 := edi_dtm2 || edi_dtm488 || rpad(edi_date_from,36) || edi_dtm102 || fnd_global.local_chr(10);
833: end if;
834:
835: if to_number(edi_date_to) < to_number(edi_tax_year_end) then
836: p_edi_rec22 := edi_dtm2 || edi_dtm489 || rpad(edi_date_to,36) || edi_dtm102 || fnd_global.local_chr(10);
832: p_edi_rec21 := edi_dtm2 || edi_dtm488 || rpad(edi_date_from,36) || edi_dtm102 || fnd_global.local_chr(10);
833: end if;
834:
835: if to_number(edi_date_to) < to_number(edi_tax_year_end) then
836: p_edi_rec22 := edi_dtm2 || edi_dtm489 || rpad(edi_date_to,36) || edi_dtm102 || fnd_global.local_chr(10);
837: end if;
838:
839: if l_free_fuel_reinstated <> 'N' and to_number(l_cash_equivalent_for_fuel) > 0
840: and l_date_free_fuel_withdrawn is not null then
840: and l_date_free_fuel_withdrawn is not null then
841: l_withdrawn_date := substr(l_date_free_fuel_withdrawn,1,4) ||
842: substr(l_date_free_fuel_withdrawn,6,2) ||
843: substr(l_date_free_fuel_withdrawn,9,2);
844: p_edi_rec23 := edi_dtm2 || edi_dtmg || rpad(l_withdrawn_date, 36) || edi_dtm102 || fnd_global.local_chr(10);
845: end if;
846: end if;
847: end get_car_or_fuel;
848: /******************* Car and Car Fuel (Multi Occurance) ***********************/
874:
875: if (to_number(p_value1) >= 1 or
876: to_number(p_value2) >= 1) then
877:
878: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
879: p_edi_rec2 := edi_tax1 || edi_tax_qualifier74 || fnd_global.local_chr(10);
880: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(p_value1) || edi_currency || fnd_global.local_chr(10);
881: if to_number(p_value2) >= 0 then
882: p_edi_rec4 := edi_tax1 || edi_tax_qualifier75 || fnd_global.local_chr(10);
875: if (to_number(p_value1) >= 1 or
876: to_number(p_value2) >= 1) then
877:
878: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
879: p_edi_rec2 := edi_tax1 || edi_tax_qualifier74 || fnd_global.local_chr(10);
880: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(p_value1) || edi_currency || fnd_global.local_chr(10);
881: if to_number(p_value2) >= 0 then
882: p_edi_rec4 := edi_tax1 || edi_tax_qualifier75 || fnd_global.local_chr(10);
883: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(p_value2) || edi_currency || fnd_global.local_chr(10);
876: to_number(p_value2) >= 1) then
877:
878: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
879: p_edi_rec2 := edi_tax1 || edi_tax_qualifier74 || fnd_global.local_chr(10);
880: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(p_value1) || edi_currency || fnd_global.local_chr(10);
881: if to_number(p_value2) >= 0 then
882: p_edi_rec4 := edi_tax1 || edi_tax_qualifier75 || fnd_global.local_chr(10);
883: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(p_value2) || edi_currency || fnd_global.local_chr(10);
884: end if;
878: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
879: p_edi_rec2 := edi_tax1 || edi_tax_qualifier74 || fnd_global.local_chr(10);
880: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(p_value1) || edi_currency || fnd_global.local_chr(10);
881: if to_number(p_value2) >= 0 then
882: p_edi_rec4 := edi_tax1 || edi_tax_qualifier75 || fnd_global.local_chr(10);
883: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(p_value2) || edi_currency || fnd_global.local_chr(10);
884: end if;
885: end if;
886: end get_car_summary;
879: p_edi_rec2 := edi_tax1 || edi_tax_qualifier74 || fnd_global.local_chr(10);
880: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(p_value1) || edi_currency || fnd_global.local_chr(10);
881: if to_number(p_value2) >= 0 then
882: p_edi_rec4 := edi_tax1 || edi_tax_qualifier75 || fnd_global.local_chr(10);
883: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(p_value2) || edi_currency || fnd_global.local_chr(10);
884: end if;
885: end if;
886: end get_car_summary;
887: /******************* Car and Car Fuel (Summary) ***********************/
939: close get_data;
940:
941: if l_cash_equivalent >= 1 then
942: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
943: rpad(' ', 70) || fnd_global.local_chr(10);
944: p_edi_rec2 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
945: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
946: edi_currency || fnd_global.local_chr(10);
947: end if;
940:
941: if l_cash_equivalent >= 1 then
942: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
943: rpad(' ', 70) || fnd_global.local_chr(10);
944: p_edi_rec2 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
945: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
946: edi_currency || fnd_global.local_chr(10);
947: end if;
948: end get_vans;
942: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
943: rpad(' ', 70) || fnd_global.local_chr(10);
944: p_edi_rec2 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
945: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
946: edi_currency || fnd_global.local_chr(10);
947: end if;
948: end get_vans;
949: /******************* Vans (Single Occurance) ***********************/
950:
1117: l_date_to := ' ';
1118: end if;
1119: end if;
1120:
1121: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) || rpad(' ',70) || fnd_global.local_chr(10);
1122: p_edi_rec2 := edi_tax1 || edi_tax_qualifier2 || fnd_global.local_chr(10) || edi_moa1 ||
1123: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_start) || edi_currency || fnd_global.local_chr(10);
1124: p_edi_rec3 := edi_tax1 || edi_tax_qualifier3 || fnd_global.local_chr(10) || edi_moa1 ||
1125: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_end) || edi_currency || fnd_global.local_chr(10);
1118: end if;
1119: end if;
1120:
1121: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) || rpad(' ',70) || fnd_global.local_chr(10);
1122: p_edi_rec2 := edi_tax1 || edi_tax_qualifier2 || fnd_global.local_chr(10) || edi_moa1 ||
1123: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_start) || edi_currency || fnd_global.local_chr(10);
1124: p_edi_rec3 := edi_tax1 || edi_tax_qualifier3 || fnd_global.local_chr(10) || edi_moa1 ||
1125: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_end) || edi_currency || fnd_global.local_chr(10);
1126: p_edi_rec4 := edi_tax1 || edi_tax_qualifier45 || fnd_global.local_chr(10) || edi_moa1 ||
1119: end if;
1120:
1121: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) || rpad(' ',70) || fnd_global.local_chr(10);
1122: p_edi_rec2 := edi_tax1 || edi_tax_qualifier2 || fnd_global.local_chr(10) || edi_moa1 ||
1123: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_start) || edi_currency || fnd_global.local_chr(10);
1124: p_edi_rec3 := edi_tax1 || edi_tax_qualifier3 || fnd_global.local_chr(10) || edi_moa1 ||
1125: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_end) || edi_currency || fnd_global.local_chr(10);
1126: p_edi_rec4 := edi_tax1 || edi_tax_qualifier45 || fnd_global.local_chr(10) || edi_moa1 ||
1127: pay_gb_p11d_magtape.format_edi_currency(l_max_outstanding) || edi_currency || fnd_global.local_chr(10);
1120:
1121: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) || rpad(' ',70) || fnd_global.local_chr(10);
1122: p_edi_rec2 := edi_tax1 || edi_tax_qualifier2 || fnd_global.local_chr(10) || edi_moa1 ||
1123: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_start) || edi_currency || fnd_global.local_chr(10);
1124: p_edi_rec3 := edi_tax1 || edi_tax_qualifier3 || fnd_global.local_chr(10) || edi_moa1 ||
1125: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_end) || edi_currency || fnd_global.local_chr(10);
1126: p_edi_rec4 := edi_tax1 || edi_tax_qualifier45 || fnd_global.local_chr(10) || edi_moa1 ||
1127: pay_gb_p11d_magtape.format_edi_currency(l_max_outstanding) || edi_currency || fnd_global.local_chr(10);
1128: p_edi_rec5 := edi_tax1 || edi_tax_qualifier72 || fnd_global.local_chr(10) || edi_moa1 ||
1121: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) || rpad(' ',70) || fnd_global.local_chr(10);
1122: p_edi_rec2 := edi_tax1 || edi_tax_qualifier2 || fnd_global.local_chr(10) || edi_moa1 ||
1123: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_start) || edi_currency || fnd_global.local_chr(10);
1124: p_edi_rec3 := edi_tax1 || edi_tax_qualifier3 || fnd_global.local_chr(10) || edi_moa1 ||
1125: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_end) || edi_currency || fnd_global.local_chr(10);
1126: p_edi_rec4 := edi_tax1 || edi_tax_qualifier45 || fnd_global.local_chr(10) || edi_moa1 ||
1127: pay_gb_p11d_magtape.format_edi_currency(l_max_outstanding) || edi_currency || fnd_global.local_chr(10);
1128: p_edi_rec5 := edi_tax1 || edi_tax_qualifier72 || fnd_global.local_chr(10) || edi_moa1 ||
1129: pay_gb_p11d_magtape.format_edi_currency(l_total_int_paid) || edi_currency || fnd_global.local_chr(10);
1122: p_edi_rec2 := edi_tax1 || edi_tax_qualifier2 || fnd_global.local_chr(10) || edi_moa1 ||
1123: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_start) || edi_currency || fnd_global.local_chr(10);
1124: p_edi_rec3 := edi_tax1 || edi_tax_qualifier3 || fnd_global.local_chr(10) || edi_moa1 ||
1125: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_end) || edi_currency || fnd_global.local_chr(10);
1126: p_edi_rec4 := edi_tax1 || edi_tax_qualifier45 || fnd_global.local_chr(10) || edi_moa1 ||
1127: pay_gb_p11d_magtape.format_edi_currency(l_max_outstanding) || edi_currency || fnd_global.local_chr(10);
1128: p_edi_rec5 := edi_tax1 || edi_tax_qualifier72 || fnd_global.local_chr(10) || edi_moa1 ||
1129: pay_gb_p11d_magtape.format_edi_currency(l_total_int_paid) || edi_currency || fnd_global.local_chr(10);
1130: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) || edi_moa1 ||
1123: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_start) || edi_currency || fnd_global.local_chr(10);
1124: p_edi_rec3 := edi_tax1 || edi_tax_qualifier3 || fnd_global.local_chr(10) || edi_moa1 ||
1125: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_end) || edi_currency || fnd_global.local_chr(10);
1126: p_edi_rec4 := edi_tax1 || edi_tax_qualifier45 || fnd_global.local_chr(10) || edi_moa1 ||
1127: pay_gb_p11d_magtape.format_edi_currency(l_max_outstanding) || edi_currency || fnd_global.local_chr(10);
1128: p_edi_rec5 := edi_tax1 || edi_tax_qualifier72 || fnd_global.local_chr(10) || edi_moa1 ||
1129: pay_gb_p11d_magtape.format_edi_currency(l_total_int_paid) || edi_currency || fnd_global.local_chr(10);
1130: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) || edi_moa1 ||
1131: pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1124: p_edi_rec3 := edi_tax1 || edi_tax_qualifier3 || fnd_global.local_chr(10) || edi_moa1 ||
1125: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_end) || edi_currency || fnd_global.local_chr(10);
1126: p_edi_rec4 := edi_tax1 || edi_tax_qualifier45 || fnd_global.local_chr(10) || edi_moa1 ||
1127: pay_gb_p11d_magtape.format_edi_currency(l_max_outstanding) || edi_currency || fnd_global.local_chr(10);
1128: p_edi_rec5 := edi_tax1 || edi_tax_qualifier72 || fnd_global.local_chr(10) || edi_moa1 ||
1129: pay_gb_p11d_magtape.format_edi_currency(l_total_int_paid) || edi_currency || fnd_global.local_chr(10);
1130: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) || edi_moa1 ||
1131: pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1132:
1125: pay_gb_p11d_magtape.format_edi_currency(l_amount_ostd_at_end) || edi_currency || fnd_global.local_chr(10);
1126: p_edi_rec4 := edi_tax1 || edi_tax_qualifier45 || fnd_global.local_chr(10) || edi_moa1 ||
1127: pay_gb_p11d_magtape.format_edi_currency(l_max_outstanding) || edi_currency || fnd_global.local_chr(10);
1128: p_edi_rec5 := edi_tax1 || edi_tax_qualifier72 || fnd_global.local_chr(10) || edi_moa1 ||
1129: pay_gb_p11d_magtape.format_edi_currency(l_total_int_paid) || edi_currency || fnd_global.local_chr(10);
1130: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) || edi_moa1 ||
1131: pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1132:
1133: if l_no_of_borrowers > 1 then
1126: p_edi_rec4 := edi_tax1 || edi_tax_qualifier45 || fnd_global.local_chr(10) || edi_moa1 ||
1127: pay_gb_p11d_magtape.format_edi_currency(l_max_outstanding) || edi_currency || fnd_global.local_chr(10);
1128: p_edi_rec5 := edi_tax1 || edi_tax_qualifier72 || fnd_global.local_chr(10) || edi_moa1 ||
1129: pay_gb_p11d_magtape.format_edi_currency(l_total_int_paid) || edi_currency || fnd_global.local_chr(10);
1130: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) || edi_moa1 ||
1131: pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1132:
1133: if l_no_of_borrowers > 1 then
1134: p_edi_rec7 := edi_qty || edi_qtyg || lpad(l_no_of_borrowers,15,0) || fnd_global.local_chr(10);
1127: pay_gb_p11d_magtape.format_edi_currency(l_max_outstanding) || edi_currency || fnd_global.local_chr(10);
1128: p_edi_rec5 := edi_tax1 || edi_tax_qualifier72 || fnd_global.local_chr(10) || edi_moa1 ||
1129: pay_gb_p11d_magtape.format_edi_currency(l_total_int_paid) || edi_currency || fnd_global.local_chr(10);
1130: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) || edi_moa1 ||
1131: pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1132:
1133: if l_no_of_borrowers > 1 then
1134: p_edi_rec7 := edi_qty || edi_qtyg || lpad(l_no_of_borrowers,15,0) || fnd_global.local_chr(10);
1135: end if;
1130: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) || edi_moa1 ||
1131: pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1132:
1133: if l_no_of_borrowers > 1 then
1134: p_edi_rec7 := edi_qty || edi_qtyg || lpad(l_no_of_borrowers,15,0) || fnd_global.local_chr(10);
1135: end if;
1136:
1137: if l_date_from <> ' ' then
1138: p_edi_rec8 := edi_dtm2 || edi_dtm167 ||
1136:
1137: if l_date_from <> ' ' then
1138: p_edi_rec8 := edi_dtm2 || edi_dtm167 ||
1139: rpad(to_char(to_date(substr(l_date_loan_made,1,10),'YYYY/MM/DD'),'YYYYMMDD'),36) ||
1140: edi_dtm102 || fnd_global.local_chr(10);
1141: end if;
1142:
1143: if l_date_to <> ' ' then
1144: p_edi_rec9 := edi_dtm2 || edi_dtm168 ||
1142:
1143: if l_date_to <> ' ' then
1144: p_edi_rec9 := edi_dtm2 || edi_dtm168 ||
1145: rpad(to_char(to_date(substr(l_date_loan_discharged,1,10),'YYYY/MM/DD'),'YYYYMMDD'),36) ||
1146: edi_dtm102 || fnd_global.local_chr(10);
1147: end if;
1148: end if;
1149: end if;
1150: end get_low_int_loan;
1221: end if;
1222:
1223: if l_cash_equivalent >= 1 then
1224: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
1225: rpad(' ', 70) || fnd_global.local_chr(10);
1226: p_edi_rec2 := edi_tax1 || edi_tax_qualifier13 || fnd_global.local_chr(10);
1227: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cost_to_you) ||
1228: edi_currency || fnd_global.local_chr(10);
1229: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
1222:
1223: if l_cash_equivalent >= 1 then
1224: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
1225: rpad(' ', 70) || fnd_global.local_chr(10);
1226: p_edi_rec2 := edi_tax1 || edi_tax_qualifier13 || fnd_global.local_chr(10);
1227: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cost_to_you) ||
1228: edi_currency || fnd_global.local_chr(10);
1229: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
1230: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
1224: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
1225: rpad(' ', 70) || fnd_global.local_chr(10);
1226: p_edi_rec2 := edi_tax1 || edi_tax_qualifier13 || fnd_global.local_chr(10);
1227: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cost_to_you) ||
1228: edi_currency || fnd_global.local_chr(10);
1229: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
1230: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
1231: edi_currency || fnd_global.local_chr(10);
1232: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
1225: rpad(' ', 70) || fnd_global.local_chr(10);
1226: p_edi_rec2 := edi_tax1 || edi_tax_qualifier13 || fnd_global.local_chr(10);
1227: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cost_to_you) ||
1228: edi_currency || fnd_global.local_chr(10);
1229: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
1230: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
1231: edi_currency || fnd_global.local_chr(10);
1232: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
1233: p_edi_rec7 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
1227: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cost_to_you) ||
1228: edi_currency || fnd_global.local_chr(10);
1229: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
1230: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
1231: edi_currency || fnd_global.local_chr(10);
1232: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
1233: p_edi_rec7 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
1234: edi_currency || fnd_global.local_chr(10);
1235: end if;
1228: edi_currency || fnd_global.local_chr(10);
1229: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
1230: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
1231: edi_currency || fnd_global.local_chr(10);
1232: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
1233: p_edi_rec7 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
1234: edi_currency || fnd_global.local_chr(10);
1235: end if;
1236: end get_pvt_med_or_ins;
1230: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
1231: edi_currency || fnd_global.local_chr(10);
1232: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
1233: p_edi_rec7 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
1234: edi_currency || fnd_global.local_chr(10);
1235: end if;
1236: end get_pvt_med_or_ins;
1237: /******************* Private Medical Treatment or Insurance (Single Occurance) ***********************/
1238:
1289: close get_data;
1290:
1291: if l_cash_equivalent >= 1 then
1292: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
1293: rpad(' ', 70) || fnd_global.local_chr(10);
1294: p_edi_rec2 := edi_tax1 || edi_tax_qualifier64 || fnd_global.local_chr(10);
1295: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
1296: edi_currency || fnd_global.local_chr(10);
1297: end if;
1290:
1291: if l_cash_equivalent >= 1 then
1292: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
1293: rpad(' ', 70) || fnd_global.local_chr(10);
1294: p_edi_rec2 := edi_tax1 || edi_tax_qualifier64 || fnd_global.local_chr(10);
1295: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
1296: edi_currency || fnd_global.local_chr(10);
1297: end if;
1298: end get_relocation;
1292: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
1293: rpad(' ', 70) || fnd_global.local_chr(10);
1294: p_edi_rec2 := edi_tax1 || edi_tax_qualifier64 || fnd_global.local_chr(10);
1295: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
1296: edi_currency || fnd_global.local_chr(10);
1297: end if;
1298: end get_relocation;
1299: /******************* Qualifying Relocation Expenses Payments and Benefits (Single Occurance) ***********************/
1300:
1369: end if;
1370:
1371: if l_cash_equivalent >= 1 then
1372: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
1373: rpad(' ', 70) || fnd_global.local_chr(10);
1374: p_edi_rec2 := edi_tax1 || edi_tax_qualifier13 || fnd_global.local_chr(10);
1375: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cost_to_you) ||
1376: edi_currency || fnd_global.local_chr(10);
1377: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
1370:
1371: if l_cash_equivalent >= 1 then
1372: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
1373: rpad(' ', 70) || fnd_global.local_chr(10);
1374: p_edi_rec2 := edi_tax1 || edi_tax_qualifier13 || fnd_global.local_chr(10);
1375: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cost_to_you) ||
1376: edi_currency || fnd_global.local_chr(10);
1377: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
1378: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
1372: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
1373: rpad(' ', 70) || fnd_global.local_chr(10);
1374: p_edi_rec2 := edi_tax1 || edi_tax_qualifier13 || fnd_global.local_chr(10);
1375: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cost_to_you) ||
1376: edi_currency || fnd_global.local_chr(10);
1377: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
1378: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
1379: edi_currency || fnd_global.local_chr(10);
1380: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
1373: rpad(' ', 70) || fnd_global.local_chr(10);
1374: p_edi_rec2 := edi_tax1 || edi_tax_qualifier13 || fnd_global.local_chr(10);
1375: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cost_to_you) ||
1376: edi_currency || fnd_global.local_chr(10);
1377: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
1378: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
1379: edi_currency || fnd_global.local_chr(10);
1380: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
1381: p_edi_rec7 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
1375: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cost_to_you) ||
1376: edi_currency || fnd_global.local_chr(10);
1377: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
1378: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
1379: edi_currency || fnd_global.local_chr(10);
1380: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
1381: p_edi_rec7 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
1382: edi_currency || fnd_global.local_chr(10);
1383: end if;
1376: edi_currency || fnd_global.local_chr(10);
1377: p_edi_rec4 := edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10);
1378: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
1379: edi_currency || fnd_global.local_chr(10);
1380: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
1381: p_edi_rec7 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
1382: edi_currency || fnd_global.local_chr(10);
1383: end if;
1384: end get_service_supplied;
1378: p_edi_rec5 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_amount_m_good) ||
1379: edi_currency || fnd_global.local_chr(10);
1380: p_edi_rec6 := edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10);
1381: p_edi_rec7 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_cash_equivalent) ||
1382: edi_currency || fnd_global.local_chr(10);
1383: end if;
1384: end get_service_supplied;
1385: /******************* Services Supplied (Single Occurance) ***********************/
1386:
1491: l_edi := 0;
1492: --- This can repeat up to 7 times
1493: for l_index in 1..l_count loop
1494: l_edi := l_edi + 1;
1495: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(assets(l_index).description, 71) || rpad(' ', 71) || rpad(' ',70) || fnd_global.local_chr(10);
1496: l_edi := l_edi + 1;
1497: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier7 || fnd_global.local_chr(10) ||
1498: edi_moa1 || assets(l_index).annual_value || edi_currency || fnd_global.local_chr(10) ||
1499: edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10) ||
1493: for l_index in 1..l_count loop
1494: l_edi := l_edi + 1;
1495: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(assets(l_index).description, 71) || rpad(' ', 71) || rpad(' ',70) || fnd_global.local_chr(10);
1496: l_edi := l_edi + 1;
1497: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier7 || fnd_global.local_chr(10) ||
1498: edi_moa1 || assets(l_index).annual_value || edi_currency || fnd_global.local_chr(10) ||
1499: edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10) ||
1500: edi_moa1 || assets(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1501: edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) ||
1494: l_edi := l_edi + 1;
1495: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(assets(l_index).description, 71) || rpad(' ', 71) || rpad(' ',70) || fnd_global.local_chr(10);
1496: l_edi := l_edi + 1;
1497: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier7 || fnd_global.local_chr(10) ||
1498: edi_moa1 || assets(l_index).annual_value || edi_currency || fnd_global.local_chr(10) ||
1499: edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10) ||
1500: edi_moa1 || assets(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1501: edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) ||
1502: edi_moa1 || assets(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
1495: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(assets(l_index).description, 71) || rpad(' ', 71) || rpad(' ',70) || fnd_global.local_chr(10);
1496: l_edi := l_edi + 1;
1497: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier7 || fnd_global.local_chr(10) ||
1498: edi_moa1 || assets(l_index).annual_value || edi_currency || fnd_global.local_chr(10) ||
1499: edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10) ||
1500: edi_moa1 || assets(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1501: edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) ||
1502: edi_moa1 || assets(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
1503: end loop;
1496: l_edi := l_edi + 1;
1497: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier7 || fnd_global.local_chr(10) ||
1498: edi_moa1 || assets(l_index).annual_value || edi_currency || fnd_global.local_chr(10) ||
1499: edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10) ||
1500: edi_moa1 || assets(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1501: edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) ||
1502: edi_moa1 || assets(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
1503: end loop;
1504:
1497: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier7 || fnd_global.local_chr(10) ||
1498: edi_moa1 || assets(l_index).annual_value || edi_currency || fnd_global.local_chr(10) ||
1499: edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10) ||
1500: edi_moa1 || assets(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1501: edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) ||
1502: edi_moa1 || assets(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
1503: end loop;
1504:
1505: if (l_total >= 1) then
1498: edi_moa1 || assets(l_index).annual_value || edi_currency || fnd_global.local_chr(10) ||
1499: edi_tax1 || edi_tax_qualifier1 || fnd_global.local_chr(10) ||
1500: edi_moa1 || assets(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1501: edi_tax1 || edi_tax_qualifier12 || fnd_global.local_chr(10) ||
1502: edi_moa1 || assets(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
1503: end loop;
1504:
1505: if (l_total >= 1) then
1506: edi_cat := rpad('S',18);
1504:
1505: if (l_total >= 1) then
1506: edi_cat := rpad('S',18);
1507: l_edi := l_edi + 1;
1508: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
1509: l_edi := l_edi + 1;
1510: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier116 || fnd_global.local_chr(10) || edi_moa1 ||
1511: pay_gb_p11d_magtape.format_edi_currency(l_total) || edi_currency || fnd_global.local_chr(10);
1512: end if;
1506: edi_cat := rpad('S',18);
1507: l_edi := l_edi + 1;
1508: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
1509: l_edi := l_edi + 1;
1510: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier116 || fnd_global.local_chr(10) || edi_moa1 ||
1511: pay_gb_p11d_magtape.format_edi_currency(l_total) || edi_currency || fnd_global.local_chr(10);
1512: end if;
1513:
1514: -- Maximum output is 16 + 1 edi records
1507: l_edi := l_edi + 1;
1508: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
1509: l_edi := l_edi + 1;
1510: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier116 || fnd_global.local_chr(10) || edi_moa1 ||
1511: pay_gb_p11d_magtape.format_edi_currency(l_total) || edi_currency || fnd_global.local_chr(10);
1512: end if;
1513:
1514: -- Maximum output is 16 + 1 edi records
1515: l_edi := l_edi + 1;
1691: non1a_desc := non_class_1A(l_index).description;
1692: end if;
1693: l_edi := l_edi + 1;
1694: edi_record(l_edi) := edi_ftx1a || edi_cat || edi_desc || rpad(o1a_desc,71) ||
1695: rpad(non1a_desc,70) || fnd_global.local_chr(10);
1696: if o1a_desc <> ' ' then
1697: l_edi := l_edi + 1;
1698: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier58 || fnd_global.local_chr(10) || edi_moa1 ||
1699: class_1A(l_index).cost_to_you || edi_currency || fnd_global.local_chr(10) ||
1694: edi_record(l_edi) := edi_ftx1a || edi_cat || edi_desc || rpad(o1a_desc,71) ||
1695: rpad(non1a_desc,70) || fnd_global.local_chr(10);
1696: if o1a_desc <> ' ' then
1697: l_edi := l_edi + 1;
1698: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier58 || fnd_global.local_chr(10) || edi_moa1 ||
1699: class_1A(l_index).cost_to_you || edi_currency || fnd_global.local_chr(10) ||
1700: edi_tax1 || edi_tax_qualifier56 || fnd_global.local_chr(10) || edi_moa1 ||
1701: class_1A(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1702: edi_tax1 || edi_tax_qualifier57 || fnd_global.local_chr(10) || edi_moa1 ||
1695: rpad(non1a_desc,70) || fnd_global.local_chr(10);
1696: if o1a_desc <> ' ' then
1697: l_edi := l_edi + 1;
1698: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier58 || fnd_global.local_chr(10) || edi_moa1 ||
1699: class_1A(l_index).cost_to_you || edi_currency || fnd_global.local_chr(10) ||
1700: edi_tax1 || edi_tax_qualifier56 || fnd_global.local_chr(10) || edi_moa1 ||
1701: class_1A(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1702: edi_tax1 || edi_tax_qualifier57 || fnd_global.local_chr(10) || edi_moa1 ||
1703: class_1A(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
1696: if o1a_desc <> ' ' then
1697: l_edi := l_edi + 1;
1698: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier58 || fnd_global.local_chr(10) || edi_moa1 ||
1699: class_1A(l_index).cost_to_you || edi_currency || fnd_global.local_chr(10) ||
1700: edi_tax1 || edi_tax_qualifier56 || fnd_global.local_chr(10) || edi_moa1 ||
1701: class_1A(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1702: edi_tax1 || edi_tax_qualifier57 || fnd_global.local_chr(10) || edi_moa1 ||
1703: class_1A(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
1704: end if;
1697: l_edi := l_edi + 1;
1698: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier58 || fnd_global.local_chr(10) || edi_moa1 ||
1699: class_1A(l_index).cost_to_you || edi_currency || fnd_global.local_chr(10) ||
1700: edi_tax1 || edi_tax_qualifier56 || fnd_global.local_chr(10) || edi_moa1 ||
1701: class_1A(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1702: edi_tax1 || edi_tax_qualifier57 || fnd_global.local_chr(10) || edi_moa1 ||
1703: class_1A(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
1704: end if;
1705:
1698: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier58 || fnd_global.local_chr(10) || edi_moa1 ||
1699: class_1A(l_index).cost_to_you || edi_currency || fnd_global.local_chr(10) ||
1700: edi_tax1 || edi_tax_qualifier56 || fnd_global.local_chr(10) || edi_moa1 ||
1701: class_1A(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1702: edi_tax1 || edi_tax_qualifier57 || fnd_global.local_chr(10) || edi_moa1 ||
1703: class_1A(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
1704: end if;
1705:
1706: if non1a_desc <> ' ' then
1699: class_1A(l_index).cost_to_you || edi_currency || fnd_global.local_chr(10) ||
1700: edi_tax1 || edi_tax_qualifier56 || fnd_global.local_chr(10) || edi_moa1 ||
1701: class_1A(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1702: edi_tax1 || edi_tax_qualifier57 || fnd_global.local_chr(10) || edi_moa1 ||
1703: class_1A(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
1704: end if;
1705:
1706: if non1a_desc <> ' ' then
1707: l_edi := l_edi + 1;
1704: end if;
1705:
1706: if non1a_desc <> ' ' then
1707: l_edi := l_edi + 1;
1708: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier111 || fnd_global.local_chr(10) || edi_moa1 ||
1709: non_class_1A(l_index).cost_to_you || edi_currency || fnd_global.local_chr(10) ||
1710: edi_tax1 || edi_tax_qualifier109 || fnd_global.local_chr(10) || edi_moa1 ||
1711: non_class_1A(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1712: edi_tax1 || edi_tax_qualifier110 || fnd_global.local_chr(10) || edi_moa1 ||
1705:
1706: if non1a_desc <> ' ' then
1707: l_edi := l_edi + 1;
1708: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier111 || fnd_global.local_chr(10) || edi_moa1 ||
1709: non_class_1A(l_index).cost_to_you || edi_currency || fnd_global.local_chr(10) ||
1710: edi_tax1 || edi_tax_qualifier109 || fnd_global.local_chr(10) || edi_moa1 ||
1711: non_class_1A(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1712: edi_tax1 || edi_tax_qualifier110 || fnd_global.local_chr(10) || edi_moa1 ||
1713: non_class_1A(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
1706: if non1a_desc <> ' ' then
1707: l_edi := l_edi + 1;
1708: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier111 || fnd_global.local_chr(10) || edi_moa1 ||
1709: non_class_1A(l_index).cost_to_you || edi_currency || fnd_global.local_chr(10) ||
1710: edi_tax1 || edi_tax_qualifier109 || fnd_global.local_chr(10) || edi_moa1 ||
1711: non_class_1A(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1712: edi_tax1 || edi_tax_qualifier110 || fnd_global.local_chr(10) || edi_moa1 ||
1713: non_class_1A(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
1714: end if;
1707: l_edi := l_edi + 1;
1708: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier111 || fnd_global.local_chr(10) || edi_moa1 ||
1709: non_class_1A(l_index).cost_to_you || edi_currency || fnd_global.local_chr(10) ||
1710: edi_tax1 || edi_tax_qualifier109 || fnd_global.local_chr(10) || edi_moa1 ||
1711: non_class_1A(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1712: edi_tax1 || edi_tax_qualifier110 || fnd_global.local_chr(10) || edi_moa1 ||
1713: non_class_1A(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
1714: end if;
1715: end loop;
1708: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier111 || fnd_global.local_chr(10) || edi_moa1 ||
1709: non_class_1A(l_index).cost_to_you || edi_currency || fnd_global.local_chr(10) ||
1710: edi_tax1 || edi_tax_qualifier109 || fnd_global.local_chr(10) || edi_moa1 ||
1711: non_class_1A(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1712: edi_tax1 || edi_tax_qualifier110 || fnd_global.local_chr(10) || edi_moa1 ||
1713: non_class_1A(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
1714: end if;
1715: end loop;
1716:
1709: non_class_1A(l_index).cost_to_you || edi_currency || fnd_global.local_chr(10) ||
1710: edi_tax1 || edi_tax_qualifier109 || fnd_global.local_chr(10) || edi_moa1 ||
1711: non_class_1A(l_index).amount_made_good || edi_currency || fnd_global.local_chr(10) ||
1712: edi_tax1 || edi_tax_qualifier110 || fnd_global.local_chr(10) || edi_moa1 ||
1713: non_class_1A(l_index).cash_equivalent || edi_currency || fnd_global.local_chr(10);
1714: end if;
1715: end loop;
1716:
1717: if (o1A_total >= 1 or
1718: dir_total >= 1 or
1719: non_1A_total >= 1 ) then
1720: edi_cat := rpad('T',18);
1721: l_edi := l_edi + 1;
1722: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
1723: l_edi := l_edi + 1;
1724: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier118 || fnd_global.local_chr(10) || edi_moa1 ||
1725: pay_gb_p11d_magtape.format_edi_currency(o1A_total) || edi_currency || fnd_global.local_chr(10);
1726: l_edi := l_edi + 1;
1720: edi_cat := rpad('T',18);
1721: l_edi := l_edi + 1;
1722: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
1723: l_edi := l_edi + 1;
1724: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier118 || fnd_global.local_chr(10) || edi_moa1 ||
1725: pay_gb_p11d_magtape.format_edi_currency(o1A_total) || edi_currency || fnd_global.local_chr(10);
1726: l_edi := l_edi + 1;
1727: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier119 || fnd_global.local_chr(10) || edi_moa1 ||
1728: pay_gb_p11d_magtape.format_edi_currency(non_1A_total) || edi_currency || fnd_global.local_chr(10);
1721: l_edi := l_edi + 1;
1722: edi_record(l_edi) := edi_ftx1a || edi_cat || rpad(' ',71) || rpad(' ',71) || rpad(' ',70) || fnd_global.local_chr(10);
1723: l_edi := l_edi + 1;
1724: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier118 || fnd_global.local_chr(10) || edi_moa1 ||
1725: pay_gb_p11d_magtape.format_edi_currency(o1A_total) || edi_currency || fnd_global.local_chr(10);
1726: l_edi := l_edi + 1;
1727: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier119 || fnd_global.local_chr(10) || edi_moa1 ||
1728: pay_gb_p11d_magtape.format_edi_currency(non_1A_total) || edi_currency || fnd_global.local_chr(10);
1729: l_edi := l_edi + 1;
1723: l_edi := l_edi + 1;
1724: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier118 || fnd_global.local_chr(10) || edi_moa1 ||
1725: pay_gb_p11d_magtape.format_edi_currency(o1A_total) || edi_currency || fnd_global.local_chr(10);
1726: l_edi := l_edi + 1;
1727: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier119 || fnd_global.local_chr(10) || edi_moa1 ||
1728: pay_gb_p11d_magtape.format_edi_currency(non_1A_total) || edi_currency || fnd_global.local_chr(10);
1729: l_edi := l_edi + 1;
1730: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier120 || fnd_global.local_chr(10) || edi_moa1 ||
1731: pay_gb_p11d_magtape.format_edi_currency(dir_total) || edi_currency || fnd_global.local_chr(10);
1724: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier118 || fnd_global.local_chr(10) || edi_moa1 ||
1725: pay_gb_p11d_magtape.format_edi_currency(o1A_total) || edi_currency || fnd_global.local_chr(10);
1726: l_edi := l_edi + 1;
1727: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier119 || fnd_global.local_chr(10) || edi_moa1 ||
1728: pay_gb_p11d_magtape.format_edi_currency(non_1A_total) || edi_currency || fnd_global.local_chr(10);
1729: l_edi := l_edi + 1;
1730: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier120 || fnd_global.local_chr(10) || edi_moa1 ||
1731: pay_gb_p11d_magtape.format_edi_currency(dir_total) || edi_currency || fnd_global.local_chr(10);
1732: end if;
1726: l_edi := l_edi + 1;
1727: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier119 || fnd_global.local_chr(10) || edi_moa1 ||
1728: pay_gb_p11d_magtape.format_edi_currency(non_1A_total) || edi_currency || fnd_global.local_chr(10);
1729: l_edi := l_edi + 1;
1730: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier120 || fnd_global.local_chr(10) || edi_moa1 ||
1731: pay_gb_p11d_magtape.format_edi_currency(dir_total) || edi_currency || fnd_global.local_chr(10);
1732: end if;
1733:
1734: -- Total output edi record is 22 + 1 records
1727: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier119 || fnd_global.local_chr(10) || edi_moa1 ||
1728: pay_gb_p11d_magtape.format_edi_currency(non_1A_total) || edi_currency || fnd_global.local_chr(10);
1729: l_edi := l_edi + 1;
1730: edi_record(l_edi) := edi_tax1 || edi_tax_qualifier120 || fnd_global.local_chr(10) || edi_moa1 ||
1731: pay_gb_p11d_magtape.format_edi_currency(dir_total) || edi_currency || fnd_global.local_chr(10);
1732: end if;
1733:
1734: -- Total output edi record is 22 + 1 records
1735: l_edi := l_edi + 1;
1969: l_other_cash_equivalent := 0;
1970: end if;
1971:
1972: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(rpad(l_other_description,30),71) || rpad(' ',71) ||
1973: rpad(' ',70) || fnd_global.local_chr(10);
1974: p_edi_rec2 := edi_tax1 || edi_tax_qualifier86 || fnd_global.local_chr(10) ||
1975: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1976: p_edi_rec3 := edi_tax1 || edi_tax_qualifier85 || fnd_global.local_chr(10) ||
1977: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1970: end if;
1971:
1972: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(rpad(l_other_description,30),71) || rpad(' ',71) ||
1973: rpad(' ',70) || fnd_global.local_chr(10);
1974: p_edi_rec2 := edi_tax1 || edi_tax_qualifier86 || fnd_global.local_chr(10) ||
1975: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1976: p_edi_rec3 := edi_tax1 || edi_tax_qualifier85 || fnd_global.local_chr(10) ||
1977: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1978: p_edi_rec4 := edi_tax1 || edi_tax_qualifier87 || fnd_global.local_chr(10) ||
1971:
1972: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(rpad(l_other_description,30),71) || rpad(' ',71) ||
1973: rpad(' ',70) || fnd_global.local_chr(10);
1974: p_edi_rec2 := edi_tax1 || edi_tax_qualifier86 || fnd_global.local_chr(10) ||
1975: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1976: p_edi_rec3 := edi_tax1 || edi_tax_qualifier85 || fnd_global.local_chr(10) ||
1977: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1978: p_edi_rec4 := edi_tax1 || edi_tax_qualifier87 || fnd_global.local_chr(10) ||
1979: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1972: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(rpad(l_other_description,30),71) || rpad(' ',71) ||
1973: rpad(' ',70) || fnd_global.local_chr(10);
1974: p_edi_rec2 := edi_tax1 || edi_tax_qualifier86 || fnd_global.local_chr(10) ||
1975: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1976: p_edi_rec3 := edi_tax1 || edi_tax_qualifier85 || fnd_global.local_chr(10) ||
1977: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1978: p_edi_rec4 := edi_tax1 || edi_tax_qualifier87 || fnd_global.local_chr(10) ||
1979: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1980: p_edi_rec5 := edi_tax1 || edi_tax_qualifier26 || fnd_global.local_chr(10) ||
1973: rpad(' ',70) || fnd_global.local_chr(10);
1974: p_edi_rec2 := edi_tax1 || edi_tax_qualifier86 || fnd_global.local_chr(10) ||
1975: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1976: p_edi_rec3 := edi_tax1 || edi_tax_qualifier85 || fnd_global.local_chr(10) ||
1977: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1978: p_edi_rec4 := edi_tax1 || edi_tax_qualifier87 || fnd_global.local_chr(10) ||
1979: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1980: p_edi_rec5 := edi_tax1 || edi_tax_qualifier26 || fnd_global.local_chr(10) ||
1981: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1974: p_edi_rec2 := edi_tax1 || edi_tax_qualifier86 || fnd_global.local_chr(10) ||
1975: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1976: p_edi_rec3 := edi_tax1 || edi_tax_qualifier85 || fnd_global.local_chr(10) ||
1977: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1978: p_edi_rec4 := edi_tax1 || edi_tax_qualifier87 || fnd_global.local_chr(10) ||
1979: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1980: p_edi_rec5 := edi_tax1 || edi_tax_qualifier26 || fnd_global.local_chr(10) ||
1981: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1982: p_edi_rec6 := edi_tax1 || edi_tax_qualifier25 || fnd_global.local_chr(10) ||
1975: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1976: p_edi_rec3 := edi_tax1 || edi_tax_qualifier85 || fnd_global.local_chr(10) ||
1977: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1978: p_edi_rec4 := edi_tax1 || edi_tax_qualifier87 || fnd_global.local_chr(10) ||
1979: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1980: p_edi_rec5 := edi_tax1 || edi_tax_qualifier26 || fnd_global.local_chr(10) ||
1981: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1982: p_edi_rec6 := edi_tax1 || edi_tax_qualifier25 || fnd_global.local_chr(10) ||
1983: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1976: p_edi_rec3 := edi_tax1 || edi_tax_qualifier85 || fnd_global.local_chr(10) ||
1977: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1978: p_edi_rec4 := edi_tax1 || edi_tax_qualifier87 || fnd_global.local_chr(10) ||
1979: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1980: p_edi_rec5 := edi_tax1 || edi_tax_qualifier26 || fnd_global.local_chr(10) ||
1981: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1982: p_edi_rec6 := edi_tax1 || edi_tax_qualifier25 || fnd_global.local_chr(10) ||
1983: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1984: p_edi_rec7 := edi_tax1 || edi_tax_qualifier27 || fnd_global.local_chr(10) ||
1977: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1978: p_edi_rec4 := edi_tax1 || edi_tax_qualifier87 || fnd_global.local_chr(10) ||
1979: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1980: p_edi_rec5 := edi_tax1 || edi_tax_qualifier26 || fnd_global.local_chr(10) ||
1981: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1982: p_edi_rec6 := edi_tax1 || edi_tax_qualifier25 || fnd_global.local_chr(10) ||
1983: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1984: p_edi_rec7 := edi_tax1 || edi_tax_qualifier27 || fnd_global.local_chr(10) ||
1985: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1978: p_edi_rec4 := edi_tax1 || edi_tax_qualifier87 || fnd_global.local_chr(10) ||
1979: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1980: p_edi_rec5 := edi_tax1 || edi_tax_qualifier26 || fnd_global.local_chr(10) ||
1981: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1982: p_edi_rec6 := edi_tax1 || edi_tax_qualifier25 || fnd_global.local_chr(10) ||
1983: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1984: p_edi_rec7 := edi_tax1 || edi_tax_qualifier27 || fnd_global.local_chr(10) ||
1985: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1986: p_edi_rec8 := edi_tax1 || edi_tax_qualifier29 || fnd_global.local_chr(10) ||
1979: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_trvlnsubs_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1980: p_edi_rec5 := edi_tax1 || edi_tax_qualifier26 || fnd_global.local_chr(10) ||
1981: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1982: p_edi_rec6 := edi_tax1 || edi_tax_qualifier25 || fnd_global.local_chr(10) ||
1983: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1984: p_edi_rec7 := edi_tax1 || edi_tax_qualifier27 || fnd_global.local_chr(10) ||
1985: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1986: p_edi_rec8 := edi_tax1 || edi_tax_qualifier29 || fnd_global.local_chr(10) ||
1987: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1980: p_edi_rec5 := edi_tax1 || edi_tax_qualifier26 || fnd_global.local_chr(10) ||
1981: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1982: p_edi_rec6 := edi_tax1 || edi_tax_qualifier25 || fnd_global.local_chr(10) ||
1983: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1984: p_edi_rec7 := edi_tax1 || edi_tax_qualifier27 || fnd_global.local_chr(10) ||
1985: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1986: p_edi_rec8 := edi_tax1 || edi_tax_qualifier29 || fnd_global.local_chr(10) ||
1987: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1988: p_edi_rec9 := edi_tax1 || edi_tax_qualifier28 || fnd_global.local_chr(10) ||
1981: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1982: p_edi_rec6 := edi_tax1 || edi_tax_qualifier25 || fnd_global.local_chr(10) ||
1983: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1984: p_edi_rec7 := edi_tax1 || edi_tax_qualifier27 || fnd_global.local_chr(10) ||
1985: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1986: p_edi_rec8 := edi_tax1 || edi_tax_qualifier29 || fnd_global.local_chr(10) ||
1987: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1988: p_edi_rec9 := edi_tax1 || edi_tax_qualifier28 || fnd_global.local_chr(10) ||
1989: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1982: p_edi_rec6 := edi_tax1 || edi_tax_qualifier25 || fnd_global.local_chr(10) ||
1983: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1984: p_edi_rec7 := edi_tax1 || edi_tax_qualifier27 || fnd_global.local_chr(10) ||
1985: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1986: p_edi_rec8 := edi_tax1 || edi_tax_qualifier29 || fnd_global.local_chr(10) ||
1987: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1988: p_edi_rec9 := edi_tax1 || edi_tax_qualifier28 || fnd_global.local_chr(10) ||
1989: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1990: p_edi_rec10 := edi_tax1 || edi_tax_qualifier30 || fnd_global.local_chr(10) ||
1983: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1984: p_edi_rec7 := edi_tax1 || edi_tax_qualifier27 || fnd_global.local_chr(10) ||
1985: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1986: p_edi_rec8 := edi_tax1 || edi_tax_qualifier29 || fnd_global.local_chr(10) ||
1987: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1988: p_edi_rec9 := edi_tax1 || edi_tax_qualifier28 || fnd_global.local_chr(10) ||
1989: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1990: p_edi_rec10 := edi_tax1 || edi_tax_qualifier30 || fnd_global.local_chr(10) ||
1991: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1984: p_edi_rec7 := edi_tax1 || edi_tax_qualifier27 || fnd_global.local_chr(10) ||
1985: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1986: p_edi_rec8 := edi_tax1 || edi_tax_qualifier29 || fnd_global.local_chr(10) ||
1987: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1988: p_edi_rec9 := edi_tax1 || edi_tax_qualifier28 || fnd_global.local_chr(10) ||
1989: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1990: p_edi_rec10 := edi_tax1 || edi_tax_qualifier30 || fnd_global.local_chr(10) ||
1991: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1992: p_edi_rec11 := edi_tax1 || edi_tax_qualifier89 || fnd_global.local_chr(10) ||
1985: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_entertain_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1986: p_edi_rec8 := edi_tax1 || edi_tax_qualifier29 || fnd_global.local_chr(10) ||
1987: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1988: p_edi_rec9 := edi_tax1 || edi_tax_qualifier28 || fnd_global.local_chr(10) ||
1989: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1990: p_edi_rec10 := edi_tax1 || edi_tax_qualifier30 || fnd_global.local_chr(10) ||
1991: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1992: p_edi_rec11 := edi_tax1 || edi_tax_qualifier89 || fnd_global.local_chr(10) ||
1993: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1986: p_edi_rec8 := edi_tax1 || edi_tax_qualifier29 || fnd_global.local_chr(10) ||
1987: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1988: p_edi_rec9 := edi_tax1 || edi_tax_qualifier28 || fnd_global.local_chr(10) ||
1989: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1990: p_edi_rec10 := edi_tax1 || edi_tax_qualifier30 || fnd_global.local_chr(10) ||
1991: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1992: p_edi_rec11 := edi_tax1 || edi_tax_qualifier89 || fnd_global.local_chr(10) ||
1993: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1994: p_edi_rec12 := edi_tax1 || edi_tax_qualifier88 || fnd_global.local_chr(10) ||
1987: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1988: p_edi_rec9 := edi_tax1 || edi_tax_qualifier28 || fnd_global.local_chr(10) ||
1989: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1990: p_edi_rec10 := edi_tax1 || edi_tax_qualifier30 || fnd_global.local_chr(10) ||
1991: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1992: p_edi_rec11 := edi_tax1 || edi_tax_qualifier89 || fnd_global.local_chr(10) ||
1993: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1994: p_edi_rec12 := edi_tax1 || edi_tax_qualifier88 || fnd_global.local_chr(10) ||
1995: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1988: p_edi_rec9 := edi_tax1 || edi_tax_qualifier28 || fnd_global.local_chr(10) ||
1989: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1990: p_edi_rec10 := edi_tax1 || edi_tax_qualifier30 || fnd_global.local_chr(10) ||
1991: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1992: p_edi_rec11 := edi_tax1 || edi_tax_qualifier89 || fnd_global.local_chr(10) ||
1993: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1994: p_edi_rec12 := edi_tax1 || edi_tax_qualifier88 || fnd_global.local_chr(10) ||
1995: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1996: p_edi_rec13 := edi_tax1 || edi_tax_qualifier90 || fnd_global.local_chr(10) ||
1989: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1990: p_edi_rec10 := edi_tax1 || edi_tax_qualifier30 || fnd_global.local_chr(10) ||
1991: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1992: p_edi_rec11 := edi_tax1 || edi_tax_qualifier89 || fnd_global.local_chr(10) ||
1993: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1994: p_edi_rec12 := edi_tax1 || edi_tax_qualifier88 || fnd_global.local_chr(10) ||
1995: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1996: p_edi_rec13 := edi_tax1 || edi_tax_qualifier90 || fnd_global.local_chr(10) ||
1997: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1990: p_edi_rec10 := edi_tax1 || edi_tax_qualifier30 || fnd_global.local_chr(10) ||
1991: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1992: p_edi_rec11 := edi_tax1 || edi_tax_qualifier89 || fnd_global.local_chr(10) ||
1993: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1994: p_edi_rec12 := edi_tax1 || edi_tax_qualifier88 || fnd_global.local_chr(10) ||
1995: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1996: p_edi_rec13 := edi_tax1 || edi_tax_qualifier90 || fnd_global.local_chr(10) ||
1997: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1998: p_edi_rec14 := edi_tax1 || edi_tax_qualifier51 || fnd_global.local_chr(10) ||
1991: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_bustrvl_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1992: p_edi_rec11 := edi_tax1 || edi_tax_qualifier89 || fnd_global.local_chr(10) ||
1993: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1994: p_edi_rec12 := edi_tax1 || edi_tax_qualifier88 || fnd_global.local_chr(10) ||
1995: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1996: p_edi_rec13 := edi_tax1 || edi_tax_qualifier90 || fnd_global.local_chr(10) ||
1997: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1998: p_edi_rec14 := edi_tax1 || edi_tax_qualifier51 || fnd_global.local_chr(10) ||
1999: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1992: p_edi_rec11 := edi_tax1 || edi_tax_qualifier89 || fnd_global.local_chr(10) ||
1993: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1994: p_edi_rec12 := edi_tax1 || edi_tax_qualifier88 || fnd_global.local_chr(10) ||
1995: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1996: p_edi_rec13 := edi_tax1 || edi_tax_qualifier90 || fnd_global.local_chr(10) ||
1997: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1998: p_edi_rec14 := edi_tax1 || edi_tax_qualifier51 || fnd_global.local_chr(10) ||
1999: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2000: p_edi_rec15 := edi_tax1 || edi_tax_qualifier50 || fnd_global.local_chr(10) ||
1993: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1994: p_edi_rec12 := edi_tax1 || edi_tax_qualifier88 || fnd_global.local_chr(10) ||
1995: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1996: p_edi_rec13 := edi_tax1 || edi_tax_qualifier90 || fnd_global.local_chr(10) ||
1997: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1998: p_edi_rec14 := edi_tax1 || edi_tax_qualifier51 || fnd_global.local_chr(10) ||
1999: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2000: p_edi_rec15 := edi_tax1 || edi_tax_qualifier50 || fnd_global.local_chr(10) ||
2001: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1994: p_edi_rec12 := edi_tax1 || edi_tax_qualifier88 || fnd_global.local_chr(10) ||
1995: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1996: p_edi_rec13 := edi_tax1 || edi_tax_qualifier90 || fnd_global.local_chr(10) ||
1997: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1998: p_edi_rec14 := edi_tax1 || edi_tax_qualifier51 || fnd_global.local_chr(10) ||
1999: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2000: p_edi_rec15 := edi_tax1 || edi_tax_qualifier50 || fnd_global.local_chr(10) ||
2001: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2002: p_edi_rec16 := edi_tax1 || edi_tax_qualifier52 || fnd_global.local_chr(10) ||
1995: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_amount_made_good) || edi_currency || fnd_global.local_chr(10);
1996: p_edi_rec13 := edi_tax1 || edi_tax_qualifier90 || fnd_global.local_chr(10) ||
1997: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1998: p_edi_rec14 := edi_tax1 || edi_tax_qualifier51 || fnd_global.local_chr(10) ||
1999: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2000: p_edi_rec15 := edi_tax1 || edi_tax_qualifier50 || fnd_global.local_chr(10) ||
2001: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2002: p_edi_rec16 := edi_tax1 || edi_tax_qualifier52 || fnd_global.local_chr(10) ||
2003: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1996: p_edi_rec13 := edi_tax1 || edi_tax_qualifier90 || fnd_global.local_chr(10) ||
1997: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1998: p_edi_rec14 := edi_tax1 || edi_tax_qualifier51 || fnd_global.local_chr(10) ||
1999: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2000: p_edi_rec15 := edi_tax1 || edi_tax_qualifier50 || fnd_global.local_chr(10) ||
2001: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2002: p_edi_rec16 := edi_tax1 || edi_tax_qualifier52 || fnd_global.local_chr(10) ||
2003: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
2004: p_edi_rec17 := edi_tax1 || edi_tax_qualifier54 || fnd_global.local_chr(10) ||
1997: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_hometel_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
1998: p_edi_rec14 := edi_tax1 || edi_tax_qualifier51 || fnd_global.local_chr(10) ||
1999: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2000: p_edi_rec15 := edi_tax1 || edi_tax_qualifier50 || fnd_global.local_chr(10) ||
2001: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2002: p_edi_rec16 := edi_tax1 || edi_tax_qualifier52 || fnd_global.local_chr(10) ||
2003: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
2004: p_edi_rec17 := edi_tax1 || edi_tax_qualifier54 || fnd_global.local_chr(10) ||
2005: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_cost_to_you) || edi_currency || fnd_global.local_chr(10);
1998: p_edi_rec14 := edi_tax1 || edi_tax_qualifier51 || fnd_global.local_chr(10) ||
1999: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2000: p_edi_rec15 := edi_tax1 || edi_tax_qualifier50 || fnd_global.local_chr(10) ||
2001: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2002: p_edi_rec16 := edi_tax1 || edi_tax_qualifier52 || fnd_global.local_chr(10) ||
2003: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
2004: p_edi_rec17 := edi_tax1 || edi_tax_qualifier54 || fnd_global.local_chr(10) ||
2005: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2006: p_edi_rec18 := edi_tax1 || edi_tax_qualifier53 || fnd_global.local_chr(10) ||
1999: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2000: p_edi_rec15 := edi_tax1 || edi_tax_qualifier50 || fnd_global.local_chr(10) ||
2001: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2002: p_edi_rec16 := edi_tax1 || edi_tax_qualifier52 || fnd_global.local_chr(10) ||
2003: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
2004: p_edi_rec17 := edi_tax1 || edi_tax_qualifier54 || fnd_global.local_chr(10) ||
2005: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2006: p_edi_rec18 := edi_tax1 || edi_tax_qualifier53 || fnd_global.local_chr(10) ||
2007: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2000: p_edi_rec15 := edi_tax1 || edi_tax_qualifier50 || fnd_global.local_chr(10) ||
2001: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2002: p_edi_rec16 := edi_tax1 || edi_tax_qualifier52 || fnd_global.local_chr(10) ||
2003: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
2004: p_edi_rec17 := edi_tax1 || edi_tax_qualifier54 || fnd_global.local_chr(10) ||
2005: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2006: p_edi_rec18 := edi_tax1 || edi_tax_qualifier53 || fnd_global.local_chr(10) ||
2007: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2008: p_edi_rec19 := edi_tax1 || edi_tax_qualifier55 || fnd_global.local_chr(10) ||
2001: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2002: p_edi_rec16 := edi_tax1 || edi_tax_qualifier52 || fnd_global.local_chr(10) ||
2003: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
2004: p_edi_rec17 := edi_tax1 || edi_tax_qualifier54 || fnd_global.local_chr(10) ||
2005: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2006: p_edi_rec18 := edi_tax1 || edi_tax_qualifier53 || fnd_global.local_chr(10) ||
2007: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2008: p_edi_rec19 := edi_tax1 || edi_tax_qualifier55 || fnd_global.local_chr(10) ||
2009: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
2002: p_edi_rec16 := edi_tax1 || edi_tax_qualifier52 || fnd_global.local_chr(10) ||
2003: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
2004: p_edi_rec17 := edi_tax1 || edi_tax_qualifier54 || fnd_global.local_chr(10) ||
2005: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2006: p_edi_rec18 := edi_tax1 || edi_tax_qualifier53 || fnd_global.local_chr(10) ||
2007: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2008: p_edi_rec19 := edi_tax1 || edi_tax_qualifier55 || fnd_global.local_chr(10) ||
2009: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
2010: if l_entertain_cash_equivalent >= 1 then
2003: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_nonqreloc_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
2004: p_edi_rec17 := edi_tax1 || edi_tax_qualifier54 || fnd_global.local_chr(10) ||
2005: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2006: p_edi_rec18 := edi_tax1 || edi_tax_qualifier53 || fnd_global.local_chr(10) ||
2007: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2008: p_edi_rec19 := edi_tax1 || edi_tax_qualifier55 || fnd_global.local_chr(10) ||
2009: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
2010: if l_entertain_cash_equivalent >= 1 then
2011: p_edi_rec20 := edi_att3 || edi_tax_qualifier3 || rpad(l_trading_indicator,35) || fnd_global.local_chr(10);
2004: p_edi_rec17 := edi_tax1 || edi_tax_qualifier54 || fnd_global.local_chr(10) ||
2005: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2006: p_edi_rec18 := edi_tax1 || edi_tax_qualifier53 || fnd_global.local_chr(10) ||
2007: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2008: p_edi_rec19 := edi_tax1 || edi_tax_qualifier55 || fnd_global.local_chr(10) ||
2009: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
2010: if l_entertain_cash_equivalent >= 1 then
2011: p_edi_rec20 := edi_att3 || edi_tax_qualifier3 || rpad(l_trading_indicator,35) || fnd_global.local_chr(10);
2012: end if;
2005: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_cost_to_you) || edi_currency || fnd_global.local_chr(10);
2006: p_edi_rec18 := edi_tax1 || edi_tax_qualifier53 || fnd_global.local_chr(10) ||
2007: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2008: p_edi_rec19 := edi_tax1 || edi_tax_qualifier55 || fnd_global.local_chr(10) ||
2009: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
2010: if l_entertain_cash_equivalent >= 1 then
2011: p_edi_rec20 := edi_att3 || edi_tax_qualifier3 || rpad(l_trading_indicator,35) || fnd_global.local_chr(10);
2012: end if;
2013: end if;
2007: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_amount_made_good) || edi_currency || fnd_global.local_chr(10);
2008: p_edi_rec19 := edi_tax1 || edi_tax_qualifier55 || fnd_global.local_chr(10) ||
2009: edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_other_cash_equivalent) || edi_currency || fnd_global.local_chr(10);
2010: if l_entertain_cash_equivalent >= 1 then
2011: p_edi_rec20 := edi_att3 || edi_tax_qualifier3 || rpad(l_trading_indicator,35) || fnd_global.local_chr(10);
2012: end if;
2013: end if;
2014: end get_exp_payment;
2015: /******************* Expenses Payments Made To or On Behalf of The Employee (Single Occurance) ***********************/
2067: close get_data;
2068:
2069: if l_marors <= -1 then
2070: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
2071: rpad(' ', 70) || fnd_global.local_chr(10);
2072: p_edi_rec2 := edi_tax1 || edi_tax_qualifier121 || fnd_global.local_chr(10);
2073: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_marors) ||
2074: edi_currency || fnd_global.local_chr(10);
2075: end if;
2068:
2069: if l_marors <= -1 then
2070: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
2071: rpad(' ', 70) || fnd_global.local_chr(10);
2072: p_edi_rec2 := edi_tax1 || edi_tax_qualifier121 || fnd_global.local_chr(10);
2073: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_marors) ||
2074: edi_currency || fnd_global.local_chr(10);
2075: end if;
2076: end get_marors;
2070: p_edi_rec1 := edi_ftx1a || edi_cat || rpad(' ', 71) || rpad(' ', 71) ||
2071: rpad(' ', 70) || fnd_global.local_chr(10);
2072: p_edi_rec2 := edi_tax1 || edi_tax_qualifier121 || fnd_global.local_chr(10);
2073: p_edi_rec3 := edi_moa1 || pay_gb_p11d_magtape.format_edi_currency(l_marors) ||
2074: edi_currency || fnd_global.local_chr(10);
2075: end if;
2076: end get_marors;
2077: /******************* Mileage Allowance Relief Optional Reporting Scheme (Single Occurance) ***********************/
2078:
2150: p_edi_rec1 := edi_header_identifier || edi_header_version || edi_data_type ||
2151: edi_data_type_version || edi_data_type_release || edi_sender_id ||
2152: edi_recipient_id || edi_test_indicator || edi_urgent_marker ||
2153: edi_transmission_date || edi_transmission_time || edi_unique_reference ||
2154: edi_sender_sub_addr || edi_recipient_s_addr || fnd_global.local_chr(10);
2155:
2156: /* BGM1 Record */
2157: p_edi_rec2 := edi_bgm1 || edi_form_type || fnd_global.local_chr(10);
2158:
2153: edi_transmission_date || edi_transmission_time || edi_unique_reference ||
2154: edi_sender_sub_addr || edi_recipient_s_addr || fnd_global.local_chr(10);
2155:
2156: /* BGM1 Record */
2157: p_edi_rec2 := edi_bgm1 || edi_form_type || fnd_global.local_chr(10);
2158:
2159: return 0;
2160: end get_header;
2161:
2279: end if;
2280:
2281: p_edi_rec1 := edi_nad1a || edi_party_qualifier_bg ||
2282: rpad(nvl(edi_addr1,' '), 36) || rpad(nvl(edi_addr2,' '), 36) || rpad(nvl(edi_addr3,' '), 36) ||
2283: rpad(nvl(edi_addr4,' '), 36) || rpad(' ', 35) || fnd_global.local_chr(10);
2284: p_edi_rec2 := edi_nad1b || rpad(upper(p_party), 36) ||
2285: rpad(' ',9) || fnd_global.local_chr(10);
2286: p_edi_rec3 := edi_att1 || edi_att_qualifier1 || rpad(p_submitter_ref,35) || fnd_global.local_chr(10);
2287: p_edi_rec4 := edi_att1 || edi_att_qualifier7 || rpad(substr(p_employer_ref,5),35) || fnd_global.local_chr(10);
2281: p_edi_rec1 := edi_nad1a || edi_party_qualifier_bg ||
2282: rpad(nvl(edi_addr1,' '), 36) || rpad(nvl(edi_addr2,' '), 36) || rpad(nvl(edi_addr3,' '), 36) ||
2283: rpad(nvl(edi_addr4,' '), 36) || rpad(' ', 35) || fnd_global.local_chr(10);
2284: p_edi_rec2 := edi_nad1b || rpad(upper(p_party), 36) ||
2285: rpad(' ',9) || fnd_global.local_chr(10);
2286: p_edi_rec3 := edi_att1 || edi_att_qualifier1 || rpad(p_submitter_ref,35) || fnd_global.local_chr(10);
2287: p_edi_rec4 := edi_att1 || edi_att_qualifier7 || rpad(substr(p_employer_ref,5),35) || fnd_global.local_chr(10);
2288: p_edi_rec5 := edi_nad1a || edi_party_qualifier_tc || rpad(' ', 179) || fnd_global.local_chr(10);
2289: p_edi_rec6 := edi_att1 || edi_att_qualifier17 || rpad(substr(p_employer_ref,1,3),35) || fnd_global.local_chr(10);
2282: rpad(nvl(edi_addr1,' '), 36) || rpad(nvl(edi_addr2,' '), 36) || rpad(nvl(edi_addr3,' '), 36) ||
2283: rpad(nvl(edi_addr4,' '), 36) || rpad(' ', 35) || fnd_global.local_chr(10);
2284: p_edi_rec2 := edi_nad1b || rpad(upper(p_party), 36) ||
2285: rpad(' ',9) || fnd_global.local_chr(10);
2286: p_edi_rec3 := edi_att1 || edi_att_qualifier1 || rpad(p_submitter_ref,35) || fnd_global.local_chr(10);
2287: p_edi_rec4 := edi_att1 || edi_att_qualifier7 || rpad(substr(p_employer_ref,5),35) || fnd_global.local_chr(10);
2288: p_edi_rec5 := edi_nad1a || edi_party_qualifier_tc || rpad(' ', 179) || fnd_global.local_chr(10);
2289: p_edi_rec6 := edi_att1 || edi_att_qualifier17 || rpad(substr(p_employer_ref,1,3),35) || fnd_global.local_chr(10);
2290: p_edi_rec7 := edi_dtm1 || edi_date_qualifier243 || rpad(p_message_date,36) ||
2283: rpad(nvl(edi_addr4,' '), 36) || rpad(' ', 35) || fnd_global.local_chr(10);
2284: p_edi_rec2 := edi_nad1b || rpad(upper(p_party), 36) ||
2285: rpad(' ',9) || fnd_global.local_chr(10);
2286: p_edi_rec3 := edi_att1 || edi_att_qualifier1 || rpad(p_submitter_ref,35) || fnd_global.local_chr(10);
2287: p_edi_rec4 := edi_att1 || edi_att_qualifier7 || rpad(substr(p_employer_ref,5),35) || fnd_global.local_chr(10);
2288: p_edi_rec5 := edi_nad1a || edi_party_qualifier_tc || rpad(' ', 179) || fnd_global.local_chr(10);
2289: p_edi_rec6 := edi_att1 || edi_att_qualifier17 || rpad(substr(p_employer_ref,1,3),35) || fnd_global.local_chr(10);
2290: p_edi_rec7 := edi_dtm1 || edi_date_qualifier243 || rpad(p_message_date,36) ||
2291: edi_format_qualifier102 || fnd_global.local_chr(10);
2284: p_edi_rec2 := edi_nad1b || rpad(upper(p_party), 36) ||
2285: rpad(' ',9) || fnd_global.local_chr(10);
2286: p_edi_rec3 := edi_att1 || edi_att_qualifier1 || rpad(p_submitter_ref,35) || fnd_global.local_chr(10);
2287: p_edi_rec4 := edi_att1 || edi_att_qualifier7 || rpad(substr(p_employer_ref,5),35) || fnd_global.local_chr(10);
2288: p_edi_rec5 := edi_nad1a || edi_party_qualifier_tc || rpad(' ', 179) || fnd_global.local_chr(10);
2289: p_edi_rec6 := edi_att1 || edi_att_qualifier17 || rpad(substr(p_employer_ref,1,3),35) || fnd_global.local_chr(10);
2290: p_edi_rec7 := edi_dtm1 || edi_date_qualifier243 || rpad(p_message_date,36) ||
2291: edi_format_qualifier102 || fnd_global.local_chr(10);
2292: p_edi_rec8 := edi_dtm1 || edi_date_qualifier166 || rpad(p_tax_year,36) ||
2285: rpad(' ',9) || fnd_global.local_chr(10);
2286: p_edi_rec3 := edi_att1 || edi_att_qualifier1 || rpad(p_submitter_ref,35) || fnd_global.local_chr(10);
2287: p_edi_rec4 := edi_att1 || edi_att_qualifier7 || rpad(substr(p_employer_ref,5),35) || fnd_global.local_chr(10);
2288: p_edi_rec5 := edi_nad1a || edi_party_qualifier_tc || rpad(' ', 179) || fnd_global.local_chr(10);
2289: p_edi_rec6 := edi_att1 || edi_att_qualifier17 || rpad(substr(p_employer_ref,1,3),35) || fnd_global.local_chr(10);
2290: p_edi_rec7 := edi_dtm1 || edi_date_qualifier243 || rpad(p_message_date,36) ||
2291: edi_format_qualifier102 || fnd_global.local_chr(10);
2292: p_edi_rec8 := edi_dtm1 || edi_date_qualifier166 || rpad(p_tax_year,36) ||
2293: edi_format_qualifier602 || fnd_global.local_chr(10);
2287: p_edi_rec4 := edi_att1 || edi_att_qualifier7 || rpad(substr(p_employer_ref,5),35) || fnd_global.local_chr(10);
2288: p_edi_rec5 := edi_nad1a || edi_party_qualifier_tc || rpad(' ', 179) || fnd_global.local_chr(10);
2289: p_edi_rec6 := edi_att1 || edi_att_qualifier17 || rpad(substr(p_employer_ref,1,3),35) || fnd_global.local_chr(10);
2290: p_edi_rec7 := edi_dtm1 || edi_date_qualifier243 || rpad(p_message_date,36) ||
2291: edi_format_qualifier102 || fnd_global.local_chr(10);
2292: p_edi_rec8 := edi_dtm1 || edi_date_qualifier166 || rpad(p_tax_year,36) ||
2293: edi_format_qualifier602 || fnd_global.local_chr(10);
2294: p_edi_rec9 := edi_uns1 || fnd_global.local_chr(10);
2295:
2289: p_edi_rec6 := edi_att1 || edi_att_qualifier17 || rpad(substr(p_employer_ref,1,3),35) || fnd_global.local_chr(10);
2290: p_edi_rec7 := edi_dtm1 || edi_date_qualifier243 || rpad(p_message_date,36) ||
2291: edi_format_qualifier102 || fnd_global.local_chr(10);
2292: p_edi_rec8 := edi_dtm1 || edi_date_qualifier166 || rpad(p_tax_year,36) ||
2293: edi_format_qualifier602 || fnd_global.local_chr(10);
2294: p_edi_rec9 := edi_uns1 || fnd_global.local_chr(10);
2295:
2296: return 0;
2297: end get_employer;
2290: p_edi_rec7 := edi_dtm1 || edi_date_qualifier243 || rpad(p_message_date,36) ||
2291: edi_format_qualifier102 || fnd_global.local_chr(10);
2292: p_edi_rec8 := edi_dtm1 || edi_date_qualifier166 || rpad(p_tax_year,36) ||
2293: edi_format_qualifier602 || fnd_global.local_chr(10);
2294: p_edi_rec9 := edi_uns1 || fnd_global.local_chr(10);
2295:
2296: return 0;
2297: end get_employer;
2298:
2442: */
2443: p_edi_rec1 := edi_nad2a || edi_party_qualifier_bv ||
2444: rpad(upper(rpad(l_addr1,35)),36) || rpad(upper(rpad(l_addr2,35)),36) ||
2445: rpad(upper(rpad(l_addr3,35)),36) || rpad(upper(rpad(l_addr4,35)),36) ||
2446: rpad(upper(rpad(l_addr5,35)),35) || fnd_global.local_chr(10);
2447: p_edi_rec2 := edi_nad2b || rpad(l_last_name,36) ||
2448: rpad(l_first_name,36) || rpad(l_middle_name,36) ||
2449: rpad(' ', 36) || rpad(' ',36) || rpad(' ',9) || fnd_global.local_chr(10);
2450: p_edi_rec3 := edi_att2 || edi_att_qualifier11 || rpad(l_ni_number,35) || fnd_global.local_chr(10);
2445: rpad(upper(rpad(l_addr3,35)),36) || rpad(upper(rpad(l_addr4,35)),36) ||
2446: rpad(upper(rpad(l_addr5,35)),35) || fnd_global.local_chr(10);
2447: p_edi_rec2 := edi_nad2b || rpad(l_last_name,36) ||
2448: rpad(l_first_name,36) || rpad(l_middle_name,36) ||
2449: rpad(' ', 36) || rpad(' ',36) || rpad(' ',9) || fnd_global.local_chr(10);
2450: p_edi_rec3 := edi_att2 || edi_att_qualifier11 || rpad(l_ni_number,35) || fnd_global.local_chr(10);
2451: p_edi_rec4 := edi_att2 || edi_att_qualifier19 || rpad(l_employee_no,35) || fnd_global.local_chr(10);
2452: if substr(l_dir_flag,1,1) = 'Y' then
2453: p_edi_rec5 := edi_att2 || edi_att_qualifier3 || rpad(' ',35) || fnd_global.local_chr(10);
2446: rpad(upper(rpad(l_addr5,35)),35) || fnd_global.local_chr(10);
2447: p_edi_rec2 := edi_nad2b || rpad(l_last_name,36) ||
2448: rpad(l_first_name,36) || rpad(l_middle_name,36) ||
2449: rpad(' ', 36) || rpad(' ',36) || rpad(' ',9) || fnd_global.local_chr(10);
2450: p_edi_rec3 := edi_att2 || edi_att_qualifier11 || rpad(l_ni_number,35) || fnd_global.local_chr(10);
2451: p_edi_rec4 := edi_att2 || edi_att_qualifier19 || rpad(l_employee_no,35) || fnd_global.local_chr(10);
2452: if substr(l_dir_flag,1,1) = 'Y' then
2453: p_edi_rec5 := edi_att2 || edi_att_qualifier3 || rpad(' ',35) || fnd_global.local_chr(10);
2454: end if;
2447: p_edi_rec2 := edi_nad2b || rpad(l_last_name,36) ||
2448: rpad(l_first_name,36) || rpad(l_middle_name,36) ||
2449: rpad(' ', 36) || rpad(' ',36) || rpad(' ',9) || fnd_global.local_chr(10);
2450: p_edi_rec3 := edi_att2 || edi_att_qualifier11 || rpad(l_ni_number,35) || fnd_global.local_chr(10);
2451: p_edi_rec4 := edi_att2 || edi_att_qualifier19 || rpad(l_employee_no,35) || fnd_global.local_chr(10);
2452: if substr(l_dir_flag,1,1) = 'Y' then
2453: p_edi_rec5 := edi_att2 || edi_att_qualifier3 || rpad(' ',35) || fnd_global.local_chr(10);
2454: end if;
2455:
2449: rpad(' ', 36) || rpad(' ',36) || rpad(' ',9) || fnd_global.local_chr(10);
2450: p_edi_rec3 := edi_att2 || edi_att_qualifier11 || rpad(l_ni_number,35) || fnd_global.local_chr(10);
2451: p_edi_rec4 := edi_att2 || edi_att_qualifier19 || rpad(l_employee_no,35) || fnd_global.local_chr(10);
2452: if substr(l_dir_flag,1,1) = 'Y' then
2453: p_edi_rec5 := edi_att2 || edi_att_qualifier3 || rpad(' ',35) || fnd_global.local_chr(10);
2454: end if;
2455:
2456: return 0;
2457: end get_employee;
2909: p_error_msg2 := ':Failing process as there are missing values for ' ||
2910: p_missing_val || ' mandatory field(s).';
2911: end if;
2912:
2913: p_edi_rec1 := edi_uns2 || fnd_global.local_chr(10);
2914: p_edi_rec2 := edi_qty1 || edi_qty_qualifierI ||
2915: lpad(p_record_count,15,'0') || fnd_global.local_chr(10);
2916: p_edi_rec3 := edi_cnt1 || lpad(p_record_count,18,'0') || fnd_global.local_chr(10);
2917: return 0;
2911: end if;
2912:
2913: p_edi_rec1 := edi_uns2 || fnd_global.local_chr(10);
2914: p_edi_rec2 := edi_qty1 || edi_qty_qualifierI ||
2915: lpad(p_record_count,15,'0') || fnd_global.local_chr(10);
2916: p_edi_rec3 := edi_cnt1 || lpad(p_record_count,18,'0') || fnd_global.local_chr(10);
2917: return 0;
2918: end;
2919:
2912:
2913: p_edi_rec1 := edi_uns2 || fnd_global.local_chr(10);
2914: p_edi_rec2 := edi_qty1 || edi_qty_qualifierI ||
2915: lpad(p_record_count,15,'0') || fnd_global.local_chr(10);
2916: p_edi_rec3 := edi_cnt1 || lpad(p_record_count,18,'0') || fnd_global.local_chr(10);
2917: return 0;
2918: end;
2919:
2920: function get_benefit_name(p_benefit_type in varchar2) return varchar2