eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PAY_FR_COURT_ORDERS dependencies on HR_UTILITY

Line 17: hr_utility.set_location('Entering:'||g_package||'validation', 10);

13: function validation return varchar2 is
14: --<<***BEGIN***>>--
15: begin
16: --
17: hr_utility.set_location('Entering:'||g_package||'validation', 10);
18: --
19: if total_order(40).number_of_orders > 0 and
20: total_order(50).number_of_orders > 0 then
21: hr_utility.set_location(g_package||'validation - FAILED', 15);

Line 21: hr_utility.set_location(g_package||'validation - FAILED', 15);

17: hr_utility.set_location('Entering:'||g_package||'validation', 10);
18: --
19: if total_order(40).number_of_orders > 0 and
20: total_order(50).number_of_orders > 0 then
21: hr_utility.set_location(g_package||'validation - FAILED', 15);
22: fnd_message.set_name('PAY', 'PAY_74893_CO_P4S_P5S');
23: return fnd_message.get;
24: else
25: hr_utility.set_location(g_package||'valid - PASSED', 20);

Line 25: hr_utility.set_location(g_package||'valid - PASSED', 20);

21: hr_utility.set_location(g_package||'validation - FAILED', 15);
22: fnd_message.set_name('PAY', 'PAY_74893_CO_P4S_P5S');
23: return fnd_message.get;
24: else
25: hr_utility.set_location(g_package||'valid - PASSED', 20);
26: return null;
27: end if;
28: end validation;
29: --<<***END***>>--

Line 44: hr_utility.set_location('Entering:'||g_package||'net_pay_valid', 10);

40: function net_pay_valid return varchar2 is
41: --<<***BEGIN***>>--
42: begin
43: --
44: hr_utility.set_location('Entering:'||g_package||'net_pay_valid', 10);
45: --
46: return g_net_pay_valid;
47: --
48: hr_utility.set_location(' Leaving:'||g_package||'net_pay_valid', 20);

Line 48: hr_utility.set_location(' Leaving:'||g_package||'net_pay_valid', 20);

44: hr_utility.set_location('Entering:'||g_package||'net_pay_valid', 10);
45: --
46: return g_net_pay_valid;
47: --
48: hr_utility.set_location(' Leaving:'||g_package||'net_pay_valid', 20);
49: --
50: end net_pay_valid;
51: --<<***END***>>--
52:

Line 65: hr_utility.set_location(g_package||'processed = Y', 10);

61: function processed (p_assignment_action_id in number) return varchar2 is
62: --<<***BEGIN***>>--
63: begin
64: if g_assignment_action_id = p_assignment_action_id then
65: hr_utility.set_location(g_package||'processed = Y', 10);
66: return 'Y';
67: else
68: hr_utility.set_location(g_package||'processed = N', 10);
69: return 'N';

Line 68: hr_utility.set_location(g_package||'processed = N', 10);

64: if g_assignment_action_id = p_assignment_action_id then
65: hr_utility.set_location(g_package||'processed = Y', 10);
66: return 'Y';
67: else
68: hr_utility.set_location(g_package||'processed = N', 10);
69: return 'N';
70: end if;
71: end processed;
72: --<<***END***>>--

Line 123: hr_utility.set_location('Entering:Get_Payment - write_message', 16);

119: l_value number(30,2);
120: --
121: begin
122: --
123: hr_utility.set_location('Entering:Get_Payment - write_message', 16);
124: --
125: p_payment := l_payment - l_paid_in_period;
126: --
127: if p_priority in (20,30,40) then

Line 158: hr_utility.set_location('Entering:Get_Payment - write_message', 17);

154: p_stop := 'Y';
155: end if;
156: end if;
157: --
158: hr_utility.set_location('Entering:Get_Payment - write_message', 17);
159: --
160: end write_message;
161: ---------------------------------------------------------------------------------------------------------
162: --<<***BEGIN***>>--

