eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.OKL_IPM_PVT dependencies on OKC_API

Line 7: px_error_rec IN OUT NOCOPY OKC_API.ERROR_REC_TYPE,

3: ---------------------------------------------------------------------------
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKC_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;

Line 8: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS

4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKC_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
12: l_msg_idx INTEGER := FND_MSG_PUB.G_NEXT;

Line 40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.

36: ---------------------------------------------------------------------------
37: -- FUNCTION find_highest_exception
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

Line 42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE

38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN

Line 44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;

Line 50: IF (p_error_tbl(i).error_type <> OKC_API.G_RET_STS_SUCCESS) THEN

46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;

Line 51: IF (l_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN

47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
55: EXIT WHEN (i = p_error_tbl.LAST);

Line 146: x_return_status := OKC_API.G_RET_STS_SUCCESS;

142: ) RETURN ipm_rec_type IS
143: l_ipm_rec ipm_rec_type;
144: l_row_notfound BOOLEAN := TRUE;
145: BEGIN
146: x_return_status := OKC_API.G_RET_STS_SUCCESS;
147: l_ipm_rec := get_rec(p_ipm_rec, l_row_notfound);
148: IF (l_row_notfound) THEN
149: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
150: x_return_status := OKC_API.G_RET_STS_ERROR;

Line 149: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');

145: BEGIN
146: x_return_status := OKC_API.G_RET_STS_SUCCESS;
147: l_ipm_rec := get_rec(p_ipm_rec, l_row_notfound);
148: IF (l_row_notfound) THEN
149: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
150: x_return_status := OKC_API.G_RET_STS_ERROR;
151: END IF;
152: RETURN(l_ipm_rec);
153: END get_rec;

Line 150: x_return_status := OKC_API.G_RET_STS_ERROR;

146: x_return_status := OKC_API.G_RET_STS_SUCCESS;
147: l_ipm_rec := get_rec(p_ipm_rec, l_row_notfound);
148: IF (l_row_notfound) THEN
149: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
150: x_return_status := OKC_API.G_RET_STS_ERROR;
151: END IF;
152: RETURN(l_ipm_rec);
153: END get_rec;
154: -----------------------------------------------------------

Line 172: IF (l_ipm_rec.id = OKC_API.G_MISS_NUM ) THEN

168: p_ipm_rec IN ipm_rec_type
169: ) RETURN ipm_rec_type IS
170: l_ipm_rec ipm_rec_type := p_ipm_rec;
171: BEGIN
172: IF (l_ipm_rec.id = OKC_API.G_MISS_NUM ) THEN
173: l_ipm_rec.id := NULL;
174: END IF;
175: IF (l_ipm_rec.source_table = OKC_API.G_MISS_CHAR ) THEN
176: l_ipm_rec.source_table := NULL;

Line 175: IF (l_ipm_rec.source_table = OKC_API.G_MISS_CHAR ) THEN

171: BEGIN
172: IF (l_ipm_rec.id = OKC_API.G_MISS_NUM ) THEN
173: l_ipm_rec.id := NULL;
174: END IF;
175: IF (l_ipm_rec.source_table = OKC_API.G_MISS_CHAR ) THEN
176: l_ipm_rec.source_table := NULL;
177: END IF;
178: IF (l_ipm_rec.source_id = OKC_API.G_MISS_NUM ) THEN
179: l_ipm_rec.source_id := NULL;

Line 178: IF (l_ipm_rec.source_id = OKC_API.G_MISS_NUM ) THEN

174: END IF;
175: IF (l_ipm_rec.source_table = OKC_API.G_MISS_CHAR ) THEN
176: l_ipm_rec.source_table := NULL;
177: END IF;
178: IF (l_ipm_rec.source_id = OKC_API.G_MISS_NUM ) THEN
179: l_ipm_rec.source_id := NULL;
180: END IF;
181: IF (l_ipm_rec.param_name = OKC_API.G_MISS_CHAR ) THEN
182: l_ipm_rec.param_name := NULL;

Line 181: IF (l_ipm_rec.param_name = OKC_API.G_MISS_CHAR ) THEN

177: END IF;
178: IF (l_ipm_rec.source_id = OKC_API.G_MISS_NUM ) THEN
179: l_ipm_rec.source_id := NULL;
180: END IF;
181: IF (l_ipm_rec.param_name = OKC_API.G_MISS_CHAR ) THEN
182: l_ipm_rec.param_name := NULL;
183: END IF;
184: IF (l_ipm_rec.param_value = OKC_API.G_MISS_CHAR ) THEN
185: l_ipm_rec.param_value := NULL;

Line 184: IF (l_ipm_rec.param_value = OKC_API.G_MISS_CHAR ) THEN

180: END IF;
181: IF (l_ipm_rec.param_name = OKC_API.G_MISS_CHAR ) THEN
182: l_ipm_rec.param_name := NULL;
183: END IF;
184: IF (l_ipm_rec.param_value = OKC_API.G_MISS_CHAR ) THEN
185: l_ipm_rec.param_value := NULL;
186: END IF;
187: IF (l_ipm_rec.created_by = OKC_API.G_MISS_NUM ) THEN
188: l_ipm_rec.created_by := NULL;

Line 187: IF (l_ipm_rec.created_by = OKC_API.G_MISS_NUM ) THEN

183: END IF;
184: IF (l_ipm_rec.param_value = OKC_API.G_MISS_CHAR ) THEN
185: l_ipm_rec.param_value := NULL;
186: END IF;
187: IF (l_ipm_rec.created_by = OKC_API.G_MISS_NUM ) THEN
188: l_ipm_rec.created_by := NULL;
189: END IF;
190: IF (l_ipm_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
191: l_ipm_rec.creation_date := NULL;

Line 190: IF (l_ipm_rec.creation_date = OKC_API.G_MISS_DATE ) THEN

186: END IF;
187: IF (l_ipm_rec.created_by = OKC_API.G_MISS_NUM ) THEN
188: l_ipm_rec.created_by := NULL;
189: END IF;
190: IF (l_ipm_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
191: l_ipm_rec.creation_date := NULL;
192: END IF;
193: IF (l_ipm_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
194: l_ipm_rec.last_updated_by := NULL;

Line 193: IF (l_ipm_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN

189: END IF;
190: IF (l_ipm_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
191: l_ipm_rec.creation_date := NULL;
192: END IF;
193: IF (l_ipm_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
194: l_ipm_rec.last_updated_by := NULL;
195: END IF;
196: IF (l_ipm_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
197: l_ipm_rec.last_update_date := NULL;

Line 196: IF (l_ipm_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN

192: END IF;
193: IF (l_ipm_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
194: l_ipm_rec.last_updated_by := NULL;
195: END IF;
196: IF (l_ipm_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
197: l_ipm_rec.last_update_date := NULL;
198: END IF;
199: IF (l_ipm_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
200: l_ipm_rec.last_update_login := NULL;

Line 199: IF (l_ipm_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN

195: END IF;
196: IF (l_ipm_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
197: l_ipm_rec.last_update_date := NULL;
198: END IF;
199: IF (l_ipm_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
200: l_ipm_rec.last_update_login := NULL;
201: END IF;
202: RETURN(l_ipm_rec);
203: END null_out_defaults;

Line 211: x_return_status := OKC_API.G_RET_STS_SUCCESS;

207: PROCEDURE validate_id(
208: x_return_status OUT NOCOPY VARCHAR2,
209: p_id IN NUMBER) IS
210: BEGIN
211: x_return_status := OKC_API.G_RET_STS_SUCCESS;
212: -- dbms_output.put_line('No. 4'||p_id);
213: IF (p_id = OKC_API.G_MISS_NUM OR
214: p_id IS NULL)
215: THEN

Line 213: IF (p_id = OKC_API.G_MISS_NUM OR

209: p_id IN NUMBER) IS
210: BEGIN
211: x_return_status := OKC_API.G_RET_STS_SUCCESS;
212: -- dbms_output.put_line('No. 4'||p_id);
213: IF (p_id = OKC_API.G_MISS_NUM OR
214: p_id IS NULL)
215: THEN
216: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
217: x_return_status := OKC_API.G_RET_STS_ERROR;

Line 216: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');

212: -- dbms_output.put_line('No. 4'||p_id);
213: IF (p_id = OKC_API.G_MISS_NUM OR
214: p_id IS NULL)
215: THEN
216: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
217: x_return_status := OKC_API.G_RET_STS_ERROR;
218: RAISE G_EXCEPTION_HALT_VALIDATION;
219: END IF;
220: -- dbms_output.put_line('No. 5');

Line 217: x_return_status := OKC_API.G_RET_STS_ERROR;

213: IF (p_id = OKC_API.G_MISS_NUM OR
214: p_id IS NULL)
215: THEN
216: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
217: x_return_status := OKC_API.G_RET_STS_ERROR;
218: RAISE G_EXCEPTION_HALT_VALIDATION;
219: END IF;
220: -- dbms_output.put_line('No. 5');
221: EXCEPTION

Line 225: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME

221: EXCEPTION
222: WHEN G_EXCEPTION_HALT_VALIDATION THEN
223: null;
224: WHEN OTHERS THEN
225: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
226: ,p_msg_name => G_UNEXPECTED_ERROR
227: ,p_token1 => G_SQLCODE_TOKEN
228: ,p_token1_value => SQLCODE
229: ,p_token2 => G_SQLERRM_TOKEN

Line 231: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

227: ,p_token1 => G_SQLCODE_TOKEN
228: ,p_token1_value => SQLCODE
229: ,p_token2 => G_SQLERRM_TOKEN
230: ,p_token2_value => SQLERRM);
231: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
232: END validate_id;
233: -------------------------------------------
234: -- Validate_Attributes for: PARAM_NAME --
235: -------------------------------------------

Line 242: x_return_status := OKC_API.G_RET_STS_SUCCESS;

238: p_param_name IN VARCHAR2) IS
239:
240: l_param_name_status VARCHAR2(1);
241: BEGIN
242: x_return_status := OKC_API.G_RET_STS_SUCCESS;
243: IF (p_param_name = OKC_API.G_MISS_CHAR OR
244: p_param_name IS NULL)
245: THEN
246: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'param_name');

Line 243: IF (p_param_name = OKC_API.G_MISS_CHAR OR

239:
240: l_param_name_status VARCHAR2(1);
241: BEGIN
242: x_return_status := OKC_API.G_RET_STS_SUCCESS;
243: IF (p_param_name = OKC_API.G_MISS_CHAR OR
244: p_param_name IS NULL)
245: THEN
246: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'param_name');
247: x_return_status := OKC_API.G_RET_STS_ERROR;

Line 246: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'param_name');

242: x_return_status := OKC_API.G_RET_STS_SUCCESS;
243: IF (p_param_name = OKC_API.G_MISS_CHAR OR
244: p_param_name IS NULL)
245: THEN
246: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'param_name');
247: x_return_status := OKC_API.G_RET_STS_ERROR;
248: RAISE G_EXCEPTION_HALT_VALIDATION;
249: END IF;
250:

Line 247: x_return_status := OKC_API.G_RET_STS_ERROR;

243: IF (p_param_name = OKC_API.G_MISS_CHAR OR
244: p_param_name IS NULL)
245: THEN
246: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'param_name');
247: x_return_status := OKC_API.G_RET_STS_ERROR;
248: RAISE G_EXCEPTION_HALT_VALIDATION;
249: END IF;
250:
251: l_param_name_status := OKL_ACCOUNTING_UTIL.validate_lookup_code

Line 259: x_return_status := OKC_API.G_RET_STS_SUCCESS;

255: p_view_app_id => 0);
256:
257: -- dbms_output.put_line('No. 7'||l_param_name_status||p_param_name);
258: IF l_param_name_status = 'T' THEN
259: x_return_status := OKC_API.G_RET_STS_SUCCESS;
260: ELSE
261: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'param_name');
262: x_return_status := OKC_API.G_RET_STS_ERROR;
263: RAISE G_EXCEPTION_HALT_VALIDATION;

Line 261: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'param_name');

257: -- dbms_output.put_line('No. 7'||l_param_name_status||p_param_name);
258: IF l_param_name_status = 'T' THEN
259: x_return_status := OKC_API.G_RET_STS_SUCCESS;
260: ELSE
261: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'param_name');
262: x_return_status := OKC_API.G_RET_STS_ERROR;
263: RAISE G_EXCEPTION_HALT_VALIDATION;
264: END IF;
265: EXCEPTION

Line 262: x_return_status := OKC_API.G_RET_STS_ERROR;

258: IF l_param_name_status = 'T' THEN
259: x_return_status := OKC_API.G_RET_STS_SUCCESS;
260: ELSE
261: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'param_name');
262: x_return_status := OKC_API.G_RET_STS_ERROR;
263: RAISE G_EXCEPTION_HALT_VALIDATION;
264: END IF;
265: EXCEPTION
266: WHEN G_EXCEPTION_HALT_VALIDATION THEN

Line 269: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME

265: EXCEPTION
266: WHEN G_EXCEPTION_HALT_VALIDATION THEN
267: null;
268: WHEN OTHERS THEN
269: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
270: ,p_msg_name => G_UNEXPECTED_ERROR
271: ,p_token1 => G_SQLCODE_TOKEN
272: ,p_token1_value => SQLCODE
273: ,p_token2 => G_SQLERRM_TOKEN

Line 275: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

271: ,p_token1 => G_SQLCODE_TOKEN
272: ,p_token1_value => SQLCODE
273: ,p_token2 => G_SQLERRM_TOKEN
274: ,p_token2_value => SQLERRM);
275: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
276: END validate_param_name;
277: -------------------------------------------
278: -- Validate_Attributes for: SOURCE_TABLE --
279: -------------------------------------------

Line 286: x_return_status := OKC_API.G_RET_STS_SUCCESS;

282: p_source_table IN VARCHAR2) IS
283:
284: l_source_table_status VARCHAR2(1);
285: BEGIN
286: x_return_status := OKC_API.G_RET_STS_SUCCESS;
287: IF (p_source_table = OKC_API.G_MISS_CHAR OR
288: p_source_table IS NULL)
289: THEN
290: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');

Line 287: IF (p_source_table = OKC_API.G_MISS_CHAR OR

283:
284: l_source_table_status VARCHAR2(1);
285: BEGIN
286: x_return_status := OKC_API.G_RET_STS_SUCCESS;
287: IF (p_source_table = OKC_API.G_MISS_CHAR OR
288: p_source_table IS NULL)
289: THEN
290: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
291: x_return_status := OKC_API.G_RET_STS_ERROR;

Line 290: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');

286: x_return_status := OKC_API.G_RET_STS_SUCCESS;
287: IF (p_source_table = OKC_API.G_MISS_CHAR OR
288: p_source_table IS NULL)
289: THEN
290: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
291: x_return_status := OKC_API.G_RET_STS_ERROR;
292: RAISE G_EXCEPTION_HALT_VALIDATION;
293: END IF;
294:

Line 291: x_return_status := OKC_API.G_RET_STS_ERROR;

287: IF (p_source_table = OKC_API.G_MISS_CHAR OR
288: p_source_table IS NULL)
289: THEN
290: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
291: x_return_status := OKC_API.G_RET_STS_ERROR;
292: RAISE G_EXCEPTION_HALT_VALIDATION;
293: END IF;
294:
295: l_source_table_status := OKL_ACCOUNTING_UTIL.validate_lookup_code

Line 302: x_return_status := OKC_API.G_RET_STS_SUCCESS;

298: p_app_id => 540,
299: p_view_app_id => 0);
300:
301: IF l_source_table_status = 'T' THEN
302: x_return_status := OKC_API.G_RET_STS_SUCCESS;
303: ELSE
304: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
305: x_return_status := OKC_API.G_RET_STS_ERROR;
306: RAISE G_EXCEPTION_HALT_VALIDATION;

Line 304: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');

300:
301: IF l_source_table_status = 'T' THEN
302: x_return_status := OKC_API.G_RET_STS_SUCCESS;
303: ELSE
304: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
305: x_return_status := OKC_API.G_RET_STS_ERROR;
306: RAISE G_EXCEPTION_HALT_VALIDATION;
307: END IF;
308: EXCEPTION

Line 305: x_return_status := OKC_API.G_RET_STS_ERROR;

301: IF l_source_table_status = 'T' THEN
302: x_return_status := OKC_API.G_RET_STS_SUCCESS;
303: ELSE
304: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
305: x_return_status := OKC_API.G_RET_STS_ERROR;
306: RAISE G_EXCEPTION_HALT_VALIDATION;
307: END IF;
308: EXCEPTION
309: WHEN G_EXCEPTION_HALT_VALIDATION THEN

Line 312: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME

308: EXCEPTION
309: WHEN G_EXCEPTION_HALT_VALIDATION THEN
310: null;
311: WHEN OTHERS THEN
312: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
313: ,p_msg_name => G_UNEXPECTED_ERROR
314: ,p_token1 => G_SQLCODE_TOKEN
315: ,p_token1_value => SQLCODE
316: ,p_token2 => G_SQLERRM_TOKEN

Line 318: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

314: ,p_token1 => G_SQLCODE_TOKEN
315: ,p_token1_value => SQLCODE
316: ,p_token2 => G_SQLERRM_TOKEN
317: ,p_token2_value => SQLERRM);
318: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
319: END validate_source_table;
320: ----------------------------------------
321: -- Validate_Attributes for: SOURCE_ID --
322: ----------------------------------------

