1: PACKAGE BODY FARX_RR AS
2: /* $Header: FARXRRB.pls 120.8 2011/04/13 10:20:19 rmandali ship $ */
3:
4:
5: -- Mass reclass record from fa_mass_reclass table.
414:
415: IF (h_review_status_d <> h_current_status_d) THEN
416: -- Re-using message for mass reclass program.
417: FA_SRVR_MSG.Add_Message(
418: CALLING_FN => 'FARX_RR.Review_Reclass',
419: NAME => 'FA_MASSRCL_WRONG_STATUS',
420: TOKEN1 => 'CURRENT',
421: VALUE1 => h_current_status_d,
422: TOKEN2 => 'RUNNING',
795: END IF;
796: END Review_Reclass;
797:
798:
799: END FARX_RR;