PACKAGE BODY: APPS.MSC_CONC_PROG_MONITOR

Source

1 PACKAGE BODY Msc_conc_prog_monitor AS
2 	/* $Header: MSCCPRGB.pls 120.0 2005/05/25 20:10:59 appldev noship $*/
3 
4 function child_requests_completed(p_request_id number) return number  is
5 i number := 1;
6 l_call_status boolean;
7              l_phase            varchar2(80);
8               l_status           varchar2(80);
9               l_dev_phase        varchar2(80);
10               l_dev_status       varchar2(80);
11               l_message          varchar2(2048);
12 l_request_id number;
13 begin
14     dbms_output.put_line('request id is ' || p_request_id);
15     while fnd_concurrent.get_sub_requests(p_request_id).exists(i) loop
16     dbms_output.put_line('sub request is ' || fnd_concurrent.get_sub_requests(p_request_id)(i).request_id ||
17                                           fnd_concurrent.get_sub_requests(p_request_id)(i).dev_phase);
18       if fnd_concurrent.get_sub_requests(p_request_id)(i).dev_phase <> 'COMPLETE' then
19          return 0;
20       end if;
21       if child_requests_completed(fnd_concurrent.get_sub_requests(p_request_id)(i).request_id) <> 1 then
22          return 0;
23       end if;
24     i:= i+ 1;
25     end loop;
26     l_request_id := p_request_id;
27                   l_call_status:= FND_CONCURRENT.GET_REQUEST_STATUS
28                                       ( l_request_id,
29                                         NULL,
30                                         NULL,
31                                         l_phase,
32                                         l_status,
33                                         l_dev_phase,
34                                         l_dev_status,
35                                         l_message);
36      if l_dev_phase <> 'COMPLETE' then
37        return 0;
38      else
39        return 1;
40      end if;
41 end;
42 
43 END Msc_conc_prog_monitor;