58: RETURN l_str;
59:
60:
61: EXCEPTION
62: when FND_API.G_EXC_ERROR then
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_UNEXPECTED_ERROR then
66: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
59:
60:
61: EXCEPTION
62: when FND_API.G_EXC_ERROR then
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_UNEXPECTED_ERROR then
66: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60:
61: EXCEPTION
62: when FND_API.G_EXC_ERROR then
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_UNEXPECTED_ERROR then
66: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: when others then
61: EXCEPTION
62: when FND_API.G_EXC_ERROR then
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_UNEXPECTED_ERROR then
66: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: when others then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
62: when FND_API.G_EXC_ERROR then
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_UNEXPECTED_ERROR then
66: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: when others then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: BIS_VG_UTIL.Add_Error_Message
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_UNEXPECTED_ERROR then
66: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: when others then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: BIS_VG_UTIL.Add_Error_Message
71: ( p_error_msg_id => SQLCODE
65: when FND_API.G_EXC_UNEXPECTED_ERROR then
66: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: when others then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: BIS_VG_UTIL.Add_Error_Message
71: ( p_error_msg_id => SQLCODE
72: , p_error_description => SQLERRM
73: , p_error_proc_name => G_PKG_NAME||'.put_blanks'
73: , p_error_proc_name => G_PKG_NAME||'.put_blanks'
74: , p_error_table => x_error_tbl
75: , x_error_table => x_error_tbl
76: );
77: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
78:
79: END put_blanks;
80: --
81: -- find the comments and replace them with blanks
96: l_open_pos NUMBER;
97: l_close_pos NUMBER;
98: BEGIN
99: BIS_DEBUG_PUB.Add('> replace_comments_with_blanks');
100: x_return_status := FND_API.G_RET_STS_SUCCESS;
101: l_string := p_string;
102:
103: -- l_start_pos := Instr(l_string, '--');
104: -- IF (l_start_pos <> 0) THEN
169: RETURN l_string;
170:
171:
172: EXCEPTION
173: when FND_API.G_EXC_ERROR then
174: x_return_status := FND_API.G_RET_STS_ERROR ;
175: RAISE FND_API.G_EXC_ERROR;
176: when FND_API.G_EXC_UNEXPECTED_ERROR then
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
170:
171:
172: EXCEPTION
173: when FND_API.G_EXC_ERROR then
174: x_return_status := FND_API.G_RET_STS_ERROR ;
175: RAISE FND_API.G_EXC_ERROR;
176: when FND_API.G_EXC_UNEXPECTED_ERROR then
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
171:
172: EXCEPTION
173: when FND_API.G_EXC_ERROR then
174: x_return_status := FND_API.G_RET_STS_ERROR ;
175: RAISE FND_API.G_EXC_ERROR;
176: when FND_API.G_EXC_UNEXPECTED_ERROR then
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
179: when others then
172: EXCEPTION
173: when FND_API.G_EXC_ERROR then
174: x_return_status := FND_API.G_RET_STS_ERROR ;
175: RAISE FND_API.G_EXC_ERROR;
176: when FND_API.G_EXC_UNEXPECTED_ERROR then
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
179: when others then
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
173: when FND_API.G_EXC_ERROR then
174: x_return_status := FND_API.G_RET_STS_ERROR ;
175: RAISE FND_API.G_EXC_ERROR;
176: when FND_API.G_EXC_UNEXPECTED_ERROR then
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
179: when others then
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
181: BIS_VG_UTIL.Add_Error_Message
174: x_return_status := FND_API.G_RET_STS_ERROR ;
175: RAISE FND_API.G_EXC_ERROR;
176: when FND_API.G_EXC_UNEXPECTED_ERROR then
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
179: when others then
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
181: BIS_VG_UTIL.Add_Error_Message
182: ( p_error_msg_id => SQLCODE
176: when FND_API.G_EXC_UNEXPECTED_ERROR then
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
179: when others then
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
181: BIS_VG_UTIL.Add_Error_Message
182: ( p_error_msg_id => SQLCODE
183: , p_error_description => SQLERRM
184: , p_error_proc_name => G_PKG_NAME||'.replace_comments_with_blanks'
184: , p_error_proc_name => G_PKG_NAME||'.replace_comments_with_blanks'
185: , p_error_table => x_error_tbl
186: , x_error_table => x_error_tbl
187: );
188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
189:
190: END replace_comments_with_blanks;
191: --
192: FUNCTION Get_Keyword_Position
275: BIS_DEBUG_PUB.Add ('< Get_Keyword_Position');
276: RETURN l_pointer;
277:
278: EXCEPTION
279: when FND_API.G_EXC_ERROR then
280: x_return_status := FND_API.G_RET_STS_ERROR ;
281: RAISE FND_API.G_EXC_ERROR;
282: when FND_API.G_EXC_UNEXPECTED_ERROR then
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
276: RETURN l_pointer;
277:
278: EXCEPTION
279: when FND_API.G_EXC_ERROR then
280: x_return_status := FND_API.G_RET_STS_ERROR ;
281: RAISE FND_API.G_EXC_ERROR;
282: when FND_API.G_EXC_UNEXPECTED_ERROR then
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
277:
278: EXCEPTION
279: when FND_API.G_EXC_ERROR then
280: x_return_status := FND_API.G_RET_STS_ERROR ;
281: RAISE FND_API.G_EXC_ERROR;
282: when FND_API.G_EXC_UNEXPECTED_ERROR then
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
285: when others then
278: EXCEPTION
279: when FND_API.G_EXC_ERROR then
280: x_return_status := FND_API.G_RET_STS_ERROR ;
281: RAISE FND_API.G_EXC_ERROR;
282: when FND_API.G_EXC_UNEXPECTED_ERROR then
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
285: when others then
286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
279: when FND_API.G_EXC_ERROR then
280: x_return_status := FND_API.G_RET_STS_ERROR ;
281: RAISE FND_API.G_EXC_ERROR;
282: when FND_API.G_EXC_UNEXPECTED_ERROR then
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
285: when others then
286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
287: BIS_VG_UTIL.Add_Error_Message
280: x_return_status := FND_API.G_RET_STS_ERROR ;
281: RAISE FND_API.G_EXC_ERROR;
282: when FND_API.G_EXC_UNEXPECTED_ERROR then
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
285: when others then
286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
287: BIS_VG_UTIL.Add_Error_Message
288: ( p_error_msg_id => SQLCODE
282: when FND_API.G_EXC_UNEXPECTED_ERROR then
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
285: when others then
286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
287: BIS_VG_UTIL.Add_Error_Message
288: ( p_error_msg_id => SQLCODE
289: , p_error_description => SQLERRM
290: , p_error_proc_name => G_PKG_NAME||'.Get_Keyword_Position'
290: , p_error_proc_name => G_PKG_NAME||'.Get_Keyword_Position'
291: , p_error_table => x_error_tbl
292: , x_error_table => x_error_tbl
293: );
294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
295:
296:
297: END Get_Keyword_Position;
298:
314: l_pos NUMBER := 0;
315: l_delimiters VARCHAR2(100);
316: BEGIN
317: BIS_DEBUG_PUB.Add('> get_string_token');
318: x_return_status := FND_API.G_RET_STS_SUCCESS;
319:
320: l_start := p_start;
321: l_total := Length(p_view_str);
322: x_end_pointer := l_start;
356: RETURN l_str;
357:
358:
359: EXCEPTION
360: when FND_API.G_EXC_ERROR then
361: x_return_status := FND_API.G_RET_STS_ERROR ;
362: RAISE FND_API.G_EXC_ERROR;
363: when FND_API.G_EXC_UNEXPECTED_ERROR then
364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
357:
358:
359: EXCEPTION
360: when FND_API.G_EXC_ERROR then
361: x_return_status := FND_API.G_RET_STS_ERROR ;
362: RAISE FND_API.G_EXC_ERROR;
363: when FND_API.G_EXC_UNEXPECTED_ERROR then
364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
358:
359: EXCEPTION
360: when FND_API.G_EXC_ERROR then
361: x_return_status := FND_API.G_RET_STS_ERROR ;
362: RAISE FND_API.G_EXC_ERROR;
363: when FND_API.G_EXC_UNEXPECTED_ERROR then
364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
366: when others then
359: EXCEPTION
360: when FND_API.G_EXC_ERROR then
361: x_return_status := FND_API.G_RET_STS_ERROR ;
362: RAISE FND_API.G_EXC_ERROR;
363: when FND_API.G_EXC_UNEXPECTED_ERROR then
364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
366: when others then
367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
360: when FND_API.G_EXC_ERROR then
361: x_return_status := FND_API.G_RET_STS_ERROR ;
362: RAISE FND_API.G_EXC_ERROR;
363: when FND_API.G_EXC_UNEXPECTED_ERROR then
364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
366: when others then
367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
368: BIS_VG_UTIL.Add_Error_Message
361: x_return_status := FND_API.G_RET_STS_ERROR ;
362: RAISE FND_API.G_EXC_ERROR;
363: when FND_API.G_EXC_UNEXPECTED_ERROR then
364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
366: when others then
367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
368: BIS_VG_UTIL.Add_Error_Message
369: ( p_error_msg_id => SQLCODE
363: when FND_API.G_EXC_UNEXPECTED_ERROR then
364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
366: when others then
367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
368: BIS_VG_UTIL.Add_Error_Message
369: ( p_error_msg_id => SQLCODE
370: , p_error_description => SQLERRM
371: , p_error_proc_name => G_PKG_NAME||'.get_string_token'
371: , p_error_proc_name => G_PKG_NAME||'.get_string_token'
372: , p_error_table => x_error_tbl
373: , x_error_table => x_error_tbl
374: );
375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
376:
377: END get_string_token;
378:
379: FUNCTION get_token
393: l_pos NUMBER := 0;
394: l_delimiters VARCHAR2(100);
395: BEGIN
396: BIS_DEBUG_PUB.Add('> get_token');
397: x_return_status := FND_API.G_RET_STS_SUCCESS;
398: l_temp := NULL;
399: BIS_VG_UTIL.print_view_pointer(p_start_pointer, x_return_status, x_error_Tbl);
400: x_end_pointer := p_start_pointer;
401: l_delimiters := Upper(p_delimiter_string);
431: RETURN l_temp;
432:
433:
434: EXCEPTION
435: when FND_API.G_EXC_ERROR then
436: x_return_status := FND_API.G_RET_STS_ERROR ;
437: RAISE FND_API.G_EXC_ERROR;
438: when FND_API.G_EXC_UNEXPECTED_ERROR then
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
432:
433:
434: EXCEPTION
435: when FND_API.G_EXC_ERROR then
436: x_return_status := FND_API.G_RET_STS_ERROR ;
437: RAISE FND_API.G_EXC_ERROR;
438: when FND_API.G_EXC_UNEXPECTED_ERROR then
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
433:
434: EXCEPTION
435: when FND_API.G_EXC_ERROR then
436: x_return_status := FND_API.G_RET_STS_ERROR ;
437: RAISE FND_API.G_EXC_ERROR;
438: when FND_API.G_EXC_UNEXPECTED_ERROR then
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: when others then
434: EXCEPTION
435: when FND_API.G_EXC_ERROR then
436: x_return_status := FND_API.G_RET_STS_ERROR ;
437: RAISE FND_API.G_EXC_ERROR;
438: when FND_API.G_EXC_UNEXPECTED_ERROR then
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: when others then
442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
435: when FND_API.G_EXC_ERROR then
436: x_return_status := FND_API.G_RET_STS_ERROR ;
437: RAISE FND_API.G_EXC_ERROR;
438: when FND_API.G_EXC_UNEXPECTED_ERROR then
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: when others then
442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
443: BIS_VG_UTIL.Add_Error_Message
436: x_return_status := FND_API.G_RET_STS_ERROR ;
437: RAISE FND_API.G_EXC_ERROR;
438: when FND_API.G_EXC_UNEXPECTED_ERROR then
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: when others then
442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
443: BIS_VG_UTIL.Add_Error_Message
444: ( p_error_msg_id => SQLCODE
438: when FND_API.G_EXC_UNEXPECTED_ERROR then
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: when others then
442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
443: BIS_VG_UTIL.Add_Error_Message
444: ( p_error_msg_id => SQLCODE
445: , p_error_description => SQLERRM
446: , p_error_proc_name => G_PKG_NAME||'.get_token'
446: , p_error_proc_name => G_PKG_NAME||'.get_token'
447: , p_error_table => x_error_tbl
448: , x_error_table => x_error_tbl
449: );
450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
451:
452: END get_token;
453:
454:
468: l_delimiters VARCHAR2(100);
469: BEGIN
470:
471: BIS_DEBUG_PUB.Add('> get_token_increment_pointer');
472: x_return_status := FND_API.G_RET_STS_SUCCESS;
473: BIS_VG_UTIL.print_View_Pointer(p_start_pointer, x_return_status, x_error_Tbl);
474: l_temp := get_token( p_view_table
475: , p_start_pointer
476: , p_delimiter_string
499: RETURN l_temp;
500:
501:
502: EXCEPTION
503: when FND_API.G_EXC_ERROR then
504: x_return_status := FND_API.G_RET_STS_ERROR ;
505: RAISE FND_API.G_EXC_ERROR;
506: when FND_API.G_EXC_UNEXPECTED_ERROR then
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
500:
501:
502: EXCEPTION
503: when FND_API.G_EXC_ERROR then
504: x_return_status := FND_API.G_RET_STS_ERROR ;
505: RAISE FND_API.G_EXC_ERROR;
506: when FND_API.G_EXC_UNEXPECTED_ERROR then
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501:
502: EXCEPTION
503: when FND_API.G_EXC_ERROR then
504: x_return_status := FND_API.G_RET_STS_ERROR ;
505: RAISE FND_API.G_EXC_ERROR;
506: when FND_API.G_EXC_UNEXPECTED_ERROR then
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
509: when others then
502: EXCEPTION
503: when FND_API.G_EXC_ERROR then
504: x_return_status := FND_API.G_RET_STS_ERROR ;
505: RAISE FND_API.G_EXC_ERROR;
506: when FND_API.G_EXC_UNEXPECTED_ERROR then
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
509: when others then
510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
503: when FND_API.G_EXC_ERROR then
504: x_return_status := FND_API.G_RET_STS_ERROR ;
505: RAISE FND_API.G_EXC_ERROR;
506: when FND_API.G_EXC_UNEXPECTED_ERROR then
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
509: when others then
510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
511: BIS_VG_UTIL.Add_Error_Message
504: x_return_status := FND_API.G_RET_STS_ERROR ;
505: RAISE FND_API.G_EXC_ERROR;
506: when FND_API.G_EXC_UNEXPECTED_ERROR then
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
509: when others then
510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
511: BIS_VG_UTIL.Add_Error_Message
512: ( p_error_msg_id => SQLCODE
506: when FND_API.G_EXC_UNEXPECTED_ERROR then
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
509: when others then
510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
511: BIS_VG_UTIL.Add_Error_Message
512: ( p_error_msg_id => SQLCODE
513: , p_error_description => SQLERRM
514: , p_error_proc_name => G_PKG_NAME||'.get_token_increment_pointer'
514: , p_error_proc_name => G_PKG_NAME||'.get_token_increment_pointer'
515: , p_error_table => x_error_tbl
516: , x_error_table => x_error_tbl
517: );
518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
519:
520: END get_token_increment_pointer;
521:
522: -- this functions returns the string expression between the start pointer and
537: l_delimiter VARCHAR2(1) := '''';
538: l_temp_pointer bis_vg_types.View_Character_Pointer_Type;
539: BEGIN
540: BIS_DEBUG_PUB.Add('> get_expression');
541: x_return_status := FND_API.G_RET_STS_SUCCESS;
542: x_end_pointer := p_start_pointer;
543: WHILE (l_done = FALSE) LOOP
544: -- find the single quote incrementing the pointer
545: l_str := get_token( p_view_table
585: , x_error_Tbl
586: );
587:
588: EXCEPTION
589: when FND_API.G_EXC_ERROR then
590: x_return_status := FND_API.G_RET_STS_ERROR ;
591: RAISE FND_API.G_EXC_ERROR;
592: when FND_API.G_EXC_UNEXPECTED_ERROR then
593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
586: );
587:
588: EXCEPTION
589: when FND_API.G_EXC_ERROR then
590: x_return_status := FND_API.G_RET_STS_ERROR ;
591: RAISE FND_API.G_EXC_ERROR;
592: when FND_API.G_EXC_UNEXPECTED_ERROR then
593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
587:
588: EXCEPTION
589: when FND_API.G_EXC_ERROR then
590: x_return_status := FND_API.G_RET_STS_ERROR ;
591: RAISE FND_API.G_EXC_ERROR;
592: when FND_API.G_EXC_UNEXPECTED_ERROR then
593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595: when others then
588: EXCEPTION
589: when FND_API.G_EXC_ERROR then
590: x_return_status := FND_API.G_RET_STS_ERROR ;
591: RAISE FND_API.G_EXC_ERROR;
592: when FND_API.G_EXC_UNEXPECTED_ERROR then
593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595: when others then
596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
589: when FND_API.G_EXC_ERROR then
590: x_return_status := FND_API.G_RET_STS_ERROR ;
591: RAISE FND_API.G_EXC_ERROR;
592: when FND_API.G_EXC_UNEXPECTED_ERROR then
593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595: when others then
596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
597: BIS_VG_UTIL.Add_Error_Message
590: x_return_status := FND_API.G_RET_STS_ERROR ;
591: RAISE FND_API.G_EXC_ERROR;
592: when FND_API.G_EXC_UNEXPECTED_ERROR then
593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595: when others then
596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
597: BIS_VG_UTIL.Add_Error_Message
598: ( p_error_msg_id => SQLCODE
592: when FND_API.G_EXC_UNEXPECTED_ERROR then
593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595: when others then
596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
597: BIS_VG_UTIL.Add_Error_Message
598: ( p_error_msg_id => SQLCODE
599: , p_error_description => SQLERRM
600: , p_error_proc_name => G_PKG_NAME||'.get_expression'
600: , p_error_proc_name => G_PKG_NAME||'.get_expression'
601: , p_error_table => x_error_tbl
602: , x_error_table => x_error_tbl
603: );
604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
605:
606: END get_expression;
607:
608: -- skips the type of tag
620: l_str VARCHAR2(100);
621: BEGIN
622: -- get the tag
623: BIS_DEBUG_PUB.Add('> skip_tag');
624: x_return_status := FND_API.G_RET_STS_SUCCESS;
625: l_str := bis_vg_parser.get_token_increment_pointer( p_view_table
626: , p_start_pointer
627: , ':'
628: , x_end_pointer
633: RETURN l_str;
634:
635:
636: EXCEPTION
637: when FND_API.G_EXC_ERROR then
638: x_return_status := FND_API.G_RET_STS_ERROR ;
639: RAISE FND_API.G_EXC_ERROR;
640: when FND_API.G_EXC_UNEXPECTED_ERROR then
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
634:
635:
636: EXCEPTION
637: when FND_API.G_EXC_ERROR then
638: x_return_status := FND_API.G_RET_STS_ERROR ;
639: RAISE FND_API.G_EXC_ERROR;
640: when FND_API.G_EXC_UNEXPECTED_ERROR then
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
635:
636: EXCEPTION
637: when FND_API.G_EXC_ERROR then
638: x_return_status := FND_API.G_RET_STS_ERROR ;
639: RAISE FND_API.G_EXC_ERROR;
640: when FND_API.G_EXC_UNEXPECTED_ERROR then
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
643: when others then
636: EXCEPTION
637: when FND_API.G_EXC_ERROR then
638: x_return_status := FND_API.G_RET_STS_ERROR ;
639: RAISE FND_API.G_EXC_ERROR;
640: when FND_API.G_EXC_UNEXPECTED_ERROR then
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
643: when others then
644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
637: when FND_API.G_EXC_ERROR then
638: x_return_status := FND_API.G_RET_STS_ERROR ;
639: RAISE FND_API.G_EXC_ERROR;
640: when FND_API.G_EXC_UNEXPECTED_ERROR then
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
643: when others then
644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
645: BIS_VG_UTIL.Add_Error_Message
638: x_return_status := FND_API.G_RET_STS_ERROR ;
639: RAISE FND_API.G_EXC_ERROR;
640: when FND_API.G_EXC_UNEXPECTED_ERROR then
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
643: when others then
644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
645: BIS_VG_UTIL.Add_Error_Message
646: ( p_error_msg_id => SQLCODE
640: when FND_API.G_EXC_UNEXPECTED_ERROR then
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
643: when others then
644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
645: BIS_VG_UTIL.Add_Error_Message
646: ( p_error_msg_id => SQLCODE
647: , p_error_description => SQLERRM
648: , p_error_proc_name => G_PKG_NAME||'.skip_tag'
648: , p_error_proc_name => G_PKG_NAME||'.skip_tag'
649: , p_error_table => x_error_tbl
650: , x_error_table => x_error_tbl
651: );
652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
653:
654: END skip_tag;
655:
656: END BIS_VG_PARSER;