Line 327: x_return_status := OKC_API.G_RET_STS_SUCCESS;

323: PROCEDURE validate_source_id(
324: x_return_status OUT NOCOPY VARCHAR2,
325: p_source_id IN NUMBER) IS
326: BEGIN
327: x_return_status := OKC_API.G_RET_STS_SUCCESS;
328: IF (p_source_id = OKC_API.G_MISS_NUM OR
329: p_source_id IS NULL)
330: THEN
331: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');

Line 328: IF (p_source_id = OKC_API.G_MISS_NUM OR

324: x_return_status OUT NOCOPY VARCHAR2,
325: p_source_id IN NUMBER) IS
326: BEGIN
327: x_return_status := OKC_API.G_RET_STS_SUCCESS;
328: IF (p_source_id = OKC_API.G_MISS_NUM OR
329: p_source_id IS NULL)
330: THEN
331: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
332: x_return_status := OKC_API.G_RET_STS_ERROR;

Line 331: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');

327: x_return_status := OKC_API.G_RET_STS_SUCCESS;
328: IF (p_source_id = OKC_API.G_MISS_NUM OR
329: p_source_id IS NULL)
330: THEN
331: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
332: x_return_status := OKC_API.G_RET_STS_ERROR;
333: RAISE G_EXCEPTION_HALT_VALIDATION;
334: END IF;
335: EXCEPTION

Line 332: x_return_status := OKC_API.G_RET_STS_ERROR;

328: IF (p_source_id = OKC_API.G_MISS_NUM OR
329: p_source_id IS NULL)
330: THEN
331: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
332: x_return_status := OKC_API.G_RET_STS_ERROR;
333: RAISE G_EXCEPTION_HALT_VALIDATION;
334: END IF;
335: EXCEPTION
336: WHEN G_EXCEPTION_HALT_VALIDATION THEN

Line 339: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME

335: EXCEPTION
336: WHEN G_EXCEPTION_HALT_VALIDATION THEN
337: null;
338: WHEN OTHERS THEN
339: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
340: ,p_msg_name => G_UNEXPECTED_ERROR
341: ,p_token1 => G_SQLCODE_TOKEN
342: ,p_token1_value => SQLCODE
343: ,p_token2 => G_SQLERRM_TOKEN

Line 345: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

341: ,p_token1 => G_SQLCODE_TOKEN
342: ,p_token1_value => SQLCODE
343: ,p_token2 => G_SQLERRM_TOKEN
344: ,p_token2_value => SQLERRM);
345: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
346: END validate_source_id;
347: ---------------------------------------------------------------------------
348: -- FUNCTION Validate_Attributes
349: ---------------------------------------------------------------------------

Line 356: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

352: ----------------------------------------------
353: FUNCTION Validate_Attributes (
354: p_ipm_rec IN ipm_rec_type
355: ) RETURN VARCHAR2 IS
356: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
357: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
358: BEGIN
359: -----------------------------
360: -- Column Level Validation --

Line 357: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

353: FUNCTION Validate_Attributes (
354: p_ipm_rec IN ipm_rec_type
355: ) RETURN VARCHAR2 IS
356: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
357: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
358: BEGIN
359: -----------------------------
360: -- Column Level Validation --
361: -----------------------------

Line 367: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN

363: -- id
364: -- ***
365: -- dbms_output.put_line('No. 1');
366: validate_id(x_return_status, p_ipm_rec.id);
367: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
368: l_return_status := x_return_status;
369: RAISE G_EXCEPTION_HALT_VALIDATION;
370: END IF;
371:

Line 377: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN

373: -- source_table
374: -- ***
375: -- dbms_output.put_line('No. 2');
376: validate_source_table(x_return_status, p_ipm_rec.source_table);
377: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
378: l_return_status := x_return_status;
379: RAISE G_EXCEPTION_HALT_VALIDATION;
380: END IF;
381:

Line 387: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN

383: -- source_id
384: -- ***
385: -- dbms_output.put_line('No. 3');
386: validate_source_id(x_return_status, p_ipm_rec.source_id);
387: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
388: l_return_status := x_return_status;
389: RAISE G_EXCEPTION_HALT_VALIDATION;
390: END IF;
391:

Line 397: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN

393: -- param_name
394: -- ***
395: -- dbms_output.put_line('No. 4');
396: validate_param_name(x_return_status, p_ipm_rec.param_name);
397: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
398: l_return_status := x_return_status;
399: RAISE G_EXCEPTION_HALT_VALIDATION;
400: END IF;
401: -- dbms_output.put_line('No. 6');

Line 408: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME

404: EXCEPTION
405: WHEN G_EXCEPTION_HALT_VALIDATION THEN
406: RETURN(l_return_status);
407: WHEN OTHERS THEN
408: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
409: ,p_msg_name => G_UNEXPECTED_ERROR
410: ,p_token1 => G_SQLCODE_TOKEN
411: ,p_token1_value => SQLCODE
412: ,p_token2 => G_SQLERRM_TOKEN

Line 414: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

410: ,p_token1 => G_SQLCODE_TOKEN
411: ,p_token1_value => SQLCODE
412: ,p_token2 => G_SQLERRM_TOKEN
413: ,p_token2_value => SQLERRM);
414: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
415: RETURN(l_return_status);
416: END Validate_Attributes;
417:
418: ---------------------------------------------------------------------------

Line 428: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

424: FUNCTION Validate_Record (
425: p_ipm_rec IN ipm_rec_type,
426: p_db_ipm_rec IN ipm_rec_type
427: ) RETURN VARCHAR2 IS
428: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
429: BEGIN
430: RETURN (l_return_status);
431: END Validate_Record;
432: FUNCTION Validate_Record (

Line 435: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

431: END Validate_Record;
432: FUNCTION Validate_Record (
433: p_ipm_rec IN ipm_rec_type
434: ) RETURN VARCHAR2 IS
435: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
436: l_db_ipm_rec ipm_rec_type := get_rec(p_ipm_rec);
437: BEGIN
438: l_return_status := Validate_Record(p_ipm_rec => p_ipm_rec,
439: p_db_ipm_rec => l_db_ipm_rec);

Line 478: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

474: p_ipm_rec IN ipm_rec_type) IS
475:
476: l_api_version CONSTANT NUMBER := 1;
477: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
478: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
479: l_ipm_rec ipm_rec_type := p_ipm_rec;
480: BEGIN
481: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
482: G_PKG_NAME,

Line 481: l_return_status := OKC_API.START_ACTIVITY(l_api_name,

477: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
478: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
479: l_ipm_rec ipm_rec_type := p_ipm_rec;
480: BEGIN
481: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
482: G_PKG_NAME,
483: p_init_msg_list,
484: l_api_version,
485: p_api_version,

Line 488: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

484: l_api_version,
485: p_api_version,
486: '_PVT',
487: x_return_status);
488: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
489: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
490: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
491: RAISE OKC_API.G_EXCEPTION_ERROR;
492: END IF;

Line 489: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

485: p_api_version,
486: '_PVT',
487: x_return_status);
488: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
489: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
490: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
491: RAISE OKC_API.G_EXCEPTION_ERROR;
492: END IF;
493: --- Validate all non-missing attributes (Item Level Validation)

Line 490: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

486: '_PVT',
487: x_return_status);
488: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
489: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
490: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
491: RAISE OKC_API.G_EXCEPTION_ERROR;
492: END IF;
493: --- Validate all non-missing attributes (Item Level Validation)
494: l_return_status := Validate_Attributes(l_ipm_rec);

Line 491: RAISE OKC_API.G_EXCEPTION_ERROR;

487: x_return_status);
488: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
489: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
490: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
491: RAISE OKC_API.G_EXCEPTION_ERROR;
492: END IF;
493: --- Validate all non-missing attributes (Item Level Validation)
494: l_return_status := Validate_Attributes(l_ipm_rec);
495: --- If any errors happen abort API

Line 496: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

492: END IF;
493: --- Validate all non-missing attributes (Item Level Validation)
494: l_return_status := Validate_Attributes(l_ipm_rec);
495: --- If any errors happen abort API
496: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
497: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
498: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
499: RAISE OKC_API.G_EXCEPTION_ERROR;
500: END IF;

Line 497: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

493: --- Validate all non-missing attributes (Item Level Validation)
494: l_return_status := Validate_Attributes(l_ipm_rec);
495: --- If any errors happen abort API
496: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
497: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
498: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
499: RAISE OKC_API.G_EXCEPTION_ERROR;
500: END IF;
501: l_return_status := Validate_Record(l_ipm_rec);

Line 498: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

494: l_return_status := Validate_Attributes(l_ipm_rec);
495: --- If any errors happen abort API
496: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
497: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
498: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
499: RAISE OKC_API.G_EXCEPTION_ERROR;
500: END IF;
501: l_return_status := Validate_Record(l_ipm_rec);
502: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

Line 499: RAISE OKC_API.G_EXCEPTION_ERROR;

495: --- If any errors happen abort API
496: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
497: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
498: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
499: RAISE OKC_API.G_EXCEPTION_ERROR;
500: END IF;
501: l_return_status := Validate_Record(l_ipm_rec);
502: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
503: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

Line 502: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

498: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
499: RAISE OKC_API.G_EXCEPTION_ERROR;
500: END IF;
501: l_return_status := Validate_Record(l_ipm_rec);
502: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
503: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
504: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
505: RAISE OKC_API.G_EXCEPTION_ERROR;
506: END IF;

Line 503: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

499: RAISE OKC_API.G_EXCEPTION_ERROR;
500: END IF;
501: l_return_status := Validate_Record(l_ipm_rec);
502: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
503: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
504: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
505: RAISE OKC_API.G_EXCEPTION_ERROR;
506: END IF;
507: x_return_status := l_return_status;

Line 504: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

500: END IF;
501: l_return_status := Validate_Record(l_ipm_rec);
502: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
503: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
504: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
505: RAISE OKC_API.G_EXCEPTION_ERROR;
506: END IF;
507: x_return_status := l_return_status;
508: EXCEPTION

Line 505: RAISE OKC_API.G_EXCEPTION_ERROR;

501: l_return_status := Validate_Record(l_ipm_rec);
502: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
503: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
504: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
505: RAISE OKC_API.G_EXCEPTION_ERROR;
506: END IF;
507: x_return_status := l_return_status;
508: EXCEPTION
509: WHEN OKC_API.G_EXCEPTION_ERROR THEN

Line 509: WHEN OKC_API.G_EXCEPTION_ERROR THEN

