[Home] [Help]
5:
6:
7: -- GLOBAL MESSAGE CONSTANTS
8:
9: G_FND_APP CONSTANT VARCHAR2(200) := OKE_API.G_FND_APP;
10:
11: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKE_API.G_FORM_UNABLE_TO_RESERVE_REC;
12: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKE_API.G_FORM_RECORD_DELETED;
13:
7: -- GLOBAL MESSAGE CONSTANTS
8:
9: G_FND_APP CONSTANT VARCHAR2(200) := OKE_API.G_FND_APP;
10:
11: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKE_API.G_FORM_UNABLE_TO_RESERVE_REC;
12: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKE_API.G_FORM_RECORD_DELETED;
13:
14: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKE_API.G_FORM_RECORD_CHANGED;
15:
8:
9: G_FND_APP CONSTANT VARCHAR2(200) := OKE_API.G_FND_APP;
10:
11: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKE_API.G_FORM_UNABLE_TO_RESERVE_REC;
12: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKE_API.G_FORM_RECORD_DELETED;
13:
14: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKE_API.G_FORM_RECORD_CHANGED;
15:
16: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKE_API.G_RECORD_LOGICALLY_DELETED;
10:
11: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKE_API.G_FORM_UNABLE_TO_RESERVE_REC;
12: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKE_API.G_FORM_RECORD_DELETED;
13:
14: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKE_API.G_FORM_RECORD_CHANGED;
15:
16: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKE_API.G_RECORD_LOGICALLY_DELETED;
17: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_REQUIRED_VALUE;
18: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_INVALID_VALUE;
12: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKE_API.G_FORM_RECORD_DELETED;
13:
14: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKE_API.G_FORM_RECORD_CHANGED;
15:
16: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKE_API.G_RECORD_LOGICALLY_DELETED;
17: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_REQUIRED_VALUE;
18: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_INVALID_VALUE;
19: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_COL_NAME_TOKEN;
20: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_PARENT_TABLE_TOKEN;
13:
14: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKE_API.G_FORM_RECORD_CHANGED;
15:
16: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKE_API.G_RECORD_LOGICALLY_DELETED;
17: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_REQUIRED_VALUE;
18: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_INVALID_VALUE;
19: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_COL_NAME_TOKEN;
20: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_PARENT_TABLE_TOKEN;
21: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_CHILD_TABLE_TOKEN;
14: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKE_API.G_FORM_RECORD_CHANGED;
15:
16: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKE_API.G_RECORD_LOGICALLY_DELETED;
17: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_REQUIRED_VALUE;
18: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_INVALID_VALUE;
19: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_COL_NAME_TOKEN;
20: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_PARENT_TABLE_TOKEN;
21: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_CHILD_TABLE_TOKEN;
22:
15:
16: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKE_API.G_RECORD_LOGICALLY_DELETED;
17: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_REQUIRED_VALUE;
18: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_INVALID_VALUE;
19: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_COL_NAME_TOKEN;
20: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_PARENT_TABLE_TOKEN;
21: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_CHILD_TABLE_TOKEN;
22:
23: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKE_NO_PARENT_RECORD';
16: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKE_API.G_RECORD_LOGICALLY_DELETED;
17: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_REQUIRED_VALUE;
18: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_INVALID_VALUE;
19: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_COL_NAME_TOKEN;
20: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_PARENT_TABLE_TOKEN;
21: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_CHILD_TABLE_TOKEN;
22:
23: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKE_NO_PARENT_RECORD';
24: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKE_CONTRACTS_UNEXPECTED_ERROR';
17: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_REQUIRED_VALUE;
18: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_INVALID_VALUE;
19: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_COL_NAME_TOKEN;
20: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_PARENT_TABLE_TOKEN;
21: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_CHILD_TABLE_TOKEN;
22:
23: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKE_NO_PARENT_RECORD';
24: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKE_CONTRACTS_UNEXPECTED_ERROR';
25:
52:
53:
54:
55: BEGIN
56: x_return_status := OKE_API.G_RET_STS_SUCCESS;
57:
58: IF ( p_chr_rec.start_date = OKE_API.G_MISS_DATE
59: OR p_chr_rec.start_date IS NULL) THEN
60: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
54:
55: BEGIN
56: x_return_status := OKE_API.G_RET_STS_SUCCESS;
57:
58: IF ( p_chr_rec.start_date = OKE_API.G_MISS_DATE
59: OR p_chr_rec.start_date IS NULL) THEN
60: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
61: p_msg_name =>G_REQUIRED_VALUE,
62: p_token1 =>G_COL_NAME_TOKEN,
56: x_return_status := OKE_API.G_RET_STS_SUCCESS;
57:
58: IF ( p_chr_rec.start_date = OKE_API.G_MISS_DATE
59: OR p_chr_rec.start_date IS NULL) THEN
60: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
61: p_msg_name =>G_REQUIRED_VALUE,
62: p_token1 =>G_COL_NAME_TOKEN,
63: p_token1_value =>'START_DATE');
64: x_return_status := OKE_API.G_RET_STS_ERROR;
60: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
61: p_msg_name =>G_REQUIRED_VALUE,
62: p_token1 =>G_COL_NAME_TOKEN,
63: p_token1_value =>'START_DATE');
64: x_return_status := OKE_API.G_RET_STS_ERROR;
65: END IF;
66:
67: IF ( p_chr_rec.inv_organization_id = OKE_API.G_MISS_NUM
68: OR p_chr_rec.inv_organization_id IS NULL) THEN
63: p_token1_value =>'START_DATE');
64: x_return_status := OKE_API.G_RET_STS_ERROR;
65: END IF;
66:
67: IF ( p_chr_rec.inv_organization_id = OKE_API.G_MISS_NUM
68: OR p_chr_rec.inv_organization_id IS NULL) THEN
69: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
70: p_msg_name =>G_REQUIRED_VALUE,
71: p_token1 =>G_COL_NAME_TOKEN,
65: END IF;
66:
67: IF ( p_chr_rec.inv_organization_id = OKE_API.G_MISS_NUM
68: OR p_chr_rec.inv_organization_id IS NULL) THEN
69: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
70: p_msg_name =>G_REQUIRED_VALUE,
71: p_token1 =>G_COL_NAME_TOKEN,
72: p_token1_value =>'INV_ORGANIZATION_ID');
73: x_return_status := OKE_API.G_RET_STS_ERROR;
69: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
70: p_msg_name =>G_REQUIRED_VALUE,
71: p_token1 =>G_COL_NAME_TOKEN,
72: p_token1_value =>'INV_ORGANIZATION_ID');
73: x_return_status := OKE_API.G_RET_STS_ERROR;
74: END IF;
75:
76:
77: IF ( p_chr_rec.authoring_org_id = OKE_API.G_MISS_NUM
73: x_return_status := OKE_API.G_RET_STS_ERROR;
74: END IF;
75:
76:
77: IF ( p_chr_rec.authoring_org_id = OKE_API.G_MISS_NUM
78: OR p_chr_rec.authoring_org_id IS NULL) THEN
79: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
80: p_msg_name =>G_REQUIRED_VALUE,
81: p_token1 =>G_COL_NAME_TOKEN,
75:
76:
77: IF ( p_chr_rec.authoring_org_id = OKE_API.G_MISS_NUM
78: OR p_chr_rec.authoring_org_id IS NULL) THEN
79: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
80: p_msg_name =>G_REQUIRED_VALUE,
81: p_token1 =>G_COL_NAME_TOKEN,
82: p_token1_value =>'AUTHORING_ORG_ID');
83: x_return_status := OKE_API.G_RET_STS_ERROR;
79: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
80: p_msg_name =>G_REQUIRED_VALUE,
81: p_token1 =>G_COL_NAME_TOKEN,
82: p_token1_value =>'AUTHORING_ORG_ID');
83: x_return_status := OKE_API.G_RET_STS_ERROR;
84: END IF;
85:
86:
87: IF ( p_chr_rec.inv_organization_id <> OKE_API.G_MISS_NUM
83: x_return_status := OKE_API.G_RET_STS_ERROR;
84: END IF;
85:
86:
87: IF ( p_chr_rec.inv_organization_id <> OKE_API.G_MISS_NUM
88: AND p_chr_rec.inv_organization_id IS NOT NULL) THEN
89:
90: Open l_csr1;
91: Fetch l_csr1 INTO l_dummy1;
91: Fetch l_csr1 INTO l_dummy1;
92: Close l_csr1;
93:
94: If l_dummy1 = '?' Then
95: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
96: p_msg_name => g_no_parent_record,
97: p_token1 => g_col_name_token,
98: p_token1_value => 'INV_ORGANIZATION_ID',
99: p_token2 => g_child_table_token,
99: p_token2 => g_child_table_token,
100: p_token2_value => G_VIEW,
101: p_token3 => g_parent_table_token,
102: p_token3_value => 'HR_ALL_ORGANIZATION_UNITS,MTL_PARAMETERS');
103: x_return_status := OKE_API.G_RET_STS_ERROR;
104: END IF;
105: END IF;
106:
107: IF ( p_chr_rec.authoring_org_id <> OKE_API.G_MISS_NUM
103: x_return_status := OKE_API.G_RET_STS_ERROR;
104: END IF;
105: END IF;
106:
107: IF ( p_chr_rec.authoring_org_id <> OKE_API.G_MISS_NUM
108: AND p_chr_rec.authoring_org_id <> -99
109: AND p_chr_rec.authoring_org_id IS NOT NULL) THEN
110:
111: Open l_csr2;
112: Fetch l_csr2 INTO l_dummy2;
113: Close l_csr2;
114:
115: If l_dummy2 = '?' Then
116: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
117: p_msg_name => g_no_parent_record,
118: p_token1 => g_col_name_token,
119: p_token1_value => 'AUTHORING_ORG_ID',
120: p_token2 => g_child_table_token,
120: p_token2 => g_child_table_token,
121: p_token2_value => G_VIEW,
122: p_token3 => g_parent_table_token,
123: p_token3_value => 'HR_OPERATING_UNITS');
124: x_return_status := OKE_API.G_RET_STS_ERROR;
125: END IF;
126: END IF;
127:
128:
130: EXCEPTION
131:
132: WHEN OTHERS THEN
133: -- store SQL error message on message stack
134: OKE_API.SET_MESSAGE(
135: p_app_name =>g_app_name,
136: p_msg_name =>G_UNEXPECTED_ERROR,
137: p_token1 =>G_SQLCODE_TOKEN,
138: p_token1_value =>SQLCODE,
137: p_token1 =>G_SQLCODE_TOKEN,
138: p_token1_value =>SQLCODE,
139: p_token2 =>G_SQLERRM_TOKEN,
140: p_token2_value =>SQLERRM);
141: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
142:
143: END validate_OKC_header_fields;
144:
145:
157: l_line_num VARCHAR2(400);
158:
159:
160: BEGIN
161: x_return_status := OKE_API.G_RET_STS_SUCCESS;
162:
163: IF ( p_cle_rec.sts_code <> OKE_API.G_MISS_CHAR
164: AND p_cle_rec.sts_code IS NOT NULL) THEN
165:
159:
160: BEGIN
161: x_return_status := OKE_API.G_RET_STS_SUCCESS;
162:
163: IF ( p_cle_rec.sts_code <> OKE_API.G_MISS_CHAR
164: AND p_cle_rec.sts_code IS NOT NULL) THEN
165:
166: Open l_csr1;
167: Fetch l_csr1 INTO l_dummy1;
167: Fetch l_csr1 INTO l_dummy1;
168: Close l_csr1;
169:
170: If l_dummy1 = '?' Then
171: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
172: p_msg_name => g_no_parent_record,
173: p_token1 => g_col_name_token,
174: p_token1_value => 'STS_CODE',
175: p_token2 => g_child_table_token,
175: p_token2 => g_child_table_token,
176: p_token2_value => G_VIEW,
177: p_token3 => g_parent_table_token,
178: p_token3_value => 'OKC_STATUSES_B');
179: x_return_status := OKE_API.G_RET_STS_ERROR;
180: END IF;
181: END IF;
182:
183: IF ( p_cle_rec.line_number <> OKE_API.G_MISS_CHAR
179: x_return_status := OKE_API.G_RET_STS_ERROR;
180: END IF;
181: END IF;
182:
183: IF ( p_cle_rec.line_number <> OKE_API.G_MISS_CHAR
184: AND p_cle_rec.line_number IS NOT NULL) THEN
185:
186: l_line_num := RTRIM(p_cle_rec.line_number)||' ';
187: IF length(l_line_num)=1 THEN
185:
186: l_line_num := RTRIM(p_cle_rec.line_number)||' ';
187: IF length(l_line_num)=1 THEN
188:
189: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
190: p_msg_name =>G_REQUIRED_VALUE,
191: p_token1 =>G_COL_NAME_TOKEN,
192: p_token1_value =>'LINE_NUMBER');
193: x_return_status := OKE_API.G_RET_STS_ERROR;
189: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
190: p_msg_name =>G_REQUIRED_VALUE,
191: p_token1 =>G_COL_NAME_TOKEN,
192: p_token1_value =>'LINE_NUMBER');
193: x_return_status := OKE_API.G_RET_STS_ERROR;
194: END IF;
195: END IF;
196:
197:
198: EXCEPTION
199:
200: WHEN OTHERS THEN
201: -- store SQL error message on message stack
202: OKE_API.SET_MESSAGE(
203: p_app_name =>g_app_name,
204: p_msg_name =>G_UNEXPECTED_ERROR,
205: p_token1 =>G_SQLCODE_TOKEN,
206: p_token1_value =>SQLCODE,
205: p_token1 =>G_SQLCODE_TOKEN,
206: p_token1_value =>SQLCODE,
207: p_token2 =>G_SQLERRM_TOKEN,
208: p_token2_value =>SQLERRM);
209: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
210:
211: END validate_OKC_line_fields;
212:
213:
218:
219: PROCEDURE create_contract_header(
220:
221: p_api_version IN NUMBER,
222: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
223: p_ignore_oke_validation IN VARCHAR2 DEFAULT 'N',
224: x_return_status OUT NOCOPY VARCHAR2,
225: x_msg_count OUT NOCOPY NUMBER,
226: x_msg_data OUT NOCOPY VARCHAR2,
229: x_chr_rec OUT NOCOPY chr_rec_type) IS
230:
231: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_HEADER';
232: l_api_version CONSTANT NUMBER := 1.0;
233: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
234:
235:
236: l_okc_chrv_rec OKC_CONTRACT_PUB.chrv_rec_type;
237: l_oke_chr_rec OKE_CONTRACT_PUB.chr_rec_type;
243:
244: BEGIN
245: -- call START_ACTIVITY to create savepoint, check compatibility
246: -- and initialize message list
247: l_return_status := OKE_API.START_ACTIVITY(
248: p_api_name => l_api_name,
249: p_pkg_name => g_pkg_name,
250: p_init_msg_list => p_init_msg_list,
251: l_api_version => l_api_version,
253: p_api_type => g_api_type,
254: x_return_status => x_return_status);
255:
256: -- check if activity started successfully
257: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
258: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
259: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
260: raise OKE_API.G_EXCEPTION_ERROR;
261: End If;
254: x_return_status => x_return_status);
255:
256: -- check if activity started successfully
257: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
258: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
259: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
260: raise OKE_API.G_EXCEPTION_ERROR;
261: End If;
262:
255:
256: -- check if activity started successfully
257: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
258: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
259: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
260: raise OKE_API.G_EXCEPTION_ERROR;
261: End If;
262:
263:
256: -- check if activity started successfully
257: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
258: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
259: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
260: raise OKE_API.G_EXCEPTION_ERROR;
261: End If;
262:
263:
264:
420: If nvl(p_ignore_oke_validation,'N') = 'N' then
421: Validate_OKC_header_fields ( l_return_status, p_chr_rec );
422:
423: --- If any errors happen abort API
424: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
425: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
426: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
427: RAISE OKE_API.G_EXCEPTION_ERROR;
428: END IF;
421: Validate_OKC_header_fields ( l_return_status, p_chr_rec );
422:
423: --- If any errors happen abort API
424: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
425: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
426: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
427: RAISE OKE_API.G_EXCEPTION_ERROR;
428: END IF;
429: end if;
422:
423: --- If any errors happen abort API
424: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
425: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
426: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
427: RAISE OKE_API.G_EXCEPTION_ERROR;
428: END IF;
429: end if;
430:
423: --- If any errors happen abort API
424: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
425: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
426: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
427: RAISE OKE_API.G_EXCEPTION_ERROR;
428: END IF;
429: end if;
430:
431: -- assign mandatory values
446: p_chrv_rec => l_okc_chrv_rec,
447: x_chr_rec => l_out_chr,
448: x_chrv_rec => l_out_chrv );
449:
450: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
451: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
452: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
453: raise OKE_API.G_EXCEPTION_ERROR;
454: End If;
447: x_chr_rec => l_out_chr,
448: x_chrv_rec => l_out_chrv );
449:
450: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
451: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
452: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
453: raise OKE_API.G_EXCEPTION_ERROR;
454: End If;
455:
448: x_chrv_rec => l_out_chrv );
449:
450: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
451: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
452: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
453: raise OKE_API.G_EXCEPTION_ERROR;
454: End If;
455:
456:
449:
450: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
451: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
452: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
453: raise OKE_API.G_EXCEPTION_ERROR;
454: End If;
455:
456:
457:
456:
457:
458: -- Added code to update who columns. neccessary for security to work after import process.
459:
460: IF p_chr_rec.created_by <> OKE_API.G_MISS_NUM AND p_chr_rec.created_by IS NOT NULL THEN
461: UPDATE OKE_K_HEADERS SET CREATED_BY = p_chr_rec.created_by
462: WHERE K_HEADER_ID = l_out_chr.k_header_id;
463: END IF;
464: IF p_chr_rec.creation_date <> OKE_API.G_MISS_DATE AND p_chr_rec.creation_date IS NOT NULL THEN
460: IF p_chr_rec.created_by <> OKE_API.G_MISS_NUM AND p_chr_rec.created_by IS NOT NULL THEN
461: UPDATE OKE_K_HEADERS SET CREATED_BY = p_chr_rec.created_by
462: WHERE K_HEADER_ID = l_out_chr.k_header_id;
463: END IF;
464: IF p_chr_rec.creation_date <> OKE_API.G_MISS_DATE AND p_chr_rec.creation_date IS NOT NULL THEN
465: UPDATE OKE_K_HEADERS SET CREATION_DATE = p_chr_rec.creation_date
466: WHERE K_HEADER_ID = l_out_chr.k_header_id;
467: END IF;
468: IF p_chr_rec.last_updated_by <> OKE_API.G_MISS_NUM AND p_chr_rec.last_updated_by IS NOT NULL THEN
464: IF p_chr_rec.creation_date <> OKE_API.G_MISS_DATE AND p_chr_rec.creation_date IS NOT NULL THEN
465: UPDATE OKE_K_HEADERS SET CREATION_DATE = p_chr_rec.creation_date
466: WHERE K_HEADER_ID = l_out_chr.k_header_id;
467: END IF;
468: IF p_chr_rec.last_updated_by <> OKE_API.G_MISS_NUM AND p_chr_rec.last_updated_by IS NOT NULL THEN
469: UPDATE OKE_K_HEADERS SET LAST_UPDATED_BY = p_chr_rec.last_updated_by
470: WHERE K_HEADER_ID = l_out_chr.k_header_id;
471: END IF;
472: IF p_chr_rec.last_update_login <> OKE_API.G_MISS_NUM AND p_chr_rec.last_update_login IS NOT NULL THEN
468: IF p_chr_rec.last_updated_by <> OKE_API.G_MISS_NUM AND p_chr_rec.last_updated_by IS NOT NULL THEN
469: UPDATE OKE_K_HEADERS SET LAST_UPDATED_BY = p_chr_rec.last_updated_by
470: WHERE K_HEADER_ID = l_out_chr.k_header_id;
471: END IF;
472: IF p_chr_rec.last_update_login <> OKE_API.G_MISS_NUM AND p_chr_rec.last_update_login IS NOT NULL THEN
473: UPDATE OKE_K_HEADERS SET LAST_UPDATE_LOGIN = p_chr_rec.last_update_login
474: WHERE K_HEADER_ID = l_out_chr.k_header_id;
475: END IF;
476: IF p_chr_rec.last_update_date <> OKE_API.G_MISS_DATE AND p_chr_rec.last_update_date IS NOT NULL THEN
472: IF p_chr_rec.last_update_login <> OKE_API.G_MISS_NUM AND p_chr_rec.last_update_login IS NOT NULL THEN
473: UPDATE OKE_K_HEADERS SET LAST_UPDATE_LOGIN = p_chr_rec.last_update_login
474: WHERE K_HEADER_ID = l_out_chr.k_header_id;
475: END IF;
476: IF p_chr_rec.last_update_date <> OKE_API.G_MISS_DATE AND p_chr_rec.last_update_date IS NOT NULL THEN
477: UPDATE OKE_K_HEADERS SET LAST_UPDATE_DATE = p_chr_rec.last_update_date
478: WHERE K_HEADER_ID = l_out_chr.k_header_id;
479: END IF;
480:
635: x_chr_rec.last_update_login := l_out_chrv.last_update_login;
636:
637:
638:
639: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
640: x_msg_data => x_msg_data);
641: EXCEPTION
642: when OKE_API.G_EXCEPTION_ERROR then
643: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
638:
639: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
640: x_msg_data => x_msg_data);
641: EXCEPTION
642: when OKE_API.G_EXCEPTION_ERROR then
643: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
644: p_api_name => l_api_name,
645: p_pkg_name => g_pkg_name,
646: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
639: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
640: x_msg_data => x_msg_data);
641: EXCEPTION
642: when OKE_API.G_EXCEPTION_ERROR then
643: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
644: p_api_name => l_api_name,
645: p_pkg_name => g_pkg_name,
646: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
647: x_msg_count => x_msg_count,
642: when OKE_API.G_EXCEPTION_ERROR then
643: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
644: p_api_name => l_api_name,
645: p_pkg_name => g_pkg_name,
646: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
647: x_msg_count => x_msg_count,
648: x_msg_data => x_msg_data,
649: p_api_type => g_api_type);
650:
647: x_msg_count => x_msg_count,
648: x_msg_data => x_msg_data,
649: p_api_type => g_api_type);
650:
651: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
652: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
653: p_api_name => l_api_name,
654: p_pkg_name => g_pkg_name,
655: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
648: x_msg_data => x_msg_data,
649: p_api_type => g_api_type);
650:
651: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
652: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
653: p_api_name => l_api_name,
654: p_pkg_name => g_pkg_name,
655: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
656: x_msg_count => x_msg_count,
651: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
652: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
653: p_api_name => l_api_name,
654: p_pkg_name => g_pkg_name,
655: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
656: x_msg_count => x_msg_count,
657: x_msg_data => x_msg_data,
658: p_api_type => g_api_type);
659:
657: x_msg_data => x_msg_data,
658: p_api_type => g_api_type);
659:
660: when OTHERS then
661: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
662: p_api_name => l_api_name,
663: p_pkg_name => g_pkg_name,
664: p_exc_name => 'OTHERS',
665: x_msg_count => x_msg_count,
673:
674: PROCEDURE create_contract_line(
675:
676: p_api_version IN NUMBER,
677: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
678: x_return_status OUT NOCOPY VARCHAR2,
679: x_msg_count OUT NOCOPY NUMBER,
680: x_msg_data OUT NOCOPY VARCHAR2,
681:
683: x_cle_rec OUT NOCOPY cle_rec_type) IS
684:
685: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
686: l_api_version CONSTANT NUMBER := 1.0;
687: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
688:
689: l_okc_clev_rec OKC_CONTRACT_PUB.clev_rec_type;
690: l_oke_cle_rec OKE_CONTRACT_PUB.cle_rec_type;
691: l_out_clev OKC_CONTRACT_PUB.clev_rec_type;
703:
704: BEGIN
705: -- call START_ACTIVITY to create savepoint, check compatibility
706: -- and initialize message list
707: l_return_status := OKE_API.START_ACTIVITY(
708: p_api_name => l_api_name,
709: p_pkg_name => g_pkg_name,
710: p_init_msg_list => p_init_msg_list,
711: l_api_version => l_api_version,
713: p_api_type => g_api_type,
714: x_return_status => x_return_status);
715:
716: -- check if activity started successfully
717: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
718: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
720: raise OKE_API.G_EXCEPTION_ERROR;
721: End If;
714: x_return_status => x_return_status);
715:
716: -- check if activity started successfully
717: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
718: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
720: raise OKE_API.G_EXCEPTION_ERROR;
721: End If;
722:
715:
716: -- check if activity started successfully
717: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
718: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
720: raise OKE_API.G_EXCEPTION_ERROR;
721: End If;
722:
723:
716: -- check if activity started successfully
717: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
718: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
720: raise OKE_API.G_EXCEPTION_ERROR;
721: End If;
722:
723:
724:
887:
888: Validate_OKC_line_fields ( l_return_status, p_cle_rec );
889:
890: --- If any errors happen abort API
891: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
892: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
893: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
894: RAISE OKE_API.G_EXCEPTION_ERROR;
895: END IF;
888: Validate_OKC_line_fields ( l_return_status, p_cle_rec );
889:
890: --- If any errors happen abort API
891: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
892: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
893: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
894: RAISE OKE_API.G_EXCEPTION_ERROR;
895: END IF;
896:
889:
890: --- If any errors happen abort API
891: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
892: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
893: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
894: RAISE OKE_API.G_EXCEPTION_ERROR;
895: END IF;
896:
897:
890: --- If any errors happen abort API
891: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
892: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
893: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
894: RAISE OKE_API.G_EXCEPTION_ERROR;
895: END IF;
896:
897:
898: OKE_CONTRACT_PUB.create_contract_line(
905: p_clev_rec => l_okc_clev_rec,
906: x_cle_rec => l_out_cle,
907: x_clev_rec => l_out_clev );
908:
909: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
910: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
911: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
912: raise OKE_API.G_EXCEPTION_ERROR;
913: End If;
906: x_cle_rec => l_out_cle,
907: x_clev_rec => l_out_clev );
908:
909: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
910: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
911: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
912: raise OKE_API.G_EXCEPTION_ERROR;
913: End If;
914:
907: x_clev_rec => l_out_clev );
908:
909: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
910: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
911: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
912: raise OKE_API.G_EXCEPTION_ERROR;
913: End If;
914:
915:
908:
909: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
910: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
911: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
912: raise OKE_API.G_EXCEPTION_ERROR;
913: End If;
914:
915:
916: x_cle_rec.k_line_id := l_out_cle.k_line_id;
1076: x_cle_rec.last_update_login := l_out_clev.last_update_login;
1077:
1078:
1079: -- IF successful: create line item if necessary
1080: IF x_return_status = OKE_API.G_RET_STS_SUCCESS
1081: AND x_cle_rec.inventory_item_id IS NOT NULL THEN
1082:
1083: OPEN get_inventory_org (x_cle_rec.DNZ_CHR_ID);
1084: FETCH get_inventory_org INTO l_inv_org;
1111: x_msg_data => x_msg_data,
1112: p_cimv_rec => l_cimv_rec,
1113: x_cimv_rec => l_cimv_out );
1114:
1115: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1116: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1117: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1118: raise OKE_API.G_EXCEPTION_ERROR;
1119: End If;
1112: p_cimv_rec => l_cimv_rec,
1113: x_cimv_rec => l_cimv_out );
1114:
1115: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1116: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1117: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1118: raise OKE_API.G_EXCEPTION_ERROR;
1119: End If;
1120:
1113: x_cimv_rec => l_cimv_out );
1114:
1115: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1116: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1117: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1118: raise OKE_API.G_EXCEPTION_ERROR;
1119: End If;
1120:
1121: END IF;
1114:
1115: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1116: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1117: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1118: raise OKE_API.G_EXCEPTION_ERROR;
1119: End If;
1120:
1121: END IF;
1122:
1120:
1121: END IF;
1122:
1123:
1124: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1125: x_msg_data => x_msg_data);
1126: EXCEPTION
1127: when OKE_API.G_EXCEPTION_ERROR then
1128: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1123:
1124: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1125: x_msg_data => x_msg_data);
1126: EXCEPTION
1127: when OKE_API.G_EXCEPTION_ERROR then
1128: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1129: p_api_name => l_api_name,
1130: p_pkg_name => g_pkg_name,
1131: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1124: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1125: x_msg_data => x_msg_data);
1126: EXCEPTION
1127: when OKE_API.G_EXCEPTION_ERROR then
1128: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1129: p_api_name => l_api_name,
1130: p_pkg_name => g_pkg_name,
1131: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1132: x_msg_count => x_msg_count,
1127: when OKE_API.G_EXCEPTION_ERROR then
1128: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1129: p_api_name => l_api_name,
1130: p_pkg_name => g_pkg_name,
1131: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1132: x_msg_count => x_msg_count,
1133: x_msg_data => x_msg_data,
1134: p_api_type => g_api_type);
1135:
1132: x_msg_count => x_msg_count,
1133: x_msg_data => x_msg_data,
1134: p_api_type => g_api_type);
1135:
1136: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1137: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1138: p_api_name => l_api_name,
1139: p_pkg_name => g_pkg_name,
1140: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1133: x_msg_data => x_msg_data,
1134: p_api_type => g_api_type);
1135:
1136: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1137: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1138: p_api_name => l_api_name,
1139: p_pkg_name => g_pkg_name,
1140: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1141: x_msg_count => x_msg_count,
1136: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1137: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1138: p_api_name => l_api_name,
1139: p_pkg_name => g_pkg_name,
1140: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1141: x_msg_count => x_msg_count,
1142: x_msg_data => x_msg_data,
1143: p_api_type => g_api_type);
1144:
1142: x_msg_data => x_msg_data,
1143: p_api_type => g_api_type);
1144:
1145: when OTHERS then
1146: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1147: p_api_name => l_api_name,
1148: p_pkg_name => g_pkg_name,
1149: p_exc_name => 'OTHERS',
1150: x_msg_count => x_msg_count,
1155:
1156: PROCEDURE create_deliverable(
1157:
1158: p_api_version IN NUMBER,
1159: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1160: x_return_status OUT NOCOPY VARCHAR2,
1161: x_msg_count OUT NOCOPY NUMBER,
1162: x_msg_data OUT NOCOPY VARCHAR2,
1163:
1165: x_del_rec OUT NOCOPY del_rec_type) IS
1166:
1167: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_DELIVERABLE';
1168: l_api_version CONSTANT NUMBER := 1.0;
1169: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1170:
1171: l_del_rec OKE_CONTRACT_PUB.del_rec_type;
1172:
1173: CURSOR get_inv_org IS
1189:
1190: BEGIN
1191:
1192:
1193: IF l_del_rec.DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
1194: l_del_rec.DELIVERABLE_ID := NULL;
1195: END IF;
1196:
1197: IF l_del_rec.DELIVERABLE_NUM = OKE_API.G_MISS_CHAR THEN
1193: IF l_del_rec.DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
1194: l_del_rec.DELIVERABLE_ID := NULL;
1195: END IF;
1196:
1197: IF l_del_rec.DELIVERABLE_NUM = OKE_API.G_MISS_CHAR THEN
1198: l_del_rec.DELIVERABLE_NUM := NULL;
1199: END IF;
1200:
1201: IF l_del_rec.PROJECT_ID = OKE_API.G_MISS_NUM THEN
1197: IF l_del_rec.DELIVERABLE_NUM = OKE_API.G_MISS_CHAR THEN
1198: l_del_rec.DELIVERABLE_NUM := NULL;
1199: END IF;
1200:
1201: IF l_del_rec.PROJECT_ID = OKE_API.G_MISS_NUM THEN
1202: l_del_rec.PROJECT_ID := NULL;
1203: END IF;
1204:
1205: IF l_del_rec.TASK_ID = OKE_API.G_MISS_NUM THEN
1201: IF l_del_rec.PROJECT_ID = OKE_API.G_MISS_NUM THEN
1202: l_del_rec.PROJECT_ID := NULL;
1203: END IF;
1204:
1205: IF l_del_rec.TASK_ID = OKE_API.G_MISS_NUM THEN
1206: l_del_rec.TASK_ID := NULL;
1207: END IF;
1208:
1209: IF l_del_rec.ITEM_ID = OKE_API.G_MISS_NUM THEN
1205: IF l_del_rec.TASK_ID = OKE_API.G_MISS_NUM THEN
1206: l_del_rec.TASK_ID := NULL;
1207: END IF;
1208:
1209: IF l_del_rec.ITEM_ID = OKE_API.G_MISS_NUM THEN
1210: l_del_rec.ITEM_ID := NULL;
1211: END IF;
1212:
1213: IF l_del_rec.K_HEADER_ID = OKE_API.G_MISS_NUM THEN
1209: IF l_del_rec.ITEM_ID = OKE_API.G_MISS_NUM THEN
1210: l_del_rec.ITEM_ID := NULL;
1211: END IF;
1212:
1213: IF l_del_rec.K_HEADER_ID = OKE_API.G_MISS_NUM THEN
1214: l_del_rec.K_HEADER_ID := NULL;
1215: END IF;
1216:
1217: IF l_del_rec.K_LINE_ID = OKE_API.G_MISS_NUM THEN
1213: IF l_del_rec.K_HEADER_ID = OKE_API.G_MISS_NUM THEN
1214: l_del_rec.K_HEADER_ID := NULL;
1215: END IF;
1216:
1217: IF l_del_rec.K_LINE_ID = OKE_API.G_MISS_NUM THEN
1218: l_del_rec.K_LINE_ID := NULL;
1219: END IF;
1220:
1221: IF l_del_rec.DELIVERY_DATE = OKE_API.G_MISS_DATE THEN
1217: IF l_del_rec.K_LINE_ID = OKE_API.G_MISS_NUM THEN
1218: l_del_rec.K_LINE_ID := NULL;
1219: END IF;
1220:
1221: IF l_del_rec.DELIVERY_DATE = OKE_API.G_MISS_DATE THEN
1222: l_del_rec.DELIVERY_DATE := NULL;
1223: END IF;
1224:
1225: IF l_del_rec.STATUS_CODE = OKE_API.G_MISS_CHAR THEN
1221: IF l_del_rec.DELIVERY_DATE = OKE_API.G_MISS_DATE THEN
1222: l_del_rec.DELIVERY_DATE := NULL;
1223: END IF;
1224:
1225: IF l_del_rec.STATUS_CODE = OKE_API.G_MISS_CHAR THEN
1226: l_del_rec.STATUS_CODE := NULL;
1227: END IF;
1228:
1229: IF l_del_rec.PARENT_DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
1225: IF l_del_rec.STATUS_CODE = OKE_API.G_MISS_CHAR THEN
1226: l_del_rec.STATUS_CODE := NULL;
1227: END IF;
1228:
1229: IF l_del_rec.PARENT_DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
1230: l_del_rec.PARENT_DELIVERABLE_ID := NULL;
1231: END IF;
1232:
1233: IF l_del_rec.SHIP_TO_ORG_ID = OKE_API.G_MISS_NUM THEN
1229: IF l_del_rec.PARENT_DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
1230: l_del_rec.PARENT_DELIVERABLE_ID := NULL;
1231: END IF;
1232:
1233: IF l_del_rec.SHIP_TO_ORG_ID = OKE_API.G_MISS_NUM THEN
1234: l_del_rec.SHIP_TO_ORG_ID := NULL;
1235: END IF;
1236:
1237: IF l_del_rec.SHIP_TO_LOCATION_ID = OKE_API.G_MISS_NUM THEN
1233: IF l_del_rec.SHIP_TO_ORG_ID = OKE_API.G_MISS_NUM THEN
1234: l_del_rec.SHIP_TO_ORG_ID := NULL;
1235: END IF;
1236:
1237: IF l_del_rec.SHIP_TO_LOCATION_ID = OKE_API.G_MISS_NUM THEN
1238: l_del_rec.SHIP_TO_LOCATION_ID := NULL;
1239: END IF;
1240:
1241: IF l_del_rec.SHIP_FROM_ORG_ID = OKE_API.G_MISS_NUM THEN
1237: IF l_del_rec.SHIP_TO_LOCATION_ID = OKE_API.G_MISS_NUM THEN
1238: l_del_rec.SHIP_TO_LOCATION_ID := NULL;
1239: END IF;
1240:
1241: IF l_del_rec.SHIP_FROM_ORG_ID = OKE_API.G_MISS_NUM THEN
1242: l_del_rec.SHIP_FROM_ORG_ID := NULL;
1243: END IF;
1244:
1245: IF l_del_rec.SHIP_FROM_LOCATION_ID = OKE_API.G_MISS_NUM THEN
1241: IF l_del_rec.SHIP_FROM_ORG_ID = OKE_API.G_MISS_NUM THEN
1242: l_del_rec.SHIP_FROM_ORG_ID := NULL;
1243: END IF;
1244:
1245: IF l_del_rec.SHIP_FROM_LOCATION_ID = OKE_API.G_MISS_NUM THEN
1246: l_del_rec.SHIP_FROM_LOCATION_ID := NULL;
1247: END IF;
1248:
1249: IF l_del_rec.INVENTORY_ORG_ID = OKE_API.G_MISS_NUM THEN
1245: IF l_del_rec.SHIP_FROM_LOCATION_ID = OKE_API.G_MISS_NUM THEN
1246: l_del_rec.SHIP_FROM_LOCATION_ID := NULL;
1247: END IF;
1248:
1249: IF l_del_rec.INVENTORY_ORG_ID = OKE_API.G_MISS_NUM THEN
1250: l_del_rec.INVENTORY_ORG_ID := NULL;
1251: END IF;
1252:
1253: IF l_del_rec.DIRECTION = OKE_API.G_MISS_CHAR THEN
1249: IF l_del_rec.INVENTORY_ORG_ID = OKE_API.G_MISS_NUM THEN
1250: l_del_rec.INVENTORY_ORG_ID := NULL;
1251: END IF;
1252:
1253: IF l_del_rec.DIRECTION = OKE_API.G_MISS_CHAR THEN
1254: l_del_rec.DIRECTION := NULL;
1255: END IF;
1256:
1257: IF l_del_rec.DEFAULTED_FLAG = OKE_API.G_MISS_CHAR THEN
1253: IF l_del_rec.DIRECTION = OKE_API.G_MISS_CHAR THEN
1254: l_del_rec.DIRECTION := NULL;
1255: END IF;
1256:
1257: IF l_del_rec.DEFAULTED_FLAG = OKE_API.G_MISS_CHAR THEN
1258: l_del_rec.DEFAULTED_FLAG := NULL;
1259: END IF;
1260:
1261: IF l_del_rec.IN_PROCESS_FLAG = OKE_API.G_MISS_CHAR THEN
1257: IF l_del_rec.DEFAULTED_FLAG = OKE_API.G_MISS_CHAR THEN
1258: l_del_rec.DEFAULTED_FLAG := NULL;
1259: END IF;
1260:
1261: IF l_del_rec.IN_PROCESS_FLAG = OKE_API.G_MISS_CHAR THEN
1262: l_del_rec.IN_PROCESS_FLAG := NULL;
1263: END IF;
1264:
1265: IF l_del_rec.WF_ITEM_KEY = OKE_API.G_MISS_CHAR THEN
1261: IF l_del_rec.IN_PROCESS_FLAG = OKE_API.G_MISS_CHAR THEN
1262: l_del_rec.IN_PROCESS_FLAG := NULL;
1263: END IF;
1264:
1265: IF l_del_rec.WF_ITEM_KEY = OKE_API.G_MISS_CHAR THEN
1266: l_del_rec.WF_ITEM_KEY := NULL;
1267: END IF;
1268:
1269: IF l_del_rec.SUB_REF_ID = OKE_API.G_MISS_NUM THEN
1265: IF l_del_rec.WF_ITEM_KEY = OKE_API.G_MISS_CHAR THEN
1266: l_del_rec.WF_ITEM_KEY := NULL;
1267: END IF;
1268:
1269: IF l_del_rec.SUB_REF_ID = OKE_API.G_MISS_NUM THEN
1270: l_del_rec.SUB_REF_ID := NULL;
1271: END IF;
1272:
1273: IF l_del_rec.START_DATE = OKE_API.G_MISS_DATE THEN
1269: IF l_del_rec.SUB_REF_ID = OKE_API.G_MISS_NUM THEN
1270: l_del_rec.SUB_REF_ID := NULL;
1271: END IF;
1272:
1273: IF l_del_rec.START_DATE = OKE_API.G_MISS_DATE THEN
1274: l_del_rec.START_DATE := NULL;
1275: END IF;
1276:
1277: IF l_del_rec.END_DATE = OKE_API.G_MISS_DATE THEN
1273: IF l_del_rec.START_DATE = OKE_API.G_MISS_DATE THEN
1274: l_del_rec.START_DATE := NULL;
1275: END IF;
1276:
1277: IF l_del_rec.END_DATE = OKE_API.G_MISS_DATE THEN
1278: l_del_rec.END_DATE := NULL;
1279: END IF;
1280:
1281: IF l_del_rec.PRIORITY_CODE = OKE_API.G_MISS_CHAR THEN
1277: IF l_del_rec.END_DATE = OKE_API.G_MISS_DATE THEN
1278: l_del_rec.END_DATE := NULL;
1279: END IF;
1280:
1281: IF l_del_rec.PRIORITY_CODE = OKE_API.G_MISS_CHAR THEN
1282: l_del_rec.PRIORITY_CODE := NULL;
1283: END IF;
1284:
1285: IF l_del_rec.CURRENCY_CODE = OKE_API.G_MISS_CHAR THEN
1281: IF l_del_rec.PRIORITY_CODE = OKE_API.G_MISS_CHAR THEN
1282: l_del_rec.PRIORITY_CODE := NULL;
1283: END IF;
1284:
1285: IF l_del_rec.CURRENCY_CODE = OKE_API.G_MISS_CHAR THEN
1286: l_del_rec.CURRENCY_CODE := NULL;
1287: END IF;
1288:
1289: IF l_del_rec.UNIT_PRICE = OKE_API.G_MISS_NUM THEN
1285: IF l_del_rec.CURRENCY_CODE = OKE_API.G_MISS_CHAR THEN
1286: l_del_rec.CURRENCY_CODE := NULL;
1287: END IF;
1288:
1289: IF l_del_rec.UNIT_PRICE = OKE_API.G_MISS_NUM THEN
1290: l_del_rec.UNIT_PRICE := NULL;
1291: END IF;
1292:
1293: IF l_del_rec.UOM_CODE = OKE_API.G_MISS_CHAR THEN
1289: IF l_del_rec.UNIT_PRICE = OKE_API.G_MISS_NUM THEN
1290: l_del_rec.UNIT_PRICE := NULL;
1291: END IF;
1292:
1293: IF l_del_rec.UOM_CODE = OKE_API.G_MISS_CHAR THEN
1294: l_del_rec.UOM_CODE := NULL;
1295: END IF;
1296:
1297: IF l_del_rec.QUANTITY = OKE_API.G_MISS_NUM THEN
1293: IF l_del_rec.UOM_CODE = OKE_API.G_MISS_CHAR THEN
1294: l_del_rec.UOM_CODE := NULL;
1295: END IF;
1296:
1297: IF l_del_rec.QUANTITY = OKE_API.G_MISS_NUM THEN
1298: l_del_rec.QUANTITY := NULL;
1299: END IF;
1300:
1301: IF l_del_rec.COUNTRY_OF_ORIGIN_CODE = OKE_API.G_MISS_CHAR THEN
1297: IF l_del_rec.QUANTITY = OKE_API.G_MISS_NUM THEN
1298: l_del_rec.QUANTITY := NULL;
1299: END IF;
1300:
1301: IF l_del_rec.COUNTRY_OF_ORIGIN_CODE = OKE_API.G_MISS_CHAR THEN
1302: l_del_rec.COUNTRY_OF_ORIGIN_CODE := NULL;
1303: END IF;
1304:
1305: IF l_del_rec.SUBCONTRACTED_FLAG = OKE_API.G_MISS_CHAR THEN
1301: IF l_del_rec.COUNTRY_OF_ORIGIN_CODE = OKE_API.G_MISS_CHAR THEN
1302: l_del_rec.COUNTRY_OF_ORIGIN_CODE := NULL;
1303: END IF;
1304:
1305: IF l_del_rec.SUBCONTRACTED_FLAG = OKE_API.G_MISS_CHAR THEN
1306: l_del_rec.SUBCONTRACTED_FLAG := NULL;
1307: END IF;
1308:
1309: IF l_del_rec.DEPENDENCY_FLAG = OKE_API.G_MISS_CHAR THEN
1305: IF l_del_rec.SUBCONTRACTED_FLAG = OKE_API.G_MISS_CHAR THEN
1306: l_del_rec.SUBCONTRACTED_FLAG := NULL;
1307: END IF;
1308:
1309: IF l_del_rec.DEPENDENCY_FLAG = OKE_API.G_MISS_CHAR THEN
1310: l_del_rec.DEPENDENCY_FLAG := NULL;
1311: END IF;
1312:
1313:
1311: END IF;
1312:
1313:
1314:
1315: IF l_del_rec.BILLABLE_FLAG = OKE_API.G_MISS_CHAR THEN
1316: l_del_rec.BILLABLE_FLAG := NULL;
1317: END IF;
1318:
1319: IF l_del_rec.BILLING_EVENT_ID = OKE_API.G_MISS_NUM THEN
1315: IF l_del_rec.BILLABLE_FLAG = OKE_API.G_MISS_CHAR THEN
1316: l_del_rec.BILLABLE_FLAG := NULL;
1317: END IF;
1318:
1319: IF l_del_rec.BILLING_EVENT_ID = OKE_API.G_MISS_NUM THEN
1320: l_del_rec.BILLING_EVENT_ID := NULL;
1321: END IF;
1322:
1323: IF l_del_rec.DROP_SHIPPED_FLAG = OKE_API.G_MISS_CHAR THEN
1319: IF l_del_rec.BILLING_EVENT_ID = OKE_API.G_MISS_NUM THEN
1320: l_del_rec.BILLING_EVENT_ID := NULL;
1321: END IF;
1322:
1323: IF l_del_rec.DROP_SHIPPED_FLAG = OKE_API.G_MISS_CHAR THEN
1324: l_del_rec.DROP_SHIPPED_FLAG := NULL;
1325: END IF;
1326:
1327: IF l_del_rec.COMPLETED_FLAG = OKE_API.G_MISS_CHAR THEN
1323: IF l_del_rec.DROP_SHIPPED_FLAG = OKE_API.G_MISS_CHAR THEN
1324: l_del_rec.DROP_SHIPPED_FLAG := NULL;
1325: END IF;
1326:
1327: IF l_del_rec.COMPLETED_FLAG = OKE_API.G_MISS_CHAR THEN
1328: l_del_rec.COMPLETED_FLAG := NULL;
1329: END IF;
1330:
1331: IF l_del_rec.AVAILABLE_FOR_SHIP_FLAG = OKE_API.G_MISS_CHAR THEN
1327: IF l_del_rec.COMPLETED_FLAG = OKE_API.G_MISS_CHAR THEN
1328: l_del_rec.COMPLETED_FLAG := NULL;
1329: END IF;
1330:
1331: IF l_del_rec.AVAILABLE_FOR_SHIP_FLAG = OKE_API.G_MISS_CHAR THEN
1332: l_del_rec.AVAILABLE_FOR_SHIP_FLAG := NULL;
1333: END IF;
1334:
1335: IF l_del_rec.CREATE_DEMAND = OKE_API.G_MISS_CHAR THEN
1331: IF l_del_rec.AVAILABLE_FOR_SHIP_FLAG = OKE_API.G_MISS_CHAR THEN
1332: l_del_rec.AVAILABLE_FOR_SHIP_FLAG := NULL;
1333: END IF;
1334:
1335: IF l_del_rec.CREATE_DEMAND = OKE_API.G_MISS_CHAR THEN
1336: l_del_rec.CREATE_DEMAND := NULL;
1337: END IF;
1338:
1339: IF l_del_rec.READY_TO_BILL = OKE_API.G_MISS_CHAR THEN
1335: IF l_del_rec.CREATE_DEMAND = OKE_API.G_MISS_CHAR THEN
1336: l_del_rec.CREATE_DEMAND := NULL;
1337: END IF;
1338:
1339: IF l_del_rec.READY_TO_BILL = OKE_API.G_MISS_CHAR THEN
1340: l_del_rec.READY_TO_BILL := NULL;
1341: END IF;
1342:
1343: IF l_del_rec.NEED_BY_DATE = OKE_API.G_MISS_DATE THEN
1339: IF l_del_rec.READY_TO_BILL = OKE_API.G_MISS_CHAR THEN
1340: l_del_rec.READY_TO_BILL := NULL;
1341: END IF;
1342:
1343: IF l_del_rec.NEED_BY_DATE = OKE_API.G_MISS_DATE THEN
1344: l_del_rec.NEED_BY_DATE := NULL;
1345: END IF;
1346:
1347: IF l_del_rec.READY_TO_PROCURE = OKE_API.G_MISS_CHAR THEN
1343: IF l_del_rec.NEED_BY_DATE = OKE_API.G_MISS_DATE THEN
1344: l_del_rec.NEED_BY_DATE := NULL;
1345: END IF;
1346:
1347: IF l_del_rec.READY_TO_PROCURE = OKE_API.G_MISS_CHAR THEN
1348: l_del_rec.READY_TO_PROCURE := NULL;
1349: END IF;
1350:
1351: IF l_del_rec.MPS_TRANSACTION_ID = OKE_API.G_MISS_NUM THEN
1347: IF l_del_rec.READY_TO_PROCURE = OKE_API.G_MISS_CHAR THEN
1348: l_del_rec.READY_TO_PROCURE := NULL;
1349: END IF;
1350:
1351: IF l_del_rec.MPS_TRANSACTION_ID = OKE_API.G_MISS_NUM THEN
1352: l_del_rec.MPS_TRANSACTION_ID := NULL;
1353: END IF;
1354:
1355: IF l_del_rec.PO_REF_1 = OKE_API.G_MISS_NUM THEN
1351: IF l_del_rec.MPS_TRANSACTION_ID = OKE_API.G_MISS_NUM THEN
1352: l_del_rec.MPS_TRANSACTION_ID := NULL;
1353: END IF;
1354:
1355: IF l_del_rec.PO_REF_1 = OKE_API.G_MISS_NUM THEN
1356: l_del_rec.PO_REF_1 := NULL;
1357: END IF;
1358:
1359: IF l_del_rec.PO_REF_2 = OKE_API.G_MISS_NUM THEN
1355: IF l_del_rec.PO_REF_1 = OKE_API.G_MISS_NUM THEN
1356: l_del_rec.PO_REF_1 := NULL;
1357: END IF;
1358:
1359: IF l_del_rec.PO_REF_2 = OKE_API.G_MISS_NUM THEN
1360: l_del_rec.PO_REF_2 := NULL;
1361: END IF;
1362:
1363: IF l_del_rec.PO_REF_3 = OKE_API.G_MISS_NUM THEN
1359: IF l_del_rec.PO_REF_2 = OKE_API.G_MISS_NUM THEN
1360: l_del_rec.PO_REF_2 := NULL;
1361: END IF;
1362:
1363: IF l_del_rec.PO_REF_3 = OKE_API.G_MISS_NUM THEN
1364: l_del_rec.PO_REF_3 := NULL;
1365: END IF;
1366:
1367: IF l_del_rec.SHIPPING_REQUEST_ID = OKE_API.G_MISS_NUM THEN
1363: IF l_del_rec.PO_REF_3 = OKE_API.G_MISS_NUM THEN
1364: l_del_rec.PO_REF_3 := NULL;
1365: END IF;
1366:
1367: IF l_del_rec.SHIPPING_REQUEST_ID = OKE_API.G_MISS_NUM THEN
1368: l_del_rec.SHIPPING_REQUEST_ID := NULL;
1369: END IF;
1370:
1371: IF l_del_rec.UNIT_NUMBER = OKE_API.G_MISS_CHAR THEN
1367: IF l_del_rec.SHIPPING_REQUEST_ID = OKE_API.G_MISS_NUM THEN
1368: l_del_rec.SHIPPING_REQUEST_ID := NULL;
1369: END IF;
1370:
1371: IF l_del_rec.UNIT_NUMBER = OKE_API.G_MISS_CHAR THEN
1372: l_del_rec.UNIT_NUMBER := NULL;
1373: END IF;
1374:
1375: IF l_del_rec.NDB_SCHEDULE_DESIGNATOR = OKE_API.G_MISS_CHAR THEN
1371: IF l_del_rec.UNIT_NUMBER = OKE_API.G_MISS_CHAR THEN
1372: l_del_rec.UNIT_NUMBER := NULL;
1373: END IF;
1374:
1375: IF l_del_rec.NDB_SCHEDULE_DESIGNATOR = OKE_API.G_MISS_CHAR THEN
1376: l_del_rec.NDB_SCHEDULE_DESIGNATOR := NULL;
1377: END IF;
1378:
1379: IF l_del_rec.SHIPPABLE_FLAG = OKE_API.G_MISS_CHAR THEN
1375: IF l_del_rec.NDB_SCHEDULE_DESIGNATOR = OKE_API.G_MISS_CHAR THEN
1376: l_del_rec.NDB_SCHEDULE_DESIGNATOR := NULL;
1377: END IF;
1378:
1379: IF l_del_rec.SHIPPABLE_FLAG = OKE_API.G_MISS_CHAR THEN
1380: l_del_rec.SHIPPABLE_FLAG := NULL;
1381: END IF;
1382:
1383: IF l_del_rec.CFE_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
1379: IF l_del_rec.SHIPPABLE_FLAG = OKE_API.G_MISS_CHAR THEN
1380: l_del_rec.SHIPPABLE_FLAG := NULL;
1381: END IF;
1382:
1383: IF l_del_rec.CFE_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
1384: l_del_rec.CFE_REQ_FLAG := NULL;
1385: END IF;
1386:
1387: IF l_del_rec.INSPECTION_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
1383: IF l_del_rec.CFE_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
1384: l_del_rec.CFE_REQ_FLAG := NULL;
1385: END IF;
1386:
1387: IF l_del_rec.INSPECTION_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
1388: l_del_rec.INSPECTION_REQ_FLAG := NULL;
1389: END IF;
1390:
1391: IF l_del_rec.INTERIM_RPT_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
1387: IF l_del_rec.INSPECTION_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
1388: l_del_rec.INSPECTION_REQ_FLAG := NULL;
1389: END IF;
1390:
1391: IF l_del_rec.INTERIM_RPT_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
1392: l_del_rec.INTERIM_RPT_REQ_FLAG := NULL;
1393: END IF;
1394:
1395: IF l_del_rec.LOT_APPLIES_FLAG = OKE_API.G_MISS_CHAR THEN
1391: IF l_del_rec.INTERIM_RPT_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
1392: l_del_rec.INTERIM_RPT_REQ_FLAG := NULL;
1393: END IF;
1394:
1395: IF l_del_rec.LOT_APPLIES_FLAG = OKE_API.G_MISS_CHAR THEN
1396: l_del_rec.LOT_APPLIES_FLAG := NULL;
1397: END IF;
1398:
1399: IF l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
1395: IF l_del_rec.LOT_APPLIES_FLAG = OKE_API.G_MISS_CHAR THEN
1396: l_del_rec.LOT_APPLIES_FLAG := NULL;
1397: END IF;
1398:
1399: IF l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
1400: l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG := NULL;
1401: END IF;
1402:
1403: IF l_del_rec.EXPECTED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
1399: IF l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
1400: l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG := NULL;
1401: END IF;
1402:
1403: IF l_del_rec.EXPECTED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
1404: l_del_rec.EXPECTED_SHIPMENT_DATE := NULL;
1405: END IF;
1406:
1407: IF l_del_rec.INITIATE_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
1403: IF l_del_rec.EXPECTED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
1404: l_del_rec.EXPECTED_SHIPMENT_DATE := NULL;
1405: END IF;
1406:
1407: IF l_del_rec.INITIATE_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
1408: l_del_rec.INITIATE_SHIPMENT_DATE := NULL;
1409: END IF;
1410:
1411: IF l_del_rec.PROMISED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
1407: IF l_del_rec.INITIATE_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
1408: l_del_rec.INITIATE_SHIPMENT_DATE := NULL;
1409: END IF;
1410:
1411: IF l_del_rec.PROMISED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
1412: l_del_rec.PROMISED_SHIPMENT_DATE := NULL;
1413: END IF;
1414:
1415: IF l_del_rec.AS_OF_DATE = OKE_API.G_MISS_DATE THEN
1411: IF l_del_rec.PROMISED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
1412: l_del_rec.PROMISED_SHIPMENT_DATE := NULL;
1413: END IF;
1414:
1415: IF l_del_rec.AS_OF_DATE = OKE_API.G_MISS_DATE THEN
1416: l_del_rec.AS_OF_DATE := NULL;
1417: END IF;
1418:
1419: IF l_del_rec.DATE_OF_FIRST_SUBMISSION = OKE_API.G_MISS_DATE THEN
1415: IF l_del_rec.AS_OF_DATE = OKE_API.G_MISS_DATE THEN
1416: l_del_rec.AS_OF_DATE := NULL;
1417: END IF;
1418:
1419: IF l_del_rec.DATE_OF_FIRST_SUBMISSION = OKE_API.G_MISS_DATE THEN
1420: l_del_rec.DATE_OF_FIRST_SUBMISSION := NULL;
1421: END IF;
1422:
1423: IF l_del_rec.FREQUENCY = OKE_API.G_MISS_CHAR THEN
1419: IF l_del_rec.DATE_OF_FIRST_SUBMISSION = OKE_API.G_MISS_DATE THEN
1420: l_del_rec.DATE_OF_FIRST_SUBMISSION := NULL;
1421: END IF;
1422:
1423: IF l_del_rec.FREQUENCY = OKE_API.G_MISS_CHAR THEN
1424: l_del_rec.FREQUENCY := NULL;
1425: END IF;
1426:
1427: IF l_del_rec.ACQ_DOC_NUMBER = OKE_API.G_MISS_CHAR THEN
1423: IF l_del_rec.FREQUENCY = OKE_API.G_MISS_CHAR THEN
1424: l_del_rec.FREQUENCY := NULL;
1425: END IF;
1426:
1427: IF l_del_rec.ACQ_DOC_NUMBER = OKE_API.G_MISS_CHAR THEN
1428: l_del_rec.ACQ_DOC_NUMBER := NULL;
1429: END IF;
1430:
1431: IF l_del_rec.SUBMISSION_FLAG = OKE_API.G_MISS_CHAR THEN
1427: IF l_del_rec.ACQ_DOC_NUMBER = OKE_API.G_MISS_CHAR THEN
1428: l_del_rec.ACQ_DOC_NUMBER := NULL;
1429: END IF;
1430:
1431: IF l_del_rec.SUBMISSION_FLAG = OKE_API.G_MISS_CHAR THEN
1432: l_del_rec.SUBMISSION_FLAG := NULL;
1433: END IF;
1434:
1435: IF l_del_rec.DATA_ITEM_NAME = OKE_API.G_MISS_CHAR THEN
1431: IF l_del_rec.SUBMISSION_FLAG = OKE_API.G_MISS_CHAR THEN
1432: l_del_rec.SUBMISSION_FLAG := NULL;
1433: END IF;
1434:
1435: IF l_del_rec.DATA_ITEM_NAME = OKE_API.G_MISS_CHAR THEN
1436: l_del_rec.DATA_ITEM_NAME := NULL;
1437: END IF;
1438:
1439: IF l_del_rec.DATA_ITEM_SUBTITLE = OKE_API.G_MISS_CHAR THEN
1435: IF l_del_rec.DATA_ITEM_NAME = OKE_API.G_MISS_CHAR THEN
1436: l_del_rec.DATA_ITEM_NAME := NULL;
1437: END IF;
1438:
1439: IF l_del_rec.DATA_ITEM_SUBTITLE = OKE_API.G_MISS_CHAR THEN
1440: l_del_rec.DATA_ITEM_SUBTITLE := NULL;
1441: END IF;
1442:
1443: IF l_del_rec.TOTAL_NUM_OF_COPIES = OKE_API.G_MISS_NUM THEN
1439: IF l_del_rec.DATA_ITEM_SUBTITLE = OKE_API.G_MISS_CHAR THEN
1440: l_del_rec.DATA_ITEM_SUBTITLE := NULL;
1441: END IF;
1442:
1443: IF l_del_rec.TOTAL_NUM_OF_COPIES = OKE_API.G_MISS_NUM THEN
1444: l_del_rec.TOTAL_NUM_OF_COPIES := NULL;
1445: END IF;
1446:
1447: IF l_del_rec.CDRL_CATEGORY = OKE_API.G_MISS_CHAR THEN
1443: IF l_del_rec.TOTAL_NUM_OF_COPIES = OKE_API.G_MISS_NUM THEN
1444: l_del_rec.TOTAL_NUM_OF_COPIES := NULL;
1445: END IF;
1446:
1447: IF l_del_rec.CDRL_CATEGORY = OKE_API.G_MISS_CHAR THEN
1448: l_del_rec.CDRL_CATEGORY := NULL;
1449: END IF;
1450:
1451: IF l_del_rec.EXPORT_LICENSE_NUM = OKE_API.G_MISS_CHAR THEN
1447: IF l_del_rec.CDRL_CATEGORY = OKE_API.G_MISS_CHAR THEN
1448: l_del_rec.CDRL_CATEGORY := NULL;
1449: END IF;
1450:
1451: IF l_del_rec.EXPORT_LICENSE_NUM = OKE_API.G_MISS_CHAR THEN
1452: l_del_rec.EXPORT_LICENSE_NUM := NULL;
1453: END IF;
1454:
1455: IF l_del_rec.EXPORT_LICENSE_RES = OKE_API.G_MISS_CHAR THEN
1451: IF l_del_rec.EXPORT_LICENSE_NUM = OKE_API.G_MISS_CHAR THEN
1452: l_del_rec.EXPORT_LICENSE_NUM := NULL;
1453: END IF;
1454:
1455: IF l_del_rec.EXPORT_LICENSE_RES = OKE_API.G_MISS_CHAR THEN
1456: l_del_rec.EXPORT_LICENSE_RES := NULL;
1457: END IF;
1458:
1459: IF l_del_rec.EXPORT_FLAG = OKE_API.G_MISS_CHAR THEN
1455: IF l_del_rec.EXPORT_LICENSE_RES = OKE_API.G_MISS_CHAR THEN
1456: l_del_rec.EXPORT_LICENSE_RES := NULL;
1457: END IF;
1458:
1459: IF l_del_rec.EXPORT_FLAG = OKE_API.G_MISS_CHAR THEN
1460: l_del_rec.EXPORT_FLAG := NULL;
1461: END IF;
1462:
1463: IF l_del_rec.CREATED_BY = OKE_API.G_MISS_NUM THEN
1459: IF l_del_rec.EXPORT_FLAG = OKE_API.G_MISS_CHAR THEN
1460: l_del_rec.EXPORT_FLAG := NULL;
1461: END IF;
1462:
1463: IF l_del_rec.CREATED_BY = OKE_API.G_MISS_NUM THEN
1464: l_del_rec.CREATED_BY := NULL;
1465: END IF;
1466:
1467: IF l_del_rec.CREATION_DATE = OKE_API.G_MISS_DATE THEN
1463: IF l_del_rec.CREATED_BY = OKE_API.G_MISS_NUM THEN
1464: l_del_rec.CREATED_BY := NULL;
1465: END IF;
1466:
1467: IF l_del_rec.CREATION_DATE = OKE_API.G_MISS_DATE THEN
1468: l_del_rec.CREATION_DATE := NULL;
1469: END IF;
1470:
1471: IF l_del_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
1467: IF l_del_rec.CREATION_DATE = OKE_API.G_MISS_DATE THEN
1468: l_del_rec.CREATION_DATE := NULL;
1469: END IF;
1470:
1471: IF l_del_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
1472: l_del_rec.LAST_UPDATED_BY := NULL;
1473: END IF;
1474:
1475: IF l_del_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
1471: IF l_del_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
1472: l_del_rec.LAST_UPDATED_BY := NULL;
1473: END IF;
1474:
1475: IF l_del_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
1476: l_del_rec.LAST_UPDATE_LOGIN := NULL;
1477: END IF;
1478:
1479: IF l_del_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
1475: IF l_del_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
1476: l_del_rec.LAST_UPDATE_LOGIN := NULL;
1477: END IF;
1478:
1479: IF l_del_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
1480: l_del_rec.LAST_UPDATE_DATE := NULL;
1481: END IF;
1482:
1483: IF l_del_rec.ATTRIBUTE_CATEGORY = OKE_API.G_MISS_CHAR THEN
1479: IF l_del_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
1480: l_del_rec.LAST_UPDATE_DATE := NULL;
1481: END IF;
1482:
1483: IF l_del_rec.ATTRIBUTE_CATEGORY = OKE_API.G_MISS_CHAR THEN
1484: l_del_rec.ATTRIBUTE_CATEGORY := NULL;
1485: END IF;
1486:
1487: IF l_del_rec.ATTRIBUTE1 = OKE_API.G_MISS_CHAR THEN
1483: IF l_del_rec.ATTRIBUTE_CATEGORY = OKE_API.G_MISS_CHAR THEN
1484: l_del_rec.ATTRIBUTE_CATEGORY := NULL;
1485: END IF;
1486:
1487: IF l_del_rec.ATTRIBUTE1 = OKE_API.G_MISS_CHAR THEN
1488: l_del_rec.ATTRIBUTE1 := NULL;
1489: END IF;
1490:
1491: IF l_del_rec.ATTRIBUTE2 = OKE_API.G_MISS_CHAR THEN
1487: IF l_del_rec.ATTRIBUTE1 = OKE_API.G_MISS_CHAR THEN
1488: l_del_rec.ATTRIBUTE1 := NULL;
1489: END IF;
1490:
1491: IF l_del_rec.ATTRIBUTE2 = OKE_API.G_MISS_CHAR THEN
1492: l_del_rec.ATTRIBUTE2 := NULL;
1493: END IF;
1494:
1495: IF l_del_rec.ATTRIBUTE3 = OKE_API.G_MISS_CHAR THEN
1491: IF l_del_rec.ATTRIBUTE2 = OKE_API.G_MISS_CHAR THEN
1492: l_del_rec.ATTRIBUTE2 := NULL;
1493: END IF;
1494:
1495: IF l_del_rec.ATTRIBUTE3 = OKE_API.G_MISS_CHAR THEN
1496: l_del_rec.ATTRIBUTE3 := NULL;
1497: END IF;
1498:
1499: IF l_del_rec.ATTRIBUTE4 = OKE_API.G_MISS_CHAR THEN
1495: IF l_del_rec.ATTRIBUTE3 = OKE_API.G_MISS_CHAR THEN
1496: l_del_rec.ATTRIBUTE3 := NULL;
1497: END IF;
1498:
1499: IF l_del_rec.ATTRIBUTE4 = OKE_API.G_MISS_CHAR THEN
1500: l_del_rec.ATTRIBUTE4 := NULL;
1501: END IF;
1502:
1503: IF l_del_rec.ATTRIBUTE5 = OKE_API.G_MISS_CHAR THEN
1499: IF l_del_rec.ATTRIBUTE4 = OKE_API.G_MISS_CHAR THEN
1500: l_del_rec.ATTRIBUTE4 := NULL;
1501: END IF;
1502:
1503: IF l_del_rec.ATTRIBUTE5 = OKE_API.G_MISS_CHAR THEN
1504: l_del_rec.ATTRIBUTE5 := NULL;
1505: END IF;
1506:
1507: IF l_del_rec.ATTRIBUTE6 = OKE_API.G_MISS_CHAR THEN
1503: IF l_del_rec.ATTRIBUTE5 = OKE_API.G_MISS_CHAR THEN
1504: l_del_rec.ATTRIBUTE5 := NULL;
1505: END IF;
1506:
1507: IF l_del_rec.ATTRIBUTE6 = OKE_API.G_MISS_CHAR THEN
1508: l_del_rec.ATTRIBUTE6 := NULL;
1509: END IF;
1510:
1511: IF l_del_rec.ATTRIBUTE7 = OKE_API.G_MISS_CHAR THEN
1507: IF l_del_rec.ATTRIBUTE6 = OKE_API.G_MISS_CHAR THEN
1508: l_del_rec.ATTRIBUTE6 := NULL;
1509: END IF;
1510:
1511: IF l_del_rec.ATTRIBUTE7 = OKE_API.G_MISS_CHAR THEN
1512: l_del_rec.ATTRIBUTE7 := NULL;
1513: END IF;
1514:
1515: IF l_del_rec.ATTRIBUTE8 = OKE_API.G_MISS_CHAR THEN
1511: IF l_del_rec.ATTRIBUTE7 = OKE_API.G_MISS_CHAR THEN
1512: l_del_rec.ATTRIBUTE7 := NULL;
1513: END IF;
1514:
1515: IF l_del_rec.ATTRIBUTE8 = OKE_API.G_MISS_CHAR THEN
1516: l_del_rec.ATTRIBUTE8 := NULL;
1517: END IF;
1518:
1519: IF l_del_rec.ATTRIBUTE9 = OKE_API.G_MISS_CHAR THEN
1515: IF l_del_rec.ATTRIBUTE8 = OKE_API.G_MISS_CHAR THEN
1516: l_del_rec.ATTRIBUTE8 := NULL;
1517: END IF;
1518:
1519: IF l_del_rec.ATTRIBUTE9 = OKE_API.G_MISS_CHAR THEN
1520: l_del_rec.ATTRIBUTE9 := NULL;
1521: END IF;
1522:
1523: IF l_del_rec.ATTRIBUTE10 = OKE_API.G_MISS_CHAR THEN
1519: IF l_del_rec.ATTRIBUTE9 = OKE_API.G_MISS_CHAR THEN
1520: l_del_rec.ATTRIBUTE9 := NULL;
1521: END IF;
1522:
1523: IF l_del_rec.ATTRIBUTE10 = OKE_API.G_MISS_CHAR THEN
1524: l_del_rec.ATTRIBUTE10 := NULL;
1525: END IF;
1526:
1527: IF l_del_rec.ATTRIBUTE11 = OKE_API.G_MISS_CHAR THEN
1523: IF l_del_rec.ATTRIBUTE10 = OKE_API.G_MISS_CHAR THEN
1524: l_del_rec.ATTRIBUTE10 := NULL;
1525: END IF;
1526:
1527: IF l_del_rec.ATTRIBUTE11 = OKE_API.G_MISS_CHAR THEN
1528: l_del_rec.ATTRIBUTE11 := NULL;
1529: END IF;
1530:
1531: IF l_del_rec.ATTRIBUTE12 = OKE_API.G_MISS_CHAR THEN
1527: IF l_del_rec.ATTRIBUTE11 = OKE_API.G_MISS_CHAR THEN
1528: l_del_rec.ATTRIBUTE11 := NULL;
1529: END IF;
1530:
1531: IF l_del_rec.ATTRIBUTE12 = OKE_API.G_MISS_CHAR THEN
1532: l_del_rec.ATTRIBUTE12 := NULL;
1533: END IF;
1534:
1535: IF l_del_rec.ATTRIBUTE13 = OKE_API.G_MISS_CHAR THEN
1531: IF l_del_rec.ATTRIBUTE12 = OKE_API.G_MISS_CHAR THEN
1532: l_del_rec.ATTRIBUTE12 := NULL;
1533: END IF;
1534:
1535: IF l_del_rec.ATTRIBUTE13 = OKE_API.G_MISS_CHAR THEN
1536: l_del_rec.ATTRIBUTE13 := NULL;
1537: END IF;
1538:
1539: IF l_del_rec.ATTRIBUTE14 = OKE_API.G_MISS_CHAR THEN
1535: IF l_del_rec.ATTRIBUTE13 = OKE_API.G_MISS_CHAR THEN
1536: l_del_rec.ATTRIBUTE13 := NULL;
1537: END IF;
1538:
1539: IF l_del_rec.ATTRIBUTE14 = OKE_API.G_MISS_CHAR THEN
1540: l_del_rec.ATTRIBUTE14 := NULL;
1541: END IF;
1542:
1543: IF l_del_rec.ATTRIBUTE15 = OKE_API.G_MISS_CHAR THEN
1539: IF l_del_rec.ATTRIBUTE14 = OKE_API.G_MISS_CHAR THEN
1540: l_del_rec.ATTRIBUTE14 := NULL;
1541: END IF;
1542:
1543: IF l_del_rec.ATTRIBUTE15 = OKE_API.G_MISS_CHAR THEN
1544: l_del_rec.ATTRIBUTE15 := NULL;
1545: END IF;
1546:
1547:
1545: END IF;
1546:
1547:
1548:
1549: IF l_del_rec.comments = OKE_API.G_MISS_CHAR THEN
1550:
1551: l_del_rec.comments := NULL;
1552: END IF;
1553:
1550:
1551: l_del_rec.comments := NULL;
1552: END IF;
1553:
1554: IF l_del_rec.weight = OKE_API.G_MISS_NUM THEN
1555: l_del_rec.weight := NULL;
1556: END IF;
1557:
1558: IF l_del_rec.weight_uom_code = OKE_API.G_MISS_CHAR THEN
1554: IF l_del_rec.weight = OKE_API.G_MISS_NUM THEN
1555: l_del_rec.weight := NULL;
1556: END IF;
1557:
1558: IF l_del_rec.weight_uom_code = OKE_API.G_MISS_CHAR THEN
1559: l_del_rec.weight_uom_code := NULL;
1560: END IF;
1561:
1562: IF l_del_rec.volume = OKE_API.G_MISS_NUM THEN
1558: IF l_del_rec.weight_uom_code = OKE_API.G_MISS_CHAR THEN
1559: l_del_rec.weight_uom_code := NULL;
1560: END IF;
1561:
1562: IF l_del_rec.volume = OKE_API.G_MISS_NUM THEN
1563: l_del_rec.volume := NULL;
1564: END IF;
1565:
1566: IF l_del_rec.volume_uom_code = OKE_API.G_MISS_CHAR THEN
1562: IF l_del_rec.volume = OKE_API.G_MISS_NUM THEN
1563: l_del_rec.volume := NULL;
1564: END IF;
1565:
1566: IF l_del_rec.volume_uom_code = OKE_API.G_MISS_CHAR THEN
1567: l_del_rec.volume_uom_code := NULL;
1568: END IF;
1569:
1570: IF l_del_rec.expenditure_organization_id = OKE_API.G_MISS_NUM THEN
1566: IF l_del_rec.volume_uom_code = OKE_API.G_MISS_CHAR THEN
1567: l_del_rec.volume_uom_code := NULL;
1568: END IF;
1569:
1570: IF l_del_rec.expenditure_organization_id = OKE_API.G_MISS_NUM THEN
1571: l_del_rec.expenditure_organization_id := NULL;
1572: END IF;
1573:
1574: IF l_del_rec.expenditure_type = OKE_API.G_MISS_CHAR THEN
1570: IF l_del_rec.expenditure_organization_id = OKE_API.G_MISS_NUM THEN
1571: l_del_rec.expenditure_organization_id := NULL;
1572: END IF;
1573:
1574: IF l_del_rec.expenditure_type = OKE_API.G_MISS_CHAR THEN
1575: l_del_rec.expenditure_type := NULL;
1576: END IF;
1577:
1578: IF l_del_rec.expenditure_item_date = OKE_API.G_MISS_DATE THEN
1574: IF l_del_rec.expenditure_type = OKE_API.G_MISS_CHAR THEN
1575: l_del_rec.expenditure_type := NULL;
1576: END IF;
1577:
1578: IF l_del_rec.expenditure_item_date = OKE_API.G_MISS_DATE THEN
1579: l_del_rec.expenditure_item_date := NULL;
1580: END IF;
1581:
1582: IF l_del_rec.destination_type_code = OKE_API.G_MISS_CHAR THEN
1578: IF l_del_rec.expenditure_item_date = OKE_API.G_MISS_DATE THEN
1579: l_del_rec.expenditure_item_date := NULL;
1580: END IF;
1581:
1582: IF l_del_rec.destination_type_code = OKE_API.G_MISS_CHAR THEN
1583: l_del_rec.destination_type_code := NULL;
1584: END IF;
1585:
1586: IF l_del_rec.rate_type = OKE_API.G_MISS_CHAR THEN
1582: IF l_del_rec.destination_type_code = OKE_API.G_MISS_CHAR THEN
1583: l_del_rec.destination_type_code := NULL;
1584: END IF;
1585:
1586: IF l_del_rec.rate_type = OKE_API.G_MISS_CHAR THEN
1587: l_del_rec.rate_type := NULL;
1588: END IF;
1589:
1590: IF l_del_rec.rate_date = OKE_API.G_MISS_DATE THEN
1586: IF l_del_rec.rate_type = OKE_API.G_MISS_CHAR THEN
1587: l_del_rec.rate_type := NULL;
1588: END IF;
1589:
1590: IF l_del_rec.rate_date = OKE_API.G_MISS_DATE THEN
1591: l_del_rec.rate_date := NULL;
1592: END IF;
1593:
1594: IF l_del_rec.exchange_rate = OKE_API.G_MISS_NUM THEN
1590: IF l_del_rec.rate_date = OKE_API.G_MISS_DATE THEN
1591: l_del_rec.rate_date := NULL;
1592: END IF;
1593:
1594: IF l_del_rec.exchange_rate = OKE_API.G_MISS_NUM THEN
1595: l_del_rec.exchange_rate := NULL;
1596: END IF;
1597:
1598: IF l_del_rec.description = OKE_API.G_MISS_CHAR THEN
1594: IF l_del_rec.exchange_rate = OKE_API.G_MISS_NUM THEN
1595: l_del_rec.exchange_rate := NULL;
1596: END IF;
1597:
1598: IF l_del_rec.description = OKE_API.G_MISS_CHAR THEN
1599: l_del_rec.description := NULL;
1600: END IF;
1601:
1602: RETURN(l_del_rec);
1605:
1606: BEGIN
1607: -- call START_ACTIVITY to create savepoint, check compatibility
1608: -- and initialize message list
1609: l_return_status := OKE_API.START_ACTIVITY(
1610: p_api_name => l_api_name,
1611: p_pkg_name => g_pkg_name,
1612: p_init_msg_list => p_init_msg_list,
1613: l_api_version => l_api_version,
1615: p_api_type => g_api_type,
1616: x_return_status => x_return_status);
1617:
1618: -- check if activity started successfully
1619: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1620: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1621: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1622: raise OKE_API.G_EXCEPTION_ERROR;
1623: End If;
1616: x_return_status => x_return_status);
1617:
1618: -- check if activity started successfully
1619: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1620: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1621: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1622: raise OKE_API.G_EXCEPTION_ERROR;
1623: End If;
1624:
1617:
1618: -- check if activity started successfully
1619: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1620: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1621: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1622: raise OKE_API.G_EXCEPTION_ERROR;
1623: End If;
1624:
1625: l_del_rec := null_out_defaults(p_del_rec);
1618: -- check if activity started successfully
1619: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1620: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1621: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1622: raise OKE_API.G_EXCEPTION_ERROR;
1623: End If;
1624:
1625: l_del_rec := null_out_defaults(p_del_rec);
1626:
1624:
1625: l_del_rec := null_out_defaults(p_del_rec);
1626:
1627: IF p_del_rec.k_header_id IS NOT NULL AND
1628: p_del_rec.k_header_id <> OKE_API.G_MISS_NUM THEN
1629:
1630: IF p_del_rec.inventory_org_id IS NULL
1631: OR p_del_rec.inventory_org_id = OKE_API.G_MISS_NUM THEN
1632: OPEN get_inv_org;
1627: IF p_del_rec.k_header_id IS NOT NULL AND
1628: p_del_rec.k_header_id <> OKE_API.G_MISS_NUM THEN
1629:
1630: IF p_del_rec.inventory_org_id IS NULL
1631: OR p_del_rec.inventory_org_id = OKE_API.G_MISS_NUM THEN
1632: OPEN get_inv_org;
1633: FETCH get_inv_org INTO l_del_rec.inventory_org_id;
1634: CLOSE get_inv_org;
1635: END IF;
1635: END IF;
1636:
1637:
1638: IF p_del_rec.direction IS NULL
1639: OR p_del_rec.direction = OKE_API.G_MISS_CHAR THEN
1640: OPEN get_intent;
1641: FETCH get_intent INTO l_intent;
1642: CLOSE get_intent;
1643: IF l_intent = 'S' THEN
1658: x_msg_count => x_msg_count,
1659: x_msg_data => x_msg_data,
1660: p_del_rec => l_del_rec);
1661:
1662: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1663: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1665: raise OKE_API.G_EXCEPTION_ERROR;
1666: End If;
1659: x_msg_data => x_msg_data,
1660: p_del_rec => l_del_rec);
1661:
1662: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1663: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1665: raise OKE_API.G_EXCEPTION_ERROR;
1666: End If;
1667:
1660: p_del_rec => l_del_rec);
1661:
1662: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1663: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1665: raise OKE_API.G_EXCEPTION_ERROR;
1666: End If;
1667:
1668:
1661:
1662: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1663: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1665: raise OKE_API.G_EXCEPTION_ERROR;
1666: End If;
1667:
1668:
1669:
1675: x_msg_data => x_msg_data,
1676: p_del_rec => l_del_rec,
1677: x_del_rec => x_del_rec);
1678:
1679: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1680: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1681: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1682: raise OKE_API.G_EXCEPTION_ERROR;
1683: End If;
1676: p_del_rec => l_del_rec,
1677: x_del_rec => x_del_rec);
1678:
1679: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1680: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1681: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1682: raise OKE_API.G_EXCEPTION_ERROR;
1683: End If;
1684:
1677: x_del_rec => x_del_rec);
1678:
1679: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1680: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1681: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1682: raise OKE_API.G_EXCEPTION_ERROR;
1683: End If;
1684:
1685:
1678:
1679: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1680: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1681: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1682: raise OKE_API.G_EXCEPTION_ERROR;
1683: End If;
1684:
1685:
1686: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1682: raise OKE_API.G_EXCEPTION_ERROR;
1683: End If;
1684:
1685:
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:
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,
1734:
1735: BEGIN
1736:
1737: IF p_bill_rec.default_flag <>'N' AND p_bill_rec.default_flag <> 'Y' THEN
1738: return OKE_API.G_RET_STS_ERROR;
1739: END IF;
1740:
1741: OPEN c_k_header_id;
1742: FETCH c_k_header_id INTO l_k_header_id;
1742: FETCH c_k_header_id INTO l_k_header_id;
1743: CLOSE c_k_header_id;
1744:
1745: IF l_k_header_id = '?' THEN
1746: return OKE_API.G_RET_STS_ERROR;
1747: END IF;
1748:
1749: OPEN c_billing_method_code;
1750: FETCH c_billing_method_code INTO l_billing_method_code;
1750: FETCH c_billing_method_code INTO l_billing_method_code;
1751: CLOSE c_billing_method_code;
1752:
1753: IF l_billing_method_code = '?' THEN
1754: return OKE_API.G_RET_STS_ERROR;
1755: END IF;
1756:
1757: RETURN OKE_API.G_RET_STS_SUCCESS;
1758:
1753: IF l_billing_method_code = '?' THEN
1754: return OKE_API.G_RET_STS_ERROR;
1755: END IF;
1756:
1757: RETURN OKE_API.G_RET_STS_SUCCESS;
1758:
1759: END validate_billing_method;
1760:
1761:
1760:
1761:
1762: PROCEDURE define_billing_methods(
1763: p_api_version IN NUMBER,
1764: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1765: x_return_status OUT NOCOPY VARCHAR2,
1766: x_msg_count OUT NOCOPY NUMBER,
1767: x_msg_data OUT NOCOPY VARCHAR2,
1768:
1769: p_bill_tbl IN bill_tbl_type) IS
1770:
1771: l_api_name CONSTANT VARCHAR2(30) := 'DEFINE_BILLING_METHODS';
1772: l_api_version CONSTANT NUMBER := 1.0;
1773: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1774:
1775: i NUMBER;
1776: l_flag VARCHAR2(1);
1777:
1779:
1780: BEGIN
1781: -- call START_ACTIVITY to create savepoint, check compatibility
1782: -- and initialize message list
1783: l_return_status := OKE_API.START_ACTIVITY(
1784: p_api_name => l_api_name,
1785: p_pkg_name => g_pkg_name,
1786: p_init_msg_list => p_init_msg_list,
1787: l_api_version => l_api_version,
1789: p_api_type => g_api_type,
1790: x_return_status => x_return_status);
1791:
1792: -- check if activity started successfully
1793: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1794: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1795: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1796: raise OKE_API.G_EXCEPTION_ERROR;
1797: End If;
1790: x_return_status => x_return_status);
1791:
1792: -- check if activity started successfully
1793: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1794: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1795: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1796: raise OKE_API.G_EXCEPTION_ERROR;
1797: End If;
1798:
1791:
1792: -- check if activity started successfully
1793: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1794: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1795: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1796: raise OKE_API.G_EXCEPTION_ERROR;
1797: End If;
1798:
1799:
1792: -- check if activity started successfully
1793: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1794: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1795: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1796: raise OKE_API.G_EXCEPTION_ERROR;
1797: End If;
1798:
1799:
1800: l_flag := 'N';
1804:
1805: LOOP
1806:
1807: IF l_header_id <> p_bill_tbl(i).k_header_id THEN
1808: raise OKE_API.G_EXCEPTION_ERROR;
1809: END IF;
1810:
1811: IF l_flag='Y' AND p_bill_tbl(i).default_flag='Y' THEN
1812: raise OKE_API.G_EXCEPTION_ERROR;
1808: raise OKE_API.G_EXCEPTION_ERROR;
1809: END IF;
1810:
1811: IF l_flag='Y' AND p_bill_tbl(i).default_flag='Y' THEN
1812: raise OKE_API.G_EXCEPTION_ERROR;
1813: ELSIF l_flag='Y' AND p_bill_tbl(i).default_flag='N' THEN
1814: null;
1815: ELSIF l_flag='N' AND p_bill_tbl(i).default_flag='Y' THEN
1816: l_flag:='Y';
1895: i:=p_bill_tbl.NEXT(i);
1896: END LOOP;
1897: END IF;
1898:
1899: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1900: x_msg_data => x_msg_data);
1901: EXCEPTION
1902: when OKE_API.G_EXCEPTION_ERROR then
1903: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1898:
1899: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1900: x_msg_data => x_msg_data);
1901: EXCEPTION
1902: when OKE_API.G_EXCEPTION_ERROR then
1903: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1904: p_api_name => l_api_name,
1905: p_pkg_name => g_pkg_name,
1906: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1899: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1900: x_msg_data => x_msg_data);
1901: EXCEPTION
1902: when OKE_API.G_EXCEPTION_ERROR then
1903: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1904: p_api_name => l_api_name,
1905: p_pkg_name => g_pkg_name,
1906: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1907: x_msg_count => x_msg_count,
1902: when OKE_API.G_EXCEPTION_ERROR then
1903: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1904: p_api_name => l_api_name,
1905: p_pkg_name => g_pkg_name,
1906: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1907: x_msg_count => x_msg_count,
1908: x_msg_data => x_msg_data,
1909: p_api_type => g_api_type);
1910:
1907: x_msg_count => x_msg_count,
1908: x_msg_data => x_msg_data,
1909: p_api_type => g_api_type);
1910:
1911: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1912: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1913: p_api_name => l_api_name,
1914: p_pkg_name => g_pkg_name,
1915: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1908: x_msg_data => x_msg_data,
1909: p_api_type => g_api_type);
1910:
1911: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1912: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1913: p_api_name => l_api_name,
1914: p_pkg_name => g_pkg_name,
1915: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1916: x_msg_count => x_msg_count,
1911: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1912: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1913: p_api_name => l_api_name,
1914: p_pkg_name => g_pkg_name,
1915: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1916: x_msg_count => x_msg_count,
1917: x_msg_data => x_msg_data,
1918: p_api_type => g_api_type);
1919:
1917: x_msg_data => x_msg_data,
1918: p_api_type => g_api_type);
1919:
1920: when OTHERS then
1921: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1922: p_api_name => l_api_name,
1923: p_pkg_name => g_pkg_name,
1924: p_exc_name => 'OTHERS',
1925: x_msg_count => x_msg_count,
1929: END define_billing_methods;
1930:
1931: PROCEDURE remove_billing_methods(
1932: p_api_version IN NUMBER,
1933: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1934: x_return_status OUT NOCOPY VARCHAR2,
1935: x_msg_count OUT NOCOPY NUMBER,
1936: x_msg_data OUT NOCOPY VARCHAR2,
1937:
1938: p_bill_tbl IN bill_tbl_type) IS
1939:
1940: l_api_name CONSTANT VARCHAR2(30) := 'REMOVE_BILLING_METHODS';
1941: l_api_version CONSTANT NUMBER := 1.0;
1942: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1943:
1944: i NUMBER;
1945:
1946: l_header_id NUMBER;
1954:
1955: BEGIN
1956: -- call START_ACTIVITY to create savepoint, check compatibility
1957: -- and initialize message list
1958: l_return_status := OKE_API.START_ACTIVITY(
1959: p_api_name => l_api_name,
1960: p_pkg_name => g_pkg_name,
1961: p_init_msg_list => p_init_msg_list,
1962: l_api_version => l_api_version,
1964: p_api_type => g_api_type,
1965: x_return_status => x_return_status);
1966:
1967: -- check if activity started successfully
1968: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1969: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1970: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1971: raise OKE_API.G_EXCEPTION_ERROR;
1972: End If;
1965: x_return_status => x_return_status);
1966:
1967: -- check if activity started successfully
1968: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1969: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1970: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1971: raise OKE_API.G_EXCEPTION_ERROR;
1972: End If;
1973:
1966:
1967: -- check if activity started successfully
1968: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1969: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1970: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1971: raise OKE_API.G_EXCEPTION_ERROR;
1972: End If;
1973:
1974: IF p_bill_tbl.COUNT > 0 THEN
1967: -- check if activity started successfully
1968: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1969: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1970: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1971: raise OKE_API.G_EXCEPTION_ERROR;
1972: End If;
1973:
1974: IF p_bill_tbl.COUNT > 0 THEN
1975: i:=p_bill_tbl.FIRST;
1977:
1978: LOOP
1979:
1980: IF l_header_id <> p_bill_tbl(i).k_header_id THEN
1981: raise OKE_API.G_EXCEPTION_ERROR;
1982: END IF;
1983:
1984: EXIT WHEN i = p_bill_tbl.LAST;
1985: i:=p_bill_tbl.NEXT(i);
1990: IF p_bill_tbl.COUNT > 0 THEN
1991: i:=p_bill_tbl.FIRST;
1992: LOOP
1993:
1994: IF p_bill_tbl(i).k_header_id <> OKE_API.G_MISS_NUM
1995: AND p_bill_tbl(i).k_header_id is not null
1996: AND p_bill_tbl(i).billing_method_code <> OKE_API.G_MISS_CHAR
1997: AND p_bill_tbl(i).billing_method_code is not null THEN
1998:
1992: LOOP
1993:
1994: IF p_bill_tbl(i).k_header_id <> OKE_API.G_MISS_NUM
1995: AND p_bill_tbl(i).k_header_id is not null
1996: AND p_bill_tbl(i).billing_method_code <> OKE_API.G_MISS_CHAR
1997: AND p_bill_tbl(i).billing_method_code is not null THEN
1998:
1999: l_check := '?';
2000: OPEN c_check(p_bill_tbl(i).k_header_id,
2012: i:=p_bill_tbl.NEXT(i);
2013: END LOOP;
2014: END IF;
2015:
2016: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2017: x_msg_data => x_msg_data);
2018: EXCEPTION
2019: when OKE_API.G_EXCEPTION_ERROR then
2020: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2015:
2016: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2017: x_msg_data => x_msg_data);
2018: EXCEPTION
2019: when OKE_API.G_EXCEPTION_ERROR then
2020: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2021: p_api_name => l_api_name,
2022: p_pkg_name => g_pkg_name,
2023: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2016: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2017: x_msg_data => x_msg_data);
2018: EXCEPTION
2019: when OKE_API.G_EXCEPTION_ERROR then
2020: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2021: p_api_name => l_api_name,
2022: p_pkg_name => g_pkg_name,
2023: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2024: x_msg_count => x_msg_count,
2019: when OKE_API.G_EXCEPTION_ERROR then
2020: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2021: p_api_name => l_api_name,
2022: p_pkg_name => g_pkg_name,
2023: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2024: x_msg_count => x_msg_count,
2025: x_msg_data => x_msg_data,
2026: p_api_type => g_api_type);
2027:
2024: x_msg_count => x_msg_count,
2025: x_msg_data => x_msg_data,
2026: p_api_type => g_api_type);
2027:
2028: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2029: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2030: p_api_name => l_api_name,
2031: p_pkg_name => g_pkg_name,
2032: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2025: x_msg_data => x_msg_data,
2026: p_api_type => g_api_type);
2027:
2028: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2029: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2030: p_api_name => l_api_name,
2031: p_pkg_name => g_pkg_name,
2032: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2033: x_msg_count => x_msg_count,
2028: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2029: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2030: p_api_name => l_api_name,
2031: p_pkg_name => g_pkg_name,
2032: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2033: x_msg_count => x_msg_count,
2034: x_msg_data => x_msg_data,
2035: p_api_type => g_api_type);
2036:
2034: x_msg_data => x_msg_data,
2035: p_api_type => g_api_type);
2036:
2037: when OTHERS then
2038: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2039: p_api_name => l_api_name,
2040: p_pkg_name => g_pkg_name,
2041: p_exc_name => 'OTHERS',
2042: x_msg_count => x_msg_count,
2046: END remove_billing_methods;
2047:
2048: PROCEDURE create_line_item(
2049: p_api_version IN NUMBER,
2050: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
2051: x_return_status OUT NOCOPY VARCHAR2,
2052: x_msg_count OUT NOCOPY NUMBER,
2053: x_msg_data OUT NOCOPY VARCHAR2,
2054:
2056: x_cimv_rec OUT NOCOPY cimv_rec_type) IS
2057:
2058: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_LINE_ITEM';
2059: l_api_version CONSTANT NUMBER := 1.0;
2060: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2061:
2062: l_cimv_tbl_in okc_contract_item_pub.cimv_tbl_type;
2063:
2064: l_cimv_tbl_out okc_contract_item_pub.cimv_tbl_type;
2065:
2066: BEGIN
2067: -- call START_ACTIVITY to create savepoint, check compatibility
2068: -- and initialize message list
2069: l_return_status := OKE_API.START_ACTIVITY(
2070: p_api_name => l_api_name,
2071: p_pkg_name => g_pkg_name,
2072: p_init_msg_list => p_init_msg_list,
2073: l_api_version => l_api_version,
2075: p_api_type => g_api_type,
2076: x_return_status => x_return_status);
2077:
2078: -- check if activity started successfully
2079: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2080: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2081: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2082: raise OKE_API.G_EXCEPTION_ERROR;
2083: End If;
2076: x_return_status => x_return_status);
2077:
2078: -- check if activity started successfully
2079: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2080: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2081: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2082: raise OKE_API.G_EXCEPTION_ERROR;
2083: End If;
2084:
2077:
2078: -- check if activity started successfully
2079: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2080: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2081: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2082: raise OKE_API.G_EXCEPTION_ERROR;
2083: End If;
2084:
2085: l_cimv_tbl_in(1).ID := p_cimv_rec.ID;
2078: -- check if activity started successfully
2079: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2080: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2081: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2082: raise OKE_API.G_EXCEPTION_ERROR;
2083: End If;
2084:
2085: l_cimv_tbl_in(1).ID := p_cimv_rec.ID;
2086: l_cimv_tbl_in(1).OBJECT_VERSION_NUMBER := p_cimv_rec.OBJECT_VERSION_NUMBER;
2112: , p_cimv_tbl => l_cimv_tbl_in
2113: , x_cimv_tbl => l_cimv_tbl_out
2114: );
2115:
2116: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2117: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2118: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2119: raise OKE_API.G_EXCEPTION_ERROR;
2120: End If;
2113: , x_cimv_tbl => l_cimv_tbl_out
2114: );
2115:
2116: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2117: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2118: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2119: raise OKE_API.G_EXCEPTION_ERROR;
2120: End If;
2121:
2114: );
2115:
2116: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2117: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2118: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2119: raise OKE_API.G_EXCEPTION_ERROR;
2120: End If;
2121:
2122: x_cimv_rec.ID := l_cimv_tbl_out(1).ID;
2115:
2116: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2117: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2118: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2119: raise OKE_API.G_EXCEPTION_ERROR;
2120: End If;
2121:
2122: x_cimv_rec.ID := l_cimv_tbl_out(1).ID;
2123: x_cimv_rec.OBJECT_VERSION_NUMBER := l_cimv_tbl_out(1).OBJECT_VERSION_NUMBER;
2139: x_cimv_rec.LAST_UPDATE_LOGIN := l_cimv_tbl_out(1).LAST_UPDATE_LOGIN;
2140: x_cimv_rec.UPG_ORIG_SYSTEM_REF := l_cimv_tbl_out(1).UPG_ORIG_SYSTEM_REF;
2141: x_cimv_rec.UPG_ORIG_SYSTEM_REF_ID := l_cimv_tbl_out(1).UPG_ORIG_SYSTEM_REF_ID;
2142:
2143: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2144: x_msg_data => x_msg_data);
2145: EXCEPTION
2146: when OKE_API.G_EXCEPTION_ERROR then
2147: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2142:
2143: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2144: x_msg_data => x_msg_data);
2145: EXCEPTION
2146: when OKE_API.G_EXCEPTION_ERROR then
2147: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2148: p_api_name => l_api_name,
2149: p_pkg_name => g_pkg_name,
2150: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2143: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2144: x_msg_data => x_msg_data);
2145: EXCEPTION
2146: when OKE_API.G_EXCEPTION_ERROR then
2147: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2148: p_api_name => l_api_name,
2149: p_pkg_name => g_pkg_name,
2150: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2151: x_msg_count => x_msg_count,
2146: when OKE_API.G_EXCEPTION_ERROR then
2147: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2148: p_api_name => l_api_name,
2149: p_pkg_name => g_pkg_name,
2150: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2151: x_msg_count => x_msg_count,
2152: x_msg_data => x_msg_data,
2153: p_api_type => g_api_type);
2154:
2151: x_msg_count => x_msg_count,
2152: x_msg_data => x_msg_data,
2153: p_api_type => g_api_type);
2154:
2155: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2156: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2157: p_api_name => l_api_name,
2158: p_pkg_name => g_pkg_name,
2159: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2152: x_msg_data => x_msg_data,
2153: p_api_type => g_api_type);
2154:
2155: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2156: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2157: p_api_name => l_api_name,
2158: p_pkg_name => g_pkg_name,
2159: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2160: x_msg_count => x_msg_count,
2155: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2156: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2157: p_api_name => l_api_name,
2158: p_pkg_name => g_pkg_name,
2159: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2160: x_msg_count => x_msg_count,
2161: x_msg_data => x_msg_data,
2162: p_api_type => g_api_type);
2163:
2161: x_msg_data => x_msg_data,
2162: p_api_type => g_api_type);
2163:
2164: when OTHERS then
2165: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2166: p_api_name => l_api_name,
2167: p_pkg_name => g_pkg_name,
2168: p_exc_name => 'OTHERS',
2169: x_msg_count => x_msg_count,