DBA Data[Home] [Help]

APPS.PAY_GB_BACS_TAPE dependencies on HR_UTILITY

Line 92: hr_utility.trace.

88: monthly periods the same as
89: shorter ones
90: 07-OCT-1999 PDAVIES 110.8 Replaced all occurrences of
91: DBMS_Output.Put_Line with
92: hr_utility.trace.
93: 16-FEB-2000 SMROBINS 115.1 1071880 Handle date parameters in
94: canonical format
95: 24-NOV-2000 AMILLS 115.2 1381231 Added territory_code to get_
96: banks cursor as unique key

Line 164: hr_utility.set_location('bacsmgtp.get_formula_id',1);

160: --
161: FUNCTION get_formula_id(p_formula_name IN VARCHAR2) RETURN INTEGER IS
162: p_formula_id INTEGER;
163: BEGIN
164: hr_utility.set_location('bacsmgtp.get_formula_id',1);
165: SELECT DISTINCT formula_id
166: INTO p_formula_id
167: FROM ff_formulas_f
168: WHERE formula_name = p_formula_name;

Line 169: hr_utility.set_location('bacsmgtp.formula_id',p_formula_id);

165: SELECT DISTINCT formula_id
166: INTO p_formula_id
167: FROM ff_formulas_f
168: WHERE formula_name = p_formula_name;
169: hr_utility.set_location('bacsmgtp.formula_id',p_formula_id);
170: --
171: RETURN p_formula_id;
172: --
173: END get_formula_id;

Line 178: hr_utility.set_location('bacsmgtp.get_todays_date',1);

174: --
175: FUNCTION get_todays_date RETURN VARCHAR2 IS
176: todays_date VARCHAR2(30);
177: BEGIN
178: hr_utility.set_location('bacsmgtp.get_todays_date',1);
179: todays_date := to_char(sysdate,'YYYY/MM/DD HH24:MI:SS');
180: RETURN todays_date;
181: END get_todays_date;
182: --

Line 186: hr_utility.set_location('bacsmgtp.get_session_date',1);

182: --
183: FUNCTION get_session_date RETURN VARCHAR2 IS
184: p_session_date VARCHAR2(30);
185: BEGIN
186: hr_utility.set_location('bacsmgtp.get_session_date',1);
187: SELECT to_char(effective_date,'YYYY/MM/DD HH24:MI:SS')
188: INTO p_session_date
189: from fnd_sessions
190: where session_id = userenv('sessionid');

Line 200: hr_utility.set_location('bacsmgtp.get_expiration_date',1);

