88: ---
89:
90: BEGIN
91:
92: hr_utility.set_location('Entering: '||l_proc, 5);
93:
94: IF(hr_utility.debug_enabled) then
95:
96: -- Debug Section ----------
90: BEGIN
91:
92: hr_utility.set_location('Entering: '||l_proc, 5);
93:
94: IF(hr_utility.debug_enabled) then
95:
96: -- Debug Section ----------
97: hr_utility.trace('Process Flow ID = '||p_process_flow_id);
98: hr_utility.trace('No of Records = '||p_no_of_params);
93:
94: IF(hr_utility.debug_enabled) then
95:
96: -- Debug Section ----------
97: hr_utility.trace('Process Flow ID = '||p_process_flow_id);
98: hr_utility.trace('No of Records = '||p_no_of_params);
99: hr_utility.trace('Asg Action = '||p_asg_action);
100: hr_utility.trace('ParameterName ParameterId SetVariableId SetVariableValue SetVariableSequence DefaultType');
101:
94: IF(hr_utility.debug_enabled) then
95:
96: -- Debug Section ----------
97: hr_utility.trace('Process Flow ID = '||p_process_flow_id);
98: hr_utility.trace('No of Records = '||p_no_of_params);
99: hr_utility.trace('Asg Action = '||p_asg_action);
100: hr_utility.trace('ParameterName ParameterId SetVariableId SetVariableValue SetVariableSequence DefaultType');
101:
102: select set_id into l_flow_set_id
95:
96: -- Debug Section ----------
97: hr_utility.trace('Process Flow ID = '||p_process_flow_id);
98: hr_utility.trace('No of Records = '||p_no_of_params);
99: hr_utility.trace('Asg Action = '||p_asg_action);
100: hr_utility.trace('ParameterName ParameterId SetVariableId SetVariableValue SetVariableSequence DefaultType');
101:
102: select set_id into l_flow_set_id
103: from pay_process_flows
96: -- Debug Section ----------
97: hr_utility.trace('Process Flow ID = '||p_process_flow_id);
98: hr_utility.trace('No of Records = '||p_no_of_params);
99: hr_utility.trace('Asg Action = '||p_asg_action);
100: hr_utility.trace('ParameterName ParameterId SetVariableId SetVariableValue SetVariableSequence DefaultType');
101:
102: select set_id into l_flow_set_id
103: from pay_process_flows
104: where process_flow_id = p_process_flow_id;
104: where process_flow_id = p_process_flow_id;
105:
106: FOR table_row in 1 .. p_no_of_params
107: LOOP
108: hr_utility.trace(nvl(to_char(p_param_details(table_row).param_name),'null')||' '||
109: nvl(to_char(p_param_details(table_row).param_id),'null')||' '||
110: nvl(to_char(p_param_details(table_row).set_var_id),'null')||' '||
111: nvl(to_char(p_param_details(table_row).set_var_seq),'null')||' '||
112: nvl(to_char(p_param_details(table_row).set_var_val),'null')||' '||
116: END if;
117:
118: -- End of Debug Section --
119:
120: hr_utility.set_location(l_proc, 10);
121:
122: select pay_void_process_request_s1.NEXTVAL
123: into l_curr_request_id from dual;
124:
155: 'G',
156: 'F' );
157:
158:
159: hr_utility.set_location(l_proc, 20);
160:
161: -- Find out the sets for the particular process (with process id)
162: FOR l_process_set in csr_process_sets(p_process_flow_id)
163: LOOP
188:
189: END LOOP;
190: END LOOP;
191:
192: hr_utility.set_location(l_proc, 30);
193:
194: -- for each set_var_id in the param_array
195: -- for each record in pay_para_set_override_vars for this set_var_id(i)
196: -- update pay_para_set_var_values with the value in set_var_val(i)
228: END LOOP;
229:
230: END LOOP;
231:
232: hr_utility.set_location(l_proc, 40);
233:
234: -- Update the pay_para_set_var_values with Assignment_action_id value
235:
236: FOR source_set_var in csr_override_set_vars(p_asg_set_var_id)
249: p_process_request_id := l_curr_request_id;
250:
251: COMMIT;
252: --
253: hr_utility.set_location('Leaving: '||l_proc, 50);
254: --
255: END create_request;
256:
257: -- ----------------------------------------------------------------------------
330: l_assignment_action_id number;
331: --
332: BEGIN
333:
334: hr_utility.set_location('Entering: '||l_proc, 5);
335:
336: -- With the request_id get the process_id from PAY_PROCESS_REQUESTS
337:
338: BEGIN
346: then fnd_file.put_line(FND_FILE.LOG,'Requested Id does not exist');
347: raise;
348: END;
349:
350: hr_utility.set_location(l_proc, 10);
351:
352: -- selecting the process flow id
353: BEGIN
354: --
361: fnd_file.put_line(FND_FILE.LOG,'Specified process flow not defined');
362: raise;
363: END;
364:
365: hr_utility.set_location(l_proc, 20);
366:
367: -- For each set_id
368: FOR l_set_id in get_set_ids(l_process_id)
369: LOOP
379: fnd_file.put_line(FND_FILE.LOG,'No wrapper package found');
380: raise;
381: END;
382:
383: hr_utility.set_location(l_proc, 30);
384:
385: -- Get the group id
386: BEGIN
387: --
394: fnd_file.put_line(FND_FILE.LOG,'No group id specified');
395: raise;
396: END;
397:
398: hr_utility.set_location(l_proc, 40);
399:
400: l_sql_stmt := 'begin ';
401: l_sql_stmt := l_sql_stmt||l_wrapper_pkg||'(';
402:
414: l_sql_stmt := l_sql_stmt || ':1';
415: l_sql_stmt := l_sql_stmt || ');';
416: l_sql_stmt := l_sql_stmt || ' end;';
417:
418: hr_utility.set_location(l_proc, 50);
419:
420: BEGIN
421: --
422: execute immediate l_sql_stmt using OUT l_request_id;
431: END;
432:
433: fnd_file.put_line(FND_FILE.LOG, l_request_id||' => ' ||l_sql_stmt);
434:
435: hr_utility.set_location(l_proc, 60);
436:
437: -- Get the assignment action id to be passed to insert_child_request
438: open get_asg_action_id(p_request_id);
439: fetch get_asg_action_id into l_assignment_action_id;
461: END LOOP;
462:
463: COMMIT;
464:
465: hr_utility.set_location(l_proc, 70);
466:
467: l_wait_outcome := fnd_concurrent.wait_for_request
468: (
469: request_id => l_request_id,
474: dev_status => l_dev_status,
475: message => l_message
476: );
477:
478: hr_utility.set_location(l_proc, 80);
479:
480: BEGIN
481: --
482: select status_code into l_process_status
509:
510: END LOOP;
511: -- For every set loop ends here
512: --
513: hr_utility.set_location('Leaving: '||l_proc, 90);
514: --
515: exception
516: when others
517: then fnd_file.put_line(FND_FILE.LOG,'Process could not complete due to above reason. Aborting.....');
534: l_proc varchar2(72) := 'PAY_FLOW_REQUESTS_PKG.UPDATE_PROCESS_STATUS';
535:
536: BEGIN
537:
538: hr_utility.set_location('Entering: '||l_proc, 5);
539:
540: update PAY_PROCESS_REQUESTS
541: set fnd_request_id = p_fnd_request_id,
542: last_update_date = sysdate,
543: last_updated_by = fnd_global.user_id,
544: last_update_login = fnd_global.login_id
545: where process_req_seq_id = p_process_request_id;
546:
547: hr_utility.set_location('Leaving: '||l_proc, 10);
548:
549: END update_process_status;
550:
551:
566: l_proc varchar2(72) := 'PAY_FLOW_REQUESTS_PKG.EXECUTE_REQUEST';
567:
568: BEGIN
569:
570: hr_utility.set_location('Entering: '||l_proc, 5);
571:
572: l_fnd_request_id := fnd_request.submit_request(
573: application => 'PAY',
574: program => 'PYINVREQ',
580: update_process_status(p_request_id, l_fnd_request_id);
581:
582: commit;
583:
584: hr_utility.set_location('Leaving: '||l_proc, 10);
585:
586: END execute_request;
587:
588: -- ----------------------------------------------------------------------------
691: l_fnd_req_completed := true;
692:
693: ELSE
694: -- Pass back a message to UI informing that the request has not been purged.
695: hr_utility.set_message(801, 'PAY_33462_REQ_ACTION_INFO');
696: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
697: hr_utility.set_message_token(801,'ACTION','purged');
698: p_message := hr_utility.get_message;
699: hr_utility.clear_message;
692:
693: ELSE
694: -- Pass back a message to UI informing that the request has not been purged.
695: hr_utility.set_message(801, 'PAY_33462_REQ_ACTION_INFO');
696: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
697: hr_utility.set_message_token(801,'ACTION','purged');
698: p_message := hr_utility.get_message;
699: hr_utility.clear_message;
700:
693: ELSE
694: -- Pass back a message to UI informing that the request has not been purged.
695: hr_utility.set_message(801, 'PAY_33462_REQ_ACTION_INFO');
696: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
697: hr_utility.set_message_token(801,'ACTION','purged');
698: p_message := hr_utility.get_message;
699: hr_utility.clear_message;
700:
701: end if;
694: -- Pass back a message to UI informing that the request has not been purged.
695: hr_utility.set_message(801, 'PAY_33462_REQ_ACTION_INFO');
696: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
697: hr_utility.set_message_token(801,'ACTION','purged');
698: p_message := hr_utility.get_message;
699: hr_utility.clear_message;
700:
701: end if;
702: --
695: hr_utility.set_message(801, 'PAY_33462_REQ_ACTION_INFO');
696: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
697: hr_utility.set_message_token(801,'ACTION','purged');
698: p_message := hr_utility.get_message;
699: hr_utility.clear_message;
700:
701: end if;
702: --
703: end purge_single_flow_request;
703: end purge_single_flow_request;
704: ----
705:
706: BEGIN
707: hr_utility.set_location('Entering: '||l_proc, 5);
708:
709: l_fnd_req_completed := false;
710:
711: if(p_fnd_request_id is not null) THEN
728:
729: end if;
730: COMMIT;
731:
732: hr_utility.set_location(l_proc, 10);
733:
734: if(l_fnd_req_completed) THEN
735:
736: if (p_fnd_request_id IS NOT null) THEN
734: if(l_fnd_req_completed) THEN
735:
736: if (p_fnd_request_id IS NOT null) THEN
737:
738: hr_utility.set_message(801, 'PAY_33461_REQ_ACTION_CONFIRM');
739: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
740: hr_utility.set_message_token(801,'ACTION','purged');
741:
742: ELSE
735:
736: if (p_fnd_request_id IS NOT null) THEN
737:
738: hr_utility.set_message(801, 'PAY_33461_REQ_ACTION_CONFIRM');
739: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
740: hr_utility.set_message_token(801,'ACTION','purged');
741:
742: ELSE
743:
736: if (p_fnd_request_id IS NOT null) THEN
737:
738: hr_utility.set_message(801, 'PAY_33461_REQ_ACTION_CONFIRM');
739: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
740: hr_utility.set_message_token(801,'ACTION','purged');
741:
742: ELSE
743:
744: hr_utility.set_message(801, 'PAY_33463_REQ_ACTION_CONFIRM');
740: hr_utility.set_message_token(801,'ACTION','purged');
741:
742: ELSE
743:
744: hr_utility.set_message(801, 'PAY_33463_REQ_ACTION_CONFIRM');
745: hr_utility.set_message_token(801,'NO_OF_REQUESTS',l_request_count);
746: hr_utility.set_message_token(801,'ACTION','purged');
747:
748: end if;
741:
742: ELSE
743:
744: hr_utility.set_message(801, 'PAY_33463_REQ_ACTION_CONFIRM');
745: hr_utility.set_message_token(801,'NO_OF_REQUESTS',l_request_count);
746: hr_utility.set_message_token(801,'ACTION','purged');
747:
748: end if;
749:
742: ELSE
743:
744: hr_utility.set_message(801, 'PAY_33463_REQ_ACTION_CONFIRM');
745: hr_utility.set_message_token(801,'NO_OF_REQUESTS',l_request_count);
746: hr_utility.set_message_token(801,'ACTION','purged');
747:
748: end if;
749:
750: p_message := hr_utility.get_message;
746: hr_utility.set_message_token(801,'ACTION','purged');
747:
748: end if;
749:
750: p_message := hr_utility.get_message;
751: hr_utility.clear_message;
752:
753: end if;
754:
747:
748: end if;
749:
750: p_message := hr_utility.get_message;
751: hr_utility.clear_message;
752:
753: end if;
754:
755: hr_utility.set_location('Leaving: '||l_proc, 20);
751: hr_utility.clear_message;
752:
753: end if;
754:
755: hr_utility.set_location('Leaving: '||l_proc, 20);
756: --
757: END purge_requests;
758:
759: -- ----------------------------------------------------------------------------
791: l_message varchar2(255);
792: --
793: BEGIN
794: --
795: hr_utility.set_location('Entering: '||l_proc, 5);
796: --
797: -- Get the pending child request and cancel it
798: open get_pending_child_request(p_fnd_request_id);
799: fetch get_pending_child_request into l_fnd_request_id;
806: if l_cancelled THEN
807:
808: l_cancelled := fnd_concurrent.cancel_request(p_fnd_request_id,l_message);
809:
810: hr_utility.set_message(801, 'PAY_33461_REQ_ACTION_CONFIRM');
811: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
812: hr_utility.set_message_token(801,'ACTION','cancelled');
813: p_message := hr_utility.get_message;
814: p_message := p_message || ' ' || l_message;
807:
808: l_cancelled := fnd_concurrent.cancel_request(p_fnd_request_id,l_message);
809:
810: hr_utility.set_message(801, 'PAY_33461_REQ_ACTION_CONFIRM');
811: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
812: hr_utility.set_message_token(801,'ACTION','cancelled');
813: p_message := hr_utility.get_message;
814: p_message := p_message || ' ' || l_message;
815: hr_utility.clear_message;
808: l_cancelled := fnd_concurrent.cancel_request(p_fnd_request_id,l_message);
809:
810: hr_utility.set_message(801, 'PAY_33461_REQ_ACTION_CONFIRM');
811: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
812: hr_utility.set_message_token(801,'ACTION','cancelled');
813: p_message := hr_utility.get_message;
814: p_message := p_message || ' ' || l_message;
815: hr_utility.clear_message;
816:
809:
810: hr_utility.set_message(801, 'PAY_33461_REQ_ACTION_CONFIRM');
811: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
812: hr_utility.set_message_token(801,'ACTION','cancelled');
813: p_message := hr_utility.get_message;
814: p_message := p_message || ' ' || l_message;
815: hr_utility.clear_message;
816:
817: else
811: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
812: hr_utility.set_message_token(801,'ACTION','cancelled');
813: p_message := hr_utility.get_message;
814: p_message := p_message || ' ' || l_message;
815: hr_utility.clear_message;
816:
817: else
818: hr_utility.set_message(801, 'PAY_33462_REQ_ACTION_INFO');
819: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
814: p_message := p_message || ' ' || l_message;
815: hr_utility.clear_message;
816:
817: else
818: hr_utility.set_message(801, 'PAY_33462_REQ_ACTION_INFO');
819: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
820: hr_utility.set_message_token(801,'ACTION','cancelled');
821: p_message := hr_utility.get_message;
822: hr_utility.clear_message;
815: hr_utility.clear_message;
816:
817: else
818: hr_utility.set_message(801, 'PAY_33462_REQ_ACTION_INFO');
819: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
820: hr_utility.set_message_token(801,'ACTION','cancelled');
821: p_message := hr_utility.get_message;
822: hr_utility.clear_message;
823: end if;
816:
817: else
818: hr_utility.set_message(801, 'PAY_33462_REQ_ACTION_INFO');
819: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
820: hr_utility.set_message_token(801,'ACTION','cancelled');
821: p_message := hr_utility.get_message;
822: hr_utility.clear_message;
823: end if;
824:
817: else
818: hr_utility.set_message(801, 'PAY_33462_REQ_ACTION_INFO');
819: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
820: hr_utility.set_message_token(801,'ACTION','cancelled');
821: p_message := hr_utility.get_message;
822: hr_utility.clear_message;
823: end if;
824:
825: hr_utility.set_location('Leaving: '||l_proc, 10);
818: hr_utility.set_message(801, 'PAY_33462_REQ_ACTION_INFO');
819: hr_utility.set_message_token(801,'REQUEST_ID',p_fnd_request_id);
820: hr_utility.set_message_token(801,'ACTION','cancelled');
821: p_message := hr_utility.get_message;
822: hr_utility.clear_message;
823: end if;
824:
825: hr_utility.set_location('Leaving: '||l_proc, 10);
826: --
821: p_message := hr_utility.get_message;
822: hr_utility.clear_message;
823: end if;
824:
825: hr_utility.set_location('Leaving: '||l_proc, 10);
826: --
827: END cancel_request;
828:
829: -- ----------------------------------------------------------------------------
934: close child_request_exists;
935: --
936: end if;
937: --
938: hr_utility.set_location('Leaving: '||l_proc, 30);
939:
940: exception
941: when others
942: then fnd_file.put_line(FND_FILE.LOG,'Request creation for the child process failed');