Line 165: hr_utility.set_location('Entering:'||g_package||'get_payment element'||substr(p_element_name,1,20), 10);

161: ---------------------------------------------------------------------------------------------------------
162: --<<***BEGIN***>>--
163: begin
164: --
165: hr_utility.set_location('Entering:'||g_package||'get_payment element'||substr(p_element_name,1,20), 10);
166: --
167: if not court_order.exists(p_source_id) then
168: hr_utility.set_location('Element Source Id: '||substr(p_source_id,1,25)||' Not processed', 15);
169: p_message := 'Y';

Line 168: hr_utility.set_location('Element Source Id: '||substr(p_source_id,1,25)||' Not processed', 15);

164: --
165: hr_utility.set_location('Entering:'||g_package||'get_payment element'||substr(p_element_name,1,20), 10);
166: --
167: if not court_order.exists(p_source_id) then
168: hr_utility.set_location('Element Source Id: '||substr(p_source_id,1,25)||' Not processed', 15);
169: p_message := 'Y';
170: fnd_message.set_name('PAY', 'PAY_74892_CO_NOT_PROCESSED');
171: fnd_message.set_token('ELEMENT', p_element_name);
172: fnd_message.set_token('REFERENCE', p_payment_reference);

Line 191: hr_utility.set_location('Message = Y', 20);

187: ,p_payment => l_payment
188: ,p_stop => p_stop);
189: --
190: if p_message_text <> ' ' then
191: hr_utility.set_location('Message = Y', 20);
192: p_message := 'Y';
193: end if;
194: --
195: hr_utility.set_location(' Leaving:'||g_package||'get_payment', 30);

Line 195: hr_utility.set_location(' Leaving:'||g_package||'get_payment', 30);

191: hr_utility.set_location('Message = Y', 20);
192: p_message := 'Y';
193: end if;
194: --
195: hr_utility.set_location(' Leaving:'||g_package||'get_payment', 30);
196: --
197: return l_payment;
198: --
199: end get_payment;

Line 222: hr_utility.set_location('Entering:'||g_package||'map_names', 10);

218: --
219: --<<***BEGIN***>>--
220: begin
221: --
222: hr_utility.set_location('Entering:'||g_package||'map_names', 10);
223: --
224: i := map_element.first;
225: while i <= map_element.last loop
226: if p_direct_name is not null then

Line 240: hr_utility.set_location(' Leaving:'||g_package||'map_names', 20);

236: end if;
237: i := map_element.next(i);
238: end loop;
239: --
240: hr_utility.set_location(' Leaving:'||g_package||'map_names', 20);
241: --
242: return l_name;
243: --
244: end map_names;

Line 257: hr_utility.set_location('Entering:'||g_package||'direct_to_indirect', 10);

253: function direct_to_indirect (p_direct_name in varchar2) return varchar2 is
254: --<<***BEGIN***>>--
255: begin
256: --
257: hr_utility.set_location('Entering:'||g_package||'direct_to_indirect', 10);
258: --
259: return map_names(p_direct_name => p_direct_name);
260: --
261: end direct_to_indirect;

Line 274: hr_utility.set_location('Entering:'||g_package||'indirect_to_direct', 10);

270: function indirect_to_direct (p_indirect_name in varchar2) return varchar2 is
271: --<<***BEGIN***>>--
272: begin
273: --
274: hr_utility.set_location('Entering:'||g_package||'indirect_to_direct', 10);
275: --
276: return map_names(p_indirect_name => p_indirect_name);
277: --
278: end indirect_to_direct;

Line 314: hr_utility.set_location('Entering:'||g_package||'get_balance_value', 10);

310: --
311: --<<***BEGIN***>>--
312: begin
313: --
314: hr_utility.set_location('Entering:'||g_package||'get_balance_value', 10);
315: --
316: l_balance_name := direct_to_indirect(p_element_name);
317: --
318: open csr_get_dimension_id(l_balance_name);

Line 325: hr_utility.set_location(' Leaving:'||g_package||'get_balance_value', 20);

321: --
322: pay_balance_pkg.set_context ('ORIGINAL_ENTRY_ID',p_source_id);
323: l_result := pay_balance_pkg.get_value (l_defined_balance_id, p_assignment_action_id);
324: --
325: hr_utility.set_location(' Leaving:'||g_package||'get_balance_value', 20);
326: --
327: return l_result;
328: --
329: end get_balance_value;

Line 528: hr_utility.set_location('Entering:Process - get_maximum_allowable_seizure',10);

524: */
525: --
526: begin
527: --
528: hr_utility.set_location('Entering:Process - get_maximum_allowable_seizure',10);
529: --
530: select effective_date
531: into l_effective_date
532: from fnd_sessions

Line 541: hr_utility.set_location('Addl threshold is '||substr(l_addl_threshold,1,5), 15);

537: value, increasing the band range. This is determined by the no. of dependants
538: =============================================================================*/
539: l_addl_threshold := p_addl_threshold_per_dpndt * p_no_of_dependants;
540: --
541: hr_utility.set_location('Addl threshold is '||substr(l_addl_threshold,1,5), 15);
542: --
543: /*=============================================================================
544: Use a cursor to retreive all relevant values from User Defind Tables
545: The function hruserdt is not used because we want to loop thro' all values

Line 564: hr_utility.set_location('Seizable is '||substr(l_seize_amount,1,5),15);

560: l_high_value := (r.high_value + l_addl_threshold)/12;
561: l_seize_basis := least(greatest((p_net_payment - l_low_value),0),(l_high_value - l_low_value));
562: l_seize_amount := l_seize_amount + (l_seize_basis * r.rate);
563: end loop;
564: hr_utility.set_location('Seizable is '||substr(l_seize_amount,1,5),15);
565: --
566: hr_utility.set_location(' Leaving:Process - get_maximum_allowable_seizure',20);
567: return l_seize_amount;
568: --

Line 566: hr_utility.set_location(' Leaving:Process - get_maximum_allowable_seizure',20);

562: l_seize_amount := l_seize_amount + (l_seize_basis * r.rate);
563: end loop;
564: hr_utility.set_location('Seizable is '||substr(l_seize_amount,1,5),15);
565: --
566: hr_utility.set_location(' Leaving:Process - get_maximum_allowable_seizure',20);
567: return l_seize_amount;
568: --
569: end get_maximum_allowable_seizure;
570: ---------------------------------------------------------------------------------------------------------

Line 577: hr_utility.set_location('Entering:Process - process_remainders',10);

573: ,p_total_remainder in number
574: ,p_actual_total_payment in out nocopy number) is
575: begin
576: --
577: hr_utility.set_location('Entering:Process - process_remainders',10);
578: --
579: if court_order(p_max_shortfall_order).payment + p_total_remainder
580: <= p_owed then
581: --

Line 582: hr_utility.set_location('Adding remainder:'||substr(p_total_remainder,1,5),15);

578: --
579: if court_order(p_max_shortfall_order).payment + p_total_remainder
580: <= p_owed then
581: --
582: hr_utility.set_location('Adding remainder:'||substr(p_total_remainder,1,5),15);
583: court_order(p_max_shortfall_order).payment := court_order(p_max_shortfall_order).payment + p_total_remainder;
584: p_actual_total_payment := p_actual_total_payment + p_total_remainder;
585: --
586: end if;

Line 588: hr_utility.set_location(' Leaving:Process - process_remainders',20);

584: p_actual_total_payment := p_actual_total_payment + p_total_remainder;
585: --
586: end if;
587: --
588: hr_utility.set_location(' Leaving:Process - process_remainders',20);
589: --
590: end process_remainders;
591: ---------------------------------------------------------------------------------------------------------
592: procedure init_totals (p_priority in number) is

Line 605: hr_utility.set_location('Entering:Process - initialise' , 10);

601: end init_totals;
602: ---------------------------------------------------------------------------------------------------------
603: procedure initialise is
604: begin
605: hr_utility.set_location('Entering:Process - initialise' , 10);
606: --
607: -- Initialise the package global variables.
608: g_funds := 0;
609: g_net_pay_valid := 'Y';

Line 636: hr_utility.set_location(' Leaving:Process - initialise' , 20);

632: map_element(40).direct_name := 'FR_MISCELLANEOUS';
633: map_element(40).indirect_name := 'FR_MISCELLANEOUS_PAYMENT';
634: map_element(50).direct_name := 'FR_SEIZURE';
635: map_element(50).indirect_name := 'FR_SEIZURE_PAYMENT';
636: hr_utility.set_location(' Leaving:Process - initialise' , 20);
637: end initialise;
638: ---------------------------------------------------------------------------------------------------------
639: procedure process_values (p_priority in number
640: ,p_funds in number

Line 659: hr_utility.set_location('Entering:Process - process_values' , 10);

655: begin
656: --
657: p_actual_total_payment := 0;
658: --
659: hr_utility.set_location('Entering:Process - process_values' , 10);
660: --
661: if total_order(p_priority).number_of_orders > 0 then
662: --
663: total_order(p_priority).payment := least(p_funds,total_order(p_priority).outstanding_balance);

Line 664: hr_utility.set_location('Payment is '||substr(total_order(p_priority).payment,1,5), 10);

660: --
661: if total_order(p_priority).number_of_orders > 0 then
662: --
663: total_order(p_priority).payment := least(p_funds,total_order(p_priority).outstanding_balance);
664: hr_utility.set_location('Payment is '||substr(total_order(p_priority).payment,1,5), 10);
665: --
666: if total_order(p_priority).payment < total_order(p_priority).outstanding_balance then
667: l_prorate := 'Y';
668: hr_utility.set_location('Prorate = Y', 10);

Line 668: hr_utility.set_location('Prorate = Y', 10);

664: hr_utility.set_location('Payment is '||substr(total_order(p_priority).payment,1,5), 10);
665: --
666: if total_order(p_priority).payment < total_order(p_priority).outstanding_balance then
667: l_prorate := 'Y';
668: hr_utility.set_location('Prorate = Y', 10);
669: end if;
670: --
671: l_sql_string := null;
672: --

Line 673: hr_utility.set_location('Building Dynamic SQL',10);

669: end if;
670: --
671: l_sql_string := null;
672: --
673: hr_utility.set_location('Building Dynamic SQL',10);
674: for i in total_order(p_priority).start_pos..total_order(p_priority).end_pos loop
675: --
676: l_index := court_order_index(i).source_id;
677: --

Line 687: hr_utility.set_location('Built Dynamic stmt',10);

683: l_sql_string := l_sql_string||' union all ';
684: end if;
685: --
686: end loop;
687: hr_utility.set_location('Built Dynamic stmt',10);
688: --
689: if l_sql_string is not null then
690: l_sql_string := l_sql_string||' order by balance';
691: --

Line 697: hr_utility.set_location('Opening Dynamic cursor',10);

693: l_total_payment := total_order(p_priority).payment;
694: l_total_amount := total_order(p_priority).amount;
695: end if;
696: --
697: hr_utility.set_location('Opening Dynamic cursor',10);
698: open cv for l_sql_string;
699: loop
700: fetch cv into cv_outstanding_balance, cv_index;
701: exit when cv%notfound;

Line 705: hr_utility.set_location('Divide by zero error l_total_amount (1)', 15);

701: exit when cv%notfound;
702: if l_prorate = 'Y' then
703: --
704: if l_total_amount = 0 then
705: hr_utility.set_location('Divide by zero error l_total_amount (1)', 15);
706: end if;
707: l_payment_pro := l_total_payment/l_total_amount;
708: l_payment := least(floor(l_payment_pro * 100 * court_order(cv_index).amount)/100, court_order(cv_index).outstanding_balance);
709: --

Line 728: hr_utility.set_location('Closing dynamic cursor',10);

724: court_order(cv_index).payment := l_payment;
725: --
726: end loop;
727: close cv;
728: hr_utility.set_location('Closing dynamic cursor',10);
729: --
730: end if; -- if l_sql_string not null
731: --
732: l_total_remainder := total_order(p_priority).payment - p_actual_total_payment;

Line 742: hr_utility.set_location(' Leaving:Process - process_values' , 20);

738: end if;
739: --
740: end if; -- no of Arrears > 0
741: --
742: hr_utility.set_location(' Leaving:Process - process_values' , 20);
743: --
744: end process_values;
745: ---------------------------------------------------------------------------------------------------------
746: --<<***BEGIN***>>--

Line 749: hr_utility.set_location('Entering:function Process' , 10);

745: ---------------------------------------------------------------------------------------------------------
746: --<<***BEGIN***>>--
747: begin
748: --
749: hr_utility.set_location('Entering:function Process' , 10);
750: --
751: initialise;
752: /*=============================================================================
753: Get the number of dependants. This is used in max seizable calculation.

Line 759: hr_utility.set_location('. Dependants Found='||l_no_of_dpndts,15);

755: open csr_no_of_dpndts;
756: fetch csr_no_of_dpndts into l_no_of_dpndts;
757: close csr_no_of_dpndts;
758: --
759: hr_utility.set_location('. Dependants Found='||l_no_of_dpndts,15);
760: g_assignment_action_id := p_assignment_action_id;
761: l_protected_amt := p_rmi;
762: --
763: if (p_net_payment_ptd + p_addl_seizable) <= l_protected_amt then

Line 764: hr_utility.set_location('Net Pay Not Valid return = 0' , 10);

760: g_assignment_action_id := p_assignment_action_id;
761: l_protected_amt := p_rmi;
762: --
763: if (p_net_payment_ptd + p_addl_seizable) <= l_protected_amt then
764: hr_utility.set_location('Net Pay Not Valid return = 0' , 10);
765: g_net_pay_valid := 'N';
766: return 0;
767: end if;
768: --

Line 782: hr_utility.set_location('Populating PL/SQL tables',15);

778: l_last_priority := 10;
779: -------------------------------------------------------------------------------------------------------
780: --<*><*><*><*><*><*><*><*><*><*><*> Populate PL/SQL Tables <*><*><*><*><*><*><*><*><*><*><*><*><*><*>--
781: -------------------------------------------------------------------------------------------------------
782: hr_utility.set_location('Populating PL/SQL tables',15);
783: i := 1;
784: for o in csr_get_court_orders loop
785: l_balance_itd := nvl(get_balance_value
786: (o.element_name

Line 897: hr_utility.set_location('PL/SQL tables populated',15);

893: null;
894: end;
895: --
896: end loop;
897: hr_utility.set_location('PL/SQL tables populated',15);
898: /*=====================================================================
899: Cannot have both P4's and P5's in same run - check if this is true.
900: =====================================================================*/
901: p_error_msg := validation;

