DBA Data[Home] [Help]

APPS.PAY_FR_INSURANCE_PROCESS dependencies on HR_UTILITY

Line 52: hr_utility.set_location('Initialise insurance',10);

48:
49:
50: BEGIN
51:
52: hr_utility.set_location('Initialise insurance',10);
53:
54: --
55: --
56: -- Setup basic absence information.

Line 58: hr_utility.set_location('p_recipient ='||p_recipient,95);

54: --
55: --
56: -- Setup basic absence information.
57: --
58: hr_utility.set_location('p_recipient ='||p_recipient,95);
59:
60: g_ins.assignment_id := p_assignment_id;
61: g_ins.element_entry_id := p_element_entry_id;
62: g_ins.date_earned := p_date_earned;

Line 75: hr_utility.set_location('Initialise Insurance',100);

71: END IF;
72:
73:
74:
75: hr_utility.set_location('Initialise Insurance',100);
76:
77: END initialise_insurance;
78:
79: --

Line 90: hr_utility.set_location('Reset Data Str',100);

86: PROCEDURE reset_data_structures IS
87: BEGIN
88: g_ctl := blank_ctl;
89: g_ins := blank_ins;
90: hr_utility.set_location('Reset Data Str',100);
91: END reset_data_structures;
92:
93: --
94: --

Line 119: hr_utility.set_location('p_recipient ='||p_recipient,95);

115: l_initialised BOOLEAN := FALSE;
116:
117: BEGIN
118:
119: hr_utility.set_location('p_recipient ='||p_recipient,95);
120: --
121: --
122: -- A new assignment is being processed so reset information and
123: -- initialise the information for insurance record.

Line 125: hr_utility.set_location('Initialise',10);

121: --
122: -- A new assignment is being processed so reset information and
123: -- initialise the information for insurance record.
124: --
125: hr_utility.set_location('Initialise',10);
126: IF NOT (NVL(g_ins.assignment_id, -1) = p_assignment_id) THEN
127:
128: initialise_insurance(p_assignment_id,
129: p_net_pay,

Line 138: hr_utility.set_location('Initialise',20);

134: p_recipient);
135:
136:
137: l_initialised := TRUE;
138: hr_utility.set_location('Initialise',20);
139: --
140: --
141: -- A new insurance element is being processed so initialise information for insurance.
142: --

Line 155: hr_utility.set_location('Initialise',30);

151: p_exempt_insurance,
152: p_recipient);
153:
154: l_initialised := TRUE;
155: hr_utility.set_location('Initialise',30);
156:
157: ELSIF NOT (g_ins.date_earned = p_date_earned) THEN
158: initialise_insurance(p_assignment_id,
159: p_net_pay,

Line 167: hr_utility.set_location('Initialise',40);

163: p_exempt_insurance,
164: p_recipient);
165:
166: l_initialised := TRUE;
167: hr_utility.set_location('Initialise',40);
168:
169: END IF;
170:
171: --

Line 176: hr_utility.set_location('Initialise',100);

172: --
173: -- Return indicator identifying if initialisation occured.
174: --
175:
176: hr_utility.set_location('Initialise',100);
177: RETURN l_initialised;
178:
179: END initialise;
180:

Line 190: hr_utility.set_location('Increment Iteration',10);

186: --
187:
188: PROCEDURE increment_iteration IS
189: BEGIN
190: hr_utility.set_location('Increment Iteration',10);
191: g_ctl.iter := g_ctl.iter + 1;
192: hr_utility.set_location('Increment Iteration',100);
193: END increment_iteration;
194:

Line 192: hr_utility.set_location('Increment Iteration',100);

188: PROCEDURE increment_iteration IS
189: BEGIN
190: hr_utility.set_location('Increment Iteration',10);
191: g_ctl.iter := g_ctl.iter + 1;
192: hr_utility.set_location('Increment Iteration',100);
193: END increment_iteration;
194:
195: --
196: --

Line 212: hr_utility.set_location('Stop Processing',10);