505: RAISE OKC_API.G_EXCEPTION_ERROR;
506: END IF;
507: x_return_status := l_return_status;
508: EXCEPTION
509: WHEN OKC_API.G_EXCEPTION_ERROR THEN
510: x_return_status := OKC_API.HANDLE_EXCEPTIONS
511: (
512: l_api_name,
513: G_PKG_NAME,

Line 510: x_return_status := OKC_API.HANDLE_EXCEPTIONS

506: END IF;
507: x_return_status := l_return_status;
508: EXCEPTION
509: WHEN OKC_API.G_EXCEPTION_ERROR THEN
510: x_return_status := OKC_API.HANDLE_EXCEPTIONS
511: (
512: l_api_name,
513: G_PKG_NAME,
514: 'OKC_API.G_RET_STS_ERROR',

Line 514: 'OKC_API.G_RET_STS_ERROR',

510: x_return_status := OKC_API.HANDLE_EXCEPTIONS
511: (
512: l_api_name,
513: G_PKG_NAME,
514: 'OKC_API.G_RET_STS_ERROR',
515: x_msg_count,
516: x_msg_data,
517: '_PVT'
518: );

Line 519: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

515: x_msg_count,
516: x_msg_data,
517: '_PVT'
518: );
519: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
520: x_return_status := OKC_API.HANDLE_EXCEPTIONS
521: (
522: l_api_name,
523: G_PKG_NAME,

Line 520: x_return_status := OKC_API.HANDLE_EXCEPTIONS

516: x_msg_data,
517: '_PVT'
518: );
519: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
520: x_return_status := OKC_API.HANDLE_EXCEPTIONS
521: (
522: l_api_name,
523: G_PKG_NAME,
524: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 524: 'OKC_API.G_RET_STS_UNEXP_ERROR',

520: x_return_status := OKC_API.HANDLE_EXCEPTIONS
521: (
522: l_api_name,
523: G_PKG_NAME,
524: 'OKC_API.G_RET_STS_UNEXP_ERROR',
525: x_msg_count,
526: x_msg_data,
527: '_PVT'
528: );

Line 530: x_return_status := OKC_API.HANDLE_EXCEPTIONS

526: x_msg_data,
527: '_PVT'
528: );
529: WHEN OTHERS THEN
530: x_return_status := OKC_API.HANDLE_EXCEPTIONS
531: (
532: l_api_name,
533: G_PKG_NAME,
534: 'OTHERS',

Line 550: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS

546: x_return_status OUT NOCOPY VARCHAR2,
547: x_msg_count OUT NOCOPY NUMBER,
548: x_msg_data OUT NOCOPY VARCHAR2,
549: p_ipm_tbl IN ipm_tbl_type,
550: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
551:
552: l_api_version CONSTANT NUMBER := 1;
553: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
554: i NUMBER := 0;

Line 556: OKC_API.init_msg_list(p_init_msg_list);

552: l_api_version CONSTANT NUMBER := 1;
553: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
554: i NUMBER := 0;
555: BEGIN
556: OKC_API.init_msg_list(p_init_msg_list);
557: -- Make sure PL/SQL table has records in it before passing
558: IF (p_ipm_tbl.COUNT > 0) THEN
559: i := p_ipm_tbl.FIRST;
560: LOOP

Line 562: l_error_rec OKC_API.ERROR_REC_TYPE;

558: IF (p_ipm_tbl.COUNT > 0) THEN
559: i := p_ipm_tbl.FIRST;
560: LOOP
561: DECLARE
562: l_error_rec OKC_API.ERROR_REC_TYPE;
563: BEGIN
564: l_error_rec.api_name := l_api_name;
565: l_error_rec.api_package := G_PKG_NAME;
566: l_error_rec.idx := i;

Line 569: p_init_msg_list => OKC_API.G_FALSE,

565: l_error_rec.api_package := G_PKG_NAME;
566: l_error_rec.idx := i;
567: validate_row (
568: p_api_version => p_api_version,
569: p_init_msg_list => OKC_API.G_FALSE,
570: x_return_status => l_error_rec.error_type,
571: x_msg_count => l_error_rec.msg_count,
572: x_msg_data => l_error_rec.msg_data,
573: p_ipm_rec => p_ipm_tbl(i));

Line 574: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN

570: x_return_status => l_error_rec.error_type,
571: x_msg_count => l_error_rec.msg_count,
572: x_msg_data => l_error_rec.msg_data,
573: p_ipm_rec => p_ipm_tbl(i));
574: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
575: l_error_rec.sqlcode := SQLCODE;
576: load_error_tbl(l_error_rec, px_error_tbl);
577: ELSE
578: x_msg_count := l_error_rec.msg_count;

Line 582: WHEN OKC_API.G_EXCEPTION_ERROR THEN

578: x_msg_count := l_error_rec.msg_count;
579: x_msg_data := l_error_rec.msg_data;
580: END IF;
581: EXCEPTION
582: WHEN OKC_API.G_EXCEPTION_ERROR THEN
583: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
584: l_error_rec.sqlcode := SQLCODE;
585: load_error_tbl(l_error_rec, px_error_tbl);
586: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 583: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;

579: x_msg_data := l_error_rec.msg_data;
580: END IF;
581: EXCEPTION
582: WHEN OKC_API.G_EXCEPTION_ERROR THEN
583: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
584: l_error_rec.sqlcode := SQLCODE;
585: load_error_tbl(l_error_rec, px_error_tbl);
586: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
587: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;

Line 586: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

582: WHEN OKC_API.G_EXCEPTION_ERROR THEN
583: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
584: l_error_rec.sqlcode := SQLCODE;
585: load_error_tbl(l_error_rec, px_error_tbl);
586: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
587: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
588: l_error_rec.sqlcode := SQLCODE;
589: load_error_tbl(l_error_rec, px_error_tbl);
590: WHEN OTHERS THEN

Line 587: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;

583: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
584: l_error_rec.sqlcode := SQLCODE;
585: load_error_tbl(l_error_rec, px_error_tbl);
586: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
587: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
588: l_error_rec.sqlcode := SQLCODE;
589: load_error_tbl(l_error_rec, px_error_tbl);
590: WHEN OTHERS THEN
591: l_error_rec.error_type := 'OTHERS';

Line 602: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

598: END IF;
599: -- Loop through the error_tbl to find the error with the highest severity
600: -- and return it.
601: x_return_status := find_highest_exception(px_error_tbl);
602: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
603: EXCEPTION
604: WHEN OKC_API.G_EXCEPTION_ERROR THEN
605: x_return_status := OKC_API.HANDLE_EXCEPTIONS
606: (

Line 604: WHEN OKC_API.G_EXCEPTION_ERROR THEN

600: -- and return it.
601: x_return_status := find_highest_exception(px_error_tbl);
602: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
603: EXCEPTION
604: WHEN OKC_API.G_EXCEPTION_ERROR THEN
605: x_return_status := OKC_API.HANDLE_EXCEPTIONS
606: (
607: l_api_name,
608: G_PKG_NAME,

Line 605: x_return_status := OKC_API.HANDLE_EXCEPTIONS

601: x_return_status := find_highest_exception(px_error_tbl);
602: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
603: EXCEPTION
604: WHEN OKC_API.G_EXCEPTION_ERROR THEN
605: x_return_status := OKC_API.HANDLE_EXCEPTIONS
606: (
607: l_api_name,
608: G_PKG_NAME,
609: 'OKC_API.G_RET_STS_ERROR',

Line 609: 'OKC_API.G_RET_STS_ERROR',

605: x_return_status := OKC_API.HANDLE_EXCEPTIONS
606: (
607: l_api_name,
608: G_PKG_NAME,
609: 'OKC_API.G_RET_STS_ERROR',
610: x_msg_count,
611: x_msg_data,
612: '_PVT'
613: );

Line 614: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

610: x_msg_count,
611: x_msg_data,
612: '_PVT'
613: );
614: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
615: x_return_status := OKC_API.HANDLE_EXCEPTIONS
616: (
617: l_api_name,
618: G_PKG_NAME,

Line 615: x_return_status := OKC_API.HANDLE_EXCEPTIONS

611: x_msg_data,
612: '_PVT'
613: );
614: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
615: x_return_status := OKC_API.HANDLE_EXCEPTIONS
616: (
617: l_api_name,
618: G_PKG_NAME,
619: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 619: 'OKC_API.G_RET_STS_UNEXP_ERROR',

615: x_return_status := OKC_API.HANDLE_EXCEPTIONS
616: (
617: l_api_name,
618: G_PKG_NAME,
619: 'OKC_API.G_RET_STS_UNEXP_ERROR',
620: x_msg_count,
621: x_msg_data,
622: '_PVT'
623: );

Line 625: x_return_status := OKC_API.HANDLE_EXCEPTIONS

621: x_msg_data,
622: '_PVT'
623: );
624: WHEN OTHERS THEN
625: x_return_status := OKC_API.HANDLE_EXCEPTIONS
626: (
627: l_api_name,
628: G_PKG_NAME,
629: 'OTHERS',

Line 649: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

645: p_ipm_tbl IN ipm_tbl_type) IS
646:
647: l_api_version CONSTANT NUMBER := 1;
648: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
649: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
650: l_error_tbl OKC_API.ERROR_TBL_TYPE;
651: BEGIN
652: OKC_API.init_msg_list(p_init_msg_list);
653: -- Make sure PL/SQL table has records in it before passing

Line 650: l_error_tbl OKC_API.ERROR_TBL_TYPE;

646:
647: l_api_version CONSTANT NUMBER := 1;
648: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
649: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
650: l_error_tbl OKC_API.ERROR_TBL_TYPE;
651: BEGIN
652: OKC_API.init_msg_list(p_init_msg_list);
653: -- Make sure PL/SQL table has records in it before passing
654: IF (p_ipm_tbl.COUNT > 0) THEN

Line 652: OKC_API.init_msg_list(p_init_msg_list);

648: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
649: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
650: l_error_tbl OKC_API.ERROR_TBL_TYPE;
651: BEGIN
652: OKC_API.init_msg_list(p_init_msg_list);
653: -- Make sure PL/SQL table has records in it before passing
654: IF (p_ipm_tbl.COUNT > 0) THEN
655: validate_row (
656: p_api_version => p_api_version,

Line 657: p_init_msg_list => OKC_API.G_FALSE,

653: -- Make sure PL/SQL table has records in it before passing
654: IF (p_ipm_tbl.COUNT > 0) THEN
655: validate_row (
656: p_api_version => p_api_version,
657: p_init_msg_list => OKC_API.G_FALSE,
658: x_return_status => x_return_status,
659: x_msg_count => x_msg_count,
660: x_msg_data => x_msg_data,
661: p_ipm_tbl => p_ipm_tbl,

Line 664: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

660: x_msg_data => x_msg_data,
661: p_ipm_tbl => p_ipm_tbl,
662: px_error_tbl => l_error_tbl);
663: END IF;
664: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
665: EXCEPTION
666: WHEN OKC_API.G_EXCEPTION_ERROR THEN
667: x_return_status := OKC_API.HANDLE_EXCEPTIONS
668: (

Line 666: WHEN OKC_API.G_EXCEPTION_ERROR THEN

662: px_error_tbl => l_error_tbl);
663: END IF;
664: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
665: EXCEPTION
666: WHEN OKC_API.G_EXCEPTION_ERROR THEN
667: x_return_status := OKC_API.HANDLE_EXCEPTIONS
668: (
669: l_api_name,
670: G_PKG_NAME,

Line 667: x_return_status := OKC_API.HANDLE_EXCEPTIONS

663: END IF;
664: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
665: EXCEPTION
666: WHEN OKC_API.G_EXCEPTION_ERROR THEN
667: x_return_status := OKC_API.HANDLE_EXCEPTIONS
668: (
669: l_api_name,
670: G_PKG_NAME,
671: 'OKC_API.G_RET_STS_ERROR',

Line 671: 'OKC_API.G_RET_STS_ERROR',

667: x_return_status := OKC_API.HANDLE_EXCEPTIONS
668: (
669: l_api_name,
670: G_PKG_NAME,
671: 'OKC_API.G_RET_STS_ERROR',
672: x_msg_count,
673: x_msg_data,
674: '_PVT'
675: );

Line 676: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

672: x_msg_count,
673: x_msg_data,
674: '_PVT'
675: );
676: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
677: x_return_status := OKC_API.HANDLE_EXCEPTIONS
678: (
679: l_api_name,
680: G_PKG_NAME,

Line 677: x_return_status := OKC_API.HANDLE_EXCEPTIONS

673: x_msg_data,
674: '_PVT'
675: );
676: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
677: x_return_status := OKC_API.HANDLE_EXCEPTIONS
678: (
679: l_api_name,
680: G_PKG_NAME,
681: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 681: 'OKC_API.G_RET_STS_UNEXP_ERROR',

677: x_return_status := OKC_API.HANDLE_EXCEPTIONS
678: (
679: l_api_name,
680: G_PKG_NAME,
681: 'OKC_API.G_RET_STS_UNEXP_ERROR',
682: x_msg_count,
683: x_msg_data,
684: '_PVT'
685: );

Line 687: x_return_status := OKC_API.HANDLE_EXCEPTIONS

683: x_msg_data,
684: '_PVT'
685: );
686: WHEN OTHERS THEN
687: x_return_status := OKC_API.HANDLE_EXCEPTIONS
688: (
689: l_api_name,
690: G_PKG_NAME,
691: 'OTHERS',

Line 715: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

711: x_ipm_rec OUT NOCOPY ipm_rec_type) IS
712:
713: l_api_version CONSTANT NUMBER := 1;
714: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
715: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
716: l_ipm_rec ipm_rec_type := p_ipm_rec;
717: l_def_ipm_rec ipm_rec_type;
718:
719: -------------------------------

Line 742: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

738: FUNCTION Set_Attributes (
739: p_ipm_rec IN ipm_rec_type,
740: x_ipm_rec OUT NOCOPY ipm_rec_type
741: ) RETURN VARCHAR2 IS
742: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
743: BEGIN
744: x_ipm_rec := p_ipm_rec;
745: RETURN(l_return_status);
746: END Set_Attributes;

Line 748: l_return_status := OKC_API.START_ACTIVITY(l_api_name,

744: x_ipm_rec := p_ipm_rec;
745: RETURN(l_return_status);
746: END Set_Attributes;
747: BEGIN
748: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
749: p_init_msg_list,
750: '_PVT',
751: x_return_status);
752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

Line 752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

748: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
749: p_init_msg_list,
750: '_PVT',
751: x_return_status);
752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
753: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
754: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
755: RAISE OKC_API.G_EXCEPTION_ERROR;
756: END IF;

Line 753: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

749: p_init_msg_list,
750: '_PVT',
751: x_return_status);
752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
753: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
754: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
755: RAISE OKC_API.G_EXCEPTION_ERROR;
756: END IF;
757: -- dbms_output.put_line('created_by1 : '||to_char(l_ipm_rec.CREATED_BY));

Line 754: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

750: '_PVT',
751: x_return_status);
752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
753: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
754: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
755: RAISE OKC_API.G_EXCEPTION_ERROR;
756: END IF;
757: -- dbms_output.put_line('created_by1 : '||to_char(l_ipm_rec.CREATED_BY));
758: -- dbms_output.put_line('Message 1');

Line 755: RAISE OKC_API.G_EXCEPTION_ERROR;

751: x_return_status);
752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
753: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
754: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
755: RAISE OKC_API.G_EXCEPTION_ERROR;
756: END IF;
757: -- dbms_output.put_line('created_by1 : '||to_char(l_ipm_rec.CREATED_BY));
758: -- dbms_output.put_line('Message 1');
759: l_ipm_rec := null_out_defaults(p_ipm_rec);

Line 763: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN

759: l_ipm_rec := null_out_defaults(p_ipm_rec);
760: -- Set primary key value
761: l_ipm_rec.ID := get_seq_id;
762: l_return_status := Validate_Attributes(l_ipm_rec);
763: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
764: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
765: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
766: RAISE Okc_Api.G_EXCEPTION_ERROR;
767: END IF;

Line 764: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;

760: -- Set primary key value
761: l_ipm_rec.ID := get_seq_id;
762: l_return_status := Validate_Attributes(l_ipm_rec);
763: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
764: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
765: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
766: RAISE Okc_Api.G_EXCEPTION_ERROR;
767: END IF;
768: -- dbms_output.put_line('ID: '||l_ipm_rec.ID);

Line 765: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN

761: l_ipm_rec.ID := get_seq_id;
762: l_return_status := Validate_Attributes(l_ipm_rec);
763: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
764: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
765: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
766: RAISE Okc_Api.G_EXCEPTION_ERROR;
767: END IF;
768: -- dbms_output.put_line('ID: '||l_ipm_rec.ID);
769: --- Setting item atributes

Line 766: RAISE Okc_Api.G_EXCEPTION_ERROR;

762: l_return_status := Validate_Attributes(l_ipm_rec);
763: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
764: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
765: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
766: RAISE Okc_Api.G_EXCEPTION_ERROR;
767: END IF;
768: -- dbms_output.put_line('ID: '||l_ipm_rec.ID);
769: --- Setting item atributes
770: l_return_status := Set_Attributes(

Line 789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

785: -- dbms_output.put_line('last_updated_by: '||to_char(l_ipm_rec.last_updated_by));
786: -- dbms_output.put_line('last_update_date: '||l_ipm_rec.last_update_date);
787: -- dbms_output.put_line('last_update_login: '||to_char(l_ipm_rec.last_update_login));
788: --- If any errors happen abort API
789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
791: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
792: RAISE OKC_API.G_EXCEPTION_ERROR;
793: END IF;

Line 790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

786: -- dbms_output.put_line('last_update_date: '||l_ipm_rec.last_update_date);
787: -- dbms_output.put_line('last_update_login: '||to_char(l_ipm_rec.last_update_login));
788: --- If any errors happen abort API
789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
791: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
792: RAISE OKC_API.G_EXCEPTION_ERROR;
793: END IF;
794: INSERT INTO OKL_TRX_PARAMS_B(

Line 791: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

787: -- dbms_output.put_line('last_update_login: '||to_char(l_ipm_rec.last_update_login));
788: --- If any errors happen abort API
789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
791: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
792: RAISE OKC_API.G_EXCEPTION_ERROR;
793: END IF;
794: INSERT INTO OKL_TRX_PARAMS_B(
795: id,

Line 792: RAISE OKC_API.G_EXCEPTION_ERROR;

788: --- If any errors happen abort API
789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
791: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
792: RAISE OKC_API.G_EXCEPTION_ERROR;
793: END IF;
794: INSERT INTO OKL_TRX_PARAMS_B(
795: id,
796: source_table,

Line 820: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

816: -- Set OUT values
817: -- dbms_output.put_line('Message 3');
818: x_ipm_rec := l_ipm_rec;
819: x_return_status := l_return_status;
820: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
821: EXCEPTION
822: WHEN OKC_API.G_EXCEPTION_ERROR THEN
823: x_return_status := OKC_API.HANDLE_EXCEPTIONS
824: (

Line 822: WHEN OKC_API.G_EXCEPTION_ERROR THEN

818: x_ipm_rec := l_ipm_rec;
819: x_return_status := l_return_status;
820: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
821: EXCEPTION
822: WHEN OKC_API.G_EXCEPTION_ERROR THEN
823: x_return_status := OKC_API.HANDLE_EXCEPTIONS
824: (
825: l_api_name,
826: G_PKG_NAME,

Line 823: x_return_status := OKC_API.HANDLE_EXCEPTIONS

819: x_return_status := l_return_status;
820: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
821: EXCEPTION
822: WHEN OKC_API.G_EXCEPTION_ERROR THEN
823: x_return_status := OKC_API.HANDLE_EXCEPTIONS
824: (
825: l_api_name,
826: G_PKG_NAME,
827: 'OKC_API.G_RET_STS_ERROR',

Line 827: 'OKC_API.G_RET_STS_ERROR',

823: x_return_status := OKC_API.HANDLE_EXCEPTIONS
824: (
825: l_api_name,
826: G_PKG_NAME,
827: 'OKC_API.G_RET_STS_ERROR',
828: x_msg_count,
829: x_msg_data,
830: '_PVT'
831: );

Line 832: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

828: x_msg_count,
829: x_msg_data,
830: '_PVT'
831: );
832: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
833: x_return_status := OKC_API.HANDLE_EXCEPTIONS
834: (
835: l_api_name,
836: G_PKG_NAME,

Line 833: x_return_status := OKC_API.HANDLE_EXCEPTIONS

829: x_msg_data,
830: '_PVT'
831: );
832: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
833: x_return_status := OKC_API.HANDLE_EXCEPTIONS
834: (
835: l_api_name,
836: G_PKG_NAME,
837: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 837: 'OKC_API.G_RET_STS_UNEXP_ERROR',

833: x_return_status := OKC_API.HANDLE_EXCEPTIONS
834: (
835: l_api_name,
836: G_PKG_NAME,
837: 'OKC_API.G_RET_STS_UNEXP_ERROR',
838: x_msg_count,
839: x_msg_data,
840: '_PVT'
841: );

Line 843: x_return_status := OKC_API.HANDLE_EXCEPTIONS

839: x_msg_data,
840: '_PVT'
841: );
842: WHEN OTHERS THEN
843: x_return_status := OKC_API.HANDLE_EXCEPTIONS
844: (
845: l_api_name,
846: G_PKG_NAME,
847: 'OTHERS',

Line 952: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

948: FOR UPDATE NOWAIT;
949:
950: l_api_version CONSTANT NUMBER := 1;
951: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
952: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
953: l_lock_var lock_csr%ROWTYPE;
954: l_row_notfound BOOLEAN := FALSE;
955: lc_row_notfound BOOLEAN := FALSE;
956: BEGIN

Line 957: l_return_status := OKC_API.START_ACTIVITY(l_api_name,

953: l_lock_var lock_csr%ROWTYPE;
954: l_row_notfound BOOLEAN := FALSE;
955: lc_row_notfound BOOLEAN := FALSE;
956: BEGIN
957: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
958: p_init_msg_list,
959: '_PVT',
960: x_return_status);
961: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

Line 961: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

957: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
958: p_init_msg_list,
959: '_PVT',
960: x_return_status);
961: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
962: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
963: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
964: RAISE OKC_API.G_EXCEPTION_ERROR;
965: END IF;

Line 962: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

958: p_init_msg_list,
959: '_PVT',
960: x_return_status);
961: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
962: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
963: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
964: RAISE OKC_API.G_EXCEPTION_ERROR;
965: END IF;
966: BEGIN

Line 963: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

959: '_PVT',
960: x_return_status);
961: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
962: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
963: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
964: RAISE OKC_API.G_EXCEPTION_ERROR;
965: END IF;
966: BEGIN
967: OPEN lock_csr(p_ipm_rec);

Line 964: RAISE OKC_API.G_EXCEPTION_ERROR;

960: x_return_status);
961: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
962: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
963: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
964: RAISE OKC_API.G_EXCEPTION_ERROR;
965: END IF;
966: BEGIN
967: OPEN lock_csr(p_ipm_rec);
968: FETCH lock_csr INTO l_lock_var;

Line 976: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);

972: WHEN E_Resource_Busy THEN
973: IF (lock_csr%ISOPEN) THEN
974: CLOSE lock_csr;
975: END IF;
976: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
977: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
978: END;
979:
980: IF ( l_row_notfound ) THEN

Line 981: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);

977: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
978: END;
979:
980: IF ( l_row_notfound ) THEN
981: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
982: RAISE OKC_API.G_EXCEPTION_ERROR;
983: ELSE
984: IF (l_lock_var.id <> p_ipm_rec.id) THEN
985: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

Line 982: RAISE OKC_API.G_EXCEPTION_ERROR;

978: END;
979:
980: IF ( l_row_notfound ) THEN
981: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
982: RAISE OKC_API.G_EXCEPTION_ERROR;
983: ELSE
984: IF (l_lock_var.id <> p_ipm_rec.id) THEN
985: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
986: RAISE OKC_API.G_EXCEPTION_ERROR;

Line 985: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

981: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
982: RAISE OKC_API.G_EXCEPTION_ERROR;
983: ELSE
984: IF (l_lock_var.id <> p_ipm_rec.id) THEN
985: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
986: RAISE OKC_API.G_EXCEPTION_ERROR;
987: END IF;
988: IF (l_lock_var.source_table <> p_ipm_rec.source_table) THEN
989: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

Line 986: RAISE OKC_API.G_EXCEPTION_ERROR;

982: RAISE OKC_API.G_EXCEPTION_ERROR;
983: ELSE
984: IF (l_lock_var.id <> p_ipm_rec.id) THEN
985: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
986: RAISE OKC_API.G_EXCEPTION_ERROR;
987: END IF;
988: IF (l_lock_var.source_table <> p_ipm_rec.source_table) THEN
989: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
990: RAISE OKC_API.G_EXCEPTION_ERROR;

Line 989: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

985: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
986: RAISE OKC_API.G_EXCEPTION_ERROR;
987: END IF;
988: IF (l_lock_var.source_table <> p_ipm_rec.source_table) THEN
989: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
990: RAISE OKC_API.G_EXCEPTION_ERROR;
991: END IF;
992: IF (l_lock_var.source_id <> p_ipm_rec.source_id) THEN
993: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

Line 990: RAISE OKC_API.G_EXCEPTION_ERROR;

986: RAISE OKC_API.G_EXCEPTION_ERROR;
987: END IF;
988: IF (l_lock_var.source_table <> p_ipm_rec.source_table) THEN
989: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
990: RAISE OKC_API.G_EXCEPTION_ERROR;
991: END IF;
992: IF (l_lock_var.source_id <> p_ipm_rec.source_id) THEN
993: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
994: RAISE OKC_API.G_EXCEPTION_ERROR;

Line 993: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

989: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
990: RAISE OKC_API.G_EXCEPTION_ERROR;
991: END IF;
992: IF (l_lock_var.source_id <> p_ipm_rec.source_id) THEN
993: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
994: RAISE OKC_API.G_EXCEPTION_ERROR;
995: END IF;
996: IF (l_lock_var.param_name <> p_ipm_rec.param_name) THEN
997: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

Line 994: RAISE OKC_API.G_EXCEPTION_ERROR;

990: RAISE OKC_API.G_EXCEPTION_ERROR;
991: END IF;
992: IF (l_lock_var.source_id <> p_ipm_rec.source_id) THEN
993: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
994: RAISE OKC_API.G_EXCEPTION_ERROR;
995: END IF;
996: IF (l_lock_var.param_name <> p_ipm_rec.param_name) THEN
997: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
998: RAISE OKC_API.G_EXCEPTION_ERROR;

Line 997: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

993: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
994: RAISE OKC_API.G_EXCEPTION_ERROR;
995: END IF;
996: IF (l_lock_var.param_name <> p_ipm_rec.param_name) THEN
997: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
998: RAISE OKC_API.G_EXCEPTION_ERROR;
999: END IF;
1000: IF (l_lock_var.param_value <> p_ipm_rec.param_value) THEN
1001: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

Line 998: RAISE OKC_API.G_EXCEPTION_ERROR;

994: RAISE OKC_API.G_EXCEPTION_ERROR;
995: END IF;
996: IF (l_lock_var.param_name <> p_ipm_rec.param_name) THEN
997: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
998: RAISE OKC_API.G_EXCEPTION_ERROR;
999: END IF;
1000: IF (l_lock_var.param_value <> p_ipm_rec.param_value) THEN
1001: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1002: RAISE OKC_API.G_EXCEPTION_ERROR;

Line 1001: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

997: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
998: RAISE OKC_API.G_EXCEPTION_ERROR;
999: END IF;
1000: IF (l_lock_var.param_value <> p_ipm_rec.param_value) THEN
1001: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1002: RAISE OKC_API.G_EXCEPTION_ERROR;
1003: END IF;
1004: IF (l_lock_var.created_by <> p_ipm_rec.created_by) THEN
1005: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

Line 1002: RAISE OKC_API.G_EXCEPTION_ERROR;

998: RAISE OKC_API.G_EXCEPTION_ERROR;
999: END IF;
1000: IF (l_lock_var.param_value <> p_ipm_rec.param_value) THEN
1001: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1002: RAISE OKC_API.G_EXCEPTION_ERROR;
1003: END IF;
1004: IF (l_lock_var.created_by <> p_ipm_rec.created_by) THEN
1005: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1006: RAISE OKC_API.G_EXCEPTION_ERROR;

Line 1005: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

1001: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1002: RAISE OKC_API.G_EXCEPTION_ERROR;
1003: END IF;
1004: IF (l_lock_var.created_by <> p_ipm_rec.created_by) THEN
1005: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1006: RAISE OKC_API.G_EXCEPTION_ERROR;
1007: END IF;
1008: IF (l_lock_var.creation_date <> p_ipm_rec.creation_date) THEN
1009: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

Line 1006: RAISE OKC_API.G_EXCEPTION_ERROR;

1002: RAISE OKC_API.G_EXCEPTION_ERROR;
1003: END IF;
1004: IF (l_lock_var.created_by <> p_ipm_rec.created_by) THEN
1005: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1006: RAISE OKC_API.G_EXCEPTION_ERROR;
1007: END IF;
1008: IF (l_lock_var.creation_date <> p_ipm_rec.creation_date) THEN
1009: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1010: RAISE OKC_API.G_EXCEPTION_ERROR;

Line 1009: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

1005: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1006: RAISE OKC_API.G_EXCEPTION_ERROR;
1007: END IF;
1008: IF (l_lock_var.creation_date <> p_ipm_rec.creation_date) THEN
1009: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1010: RAISE OKC_API.G_EXCEPTION_ERROR;
1011: END IF;
1012: IF (l_lock_var.last_updated_by <> p_ipm_rec.last_updated_by) THEN
1013: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

Line 1010: RAISE OKC_API.G_EXCEPTION_ERROR;

1006: RAISE OKC_API.G_EXCEPTION_ERROR;
1007: END IF;
1008: IF (l_lock_var.creation_date <> p_ipm_rec.creation_date) THEN
1009: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1010: RAISE OKC_API.G_EXCEPTION_ERROR;
1011: END IF;
1012: IF (l_lock_var.last_updated_by <> p_ipm_rec.last_updated_by) THEN
1013: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1014: RAISE OKC_API.G_EXCEPTION_ERROR;

Line 1013: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

1009: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1010: RAISE OKC_API.G_EXCEPTION_ERROR;
1011: END IF;
1012: IF (l_lock_var.last_updated_by <> p_ipm_rec.last_updated_by) THEN
1013: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1014: RAISE OKC_API.G_EXCEPTION_ERROR;
1015: END IF;
1016: IF (l_lock_var.last_update_date <> p_ipm_rec.last_update_date) THEN
1017: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

Line 1014: RAISE OKC_API.G_EXCEPTION_ERROR;

1010: RAISE OKC_API.G_EXCEPTION_ERROR;
1011: END IF;
1012: IF (l_lock_var.last_updated_by <> p_ipm_rec.last_updated_by) THEN
1013: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1014: RAISE OKC_API.G_EXCEPTION_ERROR;
1015: END IF;
1016: IF (l_lock_var.last_update_date <> p_ipm_rec.last_update_date) THEN
1017: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1018: RAISE OKC_API.G_EXCEPTION_ERROR;

Line 1017: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

1013: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1014: RAISE OKC_API.G_EXCEPTION_ERROR;
1015: END IF;
1016: IF (l_lock_var.last_update_date <> p_ipm_rec.last_update_date) THEN
1017: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1018: RAISE OKC_API.G_EXCEPTION_ERROR;
1019: END IF;
1020: IF (l_lock_var.last_update_login <> p_ipm_rec.last_update_login) THEN
1021: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

Line 1018: RAISE OKC_API.G_EXCEPTION_ERROR;

1014: RAISE OKC_API.G_EXCEPTION_ERROR;
1015: END IF;
1016: IF (l_lock_var.last_update_date <> p_ipm_rec.last_update_date) THEN
1017: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1018: RAISE OKC_API.G_EXCEPTION_ERROR;
1019: END IF;
1020: IF (l_lock_var.last_update_login <> p_ipm_rec.last_update_login) THEN
1021: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1022: RAISE OKC_API.G_EXCEPTION_ERROR;

Line 1021: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);

1017: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1018: RAISE OKC_API.G_EXCEPTION_ERROR;
1019: END IF;
1020: IF (l_lock_var.last_update_login <> p_ipm_rec.last_update_login) THEN
1021: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1022: RAISE OKC_API.G_EXCEPTION_ERROR;
1023: END IF;
1024: END IF;
1025: x_return_status := l_return_status;

Line 1022: RAISE OKC_API.G_EXCEPTION_ERROR;

1018: RAISE OKC_API.G_EXCEPTION_ERROR;
1019: END IF;
1020: IF (l_lock_var.last_update_login <> p_ipm_rec.last_update_login) THEN
1021: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1022: RAISE OKC_API.G_EXCEPTION_ERROR;
1023: END IF;
1024: END IF;
1025: x_return_status := l_return_status;
1026: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

Line 1026: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

1022: RAISE OKC_API.G_EXCEPTION_ERROR;
1023: END IF;
1024: END IF;
1025: x_return_status := l_return_status;
1026: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1027: EXCEPTION
1028: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1030: (

Line 1028: WHEN OKC_API.G_EXCEPTION_ERROR THEN

1024: END IF;
1025: x_return_status := l_return_status;
1026: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1027: EXCEPTION
1028: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1030: (
1031: l_api_name,
1032: G_PKG_NAME,

Line 1029: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1025: x_return_status := l_return_status;
1026: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1027: EXCEPTION
1028: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1030: (
1031: l_api_name,
1032: G_PKG_NAME,
1033: 'OKC_API.G_RET_STS_ERROR',

Line 1033: 'OKC_API.G_RET_STS_ERROR',

1029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1030: (
1031: l_api_name,
1032: G_PKG_NAME,
1033: 'OKC_API.G_RET_STS_ERROR',
1034: x_msg_count,
1035: x_msg_data,
1036: '_PVT'
1037: );

Line 1038: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1034: x_msg_count,
1035: x_msg_data,
1036: '_PVT'
1037: );
1038: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1039: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1040: (
1041: l_api_name,
1042: G_PKG_NAME,

Line 1039: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1035: x_msg_data,
1036: '_PVT'
1037: );
1038: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1039: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1040: (
1041: l_api_name,
1042: G_PKG_NAME,
1043: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 1043: 'OKC_API.G_RET_STS_UNEXP_ERROR',

1039: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1040: (
1041: l_api_name,
1042: G_PKG_NAME,
1043: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1044: x_msg_count,
1045: x_msg_data,
1046: '_PVT'
1047: );

Line 1049: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1045: x_msg_data,
1046: '_PVT'
1047: );
1048: WHEN OTHERS THEN
1049: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1050: (
1051: l_api_name,
1052: G_PKG_NAME,
1053: 'OTHERS',

Line 1072: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

1068: p_ipm_rec IN ipm_rec_type) IS
1069:
1070: l_api_version CONSTANT NUMBER := 1;
1071: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1072: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1073: l_ipm_rec ipm_rec_type;
1074: BEGIN
1075: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1076: G_PKG_NAME,

Line 1075: l_return_status := OKC_API.START_ACTIVITY(l_api_name,

1071: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1072: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1073: l_ipm_rec ipm_rec_type;
1074: BEGIN
1075: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1076: G_PKG_NAME,
1077: p_init_msg_list,
1078: l_api_version,
1079: p_api_version,

Line 1082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

1078: l_api_version,
1079: p_api_version,
1080: '_PVT',
1081: x_return_status);
1082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;

Line 1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

1079: p_api_version,
1080: '_PVT',
1081: x_return_status);
1082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: -----------------------------------------

Line 1084: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

1080: '_PVT',
1081: x_return_status);
1082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: -----------------------------------------
1088: -- Move VIEW record to "Child" records --

Line 1085: RAISE OKC_API.G_EXCEPTION_ERROR;

1081: x_return_status);
1082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: -----------------------------------------
1088: -- Move VIEW record to "Child" records --
1089: -----------------------------------------