Line 903: hr_utility.set_location(' Leaving:function Process return = 1' , 20);

899: Cannot have both P4's and P5's in same run - check if this is true.
900: =====================================================================*/
901: p_error_msg := validation;
902: if p_error_msg is not null then
903: hr_utility.set_location(' Leaving:function Process return = 1' , 20);
904: return 1;
905: end if;
906: hr_utility.set_location('Validation successful',15);
907: --------------------------------------------------------------------------------------------------------

Line 906: hr_utility.set_location('Validation successful',15);

902: if p_error_msg is not null then
903: hr_utility.set_location(' Leaving:function Process return = 1' , 20);
904: return 1;
905: end if;
906: hr_utility.set_location('Validation successful',15);
907: --------------------------------------------------------------------------------------------------------
908: --<*><*><*><*><*><*><*><*><*><*><*> Process Family Maintenance <*><*><*><*><*><*><*><*><*><*><*><*><*>--
909: --------------------------------------------------------------------------------------------------------
910: if total_order(10).number_of_orders > 0 then

Line 921: hr_utility.set_location('P1 processing complete',15);

917: l_actual_total_payment := total_order(10).payment;
918: --
919: end if; -- if no of P1's > 0
920: --
921: hr_utility.set_location('P1 processing complete',15);
922: g_funds := g_funds - l_actual_total_payment;
923: l_all_payments := l_actual_total_payment;
924: l_actual_total_payment := 0;
925: --------------------------------------------------------------------------------------------------------

