27: --End of comments
28:
29: PROCEDURE Get_Bill_Rates (
30: p_api_version IN NUMBER,
31: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
32: p_commit IN VARCHAR2 := FND_API.G_FALSE,
33: p_coverage_id IN NUMBER,
34: p_exception_coverage_flag IN VARCHAR2,
35: p_business_process_id IN NUMBER,
28:
29: PROCEDURE Get_Bill_Rates (
30: p_api_version IN NUMBER,
31: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
32: p_commit IN VARCHAR2 := FND_API.G_FALSE,
33: p_coverage_id IN NUMBER,
34: p_exception_coverage_flag IN VARCHAR2,
35: p_business_process_id IN NUMBER,
36: p_bill_rate_code IN VARCHAR2,
82: AND LKT.Lookup_Code = CBR.Rate_Type_Code
83: AND LKT.Lookup_Type = 'BILLING_RATE';
84: l_api_name CONSTANT VARCHAR2(30) := 'Get_Bill_Rates';
85: l_api_version CONSTANT NUMBER := 1;
86: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
87: BEGIN
88: l_return_status := TAPI_DEV_KIT.START_ACTIVITY( l_api_name,
89: G_PKG_NAME,
90: l_api_version,
91: p_api_version,
92: p_init_msg_list,
93: '_pub',
94: x_return_status);
95: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
96: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
97: END IF;
98:
99: IF (NVL(p_exception_coverage_flag,'N') = 'Y') THEN
92: p_init_msg_list,
93: '_pub',
94: x_return_status);
95: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
96: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
97: END IF;
98:
99: IF (NVL(p_exception_coverage_flag,'N') = 'Y') THEN
100: CS_GET_COVERAGE_VALUES_PUB.Get_Exception_Coverage(
98:
99: IF (NVL(p_exception_coverage_flag,'N') = 'Y') THEN
100: CS_GET_COVERAGE_VALUES_PUB.Get_Exception_Coverage(
101: 1,
102: FND_API.G_FALSE,
103: FND_API.G_FALSE,
104: p_coverage_id,
105: l_coverage_id,
106: x_return_status,
99: IF (NVL(p_exception_coverage_flag,'N') = 'Y') THEN
100: CS_GET_COVERAGE_VALUES_PUB.Get_Exception_Coverage(
101: 1,
102: FND_API.G_FALSE,
103: FND_API.G_FALSE,
104: p_coverage_id,
105: l_coverage_id,
106: x_return_status,
107: x_msg_count,
105: l_coverage_id,
106: x_return_status,
107: x_msg_count,
108: x_msg_data);
109: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
110: FND_MESSAGE.Set_Name ('CS','CS_CONTRACTS_VALUE_NOT_FOUND');
111: FND_MESSAGE.Set_Token('VALUE','EXCEPTION COVERAGE');
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
108: x_msg_data);
109: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
110: FND_MESSAGE.Set_Name ('CS','CS_CONTRACTS_VALUE_NOT_FOUND');
111: FND_MESSAGE.Set_Token('VALUE','EXCEPTION COVERAGE');
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
114: FND_MESSAGE.Set_Name ('CS','CS_CONTRACTS_VALUE_NOT_FOUND');
115: FND_MESSAGE.Set_Token('VALUE','EXCEPTION COVERAGE');
116: RAISE FND_API.G_EXC_ERROR;
109: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
110: FND_MESSAGE.Set_Name ('CS','CS_CONTRACTS_VALUE_NOT_FOUND');
111: FND_MESSAGE.Set_Token('VALUE','EXCEPTION COVERAGE');
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
114: FND_MESSAGE.Set_Name ('CS','CS_CONTRACTS_VALUE_NOT_FOUND');
115: FND_MESSAGE.Set_Token('VALUE','EXCEPTION COVERAGE');
116: RAISE FND_API.G_EXC_ERROR;
117: END IF;
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
114: FND_MESSAGE.Set_Name ('CS','CS_CONTRACTS_VALUE_NOT_FOUND');
115: FND_MESSAGE.Set_Token('VALUE','EXCEPTION COVERAGE');
116: RAISE FND_API.G_EXC_ERROR;
117: END IF;
118: ELSE
119: l_coverage_id := p_coverage_id;
120: END IF;
132:
133: -- IF Bill_Rate_Null_UOM_Csr%NOTFOUND THEN
134: -- FND_MESSAGE.Set_Name ('CS','CS_CONTRACTS_VALUE_NOT_FOUND');
135: -- FND_MESSAGE.Set_Token('VALUE','BILL RATES');
136: -- RAISE FND_API.G_EXC_ERROR;
137: -- END IF;
138:
139: CLOSE Bill_Rate_Null_UOM_Csr;
140: END IF;
147:
148: TAPI_DEV_KIT.END_ACTIVITY(p_commit,
149: x_msg_count,
150: x_msg_data);
151: x_return_status := FND_API.G_RET_STS_SUCCESS;
152: EXCEPTION
153: WHEN FND_API.G_EXC_ERROR THEN
154: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
155: (l_api_name,
149: x_msg_count,
150: x_msg_data);
151: x_return_status := FND_API.G_RET_STS_SUCCESS;
152: EXCEPTION
153: WHEN FND_API.G_EXC_ERROR THEN
154: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
155: (l_api_name,
156: G_PKG_NAME,
157: 'FND_API.G_RET_STS_ERROR',
153: WHEN FND_API.G_EXC_ERROR THEN
154: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
155: (l_api_name,
156: G_PKG_NAME,
157: 'FND_API.G_RET_STS_ERROR',
158: x_msg_count,
159: x_msg_data,
160: '_pub');
161: APP_EXCEPTION.RAISE_EXCEPTION;
158: x_msg_count,
159: x_msg_data,
160: '_pub');
161: APP_EXCEPTION.RAISE_EXCEPTION;
162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
163: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
164: (l_api_name,
165: G_PKG_NAME,
166: 'FND_API.G_RET_STS_UNEXP_ERROR',
162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
163: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
164: (l_api_name,
165: G_PKG_NAME,
166: 'FND_API.G_RET_STS_UNEXP_ERROR',
167: x_msg_count,
168: x_msg_data,
169: '_pub');
170: APP_EXCEPTION.RAISE_EXCEPTION;
206: --End of comments
207:
208: PROCEDURE Get_Preferred_Engineer (
209: p_api_version IN NUMBER,
210: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
211: p_commit IN VARCHAR2 := FND_API.G_FALSE,
212: p_coverage_id IN NUMBER,
213: p_business_process_id IN VARCHAR2,
214: p_exception_coverage_flag IN VARCHAR2,
207:
208: PROCEDURE Get_Preferred_Engineer (
209: p_api_version IN NUMBER,
210: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
211: p_commit IN VARCHAR2 := FND_API.G_FALSE,
212: p_coverage_id IN NUMBER,
213: p_business_process_id IN VARCHAR2,
214: p_exception_coverage_flag IN VARCHAR2,
215: x_preferred_engineer1 OUT VARCHAR2,
227: AND TXN.Business_Process_Id = p_business_Process_id;
228:
229: l_api_name CONSTANT VARCHAR2(30) := 'Get_Preferred_Engineer';
230: l_api_version CONSTANT NUMBER := 1;
231: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
232: BEGIN
233: l_return_status := TAPI_DEV_KIT.START_ACTIVITY( l_api_name,
234: G_PKG_NAME,
235: l_api_version,
236: p_api_version,
237: p_init_msg_list,
238: '_pub',
239: x_return_status);
240: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: END IF;
243:
244: IF (NVL(p_exception_coverage_flag,'N') = 'Y') THEN
237: p_init_msg_list,
238: '_pub',
239: x_return_status);
240: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: END IF;
243:
244: IF (NVL(p_exception_coverage_flag,'N') = 'Y') THEN
245: CS_GET_COVERAGE_VALUES_PUB.Get_Exception_Coverage(
243:
244: IF (NVL(p_exception_coverage_flag,'N') = 'Y') THEN
245: CS_GET_COVERAGE_VALUES_PUB.Get_Exception_Coverage(
246: 1,
247: FND_API.G_FALSE,
248: FND_API.G_FALSE,
249: p_coverage_id,
250: l_coverage_id,
251: x_return_status,
244: IF (NVL(p_exception_coverage_flag,'N') = 'Y') THEN
245: CS_GET_COVERAGE_VALUES_PUB.Get_Exception_Coverage(
246: 1,
247: FND_API.G_FALSE,
248: FND_API.G_FALSE,
249: p_coverage_id,
250: l_coverage_id,
251: x_return_status,
252: x_msg_count,
250: l_coverage_id,
251: x_return_status,
252: x_msg_count,
253: x_msg_data);
254: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
255: FND_MESSAGE.Set_Name ('CS','CS_CONTRACTS_VALUE_NOT_FOUND');
256: FND_MESSAGE.Set_Token('VALUE','EXCEPTION COVERAGE');
257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
253: x_msg_data);
254: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
255: FND_MESSAGE.Set_Name ('CS','CS_CONTRACTS_VALUE_NOT_FOUND');
256: FND_MESSAGE.Set_Token('VALUE','EXCEPTION COVERAGE');
257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
259: FND_MESSAGE.Set_Name ('CS','CS_CONTRACTS_VALUE_NOT_FOUND');
260: FND_MESSAGE.Set_Token('VALUE','EXCEPTION COVERAGE');
261: RAISE FND_API.G_EXC_ERROR;
254: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
255: FND_MESSAGE.Set_Name ('CS','CS_CONTRACTS_VALUE_NOT_FOUND');
256: FND_MESSAGE.Set_Token('VALUE','EXCEPTION COVERAGE');
257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
259: FND_MESSAGE.Set_Name ('CS','CS_CONTRACTS_VALUE_NOT_FOUND');
260: FND_MESSAGE.Set_Token('VALUE','EXCEPTION COVERAGE');
261: RAISE FND_API.G_EXC_ERROR;
262: END IF;
257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
259: FND_MESSAGE.Set_Name ('CS','CS_CONTRACTS_VALUE_NOT_FOUND');
260: FND_MESSAGE.Set_Token('VALUE','EXCEPTION COVERAGE');
261: RAISE FND_API.G_EXC_ERROR;
262: END IF;
263: ELSE
264: l_coverage_id := p_coverage_id;
265: END IF;
271:
272: IF Preferred_Engineer_csr%NOTFOUND THEN
273: FND_MESSAGE.Set_Name ('CS','CS_CONTRACTS_VALUE_NOT_FOUND');
274: FND_MESSAGE.Set_Token('VALUE','PREFERRED ENGINEER');
275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
276: END IF;
277: CLOSE Preferred_Engineer_csr;
278:
279: TAPI_DEV_KIT.END_ACTIVITY(p_commit,
278:
279: TAPI_DEV_KIT.END_ACTIVITY(p_commit,
280: x_msg_count,
281: x_msg_data);
282: x_return_status := FND_API.G_RET_STS_SUCCESS;
283: EXCEPTION
284: WHEN FND_API.G_EXC_ERROR THEN
285: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
286: (l_api_name,
280: x_msg_count,
281: x_msg_data);
282: x_return_status := FND_API.G_RET_STS_SUCCESS;
283: EXCEPTION
284: WHEN FND_API.G_EXC_ERROR THEN
285: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
286: (l_api_name,
287: G_PKG_NAME,
288: 'FND_API.G_RET_STS_ERROR',
284: WHEN FND_API.G_EXC_ERROR THEN
285: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
286: (l_api_name,
287: G_PKG_NAME,
288: 'FND_API.G_RET_STS_ERROR',
289: x_msg_count,
290: x_msg_data,
291: '_pub');
292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
288: 'FND_API.G_RET_STS_ERROR',
289: x_msg_count,
290: x_msg_data,
291: '_pub');
292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
293: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
294: (l_api_name,
295: G_PKG_NAME,
296: 'FND_API.G_RET_STS_UNEXP_ERROR',
292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
293: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
294: (l_api_name,
295: G_PKG_NAME,
296: 'FND_API.G_RET_STS_UNEXP_ERROR',
297: x_msg_count,
298: x_msg_data,
299: '_pub');
300: WHEN OTHERS THEN
330: --End of comments
331:
332: PROCEDURE Get_Exception_coverage (
333: p_api_version IN NUMBER,
334: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
335: p_commit IN VARCHAR2 := FND_API.G_FALSE,
336: p_coverage_id IN NUMBER,
337: x_exception_coverage_id OUT NUMBER,
338: x_return_status OUT VARCHAR2,
331:
332: PROCEDURE Get_Exception_coverage (
333: p_api_version IN NUMBER,
334: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
335: p_commit IN VARCHAR2 := FND_API.G_FALSE,
336: p_coverage_id IN NUMBER,
337: x_exception_coverage_id OUT NUMBER,
338: x_return_status OUT VARCHAR2,
339: x_msg_count OUT NUMBER,
346: AND COV2.Coverage_id = COV1.Exception_Coverage_id;
347:
348: l_api_name CONSTANT VARCHAR2(30) := 'Get_Exception_Coverage';
349: l_api_version CONSTANT NUMBER := 1;
350: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
351: BEGIN
352: l_return_status := TAPI_DEV_KIT.START_ACTIVITY( l_api_name,
353: G_PKG_NAME,
354: l_api_version,
355: p_api_version,
356: p_init_msg_list,
357: '_pub',
358: x_return_status);
359: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
360: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
361: END IF;
362:
363: OPEN Exception_Coverage_csr;
356: p_init_msg_list,
357: '_pub',
358: x_return_status);
359: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
360: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
361: END IF;
362:
363: OPEN Exception_Coverage_csr;
364: FETCH Exception_Coverage_csr INTO x_exception_coverage_id;
365:
366: IF Exception_coverage_csr%NOTFOUND THEN
367: FND_MESSAGE.Set_Name ('CS','CS_CONTRACTS_VALUE_NOT_FOUND');
368: FND_MESSAGE.Set_Token('VALUE','EXCEPTION COVERAGE');
369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
370: END IF;
371: CLOSE Exception_Coverage_csr;
372:
373: TAPI_DEV_KIT.END_ACTIVITY(p_commit,
372:
373: TAPI_DEV_KIT.END_ACTIVITY(p_commit,
374: x_msg_count,
375: x_msg_data);
376: x_return_status := FND_API.G_RET_STS_SUCCESS;
377: EXCEPTION
378: WHEN FND_API.G_EXC_ERROR THEN
379: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
380: (l_api_name,
374: x_msg_count,
375: x_msg_data);
376: x_return_status := FND_API.G_RET_STS_SUCCESS;
377: EXCEPTION
378: WHEN FND_API.G_EXC_ERROR THEN
379: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
380: (l_api_name,
381: G_PKG_NAME,
382: 'FND_API.G_RET_STS_ERROR',
378: WHEN FND_API.G_EXC_ERROR THEN
379: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
380: (l_api_name,
381: G_PKG_NAME,
382: 'FND_API.G_RET_STS_ERROR',
383: x_msg_count,
384: x_msg_data,
385: '_pub');
386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
382: 'FND_API.G_RET_STS_ERROR',
383: x_msg_count,
384: x_msg_data,
385: '_pub');
386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
387: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
388: (l_api_name,
389: G_PKG_NAME,
390: 'FND_API.G_RET_STS_UNEXP_ERROR',
386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
387: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
388: (l_api_name,
389: G_PKG_NAME,
390: 'FND_API.G_RET_STS_UNEXP_ERROR',
391: x_msg_count,
392: x_msg_data,
393: '_pub');
394: WHEN OTHERS THEN