Line 1101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

1097: x_msg_count,
1098: x_msg_data,
1099: l_ipm_rec
1100: );
1101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1102: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1103: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1104: RAISE OKC_API.G_EXCEPTION_ERROR;
1105: END IF;

Line 1102: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

1098: x_msg_data,
1099: l_ipm_rec
1100: );
1101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1102: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1103: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1104: RAISE OKC_API.G_EXCEPTION_ERROR;
1105: END IF;
1106: x_return_status := l_return_status;

Line 1103: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

1099: l_ipm_rec
1100: );
1101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1102: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1103: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1104: RAISE OKC_API.G_EXCEPTION_ERROR;
1105: END IF;
1106: x_return_status := l_return_status;
1107: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

Line 1104: RAISE OKC_API.G_EXCEPTION_ERROR;

1100: );
1101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1102: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1103: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1104: RAISE OKC_API.G_EXCEPTION_ERROR;
1105: END IF;
1106: x_return_status := l_return_status;
1107: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1108: EXCEPTION

Line 1107: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

1103: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1104: RAISE OKC_API.G_EXCEPTION_ERROR;
1105: END IF;
1106: x_return_status := l_return_status;
1107: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1108: EXCEPTION
1109: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1110: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1111: (

Line 1109: WHEN OKC_API.G_EXCEPTION_ERROR THEN

1105: END IF;
1106: x_return_status := l_return_status;
1107: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1108: EXCEPTION
1109: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1110: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1111: (
1112: l_api_name,
1113: G_PKG_NAME,

Line 1110: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1106: x_return_status := l_return_status;
1107: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1108: EXCEPTION
1109: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1110: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1111: (
1112: l_api_name,
1113: G_PKG_NAME,
1114: 'OKC_API.G_RET_STS_ERROR',

Line 1114: 'OKC_API.G_RET_STS_ERROR',

1110: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1111: (
1112: l_api_name,
1113: G_PKG_NAME,
1114: 'OKC_API.G_RET_STS_ERROR',
1115: x_msg_count,
1116: x_msg_data,
1117: '_PVT'
1118: );

Line 1119: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1115: x_msg_count,
1116: x_msg_data,
1117: '_PVT'
1118: );
1119: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1120: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1121: (
1122: l_api_name,
1123: G_PKG_NAME,

Line 1120: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1116: x_msg_data,
1117: '_PVT'
1118: );
1119: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1120: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1121: (
1122: l_api_name,
1123: G_PKG_NAME,
1124: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 1124: 'OKC_API.G_RET_STS_UNEXP_ERROR',

1120: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1121: (
1122: l_api_name,
1123: G_PKG_NAME,
1124: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1125: x_msg_count,
1126: x_msg_data,
1127: '_PVT'
1128: );

Line 1130: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1126: x_msg_data,
1127: '_PVT'
1128: );
1129: WHEN OTHERS THEN
1130: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1131: (
1132: l_api_name,
1133: G_PKG_NAME,
1134: 'OTHERS',

Line 1150: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS

1146: x_return_status OUT NOCOPY VARCHAR2,
1147: x_msg_count OUT NOCOPY NUMBER,
1148: x_msg_data OUT NOCOPY VARCHAR2,
1149: p_ipm_tbl IN ipm_tbl_type,
1150: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1151:
1152: l_api_version CONSTANT NUMBER := 1;
1153: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
1154: i NUMBER := 0;

Line 1156: OKC_API.init_msg_list(p_init_msg_list);

1152: l_api_version CONSTANT NUMBER := 1;
1153: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
1154: i NUMBER := 0;
1155: BEGIN
1156: OKC_API.init_msg_list(p_init_msg_list);
1157: -- Make sure PL/SQL table has recrods in it before passing
1158: IF (p_ipm_tbl.COUNT > 0) THEN
1159: i := p_ipm_tbl.FIRST;
1160: LOOP

Line 1162: l_error_rec OKC_API.ERROR_REC_TYPE;

1158: IF (p_ipm_tbl.COUNT > 0) THEN
1159: i := p_ipm_tbl.FIRST;
1160: LOOP
1161: DECLARE
1162: l_error_rec OKC_API.ERROR_REC_TYPE;
1163: BEGIN
1164: l_error_rec.api_name := l_api_name;
1165: l_error_rec.api_package := G_PKG_NAME;
1166: l_error_rec.idx := i;

Line 1169: p_init_msg_list => OKC_API.G_FALSE,

1165: l_error_rec.api_package := G_PKG_NAME;
1166: l_error_rec.idx := i;
1167: lock_row(
1168: p_api_version => p_api_version,
1169: p_init_msg_list => OKC_API.G_FALSE,
1170: x_return_status => l_error_rec.error_type,
1171: x_msg_count => l_error_rec.msg_count,
1172: x_msg_data => l_error_rec.msg_data,
1173: p_ipm_rec => p_ipm_tbl(i));

Line 1174: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN

1170: x_return_status => l_error_rec.error_type,
1171: x_msg_count => l_error_rec.msg_count,
1172: x_msg_data => l_error_rec.msg_data,
1173: p_ipm_rec => p_ipm_tbl(i));
1174: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1175: l_error_rec.sqlcode := SQLCODE;
1176: load_error_tbl(l_error_rec, px_error_tbl);
1177: ELSE
1178: x_msg_count := l_error_rec.msg_count;

Line 1182: WHEN OKC_API.G_EXCEPTION_ERROR THEN

1178: x_msg_count := l_error_rec.msg_count;
1179: x_msg_data := l_error_rec.msg_data;
1180: END IF;
1181: EXCEPTION
1182: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1183: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1184: l_error_rec.sqlcode := SQLCODE;
1185: load_error_tbl(l_error_rec, px_error_tbl);
1186: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 1183: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;

1179: x_msg_data := l_error_rec.msg_data;
1180: END IF;
1181: EXCEPTION
1182: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1183: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1184: l_error_rec.sqlcode := SQLCODE;
1185: load_error_tbl(l_error_rec, px_error_tbl);
1186: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1187: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;

Line 1186: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1182: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1183: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1184: l_error_rec.sqlcode := SQLCODE;
1185: load_error_tbl(l_error_rec, px_error_tbl);
1186: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1187: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1188: l_error_rec.sqlcode := SQLCODE;
1189: load_error_tbl(l_error_rec, px_error_tbl);
1190: WHEN OTHERS THEN

Line 1187: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;

1183: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1184: l_error_rec.sqlcode := SQLCODE;
1185: load_error_tbl(l_error_rec, px_error_tbl);
1186: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1187: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1188: l_error_rec.sqlcode := SQLCODE;
1189: load_error_tbl(l_error_rec, px_error_tbl);
1190: WHEN OTHERS THEN
1191: l_error_rec.error_type := 'OTHERS';

Line 1202: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

1198: END IF;
1199: -- Loop through the error_tbl to find the error with the highest severity
1200: -- and return it.
1201: x_return_status := find_highest_exception(px_error_tbl);
1202: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1203: EXCEPTION
1204: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1205: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1206: (

Line 1204: WHEN OKC_API.G_EXCEPTION_ERROR THEN

1200: -- and return it.
1201: x_return_status := find_highest_exception(px_error_tbl);
1202: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1203: EXCEPTION
1204: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1205: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1206: (
1207: l_api_name,
1208: G_PKG_NAME,

Line 1205: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1201: x_return_status := find_highest_exception(px_error_tbl);
1202: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1203: EXCEPTION
1204: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1205: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1206: (
1207: l_api_name,
1208: G_PKG_NAME,
1209: 'OKC_API.G_RET_STS_ERROR',

Line 1209: 'OKC_API.G_RET_STS_ERROR',

1205: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1206: (
1207: l_api_name,
1208: G_PKG_NAME,
1209: 'OKC_API.G_RET_STS_ERROR',
1210: x_msg_count,
1211: x_msg_data,
1212: '_PVT'
1213: );

Line 1214: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1210: x_msg_count,
1211: x_msg_data,
1212: '_PVT'
1213: );
1214: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1215: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1216: (
1217: l_api_name,
1218: G_PKG_NAME,

Line 1215: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1211: x_msg_data,
1212: '_PVT'
1213: );
1214: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1215: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1216: (
1217: l_api_name,
1218: G_PKG_NAME,
1219: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 1219: 'OKC_API.G_RET_STS_UNEXP_ERROR',

1215: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1216: (
1217: l_api_name,
1218: G_PKG_NAME,
1219: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1220: x_msg_count,
1221: x_msg_data,
1222: '_PVT'
1223: );

Line 1225: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1221: x_msg_data,
1222: '_PVT'
1223: );
1224: WHEN OTHERS THEN
1225: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1226: (
1227: l_api_name,
1228: G_PKG_NAME,
1229: 'OTHERS',

Line 1248: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

1244: p_ipm_tbl IN ipm_tbl_type) IS
1245:
1246: l_api_version CONSTANT NUMBER := 1;
1247: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1248: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1249: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1250: BEGIN
1251: OKC_API.init_msg_list(p_init_msg_list);
1252: -- Make sure PL/SQL table has recrods in it before passing

Line 1249: l_error_tbl OKC_API.ERROR_TBL_TYPE;

1245:
1246: l_api_version CONSTANT NUMBER := 1;
1247: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1248: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1249: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1250: BEGIN
1251: OKC_API.init_msg_list(p_init_msg_list);
1252: -- Make sure PL/SQL table has recrods in it before passing
1253: IF (p_ipm_tbl.COUNT > 0) THEN

Line 1251: OKC_API.init_msg_list(p_init_msg_list);

1247: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1248: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1249: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1250: BEGIN
1251: OKC_API.init_msg_list(p_init_msg_list);
1252: -- Make sure PL/SQL table has recrods in it before passing
1253: IF (p_ipm_tbl.COUNT > 0) THEN
1254: lock_row(
1255: p_api_version => p_api_version,

Line 1256: p_init_msg_list => OKC_API.G_FALSE,

1252: -- Make sure PL/SQL table has recrods in it before passing
1253: IF (p_ipm_tbl.COUNT > 0) THEN
1254: lock_row(
1255: p_api_version => p_api_version,
1256: p_init_msg_list => OKC_API.G_FALSE,
1257: x_return_status => x_return_status,
1258: x_msg_count => x_msg_count,
1259: x_msg_data => x_msg_data,
1260: p_ipm_tbl => p_ipm_tbl,

Line 1263: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

1259: x_msg_data => x_msg_data,
1260: p_ipm_tbl => p_ipm_tbl,
1261: px_error_tbl => l_error_tbl);
1262: END IF;
1263: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1264: EXCEPTION
1265: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1266: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1267: (

Line 1265: WHEN OKC_API.G_EXCEPTION_ERROR THEN

1261: px_error_tbl => l_error_tbl);
1262: END IF;
1263: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1264: EXCEPTION
1265: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1266: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1267: (
1268: l_api_name,
1269: G_PKG_NAME,

Line 1266: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1262: END IF;
1263: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1264: EXCEPTION
1265: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1266: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1267: (
1268: l_api_name,
1269: G_PKG_NAME,
1270: 'OKC_API.G_RET_STS_ERROR',

Line 1270: 'OKC_API.G_RET_STS_ERROR',

1266: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1267: (
1268: l_api_name,
1269: G_PKG_NAME,
1270: 'OKC_API.G_RET_STS_ERROR',
1271: x_msg_count,
1272: x_msg_data,
1273: '_PVT'
1274: );

Line 1275: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1271: x_msg_count,
1272: x_msg_data,
1273: '_PVT'
1274: );
1275: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1276: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1277: (
1278: l_api_name,
1279: G_PKG_NAME,

Line 1276: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1272: x_msg_data,
1273: '_PVT'
1274: );
1275: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1276: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1277: (
1278: l_api_name,
1279: G_PKG_NAME,
1280: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 1280: 'OKC_API.G_RET_STS_UNEXP_ERROR',

1276: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1277: (
1278: l_api_name,
1279: G_PKG_NAME,
1280: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1281: x_msg_count,
1282: x_msg_data,
1283: '_PVT'
1284: );

Line 1286: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1282: x_msg_data,
1283: '_PVT'
1284: );
1285: WHEN OTHERS THEN
1286: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1287: (
1288: l_api_name,
1289: G_PKG_NAME,
1290: 'OTHERS',

Line 1312: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

1308: x_ipm_rec OUT NOCOPY ipm_rec_type) IS
1309:
1310: l_api_version CONSTANT NUMBER := 1;
1311: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
1312: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1313: l_ipm_rec ipm_rec_type := p_ipm_rec;
1314: l_def_ipm_rec ipm_rec_type;
1315: l_row_notfound BOOLEAN := TRUE;
1316: ----------------------------------

Line 1325: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

1321: x_ipm_rec OUT NOCOPY ipm_rec_type
1322: ) RETURN VARCHAR2 IS
1323: l_ipm_rec ipm_rec_type;
1324: l_row_notfound BOOLEAN := TRUE;
1325: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1326: BEGIN
1327: x_ipm_rec := p_ipm_rec;
1328: -- Get current database values
1329: l_ipm_rec := get_rec(p_ipm_rec, l_return_status);

Line 1330: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN

1326: BEGIN
1327: x_ipm_rec := p_ipm_rec;
1328: -- Get current database values
1329: l_ipm_rec := get_rec(p_ipm_rec, l_return_status);
1330: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
1331: IF (x_ipm_rec.id = OKC_API.G_MISS_NUM)
1332: THEN
1333: x_ipm_rec.id := l_ipm_rec.id;
1334: END IF;

Line 1331: IF (x_ipm_rec.id = OKC_API.G_MISS_NUM)

1327: x_ipm_rec := p_ipm_rec;
1328: -- Get current database values
1329: l_ipm_rec := get_rec(p_ipm_rec, l_return_status);
1330: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
1331: IF (x_ipm_rec.id = OKC_API.G_MISS_NUM)
1332: THEN
1333: x_ipm_rec.id := l_ipm_rec.id;
1334: END IF;
1335: IF (x_ipm_rec.source_table = OKC_API.G_MISS_CHAR)

Line 1335: IF (x_ipm_rec.source_table = OKC_API.G_MISS_CHAR)

1331: IF (x_ipm_rec.id = OKC_API.G_MISS_NUM)
1332: THEN
1333: x_ipm_rec.id := l_ipm_rec.id;
1334: END IF;
1335: IF (x_ipm_rec.source_table = OKC_API.G_MISS_CHAR)
1336: THEN
1337: x_ipm_rec.source_table := l_ipm_rec.source_table;
1338: END IF;
1339: IF (x_ipm_rec.source_id = OKC_API.G_MISS_NUM)

Line 1339: IF (x_ipm_rec.source_id = OKC_API.G_MISS_NUM)

1335: IF (x_ipm_rec.source_table = OKC_API.G_MISS_CHAR)
1336: THEN
1337: x_ipm_rec.source_table := l_ipm_rec.source_table;
1338: END IF;
1339: IF (x_ipm_rec.source_id = OKC_API.G_MISS_NUM)
1340: THEN
1341: x_ipm_rec.source_id := l_ipm_rec.source_id;
1342: END IF;
1343: IF (x_ipm_rec.param_name = OKC_API.G_MISS_CHAR)

Line 1343: IF (x_ipm_rec.param_name = OKC_API.G_MISS_CHAR)

1339: IF (x_ipm_rec.source_id = OKC_API.G_MISS_NUM)
1340: THEN
1341: x_ipm_rec.source_id := l_ipm_rec.source_id;
1342: END IF;
1343: IF (x_ipm_rec.param_name = OKC_API.G_MISS_CHAR)
1344: THEN
1345: x_ipm_rec.param_name := l_ipm_rec.param_name;
1346: END IF;
1347: IF (x_ipm_rec.param_value = OKC_API.G_MISS_CHAR)

Line 1347: IF (x_ipm_rec.param_value = OKC_API.G_MISS_CHAR)

1343: IF (x_ipm_rec.param_name = OKC_API.G_MISS_CHAR)
1344: THEN
1345: x_ipm_rec.param_name := l_ipm_rec.param_name;
1346: END IF;
1347: IF (x_ipm_rec.param_value = OKC_API.G_MISS_CHAR)
1348: THEN
1349: x_ipm_rec.param_value := l_ipm_rec.param_value;
1350: END IF;
1351: IF (x_ipm_rec.created_by = OKC_API.G_MISS_NUM)

Line 1351: IF (x_ipm_rec.created_by = OKC_API.G_MISS_NUM)

1347: IF (x_ipm_rec.param_value = OKC_API.G_MISS_CHAR)
1348: THEN
1349: x_ipm_rec.param_value := l_ipm_rec.param_value;
1350: END IF;
1351: IF (x_ipm_rec.created_by = OKC_API.G_MISS_NUM)
1352: THEN
1353: x_ipm_rec.created_by := l_ipm_rec.created_by;
1354: END IF;
1355: IF (x_ipm_rec.creation_date = OKC_API.G_MISS_DATE)

Line 1355: IF (x_ipm_rec.creation_date = OKC_API.G_MISS_DATE)

1351: IF (x_ipm_rec.created_by = OKC_API.G_MISS_NUM)
1352: THEN
1353: x_ipm_rec.created_by := l_ipm_rec.created_by;
1354: END IF;
1355: IF (x_ipm_rec.creation_date = OKC_API.G_MISS_DATE)
1356: THEN
1357: x_ipm_rec.creation_date := l_ipm_rec.creation_date;
1358: END IF;
1359: IF (x_ipm_rec.last_updated_by = OKC_API.G_MISS_NUM)

Line 1359: IF (x_ipm_rec.last_updated_by = OKC_API.G_MISS_NUM)

1355: IF (x_ipm_rec.creation_date = OKC_API.G_MISS_DATE)
1356: THEN
1357: x_ipm_rec.creation_date := l_ipm_rec.creation_date;
1358: END IF;
1359: IF (x_ipm_rec.last_updated_by = OKC_API.G_MISS_NUM)
1360: THEN
1361: x_ipm_rec.last_updated_by := l_ipm_rec.last_updated_by;
1362: END IF;
1363: IF (x_ipm_rec.last_update_date = OKC_API.G_MISS_DATE)

Line 1363: IF (x_ipm_rec.last_update_date = OKC_API.G_MISS_DATE)

1359: IF (x_ipm_rec.last_updated_by = OKC_API.G_MISS_NUM)
1360: THEN
1361: x_ipm_rec.last_updated_by := l_ipm_rec.last_updated_by;
1362: END IF;
1363: IF (x_ipm_rec.last_update_date = OKC_API.G_MISS_DATE)
1364: THEN
1365: x_ipm_rec.last_update_date := l_ipm_rec.last_update_date;
1366: END IF;
1367: IF (x_ipm_rec.last_update_login = OKC_API.G_MISS_NUM)

Line 1367: IF (x_ipm_rec.last_update_login = OKC_API.G_MISS_NUM)

1363: IF (x_ipm_rec.last_update_date = OKC_API.G_MISS_DATE)
1364: THEN
1365: x_ipm_rec.last_update_date := l_ipm_rec.last_update_date;
1366: END IF;
1367: IF (x_ipm_rec.last_update_login = OKC_API.G_MISS_NUM)
1368: THEN
1369: x_ipm_rec.last_update_login := l_ipm_rec.last_update_login;
1370: END IF;
1371: END IF;

Line 1381: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

1377: FUNCTION Set_Attributes (
1378: p_ipm_rec IN ipm_rec_type,
1379: x_ipm_rec OUT NOCOPY ipm_rec_type
1380: ) RETURN VARCHAR2 IS
1381: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1382: BEGIN
1383: x_ipm_rec := p_ipm_rec;
1384: RETURN(l_return_status);
1385: END Set_Attributes;

Line 1387: l_return_status := OKC_API.START_ACTIVITY(l_api_name,

1383: x_ipm_rec := p_ipm_rec;
1384: RETURN(l_return_status);
1385: END Set_Attributes;
1386: BEGIN
1387: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1388: p_init_msg_list,
1389: '_PVT',
1390: x_return_status);
1391: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

Line 1391: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

1387: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1388: p_init_msg_list,
1389: '_PVT',
1390: x_return_status);
1391: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1392: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1393: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1394: RAISE OKC_API.G_EXCEPTION_ERROR;
1395: END IF;

Line 1392: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

1388: p_init_msg_list,
1389: '_PVT',
1390: x_return_status);
1391: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1392: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1393: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1394: RAISE OKC_API.G_EXCEPTION_ERROR;
1395: END IF;
1396: --- Setting item attributes

Line 1393: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

1389: '_PVT',
1390: x_return_status);
1391: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1392: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1393: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1394: RAISE OKC_API.G_EXCEPTION_ERROR;
1395: END IF;
1396: --- Setting item attributes
1397: l_return_status := Set_Attributes(

Line 1394: RAISE OKC_API.G_EXCEPTION_ERROR;

1390: x_return_status);
1391: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1392: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1393: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1394: RAISE OKC_API.G_EXCEPTION_ERROR;
1395: END IF;
1396: --- Setting item attributes
1397: l_return_status := Set_Attributes(
1398: p_ipm_rec, -- IN

Line 1401: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

1397: l_return_status := Set_Attributes(
1398: p_ipm_rec, -- IN
1399: l_ipm_rec); -- OUT
1400: --- If any errors happen abort API
1401: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_ERROR;
1405: END IF;

Line 1402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

1398: p_ipm_rec, -- IN
1399: l_ipm_rec); -- OUT
1400: --- If any errors happen abort API
1401: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_ERROR;
1405: END IF;
1406: l_return_status := populate_new_record(l_ipm_rec, l_def_ipm_rec);

Line 1403: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

1399: l_ipm_rec); -- OUT
1400: --- If any errors happen abort API
1401: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_ERROR;
1405: END IF;
1406: l_return_status := populate_new_record(l_ipm_rec, l_def_ipm_rec);
1407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

Line 1404: RAISE OKC_API.G_EXCEPTION_ERROR;

1400: --- If any errors happen abort API
1401: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_ERROR;
1405: END IF;
1406: l_return_status := populate_new_record(l_ipm_rec, l_def_ipm_rec);
1407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

Line 1407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

1403: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_ERROR;
1405: END IF;
1406: l_return_status := populate_new_record(l_ipm_rec, l_def_ipm_rec);
1407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1410: RAISE OKC_API.G_EXCEPTION_ERROR;
1411: END IF;

Line 1408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

1404: RAISE OKC_API.G_EXCEPTION_ERROR;
1405: END IF;
1406: l_return_status := populate_new_record(l_ipm_rec, l_def_ipm_rec);
1407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1410: RAISE OKC_API.G_EXCEPTION_ERROR;
1411: END IF;
1412: UPDATE OKL_TRX_PARAMS_B

Line 1409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

1405: END IF;
1406: l_return_status := populate_new_record(l_ipm_rec, l_def_ipm_rec);
1407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1410: RAISE OKC_API.G_EXCEPTION_ERROR;
1411: END IF;
1412: UPDATE OKL_TRX_PARAMS_B
1413: SET SOURCE_TABLE = l_def_ipm_rec.source_table,

Line 1410: RAISE OKC_API.G_EXCEPTION_ERROR;

1406: l_return_status := populate_new_record(l_ipm_rec, l_def_ipm_rec);
1407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1410: RAISE OKC_API.G_EXCEPTION_ERROR;
1411: END IF;
1412: UPDATE OKL_TRX_PARAMS_B
1413: SET SOURCE_TABLE = l_def_ipm_rec.source_table,
1414: SOURCE_ID = l_def_ipm_rec.source_id,

Line 1426: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

1422: WHERE ID = l_def_ipm_rec.id;
1423:
1424: x_ipm_rec := l_ipm_rec;
1425: x_return_status := l_return_status;
1426: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1427: EXCEPTION
1428: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1429: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1430: (

Line 1428: WHEN OKC_API.G_EXCEPTION_ERROR THEN

1424: x_ipm_rec := l_ipm_rec;
1425: x_return_status := l_return_status;
1426: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1427: EXCEPTION
1428: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1429: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1430: (
1431: l_api_name,
1432: G_PKG_NAME,

Line 1429: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1425: x_return_status := l_return_status;
1426: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1427: EXCEPTION
1428: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1429: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1430: (
1431: l_api_name,
1432: G_PKG_NAME,
1433: 'OKC_API.G_RET_STS_ERROR',

Line 1433: 'OKC_API.G_RET_STS_ERROR',

1429: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1430: (
1431: l_api_name,
1432: G_PKG_NAME,
1433: 'OKC_API.G_RET_STS_ERROR',
1434: x_msg_count,
1435: x_msg_data,
1436: '_PVT'
1437: );

Line 1438: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1434: x_msg_count,
1435: x_msg_data,
1436: '_PVT'
1437: );
1438: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1439: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1440: (
1441: l_api_name,
1442: G_PKG_NAME,

Line 1439: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1435: x_msg_data,
1436: '_PVT'
1437: );
1438: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1439: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1440: (
1441: l_api_name,
1442: G_PKG_NAME,
1443: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 1443: 'OKC_API.G_RET_STS_UNEXP_ERROR',

1439: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1440: (
1441: l_api_name,
1442: G_PKG_NAME,
1443: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1444: x_msg_count,
1445: x_msg_data,
1446: '_PVT'
1447: );

Line 1449: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1445: x_msg_data,
1446: '_PVT'
1447: );
1448: WHEN OTHERS THEN
1449: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1450: (
1451: l_api_name,
1452: G_PKG_NAME,
1453: 'OTHERS',

Line 1473: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

1469: x_ipm_rec OUT NOCOPY ipm_rec_type) IS
1470:
1471: l_api_version CONSTANT NUMBER := 1;
1472: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
1473: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1474: l_ipm_rec ipm_rec_type := p_ipm_rec;
1475: l_def_ipm_rec ipm_rec_type;
1476: l_db_ipm_rec ipm_rec_type;
1477: lx_ipm_rec ipm_rec_type;

Line 1499: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

1495: p_ipm_rec IN ipm_rec_type,
1496: x_ipm_rec OUT NOCOPY ipm_rec_type
1497: ) RETURN VARCHAR2 IS
1498: l_row_notfound BOOLEAN := TRUE;
1499: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1500: BEGIN
1501: x_ipm_rec := p_ipm_rec;
1502: -- Get current database values
1503: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it

Line 1506: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN

1502: -- Get current database values
1503: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
1504: -- so it may be verified through LOCK_ROW.
1505: l_db_ipm_rec := get_rec(p_ipm_rec, l_return_status);
1506: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
1507: IF (x_ipm_rec.id = OKC_API.G_MISS_NUM)
1508: THEN
1509: x_ipm_rec.id := l_db_ipm_rec.id;
1510: END IF;

Line 1507: IF (x_ipm_rec.id = OKC_API.G_MISS_NUM)

1503: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
1504: -- so it may be verified through LOCK_ROW.
1505: l_db_ipm_rec := get_rec(p_ipm_rec, l_return_status);
1506: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
1507: IF (x_ipm_rec.id = OKC_API.G_MISS_NUM)
1508: THEN
1509: x_ipm_rec.id := l_db_ipm_rec.id;
1510: END IF;
1511: IF (x_ipm_rec.source_table = OKC_API.G_MISS_CHAR)

Line 1511: IF (x_ipm_rec.source_table = OKC_API.G_MISS_CHAR)

1507: IF (x_ipm_rec.id = OKC_API.G_MISS_NUM)
1508: THEN
1509: x_ipm_rec.id := l_db_ipm_rec.id;
1510: END IF;
1511: IF (x_ipm_rec.source_table = OKC_API.G_MISS_CHAR)
1512: THEN
1513: x_ipm_rec.source_table := l_db_ipm_rec.source_table;
1514: END IF;
1515: IF (x_ipm_rec.source_id = OKC_API.G_MISS_NUM)

Line 1515: IF (x_ipm_rec.source_id = OKC_API.G_MISS_NUM)

1511: IF (x_ipm_rec.source_table = OKC_API.G_MISS_CHAR)
1512: THEN
1513: x_ipm_rec.source_table := l_db_ipm_rec.source_table;
1514: END IF;
1515: IF (x_ipm_rec.source_id = OKC_API.G_MISS_NUM)
1516: THEN
1517: x_ipm_rec.source_id := l_db_ipm_rec.source_id;
1518: END IF;
1519: IF (x_ipm_rec.param_name = OKC_API.G_MISS_CHAR)

Line 1519: IF (x_ipm_rec.param_name = OKC_API.G_MISS_CHAR)

1515: IF (x_ipm_rec.source_id = OKC_API.G_MISS_NUM)
1516: THEN
1517: x_ipm_rec.source_id := l_db_ipm_rec.source_id;
1518: END IF;
1519: IF (x_ipm_rec.param_name = OKC_API.G_MISS_CHAR)
1520: THEN
1521: x_ipm_rec.param_name := l_db_ipm_rec.param_name;
1522: END IF;
1523: IF (x_ipm_rec.param_value = OKC_API.G_MISS_CHAR)

Line 1523: IF (x_ipm_rec.param_value = OKC_API.G_MISS_CHAR)

1519: IF (x_ipm_rec.param_name = OKC_API.G_MISS_CHAR)
1520: THEN
1521: x_ipm_rec.param_name := l_db_ipm_rec.param_name;
1522: END IF;
1523: IF (x_ipm_rec.param_value = OKC_API.G_MISS_CHAR)
1524: THEN
1525: x_ipm_rec.param_value := l_db_ipm_rec.param_value;
1526: END IF;
1527: IF (x_ipm_rec.created_by = OKC_API.G_MISS_NUM)

Line 1527: IF (x_ipm_rec.created_by = OKC_API.G_MISS_NUM)

1523: IF (x_ipm_rec.param_value = OKC_API.G_MISS_CHAR)
1524: THEN
1525: x_ipm_rec.param_value := l_db_ipm_rec.param_value;
1526: END IF;
1527: IF (x_ipm_rec.created_by = OKC_API.G_MISS_NUM)
1528: THEN
1529: x_ipm_rec.created_by := l_db_ipm_rec.created_by;
1530: END IF;
1531: IF (x_ipm_rec.creation_date = OKC_API.G_MISS_DATE)

Line 1531: IF (x_ipm_rec.creation_date = OKC_API.G_MISS_DATE)

1527: IF (x_ipm_rec.created_by = OKC_API.G_MISS_NUM)
1528: THEN
1529: x_ipm_rec.created_by := l_db_ipm_rec.created_by;
1530: END IF;
1531: IF (x_ipm_rec.creation_date = OKC_API.G_MISS_DATE)
1532: THEN
1533: x_ipm_rec.creation_date := l_db_ipm_rec.creation_date;
1534: END IF;
1535: IF (x_ipm_rec.last_updated_by = OKC_API.G_MISS_NUM)

Line 1535: IF (x_ipm_rec.last_updated_by = OKC_API.G_MISS_NUM)

1531: IF (x_ipm_rec.creation_date = OKC_API.G_MISS_DATE)
1532: THEN
1533: x_ipm_rec.creation_date := l_db_ipm_rec.creation_date;
1534: END IF;
1535: IF (x_ipm_rec.last_updated_by = OKC_API.G_MISS_NUM)
1536: THEN
1537: x_ipm_rec.last_updated_by := l_db_ipm_rec.last_updated_by;
1538: END IF;
1539: IF (x_ipm_rec.last_update_date = OKC_API.G_MISS_DATE)

Line 1539: IF (x_ipm_rec.last_update_date = OKC_API.G_MISS_DATE)

1535: IF (x_ipm_rec.last_updated_by = OKC_API.G_MISS_NUM)
1536: THEN
1537: x_ipm_rec.last_updated_by := l_db_ipm_rec.last_updated_by;
1538: END IF;
1539: IF (x_ipm_rec.last_update_date = OKC_API.G_MISS_DATE)
1540: THEN
1541: x_ipm_rec.last_update_date := l_db_ipm_rec.last_update_date;
1542: END IF;
1543: IF (x_ipm_rec.last_update_login = OKC_API.G_MISS_NUM)

Line 1543: IF (x_ipm_rec.last_update_login = OKC_API.G_MISS_NUM)

1539: IF (x_ipm_rec.last_update_date = OKC_API.G_MISS_DATE)
1540: THEN
1541: x_ipm_rec.last_update_date := l_db_ipm_rec.last_update_date;
1542: END IF;
1543: IF (x_ipm_rec.last_update_login = OKC_API.G_MISS_NUM)
1544: THEN
1545: x_ipm_rec.last_update_login := l_db_ipm_rec.last_update_login;
1546: END IF;
1547: END IF;

Line 1557: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

1553: FUNCTION Set_Attributes (
1554: p_ipm_rec IN ipm_rec_type,
1555: x_ipm_rec OUT NOCOPY ipm_rec_type
1556: ) RETURN VARCHAR2 IS
1557: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1558: BEGIN
1559: x_ipm_rec := p_ipm_rec;
1560: RETURN(l_return_status);
1561: END Set_Attributes;

Line 1563: l_return_status := OKC_API.START_ACTIVITY(l_api_name,

1559: x_ipm_rec := p_ipm_rec;
1560: RETURN(l_return_status);
1561: END Set_Attributes;
1562: BEGIN
1563: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1564: G_PKG_NAME,
1565: p_init_msg_list,
1566: l_api_version,
1567: p_api_version,

Line 1570: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

1566: l_api_version,
1567: p_api_version,
1568: '_PVT',
1569: x_return_status);
1570: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1571: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1572: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1573: RAISE OKC_API.G_EXCEPTION_ERROR;
1574: END IF;

Line 1571: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

1567: p_api_version,
1568: '_PVT',
1569: x_return_status);
1570: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1571: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1572: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1573: RAISE OKC_API.G_EXCEPTION_ERROR;
1574: END IF;
1575: --- Setting item attributes

Line 1572: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

1568: '_PVT',
1569: x_return_status);
1570: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1571: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1572: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1573: RAISE OKC_API.G_EXCEPTION_ERROR;
1574: END IF;
1575: --- Setting item attributes
1576: l_return_status := Set_Attributes(

Line 1573: RAISE OKC_API.G_EXCEPTION_ERROR;

1569: x_return_status);
1570: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1571: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1572: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1573: RAISE OKC_API.G_EXCEPTION_ERROR;
1574: END IF;
1575: --- Setting item attributes
1576: l_return_status := Set_Attributes(
1577: p_ipm_rec, -- IN

Line 1580: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

1576: l_return_status := Set_Attributes(
1577: p_ipm_rec, -- IN
1578: x_ipm_rec); -- OUT
1579: --- If any errors happen abort API
1580: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1581: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1582: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1583: RAISE OKC_API.G_EXCEPTION_ERROR;
1584: END IF;

Line 1581: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

1577: p_ipm_rec, -- IN
1578: x_ipm_rec); -- OUT
1579: --- If any errors happen abort API
1580: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1581: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1582: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1583: RAISE OKC_API.G_EXCEPTION_ERROR;
1584: END IF;
1585: l_return_status := populate_new_record(l_ipm_rec, l_def_ipm_rec);