208: l_target_net NUMBER;
209:
210: BEGIN
211:
212: hr_utility.set_location('Stop Processing',10);
213: --
214: --
215: --Check to see if the currently calculated net pay is close enough to the target net.
216: --

Line 219: hr_utility.set_location('Stop Processing',100);

215: --Check to see if the currently calculated net pay is close enough to the target net.
216: --
217: l_target_net := g_ins.base_net;
218: RETURN (l_target_net + cs_MARGIN >= p_net_pay AND l_target_net - cs_MARGIN <= p_net_pay);
219: hr_utility.set_location('Stop Processing',100);
220:
221: END stop_processing;
222: --
223: --

Line 240: hr_utility.set_location('Set Adjustment',10);

236: l_diff NUMBER;
237: l_ins_adj NUMBER;
238: l_init NUMBER := 0;
239: BEGIN
240: hr_utility.set_location('Set Adjustment',10);
241: --
242: --
243: -- Get the target net for the current guarantee.
244: --

Line 255: hr_utility.set_location('Set Adjustment',20);

251: --
252: IF g_ins.insurance_adjustment IS NULL THEN
253: l_dummy := pay_iterate.initialise(g_ins.element_entry_id, l_target_net, -1 * l_init, l_init);
254: l_ins_adj := pay_iterate.get_interpolation_guess(g_ins.element_entry_id, 0);
255: hr_utility.set_location('Set Adjustment',20);
256: --
257: --
258: -- Refine the adjustment.
259: --

Line 264: hr_utility.set_location('Target net ='||l_target_net,90);

260: ELSE
261:
262: l_diff := l_target_net - p_net_pay;
263: l_ins_adj := pay_iterate.get_interpolation_guess(g_ins.element_entry_id, l_diff);
264: hr_utility.set_location('Target net ='||l_target_net,90);
265: hr_utility.set_location('Net pay ='||p_net_pay,90);
266: hr_utility.set_location('Difference ='||l_diff,90);
267: hr_utility.set_location('Adjustment ='||l_ins_adj,100);
268: hr_utility.set_location('Set Adjustment',30);

Line 265: hr_utility.set_location('Net pay ='||p_net_pay,90);

261:
262: l_diff := l_target_net - p_net_pay;
263: l_ins_adj := pay_iterate.get_interpolation_guess(g_ins.element_entry_id, l_diff);
264: hr_utility.set_location('Target net ='||l_target_net,90);
265: hr_utility.set_location('Net pay ='||p_net_pay,90);
266: hr_utility.set_location('Difference ='||l_diff,90);
267: hr_utility.set_location('Adjustment ='||l_ins_adj,100);
268: hr_utility.set_location('Set Adjustment',30);
269:

Line 266: hr_utility.set_location('Difference ='||l_diff,90);

262: l_diff := l_target_net - p_net_pay;
263: l_ins_adj := pay_iterate.get_interpolation_guess(g_ins.element_entry_id, l_diff);
264: hr_utility.set_location('Target net ='||l_target_net,90);
265: hr_utility.set_location('Net pay ='||p_net_pay,90);
266: hr_utility.set_location('Difference ='||l_diff,90);
267: hr_utility.set_location('Adjustment ='||l_ins_adj,100);
268: hr_utility.set_location('Set Adjustment',30);
269:
270: END IF;

Line 267: hr_utility.set_location('Adjustment ='||l_ins_adj,100);

263: l_ins_adj := pay_iterate.get_interpolation_guess(g_ins.element_entry_id, l_diff);
264: hr_utility.set_location('Target net ='||l_target_net,90);
265: hr_utility.set_location('Net pay ='||p_net_pay,90);
266: hr_utility.set_location('Difference ='||l_diff,90);
267: hr_utility.set_location('Adjustment ='||l_ins_adj,100);
268: hr_utility.set_location('Set Adjustment',30);
269:
270: END IF;
271: --

Line 268: hr_utility.set_location('Set Adjustment',30);

