DBA Data[Home] [Help]

APPS.PER_PERFRALC_PKG dependencies on HR_UTILITY

Line 87: hr_utility.set_location(l_procedure , 5);

83: l_user_column_instance_id := NULL;
84: --
85: l_procedure := 'Procedure run_process in the package per_perfralc_pkg';
86: --
87: hr_utility.set_location(l_procedure , 5);
88: --
89: if P_BUSINESS_GROUP_ID is not null then
90: select legislation_code into l_legislation_code
91: from per_business_groups

Line 117: hr_utility.trace('Successefully created table '|| P_LOOKUP_TYPE);

113: ,P_USER_KEY_UNITS => 'T'
114: ,P_USER_TABLE_NAME => P_LOOKUP_TYPE
115: ,P_USER_ROW_TITLE => P_ROW_TITLE);
116: --
117: hr_utility.trace('Successefully created table '|| P_LOOKUP_TYPE);
118: --
119: end if;
120: --
121: close csr_table_name;

Line 125: hr_utility.set_location(l_procedure , 10);

121: close csr_table_name;
122: --
123: -- Creating The Columns
124: --
125: hr_utility.set_location(l_procedure , 10);
126: --
127: open csr_column_name(l_user_table_id);
128: fetch csr_column_name into l_user_column_id;
129: if csr_column_name%notfound then

Line 140: hr_utility.trace('Successefully created column '|| P_FUNCTION_TYPE);

136: ,P_LEGISLATION_SUBGROUP => NULL
137: ,P_USER_COLUMN_NAME => P_FUNCTION_TYPE
138: ,P_FORMULA_ID => NULL);
139: --
140: hr_utility.trace('Successefully created column '|| P_FUNCTION_TYPE);
141: --
142: end if;
143: --
144: close csr_column_name;

Line 148: hr_utility.set_location(l_procedure , 15);

144: close csr_column_name;
145: --
146: -- Creating The Rows
147: --
148: hr_utility.set_location(l_procedure , 15);
149: --
150: open csr_lookup_code(l_user_table_id);
151: loop
152: --

Line 205: hr_utility.trace('Successefully created row '|| l_lookup_code);

201: (l_order_code_new),
202: NULL,
203: NULL);
204: --
205: hr_utility.trace('Successefully created row '|| l_lookup_code);
206: --
207: end if;
208: --
209: -- Creating The Column Values

Line 211: hr_utility.set_location(l_procedure , 20);

207: end if;
208: --
209: -- Creating The Column Values
210: --
211: hr_utility.set_location(l_procedure , 20);
212: --
213: l_user_column_instance_id := null;
214: open csr_instance(l_user_row_id,l_user_column_id);
215: fetch csr_instance into l_user_column_instance_id;

Line 273: hr_utility.trace ('Error in the '||l_procedure||' - ORA '||to_char(SQLCODE));

269: retcode := 0;
270: --
271: exception
272: when others then
273: hr_utility.trace ('Error in the '||l_procedure||' - ORA '||to_char(SQLCODE));
274: errbuf := sqlerrm;
275: retcode := 2;
276: rollback;
277: --

Line 323: hr_utility.set_location('perfralc - Clean_pay_tables ', 1);

319: WHERE USER_TABLE_ID = cp_user_table_id and
320: BUSINESS_GROUP_ID = cn_business_group_id;
321:
322: begin
323: hr_utility.set_location('perfralc - Clean_pay_tables ', 1);
324: -- Clean all the PAY_USER tables for one specific (lookup) table
325: --
326: --
327: -- Get first the user_table_id associated to the given user_table_name

Line 332: hr_utility.set_location('perfralc - Clean_pay_tables', 5);

328: OPEN Get_pay_user_tables_id (cp_user_table_name,cn_business_group_id);
329: FETCH Get_pay_user_tables_id into ln_user_table_id;
330: If (Get_pay_user_tables_id%FOUND) then
331: Begin
332: hr_utility.set_location('perfralc - Clean_pay_tables', 5);
333: hr_utility.set_location('user_table_id found for ' || cp_user_table_name, 5);
334: -- Get all the PAY_USER_COLUMNS associated to the user_table_name
335: -- For each column, get the Ids of the column instances to delete them
336: OPEN Get_pay_user_columns (ln_user_table_id,cn_business_group_id);

Line 333: hr_utility.set_location('user_table_id found for ' || cp_user_table_name, 5);

