[Home] [Help]
91: --
92: procedure clear_source is
93: l_proc varchar2(72) := g_package||'clear_source';
94: begin
95: hr_utility.set_location('Entering:'|| l_proc, 10);
96: g_source := null;
97: g_error_expected := false;
98: hr_utility.set_location(' Leaving:'|| l_proc, 20);
99: end clear_source;
94: begin
95: hr_utility.set_location('Entering:'|| l_proc, 10);
96: g_source := null;
97: g_error_expected := false;
98: hr_utility.set_location(' Leaving:'|| l_proc, 20);
99: end clear_source;
100: --
101: -- ----------------------------------------------------------------------------
102: -- |------------------------------< add_to_source >---------------------------|
130: (p_text in varchar2
131: ) is
132: l_proc varchar2(72) := g_package||'add_to_source';
133: begin
134: hr_utility.set_location('Entering:'|| l_proc, 10);
135: g_source := g_source || p_text;
136: hr_utility.set_location(' Leaving:'||l_proc, 20);
137: exception
138: when Plsql_Value_Error then
132: l_proc varchar2(72) := g_package||'add_to_source';
133: begin
134: hr_utility.set_location('Entering:'|| l_proc, 10);
135: g_source := g_source || p_text;
136: hr_utility.set_location(' Leaving:'||l_proc, 20);
137: exception
138: when Plsql_Value_Error then
139: -- Trap attempts to create more than 32K of package body source code.
140: --
143: -- in size. If so, reduce the number of procedures which need to be
144: -- called for this API module. The module will not execute until this
145: -- problem is resolved.
146: --
147: hr_utility.set_message(800, 'HR_51940_AHC_PACK_TOO_LARGE');
148: hr_utility.raise_error;
149: end add_to_source;
150: --
151: -- ----------------------------------------------------------------------------
144: -- called for this API module. The module will not execute until this
145: -- problem is resolved.
146: --
147: hr_utility.set_message(800, 'HR_51940_AHC_PACK_TOO_LARGE');
148: hr_utility.raise_error;
149: end add_to_source;
150: --
151: -- ----------------------------------------------------------------------------
152: -- |-----------------------------< error_expected >---------------------------|
178: procedure error_expected
179: is
180: l_proc varchar2(72) := g_package||'error_expected';
181: begin
182: hr_utility.set_location('Entering:'|| l_proc, 10);
183: g_error_expected := true;
184: hr_utility.set_location(' Leaving:'||l_proc, 20);
185: end error_expected;
186: --
180: l_proc varchar2(72) := g_package||'error_expected';
181: begin
182: hr_utility.set_location('Entering:'|| l_proc, 10);
183: g_error_expected := true;
184: hr_utility.set_location(' Leaving:'||l_proc, 20);
185: end error_expected;
186: --
187: -- ----------------------------------------------------------------------------
188: -- |----------------------------< execute_source >----------------------------|
218: l_execute integer; -- Value returned by
219: -- dbms_sql.execute
220: l_proc varchar2(72) := g_package||'execute_source';
221: begin
222: hr_utility.set_location('Entering:'|| l_proc, 10);
223: --
224: -- The whole of the new package body code has now been built,
225: -- use dynamic SQL to execute the create or replace package statement
226: --
227: l_dynamic_cursor := dbms_sql.open_cursor;
228: dbms_sql.parse(l_dynamic_cursor, g_source, dbms_sql.v7);
229: l_execute := dbms_sql.execute(l_dynamic_cursor);
230: dbms_sql.close_cursor(l_dynamic_cursor);
231: hr_utility.set_location(' Leaving:'|| l_proc, 20);
232: exception
233: --
234: -- In case of an unexpected error close the dynamic cursor
235: -- if it was successfully opened.
319: -- found in the hook parameter list.
320: l_para_valid boolean; -- Indicates if parameter is valid.
321: l_proc varchar2(72) := g_package||'chk_param_in_hook_proc_call';
322: begin
323: hr_utility.set_location('Entering:'|| l_proc, 10);
324: --
325: -- Assume the parameter is valid until an error is found
326: --
327: l_para_valid := true;
332: --
333: if p_call_parameter_overload <> p_previous_overload then
334: -- Error: A call package procedure cannot have any PL/SQL overloaded
335: -- versions. Code to carry out this hook call has not been created.
336: hr_utility.set_message(800, 'HR_51941_AHC_CALL_NO_OVER');
337: hr_utility.set_location(l_proc, 20);
338: l_para_valid := false;
339: --
340: -- Check the argument name has been set. If it is not set the entry
333: if p_call_parameter_overload <> p_previous_overload then
334: -- Error: A call package procedure cannot have any PL/SQL overloaded
335: -- versions. Code to carry out this hook call has not been created.
336: hr_utility.set_message(800, 'HR_51941_AHC_CALL_NO_OVER');
337: hr_utility.set_location(l_proc, 20);
338: l_para_valid := false;
339: --
340: -- Check the argument name has been set. If it is not set the entry
341: -- returned from hr_general.describe_procedure is for a function
343: --
344: elsif p_call_parameter_name is null then
345: -- Error: A package function cannot be called. Only package procedures
346: -- can be called. Code to carry out this hook call has not been created.
347: hr_utility.set_message(800, 'HR_51942_AHC_NO_FUNCTIONS');
348: hr_utility.set_location(l_proc, 30);
349: l_para_valid := false;
350: else
351: --
344: elsif p_call_parameter_name is null then
345: -- Error: A package function cannot be called. Only package procedures
346: -- can be called. Code to carry out this hook call has not been created.
347: hr_utility.set_message(800, 'HR_51942_AHC_NO_FUNCTIONS');
348: hr_utility.set_location(l_proc, 30);
349: l_para_valid := false;
350: else
351: --
352: l_para_found := false;
350: else
351: --
352: l_para_found := false;
353: l_loop := 0;
354: hr_utility.set_location(l_proc, 40);
355: --
356: -- Keep searching through the parameter names table until the parameter
357: -- name is found or the end of the list has been reached.
358: --
361: if p_hook_parameter_names(l_loop) = p_call_parameter_name then
362: l_para_found := true;
363: end if;
364: end loop; -- end of while loop
365: hr_utility.set_location(l_proc, 50);
366: --
367: -- If the parameter has been found carry out further parameter checks
368: --
369: if l_para_found then
379: else
380: -- Error: The *PARAMETER parameter to the call procedure must
381: -- have the same datatype as the value available at the hook.
382: -- Code to carry out this hook call has not been created.
383: hr_utility.set_message(800, 'HR_51943_AHC_CALL_PARA_D_TYPE');
384: hr_utility.set_message_token('PARAMETER', p_call_parameter_name);
385: hr_utility.set_location(l_proc, 60);
386: l_para_valid := false;
387: end if;
380: -- Error: The *PARAMETER parameter to the call procedure must
381: -- have the same datatype as the value available at the hook.
382: -- Code to carry out this hook call has not been created.
383: hr_utility.set_message(800, 'HR_51943_AHC_CALL_PARA_D_TYPE');
384: hr_utility.set_message_token('PARAMETER', p_call_parameter_name);
385: hr_utility.set_location(l_proc, 60);
386: l_para_valid := false;
387: end if;
388: --
381: -- have the same datatype as the value available at the hook.
382: -- Code to carry out this hook call has not been created.
383: hr_utility.set_message(800, 'HR_51943_AHC_CALL_PARA_D_TYPE');
384: hr_utility.set_message_token('PARAMETER', p_call_parameter_name);
385: hr_utility.set_location(l_proc, 60);
386: l_para_valid := false;
387: end if;
388: --
389: -- Check that the parameter to the call
392: elsif p_call_parameter_in_out <> 0 then
393: -- Error: At least one OUT or IN/OUT parameter has been specified
394: -- on the call procedure. You can only use IN parameters. Code to
395: -- carry out this hook call has not been created.
396: hr_utility.set_message(800, 'HR_51944_AHC_CALL_ONLY_IN_PARA');
397: hr_utility.set_location(l_proc, 70);
398: l_para_valid := false;
399: end if;
400: else
393: -- Error: At least one OUT or IN/OUT parameter has been specified
394: -- on the call procedure. You can only use IN parameters. Code to
395: -- carry out this hook call has not been created.
396: hr_utility.set_message(800, 'HR_51944_AHC_CALL_ONLY_IN_PARA');
397: hr_utility.set_location(l_proc, 70);
398: l_para_valid := false;
399: end if;
400: else
401: --
404: --
405: -- Error: There is a parameter to the call procedure which is not
406: -- available at this hook. Check your call procedure parameters.
407: -- Code to carry out this hook call has not been created.
408: hr_utility.set_message(800, 'HR_51945_AHC_CALL_NO_PARA');
409: hr_utility.set_location(l_proc, 80);
410: l_para_valid := false;
411: end if;
412: end if;
405: -- Error: There is a parameter to the call procedure which is not
406: -- available at this hook. Check your call procedure parameters.
407: -- Code to carry out this hook call has not been created.
408: hr_utility.set_message(800, 'HR_51945_AHC_CALL_NO_PARA');
409: hr_utility.set_location(l_proc, 80);
410: l_para_valid := false;
411: end if;
412: end if;
413: --
412: end if;
413: --
414: -- Return the parameter status
415: --
416: hr_utility.set_location(' Leaving:'||l_proc, 90);
417: return l_para_valid;
418: end chk_param_in_hook_proc_call;
419: --
420: -- ----------------------------------------------------------------------------
511: -- found in the hook parameter list.
512: l_para_valid boolean; -- Indicates if parameter is valid.
513: l_proc varchar2(72) := g_package||'chk_param_in_hook_leg_func';
514: begin
515: hr_utility.set_location('Entering:'|| l_proc, 10);
516: --
517: -- Assume the parameter is valid until an error is found
518: --
519: l_para_valid := true;
525: if p_call_parameter_overload <> p_previous_overload then
526: -- Error: A legislation package function cannot have any PL/SQL
527: -- overloaded versions. This API module will not execute until this
528: -- problem has been resolved.
529: hr_utility.set_message(800, 'HR_51946_AHK_LEG_NO_OVER');
530: hr_utility.set_location(l_proc, 20);
531: l_para_valid := false;
532: else
533: --
526: -- Error: A legislation package function cannot have any PL/SQL
527: -- overloaded versions. This API module will not execute until this
528: -- problem has been resolved.
529: hr_utility.set_message(800, 'HR_51946_AHK_LEG_NO_OVER');
530: hr_utility.set_location(l_proc, 20);
531: l_para_valid := false;
532: else
533: --
534: l_find_parameter_name := p_call_parameter_name;
533: --
534: l_find_parameter_name := p_call_parameter_name;
535: l_para_found := false;
536: l_loop := 0;
537: hr_utility.set_location(l_proc, 30);
538: --
539: -- Keep searching through the parameter names table until the parameter
540: -- name is found or the end of the list has been reached.
541: --
544: if p_hook_parameter_names(l_loop) = l_find_parameter_name then
545: l_para_found := true;
546: end if;
547: end loop; -- end of while loop
548: hr_utility.set_location(l_proc, 40);
549: --
550: -- If the parameter was not found attempt to search through the list
551: -- again. Except this time looking for the parameter with _O on the
552: -- end. There is no need to handle the case where the parameter name
555: -- HR_51949_AHK_LEG_NO_PARA error will be correctly raised later in
556: -- this procedure.
557: --
558: if not l_para_found then
559: hr_utility.set_location(l_proc, 50);
560: l_find_parameter_name := p_call_parameter_name || '_O';
561: l_loop := 0;
562: while (not l_para_found) and (l_loop < p_number_of_parameters) loop
563: l_loop := l_loop + 1;
565: l_para_found := true;
566: end if;
567: end loop; -- end of while loop
568: end if;
569: hr_utility.set_location(l_proc, 60);
570: --
571: -- If the parameter has been found carry out further parameter checks
572: --
573: if l_para_found then
578: if p_hook_parameter_datatypes(l_loop) <> p_call_parameter_datatype then
579: -- Error: The *PARAMETER parameter to the legislation function must
580: -- have the same datatype as the value available at the hook. This
581: -- API module will not execute until this problem has been resolved.
582: hr_utility.set_message(800, 'HR_51947_AHK_LEG_PARA_D_TYPE');
583: hr_utility.set_message_token('PARAMETER', p_call_parameter_name);
584: hr_utility.set_location(l_proc, 70);
585: l_para_valid := false;
586: --
579: -- Error: The *PARAMETER parameter to the legislation function must
580: -- have the same datatype as the value available at the hook. This
581: -- API module will not execute until this problem has been resolved.
582: hr_utility.set_message(800, 'HR_51947_AHK_LEG_PARA_D_TYPE');
583: hr_utility.set_message_token('PARAMETER', p_call_parameter_name);
584: hr_utility.set_location(l_proc, 70);
585: l_para_valid := false;
586: --
587: -- Check that the parameter to the call package function is
580: -- have the same datatype as the value available at the hook. This
581: -- API module will not execute until this problem has been resolved.
582: hr_utility.set_message(800, 'HR_51947_AHK_LEG_PARA_D_TYPE');
583: hr_utility.set_message_token('PARAMETER', p_call_parameter_name);
584: hr_utility.set_location(l_proc, 70);
585: l_para_valid := false;
586: --
587: -- Check that the parameter to the call package function is
588: -- of type IN
590: elsif p_call_parameter_in_out <> 0 then
591: -- Error: All the parameters to the legislation function must be
592: -- IN parameters. OUT or IN/OUT parameters are not allowed. This
593: -- API module will not execute until this problem has been resolved.
594: hr_utility.set_message(800, 'HR_51948_AHK_LEG_ONLY_IN_PARA');
595: hr_utility.set_location(l_proc, 80);
596: l_para_valid := false;
597: end if;
598: else
591: -- Error: All the parameters to the legislation function must be
592: -- IN parameters. OUT or IN/OUT parameters are not allowed. This
593: -- API module will not execute until this problem has been resolved.
594: hr_utility.set_message(800, 'HR_51948_AHK_LEG_ONLY_IN_PARA');
595: hr_utility.set_location(l_proc, 80);
596: l_para_valid := false;
597: end if;
598: else
599: --
602: --
603: -- Error: There is a parameter to the legislation function which
604: -- is not available at this hook. This API module will not execute
605: -- until this problem has been resolved.
606: hr_utility.set_message(800, 'HR_51949_AHK_LEG_NO_PARA');
607: hr_utility.set_location(l_proc, 90);
608: l_para_valid := false;
609: end if;
610: end if;
603: -- Error: There is a parameter to the legislation function which
604: -- is not available at this hook. This API module will not execute
605: -- until this problem has been resolved.
606: hr_utility.set_message(800, 'HR_51949_AHK_LEG_NO_PARA');
607: hr_utility.set_location(l_proc, 90);
608: l_para_valid := false;
609: end if;
610: end if;
611: hr_utility.set_location(l_proc, 100);
607: hr_utility.set_location(l_proc, 90);
608: l_para_valid := false;
609: end if;
610: end if;
611: hr_utility.set_location(l_proc, 100);
612: --
613: -- Pass out the parameter status values
614: --
615: if l_para_valid then
617: else
618: p_hook_parameter_name := null;
619: end if;
620: p_parameter_valid := l_para_valid;
621: hr_utility.set_location(' Leaving:'||l_proc, 110);
622: end chk_param_in_hook_leg_func;
623: --
624: -- ----------------------------------------------------------------------------
625: -- |--------------------------< make_procedure_call >-------------------------|
713: -- HR_API_HOOK_CALLS table.
714: l_call_code varchar2(32767) := null;
715: l_proc varchar2(72) := g_package||'make_procedure_call';
716: begin
717: hr_utility.set_location('Entering:'|| l_proc, 10);
718: --
719: -- Call an RDMS procedure to obtain the list of parameters to the call
720: -- package procedure. A separate begin ... end block has been specified so
721: -- that errors raised by hr_general.describe_procedure can be trapped and
742: exception
743: when Package_Not_Exists then
744: -- Error: The call_package does not exist in the database. Code to
745: -- carry out this hook call has not been created.
746: hr_utility.set_message(800, 'HR_51950_AHC_CALL_PKG_NO_EXIST');
747: l_describe_error := true;
748: hr_utility.set_location(l_proc, 20);
749: when Proc_Not_In_Package then
750: -- Error: The call_procedure does not exist in the call_package.
744: -- Error: The call_package does not exist in the database. Code to
745: -- carry out this hook call has not been created.
746: hr_utility.set_message(800, 'HR_51950_AHC_CALL_PKG_NO_EXIST');
747: l_describe_error := true;
748: hr_utility.set_location(l_proc, 20);
749: when Proc_Not_In_Package then
750: -- Error: The call_procedure does not exist in the call_package.
751: -- Code to carry out this hook call has not been created.
752: hr_utility.set_message(800, 'HR_51951_AHC_CALL_PRO_NO_EXIST');
748: hr_utility.set_location(l_proc, 20);
749: when Proc_Not_In_Package then
750: -- Error: The call_procedure does not exist in the call_package.
751: -- Code to carry out this hook call has not been created.
752: hr_utility.set_message(800, 'HR_51951_AHC_CALL_PRO_NO_EXIST');
753: l_describe_error := true;
754: hr_utility.set_location(l_proc, 30);
755: when Remote_Object then
756: -- Error: Remote objects cannot be called from API User Hooks.
750: -- Error: The call_procedure does not exist in the call_package.
751: -- Code to carry out this hook call has not been created.
752: hr_utility.set_message(800, 'HR_51951_AHC_CALL_PRO_NO_EXIST');
753: l_describe_error := true;
754: hr_utility.set_location(l_proc, 30);
755: when Remote_Object then
756: -- Error: Remote objects cannot be called from API User Hooks.
757: -- Code to carry out this hook call has not been created.
758: hr_utility.set_message(800, 'HR_51952_AHC_CALL_REMOTE_OBJ');
754: hr_utility.set_location(l_proc, 30);
755: when Remote_Object then
756: -- Error: Remote objects cannot be called from API User Hooks.
757: -- Code to carry out this hook call has not been created.
758: hr_utility.set_message(800, 'HR_51952_AHC_CALL_REMOTE_OBJ');
759: l_describe_error := true;
760: hr_utility.set_location(l_proc, 40);
761: when Invalid_Package then
762: -- Error: The call_package code in the database is invalid.
756: -- Error: Remote objects cannot be called from API User Hooks.
757: -- Code to carry out this hook call has not been created.
758: hr_utility.set_message(800, 'HR_51952_AHC_CALL_REMOTE_OBJ');
759: l_describe_error := true;
760: hr_utility.set_location(l_proc, 40);
761: when Invalid_Package then
762: -- Error: The call_package code in the database is invalid.
763: -- Code to carry out this hook call has not been created.
764: hr_utility.set_message(800, 'HR_51953_AHC_CALL_PKG_INVALID');
760: hr_utility.set_location(l_proc, 40);
761: when Invalid_Package then
762: -- Error: The call_package code in the database is invalid.
763: -- Code to carry out this hook call has not been created.
764: hr_utility.set_message(800, 'HR_51953_AHC_CALL_PKG_INVALID');
765: l_describe_error := true;
766: hr_utility.set_location(l_proc, 50);
767: when Invalid_Object_Name then
768: -- Error: An error has occurred while attempting to parse the name of
762: -- Error: The call_package code in the database is invalid.
763: -- Code to carry out this hook call has not been created.
764: hr_utility.set_message(800, 'HR_51953_AHC_CALL_PKG_INVALID');
765: l_describe_error := true;
766: hr_utility.set_location(l_proc, 50);
767: when Invalid_Object_Name then
768: -- Error: An error has occurred while attempting to parse the name of
769: -- the call package and call procedure. Check the package and procedure
770: -- names. Code to carry out this hook call has not been created.
767: when Invalid_Object_Name then
768: -- Error: An error has occurred while attempting to parse the name of
769: -- the call package and call procedure. Check the package and procedure
770: -- names. Code to carry out this hook call has not been created.
771: hr_utility.set_message(800, 'HR_51954_AHC_CALL_PARSE');
772: l_describe_error := true;
773: hr_utility.set_location(l_proc, 60);
774: end;
775: hr_utility.set_location(l_proc, 70);
769: -- the call package and call procedure. Check the package and procedure
770: -- names. Code to carry out this hook call has not been created.
771: hr_utility.set_message(800, 'HR_51954_AHC_CALL_PARSE');
772: l_describe_error := true;
773: hr_utility.set_location(l_proc, 60);
774: end;
775: hr_utility.set_location(l_proc, 70);
776: --
777: -- Only carry out the parameter validation if
771: hr_utility.set_message(800, 'HR_51954_AHC_CALL_PARSE');
772: l_describe_error := true;
773: hr_utility.set_location(l_proc, 60);
774: end;
775: hr_utility.set_location(l_proc, 70);
776: --
777: -- Only carry out the parameter validation if
778: -- hr_general.describe_procedure did not raise an error.
779: --
787: -- Build calling code with no parameters
788: --
789: l_call_code := p_call_package || '.' || p_call_procedure || ';';
790: l_call_code := l_call_code || c_new_line;
791: hr_utility.set_location(l_proc, 80);
792: else
793: --
794: -- Build calling code with parameters
795: --
793: --
794: -- Build calling code with parameters
795: --
796: l_call_code := p_call_package || '.' || p_call_procedure || c_new_line;
797: hr_utility.set_location(l_proc, 90);
798: --
799: -- Search through the tables returned to create the parameter list
800: --
801: l_loop := 1;
850: --
851: l_pre_overload := l_overload(l_loop);
852: l_loop := l_loop + 1;
853: end loop; -- end of while loop
854: hr_utility.set_location(l_proc, 100);
855: exception
856: when no_data_found then
857: -- Trap the PL/SQL no_data_found exception. Know we have already
858: -- read the details of the last parameter from the tables.
863: l_call_code := l_call_code || ');' || c_new_line;
864: end if;
865: end;
866: end if;
867: hr_utility.set_location(l_proc, 110);
868: --
869: if l_param_valid then
870: --
871: -- If the last parameter processed was valid then all the parameters must
934: add_to_source('-- investigation and resolution of this problem.');
935: add_to_source(c_new_line);
936: add_to_source('INVALID_SEE_COMMENT_IN_SOURCE;' || c_new_line);
937: end if;
938: hr_utility.set_location(l_proc, 120);
939: end if;
940: hr_utility.set_location(' Leaving:'|| l_proc, 130);
941: end make_procedure_call;
942: --
936: add_to_source('INVALID_SEE_COMMENT_IN_SOURCE;' || c_new_line);
937: end if;
938: hr_utility.set_location(l_proc, 120);
939: end if;
940: hr_utility.set_location(' Leaving:'|| l_proc, 130);
941: end make_procedure_call;
942: --
943: -- ----------------------------------------------------------------------------
944: -- |-------------------------< make_leg_function_call >-----------------------|
1037: l_pre_overload number; -- Overload number for the previous
1038: -- parameter.
1039: l_proc varchar2(72) := g_package||'make_leg_function_call';
1040: begin
1041: hr_utility.set_location('Entering:'|| l_proc, 10);
1042: --
1043: -- Build the code to call the specified legislation package function.
1044: -- Call an RDMS procedure to obtain the list of parameters to the
1045: -- legislation package function. A separate begin ... end block has been
1068: exception
1069: when Package_Not_Exists then
1070: -- Error: The legislation_package does not exist in the database.
1071: -- This API module will not execute until this problem has been resolved.
1072: hr_utility.set_message(800, 'HR_51955_AHK_LEG_PKG_NO_EXIST');
1073: l_err_found := true;
1074: hr_utility.set_location(l_proc, 20);
1075: when Proc_Not_In_Package then
1076: -- Error: The legislation_function does not exist in the
1070: -- Error: The legislation_package does not exist in the database.
1071: -- This API module will not execute until this problem has been resolved.
1072: hr_utility.set_message(800, 'HR_51955_AHK_LEG_PKG_NO_EXIST');
1073: l_err_found := true;
1074: hr_utility.set_location(l_proc, 20);
1075: when Proc_Not_In_Package then
1076: -- Error: The legislation_function does not exist in the
1077: -- legislation_package. This API module will not execute until this
1078: -- problem has been resolved.
1075: when Proc_Not_In_Package then
1076: -- Error: The legislation_function does not exist in the
1077: -- legislation_package. This API module will not execute until this
1078: -- problem has been resolved.
1079: hr_utility.set_message(800, 'HR_51956_AHK_LEG_FUN_NO_EXIST');
1080: l_err_found := true;
1081: hr_utility.set_location(l_proc, 30);
1082: when Remote_Object then
1083: -- Error: Remote objects cannot be called to find out the legislation
1077: -- legislation_package. This API module will not execute until this
1078: -- problem has been resolved.
1079: hr_utility.set_message(800, 'HR_51956_AHK_LEG_FUN_NO_EXIST');
1080: l_err_found := true;
1081: hr_utility.set_location(l_proc, 30);
1082: when Remote_Object then
1083: -- Error: Remote objects cannot be called to find out the legislation
1084: -- code. This API module will not execute until this problem has been
1085: -- resolved.
1082: when Remote_Object then
1083: -- Error: Remote objects cannot be called to find out the legislation
1084: -- code. This API module will not execute until this problem has been
1085: -- resolved.
1086: hr_utility.set_message(800, 'HR_51957_AHK_LEG_REMOTE_OBJ');
1087: l_err_found := true;
1088: hr_utility.set_location(l_proc, 40);
1089: when Invalid_Package then
1090: -- Error: The legislation_package code in the database is invalid.
1084: -- code. This API module will not execute until this problem has been
1085: -- resolved.
1086: hr_utility.set_message(800, 'HR_51957_AHK_LEG_REMOTE_OBJ');
1087: l_err_found := true;
1088: hr_utility.set_location(l_proc, 40);
1089: when Invalid_Package then
1090: -- Error: The legislation_package code in the database is invalid.
1091: -- This API module will not execute until this problem has been resolved.
1092: hr_utility.set_message(800, 'HR_51958_AHK_LEG_PKG_INVALID');
1088: hr_utility.set_location(l_proc, 40);
1089: when Invalid_Package then
1090: -- Error: The legislation_package code in the database is invalid.
1091: -- This API module will not execute until this problem has been resolved.
1092: hr_utility.set_message(800, 'HR_51958_AHK_LEG_PKG_INVALID');
1093: l_err_found := true;
1094: hr_utility.set_location(l_proc, 50);
1095: when Invalid_Object_Name then
1096: -- Error: An error has occurred while attempting to parse the name of
1090: -- Error: The legislation_package code in the database is invalid.
1091: -- This API module will not execute until this problem has been resolved.
1092: hr_utility.set_message(800, 'HR_51958_AHK_LEG_PKG_INVALID');
1093: l_err_found := true;
1094: hr_utility.set_location(l_proc, 50);
1095: when Invalid_Object_Name then
1096: -- Error: An error has occurred while attempting to parse the name of
1097: -- the legislation package and legislation function. Check the package
1098: -- and function names. This API module will not execute until this
1096: -- Error: An error has occurred while attempting to parse the name of
1097: -- the legislation package and legislation function. Check the package
1098: -- and function names. This API module will not execute until this
1099: -- problem has been resolved.
1100: hr_utility.set_message(800, 'HR_51959_AHK_LEG_PARSE');
1101: l_err_found := true;
1102: hr_utility.set_location(l_proc, 60);
1103: end;
1104: hr_utility.set_location(l_proc, 70);
1098: -- and function names. This API module will not execute until this
1099: -- problem has been resolved.
1100: hr_utility.set_message(800, 'HR_51959_AHK_LEG_PARSE');
1101: l_err_found := true;
1102: hr_utility.set_location(l_proc, 60);
1103: end;
1104: hr_utility.set_location(l_proc, 70);
1105: --
1106: -- Only carry out the parameter validation if
1100: hr_utility.set_message(800, 'HR_51959_AHK_LEG_PARSE');
1101: l_err_found := true;
1102: hr_utility.set_location(l_proc, 60);
1103: end;
1104: hr_utility.set_location(l_proc, 70);
1105: --
1106: -- Only carry out the parameter validation if
1107: -- hr_general.describe_procedure did not raise an error.
1108: --
1115: if l_argument_name(1) is not null then
1116: -- Error: The legislation function can only be a function. It cannot be
1117: -- a procedure. This API module will not execute until this problem has
1118: -- been resolved.
1119: hr_utility.set_message(800, 'HR_51965_AHK_LEG_MUST_FUN');
1120: l_err_found := true;
1121: hr_utility.set_location(l_proc, 80);
1122: --
1123: -- Ensure the function return datatype is varchar2.
1117: -- a procedure. This API module will not execute until this problem has
1118: -- been resolved.
1119: hr_utility.set_message(800, 'HR_51965_AHK_LEG_MUST_FUN');
1120: l_err_found := true;
1121: hr_utility.set_location(l_proc, 80);
1122: --
1123: -- Ensure the function return datatype is varchar2.
1124: --
1125: elsif l_datatype(1) <> c_dtype_varchar2 then
1124: --
1125: elsif l_datatype(1) <> c_dtype_varchar2 then
1126: -- Error: The legislation function must return a varchar2 value. This
1127: -- API module will not execute until this problem has been resolved.
1128: hr_utility.set_message(800, 'HR_51966_AHK_LEG_RTN_VARCHAR');
1129: l_err_found := true;
1130: hr_utility.set_location(l_proc, 90);
1131: end if;
1132: hr_utility.set_location(l_proc, 100);
1126: -- Error: The legislation function must return a varchar2 value. This
1127: -- API module will not execute until this problem has been resolved.
1128: hr_utility.set_message(800, 'HR_51966_AHK_LEG_RTN_VARCHAR');
1129: l_err_found := true;
1130: hr_utility.set_location(l_proc, 90);
1131: end if;
1132: hr_utility.set_location(l_proc, 100);
1133: if not l_err_found then
1134: --
1128: hr_utility.set_message(800, 'HR_51966_AHK_LEG_RTN_VARCHAR');
1129: l_err_found := true;
1130: hr_utility.set_location(l_proc, 90);
1131: end if;
1132: hr_utility.set_location(l_proc, 100);
1133: if not l_err_found then
1134: --
1135: -- Build the function call and parameter list. Checking that the
1136: -- required parameters are available in the hook package procedure.
1140: -- across an error would be raised.
1141: --
1142: l_call_code := 'l_legislation_code := ' || p_legislation_package || '.';
1143: l_call_code := l_call_code || p_legislation_function;
1144: hr_utility.set_location(l_proc, 110);
1145: --
1146: -- Search through the tables returned to create the parameter list
1147: --
1148: l_loop := 2;
1202: --
1203: l_pre_overload := l_overload(l_loop);
1204: l_loop := l_loop + 1;
1205: end loop; -- end of while loop
1206: hr_utility.set_location(l_proc, 120);
1207: exception
1208: when no_data_found then
1209: -- Trap the PL/SQL no_data_found exception. Know we have already
1210: -- read the details of the last parameter from the tables.
1217: l_call_code := l_call_code || ');' || c_new_line;
1218: end if;
1219: end;
1220: end if;
1221: hr_utility.set_location(l_proc, 130);
1222: --
1223: -- If no errors have been found then all the parameters must be valid.
1224: -- Add the find legislation source code to the rest of the hook package
1225: -- source code.
1226: --
1227: if not l_err_found then
1228: add_to_source(l_call_code);
1229: end if;
1230: hr_utility.set_location(l_proc, 140);
1231: end if;
1232: hr_utility.set_location(' Leaving:'|| l_proc, 150);
1233: return not l_err_found;
1234: end make_leg_function_call;
1228: add_to_source(l_call_code);
1229: end if;
1230: hr_utility.set_location(l_proc, 140);
1231: end if;
1232: hr_utility.set_location(' Leaving:'|| l_proc, 150);
1233: return not l_err_found;
1234: end make_leg_function_call;
1235: --
1236: -- ----------------------------------------------------------------------------
1297: -- Either p_business_group_id or
1298: -- p_business_group_id_o.
1299: l_proc varchar2(72) := g_package||'make_leg_bus_grp_call';
1300: begin
1301: hr_utility.set_location('Entering:'|| l_proc, 10);
1302: --
1303: -- Check that the p_business_group_id parameter actually exists in the
1304: -- hook package procedure parameter list. Search through the parameter
1305: -- names table until the p_business_group_id parameter is found or the
1314: l_bus_grp_found := true;
1315: end if;
1316: end if;
1317: end loop;
1318: hr_utility.set_location(l_proc, 20);
1319: --
1320: -- If the p_business_group_id parameter could not be found then search
1321: -- through the parameter list again for p_business_group_id_o.
1322: --
1322: --
1323: if not l_bus_grp_found then
1324: l_find_parameter := 'P_BUSINESS_GROUP_ID_O';
1325: l_loop := 0;
1326: hr_utility.set_location(l_proc, 30);
1327: while (not l_bus_grp_found) and (l_loop < p_number_of_parameters) loop
1328: l_loop := l_loop + 1;
1329: if p_hook_parameter_names(l_loop) = l_find_parameter then
1330: -- Check the datatype is NUMBER
1333: end if;
1334: end if;
1335: end loop;
1336: end if;
1337: hr_utility.set_location(l_proc, 40);
1338: --
1339: -- If the p_business_group_id or p_business_group_id_o number parameter
1340: -- has been found then generate a call to the hr_api.return_legislation_code
1341: -- function. Otherwise place an error message on the AOL message stack.
1343: if l_bus_grp_found then
1344: add_to_source('l_legislation_code := hr_api.return_legislation_code');
1345: add_to_source('(p_business_group_id => ' || l_find_parameter);
1346: add_to_source(');' || c_new_line);
1347: hr_utility.set_location(l_proc, 50);
1348: else
1349: -- Error: The legislation specific code cannot be called from this hook.
1350: -- The legislation package function has not been specified in the
1351: -- HR_API_HOOKS table, and the business_group_id value is not available
1350: -- The legislation package function has not been specified in the
1351: -- HR_API_HOOKS table, and the business_group_id value is not available
1352: -- at this hook. This API module will not execute until this problem has
1353: -- been resolved.
1354: hr_utility.set_message(800, 'HR_51967_AHK_LEG_NO_SPECIFIC');
1355: hr_utility.set_location(l_proc, 60);
1356: end if;
1357: hr_utility.set_location(' Leaving:'|| l_proc, 70);
1358: return l_bus_grp_found;
1351: -- HR_API_HOOKS table, and the business_group_id value is not available
1352: -- at this hook. This API module will not execute until this problem has
1353: -- been resolved.
1354: hr_utility.set_message(800, 'HR_51967_AHK_LEG_NO_SPECIFIC');
1355: hr_utility.set_location(l_proc, 60);
1356: end if;
1357: hr_utility.set_location(' Leaving:'|| l_proc, 70);
1358: return l_bus_grp_found;
1359: end make_leg_bus_grp_call;
1353: -- been resolved.
1354: hr_utility.set_message(800, 'HR_51967_AHK_LEG_NO_SPECIFIC');
1355: hr_utility.set_location(l_proc, 60);
1356: end if;
1357: hr_utility.set_location(' Leaving:'|| l_proc, 70);
1358: return l_bus_grp_found;
1359: end make_leg_bus_grp_call;
1360: --
1361: -- ----------------------------------------------------------------------------
1427: l_encoded_err_text varchar2(2000); -- When an error has occurred set to the
1428: -- AOL encoded error message text.
1429: l_proc varchar2(72) := g_package||'make_find_legislation';
1430: begin
1431: hr_utility.set_location('Entering:'|| l_proc, 10);
1432: --
1433: -- Build the source code which will find out the current legislation code
1434: --
1435: if (p_legislation_package is not null) and
1444: ,p_number_of_parameters => p_number_of_parameters
1445: ,p_hook_parameter_names => p_hook_parameter_names
1446: ,p_hook_parameter_datatypes => p_hook_parameter_datatypes
1447: );
1448: hr_utility.set_location(l_proc, 20);
1449: else
1450: --
1451: -- Otherwise the legislation_package and legislation_function has not
1452: -- been specified. Attempt to build the code which will use the
1457: (p_number_of_parameters => p_number_of_parameters
1458: ,p_hook_parameter_names => p_hook_parameter_names
1459: ,p_hook_parameter_datatypes => p_hook_parameter_datatypes
1460: );
1461: hr_utility.set_location(l_proc, 30);
1462: end if;
1463: --
1464: if not l_code_created then
1465: --
1498: add_to_source('created to force' || c_new_line);
1499: add_to_source('-- investigation and resolution of this problem.');
1500: add_to_source(c_new_line);
1501: add_to_source('INVALID_SEE_COMMENT_IN_SOURCE;' || c_new_line);
1502: hr_utility.set_location(l_proc, 40);
1503: --
1504: -- Write details of the error to the HR_API_HOOKS table
1505: --
1506: l_encoded_err_text := fnd_message.get_encoded;
1510: --
1511: update hr_api_hooks
1512: set encoded_error = l_encoded_err_text
1513: where api_hook_id = p_api_hook_id;
1514: hr_utility.set_location(l_proc, 50);
1515: end if;
1516: hr_utility.set_location(' Leaving:'|| l_proc, 60);
1517: end make_find_legislation;
1518: --
1512: set encoded_error = l_encoded_err_text
1513: where api_hook_id = p_api_hook_id;
1514: hr_utility.set_location(l_proc, 50);
1515: end if;
1516: hr_utility.set_location(' Leaving:'|| l_proc, 60);
1517: end make_find_legislation;
1518: --
1519: -- ----------------------------------------------------------------------------
1520: -- |------------------------< make_legislation_calls >------------------------|
1601: l_last_legislation varchar2(30); -- Remembers which legislation the
1602: -- last specific call was for.
1603: l_proc varchar2(72) := g_package||'make_legislation_calls';
1604: begin
1605: hr_utility.set_location('Entering:'|| l_proc, 10);
1606: --
1607: -- Add support call to allow for legislation hook switch off
1608: --
1609: add_to_source('if hr_api.call_leg_hooks then' || c_new_line);
1606: --
1607: -- Add support call to allow for legislation hook switch off
1608: --
1609: add_to_source('if hr_api.call_leg_hooks then' || c_new_line);
1610: hr_utility.set_location(l_proc, 20);
1611: --
1612: -- Build the source code which will find out the current legislation code
1613: -- when the data is held within the context of a business_group_id
1614: --
1621: ,p_hook_parameter_names => p_hook_parameter_names
1622: ,p_hook_parameter_datatypes => p_hook_parameter_datatypes
1623: );
1624: end if;
1625: hr_utility.set_location(l_proc, 30);
1626: --
1627: -- Build the list of legislation procedure calls
1628: --
1629: l_first_leg_call := true;
1677: ,p_hook_parameter_names => p_hook_parameter_names
1678: ,p_hook_parameter_datatypes => p_hook_parameter_datatypes
1679: );
1680: end loop;
1681: hr_utility.set_location(l_proc, 40);
1682: --
1683: -- Close the legislation if elsif ladder when the data is held within the
1684: -- context of a business_group_id and at least one legislation specific
1685: -- hook call has been made. (The if elsif ladder will not have started when
1691: --
1692: -- Close the support if statement
1693: --
1694: add_to_source('end if;' || c_new_line);
1695: hr_utility.set_location(' Leaving:'|| l_proc, 50);
1696: end make_legislation_calls;
1697: --
1698: -- ----------------------------------------------------------------------------
1699: -- |------------------------< make_application_calls >------------------------|
1762: order by ahc.sequence;
1763: --
1764: l_proc varchar2(72) := g_package||'make_application_calls';
1765: begin
1766: hr_utility.set_location('Entering:'|| l_proc, 10);
1767: --
1768: -- Add support call to allow for application hook switch off
1769: --
1770: add_to_source('if hr_api.call_app_hooks then' || c_new_line);
1767: --
1768: -- Add support call to allow for application hook switch off
1769: --
1770: add_to_source('if hr_api.call_app_hooks then' || c_new_line);
1771: hr_utility.set_location(l_proc, 20);
1772: --
1773: -- Build the list of legislation procedure calls
1774: --
1775: for l_app_calls in csr_app_calls loop
1790: --
1791: -- Close the support if statement
1792: --
1793: add_to_source('end if;' || c_new_line);
1794: hr_utility.set_location(' Leaving:'|| l_proc, 50);
1795: end make_application_calls;
1796: --
1797: -- ----------------------------------------------------------------------------
1798: -- |--------------------------< make_customer_calls >-------------------------|
1860: l_call_package varchar2(30); -- Value from Dynamic cursor
1861: l_call_procedure varchar2(30); -- Value from Dynamic cursor
1862: l_proc varchar2(72) := g_package||'make_customer_calls';
1863: begin
1864: hr_utility.set_location('Entering:'|| l_proc, 10);
1865: --
1866: -- Construct the SQL statement to be used. Dynamic SQL is being used
1867: -- because the rows to be processed depending on the sequence number
1868: -- range.
1895: --
1896: -- The p_sequence_number_range parameter
1897: -- has been set to an invalid value.
1898: --
1899: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1900: hr_utility.set_message_token('PROCEDURE', l_proc);
1901: hr_utility.set_message_token('STEP','20');
1902: hr_utility.raise_error;
1903: end if;
1896: -- The p_sequence_number_range parameter
1897: -- has been set to an invalid value.
1898: --
1899: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1900: hr_utility.set_message_token('PROCEDURE', l_proc);
1901: hr_utility.set_message_token('STEP','20');
1902: hr_utility.raise_error;
1903: end if;
1904: --
1897: -- has been set to an invalid value.
1898: --
1899: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1900: hr_utility.set_message_token('PROCEDURE', l_proc);
1901: hr_utility.set_message_token('STEP','20');
1902: hr_utility.raise_error;
1903: end if;
1904: --
1905: -- Execute the Dynamic SQL statement which has been created
1898: --
1899: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1900: hr_utility.set_message_token('PROCEDURE', l_proc);
1901: hr_utility.set_message_token('STEP','20');
1902: hr_utility.raise_error;
1903: end if;
1904: --
1905: -- Execute the Dynamic SQL statement which has been created
1906: --
1905: -- Execute the Dynamic SQL statement which has been created
1906: --
1907: -- Open dynamic cursor
1908: l_dynamic_cursor := dbms_sql.open_cursor;
1909: hr_utility.set_location(l_proc, 30);
1910: --
1911: -- Parse dynamic SQL
1912: dbms_sql.parse(l_dynamic_cursor, l_dynamic_sql, dbms_sql.v7);
1913: hr_utility.set_location(l_proc, 40);
1909: hr_utility.set_location(l_proc, 30);
1910: --
1911: -- Parse dynamic SQL
1912: dbms_sql.parse(l_dynamic_cursor, l_dynamic_sql, dbms_sql.v7);
1913: hr_utility.set_location(l_proc, 40);
1914: --
1915: -- Bind dynamic SQL variable
1916: dbms_sql.bind_variable(l_dynamic_cursor, ':p_api_hook_id', p_api_hook_id);
1917: hr_utility.set_location(l_proc, 50);
1913: hr_utility.set_location(l_proc, 40);
1914: --
1915: -- Bind dynamic SQL variable
1916: dbms_sql.bind_variable(l_dynamic_cursor, ':p_api_hook_id', p_api_hook_id);
1917: hr_utility.set_location(l_proc, 50);
1918: --
1919: -- Define dynamic SQL columns
1920: dbms_sql.define_column(l_dynamic_cursor, 1, l_api_hook_call_id);
1921: dbms_sql.define_column(l_dynamic_cursor, 2, l_object_version_number);
1920: dbms_sql.define_column(l_dynamic_cursor, 1, l_api_hook_call_id);
1921: dbms_sql.define_column(l_dynamic_cursor, 2, l_object_version_number);
1922: dbms_sql.define_column(l_dynamic_cursor, 3, l_call_package, 30);
1923: dbms_sql.define_column(l_dynamic_cursor, 4, l_call_procedure, 30);
1924: hr_utility.set_location(l_proc, 60);
1925: --
1926: -- Execute and fetch dynamic SQL
1927: --
1928: l_first_cus_call := true;
1926: -- Execute and fetch dynamic SQL
1927: --
1928: l_first_cus_call := true;
1929: l_execute := dbms_sql.execute(l_dynamic_cursor);
1930: hr_utility.set_location(l_proc, 70);
1931: while dbms_sql.fetch_rows(l_dynamic_cursor) > 0 loop
1932: --
1933: -- Get the column values for the current row
1934: --
1940: --
1941: -- Add support call to allow for customer hook switch off
1942: --
1943: add_to_source('if hr_api.call_cus_hooks then' || c_new_line);
1944: hr_utility.set_location(l_proc, 80);
1945: l_first_cus_call := false;
1946: end if;
1947: --
1948: -- Build the actual procedure call
1957: ,p_hook_parameter_names => p_hook_parameter_names
1958: ,p_hook_parameter_datatypes => p_hook_parameter_datatypes
1959: );
1960: end loop;
1961: hr_utility.set_location(l_proc, 90);
1962: --
1963: -- Close Dynamic Cursor
1964: --
1965: dbms_sql.close_cursor(l_dynamic_cursor);
1968: --
1969: if not l_first_cus_call then
1970: add_to_source('end if;' || c_new_line);
1971: end if;
1972: hr_utility.set_location(' Leaving:'|| l_proc, 100);
1973: exception
1974: --
1975: -- In case of an unexpected error ensure
1976: -- that the Dynamic Cursor is closed.
2032: and api_hook_id = p_api_hook_id;
2033: --
2034: l_proc varchar2(72) := g_package||'update_disabled_calls';
2035: begin
2036: hr_utility.set_location('Entering:'|| l_proc, 10);
2037: --
2038: -- Update all disabled, hook calls for a particular hook
2039: --
2040: for l_disabled in csr_disabled loop
2047: , object_version_number = object_version_number + 1
2048: where api_hook_call_id = l_disabled.api_hook_call_id
2049: and object_version_number = l_disabled.object_version_number;
2050: end loop; -- End Disabled Loop
2051: hr_utility.set_location(' Leaving:'|| l_proc, 20);
2052: end update_disabled_calls;
2053: --
2054: -- ----------------------------------------------------------------------------
2055: -- |----------------------------< procedure_code >----------------------------|
2199: -- before_process hook.
2200: l_exists number(15);
2201: l_proc varchar2(72) := g_package||'procedure_code';
2202: begin
2203: hr_utility.set_location('Entering:'|| l_proc, 10);
2204: --
2205: -- Work out the status of the all the types of hook call. These values
2206: -- affect how much code should be created in the hook procedure.
2207: --
2211: open csr_cus_call_exist;
2212: fetch csr_cus_call_exist into l_exists;
2213: l_cus_call_exist := csr_cus_call_exist%found;
2214: close csr_cus_call_exist;
2215: hr_utility.set_location(l_proc, 20);
2216: --
2217: -- Find out if any enabled, legislation hook calls exist for the
2218: -- current hook package procedure
2219: --
2220: open csr_leg_call_exist;
2221: fetch csr_leg_call_exist into l_exists;
2222: l_leg_call_exist := csr_leg_call_exist%found;
2223: close csr_leg_call_exist;
2224: hr_utility.set_location(l_proc, 30);
2225: --
2226: -- Find out if any enabled, application hook calls exist which
2227: -- match the called Application install status for the
2228: -- current hook package procedure
2230: open csr_app_call_exist;
2231: fetch csr_app_call_exist into l_exists;
2232: l_app_call_exist := csr_app_call_exist%found;
2233: close csr_app_call_exist;
2234: hr_utility.set_location(l_proc, 35);
2235: --
2236: -- For before_process hooks where data is held within the context
2237: -- of a business group find out if any enabled, legislation
2238: -- specific hook calls exist for the corresponding after_process
2242: open csr_ap_leg_call_exist;
2243: fetch csr_ap_leg_call_exist into l_exists;
2244: l_ap_leg_call_exist := csr_ap_leg_call_exist%found;
2245: close csr_ap_leg_call_exist;
2246: hr_utility.set_location(l_proc, 40);
2247: else
2248: l_ap_leg_call_exist := false;
2249: hr_utility.set_location(l_proc, 50);
2250: end if;
2245: close csr_ap_leg_call_exist;
2246: hr_utility.set_location(l_proc, 40);
2247: else
2248: l_ap_leg_call_exist := false;
2249: hr_utility.set_location(l_proc, 50);
2250: end if;
2251: --
2252: -- Create the procedure code. Include or exclude sections depending
2253: -- on the existence of the different types of hook.
2265: add_to_source('l_legislation_code varchar2(30);' || c_new_line);
2266: -- Begin
2267: add_to_source('begin' || c_new_line);
2268: -- 'Entering' set location
2269: add_to_source('hr_utility.set_location(' || '''' || 'Entering: ');
2270: add_to_source(p_hook_package || '.' || p_hook_procedure || '''');
2271: add_to_source(', 10);' || c_new_line);
2272: hr_utility.set_location(l_proc, 60);
2273: --
2268: -- 'Entering' set location
2269: add_to_source('hr_utility.set_location(' || '''' || 'Entering: ');
2270: add_to_source(p_hook_package || '.' || p_hook_procedure || '''');
2271: add_to_source(', 10);' || c_new_line);
2272: hr_utility.set_location(l_proc, 60);
2273: --
2274: if l_cus_call_exist or l_leg_call_exist or l_app_call_exist then
2275: -- When a hook call will be made obtain the commit unit number
2276: add_to_source('l_commit_unit_number := hr_api.return_commit_unit;');
2274: if l_cus_call_exist or l_leg_call_exist or l_app_call_exist then
2275: -- When a hook call will be made obtain the commit unit number
2276: add_to_source('l_commit_unit_number := hr_api.return_commit_unit;');
2277: add_to_source(c_new_line);
2278: hr_utility.set_location(l_proc, 70);
2279: end if;
2280: --
2281: if l_leg_call_exist or l_app_call_exist or l_ap_leg_call_exist then
2282: --
2303: -- legislation or application specific hook call then include a
2304: -- call to hr_multi_message.end_validation_set. This is required
2305: -- to support Multiple Message Detection.
2306: --
2307: hr_utility.set_location(l_proc, 80);
2308: if l_cus_call_exist then
2309: --
2310: -- Process any customer specific calls with a low sequence number.
2311: --
2356: ,p_hook_parameter_names => p_hook_parameter_names
2357: ,p_hook_parameter_datatypes => p_hook_parameter_datatypes
2358: ,p_sequence_number_range => 'HIGH'
2359: );
2360: hr_utility.set_location(l_proc, 110);
2361: end if;
2362: --
2363: if p_api_hook_type = 'AP' and
2364: (l_leg_call_exist or l_app_call_exist) then
2383: ,p_hook_parameter_names => p_hook_parameter_names
2384: ,p_hook_parameter_datatypes => p_hook_parameter_datatypes
2385: ,p_sequence_number_range => 'ALL'
2386: );
2387: hr_utility.set_location(l_proc, 120);
2388: end if;
2389: --
2390: if l_cus_call_exist or l_leg_call_exist or l_app_call_exist then
2391: -- When a hook call has be made check that commit unit
2393: --
2394: add_to_source('hr_api.validate_commit_unit(l_commit_unit_number, ');
2395: add_to_source('''' || p_module_name || '''' || ', ' || '''');
2396: add_to_source(p_api_hook_type || '''' || ');' || c_new_line);
2397: hr_utility.set_location(l_proc, 130);
2398: end if;
2399: else
2400: --
2401: -- No enabled hook calls exist. Do not define any local variables.
2401: -- No enabled hook calls exist. Do not define any local variables.
2402: -- Just define the begin statement and the 'entering' set_location.
2403: --
2404: add_to_source('begin' || c_new_line);
2405: add_to_source('hr_utility.set_location(' || '''' || 'Entering: ');
2406: add_to_source(p_hook_package || '.' || p_hook_procedure || '''');
2407: add_to_source(', 10);' || c_new_line);
2408: hr_utility.set_location(l_proc, 140);
2409: end if;
2404: add_to_source('begin' || c_new_line);
2405: add_to_source('hr_utility.set_location(' || '''' || 'Entering: ');
2406: add_to_source(p_hook_package || '.' || p_hook_procedure || '''');
2407: add_to_source(', 10);' || c_new_line);
2408: hr_utility.set_location(l_proc, 140);
2409: end if;
2410: --
2411: -- Any hook calls which have been disabled ensure the encoded_error,
2412: -- status and pre_processor_date columns are updated.
2416: --
2417: update_disabled_calls
2418: (p_api_hook_id => p_api_hook_id
2419: );
2420: hr_utility.set_location(' Leaving:'|| l_proc, 150);
2421: end procedure_code;
2422: --
2423: -- ----------------------------------------------------------------------------
2424: -- |-------------------------< make_parameter_list >--------------------------|
2514: -- when an error is written to
2515: -- the HR_API_HOOKS table.
2516: l_proc varchar2(72) := g_package||'make_parameter_list';
2517: begin
2518: hr_utility.set_location('Entering:'|| l_proc, 10);
2519: --
2520: -- Call an RDMS procedure to obtain the list of parameters to the hook
2521: -- package procedure. A separate begin ... end block has been specified so
2522: -- that errors raised by hr_general.describe_procedure can be trapped and
2546: -- database. Either the package header has not been loaded into the
2547: -- database or the hook package name specified in the HR_API_HOOKS
2548: -- table is incorrect. This API module will not execute until this
2549: -- problem has been resolved.
2550: hr_utility.set_message(800, 'HR_51960_AHK_HK_PKG_NOT_FOUND');
2551: l_error := true;
2552: hr_utility.set_location(l_proc, 20);
2553: when Proc_Not_In_Package then
2554: -- Error: The hook procedure does not exist in the hook package.
2548: -- table is incorrect. This API module will not execute until this
2549: -- problem has been resolved.
2550: hr_utility.set_message(800, 'HR_51960_AHK_HK_PKG_NOT_FOUND');
2551: l_error := true;
2552: hr_utility.set_location(l_proc, 20);
2553: when Proc_Not_In_Package then
2554: -- Error: The hook procedure does not exist in the hook package.
2555: -- This API module will not execute until this problem has been
2556: -- resolved.
2553: when Proc_Not_In_Package then
2554: -- Error: The hook procedure does not exist in the hook package.
2555: -- This API module will not execute until this problem has been
2556: -- resolved.
2557: hr_utility.set_message(800, 'HR_51961_AHK_HK_PRO_NO_EXIST');
2558: l_error := true;
2559: hr_utility.set_location(l_proc, 30);
2560: when Remote_Object then
2561: -- Error: Remote objects cannot used for API hook package procedures.
2555: -- This API module will not execute until this problem has been
2556: -- resolved.
2557: hr_utility.set_message(800, 'HR_51961_AHK_HK_PRO_NO_EXIST');
2558: l_error := true;
2559: hr_utility.set_location(l_proc, 30);
2560: when Remote_Object then
2561: -- Error: Remote objects cannot used for API hook package procedures.
2562: -- This API module will not execute until this problem has been
2563: -- resolved.
2560: when Remote_Object then
2561: -- Error: Remote objects cannot used for API hook package procedures.
2562: -- This API module will not execute until this problem has been
2563: -- resolved.
2564: hr_utility.set_message(800, 'HR_51962_AHK_HK_REMOTE_OBJ');
2565: l_error := true;
2566: hr_utility.set_location(l_proc, 40);
2567: when Invalid_Package then
2568: -- Error: The hook package code in the database is invalid.
2562: -- This API module will not execute until this problem has been
2563: -- resolved.
2564: hr_utility.set_message(800, 'HR_51962_AHK_HK_REMOTE_OBJ');
2565: l_error := true;
2566: hr_utility.set_location(l_proc, 40);
2567: when Invalid_Package then
2568: -- Error: The hook package code in the database is invalid.
2569: -- This API module will not execute until this problem has been
2570: -- resolved.
2567: when Invalid_Package then
2568: -- Error: The hook package code in the database is invalid.
2569: -- This API module will not execute until this problem has been
2570: -- resolved.
2571: hr_utility.set_message(800, 'HR_51963_AHK_HK_PKG_INVALID');
2572: l_error := true;
2573: hr_utility.set_location(l_proc, 50);
2574: when Invalid_Object_Name then
2575: -- Error: An error has occurred while attempting to parse the name of
2569: -- This API module will not execute until this problem has been
2570: -- resolved.
2571: hr_utility.set_message(800, 'HR_51963_AHK_HK_PKG_INVALID');
2572: l_error := true;
2573: hr_utility.set_location(l_proc, 50);
2574: when Invalid_Object_Name then
2575: -- Error: An error has occurred while attempting to parse the name of
2576: -- the hook package and hook procedure. Check the package and procedure
2577: -- names. This API module will not execute until this problem has been
2575: -- Error: An error has occurred while attempting to parse the name of
2576: -- the hook package and hook procedure. Check the package and procedure
2577: -- names. This API module will not execute until this problem has been
2578: -- resolved.
2579: hr_utility.set_message(800, 'HR_51964_AHK_HK_PARSE');
2580: l_error := true;
2581: hr_utility.set_location(l_proc, 60);
2582: end;
2583: hr_utility.set_location(l_proc, 70);
2577: -- names. This API module will not execute until this problem has been
2578: -- resolved.
2579: hr_utility.set_message(800, 'HR_51964_AHK_HK_PARSE');
2580: l_error := true;
2581: hr_utility.set_location(l_proc, 60);
2582: end;
2583: hr_utility.set_location(l_proc, 70);
2584: --
2585: -- Only continue with the individual parameter validation if
2579: hr_utility.set_message(800, 'HR_51964_AHK_HK_PARSE');
2580: l_error := true;
2581: hr_utility.set_location(l_proc, 60);
2582: end;
2583: hr_utility.set_location(l_proc, 70);
2584: --
2585: -- Only continue with the individual parameter validation if
2586: -- hr_general.describe_procedure did not raise an error.
2587: --
2619: l_datatype(l_loop) <> c_dtype_long then
2620: -- Error: In a hook package procedure all the parameter datatypes
2621: -- must be VARCHAR2, NUMBER, DATE, BOOLEAN or LONG. This API
2622: -- module will not execute until this problem has been resolved.
2623: hr_utility.set_message(800, 'HR_51968_AHK_HK_PARA_D_TYPE');
2624: l_error := true;
2625: hr_utility.set_location(l_proc, 80);
2626: else
2627: -- Set the datatype string with the corresponding word value
2621: -- must be VARCHAR2, NUMBER, DATE, BOOLEAN or LONG. This API
2622: -- module will not execute until this problem has been resolved.
2623: hr_utility.set_message(800, 'HR_51968_AHK_HK_PARA_D_TYPE');
2624: l_error := true;
2625: hr_utility.set_location(l_proc, 80);
2626: else
2627: -- Set the datatype string with the corresponding word value
2628: if l_datatype(l_loop) = c_dtype_varchar2 then
2629: l_datatype_str := 'VARCHAR2';
2646: if l_in_out(l_loop) <> c_ptype_in then
2647: -- Error: In a hook package procedure all the parameters must IN
2648: -- parameters. OUT or IN/OUT parameters are not allowed. This API
2649: -- module will not execute until this problem has been resolved.
2650: hr_utility.set_message(800, 'HR_51969_AHK_HK_ONLY_IN_PARA');
2651: l_error := true;
2652: hr_utility.set_location(l_proc, 90);
2653: --
2654: -- Check the parameter does not have a default value.
2648: -- parameters. OUT or IN/OUT parameters are not allowed. This API
2649: -- module will not execute until this problem has been resolved.
2650: hr_utility.set_message(800, 'HR_51969_AHK_HK_ONLY_IN_PARA');
2651: l_error := true;
2652: hr_utility.set_location(l_proc, 90);
2653: --
2654: -- Check the parameter does not have a default value.
2655: --
2656: elsif l_default_value(l_loop) = c_default_defined then
2657: -- Error: You cannot define default values for parameters to a
2658: -- hook package procedure. Ensure no defaults are defined. This
2659: -- API module will not execute until this problem has been
2660: -- resolved.
2661: hr_utility.set_message(800, 'HR_51970_AHK_HK_NO_DEFLT_PARA');
2662: l_error := true;
2663: hr_utility.set_location(l_proc, 100);
2664: --
2665: -- Check the overload number has not changed. More than one PL/SQL
2659: -- API module will not execute until this problem has been
2660: -- resolved.
2661: hr_utility.set_message(800, 'HR_51970_AHK_HK_NO_DEFLT_PARA');
2662: l_error := true;
2663: hr_utility.set_location(l_proc, 100);
2664: --
2665: -- Check the overload number has not changed. More than one PL/SQL
2666: -- version of the same procedure is not allowed.
2667: --
2668: elsif l_pre_overload <> l_overload(l_loop) then
2669: -- Error: A hook package procedure cannot have any PL/SQL
2670: -- overloaded versions. This API module will not execute until
2671: -- this problem has been resolved.
2672: hr_utility.set_message(800, 'HR_51971_AHK_HK_NO_OVER');
2673: l_error := true;
2674: hr_utility.set_location(l_proc, 110);
2675: --
2676: -- Check the argument name has been set. If it is not set entry
2670: -- overloaded versions. This API module will not execute until
2671: -- this problem has been resolved.
2672: hr_utility.set_message(800, 'HR_51971_AHK_HK_NO_OVER');
2673: l_error := true;
2674: hr_utility.set_location(l_proc, 110);
2675: --
2676: -- Check the argument name has been set. If it is not set entry
2677: -- returned from hr_general.describe_procedure is for a function
2678: -- return value. Hook package functions should not be called.
2680: elsif l_argument_name(l_loop) is null then
2681: -- Error: The hook package procedure can only be a procedure. It
2682: -- cannot be a function. This API module will not execute until
2683: -- this problem has been resolved.
2684: hr_utility.set_message(800, 'HR_51972_AHK_HK_NO_FUNCTIONS');
2685: l_error := true;
2686: hr_utility.set_location(l_proc, 120);
2687: end if;
2688: --
2682: -- cannot be a function. This API module will not execute until
2683: -- this problem has been resolved.
2684: hr_utility.set_message(800, 'HR_51972_AHK_HK_NO_FUNCTIONS');
2685: l_error := true;
2686: hr_utility.set_location(l_proc, 120);
2687: end if;
2688: --
2689: if not l_error then
2690: --
2698: -- Have already processed the first parameter. Separate this
2699: -- parameter from the previous parameter with a ,
2700: l_param_code := l_param_code || ',';
2701: end if;
2702: hr_utility.set_location(l_proc, 130);
2703: --
2704: l_param_code := l_param_code || l_argument_name(l_loop) ||
2705: ' in ' || l_datatype_str || c_new_line;
2706: --
2722: --
2723: exit;
2724: end if;
2725: end loop step_through_param_list;
2726: hr_utility.set_location(l_proc, 140);
2727: exception
2728: when no_data_found then
2729: -- Trap the PL/SQL no_data_found exception. Know we have already
2730: -- read the details of the last parameter from the tables.
2736: end if;
2737: end;
2738: end if;
2739: end if;
2740: hr_utility.set_location(l_proc, 150);
2741: --
2742: -- Set the out parameters for this procedure and update
2743: -- the error details in the hr_api_hooks table.
2744: --
2764: --
2765: update hr_api_hooks
2766: set encoded_error = null
2767: where api_hook_id = p_api_hook_id;
2768: hr_utility.set_location(l_proc, 160);
2769: else
2770: --
2771: -- The parameter list code for this hook procedure could not be generated
2772: -- due to an error. Write details of the error to the HR_API_HOOKS table.
2793: 'created to force' || c_new_line ||
2794: '-- investigation and resolution of this problem.' ||
2795: c_new_line || 'INVALID_SEE_COMMENT_IN_SOURCE;' ||
2796: c_new_line;
2797: hr_utility.set_location(l_proc, 170);
2798: --
2799: -- Write details of the error to the HR_API_HOOKS table
2800: --
2801: l_encoded_err_text := fnd_message.get_encoded;
2805: --
2806: update hr_api_hooks
2807: set encoded_error = l_encoded_err_text
2808: where api_hook_id = p_api_hook_id;
2809: hr_utility.set_location(l_proc, 180);
2810: end if;
2811: --
2812: -- Add the parameter list or error comment text
2813: -- to the rest of the hook package source code
2812: -- Add the parameter list or error comment text
2813: -- to the rest of the hook package source code
2814: --
2815: add_to_source(l_param_code);
2816: hr_utility.set_location(' Leaving:'|| l_proc, 190);
2817: end make_parameter_list;
2818: --
2819: -- ----------------------------------------------------------------------------
2820: -- |-------------------------< make_hook_procedure >--------------------------|
2897: l_hook_parameter_datatypes tbl_parameter_datatype;
2898: --
2899: l_proc varchar2(72) := g_package||'make_hook_procedure';
2900: begin
2901: hr_utility.set_location('Entering:'|| l_proc, 10);
2902: --
2903: -- Start of the procedure code
2904: --
2905: add_to_source('procedure ' || p_hook_procedure || c_new_line);
2914: ,p_hook_parameter_names => l_hook_parameter_names
2915: ,p_hook_parameter_datatypes => l_hook_parameter_datatypes
2916: ,p_param_list_error => l_param_list_error
2917: );
2918: hr_utility.set_location(l_proc, 20);
2919: --
2920: -- When there are no problems with the hook package procedure header and
2921: -- parameters then build the remainder of the hook procedure source code.
2922: --
2937: ,p_number_of_parameters => l_number_of_parameters
2938: ,p_hook_parameter_names => l_hook_parameter_names
2939: ,p_hook_parameter_datatypes => l_hook_parameter_datatypes
2940: );
2941: hr_utility.set_location(l_proc, 30);
2942: --
2943: -- End of the procedure code
2944: --
2945: add_to_source('hr_utility.set_location(' || '''' || ' Leaving: ');
2941: hr_utility.set_location(l_proc, 30);
2942: --
2943: -- End of the procedure code
2944: --
2945: add_to_source('hr_utility.set_location(' || '''' || ' Leaving: ');
2946: add_to_source(p_hook_package || '.' || p_hook_procedure || '''');
2947: add_to_source(', 20);' || c_new_line ||'end ' || p_hook_procedure || ';');
2948: add_to_source(c_new_line);
2949: end if;
2947: add_to_source(', 20);' || c_new_line ||'end ' || p_hook_procedure || ';');
2948: add_to_source(c_new_line);
2949: end if;
2950: --
2951: hr_utility.set_location(' Leaving:'|| l_proc, 40);
2952: end make_hook_procedure;
2953: --
2954: -- ----------------------------------------------------------------------------
2955: -- |--------------------------< create_procedures >---------------------------|
3001: and ahk.hook_package = p_hook_package;
3002: --
3003: l_proc varchar2(72) := g_package||'create_procedures';
3004: begin
3005: hr_utility.set_location('Entering:'|| l_proc, 10);
3006: --
3007: -- For each procedure listed in the current hook package make
3008: -- the hook procedure call.
3009: --
3019: ,p_data_within_business_group => l_proc.data_within_business_group
3020: );
3021: end loop;
3022: --
3023: hr_utility.set_location(' Leaving:'|| l_proc, 20);
3024: end create_procedures;
3025: --
3026: -- ----------------------------------------------------------------------------
3027: -- |-------------------------< create_header_line >---------------------------|
3100: -- i.e. The third and second last
3101: -- letters do not equal 'RK' or 'BK'.
3102: l_proc varchar2(72) := g_package||'create_header_line';
3103: begin
3104: hr_utility.set_location('Entering:'|| l_proc, 10);
3105: --
3106: -- Primary Method
3107: -- --------------
3108: -- Where possible the filename and revision number for the hook package
3274: end if;
3275: end if;
3276: end if;
3277: --
3278: hr_utility.set_location(' Leaving:'||l_proc, 140);
3279: end create_header_line;
3280: --
3281: -- ----------------------------------------------------------------------------
3282: -- |-------------------------< create_package_body >--------------------------|
3287: ) is
3288: --
3289: l_proc varchar2(72) := g_package||'create_package_body';
3290: begin
3291: hr_utility.set_location('Entering:'|| l_proc, 10);
3292: clear_source;
3293: --
3294: -- Build code for the start of the hook package
3295: --
3323: -- source code which has been built up.
3324: --
3325: execute_source;
3326: --
3327: hr_utility.set_location(' Leaving:'||l_proc, 60);
3328: end create_package_body;
3329:
3330: end hr_api_user_hooks;