264: hr_utility.set_location('Target net ='||l_target_net,90);
265: hr_utility.set_location('Net pay ='||p_net_pay,90);
266: hr_utility.set_location('Difference ='||l_diff,90);
267: hr_utility.set_location('Adjustment ='||l_ins_adj,100);
268: hr_utility.set_location('Set Adjustment',30);
269:
270: END IF;
271: --
272: --

Line 276: hr_utility.set_location('Set Adjustment',100);

272: --
273: -- Set the insurance adjustment.
274: --
275: g_ins.insurance_adjustment := l_ins_adj;
276: hr_utility.set_location('Set Adjustment',100);
277: END;
278: --
279: --
280: -- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Line 287: hr_utility.set_location('Set Net Pay',10);

283: --
284: PROCEDURE set_net_pay
285: (p_net_pay NUMBER) IS
286: BEGIN
287: hr_utility.set_location('Set Net Pay',10);
288: g_ins.base_net := p_net_pay;
289: END set_net_pay;
290:
291: --

Line 311: -- hr_utility.trace_on(NULL,'INSURANCE');

307: ,p_stop_processing OUT NOCOPY VARCHAR2) RETURN NUMBER IS
308:
309: BEGIN
310:
311: -- hr_utility.trace_on(NULL,'INSURANCE');
312:
313:
314: --
315: --

Line 319: hr_utility.set_location('Assignment Id = '||p_assignment_id,80);

315: --
316: -- Checking for a change in assignment or absnece and initialising the processing
317: -- as appropriate. If no initialisation then simply increment the iteration.
318:
319: hr_utility.set_location('Assignment Id = '||p_assignment_id,80);
320: hr_utility.set_location('Element_entry_id ='||p_element_entry_id,81);
321: hr_utility.set_location('p_net_pay ='||p_net_pay,83);
322: hr_utility.set_location('p_subject_insurance ='||p_subject_insurance,84);
323: hr_utility.set_location('p_exempt_insurance ='||p_exempt_insurance,85);

Line 320: hr_utility.set_location('Element_entry_id ='||p_element_entry_id,81);

316: -- Checking for a change in assignment or absnece and initialising the processing
317: -- as appropriate. If no initialisation then simply increment the iteration.
318:
319: hr_utility.set_location('Assignment Id = '||p_assignment_id,80);
320: hr_utility.set_location('Element_entry_id ='||p_element_entry_id,81);
321: hr_utility.set_location('p_net_pay ='||p_net_pay,83);
322: hr_utility.set_location('p_subject_insurance ='||p_subject_insurance,84);
323: hr_utility.set_location('p_exempt_insurance ='||p_exempt_insurance,85);
324: hr_utility.set_location('p_exempt_insurance ='||p_recipient,95);

Line 321: hr_utility.set_location('p_net_pay ='||p_net_pay,83);

317: -- as appropriate. If no initialisation then simply increment the iteration.
318:
319: hr_utility.set_location('Assignment Id = '||p_assignment_id,80);
320: hr_utility.set_location('Element_entry_id ='||p_element_entry_id,81);
321: hr_utility.set_location('p_net_pay ='||p_net_pay,83);
322: hr_utility.set_location('p_subject_insurance ='||p_subject_insurance,84);
323: hr_utility.set_location('p_exempt_insurance ='||p_exempt_insurance,85);
324: hr_utility.set_location('p_exempt_insurance ='||p_recipient,95);
325:

Line 322: hr_utility.set_location('p_subject_insurance ='||p_subject_insurance,84);

318:
319: hr_utility.set_location('Assignment Id = '||p_assignment_id,80);
320: hr_utility.set_location('Element_entry_id ='||p_element_entry_id,81);
321: hr_utility.set_location('p_net_pay ='||p_net_pay,83);
322: hr_utility.set_location('p_subject_insurance ='||p_subject_insurance,84);
323: hr_utility.set_location('p_exempt_insurance ='||p_exempt_insurance,85);
324: hr_utility.set_location('p_exempt_insurance ='||p_recipient,95);
325:
326:

Line 323: hr_utility.set_location('p_exempt_insurance ='||p_exempt_insurance,85);

