2300: /* ****** ------------------- Procedures for creating Billing report ------------------------ ****** */
2301: /* ************************************************************************************************* */
2302:
2303:
2304: PROCEDURE delete_duplicate_lines (p_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2305: ,x_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2306: ,x_return_status OUT NOCOPY Varchar2
2307: ) IS
2308:
2301: /* ************************************************************************************************* */
2302:
2303:
2304: PROCEDURE delete_duplicate_lines (p_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2305: ,x_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2306: ,x_return_status OUT NOCOPY Varchar2
2307: ) IS
2308:
2309: l_lines_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2305: ,x_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2306: ,x_return_status OUT NOCOPY Varchar2
2307: ) IS
2308:
2309: l_lines_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2310: l_lines_tbl_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_lines_table ;
2311:
2312: l_tbl_idx Binary_integer;
2313: l_line_id1 Varchar2(100) ;
2306: ,x_return_status OUT NOCOPY Varchar2
2307: ) IS
2308:
2309: l_lines_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2310: l_lines_tbl_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_lines_table ;
2311:
2312: l_tbl_idx Binary_integer;
2313: l_line_id1 Varchar2(100) ;
2314: l_line_id2 Varchar2(100);
2351: End delete_duplicate_lines ;
2352:
2353: /* *** --------------------------------------------- *** */
2354:
2355: PROCEDURE delete_duplicate_sub_lines (p_sub_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2356: ,x_sub_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2357: ,x_return_status OUT NOCOPY Varchar2
2358: ) IS
2359:
2352:
2353: /* *** --------------------------------------------- *** */
2354:
2355: PROCEDURE delete_duplicate_sub_lines (p_sub_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2356: ,x_sub_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2357: ,x_return_status OUT NOCOPY Varchar2
2358: ) IS
2359:
2360: l_sub_lines_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2356: ,x_sub_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2357: ,x_return_status OUT NOCOPY Varchar2
2358: ) IS
2359:
2360: l_sub_lines_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2361: l_sub_lines_tbl_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_sub_lines_table ;
2362:
2363: l_tbl_idx Binary_integer;
2364: l_line_id1 Varchar2(100) ;
2357: ,x_return_status OUT NOCOPY Varchar2
2358: ) IS
2359:
2360: l_sub_lines_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2361: l_sub_lines_tbl_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_sub_lines_table ;
2362:
2363: l_tbl_idx Binary_integer;
2364: l_line_id1 Varchar2(100) ;
2365: l_line_id2 Varchar2(100);
2402:
2403: /* *** --------------------------------------------- *** */
2404:
2405:
2406: PROCEDURE sort_lines_table (p_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2407: ,x_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2408: ,x_return_status OUT NOCOPY Varchar2
2409: ) IS
2410:
2403: /* *** --------------------------------------------- *** */
2404:
2405:
2406: PROCEDURE sort_lines_table (p_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2407: ,x_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2408: ,x_return_status OUT NOCOPY Varchar2
2409: ) IS
2410:
2411: l_lines_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2407: ,x_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2408: ,x_return_status OUT NOCOPY Varchar2
2409: ) IS
2410:
2411: l_lines_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2412: l_lines_tbl_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_lines_table ;
2413:
2414: l_in_tbl_idx Binary_integer;
2415: l_out_tbl_idx Binary_integer;
2408: ,x_return_status OUT NOCOPY Varchar2
2409: ) IS
2410:
2411: l_lines_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2412: l_lines_tbl_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_lines_table ;
2413:
2414: l_in_tbl_idx Binary_integer;
2415: l_out_tbl_idx Binary_integer;
2416: l_line_id1 Varchar2(95) ;
2466:
2467: /* **** --------------------------------------- *** */
2468:
2469:
2470: PROCEDURE sort_sub_lines_table (p_sub_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2471: ,x_sub_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2472: ,x_return_status OUT NOCOPY Varchar2
2473: ) IS
2474:
2467: /* **** --------------------------------------- *** */
2468:
2469:
2470: PROCEDURE sort_sub_lines_table (p_sub_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2471: ,x_sub_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2472: ,x_return_status OUT NOCOPY Varchar2
2473: ) IS
2474:
2475: l_sub_lines_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2471: ,x_sub_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2472: ,x_return_status OUT NOCOPY Varchar2
2473: ) IS
2474:
2475: l_sub_lines_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2476: l_sub_lines_tbl_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_sub_lines_table ;
2477:
2478: l_in_tbl_idx Binary_integer;
2479: l_out_tbl_idx Binary_integer;
2472: ,x_return_status OUT NOCOPY Varchar2
2473: ) IS
2474:
2475: l_sub_lines_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2476: l_sub_lines_tbl_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_sub_lines_table ;
2477:
2478: l_in_tbl_idx Binary_integer;
2479: l_out_tbl_idx Binary_integer;
2480: l_sub_line_id1 Varchar2(135);
2530: End sort_sub_lines_table ;
2531:
2532: /* *** --------------------------------------------- *** */
2533:
2534: PROCEDURE sub_lines_bill_status (p_sub_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2535: ,x_sub_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2536: ,x_return_status OUT NOCOPY Varchar2
2537: ) IS
2538:
2531:
2532: /* *** --------------------------------------------- *** */
2533:
2534: PROCEDURE sub_lines_bill_status (p_sub_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2535: ,x_sub_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2536: ,x_return_status OUT NOCOPY Varchar2
2537: ) IS
2538:
2539: l_sub_lines_tbl_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_sub_lines_table ;
2535: ,x_sub_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2536: ,x_return_status OUT NOCOPY Varchar2
2537: ) IS
2538:
2539: l_sub_lines_tbl_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_sub_lines_table ;
2540:
2541: l_tmp_tbl_idx Binary_integer;
2542: l_in_tbl_idx Binary_integer;
2543: l_line_id Number := 0;
2616: If (l_summary_flag = 'Y') Then
2617: l_bill_profile := 'Y';
2618: Else
2619: l_summary_flag := Null;
2620: OKS_BILL_REC_PUB.Get_Bill_profile(p_dnz_chr_id, l_summary_flag);
2621: If (l_summary_flag = 'N') THEN
2622: l_bill_profile := 'N';
2623: Elsif (l_summary_flag = 'Y') THEN
2624: l_bill_profile := 'Y';
2658:
2659: /* *** --------------------------------------------- *** */
2660:
2661: Procedure Set_Billing_Profile (
2662: p_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2663: ,p_sub_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2664: ,x_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2665: ,x_sub_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2666: ,x_return_status OUT NOCOPY Varchar2
2659: /* *** --------------------------------------------- *** */
2660:
2661: Procedure Set_Billing_Profile (
2662: p_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2663: ,p_sub_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2664: ,x_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2665: ,x_sub_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2666: ,x_return_status OUT NOCOPY Varchar2
2667: ) IS
2660:
2661: Procedure Set_Billing_Profile (
2662: p_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2663: ,p_sub_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2664: ,x_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2665: ,x_sub_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2666: ,x_return_status OUT NOCOPY Varchar2
2667: ) IS
2668:
2661: Procedure Set_Billing_Profile (
2662: p_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2663: ,p_sub_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2664: ,x_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2665: ,x_sub_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2666: ,x_return_status OUT NOCOPY Varchar2
2667: ) IS
2668:
2669: l_lines_tbl_copy OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_lines_table;
2665: ,x_sub_lines_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2666: ,x_return_status OUT NOCOPY Varchar2
2667: ) IS
2668:
2669: l_lines_tbl_copy OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_lines_table;
2670: l_sub_lines_tbl_copy OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_sub_lines_table;
2671: l_lines_tbl_idx Binary_integer;
2672: l_slines_tbl_idx Binary_integer;
2673:
2666: ,x_return_status OUT NOCOPY Varchar2
2667: ) IS
2668:
2669: l_lines_tbl_copy OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_lines_table;
2670: l_sub_lines_tbl_copy OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_sub_lines_table;
2671: l_lines_tbl_idx Binary_integer;
2672: l_slines_tbl_idx Binary_integer;
2673:
2674: l_bill_profile Varchar2(100) := Null;
2848:
2849: /* *** --------------------------------------------- *** */
2850:
2851:
2852: PROCEDURE delete_duplicate_currency_code (p_currency_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2853: ,x_currency_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2854: ,x_return_status OUT NOCOPY Varchar2
2855: ) IS
2856:
2849: /* *** --------------------------------------------- *** */
2850:
2851:
2852: PROCEDURE delete_duplicate_currency_code (p_currency_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2853: ,x_currency_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2854: ,x_return_status OUT NOCOPY Varchar2
2855: ) IS
2856:
2857: l_currency_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2853: ,x_currency_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2854: ,x_return_status OUT NOCOPY Varchar2
2855: ) IS
2856:
2857: l_currency_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2858: l_currency_table_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_currency_table ;
2859:
2860: l_tbl_idx Binary_integer;
2861: l_currency_cd1 Varchar2(15) ;
2854: ,x_return_status OUT NOCOPY Varchar2
2855: ) IS
2856:
2857: l_currency_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2858: l_currency_table_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_currency_table ;
2859:
2860: l_tbl_idx Binary_integer;
2861: l_currency_cd1 Varchar2(15) ;
2862: l_currency_cd2 Varchar2(15);
2902:
2903: /* *** --------------------------------------------- *** */
2904:
2905:
2906: PROCEDURE sort_currency_table (p_currency_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2907: ,x_currency_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2908: ,x_return_status OUT NOCOPY Varchar2
2909: ) IS
2910:
2903: /* *** --------------------------------------------- *** */
2904:
2905:
2906: PROCEDURE sort_currency_table (p_currency_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2907: ,x_currency_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2908: ,x_return_status OUT NOCOPY Varchar2
2909: ) IS
2910:
2911: l_currency_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2907: ,x_currency_table OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2908: ,x_return_status OUT NOCOPY Varchar2
2909: ) IS
2910:
2911: l_currency_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2912: l_currency_tbl_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_currency_table ;
2913:
2914: l_in_tbl_idx Binary_integer;
2915: l_out_tbl_idx Binary_integer;
2908: ,x_return_status OUT NOCOPY Varchar2
2909: ) IS
2910:
2911: l_currency_rec_tmp OKS_BILL_REC_PUB.line_report_rec_type;
2912: l_currency_tbl_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_currency_table ;
2913:
2914: l_in_tbl_idx Binary_integer;
2915: l_out_tbl_idx Binary_integer;
2916: l_currency_cd1 Varchar2(15) ;
2962: End sort_currency_table ;
2963:
2964:
2965: /* *** --------------------------------------------- *** */
2966: Procedure Get_Currency_code(p_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2967: ,p_sub_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2968: ,x_currency_table_out OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2969: ,x_return_status OUT NOCOPY Varchar2
2970: ) IS
2963:
2964:
2965: /* *** --------------------------------------------- *** */
2966: Procedure Get_Currency_code(p_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2967: ,p_sub_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2968: ,x_currency_table_out OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2969: ,x_return_status OUT NOCOPY Varchar2
2970: ) IS
2971:
2964:
2965: /* *** --------------------------------------------- *** */
2966: Procedure Get_Currency_code(p_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2967: ,p_sub_lines_table IN OKS_BILL_REC_PUB.line_report_tbl_type
2968: ,x_currency_table_out OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2969: ,x_return_status OUT NOCOPY Varchar2
2970: ) IS
2971:
2972: l_currency_table_tmp OKS_BILL_REC_PUB.line_report_tbl_type ;
2968: ,x_currency_table_out OUT NOCOPY OKS_BILL_REC_PUB.line_report_tbl_type
2969: ,x_return_status OUT NOCOPY Varchar2
2970: ) IS
2971:
2972: l_currency_table_tmp OKS_BILL_REC_PUB.line_report_tbl_type ;
2973: l_currency_table_in OKS_BILL_REC_PUB.line_report_tbl_type ;
2974: l_lines_table_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_lines_table ;
2975: l_sub_lines_table_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_sub_lines_table;
2976:
2969: ,x_return_status OUT NOCOPY Varchar2
2970: ) IS
2971:
2972: l_currency_table_tmp OKS_BILL_REC_PUB.line_report_tbl_type ;
2973: l_currency_table_in OKS_BILL_REC_PUB.line_report_tbl_type ;
2974: l_lines_table_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_lines_table ;
2975: l_sub_lines_table_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_sub_lines_table;
2976:
2977: l_line_tbl_idx Binary_Integer ;
2970: ) IS
2971:
2972: l_currency_table_tmp OKS_BILL_REC_PUB.line_report_tbl_type ;
2973: l_currency_table_in OKS_BILL_REC_PUB.line_report_tbl_type ;
2974: l_lines_table_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_lines_table ;
2975: l_sub_lines_table_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_sub_lines_table;
2976:
2977: l_line_tbl_idx Binary_Integer ;
2978: l_sub_line_tbl_idx Binary_Integer ;
2971:
2972: l_currency_table_tmp OKS_BILL_REC_PUB.line_report_tbl_type ;
2973: l_currency_table_in OKS_BILL_REC_PUB.line_report_tbl_type ;
2974: l_lines_table_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_lines_table ;
2975: l_sub_lines_table_tmp OKS_BILL_REC_PUB.line_report_tbl_type DEFAULT p_sub_lines_table;
2976:
2977: l_line_tbl_idx Binary_Integer ;
2978: l_sub_line_tbl_idx Binary_Integer ;
2979:
3184:
3185: /* *** --------------------------------------------- *** */
3186:
3187:
3188: Procedure Print_Error_Report ( p_billrep_error_tbl IN OKS_BILL_REC_PUB.billrep_error_tbl_type
3189: ,p_lines_rejected IN Number
3190: ,p_slines_rejected IN Number
3191: ,x_return_status OUT NOCOPY Varchar2
3192: ) IS
3545:
3546: /* *** --------------------------------------------- *** */
3547:
3548: Procedure Create_Report (
3549: p_billrep_table IN OKS_BILL_REC_PUB.bill_report_tbl_type
3550: ,p_billrep_err_tbl IN OKS_BILL_REC_PUB.billrep_error_tbl_type
3551: ,p_line_from IN NUMBER
3552: ,p_line_to IN NUMBER
3553: ,x_return_status OUT NOCOPY Varchar2
3546: /* *** --------------------------------------------- *** */
3547:
3548: Procedure Create_Report (
3549: p_billrep_table IN OKS_BILL_REC_PUB.bill_report_tbl_type
3550: ,p_billrep_err_tbl IN OKS_BILL_REC_PUB.billrep_error_tbl_type
3551: ,p_line_from IN NUMBER
3552: ,p_line_to IN NUMBER
3553: ,x_return_status OUT NOCOPY Varchar2
3554: ) IS