eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.OKS_PM_ENTITLEMENTS_PUB

Source


1 PACKAGE BODY OKS_PM_ENTITLEMENTS_PUB AS
2 /* $Header: OKSPPMEB.pls 120.0 2005/05/25 18:31:48 appldev noship $ */
3 
4 
5    PROCEDURE Get_PM_Contracts
6     (p_api_version          IN  Number
7     ,p_init_msg_list        IN  Varchar2
8     ,p_inp_rec              IN  Get_pmcontin_rec
9     ,x_return_status        out nocopy Varchar2
10     ,x_msg_count            out nocopy Number
11     ,x_msg_data             out nocopy Varchar2
12     ,x_ent_contracts        out nocopy OKS_ENTITLEMENTS_PUB.get_contop_tbl
13     ,x_pm_activities        out nocopy OKS_PM_ENTITLEMENTS_PUB.get_activityop_tbl)
14   IS
15    l_return_status	Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
16    l_api_name            CONSTANT VARCHAR2(30) := 'get_pm_contracts';
17   BEGIN
18        l_return_status := OKC_API.START_ACTIVITY(l_api_name
19                                                 ,p_init_msg_list
20                                                 ,'_PUB'
21                                                 ,x_return_status
22                                                 );
23        IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
24           RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
25        ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
26              RAISE OKC_API.G_EXCEPTION_ERROR;
27        END IF;
28 
29 	OKS_PM_ENTITLEMENTS_PVT.get_pm_contracts
30 			(p_api_version       => p_api_version
31 			,p_init_msg_list     => p_init_msg_list
32 			,p_inp_rec           => p_inp_rec
33 			,x_return_status     => x_return_status
34 			,x_msg_count         => x_msg_count
35 			,x_msg_data          => x_msg_data
36 			,x_ent_contracts     => x_ent_contracts
37             ,x_pm_activities     => x_pm_activities);
38 
39 
40 
41        IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
42           RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
43        ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
44              RAISE OKC_API.G_EXCEPTION_ERROR;
45        END IF;
46 
47        OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
48 
49     EXCEPTION
50        WHEN OKC_API.G_EXCEPTION_ERROR THEN
51        x_return_status := OKC_API.HANDLE_EXCEPTIONS
52        (l_api_name,
53         G_PKG_NAME,
54         'OKC_API.G_RET_STS_ERROR',
55         x_msg_count,
56         x_msg_data,
57         '_PUB');
58        WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
59        x_return_status := OKC_API.HANDLE_EXCEPTIONS
60        (l_api_name,
61         G_PKG_NAME,
62         'OKC_API.G_RET_STS_UNEXP_ERROR',
63         x_msg_count,
64         x_msg_data,
65         '_PUB');
66        WHEN OTHERS THEN
67        x_return_status := OKC_API.HANDLE_EXCEPTIONS
68        (l_api_name,
69         G_PKG_NAME,
70         'OTHERS',
71         x_msg_count,
72         x_msg_data,
73         '_PUB');
74   END get_pm_contracts;
75 
76   PROCEDURE Get_PM_Schedule
77     (p_api_version          IN  Number
78     ,p_init_msg_list        IN  Varchar2
79     ,p_sch_rec              IN  inp_sch_rec
80     ,x_return_status        out nocopy Varchar2
81     ,x_msg_count            out nocopy Number
82     ,x_msg_data             out nocopy Varchar2
83     ,x_pm_schedule          out nocopy pm_sch_tbl_type)
84   IS
85    l_return_status	Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
86    l_api_name            CONSTANT VARCHAR2(30) := 'Get_PM_Schedule';
87   BEGIN
88        l_return_status := OKC_API.START_ACTIVITY(l_api_name
89                                                 ,p_init_msg_list
90                                                 ,'_PUB'
91                                                 ,x_return_status
92                                                 );
93        IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
94           RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
95        ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
96              RAISE OKC_API.G_EXCEPTION_ERROR;
97        END IF;
98 
99 /*	OKS_PM_ENTITLEMENTS_PVT.Get_PM_Schedule
100 			(p_api_version       => p_api_version
101 			,p_init_msg_list     => p_init_msg_list
102 			,p_sch_rec           => p_sch_rec
103 			,x_return_status     => x_return_status
104 			,x_msg_count         => x_msg_count
105 			,x_msg_data          => x_msg_data
106 			,x_pm_schedule       => x_pm_schedule);*/
107 
108 
109 	OKS_PM_ENTITLEMENTS_PVT.Get_PM_Schedule
110 			(p_api_version       => p_api_version
111 			,p_init_msg_list     => p_init_msg_list
112 			,p_sch_rec           => p_sch_rec
113 			,x_return_status     => x_return_status
114 			,x_msg_count         => x_msg_count
115 			,x_msg_data          => x_msg_data
116 			,x_pm_schedule       => x_pm_schedule);
117 
118 
119 
120 
121        IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
122           RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
123        ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
124              RAISE OKC_API.G_EXCEPTION_ERROR;
125        END IF;
126 
127        OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
128 
129     EXCEPTION
130        WHEN OKC_API.G_EXCEPTION_ERROR THEN
131        x_return_status := OKC_API.HANDLE_EXCEPTIONS
132        (l_api_name,
133         G_PKG_NAME,
134         'OKC_API.G_RET_STS_ERROR',
135         x_msg_count,
136         x_msg_data,
137         '_PUB');
138        WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
139        x_return_status := OKC_API.HANDLE_EXCEPTIONS
140        (l_api_name,
141         G_PKG_NAME,
142         'OKC_API.G_RET_STS_UNEXP_ERROR',
143         x_msg_count,
144         x_msg_data,
145         '_PUB');
146        WHEN OTHERS THEN
147        x_return_status := OKC_API.HANDLE_EXCEPTIONS
148        (l_api_name,
149         G_PKG_NAME,
150         'OTHERS',
151         x_msg_count,
152         x_msg_data,
153         '_PUB');
154   END Get_PM_Schedule;
155 
156   PROCEDURE Get_PM_Confirmation
157     (p_api_version          IN  Number
158     ,p_init_msg_list        IN  Varchar2
159     ,p_service_line_id      IN  Number
160     ,p_program_id           IN  Number
161     ,p_Activity_Id          IN  Number
162     ,x_return_status        out nocopy Varchar2
163     ,x_msg_count            out nocopy Number
164     ,x_msg_data             out nocopy Varchar2
165     ,x_pm_conf_reqd         out nocopy Varchar2)
166   IS
167    l_return_status	Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
168    l_api_name            CONSTANT VARCHAR2(30) := 'Get_PM_Confirmation';
169   BEGIN
170        l_return_status := OKC_API.START_ACTIVITY(l_api_name
171                                                 ,p_init_msg_list
172                                                 ,'_PUB'
173                                                 ,x_return_status
174                                                 );
175        IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
176           RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
177        ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
178              RAISE OKC_API.G_EXCEPTION_ERROR;
179        END IF;
180 
181 	OKS_PM_ENTITLEMENTS_PVT.Get_PM_Confirmation
182 			(p_api_version       => p_api_version
183 			,p_init_msg_list     => p_init_msg_list
184 			,p_service_line_id   => p_service_line_id
185             ,p_program_id        => p_program_id
186             ,p_Activity_Id       => p_activity_id
187 			,x_return_status     => x_return_status
188 			,x_msg_count         => x_msg_count
189 			,x_msg_data          => x_msg_data
190 			,x_pm_conf_reqd      => x_pm_conf_reqd);
191 
192 
193        IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
194           RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
195        ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
196              RAISE OKC_API.G_EXCEPTION_ERROR;
197        END IF;
198 
199        OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
200 
201     EXCEPTION
202        WHEN OKC_API.G_EXCEPTION_ERROR THEN
203        x_return_status := OKC_API.HANDLE_EXCEPTIONS
204        (l_api_name,
205         G_PKG_NAME,
206         'OKC_API.G_RET_STS_ERROR',
207         x_msg_count,
208         x_msg_data,
209         '_PUB');
210        WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
211        x_return_status := OKC_API.HANDLE_EXCEPTIONS
212        (l_api_name,
213         G_PKG_NAME,
214         'OKC_API.G_RET_STS_UNEXP_ERROR',
215         x_msg_count,
216         x_msg_data,
217         '_PUB');
218        WHEN OTHERS THEN
219        x_return_status := OKC_API.HANDLE_EXCEPTIONS
220        (l_api_name,
221         G_PKG_NAME,
222         'OTHERS',
223         x_msg_count,
224         x_msg_data,
225         '_PUB');
226   END Get_PM_Confirmation;
227 
228   PROCEDURE Check_PM_Exists
229     (p_api_version          IN  Number
230     ,p_init_msg_list        IN  Varchar2
231     ,p_pm_program_id        IN  Number default null
232     ,p_pm_activity_id       IN  Number default null
233     ,x_return_status        out nocopy Varchar2
234     ,x_msg_count            out nocopy Number
235     ,x_msg_data             out nocopy Varchar2
236     ,x_pm_reference_exists  out nocopy Varchar2)
237       IS
238    l_return_status	Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
239    l_api_name            CONSTANT VARCHAR2(30) := 'Check_PM_Exists';
240   BEGIN
241        l_return_status := OKC_API.START_ACTIVITY(l_api_name
242                                                 ,p_init_msg_list
243                                                 ,'_PUB'
244                                                 ,x_return_status
245                                                 );
246        IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
247           RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
248        ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
249              RAISE OKC_API.G_EXCEPTION_ERROR;
250        END IF;
251 	OKS_PM_ENTITLEMENTS_PVT.Check_PM_Exists
252 			(p_api_version       => p_api_version
253 			,p_init_msg_list     => p_init_msg_list
254 			,p_pm_program_id     => p_pm_program_id
255             ,p_pm_activity_id    => p_pm_activity_id
256 			,x_return_status     => x_return_status
257 			,x_msg_count         => x_msg_count
258 			,x_msg_data          => x_msg_data
259 			,x_pm_reference_exists => x_pm_reference_exists);
260 
261 
262        IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
263           RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
264        ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
265              RAISE OKC_API.G_EXCEPTION_ERROR;
266        END IF;
267 
268        OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
269 
270     EXCEPTION
271        WHEN OKC_API.G_EXCEPTION_ERROR THEN
272        x_return_status := OKC_API.HANDLE_EXCEPTIONS
273        (l_api_name,
274         G_PKG_NAME,
275         'OKC_API.G_RET_STS_ERROR',
276         x_msg_count,
277         x_msg_data,
278         '_PUB');
279        WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
280        x_return_status := OKC_API.HANDLE_EXCEPTIONS
281        (l_api_name,
282         G_PKG_NAME,
283         'OKC_API.G_RET_STS_UNEXP_ERROR',
284         x_msg_count,
285         x_msg_data,
286         '_PUB');
287        WHEN OTHERS THEN
288        x_return_status := OKC_API.HANDLE_EXCEPTIONS
289        (l_api_name,
290         G_PKG_NAME,
291         'OTHERS',
292         x_msg_count,
293         x_msg_data,
294         '_PUB');
295   END Check_PM_Exists;
296 
297 END OKS_PM_ENTITLEMENTS_PUB;