Line 1582: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

1578: x_ipm_rec); -- OUT
1579: --- If any errors happen abort API
1580: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1581: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1582: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1583: RAISE OKC_API.G_EXCEPTION_ERROR;
1584: END IF;
1585: l_return_status := populate_new_record(l_ipm_rec, l_def_ipm_rec);
1586: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

Line 1583: RAISE OKC_API.G_EXCEPTION_ERROR;

1579: --- If any errors happen abort API
1580: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1581: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1582: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1583: RAISE OKC_API.G_EXCEPTION_ERROR;
1584: END IF;
1585: l_return_status := populate_new_record(l_ipm_rec, l_def_ipm_rec);
1586: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

Line 1586: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

1582: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1583: RAISE OKC_API.G_EXCEPTION_ERROR;
1584: END IF;
1585: l_return_status := populate_new_record(l_ipm_rec, l_def_ipm_rec);
1586: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1588: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1589: RAISE OKC_API.G_EXCEPTION_ERROR;
1590: END IF;

Line 1587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

1583: RAISE OKC_API.G_EXCEPTION_ERROR;
1584: END IF;
1585: l_return_status := populate_new_record(l_ipm_rec, l_def_ipm_rec);
1586: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1588: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1589: RAISE OKC_API.G_EXCEPTION_ERROR;
1590: END IF;
1591: l_def_ipm_rec := fill_who_columns(l_def_ipm_rec);

