[Home] [Help]
489:
490: begin
491:
492: IF (g_print_debug) THEN
493: fa_rx_util_pkg.debug ('*****START FA_DEPRN_TAX_REP_PKG.FADPTX_INSERT*****');
494: END IF;
495:
496: --Start for 9935602
497:
531: h_request_id := request_id;
532: h_login_id := login_id;
533:
534: IF (g_print_debug) THEN
535: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Book: '||h_book);
536: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Year: '||h_year);
537: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****State from: '||state_from);
538: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****State to :'||state_to);
539: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Tax Asset Type Segment: '||h_tax_asset_type_segment);
532: h_login_id := login_id;
533:
534: IF (g_print_debug) THEN
535: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Book: '||h_book);
536: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Year: '||h_year);
537: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****State from: '||state_from);
538: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****State to :'||state_to);
539: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Tax Asset Type Segment: '||h_tax_asset_type_segment);
540: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category low: '||h_category_from);
533:
534: IF (g_print_debug) THEN
535: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Book: '||h_book);
536: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Year: '||h_year);
537: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****State from: '||state_from);
538: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****State to :'||state_to);
539: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Tax Asset Type Segment: '||h_tax_asset_type_segment);
540: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category low: '||h_category_from);
541: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category high: '||h_category_to);
534: IF (g_print_debug) THEN
535: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Book: '||h_book);
536: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Year: '||h_year);
537: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****State from: '||state_from);
538: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****State to :'||state_to);
539: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Tax Asset Type Segment: '||h_tax_asset_type_segment);
540: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category low: '||h_category_from);
541: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category high: '||h_category_to);
542: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Target date: '||h_target_date);
535: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Book: '||h_book);
536: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Year: '||h_year);
537: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****State from: '||state_from);
538: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****State to :'||state_to);
539: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Tax Asset Type Segment: '||h_tax_asset_type_segment);
540: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category low: '||h_category_from);
541: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category high: '||h_category_to);
542: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Target date: '||h_target_date);
543: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Prior date: '||h_prior_date);
536: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Year: '||h_year);
537: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****State from: '||state_from);
538: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****State to :'||state_to);
539: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Tax Asset Type Segment: '||h_tax_asset_type_segment);
540: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category low: '||h_category_from);
541: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category high: '||h_category_to);
542: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Target date: '||h_target_date);
543: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Prior date: '||h_prior_date);
544: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Request id: '||h_request_id);
537: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****State from: '||state_from);
538: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****State to :'||state_to);
539: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Tax Asset Type Segment: '||h_tax_asset_type_segment);
540: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category low: '||h_category_from);
541: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category high: '||h_category_to);
542: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Target date: '||h_target_date);
543: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Prior date: '||h_prior_date);
544: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Request id: '||h_request_id);
545: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****login id: '||h_login_id);
538: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****State to :'||state_to);
539: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Tax Asset Type Segment: '||h_tax_asset_type_segment);
540: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category low: '||h_category_from);
541: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category high: '||h_category_to);
542: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Target date: '||h_target_date);
543: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Prior date: '||h_prior_date);
544: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Request id: '||h_request_id);
545: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****login id: '||h_login_id);
546: -- bug4919991
539: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Tax Asset Type Segment: '||h_tax_asset_type_segment);
540: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category low: '||h_category_from);
541: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category high: '||h_category_to);
542: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Target date: '||h_target_date);
543: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Prior date: '||h_prior_date);
544: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Request id: '||h_request_id);
545: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****login id: '||h_login_id);
546: -- bug4919991
547: if (rounding) then
540: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category low: '||h_category_from);
541: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category high: '||h_category_to);
542: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Target date: '||h_target_date);
543: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Prior date: '||h_prior_date);
544: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Request id: '||h_request_id);
545: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****login id: '||h_login_id);
546: -- bug4919991
547: if (rounding) then
548: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Round: Y');
541: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Category high: '||h_category_to);
542: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Target date: '||h_target_date);
543: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Prior date: '||h_prior_date);
544: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Request id: '||h_request_id);
545: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****login id: '||h_login_id);
546: -- bug4919991
547: if (rounding) then
548: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Round: Y');
549: else
544: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Request id: '||h_request_id);
545: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****login id: '||h_login_id);
546: -- bug4919991
547: if (rounding) then
548: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Round: Y');
549: else
550: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Round: N');
551: end if;
552: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Rounding of Evaluated NBV: '||eval_nbv_round); -- Bug 9145830
546: -- bug4919991
547: if (rounding) then
548: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Round: Y');
549: else
550: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Round: N');
551: end if;
552: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Rounding of Evaluated NBV: '||eval_nbv_round); -- Bug 9145830
553: END IF;
554:
548: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Round: Y');
549: else
550: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Round: N');
551: end if;
552: fa_rx_util_pkg.debug('fadptx_insert: ' || '*****Rounding of Evaluated NBV: '||eval_nbv_round); -- Bug 9145830
553: END IF;
554:
555: /* Get Distribution Source CORPORATE BOOK */
556:
559: From FA_BOOK_CONTROLS
560: where BOOK_TYPE_CODE =h_book;
561:
562: IF (g_print_debug) THEN
563: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Distribution Source Book : '||h_corp_book);
564: END IF;
565:
566: /* Get Category FF and Loacation FF ,Currency information */
567:
579: WHERE BC.BOOK_TYPE_CODE = h_book
580: and SOB.SET_OF_BOOKS_ID = BC.SET_OF_BOOKS_ID;
581:
582: IF (g_print_debug) THEN
583: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Currency Code: '||h_currency_code);
584: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Category struct id: '||cat_flex_struct);
585: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Location struct id: '||loc_flex_struct);
586: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Company Name: '||h_company_name);
587: END IF;
580: and SOB.SET_OF_BOOKS_ID = BC.SET_OF_BOOKS_ID;
581:
582: IF (g_print_debug) THEN
583: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Currency Code: '||h_currency_code);
584: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Category struct id: '||cat_flex_struct);
585: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Location struct id: '||loc_flex_struct);
586: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Company Name: '||h_company_name);
587: END IF;
588:
581:
582: IF (g_print_debug) THEN
583: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Currency Code: '||h_currency_code);
584: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Category struct id: '||cat_flex_struct);
585: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Location struct id: '||loc_flex_struct);
586: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Company Name: '||h_company_name);
587: END IF;
588:
589: /* Get FA_LOOKUP CODE values */
582: IF (g_print_debug) THEN
583: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Currency Code: '||h_currency_code);
584: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Category struct id: '||cat_flex_struct);
585: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Location struct id: '||loc_flex_struct);
586: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Company Name: '||h_company_name);
587: END IF;
588:
589: /* Get FA_LOOKUP CODE values */
590: select meaning
601: min_acct_unit => h_min_acct_unit
602: );
603:
604: IF (g_print_debug) THEN
605: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Precision: '||h_currency_code);
606: END IF;
607:
608: /* Get Minor Category Segment */
609: /* Bug#3305764 - Enhancement to make flexfield segment flexible */
611: l_parm_minor := fa_rx_flex_pkg.flex_sql(140,'CAT#', cat_flex_struct,'CAT',
612: 'SELECT', h_tax_asset_type_segment);
613:
614: IF (g_print_debug) THEN
615: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Tax Asset Type Category Segment: '||l_parm_minor);
616: END IF;
617:
618: /* Get Location Segment */
619: l_parm_state := fa_rx_flex_pkg.flex_sql(140,'LOC#', loc_flex_struct,'LOC',
619: l_parm_state := fa_rx_flex_pkg.flex_sql(140,'LOC#', loc_flex_struct,'LOC',
620: 'SELECT', 'LOC_STATE');
621:
622: IF (g_print_debug) THEN
623: fa_rx_util_pkg.debug('fadptx_insert: ' || 'State Segment: '||l_parm_state);
624: END IF;
625:
626: /*============================================================================
627: Dynamic SQL valiable set
1049: end if;
1050: k := k+1;
1051: End Loop;
1052:
1053: fa_rx_util_pkg.debug('debug: ***** Main SQL: *******');
1054:
1055: /* Bug3896299 - Performance Fix */
1056: /* Changed sub_sql to check the state range */
1057: l_sub_sql :=
1106: ';
1107: /* Bug3896299 */
1108:
1109: IF (g_print_debug) THEN
1110: fa_rx_util_pkg.debug('fadptx_insert: SUB SQL: '|| l_sub_sql);
1111: END IF;
1112:
1113:
1114:
1116: /* v_SubCursor is created for performance issue. the cursor fetch asset_id */
1117:
1118: v_SubCursor := DBMS_SQL.OPEN_CURSOR;
1119: IF (g_print_debug) THEN
1120: fa_rx_util_pkg.debug('fadptx_insert: ***** OPEN CURSOR: v_SubCursor *****');
1121: fa_rx_util_pkg.debug('fadptx_insert: v_SubCursor :'|| v_SubCursor);
1122: END IF;
1123:
1124: DBMS_SQL.PARSE (v_SubCursor,l_sub_sql,DBMS_SQL.V7);
1117:
1118: v_SubCursor := DBMS_SQL.OPEN_CURSOR;
1119: IF (g_print_debug) THEN
1120: fa_rx_util_pkg.debug('fadptx_insert: ***** OPEN CURSOR: v_SubCursor *****');
1121: fa_rx_util_pkg.debug('fadptx_insert: v_SubCursor :'|| v_SubCursor);
1122: END IF;
1123:
1124: DBMS_SQL.PARSE (v_SubCursor,l_sub_sql,DBMS_SQL.V7);
1125:
1138:
1139: DBMS_SQL.DEFINE_COLUMN(v_SubCursor,1,l_asset_id);
1140:
1141: IF (g_print_debug) THEN
1142: fa_rx_util_pkg.debug('fadptx_insert: ***** BIND/DEFINE COLUMN: v_SubCursor *****');
1143: END IF;
1144:
1145: v_SubReturn := DBMS_SQL.EXECUTE(v_SubCursor);
1146: IF (g_print_debug) THEN
1143: END IF;
1144:
1145: v_SubReturn := DBMS_SQL.EXECUTE(v_SubCursor);
1146: IF (g_print_debug) THEN
1147: fa_rx_util_pkg.debug('fadptx_insert: ***** EXECUTE: v_SubCursor *****');
1148: fa_rx_util_pkg.debug('fadptx_insert: v_SubReturn :'|| v_SubReturn);
1149: END IF;
1150:
1151: --Open v_MainCursor
1144:
1145: v_SubReturn := DBMS_SQL.EXECUTE(v_SubCursor);
1146: IF (g_print_debug) THEN
1147: fa_rx_util_pkg.debug('fadptx_insert: ***** EXECUTE: v_SubCursor *****');
1148: fa_rx_util_pkg.debug('fadptx_insert: v_SubReturn :'|| v_SubReturn);
1149: END IF;
1150:
1151: --Open v_MainCursor
1152: /* v_MainCursor is for fetch main data */
1152: /* v_MainCursor is for fetch main data */
1153:
1154: v_MainCursor := DBMS_SQL.OPEN_CURSOR;
1155: IF (g_print_debug) THEN
1156: fa_rx_util_pkg.debug('fadptx_insert: ***** OPEN CURSOR: v_MainCursor *****');
1157: fa_rx_util_pkg.debug('fadptx_insert: v_MainCursor :' || v_MainCursor);
1158: END IF;
1159:
1160: --DBMS_SQL.PARSE (v_MainCursor, main_sql,DBMS_SQL.V7);
1153:
1154: v_MainCursor := DBMS_SQL.OPEN_CURSOR;
1155: IF (g_print_debug) THEN
1156: fa_rx_util_pkg.debug('fadptx_insert: ***** OPEN CURSOR: v_MainCursor *****');
1157: fa_rx_util_pkg.debug('fadptx_insert: v_MainCursor :' || v_MainCursor);
1158: END IF;
1159:
1160: --DBMS_SQL.PARSE (v_MainCursor, main_sql,DBMS_SQL.V7);
1161: DBMS_SQL.PARSE (v_MainCursor, l_main,0,k,FALSE,DBMS_SQL.V7);
1184: DBMS_SQL.DEFINE_COLUMN(v_MainCursor,22,h_adjusted_rate);
1185: DBMS_SQL.DEFINE_COLUMN(v_MainCursor,23,h_abs_units);
1186: DBMS_SQL.DEFINE_COLUMN(v_MainCursor,24,h_action_flag, 1);
1187: IF (g_print_debug) THEN
1188: fa_rx_util_pkg.debug('fadptx_insert: ***** DEFINE COLUMN: v_MainCursor *****');
1189: END IF;
1190:
1191: --
1192: /* Loop For v_SubCursor */
1194: h_sum_nbvs_asset_id := -1;
1195: Loop
1196: v_SubFetch := DBMS_SQL.FETCH_ROWS(v_SubCursor);
1197: IF (g_print_debug) THEN
1198: fa_rx_util_pkg.debug('fadptx_insert: ***** FETCH LOW: v_SubCursor *****');
1199: fa_rx_util_pkg.debug('fadptx_insert: v_SubFetch :'||v_SubFetch);
1200: END IF;
1201:
1202: If v_SubFetch =0 then
1195: Loop
1196: v_SubFetch := DBMS_SQL.FETCH_ROWS(v_SubCursor);
1197: IF (g_print_debug) THEN
1198: fa_rx_util_pkg.debug('fadptx_insert: ***** FETCH LOW: v_SubCursor *****');
1199: fa_rx_util_pkg.debug('fadptx_insert: v_SubFetch :'||v_SubFetch);
1200: END IF;
1201:
1202: If v_SubFetch =0 then
1203: Exit;
1205:
1206: DBMS_SQL.COLUMN_VALUE(v_SubCursor,1,l_asset_id);
1207:
1208: IF (g_print_debug) THEN
1209: fa_rx_util_pkg.debug('fadptx_insert: l_asset_id : h_sum_nbvs_asset_id'||l_asset_id||':'||h_sum_nbvs_asset_id);
1210: END IF;
1211:
1212: -- Bug#3327616
1213: -- Added max query instead of doing it in main SQL
1256: end if;
1257: end if;
1258:
1259: IF (g_print_debug) THEN
1260: fa_rx_util_pkg.debug('fadptx_insert: h_prior_bk_date_effective :'||to_char(h_prior_bk_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1261: fa_rx_util_pkg.debug('fadptx_insert: h_prior_ah_date_effective :'||to_char(h_prior_ah_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1262: fa_rx_util_pkg.debug('fadptx_insert: h_target_bk_date_effective :'||to_Char(h_target_bk_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1263: fa_rx_util_pkg.debug('fadptx_insert: h_sum_nbvs_cost :'||h_sum_nbvs_cost);
1264: fa_rx_util_pkg.debug('fadptx_insert: h_prior_bk_thid_in :'||h_prior_bk_thid_in);
1257: end if;
1258:
1259: IF (g_print_debug) THEN
1260: fa_rx_util_pkg.debug('fadptx_insert: h_prior_bk_date_effective :'||to_char(h_prior_bk_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1261: fa_rx_util_pkg.debug('fadptx_insert: h_prior_ah_date_effective :'||to_char(h_prior_ah_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1262: fa_rx_util_pkg.debug('fadptx_insert: h_target_bk_date_effective :'||to_Char(h_target_bk_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1263: fa_rx_util_pkg.debug('fadptx_insert: h_sum_nbvs_cost :'||h_sum_nbvs_cost);
1264: fa_rx_util_pkg.debug('fadptx_insert: h_prior_bk_thid_in :'||h_prior_bk_thid_in);
1265: fa_rx_util_pkg.debug('fadptx_insert: h_prior_ah_thid_in :'||h_prior_ah_thid_in);
1258:
1259: IF (g_print_debug) THEN
1260: fa_rx_util_pkg.debug('fadptx_insert: h_prior_bk_date_effective :'||to_char(h_prior_bk_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1261: fa_rx_util_pkg.debug('fadptx_insert: h_prior_ah_date_effective :'||to_char(h_prior_ah_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1262: fa_rx_util_pkg.debug('fadptx_insert: h_target_bk_date_effective :'||to_Char(h_target_bk_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1263: fa_rx_util_pkg.debug('fadptx_insert: h_sum_nbvs_cost :'||h_sum_nbvs_cost);
1264: fa_rx_util_pkg.debug('fadptx_insert: h_prior_bk_thid_in :'||h_prior_bk_thid_in);
1265: fa_rx_util_pkg.debug('fadptx_insert: h_prior_ah_thid_in :'||h_prior_ah_thid_in);
1266: fa_rx_util_pkg.debug('fadptx_insert: h_target_bk_thid_in :'||h_target_bk_thid_in);
1259: IF (g_print_debug) THEN
1260: fa_rx_util_pkg.debug('fadptx_insert: h_prior_bk_date_effective :'||to_char(h_prior_bk_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1261: fa_rx_util_pkg.debug('fadptx_insert: h_prior_ah_date_effective :'||to_char(h_prior_ah_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1262: fa_rx_util_pkg.debug('fadptx_insert: h_target_bk_date_effective :'||to_Char(h_target_bk_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1263: fa_rx_util_pkg.debug('fadptx_insert: h_sum_nbvs_cost :'||h_sum_nbvs_cost);
1264: fa_rx_util_pkg.debug('fadptx_insert: h_prior_bk_thid_in :'||h_prior_bk_thid_in);
1265: fa_rx_util_pkg.debug('fadptx_insert: h_prior_ah_thid_in :'||h_prior_ah_thid_in);
1266: fa_rx_util_pkg.debug('fadptx_insert: h_target_bk_thid_in :'||h_target_bk_thid_in);
1267: END IF;
1260: fa_rx_util_pkg.debug('fadptx_insert: h_prior_bk_date_effective :'||to_char(h_prior_bk_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1261: fa_rx_util_pkg.debug('fadptx_insert: h_prior_ah_date_effective :'||to_char(h_prior_ah_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1262: fa_rx_util_pkg.debug('fadptx_insert: h_target_bk_date_effective :'||to_Char(h_target_bk_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1263: fa_rx_util_pkg.debug('fadptx_insert: h_sum_nbvs_cost :'||h_sum_nbvs_cost);
1264: fa_rx_util_pkg.debug('fadptx_insert: h_prior_bk_thid_in :'||h_prior_bk_thid_in);
1265: fa_rx_util_pkg.debug('fadptx_insert: h_prior_ah_thid_in :'||h_prior_ah_thid_in);
1266: fa_rx_util_pkg.debug('fadptx_insert: h_target_bk_thid_in :'||h_target_bk_thid_in);
1267: END IF;
1268:
1261: fa_rx_util_pkg.debug('fadptx_insert: h_prior_ah_date_effective :'||to_char(h_prior_ah_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1262: fa_rx_util_pkg.debug('fadptx_insert: h_target_bk_date_effective :'||to_Char(h_target_bk_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1263: fa_rx_util_pkg.debug('fadptx_insert: h_sum_nbvs_cost :'||h_sum_nbvs_cost);
1264: fa_rx_util_pkg.debug('fadptx_insert: h_prior_bk_thid_in :'||h_prior_bk_thid_in);
1265: fa_rx_util_pkg.debug('fadptx_insert: h_prior_ah_thid_in :'||h_prior_ah_thid_in);
1266: fa_rx_util_pkg.debug('fadptx_insert: h_target_bk_thid_in :'||h_target_bk_thid_in);
1267: END IF;
1268:
1269: DBMS_SQL.BIND_VARIABLE(v_MainCursor,':p_asset_id',l_asset_id);
1262: fa_rx_util_pkg.debug('fadptx_insert: h_target_bk_date_effective :'||to_Char(h_target_bk_date_effective,'YYYY-MON-DD HH24:MI:SS'));
1263: fa_rx_util_pkg.debug('fadptx_insert: h_sum_nbvs_cost :'||h_sum_nbvs_cost);
1264: fa_rx_util_pkg.debug('fadptx_insert: h_prior_bk_thid_in :'||h_prior_bk_thid_in);
1265: fa_rx_util_pkg.debug('fadptx_insert: h_prior_ah_thid_in :'||h_prior_ah_thid_in);
1266: fa_rx_util_pkg.debug('fadptx_insert: h_target_bk_thid_in :'||h_target_bk_thid_in);
1267: END IF;
1268:
1269: DBMS_SQL.BIND_VARIABLE(v_MainCursor,':p_asset_id',l_asset_id);
1270: DBMS_SQL.BIND_VARIABLE(v_MainCursor,':p_book',h_book);
1284: DBMS_SQL.BIND_VARIABLE(v_MainCursor,':p_target_bk_thid_in',h_target_bk_thid_in); -- Bug3859151
1285:
1286: v_MainReturn := DBMS_SQL.EXECUTE(v_MainCursor);
1287: IF (g_print_debug) THEN
1288: fa_rx_util_pkg.debug('fadptx_insert: ***** EXECUTE: v_MainCursor *****');
1289: fa_rx_util_pkg.debug('fadptx_insert: v_MainReturn :'||v_MainReturn);
1290: END IF;
1291:
1292: /* Loop For v_MainCursor */
1285:
1286: v_MainReturn := DBMS_SQL.EXECUTE(v_MainCursor);
1287: IF (g_print_debug) THEN
1288: fa_rx_util_pkg.debug('fadptx_insert: ***** EXECUTE: v_MainCursor *****');
1289: fa_rx_util_pkg.debug('fadptx_insert: v_MainReturn :'||v_MainReturn);
1290: END IF;
1291:
1292: /* Loop For v_MainCursor */
1293:
1301: h_up_nbv_flag := 'N'; -- bug#2661575
1302:
1303: v_MainFetch := DBMS_SQL.FETCH_ROWS(v_MainCursor);
1304: IF (g_print_debug) THEN
1305: fa_rx_util_pkg.debug('fadptx_insert: ***** FETCH LOW: v_MainCursor *****');
1306: fa_rx_util_pkg.debug('fadptx_insert: v_MainFetch :'|| v_MainFetch);
1307: END IF;
1308:
1309: If v_MainFetch =0 then
1302:
1303: v_MainFetch := DBMS_SQL.FETCH_ROWS(v_MainCursor);
1304: IF (g_print_debug) THEN
1305: fa_rx_util_pkg.debug('fadptx_insert: ***** FETCH LOW: v_MainCursor *****');
1306: fa_rx_util_pkg.debug('fadptx_insert: v_MainFetch :'|| v_MainFetch);
1307: END IF;
1308:
1309: If v_MainFetch =0 then
1310: Exit;
1336: DBMS_SQL.COLUMN_VALUE(v_MainCursor,24,h_action_flag);
1337:
1338: /* Get Minor Category Description */
1339: IF (g_print_debug) THEN
1340: fa_rx_util_pkg.debug('fadptx_insert: h_minor_category(tax asset type) '|| h_minor_category);
1341: END If;
1342:
1343: if h_minor_category is not null then
1344: h_minor_cat_desc :=
1350: p_qualifier => h_tax_asset_type_segment, -- Bug#3305764 - Enhancement to make Category Flexfield flexible
1351: p_data => h_minor_category);
1352:
1353: IF (g_print_debug) THEN
1354: fa_rx_util_pkg.debug('fadptx_insert: h_minor_category(after get_description) '|| h_minor_category);
1355: END If;
1356: end if;
1357:
1358: -- IF (g_print_debug) THEN
1355: END If;
1356: end if;
1357:
1358: -- IF (g_print_debug) THEN
1359: fa_rx_util_pkg.debug('fadptx_insert: **** Queried values by MainCursor ****');
1360: fa_rx_util_pkg.debug('fadptx_insert: asset id: ' || h_asset_id);
1361: fa_rx_util_pkg.debug('fadptx_insert: asset number:' || h_asset_number);
1362: fa_rx_util_pkg.debug('fadptx_insert: asset desc:'|| h_asset_desc);
1363: fa_rx_util_pkg.debug('fadptx_insert: new use:'||h_new_used);
1356: end if;
1357:
1358: -- IF (g_print_debug) THEN
1359: fa_rx_util_pkg.debug('fadptx_insert: **** Queried values by MainCursor ****');
1360: fa_rx_util_pkg.debug('fadptx_insert: asset id: ' || h_asset_id);
1361: fa_rx_util_pkg.debug('fadptx_insert: asset number:' || h_asset_number);
1362: fa_rx_util_pkg.debug('fadptx_insert: asset desc:'|| h_asset_desc);
1363: fa_rx_util_pkg.debug('fadptx_insert: new use:'||h_new_used);
1364: fa_rx_util_pkg.debug('fadptx_insert: minor category:'||h_minor_category);
1357:
1358: -- IF (g_print_debug) THEN
1359: fa_rx_util_pkg.debug('fadptx_insert: **** Queried values by MainCursor ****');
1360: fa_rx_util_pkg.debug('fadptx_insert: asset id: ' || h_asset_id);
1361: fa_rx_util_pkg.debug('fadptx_insert: asset number:' || h_asset_number);
1362: fa_rx_util_pkg.debug('fadptx_insert: asset desc:'|| h_asset_desc);
1363: fa_rx_util_pkg.debug('fadptx_insert: new use:'||h_new_used);
1364: fa_rx_util_pkg.debug('fadptx_insert: minor category:'||h_minor_category);
1365: fa_rx_util_pkg.debug('fadptx_insert: tax asset type: '||h_tax_asset_type);
1358: -- IF (g_print_debug) THEN
1359: fa_rx_util_pkg.debug('fadptx_insert: **** Queried values by MainCursor ****');
1360: fa_rx_util_pkg.debug('fadptx_insert: asset id: ' || h_asset_id);
1361: fa_rx_util_pkg.debug('fadptx_insert: asset number:' || h_asset_number);
1362: fa_rx_util_pkg.debug('fadptx_insert: asset desc:'|| h_asset_desc);
1363: fa_rx_util_pkg.debug('fadptx_insert: new use:'||h_new_used);
1364: fa_rx_util_pkg.debug('fadptx_insert: minor category:'||h_minor_category);
1365: fa_rx_util_pkg.debug('fadptx_insert: tax asset type: '||h_tax_asset_type);
1366: fa_rx_util_pkg.debug('fadptx_insert: state: '||h_state);
1359: fa_rx_util_pkg.debug('fadptx_insert: **** Queried values by MainCursor ****');
1360: fa_rx_util_pkg.debug('fadptx_insert: asset id: ' || h_asset_id);
1361: fa_rx_util_pkg.debug('fadptx_insert: asset number:' || h_asset_number);
1362: fa_rx_util_pkg.debug('fadptx_insert: asset desc:'|| h_asset_desc);
1363: fa_rx_util_pkg.debug('fadptx_insert: new use:'||h_new_used);
1364: fa_rx_util_pkg.debug('fadptx_insert: minor category:'||h_minor_category);
1365: fa_rx_util_pkg.debug('fadptx_insert: tax asset type: '||h_tax_asset_type);
1366: fa_rx_util_pkg.debug('fadptx_insert: state: '||h_state);
1367: fa_rx_util_pkg.debug('fadptx_insert: start total units: '||h_start_units_total);
1360: fa_rx_util_pkg.debug('fadptx_insert: asset id: ' || h_asset_id);
1361: fa_rx_util_pkg.debug('fadptx_insert: asset number:' || h_asset_number);
1362: fa_rx_util_pkg.debug('fadptx_insert: asset desc:'|| h_asset_desc);
1363: fa_rx_util_pkg.debug('fadptx_insert: new use:'||h_new_used);
1364: fa_rx_util_pkg.debug('fadptx_insert: minor category:'||h_minor_category);
1365: fa_rx_util_pkg.debug('fadptx_insert: tax asset type: '||h_tax_asset_type);
1366: fa_rx_util_pkg.debug('fadptx_insert: state: '||h_state);
1367: fa_rx_util_pkg.debug('fadptx_insert: start total units: '||h_start_units_total);
1368: fa_rx_util_pkg.debug('fadptx_insert: end total units: '||h_end_units_total);
1361: fa_rx_util_pkg.debug('fadptx_insert: asset number:' || h_asset_number);
1362: fa_rx_util_pkg.debug('fadptx_insert: asset desc:'|| h_asset_desc);
1363: fa_rx_util_pkg.debug('fadptx_insert: new use:'||h_new_used);
1364: fa_rx_util_pkg.debug('fadptx_insert: minor category:'||h_minor_category);
1365: fa_rx_util_pkg.debug('fadptx_insert: tax asset type: '||h_tax_asset_type);
1366: fa_rx_util_pkg.debug('fadptx_insert: state: '||h_state);
1367: fa_rx_util_pkg.debug('fadptx_insert: start total units: '||h_start_units_total);
1368: fa_rx_util_pkg.debug('fadptx_insert: end total units: '||h_end_units_total);
1369: fa_rx_util_pkg.debug('fadptx_insert: start units assigned:'||h_start_units_assigned);
1362: fa_rx_util_pkg.debug('fadptx_insert: asset desc:'|| h_asset_desc);
1363: fa_rx_util_pkg.debug('fadptx_insert: new use:'||h_new_used);
1364: fa_rx_util_pkg.debug('fadptx_insert: minor category:'||h_minor_category);
1365: fa_rx_util_pkg.debug('fadptx_insert: tax asset type: '||h_tax_asset_type);
1366: fa_rx_util_pkg.debug('fadptx_insert: state: '||h_state);
1367: fa_rx_util_pkg.debug('fadptx_insert: start total units: '||h_start_units_total);
1368: fa_rx_util_pkg.debug('fadptx_insert: end total units: '||h_end_units_total);
1369: fa_rx_util_pkg.debug('fadptx_insert: start units assigned:'||h_start_units_assigned);
1370: fa_rx_util_pkg.debug('fadptx_insert: end units assigned: '||h_end_units_assigned);
1363: fa_rx_util_pkg.debug('fadptx_insert: new use:'||h_new_used);
1364: fa_rx_util_pkg.debug('fadptx_insert: minor category:'||h_minor_category);
1365: fa_rx_util_pkg.debug('fadptx_insert: tax asset type: '||h_tax_asset_type);
1366: fa_rx_util_pkg.debug('fadptx_insert: state: '||h_state);
1367: fa_rx_util_pkg.debug('fadptx_insert: start total units: '||h_start_units_total);
1368: fa_rx_util_pkg.debug('fadptx_insert: end total units: '||h_end_units_total);
1369: fa_rx_util_pkg.debug('fadptx_insert: start units assigned:'||h_start_units_assigned);
1370: fa_rx_util_pkg.debug('fadptx_insert: end units assigned: '||h_end_units_assigned);
1371: fa_rx_util_pkg.debug('fadptx_insert: start total cost:'||h_start_cost_total);
1364: fa_rx_util_pkg.debug('fadptx_insert: minor category:'||h_minor_category);
1365: fa_rx_util_pkg.debug('fadptx_insert: tax asset type: '||h_tax_asset_type);
1366: fa_rx_util_pkg.debug('fadptx_insert: state: '||h_state);
1367: fa_rx_util_pkg.debug('fadptx_insert: start total units: '||h_start_units_total);
1368: fa_rx_util_pkg.debug('fadptx_insert: end total units: '||h_end_units_total);
1369: fa_rx_util_pkg.debug('fadptx_insert: start units assigned:'||h_start_units_assigned);
1370: fa_rx_util_pkg.debug('fadptx_insert: end units assigned: '||h_end_units_assigned);
1371: fa_rx_util_pkg.debug('fadptx_insert: start total cost:'||h_start_cost_total);
1372: fa_rx_util_pkg.debug('fadptx_insert: end total cost: '||h_end_cost_total);
1365: fa_rx_util_pkg.debug('fadptx_insert: tax asset type: '||h_tax_asset_type);
1366: fa_rx_util_pkg.debug('fadptx_insert: state: '||h_state);
1367: fa_rx_util_pkg.debug('fadptx_insert: start total units: '||h_start_units_total);
1368: fa_rx_util_pkg.debug('fadptx_insert: end total units: '||h_end_units_total);
1369: fa_rx_util_pkg.debug('fadptx_insert: start units assigned:'||h_start_units_assigned);
1370: fa_rx_util_pkg.debug('fadptx_insert: end units assigned: '||h_end_units_assigned);
1371: fa_rx_util_pkg.debug('fadptx_insert: start total cost:'||h_start_cost_total);
1372: fa_rx_util_pkg.debug('fadptx_insert: end total cost: '||h_end_cost_total);
1373: fa_rx_util_pkg.debug('fadptx_insert: date in service:' ||h_date_in_service);
1366: fa_rx_util_pkg.debug('fadptx_insert: state: '||h_state);
1367: fa_rx_util_pkg.debug('fadptx_insert: start total units: '||h_start_units_total);
1368: fa_rx_util_pkg.debug('fadptx_insert: end total units: '||h_end_units_total);
1369: fa_rx_util_pkg.debug('fadptx_insert: start units assigned:'||h_start_units_assigned);
1370: fa_rx_util_pkg.debug('fadptx_insert: end units assigned: '||h_end_units_assigned);
1371: fa_rx_util_pkg.debug('fadptx_insert: start total cost:'||h_start_cost_total);
1372: fa_rx_util_pkg.debug('fadptx_insert: end total cost: '||h_end_cost_total);
1373: fa_rx_util_pkg.debug('fadptx_insert: date in service:' ||h_date_in_service);
1374: fa_rx_util_pkg.debug('fadptx_insert: era name num: '||h_era_name_num);
1367: fa_rx_util_pkg.debug('fadptx_insert: start total units: '||h_start_units_total);
1368: fa_rx_util_pkg.debug('fadptx_insert: end total units: '||h_end_units_total);
1369: fa_rx_util_pkg.debug('fadptx_insert: start units assigned:'||h_start_units_assigned);
1370: fa_rx_util_pkg.debug('fadptx_insert: end units assigned: '||h_end_units_assigned);
1371: fa_rx_util_pkg.debug('fadptx_insert: start total cost:'||h_start_cost_total);
1372: fa_rx_util_pkg.debug('fadptx_insert: end total cost: '||h_end_cost_total);
1373: fa_rx_util_pkg.debug('fadptx_insert: date in service:' ||h_date_in_service);
1374: fa_rx_util_pkg.debug('fadptx_insert: era name num: '||h_era_name_num);
1375: fa_rx_util_pkg.debug('fadptx_insert: add era year: '||h_add_era_year);
1368: fa_rx_util_pkg.debug('fadptx_insert: end total units: '||h_end_units_total);
1369: fa_rx_util_pkg.debug('fadptx_insert: start units assigned:'||h_start_units_assigned);
1370: fa_rx_util_pkg.debug('fadptx_insert: end units assigned: '||h_end_units_assigned);
1371: fa_rx_util_pkg.debug('fadptx_insert: start total cost:'||h_start_cost_total);
1372: fa_rx_util_pkg.debug('fadptx_insert: end total cost: '||h_end_cost_total);
1373: fa_rx_util_pkg.debug('fadptx_insert: date in service:' ||h_date_in_service);
1374: fa_rx_util_pkg.debug('fadptx_insert: era name num: '||h_era_name_num);
1375: fa_rx_util_pkg.debug('fadptx_insert: add era year: '||h_add_era_year);
1376: fa_rx_util_pkg.debug('fadptx_insert: add year: '||h_add_year);
1369: fa_rx_util_pkg.debug('fadptx_insert: start units assigned:'||h_start_units_assigned);
1370: fa_rx_util_pkg.debug('fadptx_insert: end units assigned: '||h_end_units_assigned);
1371: fa_rx_util_pkg.debug('fadptx_insert: start total cost:'||h_start_cost_total);
1372: fa_rx_util_pkg.debug('fadptx_insert: end total cost: '||h_end_cost_total);
1373: fa_rx_util_pkg.debug('fadptx_insert: date in service:' ||h_date_in_service);
1374: fa_rx_util_pkg.debug('fadptx_insert: era name num: '||h_era_name_num);
1375: fa_rx_util_pkg.debug('fadptx_insert: add era year: '||h_add_era_year);
1376: fa_rx_util_pkg.debug('fadptx_insert: add year: '||h_add_year);
1377: fa_rx_util_pkg.debug('fadptx_insert: add month: '||h_add_month);
1370: fa_rx_util_pkg.debug('fadptx_insert: end units assigned: '||h_end_units_assigned);
1371: fa_rx_util_pkg.debug('fadptx_insert: start total cost:'||h_start_cost_total);
1372: fa_rx_util_pkg.debug('fadptx_insert: end total cost: '||h_end_cost_total);
1373: fa_rx_util_pkg.debug('fadptx_insert: date in service:' ||h_date_in_service);
1374: fa_rx_util_pkg.debug('fadptx_insert: era name num: '||h_era_name_num);
1375: fa_rx_util_pkg.debug('fadptx_insert: add era year: '||h_add_era_year);
1376: fa_rx_util_pkg.debug('fadptx_insert: add year: '||h_add_year);
1377: fa_rx_util_pkg.debug('fadptx_insert: add month: '||h_add_month);
1378: fa_rx_util_pkg.debug('fadptx_insert: start life: '||h_start_life);
1371: fa_rx_util_pkg.debug('fadptx_insert: start total cost:'||h_start_cost_total);
1372: fa_rx_util_pkg.debug('fadptx_insert: end total cost: '||h_end_cost_total);
1373: fa_rx_util_pkg.debug('fadptx_insert: date in service:' ||h_date_in_service);
1374: fa_rx_util_pkg.debug('fadptx_insert: era name num: '||h_era_name_num);
1375: fa_rx_util_pkg.debug('fadptx_insert: add era year: '||h_add_era_year);
1376: fa_rx_util_pkg.debug('fadptx_insert: add year: '||h_add_year);
1377: fa_rx_util_pkg.debug('fadptx_insert: add month: '||h_add_month);
1378: fa_rx_util_pkg.debug('fadptx_insert: start life: '||h_start_life);
1379: fa_rx_util_pkg.debug('fadptx_insert: end life: '||h_end_life);
1372: fa_rx_util_pkg.debug('fadptx_insert: end total cost: '||h_end_cost_total);
1373: fa_rx_util_pkg.debug('fadptx_insert: date in service:' ||h_date_in_service);
1374: fa_rx_util_pkg.debug('fadptx_insert: era name num: '||h_era_name_num);
1375: fa_rx_util_pkg.debug('fadptx_insert: add era year: '||h_add_era_year);
1376: fa_rx_util_pkg.debug('fadptx_insert: add year: '||h_add_year);
1377: fa_rx_util_pkg.debug('fadptx_insert: add month: '||h_add_month);
1378: fa_rx_util_pkg.debug('fadptx_insert: start life: '||h_start_life);
1379: fa_rx_util_pkg.debug('fadptx_insert: end life: '||h_end_life);
1380: fa_rx_util_pkg.debug('fadptx_insert: adjusted rate: '||h_adjusted_rate);
1373: fa_rx_util_pkg.debug('fadptx_insert: date in service:' ||h_date_in_service);
1374: fa_rx_util_pkg.debug('fadptx_insert: era name num: '||h_era_name_num);
1375: fa_rx_util_pkg.debug('fadptx_insert: add era year: '||h_add_era_year);
1376: fa_rx_util_pkg.debug('fadptx_insert: add year: '||h_add_year);
1377: fa_rx_util_pkg.debug('fadptx_insert: add month: '||h_add_month);
1378: fa_rx_util_pkg.debug('fadptx_insert: start life: '||h_start_life);
1379: fa_rx_util_pkg.debug('fadptx_insert: end life: '||h_end_life);
1380: fa_rx_util_pkg.debug('fadptx_insert: adjusted rate: '||h_adjusted_rate);
1381: fa_rx_util_pkg.debug('fadptx_insert: h_abs_units: '||h_abs_units);
1374: fa_rx_util_pkg.debug('fadptx_insert: era name num: '||h_era_name_num);
1375: fa_rx_util_pkg.debug('fadptx_insert: add era year: '||h_add_era_year);
1376: fa_rx_util_pkg.debug('fadptx_insert: add year: '||h_add_year);
1377: fa_rx_util_pkg.debug('fadptx_insert: add month: '||h_add_month);
1378: fa_rx_util_pkg.debug('fadptx_insert: start life: '||h_start_life);
1379: fa_rx_util_pkg.debug('fadptx_insert: end life: '||h_end_life);
1380: fa_rx_util_pkg.debug('fadptx_insert: adjusted rate: '||h_adjusted_rate);
1381: fa_rx_util_pkg.debug('fadptx_insert: h_abs_units: '||h_abs_units);
1382: fa_rx_util_pkg.debug('fadptx_insert: action flag: '||h_action_flag);
1375: fa_rx_util_pkg.debug('fadptx_insert: add era year: '||h_add_era_year);
1376: fa_rx_util_pkg.debug('fadptx_insert: add year: '||h_add_year);
1377: fa_rx_util_pkg.debug('fadptx_insert: add month: '||h_add_month);
1378: fa_rx_util_pkg.debug('fadptx_insert: start life: '||h_start_life);
1379: fa_rx_util_pkg.debug('fadptx_insert: end life: '||h_end_life);
1380: fa_rx_util_pkg.debug('fadptx_insert: adjusted rate: '||h_adjusted_rate);
1381: fa_rx_util_pkg.debug('fadptx_insert: h_abs_units: '||h_abs_units);
1382: fa_rx_util_pkg.debug('fadptx_insert: action flag: '||h_action_flag);
1383: fa_rx_util_pkg.debug('fadptx_insert: **** End of queried values list for '||h_asset_id||' ****');
1376: fa_rx_util_pkg.debug('fadptx_insert: add year: '||h_add_year);
1377: fa_rx_util_pkg.debug('fadptx_insert: add month: '||h_add_month);
1378: fa_rx_util_pkg.debug('fadptx_insert: start life: '||h_start_life);
1379: fa_rx_util_pkg.debug('fadptx_insert: end life: '||h_end_life);
1380: fa_rx_util_pkg.debug('fadptx_insert: adjusted rate: '||h_adjusted_rate);
1381: fa_rx_util_pkg.debug('fadptx_insert: h_abs_units: '||h_abs_units);
1382: fa_rx_util_pkg.debug('fadptx_insert: action flag: '||h_action_flag);
1383: fa_rx_util_pkg.debug('fadptx_insert: **** End of queried values list for '||h_asset_id||' ****');
1384: -- END IF;
1377: fa_rx_util_pkg.debug('fadptx_insert: add month: '||h_add_month);
1378: fa_rx_util_pkg.debug('fadptx_insert: start life: '||h_start_life);
1379: fa_rx_util_pkg.debug('fadptx_insert: end life: '||h_end_life);
1380: fa_rx_util_pkg.debug('fadptx_insert: adjusted rate: '||h_adjusted_rate);
1381: fa_rx_util_pkg.debug('fadptx_insert: h_abs_units: '||h_abs_units);
1382: fa_rx_util_pkg.debug('fadptx_insert: action flag: '||h_action_flag);
1383: fa_rx_util_pkg.debug('fadptx_insert: **** End of queried values list for '||h_asset_id||' ****');
1384: -- END IF;
1385:
1378: fa_rx_util_pkg.debug('fadptx_insert: start life: '||h_start_life);
1379: fa_rx_util_pkg.debug('fadptx_insert: end life: '||h_end_life);
1380: fa_rx_util_pkg.debug('fadptx_insert: adjusted rate: '||h_adjusted_rate);
1381: fa_rx_util_pkg.debug('fadptx_insert: h_abs_units: '||h_abs_units);
1382: fa_rx_util_pkg.debug('fadptx_insert: action flag: '||h_action_flag);
1383: fa_rx_util_pkg.debug('fadptx_insert: **** End of queried values list for '||h_asset_id||' ****');
1384: -- END IF;
1385:
1386: /* Get theoretical and evaluated nbv,residual rate */
1379: fa_rx_util_pkg.debug('fadptx_insert: end life: '||h_end_life);
1380: fa_rx_util_pkg.debug('fadptx_insert: adjusted rate: '||h_adjusted_rate);
1381: fa_rx_util_pkg.debug('fadptx_insert: h_abs_units: '||h_abs_units);
1382: fa_rx_util_pkg.debug('fadptx_insert: action flag: '||h_action_flag);
1383: fa_rx_util_pkg.debug('fadptx_insert: **** End of queried values list for '||h_asset_id||' ****');
1384: -- END IF;
1385:
1386: /* Get theoretical and evaluated nbv,residual rate */
1387:
1438: l_total_units := h_total_units;
1439: */
1440:
1441: IF (g_print_debug) THEN
1442: fa_rx_util_pkg.debug('fadptx_insert: l_asset_id (before c_last_nbv_total):'||l_asset_id);
1443: fa_rx_util_pkg.debug('fadptx_insert: h_book:'||h_book);
1444: fa_rx_util_pkg.debug('fadptx_insert: h_year:'||h_year);
1445: END IF;
1446: --
1439: */
1440:
1441: IF (g_print_debug) THEN
1442: fa_rx_util_pkg.debug('fadptx_insert: l_asset_id (before c_last_nbv_total):'||l_asset_id);
1443: fa_rx_util_pkg.debug('fadptx_insert: h_book:'||h_book);
1444: fa_rx_util_pkg.debug('fadptx_insert: h_year:'||h_year);
1445: END IF;
1446: --
1447: open c_last_nbv_total(l_asset_id,h_book,h_year);
1440:
1441: IF (g_print_debug) THEN
1442: fa_rx_util_pkg.debug('fadptx_insert: l_asset_id (before c_last_nbv_total):'||l_asset_id);
1443: fa_rx_util_pkg.debug('fadptx_insert: h_book:'||h_book);
1444: fa_rx_util_pkg.debug('fadptx_insert: h_year:'||h_year);
1445: END IF;
1446: --
1447: open c_last_nbv_total(l_asset_id,h_book,h_year);
1448: fetch c_last_nbv_total into dist_total_cost, -- bug#2661575
1452:
1453: -- Fetch total units at target date
1454: if c_last_nbv_total%FOUND then
1455: if (g_print_debug) then
1456: fa_rx_util_pkg.debug('fadptx_insert: c_last_nbv_total: return with values');
1457: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_cost(0.0):'||dist_total_cost);
1458: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_units(0.0):'||dist_last_total_units);
1459: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(0.0):'||dist_total_evaluated_nbv);
1460: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(0.0):'||dist_total_theoretical_nbv);
1453: -- Fetch total units at target date
1454: if c_last_nbv_total%FOUND then
1455: if (g_print_debug) then
1456: fa_rx_util_pkg.debug('fadptx_insert: c_last_nbv_total: return with values');
1457: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_cost(0.0):'||dist_total_cost);
1458: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_units(0.0):'||dist_last_total_units);
1459: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(0.0):'||dist_total_evaluated_nbv);
1460: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(0.0):'||dist_total_theoretical_nbv);
1461: fa_rx_util_pkg.debug('fadptx_insert: dist_year(0.0):'||dist_year);
1454: if c_last_nbv_total%FOUND then
1455: if (g_print_debug) then
1456: fa_rx_util_pkg.debug('fadptx_insert: c_last_nbv_total: return with values');
1457: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_cost(0.0):'||dist_total_cost);
1458: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_units(0.0):'||dist_last_total_units);
1459: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(0.0):'||dist_total_evaluated_nbv);
1460: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(0.0):'||dist_total_theoretical_nbv);
1461: fa_rx_util_pkg.debug('fadptx_insert: dist_year(0.0):'||dist_year);
1462: end if;
1455: if (g_print_debug) then
1456: fa_rx_util_pkg.debug('fadptx_insert: c_last_nbv_total: return with values');
1457: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_cost(0.0):'||dist_total_cost);
1458: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_units(0.0):'||dist_last_total_units);
1459: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(0.0):'||dist_total_evaluated_nbv);
1460: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(0.0):'||dist_total_theoretical_nbv);
1461: fa_rx_util_pkg.debug('fadptx_insert: dist_year(0.0):'||dist_year);
1462: end if;
1463:
1456: fa_rx_util_pkg.debug('fadptx_insert: c_last_nbv_total: return with values');
1457: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_cost(0.0):'||dist_total_cost);
1458: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_units(0.0):'||dist_last_total_units);
1459: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(0.0):'||dist_total_evaluated_nbv);
1460: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(0.0):'||dist_total_theoretical_nbv);
1461: fa_rx_util_pkg.debug('fadptx_insert: dist_year(0.0):'||dist_year);
1462: end if;
1463:
1464: h_last_nbv_total_flag :='Y';
1457: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_cost(0.0):'||dist_total_cost);
1458: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_units(0.0):'||dist_last_total_units);
1459: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(0.0):'||dist_total_evaluated_nbv);
1460: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(0.0):'||dist_total_theoretical_nbv);
1461: fa_rx_util_pkg.debug('fadptx_insert: dist_year(0.0):'||dist_year);
1462: end if;
1463:
1464: h_last_nbv_total_flag :='Y';
1465: dist_total_units := l_total_units;
1489:
1490: close c_last_nbv_total;
1491:
1492: IF (g_print_debug) THEN
1493: fa_rx_util_pkg.debug('fadptx_insert: dist_total_cost(0):'||dist_total_cost);
1494: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(0):'||dist_total_units);
1495: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_units(0):'||dist_last_total_units);
1496: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(0):'||dist_total_evaluated_nbv);
1497: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(0):'||dist_total_theoretical_nbv);
1490: close c_last_nbv_total;
1491:
1492: IF (g_print_debug) THEN
1493: fa_rx_util_pkg.debug('fadptx_insert: dist_total_cost(0):'||dist_total_cost);
1494: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(0):'||dist_total_units);
1495: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_units(0):'||dist_last_total_units);
1496: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(0):'||dist_total_evaluated_nbv);
1497: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(0):'||dist_total_theoretical_nbv);
1498: fa_rx_util_pkg.debug('fadptx_insert: dist_year:'||dist_year);
1491:
1492: IF (g_print_debug) THEN
1493: fa_rx_util_pkg.debug('fadptx_insert: dist_total_cost(0):'||dist_total_cost);
1494: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(0):'||dist_total_units);
1495: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_units(0):'||dist_last_total_units);
1496: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(0):'||dist_total_evaluated_nbv);
1497: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(0):'||dist_total_theoretical_nbv);
1498: fa_rx_util_pkg.debug('fadptx_insert: dist_year:'||dist_year);
1499: END IF;
1492: IF (g_print_debug) THEN
1493: fa_rx_util_pkg.debug('fadptx_insert: dist_total_cost(0):'||dist_total_cost);
1494: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(0):'||dist_total_units);
1495: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_units(0):'||dist_last_total_units);
1496: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(0):'||dist_total_evaluated_nbv);
1497: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(0):'||dist_total_theoretical_nbv);
1498: fa_rx_util_pkg.debug('fadptx_insert: dist_year:'||dist_year);
1499: END IF;
1500:
1493: fa_rx_util_pkg.debug('fadptx_insert: dist_total_cost(0):'||dist_total_cost);
1494: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(0):'||dist_total_units);
1495: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_units(0):'||dist_last_total_units);
1496: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(0):'||dist_total_evaluated_nbv);
1497: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(0):'||dist_total_theoretical_nbv);
1498: fa_rx_util_pkg.debug('fadptx_insert: dist_year:'||dist_year);
1499: END IF;
1500:
1501: end if; -- if dist_asset_id <> h_asset_id
1494: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(0):'||dist_total_units);
1495: fa_rx_util_pkg.debug('fadptx_insert: dist_last_total_units(0):'||dist_last_total_units);
1496: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(0):'||dist_total_evaluated_nbv);
1497: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(0):'||dist_total_theoretical_nbv);
1498: fa_rx_util_pkg.debug('fadptx_insert: dist_year:'||dist_year);
1499: END IF;
1500:
1501: end if; -- if dist_asset_id <> h_asset_id
1502: --
1502: --
1503: -- Get the latest data from NBV table.
1504:
1505: IF (g_print_debug) THEN
1506: fa_rx_util_pkg.debug('fadptx_insert: l_total_prior_cost(0):'||l_total_prior_cost);
1507: fa_rx_util_pkg.debug('fadptx_insert: l_total_prior_units(0):'||l_total_prior_units);
1508: fa_rx_util_pkg.debug('fadptx_insert: l_total_cost(0):'||l_total_cost);
1509: fa_rx_util_pkg.debug('fadptx_insert: l_total_units(0):'||l_total_units);
1510: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(0.5):'||dist_total_units);
1503: -- Get the latest data from NBV table.
1504:
1505: IF (g_print_debug) THEN
1506: fa_rx_util_pkg.debug('fadptx_insert: l_total_prior_cost(0):'||l_total_prior_cost);
1507: fa_rx_util_pkg.debug('fadptx_insert: l_total_prior_units(0):'||l_total_prior_units);
1508: fa_rx_util_pkg.debug('fadptx_insert: l_total_cost(0):'||l_total_cost);
1509: fa_rx_util_pkg.debug('fadptx_insert: l_total_units(0):'||l_total_units);
1510: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(0.5):'||dist_total_units);
1511: END IF;
1504:
1505: IF (g_print_debug) THEN
1506: fa_rx_util_pkg.debug('fadptx_insert: l_total_prior_cost(0):'||l_total_prior_cost);
1507: fa_rx_util_pkg.debug('fadptx_insert: l_total_prior_units(0):'||l_total_prior_units);
1508: fa_rx_util_pkg.debug('fadptx_insert: l_total_cost(0):'||l_total_cost);
1509: fa_rx_util_pkg.debug('fadptx_insert: l_total_units(0):'||l_total_units);
1510: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(0.5):'||dist_total_units);
1511: END IF;
1512:
1505: IF (g_print_debug) THEN
1506: fa_rx_util_pkg.debug('fadptx_insert: l_total_prior_cost(0):'||l_total_prior_cost);
1507: fa_rx_util_pkg.debug('fadptx_insert: l_total_prior_units(0):'||l_total_prior_units);
1508: fa_rx_util_pkg.debug('fadptx_insert: l_total_cost(0):'||l_total_cost);
1509: fa_rx_util_pkg.debug('fadptx_insert: l_total_units(0):'||l_total_units);
1510: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(0.5):'||dist_total_units);
1511: END IF;
1512:
1513: -- Initializations
1506: fa_rx_util_pkg.debug('fadptx_insert: l_total_prior_cost(0):'||l_total_prior_cost);
1507: fa_rx_util_pkg.debug('fadptx_insert: l_total_prior_units(0):'||l_total_prior_units);
1508: fa_rx_util_pkg.debug('fadptx_insert: l_total_cost(0):'||l_total_cost);
1509: fa_rx_util_pkg.debug('fadptx_insert: l_total_units(0):'||l_total_units);
1510: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(0.5):'||dist_total_units);
1511: END IF;
1512:
1513: -- Initializations
1514: h_up_cost := NULL;
1526: FETCH c_nbv_update INTO h_up_cost,h_up_theoretical_nbv,
1527: h_up_evaluated_nbv,h_up_year, h_tmp_units_assigned;
1528:
1529: IF (g_print_debug) THEN
1530: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_up_theoretical_nbv(0):'||h_up_theoretical_nbv);
1531: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_up_evaluated_nbv(0):'||h_up_evaluated_nbv);
1532: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_up_year(0):'||h_up_year);
1533: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_tmp_units_assigned(0):'||h_tmp_units_assigned);
1534: END IF;
1527: h_up_evaluated_nbv,h_up_year, h_tmp_units_assigned;
1528:
1529: IF (g_print_debug) THEN
1530: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_up_theoretical_nbv(0):'||h_up_theoretical_nbv);
1531: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_up_evaluated_nbv(0):'||h_up_evaluated_nbv);
1532: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_up_year(0):'||h_up_year);
1533: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_tmp_units_assigned(0):'||h_tmp_units_assigned);
1534: END IF;
1535:
1528:
1529: IF (g_print_debug) THEN
1530: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_up_theoretical_nbv(0):'||h_up_theoretical_nbv);
1531: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_up_evaluated_nbv(0):'||h_up_evaluated_nbv);
1532: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_up_year(0):'||h_up_year);
1533: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_tmp_units_assigned(0):'||h_tmp_units_assigned);
1534: END IF;
1535:
1536: -- bug#2661575: Remove flag logic
1529: IF (g_print_debug) THEN
1530: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_up_theoretical_nbv(0):'||h_up_theoretical_nbv);
1531: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_up_evaluated_nbv(0):'||h_up_evaluated_nbv);
1532: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_up_year(0):'||h_up_year);
1533: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_tmp_units_assigned(0):'||h_tmp_units_assigned);
1534: END IF;
1535:
1536: -- bug#2661575: Remove flag logic
1537:
1540: dist_total_units := h_end_units_total;
1541: end if;
1542:
1543: IF (g_print_debug) THEN
1544: fa_rx_util_pkg.debug('fadptx_insert: h_up_evaluated_nbv(0):'||h_up_evaluated_nbv);
1545: fa_rx_util_pkg.debug('fadptx_insert: h_up_year(0):'||h_up_year);
1546: fa_rx_util_pkg.debug('fadptx_insert: h_tmp_units_assigned(0):'||h_tmp_units_assigned);
1547: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(1):'||dist_total_units);
1548: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(1):'||dist_total_theoretical_nbv);
1541: end if;
1542:
1543: IF (g_print_debug) THEN
1544: fa_rx_util_pkg.debug('fadptx_insert: h_up_evaluated_nbv(0):'||h_up_evaluated_nbv);
1545: fa_rx_util_pkg.debug('fadptx_insert: h_up_year(0):'||h_up_year);
1546: fa_rx_util_pkg.debug('fadptx_insert: h_tmp_units_assigned(0):'||h_tmp_units_assigned);
1547: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(1):'||dist_total_units);
1548: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(1):'||dist_total_theoretical_nbv);
1549: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(1):'||dist_total_evaluated_nbv);
1542:
1543: IF (g_print_debug) THEN
1544: fa_rx_util_pkg.debug('fadptx_insert: h_up_evaluated_nbv(0):'||h_up_evaluated_nbv);
1545: fa_rx_util_pkg.debug('fadptx_insert: h_up_year(0):'||h_up_year);
1546: fa_rx_util_pkg.debug('fadptx_insert: h_tmp_units_assigned(0):'||h_tmp_units_assigned);
1547: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(1):'||dist_total_units);
1548: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(1):'||dist_total_theoretical_nbv);
1549: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(1):'||dist_total_evaluated_nbv);
1550: END IF;
1543: IF (g_print_debug) THEN
1544: fa_rx_util_pkg.debug('fadptx_insert: h_up_evaluated_nbv(0):'||h_up_evaluated_nbv);
1545: fa_rx_util_pkg.debug('fadptx_insert: h_up_year(0):'||h_up_year);
1546: fa_rx_util_pkg.debug('fadptx_insert: h_tmp_units_assigned(0):'||h_tmp_units_assigned);
1547: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(1):'||dist_total_units);
1548: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(1):'||dist_total_theoretical_nbv);
1549: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(1):'||dist_total_evaluated_nbv);
1550: END IF;
1551:
1544: fa_rx_util_pkg.debug('fadptx_insert: h_up_evaluated_nbv(0):'||h_up_evaluated_nbv);
1545: fa_rx_util_pkg.debug('fadptx_insert: h_up_year(0):'||h_up_year);
1546: fa_rx_util_pkg.debug('fadptx_insert: h_tmp_units_assigned(0):'||h_tmp_units_assigned);
1547: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(1):'||dist_total_units);
1548: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(1):'||dist_total_theoretical_nbv);
1549: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(1):'||dist_total_evaluated_nbv);
1550: END IF;
1551:
1552:
1545: fa_rx_util_pkg.debug('fadptx_insert: h_up_year(0):'||h_up_year);
1546: fa_rx_util_pkg.debug('fadptx_insert: h_tmp_units_assigned(0):'||h_tmp_units_assigned);
1547: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units(1):'||dist_total_units);
1548: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv(1):'||dist_total_theoretical_nbv);
1549: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv(1):'||dist_total_evaluated_nbv);
1550: END IF;
1551:
1552:
1553: IF dist_total_theoretical_nbv is not null and dist_total_evaluated_nbv is not null then
1593:
1594: CLOSE c_last_update;
1595:
1596: IF (g_print_debug) THEN
1597: fa_rx_util_pkg.debug('fadptx_insert: h_up_nbv_flag:'||h_up_nbv_flag);
1598: fa_rx_util_pkg.debug('fadptx_insert: h_last_up_flag:'||h_last_up_flag);
1599: fa_rx_util_pkg.debug('fadptx_insert: h_up_cost:'||h_up_cost);
1600: fa_rx_util_pkg.debug('fadptx_insert: h_up_theoretical_nbv:'||h_up_theoretical_nbv);
1601: fa_rx_util_pkg.debug('fadptx_insert: h_up_evaluated_nbv:'||h_up_evaluated_nbv);
1594: CLOSE c_last_update;
1595:
1596: IF (g_print_debug) THEN
1597: fa_rx_util_pkg.debug('fadptx_insert: h_up_nbv_flag:'||h_up_nbv_flag);
1598: fa_rx_util_pkg.debug('fadptx_insert: h_last_up_flag:'||h_last_up_flag);
1599: fa_rx_util_pkg.debug('fadptx_insert: h_up_cost:'||h_up_cost);
1600: fa_rx_util_pkg.debug('fadptx_insert: h_up_theoretical_nbv:'||h_up_theoretical_nbv);
1601: fa_rx_util_pkg.debug('fadptx_insert: h_up_evaluated_nbv:'||h_up_evaluated_nbv);
1602: fa_rx_util_pkg.debug('fadptx_insert: h_up_year:'||h_up_year);
1595:
1596: IF (g_print_debug) THEN
1597: fa_rx_util_pkg.debug('fadptx_insert: h_up_nbv_flag:'||h_up_nbv_flag);
1598: fa_rx_util_pkg.debug('fadptx_insert: h_last_up_flag:'||h_last_up_flag);
1599: fa_rx_util_pkg.debug('fadptx_insert: h_up_cost:'||h_up_cost);
1600: fa_rx_util_pkg.debug('fadptx_insert: h_up_theoretical_nbv:'||h_up_theoretical_nbv);
1601: fa_rx_util_pkg.debug('fadptx_insert: h_up_evaluated_nbv:'||h_up_evaluated_nbv);
1602: fa_rx_util_pkg.debug('fadptx_insert: h_up_year:'||h_up_year);
1603: fa_rx_util_pkg.debug('fadptx_insert: h_up_last_cost:'||h_up_last_cost);
1596: IF (g_print_debug) THEN
1597: fa_rx_util_pkg.debug('fadptx_insert: h_up_nbv_flag:'||h_up_nbv_flag);
1598: fa_rx_util_pkg.debug('fadptx_insert: h_last_up_flag:'||h_last_up_flag);
1599: fa_rx_util_pkg.debug('fadptx_insert: h_up_cost:'||h_up_cost);
1600: fa_rx_util_pkg.debug('fadptx_insert: h_up_theoretical_nbv:'||h_up_theoretical_nbv);
1601: fa_rx_util_pkg.debug('fadptx_insert: h_up_evaluated_nbv:'||h_up_evaluated_nbv);
1602: fa_rx_util_pkg.debug('fadptx_insert: h_up_year:'||h_up_year);
1603: fa_rx_util_pkg.debug('fadptx_insert: h_up_last_cost:'||h_up_last_cost);
1604: fa_rx_util_pkg.debug('fadptx_insert: h_up_tax_asset_type:'||h_up_tax_asset_type);
1597: fa_rx_util_pkg.debug('fadptx_insert: h_up_nbv_flag:'||h_up_nbv_flag);
1598: fa_rx_util_pkg.debug('fadptx_insert: h_last_up_flag:'||h_last_up_flag);
1599: fa_rx_util_pkg.debug('fadptx_insert: h_up_cost:'||h_up_cost);
1600: fa_rx_util_pkg.debug('fadptx_insert: h_up_theoretical_nbv:'||h_up_theoretical_nbv);
1601: fa_rx_util_pkg.debug('fadptx_insert: h_up_evaluated_nbv:'||h_up_evaluated_nbv);
1602: fa_rx_util_pkg.debug('fadptx_insert: h_up_year:'||h_up_year);
1603: fa_rx_util_pkg.debug('fadptx_insert: h_up_last_cost:'||h_up_last_cost);
1604: fa_rx_util_pkg.debug('fadptx_insert: h_up_tax_asset_type:'||h_up_tax_asset_type);
1605: fa_rx_util_pkg.debug('fadptx_insert: h_up_units_assigned:'||h_up_units_assigned);
1598: fa_rx_util_pkg.debug('fadptx_insert: h_last_up_flag:'||h_last_up_flag);
1599: fa_rx_util_pkg.debug('fadptx_insert: h_up_cost:'||h_up_cost);
1600: fa_rx_util_pkg.debug('fadptx_insert: h_up_theoretical_nbv:'||h_up_theoretical_nbv);
1601: fa_rx_util_pkg.debug('fadptx_insert: h_up_evaluated_nbv:'||h_up_evaluated_nbv);
1602: fa_rx_util_pkg.debug('fadptx_insert: h_up_year:'||h_up_year);
1603: fa_rx_util_pkg.debug('fadptx_insert: h_up_last_cost:'||h_up_last_cost);
1604: fa_rx_util_pkg.debug('fadptx_insert: h_up_tax_asset_type:'||h_up_tax_asset_type);
1605: fa_rx_util_pkg.debug('fadptx_insert: h_up_units_assigned:'||h_up_units_assigned);
1606: fa_rx_util_pkg.debug('fadptx_insert: h_up_life:'||h_up_life);
1599: fa_rx_util_pkg.debug('fadptx_insert: h_up_cost:'||h_up_cost);
1600: fa_rx_util_pkg.debug('fadptx_insert: h_up_theoretical_nbv:'||h_up_theoretical_nbv);
1601: fa_rx_util_pkg.debug('fadptx_insert: h_up_evaluated_nbv:'||h_up_evaluated_nbv);
1602: fa_rx_util_pkg.debug('fadptx_insert: h_up_year:'||h_up_year);
1603: fa_rx_util_pkg.debug('fadptx_insert: h_up_last_cost:'||h_up_last_cost);
1604: fa_rx_util_pkg.debug('fadptx_insert: h_up_tax_asset_type:'||h_up_tax_asset_type);
1605: fa_rx_util_pkg.debug('fadptx_insert: h_up_units_assigned:'||h_up_units_assigned);
1606: fa_rx_util_pkg.debug('fadptx_insert: h_up_life:'||h_up_life);
1607: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units:'||dist_total_units);
1600: fa_rx_util_pkg.debug('fadptx_insert: h_up_theoretical_nbv:'||h_up_theoretical_nbv);
1601: fa_rx_util_pkg.debug('fadptx_insert: h_up_evaluated_nbv:'||h_up_evaluated_nbv);
1602: fa_rx_util_pkg.debug('fadptx_insert: h_up_year:'||h_up_year);
1603: fa_rx_util_pkg.debug('fadptx_insert: h_up_last_cost:'||h_up_last_cost);
1604: fa_rx_util_pkg.debug('fadptx_insert: h_up_tax_asset_type:'||h_up_tax_asset_type);
1605: fa_rx_util_pkg.debug('fadptx_insert: h_up_units_assigned:'||h_up_units_assigned);
1606: fa_rx_util_pkg.debug('fadptx_insert: h_up_life:'||h_up_life);
1607: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units:'||dist_total_units);
1608: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv:'||dist_total_theoretical_nbv);
1601: fa_rx_util_pkg.debug('fadptx_insert: h_up_evaluated_nbv:'||h_up_evaluated_nbv);
1602: fa_rx_util_pkg.debug('fadptx_insert: h_up_year:'||h_up_year);
1603: fa_rx_util_pkg.debug('fadptx_insert: h_up_last_cost:'||h_up_last_cost);
1604: fa_rx_util_pkg.debug('fadptx_insert: h_up_tax_asset_type:'||h_up_tax_asset_type);
1605: fa_rx_util_pkg.debug('fadptx_insert: h_up_units_assigned:'||h_up_units_assigned);
1606: fa_rx_util_pkg.debug('fadptx_insert: h_up_life:'||h_up_life);
1607: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units:'||dist_total_units);
1608: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv:'||dist_total_theoretical_nbv);
1609: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv:'||dist_total_evaluated_nbv);
1602: fa_rx_util_pkg.debug('fadptx_insert: h_up_year:'||h_up_year);
1603: fa_rx_util_pkg.debug('fadptx_insert: h_up_last_cost:'||h_up_last_cost);
1604: fa_rx_util_pkg.debug('fadptx_insert: h_up_tax_asset_type:'||h_up_tax_asset_type);
1605: fa_rx_util_pkg.debug('fadptx_insert: h_up_units_assigned:'||h_up_units_assigned);
1606: fa_rx_util_pkg.debug('fadptx_insert: h_up_life:'||h_up_life);
1607: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units:'||dist_total_units);
1608: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv:'||dist_total_theoretical_nbv);
1609: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv:'||dist_total_evaluated_nbv);
1610: END IF;
1603: fa_rx_util_pkg.debug('fadptx_insert: h_up_last_cost:'||h_up_last_cost);
1604: fa_rx_util_pkg.debug('fadptx_insert: h_up_tax_asset_type:'||h_up_tax_asset_type);
1605: fa_rx_util_pkg.debug('fadptx_insert: h_up_units_assigned:'||h_up_units_assigned);
1606: fa_rx_util_pkg.debug('fadptx_insert: h_up_life:'||h_up_life);
1607: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units:'||dist_total_units);
1608: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv:'||dist_total_theoretical_nbv);
1609: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv:'||dist_total_evaluated_nbv);
1610: END IF;
1611:
1604: fa_rx_util_pkg.debug('fadptx_insert: h_up_tax_asset_type:'||h_up_tax_asset_type);
1605: fa_rx_util_pkg.debug('fadptx_insert: h_up_units_assigned:'||h_up_units_assigned);
1606: fa_rx_util_pkg.debug('fadptx_insert: h_up_life:'||h_up_life);
1607: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units:'||dist_total_units);
1608: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv:'||dist_total_theoretical_nbv);
1609: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv:'||dist_total_evaluated_nbv);
1610: END IF;
1611:
1612:
1605: fa_rx_util_pkg.debug('fadptx_insert: h_up_units_assigned:'||h_up_units_assigned);
1606: fa_rx_util_pkg.debug('fadptx_insert: h_up_life:'||h_up_life);
1607: fa_rx_util_pkg.debug('fadptx_insert: dist_total_units:'||dist_total_units);
1608: fa_rx_util_pkg.debug('fadptx_insert: dist_total_theoretical_nbv:'||dist_total_theoretical_nbv);
1609: fa_rx_util_pkg.debug('fadptx_insert: dist_total_evaluated_nbv:'||dist_total_evaluated_nbv);
1610: END IF;
1611:
1612:
1613: -- check h_up_theoretical_nbv and h_up_evaluated_nbv
1629: h_start_asset_id := h_asset_id;
1630: end if;
1631:
1632: IF (g_print_debug) THEN
1633: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_start_asset_id:'||h_start_asset_id);
1634: END IF;
1635:
1636: if h_min_acct_unit is not null then
1637:
1649: h_start_cost_accm := h_start_cost_accm + h_start_cost;
1650: end if;
1651:
1652: IF (g_print_debug) THEN
1653: fa_rx_util_pkg.debug('fadptx_insert: ' || 'start units accm :'||h_start_units_accm);
1654: fa_rx_util_pkg.debug('fadptx_insert: ' || 'start cost accm :'||h_start_cost_accm);
1655: fa_rx_util_pkg.debug('fadptx_insert: ' || 'start cost: '||h_start_cost);
1656: END IF;
1657:
1650: end if;
1651:
1652: IF (g_print_debug) THEN
1653: fa_rx_util_pkg.debug('fadptx_insert: ' || 'start units accm :'||h_start_units_accm);
1654: fa_rx_util_pkg.debug('fadptx_insert: ' || 'start cost accm :'||h_start_cost_accm);
1655: fa_rx_util_pkg.debug('fadptx_insert: ' || 'start cost: '||h_start_cost);
1656: END IF;
1657:
1658: if h_end_cost_total = 0 then
1651:
1652: IF (g_print_debug) THEN
1653: fa_rx_util_pkg.debug('fadptx_insert: ' || 'start units accm :'||h_start_units_accm);
1654: fa_rx_util_pkg.debug('fadptx_insert: ' || 'start cost accm :'||h_start_cost_accm);
1655: fa_rx_util_pkg.debug('fadptx_insert: ' || 'start cost: '||h_start_cost);
1656: END IF;
1657:
1658: if h_end_cost_total = 0 then
1659: h_end_cost :=0;
1674: h_end_asset_id := h_asset_id;
1675: end if;
1676:
1677: IF (g_print_debug) THEN
1678: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_end_asset_id:'||h_end_asset_id);
1679: END IF;
1680:
1681: if h_min_acct_unit is not null then
1682:
1707: h_end_units_accm := h_end_units_accm + h_end_units_assigned;
1708: h_end_cost_accm := h_end_cost_accm + h_end_cost;
1709:
1710: IF (g_print_debug) THEN
1711: fa_rx_util_pkg.debug('fadptx_insert: ' || 'end units accm:'||h_end_units_accm);
1712: fa_rx_util_pkg.debug('fadptx_insert: ' || 'end cost accm:'||h_end_cost_accm);
1713: fa_rx_util_pkg.debug('fadptx_insert: ' || 'end cost:'||h_end_cost);
1714: END IF;
1715:
1708: h_end_cost_accm := h_end_cost_accm + h_end_cost;
1709:
1710: IF (g_print_debug) THEN
1711: fa_rx_util_pkg.debug('fadptx_insert: ' || 'end units accm:'||h_end_units_accm);
1712: fa_rx_util_pkg.debug('fadptx_insert: ' || 'end cost accm:'||h_end_cost_accm);
1713: fa_rx_util_pkg.debug('fadptx_insert: ' || 'end cost:'||h_end_cost);
1714: END IF;
1715:
1716: /*==========================================================================
1709:
1710: IF (g_print_debug) THEN
1711: fa_rx_util_pkg.debug('fadptx_insert: ' || 'end units accm:'||h_end_units_accm);
1712: fa_rx_util_pkg.debug('fadptx_insert: ' || 'end cost accm:'||h_end_cost_accm);
1713: fa_rx_util_pkg.debug('fadptx_insert: ' || 'end cost:'||h_end_cost);
1714: END IF;
1715:
1716: /*==========================================================================
1717: NBV and Residual Rate Calculation: After half_rate and full_rate,
1737: /* Set parameter for calculation */
1738: h_diff_year := to_number(to_char(h_target_date,'YYYY')) - h_add_year;
1739:
1740: IF (g_print_debug) THEN
1741: fa_rx_util_pkg.debug('fadptx_insert: ' || 'h_diff_year:'||h_diff_year);
1742: END IF;
1743:
1744: -- Set the variable for starting loop counter
1745: IF h_up_nbv_flag ='Y'
1750: l_start_loop := 1;
1751: END IF;
1752:
1753: IF (g_print_debug) THEN
1754: fa_rx_util_pkg.debug('fadptx_insert: ' || 'l_start_loop:'||l_start_loop);
1755: END IF;
1756:
1757: /* Evaluated and Theoretical NBV calculation */
1758: For i in l_start_loop..h_diff_year LOOP
1812:
1813: /* Mimimun NBV limitation -- bug#1797751 */
1814:
1815: if (g_print_debug) then
1816: fa_rx_util_pkg.debug('Test:asset_id:'||h_asset_id);
1817: fa_rx_util_pkg.debug('Test:state:'||h_state);
1818: fa_rx_util_pkg.debug('Test:tax_asset_type:'||h_tax_asset_type);
1819: fa_rx_util_pkg.debug('Test:h_theoretical_nbv:'||h_theoretical_nbv);
1820: fa_rx_util_pkg.debug('Test:h_evaluated_nbv:'||h_evaluated_nbv);
1813: /* Mimimun NBV limitation -- bug#1797751 */
1814:
1815: if (g_print_debug) then
1816: fa_rx_util_pkg.debug('Test:asset_id:'||h_asset_id);
1817: fa_rx_util_pkg.debug('Test:state:'||h_state);
1818: fa_rx_util_pkg.debug('Test:tax_asset_type:'||h_tax_asset_type);
1819: fa_rx_util_pkg.debug('Test:h_theoretical_nbv:'||h_theoretical_nbv);
1820: fa_rx_util_pkg.debug('Test:h_evaluated_nbv:'||h_evaluated_nbv);
1821: end if;
1814:
1815: if (g_print_debug) then
1816: fa_rx_util_pkg.debug('Test:asset_id:'||h_asset_id);
1817: fa_rx_util_pkg.debug('Test:state:'||h_state);
1818: fa_rx_util_pkg.debug('Test:tax_asset_type:'||h_tax_asset_type);
1819: fa_rx_util_pkg.debug('Test:h_theoretical_nbv:'||h_theoretical_nbv);
1820: fa_rx_util_pkg.debug('Test:h_evaluated_nbv:'||h_evaluated_nbv);
1821: end if;
1822:
1815: if (g_print_debug) then
1816: fa_rx_util_pkg.debug('Test:asset_id:'||h_asset_id);
1817: fa_rx_util_pkg.debug('Test:state:'||h_state);
1818: fa_rx_util_pkg.debug('Test:tax_asset_type:'||h_tax_asset_type);
1819: fa_rx_util_pkg.debug('Test:h_theoretical_nbv:'||h_theoretical_nbv);
1820: fa_rx_util_pkg.debug('Test:h_evaluated_nbv:'||h_evaluated_nbv);
1821: end if;
1822:
1823: if h_theoretical_nbv < round(h_end_cost*0.05, h_precision) then
1816: fa_rx_util_pkg.debug('Test:asset_id:'||h_asset_id);
1817: fa_rx_util_pkg.debug('Test:state:'||h_state);
1818: fa_rx_util_pkg.debug('Test:tax_asset_type:'||h_tax_asset_type);
1819: fa_rx_util_pkg.debug('Test:h_theoretical_nbv:'||h_theoretical_nbv);
1820: fa_rx_util_pkg.debug('Test:h_evaluated_nbv:'||h_evaluated_nbv);
1821: end if;
1822:
1823: if h_theoretical_nbv < round(h_end_cost*0.05, h_precision) then
1824: h_theoretical_nbv := round(h_end_cost*0.05, h_precision);
1864: h_evaluated_residual_rate := h_full_rate;
1865: end if;
1866:
1867: IF (g_print_debug) THEN
1868: fa_rx_util_pkg.debug('fadptx_insert: ' || 'theoretical nbv: '||h_theoretical_nbv);
1869: fa_rx_util_pkg.debug('fadptx_insert: ' || 'evaluated nbv: '||h_evaluated_nbv);
1870: fa_rx_util_pkg.debug('fadptx_insert: ' || 'theoretical residual rate: '||h_theoretical_residual_rate);
1871: fa_rx_util_pkg.debug('fadptx_insert: ' || 'evaluated residual rate: '||h_evaluated_residual_rate);
1872: END IF;
1865: end if;
1866:
1867: IF (g_print_debug) THEN
1868: fa_rx_util_pkg.debug('fadptx_insert: ' || 'theoretical nbv: '||h_theoretical_nbv);
1869: fa_rx_util_pkg.debug('fadptx_insert: ' || 'evaluated nbv: '||h_evaluated_nbv);
1870: fa_rx_util_pkg.debug('fadptx_insert: ' || 'theoretical residual rate: '||h_theoretical_residual_rate);
1871: fa_rx_util_pkg.debug('fadptx_insert: ' || 'evaluated residual rate: '||h_evaluated_residual_rate);
1872: END IF;
1873:
1866:
1867: IF (g_print_debug) THEN
1868: fa_rx_util_pkg.debug('fadptx_insert: ' || 'theoretical nbv: '||h_theoretical_nbv);
1869: fa_rx_util_pkg.debug('fadptx_insert: ' || 'evaluated nbv: '||h_evaluated_nbv);
1870: fa_rx_util_pkg.debug('fadptx_insert: ' || 'theoretical residual rate: '||h_theoretical_residual_rate);
1871: fa_rx_util_pkg.debug('fadptx_insert: ' || 'evaluated residual rate: '||h_evaluated_residual_rate);
1872: END IF;
1873:
1874:
1867: IF (g_print_debug) THEN
1868: fa_rx_util_pkg.debug('fadptx_insert: ' || 'theoretical nbv: '||h_theoretical_nbv);
1869: fa_rx_util_pkg.debug('fadptx_insert: ' || 'evaluated nbv: '||h_evaluated_nbv);
1870: fa_rx_util_pkg.debug('fadptx_insert: ' || 'theoretical residual rate: '||h_theoretical_residual_rate);
1871: fa_rx_util_pkg.debug('fadptx_insert: ' || 'evaluated residual rate: '||h_evaluated_residual_rate);
1872: END IF;
1873:
1874:
1875: /* Set Taxable Cost */
1889: end if;
1890: END IF;
1891:
1892: IF (g_print_debug) THEN
1893: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start cost: '||h_start_cost);
1894: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start asset type :'||h_start_asset_type);
1895: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start units assigned :'||h_start_units_assigned);
1896: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start life :'||h_start_life);
1897: END IF;
1890: END IF;
1891:
1892: IF (g_print_debug) THEN
1893: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start cost: '||h_start_cost);
1894: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start asset type :'||h_start_asset_type);
1895: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start units assigned :'||h_start_units_assigned);
1896: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start life :'||h_start_life);
1897: END IF;
1898:
1891:
1892: IF (g_print_debug) THEN
1893: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start cost: '||h_start_cost);
1894: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start asset type :'||h_start_asset_type);
1895: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start units assigned :'||h_start_units_assigned);
1896: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start life :'||h_start_life);
1897: END IF;
1898:
1899: /*==========================================================================
1892: IF (g_print_debug) THEN
1893: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start cost: '||h_start_cost);
1894: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start asset type :'||h_start_asset_type);
1895: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start units assigned :'||h_start_units_assigned);
1896: fa_rx_util_pkg.debug('fadptx_insert: ' || 'overwritten start life :'||h_start_life);
1897: END IF;
1898:
1899: /*==========================================================================
1900: Check if current processed state is necessary state or not.
1900: Check if current processed state is necessary state or not.
1901: Only if it is Yes, reason code process will be run
1902: ===========================================================================*/
1903: IF (g_print_debug) THEN
1904: fa_rx_util_pkg.debug('fadptx_insert: ' || 'State check h_state:'||h_state);
1905: END IF;
1906:
1907: IF h_state >= nvl(state_from,h_state) and h_state <= nvl(state_to,h_state) THEN
1908: h_state_flag := 'Y';
2051: h_current_state_flag:='Y';
2052: end;
2053:
2054: IF (g_print_debug) THEN
2055: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason - addition flag:'||r_addition_flag);
2056: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason - retirement flag:'||r_ret_flag);
2057: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason - transfer flag:'||r_transfer_flag);
2058: END IF;
2059:
2052: end;
2053:
2054: IF (g_print_debug) THEN
2055: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason - addition flag:'||r_addition_flag);
2056: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason - retirement flag:'||r_ret_flag);
2057: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason - transfer flag:'||r_transfer_flag);
2058: END IF;
2059:
2060: /* Reset Reason and taxable cost information */
2053:
2054: IF (g_print_debug) THEN
2055: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason - addition flag:'||r_addition_flag);
2056: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason - retirement flag:'||r_ret_flag);
2057: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason - transfer flag:'||r_transfer_flag);
2058: END IF;
2059:
2060: /* Reset Reason and taxable cost information */
2061:
2082: Where TRANSACTION_HEADER_ID_IN = r_ret_id;
2083:
2084:
2085: IF (g_print_debug) THEN
2086: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason - Retirement type code:'||r_ret_type_code);
2087: END IF;
2088:
2089: end if;
2090:
2206:
2207: /* Set ALL_REASON_CODE, ALL_REASON_TYPE, ALL_DESCRIPTION */
2208:
2209: IF (g_print_debug) THEN
2210: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason - Addition/Decrease Flag:'||h_add_dec_flag);
2211: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason - ADD/DEC reason type:'||h_adddec_reason_type);
2212: END IF;
2213:
2214: if h_add_dec_flag ='A' and h_adddec_reason_code ='3' then
2207: /* Set ALL_REASON_CODE, ALL_REASON_TYPE, ALL_DESCRIPTION */
2208:
2209: IF (g_print_debug) THEN
2210: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason - Addition/Decrease Flag:'||h_add_dec_flag);
2211: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason - ADD/DEC reason type:'||h_adddec_reason_type);
2212: END IF;
2213:
2214: if h_add_dec_flag ='A' and h_adddec_reason_code ='3' then
2215:
2251: h_all_description := to_char(null);
2252: end if;
2253:
2254: IF (g_print_debug) THEN
2255: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- increase_cost:'||h_increase_cost);
2256: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- decrease_cost:'||h_decrease_cost);
2257: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- all reason type:'||h_all_reason_type);
2258: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- all reason code:'||h_all_reason_code);
2259: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- all description:'||h_all_description);
2252: end if;
2253:
2254: IF (g_print_debug) THEN
2255: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- increase_cost:'||h_increase_cost);
2256: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- decrease_cost:'||h_decrease_cost);
2257: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- all reason type:'||h_all_reason_type);
2258: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- all reason code:'||h_all_reason_code);
2259: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- all description:'||h_all_description);
2260: END IF;
2253:
2254: IF (g_print_debug) THEN
2255: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- increase_cost:'||h_increase_cost);
2256: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- decrease_cost:'||h_decrease_cost);
2257: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- all reason type:'||h_all_reason_type);
2258: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- all reason code:'||h_all_reason_code);
2259: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- all description:'||h_all_description);
2260: END IF;
2261:
2254: IF (g_print_debug) THEN
2255: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- increase_cost:'||h_increase_cost);
2256: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- decrease_cost:'||h_decrease_cost);
2257: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- all reason type:'||h_all_reason_type);
2258: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- all reason code:'||h_all_reason_code);
2259: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- all description:'||h_all_description);
2260: END IF;
2261:
2262: /* bug 2082460 */
2255: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- increase_cost:'||h_increase_cost);
2256: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- decrease_cost:'||h_decrease_cost);
2257: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- all reason type:'||h_all_reason_type);
2258: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- all reason code:'||h_all_reason_code);
2259: fa_rx_util_pkg.debug('fadptx_insert: ' || 'Reason- all description:'||h_all_description);
2260: END IF;
2261:
2262: /* bug 2082460 */
2263: h_adddec_description := substrb(h_adddec_description,1,30);
2265:
2266: /* Insert end date's data to FA_DEPRN_TAX_REP_ITF */
2267:
2268: IF (g_print_debug) THEN
2269: fa_rx_util_pkg.debug ('fadptx_insert: ' || 'h_state_flag :'||h_state_flag);
2270: END IF;
2271:
2272: -- bug#2629893
2273: -- For FA_DEPRN_TAX_REP_ITF, insert and update date for state ranages.
2400: h_company_name
2401: );
2402:
2403: -- IF (g_print_debug) THEN
2404: fa_rx_util_pkg.debug ('fadptx_insert: ' || 'Inserted - asset id:'||h_asset_id||', state: '||h_state||', asset type:'||h_tax_asset_type);
2405: -- END IF;
2406:
2407: else
2408: -- IF (g_print_debug) THEN
2405: -- END IF;
2406:
2407: else
2408: -- IF (g_print_debug) THEN
2409: fa_rx_util_pkg.debug ('fadptx_insert: ' || 'Reject - asset id:'||h_asset_id||', state: '||h_state||', asset type:'||h_tax_asset_type);
2410: -- END IF;
2411:
2412: end if; -- End of h_state_flag = 'Y' condition
2413:
2442: -- AND book_type_code = h_book_type_code
2443: -- AND state= h_state
2444: -- AND year = h_year
2445: -- ;
2446: -- fa_rx_util_pkg.debug ('Updated - asset id:'||h_asset_id||', state: '||h_state||' to NBV table.');
2447: -- ELSE
2448: SELECT FA_DEPRN_TAX_REP_NBVS_S.NEXTVAL
2449: INTO h_deprn_tax_rep_nbv_id
2450: FROM dual;
2489: h_login_id,
2490: h_minor_category
2491: );
2492: -- IF (g_print_debug) THEN
2493: fa_rx_util_pkg.debug ('fadptx_insert: ' || 'Inserted - asset id:'||h_asset_id||', state: '||h_state||' to NBV table.');
2494: -- END IF;
2495:
2496: END IF; -- ENd of h_end_cost>0 condition
2497: -- END IF; -- End of c_chk_nbv condition
2502:
2503:
2504:
2505: IF (g_print_debug) THEN
2506: fa_rx_util_pkg.debug('fadptx_insert: ' || '***** End Loop for v_MainCursor *****');
2507: END IF;
2508:
2509: END LOOP;
2510:
2512:
2513: DBMS_SQL.CLOSE_CURSOR(v_MainCursor);
2514:
2515: IF (g_print_debug) THEN
2516: fa_rx_util_pkg.debug('fadptx_insert: ' || '***** Close Cursor v_MainCursor *****');
2517: END IF;
2518:
2519: DBMS_SQL.CLOSE_CURSOR(v_SubCursor);
2520:
2518:
2519: DBMS_SQL.CLOSE_CURSOR(v_SubCursor);
2520:
2521: IF (g_print_debug) THEN
2522: fa_rx_util_pkg.debug('fadptx_insert: ' || '***** End Loop and Close Cursor v_SubCursor *****');
2523: END IF;
2524:
2525: ------------------------------------------------------
2526: -- Upgrade logic for Migration
2547: c_year => :h_year,
2548: c_book_type_code => :h_book_type_code,
2549: c_state => :h_state);
2550:
2551: fa_rx_util_pkg.debug(''fadptx_insert: '' ||
2552: ''There is FA_DEPRN_TAX_CUSTOM_PKG.FADPCUSTOM_UPDATE'');
2553:
2554: Exception
2555: when others then
2581:
2582: Exception
2583: when no_package then
2584: -- IF (g_print_debug) THEN
2585: fa_rx_util_pkg.debug('fadptx_insert: ' || 'There is no FA_DEPRN_TAX_CUSTOM_PKG.FADPCUSTOM_UPDATE');
2586: -- END IF;
2587:
2588: end;
2589:
2650: END LOOP;
2651: end if;
2652: -- End ER 7661628
2653:
2654: fa_rx_util_pkg.debug ('*****END FA_DEPRN_TAX_REP_PKG.FADPTX_INSERT*****');
2655:
2656: --Start for change 9935602
2657:
2658: FOR l_tax_type_cntr IN 1..6
2841:
2842: begin
2843: if k =0 then
2844: -- IF (g_print_debug) THEN
2845: fa_rx_util_pkg.debug('debug: ***** Main SQL: ******');
2846: -- END IF;
2847: -- fa_rx_util_pkg.debug(p_print); -- bug#2434220 Commented out
2848: end if;
2849: -- IF (g_print_debug) THEN
2843: if k =0 then
2844: -- IF (g_print_debug) THEN
2845: fa_rx_util_pkg.debug('debug: ***** Main SQL: ******');
2846: -- END IF;
2847: -- fa_rx_util_pkg.debug(p_print); -- bug#2434220 Commented out
2848: end if;
2849: -- IF (g_print_debug) THEN
2850: fa_rx_util_pkg.debug(p_print);
2851: -- END IF; -- bug#2434220
2846: -- END IF;
2847: -- fa_rx_util_pkg.debug(p_print); -- bug#2434220 Commented out
2848: end if;
2849: -- IF (g_print_debug) THEN
2850: fa_rx_util_pkg.debug(p_print);
2851: -- END IF; -- bug#2434220
2852:
2853: -- fa_rx_util_pkg.debug('fadpxtb.pls','debug: ', p_print);
2854:
2849: -- IF (g_print_debug) THEN
2850: fa_rx_util_pkg.debug(p_print);
2851: -- END IF; -- bug#2434220
2852:
2853: -- fa_rx_util_pkg.debug('fadpxtb.pls','debug: ', p_print);
2854:
2855: return p_print;
2856: exception
2857: when others then