319: hr_utility.set_location('Assignment Id = '||p_assignment_id,80);
320: hr_utility.set_location('Element_entry_id ='||p_element_entry_id,81);
321: hr_utility.set_location('p_net_pay ='||p_net_pay,83);
322: hr_utility.set_location('p_subject_insurance ='||p_subject_insurance,84);
323: hr_utility.set_location('p_exempt_insurance ='||p_exempt_insurance,85);
324: hr_utility.set_location('p_exempt_insurance ='||p_recipient,95);
325:
326:
327:

Line 324: hr_utility.set_location('p_exempt_insurance ='||p_recipient,95);

320: hr_utility.set_location('Element_entry_id ='||p_element_entry_id,81);
321: hr_utility.set_location('p_net_pay ='||p_net_pay,83);
322: hr_utility.set_location('p_subject_insurance ='||p_subject_insurance,84);
323: hr_utility.set_location('p_exempt_insurance ='||p_exempt_insurance,85);
324: hr_utility.set_location('p_exempt_insurance ='||p_recipient,95);
325:
326:
327:
328: hr_utility.set_location('Iterate',10);

Line 328: hr_utility.set_location('Iterate',10);

324: hr_utility.set_location('p_exempt_insurance ='||p_recipient,95);
325:
326:
327:
328: hr_utility.set_location('Iterate',10);
329: --
330: --
331: -- Checking for a change in assignment or absnece and initialising the processing
332: -- as appropriate. If no initialisation then simply increment the iteration.

Line 344: hr_utility.set_location('Iterate',20);

340: p_recipient) THEN
341:
342: increment_iteration;
343:
344: hr_utility.set_location('Iterate',20);
345: END IF;
346:
347: IF stop_processing(p_net_pay) then
348:

Line 355: hr_utility.set_location('p_stop_processing ='||p_stop_processing,02);

351: reset_data_structures;
352: p_stop_processing := 'Y';
353:
354:
355: hr_utility.set_location('p_stop_processing ='||p_stop_processing,02);
356:
357: hr_utility.set_location('Iterate',70);
358:
359: ELSE

Line 357: hr_utility.set_location('Iterate',70);

353:
354:
355: hr_utility.set_location('p_stop_processing ='||p_stop_processing,02);
356:
357: hr_utility.set_location('Iterate',70);
358:
359: ELSE
360: set_adjustment(p_net_pay);
361: hr_utility.set_location('Iterate',50);

Line 361: hr_utility.set_location('Iterate',50);

357: hr_utility.set_location('Iterate',70);
358:
359: ELSE
360: set_adjustment(p_net_pay);
361: hr_utility.set_location('Iterate',50);
362:
363: END IF;
364:
365: hr_utility.set_location('Iterate',80);

Line 365: hr_utility.set_location('Iterate',80);

361: hr_utility.set_location('Iterate',50);
362:
363: END IF;
364:
365: hr_utility.set_location('Iterate',80);
366:
367: --
368: --
369: -- Simply return a value NB. declared as a function so it cab be used via a formula function.

Line 372: hr_utility.set_location('Iterate',90);

368: --
369: -- Simply return a value NB. declared as a function so it cab be used via a formula function.
370: --
371:
372: hr_utility.set_location('Iterate',90);
373:
374: -- hr_utility.trace_off;
375:
376: RETURN 0;

Line 374: -- hr_utility.trace_off;

370: --
371:
372: hr_utility.set_location('Iterate',90);
373:
374: -- hr_utility.trace_off;
375:
376: RETURN 0;
377: EXCEPTION
378: WHEN OTHERS THEN

Line 379: hr_utility.set_location('iterate ',-10);

375:
376: RETURN 0;
377: EXCEPTION
378: WHEN OTHERS THEN
379: hr_utility.set_location('iterate ',-10);
380: hr_utility.trace(SQLCODE);
381: hr_utility.trace(SQLERRM);
382: -- hr_utility.trace_off;
383: RAISE;

Line 380: hr_utility.trace(SQLCODE);