Line 1588: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

1584: END IF;
1585: l_return_status := populate_new_record(l_ipm_rec, l_def_ipm_rec);
1586: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1588: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1589: RAISE OKC_API.G_EXCEPTION_ERROR;
1590: END IF;
1591: l_def_ipm_rec := fill_who_columns(l_def_ipm_rec);
1592: --- Validate all non-missing attributes (Item Level Validation)

Line 1589: RAISE OKC_API.G_EXCEPTION_ERROR;

1585: l_return_status := populate_new_record(l_ipm_rec, l_def_ipm_rec);
1586: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1588: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1589: RAISE OKC_API.G_EXCEPTION_ERROR;
1590: END IF;
1591: l_def_ipm_rec := fill_who_columns(l_def_ipm_rec);
1592: --- Validate all non-missing attributes (Item Level Validation)
1593: l_return_status := Validate_Attributes(l_def_ipm_rec);

Line 1595: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

1591: l_def_ipm_rec := fill_who_columns(l_def_ipm_rec);
1592: --- Validate all non-missing attributes (Item Level Validation)
1593: l_return_status := Validate_Attributes(l_def_ipm_rec);
1594: --- If any errors happen abort API
1595: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1597: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1598: RAISE OKC_API.G_EXCEPTION_ERROR;
1599: END IF;

