PACKAGE BODY: APPS.BIS_REGISTRATION_SERVICE_PUB

Source

1 package body bis_registration_service_pub as
2 /* $Header: BISPARSB.pls 115.9 2002/12/16 10:22:44 rchandra ship $ */
3 
4 PROCEDURE submit_request
5 ( p_time            IN      varchar2
6  ,p_request_id      OUT NOCOPY     varchar2
7  ,p_parameter_type1 IN  varchar2   default null
8  ,p_parameter_value1 IN  varchar2   default null
9  ,p_parameter_type2 IN  varchar2   default null
10  ,p_parameter_value2 IN  varchar2   default null
11  ,p_parameter_type3 IN  varchar2   default null
12  ,p_parameter_value3 IN  varchar2   default null
13  ,p_parameter_type4 IN  varchar2   default null
14  ,p_parameter_value4 IN  varchar2   default null
15  ,p_parameter_type5 IN  varchar2   default null
16  ,p_parameter_value5 IN  varchar2   default null
17  ,p_parameter_type6 IN  varchar2   default null
18  ,p_parameter_value6 IN  varchar2   default null
19  ,p_parameter_type7 IN  varchar2   default null
20  ,p_parameter_value7 IN  varchar2   default null
21  ,p_parameter_type8 IN  varchar2   default null
22  ,p_parameter_value8 IN  varchar2   default null
23  ,p_parameter_type9 IN  varchar2   default null
24  ,p_parameter_value9 IN  varchar2   default null
25  ,p_parameter_type10 IN  varchar2   default null
26  ,p_parameter_value10 IN  varchar2   default null
27 )
28 IS
29 
30  l_request_id NUMBER;
31  l_measure_short_name varchar2(3000);
32  l_dim_level_short_name varchar2(3000);
33 begin
34 
35   select dimLevel.DIMENSION_LEVEL_SHORT_NAME
36   into l_dim_level_short_name
37   from bisbv_dimension_levels dimLevel
38   where dimLevel.DIMENSION_ID = to_number(p_parameter_value2) ;
39 
40   SELECT MEASURE_SHORT_NAME
41   INTO L_MEASURE_SHORT_NAME
42   FROM BISBV_PERFORMANCE_MEASURES
43   where MEASURE_ID = to_number(p_parameter_value1);
44 
45   l_request_id := fnd_request.submit_request( application => 'BIS'
46 			    , program     => 'BIS_ALERT_MANAGER'
47                             , description => 'BIS Alert Manager'
48                             , start_time  => p_time
49                             , argument1   => p_parameter_value1
50                             , argument2   => l_measure_short_name
51                             , argument3   => NULL
52                             , argument4   => NULL
53                             , argument5   => NULL
54                             , argument6   => NULL
55                             , argument7   => NULL
56                             , argument8   => NULL
57                             , argument9   => p_parameter_value2
58                             , argument10  => l_measure_short_name
59                             );
60 
61   if l_request_id = 0 then
62     p_request_id := 'Failed for type - 1 ' || p_parameter_type1
63                        || ' Value1 ' ||p_parameter_value1
64                        || ' type -2 ' || p_parameter_type2
65                        ||'Value 2 ' || p_parameter_value2  ;
66   else
67     p_request_id := 'Successful ' || to_char(l_request_id);
68   end if;
69 
70 end submit_request;
71 
72 end bis_registration_service_pub;