[Home] [Help]
1: PACKAGE BODY FARX_RP AS
2: /* $Header: FARXRPB.pls 120.10.12020000.2 2012/07/23 10:06:11 rmandali ship $ */
3:
4: -- Mass reclass record from fa_mass_reclass table.
5: mr_rec FA_MASS_REC_UTILS_PKG.mass_reclass_rec;
6:
7: -- Table of asset records.
8: -- (Stores book_type_code as well, and thus one asset will appear multiple
47: CURSOR get_cat_flex_struct IS
48: SELECT category_flex_structure
49: FROM fa_system_controls;
50:
51: -- cursor to fetch mass reclass record from fa_mass_reclass
52: CURSOR mass_reclass IS
53: SELECT mr.mass_reclass_id,
54: mr.book_type_code,
55: mr.transaction_date_entered,
91: mr.creation_date,
92: mr.last_updated_by,
93: mr.last_update_login,
94: mr.last_update_date
95: FROM fa_mass_reclass mr
96: WHERE mass_reclass_id = X_Mass_Reclass_Id;
97:
98: -- assets that meet the user's selection criteria.
99: -- some assets selected by this cursor are discarded in the validation engine.
306: --g_total_assets := 0;
307:
308: -- Get concurrent request id for the mass reclass preview request.
309: -- h_request_id is used when request_id is inserted into the interface
310: -- table, fa_mass_reclass_itf.
311: -- Need to fetch request id from fnd_global package instead of fa_mass_reclass
312: -- table, since fa_mass_reclass table stores the latest request id for
313: -- the SRS Preview report requests(run after this module) or
314: -- Run requests only.
307:
308: -- Get concurrent request id for the mass reclass preview request.
309: -- h_request_id is used when request_id is inserted into the interface
310: -- table, fa_mass_reclass_itf.
311: -- Need to fetch request id from fnd_global package instead of fa_mass_reclass
312: -- table, since fa_mass_reclass table stores the latest request id for
313: -- the SRS Preview report requests(run after this module) or
314: -- Run requests only.
315: h_request_id := fnd_global.conc_request_id;
308: -- Get concurrent request id for the mass reclass preview request.
309: -- h_request_id is used when request_id is inserted into the interface
310: -- table, fa_mass_reclass_itf.
311: -- Need to fetch request id from fnd_global package instead of fa_mass_reclass
312: -- table, since fa_mass_reclass table stores the latest request id for
313: -- the SRS Preview report requests(run after this module) or
314: -- Run requests only.
315: h_request_id := fnd_global.conc_request_id;
316:
318: OPEN mass_reclass;
319: FETCH mass_reclass INTO mr_rec;
320: CLOSE mass_reclass;
321:
322: -- Concurrent request id fetched from fa_mass_reclass table is in no use
323: -- in the preview module.
324: -- Assign h_request_id to the global mass reclass record field so that
325: -- it can be used in other procedures.
326: mr_rec.conc_request_id := h_request_id;
328: /*=========================================================================
329: Delete rows previously inserted into the interface table with the same
330: request id, if there is any.
331: =========================================================================*/
332: DELETE FROM fa_mass_reclass_itf
333: WHERE request_id = h_request_id;
334: COMMIT;
335:
336: /*=========================================================================
357: Check if reclass transaction date for the mass reclass record from
358: mass reclass form is in the current corporate book period.
359: (No prior period reclass is allowed.)
360: =========================================================================*/
361: IF NOT FA_MASS_RECLASS_PKG.Check_Trans_Date(
362: X_Corp_Book => mr_rec.book_type_code,
363: X_Trans_Date => mr_rec.trans_date_entered) THEN
364: RAISE mrcl_failure;
365: END IF;
400: concat_string => h_new_concat_cat,
401: segarray => h_cat_segs);
402:
403: /* Loop all the qualified assets, and insert all the validated assets
404: into the interface table, fa_mass_reclass_itf. */
405: OPEN mass_reclass_assets;
406:
407: LOOP
408: a_index := a_index + 1;
418: -- Save the asset id for the next loop.
419: h_last_asset := a_tbl(a_index).asset_id;
420:
421: -- Check if the asset meets the additional user criteria.
422: IF FA_MASS_RECLASS_PKG.Check_Criteria(
423: X_Asset_Id => a_tbl(a_index).asset_id,
424: X_Fully_Rsvd_Flag => mr_rec.fully_rsvd_flag) THEN
425:
426: if (g_print_debug) then
472: a_tbl(a_index).asset_id );
473: end if;
474: -- Invalid asset record.
475: a_index := a_index - 1;
476: END IF; /* IF FA_MASS_RECLASS_PKG.Check_Criteria */
477: ELSE /* a_tbl(a_index).asset_id = h_last_asset */
478: -- This asset has already been validated. Decrementing index count
479: -- to avoid records with duplicate asset id's in a_tbl.
480: a_index := a_index - 1;
479: -- to avoid records with duplicate asset id's in a_tbl.
480: a_index := a_index - 1;
481: END IF; /* IF (a_tbl(a_index).asset_id <> */
482:
483: /* Insert asset records into the interface table, FA_MASS_RECLASS_ITF,
484: at every 200 assets. */
485: -- If g_asset_count(number of valid assets) = 200, insert all the 200
486: -- asset records in a_tbl(1..a_index) into the interface table,
487: -- re-initialize the pl/sql table, a_tbl, and reset g_asset_count
563: (This step is now handled in SRS report(FASRCPVW.rdf), which is fired
564: after the RX report request.)
565: =========================================================================*/
566: /*
567: UPDATE fa_mass_reclass
568: SET status = 'PREVIEWED'
569: WHERE mass_reclass_id = X_Mass_Reclass_Id
570: AND status = 'PREVIEW';
571: COMMIT WORK;
584: g_asset_count := 0;
585: --g_total_assets := 0;
586: /* A fatal error has occurred. Update status to 'FAILED_PRE'. */
587: ROLLBACK WORK;
588: UPDATE fa_mass_reclass
589: SET status = 'FAILED_PRE'
590: WHERE mass_reclass_id = X_Mass_Reclass_Id;
591: /* Delete rows inserted into the interface table. */
592: DELETE FROM fa_mass_reclass_itf
588: UPDATE fa_mass_reclass
589: SET status = 'FAILED_PRE'
590: WHERE mass_reclass_id = X_Mass_Reclass_Id;
591: /* Delete rows inserted into the interface table. */
592: DELETE FROM fa_mass_reclass_itf
593: WHERE request_id = h_request_id;
594: /* Commit changes. */
595: COMMIT WORK;
596: /* Retrieve message log and write result to log and output. */
619: g_asset_count := 0;
620: --g_total_assets := 0;
621: /* A fatal error has occurred. Update status to 'FAILED_PRE'. */
622: ROLLBACK WORK;
623: UPDATE fa_mass_reclass
624: SET status = 'FAILED_PRE'
625: WHERE mass_reclass_id = X_Mass_Reclass_Id;
626: /* Delete rows inserted into the interface table. */
627: DELETE FROM fa_mass_reclass_itf
623: UPDATE fa_mass_reclass
624: SET status = 'FAILED_PRE'
625: WHERE mass_reclass_id = X_Mass_Reclass_Id;
626: /* Delete rows inserted into the interface table. */
627: DELETE FROM fa_mass_reclass_itf
628: WHERE request_id = h_request_id;
629: /* Commit changes. */
630: COMMIT WORK;
631: /* Retrieve message log and write result to log and output. */
773: Transaction_date_entered values are validated in reclass/redefault
774: engines, as the values required for the validation are all
775: calculated in the transaction engine. Here, we separate this
776: logic out nocopy for redefault.
777: FA_MASS_RECLASS_PKG.Check_Trans_Date(called in Preview_Reclass())
778: performs an equivalent validation for transaction_date_entered
779: for the reclass part. */
780: THEN
781: -- Validation for redefault succeeded in this book.