DBA Data[Home] [Help]

APPS.OKL_VP_EXTEND_PVT dependencies on OKC_API

Line 6: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,

2: /* $Header: OKLREXTB.pls 115.10 2003/10/15 22:45:26 manumanu noship $ */
3: SUBTYPE extn_rec_type IS okc_extend_pub.extend_in_parameters_rec;
4:
5: PROCEDURE validate_chr( p_api_version IN NUMBER,
6: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
7: x_return_status OUT NOCOPY VARCHAR2,
8: x_msg_count OUT NOCOPY NUMBER,
9: x_msg_data OUT NOCOPY VARCHAR2,
10: p_extend_in_parameters_rec IN extn_rec_type

Line 44: l_return_status VARCHAR2(1) := OKC_API.g_ret_sts_success;

40:
41: l_chg_request_in_process VARCHAR2(1);
42: l_status VARCHAR2(30);
43: l_status_meaning okc_statuses_v.meaning%TYPE;
44: l_return_status VARCHAR2(1) := OKC_API.g_ret_sts_success;
45: l_chr_rec cur_k_header%rowtype;
46: l_api_name CONSTANT VARCHAR2(30) := 'validate_chr';
47:
48:

Line 62: x_return_status := okc_api.g_ret_sts_success;

58: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
59: RAISE OKL_API.G_EXCEPTION_ERROR;
60: END IF;
61:
62: x_return_status := okc_api.g_ret_sts_success;
63:
64: -- OKC_API.init_msg_list(p_init_msg_list);
65:
66: OPEN cur_k_header;

Line 64: -- OKC_API.init_msg_list(p_init_msg_list);

60: END IF;
61:
62: x_return_status := okc_api.g_ret_sts_success;
63:
64: -- OKC_API.init_msg_list(p_init_msg_list);
65:
66: OPEN cur_k_header;
67: FETCH cur_k_header into l_chr_rec;
68: CLOSE cur_k_header;

Line 73: OKC_API.set_message( p_app_name => g_app_name,

69:
70: /* Templates can not be extended */
71: IF l_chr_rec.template_yn = 'Y' THEN
72:
73: OKC_API.set_message( p_app_name => g_app_name,
74: p_msg_name => 'OKL_K_TEMPLATE',
75: p_token1 => 'NUMBER',
76: p_token1_value => l_chr_rec.contract_number );
77:

Line 78: x_return_status := okc_api.g_ret_sts_error;

74: p_msg_name => 'OKL_K_TEMPLATE',
75: p_token1 => 'NUMBER',
76: p_token1_value => l_chr_rec.contract_number );
77:
78: x_return_status := okc_api.g_ret_sts_error;
79: RAISE OKL_API.G_EXCEPTION_ERROR;
80: END IF;
81:
82: OPEN is_k_locked;

Line 86: OKC_API.set_message(p_app_name => g_app_name,

82: OPEN is_k_locked;
83: FETCH is_k_locked into l_chg_request_in_process;
84:
85: IF is_k_locked%FOUND THEN
86: OKC_API.set_message(p_app_name => g_app_name,
87: p_msg_name => 'OKL_K_LOCKED'
88: );
89: x_return_status := okc_api.g_ret_sts_error;
90: CLOSE is_k_locked;

Line 89: x_return_status := okc_api.g_ret_sts_error;

85: IF is_k_locked%FOUND THEN
86: OKC_API.set_message(p_app_name => g_app_name,
87: p_msg_name => 'OKL_K_LOCKED'
88: );
89: x_return_status := okc_api.g_ret_sts_error;
90: CLOSE is_k_locked;
91: RAISE OKL_API.G_EXCEPTION_ERROR;
92: END IF;
93:

Line 101: OKC_API.set_message(p_app_name => g_app_name,

97: OPEN cur_status(l_chr_rec.sts_code);
98: FETCH cur_status into l_status;
99: CLOSE cur_status;
100: IF l_status='1' THEN
101: OKC_API.set_message(p_app_name => g_app_name,
102: p_msg_name => 'OKL_INVALID_K_STATUS',
103: p_token1 => 'STATUS',
104: p_token1_value => l_chr_rec.sts_code);
105: RAISE OKL_API.G_EXCEPTION_ERROR;

Line 114: x_return_status := OKC_API.G_RET_STS_ERROR;

110: CLOSE cur_mean;
111:
112: IF l_status NOT IN ('ACTIVE','EXPIRED','SIGNED') THEN
113:
114: x_return_status := OKC_API.G_RET_STS_ERROR;
115: OKC_API.set_message(p_app_name => g_app_name,
116: p_msg_name => 'OKL_INVALID_K_STATUS',
117: p_token1 => 'STATUS',
118: p_token1_value => l_chr_rec.sts_code);

Line 115: OKC_API.set_message(p_app_name => g_app_name,

111:
112: IF l_status NOT IN ('ACTIVE','EXPIRED','SIGNED') THEN
113:
114: x_return_status := OKC_API.G_RET_STS_ERROR;
115: OKC_API.set_message(p_app_name => g_app_name,
116: p_msg_name => 'OKL_INVALID_K_STATUS',
117: p_token1 => 'STATUS',
118: p_token1_value => l_chr_rec.sts_code);
119: RAISE OKL_API.G_EXCEPTION_ERROR;

Line 122: x_return_status := OKC_API.G_RET_STS_ERROR;

118: p_token1_value => l_chr_rec.sts_code);
119: RAISE OKL_API.G_EXCEPTION_ERROR;
120: ELSIF l_chr_rec.date_terminated IS NOT NULL THEN
121:
122: x_return_status := OKC_API.G_RET_STS_ERROR;
123:
124: OKC_API.set_message(p_app_name => g_app_name,
125: p_msg_name => 'OKL_FUTURE_TERMINATED_K',
126: p_token1 => 'NUMBER',

Line 124: OKC_API.set_message(p_app_name => g_app_name,

120: ELSIF l_chr_rec.date_terminated IS NOT NULL THEN
121:
122: x_return_status := OKC_API.G_RET_STS_ERROR;
123:
124: OKC_API.set_message(p_app_name => g_app_name,
125: p_msg_name => 'OKL_FUTURE_TERMINATED_K',
126: p_token1 => 'NUMBER',
127: p_token1_value => l_chr_rec.contract_number );
128:

Line 185: l_mod okc_k_headers_b.contract_number_modifier%TYPE DEFAULT OKC_API.G_MISS_CHAR;

181: l_end_date okc_k_headers_b.end_date%TYPE;
182: l_app_id okc_k_headers_b.application_id%TYPE;
183: l_scs_code okc_k_headers_b.scs_code%TYPE;
184: l_k VARCHAR2(255);
185: l_mod okc_k_headers_b.contract_number_modifier%TYPE DEFAULT OKC_API.G_MISS_CHAR;
186: l_return_value VARCHAR2(1) := 'Y';
187:
188:
189: CURSOR c_chr IS

Line 207: OKC_API.set_message(p_app_name => g_app_name,

203: FETCH c_chr INTO l_code,l_template_yn,l_end_date,l_app_id,l_scs_code,l_k,l_mod;
204: CLOSE c_chr;
205:
206: IF l_template_yn = 'Y' then
207: OKC_API.set_message(p_app_name => g_app_name,
208: p_msg_name => 'OKL_K_TEMPLATE',
209: p_token1 => 'NUMBER',
210: p_token1_value => l_k);
211: l_return_value := 'N';

Line 218: OKC_API.set_message(p_app_name => g_app_name,

214: END IF;
215:
216: -- A perpetual cannot be extended further
217: IF l_end_date Is Null then
218: OKC_API.set_message(p_app_name => g_app_name,
219: p_msg_name => 'OKL_NO_PERPETUAL'
220: );
221: l_return_value := 'N';
222: RETURN(l_return_value);

Line 231: OKC_API.set_message(p_app_name => g_app_name,

227: /*****************
228: IF OKC_UTIL.get_all_k_access_level(p_application_id => l_app_id,
229: p_chr_id => p_chr_id,
230: p_scs_code => l_scs_code) <> 'U' THEN
231: OKC_API.set_message(p_app_name => g_app_name,
232: p_msg_name => 'OKL_NO_UPDATE',
233: p_token1 => 'CHR',
234: p_token1_value => l_k);
235:

Line 248: OKC_API.set_message(p_app_name => g_app_name,

244: /* IF (OKL_OKC_MIGRATION_A_PVT.update_allowed(p_chr_id) <> 'Y') THEN
245:
246: -- l1_return_status :=OKL_API.G_RET_STS_ERROR;
247:
248: OKC_API.set_message(p_app_name => g_app_name,
249: p_msg_name => 'OKL_VP_UPDATE_NOT_ALLOWED'
250: );
251:
252: RAISE OKL_API.G_EXCEPTION_ERROR;

Line 258: OKC_API.set_message(p_app_name => g_app_name,

254: END IF;
255: */
256:
257: IF (OKL_VENDOR_PROGRAM_PUB.Is_Process_Active(p_chr_id) <> 'N') THEN
258: OKC_API.set_message(p_app_name => g_app_name,
259: p_msg_name => 'OKL_VP_APPROVAL_PROCESS_ACTV'
260: );
261: l_return_value := 'N';
262: RETURN(l_return_value);

Line 333: p_init_msg_list => OKC_API.G_FALSE,

329: -- changes made on 6th Nov to do the validations okc is doing inside extend_chr
330: -- doing this to customize the messages ie to write okl messages
331:
332: okl_vp_extend_pvt.validate_chr(p_api_version => l_api_version,
333: p_init_msg_list => OKC_API.G_FALSE,
334: x_return_status => l_return_status,
335: x_msg_count => l_msg_count,
336: x_msg_data => l_msg_data,
337: p_extend_in_parameters_rec => l_ext_header_rec);

Line 340: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

336: x_msg_data => l_msg_data,
337: p_extend_in_parameters_rec => l_ext_header_rec);
338:
339:
340: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
342: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
343: RAISE OKC_API.G_EXCEPTION_ERROR;
344: END IF;

Line 341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

337: p_extend_in_parameters_rec => l_ext_header_rec);
338:
339:
340: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
342: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
343: RAISE OKC_API.G_EXCEPTION_ERROR;
344: END IF;
345: --50 lines

Line 342: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

338:
339:
340: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
342: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
343: RAISE OKC_API.G_EXCEPTION_ERROR;
344: END IF;
345: --50 lines
346: -- Validate the passed parameters

Line 343: RAISE OKC_API.G_EXCEPTION_ERROR;

339:
340: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
342: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
343: RAISE OKC_API.G_EXCEPTION_ERROR;
344: END IF;
345: --50 lines
346: -- Validate the passed parameters
347: -- new end date should be given