[Home] [Help]
13:
14: G_VIEW CONSTANT VARCHAR2(200) := 'OKL_TXL_QUOTE_LINES_V';
15: G_EXCEPTION_HALT_VALIDATION EXCEPTION;
16: G_EXCEPTION_STOP_VALIDATION EXCEPTION;
17: G_RETURN_STATUS VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
18:
19: --------------------------------------------------------------------------------
20: -- Start of comments
21: -- Procedure Name : validate_currency_record
31:
32: PROCEDURE validate_currency_record(p_tqlv_rec IN tqlv_rec_type,
33: x_return_status OUT NOCOPY VARCHAR2) IS
34: BEGIN
35: x_return_status := OKC_API.G_RET_STS_SUCCESS;
36: -- If transaction currency <> functional currency, then conversion columns
37: -- are mandatory
38: IF (p_tqlv_rec.currency_code <> p_tqlv_rec.currency_conversion_code) THEN
39: IF (p_tqlv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR OR
35: x_return_status := OKC_API.G_RET_STS_SUCCESS;
36: -- If transaction currency <> functional currency, then conversion columns
37: -- are mandatory
38: IF (p_tqlv_rec.currency_code <> p_tqlv_rec.currency_conversion_code) THEN
39: IF (p_tqlv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR OR
40: p_tqlv_rec.currency_conversion_type IS NULL) THEN
41: --SET MESSAGE
42: OKC_API.set_message(p_app_name => G_APP_NAME,
43: p_msg_name => G_REQUIRED_VALUE,
38: IF (p_tqlv_rec.currency_code <> p_tqlv_rec.currency_conversion_code) THEN
39: IF (p_tqlv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR OR
40: p_tqlv_rec.currency_conversion_type IS NULL) THEN
41: --SET MESSAGE
42: OKC_API.set_message(p_app_name => G_APP_NAME,
43: p_msg_name => G_REQUIRED_VALUE,
44: p_token1 => G_COL_NAME_TOKEN,
45: p_token1_value => 'currency_conversion_type');
46: x_return_status := OKC_API.G_RET_STS_ERROR;
42: OKC_API.set_message(p_app_name => G_APP_NAME,
43: p_msg_name => G_REQUIRED_VALUE,
44: p_token1 => G_COL_NAME_TOKEN,
45: p_token1_value => 'currency_conversion_type');
46: x_return_status := OKC_API.G_RET_STS_ERROR;
47: END IF;
48: IF (p_tqlv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM OR
49: p_tqlv_rec.currency_conversion_rate IS NULL) THEN
50: --SET MESSAGE
44: p_token1 => G_COL_NAME_TOKEN,
45: p_token1_value => 'currency_conversion_type');
46: x_return_status := OKC_API.G_RET_STS_ERROR;
47: END IF;
48: IF (p_tqlv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM OR
49: p_tqlv_rec.currency_conversion_rate IS NULL) THEN
50: --SET MESSAGE
51: OKC_API.set_message(p_app_name => G_APP_NAME,
52: p_msg_name => G_REQUIRED_VALUE,
47: END IF;
48: IF (p_tqlv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM OR
49: p_tqlv_rec.currency_conversion_rate IS NULL) THEN
50: --SET MESSAGE
51: OKC_API.set_message(p_app_name => G_APP_NAME,
52: p_msg_name => G_REQUIRED_VALUE,
53: p_token1 => G_COL_NAME_TOKEN,
54: p_token1_value => 'currency_conversion_rate');
55: x_return_status := OKC_API.G_RET_STS_ERROR;
51: OKC_API.set_message(p_app_name => G_APP_NAME,
52: p_msg_name => G_REQUIRED_VALUE,
53: p_token1 => G_COL_NAME_TOKEN,
54: p_token1_value => 'currency_conversion_rate');
55: x_return_status := OKC_API.G_RET_STS_ERROR;
56: END IF;
57: IF (p_tqlv_rec.currency_conversion_date = OKC_API.G_MISS_DATE OR
58: p_tqlv_rec.currency_conversion_date IS NULL) THEN
59: --SET MESSAGE
53: p_token1 => G_COL_NAME_TOKEN,
54: p_token1_value => 'currency_conversion_rate');
55: x_return_status := OKC_API.G_RET_STS_ERROR;
56: END IF;
57: IF (p_tqlv_rec.currency_conversion_date = OKC_API.G_MISS_DATE OR
58: p_tqlv_rec.currency_conversion_date IS NULL) THEN
59: --SET MESSAGE
60: OKC_API.set_message(p_app_name => G_APP_NAME,
61: p_msg_name => G_REQUIRED_VALUE,
56: END IF;
57: IF (p_tqlv_rec.currency_conversion_date = OKC_API.G_MISS_DATE OR
58: p_tqlv_rec.currency_conversion_date IS NULL) THEN
59: --SET MESSAGE
60: OKC_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 => 'currency_conversion_date');
64: x_return_status := OKC_API.G_RET_STS_ERROR;
60: OKC_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 => 'currency_conversion_date');
64: x_return_status := OKC_API.G_RET_STS_ERROR;
65: END IF;
66: -- Else If transaction currency = functional currency, then conversion columns
67: -- should all be NULL
68: ELSIF (p_tqlv_rec.currency_code = p_tqlv_rec.currency_conversion_code) THEN
71: (p_tqlv_rec.currency_conversion_date IS NOT NULL) THEN
72: --SET MESSAGE
73: -- Currency conversion columns should be all null
74: IF p_tqlv_rec.currency_conversion_rate IS NOT NULL THEN
75: OKC_API.set_message(p_app_name => G_APP_NAME,
76: p_msg_name => G_INVALID_VALUE,
77: p_token1 => G_COL_NAME_TOKEN,
78: p_token1_value => 'currency_conversion_rate');
79: END IF;
77: p_token1 => G_COL_NAME_TOKEN,
78: p_token1_value => 'currency_conversion_rate');
79: END IF;
80: IF p_tqlv_rec.currency_conversion_date IS NOT NULL THEN
81: OKC_API.set_message(p_app_name => G_APP_NAME,
82: p_msg_name => G_INVALID_VALUE,
83: p_token1 => G_COL_NAME_TOKEN,
84: p_token1_value => 'currency_conversion_date');
85: END IF;
83: p_token1 => G_COL_NAME_TOKEN,
84: p_token1_value => 'currency_conversion_date');
85: END IF;
86: IF p_tqlv_rec.currency_conversion_type IS NOT NULL THEN
87: OKC_API.set_message(p_app_name => G_APP_NAME,
88: p_msg_name => G_INVALID_VALUE,
89: p_token1 => G_COL_NAME_TOKEN,
90: p_token1_value => 'currency_conversion_type');
91: END IF;
88: p_msg_name => G_INVALID_VALUE,
89: p_token1 => G_COL_NAME_TOKEN,
90: p_token1_value => 'currency_conversion_type');
91: END IF;
92: x_return_status := OKC_API.G_RET_STS_ERROR;
93: END IF;
94: ELSE
95: x_return_status := OKC_API.G_RET_STS_ERROR;
96: END IF;
91: END IF;
92: x_return_status := OKC_API.G_RET_STS_ERROR;
93: END IF;
94: ELSE
95: x_return_status := OKC_API.G_RET_STS_ERROR;
96: END IF;
97: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
98: RAISE G_EXCEPTION_HALT_VALIDATION;
99: END IF;
93: END IF;
94: ELSE
95: x_return_status := OKC_API.G_RET_STS_ERROR;
96: END IF;
97: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
98: RAISE G_EXCEPTION_HALT_VALIDATION;
99: END IF;
100: EXCEPTION
101: WHEN G_EXCEPTION_HALT_VALIDATION THEN
98: RAISE G_EXCEPTION_HALT_VALIDATION;
99: END IF;
100: EXCEPTION
101: WHEN G_EXCEPTION_HALT_VALIDATION THEN
102: x_return_status := OKC_API.G_RET_STS_ERROR;
103: WHEN OTHERS THEN
104: -- store SQL error message on message stack for caller
105: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
106: p_msg_name => g_unexpected_error,
101: WHEN G_EXCEPTION_HALT_VALIDATION THEN
102: x_return_status := OKC_API.G_RET_STS_ERROR;
103: WHEN OTHERS THEN
104: -- store SQL error message on message stack for caller
105: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
106: p_msg_name => g_unexpected_error,
107: p_token1 => g_sqlcode_token,
108: p_token1_value => sqlcode,
109: p_token2 => g_sqlerrm_token,
108: p_token1_value => sqlcode,
109: p_token2 => g_sqlerrm_token,
110: p_token2_value => sqlerrm);
111: -- notify caller of an UNEXPECTED error
112: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
113: END validate_currency_record;
114: --------------------------------------------------------------------------------
115: -- Start of comments
116: -- Procedure Name : validate_currency_code
122: -- End of comments
123:
124: PROCEDURE validate_currency_code(p_tqlv_rec IN tqlv_rec_type,
125: x_return_status OUT NOCOPY VARCHAR2) IS
126: l_return_status VARCHAR2(3) := OKC_API.G_TRUE;
127: BEGIN
128: -- initialize return status
129: x_return_status := OKC_API.G_RET_STS_SUCCESS;
130: -- data is required
125: x_return_status OUT NOCOPY VARCHAR2) IS
126: l_return_status VARCHAR2(3) := OKC_API.G_TRUE;
127: BEGIN
128: -- initialize return status
129: x_return_status := OKC_API.G_RET_STS_SUCCESS;
130: -- data is required
131: IF (p_tqlv_rec.currency_code IS NULL) OR
132: (p_tqlv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
133: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
128: -- initialize return status
129: x_return_status := OKC_API.G_RET_STS_SUCCESS;
130: -- data is required
131: IF (p_tqlv_rec.currency_code IS NULL) OR
132: (p_tqlv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
133: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
134: ,p_msg_name => G_REQUIRED_VALUE
135: ,p_token1 => G_COL_NAME_TOKEN
136: ,p_token1_value => 'currency_code');
129: x_return_status := OKC_API.G_RET_STS_SUCCESS;
130: -- data is required
131: IF (p_tqlv_rec.currency_code IS NULL) OR
132: (p_tqlv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
133: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
134: ,p_msg_name => G_REQUIRED_VALUE
135: ,p_token1 => G_COL_NAME_TOKEN
136: ,p_token1_value => 'currency_code');
137:
139: RAISE G_EXCEPTION_HALT_VALIDATION;
140: END IF;
141: -- check from currency values using the generic okl_util.validate_currency_code
142: l_return_status := OKL_ACCOUNTING_UTIL.validate_currency_code(p_tqlv_rec.currency_code);
143: IF (l_return_status <> OKC_API.G_TRUE) THEN
144: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
145: p_msg_name => g_invalid_value,
146: p_token1 => g_col_name_token,
147: p_token1_value => 'currency_code');
140: END IF;
141: -- check from currency values using the generic okl_util.validate_currency_code
142: l_return_status := OKL_ACCOUNTING_UTIL.validate_currency_code(p_tqlv_rec.currency_code);
143: IF (l_return_status <> OKC_API.G_TRUE) THEN
144: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
145: p_msg_name => g_invalid_value,
146: p_token1 => g_col_name_token,
147: p_token1_value => 'currency_code');
148: -- halt further validation of this column
149: RAISE G_EXCEPTION_HALT_VALIDATION;
150: END IF;
151: EXCEPTION
152: WHEN G_EXCEPTION_HALT_VALIDATION THEN
153: x_return_status := OKC_API.G_RET_STS_ERROR;
154: WHEN OTHERS THEN
155: -- store SQL error message on message stack for caller
156: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
157: p_msg_name => g_unexpected_error,
152: WHEN G_EXCEPTION_HALT_VALIDATION THEN
153: x_return_status := OKC_API.G_RET_STS_ERROR;
154: WHEN OTHERS THEN
155: -- store SQL error message on message stack for caller
156: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
157: p_msg_name => g_unexpected_error,
158: p_token1 => g_sqlcode_token,
159: p_token1_value => sqlcode,
160: p_token2 => g_sqlerrm_token,
159: p_token1_value => sqlcode,
160: p_token2 => g_sqlerrm_token,
161: p_token2_value => sqlerrm);
162: -- notify caller of an UNEXPECTED error
163: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
164: END validate_currency_code;
165: --------------------------------------------------------------------------------
166: -- Start of comments
167: -- Procedure Name : validate_currency_con_code
173: -- End of comments
174:
175: PROCEDURE validate_currency_con_code(p_tqlv_rec IN tqlv_rec_type,
176: x_return_status OUT NOCOPY VARCHAR2) IS
177: l_return_status VARCHAR2(3) := OKC_API.G_TRUE;
178: BEGIN
179: -- initialize return status
180: x_return_status := OKC_API.G_RET_STS_SUCCESS;
181: -- data is required
176: x_return_status OUT NOCOPY VARCHAR2) IS
177: l_return_status VARCHAR2(3) := OKC_API.G_TRUE;
178: BEGIN
179: -- initialize return status
180: x_return_status := OKC_API.G_RET_STS_SUCCESS;
181: -- data is required
182: IF (p_tqlv_rec.currency_conversion_code IS NULL) OR
183: (p_tqlv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR) THEN
184: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
179: -- initialize return status
180: x_return_status := OKC_API.G_RET_STS_SUCCESS;
181: -- data is required
182: IF (p_tqlv_rec.currency_conversion_code IS NULL) OR
183: (p_tqlv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR) THEN
184: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
185: ,p_msg_name => G_REQUIRED_VALUE
186: ,p_token1 => G_COL_NAME_TOKEN
187: ,p_token1_value => 'currency_conversion_code');
180: x_return_status := OKC_API.G_RET_STS_SUCCESS;
181: -- data is required
182: IF (p_tqlv_rec.currency_conversion_code IS NULL) OR
183: (p_tqlv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR) THEN
184: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
185: ,p_msg_name => G_REQUIRED_VALUE
186: ,p_token1 => G_COL_NAME_TOKEN
187: ,p_token1_value => 'currency_conversion_code');
188: -- halt further validation of this column
189: RAISE G_EXCEPTION_HALT_VALIDATION;
190: END IF;
191: -- check from currency values using the generic okl_util.validate_currency_code
192: l_return_status := OKL_ACCOUNTING_UTIL.validate_currency_code(p_tqlv_rec.currency_conversion_code);
193: IF (l_return_status <> OKC_API.G_TRUE) THEN
194: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
195: p_msg_name => g_invalid_value,
196: p_token1 => g_col_name_token,
197: p_token1_value => 'currency_conversion_code');
190: END IF;
191: -- check from currency values using the generic okl_util.validate_currency_code
192: l_return_status := OKL_ACCOUNTING_UTIL.validate_currency_code(p_tqlv_rec.currency_conversion_code);
193: IF (l_return_status <> OKC_API.G_TRUE) THEN
194: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
195: p_msg_name => g_invalid_value,
196: p_token1 => g_col_name_token,
197: p_token1_value => 'currency_conversion_code');
198: -- halt further validation of this column
199: RAISE G_EXCEPTION_HALT_VALIDATION;
200: END IF;
201: EXCEPTION
202: WHEN G_EXCEPTION_HALT_VALIDATION THEN
203: x_return_status := OKC_API.G_RET_STS_ERROR;
204: WHEN OTHERS THEN
205: -- store SQL error message on message stack for caller
206: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
207: p_msg_name => g_unexpected_error,
202: WHEN G_EXCEPTION_HALT_VALIDATION THEN
203: x_return_status := OKC_API.G_RET_STS_ERROR;
204: WHEN OTHERS THEN
205: -- store SQL error message on message stack for caller
206: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
207: p_msg_name => g_unexpected_error,
208: p_token1 => g_sqlcode_token,
209: p_token1_value => sqlcode,
210: p_token2 => g_sqlerrm_token,
210: p_token2 => g_sqlerrm_token,
211: p_token2_value => sqlerrm);
212:
213: -- notify caller of an UNEXPECTED error
214: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
215: END validate_currency_con_code;
216: --------------------------------------------------------------------------------
217: -- Start of comments
218: -- Procedure Name : validate_currency_con_type
224: -- End of comments
225:
226: PROCEDURE validate_currency_con_type(p_tqlv_rec IN tqlv_rec_type,
227: x_return_status OUT NOCOPY VARCHAR2) IS
228: l_return_status VARCHAR2(3) := OKC_API.G_TRUE;
229: BEGIN
230: -- initialize return status
231: x_return_status := OKC_API.G_RET_STS_SUCCESS;
232: IF (p_tqlv_rec.currency_conversion_type <> OKL_API.G_MISS_CHAR AND
227: x_return_status OUT NOCOPY VARCHAR2) IS
228: l_return_status VARCHAR2(3) := OKC_API.G_TRUE;
229: BEGIN
230: -- initialize return status
231: x_return_status := OKC_API.G_RET_STS_SUCCESS;
232: IF (p_tqlv_rec.currency_conversion_type <> OKL_API.G_MISS_CHAR AND
233: p_tqlv_rec.currency_conversion_type IS NOT NULL) THEN
234: -- check from currency values using the generic okl_util.validate_currency_code
235: l_return_status := OKL_ACCOUNTING_UTIL.validate_currency_con_type(p_tqlv_rec.currency_conversion_type);
232: IF (p_tqlv_rec.currency_conversion_type <> OKL_API.G_MISS_CHAR AND
233: p_tqlv_rec.currency_conversion_type IS NOT NULL) THEN
234: -- check from currency values using the generic okl_util.validate_currency_code
235: l_return_status := OKL_ACCOUNTING_UTIL.validate_currency_con_type(p_tqlv_rec.currency_conversion_type);
236: IF (l_return_status <> OKC_API.G_TRUE) THEN
237: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
238: p_msg_name => g_invalid_value,
239: p_token1 => g_col_name_token,
240: p_token1_value => 'currency_conversion_type');
233: p_tqlv_rec.currency_conversion_type IS NOT NULL) THEN
234: -- check from currency values using the generic okl_util.validate_currency_code
235: l_return_status := OKL_ACCOUNTING_UTIL.validate_currency_con_type(p_tqlv_rec.currency_conversion_type);
236: IF (l_return_status <> OKC_API.G_TRUE) THEN
237: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
238: p_msg_name => g_invalid_value,
239: p_token1 => g_col_name_token,
240: p_token1_value => 'currency_conversion_type');
241: -- halt further validation of this column
243: END IF;
244: END IF;
245: EXCEPTION
246: WHEN G_EXCEPTION_HALT_VALIDATION THEN
247: x_return_status := OKC_API.G_RET_STS_ERROR;
248: WHEN OTHERS THEN
249: -- store SQL error message on message stack for caller
250: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
251: p_msg_name => g_unexpected_error,
246: WHEN G_EXCEPTION_HALT_VALIDATION THEN
247: x_return_status := OKC_API.G_RET_STS_ERROR;
248: WHEN OTHERS THEN
249: -- store SQL error message on message stack for caller
250: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
251: p_msg_name => g_unexpected_error,
252: p_token1 => g_sqlcode_token,
253: p_token1_value => sqlcode,
254: p_token2 => g_sqlerrm_token,
253: p_token1_value => sqlcode,
254: p_token2 => g_sqlerrm_token,
255: p_token2_value => sqlerrm);
256: -- notify caller of an UNEXPECTED error
257: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
258: END validate_currency_con_type;
259: ---------------------------------------------------------------------------------
260: -- Start of Commnets
261: -- Badrinath Kuchibholta
313: -- notify caller of an error
314: x_return_status := OKL_API.G_RET_STS_ERROR;
315: WHEN OTHERS THEN
316: -- store SQL error message on message stack
317: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
318: p_msg_name => G_UNEXPECTED_ERROR,
319: p_token1 => G_SQLCODE_TOKEN,
320: p_token1_value => SQLCODE,
321: p_token2 => G_SQLERRM_TOKEN,
337:
338: PROCEDURE validate_org_id(
339: x_return_status OUT NOCOPY VARCHAR2,
340: p_tqlv_rec IN tqlv_rec_type) IS
341: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
342: BEGIN
343: -- initialize return status
344: x_return_status := OKC_API.G_RET_STS_SUCCESS;
345:
340: p_tqlv_rec IN tqlv_rec_type) IS
341: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
342: BEGIN
343: -- initialize return status
344: x_return_status := OKC_API.G_RET_STS_SUCCESS;
345:
346: -- check org id validity using the generic function okl_util.check_org_id()
347: l_return_status := OKL_UTIL.check_org_id (p_tqlv_rec.org_id);
348:
345:
346: -- check org id validity using the generic function okl_util.check_org_id()
347: l_return_status := OKL_UTIL.check_org_id (p_tqlv_rec.org_id);
348:
349: IF ( l_return_status = OKC_API.G_RET_STS_ERROR) THEN
350: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
351: p_msg_name => g_invalid_value,
352: p_token1 => g_col_name_token,
353: p_token1_value => 'org_id');
346: -- check org id validity using the generic function okl_util.check_org_id()
347: l_return_status := OKL_UTIL.check_org_id (p_tqlv_rec.org_id);
348:
349: IF ( l_return_status = OKC_API.G_RET_STS_ERROR) THEN
350: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
351: p_msg_name => g_invalid_value,
352: p_token1 => g_col_name_token,
353: p_token1_value => 'org_id');
354:
352: p_token1 => g_col_name_token,
353: p_token1_value => 'org_id');
354:
355: -- notify caller of an error
356: x_return_status := OKC_API.G_RET_STS_ERROR;
357: raise G_EXCEPTION_HALT_VALIDATION;
358:
359: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
360: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
355: -- notify caller of an error
356: x_return_status := OKC_API.G_RET_STS_ERROR;
357: raise G_EXCEPTION_HALT_VALIDATION;
358:
359: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
360: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
361: raise G_EXCEPTION_HALT_VALIDATION;
362:
363: END IF;
356: x_return_status := OKC_API.G_RET_STS_ERROR;
357: raise G_EXCEPTION_HALT_VALIDATION;
358:
359: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
360: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
361: raise G_EXCEPTION_HALT_VALIDATION;
362:
363: END IF;
364:
368: NULL;
369:
370: WHEN OTHERS THEN
371: -- store SQL error message on message stack for caller
372: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
373: p_msg_name => g_unexpected_error,
374: p_token1 => g_sqlcode_token,
375: p_token1_value => sqlcode,
376: p_token2 => g_sqlerrm_token,
376: p_token2 => g_sqlerrm_token,
377: p_token2_value => sqlerrm);
378:
379: -- notify caller of an UNEXPECTED error
380: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
381:
382: END validate_org_id;
383:
384: ------------------------------------
392:
393: PROCEDURE validate_try_id_fk(
394: x_return_status OUT NOCOPY VARCHAR2,
395: p_tqlv_rec IN tqlv_rec_type) IS
396: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
397:
398: CURSOR check_try_id_csr (p_try_id IN NUMBER) IS
399: SELECT try.id
400: FROM okl_trx_types_v try
410: CLOSE check_try_id_csr;
411:
412: IF l_try_id IS NULL THEN
413:
414: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
415: p_msg_name => g_invalid_value,
416: p_token1 => g_col_name_token,
417: p_token1_value => 'try_id');
418:
415: p_msg_name => g_invalid_value,
416: p_token1 => g_col_name_token,
417: p_token1_value => 'try_id');
418:
419: x_return_status := OKC_API.G_RET_STS_ERROR;
420: raise G_EXCEPTION_HALT_VALIDATION;
421: END IF;
422: END IF;
423: EXCEPTION
426: NULL;
427:
428: WHEN OTHERS THEN
429: -- store SQL error message on message stack for caller
430: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
431: p_msg_name => g_unexpected_error,
432: p_token1 => g_sqlcode_token,
433: p_token1_value => sqlcode,
434: p_token2 => g_sqlerrm_token,
434: p_token2 => g_sqlerrm_token,
435: p_token2_value => sqlerrm);
436:
437: -- notify caller of an UNEXPECTED error
438: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
439:
440: END validate_try_id_fk;
441:
442: ------------------------------------
461: ( p_lookup_type=>'OKL_QUOTE_LINE_TYPE'
462: , p_lookup_code=>p_tqlv_rec.qlt_code
463: );
464:
465: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
466: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
467: p_msg_name => g_invalid_value,
468: p_token1 => g_col_name_token,
469: p_token1_value => 'qlt_code');
462: , p_lookup_code=>p_tqlv_rec.qlt_code
463: );
464:
465: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
466: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
467: p_msg_name => g_invalid_value,
468: p_token1 => g_col_name_token,
469: p_token1_value => 'qlt_code');
470:
467: p_msg_name => g_invalid_value,
468: p_token1 => g_col_name_token,
469: p_token1_value => 'qlt_code');
470:
471: x_return_status := OKC_API.G_RET_STS_ERROR;
472: raise G_EXCEPTION_HALT_VALIDATION;
473:
474: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
475: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
470:
471: x_return_status := OKC_API.G_RET_STS_ERROR;
472: raise G_EXCEPTION_HALT_VALIDATION;
473:
474: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
475: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
476: raise G_EXCEPTION_HALT_VALIDATION;
477: END IF;
478:
471: x_return_status := OKC_API.G_RET_STS_ERROR;
472: raise G_EXCEPTION_HALT_VALIDATION;
473:
474: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
475: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
476: raise G_EXCEPTION_HALT_VALIDATION;
477: END IF;
478:
479: END IF;
484: NULL;
485:
486: when OTHERS then
487: -- store SQL error on message stack for caller
488: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
489: p_msg_name => g_unexpected_error,
490: p_token1 => g_sqlcode_token,
491: p_token1_value => sqlcode,
492: p_token2 => g_sqlerrm_token,
492: p_token2 => g_sqlerrm_token,
493: p_token2_value => sqlerrm);
494:
495: -- notify caller of an UNEXPECTED error
496: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
497:
498: END validate_fk_qlt_code;
499:
500:
526: CLOSE okl_sty_fk_csr;
527:
528: -- if l_dummy_var is still set to default, data was not found
529: IF (l_dummy_var = '?') THEN
530: OKC_API.set_message(p_app_name => 'OKL',
531: p_msg_name => g_no_parent_record,
532: p_token1 => g_col_name_token,
533: p_token1_value => 'sty_id',
534: p_token2 => g_child_table_token,
536: p_token3 => g_parent_table_token,
537: p_token3_value => 'OKL_STRM_TYPE_V');
538:
539: -- notify caller of an error
540: x_return_status := OKC_API.G_RET_STS_ERROR;
541: END IF;
542: END IF;
543: EXCEPTION
544: WHEN OTHERS THEN
542: END IF;
543: EXCEPTION
544: WHEN OTHERS THEN
545: -- store SQL error on message stack for caller
546: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
547: p_msg_name => g_unexpected_error,
548: p_token1 => g_sqlcode_token,
549: p_token1_value => sqlcode,
550: p_token2 => g_sqlerrm_token,
550: p_token2 => g_sqlerrm_token,
551: p_token2_value => sqlerrm);
552:
553: -- notify caller of an UNEXPECTED error
554: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
555:
556: -- verify that cursor was closed
557: IF okl_sty_fk_csr%ISOPEN THEN
558: CLOSE okl_sty_fk_csr;
572: PROCEDURE validate_modified_yn_domain (
573: x_return_status OUT NOCOPY VARCHAR2,
574: p_tqlv_rec IN tqlv_rec_type
575: ) IS
576: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
577: BEGIN
578: x_return_status := OKC_API.G_RET_STS_SUCCESS;
579:
580: -- check from domain values using the generic okl_util.check_domain_yn
574: p_tqlv_rec IN tqlv_rec_type
575: ) IS
576: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
577: BEGIN
578: x_return_status := OKC_API.G_RET_STS_SUCCESS;
579:
580: -- check from domain values using the generic okl_util.check_domain_yn
581: l_return_status := OKL_UTIL.check_domain_yn(p_tqlv_rec.modified_yn);
582:
579:
580: -- check from domain values using the generic okl_util.check_domain_yn
581: l_return_status := OKL_UTIL.check_domain_yn(p_tqlv_rec.modified_yn);
582:
583: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
584: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
585: p_msg_name => g_invalid_value,
586: p_token1 => g_col_name_token,
587: p_token1_value => 'modified_yn');
580: -- check from domain values using the generic okl_util.check_domain_yn
581: l_return_status := OKL_UTIL.check_domain_yn(p_tqlv_rec.modified_yn);
582:
583: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
584: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
585: p_msg_name => g_invalid_value,
586: p_token1 => g_col_name_token,
587: p_token1_value => 'modified_yn');
588:
585: p_msg_name => g_invalid_value,
586: p_token1 => g_col_name_token,
587: p_token1_value => 'modified_yn');
588:
589: x_return_status := OKC_API.G_RET_STS_ERROR;
590: raise G_EXCEPTION_HALT_VALIDATION;
591:
592: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
593: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
588:
589: x_return_status := OKC_API.G_RET_STS_ERROR;
590: raise G_EXCEPTION_HALT_VALIDATION;
591:
592: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
593: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
594: raise G_EXCEPTION_HALT_VALIDATION;
595: END IF;
596:
589: x_return_status := OKC_API.G_RET_STS_ERROR;
590: raise G_EXCEPTION_HALT_VALIDATION;
591:
592: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
593: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
594: raise G_EXCEPTION_HALT_VALIDATION;
595: END IF;
596:
597: EXCEPTION
600: NULL;
601:
602: WHEN OTHERS THEN
603: -- store SQL error message on message stack for caller
604: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
605: p_msg_name => g_unexpected_error,
606: p_token1 => g_sqlcode_token,
607: p_token1_value => sqlcode,
608: p_token2 => g_sqlerrm_token,
608: p_token2 => g_sqlerrm_token,
609: p_token2_value => sqlerrm);
610:
611: -- notify caller of an UNEXPECTED error
612: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
613: END validate_modified_yn_domain;
614:
615: ------------------------------------
616: -- PROCEDURE validate_taxed_yn_domain--
624: PROCEDURE validate_taxed_yn_domain (
625: x_return_status OUT NOCOPY VARCHAR2,
626: p_tqlv_rec IN tqlv_rec_type
627: ) IS
628: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
629: BEGIN
630: x_return_status := OKC_API.G_RET_STS_SUCCESS;
631:
632: -- check from domain values using the generic okl_util.check_domain_yn
626: p_tqlv_rec IN tqlv_rec_type
627: ) IS
628: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
629: BEGIN
630: x_return_status := OKC_API.G_RET_STS_SUCCESS;
631:
632: -- check from domain values using the generic okl_util.check_domain_yn
633: l_return_status := OKL_UTIL.check_domain_yn(p_tqlv_rec.taxed_yn);
634:
631:
632: -- check from domain values using the generic okl_util.check_domain_yn
633: l_return_status := OKL_UTIL.check_domain_yn(p_tqlv_rec.taxed_yn);
634:
635: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
636: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
637: p_msg_name => g_invalid_value,
638: p_token1 => g_col_name_token,
639: p_token1_value => 'taxed_yn');
632: -- check from domain values using the generic okl_util.check_domain_yn
633: l_return_status := OKL_UTIL.check_domain_yn(p_tqlv_rec.taxed_yn);
634:
635: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
636: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
637: p_msg_name => g_invalid_value,
638: p_token1 => g_col_name_token,
639: p_token1_value => 'taxed_yn');
640:
637: p_msg_name => g_invalid_value,
638: p_token1 => g_col_name_token,
639: p_token1_value => 'taxed_yn');
640:
641: x_return_status := OKC_API.G_RET_STS_ERROR;
642: raise G_EXCEPTION_HALT_VALIDATION;
643:
644: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
645: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
640:
641: x_return_status := OKC_API.G_RET_STS_ERROR;
642: raise G_EXCEPTION_HALT_VALIDATION;
643:
644: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
645: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
646: raise G_EXCEPTION_HALT_VALIDATION;
647: END IF;
648:
641: x_return_status := OKC_API.G_RET_STS_ERROR;
642: raise G_EXCEPTION_HALT_VALIDATION;
643:
644: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
645: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
646: raise G_EXCEPTION_HALT_VALIDATION;
647: END IF;
648:
649: EXCEPTION
652: NULL;
653:
654: WHEN OTHERS THEN
655: -- store SQL error message on message stack for caller
656: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
657: p_msg_name => g_unexpected_error,
658: p_token1 => g_sqlcode_token,
659: p_token1_value => sqlcode,
660: p_token2 => g_sqlerrm_token,
660: p_token2 => g_sqlerrm_token,
661: p_token2_value => sqlerrm);
662:
663: -- notify caller of an UNEXPECTED error
664: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
665: END validate_taxed_yn_domain;
666:
667: ------------------------------------
668: -- PROCEDURE validate_taxed_yn_domain--
676: PROCEDURE validate_defaulted_yn_domain (
677: x_return_status OUT NOCOPY VARCHAR2,
678: p_tqlv_rec IN tqlv_rec_type
679: ) IS
680: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
681: BEGIN
682: x_return_status := OKC_API.G_RET_STS_SUCCESS;
683:
684: -- check from domain values using the generic okl_util.check_domain_yn
678: p_tqlv_rec IN tqlv_rec_type
679: ) IS
680: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
681: BEGIN
682: x_return_status := OKC_API.G_RET_STS_SUCCESS;
683:
684: -- check from domain values using the generic okl_util.check_domain_yn
685: l_return_status := OKL_UTIL.check_domain_yn(p_tqlv_rec.defaulted_yn);
686:
683:
684: -- check from domain values using the generic okl_util.check_domain_yn
685: l_return_status := OKL_UTIL.check_domain_yn(p_tqlv_rec.defaulted_yn);
686:
687: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
688: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
689: p_msg_name => g_invalid_value,
690: p_token1 => g_col_name_token,
691: p_token1_value => 'defaulted_yn');
684: -- check from domain values using the generic okl_util.check_domain_yn
685: l_return_status := OKL_UTIL.check_domain_yn(p_tqlv_rec.defaulted_yn);
686:
687: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
688: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
689: p_msg_name => g_invalid_value,
690: p_token1 => g_col_name_token,
691: p_token1_value => 'defaulted_yn');
692:
689: p_msg_name => g_invalid_value,
690: p_token1 => g_col_name_token,
691: p_token1_value => 'defaulted_yn');
692:
693: x_return_status := OKC_API.G_RET_STS_ERROR;
694: raise G_EXCEPTION_HALT_VALIDATION;
695:
696: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
697: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
692:
693: x_return_status := OKC_API.G_RET_STS_ERROR;
694: raise G_EXCEPTION_HALT_VALIDATION;
695:
696: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
697: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
698: raise G_EXCEPTION_HALT_VALIDATION;
699: END IF;
700:
693: x_return_status := OKC_API.G_RET_STS_ERROR;
694: raise G_EXCEPTION_HALT_VALIDATION;
695:
696: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
697: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
698: raise G_EXCEPTION_HALT_VALIDATION;
699: END IF;
700:
701: EXCEPTION
704: NULL;
705:
706: WHEN OTHERS THEN
707: -- store SQL error message on message stack for caller
708: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
709: p_msg_name => g_unexpected_error,
710: p_token1 => g_sqlcode_token,
711: p_token1_value => sqlcode,
712: p_token2 => g_sqlerrm_token,
712: p_token2 => g_sqlerrm_token,
713: p_token2_value => sqlerrm);
714:
715: -- notify caller of an UNEXPECTED error
716: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
717: END validate_defaulted_yn_domain;
718:
719: ------------------------------------
720: -- PROCEDURE validate_id--
729: x_return_status OUT NOCOPY VARCHAR2,
730: p_tqlv_rec IN tqlv_rec_type
731: ) IS
732: BEGIN
733: x_return_status := OKC_API.G_RET_STS_SUCCESS;
734:
735: IF p_tqlv_rec.id = OKC_API.G_MISS_NUM OR
736: p_tqlv_rec.id IS NULL
737: THEN
731: ) IS
732: BEGIN
733: x_return_status := OKC_API.G_RET_STS_SUCCESS;
734:
735: IF p_tqlv_rec.id = OKC_API.G_MISS_NUM OR
736: p_tqlv_rec.id IS NULL
737: THEN
738: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
739: p_msg_name => g_required_value,
734:
735: IF p_tqlv_rec.id = OKC_API.G_MISS_NUM OR
736: p_tqlv_rec.id IS NULL
737: THEN
738: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
739: p_msg_name => g_required_value,
740: p_token1 => g_col_name_token,
741: p_token1_value => 'id');
742:
739: p_msg_name => g_required_value,
740: p_token1 => g_col_name_token,
741: p_token1_value => 'id');
742:
743: x_return_status := OKC_API.G_RET_STS_ERROR;
744: raise G_EXCEPTION_HALT_VALIDATION;
745: else
746: x_return_status := OKC_API.G_RET_STS_SUCCESS;
747: end if;
742:
743: x_return_status := OKC_API.G_RET_STS_ERROR;
744: raise G_EXCEPTION_HALT_VALIDATION;
745: else
746: x_return_status := OKC_API.G_RET_STS_SUCCESS;
747: end if;
748: exception
749: when G_EXCEPTION_HALT_VALIDATION then
750: null;
748: exception
749: when G_EXCEPTION_HALT_VALIDATION then
750: null;
751: when OTHERS then
752: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
753: p_msg_name => G_UNEXPECTED_ERROR,
754: p_token1 => g_sqlcode_token,
755: p_token1_value => sqlcode,
756: p_token2 => g_sqlerrm_token,
754: p_token1 => g_sqlcode_token,
755: p_token1_value => sqlcode,
756: p_token2 => g_sqlerrm_token,
757: p_token2_value => sqlerrm);
758: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
759: END validate_id;
760:
761: -- Start of comments
762: --
771: p_tqlv_rec IN tqlv_rec_type) IS
772:
773: BEGIN
774: -- initialize return status
775: x_return_status := OKC_API.G_RET_STS_SUCCESS;
776:
777: -- data is required
778: IF (p_tqlv_rec.sfwt_flag IS NULL) OR (p_tqlv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
779: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
774: -- initialize return status
775: x_return_status := OKC_API.G_RET_STS_SUCCESS;
776:
777: -- data is required
778: IF (p_tqlv_rec.sfwt_flag IS NULL) OR (p_tqlv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
779: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
780: p_msg_name => g_required_value,
781: p_token1 => g_col_name_token,
782: p_token1_value => 'sfwt_flag');
775: x_return_status := OKC_API.G_RET_STS_SUCCESS;
776:
777: -- data is required
778: IF (p_tqlv_rec.sfwt_flag IS NULL) OR (p_tqlv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
779: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
780: p_msg_name => g_required_value,
781: p_token1 => g_col_name_token,
782: p_token1_value => 'sfwt_flag');
783:
781: p_token1 => g_col_name_token,
782: p_token1_value => 'sfwt_flag');
783:
784: -- notify caller of an error
785: x_return_status := OKC_API.G_RET_STS_ERROR;
786:
787: END IF;
788:
789: EXCEPTION
788:
789: EXCEPTION
790: WHEN OTHERS THEN
791: -- store SQL error message on message stack for caller
792: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
793: p_msg_name => g_unexpected_error,
794: p_token1 => g_sqlcode_token,
795: p_token1_value => sqlcode,
796: p_token2 => g_sqlerrm_token,
796: p_token2 => g_sqlerrm_token,
797: p_token2_value => sqlerrm);
798:
799: -- notify caller of an UNEXPECTED error
800: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
801:
802: END validate_sfwt_flag;
803: ------------------------------------
804: -- PROCEDURE validate_object_version_number--
813: x_return_status OUT NOCOPY VARCHAR2,
814: p_tqlv_rec IN tqlv_rec_type
815: ) IS
816: BEGIN
817: IF p_tqlv_rec.object_version_number = OKC_API.G_MISS_NUM OR
818: p_tqlv_rec.object_version_number IS NULL
819: THEN
820: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
821: p_msg_name => g_required_value,
816: BEGIN
817: IF p_tqlv_rec.object_version_number = OKC_API.G_MISS_NUM OR
818: p_tqlv_rec.object_version_number IS NULL
819: THEN
820: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
821: p_msg_name => g_required_value,
822: p_token1 => g_col_name_token,
823: p_token1_value => 'ObjectVersionNumber');
824:
821: p_msg_name => g_required_value,
822: p_token1 => g_col_name_token,
823: p_token1_value => 'ObjectVersionNumber');
824:
825: x_return_status := OKC_API.G_RET_STS_ERROR;
826: raise G_EXCEPTION_HALT_VALIDATION;
827: ELSE
828: x_return_status := OKC_API.G_RET_STS_SUCCESS;
829: END IF;
824:
825: x_return_status := OKC_API.G_RET_STS_ERROR;
826: raise G_EXCEPTION_HALT_VALIDATION;
827: ELSE
828: x_return_status := OKC_API.G_RET_STS_SUCCESS;
829: END IF;
830: exception
831: when G_EXCEPTION_HALT_VALIDATION then
832: null;
830: exception
831: when G_EXCEPTION_HALT_VALIDATION then
832: null;
833: when OTHERS then
834: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
835: p_msg_name => G_UNEXPECTED_ERROR,
836: p_token1 => g_sqlcode_token,
837: p_token1_value => sqlcode,
838: p_token2 => g_sqlerrm_token,
836: p_token1 => g_sqlcode_token,
837: p_token1_value => sqlcode,
838: p_token2 => g_sqlerrm_token,
839: p_token2_value => sqlerrm);
840: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
841:
842: END validate_object_version_number;
843:
844: -- Procedure Name : validate_qte_id
862:
863: BEGIN
864:
865: -- initialize return status
866: x_return_status := OKC_API.G_RET_STS_SUCCESS;
867:
868: IF ((p_tqlv_rec.qte_id = OKC_API.G_MISS_NUM)
869: OR (p_tqlv_rec.qte_id IS NULL)) THEN
870:
864:
865: -- initialize return status
866: x_return_status := OKC_API.G_RET_STS_SUCCESS;
867:
868: IF ((p_tqlv_rec.qte_id = OKC_API.G_MISS_NUM)
869: OR (p_tqlv_rec.qte_id IS NULL)) THEN
870:
871: OKC_API.SET_MESSAGE(
872: p_app_name => G_APP_NAME,
867:
868: IF ((p_tqlv_rec.qte_id = OKC_API.G_MISS_NUM)
869: OR (p_tqlv_rec.qte_id IS NULL)) THEN
870:
871: OKC_API.SET_MESSAGE(
872: p_app_name => G_APP_NAME,
873: p_msg_name => G_REQUIRED_VALUE,
874: p_token1 => G_COL_NAME_TOKEN,
875: p_token1_value => 'qte_id');
873: p_msg_name => G_REQUIRED_VALUE,
874: p_token1 => G_COL_NAME_TOKEN,
875: p_token1_value => 'qte_id');
876:
877: x_return_status := OKC_API.G_RET_STS_ERROR;
878:
879: RAISE G_EXCEPTION_HALT_VALIDATION;
880:
881: END IF;
887:
888: -- if l_dummy_var is still set to default, data was not found
889: IF (l_dummy_var = '?') THEN
890:
891: OKC_API.set_message(
892: p_app_name => 'OKL',
893: p_msg_name => G_NO_PARENT_RECORD,
894: p_token1 => G_COL_NAME_TOKEN,
895: p_token1_value => 'qte_id',
898: p_token3 => G_PARENT_TABLE_TOKEN,
899: p_token3_value => 'OKL_TRX_QUOTES_V');
900:
901: -- notify caller of an error
902: x_return_status := OKC_API.G_RET_STS_ERROR;
903:
904: END IF;
905:
906: EXCEPTION
922: p_token1_value => SQLCODE,
923: p_token2 => G_SQLERRM_TOKEN,
924: p_token2_value => SQLERRM);
925:
926: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
927:
928:
929: END validate_qte_id;
930:
942: x_return_status OUT NOCOPY VARCHAR2,
943: p_tqlv_rec IN tqlv_rec_type
944: ) IS
945: BEGIN
946: IF p_tqlv_rec.line_number = OKC_API.G_MISS_NUM OR
947: p_tqlv_rec.line_number IS NULL
948: THEN
949: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
950: p_msg_name => g_required_value,
945: BEGIN
946: IF p_tqlv_rec.line_number = OKC_API.G_MISS_NUM OR
947: p_tqlv_rec.line_number IS NULL
948: THEN
949: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
950: p_msg_name => g_required_value,
951: p_token1 => g_col_name_token,
952: p_token1_value => 'line_number');
953:
950: p_msg_name => g_required_value,
951: p_token1 => g_col_name_token,
952: p_token1_value => 'line_number');
953:
954: x_return_status := OKC_API.G_RET_STS_ERROR;
955: raise G_EXCEPTION_HALT_VALIDATION;
956: ELSE
957: x_return_status := OKC_API.G_RET_STS_SUCCESS;
958: END IF;
953:
954: x_return_status := OKC_API.G_RET_STS_ERROR;
955: raise G_EXCEPTION_HALT_VALIDATION;
956: ELSE
957: x_return_status := OKC_API.G_RET_STS_SUCCESS;
958: END IF;
959: exception
960: when G_EXCEPTION_HALT_VALIDATION then
961: null;
959: exception
960: when G_EXCEPTION_HALT_VALIDATION then
961: null;
962: when OTHERS then
963: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
964: p_msg_name => G_UNEXPECTED_ERROR,
965: p_token1 => g_sqlcode_token,
966: p_token1_value => sqlcode,
967: p_token2 => g_sqlerrm_token,
965: p_token1 => g_sqlcode_token,
966: p_token1_value => sqlcode,
967: p_token2 => g_sqlerrm_token,
968: p_token2_value => sqlerrm);
969: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
970: END validate_line_number;
971:
972:
973:
993: -- If amount not passed then raise error
994: IF p_tqlv_rec.amount = OKL_API.G_MISS_NUM
995: OR p_tqlv_rec.amount IS NULL THEN
996:
997: OKC_API.set_message(
998: p_app_name => G_APP_NAME,
999: p_msg_name => G_REQUIRED_VALUE,
1000: p_token1 => G_COL_NAME_TOKEN,
1001: p_token1_value => 'amount');
1531: p_tqlv_rec IN tqlv_rec_type
1532: ) RETURN tqlv_rec_type IS
1533: l_tqlv_rec tqlv_rec_type := p_tqlv_rec;
1534: BEGIN
1535: IF (l_tqlv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
1536: l_tqlv_rec.object_version_number := NULL;
1537: END IF;
1538: IF (l_tqlv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
1539: l_tqlv_rec.sfwt_flag := NULL;
1534: BEGIN
1535: IF (l_tqlv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
1536: l_tqlv_rec.object_version_number := NULL;
1537: END IF;
1538: IF (l_tqlv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
1539: l_tqlv_rec.sfwt_flag := NULL;
1540: END IF;
1541: IF (l_tqlv_rec.qlt_code = OKC_API.G_MISS_CHAR) THEN
1542: l_tqlv_rec.qlt_code := NULL;
1537: END IF;
1538: IF (l_tqlv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
1539: l_tqlv_rec.sfwt_flag := NULL;
1540: END IF;
1541: IF (l_tqlv_rec.qlt_code = OKC_API.G_MISS_CHAR) THEN
1542: l_tqlv_rec.qlt_code := NULL;
1543: END IF;
1544: IF (l_tqlv_rec.kle_id = OKC_API.G_MISS_NUM) THEN
1545: l_tqlv_rec.kle_id := NULL;
1540: END IF;
1541: IF (l_tqlv_rec.qlt_code = OKC_API.G_MISS_CHAR) THEN
1542: l_tqlv_rec.qlt_code := NULL;
1543: END IF;
1544: IF (l_tqlv_rec.kle_id = OKC_API.G_MISS_NUM) THEN
1545: l_tqlv_rec.kle_id := NULL;
1546: END IF;
1547: IF (l_tqlv_rec.sty_id = OKC_API.G_MISS_NUM) THEN
1548: l_tqlv_rec.sty_id := NULL;
1543: END IF;
1544: IF (l_tqlv_rec.kle_id = OKC_API.G_MISS_NUM) THEN
1545: l_tqlv_rec.kle_id := NULL;
1546: END IF;
1547: IF (l_tqlv_rec.sty_id = OKC_API.G_MISS_NUM) THEN
1548: l_tqlv_rec.sty_id := NULL;
1549: END IF;
1550: IF (l_tqlv_rec.qte_id = OKC_API.G_MISS_NUM) THEN
1551: l_tqlv_rec.qte_id := NULL;
1546: END IF;
1547: IF (l_tqlv_rec.sty_id = OKC_API.G_MISS_NUM) THEN
1548: l_tqlv_rec.sty_id := NULL;
1549: END IF;
1550: IF (l_tqlv_rec.qte_id = OKC_API.G_MISS_NUM) THEN
1551: l_tqlv_rec.qte_id := NULL;
1552: END IF;
1553: IF (l_tqlv_rec.line_number = OKC_API.G_MISS_NUM) THEN
1554: l_tqlv_rec.line_number := NULL;
1549: END IF;
1550: IF (l_tqlv_rec.qte_id = OKC_API.G_MISS_NUM) THEN
1551: l_tqlv_rec.qte_id := NULL;
1552: END IF;
1553: IF (l_tqlv_rec.line_number = OKC_API.G_MISS_NUM) THEN
1554: l_tqlv_rec.line_number := NULL;
1555: END IF;
1556: IF (l_tqlv_rec.description = OKC_API.G_MISS_CHAR) THEN
1557: l_tqlv_rec.description := NULL;
1552: END IF;
1553: IF (l_tqlv_rec.line_number = OKC_API.G_MISS_NUM) THEN
1554: l_tqlv_rec.line_number := NULL;
1555: END IF;
1556: IF (l_tqlv_rec.description = OKC_API.G_MISS_CHAR) THEN
1557: l_tqlv_rec.description := NULL;
1558: END IF;
1559: IF (l_tqlv_rec.amount = OKC_API.G_MISS_NUM) THEN
1560: l_tqlv_rec.amount := NULL;
1555: END IF;
1556: IF (l_tqlv_rec.description = OKC_API.G_MISS_CHAR) THEN
1557: l_tqlv_rec.description := NULL;
1558: END IF;
1559: IF (l_tqlv_rec.amount = OKC_API.G_MISS_NUM) THEN
1560: l_tqlv_rec.amount := NULL;
1561: END IF;
1562: IF (l_tqlv_rec.modified_yn = OKC_API.G_MISS_CHAR) THEN
1563: l_tqlv_rec.modified_yn := NULL;
1558: END IF;
1559: IF (l_tqlv_rec.amount = OKC_API.G_MISS_NUM) THEN
1560: l_tqlv_rec.amount := NULL;
1561: END IF;
1562: IF (l_tqlv_rec.modified_yn = OKC_API.G_MISS_CHAR) THEN
1563: l_tqlv_rec.modified_yn := NULL;
1564: END IF;
1565: IF (l_tqlv_rec.defaulted_yn = OKC_API.G_MISS_CHAR) THEN
1566: l_tqlv_rec.defaulted_yn := NULL;
1561: END IF;
1562: IF (l_tqlv_rec.modified_yn = OKC_API.G_MISS_CHAR) THEN
1563: l_tqlv_rec.modified_yn := NULL;
1564: END IF;
1565: IF (l_tqlv_rec.defaulted_yn = OKC_API.G_MISS_CHAR) THEN
1566: l_tqlv_rec.defaulted_yn := NULL;
1567: END IF;
1568: IF (l_tqlv_rec.taxed_yn = OKC_API.G_MISS_CHAR) THEN
1569: l_tqlv_rec.taxed_yn := NULL;
1564: END IF;
1565: IF (l_tqlv_rec.defaulted_yn = OKC_API.G_MISS_CHAR) THEN
1566: l_tqlv_rec.defaulted_yn := NULL;
1567: END IF;
1568: IF (l_tqlv_rec.taxed_yn = OKC_API.G_MISS_CHAR) THEN
1569: l_tqlv_rec.taxed_yn := NULL;
1570: END IF;
1571: IF (l_tqlv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
1572: l_tqlv_rec.attribute_category := NULL;
1567: END IF;
1568: IF (l_tqlv_rec.taxed_yn = OKC_API.G_MISS_CHAR) THEN
1569: l_tqlv_rec.taxed_yn := NULL;
1570: END IF;
1571: IF (l_tqlv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
1572: l_tqlv_rec.attribute_category := NULL;
1573: END IF;
1574: IF (l_tqlv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
1575: l_tqlv_rec.attribute1 := NULL;
1570: END IF;
1571: IF (l_tqlv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
1572: l_tqlv_rec.attribute_category := NULL;
1573: END IF;
1574: IF (l_tqlv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
1575: l_tqlv_rec.attribute1 := NULL;
1576: END IF;
1577: IF (l_tqlv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
1578: l_tqlv_rec.attribute2 := NULL;
1573: END IF;
1574: IF (l_tqlv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
1575: l_tqlv_rec.attribute1 := NULL;
1576: END IF;
1577: IF (l_tqlv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
1578: l_tqlv_rec.attribute2 := NULL;
1579: END IF;
1580: IF (l_tqlv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
1581: l_tqlv_rec.attribute3 := NULL;
1576: END IF;
1577: IF (l_tqlv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
1578: l_tqlv_rec.attribute2 := NULL;
1579: END IF;
1580: IF (l_tqlv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
1581: l_tqlv_rec.attribute3 := NULL;
1582: END IF;
1583: IF (l_tqlv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
1584: l_tqlv_rec.attribute4 := NULL;
1579: END IF;
1580: IF (l_tqlv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
1581: l_tqlv_rec.attribute3 := NULL;
1582: END IF;
1583: IF (l_tqlv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
1584: l_tqlv_rec.attribute4 := NULL;
1585: END IF;
1586: IF (l_tqlv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
1587: l_tqlv_rec.attribute5 := NULL;
1582: END IF;
1583: IF (l_tqlv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
1584: l_tqlv_rec.attribute4 := NULL;
1585: END IF;
1586: IF (l_tqlv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
1587: l_tqlv_rec.attribute5 := NULL;
1588: END IF;
1589: IF (l_tqlv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
1590: l_tqlv_rec.attribute6 := NULL;
1585: END IF;
1586: IF (l_tqlv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
1587: l_tqlv_rec.attribute5 := NULL;
1588: END IF;
1589: IF (l_tqlv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
1590: l_tqlv_rec.attribute6 := NULL;
1591: END IF;
1592: IF (l_tqlv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
1593: l_tqlv_rec.attribute7 := NULL;
1588: END IF;
1589: IF (l_tqlv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
1590: l_tqlv_rec.attribute6 := NULL;
1591: END IF;
1592: IF (l_tqlv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
1593: l_tqlv_rec.attribute7 := NULL;
1594: END IF;
1595: IF (l_tqlv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
1596: l_tqlv_rec.attribute8 := NULL;
1591: END IF;
1592: IF (l_tqlv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
1593: l_tqlv_rec.attribute7 := NULL;
1594: END IF;
1595: IF (l_tqlv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
1596: l_tqlv_rec.attribute8 := NULL;
1597: END IF;
1598: IF (l_tqlv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
1599: l_tqlv_rec.attribute9 := NULL;
1594: END IF;
1595: IF (l_tqlv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
1596: l_tqlv_rec.attribute8 := NULL;
1597: END IF;
1598: IF (l_tqlv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
1599: l_tqlv_rec.attribute9 := NULL;
1600: END IF;
1601: IF (l_tqlv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
1602: l_tqlv_rec.attribute10 := NULL;
1597: END IF;
1598: IF (l_tqlv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
1599: l_tqlv_rec.attribute9 := NULL;
1600: END IF;
1601: IF (l_tqlv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
1602: l_tqlv_rec.attribute10 := NULL;
1603: END IF;
1604: IF (l_tqlv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
1605: l_tqlv_rec.attribute11 := NULL;
1600: END IF;
1601: IF (l_tqlv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
1602: l_tqlv_rec.attribute10 := NULL;
1603: END IF;
1604: IF (l_tqlv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
1605: l_tqlv_rec.attribute11 := NULL;
1606: END IF;
1607: IF (l_tqlv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
1608: l_tqlv_rec.attribute12 := NULL;
1603: END IF;
1604: IF (l_tqlv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
1605: l_tqlv_rec.attribute11 := NULL;
1606: END IF;
1607: IF (l_tqlv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
1608: l_tqlv_rec.attribute12 := NULL;
1609: END IF;
1610: IF (l_tqlv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
1611: l_tqlv_rec.attribute13 := NULL;
1606: END IF;
1607: IF (l_tqlv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
1608: l_tqlv_rec.attribute12 := NULL;
1609: END IF;
1610: IF (l_tqlv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
1611: l_tqlv_rec.attribute13 := NULL;
1612: END IF;
1613: IF (l_tqlv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
1614: l_tqlv_rec.attribute14 := NULL;
1609: END IF;
1610: IF (l_tqlv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
1611: l_tqlv_rec.attribute13 := NULL;
1612: END IF;
1613: IF (l_tqlv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
1614: l_tqlv_rec.attribute14 := NULL;
1615: END IF;
1616: IF (l_tqlv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
1617: l_tqlv_rec.attribute15 := NULL;
1612: END IF;
1613: IF (l_tqlv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
1614: l_tqlv_rec.attribute14 := NULL;
1615: END IF;
1616: IF (l_tqlv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
1617: l_tqlv_rec.attribute15 := NULL;
1618: END IF;
1619: IF (l_tqlv_rec.org_id = OKC_API.G_MISS_NUM) THEN
1620: l_tqlv_rec.org_id := NULL;
1615: END IF;
1616: IF (l_tqlv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
1617: l_tqlv_rec.attribute15 := NULL;
1618: END IF;
1619: IF (l_tqlv_rec.org_id = OKC_API.G_MISS_NUM) THEN
1620: l_tqlv_rec.org_id := NULL;
1621: END IF;
1622: /*
1623: IF (l_tqlv_rec.request_id = OKC_API.G_MISS_NUM) THEN
1619: IF (l_tqlv_rec.org_id = OKC_API.G_MISS_NUM) THEN
1620: l_tqlv_rec.org_id := NULL;
1621: END IF;
1622: /*
1623: IF (l_tqlv_rec.request_id = OKC_API.G_MISS_NUM) THEN
1624: l_tqlv_rec.request_id := NULL;
1625: END IF;
1626: IF (l_tqlv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
1627: l_tqlv_rec.program_application_id := NULL;
1622: /*
1623: IF (l_tqlv_rec.request_id = OKC_API.G_MISS_NUM) THEN
1624: l_tqlv_rec.request_id := NULL;
1625: END IF;
1626: IF (l_tqlv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
1627: l_tqlv_rec.program_application_id := NULL;
1628: END IF;
1629: IF (l_tqlv_rec.program_id = OKC_API.G_MISS_NUM) THEN
1630: l_tqlv_rec.program_id := NULL;
1625: END IF;
1626: IF (l_tqlv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
1627: l_tqlv_rec.program_application_id := NULL;
1628: END IF;
1629: IF (l_tqlv_rec.program_id = OKC_API.G_MISS_NUM) THEN
1630: l_tqlv_rec.program_id := NULL;
1631: END IF;
1632: IF (l_tqlv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
1633: l_tqlv_rec.program_update_date := NULL;
1628: END IF;
1629: IF (l_tqlv_rec.program_id = OKC_API.G_MISS_NUM) THEN
1630: l_tqlv_rec.program_id := NULL;
1631: END IF;
1632: IF (l_tqlv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
1633: l_tqlv_rec.program_update_date := NULL;
1634: END IF;
1635: */
1636: IF (l_tqlv_rec.created_by = OKC_API.G_MISS_NUM) THEN
1632: IF (l_tqlv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
1633: l_tqlv_rec.program_update_date := NULL;
1634: END IF;
1635: */
1636: IF (l_tqlv_rec.created_by = OKC_API.G_MISS_NUM) THEN
1637: l_tqlv_rec.created_by := NULL;
1638: END IF;
1639: IF (l_tqlv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
1640: l_tqlv_rec.creation_date := NULL;
1635: */
1636: IF (l_tqlv_rec.created_by = OKC_API.G_MISS_NUM) THEN
1637: l_tqlv_rec.created_by := NULL;
1638: END IF;
1639: IF (l_tqlv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
1640: l_tqlv_rec.creation_date := NULL;
1641: END IF;
1642: IF (l_tqlv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
1643: l_tqlv_rec.last_updated_by := NULL;
1638: END IF;
1639: IF (l_tqlv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
1640: l_tqlv_rec.creation_date := NULL;
1641: END IF;
1642: IF (l_tqlv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
1643: l_tqlv_rec.last_updated_by := NULL;
1644: END IF;
1645: IF (l_tqlv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
1646: l_tqlv_rec.last_update_date := NULL;
1641: END IF;
1642: IF (l_tqlv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
1643: l_tqlv_rec.last_updated_by := NULL;
1644: END IF;
1645: IF (l_tqlv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
1646: l_tqlv_rec.last_update_date := NULL;
1647: END IF;
1648: IF (l_tqlv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
1649: l_tqlv_rec.last_update_login := NULL;
1644: END IF;
1645: IF (l_tqlv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
1646: l_tqlv_rec.last_update_date := NULL;
1647: END IF;
1648: IF (l_tqlv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
1649: l_tqlv_rec.last_update_login := NULL;
1650: END IF;
1651: IF (l_tqlv_rec.start_date = OKC_API.G_MISS_DATE) THEN
1652: l_tqlv_rec.start_date := NULL;
1647: END IF;
1648: IF (l_tqlv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
1649: l_tqlv_rec.last_update_login := NULL;
1650: END IF;
1651: IF (l_tqlv_rec.start_date = OKC_API.G_MISS_DATE) THEN
1652: l_tqlv_rec.start_date := NULL;
1653: END IF;
1654: IF (l_tqlv_rec.period = OKC_API.G_MISS_CHAR) THEN
1655: l_tqlv_rec.period := NULL;
1650: END IF;
1651: IF (l_tqlv_rec.start_date = OKC_API.G_MISS_DATE) THEN
1652: l_tqlv_rec.start_date := NULL;
1653: END IF;
1654: IF (l_tqlv_rec.period = OKC_API.G_MISS_CHAR) THEN
1655: l_tqlv_rec.period := NULL;
1656: END IF;
1657: IF (l_tqlv_rec.number_of_periods = OKC_API.G_MISS_NUM) THEN
1658: l_tqlv_rec.number_of_periods := NULL;
1653: END IF;
1654: IF (l_tqlv_rec.period = OKC_API.G_MISS_CHAR) THEN
1655: l_tqlv_rec.period := NULL;
1656: END IF;
1657: IF (l_tqlv_rec.number_of_periods = OKC_API.G_MISS_NUM) THEN
1658: l_tqlv_rec.number_of_periods := NULL;
1659: END IF;
1660: IF (l_tqlv_rec.lock_level_step = OKC_API.G_MISS_CHAR) THEN
1661: l_tqlv_rec.lock_level_step := NULL;
1656: END IF;
1657: IF (l_tqlv_rec.number_of_periods = OKC_API.G_MISS_NUM) THEN
1658: l_tqlv_rec.number_of_periods := NULL;
1659: END IF;
1660: IF (l_tqlv_rec.lock_level_step = OKC_API.G_MISS_CHAR) THEN
1661: l_tqlv_rec.lock_level_step := NULL;
1662: END IF;
1663: IF (l_tqlv_rec.advance_or_arrears = OKC_API.G_MISS_CHAR) THEN
1664: l_tqlv_rec.advance_or_arrears := NULL;
1659: END IF;
1660: IF (l_tqlv_rec.lock_level_step = OKC_API.G_MISS_CHAR) THEN
1661: l_tqlv_rec.lock_level_step := NULL;
1662: END IF;
1663: IF (l_tqlv_rec.advance_or_arrears = OKC_API.G_MISS_CHAR) THEN
1664: l_tqlv_rec.advance_or_arrears := NULL;
1665: END IF;
1666: IF (l_tqlv_rec.yield_name = OKC_API.G_MISS_CHAR) THEN
1667: l_tqlv_rec.yield_name := NULL;
1662: END IF;
1663: IF (l_tqlv_rec.advance_or_arrears = OKC_API.G_MISS_CHAR) THEN
1664: l_tqlv_rec.advance_or_arrears := NULL;
1665: END IF;
1666: IF (l_tqlv_rec.yield_name = OKC_API.G_MISS_CHAR) THEN
1667: l_tqlv_rec.yield_name := NULL;
1668: END IF;
1669: IF (l_tqlv_rec.yield_value = OKC_API.G_MISS_NUM) THEN
1670: l_tqlv_rec.yield_value := NULL;
1665: END IF;
1666: IF (l_tqlv_rec.yield_name = OKC_API.G_MISS_CHAR) THEN
1667: l_tqlv_rec.yield_name := NULL;
1668: END IF;
1669: IF (l_tqlv_rec.yield_value = OKC_API.G_MISS_NUM) THEN
1670: l_tqlv_rec.yield_value := NULL;
1671: END IF;
1672: IF (l_tqlv_rec.implicit_interest_rate = OKC_API.G_MISS_NUM) THEN
1673: l_tqlv_rec.implicit_interest_rate := NULL;
1668: END IF;
1669: IF (l_tqlv_rec.yield_value = OKC_API.G_MISS_NUM) THEN
1670: l_tqlv_rec.yield_value := NULL;
1671: END IF;
1672: IF (l_tqlv_rec.implicit_interest_rate = OKC_API.G_MISS_NUM) THEN
1673: l_tqlv_rec.implicit_interest_rate := NULL;
1674: END IF;
1675: IF (l_tqlv_rec.asset_value = OKC_API.G_MISS_NUM) THEN
1676: l_tqlv_rec.asset_value := NULL;
1671: END IF;
1672: IF (l_tqlv_rec.implicit_interest_rate = OKC_API.G_MISS_NUM) THEN
1673: l_tqlv_rec.implicit_interest_rate := NULL;
1674: END IF;
1675: IF (l_tqlv_rec.asset_value = OKC_API.G_MISS_NUM) THEN
1676: l_tqlv_rec.asset_value := NULL;
1677: END IF;
1678: IF (l_tqlv_rec.residual_value = OKC_API.G_MISS_NUM) THEN
1679: l_tqlv_rec.residual_value := NULL;
1674: END IF;
1675: IF (l_tqlv_rec.asset_value = OKC_API.G_MISS_NUM) THEN
1676: l_tqlv_rec.asset_value := NULL;
1677: END IF;
1678: IF (l_tqlv_rec.residual_value = OKC_API.G_MISS_NUM) THEN
1679: l_tqlv_rec.residual_value := NULL;
1680: END IF;
1681: IF (l_tqlv_rec.unbilled_receivables = OKC_API.G_MISS_NUM) THEN
1682: l_tqlv_rec.unbilled_receivables := NULL;
1677: END IF;
1678: IF (l_tqlv_rec.residual_value = OKC_API.G_MISS_NUM) THEN
1679: l_tqlv_rec.residual_value := NULL;
1680: END IF;
1681: IF (l_tqlv_rec.unbilled_receivables = OKC_API.G_MISS_NUM) THEN
1682: l_tqlv_rec.unbilled_receivables := NULL;
1683: END IF;
1684: IF (l_tqlv_rec.asset_quantity = OKC_API.G_MISS_NUM) THEN
1685: l_tqlv_rec.asset_quantity := NULL;
1680: END IF;
1681: IF (l_tqlv_rec.unbilled_receivables = OKC_API.G_MISS_NUM) THEN
1682: l_tqlv_rec.unbilled_receivables := NULL;
1683: END IF;
1684: IF (l_tqlv_rec.asset_quantity = OKC_API.G_MISS_NUM) THEN
1685: l_tqlv_rec.asset_quantity := NULL;
1686: END IF;
1687: IF (l_tqlv_rec.quote_quantity = OKC_API.G_MISS_NUM) THEN
1688: l_tqlv_rec.quote_quantity := NULL;
1683: END IF;
1684: IF (l_tqlv_rec.asset_quantity = OKC_API.G_MISS_NUM) THEN
1685: l_tqlv_rec.asset_quantity := NULL;
1686: END IF;
1687: IF (l_tqlv_rec.quote_quantity = OKC_API.G_MISS_NUM) THEN
1688: l_tqlv_rec.quote_quantity := NULL;
1689: END IF;
1690: IF (l_tqlv_rec.split_kle_id = OKC_API.G_MISS_NUM) THEN
1691: l_tqlv_rec.split_kle_id := NULL;
1686: END IF;
1687: IF (l_tqlv_rec.quote_quantity = OKC_API.G_MISS_NUM) THEN
1688: l_tqlv_rec.quote_quantity := NULL;
1689: END IF;
1690: IF (l_tqlv_rec.split_kle_id = OKC_API.G_MISS_NUM) THEN
1691: l_tqlv_rec.split_kle_id := NULL;
1692: END IF;
1693: -- RMUNJULU 2757312
1694: IF (l_tqlv_rec.split_kle_name = OKC_API.G_MISS_CHAR) THEN
1690: IF (l_tqlv_rec.split_kle_id = OKC_API.G_MISS_NUM) THEN
1691: l_tqlv_rec.split_kle_id := NULL;
1692: END IF;
1693: -- RMUNJULU 2757312
1694: IF (l_tqlv_rec.split_kle_name = OKC_API.G_MISS_CHAR) THEN
1695: l_tqlv_rec.split_kle_name := NULL;
1696: END IF;
1697: -- BAKUCHIB 2667636 Start
1698: IF (l_tqlv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
1694: IF (l_tqlv_rec.split_kle_name = OKC_API.G_MISS_CHAR) THEN
1695: l_tqlv_rec.split_kle_name := NULL;
1696: END IF;
1697: -- BAKUCHIB 2667636 Start
1698: IF (l_tqlv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
1699: l_tqlv_rec.currency_code := NULL;
1700: END IF;
1701: IF (l_tqlv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR) THEN
1702: l_tqlv_rec.currency_conversion_code := NULL;
1697: -- BAKUCHIB 2667636 Start
1698: IF (l_tqlv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
1699: l_tqlv_rec.currency_code := NULL;
1700: END IF;
1701: IF (l_tqlv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR) THEN
1702: l_tqlv_rec.currency_conversion_code := NULL;
1703: END IF;
1704: IF (l_tqlv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR) THEN
1705: l_tqlv_rec.currency_conversion_type := NULL;
1700: END IF;
1701: IF (l_tqlv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR) THEN
1702: l_tqlv_rec.currency_conversion_code := NULL;
1703: END IF;
1704: IF (l_tqlv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR) THEN
1705: l_tqlv_rec.currency_conversion_type := NULL;
1706: END IF;
1707: IF (l_tqlv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM) THEN
1708: l_tqlv_rec.currency_conversion_rate := NULL;
1703: END IF;
1704: IF (l_tqlv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR) THEN
1705: l_tqlv_rec.currency_conversion_type := NULL;
1706: END IF;
1707: IF (l_tqlv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM) THEN
1708: l_tqlv_rec.currency_conversion_rate := NULL;
1709: END IF;
1710: IF (l_tqlv_rec.currency_conversion_date = OKC_API.G_MISS_DATE) THEN
1711: l_tqlv_rec.currency_conversion_date := NULL;
1706: END IF;
1707: IF (l_tqlv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM) THEN
1708: l_tqlv_rec.currency_conversion_rate := NULL;
1709: END IF;
1710: IF (l_tqlv_rec.currency_conversion_date = OKC_API.G_MISS_DATE) THEN
1711: l_tqlv_rec.currency_conversion_date := NULL;
1712: END IF;
1713: -- BAKUCHIB 2667636 End
1714: -- PAGARG Bug 4161133 Start
1743: -- End of comments
1744: FUNCTION Validate_Attributes (
1745: p_tqlv_rec IN tqlv_rec_type
1746: ) RETURN VARCHAR2 IS
1747: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1748: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1749: BEGIN
1750: validate_id(x_return_status => l_return_status,
1751: p_tqlv_rec => p_tqlv_rec);
1744: FUNCTION Validate_Attributes (
1745: p_tqlv_rec IN tqlv_rec_type
1746: ) RETURN VARCHAR2 IS
1747: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1748: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1749: BEGIN
1750: validate_id(x_return_status => l_return_status,
1751: p_tqlv_rec => p_tqlv_rec);
1752:
1749: BEGIN
1750: validate_id(x_return_status => l_return_status,
1751: p_tqlv_rec => p_tqlv_rec);
1752:
1753: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1754: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1755: x_return_status := l_return_status;
1756: end if;
1757: end if;
1750: validate_id(x_return_status => l_return_status,
1751: p_tqlv_rec => p_tqlv_rec);
1752:
1753: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1754: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1755: x_return_status := l_return_status;
1756: end if;
1757: end if;
1758:
1758:
1759: validate_sfwt_flag(x_return_status => l_return_status,
1760: p_tqlv_rec => p_tqlv_rec);
1761:
1762: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1763: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1764: x_return_status := l_return_status;
1765: end if;
1766: end if;
1759: validate_sfwt_flag(x_return_status => l_return_status,
1760: p_tqlv_rec => p_tqlv_rec);
1761:
1762: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1763: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1764: x_return_status := l_return_status;
1765: end if;
1766: end if;
1767:
1767:
1768: validate_object_version_number(x_return_status => l_return_status,
1769: p_tqlv_rec => p_tqlv_rec);
1770:
1771: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1772: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1773: x_return_status := l_return_status;
1774: end if;
1775: end if;
1768: validate_object_version_number(x_return_status => l_return_status,
1769: p_tqlv_rec => p_tqlv_rec);
1770:
1771: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1772: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1773: x_return_status := l_return_status;
1774: end if;
1775: end if;
1776:
1776:
1777: validate_qte_id(x_return_status => l_return_status,
1778: p_tqlv_rec => p_tqlv_rec);
1779:
1780: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1781: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1782: x_return_status := l_return_status;
1783: end if;
1784: end if;
1777: validate_qte_id(x_return_status => l_return_status,
1778: p_tqlv_rec => p_tqlv_rec);
1779:
1780: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1781: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1782: x_return_status := l_return_status;
1783: end if;
1784: end if;
1785:
1785:
1786: validate_line_number(x_return_status => l_return_status,
1787: p_tqlv_rec => p_tqlv_rec);
1788:
1789: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1790: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1791: x_return_status := l_return_status;
1792: end if;
1793: end if;
1786: validate_line_number(x_return_status => l_return_status,
1787: p_tqlv_rec => p_tqlv_rec);
1788:
1789: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1790: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1791: x_return_status := l_return_status;
1792: end if;
1793: end if;
1794:
1794:
1795: validate_fk_qlt_code(x_return_status => l_return_status,
1796: p_tqlv_rec => p_tqlv_rec);
1797:
1798: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1799: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1800: x_return_status := l_return_status;
1801: end if;
1802: end if;
1795: validate_fk_qlt_code(x_return_status => l_return_status,
1796: p_tqlv_rec => p_tqlv_rec);
1797:
1798: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1799: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1800: x_return_status := l_return_status;
1801: end if;
1802: end if;
1803:
1803:
1804: validate_fk_sty_id(x_return_status => l_return_status,
1805: p_tqlv_rec => p_tqlv_rec);
1806:
1807: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1808: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1809: x_return_status := l_return_status;
1810: end if;
1811: end if;
1804: validate_fk_sty_id(x_return_status => l_return_status,
1805: p_tqlv_rec => p_tqlv_rec);
1806:
1807: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1808: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1809: x_return_status := l_return_status;
1810: end if;
1811: end if;
1812:
1811: end if;
1812:
1813: validate_modified_yn_domain (x_return_status => l_return_status,
1814: p_tqlv_rec => p_tqlv_rec);
1815: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1816: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1817: x_return_status := l_return_status;
1818: end if;
1819: end if;
1812:
1813: validate_modified_yn_domain (x_return_status => l_return_status,
1814: p_tqlv_rec => p_tqlv_rec);
1815: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1816: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1817: x_return_status := l_return_status;
1818: end if;
1819: end if;
1820:
1819: end if;
1820:
1821: validate_defaulted_yn_domain (x_return_status => l_return_status,
1822: p_tqlv_rec => p_tqlv_rec);
1823: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1824: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1825: x_return_status := l_return_status;
1826: end if;
1827: end if;
1820:
1821: validate_defaulted_yn_domain (x_return_status => l_return_status,
1822: p_tqlv_rec => p_tqlv_rec);
1823: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1824: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1825: x_return_status := l_return_status;
1826: end if;
1827: end if;
1828:
1827: end if;
1828:
1829: validate_taxed_yn_domain (x_return_status => l_return_status,
1830: p_tqlv_rec => p_tqlv_rec);
1831: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1832: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1833: x_return_status := l_return_status;
1834: end if;
1835: end if;
1828:
1829: validate_taxed_yn_domain (x_return_status => l_return_status,
1830: p_tqlv_rec => p_tqlv_rec);
1831: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1832: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1833: x_return_status := l_return_status;
1834: end if;
1835: end if;
1836:
1836:
1837: validate_org_id(x_return_status => l_return_status,
1838: p_tqlv_rec => p_tqlv_rec);
1839:
1840: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1841: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1842: x_return_status := l_return_status;
1843: end if;
1844: end if;
1837: validate_org_id(x_return_status => l_return_status,
1838: p_tqlv_rec => p_tqlv_rec);
1839:
1840: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1841: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1842: x_return_status := l_return_status;
1843: end if;
1844: end if;
1845: Validate_split_kle_id(x_return_status => l_return_status,
1843: end if;
1844: end if;
1845: Validate_split_kle_id(x_return_status => l_return_status,
1846: p_tqlv_rec => p_tqlv_rec);
1847: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1848: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1849: x_return_status := l_return_status;
1850: end if;
1851: end if;
1844: end if;
1845: Validate_split_kle_id(x_return_status => l_return_status,
1846: p_tqlv_rec => p_tqlv_rec);
1847: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1848: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1849: x_return_status := l_return_status;
1850: end if;
1851: end if;
1852:
1853: -- BAKUCHIB 2667636 Start
1854: validate_currency_code(p_tqlv_rec => p_tqlv_rec,
1855: x_return_status => l_return_status);
1856: -- store the highest degree of error
1857: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1858: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1859: x_return_status := l_return_status;
1860: END IF;
1861: END IF;
1854: validate_currency_code(p_tqlv_rec => p_tqlv_rec,
1855: x_return_status => l_return_status);
1856: -- store the highest degree of error
1857: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1858: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1859: x_return_status := l_return_status;
1860: END IF;
1861: END IF;
1862: validate_currency_con_code(p_tqlv_rec => p_tqlv_rec,
1861: END IF;
1862: validate_currency_con_code(p_tqlv_rec => p_tqlv_rec,
1863: x_return_status => l_return_status);
1864: -- store the highest degree of error
1865: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1866: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1867: x_return_status := l_return_status;
1868: END IF;
1869: END IF;
1862: validate_currency_con_code(p_tqlv_rec => p_tqlv_rec,
1863: x_return_status => l_return_status);
1864: -- store the highest degree of error
1865: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1866: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1867: x_return_status := l_return_status;
1868: END IF;
1869: END IF;
1870: validate_currency_con_type(p_tqlv_rec => p_tqlv_rec,
1869: END IF;
1870: validate_currency_con_type(p_tqlv_rec => p_tqlv_rec,
1871: x_return_status => l_return_status);
1872: -- store the highest degree of error
1873: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1874: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1875: x_return_status := l_return_status;
1876: END IF;
1877: END IF;
1870: validate_currency_con_type(p_tqlv_rec => p_tqlv_rec,
1871: x_return_status => l_return_status);
1872: -- store the highest degree of error
1873: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1874: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1875: x_return_status := l_return_status;
1876: END IF;
1877: END IF;
1878: -- BAKUCHIB 2667636 End
1881: validate_amount(p_tqlv_rec => p_tqlv_rec,
1882: x_return_status => l_return_status);
1883:
1884: -- store the highest degree of error
1885: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1886: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1887: x_return_status := l_return_status;
1888: END IF;
1889: END IF;
1882: x_return_status => l_return_status);
1883:
1884: -- store the highest degree of error
1885: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1886: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1887: x_return_status := l_return_status;
1888: END IF;
1889: END IF;
1890:
1892: validate_try_id_fk(p_tqlv_rec => p_tqlv_rec,
1893: x_return_status => l_return_status);
1894:
1895: -- store the highest degree of error
1896: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1897: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1898: x_return_status := l_return_status;
1899: END IF;
1900: END IF;
1893: x_return_status => l_return_status);
1894:
1895: -- store the highest degree of error
1896: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1897: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1898: x_return_status := l_return_status;
1899: END IF;
1900: END IF;
1901:
1903:
1904: EXCEPTION
1905: WHEN OTHERS THEN
1906: -- store SQL error message on message stack for caller
1907: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1908: p_msg_name => g_unexpected_error,
1909: p_token1 => g_sqlcode_token,
1910: p_token1_value => sqlcode,
1911: p_token2 => g_sqlerrm_token,
1911: p_token2 => g_sqlerrm_token,
1912: p_token2_value => sqlerrm);
1913:
1914: --notify caller of an UNEXPECTED error
1915: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1916:
1917: --return status to caller
1918: RETURN x_return_status;
1919: END Validate_Attributes;
1937: -- End of comments
1938: FUNCTION Validate_Record (
1939: p_tqlv_rec IN tqlv_rec_type
1940: ) RETURN VARCHAR2 IS
1941: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1942: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1943: BEGIN
1944: -- BAKUCHIB 2667636 Start
1945: -- Validate Currency conversion Code,type,rate and Date
1938: FUNCTION Validate_Record (
1939: p_tqlv_rec IN tqlv_rec_type
1940: ) RETURN VARCHAR2 IS
1941: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1942: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1943: BEGIN
1944: -- BAKUCHIB 2667636 Start
1945: -- Validate Currency conversion Code,type,rate and Date
1946:
1946:
1947: validate_currency_record(p_tqlv_rec => p_tqlv_rec,
1948: x_return_status => l_return_status);
1949: -- store the highest degree of error
1950: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1951: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1952: x_return_status := l_return_status;
1953: END IF;
1954: END IF;
1947: validate_currency_record(p_tqlv_rec => p_tqlv_rec,
1948: x_return_status => l_return_status);
1949: -- store the highest degree of error
1950: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1951: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1952: x_return_status := l_return_status;
1953: END IF;
1954: END IF;
1955: -- BAKUCHIB 2667636 End
2171: p_tqlv_rec IN tqlv_rec_type) IS
2172:
2173: l_api_version CONSTANT NUMBER := 1;
2174: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
2175: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2176: l_tqlv_rec tqlv_rec_type := p_tqlv_rec;
2177: l_tql_rec tql_rec_type;
2178: l_okl_txl_quote_lines_tl_rec OklTxlQuoteLinesTlRecType;
2179: BEGIN
2176: l_tqlv_rec tqlv_rec_type := p_tqlv_rec;
2177: l_tql_rec tql_rec_type;
2178: l_okl_txl_quote_lines_tl_rec OklTxlQuoteLinesTlRecType;
2179: BEGIN
2180: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2181: G_PKG_NAME,
2182: p_init_msg_list,
2183: l_api_version,
2184: p_api_version,
2183: l_api_version,
2184: p_api_version,
2185: '_PVT',
2186: x_return_status);
2187: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2188: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2189: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2190: RAISE OKC_API.G_EXCEPTION_ERROR;
2191: END IF;
2184: p_api_version,
2185: '_PVT',
2186: x_return_status);
2187: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2188: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2189: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2190: RAISE OKC_API.G_EXCEPTION_ERROR;
2191: END IF;
2192: --- Validate all non-missing attributes (Item Level Validation)
2185: '_PVT',
2186: x_return_status);
2187: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2188: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2189: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2190: RAISE OKC_API.G_EXCEPTION_ERROR;
2191: END IF;
2192: --- Validate all non-missing attributes (Item Level Validation)
2193: l_return_status := Validate_Attributes(l_tqlv_rec);
2186: x_return_status);
2187: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2188: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2189: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2190: RAISE OKC_API.G_EXCEPTION_ERROR;
2191: END IF;
2192: --- Validate all non-missing attributes (Item Level Validation)
2193: l_return_status := Validate_Attributes(l_tqlv_rec);
2194: --- If any errors happen abort API
2191: END IF;
2192: --- Validate all non-missing attributes (Item Level Validation)
2193: l_return_status := Validate_Attributes(l_tqlv_rec);
2194: --- If any errors happen abort API
2195: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2196: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2198: RAISE OKC_API.G_EXCEPTION_ERROR;
2199: END IF;
2192: --- Validate all non-missing attributes (Item Level Validation)
2193: l_return_status := Validate_Attributes(l_tqlv_rec);
2194: --- If any errors happen abort API
2195: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2196: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2198: RAISE OKC_API.G_EXCEPTION_ERROR;
2199: END IF;
2200: l_return_status := Validate_Record(l_tqlv_rec);
2193: l_return_status := Validate_Attributes(l_tqlv_rec);
2194: --- If any errors happen abort API
2195: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2196: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2198: RAISE OKC_API.G_EXCEPTION_ERROR;
2199: END IF;
2200: l_return_status := Validate_Record(l_tqlv_rec);
2201: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2194: --- If any errors happen abort API
2195: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2196: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2198: RAISE OKC_API.G_EXCEPTION_ERROR;
2199: END IF;
2200: l_return_status := Validate_Record(l_tqlv_rec);
2201: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2202: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2198: RAISE OKC_API.G_EXCEPTION_ERROR;
2199: END IF;
2200: l_return_status := Validate_Record(l_tqlv_rec);
2201: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2202: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2203: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2204: RAISE OKC_API.G_EXCEPTION_ERROR;
2205: END IF;
2198: RAISE OKC_API.G_EXCEPTION_ERROR;
2199: END IF;
2200: l_return_status := Validate_Record(l_tqlv_rec);
2201: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2202: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2203: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2204: RAISE OKC_API.G_EXCEPTION_ERROR;
2205: END IF;
2206: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2199: END IF;
2200: l_return_status := Validate_Record(l_tqlv_rec);
2201: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2202: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2203: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2204: RAISE OKC_API.G_EXCEPTION_ERROR;
2205: END IF;
2206: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2207: EXCEPTION
2200: l_return_status := Validate_Record(l_tqlv_rec);
2201: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2202: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2203: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2204: RAISE OKC_API.G_EXCEPTION_ERROR;
2205: END IF;
2206: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2207: EXCEPTION
2208: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2202: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2203: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2204: RAISE OKC_API.G_EXCEPTION_ERROR;
2205: END IF;
2206: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2207: EXCEPTION
2208: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2209: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2210: (
2204: RAISE OKC_API.G_EXCEPTION_ERROR;
2205: END IF;
2206: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2207: EXCEPTION
2208: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2209: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2210: (
2211: l_api_name,
2212: G_PKG_NAME,
2205: END IF;
2206: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2207: EXCEPTION
2208: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2209: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2210: (
2211: l_api_name,
2212: G_PKG_NAME,
2213: 'OKC_API.G_RET_STS_ERROR',
2209: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2210: (
2211: l_api_name,
2212: G_PKG_NAME,
2213: 'OKC_API.G_RET_STS_ERROR',
2214: x_msg_count,
2215: x_msg_data,
2216: '_PVT'
2217: );
2214: x_msg_count,
2215: x_msg_data,
2216: '_PVT'
2217: );
2218: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2219: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2220: (
2221: l_api_name,
2222: G_PKG_NAME,
2215: x_msg_data,
2216: '_PVT'
2217: );
2218: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2219: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2220: (
2221: l_api_name,
2222: G_PKG_NAME,
2223: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2219: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2220: (
2221: l_api_name,
2222: G_PKG_NAME,
2223: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2224: x_msg_count,
2225: x_msg_data,
2226: '_PVT'
2227: );
2225: x_msg_data,
2226: '_PVT'
2227: );
2228: WHEN OTHERS THEN
2229: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2230: (
2231: l_api_name,
2232: G_PKG_NAME,
2233: 'OTHERS',
2248: p_tqlv_tbl IN tqlv_tbl_type) IS
2249:
2250: l_api_version CONSTANT NUMBER := 1;
2251: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
2252: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2253: i NUMBER := 0;
2254: -- Begin Post-Generation Change
2255: -- overall error status
2256: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2256: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2257: -- End Post-Generation Change
2258:
2259: BEGIN
2260: OKC_API.init_msg_list(p_init_msg_list);
2261: -- Make sure PL/SQL table has records in it before passing
2262: IF (p_tqlv_tbl.COUNT > 0) THEN
2263: i := p_tqlv_tbl.FIRST;
2264: LOOP
2263: i := p_tqlv_tbl.FIRST;
2264: LOOP
2265: validate_row (
2266: p_api_version => p_api_version,
2267: p_init_msg_list => OKC_API.G_FALSE,
2268: x_return_status => x_return_status,
2269: x_msg_count => x_msg_count,
2270: x_msg_data => x_msg_data,
2271: p_tqlv_rec => p_tqlv_tbl(i));
2285: x_return_status := l_overall_status;
2286: -- End Post-Generation Change
2287: END IF;
2288: EXCEPTION
2289: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2290: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2291: (
2292: l_api_name,
2293: G_PKG_NAME,
2286: -- End Post-Generation Change
2287: END IF;
2288: EXCEPTION
2289: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2290: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2291: (
2292: l_api_name,
2293: G_PKG_NAME,
2294: 'OKC_API.G_RET_STS_ERROR',
2290: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2291: (
2292: l_api_name,
2293: G_PKG_NAME,
2294: 'OKC_API.G_RET_STS_ERROR',
2295: x_msg_count,
2296: x_msg_data,
2297: '_PVT'
2298: );
2295: x_msg_count,
2296: x_msg_data,
2297: '_PVT'
2298: );
2299: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2300: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2301: (
2302: l_api_name,
2303: G_PKG_NAME,
2296: x_msg_data,
2297: '_PVT'
2298: );
2299: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2300: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2301: (
2302: l_api_name,
2303: G_PKG_NAME,
2304: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2300: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2301: (
2302: l_api_name,
2303: G_PKG_NAME,
2304: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2305: x_msg_count,
2306: x_msg_data,
2307: '_PVT'
2308: );
2306: x_msg_data,
2307: '_PVT'
2308: );
2309: WHEN OTHERS THEN
2310: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2311: (
2312: l_api_name,
2313: G_PKG_NAME,
2314: 'OTHERS',
2345: x_tql_rec OUT NOCOPY tql_rec_type) IS
2346:
2347: l_api_version CONSTANT NUMBER := 1;
2348: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
2349: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2350: l_tql_rec tql_rec_type := p_tql_rec;
2351: l_def_tql_rec tql_rec_type;
2352: ----------------------------------------------
2353: -- Set_Attributes for:OKL_TXL_QUOTE_LINES_B --
2355: FUNCTION Set_Attributes (
2356: p_tql_rec IN tql_rec_type,
2357: x_tql_rec OUT NOCOPY tql_rec_type
2358: ) RETURN VARCHAR2 IS
2359: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2360: BEGIN
2361: x_tql_rec := p_tql_rec;
2362: x_tql_rec.defaulted_yn := upper(x_tql_rec.defaulted_yn);
2363: x_tql_rec.taxed_yn := upper(x_tql_rec.taxed_yn);
2364: x_tql_rec.modified_yn := upper(x_tql_rec.modified_yn);
2365: RETURN(l_return_status);
2366: END Set_Attributes;
2367: BEGIN
2368: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2369: p_init_msg_list,
2370: '_PVT',
2371: x_return_status);
2372: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2368: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2369: p_init_msg_list,
2370: '_PVT',
2371: x_return_status);
2372: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2373: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2374: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2375: RAISE OKC_API.G_EXCEPTION_ERROR;
2376: END IF;
2369: p_init_msg_list,
2370: '_PVT',
2371: x_return_status);
2372: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2373: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2374: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2375: RAISE OKC_API.G_EXCEPTION_ERROR;
2376: END IF;
2377: --- Setting item attributes
2370: '_PVT',
2371: x_return_status);
2372: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2373: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2374: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2375: RAISE OKC_API.G_EXCEPTION_ERROR;
2376: END IF;
2377: --- Setting item attributes
2378: l_return_status := Set_Attributes(
2371: x_return_status);
2372: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2373: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2374: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2375: RAISE OKC_API.G_EXCEPTION_ERROR;
2376: END IF;
2377: --- Setting item attributes
2378: l_return_status := Set_Attributes(
2379: p_tql_rec, -- IN
2378: l_return_status := Set_Attributes(
2379: p_tql_rec, -- IN
2380: l_tql_rec); -- OUT
2381: --- If any errors happen abort API
2382: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2383: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2384: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2385: RAISE OKC_API.G_EXCEPTION_ERROR;
2386: END IF;
2379: p_tql_rec, -- IN
2380: l_tql_rec); -- OUT
2381: --- If any errors happen abort API
2382: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2383: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2384: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2385: RAISE OKC_API.G_EXCEPTION_ERROR;
2386: END IF;
2387: INSERT INTO OKL_TXL_QUOTE_LINES_B(
2380: l_tql_rec); -- OUT
2381: --- If any errors happen abort API
2382: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2383: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2384: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2385: RAISE OKC_API.G_EXCEPTION_ERROR;
2386: END IF;
2387: INSERT INTO OKL_TXL_QUOTE_LINES_B(
2388: id,
2381: --- If any errors happen abort API
2382: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2383: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2384: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2385: RAISE OKC_API.G_EXCEPTION_ERROR;
2386: END IF;
2387: INSERT INTO OKL_TXL_QUOTE_LINES_B(
2388: id,
2389: sty_id,
2510: -- rmunjulu Sales_Tax_Enhancement
2511: l_tql_rec.try_id);
2512: -- Set OUT values
2513: x_tql_rec := l_tql_rec;
2514: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2515: EXCEPTION
2516: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2517: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2518: (
2512: -- Set OUT values
2513: x_tql_rec := l_tql_rec;
2514: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2515: EXCEPTION
2516: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2517: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2518: (
2519: l_api_name,
2520: G_PKG_NAME,
2513: x_tql_rec := l_tql_rec;
2514: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2515: EXCEPTION
2516: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2517: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2518: (
2519: l_api_name,
2520: G_PKG_NAME,
2521: 'OKC_API.G_RET_STS_ERROR',
2517: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2518: (
2519: l_api_name,
2520: G_PKG_NAME,
2521: 'OKC_API.G_RET_STS_ERROR',
2522: x_msg_count,
2523: x_msg_data,
2524: '_PVT'
2525: );
2522: x_msg_count,
2523: x_msg_data,
2524: '_PVT'
2525: );
2526: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2527: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2528: (
2529: l_api_name,
2530: G_PKG_NAME,
2523: x_msg_data,
2524: '_PVT'
2525: );
2526: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2527: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2528: (
2529: l_api_name,
2530: G_PKG_NAME,
2531: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2527: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2528: (
2529: l_api_name,
2530: G_PKG_NAME,
2531: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2532: x_msg_count,
2533: x_msg_data,
2534: '_PVT'
2535: );
2533: x_msg_data,
2534: '_PVT'
2535: );
2536: WHEN OTHERS THEN
2537: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2538: (
2539: l_api_name,
2540: G_PKG_NAME,
2541: 'OTHERS',
2556: x_okl_txl_quote_lines_tl_rec OUT NOCOPY OklTxlQuoteLinesTlRecType) IS
2557:
2558: l_api_version CONSTANT NUMBER := 1;
2559: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
2560: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2561: l_okl_txl_quote_lines_tl_rec OklTxlQuoteLinesTlRecType := p_okl_txl_quote_lines_tl_rec;
2562: ldefokltxlquotelinestlrec OklTxlQuoteLinesTlRecType;
2563: CURSOR get_languages IS
2564: SELECT *
2570: FUNCTION Set_Attributes (
2571: p_okl_txl_quote_lines_tl_rec IN OklTxlQuoteLinesTlRecType,
2572: x_okl_txl_quote_lines_tl_rec OUT NOCOPY OklTxlQuoteLinesTlRecType
2573: ) RETURN VARCHAR2 IS
2574: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2575: BEGIN
2576: x_okl_txl_quote_lines_tl_rec := p_okl_txl_quote_lines_tl_rec;
2577: x_okl_txl_quote_lines_tl_rec.LANGUAGE := USERENV('LANG');
2578: x_okl_txl_quote_lines_tl_rec.SOURCE_LANG := USERENV('LANG');
2578: x_okl_txl_quote_lines_tl_rec.SOURCE_LANG := USERENV('LANG');
2579: RETURN(l_return_status);
2580: END Set_Attributes;
2581: BEGIN
2582: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2583: p_init_msg_list,
2584: '_PVT',
2585: x_return_status);
2586: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2582: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2583: p_init_msg_list,
2584: '_PVT',
2585: x_return_status);
2586: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2588: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2589: RAISE OKC_API.G_EXCEPTION_ERROR;
2590: END IF;
2583: p_init_msg_list,
2584: '_PVT',
2585: x_return_status);
2586: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2588: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2589: RAISE OKC_API.G_EXCEPTION_ERROR;
2590: END IF;
2591: --- Setting item attributes
2584: '_PVT',
2585: x_return_status);
2586: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2588: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2589: RAISE OKC_API.G_EXCEPTION_ERROR;
2590: END IF;
2591: --- Setting item attributes
2592: l_return_status := Set_Attributes(
2585: x_return_status);
2586: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2588: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2589: RAISE OKC_API.G_EXCEPTION_ERROR;
2590: END IF;
2591: --- Setting item attributes
2592: l_return_status := Set_Attributes(
2593: p_okl_txl_quote_lines_tl_rec, -- IN
2592: l_return_status := Set_Attributes(
2593: p_okl_txl_quote_lines_tl_rec, -- IN
2594: l_okl_txl_quote_lines_tl_rec); -- OUT
2595: --- If any errors happen abort API
2596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2599: RAISE OKC_API.G_EXCEPTION_ERROR;
2600: END IF;
2593: p_okl_txl_quote_lines_tl_rec, -- IN
2594: l_okl_txl_quote_lines_tl_rec); -- OUT
2595: --- If any errors happen abort API
2596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2599: RAISE OKC_API.G_EXCEPTION_ERROR;
2600: END IF;
2601: FOR l_lang_rec IN get_languages LOOP
2594: l_okl_txl_quote_lines_tl_rec); -- OUT
2595: --- If any errors happen abort API
2596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2599: RAISE OKC_API.G_EXCEPTION_ERROR;
2600: END IF;
2601: FOR l_lang_rec IN get_languages LOOP
2602: l_okl_txl_quote_lines_tl_rec.language := l_lang_rec.language_code;
2595: --- If any errors happen abort API
2596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2599: RAISE OKC_API.G_EXCEPTION_ERROR;
2600: END IF;
2601: FOR l_lang_rec IN get_languages LOOP
2602: l_okl_txl_quote_lines_tl_rec.language := l_lang_rec.language_code;
2603: INSERT INTO OKL_TXL_QUOTE_LINES_TL(
2624: l_okl_txl_quote_lines_tl_rec.last_update_login);
2625: END LOOP;
2626: -- Set OUT values
2627: x_okl_txl_quote_lines_tl_rec := l_okl_txl_quote_lines_tl_rec;
2628: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2629: EXCEPTION
2630: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2631: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2632: (
2626: -- Set OUT values
2627: x_okl_txl_quote_lines_tl_rec := l_okl_txl_quote_lines_tl_rec;
2628: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2629: EXCEPTION
2630: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2631: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2632: (
2633: l_api_name,
2634: G_PKG_NAME,
2627: x_okl_txl_quote_lines_tl_rec := l_okl_txl_quote_lines_tl_rec;
2628: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2629: EXCEPTION
2630: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2631: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2632: (
2633: l_api_name,
2634: G_PKG_NAME,
2635: 'OKC_API.G_RET_STS_ERROR',
2631: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2632: (
2633: l_api_name,
2634: G_PKG_NAME,
2635: 'OKC_API.G_RET_STS_ERROR',
2636: x_msg_count,
2637: x_msg_data,
2638: '_PVT'
2639: );
2636: x_msg_count,
2637: x_msg_data,
2638: '_PVT'
2639: );
2640: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2641: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2642: (
2643: l_api_name,
2644: G_PKG_NAME,
2637: x_msg_data,
2638: '_PVT'
2639: );
2640: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2641: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2642: (
2643: l_api_name,
2644: G_PKG_NAME,
2645: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2641: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2642: (
2643: l_api_name,
2644: G_PKG_NAME,
2645: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2646: x_msg_count,
2647: x_msg_data,
2648: '_PVT'
2649: );
2647: x_msg_data,
2648: '_PVT'
2649: );
2650: WHEN OTHERS THEN
2651: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2652: (
2653: l_api_name,
2654: G_PKG_NAME,
2655: 'OTHERS',
2685: x_tqlv_rec OUT NOCOPY tqlv_rec_type) IS
2686:
2687: l_api_version CONSTANT NUMBER := 1;
2688: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
2689: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2690: l_tqlv_rec tqlv_rec_type;
2691: l_def_tqlv_rec tqlv_rec_type;
2692: l_tql_rec tql_rec_type;
2693: lx_tql_rec tql_rec_type;
2719: FUNCTION Set_Attributes (
2720: p_tqlv_rec IN tqlv_rec_type,
2721: x_tqlv_rec OUT NOCOPY tqlv_rec_type
2722: ) RETURN VARCHAR2 IS
2723: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2724: BEGIN
2725: x_tqlv_rec := p_tqlv_rec;
2726: x_tqlv_rec.OBJECT_VERSION_NUMBER := 1;
2727: x_tqlv_rec.SFWT_FLAG := 'N';
2727: x_tqlv_rec.SFWT_FLAG := 'N';
2728:
2729: -- Default the YN columns if value not passed
2730: IF p_tqlv_rec.defaulted_yn IS NULL
2731: OR p_tqlv_rec.defaulted_yn = OKC_API.G_MISS_CHAR THEN
2732: x_tqlv_rec.defaulted_yn := 'N';
2733: END IF;
2734:
2735: -- Default the ORG ID if a value is not passed
2733: END IF;
2734:
2735: -- Default the ORG ID if a value is not passed
2736: IF p_tqlv_rec.org_id IS NULL
2737: OR p_tqlv_rec.org_id = OKC_API.G_MISS_NUM THEN
2738: x_tqlv_rec.org_id := MO_GLOBAL.GET_CURRENT_ORG_ID();
2739: END IF;
2740: -- BAKUCHIB 2667636 Start
2741: x_tqlv_rec.currency_conversion_code := OKL_AM_UTIL_PVT.get_functional_currency;
2740: -- BAKUCHIB 2667636 Start
2741: x_tqlv_rec.currency_conversion_code := OKL_AM_UTIL_PVT.get_functional_currency;
2742:
2743: IF p_tqlv_rec.currency_code IS NULL
2744: OR p_tqlv_rec.currency_code = OKC_API.G_MISS_CHAR THEN
2745: x_tqlv_rec.currency_code := x_tqlv_rec.currency_conversion_code;
2746: END IF;
2747: -- BAKUCHIB 2667636 End
2748:
2749:
2750: RETURN(l_return_status);
2751: END Set_Attributes;
2752: BEGIN
2753: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2754: G_PKG_NAME,
2755: p_init_msg_list,
2756: l_api_version,
2757: p_api_version,
2756: l_api_version,
2757: p_api_version,
2758: '_PVT',
2759: x_return_status);
2760: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2761: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2762: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_ERROR;
2764: END IF;
2757: p_api_version,
2758: '_PVT',
2759: x_return_status);
2760: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2761: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2762: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_ERROR;
2764: END IF;
2765: l_tqlv_rec := null_out_defaults(p_tqlv_rec);
2758: '_PVT',
2759: x_return_status);
2760: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2761: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2762: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_ERROR;
2764: END IF;
2765: l_tqlv_rec := null_out_defaults(p_tqlv_rec);
2766: -- Set primary key value
2759: x_return_status);
2760: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2761: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2762: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_ERROR;
2764: END IF;
2765: l_tqlv_rec := null_out_defaults(p_tqlv_rec);
2766: -- Set primary key value
2767: l_tqlv_rec.ID := get_seq_id;
2769: l_return_status := Set_Attributes(
2770: l_tqlv_rec, -- IN
2771: l_def_tqlv_rec); -- OUT
2772: --- If any errors happen abort API
2773: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2774: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2775: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2776: RAISE OKC_API.G_EXCEPTION_ERROR;
2777: END IF;
2770: l_tqlv_rec, -- IN
2771: l_def_tqlv_rec); -- OUT
2772: --- If any errors happen abort API
2773: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2774: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2775: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2776: RAISE OKC_API.G_EXCEPTION_ERROR;
2777: END IF;
2778: l_def_tqlv_rec := fill_who_columns(l_def_tqlv_rec);
2771: l_def_tqlv_rec); -- OUT
2772: --- If any errors happen abort API
2773: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2774: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2775: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2776: RAISE OKC_API.G_EXCEPTION_ERROR;
2777: END IF;
2778: l_def_tqlv_rec := fill_who_columns(l_def_tqlv_rec);
2779: --- Validate all non-missing attributes (Item Level Validation)
2772: --- If any errors happen abort API
2773: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2774: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2775: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2776: RAISE OKC_API.G_EXCEPTION_ERROR;
2777: END IF;
2778: l_def_tqlv_rec := fill_who_columns(l_def_tqlv_rec);
2779: --- Validate all non-missing attributes (Item Level Validation)
2780: l_return_status := Validate_Attributes(l_def_tqlv_rec);
2778: l_def_tqlv_rec := fill_who_columns(l_def_tqlv_rec);
2779: --- Validate all non-missing attributes (Item Level Validation)
2780: l_return_status := Validate_Attributes(l_def_tqlv_rec);
2781: --- If any errors happen abort API
2782: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2785: RAISE OKC_API.G_EXCEPTION_ERROR;
2786: END IF;
2779: --- Validate all non-missing attributes (Item Level Validation)
2780: l_return_status := Validate_Attributes(l_def_tqlv_rec);
2781: --- If any errors happen abort API
2782: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2785: RAISE OKC_API.G_EXCEPTION_ERROR;
2786: END IF;
2787: l_return_status := Validate_Record(l_def_tqlv_rec);
2780: l_return_status := Validate_Attributes(l_def_tqlv_rec);
2781: --- If any errors happen abort API
2782: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2785: RAISE OKC_API.G_EXCEPTION_ERROR;
2786: END IF;
2787: l_return_status := Validate_Record(l_def_tqlv_rec);
2788: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2781: --- If any errors happen abort API
2782: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2785: RAISE OKC_API.G_EXCEPTION_ERROR;
2786: END IF;
2787: l_return_status := Validate_Record(l_def_tqlv_rec);
2788: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2789: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2785: RAISE OKC_API.G_EXCEPTION_ERROR;
2786: END IF;
2787: l_return_status := Validate_Record(l_def_tqlv_rec);
2788: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2789: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2790: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2791: RAISE OKC_API.G_EXCEPTION_ERROR;
2792: END IF;
2785: RAISE OKC_API.G_EXCEPTION_ERROR;
2786: END IF;
2787: l_return_status := Validate_Record(l_def_tqlv_rec);
2788: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2789: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2790: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2791: RAISE OKC_API.G_EXCEPTION_ERROR;
2792: END IF;
2793:
2786: END IF;
2787: l_return_status := Validate_Record(l_def_tqlv_rec);
2788: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2789: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2790: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2791: RAISE OKC_API.G_EXCEPTION_ERROR;
2792: END IF;
2793:
2794:
2787: l_return_status := Validate_Record(l_def_tqlv_rec);
2788: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2789: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2790: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2791: RAISE OKC_API.G_EXCEPTION_ERROR;
2792: END IF;
2793:
2794:
2795: -- RMUNJULU 09-MAY-03 2949544 Added code to round
2803: p_amount => l_def_tqlv_rec.amount,
2804: p_currency_code => l_def_tqlv_rec.currency_code,
2805: x_rounded_amount => l_rounded_amount);
2806:
2807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2809: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2810: RAISE OKC_API.G_EXCEPTION_ERROR;
2811: END IF;
2804: p_currency_code => l_def_tqlv_rec.currency_code,
2805: x_rounded_amount => l_rounded_amount);
2806:
2807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2809: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2810: RAISE OKC_API.G_EXCEPTION_ERROR;
2811: END IF;
2812:
2805: x_rounded_amount => l_rounded_amount);
2806:
2807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2809: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2810: RAISE OKC_API.G_EXCEPTION_ERROR;
2811: END IF;
2812:
2813:
2806:
2807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2809: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2810: RAISE OKC_API.G_EXCEPTION_ERROR;
2811: END IF;
2812:
2813:
2814: l_def_tqlv_rec.amount := l_rounded_amount;
2829: x_msg_data,
2830: l_tql_rec,
2831: lx_tql_rec
2832: );
2833: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2835: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2836: RAISE OKC_API.G_EXCEPTION_ERROR;
2837: END IF;
2830: l_tql_rec,
2831: lx_tql_rec
2832: );
2833: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2835: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2836: RAISE OKC_API.G_EXCEPTION_ERROR;
2837: END IF;
2838: migrate(lx_tql_rec, l_def_tqlv_rec);
2831: lx_tql_rec
2832: );
2833: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2835: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2836: RAISE OKC_API.G_EXCEPTION_ERROR;
2837: END IF;
2838: migrate(lx_tql_rec, l_def_tqlv_rec);
2839: insert_row(
2832: );
2833: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2835: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2836: RAISE OKC_API.G_EXCEPTION_ERROR;
2837: END IF;
2838: migrate(lx_tql_rec, l_def_tqlv_rec);
2839: insert_row(
2840: p_init_msg_list,
2843: x_msg_data,
2844: l_okl_txl_quote_lines_tl_rec,
2845: lx_okl_txl_quote_lines_tl_rec
2846: );
2847: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2844: l_okl_txl_quote_lines_tl_rec,
2845: lx_okl_txl_quote_lines_tl_rec
2846: );
2847: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2852: migrate(lx_okl_txl_quote_lines_tl_rec, l_def_tqlv_rec);
2845: lx_okl_txl_quote_lines_tl_rec
2846: );
2847: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2852: migrate(lx_okl_txl_quote_lines_tl_rec, l_def_tqlv_rec);
2853: -- Set OUT values
2846: );
2847: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2852: migrate(lx_okl_txl_quote_lines_tl_rec, l_def_tqlv_rec);
2853: -- Set OUT values
2854: x_tqlv_rec := l_def_tqlv_rec;
2851: END IF;
2852: migrate(lx_okl_txl_quote_lines_tl_rec, l_def_tqlv_rec);
2853: -- Set OUT values
2854: x_tqlv_rec := l_def_tqlv_rec;
2855: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2856: EXCEPTION
2857: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2858: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2859: (
2853: -- Set OUT values
2854: x_tqlv_rec := l_def_tqlv_rec;
2855: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2856: EXCEPTION
2857: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2858: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2859: (
2860: l_api_name,
2861: G_PKG_NAME,
2854: x_tqlv_rec := l_def_tqlv_rec;
2855: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2856: EXCEPTION
2857: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2858: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2859: (
2860: l_api_name,
2861: G_PKG_NAME,
2862: 'OKC_API.G_RET_STS_ERROR',
2858: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2859: (
2860: l_api_name,
2861: G_PKG_NAME,
2862: 'OKC_API.G_RET_STS_ERROR',
2863: x_msg_count,
2864: x_msg_data,
2865: '_PVT'
2866: );
2863: x_msg_count,
2864: x_msg_data,
2865: '_PVT'
2866: );
2867: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2868: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2869: (
2870: l_api_name,
2871: G_PKG_NAME,
2864: x_msg_data,
2865: '_PVT'
2866: );
2867: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2868: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2869: (
2870: l_api_name,
2871: G_PKG_NAME,
2872: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2868: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2869: (
2870: l_api_name,
2871: G_PKG_NAME,
2872: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2873: x_msg_count,
2874: x_msg_data,
2875: '_PVT'
2876: );
2874: x_msg_data,
2875: '_PVT'
2876: );
2877: WHEN OTHERS THEN
2878: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2879: (
2880: l_api_name,
2881: G_PKG_NAME,
2882: 'OTHERS',
2898: x_tqlv_tbl OUT NOCOPY tqlv_tbl_type) IS
2899:
2900: l_api_version CONSTANT NUMBER := 1;
2901: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2902: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2903: i NUMBER := 0;
2904: -- Begin Post-Generation Change
2905: -- overall error status
2906: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2905: -- overall error status
2906: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2907: -- End Post-Generation Change
2908: BEGIN
2909: OKC_API.init_msg_list(p_init_msg_list);
2910: -- Make sure PL/SQL table has records in it before passing
2911: IF (p_tqlv_tbl.COUNT > 0) THEN
2912: i := p_tqlv_tbl.FIRST;
2913: LOOP
2912: i := p_tqlv_tbl.FIRST;
2913: LOOP
2914: insert_row (
2915: p_api_version => p_api_version,
2916: p_init_msg_list => OKC_API.G_FALSE,
2917: x_return_status => x_return_status,
2918: x_msg_count => x_msg_count,
2919: x_msg_data => x_msg_data,
2920: p_tqlv_rec => p_tqlv_tbl(i),
2935: x_return_status := l_overall_status;
2936: -- End Post-Generation Change
2937: END IF;
2938: EXCEPTION
2939: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2940: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2941: (
2942: l_api_name,
2943: G_PKG_NAME,
2936: -- End Post-Generation Change
2937: END IF;
2938: EXCEPTION
2939: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2940: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2941: (
2942: l_api_name,
2943: G_PKG_NAME,
2944: 'OKC_API.G_RET_STS_ERROR',
2940: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2941: (
2942: l_api_name,
2943: G_PKG_NAME,
2944: 'OKC_API.G_RET_STS_ERROR',
2945: x_msg_count,
2946: x_msg_data,
2947: '_PVT'
2948: );
2945: x_msg_count,
2946: x_msg_data,
2947: '_PVT'
2948: );
2949: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2950: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2951: (
2952: l_api_name,
2953: G_PKG_NAME,
2946: x_msg_data,
2947: '_PVT'
2948: );
2949: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2950: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2951: (
2952: l_api_name,
2953: G_PKG_NAME,
2954: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2950: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2951: (
2952: l_api_name,
2953: G_PKG_NAME,
2954: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2955: x_msg_count,
2956: x_msg_data,
2957: '_PVT'
2958: );
2956: x_msg_data,
2957: '_PVT'
2958: );
2959: WHEN OTHERS THEN
2960: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2961: (
2962: l_api_name,
2963: G_PKG_NAME,
2964: 'OTHERS',
3479: FROM OKL_TXL_QUOTE_LINES_B
3480: WHERE ID = p_tql_rec.id;
3481: l_api_version CONSTANT NUMBER := 1;
3482: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
3483: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3484: l_object_version_number OKL_TXL_QUOTE_LINES_B.OBJECT_VERSION_NUMBER%TYPE;
3485: lc_object_version_number OKL_TXL_QUOTE_LINES_B.OBJECT_VERSION_NUMBER%TYPE;
3486: l_row_notfound BOOLEAN := FALSE;
3487: lc_row_notfound BOOLEAN := FALSE;
3485: lc_object_version_number OKL_TXL_QUOTE_LINES_B.OBJECT_VERSION_NUMBER%TYPE;
3486: l_row_notfound BOOLEAN := FALSE;
3487: lc_row_notfound BOOLEAN := FALSE;
3488: BEGIN
3489: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3490: p_init_msg_list,
3491: '_PVT',
3492: x_return_status);
3493: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3489: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3490: p_init_msg_list,
3491: '_PVT',
3492: x_return_status);
3493: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3495: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3496: RAISE OKC_API.G_EXCEPTION_ERROR;
3497: END IF;
3490: p_init_msg_list,
3491: '_PVT',
3492: x_return_status);
3493: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3495: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3496: RAISE OKC_API.G_EXCEPTION_ERROR;
3497: END IF;
3498: BEGIN
3491: '_PVT',
3492: x_return_status);
3493: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3495: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3496: RAISE OKC_API.G_EXCEPTION_ERROR;
3497: END IF;
3498: BEGIN
3499: OPEN lock_csr(p_tql_rec);
3492: x_return_status);
3493: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3495: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3496: RAISE OKC_API.G_EXCEPTION_ERROR;
3497: END IF;
3498: BEGIN
3499: OPEN lock_csr(p_tql_rec);
3500: FETCH lock_csr INTO l_object_version_number;
3504: WHEN E_Resource_Busy THEN
3505: IF (lock_csr%ISOPEN) THEN
3506: CLOSE lock_csr;
3507: END IF;
3508: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
3509: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3510: END;
3511:
3512: IF ( l_row_notfound ) THEN
3515: lc_row_notfound := lchk_csr%NOTFOUND;
3516: CLOSE lchk_csr;
3517: END IF;
3518: IF (lc_row_notfound) THEN
3519: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3520: RAISE OKC_API.G_EXCEPTION_ERROR;
3521: ELSIF lc_object_version_number > p_tql_rec.object_version_number THEN
3522: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3523: RAISE OKC_API.G_EXCEPTION_ERROR;
3516: CLOSE lchk_csr;
3517: END IF;
3518: IF (lc_row_notfound) THEN
3519: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3520: RAISE OKC_API.G_EXCEPTION_ERROR;
3521: ELSIF lc_object_version_number > p_tql_rec.object_version_number THEN
3522: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3523: RAISE OKC_API.G_EXCEPTION_ERROR;
3524: ELSIF lc_object_version_number <> p_tql_rec.object_version_number THEN
3518: IF (lc_row_notfound) THEN
3519: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3520: RAISE OKC_API.G_EXCEPTION_ERROR;
3521: ELSIF lc_object_version_number > p_tql_rec.object_version_number THEN
3522: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3523: RAISE OKC_API.G_EXCEPTION_ERROR;
3524: ELSIF lc_object_version_number <> p_tql_rec.object_version_number THEN
3525: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3526: RAISE OKC_API.G_EXCEPTION_ERROR;
3519: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3520: RAISE OKC_API.G_EXCEPTION_ERROR;
3521: ELSIF lc_object_version_number > p_tql_rec.object_version_number THEN
3522: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3523: RAISE OKC_API.G_EXCEPTION_ERROR;
3524: ELSIF lc_object_version_number <> p_tql_rec.object_version_number THEN
3525: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3526: RAISE OKC_API.G_EXCEPTION_ERROR;
3527: ELSIF lc_object_version_number = -1 THEN
3521: ELSIF lc_object_version_number > p_tql_rec.object_version_number THEN
3522: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3523: RAISE OKC_API.G_EXCEPTION_ERROR;
3524: ELSIF lc_object_version_number <> p_tql_rec.object_version_number THEN
3525: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3526: RAISE OKC_API.G_EXCEPTION_ERROR;
3527: ELSIF lc_object_version_number = -1 THEN
3528: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3529: RAISE OKC_API.G_EXCEPTION_ERROR;
3522: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3523: RAISE OKC_API.G_EXCEPTION_ERROR;
3524: ELSIF lc_object_version_number <> p_tql_rec.object_version_number THEN
3525: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3526: RAISE OKC_API.G_EXCEPTION_ERROR;
3527: ELSIF lc_object_version_number = -1 THEN
3528: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3529: RAISE OKC_API.G_EXCEPTION_ERROR;
3530: END IF;
3524: ELSIF lc_object_version_number <> p_tql_rec.object_version_number THEN
3525: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3526: RAISE OKC_API.G_EXCEPTION_ERROR;
3527: ELSIF lc_object_version_number = -1 THEN
3528: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3529: RAISE OKC_API.G_EXCEPTION_ERROR;
3530: END IF;
3531: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3532: EXCEPTION
3525: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3526: RAISE OKC_API.G_EXCEPTION_ERROR;
3527: ELSIF lc_object_version_number = -1 THEN
3528: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3529: RAISE OKC_API.G_EXCEPTION_ERROR;
3530: END IF;
3531: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3532: EXCEPTION
3533: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3527: ELSIF lc_object_version_number = -1 THEN
3528: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3529: RAISE OKC_API.G_EXCEPTION_ERROR;
3530: END IF;
3531: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3532: EXCEPTION
3533: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3534: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3535: (
3529: RAISE OKC_API.G_EXCEPTION_ERROR;
3530: END IF;
3531: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3532: EXCEPTION
3533: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3534: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3535: (
3536: l_api_name,
3537: G_PKG_NAME,
3530: END IF;
3531: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3532: EXCEPTION
3533: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3534: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3535: (
3536: l_api_name,
3537: G_PKG_NAME,
3538: 'OKC_API.G_RET_STS_ERROR',
3534: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3535: (
3536: l_api_name,
3537: G_PKG_NAME,
3538: 'OKC_API.G_RET_STS_ERROR',
3539: x_msg_count,
3540: x_msg_data,
3541: '_PVT'
3542: );
3539: x_msg_count,
3540: x_msg_data,
3541: '_PVT'
3542: );
3543: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3544: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3545: (
3546: l_api_name,
3547: G_PKG_NAME,
3540: x_msg_data,
3541: '_PVT'
3542: );
3543: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3544: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3545: (
3546: l_api_name,
3547: G_PKG_NAME,
3548: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3544: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3545: (
3546: l_api_name,
3547: G_PKG_NAME,
3548: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3549: x_msg_count,
3550: x_msg_data,
3551: '_PVT'
3552: );
3550: x_msg_data,
3551: '_PVT'
3552: );
3553: WHEN OTHERS THEN
3554: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3555: (
3556: l_api_name,
3557: G_PKG_NAME,
3558: 'OTHERS',
3580: FOR UPDATE NOWAIT;
3581:
3582: l_api_version CONSTANT NUMBER := 1;
3583: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
3584: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3585: l_lock_var lock_csr%ROWTYPE;
3586: l_row_notfound BOOLEAN := FALSE;
3587: lc_row_notfound BOOLEAN := FALSE;
3588: BEGIN
3585: l_lock_var lock_csr%ROWTYPE;
3586: l_row_notfound BOOLEAN := FALSE;
3587: lc_row_notfound BOOLEAN := FALSE;
3588: BEGIN
3589: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3590: p_init_msg_list,
3591: '_PVT',
3592: x_return_status);
3593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3589: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3590: p_init_msg_list,
3591: '_PVT',
3592: x_return_status);
3593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_ERROR;
3597: END IF;
3590: p_init_msg_list,
3591: '_PVT',
3592: x_return_status);
3593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_ERROR;
3597: END IF;
3598: BEGIN
3591: '_PVT',
3592: x_return_status);
3593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_ERROR;
3597: END IF;
3598: BEGIN
3599: OPEN lock_csr(p_okl_txl_quote_lines_tl_rec);
3592: x_return_status);
3593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_ERROR;
3597: END IF;
3598: BEGIN
3599: OPEN lock_csr(p_okl_txl_quote_lines_tl_rec);
3600: FETCH lock_csr INTO l_lock_var;
3604: WHEN E_Resource_Busy THEN
3605: IF (lock_csr%ISOPEN) THEN
3606: CLOSE lock_csr;
3607: END IF;
3608: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
3609: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3610: END;
3611:
3612: IF ( l_row_notfound ) THEN
3609: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3610: END;
3611:
3612: IF ( l_row_notfound ) THEN
3613: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3614: RAISE OKC_API.G_EXCEPTION_ERROR;
3615: END IF;
3616: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3617: EXCEPTION
3610: END;
3611:
3612: IF ( l_row_notfound ) THEN
3613: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3614: RAISE OKC_API.G_EXCEPTION_ERROR;
3615: END IF;
3616: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3617: EXCEPTION
3618: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3612: IF ( l_row_notfound ) THEN
3613: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3614: RAISE OKC_API.G_EXCEPTION_ERROR;
3615: END IF;
3616: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3617: EXCEPTION
3618: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3619: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3620: (
3614: RAISE OKC_API.G_EXCEPTION_ERROR;
3615: END IF;
3616: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3617: EXCEPTION
3618: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3619: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3620: (
3621: l_api_name,
3622: G_PKG_NAME,
3615: END IF;
3616: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3617: EXCEPTION
3618: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3619: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3620: (
3621: l_api_name,
3622: G_PKG_NAME,
3623: 'OKC_API.G_RET_STS_ERROR',
3619: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3620: (
3621: l_api_name,
3622: G_PKG_NAME,
3623: 'OKC_API.G_RET_STS_ERROR',
3624: x_msg_count,
3625: x_msg_data,
3626: '_PVT'
3627: );
3624: x_msg_count,
3625: x_msg_data,
3626: '_PVT'
3627: );
3628: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3629: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3630: (
3631: l_api_name,
3632: G_PKG_NAME,
3625: x_msg_data,
3626: '_PVT'
3627: );
3628: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3629: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3630: (
3631: l_api_name,
3632: G_PKG_NAME,
3633: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3629: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3630: (
3631: l_api_name,
3632: G_PKG_NAME,
3633: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3634: x_msg_count,
3635: x_msg_data,
3636: '_PVT'
3637: );
3635: x_msg_data,
3636: '_PVT'
3637: );
3638: WHEN OTHERS THEN
3639: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3640: (
3641: l_api_name,
3642: G_PKG_NAME,
3643: 'OTHERS',
3658: p_tqlv_rec IN tqlv_rec_type) IS
3659:
3660: l_api_version CONSTANT NUMBER := 1;
3661: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
3662: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3663: l_tql_rec tql_rec_type;
3664: l_okl_txl_quote_lines_tl_rec OklTxlQuoteLinesTlRecType;
3665: BEGIN
3666: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3662: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3663: l_tql_rec tql_rec_type;
3664: l_okl_txl_quote_lines_tl_rec OklTxlQuoteLinesTlRecType;
3665: BEGIN
3666: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3667: G_PKG_NAME,
3668: p_init_msg_list,
3669: l_api_version,
3670: p_api_version,
3669: l_api_version,
3670: p_api_version,
3671: '_PVT',
3672: x_return_status);
3673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3676: RAISE OKC_API.G_EXCEPTION_ERROR;
3677: END IF;
3670: p_api_version,
3671: '_PVT',
3672: x_return_status);
3673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3676: RAISE OKC_API.G_EXCEPTION_ERROR;
3677: END IF;
3678: --------------------------------------
3671: '_PVT',
3672: x_return_status);
3673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3676: RAISE OKC_API.G_EXCEPTION_ERROR;
3677: END IF;
3678: --------------------------------------
3679: -- Move VIEW record to "Child" records
3672: x_return_status);
3673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3676: RAISE OKC_API.G_EXCEPTION_ERROR;
3677: END IF;
3678: --------------------------------------
3679: -- Move VIEW record to "Child" records
3680: --------------------------------------
3689: x_msg_count,
3690: x_msg_data,
3691: l_tql_rec
3692: );
3693: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3694: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3695: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3696: RAISE OKC_API.G_EXCEPTION_ERROR;
3697: END IF;
3690: x_msg_data,
3691: l_tql_rec
3692: );
3693: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3694: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3695: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3696: RAISE OKC_API.G_EXCEPTION_ERROR;
3697: END IF;
3698: lock_row(
3691: l_tql_rec
3692: );
3693: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3694: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3695: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3696: RAISE OKC_API.G_EXCEPTION_ERROR;
3697: END IF;
3698: lock_row(
3699: p_init_msg_list,
3692: );
3693: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3694: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3695: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3696: RAISE OKC_API.G_EXCEPTION_ERROR;
3697: END IF;
3698: lock_row(
3699: p_init_msg_list,
3700: x_return_status,
3701: x_msg_count,
3702: x_msg_data,
3703: l_okl_txl_quote_lines_tl_rec
3704: );
3705: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3706: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3707: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3708: RAISE OKC_API.G_EXCEPTION_ERROR;
3709: END IF;
3702: x_msg_data,
3703: l_okl_txl_quote_lines_tl_rec
3704: );
3705: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3706: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3707: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3708: RAISE OKC_API.G_EXCEPTION_ERROR;
3709: END IF;
3710: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3703: l_okl_txl_quote_lines_tl_rec
3704: );
3705: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3706: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3707: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3708: RAISE OKC_API.G_EXCEPTION_ERROR;
3709: END IF;
3710: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3711: EXCEPTION
3704: );
3705: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3706: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3707: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3708: RAISE OKC_API.G_EXCEPTION_ERROR;
3709: END IF;
3710: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3711: EXCEPTION
3712: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3706: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3707: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3708: RAISE OKC_API.G_EXCEPTION_ERROR;
3709: END IF;
3710: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3711: EXCEPTION
3712: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3713: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3714: (
3708: RAISE OKC_API.G_EXCEPTION_ERROR;
3709: END IF;
3710: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3711: EXCEPTION
3712: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3713: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3714: (
3715: l_api_name,
3716: G_PKG_NAME,
3709: END IF;
3710: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3711: EXCEPTION
3712: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3713: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3714: (
3715: l_api_name,
3716: G_PKG_NAME,
3717: 'OKC_API.G_RET_STS_ERROR',
3713: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3714: (
3715: l_api_name,
3716: G_PKG_NAME,
3717: 'OKC_API.G_RET_STS_ERROR',
3718: x_msg_count,
3719: x_msg_data,
3720: '_PVT'
3721: );
3718: x_msg_count,
3719: x_msg_data,
3720: '_PVT'
3721: );
3722: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3723: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3724: (
3725: l_api_name,
3726: G_PKG_NAME,
3719: x_msg_data,
3720: '_PVT'
3721: );
3722: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3723: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3724: (
3725: l_api_name,
3726: G_PKG_NAME,
3727: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3723: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3724: (
3725: l_api_name,
3726: G_PKG_NAME,
3727: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3728: x_msg_count,
3729: x_msg_data,
3730: '_PVT'
3731: );
3729: x_msg_data,
3730: '_PVT'
3731: );
3732: WHEN OTHERS THEN
3733: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3734: (
3735: l_api_name,
3736: G_PKG_NAME,
3737: 'OTHERS',
3752: p_tqlv_tbl IN tqlv_tbl_type) IS
3753:
3754: l_api_version CONSTANT NUMBER := 1;
3755: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
3756: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3757: i NUMBER := 0;
3758: -- Begin Post-Generation Change
3759: -- overall error status
3760: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3759: -- overall error status
3760: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3761: -- End Post-Generation Change
3762: BEGIN
3763: OKC_API.init_msg_list(p_init_msg_list);
3764: -- Make sure PL/SQL table has records in it before passing
3765: IF (p_tqlv_tbl.COUNT > 0) THEN
3766: i := p_tqlv_tbl.FIRST;
3767: LOOP
3766: i := p_tqlv_tbl.FIRST;
3767: LOOP
3768: lock_row (
3769: p_api_version => p_api_version,
3770: p_init_msg_list => OKC_API.G_FALSE,
3771: x_return_status => x_return_status,
3772: x_msg_count => x_msg_count,
3773: x_msg_data => x_msg_data,
3774: p_tqlv_rec => p_tqlv_tbl(i));
3788: x_return_status := l_overall_status;
3789: -- End Post-Generation Change
3790: END IF;
3791: EXCEPTION
3792: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3793: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3794: (
3795: l_api_name,
3796: G_PKG_NAME,
3789: -- End Post-Generation Change
3790: END IF;
3791: EXCEPTION
3792: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3793: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3794: (
3795: l_api_name,
3796: G_PKG_NAME,
3797: 'OKC_API.G_RET_STS_ERROR',
3793: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3794: (
3795: l_api_name,
3796: G_PKG_NAME,
3797: 'OKC_API.G_RET_STS_ERROR',
3798: x_msg_count,
3799: x_msg_data,
3800: '_PVT'
3801: );
3798: x_msg_count,
3799: x_msg_data,
3800: '_PVT'
3801: );
3802: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3803: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3804: (
3805: l_api_name,
3806: G_PKG_NAME,
3799: x_msg_data,
3800: '_PVT'
3801: );
3802: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3803: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3804: (
3805: l_api_name,
3806: G_PKG_NAME,
3807: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3803: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3804: (
3805: l_api_name,
3806: G_PKG_NAME,
3807: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3808: x_msg_count,
3809: x_msg_data,
3810: '_PVT'
3811: );
3809: x_msg_data,
3810: '_PVT'
3811: );
3812: WHEN OTHERS THEN
3813: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3814: (
3815: l_api_name,
3816: G_PKG_NAME,
3817: 'OTHERS',
3848: x_tql_rec OUT NOCOPY tql_rec_type) IS
3849:
3850: l_api_version CONSTANT NUMBER := 1;
3851: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
3852: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3853: l_tql_rec tql_rec_type := p_tql_rec;
3854: l_def_tql_rec tql_rec_type;
3855: l_row_notfound BOOLEAN := TRUE;
3856: ----------------------------------
3872: x_tql_rec OUT NOCOPY tql_rec_type
3873: ) RETURN VARCHAR2 IS
3874: l_tql_rec tql_rec_type;
3875: l_row_notfound BOOLEAN := TRUE;
3876: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3877: BEGIN
3878: -- Added by Suresh P Bagukkudumbi
3879: -- Added for handling concurrent manager fields
3880:
3881: x_tql_rec := p_tql_rec;
3882: -- Get current database values
3883: l_tql_rec := get_rec(p_tql_rec, l_row_notfound);
3884: IF (l_row_notfound) THEN
3885: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3886: END IF;
3887: IF (x_tql_rec.id = OKC_API.G_MISS_NUM)
3888: THEN
3889: x_tql_rec.id := l_tql_rec.id;
3883: l_tql_rec := get_rec(p_tql_rec, l_row_notfound);
3884: IF (l_row_notfound) THEN
3885: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3886: END IF;
3887: IF (x_tql_rec.id = OKC_API.G_MISS_NUM)
3888: THEN
3889: x_tql_rec.id := l_tql_rec.id;
3890: END IF;
3891: IF (x_tql_rec.sty_id = OKC_API.G_MISS_NUM)
3887: IF (x_tql_rec.id = OKC_API.G_MISS_NUM)
3888: THEN
3889: x_tql_rec.id := l_tql_rec.id;
3890: END IF;
3891: IF (x_tql_rec.sty_id = OKC_API.G_MISS_NUM)
3892: THEN
3893: x_tql_rec.sty_id := l_tql_rec.sty_id;
3894: END IF;
3895: IF (x_tql_rec.kle_id = OKC_API.G_MISS_NUM)
3891: IF (x_tql_rec.sty_id = OKC_API.G_MISS_NUM)
3892: THEN
3893: x_tql_rec.sty_id := l_tql_rec.sty_id;
3894: END IF;
3895: IF (x_tql_rec.kle_id = OKC_API.G_MISS_NUM)
3896: THEN
3897: x_tql_rec.kle_id := l_tql_rec.kle_id;
3898: END IF;
3899: IF (x_tql_rec.qlt_code = OKC_API.G_MISS_CHAR)
3895: IF (x_tql_rec.kle_id = OKC_API.G_MISS_NUM)
3896: THEN
3897: x_tql_rec.kle_id := l_tql_rec.kle_id;
3898: END IF;
3899: IF (x_tql_rec.qlt_code = OKC_API.G_MISS_CHAR)
3900: THEN
3901: x_tql_rec.qlt_code := l_tql_rec.qlt_code;
3902: END IF;
3903: IF (x_tql_rec.qte_id = OKC_API.G_MISS_NUM)
3899: IF (x_tql_rec.qlt_code = OKC_API.G_MISS_CHAR)
3900: THEN
3901: x_tql_rec.qlt_code := l_tql_rec.qlt_code;
3902: END IF;
3903: IF (x_tql_rec.qte_id = OKC_API.G_MISS_NUM)
3904: THEN
3905: x_tql_rec.qte_id := l_tql_rec.qte_id;
3906: END IF;
3907: IF (x_tql_rec.line_number = OKC_API.G_MISS_NUM)
3903: IF (x_tql_rec.qte_id = OKC_API.G_MISS_NUM)
3904: THEN
3905: x_tql_rec.qte_id := l_tql_rec.qte_id;
3906: END IF;
3907: IF (x_tql_rec.line_number = OKC_API.G_MISS_NUM)
3908: THEN
3909: x_tql_rec.line_number := l_tql_rec.line_number;
3910: END IF;
3911: IF (x_tql_rec.amount = OKC_API.G_MISS_NUM)
3907: IF (x_tql_rec.line_number = OKC_API.G_MISS_NUM)
3908: THEN
3909: x_tql_rec.line_number := l_tql_rec.line_number;
3910: END IF;
3911: IF (x_tql_rec.amount = OKC_API.G_MISS_NUM)
3912: THEN
3913: x_tql_rec.amount := l_tql_rec.amount;
3914: END IF;
3915: IF (x_tql_rec.object_version_number = OKC_API.G_MISS_NUM)
3911: IF (x_tql_rec.amount = OKC_API.G_MISS_NUM)
3912: THEN
3913: x_tql_rec.amount := l_tql_rec.amount;
3914: END IF;
3915: IF (x_tql_rec.object_version_number = OKC_API.G_MISS_NUM)
3916: THEN
3917: x_tql_rec.object_version_number := l_tql_rec.object_version_number;
3918: END IF;
3919: IF (x_tql_rec.modified_yn = OKC_API.G_MISS_CHAR)
3915: IF (x_tql_rec.object_version_number = OKC_API.G_MISS_NUM)
3916: THEN
3917: x_tql_rec.object_version_number := l_tql_rec.object_version_number;
3918: END IF;
3919: IF (x_tql_rec.modified_yn = OKC_API.G_MISS_CHAR)
3920: THEN
3921: x_tql_rec.modified_yn := l_tql_rec.modified_yn;
3922: END IF;
3923: IF (x_tql_rec.defaulted_yn = OKC_API.G_MISS_CHAR)
3919: IF (x_tql_rec.modified_yn = OKC_API.G_MISS_CHAR)
3920: THEN
3921: x_tql_rec.modified_yn := l_tql_rec.modified_yn;
3922: END IF;
3923: IF (x_tql_rec.defaulted_yn = OKC_API.G_MISS_CHAR)
3924: THEN
3925: x_tql_rec.defaulted_yn := l_tql_rec.defaulted_yn;
3926: END IF;
3927: IF (x_tql_rec.taxed_yn = OKC_API.G_MISS_CHAR)
3923: IF (x_tql_rec.defaulted_yn = OKC_API.G_MISS_CHAR)
3924: THEN
3925: x_tql_rec.defaulted_yn := l_tql_rec.defaulted_yn;
3926: END IF;
3927: IF (x_tql_rec.taxed_yn = OKC_API.G_MISS_CHAR)
3928: THEN
3929: x_tql_rec.taxed_yn := l_tql_rec.taxed_yn;
3930: END IF;
3931: IF (x_tql_rec.org_id = OKC_API.G_MISS_NUM)
3927: IF (x_tql_rec.taxed_yn = OKC_API.G_MISS_CHAR)
3928: THEN
3929: x_tql_rec.taxed_yn := l_tql_rec.taxed_yn;
3930: END IF;
3931: IF (x_tql_rec.org_id = OKC_API.G_MISS_NUM)
3932: THEN
3933: x_tql_rec.org_id := l_tql_rec.org_id;
3934: END IF;
3935: IF (x_tql_rec.request_id = OKC_API.G_MISS_NUM)
3931: IF (x_tql_rec.org_id = OKC_API.G_MISS_NUM)
3932: THEN
3933: x_tql_rec.org_id := l_tql_rec.org_id;
3934: END IF;
3935: IF (x_tql_rec.request_id = OKC_API.G_MISS_NUM)
3936: THEN
3937: x_tql_rec.request_id := l_tql_rec.request_id;
3938: END IF;
3939: IF (x_tql_rec.program_application_id = OKC_API.G_MISS_NUM)
3935: IF (x_tql_rec.request_id = OKC_API.G_MISS_NUM)
3936: THEN
3937: x_tql_rec.request_id := l_tql_rec.request_id;
3938: END IF;
3939: IF (x_tql_rec.program_application_id = OKC_API.G_MISS_NUM)
3940: THEN
3941: x_tql_rec.program_application_id := l_tql_rec.program_application_id;
3942: END IF;
3943: IF (x_tql_rec.program_id = OKC_API.G_MISS_NUM)
3939: IF (x_tql_rec.program_application_id = OKC_API.G_MISS_NUM)
3940: THEN
3941: x_tql_rec.program_application_id := l_tql_rec.program_application_id;
3942: END IF;
3943: IF (x_tql_rec.program_id = OKC_API.G_MISS_NUM)
3944: THEN
3945: x_tql_rec.program_id := l_tql_rec.program_id;
3946: END IF;
3947: IF (x_tql_rec.program_update_date = OKC_API.G_MISS_DATE)
3943: IF (x_tql_rec.program_id = OKC_API.G_MISS_NUM)
3944: THEN
3945: x_tql_rec.program_id := l_tql_rec.program_id;
3946: END IF;
3947: IF (x_tql_rec.program_update_date = OKC_API.G_MISS_DATE)
3948: THEN
3949: x_tql_rec.program_update_date := l_tql_rec.program_update_date;
3950: END IF;
3951: IF (x_tql_rec.attribute_category = OKC_API.G_MISS_CHAR)
3947: IF (x_tql_rec.program_update_date = OKC_API.G_MISS_DATE)
3948: THEN
3949: x_tql_rec.program_update_date := l_tql_rec.program_update_date;
3950: END IF;
3951: IF (x_tql_rec.attribute_category = OKC_API.G_MISS_CHAR)
3952: THEN
3953: x_tql_rec.attribute_category := l_tql_rec.attribute_category;
3954: END IF;
3955: IF (x_tql_rec.attribute1 = OKC_API.G_MISS_CHAR)
3951: IF (x_tql_rec.attribute_category = OKC_API.G_MISS_CHAR)
3952: THEN
3953: x_tql_rec.attribute_category := l_tql_rec.attribute_category;
3954: END IF;
3955: IF (x_tql_rec.attribute1 = OKC_API.G_MISS_CHAR)
3956: THEN
3957: x_tql_rec.attribute1 := l_tql_rec.attribute1;
3958: END IF;
3959: IF (x_tql_rec.attribute2 = OKC_API.G_MISS_CHAR)
3955: IF (x_tql_rec.attribute1 = OKC_API.G_MISS_CHAR)
3956: THEN
3957: x_tql_rec.attribute1 := l_tql_rec.attribute1;
3958: END IF;
3959: IF (x_tql_rec.attribute2 = OKC_API.G_MISS_CHAR)
3960: THEN
3961: x_tql_rec.attribute2 := l_tql_rec.attribute2;
3962: END IF;
3963: IF (x_tql_rec.attribute3 = OKC_API.G_MISS_CHAR)
3959: IF (x_tql_rec.attribute2 = OKC_API.G_MISS_CHAR)
3960: THEN
3961: x_tql_rec.attribute2 := l_tql_rec.attribute2;
3962: END IF;
3963: IF (x_tql_rec.attribute3 = OKC_API.G_MISS_CHAR)
3964: THEN
3965: x_tql_rec.attribute3 := l_tql_rec.attribute3;
3966: END IF;
3967: IF (x_tql_rec.attribute4 = OKC_API.G_MISS_CHAR)
3963: IF (x_tql_rec.attribute3 = OKC_API.G_MISS_CHAR)
3964: THEN
3965: x_tql_rec.attribute3 := l_tql_rec.attribute3;
3966: END IF;
3967: IF (x_tql_rec.attribute4 = OKC_API.G_MISS_CHAR)
3968: THEN
3969: x_tql_rec.attribute4 := l_tql_rec.attribute4;
3970: END IF;
3971: IF (x_tql_rec.attribute5 = OKC_API.G_MISS_CHAR)
3967: IF (x_tql_rec.attribute4 = OKC_API.G_MISS_CHAR)
3968: THEN
3969: x_tql_rec.attribute4 := l_tql_rec.attribute4;
3970: END IF;
3971: IF (x_tql_rec.attribute5 = OKC_API.G_MISS_CHAR)
3972: THEN
3973: x_tql_rec.attribute5 := l_tql_rec.attribute5;
3974: END IF;
3975: IF (x_tql_rec.attribute6 = OKC_API.G_MISS_CHAR)
3971: IF (x_tql_rec.attribute5 = OKC_API.G_MISS_CHAR)
3972: THEN
3973: x_tql_rec.attribute5 := l_tql_rec.attribute5;
3974: END IF;
3975: IF (x_tql_rec.attribute6 = OKC_API.G_MISS_CHAR)
3976: THEN
3977: x_tql_rec.attribute6 := l_tql_rec.attribute6;
3978: END IF;
3979: IF (x_tql_rec.attribute7 = OKC_API.G_MISS_CHAR)
3975: IF (x_tql_rec.attribute6 = OKC_API.G_MISS_CHAR)
3976: THEN
3977: x_tql_rec.attribute6 := l_tql_rec.attribute6;
3978: END IF;
3979: IF (x_tql_rec.attribute7 = OKC_API.G_MISS_CHAR)
3980: THEN
3981: x_tql_rec.attribute7 := l_tql_rec.attribute7;
3982: END IF;
3983: IF (x_tql_rec.attribute8 = OKC_API.G_MISS_CHAR)
3979: IF (x_tql_rec.attribute7 = OKC_API.G_MISS_CHAR)
3980: THEN
3981: x_tql_rec.attribute7 := l_tql_rec.attribute7;
3982: END IF;
3983: IF (x_tql_rec.attribute8 = OKC_API.G_MISS_CHAR)
3984: THEN
3985: x_tql_rec.attribute8 := l_tql_rec.attribute8;
3986: END IF;
3987: IF (x_tql_rec.attribute9 = OKC_API.G_MISS_CHAR)
3983: IF (x_tql_rec.attribute8 = OKC_API.G_MISS_CHAR)
3984: THEN
3985: x_tql_rec.attribute8 := l_tql_rec.attribute8;
3986: END IF;
3987: IF (x_tql_rec.attribute9 = OKC_API.G_MISS_CHAR)
3988: THEN
3989: x_tql_rec.attribute9 := l_tql_rec.attribute9;
3990: END IF;
3991: IF (x_tql_rec.attribute10 = OKC_API.G_MISS_CHAR)
3987: IF (x_tql_rec.attribute9 = OKC_API.G_MISS_CHAR)
3988: THEN
3989: x_tql_rec.attribute9 := l_tql_rec.attribute9;
3990: END IF;
3991: IF (x_tql_rec.attribute10 = OKC_API.G_MISS_CHAR)
3992: THEN
3993: x_tql_rec.attribute10 := l_tql_rec.attribute10;
3994: END IF;
3995: IF (x_tql_rec.attribute11 = OKC_API.G_MISS_CHAR)
3991: IF (x_tql_rec.attribute10 = OKC_API.G_MISS_CHAR)
3992: THEN
3993: x_tql_rec.attribute10 := l_tql_rec.attribute10;
3994: END IF;
3995: IF (x_tql_rec.attribute11 = OKC_API.G_MISS_CHAR)
3996: THEN
3997: x_tql_rec.attribute11 := l_tql_rec.attribute11;
3998: END IF;
3999: IF (x_tql_rec.attribute12 = OKC_API.G_MISS_CHAR)
3995: IF (x_tql_rec.attribute11 = OKC_API.G_MISS_CHAR)
3996: THEN
3997: x_tql_rec.attribute11 := l_tql_rec.attribute11;
3998: END IF;
3999: IF (x_tql_rec.attribute12 = OKC_API.G_MISS_CHAR)
4000: THEN
4001: x_tql_rec.attribute12 := l_tql_rec.attribute12;
4002: END IF;
4003: IF (x_tql_rec.attribute13 = OKC_API.G_MISS_CHAR)
3999: IF (x_tql_rec.attribute12 = OKC_API.G_MISS_CHAR)
4000: THEN
4001: x_tql_rec.attribute12 := l_tql_rec.attribute12;
4002: END IF;
4003: IF (x_tql_rec.attribute13 = OKC_API.G_MISS_CHAR)
4004: THEN
4005: x_tql_rec.attribute13 := l_tql_rec.attribute13;
4006: END IF;
4007: IF (x_tql_rec.attribute14 = OKC_API.G_MISS_CHAR)
4003: IF (x_tql_rec.attribute13 = OKC_API.G_MISS_CHAR)
4004: THEN
4005: x_tql_rec.attribute13 := l_tql_rec.attribute13;
4006: END IF;
4007: IF (x_tql_rec.attribute14 = OKC_API.G_MISS_CHAR)
4008: THEN
4009: x_tql_rec.attribute14 := l_tql_rec.attribute14;
4010: END IF;
4011: IF (x_tql_rec.attribute15 = OKC_API.G_MISS_CHAR)
4007: IF (x_tql_rec.attribute14 = OKC_API.G_MISS_CHAR)
4008: THEN
4009: x_tql_rec.attribute14 := l_tql_rec.attribute14;
4010: END IF;
4011: IF (x_tql_rec.attribute15 = OKC_API.G_MISS_CHAR)
4012: THEN
4013: x_tql_rec.attribute15 := l_tql_rec.attribute15;
4014: END IF;
4015: IF (x_tql_rec.created_by = OKC_API.G_MISS_NUM)
4011: IF (x_tql_rec.attribute15 = OKC_API.G_MISS_CHAR)
4012: THEN
4013: x_tql_rec.attribute15 := l_tql_rec.attribute15;
4014: END IF;
4015: IF (x_tql_rec.created_by = OKC_API.G_MISS_NUM)
4016: THEN
4017: x_tql_rec.created_by := l_tql_rec.created_by;
4018: END IF;
4019: IF (x_tql_rec.creation_date = OKC_API.G_MISS_DATE)
4015: IF (x_tql_rec.created_by = OKC_API.G_MISS_NUM)
4016: THEN
4017: x_tql_rec.created_by := l_tql_rec.created_by;
4018: END IF;
4019: IF (x_tql_rec.creation_date = OKC_API.G_MISS_DATE)
4020: THEN
4021: x_tql_rec.creation_date := l_tql_rec.creation_date;
4022: END IF;
4023: IF (x_tql_rec.last_updated_by = OKC_API.G_MISS_NUM)
4019: IF (x_tql_rec.creation_date = OKC_API.G_MISS_DATE)
4020: THEN
4021: x_tql_rec.creation_date := l_tql_rec.creation_date;
4022: END IF;
4023: IF (x_tql_rec.last_updated_by = OKC_API.G_MISS_NUM)
4024: THEN
4025: x_tql_rec.last_updated_by := l_tql_rec.last_updated_by;
4026: END IF;
4027: IF (x_tql_rec.last_update_date = OKC_API.G_MISS_DATE)
4023: IF (x_tql_rec.last_updated_by = OKC_API.G_MISS_NUM)
4024: THEN
4025: x_tql_rec.last_updated_by := l_tql_rec.last_updated_by;
4026: END IF;
4027: IF (x_tql_rec.last_update_date = OKC_API.G_MISS_DATE)
4028: THEN
4029: x_tql_rec.last_update_date := l_tql_rec.last_update_date;
4030: END IF;
4031: IF (x_tql_rec.last_update_login = OKC_API.G_MISS_NUM)
4027: IF (x_tql_rec.last_update_date = OKC_API.G_MISS_DATE)
4028: THEN
4029: x_tql_rec.last_update_date := l_tql_rec.last_update_date;
4030: END IF;
4031: IF (x_tql_rec.last_update_login = OKC_API.G_MISS_NUM)
4032: THEN
4033: x_tql_rec.last_update_login := l_tql_rec.last_update_login;
4034: END IF;
4035: IF (x_tql_rec.start_date = OKC_API.G_MISS_DATE)
4031: IF (x_tql_rec.last_update_login = OKC_API.G_MISS_NUM)
4032: THEN
4033: x_tql_rec.last_update_login := l_tql_rec.last_update_login;
4034: END IF;
4035: IF (x_tql_rec.start_date = OKC_API.G_MISS_DATE)
4036: THEN
4037: x_tql_rec.start_date := l_tql_rec.start_date;
4038: END IF;
4039: IF (x_tql_rec.period = OKC_API.G_MISS_CHAR)
4035: IF (x_tql_rec.start_date = OKC_API.G_MISS_DATE)
4036: THEN
4037: x_tql_rec.start_date := l_tql_rec.start_date;
4038: END IF;
4039: IF (x_tql_rec.period = OKC_API.G_MISS_CHAR)
4040: THEN
4041: x_tql_rec.period := l_tql_rec.period;
4042: END IF;
4043: IF (x_tql_rec.number_of_periods = OKC_API.G_MISS_NUM)
4039: IF (x_tql_rec.period = OKC_API.G_MISS_CHAR)
4040: THEN
4041: x_tql_rec.period := l_tql_rec.period;
4042: END IF;
4043: IF (x_tql_rec.number_of_periods = OKC_API.G_MISS_NUM)
4044: THEN
4045: x_tql_rec.number_of_periods := l_tql_rec.number_of_periods;
4046: END IF;
4047: IF (x_tql_rec.lock_level_step = OKC_API.G_MISS_CHAR)
4043: IF (x_tql_rec.number_of_periods = OKC_API.G_MISS_NUM)
4044: THEN
4045: x_tql_rec.number_of_periods := l_tql_rec.number_of_periods;
4046: END IF;
4047: IF (x_tql_rec.lock_level_step = OKC_API.G_MISS_CHAR)
4048: THEN
4049: x_tql_rec.lock_level_step := l_tql_rec.lock_level_step;
4050: END IF;
4051: IF (x_tql_rec.advance_or_arrears = OKC_API.G_MISS_CHAR)
4047: IF (x_tql_rec.lock_level_step = OKC_API.G_MISS_CHAR)
4048: THEN
4049: x_tql_rec.lock_level_step := l_tql_rec.lock_level_step;
4050: END IF;
4051: IF (x_tql_rec.advance_or_arrears = OKC_API.G_MISS_CHAR)
4052: THEN
4053: x_tql_rec.advance_or_arrears := l_tql_rec.advance_or_arrears;
4054: END IF;
4055: IF (x_tql_rec.yield_name = OKC_API.G_MISS_CHAR)
4051: IF (x_tql_rec.advance_or_arrears = OKC_API.G_MISS_CHAR)
4052: THEN
4053: x_tql_rec.advance_or_arrears := l_tql_rec.advance_or_arrears;
4054: END IF;
4055: IF (x_tql_rec.yield_name = OKC_API.G_MISS_CHAR)
4056: THEN
4057: x_tql_rec.yield_name := l_tql_rec.yield_name;
4058: END IF;
4059: IF (x_tql_rec.yield_value = OKC_API.G_MISS_NUM)
4055: IF (x_tql_rec.yield_name = OKC_API.G_MISS_CHAR)
4056: THEN
4057: x_tql_rec.yield_name := l_tql_rec.yield_name;
4058: END IF;
4059: IF (x_tql_rec.yield_value = OKC_API.G_MISS_NUM)
4060: THEN
4061: x_tql_rec.yield_value := l_tql_rec.yield_value;
4062: END IF;
4063: IF (x_tql_rec.implicit_interest_rate = OKC_API.G_MISS_NUM)
4059: IF (x_tql_rec.yield_value = OKC_API.G_MISS_NUM)
4060: THEN
4061: x_tql_rec.yield_value := l_tql_rec.yield_value;
4062: END IF;
4063: IF (x_tql_rec.implicit_interest_rate = OKC_API.G_MISS_NUM)
4064: THEN
4065: x_tql_rec.implicit_interest_rate := l_tql_rec.implicit_interest_rate;
4066: END IF;
4067: IF (x_tql_rec.asset_value = OKC_API.G_MISS_NUM)
4063: IF (x_tql_rec.implicit_interest_rate = OKC_API.G_MISS_NUM)
4064: THEN
4065: x_tql_rec.implicit_interest_rate := l_tql_rec.implicit_interest_rate;
4066: END IF;
4067: IF (x_tql_rec.asset_value = OKC_API.G_MISS_NUM)
4068: THEN
4069: x_tql_rec.asset_value := l_tql_rec.asset_value;
4070: END IF;
4071: IF (x_tql_rec.residual_value = OKC_API.G_MISS_NUM)
4067: IF (x_tql_rec.asset_value = OKC_API.G_MISS_NUM)
4068: THEN
4069: x_tql_rec.asset_value := l_tql_rec.asset_value;
4070: END IF;
4071: IF (x_tql_rec.residual_value = OKC_API.G_MISS_NUM)
4072: THEN
4073: x_tql_rec.residual_value := l_tql_rec.residual_value;
4074: END IF;
4075: IF (x_tql_rec.unbilled_receivables = OKC_API.G_MISS_NUM)
4071: IF (x_tql_rec.residual_value = OKC_API.G_MISS_NUM)
4072: THEN
4073: x_tql_rec.residual_value := l_tql_rec.residual_value;
4074: END IF;
4075: IF (x_tql_rec.unbilled_receivables = OKC_API.G_MISS_NUM)
4076: THEN
4077: x_tql_rec.unbilled_receivables := l_tql_rec.unbilled_receivables;
4078: END IF;
4079: IF (x_tql_rec.asset_quantity = OKC_API.G_MISS_NUM)
4075: IF (x_tql_rec.unbilled_receivables = OKC_API.G_MISS_NUM)
4076: THEN
4077: x_tql_rec.unbilled_receivables := l_tql_rec.unbilled_receivables;
4078: END IF;
4079: IF (x_tql_rec.asset_quantity = OKC_API.G_MISS_NUM)
4080: THEN
4081: x_tql_rec.asset_quantity := l_tql_rec.asset_quantity;
4082: END IF;
4083: IF (x_tql_rec.quote_quantity = OKC_API.G_MISS_NUM)
4079: IF (x_tql_rec.asset_quantity = OKC_API.G_MISS_NUM)
4080: THEN
4081: x_tql_rec.asset_quantity := l_tql_rec.asset_quantity;
4082: END IF;
4083: IF (x_tql_rec.quote_quantity = OKC_API.G_MISS_NUM)
4084: THEN
4085: x_tql_rec.quote_quantity := l_tql_rec.quote_quantity;
4086: END IF;
4087: IF (x_tql_rec.split_kle_id = OKC_API.G_MISS_NUM)
4083: IF (x_tql_rec.quote_quantity = OKC_API.G_MISS_NUM)
4084: THEN
4085: x_tql_rec.quote_quantity := l_tql_rec.quote_quantity;
4086: END IF;
4087: IF (x_tql_rec.split_kle_id = OKC_API.G_MISS_NUM)
4088: THEN
4089: x_tql_rec.split_kle_id := l_tql_rec.split_kle_id;
4090: END IF;
4091: -- RMUNJULU 2757312
4088: THEN
4089: x_tql_rec.split_kle_id := l_tql_rec.split_kle_id;
4090: END IF;
4091: -- RMUNJULU 2757312
4092: IF (x_tql_rec.split_kle_name = OKC_API.G_MISS_CHAR)
4093: THEN
4094: x_tql_rec.split_kle_name := l_tql_rec.split_kle_name;
4095: END IF;
4096: -- BAKUCHIB 2667636 Start
4093: THEN
4094: x_tql_rec.split_kle_name := l_tql_rec.split_kle_name;
4095: END IF;
4096: -- BAKUCHIB 2667636 Start
4097: IF (x_tql_rec.currency_code = OKC_API.G_MISS_CHAR)
4098: THEN
4099: x_tql_rec.currency_code := l_tql_rec.currency_code;
4100: END IF;
4101: IF (x_tql_rec.currency_conversion_code = OKC_API.G_MISS_CHAR)
4097: IF (x_tql_rec.currency_code = OKC_API.G_MISS_CHAR)
4098: THEN
4099: x_tql_rec.currency_code := l_tql_rec.currency_code;
4100: END IF;
4101: IF (x_tql_rec.currency_conversion_code = OKC_API.G_MISS_CHAR)
4102: THEN
4103: x_tql_rec.currency_conversion_code := l_tql_rec.currency_conversion_code;
4104: END IF;
4105: IF (x_tql_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
4101: IF (x_tql_rec.currency_conversion_code = OKC_API.G_MISS_CHAR)
4102: THEN
4103: x_tql_rec.currency_conversion_code := l_tql_rec.currency_conversion_code;
4104: END IF;
4105: IF (x_tql_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
4106: THEN
4107: x_tql_rec.currency_conversion_type := l_tql_rec.currency_conversion_type;
4108: END IF;
4109: IF (x_tql_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
4105: IF (x_tql_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
4106: THEN
4107: x_tql_rec.currency_conversion_type := l_tql_rec.currency_conversion_type;
4108: END IF;
4109: IF (x_tql_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
4110: THEN
4111: x_tql_rec.currency_conversion_rate := l_tql_rec.currency_conversion_rate;
4112: END IF;
4113: IF (x_tql_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
4109: IF (x_tql_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
4110: THEN
4111: x_tql_rec.currency_conversion_rate := l_tql_rec.currency_conversion_rate;
4112: END IF;
4113: IF (x_tql_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
4114: THEN
4115: x_tql_rec.currency_conversion_date := l_tql_rec.currency_conversion_date;
4116: END IF;
4117: -- BAKUCHIB 2667636 End
4116: END IF;
4117: -- BAKUCHIB 2667636 End
4118: --PAGARG 4161133 start
4119: -- populate attribute due date, added new to column
4120: IF (x_tql_rec.due_date = OKC_API.G_MISS_DATE)
4121: THEN
4122: x_tql_rec.due_date := l_tql_rec.due_date;
4123: END IF;
4124: --PAGARG 4161133 end
4122: x_tql_rec.due_date := l_tql_rec.due_date;
4123: END IF;
4124: --PAGARG 4161133 end
4125: -- rmunjulu Sales_Tax_Enhancement
4126: IF (x_tql_rec.try_id = OKC_API.G_MISS_NUM)
4127: THEN
4128: x_tql_rec.try_id := l_tql_rec.try_id;
4129: END IF;
4130: RETURN(l_return_status);
4135: FUNCTION Set_Attributes (
4136: p_tql_rec IN tql_rec_type,
4137: x_tql_rec OUT NOCOPY tql_rec_type
4138: ) RETURN VARCHAR2 IS
4139: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4140: BEGIN
4141: x_tql_rec := p_tql_rec;
4142: RETURN(l_return_status);
4143: END Set_Attributes;
4141: x_tql_rec := p_tql_rec;
4142: RETURN(l_return_status);
4143: END Set_Attributes;
4144: BEGIN
4145: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4146: p_init_msg_list,
4147: '_PVT',
4148: x_return_status);
4149: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4145: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4146: p_init_msg_list,
4147: '_PVT',
4148: x_return_status);
4149: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4150: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4151: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4152: RAISE OKC_API.G_EXCEPTION_ERROR;
4153: END IF;
4146: p_init_msg_list,
4147: '_PVT',
4148: x_return_status);
4149: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4150: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4151: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4152: RAISE OKC_API.G_EXCEPTION_ERROR;
4153: END IF;
4154: --- Setting item attributes
4147: '_PVT',
4148: x_return_status);
4149: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4150: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4151: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4152: RAISE OKC_API.G_EXCEPTION_ERROR;
4153: END IF;
4154: --- Setting item attributes
4155: l_return_status := Set_Attributes(
4148: x_return_status);
4149: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4150: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4151: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4152: RAISE OKC_API.G_EXCEPTION_ERROR;
4153: END IF;
4154: --- Setting item attributes
4155: l_return_status := Set_Attributes(
4156: p_tql_rec, -- IN
4155: l_return_status := Set_Attributes(
4156: p_tql_rec, -- IN
4157: l_tql_rec); -- OUT
4158: --- If any errors happen abort API
4159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4162: RAISE OKC_API.G_EXCEPTION_ERROR;
4163: END IF;
4156: p_tql_rec, -- IN
4157: l_tql_rec); -- OUT
4158: --- If any errors happen abort API
4159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4162: RAISE OKC_API.G_EXCEPTION_ERROR;
4163: END IF;
4164: l_return_status := populate_new_record(l_tql_rec, l_def_tql_rec);
4157: l_tql_rec); -- OUT
4158: --- If any errors happen abort API
4159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4162: RAISE OKC_API.G_EXCEPTION_ERROR;
4163: END IF;
4164: l_return_status := populate_new_record(l_tql_rec, l_def_tql_rec);
4165: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4158: --- If any errors happen abort API
4159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4162: RAISE OKC_API.G_EXCEPTION_ERROR;
4163: END IF;
4164: l_return_status := populate_new_record(l_tql_rec, l_def_tql_rec);
4165: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4162: RAISE OKC_API.G_EXCEPTION_ERROR;
4163: END IF;
4164: l_return_status := populate_new_record(l_tql_rec, l_def_tql_rec);
4165: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4167: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4168: RAISE OKC_API.G_EXCEPTION_ERROR;
4169: END IF;
4162: RAISE OKC_API.G_EXCEPTION_ERROR;
4163: END IF;
4164: l_return_status := populate_new_record(l_tql_rec, l_def_tql_rec);
4165: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4167: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4168: RAISE OKC_API.G_EXCEPTION_ERROR;
4169: END IF;
4170: UPDATE OKL_TXL_QUOTE_LINES_B
4163: END IF;
4164: l_return_status := populate_new_record(l_tql_rec, l_def_tql_rec);
4165: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4167: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4168: RAISE OKC_API.G_EXCEPTION_ERROR;
4169: END IF;
4170: UPDATE OKL_TXL_QUOTE_LINES_B
4171: SET STY_ID = l_def_tql_rec.sty_id,
4164: l_return_status := populate_new_record(l_tql_rec, l_def_tql_rec);
4165: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4167: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4168: RAISE OKC_API.G_EXCEPTION_ERROR;
4169: END IF;
4170: UPDATE OKL_TXL_QUOTE_LINES_B
4171: SET STY_ID = l_def_tql_rec.sty_id,
4172: KLE_ID = l_def_tql_rec.kle_id,
4236: TRY_ID = l_def_tql_rec.try_id-- rmunjulu Sales_Tax_Enhancement
4237: WHERE ID = l_def_tql_rec.id;
4238:
4239: x_tql_rec := l_def_tql_rec;
4240: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4241: EXCEPTION
4242: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4243: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4244: (
4238:
4239: x_tql_rec := l_def_tql_rec;
4240: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4241: EXCEPTION
4242: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4243: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4244: (
4245: l_api_name,
4246: G_PKG_NAME,
4239: x_tql_rec := l_def_tql_rec;
4240: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4241: EXCEPTION
4242: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4243: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4244: (
4245: l_api_name,
4246: G_PKG_NAME,
4247: 'OKC_API.G_RET_STS_ERROR',
4243: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4244: (
4245: l_api_name,
4246: G_PKG_NAME,
4247: 'OKC_API.G_RET_STS_ERROR',
4248: x_msg_count,
4249: x_msg_data,
4250: '_PVT'
4251: );
4248: x_msg_count,
4249: x_msg_data,
4250: '_PVT'
4251: );
4252: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4253: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4254: (
4255: l_api_name,
4256: G_PKG_NAME,
4249: x_msg_data,
4250: '_PVT'
4251: );
4252: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4253: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4254: (
4255: l_api_name,
4256: G_PKG_NAME,
4257: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4253: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4254: (
4255: l_api_name,
4256: G_PKG_NAME,
4257: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4258: x_msg_count,
4259: x_msg_data,
4260: '_PVT'
4261: );
4259: x_msg_data,
4260: '_PVT'
4261: );
4262: WHEN OTHERS THEN
4263: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4264: (
4265: l_api_name,
4266: G_PKG_NAME,
4267: 'OTHERS',
4282: x_okl_txl_quote_lines_tl_rec OUT NOCOPY OklTxlQuoteLinesTlRecType) IS
4283:
4284: l_api_version CONSTANT NUMBER := 1;
4285: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
4286: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4287: l_okl_txl_quote_lines_tl_rec OklTxlQuoteLinesTlRecType := p_okl_txl_quote_lines_tl_rec;
4288: ldefokltxlquotelinestlrec OklTxlQuoteLinesTlRecType;
4289: l_row_notfound BOOLEAN := TRUE;
4290: ----------------------------------
4295: x_okl_txl_quote_lines_tl_rec OUT NOCOPY OklTxlQuoteLinesTlRecType
4296: ) RETURN VARCHAR2 IS
4297: l_okl_txl_quote_lines_tl_rec OklTxlQuoteLinesTlRecType;
4298: l_row_notfound BOOLEAN := TRUE;
4299: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4300: BEGIN
4301: x_okl_txl_quote_lines_tl_rec := p_okl_txl_quote_lines_tl_rec;
4302: -- Get current database values
4303: l_okl_txl_quote_lines_tl_rec := get_rec(p_okl_txl_quote_lines_tl_rec, l_row_notfound);
4301: x_okl_txl_quote_lines_tl_rec := p_okl_txl_quote_lines_tl_rec;
4302: -- Get current database values
4303: l_okl_txl_quote_lines_tl_rec := get_rec(p_okl_txl_quote_lines_tl_rec, l_row_notfound);
4304: IF (l_row_notfound) THEN
4305: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4306: END IF;
4307: IF (x_okl_txl_quote_lines_tl_rec.id = OKC_API.G_MISS_NUM)
4308: THEN
4309: x_okl_txl_quote_lines_tl_rec.id := l_okl_txl_quote_lines_tl_rec.id;
4303: l_okl_txl_quote_lines_tl_rec := get_rec(p_okl_txl_quote_lines_tl_rec, l_row_notfound);
4304: IF (l_row_notfound) THEN
4305: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4306: END IF;
4307: IF (x_okl_txl_quote_lines_tl_rec.id = OKC_API.G_MISS_NUM)
4308: THEN
4309: x_okl_txl_quote_lines_tl_rec.id := l_okl_txl_quote_lines_tl_rec.id;
4310: END IF;
4311: IF (x_okl_txl_quote_lines_tl_rec.language = OKC_API.G_MISS_CHAR)
4307: IF (x_okl_txl_quote_lines_tl_rec.id = OKC_API.G_MISS_NUM)
4308: THEN
4309: x_okl_txl_quote_lines_tl_rec.id := l_okl_txl_quote_lines_tl_rec.id;
4310: END IF;
4311: IF (x_okl_txl_quote_lines_tl_rec.language = OKC_API.G_MISS_CHAR)
4312: THEN
4313: x_okl_txl_quote_lines_tl_rec.language := l_okl_txl_quote_lines_tl_rec.language;
4314: END IF;
4315: IF (x_okl_txl_quote_lines_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
4311: IF (x_okl_txl_quote_lines_tl_rec.language = OKC_API.G_MISS_CHAR)
4312: THEN
4313: x_okl_txl_quote_lines_tl_rec.language := l_okl_txl_quote_lines_tl_rec.language;
4314: END IF;
4315: IF (x_okl_txl_quote_lines_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
4316: THEN
4317: x_okl_txl_quote_lines_tl_rec.source_lang := l_okl_txl_quote_lines_tl_rec.source_lang;
4318: END IF;
4319: IF (x_okl_txl_quote_lines_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4315: IF (x_okl_txl_quote_lines_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
4316: THEN
4317: x_okl_txl_quote_lines_tl_rec.source_lang := l_okl_txl_quote_lines_tl_rec.source_lang;
4318: END IF;
4319: IF (x_okl_txl_quote_lines_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4320: THEN
4321: x_okl_txl_quote_lines_tl_rec.sfwt_flag := l_okl_txl_quote_lines_tl_rec.sfwt_flag;
4322: END IF;
4323: IF (x_okl_txl_quote_lines_tl_rec.description = OKC_API.G_MISS_CHAR)
4319: IF (x_okl_txl_quote_lines_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4320: THEN
4321: x_okl_txl_quote_lines_tl_rec.sfwt_flag := l_okl_txl_quote_lines_tl_rec.sfwt_flag;
4322: END IF;
4323: IF (x_okl_txl_quote_lines_tl_rec.description = OKC_API.G_MISS_CHAR)
4324: THEN
4325: x_okl_txl_quote_lines_tl_rec.description := l_okl_txl_quote_lines_tl_rec.description;
4326: END IF;
4327: IF (x_okl_txl_quote_lines_tl_rec.created_by = OKC_API.G_MISS_NUM)
4323: IF (x_okl_txl_quote_lines_tl_rec.description = OKC_API.G_MISS_CHAR)
4324: THEN
4325: x_okl_txl_quote_lines_tl_rec.description := l_okl_txl_quote_lines_tl_rec.description;
4326: END IF;
4327: IF (x_okl_txl_quote_lines_tl_rec.created_by = OKC_API.G_MISS_NUM)
4328: THEN
4329: x_okl_txl_quote_lines_tl_rec.created_by := l_okl_txl_quote_lines_tl_rec.created_by;
4330: END IF;
4331: IF (x_okl_txl_quote_lines_tl_rec.creation_date = OKC_API.G_MISS_DATE)
4327: IF (x_okl_txl_quote_lines_tl_rec.created_by = OKC_API.G_MISS_NUM)
4328: THEN
4329: x_okl_txl_quote_lines_tl_rec.created_by := l_okl_txl_quote_lines_tl_rec.created_by;
4330: END IF;
4331: IF (x_okl_txl_quote_lines_tl_rec.creation_date = OKC_API.G_MISS_DATE)
4332: THEN
4333: x_okl_txl_quote_lines_tl_rec.creation_date := l_okl_txl_quote_lines_tl_rec.creation_date;
4334: END IF;
4335: IF (x_okl_txl_quote_lines_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
4331: IF (x_okl_txl_quote_lines_tl_rec.creation_date = OKC_API.G_MISS_DATE)
4332: THEN
4333: x_okl_txl_quote_lines_tl_rec.creation_date := l_okl_txl_quote_lines_tl_rec.creation_date;
4334: END IF;
4335: IF (x_okl_txl_quote_lines_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
4336: THEN
4337: x_okl_txl_quote_lines_tl_rec.last_updated_by := l_okl_txl_quote_lines_tl_rec.last_updated_by;
4338: END IF;
4339: IF (x_okl_txl_quote_lines_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
4335: IF (x_okl_txl_quote_lines_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
4336: THEN
4337: x_okl_txl_quote_lines_tl_rec.last_updated_by := l_okl_txl_quote_lines_tl_rec.last_updated_by;
4338: END IF;
4339: IF (x_okl_txl_quote_lines_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
4340: THEN
4341: x_okl_txl_quote_lines_tl_rec.last_update_date := l_okl_txl_quote_lines_tl_rec.last_update_date;
4342: END IF;
4343: IF (x_okl_txl_quote_lines_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
4339: IF (x_okl_txl_quote_lines_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
4340: THEN
4341: x_okl_txl_quote_lines_tl_rec.last_update_date := l_okl_txl_quote_lines_tl_rec.last_update_date;
4342: END IF;
4343: IF (x_okl_txl_quote_lines_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
4344: THEN
4345: x_okl_txl_quote_lines_tl_rec.last_update_login := l_okl_txl_quote_lines_tl_rec.last_update_login;
4346: END IF;
4347: RETURN(l_return_status);
4352: FUNCTION Set_Attributes (
4353: p_okl_txl_quote_lines_tl_rec IN OklTxlQuoteLinesTlRecType,
4354: x_okl_txl_quote_lines_tl_rec OUT NOCOPY OklTxlQuoteLinesTlRecType
4355: ) RETURN VARCHAR2 IS
4356: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4357: BEGIN
4358: x_okl_txl_quote_lines_tl_rec := p_okl_txl_quote_lines_tl_rec;
4359: x_okl_txl_quote_lines_tl_rec.LANGUAGE := USERENV('LANG');
4360: x_okl_txl_quote_lines_tl_rec.SOURCE_LANG := USERENV('LANG');
4360: x_okl_txl_quote_lines_tl_rec.SOURCE_LANG := USERENV('LANG');
4361: RETURN(l_return_status);
4362: END Set_Attributes;
4363: BEGIN
4364: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4365: p_init_msg_list,
4366: '_PVT',
4367: x_return_status);
4368: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4364: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4365: p_init_msg_list,
4366: '_PVT',
4367: x_return_status);
4368: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4369: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4370: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4371: RAISE OKC_API.G_EXCEPTION_ERROR;
4372: END IF;
4365: p_init_msg_list,
4366: '_PVT',
4367: x_return_status);
4368: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4369: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4370: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4371: RAISE OKC_API.G_EXCEPTION_ERROR;
4372: END IF;
4373: --- Setting item attributes
4366: '_PVT',
4367: x_return_status);
4368: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4369: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4370: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4371: RAISE OKC_API.G_EXCEPTION_ERROR;
4372: END IF;
4373: --- Setting item attributes
4374: l_return_status := Set_Attributes(
4367: x_return_status);
4368: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4369: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4370: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4371: RAISE OKC_API.G_EXCEPTION_ERROR;
4372: END IF;
4373: --- Setting item attributes
4374: l_return_status := Set_Attributes(
4375: p_okl_txl_quote_lines_tl_rec, -- IN
4374: l_return_status := Set_Attributes(
4375: p_okl_txl_quote_lines_tl_rec, -- IN
4376: l_okl_txl_quote_lines_tl_rec); -- OUT
4377: --- If any errors happen abort API
4378: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4379: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4380: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4381: RAISE OKC_API.G_EXCEPTION_ERROR;
4382: END IF;
4375: p_okl_txl_quote_lines_tl_rec, -- IN
4376: l_okl_txl_quote_lines_tl_rec); -- OUT
4377: --- If any errors happen abort API
4378: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4379: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4380: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4381: RAISE OKC_API.G_EXCEPTION_ERROR;
4382: END IF;
4383: l_return_status := populate_new_record(l_okl_txl_quote_lines_tl_rec, ldefokltxlquotelinestlrec);
4376: l_okl_txl_quote_lines_tl_rec); -- OUT
4377: --- If any errors happen abort API
4378: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4379: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4380: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4381: RAISE OKC_API.G_EXCEPTION_ERROR;
4382: END IF;
4383: l_return_status := populate_new_record(l_okl_txl_quote_lines_tl_rec, ldefokltxlquotelinestlrec);
4384: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4377: --- If any errors happen abort API
4378: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4379: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4380: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4381: RAISE OKC_API.G_EXCEPTION_ERROR;
4382: END IF;
4383: l_return_status := populate_new_record(l_okl_txl_quote_lines_tl_rec, ldefokltxlquotelinestlrec);
4384: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4385: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4380: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4381: RAISE OKC_API.G_EXCEPTION_ERROR;
4382: END IF;
4383: l_return_status := populate_new_record(l_okl_txl_quote_lines_tl_rec, ldefokltxlquotelinestlrec);
4384: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4385: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4386: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4387: RAISE OKC_API.G_EXCEPTION_ERROR;
4388: END IF;
4381: RAISE OKC_API.G_EXCEPTION_ERROR;
4382: END IF;
4383: l_return_status := populate_new_record(l_okl_txl_quote_lines_tl_rec, ldefokltxlquotelinestlrec);
4384: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4385: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4386: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4387: RAISE OKC_API.G_EXCEPTION_ERROR;
4388: END IF;
4389: UPDATE OKL_TXL_QUOTE_LINES_TL
4382: END IF;
4383: l_return_status := populate_new_record(l_okl_txl_quote_lines_tl_rec, ldefokltxlquotelinestlrec);
4384: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4385: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4386: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4387: RAISE OKC_API.G_EXCEPTION_ERROR;
4388: END IF;
4389: UPDATE OKL_TXL_QUOTE_LINES_TL
4390: SET DESCRIPTION = ldefokltxlquotelinestlrec.description,
4383: l_return_status := populate_new_record(l_okl_txl_quote_lines_tl_rec, ldefokltxlquotelinestlrec);
4384: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4385: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4386: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4387: RAISE OKC_API.G_EXCEPTION_ERROR;
4388: END IF;
4389: UPDATE OKL_TXL_QUOTE_LINES_TL
4390: SET DESCRIPTION = ldefokltxlquotelinestlrec.description,
4391: CREATED_BY = ldefokltxlquotelinestlrec.created_by,
4403: WHERE ID = ldefokltxlquotelinestlrec.id
4404: AND SOURCE_LANG <> USERENV('LANG');
4405:
4406: x_okl_txl_quote_lines_tl_rec := ldefokltxlquotelinestlrec;
4407: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4408: EXCEPTION
4409: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4410: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4411: (
4405:
4406: x_okl_txl_quote_lines_tl_rec := ldefokltxlquotelinestlrec;
4407: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4408: EXCEPTION
4409: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4410: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4411: (
4412: l_api_name,
4413: G_PKG_NAME,
4406: x_okl_txl_quote_lines_tl_rec := ldefokltxlquotelinestlrec;
4407: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4408: EXCEPTION
4409: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4410: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4411: (
4412: l_api_name,
4413: G_PKG_NAME,
4414: 'OKC_API.G_RET_STS_ERROR',
4410: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4411: (
4412: l_api_name,
4413: G_PKG_NAME,
4414: 'OKC_API.G_RET_STS_ERROR',
4415: x_msg_count,
4416: x_msg_data,
4417: '_PVT'
4418: );
4415: x_msg_count,
4416: x_msg_data,
4417: '_PVT'
4418: );
4419: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4420: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4421: (
4422: l_api_name,
4423: G_PKG_NAME,
4416: x_msg_data,
4417: '_PVT'
4418: );
4419: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4420: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4421: (
4422: l_api_name,
4423: G_PKG_NAME,
4424: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4420: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4421: (
4422: l_api_name,
4423: G_PKG_NAME,
4424: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4425: x_msg_count,
4426: x_msg_data,
4427: '_PVT'
4428: );
4426: x_msg_data,
4427: '_PVT'
4428: );
4429: WHEN OTHERS THEN
4430: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4431: (
4432: l_api_name,
4433: G_PKG_NAME,
4434: 'OTHERS',
4463: x_tqlv_rec OUT NOCOPY tqlv_rec_type) IS
4464:
4465: l_api_version CONSTANT NUMBER := 1;
4466: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
4467: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4468: l_tqlv_rec tqlv_rec_type := p_tqlv_rec;
4469: l_def_tqlv_rec tqlv_rec_type;
4470: l_okl_txl_quote_lines_tl_rec OklTxlQuoteLinesTlRecType;
4471: lx_okl_txl_quote_lines_tl_rec OklTxlQuoteLinesTlRecType;
4507: x_tqlv_rec OUT NOCOPY tqlv_rec_type
4508: ) RETURN VARCHAR2 IS
4509: l_tqlv_rec tqlv_rec_type;
4510: l_row_notfound BOOLEAN := TRUE;
4511: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4512: BEGIN
4513: x_tqlv_rec := p_tqlv_rec;
4514: -- Get current database values
4515: l_tqlv_rec := get_rec(p_tqlv_rec, l_row_notfound);
4513: x_tqlv_rec := p_tqlv_rec;
4514: -- Get current database values
4515: l_tqlv_rec := get_rec(p_tqlv_rec, l_row_notfound);
4516: IF (l_row_notfound) THEN
4517: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4518: END IF;
4519: IF (x_tqlv_rec.id = OKC_API.G_MISS_NUM)
4520: THEN
4521: x_tqlv_rec.id := l_tqlv_rec.id;
4515: l_tqlv_rec := get_rec(p_tqlv_rec, l_row_notfound);
4516: IF (l_row_notfound) THEN
4517: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4518: END IF;
4519: IF (x_tqlv_rec.id = OKC_API.G_MISS_NUM)
4520: THEN
4521: x_tqlv_rec.id := l_tqlv_rec.id;
4522: END IF;
4523: IF (x_tqlv_rec.object_version_number = OKC_API.G_MISS_NUM)
4519: IF (x_tqlv_rec.id = OKC_API.G_MISS_NUM)
4520: THEN
4521: x_tqlv_rec.id := l_tqlv_rec.id;
4522: END IF;
4523: IF (x_tqlv_rec.object_version_number = OKC_API.G_MISS_NUM)
4524: THEN
4525: x_tqlv_rec.object_version_number := l_tqlv_rec.object_version_number;
4526: END IF;
4527: IF (x_tqlv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4523: IF (x_tqlv_rec.object_version_number = OKC_API.G_MISS_NUM)
4524: THEN
4525: x_tqlv_rec.object_version_number := l_tqlv_rec.object_version_number;
4526: END IF;
4527: IF (x_tqlv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4528: THEN
4529: x_tqlv_rec.sfwt_flag := l_tqlv_rec.sfwt_flag;
4530: END IF;
4531: IF (x_tqlv_rec.qlt_code = OKC_API.G_MISS_CHAR)
4527: IF (x_tqlv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4528: THEN
4529: x_tqlv_rec.sfwt_flag := l_tqlv_rec.sfwt_flag;
4530: END IF;
4531: IF (x_tqlv_rec.qlt_code = OKC_API.G_MISS_CHAR)
4532: THEN
4533: x_tqlv_rec.qlt_code := l_tqlv_rec.qlt_code;
4534: END IF;
4535: IF (x_tqlv_rec.kle_id = OKC_API.G_MISS_NUM)
4531: IF (x_tqlv_rec.qlt_code = OKC_API.G_MISS_CHAR)
4532: THEN
4533: x_tqlv_rec.qlt_code := l_tqlv_rec.qlt_code;
4534: END IF;
4535: IF (x_tqlv_rec.kle_id = OKC_API.G_MISS_NUM)
4536: THEN
4537: x_tqlv_rec.kle_id := l_tqlv_rec.kle_id;
4538: END IF;
4539: IF (x_tqlv_rec.sty_id = OKC_API.G_MISS_NUM)
4535: IF (x_tqlv_rec.kle_id = OKC_API.G_MISS_NUM)
4536: THEN
4537: x_tqlv_rec.kle_id := l_tqlv_rec.kle_id;
4538: END IF;
4539: IF (x_tqlv_rec.sty_id = OKC_API.G_MISS_NUM)
4540: THEN
4541: x_tqlv_rec.sty_id := l_tqlv_rec.sty_id;
4542: END IF;
4543: IF (x_tqlv_rec.qte_id = OKC_API.G_MISS_NUM)
4539: IF (x_tqlv_rec.sty_id = OKC_API.G_MISS_NUM)
4540: THEN
4541: x_tqlv_rec.sty_id := l_tqlv_rec.sty_id;
4542: END IF;
4543: IF (x_tqlv_rec.qte_id = OKC_API.G_MISS_NUM)
4544: THEN
4545: x_tqlv_rec.qte_id := l_tqlv_rec.qte_id;
4546: END IF;
4547: IF (x_tqlv_rec.line_number = OKC_API.G_MISS_NUM)
4543: IF (x_tqlv_rec.qte_id = OKC_API.G_MISS_NUM)
4544: THEN
4545: x_tqlv_rec.qte_id := l_tqlv_rec.qte_id;
4546: END IF;
4547: IF (x_tqlv_rec.line_number = OKC_API.G_MISS_NUM)
4548: THEN
4549: x_tqlv_rec.line_number := l_tqlv_rec.line_number;
4550: END IF;
4551: IF (x_tqlv_rec.description = OKC_API.G_MISS_CHAR)
4547: IF (x_tqlv_rec.line_number = OKC_API.G_MISS_NUM)
4548: THEN
4549: x_tqlv_rec.line_number := l_tqlv_rec.line_number;
4550: END IF;
4551: IF (x_tqlv_rec.description = OKC_API.G_MISS_CHAR)
4552: THEN
4553: x_tqlv_rec.description := l_tqlv_rec.description;
4554: END IF;
4555: IF (x_tqlv_rec.amount = OKC_API.G_MISS_NUM)
4551: IF (x_tqlv_rec.description = OKC_API.G_MISS_CHAR)
4552: THEN
4553: x_tqlv_rec.description := l_tqlv_rec.description;
4554: END IF;
4555: IF (x_tqlv_rec.amount = OKC_API.G_MISS_NUM)
4556: THEN
4557: x_tqlv_rec.amount := l_tqlv_rec.amount;
4558: -- DAPATEL - 01/08/02 - Added to reflect a manual amount updated.
4559: ELSE
4561: x_tqlv_rec.MODIFIED_YN := G_YES;
4562: END IF;
4563: -- End
4564: END IF;
4565: IF (x_tqlv_rec.modified_yn = OKC_API.G_MISS_CHAR)
4566: THEN
4567: x_tqlv_rec.modified_yn := l_tqlv_rec.modified_yn;
4568: END IF;
4569: IF (x_tqlv_rec.defaulted_yn = OKC_API.G_MISS_CHAR)
4565: IF (x_tqlv_rec.modified_yn = OKC_API.G_MISS_CHAR)
4566: THEN
4567: x_tqlv_rec.modified_yn := l_tqlv_rec.modified_yn;
4568: END IF;
4569: IF (x_tqlv_rec.defaulted_yn = OKC_API.G_MISS_CHAR)
4570: THEN
4571: x_tqlv_rec.defaulted_yn := l_tqlv_rec.defaulted_yn;
4572: END IF;
4573: IF (x_tqlv_rec.taxed_yn = OKC_API.G_MISS_CHAR)
4569: IF (x_tqlv_rec.defaulted_yn = OKC_API.G_MISS_CHAR)
4570: THEN
4571: x_tqlv_rec.defaulted_yn := l_tqlv_rec.defaulted_yn;
4572: END IF;
4573: IF (x_tqlv_rec.taxed_yn = OKC_API.G_MISS_CHAR)
4574: THEN
4575: x_tqlv_rec.taxed_yn := l_tqlv_rec.taxed_yn;
4576: END IF;
4577: IF (x_tqlv_rec.attribute_category = OKC_API.G_MISS_CHAR)
4573: IF (x_tqlv_rec.taxed_yn = OKC_API.G_MISS_CHAR)
4574: THEN
4575: x_tqlv_rec.taxed_yn := l_tqlv_rec.taxed_yn;
4576: END IF;
4577: IF (x_tqlv_rec.attribute_category = OKC_API.G_MISS_CHAR)
4578: THEN
4579: x_tqlv_rec.attribute_category := l_tqlv_rec.attribute_category;
4580: END IF;
4581: IF (x_tqlv_rec.attribute1 = OKC_API.G_MISS_CHAR)
4577: IF (x_tqlv_rec.attribute_category = OKC_API.G_MISS_CHAR)
4578: THEN
4579: x_tqlv_rec.attribute_category := l_tqlv_rec.attribute_category;
4580: END IF;
4581: IF (x_tqlv_rec.attribute1 = OKC_API.G_MISS_CHAR)
4582: THEN
4583: x_tqlv_rec.attribute1 := l_tqlv_rec.attribute1;
4584: END IF;
4585: IF (x_tqlv_rec.attribute2 = OKC_API.G_MISS_CHAR)
4581: IF (x_tqlv_rec.attribute1 = OKC_API.G_MISS_CHAR)
4582: THEN
4583: x_tqlv_rec.attribute1 := l_tqlv_rec.attribute1;
4584: END IF;
4585: IF (x_tqlv_rec.attribute2 = OKC_API.G_MISS_CHAR)
4586: THEN
4587: x_tqlv_rec.attribute2 := l_tqlv_rec.attribute2;
4588: END IF;
4589: IF (x_tqlv_rec.attribute3 = OKC_API.G_MISS_CHAR)
4585: IF (x_tqlv_rec.attribute2 = OKC_API.G_MISS_CHAR)
4586: THEN
4587: x_tqlv_rec.attribute2 := l_tqlv_rec.attribute2;
4588: END IF;
4589: IF (x_tqlv_rec.attribute3 = OKC_API.G_MISS_CHAR)
4590: THEN
4591: x_tqlv_rec.attribute3 := l_tqlv_rec.attribute3;
4592: END IF;
4593: IF (x_tqlv_rec.attribute4 = OKC_API.G_MISS_CHAR)
4589: IF (x_tqlv_rec.attribute3 = OKC_API.G_MISS_CHAR)
4590: THEN
4591: x_tqlv_rec.attribute3 := l_tqlv_rec.attribute3;
4592: END IF;
4593: IF (x_tqlv_rec.attribute4 = OKC_API.G_MISS_CHAR)
4594: THEN
4595: x_tqlv_rec.attribute4 := l_tqlv_rec.attribute4;
4596: END IF;
4597: IF (x_tqlv_rec.attribute5 = OKC_API.G_MISS_CHAR)
4593: IF (x_tqlv_rec.attribute4 = OKC_API.G_MISS_CHAR)
4594: THEN
4595: x_tqlv_rec.attribute4 := l_tqlv_rec.attribute4;
4596: END IF;
4597: IF (x_tqlv_rec.attribute5 = OKC_API.G_MISS_CHAR)
4598: THEN
4599: x_tqlv_rec.attribute5 := l_tqlv_rec.attribute5;
4600: END IF;
4601: IF (x_tqlv_rec.attribute6 = OKC_API.G_MISS_CHAR)
4597: IF (x_tqlv_rec.attribute5 = OKC_API.G_MISS_CHAR)
4598: THEN
4599: x_tqlv_rec.attribute5 := l_tqlv_rec.attribute5;
4600: END IF;
4601: IF (x_tqlv_rec.attribute6 = OKC_API.G_MISS_CHAR)
4602: THEN
4603: x_tqlv_rec.attribute6 := l_tqlv_rec.attribute6;
4604: END IF;
4605: IF (x_tqlv_rec.attribute7 = OKC_API.G_MISS_CHAR)
4601: IF (x_tqlv_rec.attribute6 = OKC_API.G_MISS_CHAR)
4602: THEN
4603: x_tqlv_rec.attribute6 := l_tqlv_rec.attribute6;
4604: END IF;
4605: IF (x_tqlv_rec.attribute7 = OKC_API.G_MISS_CHAR)
4606: THEN
4607: x_tqlv_rec.attribute7 := l_tqlv_rec.attribute7;
4608: END IF;
4609: IF (x_tqlv_rec.attribute8 = OKC_API.G_MISS_CHAR)
4605: IF (x_tqlv_rec.attribute7 = OKC_API.G_MISS_CHAR)
4606: THEN
4607: x_tqlv_rec.attribute7 := l_tqlv_rec.attribute7;
4608: END IF;
4609: IF (x_tqlv_rec.attribute8 = OKC_API.G_MISS_CHAR)
4610: THEN
4611: x_tqlv_rec.attribute8 := l_tqlv_rec.attribute8;
4612: END IF;
4613: IF (x_tqlv_rec.attribute9 = OKC_API.G_MISS_CHAR)
4609: IF (x_tqlv_rec.attribute8 = OKC_API.G_MISS_CHAR)
4610: THEN
4611: x_tqlv_rec.attribute8 := l_tqlv_rec.attribute8;
4612: END IF;
4613: IF (x_tqlv_rec.attribute9 = OKC_API.G_MISS_CHAR)
4614: THEN
4615: x_tqlv_rec.attribute9 := l_tqlv_rec.attribute9;
4616: END IF;
4617: IF (x_tqlv_rec.attribute10 = OKC_API.G_MISS_CHAR)
4613: IF (x_tqlv_rec.attribute9 = OKC_API.G_MISS_CHAR)
4614: THEN
4615: x_tqlv_rec.attribute9 := l_tqlv_rec.attribute9;
4616: END IF;
4617: IF (x_tqlv_rec.attribute10 = OKC_API.G_MISS_CHAR)
4618: THEN
4619: x_tqlv_rec.attribute10 := l_tqlv_rec.attribute10;
4620: END IF;
4621: IF (x_tqlv_rec.attribute11 = OKC_API.G_MISS_CHAR)
4617: IF (x_tqlv_rec.attribute10 = OKC_API.G_MISS_CHAR)
4618: THEN
4619: x_tqlv_rec.attribute10 := l_tqlv_rec.attribute10;
4620: END IF;
4621: IF (x_tqlv_rec.attribute11 = OKC_API.G_MISS_CHAR)
4622: THEN
4623: x_tqlv_rec.attribute11 := l_tqlv_rec.attribute11;
4624: END IF;
4625: IF (x_tqlv_rec.attribute12 = OKC_API.G_MISS_CHAR)
4621: IF (x_tqlv_rec.attribute11 = OKC_API.G_MISS_CHAR)
4622: THEN
4623: x_tqlv_rec.attribute11 := l_tqlv_rec.attribute11;
4624: END IF;
4625: IF (x_tqlv_rec.attribute12 = OKC_API.G_MISS_CHAR)
4626: THEN
4627: x_tqlv_rec.attribute12 := l_tqlv_rec.attribute12;
4628: END IF;
4629: IF (x_tqlv_rec.attribute13 = OKC_API.G_MISS_CHAR)
4625: IF (x_tqlv_rec.attribute12 = OKC_API.G_MISS_CHAR)
4626: THEN
4627: x_tqlv_rec.attribute12 := l_tqlv_rec.attribute12;
4628: END IF;
4629: IF (x_tqlv_rec.attribute13 = OKC_API.G_MISS_CHAR)
4630: THEN
4631: x_tqlv_rec.attribute13 := l_tqlv_rec.attribute13;
4632: END IF;
4633: IF (x_tqlv_rec.attribute14 = OKC_API.G_MISS_CHAR)
4629: IF (x_tqlv_rec.attribute13 = OKC_API.G_MISS_CHAR)
4630: THEN
4631: x_tqlv_rec.attribute13 := l_tqlv_rec.attribute13;
4632: END IF;
4633: IF (x_tqlv_rec.attribute14 = OKC_API.G_MISS_CHAR)
4634: THEN
4635: x_tqlv_rec.attribute14 := l_tqlv_rec.attribute14;
4636: END IF;
4637: IF (x_tqlv_rec.attribute15 = OKC_API.G_MISS_CHAR)
4633: IF (x_tqlv_rec.attribute14 = OKC_API.G_MISS_CHAR)
4634: THEN
4635: x_tqlv_rec.attribute14 := l_tqlv_rec.attribute14;
4636: END IF;
4637: IF (x_tqlv_rec.attribute15 = OKC_API.G_MISS_CHAR)
4638: THEN
4639: x_tqlv_rec.attribute15 := l_tqlv_rec.attribute15;
4640: END IF;
4641: IF (x_tqlv_rec.org_id = OKC_API.G_MISS_NUM)
4637: IF (x_tqlv_rec.attribute15 = OKC_API.G_MISS_CHAR)
4638: THEN
4639: x_tqlv_rec.attribute15 := l_tqlv_rec.attribute15;
4640: END IF;
4641: IF (x_tqlv_rec.org_id = OKC_API.G_MISS_NUM)
4642: THEN
4643: x_tqlv_rec.org_id := l_tqlv_rec.org_id;
4644: END IF;
4645: IF (x_tqlv_rec.request_id = OKC_API.G_MISS_NUM)
4641: IF (x_tqlv_rec.org_id = OKC_API.G_MISS_NUM)
4642: THEN
4643: x_tqlv_rec.org_id := l_tqlv_rec.org_id;
4644: END IF;
4645: IF (x_tqlv_rec.request_id = OKC_API.G_MISS_NUM)
4646: THEN
4647: x_tqlv_rec.request_id := l_tqlv_rec.request_id;
4648: END IF;
4649: IF (x_tqlv_rec.program_application_id = OKC_API.G_MISS_NUM)
4645: IF (x_tqlv_rec.request_id = OKC_API.G_MISS_NUM)
4646: THEN
4647: x_tqlv_rec.request_id := l_tqlv_rec.request_id;
4648: END IF;
4649: IF (x_tqlv_rec.program_application_id = OKC_API.G_MISS_NUM)
4650: THEN
4651: x_tqlv_rec.program_application_id := l_tqlv_rec.program_application_id;
4652: END IF;
4653: IF (x_tqlv_rec.program_id = OKC_API.G_MISS_NUM)
4649: IF (x_tqlv_rec.program_application_id = OKC_API.G_MISS_NUM)
4650: THEN
4651: x_tqlv_rec.program_application_id := l_tqlv_rec.program_application_id;
4652: END IF;
4653: IF (x_tqlv_rec.program_id = OKC_API.G_MISS_NUM)
4654: THEN
4655: x_tqlv_rec.program_id := l_tqlv_rec.program_id;
4656: END IF;
4657: IF (x_tqlv_rec.program_update_date = OKC_API.G_MISS_DATE)
4653: IF (x_tqlv_rec.program_id = OKC_API.G_MISS_NUM)
4654: THEN
4655: x_tqlv_rec.program_id := l_tqlv_rec.program_id;
4656: END IF;
4657: IF (x_tqlv_rec.program_update_date = OKC_API.G_MISS_DATE)
4658: THEN
4659: x_tqlv_rec.program_update_date := l_tqlv_rec.program_update_date;
4660: END IF;
4661: IF (x_tqlv_rec.created_by = OKC_API.G_MISS_NUM)
4657: IF (x_tqlv_rec.program_update_date = OKC_API.G_MISS_DATE)
4658: THEN
4659: x_tqlv_rec.program_update_date := l_tqlv_rec.program_update_date;
4660: END IF;
4661: IF (x_tqlv_rec.created_by = OKC_API.G_MISS_NUM)
4662: THEN
4663: x_tqlv_rec.created_by := l_tqlv_rec.created_by;
4664: END IF;
4665: IF (x_tqlv_rec.creation_date = OKC_API.G_MISS_DATE)
4661: IF (x_tqlv_rec.created_by = OKC_API.G_MISS_NUM)
4662: THEN
4663: x_tqlv_rec.created_by := l_tqlv_rec.created_by;
4664: END IF;
4665: IF (x_tqlv_rec.creation_date = OKC_API.G_MISS_DATE)
4666: THEN
4667: x_tqlv_rec.creation_date := l_tqlv_rec.creation_date;
4668: END IF;
4669: IF (x_tqlv_rec.last_updated_by = OKC_API.G_MISS_NUM)
4665: IF (x_tqlv_rec.creation_date = OKC_API.G_MISS_DATE)
4666: THEN
4667: x_tqlv_rec.creation_date := l_tqlv_rec.creation_date;
4668: END IF;
4669: IF (x_tqlv_rec.last_updated_by = OKC_API.G_MISS_NUM)
4670: THEN
4671: x_tqlv_rec.last_updated_by := l_tqlv_rec.last_updated_by;
4672: END IF;
4673: IF (x_tqlv_rec.last_update_date = OKC_API.G_MISS_DATE)
4669: IF (x_tqlv_rec.last_updated_by = OKC_API.G_MISS_NUM)
4670: THEN
4671: x_tqlv_rec.last_updated_by := l_tqlv_rec.last_updated_by;
4672: END IF;
4673: IF (x_tqlv_rec.last_update_date = OKC_API.G_MISS_DATE)
4674: THEN
4675: x_tqlv_rec.last_update_date := l_tqlv_rec.last_update_date;
4676: END IF;
4677: IF (x_tqlv_rec.last_update_login = OKC_API.G_MISS_NUM)
4673: IF (x_tqlv_rec.last_update_date = OKC_API.G_MISS_DATE)
4674: THEN
4675: x_tqlv_rec.last_update_date := l_tqlv_rec.last_update_date;
4676: END IF;
4677: IF (x_tqlv_rec.last_update_login = OKC_API.G_MISS_NUM)
4678: THEN
4679: x_tqlv_rec.last_update_login := l_tqlv_rec.last_update_login;
4680: END IF;
4681: IF (x_tqlv_rec.start_date = OKC_API.G_MISS_DATE)
4677: IF (x_tqlv_rec.last_update_login = OKC_API.G_MISS_NUM)
4678: THEN
4679: x_tqlv_rec.last_update_login := l_tqlv_rec.last_update_login;
4680: END IF;
4681: IF (x_tqlv_rec.start_date = OKC_API.G_MISS_DATE)
4682: THEN
4683: x_tqlv_rec.start_date := l_tqlv_rec.start_date;
4684: END IF;
4685: IF (x_tqlv_rec.period = OKC_API.G_MISS_CHAR)
4681: IF (x_tqlv_rec.start_date = OKC_API.G_MISS_DATE)
4682: THEN
4683: x_tqlv_rec.start_date := l_tqlv_rec.start_date;
4684: END IF;
4685: IF (x_tqlv_rec.period = OKC_API.G_MISS_CHAR)
4686: THEN
4687: x_tqlv_rec.period := l_tqlv_rec.period;
4688: END IF;
4689: IF (x_tqlv_rec.number_of_periods = OKC_API.G_MISS_NUM)
4685: IF (x_tqlv_rec.period = OKC_API.G_MISS_CHAR)
4686: THEN
4687: x_tqlv_rec.period := l_tqlv_rec.period;
4688: END IF;
4689: IF (x_tqlv_rec.number_of_periods = OKC_API.G_MISS_NUM)
4690: THEN
4691: x_tqlv_rec.number_of_periods := l_tqlv_rec.number_of_periods;
4692: END IF;
4693: IF (x_tqlv_rec.lock_level_step = OKC_API.G_MISS_CHAR)
4689: IF (x_tqlv_rec.number_of_periods = OKC_API.G_MISS_NUM)
4690: THEN
4691: x_tqlv_rec.number_of_periods := l_tqlv_rec.number_of_periods;
4692: END IF;
4693: IF (x_tqlv_rec.lock_level_step = OKC_API.G_MISS_CHAR)
4694: THEN
4695: x_tqlv_rec.lock_level_step := l_tqlv_rec.lock_level_step;
4696: END IF;
4697: IF (x_tqlv_rec.advance_or_arrears = OKC_API.G_MISS_CHAR)
4693: IF (x_tqlv_rec.lock_level_step = OKC_API.G_MISS_CHAR)
4694: THEN
4695: x_tqlv_rec.lock_level_step := l_tqlv_rec.lock_level_step;
4696: END IF;
4697: IF (x_tqlv_rec.advance_or_arrears = OKC_API.G_MISS_CHAR)
4698: THEN
4699: x_tqlv_rec.advance_or_arrears := l_tqlv_rec.advance_or_arrears;
4700: END IF;
4701: IF (x_tqlv_rec.yield_name = OKC_API.G_MISS_CHAR)
4697: IF (x_tqlv_rec.advance_or_arrears = OKC_API.G_MISS_CHAR)
4698: THEN
4699: x_tqlv_rec.advance_or_arrears := l_tqlv_rec.advance_or_arrears;
4700: END IF;
4701: IF (x_tqlv_rec.yield_name = OKC_API.G_MISS_CHAR)
4702: THEN
4703: x_tqlv_rec.yield_name := l_tqlv_rec.yield_name;
4704: END IF;
4705: IF (x_tqlv_rec.yield_value = OKC_API.G_MISS_NUM)
4701: IF (x_tqlv_rec.yield_name = OKC_API.G_MISS_CHAR)
4702: THEN
4703: x_tqlv_rec.yield_name := l_tqlv_rec.yield_name;
4704: END IF;
4705: IF (x_tqlv_rec.yield_value = OKC_API.G_MISS_NUM)
4706: THEN
4707: x_tqlv_rec.yield_value := l_tqlv_rec.yield_value;
4708: END IF;
4709: IF (x_tqlv_rec.implicit_interest_rate = OKC_API.G_MISS_NUM)
4705: IF (x_tqlv_rec.yield_value = OKC_API.G_MISS_NUM)
4706: THEN
4707: x_tqlv_rec.yield_value := l_tqlv_rec.yield_value;
4708: END IF;
4709: IF (x_tqlv_rec.implicit_interest_rate = OKC_API.G_MISS_NUM)
4710: THEN
4711: x_tqlv_rec.implicit_interest_rate := l_tqlv_rec.implicit_interest_rate;
4712: END IF;
4713: IF (x_tqlv_rec.asset_value = OKC_API.G_MISS_NUM)
4709: IF (x_tqlv_rec.implicit_interest_rate = OKC_API.G_MISS_NUM)
4710: THEN
4711: x_tqlv_rec.implicit_interest_rate := l_tqlv_rec.implicit_interest_rate;
4712: END IF;
4713: IF (x_tqlv_rec.asset_value = OKC_API.G_MISS_NUM)
4714: THEN
4715: x_tqlv_rec.asset_value := l_tqlv_rec.asset_value;
4716: END IF;
4717: IF (x_tqlv_rec.residual_value = OKC_API.G_MISS_NUM)
4713: IF (x_tqlv_rec.asset_value = OKC_API.G_MISS_NUM)
4714: THEN
4715: x_tqlv_rec.asset_value := l_tqlv_rec.asset_value;
4716: END IF;
4717: IF (x_tqlv_rec.residual_value = OKC_API.G_MISS_NUM)
4718: THEN
4719: x_tqlv_rec.residual_value := l_tqlv_rec.residual_value;
4720: END IF;
4721: IF (x_tqlv_rec.unbilled_receivables = OKC_API.G_MISS_NUM)
4717: IF (x_tqlv_rec.residual_value = OKC_API.G_MISS_NUM)
4718: THEN
4719: x_tqlv_rec.residual_value := l_tqlv_rec.residual_value;
4720: END IF;
4721: IF (x_tqlv_rec.unbilled_receivables = OKC_API.G_MISS_NUM)
4722: THEN
4723: x_tqlv_rec.unbilled_receivables := l_tqlv_rec.unbilled_receivables;
4724: END IF;
4725: IF (x_tqlv_rec.asset_quantity = OKC_API.G_MISS_NUM)
4721: IF (x_tqlv_rec.unbilled_receivables = OKC_API.G_MISS_NUM)
4722: THEN
4723: x_tqlv_rec.unbilled_receivables := l_tqlv_rec.unbilled_receivables;
4724: END IF;
4725: IF (x_tqlv_rec.asset_quantity = OKC_API.G_MISS_NUM)
4726: THEN
4727: x_tqlv_rec.asset_quantity := l_tqlv_rec.asset_quantity;
4728: END IF;
4729: IF (x_tqlv_rec.quote_quantity = OKC_API.G_MISS_NUM)
4725: IF (x_tqlv_rec.asset_quantity = OKC_API.G_MISS_NUM)
4726: THEN
4727: x_tqlv_rec.asset_quantity := l_tqlv_rec.asset_quantity;
4728: END IF;
4729: IF (x_tqlv_rec.quote_quantity = OKC_API.G_MISS_NUM)
4730: THEN
4731: x_tqlv_rec.quote_quantity := l_tqlv_rec.quote_quantity;
4732: END IF;
4733: IF (x_tqlv_rec.split_kle_id = OKC_API.G_MISS_NUM)
4729: IF (x_tqlv_rec.quote_quantity = OKC_API.G_MISS_NUM)
4730: THEN
4731: x_tqlv_rec.quote_quantity := l_tqlv_rec.quote_quantity;
4732: END IF;
4733: IF (x_tqlv_rec.split_kle_id = OKC_API.G_MISS_NUM)
4734: THEN
4735: x_tqlv_rec.split_kle_id := l_tqlv_rec.split_kle_id;
4736: END IF;
4737: -- RMUNJULU 2757312
4734: THEN
4735: x_tqlv_rec.split_kle_id := l_tqlv_rec.split_kle_id;
4736: END IF;
4737: -- RMUNJULU 2757312
4738: IF (x_tqlv_rec.split_kle_name = OKC_API.G_MISS_CHAR)
4739: THEN
4740: x_tqlv_rec.split_kle_name := l_tqlv_rec.split_kle_name;
4741: END IF;
4742: -- BAKUCHIB 2667636 Start
4739: THEN
4740: x_tqlv_rec.split_kle_name := l_tqlv_rec.split_kle_name;
4741: END IF;
4742: -- BAKUCHIB 2667636 Start
4743: IF (x_tqlv_rec.currency_code = OKC_API.G_MISS_CHAR)
4744: THEN
4745: x_tqlv_rec.currency_code := l_tqlv_rec.currency_code;
4746: END IF;
4747: IF (x_tqlv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR)
4743: IF (x_tqlv_rec.currency_code = OKC_API.G_MISS_CHAR)
4744: THEN
4745: x_tqlv_rec.currency_code := l_tqlv_rec.currency_code;
4746: END IF;
4747: IF (x_tqlv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR)
4748: THEN
4749: x_tqlv_rec.currency_conversion_code := l_tqlv_rec.currency_conversion_code;
4750: END IF;
4751: IF (x_tqlv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
4747: IF (x_tqlv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR)
4748: THEN
4749: x_tqlv_rec.currency_conversion_code := l_tqlv_rec.currency_conversion_code;
4750: END IF;
4751: IF (x_tqlv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
4752: THEN
4753: x_tqlv_rec.currency_conversion_type := l_tqlv_rec.currency_conversion_type;
4754: END IF;
4755: IF (x_tqlv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
4751: IF (x_tqlv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
4752: THEN
4753: x_tqlv_rec.currency_conversion_type := l_tqlv_rec.currency_conversion_type;
4754: END IF;
4755: IF (x_tqlv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
4756: THEN
4757: x_tqlv_rec.currency_conversion_rate := l_tqlv_rec.currency_conversion_rate;
4758: END IF;
4759: IF (x_tqlv_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
4755: IF (x_tqlv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
4756: THEN
4757: x_tqlv_rec.currency_conversion_rate := l_tqlv_rec.currency_conversion_rate;
4758: END IF;
4759: IF (x_tqlv_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
4760: THEN
4761: x_tqlv_rec.currency_conversion_date := l_tqlv_rec.currency_conversion_date;
4762: END IF;
4763: -- BAKUCHIB 2667636 End
4781: FUNCTION Set_Attributes (
4782: p_tqlv_rec IN tqlv_rec_type,
4783: x_tqlv_rec OUT NOCOPY tqlv_rec_type
4784: ) RETURN VARCHAR2 IS
4785: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4786: BEGIN
4787: x_tqlv_rec := p_tqlv_rec;
4788: x_tqlv_rec.OBJECT_VERSION_NUMBER := NVL(x_tqlv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
4789: -- Default the YN columns if value not passed
4787: x_tqlv_rec := p_tqlv_rec;
4788: x_tqlv_rec.OBJECT_VERSION_NUMBER := NVL(x_tqlv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
4789: -- Default the YN columns if value not passed
4790: IF p_tqlv_rec.defaulted_yn IS NULL
4791: OR p_tqlv_rec.defaulted_yn = OKC_API.G_MISS_CHAR THEN
4792: x_tqlv_rec.defaulted_yn := 'N';
4793: END IF;
4794:
4795: RETURN(l_return_status);
4794:
4795: RETURN(l_return_status);
4796: END Set_Attributes;
4797: BEGIN
4798: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4799: G_PKG_NAME,
4800: p_init_msg_list,
4801: l_api_version,
4802: p_api_version,
4801: l_api_version,
4802: p_api_version,
4803: '_PVT',
4804: x_return_status);
4805: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4806: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4807: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4808: RAISE OKC_API.G_EXCEPTION_ERROR;
4809: END IF;
4802: p_api_version,
4803: '_PVT',
4804: x_return_status);
4805: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4806: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4807: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4808: RAISE OKC_API.G_EXCEPTION_ERROR;
4809: END IF;
4810: --- Setting item attributes
4803: '_PVT',
4804: x_return_status);
4805: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4806: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4807: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4808: RAISE OKC_API.G_EXCEPTION_ERROR;
4809: END IF;
4810: --- Setting item attributes
4811: l_return_status := Set_Attributes(
4804: x_return_status);
4805: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4806: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4807: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4808: RAISE OKC_API.G_EXCEPTION_ERROR;
4809: END IF;
4810: --- Setting item attributes
4811: l_return_status := Set_Attributes(
4812: p_tqlv_rec, -- IN
4811: l_return_status := Set_Attributes(
4812: p_tqlv_rec, -- IN
4813: l_tqlv_rec); -- OUT
4814: --- If any errors happen abort API
4815: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4812: p_tqlv_rec, -- IN
4813: l_tqlv_rec); -- OUT
4814: --- If any errors happen abort API
4815: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4820: l_return_status := populate_new_record(l_tqlv_rec, l_def_tqlv_rec);
4813: l_tqlv_rec); -- OUT
4814: --- If any errors happen abort API
4815: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4820: l_return_status := populate_new_record(l_tqlv_rec, l_def_tqlv_rec);
4821: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4814: --- If any errors happen abort API
4815: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4820: l_return_status := populate_new_record(l_tqlv_rec, l_def_tqlv_rec);
4821: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4820: l_return_status := populate_new_record(l_tqlv_rec, l_def_tqlv_rec);
4821: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4823: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4824: RAISE OKC_API.G_EXCEPTION_ERROR;
4825: END IF;
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4820: l_return_status := populate_new_record(l_tqlv_rec, l_def_tqlv_rec);
4821: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4823: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4824: RAISE OKC_API.G_EXCEPTION_ERROR;
4825: END IF;
4826: l_def_tqlv_rec := fill_who_columns(l_def_tqlv_rec);
4819: END IF;
4820: l_return_status := populate_new_record(l_tqlv_rec, l_def_tqlv_rec);
4821: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4823: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4824: RAISE OKC_API.G_EXCEPTION_ERROR;
4825: END IF;
4826: l_def_tqlv_rec := fill_who_columns(l_def_tqlv_rec);
4827: --- Validate all non-missing attributes (Item Level Validation)
4820: l_return_status := populate_new_record(l_tqlv_rec, l_def_tqlv_rec);
4821: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4823: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4824: RAISE OKC_API.G_EXCEPTION_ERROR;
4825: END IF;
4826: l_def_tqlv_rec := fill_who_columns(l_def_tqlv_rec);
4827: --- Validate all non-missing attributes (Item Level Validation)
4828: l_return_status := Validate_Attributes(l_def_tqlv_rec);
4826: l_def_tqlv_rec := fill_who_columns(l_def_tqlv_rec);
4827: --- Validate all non-missing attributes (Item Level Validation)
4828: l_return_status := Validate_Attributes(l_def_tqlv_rec);
4829: --- If any errors happen abort API
4830: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4831: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4832: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4833: RAISE OKC_API.G_EXCEPTION_ERROR;
4834: END IF;
4827: --- Validate all non-missing attributes (Item Level Validation)
4828: l_return_status := Validate_Attributes(l_def_tqlv_rec);
4829: --- If any errors happen abort API
4830: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4831: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4832: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4833: RAISE OKC_API.G_EXCEPTION_ERROR;
4834: END IF;
4835: l_return_status := Validate_Record(l_def_tqlv_rec);
4828: l_return_status := Validate_Attributes(l_def_tqlv_rec);
4829: --- If any errors happen abort API
4830: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4831: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4832: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4833: RAISE OKC_API.G_EXCEPTION_ERROR;
4834: END IF;
4835: l_return_status := Validate_Record(l_def_tqlv_rec);
4836: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4829: --- If any errors happen abort API
4830: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4831: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4832: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4833: RAISE OKC_API.G_EXCEPTION_ERROR;
4834: END IF;
4835: l_return_status := Validate_Record(l_def_tqlv_rec);
4836: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4837: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4832: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4833: RAISE OKC_API.G_EXCEPTION_ERROR;
4834: END IF;
4835: l_return_status := Validate_Record(l_def_tqlv_rec);
4836: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4837: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4838: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4839: RAISE OKC_API.G_EXCEPTION_ERROR;
4840: END IF;
4833: RAISE OKC_API.G_EXCEPTION_ERROR;
4834: END IF;
4835: l_return_status := Validate_Record(l_def_tqlv_rec);
4836: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4837: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4838: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4839: RAISE OKC_API.G_EXCEPTION_ERROR;
4840: END IF;
4841:
4834: END IF;
4835: l_return_status := Validate_Record(l_def_tqlv_rec);
4836: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4837: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4838: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4839: RAISE OKC_API.G_EXCEPTION_ERROR;
4840: END IF;
4841:
4842:
4835: l_return_status := Validate_Record(l_def_tqlv_rec);
4836: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4837: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4838: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4839: RAISE OKC_API.G_EXCEPTION_ERROR;
4840: END IF;
4841:
4842:
4843: -- RMUNJULU 09-MAY-03 2949544 Added code to round
4851: p_amount => l_def_tqlv_rec.amount,
4852: p_currency_code => l_def_tqlv_rec.currency_code,
4853: x_rounded_amount => l_rounded_amount);
4854:
4855: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4856: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4857: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4858: RAISE OKC_API.G_EXCEPTION_ERROR;
4859: END IF;
4852: p_currency_code => l_def_tqlv_rec.currency_code,
4853: x_rounded_amount => l_rounded_amount);
4854:
4855: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4856: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4857: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4858: RAISE OKC_API.G_EXCEPTION_ERROR;
4859: END IF;
4860:
4853: x_rounded_amount => l_rounded_amount);
4854:
4855: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4856: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4857: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4858: RAISE OKC_API.G_EXCEPTION_ERROR;
4859: END IF;
4860:
4861:
4854:
4855: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4856: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4857: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4858: RAISE OKC_API.G_EXCEPTION_ERROR;
4859: END IF;
4860:
4861:
4862: l_def_tqlv_rec.amount := l_rounded_amount;
4877: x_msg_data,
4878: l_okl_txl_quote_lines_tl_rec,
4879: lx_okl_txl_quote_lines_tl_rec
4880: );
4881: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4883: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4884: RAISE OKC_API.G_EXCEPTION_ERROR;
4885: END IF;
4878: l_okl_txl_quote_lines_tl_rec,
4879: lx_okl_txl_quote_lines_tl_rec
4880: );
4881: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4883: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4884: RAISE OKC_API.G_EXCEPTION_ERROR;
4885: END IF;
4886: migrate(lx_okl_txl_quote_lines_tl_rec, l_def_tqlv_rec);
4879: lx_okl_txl_quote_lines_tl_rec
4880: );
4881: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4883: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4884: RAISE OKC_API.G_EXCEPTION_ERROR;
4885: END IF;
4886: migrate(lx_okl_txl_quote_lines_tl_rec, l_def_tqlv_rec);
4887: update_row(
4880: );
4881: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4883: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4884: RAISE OKC_API.G_EXCEPTION_ERROR;
4885: END IF;
4886: migrate(lx_okl_txl_quote_lines_tl_rec, l_def_tqlv_rec);
4887: update_row(
4888: p_init_msg_list,
4891: x_msg_data,
4892: l_tql_rec,
4893: lx_tql_rec
4894: );
4895: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4897: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4898: RAISE OKC_API.G_EXCEPTION_ERROR;
4899: END IF;
4892: l_tql_rec,
4893: lx_tql_rec
4894: );
4895: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4897: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4898: RAISE OKC_API.G_EXCEPTION_ERROR;
4899: END IF;
4900: migrate(lx_tql_rec, l_def_tqlv_rec);
4893: lx_tql_rec
4894: );
4895: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4897: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4898: RAISE OKC_API.G_EXCEPTION_ERROR;
4899: END IF;
4900: migrate(lx_tql_rec, l_def_tqlv_rec);
4901: x_tqlv_rec := l_def_tqlv_rec;
4894: );
4895: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4897: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4898: RAISE OKC_API.G_EXCEPTION_ERROR;
4899: END IF;
4900: migrate(lx_tql_rec, l_def_tqlv_rec);
4901: x_tqlv_rec := l_def_tqlv_rec;
4902: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4898: RAISE OKC_API.G_EXCEPTION_ERROR;
4899: END IF;
4900: migrate(lx_tql_rec, l_def_tqlv_rec);
4901: x_tqlv_rec := l_def_tqlv_rec;
4902: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4903: EXCEPTION
4904: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4905: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4906: (
4900: migrate(lx_tql_rec, l_def_tqlv_rec);
4901: x_tqlv_rec := l_def_tqlv_rec;
4902: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4903: EXCEPTION
4904: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4905: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4906: (
4907: l_api_name,
4908: G_PKG_NAME,
4901: x_tqlv_rec := l_def_tqlv_rec;
4902: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4903: EXCEPTION
4904: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4905: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4906: (
4907: l_api_name,
4908: G_PKG_NAME,
4909: 'OKC_API.G_RET_STS_ERROR',
4905: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4906: (
4907: l_api_name,
4908: G_PKG_NAME,
4909: 'OKC_API.G_RET_STS_ERROR',
4910: x_msg_count,
4911: x_msg_data,
4912: '_PVT'
4913: );
4910: x_msg_count,
4911: x_msg_data,
4912: '_PVT'
4913: );
4914: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4915: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4916: (
4917: l_api_name,
4918: G_PKG_NAME,
4911: x_msg_data,
4912: '_PVT'
4913: );
4914: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4915: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4916: (
4917: l_api_name,
4918: G_PKG_NAME,
4919: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4915: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4916: (
4917: l_api_name,
4918: G_PKG_NAME,
4919: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4920: x_msg_count,
4921: x_msg_data,
4922: '_PVT'
4923: );
4921: x_msg_data,
4922: '_PVT'
4923: );
4924: WHEN OTHERS THEN
4925: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4926: (
4927: l_api_name,
4928: G_PKG_NAME,
4929: 'OTHERS',
4945: x_tqlv_tbl OUT NOCOPY tqlv_tbl_type) IS
4946:
4947: l_api_version CONSTANT NUMBER := 1;
4948: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
4949: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4950: i NUMBER := 0;
4951: -- Begin Post-Generation Change
4952: -- overall error status
4953: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4952: -- overall error status
4953: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4954: -- End Post-Generation Change
4955: BEGIN
4956: OKC_API.init_msg_list(p_init_msg_list);
4957: -- Make sure PL/SQL table has records in it before passing
4958: IF (p_tqlv_tbl.COUNT > 0) THEN
4959: i := p_tqlv_tbl.FIRST;
4960: LOOP
4959: i := p_tqlv_tbl.FIRST;
4960: LOOP
4961: update_row (
4962: p_api_version => p_api_version,
4963: p_init_msg_list => OKC_API.G_FALSE,
4964: x_return_status => x_return_status,
4965: x_msg_count => x_msg_count,
4966: x_msg_data => x_msg_data,
4967: p_tqlv_rec => p_tqlv_tbl(i),
4982: x_return_status := l_overall_status;
4983: -- End Post-Generation Change
4984: END IF;
4985: EXCEPTION
4986: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4987: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4988: (
4989: l_api_name,
4990: G_PKG_NAME,
4983: -- End Post-Generation Change
4984: END IF;
4985: EXCEPTION
4986: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4987: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4988: (
4989: l_api_name,
4990: G_PKG_NAME,
4991: 'OKC_API.G_RET_STS_ERROR',
4987: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4988: (
4989: l_api_name,
4990: G_PKG_NAME,
4991: 'OKC_API.G_RET_STS_ERROR',
4992: x_msg_count,
4993: x_msg_data,
4994: '_PVT'
4995: );
4992: x_msg_count,
4993: x_msg_data,
4994: '_PVT'
4995: );
4996: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4997: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4998: (
4999: l_api_name,
5000: G_PKG_NAME,
4993: x_msg_data,
4994: '_PVT'
4995: );
4996: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4997: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4998: (
4999: l_api_name,
5000: G_PKG_NAME,
5001: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4997: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4998: (
4999: l_api_name,
5000: G_PKG_NAME,
5001: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5002: x_msg_count,
5003: x_msg_data,
5004: '_PVT'
5005: );
5003: x_msg_data,
5004: '_PVT'
5005: );
5006: WHEN OTHERS THEN
5007: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5008: (
5009: l_api_name,
5010: G_PKG_NAME,
5011: 'OTHERS',
5029: p_tql_rec IN tql_rec_type) IS
5030:
5031: l_api_version CONSTANT NUMBER := 1;
5032: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
5033: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5034: l_tql_rec tql_rec_type:= p_tql_rec;
5035: l_row_notfound BOOLEAN := TRUE;
5036: BEGIN
5037: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5033: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5034: l_tql_rec tql_rec_type:= p_tql_rec;
5035: l_row_notfound BOOLEAN := TRUE;
5036: BEGIN
5037: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5038: p_init_msg_list,
5039: '_PVT',
5040: x_return_status);
5041: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5037: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5038: p_init_msg_list,
5039: '_PVT',
5040: x_return_status);
5041: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5042: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5043: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5044: RAISE OKC_API.G_EXCEPTION_ERROR;
5045: END IF;
5038: p_init_msg_list,
5039: '_PVT',
5040: x_return_status);
5041: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5042: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5043: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5044: RAISE OKC_API.G_EXCEPTION_ERROR;
5045: END IF;
5046: DELETE FROM OKL_TXL_QUOTE_LINES_B
5039: '_PVT',
5040: x_return_status);
5041: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5042: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5043: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5044: RAISE OKC_API.G_EXCEPTION_ERROR;
5045: END IF;
5046: DELETE FROM OKL_TXL_QUOTE_LINES_B
5047: WHERE ID = l_tql_rec.id;
5040: x_return_status);
5041: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5042: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5043: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5044: RAISE OKC_API.G_EXCEPTION_ERROR;
5045: END IF;
5046: DELETE FROM OKL_TXL_QUOTE_LINES_B
5047: WHERE ID = l_tql_rec.id;
5048:
5045: END IF;
5046: DELETE FROM OKL_TXL_QUOTE_LINES_B
5047: WHERE ID = l_tql_rec.id;
5048:
5049: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5050: EXCEPTION
5051: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5052: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5053: (
5047: WHERE ID = l_tql_rec.id;
5048:
5049: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5050: EXCEPTION
5051: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5052: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5053: (
5054: l_api_name,
5055: G_PKG_NAME,
5048:
5049: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5050: EXCEPTION
5051: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5052: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5053: (
5054: l_api_name,
5055: G_PKG_NAME,
5056: 'OKC_API.G_RET_STS_ERROR',
5052: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5053: (
5054: l_api_name,
5055: G_PKG_NAME,
5056: 'OKC_API.G_RET_STS_ERROR',
5057: x_msg_count,
5058: x_msg_data,
5059: '_PVT'
5060: );
5057: x_msg_count,
5058: x_msg_data,
5059: '_PVT'
5060: );
5061: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5062: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5063: (
5064: l_api_name,
5065: G_PKG_NAME,
5058: x_msg_data,
5059: '_PVT'
5060: );
5061: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5062: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5063: (
5064: l_api_name,
5065: G_PKG_NAME,
5066: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5062: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5063: (
5064: l_api_name,
5065: G_PKG_NAME,
5066: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5067: x_msg_count,
5068: x_msg_data,
5069: '_PVT'
5070: );
5068: x_msg_data,
5069: '_PVT'
5070: );
5071: WHEN OTHERS THEN
5072: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5073: (
5074: l_api_name,
5075: G_PKG_NAME,
5076: 'OTHERS',
5090: p_okl_txl_quote_lines_tl_rec IN OklTxlQuoteLinesTlRecType) IS
5091:
5092: l_api_version CONSTANT NUMBER := 1;
5093: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
5094: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5095: l_okl_txl_quote_lines_tl_rec OklTxlQuoteLinesTlRecType:= p_okl_txl_quote_lines_tl_rec;
5096: l_row_notfound BOOLEAN := TRUE;
5097: -----------------------------------------------
5098: -- Set_Attributes for:OKL_TXL_QUOTE_LINES_TL --
5100: FUNCTION Set_Attributes (
5101: p_okl_txl_quote_lines_tl_rec IN OklTxlQuoteLinesTlRecType,
5102: x_okl_txl_quote_lines_tl_rec OUT NOCOPY OklTxlQuoteLinesTlRecType
5103: ) RETURN VARCHAR2 IS
5104: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5105: BEGIN
5106: x_okl_txl_quote_lines_tl_rec := p_okl_txl_quote_lines_tl_rec;
5107: x_okl_txl_quote_lines_tl_rec.LANGUAGE := USERENV('LANG');
5108: RETURN(l_return_status);
5107: x_okl_txl_quote_lines_tl_rec.LANGUAGE := USERENV('LANG');
5108: RETURN(l_return_status);
5109: END Set_Attributes;
5110: BEGIN
5111: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5112: p_init_msg_list,
5113: '_PVT',
5114: x_return_status);
5115: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5111: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5112: p_init_msg_list,
5113: '_PVT',
5114: x_return_status);
5115: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5116: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5118: RAISE OKC_API.G_EXCEPTION_ERROR;
5119: END IF;
5112: p_init_msg_list,
5113: '_PVT',
5114: x_return_status);
5115: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5116: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5118: RAISE OKC_API.G_EXCEPTION_ERROR;
5119: END IF;
5120: --- Setting item attributes
5113: '_PVT',
5114: x_return_status);
5115: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5116: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5118: RAISE OKC_API.G_EXCEPTION_ERROR;
5119: END IF;
5120: --- Setting item attributes
5121: l_return_status := Set_Attributes(
5114: x_return_status);
5115: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5116: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5118: RAISE OKC_API.G_EXCEPTION_ERROR;
5119: END IF;
5120: --- Setting item attributes
5121: l_return_status := Set_Attributes(
5122: p_okl_txl_quote_lines_tl_rec, -- IN
5121: l_return_status := Set_Attributes(
5122: p_okl_txl_quote_lines_tl_rec, -- IN
5123: l_okl_txl_quote_lines_tl_rec); -- OUT
5124: --- If any errors happen abort API
5125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5126: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5127: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5128: RAISE OKC_API.G_EXCEPTION_ERROR;
5129: END IF;
5122: p_okl_txl_quote_lines_tl_rec, -- IN
5123: l_okl_txl_quote_lines_tl_rec); -- OUT
5124: --- If any errors happen abort API
5125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5126: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5127: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5128: RAISE OKC_API.G_EXCEPTION_ERROR;
5129: END IF;
5130: DELETE FROM OKL_TXL_QUOTE_LINES_TL
5123: l_okl_txl_quote_lines_tl_rec); -- OUT
5124: --- If any errors happen abort API
5125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5126: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5127: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5128: RAISE OKC_API.G_EXCEPTION_ERROR;
5129: END IF;
5130: DELETE FROM OKL_TXL_QUOTE_LINES_TL
5131: WHERE ID = l_okl_txl_quote_lines_tl_rec.id;
5124: --- If any errors happen abort API
5125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5126: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5127: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5128: RAISE OKC_API.G_EXCEPTION_ERROR;
5129: END IF;
5130: DELETE FROM OKL_TXL_QUOTE_LINES_TL
5131: WHERE ID = l_okl_txl_quote_lines_tl_rec.id;
5132:
5129: END IF;
5130: DELETE FROM OKL_TXL_QUOTE_LINES_TL
5131: WHERE ID = l_okl_txl_quote_lines_tl_rec.id;
5132:
5133: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5134: EXCEPTION
5135: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5136: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5137: (
5131: WHERE ID = l_okl_txl_quote_lines_tl_rec.id;
5132:
5133: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5134: EXCEPTION
5135: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5136: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5137: (
5138: l_api_name,
5139: G_PKG_NAME,
5132:
5133: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5134: EXCEPTION
5135: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5136: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5137: (
5138: l_api_name,
5139: G_PKG_NAME,
5140: 'OKC_API.G_RET_STS_ERROR',
5136: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5137: (
5138: l_api_name,
5139: G_PKG_NAME,
5140: 'OKC_API.G_RET_STS_ERROR',
5141: x_msg_count,
5142: x_msg_data,
5143: '_PVT'
5144: );
5141: x_msg_count,
5142: x_msg_data,
5143: '_PVT'
5144: );
5145: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5146: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5147: (
5148: l_api_name,
5149: G_PKG_NAME,
5142: x_msg_data,
5143: '_PVT'
5144: );
5145: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5146: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5147: (
5148: l_api_name,
5149: G_PKG_NAME,
5150: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5146: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5147: (
5148: l_api_name,
5149: G_PKG_NAME,
5150: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5151: x_msg_count,
5152: x_msg_data,
5153: '_PVT'
5154: );
5152: x_msg_data,
5153: '_PVT'
5154: );
5155: WHEN OTHERS THEN
5156: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5157: (
5158: l_api_name,
5159: G_PKG_NAME,
5160: 'OTHERS',
5175: p_tqlv_rec IN tqlv_rec_type) IS
5176:
5177: l_api_version CONSTANT NUMBER := 1;
5178: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
5179: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5180: l_tqlv_rec tqlv_rec_type := p_tqlv_rec;
5181: l_okl_txl_quote_lines_tl_rec OklTxlQuoteLinesTlRecType;
5182: l_tql_rec tql_rec_type;
5183: BEGIN
5180: l_tqlv_rec tqlv_rec_type := p_tqlv_rec;
5181: l_okl_txl_quote_lines_tl_rec OklTxlQuoteLinesTlRecType;
5182: l_tql_rec tql_rec_type;
5183: BEGIN
5184: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5185: G_PKG_NAME,
5186: p_init_msg_list,
5187: l_api_version,
5188: p_api_version,
5187: l_api_version,
5188: p_api_version,
5189: '_PVT',
5190: x_return_status);
5191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5193: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5194: RAISE OKC_API.G_EXCEPTION_ERROR;
5195: END IF;
5188: p_api_version,
5189: '_PVT',
5190: x_return_status);
5191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5193: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5194: RAISE OKC_API.G_EXCEPTION_ERROR;
5195: END IF;
5196: --------------------------------------
5189: '_PVT',
5190: x_return_status);
5191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5193: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5194: RAISE OKC_API.G_EXCEPTION_ERROR;
5195: END IF;
5196: --------------------------------------
5197: -- Move VIEW record to "Child" records
5190: x_return_status);
5191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5193: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5194: RAISE OKC_API.G_EXCEPTION_ERROR;
5195: END IF;
5196: --------------------------------------
5197: -- Move VIEW record to "Child" records
5198: --------------------------------------
5207: x_msg_count,
5208: x_msg_data,
5209: l_okl_txl_quote_lines_tl_rec
5210: );
5211: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5212: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5213: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5214: RAISE OKC_API.G_EXCEPTION_ERROR;
5215: END IF;
5208: x_msg_data,
5209: l_okl_txl_quote_lines_tl_rec
5210: );
5211: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5212: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5213: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5214: RAISE OKC_API.G_EXCEPTION_ERROR;
5215: END IF;
5216: delete_row(
5209: l_okl_txl_quote_lines_tl_rec
5210: );
5211: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5212: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5213: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5214: RAISE OKC_API.G_EXCEPTION_ERROR;
5215: END IF;
5216: delete_row(
5217: p_init_msg_list,
5210: );
5211: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5212: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5213: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5214: RAISE OKC_API.G_EXCEPTION_ERROR;
5215: END IF;
5216: delete_row(
5217: p_init_msg_list,
5218: x_return_status,
5219: x_msg_count,
5220: x_msg_data,
5221: l_tql_rec
5222: );
5223: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5224: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5225: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5226: RAISE OKC_API.G_EXCEPTION_ERROR;
5227: END IF;
5220: x_msg_data,
5221: l_tql_rec
5222: );
5223: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5224: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5225: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5226: RAISE OKC_API.G_EXCEPTION_ERROR;
5227: END IF;
5228: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5221: l_tql_rec
5222: );
5223: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5224: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5225: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5226: RAISE OKC_API.G_EXCEPTION_ERROR;
5227: END IF;
5228: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5229: EXCEPTION
5222: );
5223: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5224: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5225: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5226: RAISE OKC_API.G_EXCEPTION_ERROR;
5227: END IF;
5228: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5229: EXCEPTION
5230: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5224: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5225: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5226: RAISE OKC_API.G_EXCEPTION_ERROR;
5227: END IF;
5228: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5229: EXCEPTION
5230: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5231: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5232: (
5226: RAISE OKC_API.G_EXCEPTION_ERROR;
5227: END IF;
5228: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5229: EXCEPTION
5230: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5231: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5232: (
5233: l_api_name,
5234: G_PKG_NAME,
5227: END IF;
5228: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5229: EXCEPTION
5230: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5231: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5232: (
5233: l_api_name,
5234: G_PKG_NAME,
5235: 'OKC_API.G_RET_STS_ERROR',
5231: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5232: (
5233: l_api_name,
5234: G_PKG_NAME,
5235: 'OKC_API.G_RET_STS_ERROR',
5236: x_msg_count,
5237: x_msg_data,
5238: '_PVT'
5239: );
5236: x_msg_count,
5237: x_msg_data,
5238: '_PVT'
5239: );
5240: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5241: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5242: (
5243: l_api_name,
5244: G_PKG_NAME,
5237: x_msg_data,
5238: '_PVT'
5239: );
5240: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5241: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5242: (
5243: l_api_name,
5244: G_PKG_NAME,
5245: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5241: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5242: (
5243: l_api_name,
5244: G_PKG_NAME,
5245: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5246: x_msg_count,
5247: x_msg_data,
5248: '_PVT'
5249: );
5247: x_msg_data,
5248: '_PVT'
5249: );
5250: WHEN OTHERS THEN
5251: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5252: (
5253: l_api_name,
5254: G_PKG_NAME,
5255: 'OTHERS',
5270: p_tqlv_tbl IN tqlv_tbl_type) IS
5271:
5272: l_api_version CONSTANT NUMBER := 1;
5273: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
5274: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5275: i NUMBER := 0;
5276: -- Begin Post-Generation Change
5277: -- overall error status
5278: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5277: -- overall error status
5278: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5279: -- End Post-Generation Change
5280: BEGIN
5281: OKC_API.init_msg_list(p_init_msg_list);
5282: -- Make sure PL/SQL table has records in it before passing
5283: IF (p_tqlv_tbl.COUNT > 0) THEN
5284: i := p_tqlv_tbl.FIRST;
5285: LOOP
5284: i := p_tqlv_tbl.FIRST;
5285: LOOP
5286: delete_row (
5287: p_api_version => p_api_version,
5288: p_init_msg_list => OKC_API.G_FALSE,
5289: x_return_status => x_return_status,
5290: x_msg_count => x_msg_count,
5291: x_msg_data => x_msg_data,
5292: p_tqlv_rec => p_tqlv_tbl(i));
5306: x_return_status := l_overall_status;
5307: -- End Post-Generation Change
5308: END IF;
5309: EXCEPTION
5310: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5311: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5312: (
5313: l_api_name,
5314: G_PKG_NAME,
5307: -- End Post-Generation Change
5308: END IF;
5309: EXCEPTION
5310: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5311: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5312: (
5313: l_api_name,
5314: G_PKG_NAME,
5315: 'OKC_API.G_RET_STS_ERROR',
5311: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5312: (
5313: l_api_name,
5314: G_PKG_NAME,
5315: 'OKC_API.G_RET_STS_ERROR',
5316: x_msg_count,
5317: x_msg_data,
5318: '_PVT'
5319: );
5316: x_msg_count,
5317: x_msg_data,
5318: '_PVT'
5319: );
5320: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5321: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5322: (
5323: l_api_name,
5324: G_PKG_NAME,
5317: x_msg_data,
5318: '_PVT'
5319: );
5320: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5321: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5322: (
5323: l_api_name,
5324: G_PKG_NAME,
5325: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5321: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5322: (
5323: l_api_name,
5324: G_PKG_NAME,
5325: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5326: x_msg_count,
5327: x_msg_data,
5328: '_PVT'
5329: );
5327: x_msg_data,
5328: '_PVT'
5329: );
5330: WHEN OTHERS THEN
5331: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5332: (
5333: l_api_name,
5334: G_PKG_NAME,
5335: 'OTHERS',