Line 939: hr_utility.set_location('P15 processing complete',15);

935: l_actual_total_payment := total_order(15).payment;
936: --
937: end if; -- if no of P15's > 0
938: --
939: hr_utility.set_location('P15 processing complete',15);
940: --
941: g_funds := g_funds - l_actual_total_payment;
942: l_all_payments := l_all_payments + l_actual_total_payment;
943: --

Line 954: hr_utility.set_location('P2 processing complete',15);

950: process_values(p_priority => 20
951: ,p_funds => g_funds
952: ,p_actual_total_payment => l_actual_total_payment);
953: end if;
954: hr_utility.set_location('P2 processing complete',15);
955: --
956: g_funds := g_funds - l_actual_total_payment;
957: l_all_payments := l_all_payments + l_actual_total_payment;
958: --------------------------------------------------------------------------------------------------------

Line 981: hr_utility.set_location('P3 processing complete',15);

977: l_all_payments := l_all_payments + l_actual_total_payment;
978: end if;
979: end if;
980: end if;
981: hr_utility.set_location('P3 processing complete',15);
982: --------------------------------------------------------------------------------------------------------
983: --<*><*><*><*><*><*><*><*><*><*><*><*><*> Miscellaneous <*><*><*><*><*><*><*><*><*><*><*><*><*><*><*>--
984: --------------------------------------------------------------------------------------------------------
985: if g_funds > 0 then

