95: lc_dstatus VARCHAR2(30);
96: lc_message VARCHAR2(240);
97:
98: BEGIN
99: lb_call_status := FND_CONCURRENT.get_request_status(
100: p_request_id
101: ,''
102: ,''
103: ,lc_rphase
150: SELECT fcp.concurrent_program_name
151: ,fcp.concurrent_program_id
152: INTO ln_conc_prog_code
153: ,ln_conc_prog_id
154: FROM fnd_concurrent_programs fcp
155: ,fnd_concurrent_requests fcr
156: WHERE fcp.concurrent_program_id = fcr.concurrent_program_id
157: AND fcr.request_id = p_parent_request_id;
158:
151: ,fcp.concurrent_program_id
152: INTO ln_conc_prog_code
153: ,ln_conc_prog_id
154: FROM fnd_concurrent_programs fcp
155: ,fnd_concurrent_requests fcr
156: WHERE fcp.concurrent_program_id = fcr.concurrent_program_id
157: AND fcr.request_id = p_parent_request_id;
158:
159: lb_options_ok := FND_REQUEST.set_options(implicit => 'NO'
165:
166: IF ln_conc_prog_code='ARBPAIPMP_IL' THEN
167: IF p_choice ='NEW' THEN
168:
169: UPDATE fnd_concurrent_requests
170: SET save_output_flag='N'
171: ,number_of_copies=1
172: WHERE request_id = p_parent_request_id
173: AND concurrent_program_id = ln_conc_prog_id;
171: ,number_of_copies=1
172: WHERE request_id = p_parent_request_id
173: AND concurrent_program_id = ln_conc_prog_id;
174: ELSE
175: UPDATE fnd_concurrent_requests
176: SET save_output_flag='Y'
177: WHERE request_id = p_parent_request_id
178: AND concurrent_program_id = ln_conc_prog_id;
179: END IF;
178: AND concurrent_program_id = ln_conc_prog_id;
179: END IF;
180: END IF;
181:
182: IF( FND_CONCURRENT.get_request_print_options(p_parent_request_id
183: ,ln_number_of_copies
184: ,lc_print_style
185: ,lc_printer
186: ,lc_save_output_flag)) THEN
756: DECLARE
757: CURSOR child_request_cur(p_request_id IN NUMBER) IS
758: SELECT fcr.request_id
759: ,fcr.status_code
760: FROM fnd_concurrent_requests fcr
761: WHERE fcr.parent_request_id = p_request_id;
762: BEGIN
763: FOR child_request_rec IN child_request_cur(ln_m_request_id)
764: LOOP
775: END IF;
776: END LOOP;
777:
778: IF ((ln_cnt_errors > 0) OR ( ln_fail_count = ln_divided_worker_counts )) THEN
779: lb_request_status := FND_CONCURRENT.set_completion_status('ERROR', '');
780: ELSIF ((ln_cnt_warnings > 0) OR (ln_fail_count > 0)) THEN
781: lb_request_status := FND_CONCURRENT.set_completion_status('WARNING', '');
782: ELSE
783: lb_request_status := FND_CONCURRENT.set_completion_status('NORMAL', '');
777:
778: IF ((ln_cnt_errors > 0) OR ( ln_fail_count = ln_divided_worker_counts )) THEN
779: lb_request_status := FND_CONCURRENT.set_completion_status('ERROR', '');
780: ELSIF ((ln_cnt_warnings > 0) OR (ln_fail_count > 0)) THEN
781: lb_request_status := FND_CONCURRENT.set_completion_status('WARNING', '');
782: ELSE
783: lb_request_status := FND_CONCURRENT.set_completion_status('NORMAL', '');
784: END IF;
785: END;
779: lb_request_status := FND_CONCURRENT.set_completion_status('ERROR', '');
780: ELSIF ((ln_cnt_warnings > 0) OR (ln_fail_count > 0)) THEN
781: lb_request_status := FND_CONCURRENT.set_completion_status('WARNING', '');
782: ELSE
783: lb_request_status := FND_CONCURRENT.set_completion_status('NORMAL', '');
784: END IF;
785: END;
786: END IF;
787: