[Home] [Help]
114: and wat2.version = wa2.version
115: and wat2.language = g_language;
116: --
117: begin
118: hr_utility.set_location('Entering:'||l_proc, 10);
119: open csr_sel_names;
120: fetch csr_sel_names
121: into p_activity_display_name, p_item_type_display_name, p_process_display_name;
122: if csr_sel_names%notfound then
124: p_activity_display_name := null;
125: p_process_display_name := null;
126: end if;
127: close csr_sel_names;
128: hr_utility.set_location('Leaving:'||l_proc, 20);
129: end get_item_act_display_names;
130: -- --------------------------------------------------------------------------
131: -- |-------------------------< get_nav_node_usage_id >----------------------|
132: -- --------------------------------------------------------------------------
133: function get_nav_node_usage_id(p_instance_id in number) return number is
134: l_nav_node_usage_id number;
135: l_proc varchar2(72) := g_package||'get_nav_node_usage_id';
136: begin
137: hr_utility.set_location('Entering:'||l_proc, 10);
138: for i in g_node_usage_tab.first..g_node_usage_tab.last loop
139: if g_node_usage_tab(i).instance_id = p_instance_id then
140: hr_utility.set_location(l_proc, 15);
141: l_nav_node_usage_id := g_node_usage_tab(i).nav_node_usage_id;
136: begin
137: hr_utility.set_location('Entering:'||l_proc, 10);
138: for i in g_node_usage_tab.first..g_node_usage_tab.last loop
139: if g_node_usage_tab(i).instance_id = p_instance_id then
140: hr_utility.set_location(l_proc, 15);
141: l_nav_node_usage_id := g_node_usage_tab(i).nav_node_usage_id;
142: exit;
143: end if;
144: end loop;
141: l_nav_node_usage_id := g_node_usage_tab(i).nav_node_usage_id;
142: exit;
143: end if;
144: end loop;
145: hr_utility.set_location('Leaving:'||l_proc, 20);
146: return (l_nav_node_usage_id);
147: end get_nav_node_usage_id;
148: -- --------------------------------------------------------------------------
149: -- |-------------------------< get_override_label >-------------------------|
151: function get_override_label(p_instance_id in number) return varchar2 is
152: l_override_label hr_navigation_paths.override_label%type := null;
153: l_proc varchar2(72) := g_package||'get_override_label';
154: begin
155: hr_utility.set_location('Entering:'||l_proc, 10);
156: for i in g_node_usage_tab.first..g_node_usage_tab.last loop
157: if g_node_usage_tab(i).instance_id = p_instance_id then
158: hr_utility.set_location(l_proc, 15);
159: l_override_label := g_node_usage_tab(i).override_label;
154: begin
155: hr_utility.set_location('Entering:'||l_proc, 10);
156: for i in g_node_usage_tab.first..g_node_usage_tab.last loop
157: if g_node_usage_tab(i).instance_id = p_instance_id then
158: hr_utility.set_location(l_proc, 15);
159: l_override_label := g_node_usage_tab(i).override_label;
160: exit;
161: end if;
162: end loop;
159: l_override_label := g_node_usage_tab(i).override_label;
160: exit;
161: end if;
162: end loop;
163: hr_utility.set_location('Leaving:'||l_proc, 20);
164: return (l_override_label);
165: end get_override_label;
166: -- --------------------------------------------------------------------------
167: -- |-------------------------------< get_sqlform >-------------------------|
169: function get_sqlform(p_instance_id in number) return varchar2 is
170: l_sqlform hr_navigation_units.form_name%type := null;
171: l_proc varchar2(72) := g_package||'get_sqlform';
172: begin
173: hr_utility.set_location('Entering:'||l_proc, 10);
174: for i in g_node_usage_tab.first..g_node_usage_tab.last loop
175: if g_node_usage_tab(i).instance_id = p_instance_id then
176: hr_utility.set_location(l_proc, 15);
177: l_sqlform := g_node_usage_tab(i).sqlform;
172: begin
173: hr_utility.set_location('Entering:'||l_proc, 10);
174: for i in g_node_usage_tab.first..g_node_usage_tab.last loop
175: if g_node_usage_tab(i).instance_id = p_instance_id then
176: hr_utility.set_location(l_proc, 15);
177: l_sqlform := g_node_usage_tab(i).sqlform;
178: exit;
179: end if;
180: end loop;
177: l_sqlform := g_node_usage_tab(i).sqlform;
178: exit;
179: end if;
180: end loop;
181: hr_utility.set_location('Leaving:'||l_proc, 20);
182: return (l_sqlform);
183: end get_sqlform;
184: -- ----------------------------------------------------------------------------
185: -- |-----------------< set_root_process_activity_id >-------------------------|
202: --
203: l_proc varchar2(72) := g_package||'set_root_process_activity_id';
204: --
205: begin
206: hr_utility.set_location('Entering:'||l_proc, 10);
207: open l_get_instance_id;
208: fetch l_get_instance_id into g_root_process_id;
209: if l_get_instance_id%notfound then
210: -- error the root process specified does not exist
214: fnd_message.set_token('STEP','10');
215: fnd_message.raise_error;
216: end if;
217: close l_get_instance_id;
218: hr_utility.set_location('Leaving:'||l_proc, 20);
219: end set_root_process_activity_id;
220: -- ----------------------------------------------------------------------------
221: -- |--------------------< set_root_form_activity_id >-------------------------|
222: -- ----------------------------------------------------------------------------
250: l_index number := 0;
251: l_result_code wf_activity_transitions.result_code%type;
252: --
253: begin
254: hr_utility.set_location('Entering:'||l_proc, 10);
255: -- get the instance_id of the ROOT_TASKFLOW_FORM_SELECTOR
256: -- the reason a for loop is used is to check that one and only
257: -- only ROOT_TASKFLOW_FORM_SELECTOR exists
258: for l_csr in l_get_instance_id loop
258: for l_csr in l_get_instance_id loop
259: -- incrment the counter
260: l_index := l_index + 1;
261: if l_index > 1 then
262: hr_utility.set_location(l_proc, 15);
263: -- exit out of the loop if more than one row is returned
264: exit;
265: else
266: -- set the instance id
266: -- set the instance id
267: l_instance_id := l_csr.instance_id;
268: end if;
269: end loop;
270: hr_utility.set_location(l_proc, 20);
271: --
272: if l_index = 0 then
273: -- a root selector does not exist for the process
274: -- select the root process details that is in error
295: fnd_message.set_token(g_process_name, g_activity_display_name);
296: fnd_message.set_token(g_item_type, g_item_type_display_name);
297: fnd_message.raise_error;
298: end if;
299: hr_utility.set_location(l_proc, 25);
300: -- now that we have found the selector activity we must determine the
301: -- root form
302: l_index := 0;
303: for l_csr in l_get_root_instance_id(l_instance_id) loop
303: for l_csr in l_get_root_instance_id(l_instance_id) loop
304: -- incrment the counter
305: l_index := l_index + 1;
306: if l_index > 1 then
307: hr_utility.set_location(l_proc, 30);
308: exit;
309: else
310: -- ensure that the activity selected is a form
311: g_root_form_activity_id := l_csr.to_process_activity;
311: g_root_form_activity_id := l_csr.to_process_activity;
312: l_result_code := l_csr.result_code;
313: end if;
314: end loop;
315: hr_utility.set_location(l_proc, 35);
316: --
317: if l_index = 0 then
318: -- the root form does not actually transition to a form so error
319: -- select the root process details that is in error
340: fnd_message.set_token(g_process_name, g_activity_display_name);
341: fnd_message.set_token(g_item_type, g_item_type_display_name);
342: fnd_message.raise_error;
343: end if;
344: hr_utility.set_location(l_proc, 40);
345: -- ensure that the activity selected is a form and the transition matches the activity name
346: open g_get_process_activity(g_root_form_activity_id);
347: fetch g_get_process_activity into g_process_activity_rec;
348: if g_get_process_activity%notfound then
353: fnd_message.set_token('STEP','40');
354: fnd_message.raise_error;
355: end if;
356: close g_get_process_activity;
357: hr_utility.set_location(l_proc, 45);
358: if g_process_activity_rec.activity_name <> l_result_code then
359: -- the root transition does not match a sql form activity
360: -- select the root process details that is in error
361: get_item_act_display_names
368: fnd_message.set_token(g_process_name, g_activity_display_name);
369: fnd_message.set_token(g_item_type, g_item_type_display_name);
370: fnd_message.raise_error;
371: end if;
372: hr_utility.set_location('Leaving:'||l_proc, 50);
373: end set_root_form_activity_id;
374: -- ----------------------------------------------------------------------------
375: -- |---------------------< set_business_legislation >-------------------------|
376: -- ----------------------------------------------------------------------------
381: --
382: l_proc varchar2(72) := g_package||'set_business_legislation';
383: --
384: begin
385: hr_utility.set_location('Entering:'||l_proc, 10);
386: g_business_group_id := p_business_group_id;
387: g_legislation_code := p_legislation_code;
388: g_legislation_subgroup := p_legislation_subgroup;
389: hr_utility.set_location('Leaving:'||l_proc, 20);
385: hr_utility.set_location('Entering:'||l_proc, 10);
386: g_business_group_id := p_business_group_id;
387: g_legislation_code := p_legislation_code;
388: g_legislation_subgroup := p_legislation_subgroup;
389: hr_utility.set_location('Leaving:'||l_proc, 20);
390: end set_business_legislation;
391: -- ----------------------------------------------------------------------------
392: -- |------------------------------< insert_workflow >-------------------------|
393: -- ----------------------------------------------------------------------------
418:
419: -- end of bug 4506198
420: --
421: begin
422: hr_utility.set_location('Entering:'||l_proc, 10);
423: -- check to see if the workflow exists for the process name
424: open l_csr_workflow_id;
425: fetch l_csr_workflow_id into g_workflow_id;
426: if l_csr_workflow_id%notfound then
423: -- check to see if the workflow exists for the process name
424: open l_csr_workflow_id;
425: fetch l_csr_workflow_id into g_workflow_id;
426: if l_csr_workflow_id%notfound then
427: hr_utility.set_location(l_proc, 15);
428: -- select the sequence
429: begin
430: select hr_workflows_s.nextval
431: into g_workflow_id
436: fnd_message.set_token('PROCEDURE', l_proc);
437: fnd_message.set_token('STEP','10');
438: fnd_message.raise_error;
439: end;
440: hr_utility.set_location(l_proc, 20);
441: -- the workflow does not exist so create it
442: insert into hr_workflows (workflow_id, workflow_name) values (g_workflow_id, p_process_name);
443: g_workflow_process_mode := 'INSERT';
444: else
441: -- the workflow does not exist so create it
442: insert into hr_workflows (workflow_id, workflow_name) values (g_workflow_id, p_process_name);
443: g_workflow_process_mode := 'INSERT';
444: else
445: hr_utility.set_location(l_proc, 25);
446: -- set the workflow process mode to UPDATE
447: g_workflow_process_mode := 'UPDATE';
448: -- as we are updating the workflow we must delete the navigation paths
449: -- and current workflow node usages
479: delete from hr_navigation_node_usages hnnu
480: where hnnu.nav_node_usage_id = csr_csr.nav_node_usage_id;
481: end loop;
482: end if;
483: hr_utility.set_location(l_proc, 30);
484: close l_csr_workflow_id;
485: hr_utility.set_location('Leaving:'||l_proc, 35);
486: end insert_workflow;
487: -- ----------------------------------------------------------------------------
481: end loop;
482: end if;
483: hr_utility.set_location(l_proc, 30);
484: close l_csr_workflow_id;
485: hr_utility.set_location('Leaving:'||l_proc, 35);
486: end insert_workflow;
487: -- ----------------------------------------------------------------------------
488: -- |----------------------< insert_navigation_paths >-------------------------|
489: -- ----------------------------------------------------------------------------
635: l_index binary_integer := l_result_stack_struct.count + 1;
636: l_proc varchar2(72) := g_package||'push_result_stack';
637: --
638: begin
639: hr_utility.set_location('Entering:'||l_proc, 10);
640: l_result_stack_struct(l_index).from_process_activity := p_from_process_activity;
641: l_result_stack_struct(l_index).to_process_activity := p_to_process_activity;
642: l_result_stack_struct(l_index).result_code := p_result_code;
643: hr_utility.set_location('Leaving:'||l_proc, 20);
639: hr_utility.set_location('Entering:'||l_proc, 10);
640: l_result_stack_struct(l_index).from_process_activity := p_from_process_activity;
641: l_result_stack_struct(l_index).to_process_activity := p_to_process_activity;
642: l_result_stack_struct(l_index).result_code := p_result_code;
643: hr_utility.set_location('Leaving:'||l_proc, 20);
644: end push_result_stack;
645: -- --------------------------------------------------------------------------
646: -- |--------------------------< pop_result_stack >--------------------------|
647: -- --------------------------------------------------------------------------
652: --
653: l_proc varchar2(72) := g_package||'pop_result_stack';
654: --
655: begin
656: hr_utility.set_location('Entering:'||l_proc, 10);
657: if l_result_stack_struct.count < 1 then
658: hr_utility.set_location(l_proc, 15);
659: -- the stack is empty so return nulls
660: p_from_process_activity := null;
654: --
655: begin
656: hr_utility.set_location('Entering:'||l_proc, 10);
657: if l_result_stack_struct.count < 1 then
658: hr_utility.set_location(l_proc, 15);
659: -- the stack is empty so return nulls
660: p_from_process_activity := null;
661: p_to_process_activity := null;
662: p_result_code := null;
660: p_from_process_activity := null;
661: p_to_process_activity := null;
662: p_result_code := null;
663: else
664: hr_utility.set_location(l_proc, 20);
665: -- pop the last entry
666: p_from_process_activity :=
667: l_result_stack_struct(l_result_stack_struct.last).from_process_activity;
668: p_to_process_activity :=
671: l_result_stack_struct(l_result_stack_struct.last).result_code;
672: -- delete the last stack entry
673: l_result_stack_struct.delete(l_result_stack_struct.last);
674: end if;
675: hr_utility.set_location('Leaving:'||l_proc, 25);
676: end pop_result_stack;
677: -- --------------------------------------------------------------------------
678: -- |---------------------------< zap_result_stack >-------------------------|
679: -- --------------------------------------------------------------------------
679: -- --------------------------------------------------------------------------
680: procedure zap_result_stack is
681: l_proc varchar2(72) := g_package||'zap_result_stack';
682: begin
683: hr_utility.set_location('Entering:'||l_proc, 10);
684: l_result_stack_struct.delete;
685: hr_utility.set_location('Leaving:'||l_proc, 20);
686: end zap_result_stack;
687: -- --------------------------------------------------------------------------
681: l_proc varchar2(72) := g_package||'zap_result_stack';
682: begin
683: hr_utility.set_location('Entering:'||l_proc, 10);
684: l_result_stack_struct.delete;
685: hr_utility.set_location('Leaving:'||l_proc, 20);
686: end zap_result_stack;
687: -- --------------------------------------------------------------------------
688: -- |---------------------------< exist_in_visit_list >----------------------|
689: -- --------------------------------------------------------------------------
692: return boolean is
693: l_proc varchar2(72) := g_package||'exist_in_visit_list';
694: l_return boolean := false;
695: begin
696: hr_utility.set_location('Entering:'||l_proc, 10);
697: if l_visit_list_struct.count > 0 then
698: hr_utility.set_location('Entering:'||l_proc, 15);
699: for i in l_visit_list_struct.first..l_visit_list_struct.last loop
700: if l_visit_list_struct(i) = p_from_process_activity then
694: l_return boolean := false;
695: begin
696: hr_utility.set_location('Entering:'||l_proc, 10);
697: if l_visit_list_struct.count > 0 then
698: hr_utility.set_location('Entering:'||l_proc, 15);
699: for i in l_visit_list_struct.first..l_visit_list_struct.last loop
700: if l_visit_list_struct(i) = p_from_process_activity then
701: hr_utility.set_location(l_proc, 20);
702: l_return := true;
697: if l_visit_list_struct.count > 0 then
698: hr_utility.set_location('Entering:'||l_proc, 15);
699: for i in l_visit_list_struct.first..l_visit_list_struct.last loop
700: if l_visit_list_struct(i) = p_from_process_activity then
701: hr_utility.set_location(l_proc, 20);
702: l_return := true;
703: exit;
704: end if;
705: end loop;
703: exit;
704: end if;
705: end loop;
706: end if;
707: hr_utility.set_location('Leaving:'||l_proc, 25);
708: return(l_return);
709: end exist_in_visit_list;
710: -- --------------------------------------------------------------------------
711: -- |---------------------------< set_visit_activity >----------------------|
715: return boolean is
716: l_proc varchar2(72) := g_package||'set_visit_activity';
717: l_return boolean := false;
718: begin
719: hr_utility.set_location('Entering:'||l_proc, 10);
720: -- if the activity doesn't already exist in the visit list the
721: -- add it
722: if not exist_in_visit_list(p_from_process_activity) then
723: hr_utility.set_location(l_proc, 15);
719: hr_utility.set_location('Entering:'||l_proc, 10);
720: -- if the activity doesn't already exist in the visit list the
721: -- add it
722: if not exist_in_visit_list(p_from_process_activity) then
723: hr_utility.set_location(l_proc, 15);
724: l_visit_list_struct(l_visit_list_struct.count + 1) := p_from_process_activity;
725: l_return := true;
726: end if;
727: hr_utility.set_location('Leaving:'||l_proc, 20);
723: hr_utility.set_location(l_proc, 15);
724: l_visit_list_struct(l_visit_list_struct.count + 1) := p_from_process_activity;
725: l_return := true;
726: end if;
727: hr_utility.set_location('Leaving:'||l_proc, 20);
728: return(l_return);
729: end set_visit_activity;
730: -- --------------------------------------------------------------------------
731: -- |--------------------------< zap_visit_list >----------------------------|
732: -- --------------------------------------------------------------------------
733: procedure zap_visit_list is
734: l_proc varchar2(72) := g_package||'zap_visit_list';
735: begin
736: hr_utility.set_location('Entering:'||l_proc, 10);
737: l_visit_list_struct.delete;
738: hr_utility.set_location('Leaving:'||l_proc, 20);
739: end zap_visit_list;
740: -- --------------------------------------------------------------------------
734: l_proc varchar2(72) := g_package||'zap_visit_list';
735: begin
736: hr_utility.set_location('Entering:'||l_proc, 10);
737: l_visit_list_struct.delete;
738: hr_utility.set_location('Leaving:'||l_proc, 20);
739: end zap_visit_list;
740: -- --------------------------------------------------------------------------
741: -- |-------------------------< get_button_details >-------------------------|
742: -- --------------------------------------------------------------------------
770: l_parent boolean := false;
771: l_index binary_integer;
772: --
773: begin
774: hr_utility.set_location('Entering:'||l_proc, 10);
775: -- get the sqlform we are going to
776: l_sqlform := get_sqlform(p_to_process_activity);
777: -- determine the location of the button in the from process activity
778: -- attributes
810: p_sequence := 5;
811: end if;
812: -- set the override label
813: p_override_label := get_override_label(p_to_process_activity);
814: hr_utility.set_location('Leaving:'||l_proc, 20);
815: end get_button_details;
816: -- --------------------------------------------------------------------------
817: -- |---------------------< correct_parent_buttons >-------------------------|
818: -- --------------------------------------------------------------------------
818: -- --------------------------------------------------------------------------
819: procedure correct_parent_buttons is
820: l_proc varchar2(72) := g_package||'correct_parent_buttons';
821: begin
822: hr_utility.set_location('Entering:'||l_proc, 10);
823: if l_parent_struct.count > 0 then
824: for i in l_parent_struct.first..l_parent_struct.last loop
825: for j in l_insert_path_struct.first..l_insert_path_struct.last loop
826: if l_insert_path_struct(j).from_nav_node_usage_id =
841: end if;
842: end loop;
843: end loop;
844: end if;
845: hr_utility.set_location('Leaving:'||l_proc, 20);
846: end correct_parent_buttons;
847: -- --------------------------------------------------------------------------
848: -- |----------------------------< set_insert_path >-------------------------|
849: -- --------------------------------------------------------------------------
864: l_index binary_integer;
865: l_insert_path boolean;
866: l_to_nav_node_usage_id number;
867: begin
868: hr_utility.set_location('Entering:'||l_proc, 10);
869: -- determine if the path is navigating back to the root form
870: l_to_nav_node_usage_id := get_nav_node_usage_id(p_to_process_activity);
871: if p_to_process_activity = g_root_form_activity_id then
872: -- ok navigating back to the root so create the path
880: -- result combination. also count the number of navigation paths
881: for i in l_insert_path_struct.first..l_insert_path_struct.last loop
882: if l_insert_path_struct(i).from_nav_node_usage_id =
883: p_from_nav_node_usage_id then
884: hr_utility.set_location(l_proc, 15);
885: if l_insert_path_struct(i).result_code = p_result_code or
886: l_insert_path_struct(i).to_nav_node_usage_id = l_to_nav_node_usage_id then
887: -- a serious error has occurred, you cannot have a 'FROM' form activity
888: -- have more than one path to the same form.
921: ,p_override_label => l_button_text
922: ,p_sequence => l_button_sequence
923: ,p_nav_button_required => l_nav_button_required);
924: --
925: hr_utility.set_location(l_proc, 85);
926: -- insert the path
927: l_insert_path_struct(l_index).from_nav_node_usage_id := p_from_nav_node_usage_id;
928: l_insert_path_struct(l_index).to_nav_node_usage_id := l_to_nav_node_usage_id;
929: l_insert_path_struct(l_index).nav_button_required := l_nav_button_required;
930: l_insert_path_struct(l_index).sequence := l_button_sequence;
931: l_insert_path_struct(l_index).override_label := l_button_text;
932: l_insert_path_struct(l_index).result_code := p_result_code;
933: l_insert_path_struct(l_index).insert_path := l_insert_path;
934: hr_utility.set_location('Leaving:'||l_proc, 90);
935: end set_insert_path;
936: -- --------------------------------------------------------------------------
937: -- |---------------------------< get_activity_type >------------------------|
938: -- --------------------------------------------------------------------------
948: l_proc varchar2(72) := g_package||'get_activity_type';
949: l_activity_type varchar2(30) := null;
950: l_start_end varchar2(30) := null;
951: begin
952: hr_utility.set_location('Entering:'||l_proc, 10);
953: -- determine if the activity is in the corresponding usages table
954: for i in g_node_usage_tab.first..g_node_usage_tab.last loop
955: if g_node_usage_tab(i).instance_id = p_to_process_activity then
956: hr_utility.set_location(l_proc, 15);
952: hr_utility.set_location('Entering:'||l_proc, 10);
953: -- determine if the activity is in the corresponding usages table
954: for i in g_node_usage_tab.first..g_node_usage_tab.last loop
955: if g_node_usage_tab(i).instance_id = p_to_process_activity then
956: hr_utility.set_location(l_proc, 15);
957: -- the activity instance is a sql*form but is it the one we
958: -- are looking for?
959: if g_node_usage_tab(i).sqlform = p_expected_sqlform or
960: p_expected_sqlform = g_default_transition_value or
958: -- are looking for?
959: if g_node_usage_tab(i).sqlform = p_expected_sqlform or
960: p_expected_sqlform = g_default_transition_value or
961: p_expected_sqlform = g_parent_transition then
962: hr_utility.set_location(l_proc, 20);
963: l_activity_type := 'CORRECT_SQLFORM';
964: else
965: hr_utility.set_location(l_proc, 25);
966: l_activity_type := 'INCORRECT_SQLFORM';
961: p_expected_sqlform = g_parent_transition then
962: hr_utility.set_location(l_proc, 20);
963: l_activity_type := 'CORRECT_SQLFORM';
964: else
965: hr_utility.set_location(l_proc, 25);
966: l_activity_type := 'INCORRECT_SQLFORM';
967: end if;
968: --
969: exit;
969: exit;
970: end if;
971: end loop;
972: --
973: hr_utility.set_location(l_proc, 30);
974: if l_activity_type is null then
975: hr_utility.set_location(l_proc, 35);
976: -- the activity is not a sqlform so we must determine if it
977: -- is a process, end activity or any other type of activity
971: end loop;
972: --
973: hr_utility.set_location(l_proc, 30);
974: if l_activity_type is null then
975: hr_utility.set_location(l_proc, 35);
976: -- the activity is not a sqlform so we must determine if it
977: -- is a process, end activity or any other type of activity
978: open csr_attivity_type(p_to_process_activity);
979: fetch csr_attivity_type into l_activity_type, l_start_end;
986: fnd_message.set_token('STEP','10');
987: fnd_message.raise_error;
988: end if;
989: close csr_attivity_type;
990: hr_utility.set_location(l_proc, 40);
991: -- check to see if the activity is not a PROCESS
992: if l_activity_type <> g_activity_type_process then
993: hr_utility.set_location(l_proc, 45);
994: -- determine if the process is a function
989: close csr_attivity_type;
990: hr_utility.set_location(l_proc, 40);
991: -- check to see if the activity is not a PROCESS
992: if l_activity_type <> g_activity_type_process then
993: hr_utility.set_location(l_proc, 45);
994: -- determine if the process is a function
995: if l_activity_type = g_activity_type_function then
996: -- as the activity type is a FUNCTION we must determine if
997: -- it is an END function
994: -- determine if the process is a function
995: if l_activity_type = g_activity_type_function then
996: -- as the activity type is a FUNCTION we must determine if
997: -- it is an END function
998: hr_utility.set_location(l_proc, 50);
999: if l_start_end = g_activity_type_end then
1000: hr_utility.set_location(l_proc, 55);
1001: l_activity_type := l_start_end;
1002: end if;
996: -- as the activity type is a FUNCTION we must determine if
997: -- it is an END function
998: hr_utility.set_location(l_proc, 50);
999: if l_start_end = g_activity_type_end then
1000: hr_utility.set_location(l_proc, 55);
1001: l_activity_type := l_start_end;
1002: end if;
1003: else
1004: hr_utility.set_location(l_proc, 60);
1000: hr_utility.set_location(l_proc, 55);
1001: l_activity_type := l_start_end;
1002: end if;
1003: else
1004: hr_utility.set_location(l_proc, 60);
1005: -- set the activity to 'OTHER'
1006: l_activity_type := 'OTHER';
1007: end if;
1008: end if;
1007: end if;
1008: end if;
1009: end if;
1010: return(l_activity_type);
1011: hr_utility.set_location('Leaving:'||l_proc, 65);
1012: end get_activity_type;
1013: -- ----------------------------------------------------------------------------
1014: -- |------------------------------< MAIN BODY >-------------------------------|
1015: -- ----------------------------------------------------------------------------
1013: -- ----------------------------------------------------------------------------
1014: -- |------------------------------< MAIN BODY >-------------------------------|
1015: -- ----------------------------------------------------------------------------
1016: begin
1017: hr_utility.set_location('Entering:'||l_proc, 10);
1018: -- delete the parents table
1019: l_parent_struct.delete;
1020: -- loop through each inserted navigation node usage
1021: for l_usage_index in g_node_usage_tab.first..g_node_usage_tab.last loop
1039: (l_result_csr.to_process_activity
1040: ,l_expected_sqlform);
1041: -- branch on the activity type
1042: if l_activity_type = 'CORRECT_SQLFORM' then
1043: hr_utility.set_location(l_proc, 15);
1044: -- determine if the form we are navigation to is the root form
1045: if l_result_csr.to_process_activity = g_root_form_activity_id then
1046: -- ok we transition back to the root form so we must
1047: -- indicate this
1079: --
1080: fnd_message.set_token(g_to_form_activity, g_item_type_display_name);
1081: fnd_message.raise_error;
1082: else
1083: hr_utility.set_location(l_proc, 20);
1084: -- delete the results stack
1085: zap_result_stack;
1086: hr_utility.set_location(l_proc, 25);
1087: -- delete the visit list
1082: else
1083: hr_utility.set_location(l_proc, 20);
1084: -- delete the results stack
1085: zap_result_stack;
1086: hr_utility.set_location(l_proc, 25);
1087: -- delete the visit list
1088: zap_visit_list;
1089: -- set found form to false
1090: l_found_form := false;
1089: -- set found form to false
1090: l_found_form := false;
1091: -- add activity to visit list
1092: l_dummy := set_visit_activity(g_node_usage_tab(l_usage_index).instance_id);
1093: hr_utility.set_location(l_proc, 30);
1094: -- push onto results stack
1095: push_result_stack
1096: (g_node_usage_tab(l_usage_index).instance_id
1097: ,l_result_csr.to_process_activity
1095: push_result_stack
1096: (g_node_usage_tab(l_usage_index).instance_id
1097: ,l_result_csr.to_process_activity
1098: ,l_result_csr.result_code);
1099: hr_utility.set_location(l_proc, 35);
1100: -- while the stack is not empty loop
1101: while l_result_stack_struct.count > 0 loop
1102: -- pop the result stack
1103: pop_result_stack
1108: l_activity_type := get_activity_type
1109: (l_pop_to_process_activity
1110: ,l_expected_sqlform);
1111: if l_activity_type = 'CORRECT_SQLFORM' then
1112: hr_utility.set_location(l_proc, 40);
1113: -- ok we transition back to the root form so we must
1114: -- indicate this
1115: if l_pop_to_process_activity = g_root_form_activity_id then
1116: l_return_to_root := true;
1145: --
1146: fnd_message.set_token(g_to_form_activity, g_item_type_display_name);
1147: fnd_message.raise_error;
1148: elsif l_activity_type = 'PROCESS' then
1149: hr_utility.set_location(l_proc, 45);
1150: l_dummy := set_visit_activity(l_pop_to_process_activity);
1151: -- push each start activity results
1152: for csr_start in csr_process_start_transitions
1153: (l_pop_to_process_activity) loop
1151: -- push each start activity results
1152: for csr_start in csr_process_start_transitions
1153: (l_pop_to_process_activity) loop
1154: if not exist_in_visit_list(csr_start.to_process_activity) then
1155: hr_utility.set_location(l_proc, 50);
1156: push_result_stack
1157: (csr_start.from_process_activity
1158: ,csr_start.to_process_activity
1159: ,csr_start.result_code);
1159: ,csr_start.result_code);
1160: end if;
1161: end loop;
1162: elsif l_activity_type = g_activity_type_end then
1163: hr_utility.set_location(l_proc, 55);
1164: l_dummy := set_visit_activity(l_pop_to_process_activity);
1165: for csr_end in csr_process_end_transitions
1166: (l_pop_to_process_activity
1167: ,l_pop_result_code) loop
1172: ,csr_end.result_code);
1173: --
1174: end loop;
1175: else
1176: hr_utility.set_location(l_proc, 60);
1177: if set_visit_activity(l_pop_to_process_activity) then
1178: hr_utility.set_location(l_proc, 65);
1179: for csr_results in csr_transitions1(l_pop_to_process_activity) loop
1180: if not exist_in_visit_list(csr_results.to_process_activity) then
1174: end loop;
1175: else
1176: hr_utility.set_location(l_proc, 60);
1177: if set_visit_activity(l_pop_to_process_activity) then
1178: hr_utility.set_location(l_proc, 65);
1179: for csr_results in csr_transitions1(l_pop_to_process_activity) loop
1180: if not exist_in_visit_list(csr_results.to_process_activity) then
1181: hr_utility.set_location(l_proc, 70);
1182: push_result_stack
1177: if set_visit_activity(l_pop_to_process_activity) then
1178: hr_utility.set_location(l_proc, 65);
1179: for csr_results in csr_transitions1(l_pop_to_process_activity) loop
1180: if not exist_in_visit_list(csr_results.to_process_activity) then
1181: hr_utility.set_location(l_proc, 70);
1182: push_result_stack
1183: (csr_results.from_process_activity
1184: ,csr_results.to_process_activity
1185: ,csr_results.result_code);
1245: where from_nav_node_usage_id = l_insert_path_struct(i).from_nav_node_usage_id
1246: and to_nav_node_usage_id = l_insert_path_struct(i).to_nav_node_usage_id;
1247:
1248: /*-- Chages start for the bug 5702720 ---*/
1249: hr_utility.set_location(l_proc, 6253);
1250:
1251: for I in csr_language_code(l_nav_path_id)
1252: loop
1253: hr_utility.set_location('In the Cursor csr_language_code= '||i.l_language_code, 6254);
1249: hr_utility.set_location(l_proc, 6253);
1250:
1251: for I in csr_language_code(l_nav_path_id)
1252: loop
1253: hr_utility.set_location('In the Cursor csr_language_code= '||i.l_language_code, 6254);
1254: insert into hr_navigation_paths_tl (
1255: nav_path_id
1256: ,language
1257: ,source_lang
1266: from hr_navigation_paths_tl t
1267: where t.nav_path_id = b.nav_path_id
1268: and t.language = i.l_language_code);
1269: end loop;
1270: hr_utility.set_location(l_proc, 6255);
1271: /*-- Chages End for the bug 5702720 ---*/
1272:
1273: /* --- original code before fix 5702720 ---
1274: select L.language_code
1299: -- End Original code before fix 5702720 -- */
1300: end if;
1301: end loop;
1302: end if;
1303: hr_utility.set_location('Leaving:'||l_proc, 75);
1304: end insert_navigation_paths;
1305: -- ----------------------------------------------------------------------------
1306: -- |-----------------< insert_navigation_node_usage >-------------------------|
1307: -- ----------------------------------------------------------------------------
1316: l_proc varchar2(72) := g_package||'insert_navigation_node_usage';
1317: l_index binary_integer;
1318: --
1319: begin
1320: hr_utility.set_location('Entering:'||l_proc, 10);
1321: -- is the instance the root form activity?
1322: if p_instance_id = g_root_form_activity_id then
1323: hr_utility.set_location(l_proc, 15);
1324: l_top_node := 'Y';
1319: begin
1320: hr_utility.set_location('Entering:'||l_proc, 10);
1321: -- is the instance the root form activity?
1322: if p_instance_id = g_root_form_activity_id then
1323: hr_utility.set_location(l_proc, 15);
1324: l_top_node := 'Y';
1325: end if;
1326: -- select the sequence
1327: begin
1334: fnd_message.set_token('PROCEDURE', l_proc);
1335: fnd_message.set_token('STEP','10');
1336: fnd_message.raise_error;
1337: end;
1338: hr_utility.set_location(l_proc, 20);
1339: -- insert the node usage
1340: insert into hr_navigation_node_usages
1341: (nav_node_usage_id,
1342: workflow_id,
1352: g_node_usage_tab(l_index).nav_node_usage_id := l_nav_node_usage_id;
1353: g_node_usage_tab(l_index).instance_id := p_instance_id;
1354: g_node_usage_tab(l_index).sqlform := p_sqlform;
1355: g_node_usage_tab(l_index).override_label := p_override_label;
1356: hr_utility.set_location('Leaving:'||l_proc, 25);
1357: --
1358: end insert_navigation_node_usage;
1359: -- ----------------------------------------------------------------------------
1360: -- |----------------------< insert_navigation_nodes >-------------------------|
1490: l_process_stack_struct l_process_stack_tab;
1491: l_current_working_process_id wf_process_activities.instance_id%type;
1492: --
1493: begin
1494: hr_utility.set_location('Entering:'||l_proc, 10);
1495: --
1496: -- we need to select all the form activities within a process where the
1497: -- process is located within the specified root process.
1498: -- originally this was perceived as being a network/hierachy query but
1556: l_csr_tf_form_attributes(l_csr_tf_function_activities.instance_id) loop
1557: -- we are interested in 4 attributes; TASKFLOW_ACTIVITY_NAME,
1558: -- CUSTOMIZATION_NAME, HRMS_FORM_BLOCK_NAME and BUTTON_TEXT
1559: if l_csr_attrs.name = 'TASKFLOW_ACTIVITY_NAME' then
1560: hr_utility.set_location(l_proc, 20);
1561: l_taskflow_actvity_name := l_csr_attrs.text_value;
1562: elsif l_csr_attrs.name = 'HRMS_FORM_BLOCK_NAME' then
1563: hr_utility.set_location(l_proc, 25);
1564: l_taskflow_block_name := upper(l_csr_attrs.text_value);
1559: if l_csr_attrs.name = 'TASKFLOW_ACTIVITY_NAME' then
1560: hr_utility.set_location(l_proc, 20);
1561: l_taskflow_actvity_name := l_csr_attrs.text_value;
1562: elsif l_csr_attrs.name = 'HRMS_FORM_BLOCK_NAME' then
1563: hr_utility.set_location(l_proc, 25);
1564: l_taskflow_block_name := upper(l_csr_attrs.text_value);
1565: elsif l_csr_attrs.name = 'BUTTON_TEXT' then
1566: l_override_label := substr(l_csr_attrs.text_value,1,40);
1567: else
1564: l_taskflow_block_name := upper(l_csr_attrs.text_value);
1565: elsif l_csr_attrs.name = 'BUTTON_TEXT' then
1566: l_override_label := substr(l_csr_attrs.text_value,1,40);
1567: else
1568: hr_utility.set_location(l_proc, 30);
1569: -- the attribute must be CUSTOMIZATION_NAME
1570: l_customization_name := l_csr_attrs.text_value;
1571: end if;
1572: end loop;
1569: -- the attribute must be CUSTOMIZATION_NAME
1570: l_customization_name := l_csr_attrs.text_value;
1571: end if;
1572: end loop;
1573: hr_utility.set_location(l_proc, 40);
1574: -- ensure that a corresponding row exists within the HR_NAVIGATION_UNITS
1575: -- table.
1576: open l_csr_nav_unit_id(l_taskflow_actvity_name, l_taskflow_block_name);
1577: fetch l_csr_nav_unit_id into l_nav_unit_id, l_default_label;
1594: close l_csr_nav_unit_id;
1595: -- the activity was a TF function activity so we must now determine
1596: -- if the customization is valid
1597: if l_customization_name is not null then
1598: hr_utility.set_location(l_proc, 45);
1599: open l_csr_cust_restrict_id(l_taskflow_actvity_name, l_customization_name);
1600: fetch l_csr_cust_restrict_id into l_customized_restriction_id;
1601: if l_csr_cust_restrict_id%notfound then
1602: -- the customized name specified was not found so we must provide a warning
1604: l_customized_restriction_id := null;
1605: end if;
1606: close l_csr_cust_restrict_id;
1607: end if;
1608: hr_utility.set_location(l_proc, 50);
1609: -- set the navigation node name
1610: l_navigation_node_name := l_taskflow_actvity_name;
1611: --
1612: l_found_nav_node := false;
1634: end if;
1635: end loop;
1636: -- was a nav node found?
1637: if not l_found_nav_node then
1638: hr_utility.set_location(l_proc, 55);
1639: -- derive a new name
1640: begin
1641: select hr_navigation_nodes_s.nextval
1642: into l_nextval
1647: fnd_message.set_token('PROCEDURE', l_proc);
1648: fnd_message.set_token('STEP','10');
1649: fnd_message.raise_error;
1650: end;
1651: hr_utility.set_location(l_proc, 60);
1652: l_navigation_node_name := l_taskflow_actvity_name||l_nextval;
1653: -- the navigation node does not exist so we need to insert it
1654: insert into hr_navigation_nodes
1655: (nav_node_id,
1661: ,l_nav_unit_id
1662: ,l_navigation_node_name
1663: ,l_customized_restriction_id);
1664: end if;
1665: hr_utility.set_location(l_proc, 65);
1666: -- insert a node usage
1667: insert_navigation_node_usage
1668: (p_nav_node_id => l_nav_node_id
1669: ,p_instance_id => l_csr_tf_function_activities.instance_id
1670: ,p_sqlform => l_taskflow_actvity_name
1671: ,p_override_label => nvl(l_override_label, l_default_label));
1672: end loop;
1673: end loop;
1674: hr_utility.set_location('Leaving:'||l_proc, 70);
1675: end insert_navigation_nodes;
1676: -- ----------------------------------------------------------------------------
1677: -- |----------------------------< transfer_workflow >-------------------------|
1678: -- ----------------------------------------------------------------------------
1688: l_process_name wf_items.root_activity%type := upper(p_root_process_name);
1689: l_found boolean := false;
1690: --
1691: begin
1692: hr_utility.set_location('Entering:'||l_proc, 10);
1693: -- ensure that the item type has been set
1694: hr_api.mandatory_arg_error
1695: (p_api_name => l_proc
1696: ,p_argument => 'process_item_type'
1720: (l_item_type, l_process_name) loop
1721: l_found := true;
1722: -- clear the usages table
1723: g_node_usage_tab.delete;
1724: hr_utility.set_location(l_proc, 20);
1725: -- check and set the root process specified is valid
1726: set_root_process_activity_id
1727: (p_process_item_type => l_item_type
1728: ,p_root_process_name => l_csr_root.activity_name);
1729: -- set the root form activity
1730: set_root_form_activity_id
1731: (p_process_item_type => l_item_type
1732: ,p_root_process_name => l_csr_root.activity_name);
1733: hr_utility.set_location(l_proc, 25);
1734: -- insert the workflow
1735: insert_workflow
1736: (p_process_name => l_csr_root.activity_name);
1737: hr_utility.set_location(l_proc, 30);
1733: hr_utility.set_location(l_proc, 25);
1734: -- insert the workflow
1735: insert_workflow
1736: (p_process_name => l_csr_root.activity_name);
1737: hr_utility.set_location(l_proc, 30);
1738: -- insert the navigation nodes
1739: insert_navigation_nodes
1740: (p_process_item_type => l_item_type
1741: ,p_process_name => l_csr_root.activity_name);
1738: -- insert the navigation nodes
1739: insert_navigation_nodes
1740: (p_process_item_type => l_item_type
1741: ,p_process_name => l_csr_root.activity_name);
1742: hr_utility.set_location(l_proc, 35);
1743: -- insert the navigation paths
1744: insert_navigation_paths;
1745: -- increment the converted processes counter
1746: g_converted_processes := g_converted_processes + 1;
1752: fnd_message.set_token(g_item_type, g_item_type_display_name);
1753: fnd_message.set_token(g_process_name, p_root_process_name);
1754: fnd_message.raise_error;
1755: end if;
1756: hr_utility.set_location('Leaving:'||l_proc, 40);
1757: end transfer_workflow;
1758: -- ----------------------------------------------------------------------------
1759: -- |--------------------------< call_taskflow_form >--------------------------|
1760: -- ----------------------------------------------------------------------------
1777: l_proc varchar2(72) := g_package||'call_taskflow_form';
1778: l_dummy number;
1779: --
1780: begin
1781: hr_utility.set_location('Entering:'||l_proc, 10);
1782: -- check the workflow funmode value
1783: if funmode = 'RUN' then
1784: hr_utility.set_location(l_proc, 20);
1785: -- workflow is RUNing this procedure so ensure that the current
1780: begin
1781: hr_utility.set_location('Entering:'||l_proc, 10);
1782: -- check the workflow funmode value
1783: if funmode = 'RUN' then
1784: hr_utility.set_location(l_proc, 20);
1785: -- workflow is RUNing this procedure so ensure that the current
1786: -- process activity is defined as a taskflow SQL*Form and
1787: -- return a NOTIFIED value
1788: open l_csr_tf_form;
1787: -- return a NOTIFIED value
1788: open l_csr_tf_form;
1789: fetch l_csr_tf_form into l_dummy;
1790: if l_csr_tf_form%notfound then
1791: hr_utility.set_location(l_proc, 30);
1792: close l_csr_tf_form;
1793: -- raise the error and let the outer exception handle the error
1794: raise no_data_found;
1795: end if;
1795: end if;
1796: close l_csr_tf_form;
1797: --
1798: result := 'NOTIFIED:';
1799: hr_utility.set_location(l_proc, 40);
1800: elsif funmode = 'CANCEL' then
1801: hr_utility.set_location(l_proc, 50);
1802: -- workflow is calling in cancel mode (performing a loop reset) so ignore
1803: null;
1797: --
1798: result := 'NOTIFIED:';
1799: hr_utility.set_location(l_proc, 40);
1800: elsif funmode = 'CANCEL' then
1801: hr_utility.set_location(l_proc, 50);
1802: -- workflow is calling in cancel mode (performing a loop reset) so ignore
1803: null;
1804: end if;
1805: hr_utility.set_location('Leaving:'||l_proc, 60);
1801: hr_utility.set_location(l_proc, 50);
1802: -- workflow is calling in cancel mode (performing a loop reset) so ignore
1803: null;
1804: end if;
1805: hr_utility.set_location('Leaving:'||l_proc, 60);
1806: exception
1807: when others then
1808: -- because we are being directly called from workflow return an ERROR
1809: -- result
1807: when others then
1808: -- because we are being directly called from workflow return an ERROR
1809: -- result
1810: result := 'ERROR:';
1811: hr_utility.set_location('Leaving:'||l_proc, 70);
1812: end call_taskflow_form;
1813: -- ----------------------------------------------------------------------------
1814: -- |----------------------------< chk_process_name >--------------------------|
1815: -- ----------------------------------------------------------------------------
1822: l_dummy wf_process_activities.activity_name%type;
1823: l_return boolean;
1824: --
1825: begin
1826: hr_utility.set_location('Entering:'||l_proc, 10);
1827: -- ensure that the item type and process names are specified
1828: hr_api.mandatory_arg_error
1829: (p_api_name => l_proc
1830: ,p_argument => 'item_type'
1836: -- open the cursor
1837: open g_csr_root_runnable_process(upper(p_item_type), upper(p_process_name));
1838: fetch g_csr_root_runnable_process into l_dummy;
1839: if g_csr_root_runnable_process%notfound then
1840: hr_utility.set_location(l_proc, 20);
1841: l_return := false;
1842: else
1843: hr_utility.set_location(l_proc, 30);
1844: l_return := true;
1839: if g_csr_root_runnable_process%notfound then
1840: hr_utility.set_location(l_proc, 20);
1841: l_return := false;
1842: else
1843: hr_utility.set_location(l_proc, 30);
1844: l_return := true;
1845: end if;
1846: close g_csr_root_runnable_process;
1847: hr_utility.set_location('Leaving:'||l_proc, 40);
1843: hr_utility.set_location(l_proc, 30);
1844: l_return := true;
1845: end if;
1846: close g_csr_root_runnable_process;
1847: hr_utility.set_location('Leaving:'||l_proc, 40);
1848: return(l_return);
1849: end chk_process_name;
1850: -- ----------------------------------------------------------------------------
1851: -- |---------------------< get_converted_processes >--------------------------|