4: -------------------------------------------------------------------------------------------------
5: -- GLOBAL MESSAGE CONSTANTS
6: -------------------------------------------------------------------------------------------------
7: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
8: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
9: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
10: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
11: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
12: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
5: -- GLOBAL MESSAGE CONSTANTS
6: -------------------------------------------------------------------------------------------------
7: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
8: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
9: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
10: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
11: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
12: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
13: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
6: -------------------------------------------------------------------------------------------------
7: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
8: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
9: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
10: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
11: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
12: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
13: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
14: G_UPPERCASE_REQUIRED CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UPPERCASE_REQ';
11: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
12: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
13: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
14: G_UPPERCASE_REQUIRED CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UPPERCASE_REQ';
15: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
16: ------------------------------------------------------------------------------------
17: -- GLOBAL EXCEPTION
18: ------------------------------------------------------------------------------------
19: G_EXCEPTION_HALT_VALIDATION EXCEPTION;
26: -----------------------------------------------------------------------------------
27:
28: Procedure get_contract_status(
29: p_api_version IN NUMBER,
30: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
31: x_return_status OUT NOCOPY VARCHAR2,
32: x_msg_count OUT NOCOPY NUMBER,
33: x_msg_data OUT NOCOPY VARCHAR2,
34: x_isAllowed OUT NOCOPY BOOLEAN,
43:
44:
45: BEGIN
46:
47: -- x_return_status := OKC_API.G_RET_STS_SUCCESS;
48:
49:
50: x_return_status := OKC_API.START_ACTIVITY(
51: p_api_name => l_api_name,
46:
47: -- x_return_status := OKC_API.G_RET_STS_SUCCESS;
48:
49:
50: x_return_status := OKC_API.START_ACTIVITY(
51: p_api_name => l_api_name,
52: p_pkg_name => g_pkg_name,
53: p_init_msg_list => p_init_msg_list,
54: l_api_version => l_api_version,
56: p_api_type => G_API_TYPE,
57: x_return_status => x_return_status);
58:
59: -- check if activity started successfully
60: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
61: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
62: ElSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
63: raise OKC_API.G_EXCEPTION_ERROR;
64: End If;
57: x_return_status => x_return_status);
58:
59: -- check if activity started successfully
60: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
61: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
62: ElSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
63: raise OKC_API.G_EXCEPTION_ERROR;
64: End If;
65:
58:
59: -- check if activity started successfully
60: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
61: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
62: ElSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
63: raise OKC_API.G_EXCEPTION_ERROR;
64: End If;
65:
66: OKL_CONTRACT_STATUS_PVT.get_contract_status(
59: -- check if activity started successfully
60: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
61: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
62: ElSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
63: raise OKC_API.G_EXCEPTION_ERROR;
64: End If;
65:
66: OKL_CONTRACT_STATUS_PVT.get_contract_status(
67: p_api_version,
74: x_FailStatus,
75: p_event,
76: p_chr_id);
77:
78: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
79:
80: Exception
81: when OKC_API.G_EXCEPTION_ERROR then
82: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
77:
78: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
79:
80: Exception
81: when OKC_API.G_EXCEPTION_ERROR then
82: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
83: p_api_name => l_api_name,
84: p_pkg_name => g_pkg_name,
85: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
78: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
79:
80: Exception
81: when OKC_API.G_EXCEPTION_ERROR then
82: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
83: p_api_name => l_api_name,
84: p_pkg_name => g_pkg_name,
85: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
86: x_msg_count => x_msg_count,
81: when OKC_API.G_EXCEPTION_ERROR then
82: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
83: p_api_name => l_api_name,
84: p_pkg_name => g_pkg_name,
85: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
86: x_msg_count => x_msg_count,
87: x_msg_data => x_msg_data,
88: p_api_type => g_api_type);
89:
86: x_msg_count => x_msg_count,
87: x_msg_data => x_msg_data,
88: p_api_type => g_api_type);
89:
90: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
91: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
92: p_api_name => l_api_name,
93: p_pkg_name => g_pkg_name,
94: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
87: x_msg_data => x_msg_data,
88: p_api_type => g_api_type);
89:
90: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
91: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
92: p_api_name => l_api_name,
93: p_pkg_name => g_pkg_name,
94: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
95: x_msg_count => x_msg_count,
90: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
91: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
92: p_api_name => l_api_name,
93: p_pkg_name => g_pkg_name,
94: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
95: x_msg_count => x_msg_count,
96: x_msg_data => x_msg_data,
97: p_api_type => g_api_type);
98:
96: x_msg_data => x_msg_data,
97: p_api_type => g_api_type);
98:
99: when OTHERS then
100: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
101: p_api_name => l_api_name,
102: p_pkg_name => g_pkg_name,
103: p_exc_name => 'OTHERS',
104: x_msg_count => x_msg_count,
109: END get_contract_status;
110:
111: Procedure update_contract_status(
112: p_api_version IN NUMBER,
113: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
114: x_return_status OUT NOCOPY VARCHAR2,
115: x_msg_count OUT NOCOPY NUMBER,
116: x_msg_data OUT NOCOPY VARCHAR2,
117: p_khr_status IN VARCHAR2,
121: l_api_version CONSTANT NUMBER := 1;
122:
123: BEGIN
124:
125: -- x_return_status := OKC_API.G_RET_STS_SUCCESS;
126:
127:
128: x_return_status := OKC_API.START_ACTIVITY(
129: p_api_name => l_api_name,
124:
125: -- x_return_status := OKC_API.G_RET_STS_SUCCESS;
126:
127:
128: x_return_status := OKC_API.START_ACTIVITY(
129: p_api_name => l_api_name,
130: p_pkg_name => g_pkg_name,
131: p_init_msg_list => p_init_msg_list,
132: l_api_version => l_api_version,
134: p_api_type => G_API_TYPE,
135: x_return_status => x_return_status);
136:
137: -- check if activity started successfully
138: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
139: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
140: ElSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
141: raise OKC_API.G_EXCEPTION_ERROR;
142: End If;
135: x_return_status => x_return_status);
136:
137: -- check if activity started successfully
138: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
139: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
140: ElSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
141: raise OKC_API.G_EXCEPTION_ERROR;
142: End If;
143:
136:
137: -- check if activity started successfully
138: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
139: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
140: ElSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
141: raise OKC_API.G_EXCEPTION_ERROR;
142: End If;
143:
144: OKL_CONTRACT_STATUS_PVT.update_contract_status(
137: -- check if activity started successfully
138: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
139: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
140: ElSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
141: raise OKC_API.G_EXCEPTION_ERROR;
142: End If;
143:
144: OKL_CONTRACT_STATUS_PVT.update_contract_status(
145: p_api_version,
149: x_msg_data,
150: p_khr_status,
151: p_chr_id);
152:
153: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
154:
155: Exception
156: when OKC_API.G_EXCEPTION_ERROR then
157: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
152:
153: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
154:
155: Exception
156: when OKC_API.G_EXCEPTION_ERROR then
157: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
158: p_api_name => l_api_name,
159: p_pkg_name => g_pkg_name,
160: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
153: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
154:
155: Exception
156: when OKC_API.G_EXCEPTION_ERROR then
157: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
158: p_api_name => l_api_name,
159: p_pkg_name => g_pkg_name,
160: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
161: x_msg_count => x_msg_count,
156: when OKC_API.G_EXCEPTION_ERROR then
157: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
158: p_api_name => l_api_name,
159: p_pkg_name => g_pkg_name,
160: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
161: x_msg_count => x_msg_count,
162: x_msg_data => x_msg_data,
163: p_api_type => g_api_type);
164:
161: x_msg_count => x_msg_count,
162: x_msg_data => x_msg_data,
163: p_api_type => g_api_type);
164:
165: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
166: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
167: p_api_name => l_api_name,
168: p_pkg_name => g_pkg_name,
169: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
162: x_msg_data => x_msg_data,
163: p_api_type => g_api_type);
164:
165: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
166: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
167: p_api_name => l_api_name,
168: p_pkg_name => g_pkg_name,
169: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
170: x_msg_count => x_msg_count,
165: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
166: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
167: p_api_name => l_api_name,
168: p_pkg_name => g_pkg_name,
169: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
170: x_msg_count => x_msg_count,
171: x_msg_data => x_msg_data,
172: p_api_type => g_api_type);
173:
171: x_msg_data => x_msg_data,
172: p_api_type => g_api_type);
173:
174: when OTHERS then
175: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
176: p_api_name => l_api_name,
177: p_pkg_name => g_pkg_name,
178: p_exc_name => 'OTHERS',
179: x_msg_count => x_msg_count,
205: p_chr_id);
206:
207:
208: Exception
209: when OKC_API.G_EXCEPTION_ERROR then
210: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
211: p_api_name => l_api_name,
212: p_pkg_name => g_pkg_name,
213: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
206:
207:
208: Exception
209: when OKC_API.G_EXCEPTION_ERROR then
210: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
211: p_api_name => l_api_name,
212: p_pkg_name => g_pkg_name,
213: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
214: x_msg_count => x_msg_count,
209: when OKC_API.G_EXCEPTION_ERROR then
210: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
211: p_api_name => l_api_name,
212: p_pkg_name => g_pkg_name,
213: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
214: x_msg_count => x_msg_count,
215: x_msg_data => x_msg_data,
216: p_api_type => g_api_type);
217:
214: x_msg_count => x_msg_count,
215: x_msg_data => x_msg_data,
216: p_api_type => g_api_type);
217:
218: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
219: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
220: p_api_name => l_api_name,
221: p_pkg_name => g_pkg_name,
222: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
215: x_msg_data => x_msg_data,
216: p_api_type => g_api_type);
217:
218: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
219: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
220: p_api_name => l_api_name,
221: p_pkg_name => g_pkg_name,
222: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
223: x_msg_count => x_msg_count,
218: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
219: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
220: p_api_name => l_api_name,
221: p_pkg_name => g_pkg_name,
222: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
223: x_msg_count => x_msg_count,
224: x_msg_data => x_msg_data,
225: p_api_type => g_api_type);
226:
224: x_msg_data => x_msg_data,
225: p_api_type => g_api_type);
226:
227: when OTHERS then
228: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
229: p_api_name => l_api_name,
230: p_pkg_name => g_pkg_name,
231: p_exc_name => 'OTHERS',
232: x_msg_count => x_msg_count,
259: p_chr_id);
260:
261:
262: Exception
263: when OKC_API.G_EXCEPTION_ERROR then
264: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
265: p_api_name => l_api_name,
266: p_pkg_name => g_pkg_name,
267: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
260:
261:
262: Exception
263: when OKC_API.G_EXCEPTION_ERROR then
264: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
265: p_api_name => l_api_name,
266: p_pkg_name => g_pkg_name,
267: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
268: x_msg_count => x_msg_count,
263: when OKC_API.G_EXCEPTION_ERROR then
264: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
265: p_api_name => l_api_name,
266: p_pkg_name => g_pkg_name,
267: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
268: x_msg_count => x_msg_count,
269: x_msg_data => x_msg_data,
270: p_api_type => g_api_type);
271:
268: x_msg_count => x_msg_count,
269: x_msg_data => x_msg_data,
270: p_api_type => g_api_type);
271:
272: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
273: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
274: p_api_name => l_api_name,
275: p_pkg_name => g_pkg_name,
276: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
269: x_msg_data => x_msg_data,
270: p_api_type => g_api_type);
271:
272: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
273: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
274: p_api_name => l_api_name,
275: p_pkg_name => g_pkg_name,
276: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
277: x_msg_count => x_msg_count,
272: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
273: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
274: p_api_name => l_api_name,
275: p_pkg_name => g_pkg_name,
276: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
277: x_msg_count => x_msg_count,
278: x_msg_data => x_msg_data,
279: p_api_type => g_api_type);
280:
278: x_msg_data => x_msg_data,
279: p_api_type => g_api_type);
280:
281: when OTHERS then
282: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
283: p_api_name => l_api_name,
284: p_pkg_name => g_pkg_name,
285: p_exc_name => 'OTHERS',
286: x_msg_count => x_msg_count,