11: ------------------------------------------------------------------------------
12: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
13: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
14:
15: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_REQUIRED_VALUE;
16: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKE_CONTRACTS_UNEXPECTED_ERROR';
17: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
18: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
19: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_INVALID_VALUE;
15: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_REQUIRED_VALUE;
16: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKE_CONTRACTS_UNEXPECTED_ERROR';
17: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
18: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
19: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_INVALID_VALUE;
20:
21: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_COL_NAME_TOKEN;
22:
23: g_api_version constant number :=1;
17: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
18: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
19: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_INVALID_VALUE;
20:
21: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_COL_NAME_TOKEN;
22:
23: g_api_version constant number :=1;
24: g_init_msg_list varchar2(1) := 'F';
25: g_msg_count NUMBER;
39: x_msg_count OUT NOCOPY NUMBER,
40: x_msg_data OUT NOCOPY VARCHAR2,
41: p_cplv_tbl IN cplv_tbl_type,
42: x_cplv_tbl OUT NOCOPY cplv_tbl_type,
43: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE)
44: is
45:
46: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_PARTY_ROLE';
47: l_api_version CONSTANT NUMBER := 1.0;
44: is
45:
46: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_PARTY_ROLE';
47: l_api_version CONSTANT NUMBER := 1.0;
48: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
49: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
50: i NUMBER:=0;
51: BEGIN
52: -- call START_ACTIVITY to create savepoint, check compatibility
45:
46: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_PARTY_ROLE';
47: l_api_version CONSTANT NUMBER := 1.0;
48: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
49: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
50: i NUMBER:=0;
51: BEGIN
52: -- call START_ACTIVITY to create savepoint, check compatibility
53: -- and initialize message list
50: i NUMBER:=0;
51: BEGIN
52: -- call START_ACTIVITY to create savepoint, check compatibility
53: -- and initialize message list
54: l_return_status := OKE_API.START_ACTIVITY(
55: p_api_name => l_api_name,
56: p_pkg_name => g_pkg_name,
57: p_init_msg_list => p_init_msg_list,
58: l_api_version => l_api_version,
60: p_api_type => g_api_type,
61: x_return_status => x_return_status);
62:
63: -- check if activity started successfully
64: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
65: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
66: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
67: raise OKE_API.G_EXCEPTION_ERROR;
68: End If;
61: x_return_status => x_return_status);
62:
63: -- check if activity started successfully
64: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
65: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
66: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
67: raise OKE_API.G_EXCEPTION_ERROR;
68: End If;
69:
62:
63: -- check if activity started successfully
64: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
65: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
66: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
67: raise OKE_API.G_EXCEPTION_ERROR;
68: End If;
69:
70: If (p_cplv_tbl.COUNT > 0) Then
63: -- check if activity started successfully
64: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
65: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
66: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
67: raise OKE_API.G_EXCEPTION_ERROR;
68: End If;
69:
70: If (p_cplv_tbl.COUNT > 0) Then
71: i := p_cplv_tbl.FIRST;
80: x_cplv_rec=>x_cplv_tbl(i),
81: p_skip_minor_vers=>p_skip_minor_vers
82: );
83:
84: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
85: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
86: l_overall_status := x_return_status;
87: End If;
88: End If;
81: p_skip_minor_vers=>p_skip_minor_vers
82: );
83:
84: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
85: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
86: l_overall_status := x_return_status;
87: End If;
88: End If;
89:
94: -- return overall status
95: x_return_status := l_overall_status;
96: End If;
97:
98: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
99: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
101: raise OKE_API.G_EXCEPTION_ERROR;
102: End If;
95: x_return_status := l_overall_status;
96: End If;
97:
98: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
99: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
101: raise OKE_API.G_EXCEPTION_ERROR;
102: End If;
103:
96: End If;
97:
98: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
99: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
101: raise OKE_API.G_EXCEPTION_ERROR;
102: End If;
103:
104: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
97:
98: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
99: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
101: raise OKE_API.G_EXCEPTION_ERROR;
102: End If;
103:
104: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
105: x_msg_data => x_msg_data);
100: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
101: raise OKE_API.G_EXCEPTION_ERROR;
102: End If;
103:
104: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
105: x_msg_data => x_msg_data);
106: EXCEPTION
107: when OKE_API.G_EXCEPTION_ERROR then
108: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
103:
104: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
105: x_msg_data => x_msg_data);
106: EXCEPTION
107: when OKE_API.G_EXCEPTION_ERROR then
108: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
109: p_api_name => l_api_name,
110: p_pkg_name => g_pkg_name,
111: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
104: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
105: x_msg_data => x_msg_data);
106: EXCEPTION
107: when OKE_API.G_EXCEPTION_ERROR then
108: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
109: p_api_name => l_api_name,
110: p_pkg_name => g_pkg_name,
111: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
112: x_msg_count => x_msg_count,
107: when OKE_API.G_EXCEPTION_ERROR then
108: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
109: p_api_name => l_api_name,
110: p_pkg_name => g_pkg_name,
111: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
112: x_msg_count => x_msg_count,
113: x_msg_data => x_msg_data,
114: p_api_type => g_api_type);
115:
112: x_msg_count => x_msg_count,
113: x_msg_data => x_msg_data,
114: p_api_type => g_api_type);
115:
116: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
117: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
118: p_api_name => l_api_name,
119: p_pkg_name => g_pkg_name,
120: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
113: x_msg_data => x_msg_data,
114: p_api_type => g_api_type);
115:
116: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
117: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
118: p_api_name => l_api_name,
119: p_pkg_name => g_pkg_name,
120: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
121: x_msg_count => x_msg_count,
116: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
117: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
118: p_api_name => l_api_name,
119: p_pkg_name => g_pkg_name,
120: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
121: x_msg_count => x_msg_count,
122: x_msg_data => x_msg_data,
123: p_api_type => g_api_type);
124:
122: x_msg_data => x_msg_data,
123: p_api_type => g_api_type);
124:
125: when OTHERS then
126: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
127: p_api_name => l_api_name,
128: p_pkg_name => g_pkg_name,
129: p_exc_name => 'OTHERS',
130: x_msg_count => x_msg_count,
220:
221: l_BUY_OR_SELL VARCHAR2(5);
222: l_scs_code VARCHAR2(30);
223: BEGIN
224: x_return_status := OKE_API.G_RET_STS_SUCCESS;
225:
226: ---validate rle_code for line
227:
228: open get_buy_sell_info;
247: END IF;
248:
249:
250: IF ( l_JTOT_OBJECT1_CODE IS NULL) THEN
251: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
252: p_msg_name =>G_INVALID_VALUE,
253: p_token1 =>G_COL_NAME_TOKEN,
254: p_token1_value =>'RLE_CODE');
255: x_return_status := OKE_API.G_RET_STS_ERROR;
251: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
252: p_msg_name =>G_INVALID_VALUE,
253: p_token1 =>G_COL_NAME_TOKEN,
254: p_token1_value =>'RLE_CODE');
255: x_return_status := OKE_API.G_RET_STS_ERROR;
256: END IF;
257:
258:
259: IF l_jtot_object1_code is not null THEN
261: l_sql_stmt := OKC_UTIL.GET_SQL_FROM_JTFV(l_jtot_object1_code);
262:
263:
264: If (l_sql_stmt is null) Then
265: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
266: p_msg_name =>'No view found in JTF') ;
267: x_return_status := OKE_API.G_RET_STS_ERROR;
268: End If;
269:
263:
264: If (l_sql_stmt is null) Then
265: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
266: p_msg_name =>'No view found in JTF') ;
267: x_return_status := OKE_API.G_RET_STS_ERROR;
268: End If;
269:
270: IF l_jtot_object1_code = 'OKX_VENDOR' THEN
271: l_sql_stmt := ADD_WHERE_TO_SQL( l_sql_stmt, 'NVL(STATUS, ''I'') = ''A'' AND SYSDATE BETWEEN NVL(START_DATE_ACTIVE, SYSDATE - 1) AND NVL(END_DATE_ACTIVE, SYSDATE + 1) ');
354: EXECUTE IMMEDIATE l_sql_stmt INTO l_dummy_var ;
355: EXCEPTION
356: WHEN OTHERS THEN
357:
358: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
359: p_msg_name =>G_INVALID_VALUE,
360: p_token1 =>G_COL_NAME_TOKEN,
361: p_token1_value =>'OBJECT1_ID1/ID2');
362:
359: p_msg_name =>G_INVALID_VALUE,
360: p_token1 =>G_COL_NAME_TOKEN,
361: p_token1_value =>'OBJECT1_ID1/ID2');
362:
363: x_return_status := OKE_API.G_RET_STS_ERROR;
364:
365: END;
366:
367: END IF;
369: EXCEPTION
370:
371: WHEN OTHERS THEN
372: -- store SQL error message on message stack
373: OKE_API.SET_MESSAGE(
374: p_app_name =>g_app_name,
375: p_msg_name =>G_UNEXPECTED_ERROR,
376: p_token1 =>G_SQLCODE_TOKEN,
377: p_token1_value =>SQLCODE,
376: p_token1 =>G_SQLCODE_TOKEN,
377: p_token1_value =>SQLCODE,
378: p_token2 =>G_SQLERRM_TOKEN,
379: p_token2_value =>SQLERRM);
380: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
381:
382: END validate_oke_attributes;
383:
384: PROCEDURE INITIALIZE_RECORD(p_cplv_tbl out nocopy OKC_CONTRACT_PARTY_PUB.cplv_tbl_type) IS
383:
384: PROCEDURE INITIALIZE_RECORD(p_cplv_tbl out nocopy OKC_CONTRACT_PARTY_PUB.cplv_tbl_type) IS
385: BEGIN
386:
387: p_cplv_tbl(1).ID := OKE_API.g_miss_num;
388: p_cplv_tbl(1).OBJECT_VERSION_NUMBER := OKE_API.g_miss_num;
389: p_cplv_tbl(1).SFWT_FLAG := OKE_API.g_miss_char;
390: p_cplv_tbl(1).CHR_ID := OKE_API.g_miss_num;
391: p_cplv_tbl(1).CLE_ID := OKE_API.g_miss_num;
384: PROCEDURE INITIALIZE_RECORD(p_cplv_tbl out nocopy OKC_CONTRACT_PARTY_PUB.cplv_tbl_type) IS
385: BEGIN
386:
387: p_cplv_tbl(1).ID := OKE_API.g_miss_num;
388: p_cplv_tbl(1).OBJECT_VERSION_NUMBER := OKE_API.g_miss_num;
389: p_cplv_tbl(1).SFWT_FLAG := OKE_API.g_miss_char;
390: p_cplv_tbl(1).CHR_ID := OKE_API.g_miss_num;
391: p_cplv_tbl(1).CLE_ID := OKE_API.g_miss_num;
392: p_cplv_tbl(1).RLE_CODE := OKE_API.g_miss_char;
385: BEGIN
386:
387: p_cplv_tbl(1).ID := OKE_API.g_miss_num;
388: p_cplv_tbl(1).OBJECT_VERSION_NUMBER := OKE_API.g_miss_num;
389: p_cplv_tbl(1).SFWT_FLAG := OKE_API.g_miss_char;
390: p_cplv_tbl(1).CHR_ID := OKE_API.g_miss_num;
391: p_cplv_tbl(1).CLE_ID := OKE_API.g_miss_num;
392: p_cplv_tbl(1).RLE_CODE := OKE_API.g_miss_char;
393: p_cplv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
386:
387: p_cplv_tbl(1).ID := OKE_API.g_miss_num;
388: p_cplv_tbl(1).OBJECT_VERSION_NUMBER := OKE_API.g_miss_num;
389: p_cplv_tbl(1).SFWT_FLAG := OKE_API.g_miss_char;
390: p_cplv_tbl(1).CHR_ID := OKE_API.g_miss_num;
391: p_cplv_tbl(1).CLE_ID := OKE_API.g_miss_num;
392: p_cplv_tbl(1).RLE_CODE := OKE_API.g_miss_char;
393: p_cplv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
394: p_cplv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
387: p_cplv_tbl(1).ID := OKE_API.g_miss_num;
388: p_cplv_tbl(1).OBJECT_VERSION_NUMBER := OKE_API.g_miss_num;
389: p_cplv_tbl(1).SFWT_FLAG := OKE_API.g_miss_char;
390: p_cplv_tbl(1).CHR_ID := OKE_API.g_miss_num;
391: p_cplv_tbl(1).CLE_ID := OKE_API.g_miss_num;
392: p_cplv_tbl(1).RLE_CODE := OKE_API.g_miss_char;
393: p_cplv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
394: p_cplv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
395: p_cplv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
388: p_cplv_tbl(1).OBJECT_VERSION_NUMBER := OKE_API.g_miss_num;
389: p_cplv_tbl(1).SFWT_FLAG := OKE_API.g_miss_char;
390: p_cplv_tbl(1).CHR_ID := OKE_API.g_miss_num;
391: p_cplv_tbl(1).CLE_ID := OKE_API.g_miss_num;
392: p_cplv_tbl(1).RLE_CODE := OKE_API.g_miss_char;
393: p_cplv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
394: p_cplv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
395: p_cplv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
396: p_cplv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
389: p_cplv_tbl(1).SFWT_FLAG := OKE_API.g_miss_char;
390: p_cplv_tbl(1).CHR_ID := OKE_API.g_miss_num;
391: p_cplv_tbl(1).CLE_ID := OKE_API.g_miss_num;
392: p_cplv_tbl(1).RLE_CODE := OKE_API.g_miss_char;
393: p_cplv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
394: p_cplv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
395: p_cplv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
396: p_cplv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
397: p_cplv_tbl(1).COGNOMEN := OKE_API.g_miss_char;
390: p_cplv_tbl(1).CHR_ID := OKE_API.g_miss_num;
391: p_cplv_tbl(1).CLE_ID := OKE_API.g_miss_num;
392: p_cplv_tbl(1).RLE_CODE := OKE_API.g_miss_char;
393: p_cplv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
394: p_cplv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
395: p_cplv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
396: p_cplv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
397: p_cplv_tbl(1).COGNOMEN := OKE_API.g_miss_char;
398: p_cplv_tbl(1).CODE := OKE_API.g_miss_char;
391: p_cplv_tbl(1).CLE_ID := OKE_API.g_miss_num;
392: p_cplv_tbl(1).RLE_CODE := OKE_API.g_miss_char;
393: p_cplv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
394: p_cplv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
395: p_cplv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
396: p_cplv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
397: p_cplv_tbl(1).COGNOMEN := OKE_API.g_miss_char;
398: p_cplv_tbl(1).CODE := OKE_API.g_miss_char;
399: p_cplv_tbl(1).FACILITY := OKE_API.g_miss_char;
392: p_cplv_tbl(1).RLE_CODE := OKE_API.g_miss_char;
393: p_cplv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
394: p_cplv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
395: p_cplv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
396: p_cplv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
397: p_cplv_tbl(1).COGNOMEN := OKE_API.g_miss_char;
398: p_cplv_tbl(1).CODE := OKE_API.g_miss_char;
399: p_cplv_tbl(1).FACILITY := OKE_API.g_miss_char;
400: p_cplv_tbl(1).MINORITY_GROUP_LOOKUP_CODE := OKE_API.g_miss_char;
393: p_cplv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
394: p_cplv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
395: p_cplv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
396: p_cplv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
397: p_cplv_tbl(1).COGNOMEN := OKE_API.g_miss_char;
398: p_cplv_tbl(1).CODE := OKE_API.g_miss_char;
399: p_cplv_tbl(1).FACILITY := OKE_API.g_miss_char;
400: p_cplv_tbl(1).MINORITY_GROUP_LOOKUP_CODE := OKE_API.g_miss_char;
401: p_cplv_tbl(1).SMALL_BUSINESS_FLAG := OKE_API.g_miss_char;
394: p_cplv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
395: p_cplv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
396: p_cplv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
397: p_cplv_tbl(1).COGNOMEN := OKE_API.g_miss_char;
398: p_cplv_tbl(1).CODE := OKE_API.g_miss_char;
399: p_cplv_tbl(1).FACILITY := OKE_API.g_miss_char;
400: p_cplv_tbl(1).MINORITY_GROUP_LOOKUP_CODE := OKE_API.g_miss_char;
401: p_cplv_tbl(1).SMALL_BUSINESS_FLAG := OKE_API.g_miss_char;
402: p_cplv_tbl(1).WOMEN_OWNED_FLAG := OKE_API.g_miss_char;
395: p_cplv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
396: p_cplv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
397: p_cplv_tbl(1).COGNOMEN := OKE_API.g_miss_char;
398: p_cplv_tbl(1).CODE := OKE_API.g_miss_char;
399: p_cplv_tbl(1).FACILITY := OKE_API.g_miss_char;
400: p_cplv_tbl(1).MINORITY_GROUP_LOOKUP_CODE := OKE_API.g_miss_char;
401: p_cplv_tbl(1).SMALL_BUSINESS_FLAG := OKE_API.g_miss_char;
402: p_cplv_tbl(1).WOMEN_OWNED_FLAG := OKE_API.g_miss_char;
403: p_cplv_tbl(1).ALIAS := OKE_API.g_miss_char;
396: p_cplv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
397: p_cplv_tbl(1).COGNOMEN := OKE_API.g_miss_char;
398: p_cplv_tbl(1).CODE := OKE_API.g_miss_char;
399: p_cplv_tbl(1).FACILITY := OKE_API.g_miss_char;
400: p_cplv_tbl(1).MINORITY_GROUP_LOOKUP_CODE := OKE_API.g_miss_char;
401: p_cplv_tbl(1).SMALL_BUSINESS_FLAG := OKE_API.g_miss_char;
402: p_cplv_tbl(1).WOMEN_OWNED_FLAG := OKE_API.g_miss_char;
403: p_cplv_tbl(1).ALIAS := OKE_API.g_miss_char;
404: p_cplv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
397: p_cplv_tbl(1).COGNOMEN := OKE_API.g_miss_char;
398: p_cplv_tbl(1).CODE := OKE_API.g_miss_char;
399: p_cplv_tbl(1).FACILITY := OKE_API.g_miss_char;
400: p_cplv_tbl(1).MINORITY_GROUP_LOOKUP_CODE := OKE_API.g_miss_char;
401: p_cplv_tbl(1).SMALL_BUSINESS_FLAG := OKE_API.g_miss_char;
402: p_cplv_tbl(1).WOMEN_OWNED_FLAG := OKE_API.g_miss_char;
403: p_cplv_tbl(1).ALIAS := OKE_API.g_miss_char;
404: p_cplv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
405: p_cplv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
398: p_cplv_tbl(1).CODE := OKE_API.g_miss_char;
399: p_cplv_tbl(1).FACILITY := OKE_API.g_miss_char;
400: p_cplv_tbl(1).MINORITY_GROUP_LOOKUP_CODE := OKE_API.g_miss_char;
401: p_cplv_tbl(1).SMALL_BUSINESS_FLAG := OKE_API.g_miss_char;
402: p_cplv_tbl(1).WOMEN_OWNED_FLAG := OKE_API.g_miss_char;
403: p_cplv_tbl(1).ALIAS := OKE_API.g_miss_char;
404: p_cplv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
405: p_cplv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
406: p_cplv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
399: p_cplv_tbl(1).FACILITY := OKE_API.g_miss_char;
400: p_cplv_tbl(1).MINORITY_GROUP_LOOKUP_CODE := OKE_API.g_miss_char;
401: p_cplv_tbl(1).SMALL_BUSINESS_FLAG := OKE_API.g_miss_char;
402: p_cplv_tbl(1).WOMEN_OWNED_FLAG := OKE_API.g_miss_char;
403: p_cplv_tbl(1).ALIAS := OKE_API.g_miss_char;
404: p_cplv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
405: p_cplv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
406: p_cplv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
407: p_cplv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
400: p_cplv_tbl(1).MINORITY_GROUP_LOOKUP_CODE := OKE_API.g_miss_char;
401: p_cplv_tbl(1).SMALL_BUSINESS_FLAG := OKE_API.g_miss_char;
402: p_cplv_tbl(1).WOMEN_OWNED_FLAG := OKE_API.g_miss_char;
403: p_cplv_tbl(1).ALIAS := OKE_API.g_miss_char;
404: p_cplv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
405: p_cplv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
406: p_cplv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
407: p_cplv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
408: p_cplv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
401: p_cplv_tbl(1).SMALL_BUSINESS_FLAG := OKE_API.g_miss_char;
402: p_cplv_tbl(1).WOMEN_OWNED_FLAG := OKE_API.g_miss_char;
403: p_cplv_tbl(1).ALIAS := OKE_API.g_miss_char;
404: p_cplv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
405: p_cplv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
406: p_cplv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
407: p_cplv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
408: p_cplv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
409: p_cplv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
402: p_cplv_tbl(1).WOMEN_OWNED_FLAG := OKE_API.g_miss_char;
403: p_cplv_tbl(1).ALIAS := OKE_API.g_miss_char;
404: p_cplv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
405: p_cplv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
406: p_cplv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
407: p_cplv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
408: p_cplv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
409: p_cplv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
410: p_cplv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
403: p_cplv_tbl(1).ALIAS := OKE_API.g_miss_char;
404: p_cplv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
405: p_cplv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
406: p_cplv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
407: p_cplv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
408: p_cplv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
409: p_cplv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
410: p_cplv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
411: p_cplv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
404: p_cplv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
405: p_cplv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
406: p_cplv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
407: p_cplv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
408: p_cplv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
409: p_cplv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
410: p_cplv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
411: p_cplv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
412: p_cplv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
405: p_cplv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
406: p_cplv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
407: p_cplv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
408: p_cplv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
409: p_cplv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
410: p_cplv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
411: p_cplv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
412: p_cplv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
413: p_cplv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
406: p_cplv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
407: p_cplv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
408: p_cplv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
409: p_cplv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
410: p_cplv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
411: p_cplv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
412: p_cplv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
413: p_cplv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
414: p_cplv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
407: p_cplv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
408: p_cplv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
409: p_cplv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
410: p_cplv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
411: p_cplv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
412: p_cplv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
413: p_cplv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
414: p_cplv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
415: p_cplv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
408: p_cplv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
409: p_cplv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
410: p_cplv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
411: p_cplv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
412: p_cplv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
413: p_cplv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
414: p_cplv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
415: p_cplv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
416: p_cplv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
409: p_cplv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
410: p_cplv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
411: p_cplv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
412: p_cplv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
413: p_cplv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
414: p_cplv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
415: p_cplv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
416: p_cplv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
417: p_cplv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
410: p_cplv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
411: p_cplv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
412: p_cplv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
413: p_cplv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
414: p_cplv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
415: p_cplv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
416: p_cplv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
417: p_cplv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
418: p_cplv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
411: p_cplv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
412: p_cplv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
413: p_cplv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
414: p_cplv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
415: p_cplv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
416: p_cplv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
417: p_cplv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
418: p_cplv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
419: p_cplv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
412: p_cplv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
413: p_cplv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
414: p_cplv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
415: p_cplv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
416: p_cplv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
417: p_cplv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
418: p_cplv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
419: p_cplv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
420: p_cplv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
413: p_cplv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
414: p_cplv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
415: p_cplv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
416: p_cplv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
417: p_cplv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
418: p_cplv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
419: p_cplv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
420: p_cplv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
421: p_cplv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
414: p_cplv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
415: p_cplv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
416: p_cplv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
417: p_cplv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
418: p_cplv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
419: p_cplv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
420: p_cplv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
421: p_cplv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
422: p_cplv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
415: p_cplv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
416: p_cplv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
417: p_cplv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
418: p_cplv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
419: p_cplv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
420: p_cplv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
421: p_cplv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
422: p_cplv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
423: p_cplv_tbl(1).LAST_UPDATE_DATE := OKE_API.g_miss_date;
416: p_cplv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
417: p_cplv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
418: p_cplv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
419: p_cplv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
420: p_cplv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
421: p_cplv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
422: p_cplv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
423: p_cplv_tbl(1).LAST_UPDATE_DATE := OKE_API.g_miss_date;
424: p_cplv_tbl(1).LAST_UPDATE_LOGIN := OKE_API.g_miss_num;
417: p_cplv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
418: p_cplv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
419: p_cplv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
420: p_cplv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
421: p_cplv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
422: p_cplv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
423: p_cplv_tbl(1).LAST_UPDATE_DATE := OKE_API.g_miss_date;
424: p_cplv_tbl(1).LAST_UPDATE_LOGIN := OKE_API.g_miss_num;
425:
418: p_cplv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
419: p_cplv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
420: p_cplv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
421: p_cplv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
422: p_cplv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
423: p_cplv_tbl(1).LAST_UPDATE_DATE := OKE_API.g_miss_date;
424: p_cplv_tbl(1).LAST_UPDATE_LOGIN := OKE_API.g_miss_num;
425:
426: END INITIALIZE_RECORD;
419: p_cplv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
420: p_cplv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
421: p_cplv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
422: p_cplv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
423: p_cplv_tbl(1).LAST_UPDATE_DATE := OKE_API.g_miss_date;
424: p_cplv_tbl(1).LAST_UPDATE_LOGIN := OKE_API.g_miss_num;
425:
426: END INITIALIZE_RECORD;
427:
420: p_cplv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
421: p_cplv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
422: p_cplv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
423: p_cplv_tbl(1).LAST_UPDATE_DATE := OKE_API.g_miss_date;
424: p_cplv_tbl(1).LAST_UPDATE_LOGIN := OKE_API.g_miss_num;
425:
426: END INITIALIZE_RECORD;
427:
428:
499: x_msg_count OUT NOCOPY NUMBER,
500: x_msg_data OUT NOCOPY VARCHAR2,
501: p_cplv_rec IN cplv_rec_type,
502: x_cplv_rec OUT NOCOPY cplv_rec_type,
503: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE) is
504:
505: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_PARTY_ROLE';
506: l_api_version CONSTANT NUMBER := 1.0;
507: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
503: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE) is
504:
505: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_PARTY_ROLE';
506: l_api_version CONSTANT NUMBER := 1.0;
507: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
508: l_cplv_tbl_in OKC_CONTRACT_PARTY_PUB.cplv_tbl_type;
509: l_cplv_tbl_out OKC_CONTRACT_PARTY_PUB.cplv_tbl_type;
510:
511: l_JTOT_OBJECT1_CODE VARCHAR2(40);
512:
513: BEGIN
514: -- call START_ACTIVITY to create savepoint, check compatibility
515: -- and initialize message list
516: l_return_status := OKE_API.START_ACTIVITY(
517: p_api_name => l_api_name,
518: p_pkg_name => g_pkg_name,
519: p_init_msg_list => p_init_msg_list,
520: l_api_version => l_api_version,
522: p_api_type => g_api_type,
523: x_return_status => x_return_status);
524:
525: -- check if activity started successfully
526: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
527: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
528: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
529: raise OKE_API.G_EXCEPTION_ERROR;
530: End If;
523: x_return_status => x_return_status);
524:
525: -- check if activity started successfully
526: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
527: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
528: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
529: raise OKE_API.G_EXCEPTION_ERROR;
530: End If;
531:
524:
525: -- check if activity started successfully
526: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
527: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
528: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
529: raise OKE_API.G_EXCEPTION_ERROR;
530: End If;
531:
532:
525: -- check if activity started successfully
526: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
527: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
528: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
529: raise OKE_API.G_EXCEPTION_ERROR;
530: End If;
531:
532:
533:
540: l_JTOT_OBJECT1_CODE => l_JTOT_OBJECT1_CODE
541: );
542:
543: --- If any errors happen abort API
544: /* IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
545: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
546: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
547: RAISE OKE_API.G_EXCEPTION_ERROR;
548: END IF;
541: );
542:
543: --- If any errors happen abort API
544: /* IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
545: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
546: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
547: RAISE OKE_API.G_EXCEPTION_ERROR;
548: END IF;
549:
542:
543: --- If any errors happen abort API
544: /* IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
545: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
546: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
547: RAISE OKE_API.G_EXCEPTION_ERROR;
548: END IF;
549:
550: */
543: --- If any errors happen abort API
544: /* IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
545: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
546: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
547: RAISE OKE_API.G_EXCEPTION_ERROR;
548: END IF;
549:
550: */
551:
563: x_msg_count => x_msg_count,
564: x_msg_data => x_msg_data,
565: p_cplv_tbl => l_cplv_tbl_in );
566:
567: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR OR x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
568: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
569: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR OR x_return_status = OKE_API.G_RET_STS_ERROR) then
570: raise OKE_API.G_EXCEPTION_ERROR;
571: End If;
564: x_msg_data => x_msg_data,
565: p_cplv_tbl => l_cplv_tbl_in );
566:
567: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR OR x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
568: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
569: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR OR x_return_status = OKE_API.G_RET_STS_ERROR) then
570: raise OKE_API.G_EXCEPTION_ERROR;
571: End If;
572:
565: p_cplv_tbl => l_cplv_tbl_in );
566:
567: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR OR x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
568: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
569: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR OR x_return_status = OKE_API.G_RET_STS_ERROR) then
570: raise OKE_API.G_EXCEPTION_ERROR;
571: End If;
572:
573: /*skuchima bugs 14380256 */
566:
567: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR OR x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
568: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
569: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR OR x_return_status = OKE_API.G_RET_STS_ERROR) then
570: raise OKE_API.G_EXCEPTION_ERROR;
571: End If;
572:
573: /*skuchima bugs 14380256 */
574: IF (FND_API.G_TRUE = p_skip_minor_vers ) THEN
589:
590: x_cplv_rec:=l_cplv_tbl_out(1);
591:
592: --- If any errors happen abort API
593: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
594: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
595: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
596: RAISE OKE_API.G_EXCEPTION_ERROR;
597: END IF;
590: x_cplv_rec:=l_cplv_tbl_out(1);
591:
592: --- If any errors happen abort API
593: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
594: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
595: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
596: RAISE OKE_API.G_EXCEPTION_ERROR;
597: END IF;
598:
591:
592: --- If any errors happen abort API
593: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
594: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
595: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
596: RAISE OKE_API.G_EXCEPTION_ERROR;
597: END IF;
598:
599:
592: --- If any errors happen abort API
593: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
594: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
595: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
596: RAISE OKE_API.G_EXCEPTION_ERROR;
597: END IF;
598:
599:
600: x_return_status:=l_return_status;
597: END IF;
598:
599:
600: x_return_status:=l_return_status;
601: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
602: x_msg_data => x_msg_data);
603: EXCEPTION
604: when OKE_API.G_EXCEPTION_ERROR then
605: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
600: x_return_status:=l_return_status;
601: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
602: x_msg_data => x_msg_data);
603: EXCEPTION
604: when OKE_API.G_EXCEPTION_ERROR then
605: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
606: p_api_name => l_api_name,
607: p_pkg_name => g_pkg_name,
608: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
601: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
602: x_msg_data => x_msg_data);
603: EXCEPTION
604: when OKE_API.G_EXCEPTION_ERROR then
605: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
606: p_api_name => l_api_name,
607: p_pkg_name => g_pkg_name,
608: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
609: x_msg_count => x_msg_count,
604: when OKE_API.G_EXCEPTION_ERROR then
605: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
606: p_api_name => l_api_name,
607: p_pkg_name => g_pkg_name,
608: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
609: x_msg_count => x_msg_count,
610: x_msg_data => x_msg_data,
611: p_api_type => g_api_type);
612:
609: x_msg_count => x_msg_count,
610: x_msg_data => x_msg_data,
611: p_api_type => g_api_type);
612:
613: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
614: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
615: p_api_name => l_api_name,
616: p_pkg_name => g_pkg_name,
617: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
610: x_msg_data => x_msg_data,
611: p_api_type => g_api_type);
612:
613: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
614: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
615: p_api_name => l_api_name,
616: p_pkg_name => g_pkg_name,
617: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
618: x_msg_count => x_msg_count,
613: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
614: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
615: p_api_name => l_api_name,
616: p_pkg_name => g_pkg_name,
617: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
618: x_msg_count => x_msg_count,
619: x_msg_data => x_msg_data,
620: p_api_type => g_api_type);
621:
619: x_msg_data => x_msg_data,
620: p_api_type => g_api_type);
621:
622: when OTHERS then
623: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
624: p_api_name => l_api_name,
625: p_pkg_name => g_pkg_name,
626: p_exc_name => 'OTHERS',
627: x_msg_count => x_msg_count,
636: x_msg_count OUT NOCOPY NUMBER,
637: x_msg_data OUT NOCOPY VARCHAR2,
638: p_cplv_tbl IN cplv_tbl_type,
639: x_cplv_tbl OUT NOCOPY cplv_tbl_type,
640: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE)
641: is
642:
643: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_K_PARTY_ROLE';
644: l_api_version CONSTANT NUMBER := 1.0;
641: is
642:
643: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_K_PARTY_ROLE';
644: l_api_version CONSTANT NUMBER := 1.0;
645: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
646: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
647: i NUMBER:=0;
648: BEGIN
649: -- call START_ACTIVITY to create savepoint, check compatibility
642:
643: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_K_PARTY_ROLE';
644: l_api_version CONSTANT NUMBER := 1.0;
645: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
646: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
647: i NUMBER:=0;
648: BEGIN
649: -- call START_ACTIVITY to create savepoint, check compatibility
650: -- and initialize message list
647: i NUMBER:=0;
648: BEGIN
649: -- call START_ACTIVITY to create savepoint, check compatibility
650: -- and initialize message list
651: l_return_status := OKE_API.START_ACTIVITY(
652: p_api_name => l_api_name,
653: p_pkg_name => g_pkg_name,
654: p_init_msg_list => p_init_msg_list,
655: l_api_version => l_api_version,
657: p_api_type => g_api_type,
658: x_return_status => x_return_status);
659:
660: -- check if activity started successfully
661: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
662: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
664: raise OKE_API.G_EXCEPTION_ERROR;
665: End If;
658: x_return_status => x_return_status);
659:
660: -- check if activity started successfully
661: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
662: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
664: raise OKE_API.G_EXCEPTION_ERROR;
665: End If;
666:
659:
660: -- check if activity started successfully
661: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
662: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
664: raise OKE_API.G_EXCEPTION_ERROR;
665: End If;
666:
667: If (p_cplv_tbl.COUNT > 0) Then
660: -- check if activity started successfully
661: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
662: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
664: raise OKE_API.G_EXCEPTION_ERROR;
665: End If;
666:
667: If (p_cplv_tbl.COUNT > 0) Then
668: i := p_cplv_tbl.FIRST;
674: x_msg_data=>x_msg_data,
675: p_cplv_rec=>p_cplv_tbl(i),
676: x_cplv_rec=>x_cplv_tbl(i),
677: p_skip_minor_vers=>p_skip_minor_vers);
678: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
679: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
680: l_overall_status := x_return_status;
681: End If;
682: End If;
675: p_cplv_rec=>p_cplv_tbl(i),
676: x_cplv_rec=>x_cplv_tbl(i),
677: p_skip_minor_vers=>p_skip_minor_vers);
678: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
679: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
680: l_overall_status := x_return_status;
681: End If;
682: End If;
683:
688: -- return overall status
689: x_return_status := l_overall_status;
690: End If;
691:
692: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
693: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
694: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
695: raise OKE_API.G_EXCEPTION_ERROR;
696: End If;
689: x_return_status := l_overall_status;
690: End If;
691:
692: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
693: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
694: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
695: raise OKE_API.G_EXCEPTION_ERROR;
696: End If;
697:
690: End If;
691:
692: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
693: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
694: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
695: raise OKE_API.G_EXCEPTION_ERROR;
696: End If;
697:
698: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
691:
692: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
693: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
694: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
695: raise OKE_API.G_EXCEPTION_ERROR;
696: End If;
697:
698: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
699: x_msg_data => x_msg_data);
694: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
695: raise OKE_API.G_EXCEPTION_ERROR;
696: End If;
697:
698: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
699: x_msg_data => x_msg_data);
700: EXCEPTION
701: when OKE_API.G_EXCEPTION_ERROR then
702: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
697:
698: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
699: x_msg_data => x_msg_data);
700: EXCEPTION
701: when OKE_API.G_EXCEPTION_ERROR then
702: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
703: p_api_name => l_api_name,
704: p_pkg_name => g_pkg_name,
705: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
698: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
699: x_msg_data => x_msg_data);
700: EXCEPTION
701: when OKE_API.G_EXCEPTION_ERROR then
702: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
703: p_api_name => l_api_name,
704: p_pkg_name => g_pkg_name,
705: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
706: x_msg_count => x_msg_count,
701: when OKE_API.G_EXCEPTION_ERROR then
702: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
703: p_api_name => l_api_name,
704: p_pkg_name => g_pkg_name,
705: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
706: x_msg_count => x_msg_count,
707: x_msg_data => x_msg_data,
708: p_api_type => g_api_type);
709:
706: x_msg_count => x_msg_count,
707: x_msg_data => x_msg_data,
708: p_api_type => g_api_type);
709:
710: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
711: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
712: p_api_name => l_api_name,
713: p_pkg_name => g_pkg_name,
714: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
707: x_msg_data => x_msg_data,
708: p_api_type => g_api_type);
709:
710: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
711: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
712: p_api_name => l_api_name,
713: p_pkg_name => g_pkg_name,
714: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
715: x_msg_count => x_msg_count,
710: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
711: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
712: p_api_name => l_api_name,
713: p_pkg_name => g_pkg_name,
714: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
715: x_msg_count => x_msg_count,
716: x_msg_data => x_msg_data,
717: p_api_type => g_api_type);
718:
716: x_msg_data => x_msg_data,
717: p_api_type => g_api_type);
718:
719: when OTHERS then
720: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
721: p_api_name => l_api_name,
722: p_pkg_name => g_pkg_name,
723: p_exc_name => 'OTHERS',
724: x_msg_count => x_msg_count,
733: x_msg_count OUT NOCOPY NUMBER,
734: x_msg_data OUT NOCOPY VARCHAR2,
735: p_cplv_rec IN cplv_rec_type,
736: x_cplv_rec OUT NOCOPY cplv_rec_type,
737: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE)
738: is
739:
740: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_K_PARTY_ROLE';
741: l_api_version CONSTANT NUMBER := 1.0;
738: is
739:
740: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_K_PARTY_ROLE';
741: l_api_version CONSTANT NUMBER := 1.0;
742: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
743: l_cplv_tbl_in OKC_CONTRACT_PARTY_PUB.cplv_tbl_type;
744: l_cplv_tbl_out OKC_CONTRACT_PARTY_PUB.cplv_tbl_type;
745: l_JTOT_OBJECT1_CODE VARCHAR2(40);
746: l_cplv_rec cplv_rec_type;
881: -- Get current database values
882: l_cplv_rec := get_rec(p_cplv_rec, l_row_notfound);
883: IF (l_row_notfound) THEN
884:
885: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
886: p_msg_name =>G_REQUIRED_VALUE,
887: p_token1 =>G_COL_NAME_TOKEN,
888: p_token1_value =>'ID');
889:
1067:
1068: BEGIN
1069: -- call START_ACTIVITY to create savepoint, check compatibility
1070: -- and initialize message list
1071: l_return_status := OKE_API.START_ACTIVITY(
1072: p_api_name => l_api_name,
1073: p_pkg_name => g_pkg_name,
1074: p_init_msg_list => p_init_msg_list,
1075: l_api_version => l_api_version,
1077: p_api_type => g_api_type,
1078: x_return_status => x_return_status);
1079:
1080: -- check if activity started successfully
1081: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1082: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1083: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1084: raise OKE_API.G_EXCEPTION_ERROR;
1085: End If;
1078: x_return_status => x_return_status);
1079:
1080: -- check if activity started successfully
1081: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1082: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1083: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1084: raise OKE_API.G_EXCEPTION_ERROR;
1085: End If;
1086:
1079:
1080: -- check if activity started successfully
1081: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1082: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1083: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1084: raise OKE_API.G_EXCEPTION_ERROR;
1085: End If;
1086:
1087: l_return_status := populate_new_record(p_cplv_rec, l_cplv_rec);
1080: -- check if activity started successfully
1081: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1082: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1083: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1084: raise OKE_API.G_EXCEPTION_ERROR;
1085: End If;
1086:
1087: l_return_status := populate_new_record(p_cplv_rec, l_cplv_rec);
1088: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1084: raise OKE_API.G_EXCEPTION_ERROR;
1085: End If;
1086:
1087: l_return_status := populate_new_record(p_cplv_rec, l_cplv_rec);
1088: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1089: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1090: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1091: RAISE OKE_API.G_EXCEPTION_ERROR;
1092: END IF;
1085: End If;
1086:
1087: l_return_status := populate_new_record(p_cplv_rec, l_cplv_rec);
1088: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1089: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1090: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1091: RAISE OKE_API.G_EXCEPTION_ERROR;
1092: END IF;
1093:
1086:
1087: l_return_status := populate_new_record(p_cplv_rec, l_cplv_rec);
1088: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1089: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1090: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1091: RAISE OKE_API.G_EXCEPTION_ERROR;
1092: END IF;
1093:
1094:
1087: l_return_status := populate_new_record(p_cplv_rec, l_cplv_rec);
1088: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1089: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1090: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1091: RAISE OKE_API.G_EXCEPTION_ERROR;
1092: END IF;
1093:
1094:
1095:
1100: l_JTOT_OBJECT1_CODE => l_JTOT_OBJECT1_CODE
1101: );
1102:
1103: --- If any errors happen abort API
1104: /* IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1105: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1106: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1107: RAISE OKE_API.G_EXCEPTION_ERROR;
1108: END IF;
1101: );
1102:
1103: --- If any errors happen abort API
1104: /* IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1105: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1106: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1107: RAISE OKE_API.G_EXCEPTION_ERROR;
1108: END IF;
1109: */
1102:
1103: --- If any errors happen abort API
1104: /* IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1105: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1106: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1107: RAISE OKE_API.G_EXCEPTION_ERROR;
1108: END IF;
1109: */
1110:
1103: --- If any errors happen abort API
1104: /* IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1105: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1106: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1107: RAISE OKE_API.G_EXCEPTION_ERROR;
1108: END IF;
1109: */
1110:
1111: SET_RECORD(operation => 'UPDATE',
1122: x_msg_count => x_msg_count,
1123: x_msg_data => x_msg_data,
1124: p_cplv_tbl => l_cplv_tbl_in );
1125:
1126: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR OR x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1127: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1128: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR OR x_return_status = OKE_API.G_RET_STS_ERROR) then
1129: raise OKE_API.G_EXCEPTION_ERROR;
1130: End If;
1123: x_msg_data => x_msg_data,
1124: p_cplv_tbl => l_cplv_tbl_in );
1125:
1126: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR OR x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1127: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1128: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR OR x_return_status = OKE_API.G_RET_STS_ERROR) then
1129: raise OKE_API.G_EXCEPTION_ERROR;
1130: End If;
1131:
1124: p_cplv_tbl => l_cplv_tbl_in );
1125:
1126: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR OR x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1127: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1128: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR OR x_return_status = OKE_API.G_RET_STS_ERROR) then
1129: raise OKE_API.G_EXCEPTION_ERROR;
1130: End If;
1131:
1132:
1125:
1126: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR OR x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1127: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1128: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR OR x_return_status = OKE_API.G_RET_STS_ERROR) then
1129: raise OKE_API.G_EXCEPTION_ERROR;
1130: End If;
1131:
1132:
1133: /*skuchima bugs 14380256 */
1148: okc_cvm_pvt.defer_minor_version_update('F');
1149:
1150: x_cplv_rec:= l_cplv_tbl_out(1);
1151: --- If any errors happen abort API
1152: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1153: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1154: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1155: RAISE OKE_API.G_EXCEPTION_ERROR;
1156: END IF;
1149:
1150: x_cplv_rec:= l_cplv_tbl_out(1);
1151: --- If any errors happen abort API
1152: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1153: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1154: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1155: RAISE OKE_API.G_EXCEPTION_ERROR;
1156: END IF;
1157:
1150: x_cplv_rec:= l_cplv_tbl_out(1);
1151: --- If any errors happen abort API
1152: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1153: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1154: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1155: RAISE OKE_API.G_EXCEPTION_ERROR;
1156: END IF;
1157:
1158:
1151: --- If any errors happen abort API
1152: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1153: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1154: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1155: RAISE OKE_API.G_EXCEPTION_ERROR;
1156: END IF;
1157:
1158:
1159: x_return_status:=l_return_status;
1156: END IF;
1157:
1158:
1159: x_return_status:=l_return_status;
1160: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1161: x_msg_data => x_msg_data);
1162: EXCEPTION
1163: when OKE_API.G_EXCEPTION_ERROR then
1164: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1159: x_return_status:=l_return_status;
1160: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1161: x_msg_data => x_msg_data);
1162: EXCEPTION
1163: when OKE_API.G_EXCEPTION_ERROR then
1164: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1165: p_api_name => l_api_name,
1166: p_pkg_name => g_pkg_name,
1167: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1160: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1161: x_msg_data => x_msg_data);
1162: EXCEPTION
1163: when OKE_API.G_EXCEPTION_ERROR then
1164: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1165: p_api_name => l_api_name,
1166: p_pkg_name => g_pkg_name,
1167: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1168: x_msg_count => x_msg_count,
1163: when OKE_API.G_EXCEPTION_ERROR then
1164: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1165: p_api_name => l_api_name,
1166: p_pkg_name => g_pkg_name,
1167: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1168: x_msg_count => x_msg_count,
1169: x_msg_data => x_msg_data,
1170: p_api_type => g_api_type);
1171:
1168: x_msg_count => x_msg_count,
1169: x_msg_data => x_msg_data,
1170: p_api_type => g_api_type);
1171:
1172: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1173: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1174: p_api_name => l_api_name,
1175: p_pkg_name => g_pkg_name,
1176: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1169: x_msg_data => x_msg_data,
1170: p_api_type => g_api_type);
1171:
1172: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1173: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1174: p_api_name => l_api_name,
1175: p_pkg_name => g_pkg_name,
1176: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1177: x_msg_count => x_msg_count,
1172: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1173: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1174: p_api_name => l_api_name,
1175: p_pkg_name => g_pkg_name,
1176: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1177: x_msg_count => x_msg_count,
1178: x_msg_data => x_msg_data,
1179: p_api_type => g_api_type);
1180:
1178: x_msg_data => x_msg_data,
1179: p_api_type => g_api_type);
1180:
1181: when OTHERS then
1182: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1183: p_api_name => l_api_name,
1184: p_pkg_name => g_pkg_name,
1185: p_exc_name => 'OTHERS',
1186: x_msg_count => x_msg_count,
1195: x_msg_count OUT NOCOPY NUMBER,
1196: x_msg_data OUT NOCOPY VARCHAR2,
1197: p_ctcv_tbl IN ctcv_tbl_type,
1198: x_ctcv_tbl OUT NOCOPY ctcv_tbl_type,
1199: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE)
1200: is
1201:
1202: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_CONTACT';
1203: l_api_version CONSTANT NUMBER := 1.0;
1200: is
1201:
1202: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_CONTACT';
1203: l_api_version CONSTANT NUMBER := 1.0;
1204: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1205: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1206: i NUMBER:=0;
1207: BEGIN
1208: -- call START_ACTIVITY to create savepoint, check compatibility
1201:
1202: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_CONTACT';
1203: l_api_version CONSTANT NUMBER := 1.0;
1204: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1205: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1206: i NUMBER:=0;
1207: BEGIN
1208: -- call START_ACTIVITY to create savepoint, check compatibility
1209: -- and initialize message list
1206: i NUMBER:=0;
1207: BEGIN
1208: -- call START_ACTIVITY to create savepoint, check compatibility
1209: -- and initialize message list
1210: l_return_status := OKE_API.START_ACTIVITY(
1211: p_api_name => l_api_name,
1212: p_pkg_name => g_pkg_name,
1213: p_init_msg_list => p_init_msg_list,
1214: l_api_version => l_api_version,
1216: p_api_type => g_api_type,
1217: x_return_status => x_return_status);
1218:
1219: -- check if activity started successfully
1220: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1221: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1222: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1223: raise OKE_API.G_EXCEPTION_ERROR;
1224: End If;
1217: x_return_status => x_return_status);
1218:
1219: -- check if activity started successfully
1220: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1221: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1222: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1223: raise OKE_API.G_EXCEPTION_ERROR;
1224: End If;
1225:
1218:
1219: -- check if activity started successfully
1220: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1221: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1222: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1223: raise OKE_API.G_EXCEPTION_ERROR;
1224: End If;
1225:
1226: If (p_ctcv_tbl.COUNT > 0) Then
1219: -- check if activity started successfully
1220: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1221: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1222: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1223: raise OKE_API.G_EXCEPTION_ERROR;
1224: End If;
1225:
1226: If (p_ctcv_tbl.COUNT > 0) Then
1227: i := p_ctcv_tbl.FIRST;
1234: p_ctcv_rec=>p_ctcv_tbl(i),
1235: x_ctcv_rec=>x_ctcv_tbl(i),
1236: p_skip_minor_vers=>p_skip_minor_vers);
1237:
1238: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1239: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1240: l_overall_status := x_return_status;
1241: End If;
1242: End If;
1235: x_ctcv_rec=>x_ctcv_tbl(i),
1236: p_skip_minor_vers=>p_skip_minor_vers);
1237:
1238: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1239: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1240: l_overall_status := x_return_status;
1241: End If;
1242: End If;
1243:
1248: -- return overall status
1249: x_return_status := l_overall_status;
1250: End If;
1251:
1252: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1253: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1255: raise OKE_API.G_EXCEPTION_ERROR;
1256: End If;
1249: x_return_status := l_overall_status;
1250: End If;
1251:
1252: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1253: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1255: raise OKE_API.G_EXCEPTION_ERROR;
1256: End If;
1257:
1250: End If;
1251:
1252: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1253: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1255: raise OKE_API.G_EXCEPTION_ERROR;
1256: End If;
1257:
1258: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1251:
1252: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1253: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1255: raise OKE_API.G_EXCEPTION_ERROR;
1256: End If;
1257:
1258: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1259: x_msg_data => x_msg_data);
1254: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1255: raise OKE_API.G_EXCEPTION_ERROR;
1256: End If;
1257:
1258: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1259: x_msg_data => x_msg_data);
1260: EXCEPTION
1261: when OKE_API.G_EXCEPTION_ERROR then
1262: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1257:
1258: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1259: x_msg_data => x_msg_data);
1260: EXCEPTION
1261: when OKE_API.G_EXCEPTION_ERROR then
1262: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1263: p_api_name => l_api_name,
1264: p_pkg_name => g_pkg_name,
1265: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1258: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1259: x_msg_data => x_msg_data);
1260: EXCEPTION
1261: when OKE_API.G_EXCEPTION_ERROR then
1262: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1263: p_api_name => l_api_name,
1264: p_pkg_name => g_pkg_name,
1265: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1266: x_msg_count => x_msg_count,
1261: when OKE_API.G_EXCEPTION_ERROR then
1262: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1263: p_api_name => l_api_name,
1264: p_pkg_name => g_pkg_name,
1265: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1266: x_msg_count => x_msg_count,
1267: x_msg_data => x_msg_data,
1268: p_api_type => g_api_type);
1269:
1266: x_msg_count => x_msg_count,
1267: x_msg_data => x_msg_data,
1268: p_api_type => g_api_type);
1269:
1270: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1271: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1272: p_api_name => l_api_name,
1273: p_pkg_name => g_pkg_name,
1274: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1267: x_msg_data => x_msg_data,
1268: p_api_type => g_api_type);
1269:
1270: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1271: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1272: p_api_name => l_api_name,
1273: p_pkg_name => g_pkg_name,
1274: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1275: x_msg_count => x_msg_count,
1270: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1271: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1272: p_api_name => l_api_name,
1273: p_pkg_name => g_pkg_name,
1274: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1275: x_msg_count => x_msg_count,
1276: x_msg_data => x_msg_data,
1277: p_api_type => g_api_type);
1278:
1276: x_msg_data => x_msg_data,
1277: p_api_type => g_api_type);
1278:
1279: when OTHERS then
1280: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1281: p_api_name => l_api_name,
1282: p_pkg_name => g_pkg_name,
1283: p_exc_name => 'OTHERS',
1284: x_msg_count => x_msg_count,
1382: l_constrained_yn VARCHAR2(1) := 'N';
1383:
1384:
1385: BEGIN
1386: x_return_status := OKE_API.G_RET_STS_SUCCESS;
1387:
1388:
1389:
1390: IF ( p_ctcv_rec.cpl_id IS NULL OR p_ctcv_rec.cpl_id=OKC_API.G_MISS_NUM) THEN
1387:
1388:
1389:
1390: IF ( p_ctcv_rec.cpl_id IS NULL OR p_ctcv_rec.cpl_id=OKC_API.G_MISS_NUM) THEN
1391: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
1392: p_msg_name =>G_REQUIRED_VALUE,
1393: p_token1 =>G_COL_NAME_TOKEN,
1394: p_token1_value =>'cpl_id');
1395: x_return_status := OKE_API.G_RET_STS_ERROR;
1391: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
1392: p_msg_name =>G_REQUIRED_VALUE,
1393: p_token1 =>G_COL_NAME_TOKEN,
1394: p_token1_value =>'cpl_id');
1395: x_return_status := OKE_API.G_RET_STS_ERROR;
1396: END IF;
1397:
1398:
1399:
1413:
1414:
1415:
1416: IF ( l_JTOT_OBJECT1_CODE IS NULL) THEN
1417: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
1418: p_msg_name =>G_INVALID_VALUE,
1419: p_token1 =>G_COL_NAME_TOKEN,
1420: p_token1_value =>'CRO_CODE');
1421: x_return_status := OKE_API.G_RET_STS_ERROR;
1417: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
1418: p_msg_name =>G_INVALID_VALUE,
1419: p_token1 =>G_COL_NAME_TOKEN,
1420: p_token1_value =>'CRO_CODE');
1421: x_return_status := OKE_API.G_RET_STS_ERROR;
1422: END IF;
1423:
1424:
1425: IF l_jtot_object1_code is not null THEN
1426:
1427: l_sql_stmt := OKC_UTIL.GET_SQL_FROM_JTFV(l_jtot_object1_code);
1428:
1429: If (l_sql_stmt is null) Then
1430: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
1431: p_msg_name =>'No view found in JTF') ;
1432: x_return_status := OKE_API.G_RET_STS_ERROR;
1433: End If;
1434:
1428:
1429: If (l_sql_stmt is null) Then
1430: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
1431: p_msg_name =>'No view found in JTF') ;
1432: x_return_status := OKE_API.G_RET_STS_ERROR;
1433: End If;
1434:
1435: IF l_constrained_yn = 'Y' then
1436: IF ( party_jtot_object1_code IN ('OKE_BILLTO','OKE_CUST_KADMIN','OKE_MARKFOR','OKE_SHIPTO','OKE_CUSTACCT','OKE_VENDSITE','OKX_CUSTACCT'))
1463: begin
1464: EXECUTE IMMEDIATE l_sql_stmt INTO l_dummy_var ;
1465: EXCEPTION
1466: WHEN OTHERS THEN
1467: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
1468: p_msg_name =>'Invalid object1_id1 and object1_id2 ') ;
1469: x_return_status := OKE_API.G_RET_STS_ERROR;
1470:
1471: END;
1465: EXCEPTION
1466: WHEN OTHERS THEN
1467: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
1468: p_msg_name =>'Invalid object1_id1 and object1_id2 ') ;
1469: x_return_status := OKE_API.G_RET_STS_ERROR;
1470:
1471: END;
1472:
1473:
1481: EXCEPTION
1482:
1483: WHEN OTHERS THEN
1484: -- store SQL error message on message stack
1485: OKE_API.SET_MESSAGE(
1486: p_app_name =>g_app_name,
1487: p_msg_name =>G_UNEXPECTED_ERROR,
1488: p_token1 =>G_SQLCODE_TOKEN,
1489: p_token1_value =>SQLCODE,
1488: p_token1 =>G_SQLCODE_TOKEN,
1489: p_token1_value =>SQLCODE,
1490: p_token2 =>G_SQLERRM_TOKEN,
1491: p_token2_value =>SQLERRM);
1492: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1493:
1494: END validate_contact_attributes;
1495:
1496:
1496:
1497: PROCEDURE INITIALIZE_RECORD_contact(p_ctcv_tbl OUT NOCOPY okc_contract_party_pub.ctcv_tbl_type) IS
1498: BEGIN
1499:
1500: p_ctcv_tbl(1).ID := OKE_API.g_miss_num;
1501: p_ctcv_tbl(1).OBJECT_VERSION_NUMBER := OKE_API.g_miss_num;
1502: p_ctcv_tbl(1).CPL_ID := OKE_API.g_miss_num;
1503: p_ctcv_tbl(1).CRO_CODE := OKE_API.g_miss_char;
1504: p_ctcv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
1497: PROCEDURE INITIALIZE_RECORD_contact(p_ctcv_tbl OUT NOCOPY okc_contract_party_pub.ctcv_tbl_type) IS
1498: BEGIN
1499:
1500: p_ctcv_tbl(1).ID := OKE_API.g_miss_num;
1501: p_ctcv_tbl(1).OBJECT_VERSION_NUMBER := OKE_API.g_miss_num;
1502: p_ctcv_tbl(1).CPL_ID := OKE_API.g_miss_num;
1503: p_ctcv_tbl(1).CRO_CODE := OKE_API.g_miss_char;
1504: p_ctcv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
1505: p_ctcv_tbl(1).CONTACT_SEQUENCE := OKE_API.g_miss_num;
1498: BEGIN
1499:
1500: p_ctcv_tbl(1).ID := OKE_API.g_miss_num;
1501: p_ctcv_tbl(1).OBJECT_VERSION_NUMBER := OKE_API.g_miss_num;
1502: p_ctcv_tbl(1).CPL_ID := OKE_API.g_miss_num;
1503: p_ctcv_tbl(1).CRO_CODE := OKE_API.g_miss_char;
1504: p_ctcv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
1505: p_ctcv_tbl(1).CONTACT_SEQUENCE := OKE_API.g_miss_num;
1506: p_ctcv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
1499:
1500: p_ctcv_tbl(1).ID := OKE_API.g_miss_num;
1501: p_ctcv_tbl(1).OBJECT_VERSION_NUMBER := OKE_API.g_miss_num;
1502: p_ctcv_tbl(1).CPL_ID := OKE_API.g_miss_num;
1503: p_ctcv_tbl(1).CRO_CODE := OKE_API.g_miss_char;
1504: p_ctcv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
1505: p_ctcv_tbl(1).CONTACT_SEQUENCE := OKE_API.g_miss_num;
1506: p_ctcv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
1507: p_ctcv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
1500: p_ctcv_tbl(1).ID := OKE_API.g_miss_num;
1501: p_ctcv_tbl(1).OBJECT_VERSION_NUMBER := OKE_API.g_miss_num;
1502: p_ctcv_tbl(1).CPL_ID := OKE_API.g_miss_num;
1503: p_ctcv_tbl(1).CRO_CODE := OKE_API.g_miss_char;
1504: p_ctcv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
1505: p_ctcv_tbl(1).CONTACT_SEQUENCE := OKE_API.g_miss_num;
1506: p_ctcv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
1507: p_ctcv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
1508: p_ctcv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
1501: p_ctcv_tbl(1).OBJECT_VERSION_NUMBER := OKE_API.g_miss_num;
1502: p_ctcv_tbl(1).CPL_ID := OKE_API.g_miss_num;
1503: p_ctcv_tbl(1).CRO_CODE := OKE_API.g_miss_char;
1504: p_ctcv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
1505: p_ctcv_tbl(1).CONTACT_SEQUENCE := OKE_API.g_miss_num;
1506: p_ctcv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
1507: p_ctcv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
1508: p_ctcv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
1509: p_ctcv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
1502: p_ctcv_tbl(1).CPL_ID := OKE_API.g_miss_num;
1503: p_ctcv_tbl(1).CRO_CODE := OKE_API.g_miss_char;
1504: p_ctcv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
1505: p_ctcv_tbl(1).CONTACT_SEQUENCE := OKE_API.g_miss_num;
1506: p_ctcv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
1507: p_ctcv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
1508: p_ctcv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
1509: p_ctcv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
1510: p_ctcv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
1503: p_ctcv_tbl(1).CRO_CODE := OKE_API.g_miss_char;
1504: p_ctcv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
1505: p_ctcv_tbl(1).CONTACT_SEQUENCE := OKE_API.g_miss_num;
1506: p_ctcv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
1507: p_ctcv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
1508: p_ctcv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
1509: p_ctcv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
1510: p_ctcv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
1511: p_ctcv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
1504: p_ctcv_tbl(1).DNZ_CHR_ID := OKE_API.g_miss_num;
1505: p_ctcv_tbl(1).CONTACT_SEQUENCE := OKE_API.g_miss_num;
1506: p_ctcv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
1507: p_ctcv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
1508: p_ctcv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
1509: p_ctcv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
1510: p_ctcv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
1511: p_ctcv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
1512: p_ctcv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
1505: p_ctcv_tbl(1).CONTACT_SEQUENCE := OKE_API.g_miss_num;
1506: p_ctcv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
1507: p_ctcv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
1508: p_ctcv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
1509: p_ctcv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
1510: p_ctcv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
1511: p_ctcv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
1512: p_ctcv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
1513: p_ctcv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
1506: p_ctcv_tbl(1).OBJECT1_ID1 := OKE_API.g_miss_char;
1507: p_ctcv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
1508: p_ctcv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
1509: p_ctcv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
1510: p_ctcv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
1511: p_ctcv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
1512: p_ctcv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
1513: p_ctcv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
1514: p_ctcv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
1507: p_ctcv_tbl(1).OBJECT1_ID2 := OKE_API.g_miss_char;
1508: p_ctcv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
1509: p_ctcv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
1510: p_ctcv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
1511: p_ctcv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
1512: p_ctcv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
1513: p_ctcv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
1514: p_ctcv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
1515: p_ctcv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
1508: p_ctcv_tbl(1).JTOT_OBJECT1_CODE := OKE_API.g_miss_char;
1509: p_ctcv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
1510: p_ctcv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
1511: p_ctcv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
1512: p_ctcv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
1513: p_ctcv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
1514: p_ctcv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
1515: p_ctcv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
1516: p_ctcv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
1509: p_ctcv_tbl(1).ATTRIBUTE_CATEGORY := OKE_API.g_miss_char;
1510: p_ctcv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
1511: p_ctcv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
1512: p_ctcv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
1513: p_ctcv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
1514: p_ctcv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
1515: p_ctcv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
1516: p_ctcv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
1517: p_ctcv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
1510: p_ctcv_tbl(1).ATTRIBUTE1 := OKE_API.g_miss_char;
1511: p_ctcv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
1512: p_ctcv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
1513: p_ctcv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
1514: p_ctcv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
1515: p_ctcv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
1516: p_ctcv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
1517: p_ctcv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
1518: p_ctcv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
1511: p_ctcv_tbl(1).ATTRIBUTE2 := OKE_API.g_miss_char;
1512: p_ctcv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
1513: p_ctcv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
1514: p_ctcv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
1515: p_ctcv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
1516: p_ctcv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
1517: p_ctcv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
1518: p_ctcv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
1519: p_ctcv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
1512: p_ctcv_tbl(1).ATTRIBUTE3 := OKE_API.g_miss_char;
1513: p_ctcv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
1514: p_ctcv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
1515: p_ctcv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
1516: p_ctcv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
1517: p_ctcv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
1518: p_ctcv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
1519: p_ctcv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
1520: p_ctcv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
1513: p_ctcv_tbl(1).ATTRIBUTE4 := OKE_API.g_miss_char;
1514: p_ctcv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
1515: p_ctcv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
1516: p_ctcv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
1517: p_ctcv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
1518: p_ctcv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
1519: p_ctcv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
1520: p_ctcv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
1521: p_ctcv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
1514: p_ctcv_tbl(1).ATTRIBUTE5 := OKE_API.g_miss_char;
1515: p_ctcv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
1516: p_ctcv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
1517: p_ctcv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
1518: p_ctcv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
1519: p_ctcv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
1520: p_ctcv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
1521: p_ctcv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
1522: p_ctcv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
1515: p_ctcv_tbl(1).ATTRIBUTE6 := OKE_API.g_miss_char;
1516: p_ctcv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
1517: p_ctcv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
1518: p_ctcv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
1519: p_ctcv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
1520: p_ctcv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
1521: p_ctcv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
1522: p_ctcv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
1523: p_ctcv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
1516: p_ctcv_tbl(1).ATTRIBUTE7 := OKE_API.g_miss_char;
1517: p_ctcv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
1518: p_ctcv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
1519: p_ctcv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
1520: p_ctcv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
1521: p_ctcv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
1522: p_ctcv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
1523: p_ctcv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
1524: p_ctcv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
1517: p_ctcv_tbl(1).ATTRIBUTE8 := OKE_API.g_miss_char;
1518: p_ctcv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
1519: p_ctcv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
1520: p_ctcv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
1521: p_ctcv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
1522: p_ctcv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
1523: p_ctcv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
1524: p_ctcv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
1525: p_ctcv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
1518: p_ctcv_tbl(1).ATTRIBUTE9 := OKE_API.g_miss_char;
1519: p_ctcv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
1520: p_ctcv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
1521: p_ctcv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
1522: p_ctcv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
1523: p_ctcv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
1524: p_ctcv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
1525: p_ctcv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
1526: p_ctcv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
1519: p_ctcv_tbl(1).ATTRIBUTE10 := OKE_API.g_miss_char;
1520: p_ctcv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
1521: p_ctcv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
1522: p_ctcv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
1523: p_ctcv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
1524: p_ctcv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
1525: p_ctcv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
1526: p_ctcv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
1527: p_ctcv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
1520: p_ctcv_tbl(1).ATTRIBUTE11 := OKE_API.g_miss_char;
1521: p_ctcv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
1522: p_ctcv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
1523: p_ctcv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
1524: p_ctcv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
1525: p_ctcv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
1526: p_ctcv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
1527: p_ctcv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
1528: p_ctcv_tbl(1).LAST_UPDATE_DATE := OKE_API.g_miss_date;
1521: p_ctcv_tbl(1).ATTRIBUTE12 := OKE_API.g_miss_char;
1522: p_ctcv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
1523: p_ctcv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
1524: p_ctcv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
1525: p_ctcv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
1526: p_ctcv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
1527: p_ctcv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
1528: p_ctcv_tbl(1).LAST_UPDATE_DATE := OKE_API.g_miss_date;
1529: p_ctcv_tbl(1).LAST_UPDATE_LOGIN := OKE_API.g_miss_num;
1522: p_ctcv_tbl(1).ATTRIBUTE13 := OKE_API.g_miss_char;
1523: p_ctcv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
1524: p_ctcv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
1525: p_ctcv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
1526: p_ctcv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
1527: p_ctcv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
1528: p_ctcv_tbl(1).LAST_UPDATE_DATE := OKE_API.g_miss_date;
1529: p_ctcv_tbl(1).LAST_UPDATE_LOGIN := OKE_API.g_miss_num;
1530:
1523: p_ctcv_tbl(1).ATTRIBUTE14 := OKE_API.g_miss_char;
1524: p_ctcv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
1525: p_ctcv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
1526: p_ctcv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
1527: p_ctcv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
1528: p_ctcv_tbl(1).LAST_UPDATE_DATE := OKE_API.g_miss_date;
1529: p_ctcv_tbl(1).LAST_UPDATE_LOGIN := OKE_API.g_miss_num;
1530:
1531: END;
1524: p_ctcv_tbl(1).ATTRIBUTE15 := OKE_API.g_miss_char;
1525: p_ctcv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
1526: p_ctcv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
1527: p_ctcv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
1528: p_ctcv_tbl(1).LAST_UPDATE_DATE := OKE_API.g_miss_date;
1529: p_ctcv_tbl(1).LAST_UPDATE_LOGIN := OKE_API.g_miss_num;
1530:
1531: END;
1532:
1525: p_ctcv_tbl(1).CREATED_BY := OKE_API.g_miss_num;
1526: p_ctcv_tbl(1).CREATION_DATE := OKE_API.g_miss_date;
1527: p_ctcv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
1528: p_ctcv_tbl(1).LAST_UPDATE_DATE := OKE_API.g_miss_date;
1529: p_ctcv_tbl(1).LAST_UPDATE_LOGIN := OKE_API.g_miss_num;
1530:
1531: END;
1532:
1533: PROCEDURE SET_RECORD_contact(
1590: x_msg_count OUT NOCOPY NUMBER,
1591: x_msg_data OUT NOCOPY VARCHAR2,
1592: p_ctcv_rec IN ctcv_rec_type,
1593: x_ctcv_rec OUT NOCOPY ctcv_rec_type,
1594: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE) is
1595:
1596: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_CONTACT';
1597: l_api_version CONSTANT NUMBER := 1.0;
1598: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1594: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE) is
1595:
1596: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_CONTACT';
1597: l_api_version CONSTANT NUMBER := 1.0;
1598: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1599: l_ctcv_tbl_in OKC_CONTRACT_PARTY_PUB.ctcv_tbl_type;
1600: l_ctcv_tbl_out OKC_CONTRACT_PARTY_PUB.ctcv_tbl_type;
1601:
1602: l_JTOT_OBJECT1_CODE VARCHAR2(40);
1603:
1604: BEGIN
1605: -- call START_ACTIVITY to create savepoint, check compatibility
1606: -- and initialize message list
1607: l_return_status := OKE_API.START_ACTIVITY(
1608: p_api_name => l_api_name,
1609: p_pkg_name => g_pkg_name,
1610: p_init_msg_list => p_init_msg_list,
1611: l_api_version => l_api_version,
1613: p_api_type => g_api_type,
1614: x_return_status => x_return_status);
1615:
1616: -- check if activity started successfully
1617: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1618: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1619: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1620: raise OKE_API.G_EXCEPTION_ERROR;
1621: End If;
1614: x_return_status => x_return_status);
1615:
1616: -- check if activity started successfully
1617: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1618: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1619: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1620: raise OKE_API.G_EXCEPTION_ERROR;
1621: End If;
1622:
1615:
1616: -- check if activity started successfully
1617: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1618: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1619: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1620: raise OKE_API.G_EXCEPTION_ERROR;
1621: End If;
1622:
1623: ---Other validations which are part of OKE and missing in the above procedure
1616: -- check if activity started successfully
1617: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1618: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1619: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1620: raise OKE_API.G_EXCEPTION_ERROR;
1621: End If;
1622:
1623: ---Other validations which are part of OKE and missing in the above procedure
1624:
1627: l_JTOT_OBJECT1_CODE => l_JTOT_OBJECT1_CODE
1628: );
1629:
1630: /* --- If any errors happen abort API
1631: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1632: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1633: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1634: RAISE OKE_API.G_EXCEPTION_ERROR;
1635: END IF;
1628: );
1629:
1630: /* --- If any errors happen abort API
1631: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1632: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1633: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1634: RAISE OKE_API.G_EXCEPTION_ERROR;
1635: END IF;
1636: */
1629:
1630: /* --- If any errors happen abort API
1631: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1632: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1633: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1634: RAISE OKE_API.G_EXCEPTION_ERROR;
1635: END IF;
1636: */
1637:
1630: /* --- If any errors happen abort API
1631: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1632: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1633: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1634: RAISE OKE_API.G_EXCEPTION_ERROR;
1635: END IF;
1636: */
1637:
1638: SET_RECORD_contact(operation => 'INSERT',
1649: x_msg_count => x_msg_count,
1650: x_msg_data => x_msg_data,
1651: p_ctcv_tbl => l_ctcv_tbl_in );
1652:
1653: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR OR x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1654: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR OR x_return_status = OKE_API.G_RET_STS_ERROR) then
1656: raise OKE_API.G_EXCEPTION_ERROR;
1657: End If;
1650: x_msg_data => x_msg_data,
1651: p_ctcv_tbl => l_ctcv_tbl_in );
1652:
1653: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR OR x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1654: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR OR x_return_status = OKE_API.G_RET_STS_ERROR) then
1656: raise OKE_API.G_EXCEPTION_ERROR;
1657: End If;
1658:
1651: p_ctcv_tbl => l_ctcv_tbl_in );
1652:
1653: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR OR x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1654: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR OR x_return_status = OKE_API.G_RET_STS_ERROR) then
1656: raise OKE_API.G_EXCEPTION_ERROR;
1657: End If;
1658:
1659: /*skuchima bugs 14380256 */
1652:
1653: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR OR x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1654: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR OR x_return_status = OKE_API.G_RET_STS_ERROR) then
1656: raise OKE_API.G_EXCEPTION_ERROR;
1657: End If;
1658:
1659: /*skuchima bugs 14380256 */
1660: IF (FND_API.G_TRUE = p_skip_minor_vers ) THEN
1674: okc_cvm_pvt.defer_minor_version_update('F');
1675:
1676: x_ctcv_rec:= l_ctcv_tbl_out(1);
1677: --- If any errors happen abort API
1678: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1679: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1680: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1681: RAISE OKE_API.G_EXCEPTION_ERROR;
1682: END IF;
1675:
1676: x_ctcv_rec:= l_ctcv_tbl_out(1);
1677: --- If any errors happen abort API
1678: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1679: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1680: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1681: RAISE OKE_API.G_EXCEPTION_ERROR;
1682: END IF;
1683:
1676: x_ctcv_rec:= l_ctcv_tbl_out(1);
1677: --- If any errors happen abort API
1678: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1679: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1680: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1681: RAISE OKE_API.G_EXCEPTION_ERROR;
1682: END IF;
1683:
1684:
1677: --- If any errors happen abort API
1678: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1679: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1680: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1681: RAISE OKE_API.G_EXCEPTION_ERROR;
1682: END IF;
1683:
1684:
1685: x_return_status:=l_return_status;
1682: END IF;
1683:
1684:
1685: x_return_status:=l_return_status;
1686: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1687: x_msg_data => x_msg_data);
1688: EXCEPTION
1689: when OKE_API.G_EXCEPTION_ERROR then
1690: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1685: x_return_status:=l_return_status;
1686: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1687: x_msg_data => x_msg_data);
1688: EXCEPTION
1689: when OKE_API.G_EXCEPTION_ERROR then
1690: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1691: p_api_name => l_api_name,
1692: p_pkg_name => g_pkg_name,
1693: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1686: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1687: x_msg_data => x_msg_data);
1688: EXCEPTION
1689: when OKE_API.G_EXCEPTION_ERROR then
1690: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1691: p_api_name => l_api_name,
1692: p_pkg_name => g_pkg_name,
1693: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1694: x_msg_count => x_msg_count,
1689: when OKE_API.G_EXCEPTION_ERROR then
1690: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1691: p_api_name => l_api_name,
1692: p_pkg_name => g_pkg_name,
1693: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1694: x_msg_count => x_msg_count,
1695: x_msg_data => x_msg_data,
1696: p_api_type => g_api_type);
1697:
1694: x_msg_count => x_msg_count,
1695: x_msg_data => x_msg_data,
1696: p_api_type => g_api_type);
1697:
1698: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1699: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1700: p_api_name => l_api_name,
1701: p_pkg_name => g_pkg_name,
1702: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1695: x_msg_data => x_msg_data,
1696: p_api_type => g_api_type);
1697:
1698: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1699: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1700: p_api_name => l_api_name,
1701: p_pkg_name => g_pkg_name,
1702: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1703: x_msg_count => x_msg_count,
1698: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1699: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1700: p_api_name => l_api_name,
1701: p_pkg_name => g_pkg_name,
1702: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1703: x_msg_count => x_msg_count,
1704: x_msg_data => x_msg_data,
1705: p_api_type => g_api_type);
1706:
1704: x_msg_data => x_msg_data,
1705: p_api_type => g_api_type);
1706:
1707: when OTHERS then
1708: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1709: p_api_name => l_api_name,
1710: p_pkg_name => g_pkg_name,
1711: p_exc_name => 'OTHERS',
1712: x_msg_count => x_msg_count,
1721: x_msg_count OUT NOCOPY NUMBER,
1722: x_msg_data OUT NOCOPY VARCHAR2,
1723: p_ctcv_tbl IN ctcv_tbl_type,
1724: x_ctcv_tbl OUT NOCOPY ctcv_tbl_type,
1725: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE)
1726: is
1727:
1728: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_CONTACT';
1729: l_api_version CONSTANT NUMBER := 1.0;
1726: is
1727:
1728: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_CONTACT';
1729: l_api_version CONSTANT NUMBER := 1.0;
1730: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1731: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1732: i NUMBER:=0;
1733: BEGIN
1734: -- call START_ACTIVITY to create savepoint, check compatibility
1727:
1728: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_CONTACT';
1729: l_api_version CONSTANT NUMBER := 1.0;
1730: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1731: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1732: i NUMBER:=0;
1733: BEGIN
1734: -- call START_ACTIVITY to create savepoint, check compatibility
1735: -- and initialize message list
1732: i NUMBER:=0;
1733: BEGIN
1734: -- call START_ACTIVITY to create savepoint, check compatibility
1735: -- and initialize message list
1736: l_return_status := OKE_API.START_ACTIVITY(
1737: p_api_name => l_api_name,
1738: p_pkg_name => g_pkg_name,
1739: p_init_msg_list => p_init_msg_list,
1740: l_api_version => l_api_version,
1742: p_api_type => g_api_type,
1743: x_return_status => x_return_status);
1744:
1745: -- check if activity started successfully
1746: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1747: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1748: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1749: raise OKE_API.G_EXCEPTION_ERROR;
1750: End If;
1743: x_return_status => x_return_status);
1744:
1745: -- check if activity started successfully
1746: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1747: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1748: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1749: raise OKE_API.G_EXCEPTION_ERROR;
1750: End If;
1751:
1744:
1745: -- check if activity started successfully
1746: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1747: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1748: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1749: raise OKE_API.G_EXCEPTION_ERROR;
1750: End If;
1751:
1752: If (p_ctcv_tbl.COUNT > 0) Then
1745: -- check if activity started successfully
1746: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1747: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1748: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1749: raise OKE_API.G_EXCEPTION_ERROR;
1750: End If;
1751:
1752: If (p_ctcv_tbl.COUNT > 0) Then
1753: i := p_ctcv_tbl.FIRST;
1762: x_ctcv_rec=>x_ctcv_tbl(i),
1763: p_skip_minor_vers=>p_skip_minor_vers);
1764:
1765:
1766: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1767: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1768: l_overall_status := x_return_status;
1769: End If;
1770: End If;
1763: p_skip_minor_vers=>p_skip_minor_vers);
1764:
1765:
1766: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1767: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1768: l_overall_status := x_return_status;
1769: End If;
1770: End If;
1771:
1776: -- return overall status
1777: x_return_status := l_overall_status;
1778: End If;
1779:
1780: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1781: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1782: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1783: raise OKE_API.G_EXCEPTION_ERROR;
1784: End If;
1777: x_return_status := l_overall_status;
1778: End If;
1779:
1780: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1781: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1782: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1783: raise OKE_API.G_EXCEPTION_ERROR;
1784: End If;
1785:
1778: End If;
1779:
1780: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1781: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1782: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1783: raise OKE_API.G_EXCEPTION_ERROR;
1784: End If;
1785:
1786: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1779:
1780: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1781: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1782: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1783: raise OKE_API.G_EXCEPTION_ERROR;
1784: End If;
1785:
1786: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1787: x_msg_data => x_msg_data);
1782: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1783: raise OKE_API.G_EXCEPTION_ERROR;
1784: End If;
1785:
1786: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1787: x_msg_data => x_msg_data);
1788: EXCEPTION
1789: when OKE_API.G_EXCEPTION_ERROR then
1790: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1785:
1786: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1787: x_msg_data => x_msg_data);
1788: EXCEPTION
1789: when OKE_API.G_EXCEPTION_ERROR then
1790: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1791: p_api_name => l_api_name,
1792: p_pkg_name => g_pkg_name,
1793: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1786: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1787: x_msg_data => x_msg_data);
1788: EXCEPTION
1789: when OKE_API.G_EXCEPTION_ERROR then
1790: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1791: p_api_name => l_api_name,
1792: p_pkg_name => g_pkg_name,
1793: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1794: x_msg_count => x_msg_count,
1789: when OKE_API.G_EXCEPTION_ERROR then
1790: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1791: p_api_name => l_api_name,
1792: p_pkg_name => g_pkg_name,
1793: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1794: x_msg_count => x_msg_count,
1795: x_msg_data => x_msg_data,
1796: p_api_type => g_api_type);
1797:
1794: x_msg_count => x_msg_count,
1795: x_msg_data => x_msg_data,
1796: p_api_type => g_api_type);
1797:
1798: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1799: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1800: p_api_name => l_api_name,
1801: p_pkg_name => g_pkg_name,
1802: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1795: x_msg_data => x_msg_data,
1796: p_api_type => g_api_type);
1797:
1798: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1799: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1800: p_api_name => l_api_name,
1801: p_pkg_name => g_pkg_name,
1802: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1803: x_msg_count => x_msg_count,
1798: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1799: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1800: p_api_name => l_api_name,
1801: p_pkg_name => g_pkg_name,
1802: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1803: x_msg_count => x_msg_count,
1804: x_msg_data => x_msg_data,
1805: p_api_type => g_api_type);
1806:
1804: x_msg_data => x_msg_data,
1805: p_api_type => g_api_type);
1806:
1807: when OTHERS then
1808: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1809: p_api_name => l_api_name,
1810: p_pkg_name => g_pkg_name,
1811: p_exc_name => 'OTHERS',
1812: x_msg_count => x_msg_count,
1821: x_msg_count OUT NOCOPY NUMBER,
1822: x_msg_data OUT NOCOPY VARCHAR2,
1823: p_ctcv_rec IN ctcv_rec_type,
1824: x_ctcv_rec OUT NOCOPY ctcv_rec_type,
1825: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE) is
1826:
1827: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_K_CONTACT';
1828: l_api_version CONSTANT NUMBER := 1.0;
1829: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1825: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE) is
1826:
1827: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_K_CONTACT';
1828: l_api_version CONSTANT NUMBER := 1.0;
1829: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1830: l_ctcv_tbl_in OKC_CONTRACT_PARTY_PUB.ctcv_tbl_type;
1831: l_ctcv_tbl_out OKC_CONTRACT_PARTY_PUB.ctcv_tbl_type;
1832:
1833: l_JTOT_OBJECT1_CODE VARCHAR2(40);
1960: x_ctcv_rec := p_ctcv_rec;
1961: -- Get current database values
1962: l_ctcv_rec := get_rec(p_ctcv_rec, l_row_notfound);
1963: IF (l_row_notfound) THEN
1964: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
1965: p_msg_name =>G_REQUIRED_VALUE,
1966: p_token1 =>G_COL_NAME_TOKEN,
1967: p_token1_value =>'ID');
1968:
2119:
2120: BEGIN
2121: -- call START_ACTIVITY to create savepoint, check compatibility
2122: -- and initialize message list
2123: l_return_status := OKE_API.START_ACTIVITY(
2124: p_api_name => l_api_name,
2125: p_pkg_name => g_pkg_name,
2126: p_init_msg_list => p_init_msg_list,
2127: l_api_version => l_api_version,
2129: p_api_type => g_api_type,
2130: x_return_status => x_return_status);
2131:
2132: -- check if activity started successfully
2133: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2134: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2135: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2136: raise OKE_API.G_EXCEPTION_ERROR;
2137: End If;
2130: x_return_status => x_return_status);
2131:
2132: -- check if activity started successfully
2133: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2134: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2135: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2136: raise OKE_API.G_EXCEPTION_ERROR;
2137: End If;
2138:
2131:
2132: -- check if activity started successfully
2133: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2134: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2135: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2136: raise OKE_API.G_EXCEPTION_ERROR;
2137: End If;
2138:
2139: l_return_status := populate_new_record(p_ctcv_rec, l_ctcv_rec);
2132: -- check if activity started successfully
2133: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2134: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2135: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2136: raise OKE_API.G_EXCEPTION_ERROR;
2137: End If;
2138:
2139: l_return_status := populate_new_record(p_ctcv_rec, l_ctcv_rec);
2140: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2150: l_JTOT_OBJECT1_CODE => l_JTOT_OBJECT1_CODE
2151: );
2152:
2153: --- If any errors happen abort API
2154: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2157: RAISE OKE_API.G_EXCEPTION_ERROR;
2158: END IF;
2151: );
2152:
2153: --- If any errors happen abort API
2154: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2157: RAISE OKE_API.G_EXCEPTION_ERROR;
2158: END IF;
2159:
2152:
2153: --- If any errors happen abort API
2154: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2157: RAISE OKE_API.G_EXCEPTION_ERROR;
2158: END IF;
2159:
2160:
2153: --- If any errors happen abort API
2154: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2157: RAISE OKE_API.G_EXCEPTION_ERROR;
2158: END IF;
2159:
2160:
2161: SET_RECORD_contact(operation => 'UPDATE',
2172: x_msg_count => x_msg_count,
2173: x_msg_data => x_msg_data,
2174: p_ctcv_tbl => l_ctcv_tbl_in );
2175:
2176: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2177: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2178: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2179: raise OKE_API.G_EXCEPTION_ERROR;
2180: End If;
2173: x_msg_data => x_msg_data,
2174: p_ctcv_tbl => l_ctcv_tbl_in );
2175:
2176: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2177: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2178: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2179: raise OKE_API.G_EXCEPTION_ERROR;
2180: End If;
2181:
2174: p_ctcv_tbl => l_ctcv_tbl_in );
2175:
2176: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2177: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2178: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2179: raise OKE_API.G_EXCEPTION_ERROR;
2180: End If;
2181:
2182: /*skuchima bugs 14380256 */
2175:
2176: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2177: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2178: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2179: raise OKE_API.G_EXCEPTION_ERROR;
2180: End If;
2181:
2182: /*skuchima bugs 14380256 */
2183: IF (FND_API.G_TRUE = p_skip_minor_vers ) THEN
2197: okc_cvm_pvt.defer_minor_version_update('F');
2198: x_ctcv_rec:= l_ctcv_tbl_out(1);
2199:
2200: --- If any errors happen abort API
2201: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2202: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2203: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2204: RAISE OKE_API.G_EXCEPTION_ERROR;
2205: END IF;
2198: x_ctcv_rec:= l_ctcv_tbl_out(1);
2199:
2200: --- If any errors happen abort API
2201: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2202: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2203: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2204: RAISE OKE_API.G_EXCEPTION_ERROR;
2205: END IF;
2206:
2199:
2200: --- If any errors happen abort API
2201: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2202: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2203: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2204: RAISE OKE_API.G_EXCEPTION_ERROR;
2205: END IF;
2206:
2207:
2200: --- If any errors happen abort API
2201: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2202: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2203: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2204: RAISE OKE_API.G_EXCEPTION_ERROR;
2205: END IF;
2206:
2207:
2208: x_return_status:=l_return_status;
2205: END IF;
2206:
2207:
2208: x_return_status:=l_return_status;
2209: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2210: x_msg_data => x_msg_data);
2211: EXCEPTION
2212: when OKE_API.G_EXCEPTION_ERROR then
2213: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2208: x_return_status:=l_return_status;
2209: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2210: x_msg_data => x_msg_data);
2211: EXCEPTION
2212: when OKE_API.G_EXCEPTION_ERROR then
2213: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2214: p_api_name => l_api_name,
2215: p_pkg_name => g_pkg_name,
2216: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2209: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2210: x_msg_data => x_msg_data);
2211: EXCEPTION
2212: when OKE_API.G_EXCEPTION_ERROR then
2213: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2214: p_api_name => l_api_name,
2215: p_pkg_name => g_pkg_name,
2216: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2217: x_msg_count => x_msg_count,
2212: when OKE_API.G_EXCEPTION_ERROR then
2213: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2214: p_api_name => l_api_name,
2215: p_pkg_name => g_pkg_name,
2216: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2217: x_msg_count => x_msg_count,
2218: x_msg_data => x_msg_data,
2219: p_api_type => g_api_type);
2220:
2217: x_msg_count => x_msg_count,
2218: x_msg_data => x_msg_data,
2219: p_api_type => g_api_type);
2220:
2221: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2222: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2223: p_api_name => l_api_name,
2224: p_pkg_name => g_pkg_name,
2225: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2218: x_msg_data => x_msg_data,
2219: p_api_type => g_api_type);
2220:
2221: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2222: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2223: p_api_name => l_api_name,
2224: p_pkg_name => g_pkg_name,
2225: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2226: x_msg_count => x_msg_count,
2221: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2222: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2223: p_api_name => l_api_name,
2224: p_pkg_name => g_pkg_name,
2225: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2226: x_msg_count => x_msg_count,
2227: x_msg_data => x_msg_data,
2228: p_api_type => g_api_type);
2229:
2227: x_msg_data => x_msg_data,
2228: p_api_type => g_api_type);
2229:
2230: when OTHERS then
2231: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2232: p_api_name => l_api_name,
2233: p_pkg_name => g_pkg_name,
2234: p_exc_name => 'OTHERS',
2235: x_msg_count => x_msg_count,