[Home] [Help]
PACKAGE BODY: APPS.BIS_ALERT_SERVICE_PUB
Source
1 PACKAGE BODY BIS_ALERT_SERVICE_PUB AS
2 /* $Header: BISPALRB.pls 115.16 2003/12/15 14:15:43 arhegde ship $ */
3 /*
4 REM +=======================================================================+
5 REM | Copyright (c) 1998 Oracle Corporation, Redwood Shores, CA, USA |
6 REM | All rights reserved. |
7 REM +=======================================================================+
8 REM | FILENAME |
9 REM | BISPALRB.pls |
10 REM | |
11 REM | DESCRIPTION |
12 REM | Public API for Alert Services
13 REM |
14 REM | NOTES |
15 REM | |
16 REM | HISTORY |
17 REM | APR-2000 irchen Creation
18 REM| 27-JAN-03 arhegde For having different local variables for IN and OUT |
19 REM| parameters (bug#2758428) |
20 REM | 15-Dec-2003 arhegde enh# 3148615 Change/Target based alerting. |
21 REM +=======================================================================+
22 */
23 G_PKG_NAME CONSTANT VARCHAR2(30):= 'BIS_ALERT_SERVICE_PUB';
24 --
25 -- Procedures
26 --
27 Procedure Service_Alert_Request
28 ( ERRBUF OUT NOCOPY VARCHAR2
29 , RETCODE OUT NOCOPY VARCHAR2
30 , p_measure_id IN NUMBER
31 , p_measure_short_name IN VARCHAR2
32 , p_plan_id IN NUMBER default NULL
33 , p_org_level_id IN NUMBER default NULL
34 , p_org_level_short_name IN VARCHAR2 default NULL
35 , p_organization_id IN VARCHAR2 default NULL
36 , p_time_level_id IN NUMBER default NULL
37 , p_time_level_short_name IN VARCHAR2 default NULL
38 , p_time_level_value_id IN VARCHAR2 default NULL
39 , p_dim1_level_id IN NUMBER default NULL
40 , p_dim1_level_short_name IN VARCHAR2 default NULL
41 , p_dim1_level_value_id IN VARCHAR2 default NULL
42 , p_dim2_level_id IN NUMBER default NULL
43 , p_dim2_level_short_name IN VARCHAR2 default NULL
44 , p_dim2_level_value_id IN VARCHAR2 default NULL
45 , p_dim3_level_id IN NUMBER default NULL
46 , p_dim3_level_short_name IN VARCHAR2 default NULL
47 , p_dim3_level_value_id IN VARCHAR2 default NULL
48 , p_dim4_level_id IN NUMBER default NULL
49 , p_dim4_level_short_name IN VARCHAR2 default NULL
50 , p_dim4_level_value_id IN VARCHAR2 default NULL
51 , p_dim5_level_id IN NUMBER default NULL
52 , p_dim5_level_short_name IN VARCHAR2 default NULL
53 , p_dim5_level_value_id IN VARCHAR2 default NULL
54 , p_dim6_level_id IN NUMBER := NULL
55 , p_dim6_level_short_name IN VARCHAR2 := NULL
56 , p_dim6_level_value_id IN VARCHAR2 := NULL
57 , p_dim7_level_id IN NUMBER := NULL
58 , p_dim7_level_short_name IN VARCHAR2 := NULL
59 , p_dim7_level_value_id IN VARCHAR2 := NULL
60 , p_primary_dim_level_id IN NUMBER default NULL
61 , p_primary_dim_level_short_name IN VARCHAR2 default NULL
62 , P_notify_set IN VARCHAR2 default NULL
63 , p_alert_type IN VARCHAR2 default NULL
64 , p_alert_level IN VARCHAR2 default NULL
65 , p_current_row IN VARCHAR2 default NULL
66 , p_alert_based_on IN VARCHAR2 := BIS_CONCURRENT_MANAGER_PVT.C_ALERT_BASED_ON_TARGET
67 )
68 IS
69
70 l_Measure_Rec BIS_MEASURE_PUB.Measure_Rec_Type;
71 l_measure_rec_p BIS_MEASURE_PUB.Measure_Rec_Type;
72 l_error_Tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
73 l_return_status VARCHAR2(1000);
74 l_return_msg VARCHAR2(32000);
75
76 BEGIN
77
78 -- Debug messages should be printed irrespective of debug profile option.
79 bis_utilities_pvt.set_debug_log_flag ( -- 2715218
80 p_is_true => TRUE
81 , x_return_status => l_return_status
82 , x_return_msg => l_return_msg
83 ) ;
84
85 -- fnd_file.put_line(fnd_file.log, ' Return status is = ' || nvl(l_return_status, 'X!!') );
86
87
88 BIS_UTILITIES_PUB.put_line(p_text => ' ------- Begin log file for SONAR parent request. ------- ');
89
90 l_Measure_Rec.Measure_id := p_measure_id;
91 l_Measure_Rec.Measure_short_name := p_measure_short_name;
92
93 IF (BIS_UTILITIES_PUB.Value_Missing
94 (l_Measure_Rec.Measure_id) = FND_API.G_TRUE
95 OR BIS_UTILITIES_PUB.Value_NULL(l_Measure_Rec.Measure_id)
96 = FND_API.G_TRUE) then
97 l_measure_rec_p := l_measure_rec;
98 BIS_Measure_PVT.Value_ID_Conversion
99 ( p_api_version => 1.0
100 , p_Measure_Rec => l_measure_rec_p
101 , x_Measure_Rec => l_Measure_Rec
102 , x_return_status => l_return_status
103 , x_error_Tbl => l_error_Tbl
104 );
105 END IF;
106
107 BIS_UTILITIES_PUB.put_line(p_text => 'Requested Measure short name : '||l_Measure_Rec.Measure_short_name );
108
109 BIS_ALERT_SERVICE_PVT.Service_Alert_Request
110 ( ERRBUF => ERRBUF
111 , RETCODE => RETCODE
112 , p_measure_id => l_Measure_Rec.Measure_id
113 , p_measure_short_name => l_Measure_Rec.measure_short_name
114 , p_plan_id => p_plan_id
115 , p_org_level_id => p_org_level_id
116 , p_org_level_short_name => p_org_level_short_name
117 , p_organization_id => p_organization_id
118 , p_time_level_id => p_time_level_id
119 , p_time_level_short_name => p_time_level_short_name
120 , p_time_level_value_id => p_time_level_value_id
121 , p_dim1_level_id => p_dim1_level_id
122 , p_dim1_level_short_name => p_dim1_level_short_name
123 , p_dim1_level_value_id => p_dim1_level_value_id
124 , p_dim2_level_id => p_dim2_level_id
125 , p_dim2_level_short_name => p_dim2_level_short_name
126 , p_dim2_level_value_id => p_dim2_level_value_id
127 , p_dim3_level_id => p_dim3_level_id
128 , p_dim3_level_short_name => p_dim3_level_short_name
129 , p_dim3_level_value_id => p_dim3_level_value_id
130 , p_dim4_level_id => p_dim4_level_id
131 , p_dim4_level_short_name => p_dim4_level_short_name
132 , p_dim4_level_value_id => p_dim4_level_value_id
133 , p_dim5_level_id => p_dim5_level_id
134 , p_dim5_level_short_name => p_dim5_level_short_name
135 , p_dim5_level_value_id => p_dim5_level_value_id
136 , p_dim6_level_id => p_dim6_level_id
137 , p_dim6_level_short_name => p_dim6_level_short_name
138 , p_dim6_level_value_id => p_dim6_level_value_id
139 , p_dim7_level_id => p_dim7_level_id
140 , p_dim7_level_short_name => p_dim7_level_short_name
141 , p_dim7_level_value_id => p_dim7_level_value_id
142 , p_primary_dim_level_id => p_primary_dim_level_id
143 , p_primary_dim_level_short_name => p_primary_dim_level_short_name
144 , P_notify_set => P_notify_set
145 , p_alert_type => p_alert_type
146 , p_alert_level => p_alert_level
147 , p_current_row => p_current_row
148 , p_alert_based_on => p_alert_based_on
149 );
150
151 BIS_UTILITIES_PUB.put_line(p_text => ' ------- End log file for SONAR parent request. ------- ');
152
153 EXCEPTION
154 when FND_API.G_EXC_ERROR then
155 RETCODE := 1;
156 ERRBUF := SQLERRM;
157 return;
158 when FND_API.G_EXC_UNEXPECTED_ERROR then
159 RETCODE := 1;
160 ERRBUF := SQLERRM;
161 return;
162 when others then
163 RETCODE := 1;
164 BIS_UTILITIES_PVT.Add_Error_Message
165 ( p_error_msg_id => SQLCODE
166 , p_error_description => SQLERRM
167 , p_error_proc_name => G_PKG_NAME||'.Service_Alert_Request'
168 );
169 return;
170
171 END Service_Alert_Request;
172
173 END BIS_ALERT_SERVICE_PUB;