[Home] [Help]
2616: l_info := ' deleting unused data';
2617: pnp_debug_pkg.log(l_info);
2618:
2619: FORALL i IN 0 .. l_detail_delete_table.COUNT - 1
2620: DELETE FROM pn_rec_expcl_dtlacc_all
2621: WHERE expense_class_line_dtl_id = l_detail_delete_table(i);
2622:
2623: FORALL i IN 0 .. l_master_delete_table.COUNT - 1
2624: DELETE FROM pn_rec_expcl_dtlln_all
2656: IS
2657: CURSOR get_affected_lines IS
2658: SELECT expense_class_line_dtl_id,
2659: expense_class_line_id
2660: FROM pn_rec_expcl_dtlacc_all
2661: WHERE expense_line_dtl_id = p_expense_line_dtl_id;
2662:
2663: CURSOR get_header_info (p_exp_cls_line_id pn_rec_expcl_dtlln.expense_class_line_id%TYPE) IS
2664: SELECT sum(nvl(computed_recoverable_amt, 0)) computed_recoverable_amount,
2666: sum(nvl(expense_amt, 0)) expense_amount,
2667: sum(nvl(budgeted_amt, 0)) budgeted_amount,
2668: min(decode(nvl(cls_line_dtl_share_pct_ovr, cls_line_dtl_share_pct), NULL, NULL, 100)) use_cls_line_share,
2669: min(decode(nvl(cls_line_dtl_fee_bf_contr_ovr, cls_line_dtl_fee_bf_contr), NULL, NULL, 0)) use_cls_line_fee
2670: FROM pn_rec_expcl_dtlacc_all
2671: WHERE expense_class_line_id = p_exp_cls_line_id;
2672:
2673: TYPE num_tbl IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
2674: TYPE use_tbl IS TABLE OF BOOLEAN INDEX BY BINARY_INTEGER;
2694: l_info := ' processing affected lines ';
2695: pnp_debug_pkg.log(l_info);
2696:
2697: FOR class_line_dtl_rec IN get_affected_lines LOOP
2698: DELETE pn_rec_expcl_dtlacc_all
2699: WHERE expense_class_line_dtl_id = class_line_dtl_rec.expense_class_line_dtl_id;
2700: hdr_id_list(hdr_id_list.COUNT) := class_line_dtl_rec.expense_class_line_id;
2701: END LOOP;
2702:
3280: class_line_dtl.expense_class_line_dtl_id dtl_id,
3281: class_line_dtl.expense_class_line_id mst_id
3282: FROM pn_rec_expcl_dtl_all summary,
3283: pn_rec_expcl_dtlln_all class_line,
3284: pn_rec_expcl_dtlacc_all class_line_dtl,
3285: pn_rec_expcl_all class,
3286: pn_rec_exp_line_all lines
3287: WHERE class_line.expense_class_line_id = class_line_dtl.expense_class_line_id
3288: AND class_line.expense_class_dtl_id = summary.expense_class_dtl_id
3318: class_line.recovery_type_code rec_type_code,
3319: class_line_dtl.expense_type_code exp_type,
3320: class_line_dtl.expense_account_id exp_acct
3321: FROM pn_rec_expcl_dtlln_all class_line,
3322: pn_rec_expcl_dtlacc_all class_line_dtl
3323: WHERE class_line.expense_class_line_id = class_line_dtl.expense_class_line_id
3324: AND class_line.expense_class_dtl_id = p_prior_cls_dtl_id;
3325:
3326: CURSOR is_reextract IS