376: RETURN 0;
377: EXCEPTION
378: WHEN OTHERS THEN
379: hr_utility.set_location('iterate ',-10);
380: hr_utility.trace(SQLCODE);
381: hr_utility.trace(SQLERRM);
382: -- hr_utility.trace_off;
383: RAISE;
384:

Line 381: hr_utility.trace(SQLERRM);

377: EXCEPTION
378: WHEN OTHERS THEN
379: hr_utility.set_location('iterate ',-10);
380: hr_utility.trace(SQLCODE);
381: hr_utility.trace(SQLERRM);
382: -- hr_utility.trace_off;
383: RAISE;
384:
385: END iterate;

Line 382: -- hr_utility.trace_off;

378: WHEN OTHERS THEN
379: hr_utility.set_location('iterate ',-10);
380: hr_utility.trace(SQLCODE);
381: hr_utility.trace(SQLERRM);
382: -- hr_utility.trace_off;
383: RAISE;
384:
385: END iterate;
386:

Line 407: hr_utility.set_location('Indirects',10);

403: --
404: -- Pass value for the sickness adjustment when appropriate.
405: --
406:
407: hr_utility.set_location('Indirects',10);
408:
409: --
410: --
411: -- Pass values for the third party insurance payment when appropriate.

Line 420: hr_utility.set_location('Indirects',50);

416: p_ins_adjustment := NVL(g_ins.insurance_adjustment, 0);
417: p_ins_reduction := NVL(g_ins.insurance_reduction , 0);
418:
419:
420: hr_utility.set_location('Indirects',50);
421:
422: hr_utility.set_location('p_ins_subject(o) ='||p_ins_subject,100);
423: hr_utility.set_location('p_ins_exempt(o) ='||p_ins_exempt,100);
424: hr_utility.set_location('p_ins_adjustment(o) ='||p_ins_adjustment,100);

Line 422: hr_utility.set_location('p_ins_subject(o) ='||p_ins_subject,100);

418:
419:
420: hr_utility.set_location('Indirects',50);
421:
422: hr_utility.set_location('p_ins_subject(o) ='||p_ins_subject,100);
423: hr_utility.set_location('p_ins_exempt(o) ='||p_ins_exempt,100);
424: hr_utility.set_location('p_ins_adjustment(o) ='||p_ins_adjustment,100);
425:
426:

Line 423: hr_utility.set_location('p_ins_exempt(o) ='||p_ins_exempt,100);

419:
420: hr_utility.set_location('Indirects',50);
421:
422: hr_utility.set_location('p_ins_subject(o) ='||p_ins_subject,100);
423: hr_utility.set_location('p_ins_exempt(o) ='||p_ins_exempt,100);
424: hr_utility.set_location('p_ins_adjustment(o) ='||p_ins_adjustment,100);
425:
426:
427: --

Line 424: hr_utility.set_location('p_ins_adjustment(o) ='||p_ins_adjustment,100);

420: hr_utility.set_location('Indirects',50);
421:
422: hr_utility.set_location('p_ins_subject(o) ='||p_ins_subject,100);
423: hr_utility.set_location('p_ins_exempt(o) ='||p_ins_exempt,100);
424: hr_utility.set_location('p_ins_adjustment(o) ='||p_ins_adjustment,100);
425:
426:
427: --
428: --

Line 432: hr_utility.set_location('Indirects',100);

428: --
429: -- Simply return a value NB. declared as a function so it can be used via a formula function.
430: --
431:
432: hr_utility.set_location('Indirects',100);
433: -- hr_utility.trace_off;
434: RETURN 0;
435: END indirects;
436: --

Line 433: -- hr_utility.trace_off;

429: -- Simply return a value NB. declared as a function so it can be used via a formula function.
430: --
431:
432: hr_utility.set_location('Indirects',100);
433: -- hr_utility.trace_off;
434: RETURN 0;
435: END indirects;
436: --
437: BEGIN

Line 439: hr_utility.set_location('PAY_FR_INSURANCE_PROCESS',100);

435: END indirects;
436: --
437: BEGIN
438:
439: hr_utility.set_location('PAY_FR_INSURANCE_PROCESS',100);
440:
441: END pay_fr_insurance_process;