329: FETCH Get_pay_user_tables_id into ln_user_table_id;
330: If (Get_pay_user_tables_id%FOUND) then
331: Begin
332: hr_utility.set_location('perfralc - Clean_pay_tables', 5);
333: hr_utility.set_location('user_table_id found for ' || cp_user_table_name, 5);
334: -- Get all the PAY_USER_COLUMNS associated to the user_table_name
335: -- For each column, get the Ids of the column instances to delete them
336: OPEN Get_pay_user_columns (ln_user_table_id,cn_business_group_id);
337: Loop

Line 340: hr_utility.set_location('user_column_id found for ' || to_char(ln_user_column_id), 10);

336: OPEN Get_pay_user_columns (ln_user_table_id,cn_business_group_id);
337: Loop
338: FETCH Get_pay_user_columns into ln_user_column_id;
339: EXIT When Get_pay_user_columns%NOTFOUND;
340: hr_utility.set_location('user_column_id found for ' || to_char(ln_user_column_id), 10);
341: -- Get all the PAY_USER_ROWS_F Columns
342: OPEN Get_pay_user_rows_f (ln_user_table_id,cn_business_group_id);
343: Loop
344: FETCH Get_pay_user_rows_f into ln_pay_user_rows;

Line 347: hr_utility.set_location('user_rows_f found. to be deleted ' || to_char(ln_pay_user_rows), 15);

343: Loop
344: FETCH Get_pay_user_rows_f into ln_pay_user_rows;
345: EXIT When Get_pay_user_rows_f%NOTFOUND;
346:
347: hr_utility.set_location('user_rows_f found. to be deleted ' || to_char(ln_pay_user_rows), 15);
348: -- for each pay_user_row found, delete the associated
349: -- PAY_USER_COLUMN_INSTANCES_F (related value for added column)
350: DELETE FROM PAY_USER_COLUMN_INSTANCES_F
351: WHERE USER_ROW_ID = ln_pay_user_rows and

Line 361: hr_utility.set_location('perfralc - delete pay_user_row, column and table rows' , 20);

357:
358: End Loop;
359: CLOSE Get_pay_user_columns;
360:
361: hr_utility.set_location('perfralc - delete pay_user_row, column and table rows' , 20);
362: -- Delete all the PAY_USER_ROW, COLUMNS and TABLE rows
363: DELETE FROM PAY_USER_ROWS_F
364: WHERE USER_TABLE_ID = ln_user_table_id and
365: BUSINESS_GROUP_ID = cn_business_group_id;

Line 377: hr_utility.set_location('perfralc - End Clean_pay_tables', 50);

373: BUSINESS_GROUP_ID = cn_business_group_id;
374: end;
375: end if;
376: CLOSE Get_pay_user_tables_id;
377: hr_utility.set_location('perfralc - End Clean_pay_tables', 50);
378: end;
379:
380:
381:

Line 448: hr_utility.set_location('perfralc - set_instance_value - Entering',1);

444:
445: Begin
446: -- First, Get the table_id
447: --
448: hr_utility.set_location('perfralc - set_instance_value - Entering',1);
449: OPEN Get_pay_user_tables_id (cp_user_table_name,cn_business_group_id);
450: FETCH Get_pay_user_tables_id into ln_user_table_id;
451: if (Get_pay_user_tables_id%NOTFOUND) Then
452: hr_utility.set_location('perfralc - set_instance_value - unknown table_name : ' || cp_user_table_name, 5);

Line 452: hr_utility.set_location('perfralc - set_instance_value - unknown table_name : ' || cp_user_table_name, 5);

448: hr_utility.set_location('perfralc - set_instance_value - Entering',1);
449: OPEN Get_pay_user_tables_id (cp_user_table_name,cn_business_group_id);
450: FETCH Get_pay_user_tables_id into ln_user_table_id;
451: if (Get_pay_user_tables_id%NOTFOUND) Then
452: hr_utility.set_location('perfralc - set_instance_value - unknown table_name : ' || cp_user_table_name, 5);
453: Else
454: hr_utility.set_location(' --> table_id = ' || to_char(ln_user_table_id),2);
455: -- Get the column id
456: --

Line 454: hr_utility.set_location(' --> table_id = ' || to_char(ln_user_table_id),2);

450: FETCH Get_pay_user_tables_id into ln_user_table_id;
451: if (Get_pay_user_tables_id%NOTFOUND) Then
452: hr_utility.set_location('perfralc - set_instance_value - unknown table_name : ' || cp_user_table_name, 5);
453: Else
454: hr_utility.set_location(' --> table_id = ' || to_char(ln_user_table_id),2);
455: -- Get the column id
456: --
457: OPEN Get_column_id (ln_user_table_id,cp_user_column_name,cn_business_group_id);
458: FETCH Get_column_id into ln_user_column_id;

Line 460: hr_utility.set_location('perfralc - set_instance_value - unknown column_name : ' || cp_user_column_name, 10);

456: --
457: OPEN Get_column_id (ln_user_table_id,cp_user_column_name,cn_business_group_id);
458: FETCH Get_column_id into ln_user_column_id;
459: if (Get_column_id%NOTFOUND) Then
460: hr_utility.set_location('perfralc - set_instance_value - unknown column_name : ' || cp_user_column_name, 10);
461: Else
462: hr_utility.set_location(' --> column_id = ' || to_char(ln_user_column_id),2);
463: -- Get the row id, and check if only one instance is defined
464: --

Line 462: hr_utility.set_location(' --> column_id = ' || to_char(ln_user_column_id),2);

458: FETCH Get_column_id into ln_user_column_id;
459: if (Get_column_id%NOTFOUND) Then
460: hr_utility.set_location('perfralc - set_instance_value - unknown column_name : ' || cp_user_column_name, 10);
461: Else
462: hr_utility.set_location(' --> column_id = ' || to_char(ln_user_column_id),2);
463: -- Get the row id, and check if only one instance is defined
464: --
465: ln_count_row_id := 0;
466: OPEN Get_row_id (ln_user_table_id,cp_row_name,cn_business_group_id);

Line 474: hr_utility.set_location('perfralc - set_instance_value - unknown row_name : ' || cp_row_name, 15);

470: ln_count_row_id := ln_count_row_id + 1;
471: End Loop;
472:
473: if (ln_count_row_id = 0) Then
474: hr_utility.set_location('perfralc - set_instance_value - unknown row_name : ' || cp_row_name, 15);
475: Else if (ln_count_row_id > 1) Then
476: hr_utility.set_location('more than one effective row for ' || cp_row_name,16);
477: hr_utility.set_location('nothing to do ...',17);
478: else

Line 476: hr_utility.set_location('more than one effective row for ' || cp_row_name,16);

472:
473: if (ln_count_row_id = 0) Then
474: hr_utility.set_location('perfralc - set_instance_value - unknown row_name : ' || cp_row_name, 15);
475: Else if (ln_count_row_id > 1) Then
476: hr_utility.set_location('more than one effective row for ' || cp_row_name,16);
477: hr_utility.set_location('nothing to do ...',17);
478: else
479: Begin
480: hr_utility.set_location(' --> Row_id = ' || to_char(ln_user_row_id),18);

Line 477: hr_utility.set_location('nothing to do ...',17);

473: if (ln_count_row_id = 0) Then
474: hr_utility.set_location('perfralc - set_instance_value - unknown row_name : ' || cp_row_name, 15);
475: Else if (ln_count_row_id > 1) Then
476: hr_utility.set_location('more than one effective row for ' || cp_row_name,16);
477: hr_utility.set_location('nothing to do ...',17);
478: else
479: Begin
480: hr_utility.set_location(' --> Row_id = ' || to_char(ln_user_row_id),18);
481: -- Get the column_instance_id to update the value

Line 480: hr_utility.set_location(' --> Row_id = ' || to_char(ln_user_row_id),18);

476: hr_utility.set_location('more than one effective row for ' || cp_row_name,16);
477: hr_utility.set_location('nothing to do ...',17);
478: else
479: Begin
480: hr_utility.set_location(' --> Row_id = ' || to_char(ln_user_row_id),18);
481: -- Get the column_instance_id to update the value
482: OPEN Get_column_instance_id (ln_user_row_id,ln_user_column_id,cn_business_group_id);
483:
484: -- Check if we have more than one column (different effective dates) for this instance

Line 493: hr_utility.set_location('no change to do. More than one instance : ' || cp_row_name, 15);

489: ln_count_column_instance_id := ln_count_column_instance_id + 1;
490: End Loop;
491:
492: if (ln_count_column_instance_id > 1) then
493: hr_utility.set_location('no change to do. More than one instance : ' || cp_row_name, 15);
494: Else
495: Begin
496: hr_utility.set_location(' Update PAY_USER_COLUMN_INSTANCES_F for ' || to_char(ln_column_instance_id),16);
497: UPDATE PAY_USER_COLUMN_INSTANCES_F

Line 496: hr_utility.set_location(' Update PAY_USER_COLUMN_INSTANCES_F for ' || to_char(ln_column_instance_id),16);

492: if (ln_count_column_instance_id > 1) then
493: hr_utility.set_location('no change to do. More than one instance : ' || cp_row_name, 15);
494: Else
495: Begin
496: hr_utility.set_location(' Update PAY_USER_COLUMN_INSTANCES_F for ' || to_char(ln_column_instance_id),16);
497: UPDATE PAY_USER_COLUMN_INSTANCES_F
498: set value = cp_value
499: where user_column_instance_id = ln_column_instance_id;
500: EXCEPTION

