[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:
160:
161:
162:
163: BEGIN
164: x_return_status := OKE_API.G_RET_STS_SUCCESS;
165:
166: IF ( p_cle_rec.sts_code <> OKE_API.G_MISS_CHAR
167: AND p_cle_rec.sts_code IS NOT NULL) THEN
168:
162:
163: BEGIN
164: x_return_status := OKE_API.G_RET_STS_SUCCESS;
165:
166: IF ( p_cle_rec.sts_code <> OKE_API.G_MISS_CHAR
167: AND p_cle_rec.sts_code IS NOT NULL) THEN
168:
169: Open l_csr1;
170: Fetch l_csr1 INTO l_dummy1;
170: Fetch l_csr1 INTO l_dummy1;
171: Close l_csr1;
172:
173: If l_dummy1 = '?' Then
174: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
175: p_msg_name => g_no_parent_record,
176: p_token1 => g_col_name_token,
177: p_token1_value => 'STS_CODE',
178: p_token2 => g_child_table_token,
178: p_token2 => g_child_table_token,
179: p_token2_value => G_VIEW,
180: p_token3 => g_parent_table_token,
181: p_token3_value => 'OKC_STATUSES_B');
182: x_return_status := OKE_API.G_RET_STS_ERROR;
183: END IF;
184: END IF;
185:
186: IF ( p_cle_rec.line_number <> OKE_API.G_MISS_CHAR
182: x_return_status := OKE_API.G_RET_STS_ERROR;
183: END IF;
184: END IF;
185:
186: IF ( p_cle_rec.line_number <> OKE_API.G_MISS_CHAR
187: AND p_cle_rec.line_number IS NOT NULL) THEN
188:
189: l_line_num := RTRIM(p_cle_rec.line_number)||' ';
190: IF length(l_line_num)=1 THEN
188:
189: l_line_num := RTRIM(p_cle_rec.line_number)||' ';
190: IF length(l_line_num)=1 THEN
191:
192: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
193: p_msg_name =>G_REQUIRED_VALUE,
194: p_token1 =>G_COL_NAME_TOKEN,
195: p_token1_value =>'LINE_NUMBER');
196: x_return_status := OKE_API.G_RET_STS_ERROR;
192: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
193: p_msg_name =>G_REQUIRED_VALUE,
194: p_token1 =>G_COL_NAME_TOKEN,
195: p_token1_value =>'LINE_NUMBER');
196: x_return_status := OKE_API.G_RET_STS_ERROR;
197: END IF;
198:
199:
200:
206: EXCEPTION
207:
208: WHEN OTHERS THEN
209: -- store SQL error message on message stack
210: OKE_API.SET_MESSAGE(
211: p_app_name =>g_app_name,
212: p_msg_name =>G_UNEXPECTED_ERROR,
213: p_token1 =>G_SQLCODE_TOKEN,
214: p_token1_value =>SQLCODE,
213: p_token1 =>G_SQLCODE_TOKEN,
214: p_token1_value =>SQLCODE,
215: p_token2 =>G_SQLERRM_TOKEN,
216: p_token2_value =>SQLERRM);
217: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
218:
219: END validate_OKC_line_fields;
220:
221: PROCEDURE validate_delivery_Date (x_return_status OUT NOCOPY VARCHAR2,
235:
236: l_start DATE;
237: l_end DATE;
238: BEGIN
239: x_return_status := OKE_API.G_RET_STS_SUCCESS;
240:
241: IF p_end_date IS NOT NULL THEN
242: IF p_end_date < p_due_date THEN
243: x_return_status := OKE_API.G_RET_STS_error;
239: x_return_status := OKE_API.G_RET_STS_SUCCESS;
240:
241: IF p_end_date IS NOT NULL THEN
242: IF p_end_date < p_due_date THEN
243: x_return_status := OKE_API.G_RET_STS_error;
244: OKE_API.SET_MESSAGE('OKE','OKE_WRONG_DELIVERY_DATE');
245: RETURN;
246: End If;
247: End If;
240:
241: IF p_end_date IS NOT NULL THEN
242: IF p_end_date < p_due_date THEN
243: x_return_status := OKE_API.G_RET_STS_error;
244: OKE_API.SET_MESSAGE('OKE','OKE_WRONG_DELIVERY_DATE');
245: RETURN;
246: End If;
247: End If;
248:
248:
249:
250: IF p_start_date IS NOT NULL THEN
251: IF p_start_date > p_due_date THEN
252: x_return_status := OKE_API.G_RET_STS_error;
253: OKE_API.SET_MESSAGE('OKE','OKE_WRONG_DELIVERY_DATE');
254: RETURN;
255: End If;
256: End If;
249:
250: IF p_start_date IS NOT NULL THEN
251: IF p_start_date > p_due_date THEN
252: x_return_status := OKE_API.G_RET_STS_error;
253: OKE_API.SET_MESSAGE('OKE','OKE_WRONG_DELIVERY_DATE');
254: RETURN;
255: End If;
256: End If;
257:
258: EXCEPTION
259:
260: WHEN OTHERS THEN
261: -- store SQL error message on message stack
262: OKE_API.SET_MESSAGE(
263: p_app_name =>g_app_name,
264: p_msg_name =>G_UNEXPECTED_ERROR,
265: p_token1 =>G_SQLCODE_TOKEN,
266: p_token1_value =>SQLCODE,
265: p_token1 =>G_SQLCODE_TOKEN,
266: p_token1_value =>SQLCODE,
267: p_token2 =>G_SQLERRM_TOKEN,
268: p_token2_value =>SQLERRM);
269: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
270:
271: END validate_delivery_Date;
272:
273: PROCEDURE validate_proposal_due_date(x_return_status OUT NOCOPY VARCHAR2,p_proposal_due_date IN VARCHAR2)
273: PROCEDURE validate_proposal_due_date(x_return_status OUT NOCOPY VARCHAR2,p_proposal_due_date IN VARCHAR2)
274: IS
275:
276: BEGIN
277: x_return_status := OKE_API.G_RET_STS_SUCCESS;
278: IF To_Number(p_proposal_due_date)<0 THEN
279: RAISE invalid_number;
280: END IF;
281: EXCEPTION
280: END IF;
281: EXCEPTION
282: WHEN INVALID_NUMBER
283: THEN
284: x_return_status := OKE_API.G_RET_STS_ERROR;
285: OKE_API.SET_MESSAGE('OKE','OKE_INVALID_DAYS_ARO');
286: END validate_proposal_due_date;
287:
288: PROCEDURE update_line_total(p_chr_id NUMBER, p_line_id NUMBER, p_parent_id NUMBER, p_diff NUMBER, p_diff_u NUMBER ) IS
281: EXCEPTION
282: WHEN INVALID_NUMBER
283: THEN
284: x_return_status := OKE_API.G_RET_STS_ERROR;
285: OKE_API.SET_MESSAGE('OKE','OKE_INVALID_DAYS_ARO');
286: END validate_proposal_due_date;
287:
288: PROCEDURE update_line_total(p_chr_id NUMBER, p_line_id NUMBER, p_parent_id NUMBER, p_diff NUMBER, p_diff_u NUMBER ) IS
289: l_chld_exist VARCHAR2(1) := '?';
370: FROM okc_k_headers_all_b
371: WHERE id=p_id;
372:
373: BEGIN
374: x_return_status := OKE_API.G_RET_STS_SUCCESS;
375:
376:
377: -- Check if the new SD/ED invalid its SD/ED/DD
378: if (p_col_name = 'Start Date') then
380: (l_line_start_date > l_line_due_date OR
381: l_line_start_date > l_line_end_date)
382: )
383: THEN
384: x_return_status := OKE_API.G_RET_STS_ERROR;
385: OKE_API.SET_MESSAGE('OKE','OKE_INVALID_LINE_START_DATE');
386: RETURN;
387: end if;
388: else
381: l_line_start_date > l_line_end_date)
382: )
383: THEN
384: x_return_status := OKE_API.G_RET_STS_ERROR;
385: OKE_API.SET_MESSAGE('OKE','OKE_INVALID_LINE_START_DATE');
386: RETURN;
387: end if;
388: else
389: if (l_line_end_date is not null AND
390: (l_line_end_date < l_line_due_date OR
391: l_line_end_date < l_line_start_date)
392: )
393: THEN
394: x_return_status := OKE_API.G_RET_STS_ERROR;
395: OKE_API.SET_MESSAGE('OKE','OKE_INVALID_LINE_END_DATE');
396: RETURN;
397: end if;
398: end if;
391: l_line_end_date < l_line_start_date)
392: )
393: THEN
394: x_return_status := OKE_API.G_RET_STS_ERROR;
395: OKE_API.SET_MESSAGE('OKE','OKE_INVALID_LINE_END_DATE');
396: RETURN;
397: end if;
398: end if;
399:
406: CLOSE get_header_dates;
407:
408: if (p_col_name = 'Start Date') then
409: if (l_parent_start_date > l_line_start_date) then
410: x_return_status := OKE_API.G_RET_STS_ERROR;
411: OKE_API.SET_MESSAGE('OKE','OKE_TOPLINE_SD');
412: RETURN;
413: end if;
414: end if;
407:
408: if (p_col_name = 'Start Date') then
409: if (l_parent_start_date > l_line_start_date) then
410: x_return_status := OKE_API.G_RET_STS_ERROR;
411: OKE_API.SET_MESSAGE('OKE','OKE_TOPLINE_SD');
412: RETURN;
413: end if;
414: end if;
415:
414: end if;
415:
416: if (p_col_name = 'End Date') then
417: if (l_line_end_date is null AND l_parent_end_date IS NOT NULL) then
418: OKE_API.SET_MESSAGE('OKE','OKE_TOPLINE_ED');
419: elsif (l_parent_end_date < l_line_end_date) then
420: OKE_API.SET_MESSAGE('OKE','OKE_TOPLINE_ED');
421: end if;
422: end if;
416: if (p_col_name = 'End Date') then
417: if (l_line_end_date is null AND l_parent_end_date IS NOT NULL) then
418: OKE_API.SET_MESSAGE('OKE','OKE_TOPLINE_ED');
419: elsif (l_parent_end_date < l_line_end_date) then
420: OKE_API.SET_MESSAGE('OKE','OKE_TOPLINE_ED');
421: end if;
422: end if;
423:
424: else
426: fetch parent_cursor into l_parent_start_date, l_parent_end_date;
427: close parent_cursor;
428: if (p_col_name = 'Start Date') then
429: if (l_parent_start_date > l_line_start_date) THEN
430: x_return_status := OKE_API.G_RET_STS_ERROR;
431: OKE_API.SET_MESSAGE('OKE','OKE_SUBLINE_SD');
432: RETURN;
433: end if;
434: end if;
427: close parent_cursor;
428: if (p_col_name = 'Start Date') then
429: if (l_parent_start_date > l_line_start_date) THEN
430: x_return_status := OKE_API.G_RET_STS_ERROR;
431: OKE_API.SET_MESSAGE('OKE','OKE_SUBLINE_SD');
432: RETURN;
433: end if;
434: end if;
435:
434: end if;
435:
436: if (p_col_name = 'End Date') then
437: if (l_line_end_date is null AND l_parent_end_date IS NOT NULL) then
438: OKE_API.SET_MESSAGE('OKE','OKE_SUBLINE_ED');
439: elsif (l_parent_end_date < l_line_end_date) then
440: OKE_API.SET_MESSAGE('OKE','OKE_SUBLINE_ED');
441: end if;
442: end if;
436: if (p_col_name = 'End Date') then
437: if (l_line_end_date is null AND l_parent_end_date IS NOT NULL) then
438: OKE_API.SET_MESSAGE('OKE','OKE_SUBLINE_ED');
439: elsif (l_parent_end_date < l_line_end_date) then
440: OKE_API.SET_MESSAGE('OKE','OKE_SUBLINE_ED');
441: end if;
442: end if;
443: end if;
444:
449: fetch child_cursor into child_rec;
450: EXIT WHEN (child_cursor%NOTFOUND OR l_exit=1);
451: if (p_col_name = 'Start Date') then
452: if (l_line_start_date > child_rec.start_date) then
453: OKE_API.SET_MESSAGE('OKE','OKE_WRONG_PARENT_SD');
454: x_return_status := OKE_API.G_RET_STS_ERROR;
455: RAISE OKE_API.G_EXCEPTION_ERROR;
456: end if;
457: end if;
450: EXIT WHEN (child_cursor%NOTFOUND OR l_exit=1);
451: if (p_col_name = 'Start Date') then
452: if (l_line_start_date > child_rec.start_date) then
453: OKE_API.SET_MESSAGE('OKE','OKE_WRONG_PARENT_SD');
454: x_return_status := OKE_API.G_RET_STS_ERROR;
455: RAISE OKE_API.G_EXCEPTION_ERROR;
456: end if;
457: end if;
458:
451: if (p_col_name = 'Start Date') then
452: if (l_line_start_date > child_rec.start_date) then
453: OKE_API.SET_MESSAGE('OKE','OKE_WRONG_PARENT_SD');
454: x_return_status := OKE_API.G_RET_STS_ERROR;
455: RAISE OKE_API.G_EXCEPTION_ERROR;
456: end if;
457: end if;
458:
459: if (p_col_name = 'End Date') then
457: end if;
458:
459: if (p_col_name = 'End Date') then
460: if (l_line_end_date is null AND child_rec.end_date IS NOT NULL) then
461: OKE_API.SET_MESSAGE('OKE','OKE_WRONG_PARENT_ED');
462: l_exit := 1;
463: elsif (l_line_end_date < child_rec.end_date) then
464: OKE_API.SET_MESSAGE('OKE','OKE_WRONG_PARENT_ED');
465: l_exit := 1;
460: if (l_line_end_date is null AND child_rec.end_date IS NOT NULL) then
461: OKE_API.SET_MESSAGE('OKE','OKE_WRONG_PARENT_ED');
462: l_exit := 1;
463: elsif (l_line_end_date < child_rec.end_date) then
464: OKE_API.SET_MESSAGE('OKE','OKE_WRONG_PARENT_ED');
465: l_exit := 1;
466: end if;
467: end if;
468: END LOOP;
474: fetch deliver_cursor into del_rec;
475: EXIT WHEN (deliver_cursor%NOTFOUND OR l_exit = 1);
476: if (p_col_name = 'Start Date'AND l_line_start_date is not null) then
477: if (del_rec.start_date is null) then
478: OKE_API.SET_MESSAGE('OKE','OKE_LINE_DTS_SD');
479: l_exit := 1;
480: elsif (l_line_start_date > del_rec.start_date) then
481: OKE_API.SET_MESSAGE('OKE','OKE_LINE_DTS_SD');
482: l_exit := 1;
477: if (del_rec.start_date is null) then
478: OKE_API.SET_MESSAGE('OKE','OKE_LINE_DTS_SD');
479: l_exit := 1;
480: elsif (l_line_start_date > del_rec.start_date) then
481: OKE_API.SET_MESSAGE('OKE','OKE_LINE_DTS_SD');
482: l_exit := 1;
483: end if;
484: end if;
485:
484: end if;
485:
486: if (p_col_name = 'End Date'AND l_line_end_date is not null) then
487: if (del_rec.end_date is null) then
488: OKE_API.SET_MESSAGE('OKE','OKE_LINE_DTS_ED');
489: l_exit := 1;
490: elsif (l_line_end_date < del_rec.end_date) then
491: OKE_API.SET_MESSAGE('OKE','OKE_LINE_DTS_ED');
492: l_exit := 1;
487: if (del_rec.end_date is null) then
488: OKE_API.SET_MESSAGE('OKE','OKE_LINE_DTS_ED');
489: l_exit := 1;
490: elsif (l_line_end_date < del_rec.end_date) then
491: OKE_API.SET_MESSAGE('OKE','OKE_LINE_DTS_ED');
492: l_exit := 1;
493: end if;
494: end if;
495: END LOOP;
495: END LOOP;
496: close deliver_cursor;
497:
498: EXCEPTION
499: WHEN OKE_API.G_EXCEPTION_ERROR THEN
500: IF child_cursor%ISOPEN THEN
501: CLOSE child_cursor;
502: END IF;
503: IF deliver_cursor%ISOPEN THEN
502: END IF;
503: IF deliver_cursor%ISOPEN THEN
504: CLOSE deliver_cursor;
505: END IF;
506: RAISE OKE_API.G_EXCEPTION_ERROR;
507: WHEN OTHERS THEN
508: -- store SQL error message on message stack
509: OKE_API.SET_MESSAGE(
510: p_app_name =>g_app_name,
505: END IF;
506: RAISE OKE_API.G_EXCEPTION_ERROR;
507: WHEN OTHERS THEN
508: -- store SQL error message on message stack
509: OKE_API.SET_MESSAGE(
510: p_app_name =>g_app_name,
511: p_msg_name =>G_UNEXPECTED_ERROR,
512: p_token1 =>G_SQLCODE_TOKEN,
513: p_token1_value =>SQLCODE,
512: p_token1 =>G_SQLCODE_TOKEN,
513: p_token1_value =>SQLCODE,
514: p_token2 =>G_SQLERRM_TOKEN,
515: p_token2_value =>SQLERRM);
516: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
517:
518: END VALIDATE_line_dates;
519:
520: PROCEDURE VALIDATE_LINE_STATUS (P_LINE_STS_CODE IN VARCHAR2,x_return_status IN OUT NOCOPY VARCHAR2)
527:
528: L_STATUS VARCHAR2(240);
529: BEGIN
530:
531: x_return_status := OKE_API.G_RET_STS_SUCCESS;
532:
533: OPEN c_get_status_type;
534: FETCH c_get_status_type INTO L_STATUS;
535: CLOSE c_get_status_type;
534: FETCH c_get_status_type INTO L_STATUS;
535: CLOSE c_get_status_type;
536:
537: IF L_STATUS NOT IN ('ENTERED' , 'CANCELLED') THEN
538: OKE_API.SET_MESSAGE
539: (p_app_name => g_app_name,
540: p_msg_name => 'OKE_KAUWB_LINE_DELETE_STATUS'
541: );
542: x_return_status := OKE_API.G_RET_STS_ERROR;
538: OKE_API.SET_MESSAGE
539: (p_app_name => g_app_name,
540: p_msg_name => 'OKE_KAUWB_LINE_DELETE_STATUS'
541: );
542: x_return_status := OKE_API.G_RET_STS_ERROR;
543: END IF;
544:
545: EXCEPTION
546: WHEN OTHERS THEN
544:
545: EXCEPTION
546: WHEN OTHERS THEN
547: -- store SQL error message on message stack
548: OKE_API.SET_MESSAGE(
549: p_app_name =>g_app_name,
550: p_msg_name =>G_UNEXPECTED_ERROR,
551: p_token1 =>G_SQLCODE_TOKEN,
552: p_token1_value =>SQLCODE,
551: p_token1 =>G_SQLCODE_TOKEN,
552: p_token1_value =>SQLCODE,
553: p_token2 =>G_SQLERRM_TOKEN,
554: p_token2_value =>SQLERRM);
555: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
556: END VALIDATE_line_Status;
557:
558: FUNCTION CHILD_LINE_EXISTS(p_contract_line_id NUMBER)
559: RETURN VARCHAR2 IS
630:
631: Function Validate_record( p_del_rec IN del_rec_type
632: ) RETURN VARCHAR2 IS
633:
634: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
635: x_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
636:
637: ----------------------------------
638: procedure validate_direction ( p_del_rec IN del_rec_type,
631: Function Validate_record( p_del_rec IN del_rec_type
632: ) RETURN VARCHAR2 IS
633:
634: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
635: x_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
636:
637: ----------------------------------
638: procedure validate_direction ( p_del_rec IN del_rec_type,
639: x_return_status OUT NOCOPY varchar2) is
638: procedure validate_direction ( p_del_rec IN del_rec_type,
639: x_return_status OUT NOCOPY varchar2) is
640: BEGIN
641:
642: x_return_status := OKE_API.G_RET_STS_SUCCESS;
643: if p_del_rec.DIRECTION='IN' then
644:
645: if nvl(p_del_rec.AVAILABLE_FOR_SHIP_FLAG,'N') = 'Y' then
646:
643: if p_del_rec.DIRECTION='IN' then
644:
645: if nvl(p_del_rec.AVAILABLE_FOR_SHIP_FLAG,'N') = 'Y' then
646:
647: OKE_API.SET_MESSAGE( p_app_name => g_app_name,
648: p_msg_name => g_invalid_value,
649: p_token1 => g_col_name_token,
650: p_token1_value => 'AVAILABLE_FOR_SHIP_FLAG');
651: X_Return_Status := OKE_API.G_RET_STS_ERROR;
647: OKE_API.SET_MESSAGE( p_app_name => g_app_name,
648: p_msg_name => g_invalid_value,
649: p_token1 => g_col_name_token,
650: p_token1_value => 'AVAILABLE_FOR_SHIP_FLAG');
651: X_Return_Status := OKE_API.G_RET_STS_ERROR;
652: end if;
653: elsif p_del_rec.DIRECTION='OUT' then
654:
655: if nvl(p_del_rec.READY_TO_PROCURE,'N') = 'Y' then
653: elsif p_del_rec.DIRECTION='OUT' then
654:
655: if nvl(p_del_rec.READY_TO_PROCURE,'N') = 'Y' then
656:
657: OKE_API.SET_MESSAGE( p_app_name => g_app_name,
658: p_msg_name => g_invalid_value,
659: p_token1 => g_col_name_token,
660: p_token1_value => 'READY_TO_PROCURE');
661: X_Return_Status := OKE_API.G_RET_STS_ERROR;
657: OKE_API.SET_MESSAGE( p_app_name => g_app_name,
658: p_msg_name => g_invalid_value,
659: p_token1 => g_col_name_token,
660: p_token1_value => 'READY_TO_PROCURE');
661: X_Return_Status := OKE_API.G_RET_STS_ERROR;
662: end if;
663: end if;
664:
665: EXCEPTION
666:
667: WHEN OTHERS THEN
668:
669: -- store SQL error message on message stack
670: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
671: p_msg_name => g_unexpected_error,
672: p_token1 => g_sqlcode_token,
673: p_token1_value=> sqlcode,
674: p_token2 => g_sqlerrm_token,
673: p_token1_value=> sqlcode,
674: p_token2 => g_sqlerrm_token,
675: p_token2_value=> sqlerrm);
676: -- notify caller of an error as UNEXPETED error
677: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
678: end validate_direction ;
679: ------------------------
680: procedure Check_Currency( p_del_rec IN del_rec_type,
681: x_return_status OUT NOCOPY varchar2) IS
692:
693:
694: BEGIN
695:
696: x_return_status := OKE_API.G_RET_STS_SUCCESS;
697:
698: IF p_del_rec.CURRENCY_CODE IS NOT NULL THEN
699:
700: OPEN C ( p_del_rec.k_header_id );
704: IF NVL(L_Currency_Code, p_del_rec.CURRENCY_CODE ) <> p_del_rec.CURRENCY_CODE THEN
705:
706: iF p_del_rec.RATE_TYPE IS NULL OR p_del_rec.RATE_DATE IS NULL OR p_del_rec.EXCHANGE_RATE IS NULL THEN
707:
708: OKE_API.SET_MESSAGE( p_app_name => g_app_name,
709: p_msg_name => 'OKE_BILL_NO_CONV_RATE');
710:
711: X_Return_Status := OKE_API.G_RET_STS_ERROR;
712:
707:
708: OKE_API.SET_MESSAGE( p_app_name => g_app_name,
709: p_msg_name => 'OKE_BILL_NO_CONV_RATE');
710:
711: X_Return_Status := OKE_API.G_RET_STS_ERROR;
712:
713: END IF;
714:
715: END IF;
720:
721: WHEN OTHERS THEN
722:
723: -- store SQL error message on message stack
724: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
725: p_msg_name => g_unexpected_error,
726: p_token1 => g_sqlcode_token,
727: p_token1_value=> sqlcode,
728: p_token2 => g_sqlerrm_token,
727: p_token1_value=> sqlcode,
728: p_token2 => g_sqlerrm_token,
729: p_token2_value=> sqlerrm);
730: -- notify caller of an error as UNEXPETED error
731: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
732:
733:
734: END Check_Currency;
735:
795: AND ID2 = L_Inventory_Org_ID;
796:
797: begin
798:
799: x_return_status := OKE_API.G_RET_STS_SUCCESS;
800:
801: if nvl(p_del_Rec.create_demand,'N') = 'Y' then
802:
803: if p_del_Rec.item_id is null or p_del_Rec.inventory_org_id is null
884: end if;
885:
886:
887:
888: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
889: p_msg_name => 'OKE_DTS_MISS_REQ_DATA',
890: p_token1 => 'DATA1',
891: p_token1_value => l_message);
892: -- notify caller of an error
889: p_msg_name => 'OKE_DTS_MISS_REQ_DATA',
890: p_token1 => 'DATA1',
891: p_token1_value => l_message);
892: -- notify caller of an error
893: X_Return_Status := OKE_API.G_RET_STS_ERROR;
894:
895:
896: elsif p_del_rec.ITEM_ID IS NOT NULL THEN
897: -- check if the item is shippable
902:
903: if l_value <> 'X' OR l_value is null then
904:
905:
906: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
907: p_msg_name => 'OKE_INVALID_ITEM');
908: -- notify caller of an error
909: X_Return_Status := OKE_API.G_RET_STS_ERROR;
910:
905:
906: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
907: p_msg_name => 'OKE_INVALID_ITEM');
908: -- notify caller of an error
909: X_Return_Status := OKE_API.G_RET_STS_ERROR;
910:
911: end if;
912:
913: else
924: ,p_del_rec.k_line_id
925: ,p_del_rec.deliverable_id);
926:
927: if l_hold then
928: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
929: p_msg_name => 'OKE_DELIVERABLE_ON_HOLD');
930: -- notify caller of an error
931: X_Return_Status := OKE_API.G_RET_STS_ERROR;
932:
927: if l_hold then
928: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
929: p_msg_name => 'OKE_DELIVERABLE_ON_HOLD');
930: -- notify caller of an error
931: X_Return_Status := OKE_API.G_RET_STS_ERROR;
932:
933: end if;
934: end if;
935: end if; --create_demand
1018: end if;
1019:
1020: end if;
1021:
1022: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1023: p_msg_name => 'OKE_DTS_MISS_REQ_DATA',
1024: p_token1 => 'DATA1',
1025: p_token1_value => l_message);
1026: -- notify caller of an error
1023: p_msg_name => 'OKE_DTS_MISS_REQ_DATA',
1024: p_token1 => 'DATA1',
1025: p_token1_value => l_message);
1026: -- notify caller of an error
1027: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1028:
1029:
1030:
1031: elsif p_del_rec.ITEM_ID IS NOT NULL THEN
1038: if l_value <> 'X' OR l_value is null then
1039: fnd_message.set_name('OKE', 'OKE_DTS_NOT_SHIPPABLE');
1040: l_msg := fnd_message.get;
1041:
1042: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1043: p_msg_name => 'OKE_INVALID_ITEM',
1044: p_token1 => 'TOKEN',
1045: p_token1_value => l_msg);
1046: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1042: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1043: p_msg_name => 'OKE_INVALID_ITEM',
1044: p_token1 => 'TOKEN',
1045: p_token1_value => l_msg);
1046: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1047: end if;
1048:
1049:
1050: else
1060: ,p_del_rec.deliverable_id);
1061:
1062: if l_hold then
1063:
1064: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1065: p_msg_name => 'OKE_DELIVERABLE_ON_HOLD');
1066: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1067: end if;
1068: end if; --item id is null
1062: if l_hold then
1063:
1064: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1065: p_msg_name => 'OKE_DELIVERABLE_ON_HOLD');
1066: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1067: end if;
1068: end if; --item id is null
1069:
1070:
1076:
1077: If p_del_rec.weight is null or p_del_rec.weight_uom_code is null or p_del_rec.volume is null or p_del_rec.volume_uom_code is null then
1078:
1079:
1080: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1081: p_msg_name => 'OKE_NON_ITEM_SHIP_DATA');
1082: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1083: end if;
1084: end if;
1078:
1079:
1080: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1081: p_msg_name => 'OKE_NON_ITEM_SHIP_DATA');
1082: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1083: end if;
1084: end if;
1085:
1086: end if; --available for ship
1091: l_msg := fnd_message.get;
1092:
1093:
1094:
1095: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1096: p_msg_name => 'OKE_DTS_NOT_ACTION_LINE',
1097: p_token1 => 'TOKEN',
1098: p_token1_value => l_msg);
1099: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1095: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1096: p_msg_name => 'OKE_DTS_NOT_ACTION_LINE',
1097: p_token1 => 'TOKEN',
1098: p_token1_value => l_msg);
1099: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1100:
1101: END IF;
1102:
1103: end if; --shippable_flag
1110: l_msg := fnd_message.get;
1111:
1112:
1113:
1114: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1115: p_msg_name => 'OKE_DTS_NOT_ACTION_LINE',
1116: p_token1 => 'TOKEN',
1117: p_token1_value => l_msg);
1118: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1114: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1115: p_msg_name => 'OKE_DTS_NOT_ACTION_LINE',
1116: p_token1 => 'TOKEN',
1117: p_token1_value => l_msg);
1118: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1119:
1120: end if;
1121: end if;
1122:
1130: fnd_message.set_name('OKE', 'OKE_DTS_NOT_BILLABLE');
1131: l_msg := fnd_message.get;
1132:
1133:
1134: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1135: p_msg_name => 'OKE_INVALID_ITEM',
1136: p_token1 => 'TOKEN',
1137: p_token1_value => l_msg);
1138: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1134: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1135: p_msg_name => 'OKE_INVALID_ITEM',
1136: p_token1 => 'TOKEN',
1137: p_token1_value => l_msg);
1138: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1139:
1140: end if;
1141: end if;
1142:
1149: if l_value <> 'X' or l_value is null then
1150: fnd_message.set_name('OKE', 'OKE_DTS_NOT_SHIPPABLE');
1151: l_msg := fnd_message.get;
1152:
1153: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1154: p_msg_name => 'OKE_INVALID_ITEM',
1155: p_token1 => 'TOKEN',
1156: p_token1_value => l_msg);
1157: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1153: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1154: p_msg_name => 'OKE_INVALID_ITEM',
1155: p_token1 => 'TOKEN',
1156: p_token1_value => l_msg);
1157: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1158: end if;
1159: end if;
1160:
1161:
1323:
1324: If L_Message Is Not Null Then
1325:
1326:
1327: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1328: p_msg_name => 'OKE_DTS_MISS_REQ_DATA',
1329: p_token1 =>'DATA1',
1330: p_token1_value => l_message);
1331: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1327: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1328: p_msg_name => 'OKE_DTS_MISS_REQ_DATA',
1329: p_token1 =>'DATA1',
1330: p_token1_value => l_message);
1331: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1332: End If;
1333:
1334:
1335: elsif p_del_rec.ITEM_ID IS NOT NULL THEN
1344: fnd_message.set_name('OKE', 'OKE_DTS_NOT_PURCHASABLE');
1345: l_msg := fnd_message.get;
1346:
1347:
1348: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1349: p_msg_name => 'OKE_INVALID_ITEM',
1350: p_token1 =>'TOKEN',
1351: p_token1_value => l_mSG);
1352: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1348: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1349: p_msg_name => 'OKE_INVALID_ITEM',
1350: p_token1 =>'TOKEN',
1351: p_token1_value => l_mSG);
1352: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1353: end if;
1354:
1355:
1356:
1367: ,p_del_Rec.deliverable_id);
1368:
1369: if l_hold then
1370:
1371: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1372: p_msg_name => 'OKE_DELIVERABLE_ON_HOLD');
1373: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1374: end if;
1375: end if;
1369: if l_hold then
1370:
1371: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1372: p_msg_name => 'OKE_DELIVERABLE_ON_HOLD');
1373: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1374: end if;
1375: end if;
1376:
1377:
1386:
1387: if l_unit = 2 then
1388: if p_del_rec.unit_number is null then
1389:
1390: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1391: p_msg_name => 'OKE_UNIT_NUMBER_REQUIRED');
1392: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1393: end if;
1394: end if;
1388: if p_del_rec.unit_number is null then
1389:
1390: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1391: p_msg_name => 'OKE_UNIT_NUMBER_REQUIRED');
1392: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1393: end if;
1394: end if;
1395:
1396: END IF;
1399:
1400: WHEN OTHERS THEN
1401:
1402: -- store SQL error message on message stack
1403: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1404: p_msg_name => g_unexpected_error,
1405: p_token1 => g_sqlcode_token,
1406: p_token1_value=> sqlcode,
1407: p_token2 => g_sqlerrm_token,
1406: p_token1_value=> sqlcode,
1407: p_token2 => g_sqlerrm_token,
1408: p_token2_value=> sqlerrm);
1409: -- notify caller of an error as UNEXPETED error
1410: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1411:
1412:
1413:
1414: end check_data;
1417:
1418: check_data( p_del_rec => p_del_rec,
1419: x_return_status => l_return_status);
1420:
1421: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1422: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1423: x_return_status := l_return_status;
1424: End If;
1425: End If;
1418: check_data( p_del_rec => p_del_rec,
1419: x_return_status => l_return_status);
1420:
1421: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1422: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1423: x_return_status := l_return_status;
1424: End If;
1425: End If;
1426:
1426:
1427: Check_Currency( p_del_rec => p_del_rec,
1428: x_return_status => l_return_status);
1429:
1430: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1431: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1432: x_return_status := l_return_status;
1433: End If;
1434: End If;
1427: Check_Currency( p_del_rec => p_del_rec,
1428: x_return_status => l_return_status);
1429:
1430: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1431: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1432: x_return_status := l_return_status;
1433: End If;
1434: End If;
1435:
1435:
1436: Validate_direction( p_del_rec => p_del_rec,
1437: x_return_status => l_return_status);
1438:
1439: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1440: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1441: x_return_status := l_return_status;
1442: End If;
1443: End If;
1436: Validate_direction( p_del_rec => p_del_rec,
1437: x_return_status => l_return_status);
1438:
1439: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1440: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1441: x_return_status := l_return_status;
1442: End If;
1443: End If;
1444:
1446:
1447: exception
1448: WHEN OTHERS THEN
1449: -- store SQL error message on message stack
1450: OKE_API.SET_MESSAGE(
1451: p_app_name =>g_app_name,
1452: p_msg_name =>G_UNEXPECTED_ERROR,
1453: p_token1 =>G_SQLCODE_TOKEN,
1454: p_token1_value =>SQLCODE,
1454: p_token1_value =>SQLCODE,
1455: p_token2 =>G_SQLERRM_TOKEN,
1456: p_token2_value =>SQLERRM);
1457:
1458: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1459:
1460: RETURN(x_return_status);
1461:
1462:
1465:
1466: PROCEDURE create_contract_header(
1467:
1468: p_api_version IN NUMBER,
1469: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1470: p_ignore_oke_validation IN VARCHAR2 DEFAULT 'N',
1471: x_return_status OUT NOCOPY VARCHAR2,
1472: x_msg_count OUT NOCOPY NUMBER,
1473: x_msg_data OUT NOCOPY VARCHAR2,
1476: x_chr_rec OUT NOCOPY chr_rec_type) IS
1477:
1478: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_HEADER';
1479: l_api_version CONSTANT NUMBER := 1.0;
1480: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1481:
1482:
1483: l_okc_chrv_rec OKC_CONTRACT_PUB.chrv_rec_type;
1484: l_oke_chr_rec OKE_CONTRACT_PUB.chr_rec_type;
1490:
1491: BEGIN
1492: -- call START_ACTIVITY to create savepoint, check compatibility
1493: -- and initialize message list
1494: l_return_status := OKE_API.START_ACTIVITY(
1495: p_api_name => l_api_name,
1496: p_pkg_name => g_pkg_name,
1497: p_init_msg_list => p_init_msg_list,
1498: l_api_version => l_api_version,
1500: p_api_type => g_api_type,
1501: x_return_status => x_return_status);
1502:
1503: -- check if activity started successfully
1504: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1505: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1506: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1507: raise OKE_API.G_EXCEPTION_ERROR;
1508: End If;
1501: x_return_status => x_return_status);
1502:
1503: -- check if activity started successfully
1504: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1505: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1506: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1507: raise OKE_API.G_EXCEPTION_ERROR;
1508: End If;
1509:
1502:
1503: -- check if activity started successfully
1504: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1505: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1506: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1507: raise OKE_API.G_EXCEPTION_ERROR;
1508: End If;
1509:
1510:
1503: -- check if activity started successfully
1504: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1505: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1506: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1507: raise OKE_API.G_EXCEPTION_ERROR;
1508: End If;
1509:
1510:
1511:
1667: If nvl(p_ignore_oke_validation,'N') = 'N' then
1668: Validate_OKC_header_fields ( l_return_status, p_chr_rec );
1669:
1670: --- If any errors happen abort API
1671: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1672: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1673: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1674: RAISE OKE_API.G_EXCEPTION_ERROR;
1675: END IF;
1668: Validate_OKC_header_fields ( l_return_status, p_chr_rec );
1669:
1670: --- If any errors happen abort API
1671: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1672: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1673: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1674: RAISE OKE_API.G_EXCEPTION_ERROR;
1675: END IF;
1676: end if;
1669:
1670: --- If any errors happen abort API
1671: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1672: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1673: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1674: RAISE OKE_API.G_EXCEPTION_ERROR;
1675: END IF;
1676: end if;
1677:
1670: --- If any errors happen abort API
1671: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1672: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1673: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1674: RAISE OKE_API.G_EXCEPTION_ERROR;
1675: END IF;
1676: end if;
1677:
1678: -- assign mandatory values
1693: p_chrv_rec => l_okc_chrv_rec,
1694: x_chr_rec => l_out_chr,
1695: x_chrv_rec => l_out_chrv );
1696:
1697: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1698: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1699: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1700: raise OKE_API.G_EXCEPTION_ERROR;
1701: End If;
1694: x_chr_rec => l_out_chr,
1695: x_chrv_rec => l_out_chrv );
1696:
1697: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1698: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1699: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1700: raise OKE_API.G_EXCEPTION_ERROR;
1701: End If;
1702:
1695: x_chrv_rec => l_out_chrv );
1696:
1697: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1698: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1699: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1700: raise OKE_API.G_EXCEPTION_ERROR;
1701: End If;
1702:
1703:
1696:
1697: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1698: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1699: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
1700: raise OKE_API.G_EXCEPTION_ERROR;
1701: End If;
1702:
1703:
1704:
1703:
1704:
1705: -- Added code to update who columns. neccessary for security to work after import process.
1706:
1707: IF p_chr_rec.created_by <> OKE_API.G_MISS_NUM AND p_chr_rec.created_by IS NOT NULL THEN
1708: UPDATE OKE_K_HEADERS SET CREATED_BY = p_chr_rec.created_by
1709: WHERE K_HEADER_ID = l_out_chr.k_header_id;
1710: END IF;
1711: IF p_chr_rec.creation_date <> OKE_API.G_MISS_DATE AND p_chr_rec.creation_date IS NOT NULL THEN
1707: IF p_chr_rec.created_by <> OKE_API.G_MISS_NUM AND p_chr_rec.created_by IS NOT NULL THEN
1708: UPDATE OKE_K_HEADERS SET CREATED_BY = p_chr_rec.created_by
1709: WHERE K_HEADER_ID = l_out_chr.k_header_id;
1710: END IF;
1711: IF p_chr_rec.creation_date <> OKE_API.G_MISS_DATE AND p_chr_rec.creation_date IS NOT NULL THEN
1712: UPDATE OKE_K_HEADERS SET CREATION_DATE = p_chr_rec.creation_date
1713: WHERE K_HEADER_ID = l_out_chr.k_header_id;
1714: END IF;
1715: IF p_chr_rec.last_updated_by <> OKE_API.G_MISS_NUM AND p_chr_rec.last_updated_by IS NOT NULL THEN
1711: IF p_chr_rec.creation_date <> OKE_API.G_MISS_DATE AND p_chr_rec.creation_date IS NOT NULL THEN
1712: UPDATE OKE_K_HEADERS SET CREATION_DATE = p_chr_rec.creation_date
1713: WHERE K_HEADER_ID = l_out_chr.k_header_id;
1714: END IF;
1715: IF p_chr_rec.last_updated_by <> OKE_API.G_MISS_NUM AND p_chr_rec.last_updated_by IS NOT NULL THEN
1716: UPDATE OKE_K_HEADERS SET LAST_UPDATED_BY = p_chr_rec.last_updated_by
1717: WHERE K_HEADER_ID = l_out_chr.k_header_id;
1718: END IF;
1719: IF p_chr_rec.last_update_login <> OKE_API.G_MISS_NUM AND p_chr_rec.last_update_login IS NOT NULL THEN
1715: IF p_chr_rec.last_updated_by <> OKE_API.G_MISS_NUM AND p_chr_rec.last_updated_by IS NOT NULL THEN
1716: UPDATE OKE_K_HEADERS SET LAST_UPDATED_BY = p_chr_rec.last_updated_by
1717: WHERE K_HEADER_ID = l_out_chr.k_header_id;
1718: END IF;
1719: IF p_chr_rec.last_update_login <> OKE_API.G_MISS_NUM AND p_chr_rec.last_update_login IS NOT NULL THEN
1720: UPDATE OKE_K_HEADERS SET LAST_UPDATE_LOGIN = p_chr_rec.last_update_login
1721: WHERE K_HEADER_ID = l_out_chr.k_header_id;
1722: END IF;
1723: IF p_chr_rec.last_update_date <> OKE_API.G_MISS_DATE AND p_chr_rec.last_update_date IS NOT NULL THEN
1719: IF p_chr_rec.last_update_login <> OKE_API.G_MISS_NUM AND p_chr_rec.last_update_login IS NOT NULL THEN
1720: UPDATE OKE_K_HEADERS SET LAST_UPDATE_LOGIN = p_chr_rec.last_update_login
1721: WHERE K_HEADER_ID = l_out_chr.k_header_id;
1722: END IF;
1723: IF p_chr_rec.last_update_date <> OKE_API.G_MISS_DATE AND p_chr_rec.last_update_date IS NOT NULL THEN
1724: UPDATE OKE_K_HEADERS SET LAST_UPDATE_DATE = p_chr_rec.last_update_date
1725: WHERE K_HEADER_ID = l_out_chr.k_header_id;
1726: END IF;
1727:
1882: x_chr_rec.last_update_login := l_out_chrv.last_update_login;
1883:
1884:
1885:
1886: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1887: x_msg_data => x_msg_data);
1888: EXCEPTION
1889: when OKE_API.G_EXCEPTION_ERROR then
1890: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1885:
1886: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1887: x_msg_data => x_msg_data);
1888: EXCEPTION
1889: when OKE_API.G_EXCEPTION_ERROR then
1890: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1891: p_api_name => l_api_name,
1892: p_pkg_name => g_pkg_name,
1893: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1886: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1887: x_msg_data => x_msg_data);
1888: EXCEPTION
1889: when OKE_API.G_EXCEPTION_ERROR then
1890: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1891: p_api_name => l_api_name,
1892: p_pkg_name => g_pkg_name,
1893: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1894: x_msg_count => x_msg_count,
1889: when OKE_API.G_EXCEPTION_ERROR then
1890: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1891: p_api_name => l_api_name,
1892: p_pkg_name => g_pkg_name,
1893: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1894: x_msg_count => x_msg_count,
1895: x_msg_data => x_msg_data,
1896: p_api_type => g_api_type);
1897:
1894: x_msg_count => x_msg_count,
1895: x_msg_data => x_msg_data,
1896: p_api_type => g_api_type);
1897:
1898: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1899: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1900: p_api_name => l_api_name,
1901: p_pkg_name => g_pkg_name,
1902: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1895: x_msg_data => x_msg_data,
1896: p_api_type => g_api_type);
1897:
1898: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1899: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1900: p_api_name => l_api_name,
1901: p_pkg_name => g_pkg_name,
1902: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1903: x_msg_count => x_msg_count,
1898: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1899: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1900: p_api_name => l_api_name,
1901: p_pkg_name => g_pkg_name,
1902: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1903: x_msg_count => x_msg_count,
1904: x_msg_data => x_msg_data,
1905: p_api_type => g_api_type);
1906:
1904: x_msg_data => x_msg_data,
1905: p_api_type => g_api_type);
1906:
1907: when OTHERS then
1908: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1909: p_api_name => l_api_name,
1910: p_pkg_name => g_pkg_name,
1911: p_exc_name => 'OTHERS',
1912: x_msg_count => x_msg_count,
1918:
1919: PROCEDURE create_contract_line(
1920:
1921: p_api_version IN NUMBER,
1922: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1923: x_return_status OUT NOCOPY VARCHAR2,
1924: x_msg_count OUT NOCOPY NUMBER,
1925: x_msg_data OUT NOCOPY VARCHAR2,
1926: p_cle_rec IN cle_rec_type,
1924: x_msg_count OUT NOCOPY NUMBER,
1925: x_msg_data OUT NOCOPY VARCHAR2,
1926: p_cle_rec IN cle_rec_type,
1927: x_cle_rec OUT NOCOPY cle_rec_type,
1928: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE
1929: ) IS
1930:
1931: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
1932: l_api_version CONSTANT NUMBER := 1.0;
1929: ) IS
1930:
1931: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
1932: l_api_version CONSTANT NUMBER := 1.0;
1933: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1934:
1935: l_okc_clev_rec OKC_CONTRACT_PUB.clev_rec_type;
1936: l_oke_cle_rec OKE_CONTRACT_PUB.cle_rec_type;
1937: l_out_clev OKC_CONTRACT_PUB.clev_rec_type;
1949:
1950: BEGIN
1951: -- call START_ACTIVITY to create savepoint, check compatibility
1952: -- and initialize message list
1953: l_return_status := OKE_API.START_ACTIVITY(
1954: p_api_name => l_api_name,
1955: p_pkg_name => g_pkg_name,
1956: p_init_msg_list => p_init_msg_list,
1957: l_api_version => l_api_version,
1959: p_api_type => g_api_type,
1960: x_return_status => x_return_status);
1961:
1962: -- check if activity started successfully
1963: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1964: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1965: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1966: raise OKE_API.G_EXCEPTION_ERROR;
1967: End If;
1960: x_return_status => x_return_status);
1961:
1962: -- check if activity started successfully
1963: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1964: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1965: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1966: raise OKE_API.G_EXCEPTION_ERROR;
1967: End If;
1968:
1961:
1962: -- check if activity started successfully
1963: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1964: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1965: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1966: raise OKE_API.G_EXCEPTION_ERROR;
1967: End If;
1968:
1969:
1962: -- check if activity started successfully
1963: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1964: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1965: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1966: raise OKE_API.G_EXCEPTION_ERROR;
1967: End If;
1968:
1969:
1970:
2133:
2134: Validate_OKC_line_fields ( l_return_status, p_cle_rec );
2135:
2136: --- If any errors happen abort API
2137: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2138: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2139: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2140: RAISE OKE_API.G_EXCEPTION_ERROR;
2141: END IF;
2134: Validate_OKC_line_fields ( l_return_status, p_cle_rec );
2135:
2136: --- If any errors happen abort API
2137: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2138: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2139: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2140: RAISE OKE_API.G_EXCEPTION_ERROR;
2141: END IF;
2142:
2135:
2136: --- If any errors happen abort API
2137: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2138: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2139: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2140: RAISE OKE_API.G_EXCEPTION_ERROR;
2141: END IF;
2142:
2143: /*skuchima bugs 14380256 */
2136: --- If any errors happen abort API
2137: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2138: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2139: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2140: RAISE OKE_API.G_EXCEPTION_ERROR;
2141: END IF;
2142:
2143: /*skuchima bugs 14380256 */
2144: IF (FND_API.G_TRUE = p_skip_minor_vers ) THEN
2157: x_clev_rec => l_out_clev );
2158:
2159: okc_cvm_pvt.defer_minor_version_update('F');
2160:
2161: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2162: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2163: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2164: raise OKE_API.G_EXCEPTION_ERROR;
2165: End If;
2158:
2159: okc_cvm_pvt.defer_minor_version_update('F');
2160:
2161: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2162: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2163: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2164: raise OKE_API.G_EXCEPTION_ERROR;
2165: End If;
2166:
2159: okc_cvm_pvt.defer_minor_version_update('F');
2160:
2161: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2162: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2163: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2164: raise OKE_API.G_EXCEPTION_ERROR;
2165: End If;
2166:
2167:
2160:
2161: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2162: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2163: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2164: raise OKE_API.G_EXCEPTION_ERROR;
2165: End If;
2166:
2167:
2168: x_cle_rec.k_line_id := l_out_cle.k_line_id;
2328: x_cle_rec.last_update_login := l_out_clev.last_update_login;
2329:
2330:
2331: -- IF successful: create line item if necessary
2332: IF x_return_status = OKE_API.G_RET_STS_SUCCESS
2333: AND x_cle_rec.inventory_item_id IS NOT NULL THEN
2334:
2335: OPEN get_inventory_org (x_cle_rec.DNZ_CHR_ID);
2336: FETCH get_inventory_org INTO l_inv_org;
2363: x_msg_data => x_msg_data,
2364: p_cimv_rec => l_cimv_rec,
2365: x_cimv_rec => l_cimv_out );
2366:
2367: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2368: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2369: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2370: raise OKE_API.G_EXCEPTION_ERROR;
2371: End If;
2364: p_cimv_rec => l_cimv_rec,
2365: x_cimv_rec => l_cimv_out );
2366:
2367: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2368: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2369: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2370: raise OKE_API.G_EXCEPTION_ERROR;
2371: End If;
2372:
2365: x_cimv_rec => l_cimv_out );
2366:
2367: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2368: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2369: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2370: raise OKE_API.G_EXCEPTION_ERROR;
2371: End If;
2372:
2373: END IF;
2366:
2367: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2368: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2369: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2370: raise OKE_API.G_EXCEPTION_ERROR;
2371: End If;
2372:
2373: END IF;
2374:
2372:
2373: END IF;
2374:
2375:
2376: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2377: x_msg_data => x_msg_data);
2378: EXCEPTION
2379: when OKE_API.G_EXCEPTION_ERROR then
2380: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2375:
2376: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2377: x_msg_data => x_msg_data);
2378: EXCEPTION
2379: when OKE_API.G_EXCEPTION_ERROR then
2380: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2381: p_api_name => l_api_name,
2382: p_pkg_name => g_pkg_name,
2383: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2376: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2377: x_msg_data => x_msg_data);
2378: EXCEPTION
2379: when OKE_API.G_EXCEPTION_ERROR then
2380: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2381: p_api_name => l_api_name,
2382: p_pkg_name => g_pkg_name,
2383: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2384: x_msg_count => x_msg_count,
2379: when OKE_API.G_EXCEPTION_ERROR then
2380: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2381: p_api_name => l_api_name,
2382: p_pkg_name => g_pkg_name,
2383: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2384: x_msg_count => x_msg_count,
2385: x_msg_data => x_msg_data,
2386: p_api_type => g_api_type);
2387:
2384: x_msg_count => x_msg_count,
2385: x_msg_data => x_msg_data,
2386: p_api_type => g_api_type);
2387:
2388: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2389: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2390: p_api_name => l_api_name,
2391: p_pkg_name => g_pkg_name,
2392: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2385: x_msg_data => x_msg_data,
2386: p_api_type => g_api_type);
2387:
2388: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2389: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2390: p_api_name => l_api_name,
2391: p_pkg_name => g_pkg_name,
2392: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2393: x_msg_count => x_msg_count,
2388: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2389: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2390: p_api_name => l_api_name,
2391: p_pkg_name => g_pkg_name,
2392: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2393: x_msg_count => x_msg_count,
2394: x_msg_data => x_msg_data,
2395: p_api_type => g_api_type);
2396:
2394: x_msg_data => x_msg_data,
2395: p_api_type => g_api_type);
2396:
2397: when OTHERS then
2398: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2399: p_api_name => l_api_name,
2400: p_pkg_name => g_pkg_name,
2401: p_exc_name => 'OTHERS',
2402: x_msg_count => x_msg_count,
2409:
2410: PROCEDURE create_deliverable(
2411:
2412: p_api_version IN NUMBER,
2413: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
2414: x_return_status OUT NOCOPY VARCHAR2,
2415: x_msg_count OUT NOCOPY NUMBER,
2416: x_msg_data OUT NOCOPY VARCHAR2,
2417:
2419: x_del_rec OUT NOCOPY del_rec_type) IS
2420:
2421: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_DELIVERABLE';
2422: l_api_version CONSTANT NUMBER := 1.0;
2423: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2424:
2425: l_del_rec OKE_CONTRACT_PUB.del_rec_type;
2426:
2427: CURSOR get_inv_org IS
2451:
2452: BEGIN
2453:
2454:
2455: IF l_del_rec.DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
2456: l_del_rec.DELIVERABLE_ID := NULL;
2457: END IF;
2458:
2459: IF l_del_rec.DELIVERABLE_NUM = OKE_API.G_MISS_CHAR THEN
2455: IF l_del_rec.DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
2456: l_del_rec.DELIVERABLE_ID := NULL;
2457: END IF;
2458:
2459: IF l_del_rec.DELIVERABLE_NUM = OKE_API.G_MISS_CHAR THEN
2460: l_del_rec.DELIVERABLE_NUM := NULL;
2461: END IF;
2462:
2463: IF l_del_rec.PROJECT_ID = OKE_API.G_MISS_NUM THEN
2459: IF l_del_rec.DELIVERABLE_NUM = OKE_API.G_MISS_CHAR THEN
2460: l_del_rec.DELIVERABLE_NUM := NULL;
2461: END IF;
2462:
2463: IF l_del_rec.PROJECT_ID = OKE_API.G_MISS_NUM THEN
2464: l_del_rec.PROJECT_ID := NULL;
2465: END IF;
2466:
2467: IF l_del_rec.TASK_ID = OKE_API.G_MISS_NUM THEN
2463: IF l_del_rec.PROJECT_ID = OKE_API.G_MISS_NUM THEN
2464: l_del_rec.PROJECT_ID := NULL;
2465: END IF;
2466:
2467: IF l_del_rec.TASK_ID = OKE_API.G_MISS_NUM THEN
2468: l_del_rec.TASK_ID := NULL;
2469: END IF;
2470:
2471: IF l_del_rec.ITEM_ID = OKE_API.G_MISS_NUM THEN
2467: IF l_del_rec.TASK_ID = OKE_API.G_MISS_NUM THEN
2468: l_del_rec.TASK_ID := NULL;
2469: END IF;
2470:
2471: IF l_del_rec.ITEM_ID = OKE_API.G_MISS_NUM THEN
2472: l_del_rec.ITEM_ID := NULL;
2473: END IF;
2474:
2475: IF l_del_rec.K_HEADER_ID = OKE_API.G_MISS_NUM THEN
2471: IF l_del_rec.ITEM_ID = OKE_API.G_MISS_NUM THEN
2472: l_del_rec.ITEM_ID := NULL;
2473: END IF;
2474:
2475: IF l_del_rec.K_HEADER_ID = OKE_API.G_MISS_NUM THEN
2476: l_del_rec.K_HEADER_ID := NULL;
2477: END IF;
2478:
2479: IF l_del_rec.K_LINE_ID = OKE_API.G_MISS_NUM THEN
2475: IF l_del_rec.K_HEADER_ID = OKE_API.G_MISS_NUM THEN
2476: l_del_rec.K_HEADER_ID := NULL;
2477: END IF;
2478:
2479: IF l_del_rec.K_LINE_ID = OKE_API.G_MISS_NUM THEN
2480: l_del_rec.K_LINE_ID := NULL;
2481: END IF;
2482:
2483: IF l_del_rec.DELIVERY_DATE = OKE_API.G_MISS_DATE THEN
2479: IF l_del_rec.K_LINE_ID = OKE_API.G_MISS_NUM THEN
2480: l_del_rec.K_LINE_ID := NULL;
2481: END IF;
2482:
2483: IF l_del_rec.DELIVERY_DATE = OKE_API.G_MISS_DATE THEN
2484: l_del_rec.DELIVERY_DATE := NULL;
2485: END IF;
2486:
2487: IF l_del_rec.STATUS_CODE = OKE_API.G_MISS_CHAR THEN
2483: IF l_del_rec.DELIVERY_DATE = OKE_API.G_MISS_DATE THEN
2484: l_del_rec.DELIVERY_DATE := NULL;
2485: END IF;
2486:
2487: IF l_del_rec.STATUS_CODE = OKE_API.G_MISS_CHAR THEN
2488: l_del_rec.STATUS_CODE := NULL;
2489: END IF;
2490:
2491: IF l_del_rec.PARENT_DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
2487: IF l_del_rec.STATUS_CODE = OKE_API.G_MISS_CHAR THEN
2488: l_del_rec.STATUS_CODE := NULL;
2489: END IF;
2490:
2491: IF l_del_rec.PARENT_DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
2492: l_del_rec.PARENT_DELIVERABLE_ID := NULL;
2493: END IF;
2494:
2495: IF l_del_rec.SHIP_TO_ORG_ID = OKE_API.G_MISS_NUM THEN
2491: IF l_del_rec.PARENT_DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
2492: l_del_rec.PARENT_DELIVERABLE_ID := NULL;
2493: END IF;
2494:
2495: IF l_del_rec.SHIP_TO_ORG_ID = OKE_API.G_MISS_NUM THEN
2496: l_del_rec.SHIP_TO_ORG_ID := NULL;
2497: END IF;
2498:
2499: IF l_del_rec.SHIP_TO_LOCATION_ID = OKE_API.G_MISS_NUM THEN
2495: IF l_del_rec.SHIP_TO_ORG_ID = OKE_API.G_MISS_NUM THEN
2496: l_del_rec.SHIP_TO_ORG_ID := NULL;
2497: END IF;
2498:
2499: IF l_del_rec.SHIP_TO_LOCATION_ID = OKE_API.G_MISS_NUM THEN
2500: l_del_rec.SHIP_TO_LOCATION_ID := NULL;
2501: END IF;
2502:
2503: IF l_del_rec.SHIP_FROM_ORG_ID = OKE_API.G_MISS_NUM THEN
2499: IF l_del_rec.SHIP_TO_LOCATION_ID = OKE_API.G_MISS_NUM THEN
2500: l_del_rec.SHIP_TO_LOCATION_ID := NULL;
2501: END IF;
2502:
2503: IF l_del_rec.SHIP_FROM_ORG_ID = OKE_API.G_MISS_NUM THEN
2504: l_del_rec.SHIP_FROM_ORG_ID := NULL;
2505: END IF;
2506:
2507: IF l_del_rec.SHIP_FROM_LOCATION_ID = OKE_API.G_MISS_NUM THEN
2503: IF l_del_rec.SHIP_FROM_ORG_ID = OKE_API.G_MISS_NUM THEN
2504: l_del_rec.SHIP_FROM_ORG_ID := NULL;
2505: END IF;
2506:
2507: IF l_del_rec.SHIP_FROM_LOCATION_ID = OKE_API.G_MISS_NUM THEN
2508: l_del_rec.SHIP_FROM_LOCATION_ID := NULL;
2509: END IF;
2510:
2511: IF l_del_rec.INVENTORY_ORG_ID = OKE_API.G_MISS_NUM THEN
2507: IF l_del_rec.SHIP_FROM_LOCATION_ID = OKE_API.G_MISS_NUM THEN
2508: l_del_rec.SHIP_FROM_LOCATION_ID := NULL;
2509: END IF;
2510:
2511: IF l_del_rec.INVENTORY_ORG_ID = OKE_API.G_MISS_NUM THEN
2512: l_del_rec.INVENTORY_ORG_ID := NULL;
2513: END IF;
2514:
2515: IF l_del_rec.DIRECTION = OKE_API.G_MISS_CHAR THEN
2511: IF l_del_rec.INVENTORY_ORG_ID = OKE_API.G_MISS_NUM THEN
2512: l_del_rec.INVENTORY_ORG_ID := NULL;
2513: END IF;
2514:
2515: IF l_del_rec.DIRECTION = OKE_API.G_MISS_CHAR THEN
2516: l_del_rec.DIRECTION := NULL;
2517: END IF;
2518:
2519: IF l_del_rec.DEFAULTED_FLAG = OKE_API.G_MISS_CHAR THEN
2515: IF l_del_rec.DIRECTION = OKE_API.G_MISS_CHAR THEN
2516: l_del_rec.DIRECTION := NULL;
2517: END IF;
2518:
2519: IF l_del_rec.DEFAULTED_FLAG = OKE_API.G_MISS_CHAR THEN
2520: l_del_rec.DEFAULTED_FLAG := NULL;
2521: END IF;
2522:
2523: IF l_del_rec.IN_PROCESS_FLAG = OKE_API.G_MISS_CHAR THEN
2519: IF l_del_rec.DEFAULTED_FLAG = OKE_API.G_MISS_CHAR THEN
2520: l_del_rec.DEFAULTED_FLAG := NULL;
2521: END IF;
2522:
2523: IF l_del_rec.IN_PROCESS_FLAG = OKE_API.G_MISS_CHAR THEN
2524: l_del_rec.IN_PROCESS_FLAG := NULL;
2525: END IF;
2526:
2527: IF l_del_rec.WF_ITEM_KEY = OKE_API.G_MISS_CHAR THEN
2523: IF l_del_rec.IN_PROCESS_FLAG = OKE_API.G_MISS_CHAR THEN
2524: l_del_rec.IN_PROCESS_FLAG := NULL;
2525: END IF;
2526:
2527: IF l_del_rec.WF_ITEM_KEY = OKE_API.G_MISS_CHAR THEN
2528: l_del_rec.WF_ITEM_KEY := NULL;
2529: END IF;
2530:
2531: IF l_del_rec.SUB_REF_ID = OKE_API.G_MISS_NUM THEN
2527: IF l_del_rec.WF_ITEM_KEY = OKE_API.G_MISS_CHAR THEN
2528: l_del_rec.WF_ITEM_KEY := NULL;
2529: END IF;
2530:
2531: IF l_del_rec.SUB_REF_ID = OKE_API.G_MISS_NUM THEN
2532: l_del_rec.SUB_REF_ID := NULL;
2533: END IF;
2534:
2535: IF l_del_rec.START_DATE = OKE_API.G_MISS_DATE THEN
2531: IF l_del_rec.SUB_REF_ID = OKE_API.G_MISS_NUM THEN
2532: l_del_rec.SUB_REF_ID := NULL;
2533: END IF;
2534:
2535: IF l_del_rec.START_DATE = OKE_API.G_MISS_DATE THEN
2536: l_del_rec.START_DATE := NULL;
2537: END IF;
2538:
2539: IF l_del_rec.END_DATE = OKE_API.G_MISS_DATE THEN
2535: IF l_del_rec.START_DATE = OKE_API.G_MISS_DATE THEN
2536: l_del_rec.START_DATE := NULL;
2537: END IF;
2538:
2539: IF l_del_rec.END_DATE = OKE_API.G_MISS_DATE THEN
2540: l_del_rec.END_DATE := NULL;
2541: END IF;
2542:
2543: IF l_del_rec.PRIORITY_CODE = OKE_API.G_MISS_CHAR THEN
2539: IF l_del_rec.END_DATE = OKE_API.G_MISS_DATE THEN
2540: l_del_rec.END_DATE := NULL;
2541: END IF;
2542:
2543: IF l_del_rec.PRIORITY_CODE = OKE_API.G_MISS_CHAR THEN
2544: l_del_rec.PRIORITY_CODE := NULL;
2545: END IF;
2546:
2547: IF l_del_rec.CURRENCY_CODE = OKE_API.G_MISS_CHAR THEN
2543: IF l_del_rec.PRIORITY_CODE = OKE_API.G_MISS_CHAR THEN
2544: l_del_rec.PRIORITY_CODE := NULL;
2545: END IF;
2546:
2547: IF l_del_rec.CURRENCY_CODE = OKE_API.G_MISS_CHAR THEN
2548: l_del_rec.CURRENCY_CODE := NULL;
2549: END IF;
2550:
2551: IF l_del_rec.UNIT_PRICE = OKE_API.G_MISS_NUM THEN
2547: IF l_del_rec.CURRENCY_CODE = OKE_API.G_MISS_CHAR THEN
2548: l_del_rec.CURRENCY_CODE := NULL;
2549: END IF;
2550:
2551: IF l_del_rec.UNIT_PRICE = OKE_API.G_MISS_NUM THEN
2552: l_del_rec.UNIT_PRICE := NULL;
2553: END IF;
2554:
2555: IF l_del_rec.UOM_CODE = OKE_API.G_MISS_CHAR THEN
2551: IF l_del_rec.UNIT_PRICE = OKE_API.G_MISS_NUM THEN
2552: l_del_rec.UNIT_PRICE := NULL;
2553: END IF;
2554:
2555: IF l_del_rec.UOM_CODE = OKE_API.G_MISS_CHAR THEN
2556: l_del_rec.UOM_CODE := NULL;
2557: END IF;
2558:
2559: IF l_del_rec.QUANTITY = OKE_API.G_MISS_NUM THEN
2555: IF l_del_rec.UOM_CODE = OKE_API.G_MISS_CHAR THEN
2556: l_del_rec.UOM_CODE := NULL;
2557: END IF;
2558:
2559: IF l_del_rec.QUANTITY = OKE_API.G_MISS_NUM THEN
2560: l_del_rec.QUANTITY := NULL;
2561: END IF;
2562:
2563: IF l_del_rec.COUNTRY_OF_ORIGIN_CODE = OKE_API.G_MISS_CHAR THEN
2559: IF l_del_rec.QUANTITY = OKE_API.G_MISS_NUM THEN
2560: l_del_rec.QUANTITY := NULL;
2561: END IF;
2562:
2563: IF l_del_rec.COUNTRY_OF_ORIGIN_CODE = OKE_API.G_MISS_CHAR THEN
2564: l_del_rec.COUNTRY_OF_ORIGIN_CODE := NULL;
2565: END IF;
2566:
2567: IF l_del_rec.SUBCONTRACTED_FLAG = OKE_API.G_MISS_CHAR THEN
2563: IF l_del_rec.COUNTRY_OF_ORIGIN_CODE = OKE_API.G_MISS_CHAR THEN
2564: l_del_rec.COUNTRY_OF_ORIGIN_CODE := NULL;
2565: END IF;
2566:
2567: IF l_del_rec.SUBCONTRACTED_FLAG = OKE_API.G_MISS_CHAR THEN
2568: l_del_rec.SUBCONTRACTED_FLAG := NULL;
2569: END IF;
2570:
2571: IF l_del_rec.DEPENDENCY_FLAG = OKE_API.G_MISS_CHAR THEN
2567: IF l_del_rec.SUBCONTRACTED_FLAG = OKE_API.G_MISS_CHAR THEN
2568: l_del_rec.SUBCONTRACTED_FLAG := NULL;
2569: END IF;
2570:
2571: IF l_del_rec.DEPENDENCY_FLAG = OKE_API.G_MISS_CHAR THEN
2572: l_del_rec.DEPENDENCY_FLAG := NULL;
2573: END IF;
2574:
2575:
2573: END IF;
2574:
2575:
2576:
2577: IF l_del_rec.BILLABLE_FLAG = OKE_API.G_MISS_CHAR THEN
2578: l_del_rec.BILLABLE_FLAG := NULL;
2579: END IF;
2580:
2581: IF l_del_rec.BILLING_EVENT_ID = OKE_API.G_MISS_NUM THEN
2577: IF l_del_rec.BILLABLE_FLAG = OKE_API.G_MISS_CHAR THEN
2578: l_del_rec.BILLABLE_FLAG := NULL;
2579: END IF;
2580:
2581: IF l_del_rec.BILLING_EVENT_ID = OKE_API.G_MISS_NUM THEN
2582: l_del_rec.BILLING_EVENT_ID := NULL;
2583: END IF;
2584:
2585: IF l_del_rec.DROP_SHIPPED_FLAG = OKE_API.G_MISS_CHAR THEN
2581: IF l_del_rec.BILLING_EVENT_ID = OKE_API.G_MISS_NUM THEN
2582: l_del_rec.BILLING_EVENT_ID := NULL;
2583: END IF;
2584:
2585: IF l_del_rec.DROP_SHIPPED_FLAG = OKE_API.G_MISS_CHAR THEN
2586: l_del_rec.DROP_SHIPPED_FLAG := NULL;
2587: END IF;
2588:
2589: IF l_del_rec.COMPLETED_FLAG = OKE_API.G_MISS_CHAR THEN
2585: IF l_del_rec.DROP_SHIPPED_FLAG = OKE_API.G_MISS_CHAR THEN
2586: l_del_rec.DROP_SHIPPED_FLAG := NULL;
2587: END IF;
2588:
2589: IF l_del_rec.COMPLETED_FLAG = OKE_API.G_MISS_CHAR THEN
2590: l_del_rec.COMPLETED_FLAG := NULL;
2591: END IF;
2592:
2593: IF l_del_rec.AVAILABLE_FOR_SHIP_FLAG = OKE_API.G_MISS_CHAR THEN
2589: IF l_del_rec.COMPLETED_FLAG = OKE_API.G_MISS_CHAR THEN
2590: l_del_rec.COMPLETED_FLAG := NULL;
2591: END IF;
2592:
2593: IF l_del_rec.AVAILABLE_FOR_SHIP_FLAG = OKE_API.G_MISS_CHAR THEN
2594: l_del_rec.AVAILABLE_FOR_SHIP_FLAG := NULL;
2595: END IF;
2596:
2597: IF l_del_rec.CREATE_DEMAND = OKE_API.G_MISS_CHAR THEN
2593: IF l_del_rec.AVAILABLE_FOR_SHIP_FLAG = OKE_API.G_MISS_CHAR THEN
2594: l_del_rec.AVAILABLE_FOR_SHIP_FLAG := NULL;
2595: END IF;
2596:
2597: IF l_del_rec.CREATE_DEMAND = OKE_API.G_MISS_CHAR THEN
2598: l_del_rec.CREATE_DEMAND := NULL;
2599: END IF;
2600:
2601: IF l_del_rec.READY_TO_BILL = OKE_API.G_MISS_CHAR THEN
2597: IF l_del_rec.CREATE_DEMAND = OKE_API.G_MISS_CHAR THEN
2598: l_del_rec.CREATE_DEMAND := NULL;
2599: END IF;
2600:
2601: IF l_del_rec.READY_TO_BILL = OKE_API.G_MISS_CHAR THEN
2602: l_del_rec.READY_TO_BILL := NULL;
2603: END IF;
2604:
2605: IF l_del_rec.NEED_BY_DATE = OKE_API.G_MISS_DATE THEN
2601: IF l_del_rec.READY_TO_BILL = OKE_API.G_MISS_CHAR THEN
2602: l_del_rec.READY_TO_BILL := NULL;
2603: END IF;
2604:
2605: IF l_del_rec.NEED_BY_DATE = OKE_API.G_MISS_DATE THEN
2606: l_del_rec.NEED_BY_DATE := NULL;
2607: END IF;
2608:
2609: IF l_del_rec.READY_TO_PROCURE = OKE_API.G_MISS_CHAR THEN
2605: IF l_del_rec.NEED_BY_DATE = OKE_API.G_MISS_DATE THEN
2606: l_del_rec.NEED_BY_DATE := NULL;
2607: END IF;
2608:
2609: IF l_del_rec.READY_TO_PROCURE = OKE_API.G_MISS_CHAR THEN
2610: l_del_rec.READY_TO_PROCURE := NULL;
2611: END IF;
2612:
2613: IF l_del_rec.MPS_TRANSACTION_ID = OKE_API.G_MISS_NUM THEN
2609: IF l_del_rec.READY_TO_PROCURE = OKE_API.G_MISS_CHAR THEN
2610: l_del_rec.READY_TO_PROCURE := NULL;
2611: END IF;
2612:
2613: IF l_del_rec.MPS_TRANSACTION_ID = OKE_API.G_MISS_NUM THEN
2614: l_del_rec.MPS_TRANSACTION_ID := NULL;
2615: END IF;
2616:
2617: IF l_del_rec.PO_REF_1 = OKE_API.G_MISS_NUM THEN
2613: IF l_del_rec.MPS_TRANSACTION_ID = OKE_API.G_MISS_NUM THEN
2614: l_del_rec.MPS_TRANSACTION_ID := NULL;
2615: END IF;
2616:
2617: IF l_del_rec.PO_REF_1 = OKE_API.G_MISS_NUM THEN
2618: l_del_rec.PO_REF_1 := NULL;
2619: END IF;
2620:
2621: IF l_del_rec.PO_REF_2 = OKE_API.G_MISS_NUM THEN
2617: IF l_del_rec.PO_REF_1 = OKE_API.G_MISS_NUM THEN
2618: l_del_rec.PO_REF_1 := NULL;
2619: END IF;
2620:
2621: IF l_del_rec.PO_REF_2 = OKE_API.G_MISS_NUM THEN
2622: l_del_rec.PO_REF_2 := NULL;
2623: END IF;
2624:
2625: IF l_del_rec.PO_REF_3 = OKE_API.G_MISS_NUM THEN
2621: IF l_del_rec.PO_REF_2 = OKE_API.G_MISS_NUM THEN
2622: l_del_rec.PO_REF_2 := NULL;
2623: END IF;
2624:
2625: IF l_del_rec.PO_REF_3 = OKE_API.G_MISS_NUM THEN
2626: l_del_rec.PO_REF_3 := NULL;
2627: END IF;
2628:
2629: IF l_del_rec.SHIPPING_REQUEST_ID = OKE_API.G_MISS_NUM THEN
2625: IF l_del_rec.PO_REF_3 = OKE_API.G_MISS_NUM THEN
2626: l_del_rec.PO_REF_3 := NULL;
2627: END IF;
2628:
2629: IF l_del_rec.SHIPPING_REQUEST_ID = OKE_API.G_MISS_NUM THEN
2630: l_del_rec.SHIPPING_REQUEST_ID := NULL;
2631: END IF;
2632:
2633: IF l_del_rec.UNIT_NUMBER = OKE_API.G_MISS_CHAR THEN
2629: IF l_del_rec.SHIPPING_REQUEST_ID = OKE_API.G_MISS_NUM THEN
2630: l_del_rec.SHIPPING_REQUEST_ID := NULL;
2631: END IF;
2632:
2633: IF l_del_rec.UNIT_NUMBER = OKE_API.G_MISS_CHAR THEN
2634: l_del_rec.UNIT_NUMBER := NULL;
2635: END IF;
2636:
2637: IF l_del_rec.NDB_SCHEDULE_DESIGNATOR = OKE_API.G_MISS_CHAR THEN
2633: IF l_del_rec.UNIT_NUMBER = OKE_API.G_MISS_CHAR THEN
2634: l_del_rec.UNIT_NUMBER := NULL;
2635: END IF;
2636:
2637: IF l_del_rec.NDB_SCHEDULE_DESIGNATOR = OKE_API.G_MISS_CHAR THEN
2638: l_del_rec.NDB_SCHEDULE_DESIGNATOR := NULL;
2639: END IF;
2640:
2641: IF l_del_rec.SHIPPABLE_FLAG = OKE_API.G_MISS_CHAR THEN
2637: IF l_del_rec.NDB_SCHEDULE_DESIGNATOR = OKE_API.G_MISS_CHAR THEN
2638: l_del_rec.NDB_SCHEDULE_DESIGNATOR := NULL;
2639: END IF;
2640:
2641: IF l_del_rec.SHIPPABLE_FLAG = OKE_API.G_MISS_CHAR THEN
2642: l_del_rec.SHIPPABLE_FLAG := NULL;
2643: END IF;
2644:
2645: IF l_del_rec.CFE_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2641: IF l_del_rec.SHIPPABLE_FLAG = OKE_API.G_MISS_CHAR THEN
2642: l_del_rec.SHIPPABLE_FLAG := NULL;
2643: END IF;
2644:
2645: IF l_del_rec.CFE_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2646: l_del_rec.CFE_REQ_FLAG := NULL;
2647: END IF;
2648:
2649: IF l_del_rec.INSPECTION_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2645: IF l_del_rec.CFE_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2646: l_del_rec.CFE_REQ_FLAG := NULL;
2647: END IF;
2648:
2649: IF l_del_rec.INSPECTION_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2650: l_del_rec.INSPECTION_REQ_FLAG := NULL;
2651: END IF;
2652:
2653: IF l_del_rec.INTERIM_RPT_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2649: IF l_del_rec.INSPECTION_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2650: l_del_rec.INSPECTION_REQ_FLAG := NULL;
2651: END IF;
2652:
2653: IF l_del_rec.INTERIM_RPT_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2654: l_del_rec.INTERIM_RPT_REQ_FLAG := NULL;
2655: END IF;
2656:
2657: IF l_del_rec.LOT_APPLIES_FLAG = OKE_API.G_MISS_CHAR THEN
2653: IF l_del_rec.INTERIM_RPT_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2654: l_del_rec.INTERIM_RPT_REQ_FLAG := NULL;
2655: END IF;
2656:
2657: IF l_del_rec.LOT_APPLIES_FLAG = OKE_API.G_MISS_CHAR THEN
2658: l_del_rec.LOT_APPLIES_FLAG := NULL;
2659: END IF;
2660:
2661: IF l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2657: IF l_del_rec.LOT_APPLIES_FLAG = OKE_API.G_MISS_CHAR THEN
2658: l_del_rec.LOT_APPLIES_FLAG := NULL;
2659: END IF;
2660:
2661: IF l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2662: l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG := NULL;
2663: END IF;
2664:
2665: IF l_del_rec.EXPECTED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2661: IF l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2662: l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG := NULL;
2663: END IF;
2664:
2665: IF l_del_rec.EXPECTED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2666: l_del_rec.EXPECTED_SHIPMENT_DATE := NULL;
2667: END IF;
2668:
2669: IF l_del_rec.INITIATE_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2665: IF l_del_rec.EXPECTED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2666: l_del_rec.EXPECTED_SHIPMENT_DATE := NULL;
2667: END IF;
2668:
2669: IF l_del_rec.INITIATE_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2670: l_del_rec.INITIATE_SHIPMENT_DATE := NULL;
2671: END IF;
2672:
2673: IF l_del_rec.PROMISED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2669: IF l_del_rec.INITIATE_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2670: l_del_rec.INITIATE_SHIPMENT_DATE := NULL;
2671: END IF;
2672:
2673: IF l_del_rec.PROMISED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2674: l_del_rec.PROMISED_SHIPMENT_DATE := NULL;
2675: END IF;
2676:
2677: IF l_del_rec.AS_OF_DATE = OKE_API.G_MISS_DATE THEN
2673: IF l_del_rec.PROMISED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2674: l_del_rec.PROMISED_SHIPMENT_DATE := NULL;
2675: END IF;
2676:
2677: IF l_del_rec.AS_OF_DATE = OKE_API.G_MISS_DATE THEN
2678: l_del_rec.AS_OF_DATE := NULL;
2679: END IF;
2680:
2681: IF l_del_rec.DATE_OF_FIRST_SUBMISSION = OKE_API.G_MISS_DATE THEN
2677: IF l_del_rec.AS_OF_DATE = OKE_API.G_MISS_DATE THEN
2678: l_del_rec.AS_OF_DATE := NULL;
2679: END IF;
2680:
2681: IF l_del_rec.DATE_OF_FIRST_SUBMISSION = OKE_API.G_MISS_DATE THEN
2682: l_del_rec.DATE_OF_FIRST_SUBMISSION := NULL;
2683: END IF;
2684:
2685: IF l_del_rec.FREQUENCY = OKE_API.G_MISS_CHAR THEN
2681: IF l_del_rec.DATE_OF_FIRST_SUBMISSION = OKE_API.G_MISS_DATE THEN
2682: l_del_rec.DATE_OF_FIRST_SUBMISSION := NULL;
2683: END IF;
2684:
2685: IF l_del_rec.FREQUENCY = OKE_API.G_MISS_CHAR THEN
2686: l_del_rec.FREQUENCY := NULL;
2687: END IF;
2688:
2689: IF l_del_rec.ACQ_DOC_NUMBER = OKE_API.G_MISS_CHAR THEN
2685: IF l_del_rec.FREQUENCY = OKE_API.G_MISS_CHAR THEN
2686: l_del_rec.FREQUENCY := NULL;
2687: END IF;
2688:
2689: IF l_del_rec.ACQ_DOC_NUMBER = OKE_API.G_MISS_CHAR THEN
2690: l_del_rec.ACQ_DOC_NUMBER := NULL;
2691: END IF;
2692:
2693: IF l_del_rec.SUBMISSION_FLAG = OKE_API.G_MISS_CHAR THEN
2689: IF l_del_rec.ACQ_DOC_NUMBER = OKE_API.G_MISS_CHAR THEN
2690: l_del_rec.ACQ_DOC_NUMBER := NULL;
2691: END IF;
2692:
2693: IF l_del_rec.SUBMISSION_FLAG = OKE_API.G_MISS_CHAR THEN
2694: l_del_rec.SUBMISSION_FLAG := NULL;
2695: END IF;
2696:
2697: IF l_del_rec.DATA_ITEM_NAME = OKE_API.G_MISS_CHAR THEN
2693: IF l_del_rec.SUBMISSION_FLAG = OKE_API.G_MISS_CHAR THEN
2694: l_del_rec.SUBMISSION_FLAG := NULL;
2695: END IF;
2696:
2697: IF l_del_rec.DATA_ITEM_NAME = OKE_API.G_MISS_CHAR THEN
2698: l_del_rec.DATA_ITEM_NAME := NULL;
2699: END IF;
2700:
2701: IF l_del_rec.DATA_ITEM_SUBTITLE = OKE_API.G_MISS_CHAR THEN
2697: IF l_del_rec.DATA_ITEM_NAME = OKE_API.G_MISS_CHAR THEN
2698: l_del_rec.DATA_ITEM_NAME := NULL;
2699: END IF;
2700:
2701: IF l_del_rec.DATA_ITEM_SUBTITLE = OKE_API.G_MISS_CHAR THEN
2702: l_del_rec.DATA_ITEM_SUBTITLE := NULL;
2703: END IF;
2704:
2705: IF l_del_rec.TOTAL_NUM_OF_COPIES = OKE_API.G_MISS_NUM THEN
2701: IF l_del_rec.DATA_ITEM_SUBTITLE = OKE_API.G_MISS_CHAR THEN
2702: l_del_rec.DATA_ITEM_SUBTITLE := NULL;
2703: END IF;
2704:
2705: IF l_del_rec.TOTAL_NUM_OF_COPIES = OKE_API.G_MISS_NUM THEN
2706: l_del_rec.TOTAL_NUM_OF_COPIES := NULL;
2707: END IF;
2708:
2709: IF l_del_rec.CDRL_CATEGORY = OKE_API.G_MISS_CHAR THEN
2705: IF l_del_rec.TOTAL_NUM_OF_COPIES = OKE_API.G_MISS_NUM THEN
2706: l_del_rec.TOTAL_NUM_OF_COPIES := NULL;
2707: END IF;
2708:
2709: IF l_del_rec.CDRL_CATEGORY = OKE_API.G_MISS_CHAR THEN
2710: l_del_rec.CDRL_CATEGORY := NULL;
2711: END IF;
2712:
2713: IF l_del_rec.EXPORT_LICENSE_NUM = OKE_API.G_MISS_CHAR THEN
2709: IF l_del_rec.CDRL_CATEGORY = OKE_API.G_MISS_CHAR THEN
2710: l_del_rec.CDRL_CATEGORY := NULL;
2711: END IF;
2712:
2713: IF l_del_rec.EXPORT_LICENSE_NUM = OKE_API.G_MISS_CHAR THEN
2714: l_del_rec.EXPORT_LICENSE_NUM := NULL;
2715: END IF;
2716:
2717: IF l_del_rec.EXPORT_LICENSE_RES = OKE_API.G_MISS_CHAR THEN
2713: IF l_del_rec.EXPORT_LICENSE_NUM = OKE_API.G_MISS_CHAR THEN
2714: l_del_rec.EXPORT_LICENSE_NUM := NULL;
2715: END IF;
2716:
2717: IF l_del_rec.EXPORT_LICENSE_RES = OKE_API.G_MISS_CHAR THEN
2718: l_del_rec.EXPORT_LICENSE_RES := NULL;
2719: END IF;
2720:
2721: IF l_del_rec.EXPORT_FLAG = OKE_API.G_MISS_CHAR THEN
2717: IF l_del_rec.EXPORT_LICENSE_RES = OKE_API.G_MISS_CHAR THEN
2718: l_del_rec.EXPORT_LICENSE_RES := NULL;
2719: END IF;
2720:
2721: IF l_del_rec.EXPORT_FLAG = OKE_API.G_MISS_CHAR THEN
2722: l_del_rec.EXPORT_FLAG := NULL;
2723: END IF;
2724:
2725: IF l_del_rec.CREATED_BY = OKE_API.G_MISS_NUM THEN
2721: IF l_del_rec.EXPORT_FLAG = OKE_API.G_MISS_CHAR THEN
2722: l_del_rec.EXPORT_FLAG := NULL;
2723: END IF;
2724:
2725: IF l_del_rec.CREATED_BY = OKE_API.G_MISS_NUM THEN
2726: l_del_rec.CREATED_BY := NULL;
2727: END IF;
2728:
2729: IF l_del_rec.CREATION_DATE = OKE_API.G_MISS_DATE THEN
2725: IF l_del_rec.CREATED_BY = OKE_API.G_MISS_NUM THEN
2726: l_del_rec.CREATED_BY := NULL;
2727: END IF;
2728:
2729: IF l_del_rec.CREATION_DATE = OKE_API.G_MISS_DATE THEN
2730: l_del_rec.CREATION_DATE := NULL;
2731: END IF;
2732:
2733: IF l_del_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
2729: IF l_del_rec.CREATION_DATE = OKE_API.G_MISS_DATE THEN
2730: l_del_rec.CREATION_DATE := NULL;
2731: END IF;
2732:
2733: IF l_del_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
2734: l_del_rec.LAST_UPDATED_BY := NULL;
2735: END IF;
2736:
2737: IF l_del_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
2733: IF l_del_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
2734: l_del_rec.LAST_UPDATED_BY := NULL;
2735: END IF;
2736:
2737: IF l_del_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
2738: l_del_rec.LAST_UPDATE_LOGIN := NULL;
2739: END IF;
2740:
2741: IF l_del_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
2737: IF l_del_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
2738: l_del_rec.LAST_UPDATE_LOGIN := NULL;
2739: END IF;
2740:
2741: IF l_del_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
2742: l_del_rec.LAST_UPDATE_DATE := NULL;
2743: END IF;
2744:
2745: IF l_del_rec.ATTRIBUTE_CATEGORY = OKE_API.G_MISS_CHAR THEN
2741: IF l_del_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
2742: l_del_rec.LAST_UPDATE_DATE := NULL;
2743: END IF;
2744:
2745: IF l_del_rec.ATTRIBUTE_CATEGORY = OKE_API.G_MISS_CHAR THEN
2746: l_del_rec.ATTRIBUTE_CATEGORY := NULL;
2747: END IF;
2748:
2749: IF l_del_rec.ATTRIBUTE1 = OKE_API.G_MISS_CHAR THEN
2745: IF l_del_rec.ATTRIBUTE_CATEGORY = OKE_API.G_MISS_CHAR THEN
2746: l_del_rec.ATTRIBUTE_CATEGORY := NULL;
2747: END IF;
2748:
2749: IF l_del_rec.ATTRIBUTE1 = OKE_API.G_MISS_CHAR THEN
2750: l_del_rec.ATTRIBUTE1 := NULL;
2751: END IF;
2752:
2753: IF l_del_rec.ATTRIBUTE2 = OKE_API.G_MISS_CHAR THEN
2749: IF l_del_rec.ATTRIBUTE1 = OKE_API.G_MISS_CHAR THEN
2750: l_del_rec.ATTRIBUTE1 := NULL;
2751: END IF;
2752:
2753: IF l_del_rec.ATTRIBUTE2 = OKE_API.G_MISS_CHAR THEN
2754: l_del_rec.ATTRIBUTE2 := NULL;
2755: END IF;
2756:
2757: IF l_del_rec.ATTRIBUTE3 = OKE_API.G_MISS_CHAR THEN
2753: IF l_del_rec.ATTRIBUTE2 = OKE_API.G_MISS_CHAR THEN
2754: l_del_rec.ATTRIBUTE2 := NULL;
2755: END IF;
2756:
2757: IF l_del_rec.ATTRIBUTE3 = OKE_API.G_MISS_CHAR THEN
2758: l_del_rec.ATTRIBUTE3 := NULL;
2759: END IF;
2760:
2761: IF l_del_rec.ATTRIBUTE4 = OKE_API.G_MISS_CHAR THEN
2757: IF l_del_rec.ATTRIBUTE3 = OKE_API.G_MISS_CHAR THEN
2758: l_del_rec.ATTRIBUTE3 := NULL;
2759: END IF;
2760:
2761: IF l_del_rec.ATTRIBUTE4 = OKE_API.G_MISS_CHAR THEN
2762: l_del_rec.ATTRIBUTE4 := NULL;
2763: END IF;
2764:
2765: IF l_del_rec.ATTRIBUTE5 = OKE_API.G_MISS_CHAR THEN
2761: IF l_del_rec.ATTRIBUTE4 = OKE_API.G_MISS_CHAR THEN
2762: l_del_rec.ATTRIBUTE4 := NULL;
2763: END IF;
2764:
2765: IF l_del_rec.ATTRIBUTE5 = OKE_API.G_MISS_CHAR THEN
2766: l_del_rec.ATTRIBUTE5 := NULL;
2767: END IF;
2768:
2769: IF l_del_rec.ATTRIBUTE6 = OKE_API.G_MISS_CHAR THEN
2765: IF l_del_rec.ATTRIBUTE5 = OKE_API.G_MISS_CHAR THEN
2766: l_del_rec.ATTRIBUTE5 := NULL;
2767: END IF;
2768:
2769: IF l_del_rec.ATTRIBUTE6 = OKE_API.G_MISS_CHAR THEN
2770: l_del_rec.ATTRIBUTE6 := NULL;
2771: END IF;
2772:
2773: IF l_del_rec.ATTRIBUTE7 = OKE_API.G_MISS_CHAR THEN
2769: IF l_del_rec.ATTRIBUTE6 = OKE_API.G_MISS_CHAR THEN
2770: l_del_rec.ATTRIBUTE6 := NULL;
2771: END IF;
2772:
2773: IF l_del_rec.ATTRIBUTE7 = OKE_API.G_MISS_CHAR THEN
2774: l_del_rec.ATTRIBUTE7 := NULL;
2775: END IF;
2776:
2777: IF l_del_rec.ATTRIBUTE8 = OKE_API.G_MISS_CHAR THEN
2773: IF l_del_rec.ATTRIBUTE7 = OKE_API.G_MISS_CHAR THEN
2774: l_del_rec.ATTRIBUTE7 := NULL;
2775: END IF;
2776:
2777: IF l_del_rec.ATTRIBUTE8 = OKE_API.G_MISS_CHAR THEN
2778: l_del_rec.ATTRIBUTE8 := NULL;
2779: END IF;
2780:
2781: IF l_del_rec.ATTRIBUTE9 = OKE_API.G_MISS_CHAR THEN
2777: IF l_del_rec.ATTRIBUTE8 = OKE_API.G_MISS_CHAR THEN
2778: l_del_rec.ATTRIBUTE8 := NULL;
2779: END IF;
2780:
2781: IF l_del_rec.ATTRIBUTE9 = OKE_API.G_MISS_CHAR THEN
2782: l_del_rec.ATTRIBUTE9 := NULL;
2783: END IF;
2784:
2785: IF l_del_rec.ATTRIBUTE10 = OKE_API.G_MISS_CHAR THEN
2781: IF l_del_rec.ATTRIBUTE9 = OKE_API.G_MISS_CHAR THEN
2782: l_del_rec.ATTRIBUTE9 := NULL;
2783: END IF;
2784:
2785: IF l_del_rec.ATTRIBUTE10 = OKE_API.G_MISS_CHAR THEN
2786: l_del_rec.ATTRIBUTE10 := NULL;
2787: END IF;
2788:
2789: IF l_del_rec.ATTRIBUTE11 = OKE_API.G_MISS_CHAR THEN
2785: IF l_del_rec.ATTRIBUTE10 = OKE_API.G_MISS_CHAR THEN
2786: l_del_rec.ATTRIBUTE10 := NULL;
2787: END IF;
2788:
2789: IF l_del_rec.ATTRIBUTE11 = OKE_API.G_MISS_CHAR THEN
2790: l_del_rec.ATTRIBUTE11 := NULL;
2791: END IF;
2792:
2793: IF l_del_rec.ATTRIBUTE12 = OKE_API.G_MISS_CHAR THEN
2789: IF l_del_rec.ATTRIBUTE11 = OKE_API.G_MISS_CHAR THEN
2790: l_del_rec.ATTRIBUTE11 := NULL;
2791: END IF;
2792:
2793: IF l_del_rec.ATTRIBUTE12 = OKE_API.G_MISS_CHAR THEN
2794: l_del_rec.ATTRIBUTE12 := NULL;
2795: END IF;
2796:
2797: IF l_del_rec.ATTRIBUTE13 = OKE_API.G_MISS_CHAR THEN
2793: IF l_del_rec.ATTRIBUTE12 = OKE_API.G_MISS_CHAR THEN
2794: l_del_rec.ATTRIBUTE12 := NULL;
2795: END IF;
2796:
2797: IF l_del_rec.ATTRIBUTE13 = OKE_API.G_MISS_CHAR THEN
2798: l_del_rec.ATTRIBUTE13 := NULL;
2799: END IF;
2800:
2801: IF l_del_rec.ATTRIBUTE14 = OKE_API.G_MISS_CHAR THEN
2797: IF l_del_rec.ATTRIBUTE13 = OKE_API.G_MISS_CHAR THEN
2798: l_del_rec.ATTRIBUTE13 := NULL;
2799: END IF;
2800:
2801: IF l_del_rec.ATTRIBUTE14 = OKE_API.G_MISS_CHAR THEN
2802: l_del_rec.ATTRIBUTE14 := NULL;
2803: END IF;
2804:
2805: IF l_del_rec.ATTRIBUTE15 = OKE_API.G_MISS_CHAR THEN
2801: IF l_del_rec.ATTRIBUTE14 = OKE_API.G_MISS_CHAR THEN
2802: l_del_rec.ATTRIBUTE14 := NULL;
2803: END IF;
2804:
2805: IF l_del_rec.ATTRIBUTE15 = OKE_API.G_MISS_CHAR THEN
2806: l_del_rec.ATTRIBUTE15 := NULL;
2807: END IF;
2808:
2809:
2807: END IF;
2808:
2809:
2810:
2811: IF l_del_rec.comments = OKE_API.G_MISS_CHAR THEN
2812:
2813: l_del_rec.comments := NULL;
2814: END IF;
2815:
2812:
2813: l_del_rec.comments := NULL;
2814: END IF;
2815:
2816: IF l_del_rec.weight = OKE_API.G_MISS_NUM THEN
2817: l_del_rec.weight := NULL;
2818: END IF;
2819:
2820: IF l_del_rec.weight_uom_code = OKE_API.G_MISS_CHAR THEN
2816: IF l_del_rec.weight = OKE_API.G_MISS_NUM THEN
2817: l_del_rec.weight := NULL;
2818: END IF;
2819:
2820: IF l_del_rec.weight_uom_code = OKE_API.G_MISS_CHAR THEN
2821: l_del_rec.weight_uom_code := NULL;
2822: END IF;
2823:
2824: IF l_del_rec.volume = OKE_API.G_MISS_NUM THEN
2820: IF l_del_rec.weight_uom_code = OKE_API.G_MISS_CHAR THEN
2821: l_del_rec.weight_uom_code := NULL;
2822: END IF;
2823:
2824: IF l_del_rec.volume = OKE_API.G_MISS_NUM THEN
2825: l_del_rec.volume := NULL;
2826: END IF;
2827:
2828: IF l_del_rec.volume_uom_code = OKE_API.G_MISS_CHAR THEN
2824: IF l_del_rec.volume = OKE_API.G_MISS_NUM THEN
2825: l_del_rec.volume := NULL;
2826: END IF;
2827:
2828: IF l_del_rec.volume_uom_code = OKE_API.G_MISS_CHAR THEN
2829: l_del_rec.volume_uom_code := NULL;
2830: END IF;
2831:
2832: IF l_del_rec.expenditure_organization_id = OKE_API.G_MISS_NUM THEN
2828: IF l_del_rec.volume_uom_code = OKE_API.G_MISS_CHAR THEN
2829: l_del_rec.volume_uom_code := NULL;
2830: END IF;
2831:
2832: IF l_del_rec.expenditure_organization_id = OKE_API.G_MISS_NUM THEN
2833: l_del_rec.expenditure_organization_id := NULL;
2834: END IF;
2835:
2836: IF l_del_rec.expenditure_type = OKE_API.G_MISS_CHAR THEN
2832: IF l_del_rec.expenditure_organization_id = OKE_API.G_MISS_NUM THEN
2833: l_del_rec.expenditure_organization_id := NULL;
2834: END IF;
2835:
2836: IF l_del_rec.expenditure_type = OKE_API.G_MISS_CHAR THEN
2837: l_del_rec.expenditure_type := NULL;
2838: END IF;
2839:
2840: IF l_del_rec.expenditure_item_date = OKE_API.G_MISS_DATE THEN
2836: IF l_del_rec.expenditure_type = OKE_API.G_MISS_CHAR THEN
2837: l_del_rec.expenditure_type := NULL;
2838: END IF;
2839:
2840: IF l_del_rec.expenditure_item_date = OKE_API.G_MISS_DATE THEN
2841: l_del_rec.expenditure_item_date := NULL;
2842: END IF;
2843:
2844: IF l_del_rec.destination_type_code = OKE_API.G_MISS_CHAR THEN
2840: IF l_del_rec.expenditure_item_date = OKE_API.G_MISS_DATE THEN
2841: l_del_rec.expenditure_item_date := NULL;
2842: END IF;
2843:
2844: IF l_del_rec.destination_type_code = OKE_API.G_MISS_CHAR THEN
2845: l_del_rec.destination_type_code := NULL;
2846: END IF;
2847:
2848: IF l_del_rec.rate_type = OKE_API.G_MISS_CHAR THEN
2844: IF l_del_rec.destination_type_code = OKE_API.G_MISS_CHAR THEN
2845: l_del_rec.destination_type_code := NULL;
2846: END IF;
2847:
2848: IF l_del_rec.rate_type = OKE_API.G_MISS_CHAR THEN
2849: l_del_rec.rate_type := NULL;
2850: END IF;
2851:
2852: IF l_del_rec.rate_date = OKE_API.G_MISS_DATE THEN
2848: IF l_del_rec.rate_type = OKE_API.G_MISS_CHAR THEN
2849: l_del_rec.rate_type := NULL;
2850: END IF;
2851:
2852: IF l_del_rec.rate_date = OKE_API.G_MISS_DATE THEN
2853: l_del_rec.rate_date := NULL;
2854: END IF;
2855:
2856: IF l_del_rec.exchange_rate = OKE_API.G_MISS_NUM THEN
2852: IF l_del_rec.rate_date = OKE_API.G_MISS_DATE THEN
2853: l_del_rec.rate_date := NULL;
2854: END IF;
2855:
2856: IF l_del_rec.exchange_rate = OKE_API.G_MISS_NUM THEN
2857: l_del_rec.exchange_rate := NULL;
2858: END IF;
2859:
2860: IF l_del_rec.description = OKE_API.G_MISS_CHAR THEN
2856: IF l_del_rec.exchange_rate = OKE_API.G_MISS_NUM THEN
2857: l_del_rec.exchange_rate := NULL;
2858: END IF;
2859:
2860: IF l_del_rec.description = OKE_API.G_MISS_CHAR THEN
2861: l_del_rec.description := NULL;
2862: END IF;
2863:
2864: RETURN(l_del_rec);
2867:
2868: BEGIN
2869: -- call START_ACTIVITY to create savepoint, check compatibility
2870: -- and initialize message list
2871: l_return_status := OKE_API.START_ACTIVITY(
2872: p_api_name => l_api_name,
2873: p_pkg_name => g_pkg_name,
2874: p_init_msg_list => p_init_msg_list,
2875: l_api_version => l_api_version,
2877: p_api_type => g_api_type,
2878: x_return_status => x_return_status);
2879:
2880: -- check if activity started successfully
2881: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2882: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2883: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2884: raise OKE_API.G_EXCEPTION_ERROR;
2885: End If;
2878: x_return_status => x_return_status);
2879:
2880: -- check if activity started successfully
2881: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2882: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2883: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2884: raise OKE_API.G_EXCEPTION_ERROR;
2885: End If;
2886:
2879:
2880: -- check if activity started successfully
2881: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2882: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2883: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2884: raise OKE_API.G_EXCEPTION_ERROR;
2885: End If;
2886:
2887: l_del_rec := null_out_defaults(p_del_rec);
2880: -- check if activity started successfully
2881: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2882: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2883: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2884: raise OKE_API.G_EXCEPTION_ERROR;
2885: End If;
2886:
2887: l_del_rec := null_out_defaults(p_del_rec);
2888:
2886:
2887: l_del_rec := null_out_defaults(p_del_rec);
2888:
2889: IF p_del_rec.k_header_id IS NOT NULL AND
2890: p_del_rec.k_header_id <> OKE_API.G_MISS_NUM THEN
2891:
2892: IF p_del_rec.inventory_org_id IS NULL
2893: OR p_del_rec.inventory_org_id = OKE_API.G_MISS_NUM THEN
2894: OPEN get_inv_org;
2889: IF p_del_rec.k_header_id IS NOT NULL AND
2890: p_del_rec.k_header_id <> OKE_API.G_MISS_NUM THEN
2891:
2892: IF p_del_rec.inventory_org_id IS NULL
2893: OR p_del_rec.inventory_org_id = OKE_API.G_MISS_NUM THEN
2894: OPEN get_inv_org;
2895: FETCH get_inv_org INTO l_del_rec.inventory_org_id;
2896: CLOSE get_inv_org;
2897: END IF;
2897: END IF;
2898:
2899:
2900: IF p_del_rec.direction IS NULL
2901: OR p_del_rec.direction = OKE_API.G_MISS_CHAR THEN
2902: OPEN get_intent;
2903: FETCH get_intent INTO l_intent;
2904: CLOSE get_intent;
2905: IF l_intent = 'S' THEN
2911:
2912: END IF;
2913:
2914: IF p_del_rec.status_code IS NULL
2915: OR p_del_rec.status_code = OKE_API.G_MISS_CHAR THEN
2916: open l_sts_csr;
2917: fetch l_sts_csr into l_sts_code;
2918: close l_sts_csr;
2919: l_del_rec.status_code := l_sts_code;
2929: x_msg_count => x_msg_count,
2930: x_msg_data => x_msg_data,
2931: p_del_rec => l_del_rec);
2932:
2933: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2934: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2935: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2936: raise OKE_API.G_EXCEPTION_ERROR;
2937: End If;
2930: x_msg_data => x_msg_data,
2931: p_del_rec => l_del_rec);
2932:
2933: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2934: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2935: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2936: raise OKE_API.G_EXCEPTION_ERROR;
2937: End If;
2938:
2931: p_del_rec => l_del_rec);
2932:
2933: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2934: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2935: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2936: raise OKE_API.G_EXCEPTION_ERROR;
2937: End If;
2938:
2939:
2932:
2933: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2934: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2935: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2936: raise OKE_API.G_EXCEPTION_ERROR;
2937: End If;
2938:
2939:
2940: ---validations
2940: ---validations
2941: l_return_status:=Validate_record(p_del_rec => l_del_rec
2942: );
2943:
2944: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2945: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2946: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2947: raise OKE_API.G_EXCEPTION_ERROR;
2948: End If;
2941: l_return_status:=Validate_record(p_del_rec => l_del_rec
2942: );
2943:
2944: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2945: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2946: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2947: raise OKE_API.G_EXCEPTION_ERROR;
2948: End If;
2949:
2942: );
2943:
2944: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2945: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2946: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2947: raise OKE_API.G_EXCEPTION_ERROR;
2948: End If;
2949:
2950: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2943:
2944: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2945: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2946: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2947: raise OKE_API.G_EXCEPTION_ERROR;
2948: End If;
2949:
2950: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2951: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2946: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2947: raise OKE_API.G_EXCEPTION_ERROR;
2948: End If;
2949:
2950: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2951: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2952: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2953: raise OKE_API.G_EXCEPTION_ERROR;
2954: End If;
2947: raise OKE_API.G_EXCEPTION_ERROR;
2948: End If;
2949:
2950: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2951: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2952: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2953: raise OKE_API.G_EXCEPTION_ERROR;
2954: End If;
2955:
2948: End If;
2949:
2950: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2951: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2952: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2953: raise OKE_API.G_EXCEPTION_ERROR;
2954: End If;
2955:
2956:
2949:
2950: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2951: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2952: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2953: raise OKE_API.G_EXCEPTION_ERROR;
2954: End If;
2955:
2956:
2957: OKE_CONTRACT_PUB.create_deliverable(
2962: x_msg_data => x_msg_data,
2963: p_del_rec => l_del_rec,
2964: x_del_rec => x_del_rec);
2965:
2966: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2967: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2968: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2969: raise OKE_API.G_EXCEPTION_ERROR;
2970: End If;
2963: p_del_rec => l_del_rec,
2964: x_del_rec => x_del_rec);
2965:
2966: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2967: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2968: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2969: raise OKE_API.G_EXCEPTION_ERROR;
2970: End If;
2971:
2964: x_del_rec => x_del_rec);
2965:
2966: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2967: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2968: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2969: raise OKE_API.G_EXCEPTION_ERROR;
2970: End If;
2971:
2972:
2965:
2966: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2967: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2968: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
2969: raise OKE_API.G_EXCEPTION_ERROR;
2970: End If;
2971:
2972:
2973: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2969: raise OKE_API.G_EXCEPTION_ERROR;
2970: End If;
2971:
2972:
2973: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2974: x_msg_data => x_msg_data);
2975: EXCEPTION
2976: when OKE_API.G_EXCEPTION_ERROR then
2977: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2972:
2973: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2974: x_msg_data => x_msg_data);
2975: EXCEPTION
2976: when OKE_API.G_EXCEPTION_ERROR then
2977: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2978: p_api_name => l_api_name,
2979: p_pkg_name => g_pkg_name,
2980: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2973: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2974: x_msg_data => x_msg_data);
2975: EXCEPTION
2976: when OKE_API.G_EXCEPTION_ERROR then
2977: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2978: p_api_name => l_api_name,
2979: p_pkg_name => g_pkg_name,
2980: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2981: x_msg_count => x_msg_count,
2976: when OKE_API.G_EXCEPTION_ERROR then
2977: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2978: p_api_name => l_api_name,
2979: p_pkg_name => g_pkg_name,
2980: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2981: x_msg_count => x_msg_count,
2982: x_msg_data => x_msg_data,
2983: p_api_type => g_api_type);
2984:
2981: x_msg_count => x_msg_count,
2982: x_msg_data => x_msg_data,
2983: p_api_type => g_api_type);
2984:
2985: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2986: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2987: p_api_name => l_api_name,
2988: p_pkg_name => g_pkg_name,
2989: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2982: x_msg_data => x_msg_data,
2983: p_api_type => g_api_type);
2984:
2985: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2986: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2987: p_api_name => l_api_name,
2988: p_pkg_name => g_pkg_name,
2989: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2990: x_msg_count => x_msg_count,
2985: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2986: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2987: p_api_name => l_api_name,
2988: p_pkg_name => g_pkg_name,
2989: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2990: x_msg_count => x_msg_count,
2991: x_msg_data => x_msg_data,
2992: p_api_type => g_api_type);
2993:
2991: x_msg_data => x_msg_data,
2992: p_api_type => g_api_type);
2993:
2994: when OTHERS then
2995: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2996: p_api_name => l_api_name,
2997: p_pkg_name => g_pkg_name,
2998: p_exc_name => 'OTHERS',
2999: x_msg_count => x_msg_count,
3021:
3022: BEGIN
3023:
3024: IF p_bill_rec.default_flag <>'N' AND p_bill_rec.default_flag <> 'Y' THEN
3025: return OKE_API.G_RET_STS_ERROR;
3026: END IF;
3027:
3028: OPEN c_k_header_id;
3029: FETCH c_k_header_id INTO l_k_header_id;
3029: FETCH c_k_header_id INTO l_k_header_id;
3030: CLOSE c_k_header_id;
3031:
3032: IF l_k_header_id = '?' THEN
3033: return OKE_API.G_RET_STS_ERROR;
3034: END IF;
3035:
3036: OPEN c_billing_method_code;
3037: FETCH c_billing_method_code INTO l_billing_method_code;
3037: FETCH c_billing_method_code INTO l_billing_method_code;
3038: CLOSE c_billing_method_code;
3039:
3040: IF l_billing_method_code = '?' THEN
3041: return OKE_API.G_RET_STS_ERROR;
3042: END IF;
3043:
3044: RETURN OKE_API.G_RET_STS_SUCCESS;
3045:
3040: IF l_billing_method_code = '?' THEN
3041: return OKE_API.G_RET_STS_ERROR;
3042: END IF;
3043:
3044: RETURN OKE_API.G_RET_STS_SUCCESS;
3045:
3046: END validate_billing_method;
3047:
3048:
3047:
3048:
3049: PROCEDURE define_billing_methods(
3050: p_api_version IN NUMBER,
3051: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
3052: x_return_status OUT NOCOPY VARCHAR2,
3053: x_msg_count OUT NOCOPY NUMBER,
3054: x_msg_data OUT NOCOPY VARCHAR2,
3055:
3056: p_bill_tbl IN bill_tbl_type) IS
3057:
3058: l_api_name CONSTANT VARCHAR2(30) := 'DEFINE_BILLING_METHODS';
3059: l_api_version CONSTANT NUMBER := 1.0;
3060: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3061:
3062: i NUMBER;
3063: l_flag VARCHAR2(1);
3064:
3066:
3067: BEGIN
3068: -- call START_ACTIVITY to create savepoint, check compatibility
3069: -- and initialize message list
3070: l_return_status := OKE_API.START_ACTIVITY(
3071: p_api_name => l_api_name,
3072: p_pkg_name => g_pkg_name,
3073: p_init_msg_list => p_init_msg_list,
3074: l_api_version => l_api_version,
3076: p_api_type => g_api_type,
3077: x_return_status => x_return_status);
3078:
3079: -- check if activity started successfully
3080: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3081: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3082: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3083: raise OKE_API.G_EXCEPTION_ERROR;
3084: End If;
3077: x_return_status => x_return_status);
3078:
3079: -- check if activity started successfully
3080: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3081: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3082: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3083: raise OKE_API.G_EXCEPTION_ERROR;
3084: End If;
3085:
3078:
3079: -- check if activity started successfully
3080: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3081: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3082: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3083: raise OKE_API.G_EXCEPTION_ERROR;
3084: End If;
3085:
3086:
3079: -- check if activity started successfully
3080: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3081: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3082: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3083: raise OKE_API.G_EXCEPTION_ERROR;
3084: End If;
3085:
3086:
3087: l_flag := 'N';
3091:
3092: LOOP
3093:
3094: IF l_header_id <> p_bill_tbl(i).k_header_id THEN
3095: raise OKE_API.G_EXCEPTION_ERROR;
3096: END IF;
3097:
3098: IF l_flag='Y' AND p_bill_tbl(i).default_flag='Y' THEN
3099: raise OKE_API.G_EXCEPTION_ERROR;
3095: raise OKE_API.G_EXCEPTION_ERROR;
3096: END IF;
3097:
3098: IF l_flag='Y' AND p_bill_tbl(i).default_flag='Y' THEN
3099: raise OKE_API.G_EXCEPTION_ERROR;
3100: ELSIF l_flag='Y' AND p_bill_tbl(i).default_flag='N' THEN
3101: null;
3102: ELSIF l_flag='N' AND p_bill_tbl(i).default_flag='Y' THEN
3103: l_flag:='Y';
3182: i:=p_bill_tbl.NEXT(i);
3183: END LOOP;
3184: END IF;
3185:
3186: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3187: x_msg_data => x_msg_data);
3188: EXCEPTION
3189: when OKE_API.G_EXCEPTION_ERROR then
3190: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3185:
3186: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3187: x_msg_data => x_msg_data);
3188: EXCEPTION
3189: when OKE_API.G_EXCEPTION_ERROR then
3190: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3191: p_api_name => l_api_name,
3192: p_pkg_name => g_pkg_name,
3193: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3186: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3187: x_msg_data => x_msg_data);
3188: EXCEPTION
3189: when OKE_API.G_EXCEPTION_ERROR then
3190: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3191: p_api_name => l_api_name,
3192: p_pkg_name => g_pkg_name,
3193: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3194: x_msg_count => x_msg_count,
3189: when OKE_API.G_EXCEPTION_ERROR then
3190: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3191: p_api_name => l_api_name,
3192: p_pkg_name => g_pkg_name,
3193: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3194: x_msg_count => x_msg_count,
3195: x_msg_data => x_msg_data,
3196: p_api_type => g_api_type);
3197:
3194: x_msg_count => x_msg_count,
3195: x_msg_data => x_msg_data,
3196: p_api_type => g_api_type);
3197:
3198: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3199: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3200: p_api_name => l_api_name,
3201: p_pkg_name => g_pkg_name,
3202: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3195: x_msg_data => x_msg_data,
3196: p_api_type => g_api_type);
3197:
3198: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3199: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3200: p_api_name => l_api_name,
3201: p_pkg_name => g_pkg_name,
3202: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3203: x_msg_count => x_msg_count,
3198: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3199: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3200: p_api_name => l_api_name,
3201: p_pkg_name => g_pkg_name,
3202: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3203: x_msg_count => x_msg_count,
3204: x_msg_data => x_msg_data,
3205: p_api_type => g_api_type);
3206:
3204: x_msg_data => x_msg_data,
3205: p_api_type => g_api_type);
3206:
3207: when OTHERS then
3208: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3209: p_api_name => l_api_name,
3210: p_pkg_name => g_pkg_name,
3211: p_exc_name => 'OTHERS',
3212: x_msg_count => x_msg_count,
3216: END define_billing_methods;
3217:
3218: PROCEDURE remove_billing_methods(
3219: p_api_version IN NUMBER,
3220: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
3221: x_return_status OUT NOCOPY VARCHAR2,
3222: x_msg_count OUT NOCOPY NUMBER,
3223: x_msg_data OUT NOCOPY VARCHAR2,
3224:
3225: p_bill_tbl IN bill_tbl_type) IS
3226:
3227: l_api_name CONSTANT VARCHAR2(30) := 'REMOVE_BILLING_METHODS';
3228: l_api_version CONSTANT NUMBER := 1.0;
3229: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3230:
3231: i NUMBER;
3232:
3233: l_header_id NUMBER;
3241:
3242: BEGIN
3243: -- call START_ACTIVITY to create savepoint, check compatibility
3244: -- and initialize message list
3245: l_return_status := OKE_API.START_ACTIVITY(
3246: p_api_name => l_api_name,
3247: p_pkg_name => g_pkg_name,
3248: p_init_msg_list => p_init_msg_list,
3249: l_api_version => l_api_version,
3251: p_api_type => g_api_type,
3252: x_return_status => x_return_status);
3253:
3254: -- check if activity started successfully
3255: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3256: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3257: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3258: raise OKE_API.G_EXCEPTION_ERROR;
3259: End If;
3252: x_return_status => x_return_status);
3253:
3254: -- check if activity started successfully
3255: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3256: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3257: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3258: raise OKE_API.G_EXCEPTION_ERROR;
3259: End If;
3260:
3253:
3254: -- check if activity started successfully
3255: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3256: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3257: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3258: raise OKE_API.G_EXCEPTION_ERROR;
3259: End If;
3260:
3261: IF p_bill_tbl.COUNT > 0 THEN
3254: -- check if activity started successfully
3255: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3256: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3257: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3258: raise OKE_API.G_EXCEPTION_ERROR;
3259: End If;
3260:
3261: IF p_bill_tbl.COUNT > 0 THEN
3262: i:=p_bill_tbl.FIRST;
3264:
3265: LOOP
3266:
3267: IF l_header_id <> p_bill_tbl(i).k_header_id THEN
3268: raise OKE_API.G_EXCEPTION_ERROR;
3269: END IF;
3270:
3271: EXIT WHEN i = p_bill_tbl.LAST;
3272: i:=p_bill_tbl.NEXT(i);
3277: IF p_bill_tbl.COUNT > 0 THEN
3278: i:=p_bill_tbl.FIRST;
3279: LOOP
3280:
3281: IF p_bill_tbl(i).k_header_id <> OKE_API.G_MISS_NUM
3282: AND p_bill_tbl(i).k_header_id is not null
3283: AND p_bill_tbl(i).billing_method_code <> OKE_API.G_MISS_CHAR
3284: AND p_bill_tbl(i).billing_method_code is not null THEN
3285:
3279: LOOP
3280:
3281: IF p_bill_tbl(i).k_header_id <> OKE_API.G_MISS_NUM
3282: AND p_bill_tbl(i).k_header_id is not null
3283: AND p_bill_tbl(i).billing_method_code <> OKE_API.G_MISS_CHAR
3284: AND p_bill_tbl(i).billing_method_code is not null THEN
3285:
3286: l_check := '?';
3287: OPEN c_check(p_bill_tbl(i).k_header_id,
3299: i:=p_bill_tbl.NEXT(i);
3300: END LOOP;
3301: END IF;
3302:
3303: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3304: x_msg_data => x_msg_data);
3305: EXCEPTION
3306: when OKE_API.G_EXCEPTION_ERROR then
3307: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3302:
3303: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3304: x_msg_data => x_msg_data);
3305: EXCEPTION
3306: when OKE_API.G_EXCEPTION_ERROR then
3307: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3308: p_api_name => l_api_name,
3309: p_pkg_name => g_pkg_name,
3310: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3303: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3304: x_msg_data => x_msg_data);
3305: EXCEPTION
3306: when OKE_API.G_EXCEPTION_ERROR then
3307: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3308: p_api_name => l_api_name,
3309: p_pkg_name => g_pkg_name,
3310: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3311: x_msg_count => x_msg_count,
3306: when OKE_API.G_EXCEPTION_ERROR then
3307: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3308: p_api_name => l_api_name,
3309: p_pkg_name => g_pkg_name,
3310: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3311: x_msg_count => x_msg_count,
3312: x_msg_data => x_msg_data,
3313: p_api_type => g_api_type);
3314:
3311: x_msg_count => x_msg_count,
3312: x_msg_data => x_msg_data,
3313: p_api_type => g_api_type);
3314:
3315: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3316: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3317: p_api_name => l_api_name,
3318: p_pkg_name => g_pkg_name,
3319: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3312: x_msg_data => x_msg_data,
3313: p_api_type => g_api_type);
3314:
3315: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3316: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3317: p_api_name => l_api_name,
3318: p_pkg_name => g_pkg_name,
3319: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3320: x_msg_count => x_msg_count,
3315: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3316: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3317: p_api_name => l_api_name,
3318: p_pkg_name => g_pkg_name,
3319: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3320: x_msg_count => x_msg_count,
3321: x_msg_data => x_msg_data,
3322: p_api_type => g_api_type);
3323:
3321: x_msg_data => x_msg_data,
3322: p_api_type => g_api_type);
3323:
3324: when OTHERS then
3325: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3326: p_api_name => l_api_name,
3327: p_pkg_name => g_pkg_name,
3328: p_exc_name => 'OTHERS',
3329: x_msg_count => x_msg_count,
3333: END remove_billing_methods;
3334:
3335: PROCEDURE create_line_item(
3336: p_api_version IN NUMBER,
3337: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
3338: x_return_status OUT NOCOPY VARCHAR2,
3339: x_msg_count OUT NOCOPY NUMBER,
3340: x_msg_data OUT NOCOPY VARCHAR2,
3341:
3340: x_msg_data OUT NOCOPY VARCHAR2,
3341:
3342: p_cimv_rec IN cimv_rec_type,
3343: x_cimv_rec OUT NOCOPY cimv_rec_type,
3344: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE
3345: ) IS
3346:
3347: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_LINE_ITEM';
3348: l_api_version CONSTANT NUMBER := 1.0;
3345: ) IS
3346:
3347: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_LINE_ITEM';
3348: l_api_version CONSTANT NUMBER := 1.0;
3349: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3350:
3351: l_cimv_tbl_in okc_contract_item_pub.cimv_tbl_type;
3352:
3353: l_cimv_tbl_out okc_contract_item_pub.cimv_tbl_type;
3354:
3355: BEGIN
3356: -- call START_ACTIVITY to create savepoint, check compatibility
3357: -- and initialize message list
3358: l_return_status := OKE_API.START_ACTIVITY(
3359: p_api_name => l_api_name,
3360: p_pkg_name => g_pkg_name,
3361: p_init_msg_list => p_init_msg_list,
3362: l_api_version => l_api_version,
3364: p_api_type => g_api_type,
3365: x_return_status => x_return_status);
3366:
3367: -- check if activity started successfully
3368: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3369: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3370: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3371: raise OKE_API.G_EXCEPTION_ERROR;
3372: End If;
3365: x_return_status => x_return_status);
3366:
3367: -- check if activity started successfully
3368: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3369: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3370: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3371: raise OKE_API.G_EXCEPTION_ERROR;
3372: End If;
3373:
3366:
3367: -- check if activity started successfully
3368: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3369: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3370: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3371: raise OKE_API.G_EXCEPTION_ERROR;
3372: End If;
3373:
3374: l_cimv_tbl_in(1).ID := p_cimv_rec.ID;
3367: -- check if activity started successfully
3368: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3369: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3370: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3371: raise OKE_API.G_EXCEPTION_ERROR;
3372: End If;
3373:
3374: l_cimv_tbl_in(1).ID := p_cimv_rec.ID;
3375: l_cimv_tbl_in(1).OBJECT_VERSION_NUMBER := p_cimv_rec.OBJECT_VERSION_NUMBER;
3408: );
3409:
3410: okc_cvm_pvt.defer_minor_version_update('F');
3411:
3412: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3413: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3414: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3415: raise OKE_API.G_EXCEPTION_ERROR;
3416: End If;
3409:
3410: okc_cvm_pvt.defer_minor_version_update('F');
3411:
3412: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3413: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3414: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3415: raise OKE_API.G_EXCEPTION_ERROR;
3416: End If;
3417:
3410: okc_cvm_pvt.defer_minor_version_update('F');
3411:
3412: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3413: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3414: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3415: raise OKE_API.G_EXCEPTION_ERROR;
3416: End If;
3417:
3418: x_cimv_rec.ID := l_cimv_tbl_out(1).ID;
3411:
3412: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3413: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3414: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3415: raise OKE_API.G_EXCEPTION_ERROR;
3416: End If;
3417:
3418: x_cimv_rec.ID := l_cimv_tbl_out(1).ID;
3419: x_cimv_rec.OBJECT_VERSION_NUMBER := l_cimv_tbl_out(1).OBJECT_VERSION_NUMBER;
3435: x_cimv_rec.LAST_UPDATE_LOGIN := l_cimv_tbl_out(1).LAST_UPDATE_LOGIN;
3436: x_cimv_rec.UPG_ORIG_SYSTEM_REF := l_cimv_tbl_out(1).UPG_ORIG_SYSTEM_REF;
3437: x_cimv_rec.UPG_ORIG_SYSTEM_REF_ID := l_cimv_tbl_out(1).UPG_ORIG_SYSTEM_REF_ID;
3438:
3439: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3440: x_msg_data => x_msg_data);
3441: EXCEPTION
3442: when OKE_API.G_EXCEPTION_ERROR then
3443: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3438:
3439: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3440: x_msg_data => x_msg_data);
3441: EXCEPTION
3442: when OKE_API.G_EXCEPTION_ERROR then
3443: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3444: p_api_name => l_api_name,
3445: p_pkg_name => g_pkg_name,
3446: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3439: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3440: x_msg_data => x_msg_data);
3441: EXCEPTION
3442: when OKE_API.G_EXCEPTION_ERROR then
3443: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3444: p_api_name => l_api_name,
3445: p_pkg_name => g_pkg_name,
3446: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3447: x_msg_count => x_msg_count,
3442: when OKE_API.G_EXCEPTION_ERROR then
3443: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3444: p_api_name => l_api_name,
3445: p_pkg_name => g_pkg_name,
3446: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3447: x_msg_count => x_msg_count,
3448: x_msg_data => x_msg_data,
3449: p_api_type => g_api_type);
3450:
3447: x_msg_count => x_msg_count,
3448: x_msg_data => x_msg_data,
3449: p_api_type => g_api_type);
3450:
3451: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3452: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3453: p_api_name => l_api_name,
3454: p_pkg_name => g_pkg_name,
3455: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3448: x_msg_data => x_msg_data,
3449: p_api_type => g_api_type);
3450:
3451: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3452: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3453: p_api_name => l_api_name,
3454: p_pkg_name => g_pkg_name,
3455: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3456: x_msg_count => x_msg_count,
3451: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3452: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3453: p_api_name => l_api_name,
3454: p_pkg_name => g_pkg_name,
3455: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3456: x_msg_count => x_msg_count,
3457: x_msg_data => x_msg_data,
3458: p_api_type => g_api_type);
3459:
3457: x_msg_data => x_msg_data,
3458: p_api_type => g_api_type);
3459:
3460: when OTHERS then
3461: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3462: p_api_name => l_api_name,
3463: p_pkg_name => g_pkg_name,
3464: p_exc_name => 'OTHERS',
3465: x_msg_count => x_msg_count,
3468:
3469: END create_line_item;
3470:
3471: PROCEDURE delete_contract_line(p_api_version IN NUMBER,
3472: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
3473: p_contract_line_id IN NUMBER,
3474: x_return_status OUT NOCOPY VARCHAR2,
3475: x_msg_count OUT NOCOPY NUMBER,
3476: x_msg_data OUT NOCOPY VARCHAR2 ,
3473: p_contract_line_id IN NUMBER,
3474: x_return_status OUT NOCOPY VARCHAR2,
3475: x_msg_count OUT NOCOPY NUMBER,
3476: x_msg_data OUT NOCOPY VARCHAR2 ,
3477: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE
3478: )
3479: IS
3480:
3481:
3480:
3481:
3482: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
3483: l_api_version CONSTANT NUMBER := 1.0;
3484: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3485: l_msg_count NUMBER;
3486: l_msg_data VARCHAR2(2000);
3487:
3488: L_sts_code VARCHAR2(30);
3512: BEGIN
3513:
3514: -- call START_ACTIVITY to create savepoint, check compatibility
3515: -- and initialize message list
3516: l_return_status := OKE_API.START_ACTIVITY(
3517: p_api_name => l_api_name,
3518: p_pkg_name => g_pkg_name,
3519: p_init_msg_list => p_init_msg_list,
3520: l_api_version => l_api_version,
3522: p_api_type => g_api_type,
3523: x_return_status => x_return_status);
3524:
3525: -- check if activity started successfully
3526: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3527: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3528: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3529: raise OKE_API.G_EXCEPTION_ERROR;
3530: End If;
3523: x_return_status => x_return_status);
3524:
3525: -- check if activity started successfully
3526: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3527: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3528: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3529: raise OKE_API.G_EXCEPTION_ERROR;
3530: End If;
3531:
3524:
3525: -- check if activity started successfully
3526: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3527: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3528: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3529: raise OKE_API.G_EXCEPTION_ERROR;
3530: End If;
3531:
3532: -- Get the Basic info regarding the line.
3525: -- check if activity started successfully
3526: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3527: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3528: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3529: raise OKE_API.G_EXCEPTION_ERROR;
3530: End If;
3531:
3532: -- Get the Basic info regarding the line.
3533: BEGIN
3542: AND kh.k_header_id=cl.dnz_chr_id
3543: and l.k_line_id=p_contract_line_id;
3544: EXCEPTION
3545: WHEN No_Data_Found THEN
3546: OKE_API.SET_MESSAGE
3547: (p_app_name => g_app_name,
3548: p_msg_name => g_invalid_value,
3549: p_token1 => g_col_name_token,
3550: p_token1_value => 'k_line_id'
3548: p_msg_name => g_invalid_value,
3549: p_token1 => g_col_name_token,
3550: p_token1_value => 'k_line_id'
3551: );
3552: raise OKE_API.G_EXCEPTION_ERROR;
3553: WHEN OTHERS THEN
3554: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
3555: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: END;
3550: p_token1_value => 'k_line_id'
3551: );
3552: raise OKE_API.G_EXCEPTION_ERROR;
3553: WHEN OTHERS THEN
3554: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
3555: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: END;
3557:
3558: -- 1. Validate line Status
3551: );
3552: raise OKE_API.G_EXCEPTION_ERROR;
3553: WHEN OTHERS THEN
3554: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
3555: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: END;
3557:
3558: -- 1. Validate line Status
3559: VALIDATE_LINE_STATUS (L_sts_code, l_return_status);
3557:
3558: -- 1. Validate line Status
3559: VALIDATE_LINE_STATUS (L_sts_code, l_return_status);
3560: --- If any errors happen abort API
3561: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3562: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3563: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3564: RAISE OKE_API.G_EXCEPTION_ERROR;
3565: END IF;
3558: -- 1. Validate line Status
3559: VALIDATE_LINE_STATUS (L_sts_code, l_return_status);
3560: --- If any errors happen abort API
3561: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3562: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3563: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3564: RAISE OKE_API.G_EXCEPTION_ERROR;
3565: END IF;
3566:
3559: VALIDATE_LINE_STATUS (L_sts_code, l_return_status);
3560: --- If any errors happen abort API
3561: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3562: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3563: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3564: RAISE OKE_API.G_EXCEPTION_ERROR;
3565: END IF;
3566:
3567: -- 2. Check if child line exists, no delete for parent line.
3560: --- If any errors happen abort API
3561: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3562: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3563: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3564: RAISE OKE_API.G_EXCEPTION_ERROR;
3565: END IF;
3566:
3567: -- 2. Check if child line exists, no delete for parent line.
3568: IF CHILD_LINE_EXISTS(p_contract_line_id) = 'Y' THEN
3565: END IF;
3566:
3567: -- 2. Check if child line exists, no delete for parent line.
3568: IF CHILD_LINE_EXISTS(p_contract_line_id) = 'Y' THEN
3569: OKE_API.SET_MESSAGE
3570: (p_app_name => g_app_name,
3571: p_msg_name => 'OKE_NO_DELETE_PARENT'
3572: );
3573: raise OKE_API.G_EXCEPTION_ERROR;
3569: OKE_API.SET_MESSAGE
3570: (p_app_name => g_app_name,
3571: p_msg_name => 'OKE_NO_DELETE_PARENT'
3572: );
3573: raise OKE_API.G_EXCEPTION_ERROR;
3574: END IF;
3575:
3576: -- 3. Check if deliverable have been defaulted down, if so, no delete
3577: IF CHILD_DELIVERABLE_EXISTS(p_contract_line_id) = 'Y'
3575:
3576: -- 3. Check if deliverable have been defaulted down, if so, no delete
3577: IF CHILD_DELIVERABLE_EXISTS(p_contract_line_id) = 'Y'
3578: THEN
3579: OKE_API.SET_MESSAGE
3580: (p_app_name => g_app_name,
3581: p_msg_name => 'OKE_NO_DELETE_DEFAULTED'
3582: );
3583: raise OKE_API.G_EXCEPTION_ERROR;
3579: OKE_API.SET_MESSAGE
3580: (p_app_name => g_app_name,
3581: p_msg_name => 'OKE_NO_DELETE_DEFAULTED'
3582: );
3583: raise OKE_API.G_EXCEPTION_ERROR;
3584: END IF;
3585:
3586: -- 4. Check if funding exists
3587: IF CHILD_FUNDING_EXISTS(p_contract_line_id) = 'Y'
3585:
3586: -- 4. Check if funding exists
3587: IF CHILD_FUNDING_EXISTS(p_contract_line_id) = 'Y'
3588: THEN
3589: OKE_API.SET_MESSAGE
3590: (p_app_name => g_app_name,
3591: p_msg_name => 'OKE_NO_DELETE_FUND_EXISTS'
3592: );
3593: raise OKE_API.G_EXCEPTION_ERROR;
3589: OKE_API.SET_MESSAGE
3590: (p_app_name => g_app_name,
3591: p_msg_name => 'OKE_NO_DELETE_FUND_EXISTS'
3592: );
3593: raise OKE_API.G_EXCEPTION_ERROR;
3594: END IF;
3595:
3596: -- 5. Update the total amounts the parent and the header
3597: -- line_value_total undef_line_value_total
3637: );
3638: okc_cvm_pvt.defer_minor_version_update('F');
3639:
3640: --- If any errors happen abort API
3641: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3642: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3643: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3644: RAISE OKE_API.G_EXCEPTION_ERROR;
3645: END IF;
3638: okc_cvm_pvt.defer_minor_version_update('F');
3639:
3640: --- If any errors happen abort API
3641: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3642: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3643: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3644: RAISE OKE_API.G_EXCEPTION_ERROR;
3645: END IF;
3646: END IF;
3639:
3640: --- If any errors happen abort API
3641: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3642: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3643: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3644: RAISE OKE_API.G_EXCEPTION_ERROR;
3645: END IF;
3646: END IF;
3647:
3640: --- If any errors happen abort API
3641: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3642: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3643: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3644: RAISE OKE_API.G_EXCEPTION_ERROR;
3645: END IF;
3646: END IF;
3647:
3648: l_clev_tbl(1).ID := p_contract_line_id;
3659: , x_msg_data => l_msg_data
3660: , p_cle_tbl => l_cle_tbl
3661: , p_clev_tbl => l_clev_tbl
3662: );
3663: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3664: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3665: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3666: RAISE OKE_API.G_EXCEPTION_ERROR;
3667: END IF;
3660: , p_cle_tbl => l_cle_tbl
3661: , p_clev_tbl => l_clev_tbl
3662: );
3663: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3664: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3665: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3666: RAISE OKE_API.G_EXCEPTION_ERROR;
3667: END IF;
3668:
3661: , p_clev_tbl => l_clev_tbl
3662: );
3663: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3664: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3665: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3666: RAISE OKE_API.G_EXCEPTION_ERROR;
3667: END IF;
3668:
3669:
3662: );
3663: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3664: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3665: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3666: RAISE OKE_API.G_EXCEPTION_ERROR;
3667: END IF;
3668:
3669:
3670:
3705: delete from okc_k_party_roles_b where cle_id = p_contract_line_id;
3706:
3707:
3708:
3709: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3710: x_msg_data => x_msg_data);
3711:
3712: EXCEPTION
3713: when OKE_API.G_EXCEPTION_ERROR then
3709: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3710: x_msg_data => x_msg_data);
3711:
3712: EXCEPTION
3713: when OKE_API.G_EXCEPTION_ERROR then
3714: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3715: p_api_name => l_api_name,
3716: p_pkg_name => g_pkg_name,
3717: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3710: x_msg_data => x_msg_data);
3711:
3712: EXCEPTION
3713: when OKE_API.G_EXCEPTION_ERROR then
3714: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3715: p_api_name => l_api_name,
3716: p_pkg_name => g_pkg_name,
3717: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3718: x_msg_count => x_msg_count,
3713: when OKE_API.G_EXCEPTION_ERROR then
3714: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3715: p_api_name => l_api_name,
3716: p_pkg_name => g_pkg_name,
3717: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3718: x_msg_count => x_msg_count,
3719: x_msg_data => x_msg_data,
3720: p_api_type => g_api_type);
3721:
3718: x_msg_count => x_msg_count,
3719: x_msg_data => x_msg_data,
3720: p_api_type => g_api_type);
3721:
3722: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3723: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3724: p_api_name => l_api_name,
3725: p_pkg_name => g_pkg_name,
3726: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3719: x_msg_data => x_msg_data,
3720: p_api_type => g_api_type);
3721:
3722: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3723: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3724: p_api_name => l_api_name,
3725: p_pkg_name => g_pkg_name,
3726: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3727: x_msg_count => x_msg_count,
3722: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3723: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3724: p_api_name => l_api_name,
3725: p_pkg_name => g_pkg_name,
3726: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3727: x_msg_count => x_msg_count,
3728: x_msg_data => x_msg_data,
3729: p_api_type => g_api_type);
3730:
3728: x_msg_data => x_msg_data,
3729: p_api_type => g_api_type);
3730:
3731: when OTHERS then
3732: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3733: p_api_name => l_api_name,
3734: p_pkg_name => g_pkg_name,
3735: p_exc_name => 'OTHERS',
3736: x_msg_count => x_msg_count,
3741:
3742: PROCEDURE update_contract_line(
3743:
3744: p_api_version IN NUMBER,
3745: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
3746: x_return_status OUT NOCOPY VARCHAR2,
3747: x_msg_count OUT NOCOPY NUMBER,
3748: x_msg_data OUT NOCOPY VARCHAR2,
3749:
3748: x_msg_data OUT NOCOPY VARCHAR2,
3749:
3750: p_cle_rec IN cle_rec_type,
3751: x_cle_rec OUT NOCOPY cle_rec_type,
3752: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE
3753: ) IS
3754:
3755: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
3756: l_api_version CONSTANT NUMBER := 1.0;
3753: ) IS
3754:
3755: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
3756: l_api_version CONSTANT NUMBER := 1.0;
3757: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3758:
3759: l_okc_clev_rec OKC_CONTRACT_PUB.clev_rec_type;
3760: l_oke_cle_rec OKE_CONTRACT_PUB.cle_rec_type;
3761: l_out_clev OKC_CONTRACT_PUB.clev_rec_type;
3848: BEGIN
3849:
3850: -- call START_ACTIVITY to create savepoint, check compatibility
3851: -- and initialize message list
3852: l_return_status := OKE_API.START_ACTIVITY(
3853: p_api_name => l_api_name,
3854: p_pkg_name => g_pkg_name,
3855: p_init_msg_list => p_init_msg_list,
3856: l_api_version => l_api_version,
3859: x_return_status => x_return_status);
3860:
3861:
3862: -- check if activity started successfully
3863: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3864: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3865: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3866: raise OKE_API.G_EXCEPTION_ERROR;
3867: End If;
3860:
3861:
3862: -- check if activity started successfully
3863: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3864: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3865: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3866: raise OKE_API.G_EXCEPTION_ERROR;
3867: End If;
3868:
3861:
3862: -- check if activity started successfully
3863: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3864: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3865: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3866: raise OKE_API.G_EXCEPTION_ERROR;
3867: End If;
3868:
3869:
3862: -- check if activity started successfully
3863: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3864: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3865: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3866: raise OKE_API.G_EXCEPTION_ERROR;
3867: End If;
3868:
3869:
3870:
3876: ,l_line_quantity,l_unit_price,l_undef_unit_price,l_oval,l_oval_u
3877: ,l_line_value_total,l_undef_line_value_total;
3878: IF c_line_exists%NOTFOUND THEN
3879: CLOSE c_line_exists;
3880: OKE_API.SET_MESSAGE
3881: (p_app_name => g_app_name,
3882: p_msg_name => g_invalid_value,
3883: p_token1 => g_col_name_token,
3884: p_token1_value => 'K_Line_ID');
3882: p_msg_name => g_invalid_value,
3883: p_token1 => g_col_name_token,
3884: p_token1_value => 'K_Line_ID');
3885:
3886: raise OKE_API.G_EXCEPTION_ERROR;
3887: END IF;
3888: CLOSE c_line_exists;
3889:
3890:
3889:
3890:
3891: OKC_CONTEXT.Set_OKC_Org_Context( p_chr_id => L_CHR_ID );
3892:
3893: -- If the line number is passed as null then set to oke_api.g_miss_char
3894: l_line_number := Nvl(p_cle_rec.line_number,OKE_API.g_Miss_char);
3895:
3896: -- Get the current status, if the status is not entered then do no allow update to line number.
3897: open c_ste_code(l_sts_code);
3890:
3891: OKC_CONTEXT.Set_OKC_Org_Context( p_chr_id => L_CHR_ID );
3892:
3893: -- If the line number is passed as null then set to oke_api.g_miss_char
3894: l_line_number := Nvl(p_cle_rec.line_number,OKE_API.g_Miss_char);
3895:
3896: -- Get the current status, if the status is not entered then do no allow update to line number.
3897: open c_ste_code(l_sts_code);
3898: fetch c_ste_code into l_ste_code;
3899: close c_ste_code;
3900:
3901: -- If status is not entered then do not allow update to line number.
3902: If l_ste_code <> 'ENTERED' THEN
3903: l_line_number := OKE_API.g_Miss_char;
3904: END IF;
3905:
3906: IF l_line_number <> OKE_API.g_miss_char
3907: Then
3902: If l_ste_code <> 'ENTERED' THEN
3903: l_line_number := OKE_API.g_Miss_char;
3904: END IF;
3905:
3906: IF l_line_number <> OKE_API.g_miss_char
3907: Then
3908: IF l_line_number IS NOT NULL
3909: THEN
3910: -- check for duplication
3911: open c(p_cle_rec.line_number,l_cle_id);
3912: fetch c into l_found;
3913: IF c%FOUND THEN
3914: CLOSE c;
3915: OKE_API.SET_MESSAGE
3916: (p_app_name => g_app_name,
3917: p_msg_name => 'OKE_NUMBER_EXISTED'
3918: );
3919: raise OKE_API.G_EXCEPTION_ERROR;
3915: OKE_API.SET_MESSAGE
3916: (p_app_name => g_app_name,
3917: p_msg_name => 'OKE_NUMBER_EXISTED'
3918: );
3919: raise OKE_API.G_EXCEPTION_ERROR;
3920: END IF;
3921: close c;
3922: -- check if there is a change and if the status is not entered
3923: -- then do not allow update to line number.
3923: -- then do not allow update to line number.
3924: END IF;
3925: END IF;
3926:
3927: IF Nvl(p_cle_rec.lse_id,-99) <> oke_api.g_miss_num THEN
3928: IF p_cle_rec.lse_id IS NOT NULL THEN
3929: l_lse_id := p_cle_rec.lse_id;
3930: ELSE
3931: -- lse_id can not be null
3928: IF p_cle_rec.lse_id IS NOT NULL THEN
3929: l_lse_id := p_cle_rec.lse_id;
3930: ELSE
3931: -- lse_id can not be null
3932: l_lse_id := oke_api.g_miss_num;
3933: END IF;
3934: END IF;
3935:
3936: -- Data Item related validations:
3951: l_oke_cle_rec.frequency := NULL;
3952: l_oke_cle_rec.requiring_office := NULL;
3953: END IF;
3954:
3955: IF Nvl(p_cle_rec.export_flag,'SE') <> oke_api.g_miss_char
3956: THEN
3957: IF p_cle_rec.export_flag IS NOT NULL THEN
3958: l_export_flag := p_cle_rec.export_flag;
3959: ELSE
3970: l_oke_cle_rec.EXPORT_LICENSE_RES := p_cle_rec.EXPORT_LICENSE_RES;
3971: END IF;
3972:
3973:
3974: IF Nvl(p_cle_rec.PROGRESS_PAYMENT_FLAG,'SE') <> oke_api.g_miss_char
3975: THEN
3976: IF l_PROGRESS_PAYMENT_FLAG IS NOT NULL THEN
3977: l_PROGRESS_PAYMENT_FLAG := p_cle_rec.PROGRESS_PAYMENT_FLAG;
3978: ELSE
3989: l_oke_cle_rec.PROGRESS_PAYMENT_RATE := p_cle_rec.PROGRESS_PAYMENT_RATE;
3990: l_oke_cle_rec.LINE_LIQUIDATION_RATE := p_cle_rec.LINE_LIQUIDATION_RATE;
3991: END IF;
3992:
3993: IF p_cle_rec.start_date <> oke_api.g_miss_date THEN
3994: l_start_Date := p_cle_rec.start_date;
3995: END IF;
3996:
3997: IF p_cle_rec.end_date <> oke_api.g_miss_date THEN
3993: IF p_cle_rec.start_date <> oke_api.g_miss_date THEN
3994: l_start_Date := p_cle_rec.start_date;
3995: END IF;
3996:
3997: IF p_cle_rec.end_date <> oke_api.g_miss_date THEN
3998: l_end_Date := p_cle_rec.end_date;
3999: END IF;
4000:
4001: IF p_cle_rec.delivery_date <> oke_api.g_miss_date THEN
3997: IF p_cle_rec.end_date <> oke_api.g_miss_date THEN
3998: l_end_Date := p_cle_rec.end_date;
3999: END IF;
4000:
4001: IF p_cle_rec.delivery_date <> oke_api.g_miss_date THEN
4002: l_delivery_Date := p_cle_rec.delivery_Date;
4003: END IF;
4004:
4005: IF p_cle_rec.proposal_due_date <> oke_api.g_miss_char THEN
4001: IF p_cle_rec.delivery_date <> oke_api.g_miss_date THEN
4002: l_delivery_Date := p_cle_rec.delivery_Date;
4003: END IF;
4004:
4005: IF p_cle_rec.proposal_due_date <> oke_api.g_miss_char THEN
4006: l_proposal_due_date := p_cle_rec.proposal_due_date;
4007: END IF;
4008:
4009: -- Validate delivery date, if there is a change then only valdiate.
4006: l_proposal_due_date := p_cle_rec.proposal_due_date;
4007: END IF;
4008:
4009: -- Validate delivery date, if there is a change then only valdiate.
4010: IF p_cle_rec.delivery_date <> oke_api.g_miss_date
4011: AND p_cle_rec.delivery_date IS NOT NULL THEN
4012: validate_delivery_Date (x_return_status => x_return_status,
4013: p_line_id => p_cle_rec.k_line_id,
4014: p_start_date => l_start_date,
4015: p_end_date => l_end_date,
4016: p_due_date => l_delivery_date
4017: );
4018: -- check for errors
4019: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4020: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4021: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4022: raise OKE_API.G_EXCEPTION_ERROR;
4023: End If;
4016: p_due_date => l_delivery_date
4017: );
4018: -- check for errors
4019: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4020: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4021: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4022: raise OKE_API.G_EXCEPTION_ERROR;
4023: End If;
4024: END IF;
4017: );
4018: -- check for errors
4019: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4020: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4021: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4022: raise OKE_API.G_EXCEPTION_ERROR;
4023: End If;
4024: END IF;
4025:
4018: -- check for errors
4019: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4020: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4021: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4022: raise OKE_API.G_EXCEPTION_ERROR;
4023: End If;
4024: END IF;
4025:
4026: -- Validate proposal date
4023: End If;
4024: END IF;
4025:
4026: -- Validate proposal date
4027: IF p_cle_rec.proposal_due_date <> oke_api.g_miss_char
4028: AND p_cle_rec.proposal_due_date IS NOT NULL THEN
4029: validate_proposal_due_date(x_return_status,l_proposal_due_date);
4030:
4031: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4027: IF p_cle_rec.proposal_due_date <> oke_api.g_miss_char
4028: AND p_cle_rec.proposal_due_date IS NOT NULL THEN
4029: validate_proposal_due_date(x_return_status,l_proposal_due_date);
4030:
4031: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4032: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4033: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4034: raise OKE_API.G_EXCEPTION_ERROR;
4035: End If;
4028: AND p_cle_rec.proposal_due_date IS NOT NULL THEN
4029: validate_proposal_due_date(x_return_status,l_proposal_due_date);
4030:
4031: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4032: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4033: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4034: raise OKE_API.G_EXCEPTION_ERROR;
4035: End If;
4036: END IF;
4029: validate_proposal_due_date(x_return_status,l_proposal_due_date);
4030:
4031: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4032: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4033: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4034: raise OKE_API.G_EXCEPTION_ERROR;
4035: End If;
4036: END IF;
4037:
4030:
4031: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4032: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4033: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4034: raise OKE_API.G_EXCEPTION_ERROR;
4035: End If;
4036: END IF;
4037:
4038: -- Validate Start date
4035: End If;
4036: END IF;
4037:
4038: -- Validate Start date
4039: IF p_cle_rec.start_date <> oke_api.g_miss_date
4040: AND p_cle_rec.start_date IS NOT NULL THEN
4041:
4042: VALIDATE_line_dates (x_return_status => x_return_status,
4043: p_line_id => p_cle_rec.k_line_id,
4047: p_line_due_date => l_delivery_date,
4048: p_cle_id => l_cle_id,
4049: p_chr_id => l_chr_id
4050: );
4051: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4052: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4053: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4054: raise OKE_API.G_EXCEPTION_ERROR;
4055: End If;
4048: p_cle_id => l_cle_id,
4049: p_chr_id => l_chr_id
4050: );
4051: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4052: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4053: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4054: raise OKE_API.G_EXCEPTION_ERROR;
4055: End If;
4056: END IF;
4049: p_chr_id => l_chr_id
4050: );
4051: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4052: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4053: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4054: raise OKE_API.G_EXCEPTION_ERROR;
4055: End If;
4056: END IF;
4057:
4050: );
4051: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4052: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4053: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4054: raise OKE_API.G_EXCEPTION_ERROR;
4055: End If;
4056: END IF;
4057:
4058: -- Validate End date
4055: End If;
4056: END IF;
4057:
4058: -- Validate End date
4059: IF p_cle_rec.end_date <> oke_api.g_miss_date
4060: AND p_cle_rec.end_date IS NOT NULL THEN
4061: VALIDATE_line_dates (x_return_status => x_return_status,
4062: p_line_id => p_cle_rec.k_line_id,
4063: p_col_name => 'End Date',
4067: p_cle_id => l_cle_id,
4068: p_chr_id => l_chr_id
4069: );
4070:
4071: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4072: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4073: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4074: raise OKE_API.G_EXCEPTION_ERROR;
4075: End If;
4068: p_chr_id => l_chr_id
4069: );
4070:
4071: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4072: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4073: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4074: raise OKE_API.G_EXCEPTION_ERROR;
4075: End If;
4076: END IF;
4069: );
4070:
4071: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4072: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4073: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4074: raise OKE_API.G_EXCEPTION_ERROR;
4075: End If;
4076: END IF;
4077:
4070:
4071: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4072: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4073: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4074: raise OKE_API.G_EXCEPTION_ERROR;
4075: End If;
4076: END IF;
4077:
4078: -- Detect price changes
4075: End If;
4076: END IF;
4077:
4078: -- Detect price changes
4079: IF ( p_cle_rec.line_quantity <> oke_api.g_miss_num
4080: AND Nvl(p_cle_rec.line_quantity,-99) <> Nvl(l_line_quantity,-99)
4081: )
4082: THEN
4083: l_qty_changed_yn := 'Y';
4083: l_qty_changed_yn := 'Y';
4084: l_line_quantity := p_cle_rec.line_quantity;
4085: END IF;
4086: IF (
4087: p_cle_rec.unit_price <> oke_api.g_miss_num
4088: AND Nvl(p_cle_rec.unit_price,-99) <> Nvl(l_unit_price,-99)
4089: )
4090: THEN
4091: l_price_changed_yn := 'Y' ;
4092: l_unit_price := p_cle_rec.unit_price;
4093: END IF;
4094:
4095: IF
4096: ( p_cle_rec.undef_unit_price <> oke_api.g_miss_num
4097: AND Nvl(p_cle_rec.undef_unit_price,-99) <> Nvl(l_undef_unit_price,-99)
4098: )
4099: THEN
4100:
4146:
4147: update_line_total(l_chr_id , p_cle_rec.k_line_id , l_cle_id , l_diff , l_diff_u);
4148:
4149: ELSE
4150: l_oke_cle_rec.undef_line_value_total := oke_api.g_miss_num;
4151: l_oke_cle_rec.line_value_total := oke_api.g_miss_num;
4152: l_oke_cle_rec.undef_line_value := p_cle_rec.undef_line_value;
4153: l_oke_cle_rec.line_value := p_cle_rec.line_value;
4154: END IF;
4147: update_line_total(l_chr_id , p_cle_rec.k_line_id , l_cle_id , l_diff , l_diff_u);
4148:
4149: ELSE
4150: l_oke_cle_rec.undef_line_value_total := oke_api.g_miss_num;
4151: l_oke_cle_rec.line_value_total := oke_api.g_miss_num;
4152: l_oke_cle_rec.undef_line_value := p_cle_rec.undef_line_value;
4153: l_oke_cle_rec.line_value := p_cle_rec.line_value;
4154: END IF;
4155:
4271: l_okc_clev_rec.chr_id := p_cle_rec.chr_id;
4272: l_okc_clev_rec.cle_id := p_cle_rec.cle_id;
4273: l_okc_clev_rec.lse_id := l_lse_id;
4274: l_okc_clev_rec.line_number := l_line_number;
4275: --l_okc_clev_rec.sts_code := Nvl(p_cle_rec.sts_code, oke_api.g_miss_char);
4276: -- Pass oke_api.g_miss_char so that status will not be overriden
4277: l_okc_clev_rec.sts_code := oke_api.g_miss_char;
4278: l_okc_clev_rec.display_sequence := p_cle_rec.display_sequence;
4279: l_okc_clev_rec.trn_code := p_cle_rec.trn_code ;
4272: l_okc_clev_rec.cle_id := p_cle_rec.cle_id;
4273: l_okc_clev_rec.lse_id := l_lse_id;
4274: l_okc_clev_rec.line_number := l_line_number;
4275: --l_okc_clev_rec.sts_code := Nvl(p_cle_rec.sts_code, oke_api.g_miss_char);
4276: -- Pass oke_api.g_miss_char so that status will not be overriden
4277: l_okc_clev_rec.sts_code := oke_api.g_miss_char;
4278: l_okc_clev_rec.display_sequence := p_cle_rec.display_sequence;
4279: l_okc_clev_rec.trn_code := p_cle_rec.trn_code ;
4280: l_okc_clev_rec.dnz_chr_id := p_cle_rec.dnz_chr_id ;
4273: l_okc_clev_rec.lse_id := l_lse_id;
4274: l_okc_clev_rec.line_number := l_line_number;
4275: --l_okc_clev_rec.sts_code := Nvl(p_cle_rec.sts_code, oke_api.g_miss_char);
4276: -- Pass oke_api.g_miss_char so that status will not be overriden
4277: l_okc_clev_rec.sts_code := oke_api.g_miss_char;
4278: l_okc_clev_rec.display_sequence := p_cle_rec.display_sequence;
4279: l_okc_clev_rec.trn_code := p_cle_rec.trn_code ;
4280: l_okc_clev_rec.dnz_chr_id := p_cle_rec.dnz_chr_id ;
4281: l_okc_clev_rec.comments := p_cle_rec.comments ;
4327:
4328: Validate_OKC_line_fields ( l_return_status, p_cle_rec );
4329:
4330: --- If any errors happen abort API
4331: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4332: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4333: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4334: RAISE OKE_API.G_EXCEPTION_ERROR;
4335: END IF;
4328: Validate_OKC_line_fields ( l_return_status, p_cle_rec );
4329:
4330: --- If any errors happen abort API
4331: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4332: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4333: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4334: RAISE OKE_API.G_EXCEPTION_ERROR;
4335: END IF;
4336:
4329:
4330: --- If any errors happen abort API
4331: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4332: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4333: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4334: RAISE OKE_API.G_EXCEPTION_ERROR;
4335: END IF;
4336:
4337: /*skuchima bugs 14524245 */
4330: --- If any errors happen abort API
4331: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4332: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4333: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4334: RAISE OKE_API.G_EXCEPTION_ERROR;
4335: END IF;
4336:
4337: /*skuchima bugs 14524245 */
4338: IF (FND_API.G_TRUE = p_skip_minor_vers ) THEN
4352: x_clev_rec => l_out_clev );
4353:
4354: okc_cvm_pvt.defer_minor_version_update('F');
4355:
4356: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4357: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4358: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
4359: raise OKE_API.G_EXCEPTION_ERROR;
4360: End If;
4353:
4354: okc_cvm_pvt.defer_minor_version_update('F');
4355:
4356: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4357: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4358: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
4359: raise OKE_API.G_EXCEPTION_ERROR;
4360: End If;
4361:
4354: okc_cvm_pvt.defer_minor_version_update('F');
4355:
4356: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4357: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4358: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
4359: raise OKE_API.G_EXCEPTION_ERROR;
4360: End If;
4361:
4362:
4355:
4356: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4357: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4358: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
4359: raise OKE_API.G_EXCEPTION_ERROR;
4360: End If;
4361:
4362:
4363: x_cle_rec.k_line_id := l_out_cle.k_line_id;
4523: x_cle_rec.last_update_login := l_out_clev.last_update_login;
4524:
4525:
4526: -- IF successful: create line item if necessary
4527: IF x_return_status = OKE_API.G_RET_STS_SUCCESS
4528: AND x_cle_rec.inventory_item_id IS NOT NULL
4529: AND l_item_exists = 'N' THEN
4530:
4531: OPEN get_inventory_org (x_cle_rec.DNZ_CHR_ID);
4557: x_cimv_rec => l_cimv_out,
4558: p_skip_minor_vers => p_skip_minor_vers
4559: );
4560:
4561: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4562: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4563: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
4564: raise OKE_API.G_EXCEPTION_ERROR;
4565: End If;
4558: p_skip_minor_vers => p_skip_minor_vers
4559: );
4560:
4561: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4562: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4563: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
4564: raise OKE_API.G_EXCEPTION_ERROR;
4565: End If;
4566:
4559: );
4560:
4561: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4562: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4563: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
4564: raise OKE_API.G_EXCEPTION_ERROR;
4565: End If;
4566:
4567: END IF;
4560:
4561: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4562: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4563: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
4564: raise OKE_API.G_EXCEPTION_ERROR;
4565: End If;
4566:
4567: END IF;
4568:
4567: END IF;
4568:
4569: IF l_item_exists = 'Y'
4570: AND x_cle_rec.inventory_item_id IS NULL
4571: AND x_return_status = OKE_API.G_RET_STS_SUCCESS
4572: THEN
4573: -- Delete the line item
4574: l_cimv_tbl_in(1).id := l_k_item_id;
4575: l_cimv_tbl_in(1).object_version_number := l_ovn;
4589: );
4590:
4591: okc_cvm_pvt.defer_minor_version_update('F');
4592:
4593: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4594: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4595: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
4596: raise OKE_API.G_EXCEPTION_ERROR;
4597: End If;
4590:
4591: okc_cvm_pvt.defer_minor_version_update('F');
4592:
4593: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4594: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4595: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
4596: raise OKE_API.G_EXCEPTION_ERROR;
4597: End If;
4598: END IF;
4591: okc_cvm_pvt.defer_minor_version_update('F');
4592:
4593: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4594: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4595: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
4596: raise OKE_API.G_EXCEPTION_ERROR;
4597: End If;
4598: END IF;
4599:
4592:
4593: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4594: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4595: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
4596: raise OKE_API.G_EXCEPTION_ERROR;
4597: End If;
4598: END IF;
4599:
4600: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
4596: raise OKE_API.G_EXCEPTION_ERROR;
4597: End If;
4598: END IF;
4599:
4600: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
4601: x_msg_data => x_msg_data);
4602: EXCEPTION
4603: when OKE_API.G_EXCEPTION_ERROR then
4604: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4599:
4600: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
4601: x_msg_data => x_msg_data);
4602: EXCEPTION
4603: when OKE_API.G_EXCEPTION_ERROR then
4604: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4605: p_api_name => l_api_name,
4606: p_pkg_name => g_pkg_name,
4607: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
4600: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
4601: x_msg_data => x_msg_data);
4602: EXCEPTION
4603: when OKE_API.G_EXCEPTION_ERROR then
4604: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4605: p_api_name => l_api_name,
4606: p_pkg_name => g_pkg_name,
4607: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
4608: x_msg_count => x_msg_count,
4603: when OKE_API.G_EXCEPTION_ERROR then
4604: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4605: p_api_name => l_api_name,
4606: p_pkg_name => g_pkg_name,
4607: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
4608: x_msg_count => x_msg_count,
4609: x_msg_data => x_msg_data,
4610: p_api_type => g_api_type);
4611:
4608: x_msg_count => x_msg_count,
4609: x_msg_data => x_msg_data,
4610: p_api_type => g_api_type);
4611:
4612: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
4613: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4614: p_api_name => l_api_name,
4615: p_pkg_name => g_pkg_name,
4616: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
4609: x_msg_data => x_msg_data,
4610: p_api_type => g_api_type);
4611:
4612: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
4613: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4614: p_api_name => l_api_name,
4615: p_pkg_name => g_pkg_name,
4616: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
4617: x_msg_count => x_msg_count,
4612: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
4613: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4614: p_api_name => l_api_name,
4615: p_pkg_name => g_pkg_name,
4616: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
4617: x_msg_count => x_msg_count,
4618: x_msg_data => x_msg_data,
4619: p_api_type => g_api_type);
4620:
4618: x_msg_data => x_msg_data,
4619: p_api_type => g_api_type);
4620:
4621: when OTHERS then
4622: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4623: p_api_name => l_api_name,
4624: p_pkg_name => g_pkg_name,
4625: p_exc_name => 'OTHERS',
4626: x_msg_count => x_msg_count,
4631:
4632:
4633: PROCEDURE update_line_item(
4634: p_api_version IN NUMBER,
4635: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
4636: x_return_status OUT NOCOPY VARCHAR2,
4637: x_msg_count OUT NOCOPY NUMBER,
4638: x_msg_data OUT NOCOPY VARCHAR2,
4639:
4638: x_msg_data OUT NOCOPY VARCHAR2,
4639:
4640: p_cimv_rec IN cimv_rec_type,
4641: x_cimv_rec OUT NOCOPY cimv_rec_type,
4642: p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE
4643: )
4644: IS
4645: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_LINE_ITEM';
4646: l_api_version CONSTANT NUMBER := 1.0;
4647:
4648: l_msg_count NUMBER;
4649: l_msg_data VARCHAR2(2000);
4650:
4651: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4652: l_cimv_tbl_in okc_contract_item_pub.cimv_tbl_type;
4653: l_cimv_tbl_out okc_contract_item_pub.cimv_tbl_type;
4654:
4655: BEGIN
4655: BEGIN
4656:
4657: -- call START_ACTIVITY to create savepoint, check compatibility
4658: -- and initialize message list
4659: l_return_status := OKE_API.START_ACTIVITY(
4660: p_api_name => l_api_name,
4661: p_pkg_name => g_pkg_name,
4662: p_init_msg_list => p_init_msg_list,
4663: l_api_version => l_api_version,
4665: p_api_type => g_api_type,
4666: x_return_status => x_return_status);
4667:
4668: -- check if activity started successfully
4669: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4670: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4671: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4672: raise OKE_API.G_EXCEPTION_ERROR;
4673: End If;
4666: x_return_status => x_return_status);
4667:
4668: -- check if activity started successfully
4669: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4670: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4671: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4672: raise OKE_API.G_EXCEPTION_ERROR;
4673: End If;
4674:
4667:
4668: -- check if activity started successfully
4669: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4670: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4671: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4672: raise OKE_API.G_EXCEPTION_ERROR;
4673: End If;
4674:
4675: l_cimv_tbl_in(1).ID := p_cimv_rec.ID;
4668: -- check if activity started successfully
4669: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4670: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4671: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4672: raise OKE_API.G_EXCEPTION_ERROR;
4673: End If;
4674:
4675: l_cimv_tbl_in(1).ID := p_cimv_rec.ID;
4676: l_cimv_tbl_in(1).OBJECT_VERSION_NUMBER := p_cimv_rec.OBJECT_VERSION_NUMBER;
4709: );
4710:
4711: okc_cvm_pvt.defer_minor_version_update('F');
4712:
4713: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4714: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4715: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4716: raise OKE_API.G_EXCEPTION_ERROR;
4717: End If;
4710:
4711: okc_cvm_pvt.defer_minor_version_update('F');
4712:
4713: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4714: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4715: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4716: raise OKE_API.G_EXCEPTION_ERROR;
4717: End If;
4718:
4711: okc_cvm_pvt.defer_minor_version_update('F');
4712:
4713: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4714: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4715: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4716: raise OKE_API.G_EXCEPTION_ERROR;
4717: End If;
4718:
4719: x_cimv_rec.ID := l_cimv_tbl_out(1).ID;
4712:
4713: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4714: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4715: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4716: raise OKE_API.G_EXCEPTION_ERROR;
4717: End If;
4718:
4719: x_cimv_rec.ID := l_cimv_tbl_out(1).ID;
4720: x_cimv_rec.OBJECT_VERSION_NUMBER := l_cimv_tbl_out(1).OBJECT_VERSION_NUMBER;
4736: x_cimv_rec.LAST_UPDATE_LOGIN := l_cimv_tbl_out(1).LAST_UPDATE_LOGIN;
4737: x_cimv_rec.UPG_ORIG_SYSTEM_REF := l_cimv_tbl_out(1).UPG_ORIG_SYSTEM_REF;
4738: x_cimv_rec.UPG_ORIG_SYSTEM_REF_ID := l_cimv_tbl_out(1).UPG_ORIG_SYSTEM_REF_ID;
4739:
4740: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
4741: x_msg_data => x_msg_data);
4742:
4743: EXCEPTION
4744: when OKE_API.G_EXCEPTION_ERROR then
4740: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
4741: x_msg_data => x_msg_data);
4742:
4743: EXCEPTION
4744: when OKE_API.G_EXCEPTION_ERROR then
4745: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4746: p_api_name => l_api_name,
4747: p_pkg_name => g_pkg_name,
4748: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
4741: x_msg_data => x_msg_data);
4742:
4743: EXCEPTION
4744: when OKE_API.G_EXCEPTION_ERROR then
4745: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4746: p_api_name => l_api_name,
4747: p_pkg_name => g_pkg_name,
4748: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
4749: x_msg_count => x_msg_count,
4744: when OKE_API.G_EXCEPTION_ERROR then
4745: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4746: p_api_name => l_api_name,
4747: p_pkg_name => g_pkg_name,
4748: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
4749: x_msg_count => x_msg_count,
4750: x_msg_data => x_msg_data,
4751: p_api_type => g_api_type);
4752:
4749: x_msg_count => x_msg_count,
4750: x_msg_data => x_msg_data,
4751: p_api_type => g_api_type);
4752:
4753: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
4754: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4755: p_api_name => l_api_name,
4756: p_pkg_name => g_pkg_name,
4757: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
4750: x_msg_data => x_msg_data,
4751: p_api_type => g_api_type);
4752:
4753: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
4754: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4755: p_api_name => l_api_name,
4756: p_pkg_name => g_pkg_name,
4757: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
4758: x_msg_count => x_msg_count,
4753: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
4754: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4755: p_api_name => l_api_name,
4756: p_pkg_name => g_pkg_name,
4757: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
4758: x_msg_count => x_msg_count,
4759: x_msg_data => x_msg_data,
4760: p_api_type => g_api_type);
4761:
4759: x_msg_data => x_msg_data,
4760: p_api_type => g_api_type);
4761:
4762: when OTHERS then
4763: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4764: p_api_name => l_api_name,
4765: p_pkg_name => g_pkg_name,
4766: p_exc_name => 'OTHERS',
4767: x_msg_count => x_msg_count,
4773:
4774: PROCEDURE update_deliverable(
4775:
4776: p_api_version IN NUMBER,
4777: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
4778: x_return_status OUT NOCOPY VARCHAR2,
4779: x_msg_count OUT NOCOPY NUMBER,
4780: x_msg_data OUT NOCOPY VARCHAR2,
4781: p_del_rec IN del_rec_type,
4782: x_del_rec OUT NOCOPY del_rec_type) IS
4783:
4784: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_DELIVERABLE';
4785: l_api_version CONSTANT NUMBER := 1.0;
4786: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4787:
4788: l_del_rec OKE_CONTRACT_PUB.del_rec_type;
4789:
4790: CURSOR get_inv_org IS
5052: ) RETURN VARCHAR2 IS
5053:
5054: l_del_rec del_rec_type;
5055: l_row_notfound BOOLEAN := TRUE;
5056: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
5057:
5058: BEGIN
5059:
5060:
5064: -- Get current database values
5065: l_del_rec := get_rec(p_del_rec, l_row_notfound);
5066:
5067: IF (l_row_notfound) THEN
5068: l_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
5069: END IF;
5070:
5071:
5072: IF x_del_rec.DELIVERABLE_NUM = OKE_API.G_MISS_CHAR THEN
5068: l_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
5069: END IF;
5070:
5071:
5072: IF x_del_rec.DELIVERABLE_NUM = OKE_API.G_MISS_CHAR THEN
5073: x_del_rec.DELIVERABLE_NUM := l_del_rec.DELIVERABLE_NUM;
5074: END IF;
5075:
5076: IF x_del_rec.PROJECT_ID = OKE_API.G_MISS_NUM THEN
5072: IF x_del_rec.DELIVERABLE_NUM = OKE_API.G_MISS_CHAR THEN
5073: x_del_rec.DELIVERABLE_NUM := l_del_rec.DELIVERABLE_NUM;
5074: END IF;
5075:
5076: IF x_del_rec.PROJECT_ID = OKE_API.G_MISS_NUM THEN
5077: x_del_rec.PROJECT_ID := l_del_rec.PROJECT_ID;
5078: END IF;
5079:
5080: IF x_del_rec.TASK_ID = OKE_API.G_MISS_NUM THEN
5076: IF x_del_rec.PROJECT_ID = OKE_API.G_MISS_NUM THEN
5077: x_del_rec.PROJECT_ID := l_del_rec.PROJECT_ID;
5078: END IF;
5079:
5080: IF x_del_rec.TASK_ID = OKE_API.G_MISS_NUM THEN
5081: x_del_rec.TASK_ID := l_del_rec.TASK_ID;
5082: END IF;
5083:
5084: IF x_del_rec.ITEM_ID = OKE_API.G_MISS_NUM THEN
5080: IF x_del_rec.TASK_ID = OKE_API.G_MISS_NUM THEN
5081: x_del_rec.TASK_ID := l_del_rec.TASK_ID;
5082: END IF;
5083:
5084: IF x_del_rec.ITEM_ID = OKE_API.G_MISS_NUM THEN
5085: x_del_rec.ITEM_ID := l_del_rec.ITEM_ID;
5086: END IF;
5087:
5088: IF x_del_rec.K_HEADER_ID = OKE_API.G_MISS_NUM THEN
5084: IF x_del_rec.ITEM_ID = OKE_API.G_MISS_NUM THEN
5085: x_del_rec.ITEM_ID := l_del_rec.ITEM_ID;
5086: END IF;
5087:
5088: IF x_del_rec.K_HEADER_ID = OKE_API.G_MISS_NUM THEN
5089: x_del_rec.K_HEADER_ID := l_del_rec.K_HEADER_ID;
5090: END IF;
5091:
5092: IF x_del_rec.K_LINE_ID = OKE_API.G_MISS_NUM THEN
5088: IF x_del_rec.K_HEADER_ID = OKE_API.G_MISS_NUM THEN
5089: x_del_rec.K_HEADER_ID := l_del_rec.K_HEADER_ID;
5090: END IF;
5091:
5092: IF x_del_rec.K_LINE_ID = OKE_API.G_MISS_NUM THEN
5093: x_del_rec.K_LINE_ID := l_del_rec.K_LINE_ID;
5094: END IF;
5095:
5096: IF x_del_rec.DELIVERY_DATE = OKE_API.G_MISS_DATE THEN
5092: IF x_del_rec.K_LINE_ID = OKE_API.G_MISS_NUM THEN
5093: x_del_rec.K_LINE_ID := l_del_rec.K_LINE_ID;
5094: END IF;
5095:
5096: IF x_del_rec.DELIVERY_DATE = OKE_API.G_MISS_DATE THEN
5097: x_del_rec.DELIVERY_DATE := l_del_rec.DELIVERY_DATE;
5098: END IF;
5099:
5100: IF x_del_rec.STATUS_CODE = OKE_API.G_MISS_CHAR THEN
5096: IF x_del_rec.DELIVERY_DATE = OKE_API.G_MISS_DATE THEN
5097: x_del_rec.DELIVERY_DATE := l_del_rec.DELIVERY_DATE;
5098: END IF;
5099:
5100: IF x_del_rec.STATUS_CODE = OKE_API.G_MISS_CHAR THEN
5101: x_del_rec.STATUS_CODE := l_del_rec.STATUS_CODE;
5102: END IF;
5103:
5104: IF x_del_rec.PARENT_DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
5100: IF x_del_rec.STATUS_CODE = OKE_API.G_MISS_CHAR THEN
5101: x_del_rec.STATUS_CODE := l_del_rec.STATUS_CODE;
5102: END IF;
5103:
5104: IF x_del_rec.PARENT_DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
5105: x_del_rec.PARENT_DELIVERABLE_ID := l_del_rec.PARENT_DELIVERABLE_ID;
5106: END IF;
5107:
5108: IF x_del_rec.SHIP_TO_ORG_ID = OKE_API.G_MISS_NUM THEN
5104: IF x_del_rec.PARENT_DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
5105: x_del_rec.PARENT_DELIVERABLE_ID := l_del_rec.PARENT_DELIVERABLE_ID;
5106: END IF;
5107:
5108: IF x_del_rec.SHIP_TO_ORG_ID = OKE_API.G_MISS_NUM THEN
5109: x_del_rec.SHIP_TO_ORG_ID := l_del_rec.SHIP_TO_ORG_ID;
5110: END IF;
5111:
5112: IF x_del_rec.SHIP_TO_LOCATION_ID = OKE_API.G_MISS_NUM THEN
5108: IF x_del_rec.SHIP_TO_ORG_ID = OKE_API.G_MISS_NUM THEN
5109: x_del_rec.SHIP_TO_ORG_ID := l_del_rec.SHIP_TO_ORG_ID;
5110: END IF;
5111:
5112: IF x_del_rec.SHIP_TO_LOCATION_ID = OKE_API.G_MISS_NUM THEN
5113: x_del_rec.SHIP_TO_LOCATION_ID := l_del_rec.SHIP_TO_LOCATION_ID;
5114: END IF;
5115:
5116: IF x_del_rec.SHIP_FROM_ORG_ID = OKE_API.G_MISS_NUM THEN
5112: IF x_del_rec.SHIP_TO_LOCATION_ID = OKE_API.G_MISS_NUM THEN
5113: x_del_rec.SHIP_TO_LOCATION_ID := l_del_rec.SHIP_TO_LOCATION_ID;
5114: END IF;
5115:
5116: IF x_del_rec.SHIP_FROM_ORG_ID = OKE_API.G_MISS_NUM THEN
5117: x_del_rec.SHIP_FROM_ORG_ID := l_del_rec.SHIP_FROM_ORG_ID;
5118: END IF;
5119:
5120: IF x_del_rec.SHIP_FROM_LOCATION_ID = OKE_API.G_MISS_NUM THEN
5116: IF x_del_rec.SHIP_FROM_ORG_ID = OKE_API.G_MISS_NUM THEN
5117: x_del_rec.SHIP_FROM_ORG_ID := l_del_rec.SHIP_FROM_ORG_ID;
5118: END IF;
5119:
5120: IF x_del_rec.SHIP_FROM_LOCATION_ID = OKE_API.G_MISS_NUM THEN
5121: x_del_rec.SHIP_FROM_LOCATION_ID := l_del_rec.SHIP_FROM_LOCATION_ID;
5122: END IF;
5123:
5124: IF x_del_rec.INVENTORY_ORG_ID = OKE_API.G_MISS_NUM THEN
5120: IF x_del_rec.SHIP_FROM_LOCATION_ID = OKE_API.G_MISS_NUM THEN
5121: x_del_rec.SHIP_FROM_LOCATION_ID := l_del_rec.SHIP_FROM_LOCATION_ID;
5122: END IF;
5123:
5124: IF x_del_rec.INVENTORY_ORG_ID = OKE_API.G_MISS_NUM THEN
5125: x_del_rec.INVENTORY_ORG_ID := l_del_rec.INVENTORY_ORG_ID;
5126: END IF;
5127:
5128: IF x_del_rec.DIRECTION = OKE_API.G_MISS_CHAR THEN
5124: IF x_del_rec.INVENTORY_ORG_ID = OKE_API.G_MISS_NUM THEN
5125: x_del_rec.INVENTORY_ORG_ID := l_del_rec.INVENTORY_ORG_ID;
5126: END IF;
5127:
5128: IF x_del_rec.DIRECTION = OKE_API.G_MISS_CHAR THEN
5129: x_del_rec.DIRECTION := l_del_rec.DIRECTION;
5130: END IF;
5131:
5132: IF x_del_rec.DEFAULTED_FLAG = OKE_API.G_MISS_CHAR THEN
5128: IF x_del_rec.DIRECTION = OKE_API.G_MISS_CHAR THEN
5129: x_del_rec.DIRECTION := l_del_rec.DIRECTION;
5130: END IF;
5131:
5132: IF x_del_rec.DEFAULTED_FLAG = OKE_API.G_MISS_CHAR THEN
5133: x_del_rec.DEFAULTED_FLAG := l_del_rec.DEFAULTED_FLAG;
5134: END IF;
5135:
5136: IF x_del_rec.IN_PROCESS_FLAG = OKE_API.G_MISS_CHAR THEN
5132: IF x_del_rec.DEFAULTED_FLAG = OKE_API.G_MISS_CHAR THEN
5133: x_del_rec.DEFAULTED_FLAG := l_del_rec.DEFAULTED_FLAG;
5134: END IF;
5135:
5136: IF x_del_rec.IN_PROCESS_FLAG = OKE_API.G_MISS_CHAR THEN
5137: x_del_rec.IN_PROCESS_FLAG := l_del_rec.IN_PROCESS_FLAG;
5138: END IF;
5139:
5140: IF x_del_rec.WF_ITEM_KEY = OKE_API.G_MISS_CHAR THEN
5136: IF x_del_rec.IN_PROCESS_FLAG = OKE_API.G_MISS_CHAR THEN
5137: x_del_rec.IN_PROCESS_FLAG := l_del_rec.IN_PROCESS_FLAG;
5138: END IF;
5139:
5140: IF x_del_rec.WF_ITEM_KEY = OKE_API.G_MISS_CHAR THEN
5141: x_del_rec.WF_ITEM_KEY := l_del_rec.WF_ITEM_KEY;
5142: END IF;
5143:
5144: IF x_del_rec.SUB_REF_ID = OKE_API.G_MISS_NUM THEN
5140: IF x_del_rec.WF_ITEM_KEY = OKE_API.G_MISS_CHAR THEN
5141: x_del_rec.WF_ITEM_KEY := l_del_rec.WF_ITEM_KEY;
5142: END IF;
5143:
5144: IF x_del_rec.SUB_REF_ID = OKE_API.G_MISS_NUM THEN
5145: x_del_rec.SUB_REF_ID := l_del_rec.SUB_REF_ID;
5146: END IF;
5147:
5148: IF x_del_rec.START_DATE = OKE_API.G_MISS_DATE THEN
5144: IF x_del_rec.SUB_REF_ID = OKE_API.G_MISS_NUM THEN
5145: x_del_rec.SUB_REF_ID := l_del_rec.SUB_REF_ID;
5146: END IF;
5147:
5148: IF x_del_rec.START_DATE = OKE_API.G_MISS_DATE THEN
5149: x_del_rec.START_DATE := l_del_rec.START_DATE;
5150: END IF;
5151:
5152: IF x_del_rec.END_DATE = OKE_API.G_MISS_DATE THEN
5148: IF x_del_rec.START_DATE = OKE_API.G_MISS_DATE THEN
5149: x_del_rec.START_DATE := l_del_rec.START_DATE;
5150: END IF;
5151:
5152: IF x_del_rec.END_DATE = OKE_API.G_MISS_DATE THEN
5153: x_del_rec.END_DATE := l_del_rec.END_DATE;
5154: END IF;
5155:
5156: IF x_del_rec.PRIORITY_CODE = OKE_API.G_MISS_CHAR THEN
5152: IF x_del_rec.END_DATE = OKE_API.G_MISS_DATE THEN
5153: x_del_rec.END_DATE := l_del_rec.END_DATE;
5154: END IF;
5155:
5156: IF x_del_rec.PRIORITY_CODE = OKE_API.G_MISS_CHAR THEN
5157: x_del_rec.PRIORITY_CODE := l_del_rec.PRIORITY_CODE;
5158: END IF;
5159:
5160: IF x_del_rec.CURRENCY_CODE = OKE_API.G_MISS_CHAR THEN
5156: IF x_del_rec.PRIORITY_CODE = OKE_API.G_MISS_CHAR THEN
5157: x_del_rec.PRIORITY_CODE := l_del_rec.PRIORITY_CODE;
5158: END IF;
5159:
5160: IF x_del_rec.CURRENCY_CODE = OKE_API.G_MISS_CHAR THEN
5161: x_del_rec.CURRENCY_CODE := l_del_rec.CURRENCY_CODE;
5162: END IF;
5163:
5164: IF x_del_rec.UNIT_PRICE = OKE_API.G_MISS_NUM THEN
5160: IF x_del_rec.CURRENCY_CODE = OKE_API.G_MISS_CHAR THEN
5161: x_del_rec.CURRENCY_CODE := l_del_rec.CURRENCY_CODE;
5162: END IF;
5163:
5164: IF x_del_rec.UNIT_PRICE = OKE_API.G_MISS_NUM THEN
5165: x_del_rec.UNIT_PRICE := l_del_rec.UNIT_PRICE;
5166: END IF;
5167:
5168: IF x_del_rec.UOM_CODE = OKE_API.G_MISS_CHAR THEN
5164: IF x_del_rec.UNIT_PRICE = OKE_API.G_MISS_NUM THEN
5165: x_del_rec.UNIT_PRICE := l_del_rec.UNIT_PRICE;
5166: END IF;
5167:
5168: IF x_del_rec.UOM_CODE = OKE_API.G_MISS_CHAR THEN
5169: x_del_rec.UOM_CODE := l_del_rec.UOM_CODE;
5170: END IF;
5171:
5172: IF x_del_rec.QUANTITY = OKE_API.G_MISS_NUM THEN
5168: IF x_del_rec.UOM_CODE = OKE_API.G_MISS_CHAR THEN
5169: x_del_rec.UOM_CODE := l_del_rec.UOM_CODE;
5170: END IF;
5171:
5172: IF x_del_rec.QUANTITY = OKE_API.G_MISS_NUM THEN
5173: x_del_rec.QUANTITY := l_del_rec.QUANTITY;
5174: END IF;
5175:
5176: IF x_del_rec.COUNTRY_OF_ORIGIN_CODE = OKE_API.G_MISS_CHAR THEN
5172: IF x_del_rec.QUANTITY = OKE_API.G_MISS_NUM THEN
5173: x_del_rec.QUANTITY := l_del_rec.QUANTITY;
5174: END IF;
5175:
5176: IF x_del_rec.COUNTRY_OF_ORIGIN_CODE = OKE_API.G_MISS_CHAR THEN
5177: x_del_rec.COUNTRY_OF_ORIGIN_CODE := l_del_rec.COUNTRY_OF_ORIGIN_CODE;
5178: END IF;
5179:
5180: IF x_del_rec.SUBCONTRACTED_FLAG = OKE_API.G_MISS_CHAR THEN
5176: IF x_del_rec.COUNTRY_OF_ORIGIN_CODE = OKE_API.G_MISS_CHAR THEN
5177: x_del_rec.COUNTRY_OF_ORIGIN_CODE := l_del_rec.COUNTRY_OF_ORIGIN_CODE;
5178: END IF;
5179:
5180: IF x_del_rec.SUBCONTRACTED_FLAG = OKE_API.G_MISS_CHAR THEN
5181: x_del_rec.SUBCONTRACTED_FLAG := l_del_rec.SUBCONTRACTED_FLAG;
5182: END IF;
5183:
5184: IF x_del_rec.DEPENDENCY_FLAG = OKE_API.G_MISS_CHAR THEN
5180: IF x_del_rec.SUBCONTRACTED_FLAG = OKE_API.G_MISS_CHAR THEN
5181: x_del_rec.SUBCONTRACTED_FLAG := l_del_rec.SUBCONTRACTED_FLAG;
5182: END IF;
5183:
5184: IF x_del_rec.DEPENDENCY_FLAG = OKE_API.G_MISS_CHAR THEN
5185: x_del_rec.DEPENDENCY_FLAG := l_del_rec.DEPENDENCY_FLAG;
5186: END IF;
5187:
5188:
5186: END IF;
5187:
5188:
5189:
5190: IF x_del_rec.BILLABLE_FLAG = OKE_API.G_MISS_CHAR THEN
5191: x_del_rec.BILLABLE_FLAG := l_del_rec.BILLABLE_FLAG;
5192: END IF;
5193:
5194: IF x_del_rec.BILLING_EVENT_ID = OKE_API.G_MISS_NUM THEN
5190: IF x_del_rec.BILLABLE_FLAG = OKE_API.G_MISS_CHAR THEN
5191: x_del_rec.BILLABLE_FLAG := l_del_rec.BILLABLE_FLAG;
5192: END IF;
5193:
5194: IF x_del_rec.BILLING_EVENT_ID = OKE_API.G_MISS_NUM THEN
5195: x_del_rec.BILLING_EVENT_ID := l_del_rec.BILLING_EVENT_ID;
5196: END IF;
5197:
5198: IF x_del_rec.DROP_SHIPPED_FLAG = OKE_API.G_MISS_CHAR THEN
5194: IF x_del_rec.BILLING_EVENT_ID = OKE_API.G_MISS_NUM THEN
5195: x_del_rec.BILLING_EVENT_ID := l_del_rec.BILLING_EVENT_ID;
5196: END IF;
5197:
5198: IF x_del_rec.DROP_SHIPPED_FLAG = OKE_API.G_MISS_CHAR THEN
5199: x_del_rec.DROP_SHIPPED_FLAG := l_del_rec.DROP_SHIPPED_FLAG;
5200: END IF;
5201:
5202: IF x_del_rec.COMPLETED_FLAG = OKE_API.G_MISS_CHAR THEN
5198: IF x_del_rec.DROP_SHIPPED_FLAG = OKE_API.G_MISS_CHAR THEN
5199: x_del_rec.DROP_SHIPPED_FLAG := l_del_rec.DROP_SHIPPED_FLAG;
5200: END IF;
5201:
5202: IF x_del_rec.COMPLETED_FLAG = OKE_API.G_MISS_CHAR THEN
5203: x_del_rec.COMPLETED_FLAG := l_del_rec.COMPLETED_FLAG;
5204: END IF;
5205:
5206: IF x_del_rec.AVAILABLE_FOR_SHIP_FLAG = OKE_API.G_MISS_CHAR THEN
5202: IF x_del_rec.COMPLETED_FLAG = OKE_API.G_MISS_CHAR THEN
5203: x_del_rec.COMPLETED_FLAG := l_del_rec.COMPLETED_FLAG;
5204: END IF;
5205:
5206: IF x_del_rec.AVAILABLE_FOR_SHIP_FLAG = OKE_API.G_MISS_CHAR THEN
5207: x_del_rec.AVAILABLE_FOR_SHIP_FLAG := l_del_rec.AVAILABLE_FOR_SHIP_FLAG;
5208: END IF;
5209:
5210: IF x_del_rec.CREATE_DEMAND = OKE_API.G_MISS_CHAR THEN
5206: IF x_del_rec.AVAILABLE_FOR_SHIP_FLAG = OKE_API.G_MISS_CHAR THEN
5207: x_del_rec.AVAILABLE_FOR_SHIP_FLAG := l_del_rec.AVAILABLE_FOR_SHIP_FLAG;
5208: END IF;
5209:
5210: IF x_del_rec.CREATE_DEMAND = OKE_API.G_MISS_CHAR THEN
5211: x_del_rec.CREATE_DEMAND := l_del_rec.CREATE_DEMAND;
5212: END IF;
5213:
5214: IF x_del_rec.READY_TO_BILL = OKE_API.G_MISS_CHAR THEN
5210: IF x_del_rec.CREATE_DEMAND = OKE_API.G_MISS_CHAR THEN
5211: x_del_rec.CREATE_DEMAND := l_del_rec.CREATE_DEMAND;
5212: END IF;
5213:
5214: IF x_del_rec.READY_TO_BILL = OKE_API.G_MISS_CHAR THEN
5215: x_del_rec.READY_TO_BILL := l_del_rec.READY_TO_BILL;
5216: END IF;
5217:
5218: IF x_del_rec.NEED_BY_DATE = OKE_API.G_MISS_DATE THEN
5214: IF x_del_rec.READY_TO_BILL = OKE_API.G_MISS_CHAR THEN
5215: x_del_rec.READY_TO_BILL := l_del_rec.READY_TO_BILL;
5216: END IF;
5217:
5218: IF x_del_rec.NEED_BY_DATE = OKE_API.G_MISS_DATE THEN
5219: x_del_rec.NEED_BY_DATE := l_del_rec.NEED_BY_DATE;
5220: END IF;
5221:
5222: IF x_del_rec.READY_TO_PROCURE = OKE_API.G_MISS_CHAR THEN
5218: IF x_del_rec.NEED_BY_DATE = OKE_API.G_MISS_DATE THEN
5219: x_del_rec.NEED_BY_DATE := l_del_rec.NEED_BY_DATE;
5220: END IF;
5221:
5222: IF x_del_rec.READY_TO_PROCURE = OKE_API.G_MISS_CHAR THEN
5223: x_del_rec.READY_TO_PROCURE := l_del_rec.READY_TO_PROCURE;
5224: END IF;
5225:
5226: IF x_del_rec.MPS_TRANSACTION_ID = OKE_API.G_MISS_NUM THEN
5222: IF x_del_rec.READY_TO_PROCURE = OKE_API.G_MISS_CHAR THEN
5223: x_del_rec.READY_TO_PROCURE := l_del_rec.READY_TO_PROCURE;
5224: END IF;
5225:
5226: IF x_del_rec.MPS_TRANSACTION_ID = OKE_API.G_MISS_NUM THEN
5227: x_del_rec.MPS_TRANSACTION_ID := l_del_rec.MPS_TRANSACTION_ID;
5228: END IF;
5229:
5230: IF x_del_rec.PO_REF_1 = OKE_API.G_MISS_NUM THEN
5226: IF x_del_rec.MPS_TRANSACTION_ID = OKE_API.G_MISS_NUM THEN
5227: x_del_rec.MPS_TRANSACTION_ID := l_del_rec.MPS_TRANSACTION_ID;
5228: END IF;
5229:
5230: IF x_del_rec.PO_REF_1 = OKE_API.G_MISS_NUM THEN
5231: x_del_rec.PO_REF_1 := l_del_rec.PO_REF_1;
5232: END IF;
5233:
5234: IF x_del_rec.PO_REF_2 = OKE_API.G_MISS_NUM THEN
5230: IF x_del_rec.PO_REF_1 = OKE_API.G_MISS_NUM THEN
5231: x_del_rec.PO_REF_1 := l_del_rec.PO_REF_1;
5232: END IF;
5233:
5234: IF x_del_rec.PO_REF_2 = OKE_API.G_MISS_NUM THEN
5235: x_del_rec.PO_REF_2 := l_del_rec.PO_REF_2;
5236: END IF;
5237:
5238: IF x_del_rec.PO_REF_3 = OKE_API.G_MISS_NUM THEN
5234: IF x_del_rec.PO_REF_2 = OKE_API.G_MISS_NUM THEN
5235: x_del_rec.PO_REF_2 := l_del_rec.PO_REF_2;
5236: END IF;
5237:
5238: IF x_del_rec.PO_REF_3 = OKE_API.G_MISS_NUM THEN
5239: x_del_rec.PO_REF_3 := l_del_rec.PO_REF_3;
5240: END IF;
5241:
5242: IF x_del_rec.SHIPPING_REQUEST_ID = OKE_API.G_MISS_NUM THEN
5238: IF x_del_rec.PO_REF_3 = OKE_API.G_MISS_NUM THEN
5239: x_del_rec.PO_REF_3 := l_del_rec.PO_REF_3;
5240: END IF;
5241:
5242: IF x_del_rec.SHIPPING_REQUEST_ID = OKE_API.G_MISS_NUM THEN
5243: x_del_rec.SHIPPING_REQUEST_ID := l_del_rec.SHIPPING_REQUEST_ID;
5244: END IF;
5245:
5246: IF x_del_rec.UNIT_NUMBER = OKE_API.G_MISS_CHAR THEN
5242: IF x_del_rec.SHIPPING_REQUEST_ID = OKE_API.G_MISS_NUM THEN
5243: x_del_rec.SHIPPING_REQUEST_ID := l_del_rec.SHIPPING_REQUEST_ID;
5244: END IF;
5245:
5246: IF x_del_rec.UNIT_NUMBER = OKE_API.G_MISS_CHAR THEN
5247: x_del_rec.UNIT_NUMBER := l_del_rec.UNIT_NUMBER;
5248: END IF;
5249:
5250: IF x_del_rec.NDB_SCHEDULE_DESIGNATOR = OKE_API.G_MISS_CHAR THEN
5246: IF x_del_rec.UNIT_NUMBER = OKE_API.G_MISS_CHAR THEN
5247: x_del_rec.UNIT_NUMBER := l_del_rec.UNIT_NUMBER;
5248: END IF;
5249:
5250: IF x_del_rec.NDB_SCHEDULE_DESIGNATOR = OKE_API.G_MISS_CHAR THEN
5251: x_del_rec.NDB_SCHEDULE_DESIGNATOR := l_del_rec.NDB_SCHEDULE_DESIGNATOR;
5252: END IF;
5253:
5254: IF x_del_rec.SHIPPABLE_FLAG = OKE_API.G_MISS_CHAR THEN
5250: IF x_del_rec.NDB_SCHEDULE_DESIGNATOR = OKE_API.G_MISS_CHAR THEN
5251: x_del_rec.NDB_SCHEDULE_DESIGNATOR := l_del_rec.NDB_SCHEDULE_DESIGNATOR;
5252: END IF;
5253:
5254: IF x_del_rec.SHIPPABLE_FLAG = OKE_API.G_MISS_CHAR THEN
5255: x_del_rec.SHIPPABLE_FLAG := l_del_rec.SHIPPABLE_FLAG;
5256: END IF;
5257:
5258: IF x_del_rec.CFE_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
5254: IF x_del_rec.SHIPPABLE_FLAG = OKE_API.G_MISS_CHAR THEN
5255: x_del_rec.SHIPPABLE_FLAG := l_del_rec.SHIPPABLE_FLAG;
5256: END IF;
5257:
5258: IF x_del_rec.CFE_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
5259: x_del_rec.CFE_REQ_FLAG := l_del_rec.CFE_REQ_FLAG;
5260: END IF;
5261:
5262: IF x_del_rec.INSPECTION_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
5258: IF x_del_rec.CFE_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
5259: x_del_rec.CFE_REQ_FLAG := l_del_rec.CFE_REQ_FLAG;
5260: END IF;
5261:
5262: IF x_del_rec.INSPECTION_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
5263: x_del_rec.INSPECTION_REQ_FLAG := l_del_rec.INSPECTION_REQ_FLAG;
5264: END IF;
5265:
5266: IF x_del_rec.INTERIM_RPT_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
5262: IF x_del_rec.INSPECTION_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
5263: x_del_rec.INSPECTION_REQ_FLAG := l_del_rec.INSPECTION_REQ_FLAG;
5264: END IF;
5265:
5266: IF x_del_rec.INTERIM_RPT_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
5267: x_del_rec.INTERIM_RPT_REQ_FLAG := l_del_rec.INTERIM_RPT_REQ_FLAG;
5268: END IF;
5269:
5270: IF x_del_rec.LOT_APPLIES_FLAG = OKE_API.G_MISS_CHAR THEN
5266: IF x_del_rec.INTERIM_RPT_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
5267: x_del_rec.INTERIM_RPT_REQ_FLAG := l_del_rec.INTERIM_RPT_REQ_FLAG;
5268: END IF;
5269:
5270: IF x_del_rec.LOT_APPLIES_FLAG = OKE_API.G_MISS_CHAR THEN
5271: x_del_rec.LOT_APPLIES_FLAG := l_del_rec.LOT_APPLIES_FLAG;
5272: END IF;
5273:
5274: IF x_del_rec.CUSTOMER_APPROVAL_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
5270: IF x_del_rec.LOT_APPLIES_FLAG = OKE_API.G_MISS_CHAR THEN
5271: x_del_rec.LOT_APPLIES_FLAG := l_del_rec.LOT_APPLIES_FLAG;
5272: END IF;
5273:
5274: IF x_del_rec.CUSTOMER_APPROVAL_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
5275: x_del_rec.CUSTOMER_APPROVAL_REQ_FLAG := l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG;
5276: END IF;
5277:
5278: IF x_del_rec.EXPECTED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
5274: IF x_del_rec.CUSTOMER_APPROVAL_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
5275: x_del_rec.CUSTOMER_APPROVAL_REQ_FLAG := l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG;
5276: END IF;
5277:
5278: IF x_del_rec.EXPECTED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
5279: x_del_rec.EXPECTED_SHIPMENT_DATE := l_del_rec.EXPECTED_SHIPMENT_DATE;
5280: END IF;
5281:
5282: IF x_del_rec.INITIATE_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
5278: IF x_del_rec.EXPECTED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
5279: x_del_rec.EXPECTED_SHIPMENT_DATE := l_del_rec.EXPECTED_SHIPMENT_DATE;
5280: END IF;
5281:
5282: IF x_del_rec.INITIATE_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
5283: x_del_rec.INITIATE_SHIPMENT_DATE := l_del_rec.INITIATE_SHIPMENT_DATE;
5284: END IF;
5285:
5286: IF x_del_rec.PROMISED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
5282: IF x_del_rec.INITIATE_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
5283: x_del_rec.INITIATE_SHIPMENT_DATE := l_del_rec.INITIATE_SHIPMENT_DATE;
5284: END IF;
5285:
5286: IF x_del_rec.PROMISED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
5287: x_del_rec.PROMISED_SHIPMENT_DATE := l_del_rec.PROMISED_SHIPMENT_DATE;
5288: END IF;
5289:
5290: IF x_del_rec.AS_OF_DATE = OKE_API.G_MISS_DATE THEN
5286: IF x_del_rec.PROMISED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
5287: x_del_rec.PROMISED_SHIPMENT_DATE := l_del_rec.PROMISED_SHIPMENT_DATE;
5288: END IF;
5289:
5290: IF x_del_rec.AS_OF_DATE = OKE_API.G_MISS_DATE THEN
5291: x_del_rec.AS_OF_DATE := l_del_rec.AS_OF_DATE;
5292: END IF;
5293:
5294: IF x_del_rec.DATE_OF_FIRST_SUBMISSION = OKE_API.G_MISS_DATE THEN
5290: IF x_del_rec.AS_OF_DATE = OKE_API.G_MISS_DATE THEN
5291: x_del_rec.AS_OF_DATE := l_del_rec.AS_OF_DATE;
5292: END IF;
5293:
5294: IF x_del_rec.DATE_OF_FIRST_SUBMISSION = OKE_API.G_MISS_DATE THEN
5295: x_del_rec.DATE_OF_FIRST_SUBMISSION := l_del_rec.DATE_OF_FIRST_SUBMISSION;
5296: END IF;
5297:
5298: IF x_del_rec.FREQUENCY = OKE_API.G_MISS_CHAR THEN
5294: IF x_del_rec.DATE_OF_FIRST_SUBMISSION = OKE_API.G_MISS_DATE THEN
5295: x_del_rec.DATE_OF_FIRST_SUBMISSION := l_del_rec.DATE_OF_FIRST_SUBMISSION;
5296: END IF;
5297:
5298: IF x_del_rec.FREQUENCY = OKE_API.G_MISS_CHAR THEN
5299: x_del_rec.FREQUENCY := l_del_rec.FREQUENCY;
5300: END IF;
5301:
5302: IF x_del_rec.ACQ_DOC_NUMBER = OKE_API.G_MISS_CHAR THEN
5298: IF x_del_rec.FREQUENCY = OKE_API.G_MISS_CHAR THEN
5299: x_del_rec.FREQUENCY := l_del_rec.FREQUENCY;
5300: END IF;
5301:
5302: IF x_del_rec.ACQ_DOC_NUMBER = OKE_API.G_MISS_CHAR THEN
5303: x_del_rec.ACQ_DOC_NUMBER := l_del_rec.ACQ_DOC_NUMBER;
5304: END IF;
5305:
5306: IF x_del_rec.SUBMISSION_FLAG = OKE_API.G_MISS_CHAR THEN
5302: IF x_del_rec.ACQ_DOC_NUMBER = OKE_API.G_MISS_CHAR THEN
5303: x_del_rec.ACQ_DOC_NUMBER := l_del_rec.ACQ_DOC_NUMBER;
5304: END IF;
5305:
5306: IF x_del_rec.SUBMISSION_FLAG = OKE_API.G_MISS_CHAR THEN
5307: x_del_rec.SUBMISSION_FLAG := l_del_rec.SUBMISSION_FLAG;
5308: END IF;
5309:
5310: IF x_del_rec.DATA_ITEM_NAME = OKE_API.G_MISS_CHAR THEN
5306: IF x_del_rec.SUBMISSION_FLAG = OKE_API.G_MISS_CHAR THEN
5307: x_del_rec.SUBMISSION_FLAG := l_del_rec.SUBMISSION_FLAG;
5308: END IF;
5309:
5310: IF x_del_rec.DATA_ITEM_NAME = OKE_API.G_MISS_CHAR THEN
5311: x_del_rec.DATA_ITEM_NAME := l_del_rec.DATA_ITEM_NAME;
5312: END IF;
5313:
5314: IF x_del_rec.DATA_ITEM_SUBTITLE = OKE_API.G_MISS_CHAR THEN
5310: IF x_del_rec.DATA_ITEM_NAME = OKE_API.G_MISS_CHAR THEN
5311: x_del_rec.DATA_ITEM_NAME := l_del_rec.DATA_ITEM_NAME;
5312: END IF;
5313:
5314: IF x_del_rec.DATA_ITEM_SUBTITLE = OKE_API.G_MISS_CHAR THEN
5315: x_del_rec.DATA_ITEM_SUBTITLE := l_del_rec.DATA_ITEM_SUBTITLE;
5316: END IF;
5317:
5318: IF x_del_rec.TOTAL_NUM_OF_COPIES = OKE_API.G_MISS_NUM THEN
5314: IF x_del_rec.DATA_ITEM_SUBTITLE = OKE_API.G_MISS_CHAR THEN
5315: x_del_rec.DATA_ITEM_SUBTITLE := l_del_rec.DATA_ITEM_SUBTITLE;
5316: END IF;
5317:
5318: IF x_del_rec.TOTAL_NUM_OF_COPIES = OKE_API.G_MISS_NUM THEN
5319: x_del_rec.TOTAL_NUM_OF_COPIES := l_del_rec.TOTAL_NUM_OF_COPIES;
5320: END IF;
5321:
5322: IF x_del_rec.CDRL_CATEGORY = OKE_API.G_MISS_CHAR THEN
5318: IF x_del_rec.TOTAL_NUM_OF_COPIES = OKE_API.G_MISS_NUM THEN
5319: x_del_rec.TOTAL_NUM_OF_COPIES := l_del_rec.TOTAL_NUM_OF_COPIES;
5320: END IF;
5321:
5322: IF x_del_rec.CDRL_CATEGORY = OKE_API.G_MISS_CHAR THEN
5323: x_del_rec.CDRL_CATEGORY := l_del_rec.CDRL_CATEGORY;
5324: END IF;
5325:
5326: IF x_del_rec.EXPORT_LICENSE_NUM = OKE_API.G_MISS_CHAR THEN
5322: IF x_del_rec.CDRL_CATEGORY = OKE_API.G_MISS_CHAR THEN
5323: x_del_rec.CDRL_CATEGORY := l_del_rec.CDRL_CATEGORY;
5324: END IF;
5325:
5326: IF x_del_rec.EXPORT_LICENSE_NUM = OKE_API.G_MISS_CHAR THEN
5327: x_del_rec.EXPORT_LICENSE_NUM := l_del_rec.EXPORT_LICENSE_NUM;
5328: END IF;
5329:
5330: IF x_del_rec.EXPORT_LICENSE_RES = OKE_API.G_MISS_CHAR THEN
5326: IF x_del_rec.EXPORT_LICENSE_NUM = OKE_API.G_MISS_CHAR THEN
5327: x_del_rec.EXPORT_LICENSE_NUM := l_del_rec.EXPORT_LICENSE_NUM;
5328: END IF;
5329:
5330: IF x_del_rec.EXPORT_LICENSE_RES = OKE_API.G_MISS_CHAR THEN
5331: x_del_rec.EXPORT_LICENSE_RES := l_del_rec.EXPORT_LICENSE_RES;
5332: END IF;
5333:
5334: IF x_del_rec.EXPORT_FLAG = OKE_API.G_MISS_CHAR THEN
5330: IF x_del_rec.EXPORT_LICENSE_RES = OKE_API.G_MISS_CHAR THEN
5331: x_del_rec.EXPORT_LICENSE_RES := l_del_rec.EXPORT_LICENSE_RES;
5332: END IF;
5333:
5334: IF x_del_rec.EXPORT_FLAG = OKE_API.G_MISS_CHAR THEN
5335: x_del_rec.EXPORT_FLAG := l_del_rec.EXPORT_FLAG;
5336: END IF;
5337:
5338: IF x_del_rec.CREATED_BY = OKE_API.G_MISS_NUM THEN
5334: IF x_del_rec.EXPORT_FLAG = OKE_API.G_MISS_CHAR THEN
5335: x_del_rec.EXPORT_FLAG := l_del_rec.EXPORT_FLAG;
5336: END IF;
5337:
5338: IF x_del_rec.CREATED_BY = OKE_API.G_MISS_NUM THEN
5339: x_del_rec.CREATED_BY := l_del_rec.CREATED_BY;
5340: END IF;
5341:
5342: IF x_del_rec.CREATION_DATE = OKE_API.G_MISS_DATE THEN
5338: IF x_del_rec.CREATED_BY = OKE_API.G_MISS_NUM THEN
5339: x_del_rec.CREATED_BY := l_del_rec.CREATED_BY;
5340: END IF;
5341:
5342: IF x_del_rec.CREATION_DATE = OKE_API.G_MISS_DATE THEN
5343: x_del_rec.CREATION_DATE := l_del_rec.CREATION_DATE;
5344: END IF;
5345:
5346: IF x_del_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
5342: IF x_del_rec.CREATION_DATE = OKE_API.G_MISS_DATE THEN
5343: x_del_rec.CREATION_DATE := l_del_rec.CREATION_DATE;
5344: END IF;
5345:
5346: IF x_del_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
5347: x_del_rec.LAST_UPDATED_BY := l_del_rec.LAST_UPDATED_BY;
5348: END IF;
5349:
5350: IF x_del_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
5346: IF x_del_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
5347: x_del_rec.LAST_UPDATED_BY := l_del_rec.LAST_UPDATED_BY;
5348: END IF;
5349:
5350: IF x_del_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
5351: x_del_rec.LAST_UPDATE_LOGIN := l_del_rec.LAST_UPDATE_LOGIN;
5352: END IF;
5353:
5354: IF x_del_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
5350: IF x_del_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
5351: x_del_rec.LAST_UPDATE_LOGIN := l_del_rec.LAST_UPDATE_LOGIN;
5352: END IF;
5353:
5354: IF x_del_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
5355: x_del_rec.LAST_UPDATE_DATE := l_del_rec.LAST_UPDATE_DATE;
5356: END IF;
5357:
5358: IF x_del_rec.ATTRIBUTE_CATEGORY = OKE_API.G_MISS_CHAR THEN
5354: IF x_del_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
5355: x_del_rec.LAST_UPDATE_DATE := l_del_rec.LAST_UPDATE_DATE;
5356: END IF;
5357:
5358: IF x_del_rec.ATTRIBUTE_CATEGORY = OKE_API.G_MISS_CHAR THEN
5359: x_del_rec.ATTRIBUTE_CATEGORY := l_del_rec.ATTRIBUTE_CATEGORY;
5360: END IF;
5361:
5362: IF x_del_rec.ATTRIBUTE1 = OKE_API.G_MISS_CHAR THEN
5358: IF x_del_rec.ATTRIBUTE_CATEGORY = OKE_API.G_MISS_CHAR THEN
5359: x_del_rec.ATTRIBUTE_CATEGORY := l_del_rec.ATTRIBUTE_CATEGORY;
5360: END IF;
5361:
5362: IF x_del_rec.ATTRIBUTE1 = OKE_API.G_MISS_CHAR THEN
5363: x_del_rec.ATTRIBUTE1 := l_del_rec.ATTRIBUTE1;
5364: END IF;
5365:
5366: IF x_del_rec.ATTRIBUTE2 = OKE_API.G_MISS_CHAR THEN
5362: IF x_del_rec.ATTRIBUTE1 = OKE_API.G_MISS_CHAR THEN
5363: x_del_rec.ATTRIBUTE1 := l_del_rec.ATTRIBUTE1;
5364: END IF;
5365:
5366: IF x_del_rec.ATTRIBUTE2 = OKE_API.G_MISS_CHAR THEN
5367: x_del_rec.ATTRIBUTE2 := l_del_rec.ATTRIBUTE2;
5368: END IF;
5369:
5370: IF x_del_rec.ATTRIBUTE3 = OKE_API.G_MISS_CHAR THEN
5366: IF x_del_rec.ATTRIBUTE2 = OKE_API.G_MISS_CHAR THEN
5367: x_del_rec.ATTRIBUTE2 := l_del_rec.ATTRIBUTE2;
5368: END IF;
5369:
5370: IF x_del_rec.ATTRIBUTE3 = OKE_API.G_MISS_CHAR THEN
5371: x_del_rec.ATTRIBUTE3 := l_del_rec.ATTRIBUTE3;
5372: END IF;
5373:
5374: IF x_del_rec.ATTRIBUTE4 = OKE_API.G_MISS_CHAR THEN
5370: IF x_del_rec.ATTRIBUTE3 = OKE_API.G_MISS_CHAR THEN
5371: x_del_rec.ATTRIBUTE3 := l_del_rec.ATTRIBUTE3;
5372: END IF;
5373:
5374: IF x_del_rec.ATTRIBUTE4 = OKE_API.G_MISS_CHAR THEN
5375: x_del_rec.ATTRIBUTE4 := l_del_rec.ATTRIBUTE4;
5376: END IF;
5377:
5378: IF x_del_rec.ATTRIBUTE5 = OKE_API.G_MISS_CHAR THEN
5374: IF x_del_rec.ATTRIBUTE4 = OKE_API.G_MISS_CHAR THEN
5375: x_del_rec.ATTRIBUTE4 := l_del_rec.ATTRIBUTE4;
5376: END IF;
5377:
5378: IF x_del_rec.ATTRIBUTE5 = OKE_API.G_MISS_CHAR THEN
5379: x_del_rec.ATTRIBUTE5 := l_del_rec.ATTRIBUTE5;
5380: END IF;
5381:
5382: IF x_del_rec.ATTRIBUTE6 = OKE_API.G_MISS_CHAR THEN
5378: IF x_del_rec.ATTRIBUTE5 = OKE_API.G_MISS_CHAR THEN
5379: x_del_rec.ATTRIBUTE5 := l_del_rec.ATTRIBUTE5;
5380: END IF;
5381:
5382: IF x_del_rec.ATTRIBUTE6 = OKE_API.G_MISS_CHAR THEN
5383: x_del_rec.ATTRIBUTE6 := l_del_rec.ATTRIBUTE6;
5384: END IF;
5385:
5386: IF x_del_rec.ATTRIBUTE7 = OKE_API.G_MISS_CHAR THEN
5382: IF x_del_rec.ATTRIBUTE6 = OKE_API.G_MISS_CHAR THEN
5383: x_del_rec.ATTRIBUTE6 := l_del_rec.ATTRIBUTE6;
5384: END IF;
5385:
5386: IF x_del_rec.ATTRIBUTE7 = OKE_API.G_MISS_CHAR THEN
5387: x_del_rec.ATTRIBUTE7 := l_del_rec.ATTRIBUTE7;
5388: END IF;
5389:
5390: IF x_del_rec.ATTRIBUTE8 = OKE_API.G_MISS_CHAR THEN
5386: IF x_del_rec.ATTRIBUTE7 = OKE_API.G_MISS_CHAR THEN
5387: x_del_rec.ATTRIBUTE7 := l_del_rec.ATTRIBUTE7;
5388: END IF;
5389:
5390: IF x_del_rec.ATTRIBUTE8 = OKE_API.G_MISS_CHAR THEN
5391: x_del_rec.ATTRIBUTE8 := l_del_rec.ATTRIBUTE8;
5392: END IF;
5393:
5394: IF x_del_rec.ATTRIBUTE9 = OKE_API.G_MISS_CHAR THEN
5390: IF x_del_rec.ATTRIBUTE8 = OKE_API.G_MISS_CHAR THEN
5391: x_del_rec.ATTRIBUTE8 := l_del_rec.ATTRIBUTE8;
5392: END IF;
5393:
5394: IF x_del_rec.ATTRIBUTE9 = OKE_API.G_MISS_CHAR THEN
5395: x_del_rec.ATTRIBUTE9 := l_del_rec.ATTRIBUTE9;
5396: END IF;
5397:
5398: IF x_del_rec.ATTRIBUTE10 = OKE_API.G_MISS_CHAR THEN
5394: IF x_del_rec.ATTRIBUTE9 = OKE_API.G_MISS_CHAR THEN
5395: x_del_rec.ATTRIBUTE9 := l_del_rec.ATTRIBUTE9;
5396: END IF;
5397:
5398: IF x_del_rec.ATTRIBUTE10 = OKE_API.G_MISS_CHAR THEN
5399: x_del_rec.ATTRIBUTE10 := l_del_rec.ATTRIBUTE10;
5400: END IF;
5401:
5402: IF x_del_rec.ATTRIBUTE11 = OKE_API.G_MISS_CHAR THEN
5398: IF x_del_rec.ATTRIBUTE10 = OKE_API.G_MISS_CHAR THEN
5399: x_del_rec.ATTRIBUTE10 := l_del_rec.ATTRIBUTE10;
5400: END IF;
5401:
5402: IF x_del_rec.ATTRIBUTE11 = OKE_API.G_MISS_CHAR THEN
5403: x_del_rec.ATTRIBUTE11 := l_del_rec.ATTRIBUTE11;
5404: END IF;
5405:
5406: IF x_del_rec.ATTRIBUTE12 = OKE_API.G_MISS_CHAR THEN
5402: IF x_del_rec.ATTRIBUTE11 = OKE_API.G_MISS_CHAR THEN
5403: x_del_rec.ATTRIBUTE11 := l_del_rec.ATTRIBUTE11;
5404: END IF;
5405:
5406: IF x_del_rec.ATTRIBUTE12 = OKE_API.G_MISS_CHAR THEN
5407: x_del_rec.ATTRIBUTE12 := l_del_rec.ATTRIBUTE12;
5408: END IF;
5409:
5410: IF x_del_rec.ATTRIBUTE13 = OKE_API.G_MISS_CHAR THEN
5406: IF x_del_rec.ATTRIBUTE12 = OKE_API.G_MISS_CHAR THEN
5407: x_del_rec.ATTRIBUTE12 := l_del_rec.ATTRIBUTE12;
5408: END IF;
5409:
5410: IF x_del_rec.ATTRIBUTE13 = OKE_API.G_MISS_CHAR THEN
5411: x_del_rec.ATTRIBUTE13 := l_del_rec.ATTRIBUTE13;
5412: END IF;
5413:
5414: IF x_del_rec.ATTRIBUTE14 = OKE_API.G_MISS_CHAR THEN
5410: IF x_del_rec.ATTRIBUTE13 = OKE_API.G_MISS_CHAR THEN
5411: x_del_rec.ATTRIBUTE13 := l_del_rec.ATTRIBUTE13;
5412: END IF;
5413:
5414: IF x_del_rec.ATTRIBUTE14 = OKE_API.G_MISS_CHAR THEN
5415: x_del_rec.ATTRIBUTE14 := l_del_rec.ATTRIBUTE14;
5416: END IF;
5417:
5418: IF x_del_rec.ATTRIBUTE15 = OKE_API.G_MISS_CHAR THEN
5414: IF x_del_rec.ATTRIBUTE14 = OKE_API.G_MISS_CHAR THEN
5415: x_del_rec.ATTRIBUTE14 := l_del_rec.ATTRIBUTE14;
5416: END IF;
5417:
5418: IF x_del_rec.ATTRIBUTE15 = OKE_API.G_MISS_CHAR THEN
5419: x_del_rec.ATTRIBUTE15 := l_del_rec.ATTRIBUTE15;
5420: END IF;
5421:
5422: IF x_del_rec.WEIGHT = OKE_API.G_MISS_NUM THEN
5418: IF x_del_rec.ATTRIBUTE15 = OKE_API.G_MISS_CHAR THEN
5419: x_del_rec.ATTRIBUTE15 := l_del_rec.ATTRIBUTE15;
5420: END IF;
5421:
5422: IF x_del_rec.WEIGHT = OKE_API.G_MISS_NUM THEN
5423: x_del_rec.WEIGHT := l_del_rec.WEIGHT;
5424: END IF;
5425:
5426: IF x_del_rec.WEIGHT_UOM_CODE = OKE_API.G_MISS_CHAR THEN
5422: IF x_del_rec.WEIGHT = OKE_API.G_MISS_NUM THEN
5423: x_del_rec.WEIGHT := l_del_rec.WEIGHT;
5424: END IF;
5425:
5426: IF x_del_rec.WEIGHT_UOM_CODE = OKE_API.G_MISS_CHAR THEN
5427: x_del_rec.WEIGHT_UOM_CODE := l_del_rec.WEIGHT_UOM_CODE;
5428: END IF;
5429:
5430: IF x_del_rec.VOLUME = OKE_API.G_MISS_NUM THEN
5426: IF x_del_rec.WEIGHT_UOM_CODE = OKE_API.G_MISS_CHAR THEN
5427: x_del_rec.WEIGHT_UOM_CODE := l_del_rec.WEIGHT_UOM_CODE;
5428: END IF;
5429:
5430: IF x_del_rec.VOLUME = OKE_API.G_MISS_NUM THEN
5431: x_del_rec.VOLUME := l_del_rec.VOLUME;
5432: END IF;
5433:
5434: IF x_del_rec.VOLUME_UOM_CODE = OKE_API.G_MISS_CHAR THEN
5430: IF x_del_rec.VOLUME = OKE_API.G_MISS_NUM THEN
5431: x_del_rec.VOLUME := l_del_rec.VOLUME;
5432: END IF;
5433:
5434: IF x_del_rec.VOLUME_UOM_CODE = OKE_API.G_MISS_CHAR THEN
5435: x_del_rec.VOLUME_UOM_CODE := l_del_rec.VOLUME_UOM_CODE;
5436: END IF;
5437:
5438: IF x_del_rec.EXPENDITURE_ORGANIZATION_ID = OKE_API.G_MISS_NUM THEN
5434: IF x_del_rec.VOLUME_UOM_CODE = OKE_API.G_MISS_CHAR THEN
5435: x_del_rec.VOLUME_UOM_CODE := l_del_rec.VOLUME_UOM_CODE;
5436: END IF;
5437:
5438: IF x_del_rec.EXPENDITURE_ORGANIZATION_ID = OKE_API.G_MISS_NUM THEN
5439: x_del_rec.EXPENDITURE_ORGANIZATION_ID := l_del_rec.EXPENDITURE_ORGANIZATION_ID;
5440: END IF;
5441:
5442: IF x_del_rec.EXPENDITURE_TYPE = OKE_API.G_MISS_CHAR THEN
5438: IF x_del_rec.EXPENDITURE_ORGANIZATION_ID = OKE_API.G_MISS_NUM THEN
5439: x_del_rec.EXPENDITURE_ORGANIZATION_ID := l_del_rec.EXPENDITURE_ORGANIZATION_ID;
5440: END IF;
5441:
5442: IF x_del_rec.EXPENDITURE_TYPE = OKE_API.G_MISS_CHAR THEN
5443: x_del_rec.EXPENDITURE_TYPE := l_del_rec.EXPENDITURE_TYPE;
5444: END IF;
5445:
5446: IF x_del_rec.DESTINATION_TYPE_CODE = OKE_API.G_MISS_CHAR THEN
5442: IF x_del_rec.EXPENDITURE_TYPE = OKE_API.G_MISS_CHAR THEN
5443: x_del_rec.EXPENDITURE_TYPE := l_del_rec.EXPENDITURE_TYPE;
5444: END IF;
5445:
5446: IF x_del_rec.DESTINATION_TYPE_CODE = OKE_API.G_MISS_CHAR THEN
5447: x_del_rec.DESTINATION_TYPE_CODE := l_del_rec.DESTINATION_TYPE_CODE;
5448: END IF;
5449:
5450: IF x_del_rec.EXPENDITURE_ITEM_DATE = OKE_API.G_MISS_DATE THEN
5446: IF x_del_rec.DESTINATION_TYPE_CODE = OKE_API.G_MISS_CHAR THEN
5447: x_del_rec.DESTINATION_TYPE_CODE := l_del_rec.DESTINATION_TYPE_CODE;
5448: END IF;
5449:
5450: IF x_del_rec.EXPENDITURE_ITEM_DATE = OKE_API.G_MISS_DATE THEN
5451: x_del_rec.EXPENDITURE_ITEM_DATE := l_del_rec.EXPENDITURE_ITEM_DATE;
5452: END IF;
5453:
5454: IF x_del_rec.RATE_DATE = OKE_API.G_MISS_DATE THEN
5450: IF x_del_rec.EXPENDITURE_ITEM_DATE = OKE_API.G_MISS_DATE THEN
5451: x_del_rec.EXPENDITURE_ITEM_DATE := l_del_rec.EXPENDITURE_ITEM_DATE;
5452: END IF;
5453:
5454: IF x_del_rec.RATE_DATE = OKE_API.G_MISS_DATE THEN
5455: x_del_rec.RATE_DATE := l_del_rec.RATE_DATE;
5456: END IF;
5457:
5458: IF x_del_rec.RATE_TYPE = OKE_API.G_MISS_CHAR THEN
5454: IF x_del_rec.RATE_DATE = OKE_API.G_MISS_DATE THEN
5455: x_del_rec.RATE_DATE := l_del_rec.RATE_DATE;
5456: END IF;
5457:
5458: IF x_del_rec.RATE_TYPE = OKE_API.G_MISS_CHAR THEN
5459: x_del_rec.RATE_TYPE := l_del_rec.RATE_TYPE;
5460: END IF;
5461:
5462: IF x_del_rec.EXCHANGE_RATE = OKE_API.G_MISS_NUM THEN
5458: IF x_del_rec.RATE_TYPE = OKE_API.G_MISS_CHAR THEN
5459: x_del_rec.RATE_TYPE := l_del_rec.RATE_TYPE;
5460: END IF;
5461:
5462: IF x_del_rec.EXCHANGE_RATE = OKE_API.G_MISS_NUM THEN
5463: x_del_rec.EXCHANGE_RATE := l_del_rec.EXCHANGE_RATE;
5464: END IF;
5465:
5466: IF x_del_rec.DESCRIPTION = OKE_API.G_MISS_CHAR THEN
5462: IF x_del_rec.EXCHANGE_RATE = OKE_API.G_MISS_NUM THEN
5463: x_del_rec.EXCHANGE_RATE := l_del_rec.EXCHANGE_RATE;
5464: END IF;
5465:
5466: IF x_del_rec.DESCRIPTION = OKE_API.G_MISS_CHAR THEN
5467: x_del_rec.DESCRIPTION := l_del_rec.DESCRIPTION;
5468: END IF;
5469:
5470: IF x_del_rec.COMMENTS = OKE_API.G_MISS_CHAR THEN
5466: IF x_del_rec.DESCRIPTION = OKE_API.G_MISS_CHAR THEN
5467: x_del_rec.DESCRIPTION := l_del_rec.DESCRIPTION;
5468: END IF;
5469:
5470: IF x_del_rec.COMMENTS = OKE_API.G_MISS_CHAR THEN
5471: x_del_rec.COMMENTS := l_del_rec.COMMENTS;
5472: END IF;
5473:
5474: IF x_del_rec.REQUISITION_LINE_TYPE_ID = OKE_API.G_MISS_NUM THEN
5470: IF x_del_rec.COMMENTS = OKE_API.G_MISS_CHAR THEN
5471: x_del_rec.COMMENTS := l_del_rec.COMMENTS;
5472: END IF;
5473:
5474: IF x_del_rec.REQUISITION_LINE_TYPE_ID = OKE_API.G_MISS_NUM THEN
5475: x_del_rec.REQUISITION_LINE_TYPE_ID := l_del_rec.REQUISITION_LINE_TYPE_ID;
5476: END IF;
5477:
5478: IF x_del_rec.PO_CATEGORY_ID = OKE_API.G_MISS_NUM THEN
5474: IF x_del_rec.REQUISITION_LINE_TYPE_ID = OKE_API.G_MISS_NUM THEN
5475: x_del_rec.REQUISITION_LINE_TYPE_ID := l_del_rec.REQUISITION_LINE_TYPE_ID;
5476: END IF;
5477:
5478: IF x_del_rec.PO_CATEGORY_ID = OKE_API.G_MISS_NUM THEN
5479: x_del_rec.PO_CATEGORY_ID := l_del_rec.PO_CATEGORY_ID;
5480: END IF;
5481:
5482: RETURN(l_return_status);
5488:
5489: BEGIN
5490: -- call START_ACTIVITY to create savepoint, check compatibility
5491: -- and initialize message list
5492: l_return_status := OKE_API.START_ACTIVITY(
5493: p_api_name => l_api_name,
5494: p_pkg_name => g_pkg_name,
5495: p_init_msg_list => p_init_msg_list,
5496: l_api_version => l_api_version,
5498: p_api_type => g_api_type,
5499: x_return_status => x_return_status);
5500:
5501: -- check if activity started successfully
5502: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5503: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5504: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5505: raise OKE_API.G_EXCEPTION_ERROR;
5506: End If;
5499: x_return_status => x_return_status);
5500:
5501: -- check if activity started successfully
5502: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5503: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5504: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5505: raise OKE_API.G_EXCEPTION_ERROR;
5506: End If;
5507:
5500:
5501: -- check if activity started successfully
5502: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5503: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5504: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5505: raise OKE_API.G_EXCEPTION_ERROR;
5506: End If;
5507:
5508: --validate mandatory fields
5501: -- check if activity started successfully
5502: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5503: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5504: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5505: raise OKE_API.G_EXCEPTION_ERROR;
5506: End If;
5507:
5508: --validate mandatory fields
5509: IF ( p_del_rec.deliverable_id IS NULL OR p_del_rec.deliverable_id=OKE_API.G_MISS_NUM) THEN
5505: raise OKE_API.G_EXCEPTION_ERROR;
5506: End If;
5507:
5508: --validate mandatory fields
5509: IF ( p_del_rec.deliverable_id IS NULL OR p_del_rec.deliverable_id=OKE_API.G_MISS_NUM) THEN
5510: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
5511: p_msg_name =>G_REQUIRED_VALUE,
5512: p_token1 =>G_COL_NAME_TOKEN,
5513: p_token1_value =>'deliverable_id');
5506: End If;
5507:
5508: --validate mandatory fields
5509: IF ( p_del_rec.deliverable_id IS NULL OR p_del_rec.deliverable_id=OKE_API.G_MISS_NUM) THEN
5510: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
5511: p_msg_name =>G_REQUIRED_VALUE,
5512: p_token1 =>G_COL_NAME_TOKEN,
5513: p_token1_value =>'deliverable_id');
5514: x_return_status := OKE_API.G_RET_STS_ERROR;
5510: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
5511: p_msg_name =>G_REQUIRED_VALUE,
5512: p_token1 =>G_COL_NAME_TOKEN,
5513: p_token1_value =>'deliverable_id');
5514: x_return_status := OKE_API.G_RET_STS_ERROR;
5515: END IF ;
5516:
5517: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5518: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5513: p_token1_value =>'deliverable_id');
5514: x_return_status := OKE_API.G_RET_STS_ERROR;
5515: END IF ;
5516:
5517: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5518: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5519: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5520: raise OKE_API.G_EXCEPTION_ERROR;
5521: End If;
5514: x_return_status := OKE_API.G_RET_STS_ERROR;
5515: END IF ;
5516:
5517: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5518: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5519: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5520: raise OKE_API.G_EXCEPTION_ERROR;
5521: End If;
5522:
5515: END IF ;
5516:
5517: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5518: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5519: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5520: raise OKE_API.G_EXCEPTION_ERROR;
5521: End If;
5522:
5523: X_return_status := populate_new_record(P_del_rec, l_del_rec);
5516:
5517: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5518: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5519: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5520: raise OKE_API.G_EXCEPTION_ERROR;
5521: End If;
5522:
5523: X_return_status := populate_new_record(P_del_rec, l_del_rec);
5524:
5521: End If;
5522:
5523: X_return_status := populate_new_record(P_del_rec, l_del_rec);
5524:
5525: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5526: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5527: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5528: raise OKE_API.G_EXCEPTION_ERROR;
5529: End If;
5522:
5523: X_return_status := populate_new_record(P_del_rec, l_del_rec);
5524:
5525: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5526: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5527: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5528: raise OKE_API.G_EXCEPTION_ERROR;
5529: End If;
5530:
5523: X_return_status := populate_new_record(P_del_rec, l_del_rec);
5524:
5525: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5526: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5527: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5528: raise OKE_API.G_EXCEPTION_ERROR;
5529: End If;
5530:
5531:
5524:
5525: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5526: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5527: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5528: raise OKE_API.G_EXCEPTION_ERROR;
5529: End If;
5530:
5531:
5532: IF l_del_rec.k_header_id IS NOT NULL AND
5529: End If;
5530:
5531:
5532: IF l_del_rec.k_header_id IS NOT NULL AND
5533: l_del_rec.k_header_id <> OKE_API.G_MISS_NUM THEN
5534:
5535: IF l_del_rec.inventory_org_id IS NULL
5536: OR l_del_rec.inventory_org_id = OKE_API.G_MISS_NUM THEN
5537: OPEN get_inv_org;
5532: IF l_del_rec.k_header_id IS NOT NULL AND
5533: l_del_rec.k_header_id <> OKE_API.G_MISS_NUM THEN
5534:
5535: IF l_del_rec.inventory_org_id IS NULL
5536: OR l_del_rec.inventory_org_id = OKE_API.G_MISS_NUM THEN
5537: OPEN get_inv_org;
5538: FETCH get_inv_org INTO l_del_rec.inventory_org_id;
5539: CLOSE get_inv_org;
5540: END IF;
5540: END IF;
5541:
5542:
5543: IF l_del_rec.direction IS NULL
5544: OR l_del_rec.direction = OKE_API.G_MISS_CHAR THEN
5545: OPEN get_intent;
5546: FETCH get_intent INTO l_intent;
5547: CLOSE get_intent;
5548: IF l_intent = 'S' THEN
5563: x_msg_data => x_msg_data,
5564: p_del_rec => l_del_rec);
5565:
5566:
5567: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5568: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5569: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5570: raise OKE_API.G_EXCEPTION_ERROR;
5571: End If;
5564: p_del_rec => l_del_rec);
5565:
5566:
5567: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5568: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5569: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5570: raise OKE_API.G_EXCEPTION_ERROR;
5571: End If;
5572:
5565:
5566:
5567: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5568: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5569: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5570: raise OKE_API.G_EXCEPTION_ERROR;
5571: End If;
5572:
5573:
5566:
5567: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5568: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5569: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5570: raise OKE_API.G_EXCEPTION_ERROR;
5571: End If;
5572:
5573:
5574:
5576: ---validations
5577: l_return_status:=Validate_record(p_del_rec => l_del_rec
5578: );
5579:
5580: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5581: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5582: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5583: raise OKE_API.G_EXCEPTION_ERROR;
5584: End If;
5577: l_return_status:=Validate_record(p_del_rec => l_del_rec
5578: );
5579:
5580: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5581: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5582: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5583: raise OKE_API.G_EXCEPTION_ERROR;
5584: End If;
5585:
5578: );
5579:
5580: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5581: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5582: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5583: raise OKE_API.G_EXCEPTION_ERROR;
5584: End If;
5585:
5586:
5579:
5580: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5581: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5582: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5583: raise OKE_API.G_EXCEPTION_ERROR;
5584: End If;
5585:
5586:
5587:
5594: x_msg_data => x_msg_data,
5595: p_del_rec => l_del_rec,
5596: x_del_rec => x_del_rec);
5597:
5598: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5599: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5600: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5601: raise OKE_API.G_EXCEPTION_ERROR;
5602: End If;
5595: p_del_rec => l_del_rec,
5596: x_del_rec => x_del_rec);
5597:
5598: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5599: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5600: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5601: raise OKE_API.G_EXCEPTION_ERROR;
5602: End If;
5603:
5596: x_del_rec => x_del_rec);
5597:
5598: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5599: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5600: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5601: raise OKE_API.G_EXCEPTION_ERROR;
5602: End If;
5603:
5604:
5597:
5598: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5599: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5600: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5601: raise OKE_API.G_EXCEPTION_ERROR;
5602: End If;
5603:
5604:
5605: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
5601: raise OKE_API.G_EXCEPTION_ERROR;
5602: End If;
5603:
5604:
5605: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
5606: x_msg_data => x_msg_data);
5607: EXCEPTION
5608: when OKE_API.G_EXCEPTION_ERROR then
5609: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
5604:
5605: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
5606: x_msg_data => x_msg_data);
5607: EXCEPTION
5608: when OKE_API.G_EXCEPTION_ERROR then
5609: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
5610: p_api_name => l_api_name,
5611: p_pkg_name => g_pkg_name,
5612: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
5605: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
5606: x_msg_data => x_msg_data);
5607: EXCEPTION
5608: when OKE_API.G_EXCEPTION_ERROR then
5609: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
5610: p_api_name => l_api_name,
5611: p_pkg_name => g_pkg_name,
5612: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
5613: x_msg_count => x_msg_count,
5608: when OKE_API.G_EXCEPTION_ERROR then
5609: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
5610: p_api_name => l_api_name,
5611: p_pkg_name => g_pkg_name,
5612: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
5613: x_msg_count => x_msg_count,
5614: x_msg_data => x_msg_data,
5615: p_api_type => g_api_type);
5616:
5613: x_msg_count => x_msg_count,
5614: x_msg_data => x_msg_data,
5615: p_api_type => g_api_type);
5616:
5617: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
5618: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
5619: p_api_name => l_api_name,
5620: p_pkg_name => g_pkg_name,
5621: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
5614: x_msg_data => x_msg_data,
5615: p_api_type => g_api_type);
5616:
5617: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
5618: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
5619: p_api_name => l_api_name,
5620: p_pkg_name => g_pkg_name,
5621: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
5622: x_msg_count => x_msg_count,
5617: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
5618: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
5619: p_api_name => l_api_name,
5620: p_pkg_name => g_pkg_name,
5621: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
5622: x_msg_count => x_msg_count,
5623: x_msg_data => x_msg_data,
5624: p_api_type => g_api_type);
5625:
5623: x_msg_data => x_msg_data,
5624: p_api_type => g_api_type);
5625:
5626: when OTHERS then
5627: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
5628: p_api_name => l_api_name,
5629: p_pkg_name => g_pkg_name,
5630: p_exc_name => 'OTHERS',
5631: x_msg_count => x_msg_count,
5644: */
5645: PROCEDURE update_contract_header(
5646:
5647: p_api_version IN NUMBER,
5648: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
5649: p_ignore_oke_validation IN VARCHAR2 DEFAULT 'N',
5650: x_return_status OUT NOCOPY VARCHAR2,
5651: x_msg_count OUT NOCOPY NUMBER,
5652: x_msg_data OUT NOCOPY VARCHAR2,
5656:
5657:
5658: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
5659: l_api_version CONSTANT NUMBER := 1.0;
5660: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
5661:
5662:
5663: l_okc_chrv_rec OKC_CONTRACT_PUB.chrv_rec_type;
5664: l_oke_chr_rec OKE_CONTRACT_PUB.chr_rec_type;
5670: begin
5671:
5672: -- call START_ACTIVITY to create savepoint, check compatibility
5673: -- and initialize message list
5674: l_return_status := OKE_API.START_ACTIVITY(
5675: p_api_name => l_api_name,
5676: p_pkg_name => g_pkg_name,
5677: p_init_msg_list => p_init_msg_list,
5678: l_api_version => l_api_version,
5680: p_api_type => g_api_type,
5681: x_return_status => x_return_status);
5682:
5683: -- check if activity started successfully
5684: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5685: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5686: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5687: raise OKE_API.G_EXCEPTION_ERROR;
5688: End If;
5681: x_return_status => x_return_status);
5682:
5683: -- check if activity started successfully
5684: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5685: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5686: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5687: raise OKE_API.G_EXCEPTION_ERROR;
5688: End If;
5689:
5682:
5683: -- check if activity started successfully
5684: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5685: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5686: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5687: raise OKE_API.G_EXCEPTION_ERROR;
5688: End If;
5689:
5690:
5683: -- check if activity started successfully
5684: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5685: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5686: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5687: raise OKE_API.G_EXCEPTION_ERROR;
5688: End If;
5689:
5690:
5691:
5689:
5690:
5691:
5692: --validate mandatory fields
5693: IF ( p_chr_rec.k_header_id IS NULL OR p_chr_rec.k_header_id=OKE_API.G_MISS_NUM) THEN
5694: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
5695: p_msg_name =>G_REQUIRED_VALUE,
5696: p_token1 =>G_COL_NAME_TOKEN,
5697: p_token1_value =>'K_HEADER_ID');
5690:
5691:
5692: --validate mandatory fields
5693: IF ( p_chr_rec.k_header_id IS NULL OR p_chr_rec.k_header_id=OKE_API.G_MISS_NUM) THEN
5694: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
5695: p_msg_name =>G_REQUIRED_VALUE,
5696: p_token1 =>G_COL_NAME_TOKEN,
5697: p_token1_value =>'K_HEADER_ID');
5698: l_return_status := OKE_API.G_RET_STS_ERROR;
5694: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
5695: p_msg_name =>G_REQUIRED_VALUE,
5696: p_token1 =>G_COL_NAME_TOKEN,
5697: p_token1_value =>'K_HEADER_ID');
5698: l_return_status := OKE_API.G_RET_STS_ERROR;
5699: END IF ;
5700:
5701:
5702: -- check if activity started successfully
5699: END IF ;
5700:
5701:
5702: -- check if activity started successfully
5703: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5704: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5705: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5706: raise OKE_API.G_EXCEPTION_ERROR;
5707: End If;
5700:
5701:
5702: -- check if activity started successfully
5703: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5704: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5705: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5706: raise OKE_API.G_EXCEPTION_ERROR;
5707: End If;
5708:
5701:
5702: -- check if activity started successfully
5703: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5704: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5705: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5706: raise OKE_API.G_EXCEPTION_ERROR;
5707: End If;
5708:
5709:
5702: -- check if activity started successfully
5703: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5704: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5705: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
5706: raise OKE_API.G_EXCEPTION_ERROR;
5707: End If;
5708:
5709:
5710: OKC_CONTEXT.Set_OKC_Org_Context( p_chr_id => p_chr_rec.k_header_id );
5715: l_oke_chr_rec.k_header_id := p_chr_rec.k_header_id;
5716: l_oke_chr_rec.program_id := p_chr_rec.program_id;
5717: l_oke_chr_rec.project_id := p_chr_rec.project_id;
5718: l_oke_chr_rec.boa_id := p_chr_rec.boa_id;
5719: l_oke_chr_rec.k_type_code := OKE_API.G_MISS_CHAR ; --p_chr_rec.k_type_code;
5720: l_oke_chr_rec.priority_code := p_chr_rec.priority_code;
5721: l_oke_chr_rec.prime_k_alias := p_chr_rec.prime_k_alias;
5722: l_oke_chr_rec.prime_k_number := p_chr_rec.prime_k_number;
5723: l_oke_chr_rec.authorize_date := p_chr_rec.authorize_date;
5787: l_okc_chrv_rec.chr_id_response := p_chr_rec.chr_id_response;
5788: l_okc_chrv_rec.chr_id_award := p_chr_rec.chr_id_award;
5789:
5790: -- l_okc_chrv_rec.INV_ORGANIZATION_ID := p_chr_rec.INV_ORGANIZATION_ID;
5791: l_okc_chrv_rec.sts_code := OKE_API.G_MISS_CHAR;-- p_chr_rec.sts_code;
5792: l_okc_chrv_rec.qcl_id := p_chr_rec.qcl_id;
5793: l_okc_chrv_rec.scs_code := p_chr_rec.scs_code;
5794: l_okc_chrv_rec.contract_number := p_chr_rec.contract_number;
5795: l_okc_chrv_rec.currency_code := p_chr_rec.currency_code;
5827: l_okc_chrv_rec.trn_code := p_chr_rec.trn_code;
5828: l_okc_chrv_rec.start_date := p_chr_rec.start_date;
5829: l_okc_chrv_rec.end_date := p_chr_rec.end_date;
5830: -- l_okc_chrv_rec.authoring_org_id := p_chr_rec.authoring_org_id;
5831: l_okc_chrv_rec.buy_or_sell := OKE_API.G_MISS_CHAR ; --p_chr_rec.buy_or_sell;
5832: l_okc_chrv_rec.issue_or_receive := p_chr_rec.issue_or_receive;
5833: l_okc_chrv_rec.estimated_amount := p_chr_rec.estimated_amount;
5834:
5835: l_okc_chrv_rec.estimated_amount_renewed := p_chr_rec.estimated_amount_renewed;
5878: p_chrv_rec => l_okc_chrv_rec,
5879: x_chr_rec => l_out_chr,
5880: x_chrv_rec => l_out_chrv );
5881:
5882: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5883: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5884: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5885: raise OKE_API.G_EXCEPTION_ERROR;
5886: End If;
5879: x_chr_rec => l_out_chr,
5880: x_chrv_rec => l_out_chrv );
5881:
5882: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5883: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5884: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5885: raise OKE_API.G_EXCEPTION_ERROR;
5886: End If;
5887:
5880: x_chrv_rec => l_out_chrv );
5881:
5882: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5883: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5884: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5885: raise OKE_API.G_EXCEPTION_ERROR;
5886: End If;
5887:
5888:
5881:
5882: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
5883: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5884: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
5885: raise OKE_API.G_EXCEPTION_ERROR;
5886: End If;
5887:
5888:
5889:
5888:
5889:
5890: -- Added code to update who columns. neccessary for security to work after import process.
5891:
5892: IF p_chr_rec.created_by <> OKE_API.G_MISS_NUM AND p_chr_rec.created_by IS NOT NULL THEN
5893: UPDATE OKE_K_HEADERS SET CREATED_BY = p_chr_rec.created_by
5894: WHERE K_HEADER_ID = l_out_chr.k_header_id;
5895: END IF;
5896: IF p_chr_rec.creation_date <> OKE_API.G_MISS_DATE AND p_chr_rec.creation_date IS NOT NULL THEN
5892: IF p_chr_rec.created_by <> OKE_API.G_MISS_NUM AND p_chr_rec.created_by IS NOT NULL THEN
5893: UPDATE OKE_K_HEADERS SET CREATED_BY = p_chr_rec.created_by
5894: WHERE K_HEADER_ID = l_out_chr.k_header_id;
5895: END IF;
5896: IF p_chr_rec.creation_date <> OKE_API.G_MISS_DATE AND p_chr_rec.creation_date IS NOT NULL THEN
5897: UPDATE OKE_K_HEADERS SET CREATION_DATE = p_chr_rec.creation_date
5898: WHERE K_HEADER_ID = l_out_chr.k_header_id;
5899: END IF;
5900: IF p_chr_rec.last_updated_by <> OKE_API.G_MISS_NUM AND p_chr_rec.last_updated_by IS NOT NULL THEN
5896: IF p_chr_rec.creation_date <> OKE_API.G_MISS_DATE AND p_chr_rec.creation_date IS NOT NULL THEN
5897: UPDATE OKE_K_HEADERS SET CREATION_DATE = p_chr_rec.creation_date
5898: WHERE K_HEADER_ID = l_out_chr.k_header_id;
5899: END IF;
5900: IF p_chr_rec.last_updated_by <> OKE_API.G_MISS_NUM AND p_chr_rec.last_updated_by IS NOT NULL THEN
5901: UPDATE OKE_K_HEADERS SET LAST_UPDATED_BY = p_chr_rec.last_updated_by
5902: WHERE K_HEADER_ID = l_out_chr.k_header_id;
5903: END IF;
5904: IF p_chr_rec.last_update_login <> OKE_API.G_MISS_NUM AND p_chr_rec.last_update_login IS NOT NULL THEN
5900: IF p_chr_rec.last_updated_by <> OKE_API.G_MISS_NUM AND p_chr_rec.last_updated_by IS NOT NULL THEN
5901: UPDATE OKE_K_HEADERS SET LAST_UPDATED_BY = p_chr_rec.last_updated_by
5902: WHERE K_HEADER_ID = l_out_chr.k_header_id;
5903: END IF;
5904: IF p_chr_rec.last_update_login <> OKE_API.G_MISS_NUM AND p_chr_rec.last_update_login IS NOT NULL THEN
5905: UPDATE OKE_K_HEADERS SET LAST_UPDATE_LOGIN = p_chr_rec.last_update_login
5906: WHERE K_HEADER_ID = l_out_chr.k_header_id;
5907: END IF;
5908: IF p_chr_rec.last_update_date <> OKE_API.G_MISS_DATE AND p_chr_rec.last_update_date IS NOT NULL THEN
5904: IF p_chr_rec.last_update_login <> OKE_API.G_MISS_NUM AND p_chr_rec.last_update_login IS NOT NULL THEN
5905: UPDATE OKE_K_HEADERS SET LAST_UPDATE_LOGIN = p_chr_rec.last_update_login
5906: WHERE K_HEADER_ID = l_out_chr.k_header_id;
5907: END IF;
5908: IF p_chr_rec.last_update_date <> OKE_API.G_MISS_DATE AND p_chr_rec.last_update_date IS NOT NULL THEN
5909: UPDATE OKE_K_HEADERS SET LAST_UPDATE_DATE = p_chr_rec.last_update_date
5910: WHERE K_HEADER_ID = l_out_chr.k_header_id;
5911: END IF;
5912:
6067: x_chr_rec.last_update_login := l_out_chrv.last_update_login;
6068:
6069:
6070:
6071: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
6072: x_msg_data => x_msg_data);
6073: EXCEPTION
6074: when OKE_API.G_EXCEPTION_ERROR then
6075: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6070:
6071: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
6072: x_msg_data => x_msg_data);
6073: EXCEPTION
6074: when OKE_API.G_EXCEPTION_ERROR then
6075: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6076: p_api_name => l_api_name,
6077: p_pkg_name => g_pkg_name,
6078: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
6071: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
6072: x_msg_data => x_msg_data);
6073: EXCEPTION
6074: when OKE_API.G_EXCEPTION_ERROR then
6075: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6076: p_api_name => l_api_name,
6077: p_pkg_name => g_pkg_name,
6078: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
6079: x_msg_count => x_msg_count,
6074: when OKE_API.G_EXCEPTION_ERROR then
6075: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6076: p_api_name => l_api_name,
6077: p_pkg_name => g_pkg_name,
6078: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
6079: x_msg_count => x_msg_count,
6080: x_msg_data => x_msg_data,
6081: p_api_type => g_api_type);
6082:
6079: x_msg_count => x_msg_count,
6080: x_msg_data => x_msg_data,
6081: p_api_type => g_api_type);
6082:
6083: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
6084: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6085: p_api_name => l_api_name,
6086: p_pkg_name => g_pkg_name,
6087: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
6080: x_msg_data => x_msg_data,
6081: p_api_type => g_api_type);
6082:
6083: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
6084: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6085: p_api_name => l_api_name,
6086: p_pkg_name => g_pkg_name,
6087: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
6088: x_msg_count => x_msg_count,
6083: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
6084: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6085: p_api_name => l_api_name,
6086: p_pkg_name => g_pkg_name,
6087: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
6088: x_msg_count => x_msg_count,
6089: x_msg_data => x_msg_data,
6090: p_api_type => g_api_type);
6091:
6089: x_msg_data => x_msg_data,
6090: p_api_type => g_api_type);
6091:
6092: when OTHERS then
6093: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6094: p_api_name => l_api_name,
6095: p_pkg_name => g_pkg_name,
6096: p_exc_name => 'OTHERS',
6097: x_msg_count => x_msg_count,
6112: */
6113:
6114: PROCEDURE delete_contract (
6115: p_api_version IN NUMBER,
6116: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
6117: x_return_status OUT NOCOPY VARCHAR2,
6118: x_msg_count OUT NOCOPY NUMBER,
6119: x_msg_data OUT NOCOPY VARCHAR2,
6120: p_chr_id IN NUMBER) IS
6121:
6122:
6123: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT';
6124: l_api_version CONSTANT NUMBER := 1.0;
6125: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
6126: l_return_code VARCHAR2(30);
6127: l_docnumber VARCHAR2(240);
6128: l_doctype VARCHAR2(80);
6129: l_wf_name VARCHAR2(200);
6145:
6146: BEGIN
6147: -- call START_ACTIVITY to create savepoint, check compatibility
6148: -- and initialize message list
6149: l_return_status := OKE_API.START_ACTIVITY(
6150: p_api_name => l_api_name,
6151: p_pkg_name => g_pkg_name,
6152: p_init_msg_list => p_init_msg_list,
6153: l_api_version => l_api_version,
6155: p_api_type => g_api_type,
6156: x_return_status => x_return_status);
6157:
6158: -- check if activity started successfully
6159: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6160: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6161: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6162: raise OKE_API.G_EXCEPTION_ERROR;
6163: End If;
6156: x_return_status => x_return_status);
6157:
6158: -- check if activity started successfully
6159: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6160: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6161: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6162: raise OKE_API.G_EXCEPTION_ERROR;
6163: End If;
6164:
6157:
6158: -- check if activity started successfully
6159: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6160: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6161: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6162: raise OKE_API.G_EXCEPTION_ERROR;
6163: End If;
6164:
6165: --validate mandatory fields
6158: -- check if activity started successfully
6159: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6160: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6161: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6162: raise OKE_API.G_EXCEPTION_ERROR;
6163: End If;
6164:
6165: --validate mandatory fields
6166: IF ( p_chr_id IS NULL OR p_chr_id=OKE_API.G_MISS_NUM) THEN
6162: raise OKE_API.G_EXCEPTION_ERROR;
6163: End If;
6164:
6165: --validate mandatory fields
6166: IF ( p_chr_id IS NULL OR p_chr_id=OKE_API.G_MISS_NUM) THEN
6167: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
6168: p_msg_name =>G_REQUIRED_VALUE,
6169: p_token1 =>G_COL_NAME_TOKEN,
6170: p_token1_value =>'P_CHR_ID/Contract');
6163: End If;
6164:
6165: --validate mandatory fields
6166: IF ( p_chr_id IS NULL OR p_chr_id=OKE_API.G_MISS_NUM) THEN
6167: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
6168: p_msg_name =>G_REQUIRED_VALUE,
6169: p_token1 =>G_COL_NAME_TOKEN,
6170: p_token1_value =>'P_CHR_ID/Contract');
6171: l_return_status := OKE_API.G_RET_STS_ERROR;
6167: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
6168: p_msg_name =>G_REQUIRED_VALUE,
6169: p_token1 =>G_COL_NAME_TOKEN,
6170: p_token1_value =>'P_CHR_ID/Contract');
6171: l_return_status := OKE_API.G_RET_STS_ERROR;
6172: END IF ;
6173:
6174: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6175: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6170: p_token1_value =>'P_CHR_ID/Contract');
6171: l_return_status := OKE_API.G_RET_STS_ERROR;
6172: END IF ;
6173:
6174: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6175: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6176: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6177: raise OKE_API.G_EXCEPTION_ERROR;
6178: End If;
6171: l_return_status := OKE_API.G_RET_STS_ERROR;
6172: END IF ;
6173:
6174: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6175: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6176: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6177: raise OKE_API.G_EXCEPTION_ERROR;
6178: End If;
6179:
6172: END IF ;
6173:
6174: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6175: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6176: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6177: raise OKE_API.G_EXCEPTION_ERROR;
6178: End If;
6179:
6180: OKC_CONTEXT.Set_OKC_Org_Context( p_chr_id => P_CHR_ID );
6173:
6174: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6175: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6176: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6177: raise OKE_API.G_EXCEPTION_ERROR;
6178: End If;
6179:
6180: OKC_CONTEXT.Set_OKC_Org_Context( p_chr_id => P_CHR_ID );
6181:
6197:
6198: IF l_return_status <> 'S' THEN
6199: IF l_return_code = 'OPN' THEN
6200:
6201: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
6202: p_msg_name =>'OKE_NO_DELETE_OPN',
6203: p_token1 =>'DOCTYPE',
6204: p_token1_value =>l_doctype,
6205: p_token2 =>'DOCNUMBER',
6208:
6209:
6210: ELSIF l_return_code = 'BOA' THEN
6211:
6212: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
6213: p_msg_name =>'OKE_NO_DELETE_BOA',
6214: p_token1 =>'DOCTYPE',
6215: p_token1_value =>l_doctype,
6216: p_token2 =>'DOCNUMBER',
6218: );
6219:
6220:
6221: ELSIF l_return_code = 'STS' THEN
6222: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
6223: p_msg_name =>'OKE_NO_DELETE_STATUS',
6224: p_token1 =>'DOCTYPE',
6225: p_token1_value =>l_doctype,
6226: p_token2 =>'DOCNUMBER',
6229:
6230:
6231: ELSIF l_return_code = 'PO' THEN
6232:
6233: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
6234: p_msg_name =>'OKE_NO_DELETE_PO');
6235:
6236:
6237:
6235:
6236:
6237:
6238: ELSIF l_return_code = 'PLAN' THEN
6239: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
6240: p_msg_name =>'OKE_NO_DELETE_PLAN');
6241:
6242:
6243:
6242:
6243:
6244: ELSIF l_return_code = 'SHIP' THEN
6245:
6246: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
6247: p_msg_name =>'OKE_NO_DELETE_SHIP');
6248:
6249:
6250: ELSIF l_return_code = 'FUND' THEN
6248:
6249:
6250: ELSIF l_return_code = 'FUND' THEN
6251:
6252: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
6253: p_msg_name =>'OKE_NO_DELETE_FUNDING');
6254:
6255:
6256: ELSIF l_return_code ='WFA' THEN
6257: OPEN l_wf;
6258: FETCH l_wf INTO l_wf_name;
6259: CLOSE l_wf;
6260:
6261: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
6262: p_msg_name =>'OKE_PROCESS_ACTIVE',
6263: p_token1 =>'VALUE',
6264: p_token1_value =>l_wf_name
6265: );
6265: );
6266:
6267: END IF;
6268:
6269: x_return_status := OKE_API.G_RET_STS_ERROR ;
6270:
6271: END IF;
6272:
6273: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6269: x_return_status := OKE_API.G_RET_STS_ERROR ;
6270:
6271: END IF;
6272:
6273: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6274: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6275: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6276: raise OKE_API.G_EXCEPTION_ERROR;
6277: End If;
6270:
6271: END IF;
6272:
6273: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6274: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6275: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6276: raise OKE_API.G_EXCEPTION_ERROR;
6277: End If;
6278:
6271: END IF;
6272:
6273: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6274: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6275: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6276: raise OKE_API.G_EXCEPTION_ERROR;
6277: End If;
6278:
6279: oke_contract_pub.delete_contract (
6272:
6273: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6274: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6275: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6276: raise OKE_API.G_EXCEPTION_ERROR;
6277: End If;
6278:
6279: oke_contract_pub.delete_contract (
6280: p_api_version => p_api_version,
6284: x_msg_data => x_msg_data,
6285: p_chr_id =>p_chr_id,
6286: p_pre_deletion_check_yn =>'N') ;
6287:
6288: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6289: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6290: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
6291: raise OKE_API.G_EXCEPTION_ERROR;
6292: End If;
6285: p_chr_id =>p_chr_id,
6286: p_pre_deletion_check_yn =>'N') ;
6287:
6288: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6289: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6290: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
6291: raise OKE_API.G_EXCEPTION_ERROR;
6292: End If;
6293:
6286: p_pre_deletion_check_yn =>'N') ;
6287:
6288: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6289: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6290: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
6291: raise OKE_API.G_EXCEPTION_ERROR;
6292: End If;
6293:
6294: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
6287:
6288: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6289: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6290: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
6291: raise OKE_API.G_EXCEPTION_ERROR;
6292: End If;
6293:
6294: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
6295: x_msg_data => x_msg_data);
6290: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
6291: raise OKE_API.G_EXCEPTION_ERROR;
6292: End If;
6293:
6294: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
6295: x_msg_data => x_msg_data);
6296: EXCEPTION
6297: when OKE_API.G_EXCEPTION_ERROR then
6298: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6293:
6294: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
6295: x_msg_data => x_msg_data);
6296: EXCEPTION
6297: when OKE_API.G_EXCEPTION_ERROR then
6298: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6299: p_api_name => l_api_name,
6300: p_pkg_name => g_pkg_name,
6301: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
6294: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
6295: x_msg_data => x_msg_data);
6296: EXCEPTION
6297: when OKE_API.G_EXCEPTION_ERROR then
6298: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6299: p_api_name => l_api_name,
6300: p_pkg_name => g_pkg_name,
6301: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
6302: x_msg_count => x_msg_count,
6297: when OKE_API.G_EXCEPTION_ERROR then
6298: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6299: p_api_name => l_api_name,
6300: p_pkg_name => g_pkg_name,
6301: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
6302: x_msg_count => x_msg_count,
6303: x_msg_data => x_msg_data,
6304: p_api_type => g_api_type);
6305:
6302: x_msg_count => x_msg_count,
6303: x_msg_data => x_msg_data,
6304: p_api_type => g_api_type);
6305:
6306: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
6307: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6308: p_api_name => l_api_name,
6309: p_pkg_name => g_pkg_name,
6310: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
6303: x_msg_data => x_msg_data,
6304: p_api_type => g_api_type);
6305:
6306: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
6307: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6308: p_api_name => l_api_name,
6309: p_pkg_name => g_pkg_name,
6310: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
6311: x_msg_count => x_msg_count,
6306: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
6307: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6308: p_api_name => l_api_name,
6309: p_pkg_name => g_pkg_name,
6310: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
6311: x_msg_count => x_msg_count,
6312: x_msg_data => x_msg_data,
6313: p_api_type => g_api_type);
6314:
6312: x_msg_data => x_msg_data,
6313: p_api_type => g_api_type);
6314:
6315: when OTHERS then
6316: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6317: p_api_name => l_api_name,
6318: p_pkg_name => g_pkg_name,
6319: p_exc_name => 'OTHERS',
6320: x_msg_count => x_msg_count,
6326:
6327: Function Validate_delete_deliverable(p_deliverable_id in number
6328: ) RETURN VARCHAR2 is
6329:
6330: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
6331: x_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
6332:
6333: ---------------------------
6334: procedure check_opn_code (p_deliverable_id in number,
6327: Function Validate_delete_deliverable(p_deliverable_id in number
6328: ) RETURN VARCHAR2 is
6329:
6330: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
6331: x_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
6332:
6333: ---------------------------
6334: procedure check_opn_code (p_deliverable_id in number,
6335: x_return_status out nocopy varchar2 ) is
6354:
6355:
6356: begin
6357:
6358: x_return_status := OKE_API.G_RET_STS_SUCCESS;
6359:
6360: open c(p_deliverable_id);
6361: fetch c into l_code;
6362: close c;
6371: end if;
6372:
6373: if not l_found then
6374:
6375: OKE_API.SET_MESSAGE(p_app_name => 'OKE',
6376: p_msg_name => 'OKE_OPN_NO_DELETE_DLV');
6377:
6378: X_Return_Status := OKE_API.G_RET_STS_ERROR;
6379:
6374:
6375: OKE_API.SET_MESSAGE(p_app_name => 'OKE',
6376: p_msg_name => 'OKE_OPN_NO_DELETE_DLV');
6377:
6378: X_Return_Status := OKE_API.G_RET_STS_ERROR;
6379:
6380: end if;
6381:
6382: end check_opn_code;
6426: l_count number := 0;
6427:
6428: begin
6429:
6430: x_return_status := OKE_API.G_RET_STS_SUCCESS;
6431:
6432: open get_del_dtls ;
6433: fetch get_del_dtls into l_mps_transaction_id,l_po_ref_1,l_shipping_request_id,l_completed_flag;
6434: close get_del_dtls;
6526: end if;
6527:
6528: if deletable = FALSE then
6529:
6530: OKE_API.SET_MESSAGE(p_app_name =>'OKE',
6531: p_msg_name => 'OKE_DTS_NO_DELETE_ALLOWED',
6532: p_token1 => 'TOKEN',
6533: p_token1_value => l_message);
6534: -- notify caller of an error
6531: p_msg_name => 'OKE_DTS_NO_DELETE_ALLOWED',
6532: p_token1 => 'TOKEN',
6533: p_token1_value => l_message);
6534: -- notify caller of an error
6535: X_Return_Status := OKE_API.G_RET_STS_ERROR;
6536:
6537: end if;
6538: end check_deliverable_in_progress;
6539: -----------------------------
6540: begin
6541: check_opn_code(p_deliverable_id => p_deliverable_id ,
6542: x_return_status => l_return_status);
6543:
6544: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
6545: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
6546: x_return_status := l_return_status;
6547: End If;
6548: End If;
6541: check_opn_code(p_deliverable_id => p_deliverable_id ,
6542: x_return_status => l_return_status);
6543:
6544: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
6545: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
6546: x_return_status := l_return_status;
6547: End If;
6548: End If;
6549:
6549:
6550: check_deliverable_in_progress(p_deliverable_id => p_deliverable_id ,
6551: x_return_status => l_return_status);
6552:
6553: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
6554: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
6555: x_return_status := l_return_status;
6556: End If;
6557: End If;
6550: check_deliverable_in_progress(p_deliverable_id => p_deliverable_id ,
6551: x_return_status => l_return_status);
6552:
6553: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
6554: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
6555: x_return_status := l_return_status;
6556: End If;
6557: End If;
6558: return (x_return_status);
6559:
6560: exception
6561: WHEN OTHERS THEN
6562: -- store SQL error message on message stack
6563: OKE_API.SET_MESSAGE(
6564: p_app_name =>g_app_name,
6565: p_msg_name =>G_UNEXPECTED_ERROR,
6566: p_token1 =>G_SQLCODE_TOKEN,
6567: p_token1_value =>SQLCODE,
6567: p_token1_value =>SQLCODE,
6568: p_token2 =>G_SQLERRM_TOKEN,
6569: p_token2_value =>SQLERRM);
6570:
6571: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
6572:
6573: RETURN(x_return_status);
6574:
6575:
6584: */
6585:
6586: PROCEDURE delete_deliverable(
6587: p_api_version IN NUMBER,
6588: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
6589: x_return_status OUT NOCOPY VARCHAR2,
6590: x_msg_count OUT NOCOPY NUMBER,
6591: x_msg_data OUT NOCOPY VARCHAR2,
6592: p_deliverable_id IN NUMBER) IS
6592: p_deliverable_id IN NUMBER) IS
6593:
6594: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_DELIVERABLE';
6595: l_api_version CONSTANT NUMBER := 1.0;
6596: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
6597:
6598: l_del_tbl_in oke_deliverable_pvt.del_tbl_type;
6599:
6600: CURSOR c4 IS
6604:
6605: BEGIN
6606: -- call START_ACTIVITY to create savepoint, check compatibility
6607: -- and initialize message list
6608: l_return_status := OKE_API.START_ACTIVITY(
6609: p_api_name => l_api_name,
6610: p_pkg_name => g_pkg_name,
6611: p_init_msg_list => p_init_msg_list,
6612: l_api_version => l_api_version,
6614: p_api_type => g_api_type,
6615: x_return_status => x_return_status);
6616:
6617: -- check if activity started successfully
6618: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6619: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6620: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6621: raise OKE_API.G_EXCEPTION_ERROR;
6622: End If;
6615: x_return_status => x_return_status);
6616:
6617: -- check if activity started successfully
6618: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6619: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6620: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6621: raise OKE_API.G_EXCEPTION_ERROR;
6622: End If;
6623:
6616:
6617: -- check if activity started successfully
6618: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6619: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6620: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6621: raise OKE_API.G_EXCEPTION_ERROR;
6622: End If;
6623:
6624: --validate mandatory fields
6617: -- check if activity started successfully
6618: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6619: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6620: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6621: raise OKE_API.G_EXCEPTION_ERROR;
6622: End If;
6623:
6624: --validate mandatory fields
6625: IF ( p_deliverable_id IS NULL OR p_deliverable_id=OKE_API.G_MISS_NUM) THEN
6621: raise OKE_API.G_EXCEPTION_ERROR;
6622: End If;
6623:
6624: --validate mandatory fields
6625: IF ( p_deliverable_id IS NULL OR p_deliverable_id=OKE_API.G_MISS_NUM) THEN
6626: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
6627: p_msg_name =>G_REQUIRED_VALUE,
6628: p_token1 =>G_COL_NAME_TOKEN,
6629: p_token1_value =>'DELIVERABLE_ID');
6622: End If;
6623:
6624: --validate mandatory fields
6625: IF ( p_deliverable_id IS NULL OR p_deliverable_id=OKE_API.G_MISS_NUM) THEN
6626: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
6627: p_msg_name =>G_REQUIRED_VALUE,
6628: p_token1 =>G_COL_NAME_TOKEN,
6629: p_token1_value =>'DELIVERABLE_ID');
6630: l_return_status := OKE_API.G_RET_STS_ERROR;
6626: OKE_API.SET_MESSAGE(p_app_name =>g_app_name,
6627: p_msg_name =>G_REQUIRED_VALUE,
6628: p_token1 =>G_COL_NAME_TOKEN,
6629: p_token1_value =>'DELIVERABLE_ID');
6630: l_return_status := OKE_API.G_RET_STS_ERROR;
6631: END IF ;
6632:
6633: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6634: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6629: p_token1_value =>'DELIVERABLE_ID');
6630: l_return_status := OKE_API.G_RET_STS_ERROR;
6631: END IF ;
6632:
6633: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6634: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6635: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6636: raise OKE_API.G_EXCEPTION_ERROR;
6637: End If;
6630: l_return_status := OKE_API.G_RET_STS_ERROR;
6631: END IF ;
6632:
6633: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6634: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6635: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6636: raise OKE_API.G_EXCEPTION_ERROR;
6637: End If;
6638:
6631: END IF ;
6632:
6633: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6634: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6635: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6636: raise OKE_API.G_EXCEPTION_ERROR;
6637: End If;
6638:
6639: ---validations
6632:
6633: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6634: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6635: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6636: raise OKE_API.G_EXCEPTION_ERROR;
6637: End If;
6638:
6639: ---validations
6640: l_return_status:=Validate_delete_deliverable(p_deliverable_id );
6638:
6639: ---validations
6640: l_return_status:=Validate_delete_deliverable(p_deliverable_id );
6641:
6642: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6643: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6644: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6645: raise OKE_API.G_EXCEPTION_ERROR;
6646: End If;
6639: ---validations
6640: l_return_status:=Validate_delete_deliverable(p_deliverable_id );
6641:
6642: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6643: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6644: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6645: raise OKE_API.G_EXCEPTION_ERROR;
6646: End If;
6647:
6640: l_return_status:=Validate_delete_deliverable(p_deliverable_id );
6641:
6642: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6643: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6644: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6645: raise OKE_API.G_EXCEPTION_ERROR;
6646: End If;
6647:
6648:
6641:
6642: If ( l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6643: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6644: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
6645: raise OKE_API.G_EXCEPTION_ERROR;
6646: End If;
6647:
6648:
6649: -- delete dependency
6673: x_msg_data => x_msg_data,
6674: p_del_tbl => l_del_tbl_in);
6675:
6676:
6677: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6678: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6679: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
6680: raise OKE_API.G_EXCEPTION_ERROR;
6681: End If;
6674: p_del_tbl => l_del_tbl_in);
6675:
6676:
6677: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6678: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6679: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
6680: raise OKE_API.G_EXCEPTION_ERROR;
6681: End If;
6682:
6675:
6676:
6677: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6678: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6679: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
6680: raise OKE_API.G_EXCEPTION_ERROR;
6681: End If;
6682:
6683:
6676:
6677: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
6678: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
6679: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
6680: raise OKE_API.G_EXCEPTION_ERROR;
6681: End If;
6682:
6683:
6684: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
6680: raise OKE_API.G_EXCEPTION_ERROR;
6681: End If;
6682:
6683:
6684: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
6685: x_msg_data => x_msg_data);
6686: EXCEPTION
6687: when OKE_API.G_EXCEPTION_ERROR then
6688: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6683:
6684: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
6685: x_msg_data => x_msg_data);
6686: EXCEPTION
6687: when OKE_API.G_EXCEPTION_ERROR then
6688: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6689: p_api_name => l_api_name,
6690: p_pkg_name => g_pkg_name,
6691: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
6684: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
6685: x_msg_data => x_msg_data);
6686: EXCEPTION
6687: when OKE_API.G_EXCEPTION_ERROR then
6688: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6689: p_api_name => l_api_name,
6690: p_pkg_name => g_pkg_name,
6691: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
6692: x_msg_count => x_msg_count,
6687: when OKE_API.G_EXCEPTION_ERROR then
6688: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6689: p_api_name => l_api_name,
6690: p_pkg_name => g_pkg_name,
6691: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
6692: x_msg_count => x_msg_count,
6693: x_msg_data => x_msg_data,
6694: p_api_type => g_api_type);
6695:
6692: x_msg_count => x_msg_count,
6693: x_msg_data => x_msg_data,
6694: p_api_type => g_api_type);
6695:
6696: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
6697: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6698: p_api_name => l_api_name,
6699: p_pkg_name => g_pkg_name,
6700: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
6693: x_msg_data => x_msg_data,
6694: p_api_type => g_api_type);
6695:
6696: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
6697: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6698: p_api_name => l_api_name,
6699: p_pkg_name => g_pkg_name,
6700: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
6701: x_msg_count => x_msg_count,
6696: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
6697: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6698: p_api_name => l_api_name,
6699: p_pkg_name => g_pkg_name,
6700: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
6701: x_msg_count => x_msg_count,
6702: x_msg_data => x_msg_data,
6703: p_api_type => g_api_type);
6704:
6702: x_msg_data => x_msg_data,
6703: p_api_type => g_api_type);
6704:
6705: when OTHERS then
6706: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
6707: p_api_name => l_api_name,
6708: p_pkg_name => g_pkg_name,
6709: p_exc_name => 'OTHERS',
6710: x_msg_count => x_msg_count,