Line 1596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

1592: --- Validate all non-missing attributes (Item Level Validation)
1593: l_return_status := Validate_Attributes(l_def_ipm_rec);
1594: --- If any errors happen abort API
1595: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1597: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1598: RAISE OKC_API.G_EXCEPTION_ERROR;
1599: END IF;
1600: l_return_status := Validate_Record(l_def_ipm_rec, l_db_ipm_rec);

Line 1597: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

1593: l_return_status := Validate_Attributes(l_def_ipm_rec);
1594: --- If any errors happen abort API
1595: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1597: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1598: RAISE OKC_API.G_EXCEPTION_ERROR;
1599: END IF;
1600: l_return_status := Validate_Record(l_def_ipm_rec, l_db_ipm_rec);
1601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

Line 1598: RAISE OKC_API.G_EXCEPTION_ERROR;

1594: --- If any errors happen abort API
1595: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1597: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1598: RAISE OKC_API.G_EXCEPTION_ERROR;
1599: END IF;
1600: l_return_status := Validate_Record(l_def_ipm_rec, l_db_ipm_rec);
1601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

Line 1601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

1597: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1598: RAISE OKC_API.G_EXCEPTION_ERROR;
1599: END IF;
1600: l_return_status := Validate_Record(l_def_ipm_rec, l_db_ipm_rec);
1601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1603: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1604: RAISE OKC_API.G_EXCEPTION_ERROR;
1605: END IF;

Line 1602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

1598: RAISE OKC_API.G_EXCEPTION_ERROR;
1599: END IF;
1600: l_return_status := Validate_Record(l_def_ipm_rec, l_db_ipm_rec);
1601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1603: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1604: RAISE OKC_API.G_EXCEPTION_ERROR;
1605: END IF;
1606:

Line 1603: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

1599: END IF;
1600: l_return_status := Validate_Record(l_def_ipm_rec, l_db_ipm_rec);
1601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1603: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1604: RAISE OKC_API.G_EXCEPTION_ERROR;
1605: END IF;
1606:
1607: -- Lock the Record

Line 1604: RAISE OKC_API.G_EXCEPTION_ERROR;

1600: l_return_status := Validate_Record(l_def_ipm_rec, l_db_ipm_rec);
1601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1603: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1604: RAISE OKC_API.G_EXCEPTION_ERROR;
1605: END IF;
1606:
1607: -- Lock the Record
1608: lock_row(

Line 1615: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

1611: x_return_status => l_return_status,
1612: x_msg_count => x_msg_count,
1613: x_msg_data => x_msg_data,
1614: p_ipm_rec => p_ipm_rec);
1615: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1617: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1618: RAISE OKC_API.G_EXCEPTION_ERROR;
1619: END IF;

Line 1616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

1612: x_msg_count => x_msg_count,
1613: x_msg_data => x_msg_data,
1614: p_ipm_rec => p_ipm_rec);
1615: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1617: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1618: RAISE OKC_API.G_EXCEPTION_ERROR;
1619: END IF;
1620:

Line 1617: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

1613: x_msg_data => x_msg_data,
1614: p_ipm_rec => p_ipm_rec);
1615: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1617: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1618: RAISE OKC_API.G_EXCEPTION_ERROR;
1619: END IF;
1620:
1621: -----------------------------------------

Line 1618: RAISE OKC_API.G_EXCEPTION_ERROR;

1614: p_ipm_rec => p_ipm_rec);
1615: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1617: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1618: RAISE OKC_API.G_EXCEPTION_ERROR;
1619: END IF;
1620:
1621: -----------------------------------------
1622: -- Move VIEW record to "Child" records --

Line 1636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

1632: x_msg_data,
1633: l_ipm_rec,
1634: lx_ipm_rec
1635: );
1636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_ERROR;
1640: END IF;

Line 1637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

1633: l_ipm_rec,
1634: lx_ipm_rec
1635: );
1636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_ERROR;
1640: END IF;
1641: migrate(lx_ipm_rec, l_def_ipm_rec);

Line 1638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

1634: lx_ipm_rec
1635: );
1636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_ERROR;
1640: END IF;
1641: migrate(lx_ipm_rec, l_def_ipm_rec);
1642: x_ipm_rec := l_def_ipm_rec;

Line 1639: RAISE OKC_API.G_EXCEPTION_ERROR;

1635: );
1636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_ERROR;
1640: END IF;
1641: migrate(lx_ipm_rec, l_def_ipm_rec);
1642: x_ipm_rec := l_def_ipm_rec;
1643: x_return_status := l_return_status;

Line 1644: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

1640: END IF;
1641: migrate(lx_ipm_rec, l_def_ipm_rec);
1642: x_ipm_rec := l_def_ipm_rec;
1643: x_return_status := l_return_status;
1644: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1645: EXCEPTION
1646: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1647: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1648: (

Line 1646: WHEN OKC_API.G_EXCEPTION_ERROR THEN

1642: x_ipm_rec := l_def_ipm_rec;
1643: x_return_status := l_return_status;
1644: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1645: EXCEPTION
1646: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1647: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1648: (
1649: l_api_name,
1650: G_PKG_NAME,

Line 1647: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1643: x_return_status := l_return_status;
1644: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1645: EXCEPTION
1646: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1647: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1648: (
1649: l_api_name,
1650: G_PKG_NAME,
1651: 'OKC_API.G_RET_STS_ERROR',

Line 1651: 'OKC_API.G_RET_STS_ERROR',

1647: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1648: (
1649: l_api_name,
1650: G_PKG_NAME,
1651: 'OKC_API.G_RET_STS_ERROR',
1652: x_msg_count,
1653: x_msg_data,
1654: '_PVT'
1655: );

Line 1656: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1652: x_msg_count,
1653: x_msg_data,
1654: '_PVT'
1655: );
1656: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1657: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1658: (
1659: l_api_name,
1660: G_PKG_NAME,

Line 1657: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1653: x_msg_data,
1654: '_PVT'
1655: );
1656: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1657: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1658: (
1659: l_api_name,
1660: G_PKG_NAME,
1661: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 1661: 'OKC_API.G_RET_STS_UNEXP_ERROR',

1657: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1658: (
1659: l_api_name,
1660: G_PKG_NAME,
1661: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1662: x_msg_count,
1663: x_msg_data,
1664: '_PVT'
1665: );

Line 1667: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1663: x_msg_data,
1664: '_PVT'
1665: );
1666: WHEN OTHERS THEN
1667: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1668: (
1669: l_api_name,
1670: G_PKG_NAME,
1671: 'OTHERS',

Line 1688: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS

1684: x_msg_count OUT NOCOPY NUMBER,
1685: x_msg_data OUT NOCOPY VARCHAR2,
1686: p_ipm_tbl IN ipm_tbl_type,
1687: x_ipm_tbl OUT NOCOPY ipm_tbl_type,
1688: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1689:
1690: l_api_version CONSTANT NUMBER := 1;
1691: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
1692: i NUMBER := 0;

Line 1694: OKC_API.init_msg_list(p_init_msg_list);

1690: l_api_version CONSTANT NUMBER := 1;
1691: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
1692: i NUMBER := 0;
1693: BEGIN
1694: OKC_API.init_msg_list(p_init_msg_list);
1695: -- Make sure PL/SQL table has records in it before passing
1696: IF (p_ipm_tbl.COUNT > 0) THEN
1697: i := p_ipm_tbl.FIRST;
1698: LOOP

Line 1700: l_error_rec OKC_API.ERROR_REC_TYPE;

1696: IF (p_ipm_tbl.COUNT > 0) THEN
1697: i := p_ipm_tbl.FIRST;
1698: LOOP
1699: DECLARE
1700: l_error_rec OKC_API.ERROR_REC_TYPE;
1701: BEGIN
1702: l_error_rec.api_name := l_api_name;
1703: l_error_rec.api_package := G_PKG_NAME;
1704: l_error_rec.idx := i;

Line 1707: p_init_msg_list => OKC_API.G_FALSE,

1703: l_error_rec.api_package := G_PKG_NAME;
1704: l_error_rec.idx := i;
1705: update_row (
1706: p_api_version => p_api_version,
1707: p_init_msg_list => OKC_API.G_FALSE,
1708: x_return_status => l_error_rec.error_type,
1709: x_msg_count => l_error_rec.msg_count,
1710: x_msg_data => l_error_rec.msg_data,
1711: p_ipm_rec => p_ipm_tbl(i),

Line 1713: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN

1709: x_msg_count => l_error_rec.msg_count,
1710: x_msg_data => l_error_rec.msg_data,
1711: p_ipm_rec => p_ipm_tbl(i),
1712: x_ipm_rec => x_ipm_tbl(i));
1713: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1714: l_error_rec.sqlcode := SQLCODE;
1715: load_error_tbl(l_error_rec, px_error_tbl);
1716: ELSE
1717: x_msg_count := l_error_rec.msg_count;

Line 1721: WHEN OKC_API.G_EXCEPTION_ERROR THEN

1717: x_msg_count := l_error_rec.msg_count;
1718: x_msg_data := l_error_rec.msg_data;
1719: END IF;
1720: EXCEPTION
1721: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1722: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1723: l_error_rec.sqlcode := SQLCODE;
1724: load_error_tbl(l_error_rec, px_error_tbl);
1725: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 1722: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;

1718: x_msg_data := l_error_rec.msg_data;
1719: END IF;
1720: EXCEPTION
1721: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1722: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1723: l_error_rec.sqlcode := SQLCODE;
1724: load_error_tbl(l_error_rec, px_error_tbl);
1725: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1726: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;

Line 1725: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1721: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1722: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1723: l_error_rec.sqlcode := SQLCODE;
1724: load_error_tbl(l_error_rec, px_error_tbl);
1725: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1726: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1727: l_error_rec.sqlcode := SQLCODE;
1728: load_error_tbl(l_error_rec, px_error_tbl);
1729: WHEN OTHERS THEN

Line 1726: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;

1722: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1723: l_error_rec.sqlcode := SQLCODE;
1724: load_error_tbl(l_error_rec, px_error_tbl);
1725: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1726: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1727: l_error_rec.sqlcode := SQLCODE;
1728: load_error_tbl(l_error_rec, px_error_tbl);
1729: WHEN OTHERS THEN
1730: l_error_rec.error_type := 'OTHERS';

Line 1741: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

1737: END IF;
1738: -- Loop through the error_tbl to find the error with the highest severity
1739: -- and return it.
1740: x_return_status := find_highest_exception(px_error_tbl);
1741: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1742: EXCEPTION
1743: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1744: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1745: (

Line 1743: WHEN OKC_API.G_EXCEPTION_ERROR THEN

1739: -- and return it.
1740: x_return_status := find_highest_exception(px_error_tbl);
1741: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1742: EXCEPTION
1743: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1744: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1745: (
1746: l_api_name,
1747: G_PKG_NAME,

Line 1744: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1740: x_return_status := find_highest_exception(px_error_tbl);
1741: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1742: EXCEPTION
1743: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1744: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1745: (
1746: l_api_name,
1747: G_PKG_NAME,
1748: 'OKC_API.G_RET_STS_ERROR',

Line 1748: 'OKC_API.G_RET_STS_ERROR',

1744: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1745: (
1746: l_api_name,
1747: G_PKG_NAME,
1748: 'OKC_API.G_RET_STS_ERROR',
1749: x_msg_count,
1750: x_msg_data,
1751: '_PVT'
1752: );

Line 1753: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1749: x_msg_count,
1750: x_msg_data,
1751: '_PVT'
1752: );
1753: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1755: (
1756: l_api_name,
1757: G_PKG_NAME,

Line 1754: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1750: x_msg_data,
1751: '_PVT'
1752: );
1753: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1755: (
1756: l_api_name,
1757: G_PKG_NAME,
1758: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 1758: 'OKC_API.G_RET_STS_UNEXP_ERROR',

1754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1755: (
1756: l_api_name,
1757: G_PKG_NAME,
1758: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1759: x_msg_count,
1760: x_msg_data,
1761: '_PVT'
1762: );

Line 1764: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1760: x_msg_data,
1761: '_PVT'
1762: );
1763: WHEN OTHERS THEN
1764: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1765: (
1766: l_api_name,
1767: G_PKG_NAME,
1768: 'OTHERS',

Line 1789: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

1785: x_ipm_tbl OUT NOCOPY ipm_tbl_type) IS
1786:
1787: l_api_version CONSTANT NUMBER := 1;
1788: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1789: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1790: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1791: BEGIN
1792: OKC_API.init_msg_list(p_init_msg_list);
1793: -- Make sure PL/SQL table has records in it before passing

Line 1790: l_error_tbl OKC_API.ERROR_TBL_TYPE;

1786:
1787: l_api_version CONSTANT NUMBER := 1;
1788: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1789: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1790: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1791: BEGIN
1792: OKC_API.init_msg_list(p_init_msg_list);
1793: -- Make sure PL/SQL table has records in it before passing
1794: IF (p_ipm_tbl.COUNT > 0) THEN

Line 1792: OKC_API.init_msg_list(p_init_msg_list);

1788: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1789: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1790: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1791: BEGIN
1792: OKC_API.init_msg_list(p_init_msg_list);
1793: -- Make sure PL/SQL table has records in it before passing
1794: IF (p_ipm_tbl.COUNT > 0) THEN
1795: update_row (
1796: p_api_version => p_api_version,

Line 1797: p_init_msg_list => OKC_API.G_FALSE,

1793: -- Make sure PL/SQL table has records in it before passing
1794: IF (p_ipm_tbl.COUNT > 0) THEN
1795: update_row (
1796: p_api_version => p_api_version,
1797: p_init_msg_list => OKC_API.G_FALSE,
1798: x_return_status => x_return_status,
1799: x_msg_count => x_msg_count,
1800: x_msg_data => x_msg_data,
1801: p_ipm_tbl => p_ipm_tbl,

Line 1805: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

1801: p_ipm_tbl => p_ipm_tbl,
1802: x_ipm_tbl => x_ipm_tbl,
1803: px_error_tbl => l_error_tbl);
1804: END IF;
1805: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1806: EXCEPTION
1807: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1808: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1809: (

Line 1807: WHEN OKC_API.G_EXCEPTION_ERROR THEN

1803: px_error_tbl => l_error_tbl);
1804: END IF;
1805: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1806: EXCEPTION
1807: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1808: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1809: (
1810: l_api_name,
1811: G_PKG_NAME,

Line 1808: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1804: END IF;
1805: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1806: EXCEPTION
1807: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1808: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1809: (
1810: l_api_name,
1811: G_PKG_NAME,
1812: 'OKC_API.G_RET_STS_ERROR',

Line 1812: 'OKC_API.G_RET_STS_ERROR',

1808: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1809: (
1810: l_api_name,
1811: G_PKG_NAME,
1812: 'OKC_API.G_RET_STS_ERROR',
1813: x_msg_count,
1814: x_msg_data,
1815: '_PVT'
1816: );

Line 1817: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1813: x_msg_count,
1814: x_msg_data,
1815: '_PVT'
1816: );
1817: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1818: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1819: (
1820: l_api_name,
1821: G_PKG_NAME,

Line 1818: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1814: x_msg_data,
1815: '_PVT'
1816: );
1817: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1818: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1819: (
1820: l_api_name,
1821: G_PKG_NAME,
1822: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 1822: 'OKC_API.G_RET_STS_UNEXP_ERROR',

1818: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1819: (
1820: l_api_name,
1821: G_PKG_NAME,
1822: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1823: x_msg_count,
1824: x_msg_data,
1825: '_PVT'
1826: );

Line 1828: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1824: x_msg_data,
1825: '_PVT'
1826: );
1827: WHEN OTHERS THEN
1828: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1829: (
1830: l_api_name,
1831: G_PKG_NAME,
1832: 'OTHERS',

Line 1854: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

1850: p_ipm_rec IN ipm_rec_type) IS
1851:
1852: l_api_version CONSTANT NUMBER := 1;
1853: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
1854: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1855: l_ipm_rec ipm_rec_type := p_ipm_rec;
1856: l_row_notfound BOOLEAN := TRUE;
1857: BEGIN
1858: l_return_status := OKC_API.START_ACTIVITY(l_api_name,

Line 1858: l_return_status := OKC_API.START_ACTIVITY(l_api_name,

1854: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1855: l_ipm_rec ipm_rec_type := p_ipm_rec;
1856: l_row_notfound BOOLEAN := TRUE;
1857: BEGIN
1858: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1859: p_init_msg_list,
1860: '_PVT',
1861: x_return_status);
1862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

Line 1862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

1858: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1859: p_init_msg_list,
1860: '_PVT',
1861: x_return_status);
1862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;

Line 1863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

1859: p_init_msg_list,
1860: '_PVT',
1861: x_return_status);
1862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1867:

Line 1864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

1860: '_PVT',
1861: x_return_status);
1862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1867:
1868: DELETE FROM OKL_TRX_PARAMS_B

Line 1865: RAISE OKC_API.G_EXCEPTION_ERROR;

1861: x_return_status);
1862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1867:
1868: DELETE FROM OKL_TRX_PARAMS_B
1869: WHERE ID = p_ipm_rec.id;

Line 1872: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

1868: DELETE FROM OKL_TRX_PARAMS_B
1869: WHERE ID = p_ipm_rec.id;
1870:
1871: x_return_status := l_return_status;
1872: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1873: EXCEPTION
1874: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1875: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1876: (

Line 1874: WHEN OKC_API.G_EXCEPTION_ERROR THEN

1870:
1871: x_return_status := l_return_status;
1872: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1873: EXCEPTION
1874: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1875: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1876: (
1877: l_api_name,
1878: G_PKG_NAME,

Line 1875: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1871: x_return_status := l_return_status;
1872: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1873: EXCEPTION
1874: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1875: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1876: (
1877: l_api_name,
1878: G_PKG_NAME,
1879: 'OKC_API.G_RET_STS_ERROR',

Line 1879: 'OKC_API.G_RET_STS_ERROR',

1875: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1876: (
1877: l_api_name,
1878: G_PKG_NAME,
1879: 'OKC_API.G_RET_STS_ERROR',
1880: x_msg_count,
1881: x_msg_data,
1882: '_PVT'
1883: );

Line 1884: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1880: x_msg_count,
1881: x_msg_data,
1882: '_PVT'
1883: );
1884: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1885: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1886: (
1887: l_api_name,
1888: G_PKG_NAME,

Line 1885: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1881: x_msg_data,
1882: '_PVT'
1883: );
1884: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1885: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1886: (
1887: l_api_name,
1888: G_PKG_NAME,
1889: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 1889: 'OKC_API.G_RET_STS_UNEXP_ERROR',

1885: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1886: (
1887: l_api_name,
1888: G_PKG_NAME,
1889: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1890: x_msg_count,
1891: x_msg_data,
1892: '_PVT'
1893: );

Line 1895: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1891: x_msg_data,
1892: '_PVT'
1893: );
1894: WHEN OTHERS THEN
1895: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1896: (
1897: l_api_name,
1898: G_PKG_NAME,
1899: 'OTHERS',

Line 1918: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

1914: p_ipm_rec IN ipm_rec_type) IS
1915:
1916: l_api_version CONSTANT NUMBER := 1;
1917: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
1918: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1919: l_ipm_rec ipm_rec_type := p_ipm_rec;
1920: BEGIN
1921: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1922: G_PKG_NAME,

Line 1921: l_return_status := OKC_API.START_ACTIVITY(l_api_name,

1917: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
1918: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1919: l_ipm_rec ipm_rec_type := p_ipm_rec;
1920: BEGIN
1921: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1922: G_PKG_NAME,
1923: p_init_msg_list,
1924: l_api_version,
1925: p_api_version,

Line 1928: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

1924: l_api_version,
1925: p_api_version,
1926: '_PVT',
1927: x_return_status);
1928: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1929: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1930: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1931: RAISE OKC_API.G_EXCEPTION_ERROR;
1932: END IF;

Line 1929: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

1925: p_api_version,
1926: '_PVT',
1927: x_return_status);
1928: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1929: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1930: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1931: RAISE OKC_API.G_EXCEPTION_ERROR;
1932: END IF;
1933: -----------------------------------------

Line 1930: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

1926: '_PVT',
1927: x_return_status);
1928: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1929: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1930: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1931: RAISE OKC_API.G_EXCEPTION_ERROR;
1932: END IF;
1933: -----------------------------------------
1934: -- Move VIEW record to "Child" records --

Line 1931: RAISE OKC_API.G_EXCEPTION_ERROR;

1927: x_return_status);
1928: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1929: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1930: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1931: RAISE OKC_API.G_EXCEPTION_ERROR;
1932: END IF;
1933: -----------------------------------------
1934: -- Move VIEW record to "Child" records --
1935: -----------------------------------------

Line 1947: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

1943: x_msg_count,
1944: x_msg_data,
1945: l_ipm_rec
1946: );
1947: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1948: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1949: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1950: RAISE OKC_API.G_EXCEPTION_ERROR;
1951: END IF;

Line 1948: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

1944: x_msg_data,
1945: l_ipm_rec
1946: );
1947: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1948: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1949: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1950: RAISE OKC_API.G_EXCEPTION_ERROR;
1951: END IF;
1952: x_return_status := l_return_status;

Line 1949: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

1945: l_ipm_rec
1946: );
1947: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1948: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1949: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1950: RAISE OKC_API.G_EXCEPTION_ERROR;
1951: END IF;
1952: x_return_status := l_return_status;
1953: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