Line 502: hr_utility.set_location ('perfralc - set_instance_value - unable to update row into PAY_USER_COLUMN_INSTANCES_F '|| to_char(ln_column_instance_id), 20);

498: set value = cp_value
499: where user_column_instance_id = ln_column_instance_id;
500: EXCEPTION
501: WHEN OTHERS Then
502: hr_utility.set_location ('perfralc - set_instance_value - unable to update row into PAY_USER_COLUMN_INSTANCES_F '|| to_char(ln_column_instance_id), 20);
503: End;
504: End if;
505: End;
506: end if;

Line 514: hr_utility.set_location('perfralc - Set_instance_value - Leaving',30);

510: CLOSE Get_column_id;
511: End if;
512: CLOSE Get_pay_user_tables_id;
513:
514: hr_utility.set_location('perfralc - Set_instance_value - Leaving',30);
515:
516: End;
517:
518: ------------------------------------------------------------------------

Line 558: hr_utility.set_location(' ',1);

554:
555:
556:
557: Begin
558: hr_utility.set_location(' ',1);
559: hr_utility.set_location('per_perfralc_pkg - Entering update_instance_value', 1);
560: hr_utility.set_location('--------------------------------------------------',1);
561:
562: -- First case - only process the business_group

Line 559: hr_utility.set_location('per_perfralc_pkg - Entering update_instance_value', 1);

555:
556:
557: Begin
558: hr_utility.set_location(' ',1);
559: hr_utility.set_location('per_perfralc_pkg - Entering update_instance_value', 1);
560: hr_utility.set_location('--------------------------------------------------',1);
561:
562: -- First case - only process the business_group
563: if (cn_business_group_id is NOT NULL) Then

Line 560: hr_utility.set_location('--------------------------------------------------',1);

556:
557: Begin
558: hr_utility.set_location(' ',1);
559: hr_utility.set_location('per_perfralc_pkg - Entering update_instance_value', 1);
560: hr_utility.set_location('--------------------------------------------------',1);
561:
562: -- First case - only process the business_group
563: if (cn_business_group_id is NOT NULL) Then
564: -- check the existance of this business_group,and get the associated legislation_code

Line 574: hr_utility.set_location('unable to update the instance - unknown business_group ' || to_char(cn_business_group_id),10);

570: where pbg.business_group_id = cn_business_group_id;
571: end;
572:
573: if (ln_temp_leg_code = '') then
574: hr_utility.set_location('unable to update the instance - unknown business_group ' || to_char(cn_business_group_id),10);
575: Else
576: Begin
577: if (ln_temp_leg_code <> '') and (cp_legislation_code <> '') and (ln_temp_leg_code <> cp_legislation_code) Then
578: hr_utility.set_location('unable to update the instance - incompatible business group and legislation code ',20);

Line 578: hr_utility.set_location('unable to update the instance - incompatible business group and legislation code ',20);

574: hr_utility.set_location('unable to update the instance - unknown business_group ' || to_char(cn_business_group_id),10);
575: Else
576: Begin
577: if (ln_temp_leg_code <> '') and (cp_legislation_code <> '') and (ln_temp_leg_code <> cp_legislation_code) Then
578: hr_utility.set_location('unable to update the instance - incompatible business group and legislation code ',20);
579: else
580: -- call the update procedure only for the business_group
581: hr_utility.set_location(' Processed the business_group ' || to_char(cn_business_group_id),21);
582: set_instance_value(cn_business_group_id,

Line 581: hr_utility.set_location(' Processed the business_group ' || to_char(cn_business_group_id),21);

577: if (ln_temp_leg_code <> '') and (cp_legislation_code <> '') and (ln_temp_leg_code <> cp_legislation_code) Then
578: hr_utility.set_location('unable to update the instance - incompatible business group and legislation code ',20);
579: else
580: -- call the update procedure only for the business_group
581: hr_utility.set_location(' Processed the business_group ' || to_char(cn_business_group_id),21);
582: set_instance_value(cn_business_group_id,
583: ln_temp_leg_code,
584: cp_user_table_name,
585: cp_user_column_name,

Line 608: hr_utility.set_location('perfralc - Updte_Instance_value - Leaving ..',30);

604: cp_value);
605: End Loop;
606: end if;
607:
608: hr_utility.set_location('perfralc - Updte_Instance_value - Leaving ..',30);
609: End;
610: --
611: end PER_PERFRALC_PKG;