206: BEGIN
207:
208: -- Initialize message stacks.
209: FA_SRVR_MSG.Init_Server_Message;
210: FA_DEBUG_PKG.Initialize;
211:
212:
213: -- Initialize global variables.
214: -- (These are session specific variables, and thus values need to
310: FETCH get_status INTO h_review_status_d, h_current_status_d;
311: CLOSE get_status;
312:
313: if g_print_debug then
314: fa_debug_pkg.add('FARX_CR.Review_Change',
315: 'After fetching status',
316: '');
317: end if;
318:
333: Insert review records into the interface table.
334: ===========================================================================*/
335:
336: if g_print_debug then
337: fa_debug_pkg.add('FARX_CR.Review_Change',
338: 'getting cat structure',
339: '');
340: end if;
341:
349:
350: LOOP
351:
352: if g_print_debug then
353: fa_debug_pkg.add('FARX_CR.Review_Change',
354: 'in loop',
355: '');
356: end if;
357:
545: FA_SRVR_MSG.Write_Msg_Log(
546: msg_count => h_msg_count,
547: msg_data => h_msg_data);
548: IF (h_debug_flag = 'YES') THEN
549: FA_DEBUG_PKG.Write_Debug_Log;
550: END IF;
551:
552: errbuf := ''; -- No error.
553: retcode := 0; -- Completed normally.
576: FA_SRVR_MSG.Write_Msg_Log(
577: msg_count => h_msg_count,
578: msg_data => h_msg_data);
579: IF (h_debug_flag = 'YES') THEN
580: FA_DEBUG_PKG.Write_Debug_Log;
581: END IF;
582: END IF;
583: WHEN OTHERS THEN
584: retcode := 2; -- Completed with error.
606: FA_SRVR_MSG.Write_Msg_Log(
607: msg_count => h_msg_count,
608: msg_data => h_msg_data);
609: IF (h_debug_flag = 'YES') THEN
610: FA_DEBUG_PKG.Write_Debug_Log;
611: END IF;
612: END IF;
613:
614: END Review_Change;