Line 1950: RAISE OKC_API.G_EXCEPTION_ERROR;

1946: );
1947: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1948: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1949: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1950: RAISE OKC_API.G_EXCEPTION_ERROR;
1951: END IF;
1952: x_return_status := l_return_status;
1953: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1954: EXCEPTION

Line 1953: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

1949: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1950: RAISE OKC_API.G_EXCEPTION_ERROR;
1951: END IF;
1952: x_return_status := l_return_status;
1953: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1954: EXCEPTION
1955: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1956: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1957: (

Line 1955: WHEN OKC_API.G_EXCEPTION_ERROR THEN

1951: END IF;
1952: x_return_status := l_return_status;
1953: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1954: EXCEPTION
1955: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1956: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1957: (
1958: l_api_name,
1959: G_PKG_NAME,

Line 1956: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1952: x_return_status := l_return_status;
1953: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1954: EXCEPTION
1955: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1956: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1957: (
1958: l_api_name,
1959: G_PKG_NAME,
1960: 'OKC_API.G_RET_STS_ERROR',

Line 1960: 'OKC_API.G_RET_STS_ERROR',

1956: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1957: (
1958: l_api_name,
1959: G_PKG_NAME,
1960: 'OKC_API.G_RET_STS_ERROR',
1961: x_msg_count,
1962: x_msg_data,
1963: '_PVT'
1964: );

Line 1965: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1961: x_msg_count,
1962: x_msg_data,
1963: '_PVT'
1964: );
1965: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1966: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1967: (
1968: l_api_name,
1969: G_PKG_NAME,

Line 1966: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1962: x_msg_data,
1963: '_PVT'
1964: );
1965: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1966: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1967: (
1968: l_api_name,
1969: G_PKG_NAME,
1970: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 1970: 'OKC_API.G_RET_STS_UNEXP_ERROR',

1966: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1967: (
1968: l_api_name,
1969: G_PKG_NAME,
1970: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1971: x_msg_count,
1972: x_msg_data,
1973: '_PVT'
1974: );

Line 1976: x_return_status := OKC_API.HANDLE_EXCEPTIONS

1972: x_msg_data,
1973: '_PVT'
1974: );
1975: WHEN OTHERS THEN
1976: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1977: (
1978: l_api_name,
1979: G_PKG_NAME,
1980: 'OTHERS',

Line 1996: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS

1992: x_return_status OUT NOCOPY VARCHAR2,
1993: x_msg_count OUT NOCOPY NUMBER,
1994: x_msg_data OUT NOCOPY VARCHAR2,
1995: p_ipm_tbl IN ipm_tbl_type,
1996: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1997:
1998: l_api_version CONSTANT NUMBER := 1;
1999: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
2000: i NUMBER := 0;

Line 2002: OKC_API.init_msg_list(p_init_msg_list);

1998: l_api_version CONSTANT NUMBER := 1;
1999: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
2000: i NUMBER := 0;
2001: BEGIN
2002: OKC_API.init_msg_list(p_init_msg_list);
2003: -- Make sure PL/SQL table has records in it before passing
2004: IF (p_ipm_tbl.COUNT > 0) THEN
2005: i := p_ipm_tbl.FIRST;
2006: LOOP

Line 2008: l_error_rec OKC_API.ERROR_REC_TYPE;

2004: IF (p_ipm_tbl.COUNT > 0) THEN
2005: i := p_ipm_tbl.FIRST;
2006: LOOP
2007: DECLARE
2008: l_error_rec OKC_API.ERROR_REC_TYPE;
2009: BEGIN
2010: l_error_rec.api_name := l_api_name;
2011: l_error_rec.api_package := G_PKG_NAME;
2012: l_error_rec.idx := i;

Line 2015: p_init_msg_list => OKC_API.G_FALSE,

2011: l_error_rec.api_package := G_PKG_NAME;
2012: l_error_rec.idx := i;
2013: delete_row (
2014: p_api_version => p_api_version,
2015: p_init_msg_list => OKC_API.G_FALSE,
2016: x_return_status => l_error_rec.error_type,
2017: x_msg_count => l_error_rec.msg_count,
2018: x_msg_data => l_error_rec.msg_data,
2019: p_ipm_rec => p_ipm_tbl(i));

Line 2020: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN

2016: x_return_status => l_error_rec.error_type,
2017: x_msg_count => l_error_rec.msg_count,
2018: x_msg_data => l_error_rec.msg_data,
2019: p_ipm_rec => p_ipm_tbl(i));
2020: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2021: l_error_rec.sqlcode := SQLCODE;
2022: load_error_tbl(l_error_rec, px_error_tbl);
2023: ELSE
2024: x_msg_count := l_error_rec.msg_count;

Line 2028: WHEN OKC_API.G_EXCEPTION_ERROR THEN

2024: x_msg_count := l_error_rec.msg_count;
2025: x_msg_data := l_error_rec.msg_data;
2026: END IF;
2027: EXCEPTION
2028: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2029: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2030: l_error_rec.sqlcode := SQLCODE;
2031: load_error_tbl(l_error_rec, px_error_tbl);
2032: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 2029: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;

2025: x_msg_data := l_error_rec.msg_data;
2026: END IF;
2027: EXCEPTION
2028: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2029: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2030: l_error_rec.sqlcode := SQLCODE;
2031: load_error_tbl(l_error_rec, px_error_tbl);
2032: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2033: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;

Line 2032: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

2028: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2029: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2030: l_error_rec.sqlcode := SQLCODE;
2031: load_error_tbl(l_error_rec, px_error_tbl);
2032: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2033: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2034: l_error_rec.sqlcode := SQLCODE;
2035: load_error_tbl(l_error_rec, px_error_tbl);
2036: WHEN OTHERS THEN

Line 2033: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;

2029: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2030: l_error_rec.sqlcode := SQLCODE;
2031: load_error_tbl(l_error_rec, px_error_tbl);
2032: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2033: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2034: l_error_rec.sqlcode := SQLCODE;
2035: load_error_tbl(l_error_rec, px_error_tbl);
2036: WHEN OTHERS THEN
2037: l_error_rec.error_type := 'OTHERS';

Line 2048: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

2044: END IF;
2045: -- Loop through the error_tbl to find the error with the highest severity
2046: -- and return it.
2047: x_return_status := find_highest_exception(px_error_tbl);
2048: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2049: EXCEPTION
2050: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2051: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2052: (

Line 2050: WHEN OKC_API.G_EXCEPTION_ERROR THEN

2046: -- and return it.
2047: x_return_status := find_highest_exception(px_error_tbl);
2048: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2049: EXCEPTION
2050: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2051: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2052: (
2053: l_api_name,
2054: G_PKG_NAME,

Line 2051: x_return_status := OKC_API.HANDLE_EXCEPTIONS

2047: x_return_status := find_highest_exception(px_error_tbl);
2048: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2049: EXCEPTION
2050: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2051: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2052: (
2053: l_api_name,
2054: G_PKG_NAME,
2055: 'OKC_API.G_RET_STS_ERROR',

Line 2055: 'OKC_API.G_RET_STS_ERROR',

2051: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2052: (
2053: l_api_name,
2054: G_PKG_NAME,
2055: 'OKC_API.G_RET_STS_ERROR',
2056: x_msg_count,
2057: x_msg_data,
2058: '_PVT'
2059: );

Line 2060: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

2056: x_msg_count,
2057: x_msg_data,
2058: '_PVT'
2059: );
2060: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2061: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2062: (
2063: l_api_name,
2064: G_PKG_NAME,

Line 2061: x_return_status := OKC_API.HANDLE_EXCEPTIONS

2057: x_msg_data,
2058: '_PVT'
2059: );
2060: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2061: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2062: (
2063: l_api_name,
2064: G_PKG_NAME,
2065: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 2065: 'OKC_API.G_RET_STS_UNEXP_ERROR',

2061: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2062: (
2063: l_api_name,
2064: G_PKG_NAME,
2065: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2066: x_msg_count,
2067: x_msg_data,
2068: '_PVT'
2069: );

Line 2071: x_return_status := OKC_API.HANDLE_EXCEPTIONS

2067: x_msg_data,
2068: '_PVT'
2069: );
2070: WHEN OTHERS THEN
2071: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2072: (
2073: l_api_name,
2074: G_PKG_NAME,
2075: 'OTHERS',

Line 2095: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

2091: p_ipm_tbl IN ipm_tbl_type) IS
2092:
2093: l_api_version CONSTANT NUMBER := 1;
2094: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2095: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2096: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2097: BEGIN
2098: OKC_API.init_msg_list(p_init_msg_list);
2099: -- Make sure PL/SQL table has records in it before passing

Line 2096: l_error_tbl OKC_API.ERROR_TBL_TYPE;

2092:
2093: l_api_version CONSTANT NUMBER := 1;
2094: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2095: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2096: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2097: BEGIN
2098: OKC_API.init_msg_list(p_init_msg_list);
2099: -- Make sure PL/SQL table has records in it before passing
2100: IF (p_ipm_tbl.COUNT > 0) THEN

Line 2098: OKC_API.init_msg_list(p_init_msg_list);

2094: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2095: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2096: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2097: BEGIN
2098: OKC_API.init_msg_list(p_init_msg_list);
2099: -- Make sure PL/SQL table has records in it before passing
2100: IF (p_ipm_tbl.COUNT > 0) THEN
2101: delete_row (
2102: p_api_version => p_api_version,

Line 2103: p_init_msg_list => OKC_API.G_FALSE,

2099: -- Make sure PL/SQL table has records in it before passing
2100: IF (p_ipm_tbl.COUNT > 0) THEN
2101: delete_row (
2102: p_api_version => p_api_version,
2103: p_init_msg_list => OKC_API.G_FALSE,
2104: x_return_status => x_return_status,
2105: x_msg_count => x_msg_count,
2106: x_msg_data => x_msg_data,
2107: p_ipm_tbl => p_ipm_tbl,

Line 2110: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

2106: x_msg_data => x_msg_data,
2107: p_ipm_tbl => p_ipm_tbl,
2108: px_error_tbl => l_error_tbl);
2109: END IF;
2110: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2111: EXCEPTION
2112: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2113: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2114: (

Line 2112: WHEN OKC_API.G_EXCEPTION_ERROR THEN

2108: px_error_tbl => l_error_tbl);
2109: END IF;
2110: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2111: EXCEPTION
2112: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2113: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2114: (
2115: l_api_name,
2116: G_PKG_NAME,

Line 2113: x_return_status := OKC_API.HANDLE_EXCEPTIONS

2109: END IF;
2110: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2111: EXCEPTION
2112: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2113: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2114: (
2115: l_api_name,
2116: G_PKG_NAME,
2117: 'OKC_API.G_RET_STS_ERROR',

Line 2117: 'OKC_API.G_RET_STS_ERROR',

2113: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2114: (
2115: l_api_name,
2116: G_PKG_NAME,
2117: 'OKC_API.G_RET_STS_ERROR',
2118: x_msg_count,
2119: x_msg_data,
2120: '_PVT'
2121: );

Line 2122: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

2118: x_msg_count,
2119: x_msg_data,
2120: '_PVT'
2121: );
2122: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2124: (
2125: l_api_name,
2126: G_PKG_NAME,

Line 2123: x_return_status := OKC_API.HANDLE_EXCEPTIONS

2119: x_msg_data,
2120: '_PVT'
2121: );
2122: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2124: (
2125: l_api_name,
2126: G_PKG_NAME,
2127: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 2127: 'OKC_API.G_RET_STS_UNEXP_ERROR',

2123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2124: (
2125: l_api_name,
2126: G_PKG_NAME,
2127: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2128: x_msg_count,
2129: x_msg_data,
2130: '_PVT'
2131: );

Line 2133: x_return_status := OKC_API.HANDLE_EXCEPTIONS

2129: x_msg_data,
2130: '_PVT'
2131: );
2132: WHEN OTHERS THEN
2133: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2134: (
2135: l_api_name,
2136: G_PKG_NAME,
2137: 'OTHERS',