[Home] [Help]
1: PACKAGE BODY FARX_RP AS
2: /* $Header: FARXRPB.pls 120.7 2005/10/05 15:23:02 bridgway 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
45: CURSOR get_cat_flex_struct IS
46: SELECT category_flex_structure
47: FROM fa_system_controls;
48:
49: -- cursor to fetch mass reclass record from fa_mass_reclass
50: CURSOR mass_reclass IS
51: SELECT mr.mass_reclass_id,
52: mr.book_type_code,
53: mr.transaction_date_entered,
89: mr.creation_date,
90: mr.last_updated_by,
91: mr.last_update_login,
92: mr.last_update_date
93: FROM fa_mass_reclass mr
94: WHERE mass_reclass_id = X_Mass_Reclass_Id;
95:
96: -- assets that meet the user's selection criteria.
97: -- some assets selected by this cursor are discarded in the validation engine.
287: --g_total_assets := 0;
288:
289: -- Get concurrent request id for the mass reclass preview request.
290: -- h_request_id is used when request_id is inserted into the interface
291: -- table, fa_mass_reclass_itf.
292: -- Need to fetch request id from fnd_global package instead of fa_mass_reclass
293: -- table, since fa_mass_reclass table stores the latest request id for
294: -- the SRS Preview report requests(run after this module) or
295: -- Run requests only.
288:
289: -- Get concurrent request id for the mass reclass preview request.
290: -- h_request_id is used when request_id is inserted into the interface
291: -- table, fa_mass_reclass_itf.
292: -- Need to fetch request id from fnd_global package instead of fa_mass_reclass
293: -- table, since fa_mass_reclass table stores the latest request id for
294: -- the SRS Preview report requests(run after this module) or
295: -- Run requests only.
296: h_request_id := fnd_global.conc_request_id;
289: -- Get concurrent request id for the mass reclass preview request.
290: -- h_request_id is used when request_id is inserted into the interface
291: -- table, fa_mass_reclass_itf.
292: -- Need to fetch request id from fnd_global package instead of fa_mass_reclass
293: -- table, since fa_mass_reclass table stores the latest request id for
294: -- the SRS Preview report requests(run after this module) or
295: -- Run requests only.
296: h_request_id := fnd_global.conc_request_id;
297:
299: OPEN mass_reclass;
300: FETCH mass_reclass INTO mr_rec;
301: CLOSE mass_reclass;
302:
303: -- Concurrent request id fetched from fa_mass_reclass table is in no use
304: -- in the preview module.
305: -- Assign h_request_id to the global mass reclass record field so that
306: -- it can be used in other procedures.
307: mr_rec.conc_request_id := h_request_id;
309: /*=========================================================================
310: Delete rows previously inserted into the interface table with the same
311: request id, if there is any.
312: =========================================================================*/
313: DELETE FROM fa_mass_reclass_itf
314: WHERE request_id = h_request_id;
315: COMMIT;
316:
317: /*=========================================================================
338: Check if reclass transaction date for the mass reclass record from
339: mass reclass form is in the current corporate book period.
340: (No prior period reclass is allowed.)
341: =========================================================================*/
342: IF NOT FA_MASS_RECLASS_PKG.Check_Trans_Date(
343: X_Corp_Book => mr_rec.book_type_code,
344: X_Trans_Date => mr_rec.trans_date_entered) THEN
345: RAISE mrcl_failure;
346: END IF;
380: concat_string => h_new_concat_cat,
381: segarray => h_cat_segs);
382:
383: /* Loop all the qualified assets, and insert all the validated assets
384: into the interface table, fa_mass_reclass_itf. */
385: OPEN mass_reclass_assets;
386:
387: LOOP
388: a_index := a_index + 1;
398: -- Save the asset id for the next loop.
399: h_last_asset := a_tbl(a_index).asset_id;
400:
401: -- Check if the asset meets the additional user criteria.
402: IF FA_MASS_RECLASS_PKG.Check_Criteria(
403: X_Asset_Id => a_tbl(a_index).asset_id,
404: X_Fully_Rsvd_Flag => mr_rec.fully_rsvd_flag) THEN
405:
406: if (g_print_debug) then
451: a_tbl(a_index).asset_id );
452: end if;
453: -- Invalid asset record.
454: a_index := a_index - 1;
455: END IF; /* IF FA_MASS_RECLASS_PKG.Check_Criteria */
456: ELSE /* a_tbl(a_index).asset_id = h_last_asset */
457: -- This asset has already been validated. Decrementing index count
458: -- to avoid records with duplicate asset id's in a_tbl.
459: a_index := a_index - 1;
458: -- to avoid records with duplicate asset id's in a_tbl.
459: a_index := a_index - 1;
460: END IF; /* IF (a_tbl(a_index).asset_id <> */
461:
462: /* Insert asset records into the interface table, FA_MASS_RECLASS_ITF,
463: at every 200 assets. */
464: -- If g_asset_count(number of valid assets) = 200, insert all the 200
465: -- asset records in a_tbl(1..a_index) into the interface table,
466: -- re-initialize the pl/sql table, a_tbl, and reset g_asset_count
540: (This step is now handled in SRS report(FASRCPVW.rdf), which is fired
541: after the RX report request.)
542: =========================================================================*/
543: /*
544: UPDATE fa_mass_reclass
545: SET status = 'PREVIEWED'
546: WHERE mass_reclass_id = X_Mass_Reclass_Id
547: AND status = 'PREVIEW';
548: COMMIT WORK;
561: g_asset_count := 0;
562: --g_total_assets := 0;
563: /* A fatal error has occurred. Update status to 'FAILED_PRE'. */
564: ROLLBACK WORK;
565: UPDATE fa_mass_reclass
566: SET status = 'FAILED_PRE'
567: WHERE mass_reclass_id = X_Mass_Reclass_Id;
568: /* Delete rows inserted into the interface table. */
569: DELETE FROM fa_mass_reclass_itf
565: UPDATE fa_mass_reclass
566: SET status = 'FAILED_PRE'
567: WHERE mass_reclass_id = X_Mass_Reclass_Id;
568: /* Delete rows inserted into the interface table. */
569: DELETE FROM fa_mass_reclass_itf
570: WHERE request_id = h_request_id;
571: /* Commit changes. */
572: COMMIT WORK;
573: /* Retrieve message log and write result to log and output. */
596: g_asset_count := 0;
597: --g_total_assets := 0;
598: /* A fatal error has occurred. Update status to 'FAILED_PRE'. */
599: ROLLBACK WORK;
600: UPDATE fa_mass_reclass
601: SET status = 'FAILED_PRE'
602: WHERE mass_reclass_id = X_Mass_Reclass_Id;
603: /* Delete rows inserted into the interface table. */
604: DELETE FROM fa_mass_reclass_itf
600: UPDATE fa_mass_reclass
601: SET status = 'FAILED_PRE'
602: WHERE mass_reclass_id = X_Mass_Reclass_Id;
603: /* Delete rows inserted into the interface table. */
604: DELETE FROM fa_mass_reclass_itf
605: WHERE request_id = h_request_id;
606: /* Commit changes. */
607: COMMIT WORK;
608: /* Retrieve message log and write result to log and output. */
748: Transaction_date_entered values are validated in reclass/redefault
749: engines, as the values required for the validation are all
750: calculated in the transaction engine. Here, we separate this
751: logic out nocopy for redefault.
752: FA_MASS_RECLASS_PKG.Check_Trans_Date(called in Preview_Reclass())
753: performs an equivalent validation for transaction_date_entered
754: for the reclass part. */
755: THEN
756: -- Validation for redefault succeeded in this book.