196: FUNCTION get_expiration_date(p_payroll_action_id IN VARCHAR2)
197: RETURN VARCHAR2 is
198: p_expiration_date VARCHAR2(30);
199: BEGIN
200: hr_utility.set_location('bacsmgtp.get_expiration_date',1);
201: select nvl(substr(LEGISLATIVE_PARAMETERS,
202: decode(instr(LEGISLATIVE_PARAMETERS,'EXPIRATION_DATE='),
203: '0', null,
204: instr(LEGISLATIVE_PARAMETERS,'EXPIRATION_DATE='))+16,11),

Line 218: hr_utility.set_location('bacsmgtp.get_submission_number',1);

214: FUNCTION get_submission_number(p_payroll_action_id IN VARCHAR2)
215: RETURN VARCHAR2 is
216: p_submission_number VARCHAR2(6);
217: BEGIN
218: hr_utility.set_location('bacsmgtp.get_submission_number',1);
219: select
220: nvl(substr(LEGISLATIVE_PARAMETERS,
221: decode(instr(LEGISLATIVE_PARAMETERS,'SUBMISSION_NUMBER='),
222: '0', null,

Line 229: hr_utility.set_location('bacsmgtp.get_submission_number',2);

225: into p_submission_number
226: from pay_payroll_actions
227: where PAYROLL_ACTION_ID = p_payroll_action_id;
228: --
229: hr_utility.set_location('bacsmgtp.get_submission_number',2);
230: RETURN p_submission_number;
231: --
232: END get_submission_number;
233: --

Line 239: hr_utility.set_location('bacsmgtp.get_process_date',1);

235: FUNCTION get_process_date(p_payroll_action_id IN VARCHAR2)
236: RETURN VARCHAR2 is
237: p_process_date VARCHAR2(30);
238: BEGIN
239: hr_utility.set_location('bacsmgtp.get_process_date',1);
240: hr_utility.trace('payroll_action_id='||p_payroll_action_id);
241: BEGIN
242: select
243: to_char(OVERRIDING_DD_DATE ,'YYYY/MM/DD HH24:MI:SS') effdate

Line 240: hr_utility.trace('payroll_action_id='||p_payroll_action_id);

236: RETURN VARCHAR2 is
237: p_process_date VARCHAR2(30);
238: BEGIN
239: hr_utility.set_location('bacsmgtp.get_process_date',1);
240: hr_utility.trace('payroll_action_id='||p_payroll_action_id);
241: BEGIN
242: select
243: to_char(OVERRIDING_DD_DATE ,'YYYY/MM/DD HH24:MI:SS') effdate
244: into p_process_date

Line 249: hr_utility.set_message(801, 'Other error in get_process_date f');

245: from pay_payroll_actions
246: where PAYROLL_ACTION_ID = p_payroll_action_id;
247: --
248: EXCEPTION when others then
249: hr_utility.set_message(801, 'Other error in get_process_date f');
250: hr_utility.raise_error;
251: END;
252: --
253: hr_utility.set_location('bacsmgtp.get_process_date'||p_process_date,2);

Line 250: hr_utility.raise_error;

246: where PAYROLL_ACTION_ID = p_payroll_action_id;
247: --
248: EXCEPTION when others then
249: hr_utility.set_message(801, 'Other error in get_process_date f');
250: hr_utility.raise_error;
251: END;
252: --
253: hr_utility.set_location('bacsmgtp.get_process_date'||p_process_date,2);
254: RETURN p_process_date;

Line 253: hr_utility.set_location('bacsmgtp.get_process_date'||p_process_date,2);

249: hr_utility.set_message(801, 'Other error in get_process_date f');
250: hr_utility.raise_error;
251: END;
252: --
253: hr_utility.set_location('bacsmgtp.get_process_date'||p_process_date,2);
254: RETURN p_process_date;
255: --
256: END get_process_date;
257: --

Line 264: hr_utility.set_location('bacsmgtp.get_org_context',1);

260: -- one row.
261: FUNCTION get_org_context(p_payroll_action_id IN NUMBER) RETURN INTEGER IS
262: p_org_payment_method_id INTEGER;
263: BEGIN
264: hr_utility.set_location('bacsmgtp.get_org_context',1);
265: SELECT ppp.org_payment_method_id
266: INTO p_org_payment_method_id
267: FROM pay_assignment_actions paa, pay_pre_payments ppp
268: WHERE paa.payroll_action_id = p_payroll_action_id

Line 272: hr_utility.set_location('org_context',p_org_payment_method_id);

268: WHERE paa.payroll_action_id = p_payroll_action_id
269: AND ppp.pre_payment_id = paa.pre_payment_id
270: AND ROWNUM = 1
271: ORDER BY ppp.org_payment_method_id;
272: hr_utility.set_location('org_context',p_org_payment_method_id);
273: RETURN p_org_payment_method_id;
274: END get_org_context;
275: --
276: BEGIN

Line 279: --hr_utility.trace_on;

275: --
276: BEGIN
277: -- temporary trace AS set trace on and delay for a while to set up pipemon
278: --IF NOT bacs_assignments %ISOPEN THEN
279: --hr_utility.trace_on;
280: -- declare loop_counter number;
281: --begin
282: --loop_counter := 1;
283: --while loop_counter < 500000 LOOP

Line 300: hr_utility.set_location('bacsmgtp.new_formula',1);

296: pay_mag_tape.internal_cxt_values(1) := 1;
297: --
298: --
299: IF NOT bacs_assignments %ISOPEN THEN -- New file
300: hr_utility.set_location('bacsmgtp.new_formula',1);
301: --
302: total_body_count := 0; -- Initial value
303: total_contra_count := 0;
304: count_for_block := 0;

Line 321: hr_utility.set_location('bacsmgtp.payroll_action_id',p_payroll_action_id);

317: if pay_mag_tape.internal_prm_names(3) = 'PAYROLL_ACTION_ID'
318: then p_payroll_action_id := to_number(
319: pay_mag_tape.internal_prm_values(3));
320: end if;
321: hr_utility.set_location('bacsmgtp.payroll_action_id',p_payroll_action_id);
322: --
323: expiration_date := get_expiration_date(p_payroll_action_id);
324: submission_number := get_submission_number(p_payroll_action_id);
325: process_date := get_process_date(p_payroll_action_id);

Line 348: hr_utility.set_location('bacsmgtp.new_formula',2);

344: --
345: OPEN bacs_assignments ( p_payroll_action_id);
346: --
347: ELSE
348: hr_utility.set_location('bacsmgtp.new_formula',2);
349: --
350: IF fetch_required = TRUE then
351: FETCH bacs_assignments INTO
352: p_org_payment_method_id,

Line 362: hr_utility.set_location('bacsmgtp.new_formula',3);

358: --
359: IF bacs_assignments %FOUND THEN
360: IF p_org_payment_method_id = p_previous_payment_id
361: THEN
362: hr_utility.set_location('bacsmgtp.new_formula',3);
363: pay_mag_tape.internal_prm_values(1) := 4;
364: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_BODY');
365: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
366: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_VALUE' ;

Line 387: hr_utility.set_location('bacsmgtp.new_formula',4);

383: --
384: -- Check for the block size
385: --
386: IF count_for_block = 20 then
387: hr_utility.set_location('bacsmgtp.new_formula',4);
388: block_count := block_count + 1;
389: count_for_block := 1;
390: ELSE count_for_block := count_for_block + 1;
391: hr_utility.set_location('bacsmgtp.new_formula',5);

Line 391: hr_utility.set_location('bacsmgtp.new_formula',5);

387: hr_utility.set_location('bacsmgtp.new_formula',4);
388: block_count := block_count + 1;
389: count_for_block := 1;
390: ELSE count_for_block := count_for_block + 1;
391: hr_utility.set_location('bacsmgtp.new_formula',5);
392: END IF;
393: --
394: ELSE
395: hr_utility.set_location('bacsmgtp.new_formula',6);

Line 395: hr_utility.set_location('bacsmgtp.new_formula',6);

391: hr_utility.set_location('bacsmgtp.new_formula',5);
392: END IF;
393: --
394: ELSE
395: hr_utility.set_location('bacsmgtp.new_formula',6);
396: pay_mag_tape.internal_prm_values(1) := 5;
397: pay_mag_tape.internal_prm_values(2) := get_formula_id('BACS_CONTRA');
398: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
399: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TOTAL_PAYMENT';

Line 441: hr_utility.set_location('bacsmgtp.new_formula',8);

437: total_contra_count := total_contra_count + 1;
438: count_for_block :=count_for_block + 1;
439: final_contra :=TRUE;
440: ELSE
441: hr_utility.set_location('bacsmgtp.new_formula',8);
442: IF count_for_block < 20 then
443: hr_utility.set_location('bacsmgtp.new_formula',9);
444: pay_mag_tape.internal_prm_values(1) :=2;
445: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';

Line 443: hr_utility.set_location('bacsmgtp.new_formula',9);

439: final_contra :=TRUE;
440: ELSE
441: hr_utility.set_location('bacsmgtp.new_formula',8);
442: IF count_for_block < 20 then
443: hr_utility.set_location('bacsmgtp.new_formula',9);
444: pay_mag_tape.internal_prm_values(1) :=2;
445: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
446: pay_mag_tape.internal_prm_values(2) :=
447: get_formula_id('BACS_PADDING');

Line 452: hr_utility.set_location('bacsmgtp.new_formula',10);

448: count_for_block:= count_for_block + 1;
449: ELSE
450: -- Padding finished - Now write footer,
451: --
452: hr_utility.set_location('bacsmgtp.new_formula',10);
453: pay_mag_tape.internal_cxt_values(1) := 3;
454: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
455: pay_mag_tape.internal_cxt_values(2) := p_org_payment_method_id;
456: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';

Line 496: hr_utility.trace('Check for Bank Holiday in '||sql_str||'. Date: '||date_in_char);

492: date_in_char varchar2(12);
493: begin
494: --
495: date_in_char:=to_char(date_in,'DD-MON-YYYY');
496: hr_utility.trace('Check for Bank Holiday in '||sql_str||'. Date: '||date_in_char);
497: select 1 into hols_id
498: from pay_user_column_instances_f inst,
499: pay_user_rows_f row1,
500: pay_user_columns col1,

Line 516: hr_utility.trace('no data returned');

512: return false;
513: --
514: EXCEPTION
515: when no_data_found then
516: hr_utility.trace('no data returned');
517: return true;
518: when too_many_rows then
519: hr_utility.trace('Too many rows returned');
520: return false;

Line 519: hr_utility.trace('Too many rows returned');

515: when no_data_found then
516: hr_utility.trace('no data returned');
517: return true;
518: when too_many_rows then
519: hr_utility.trace('Too many rows returned');
520: return false;
521: end check_hols;
522: ----
523: FUNCTION main_routine (date1 DATE, sql_str VARCHAR2) RETURN DATE IS

Line 534: hr_utility.trace('MAIN ROUTINE ENTERED');

530: date_ok boolean;
531: BEGIN
532: --
533: date_ok := false;
534: hr_utility.trace('MAIN ROUTINE ENTERED');
535: while not date_ok
536: loop
537: valdate := to_char( return_date,'D');
538: added_value := 0;

Line 548: hr_utility.trace(valdate||' '||added_value);

544: end if;
545: --
546: return_date := return_date + added_value;
547: --
548: hr_utility.trace(valdate||' '||added_value);
549: hr_utility.trace( to_char( return_date, 'day-DD-MON-YYYY'));
550: --
551: date_returned := check_hols(return_date, sql_str);
552: --

Line 549: hr_utility.trace( to_char( return_date, 'day-DD-MON-YYYY'));

545: --
546: return_date := return_date + added_value;
547: --
548: hr_utility.trace(valdate||' '||added_value);
549: hr_utility.trace( to_char( return_date, 'day-DD-MON-YYYY'));
550: --
551: date_returned := check_hols(return_date, sql_str);
552: --
553: if date_returned = false then

Line 554: hr_utility.trace('date is a holiday');

550: --
551: date_returned := check_hols(return_date, sql_str);
552: --
553: if date_returned = false then
554: hr_utility.trace('date is a holiday');
555: return_date := return_date - 1;
556: date_ok := false;
557: else
558: hr_utility.trace('date is not a holiday');

Line 558: hr_utility.trace('date is not a holiday');

554: hr_utility.trace('date is a holiday');
555: return_date := return_date - 1;
556: date_ok := false;
557: else
558: hr_utility.trace('date is not a holiday');
559: hr_utility.trace( to_char(return_date, 'day-DD-MON-YYYY'));
560: date_ok := true;
561: end if;
562: --

Line 559: hr_utility.trace( to_char(return_date, 'day-DD-MON-YYYY'));

555: return_date := return_date - 1;
556: date_ok := false;
557: else
558: hr_utility.trace('date is not a holiday');
559: hr_utility.trace( to_char(return_date, 'day-DD-MON-YYYY'));
560: date_ok := true;
561: end if;
562: --
563: if date_ok then

Line 706: hr_utility.trace('Display effective date');

702: --
703: open csr_get_details;
704: fetch csr_get_details into assignmt_id, eff_date;
705: close csr_get_details;
706: hr_utility.trace('Display effective date');
707: hr_utility.trace(eff_date);
708: hr_utility.trace('Display assignment id');
709: hr_utility.trace(assignmt_id);
710: --

Line 707: hr_utility.trace(eff_date);

703: open csr_get_details;
704: fetch csr_get_details into assignmt_id, eff_date;
705: close csr_get_details;
706: hr_utility.trace('Display effective date');
707: hr_utility.trace(eff_date);
708: hr_utility.trace('Display assignment id');
709: hr_utility.trace(assignmt_id);
710: --
711: hr_utility.trace('Display company payment rule');

Line 708: hr_utility.trace('Display assignment id');

704: fetch csr_get_details into assignmt_id, eff_date;
705: close csr_get_details;
706: hr_utility.trace('Display effective date');
707: hr_utility.trace(eff_date);
708: hr_utility.trace('Display assignment id');
709: hr_utility.trace(assignmt_id);
710: --
711: hr_utility.trace('Display company payment rule');
712: --

Line 709: hr_utility.trace(assignmt_id);

705: close csr_get_details;
706: hr_utility.trace('Display effective date');
707: hr_utility.trace(eff_date);
708: hr_utility.trace('Display assignment id');
709: hr_utility.trace(assignmt_id);
710: --
711: hr_utility.trace('Display company payment rule');
712: --
713: open payment_rule(eff_date, assignmt_id);

Line 711: hr_utility.trace('Display company payment rule');

707: hr_utility.trace(eff_date);
708: hr_utility.trace('Display assignment id');
709: hr_utility.trace(assignmt_id);
710: --
711: hr_utility.trace('Display company payment rule');
712: --
713: open payment_rule(eff_date, assignmt_id);
714: loop
715: fetch payment_rule into scl_pay_gb_bacs_pay_rule;

Line 720: hr_utility.trace(scl_pay_gb_bacs_pay_rule);

716: exit when payment_rule%NOTFOUND;
717: end loop;
718: close payment_rule;
719: --
720: hr_utility.trace(scl_pay_gb_bacs_pay_rule);
721: if scl_pay_gb_bacs_pay_rule = 'P' then
722: hr_utility.trace('GET DEPOSIT DATE');
723: hr_utility.trace( to_char(dd_date, 'day-DD-MON-YYYY'));
724: --

Line 722: hr_utility.trace('GET DEPOSIT DATE');

718: close payment_rule;
719: --
720: hr_utility.trace(scl_pay_gb_bacs_pay_rule);
721: if scl_pay_gb_bacs_pay_rule = 'P' then
722: hr_utility.trace('GET DEPOSIT DATE');
723: hr_utility.trace( to_char(dd_date, 'day-DD-MON-YYYY'));
724: --
725: sql_str := NULL;
726: open get_banks;

Line 723: hr_utility.trace( to_char(dd_date, 'day-DD-MON-YYYY'));

719: --
720: hr_utility.trace(scl_pay_gb_bacs_pay_rule);
721: if scl_pay_gb_bacs_pay_rule = 'P' then
722: hr_utility.trace('GET DEPOSIT DATE');
723: hr_utility.trace( to_char(dd_date, 'day-DD-MON-YYYY'));
724: --
725: sql_str := NULL;
726: open get_banks;
727: loop

Line 747: hr_utility.trace('GET PROCESS DATE');

743: end if;
744: dd_date := lowest_dd_date;
745: proc_date := dd_date - 1;
746: sql_str := 'England';
747: hr_utility.trace('GET PROCESS DATE');
748: hr_utility.trace( to_char(proc_date, 'day-DD-MON-YYYY'));
749: proc_date := main_routine (proc_date, sql_str);
750: hr_utility.trace( to_char(dd_date, 'day-DD-MON-YYYY'));
751: hr_utility.trace( to_char(proc_date, 'day-DD-MON-YYYY'));

Line 748: hr_utility.trace( to_char(proc_date, 'day-DD-MON-YYYY'));

744: dd_date := lowest_dd_date;
745: proc_date := dd_date - 1;
746: sql_str := 'England';
747: hr_utility.trace('GET PROCESS DATE');
748: hr_utility.trace( to_char(proc_date, 'day-DD-MON-YYYY'));
749: proc_date := main_routine (proc_date, sql_str);
750: hr_utility.trace( to_char(dd_date, 'day-DD-MON-YYYY'));
751: hr_utility.trace( to_char(proc_date, 'day-DD-MON-YYYY'));
752: hr_utility.trace(' Lowest DATE');

Line 750: hr_utility.trace( to_char(dd_date, 'day-DD-MON-YYYY'));

746: sql_str := 'England';
747: hr_utility.trace('GET PROCESS DATE');
748: hr_utility.trace( to_char(proc_date, 'day-DD-MON-YYYY'));
749: proc_date := main_routine (proc_date, sql_str);
750: hr_utility.trace( to_char(dd_date, 'day-DD-MON-YYYY'));
751: hr_utility.trace( to_char(proc_date, 'day-DD-MON-YYYY'));
752: hr_utility.trace(' Lowest DATE');
753: hr_utility.trace( to_char(lowest_dd_date, 'day-DD-MON-YYYY'));
754: RETURN proc_date;

Line 751: hr_utility.trace( to_char(proc_date, 'day-DD-MON-YYYY'));

747: hr_utility.trace('GET PROCESS DATE');
748: hr_utility.trace( to_char(proc_date, 'day-DD-MON-YYYY'));
749: proc_date := main_routine (proc_date, sql_str);
750: hr_utility.trace( to_char(dd_date, 'day-DD-MON-YYYY'));
751: hr_utility.trace( to_char(proc_date, 'day-DD-MON-YYYY'));
752: hr_utility.trace(' Lowest DATE');
753: hr_utility.trace( to_char(lowest_dd_date, 'day-DD-MON-YYYY'));
754: RETURN proc_date;
755: END validate_process_date;

Line 752: hr_utility.trace(' Lowest DATE');

748: hr_utility.trace( to_char(proc_date, 'day-DD-MON-YYYY'));
749: proc_date := main_routine (proc_date, sql_str);
750: hr_utility.trace( to_char(dd_date, 'day-DD-MON-YYYY'));
751: hr_utility.trace( to_char(proc_date, 'day-DD-MON-YYYY'));
752: hr_utility.trace(' Lowest DATE');
753: hr_utility.trace( to_char(lowest_dd_date, 'day-DD-MON-YYYY'));
754: RETURN proc_date;
755: END validate_process_date;
756:

Line 753: hr_utility.trace( to_char(lowest_dd_date, 'day-DD-MON-YYYY'));

749: proc_date := main_routine (proc_date, sql_str);
750: hr_utility.trace( to_char(dd_date, 'day-DD-MON-YYYY'));
751: hr_utility.trace( to_char(proc_date, 'day-DD-MON-YYYY'));
752: hr_utility.trace(' Lowest DATE');
753: hr_utility.trace( to_char(lowest_dd_date, 'day-DD-MON-YYYY'));
754: RETURN proc_date;
755: END validate_process_date;
756:
757: --Cash Management Reconciliation function