Line 1007: hr_utility.set_location('P4 processing complete',15);

1003: --
1004: end if;
1005: end if; -- if no of P40's > 0
1006: end if;
1007: hr_utility.set_location('P4 processing complete',15);
1008: /*=====================================================================
1009: Recalculate remaining seizable
1010: =====================================================================*/
1011: l_rem_seizable := l_max_seizure - least(l_max_seizure,total_order(20).payment)

Line 1027: hr_utility.set_location('Processing P5 elements ..', 15);

1023: i := 50;
1024: l_max_shortfall := 0;
1025: l_shortfall := 0;
1026: --
1027: hr_utility.set_location('Processing P5 elements ..', 15);
1028: --
1029: while i <= total_order.last loop
1030: --
1031: l_actual_total_payment := 0;

Line 1040: hr_utility.set_location('Divide by zero error l_total_amount (2)', 15);

1036: l_total_payment := total_order(i).payment;
1037: l_total_amount := total_order(i).monthly_payment;
1038: --
1039: if l_total_amount = 0 then
1040: hr_utility.set_location('Divide by zero error l_total_amount (2)', 15);
1041: end if;
1042: --
1043: l_payment_pro := l_total_payment/l_total_amount;
1044: /*===============================================================================

Line 1083: hr_utility.set_location('P5 processing complete',15);

1079: i := i + 10;
1080: --
1081: end loop;
1082: --
1083: hr_utility.set_location('P5 processing complete',15);
1084: --
1085: end if; -- If rem_seizable > 0
1086: --
1087: hr_utility.set_location(' Leaving:function Process return = 0' , 10);

Line 1087: hr_utility.set_location(' Leaving:function Process return = 0' , 10);

1083: hr_utility.set_location('P5 processing complete',15);
1084: --
1085: end if; -- If rem_seizable > 0
1086: --
1087: hr_utility.set_location(' Leaving:function Process return = 0' , 10);
1088: return 0;
1089: --
1090: end process;
1091: --<<***END***>>--