[Home] [Help]
1: PACKAGE BODY pn_recovery_extract_pkg AS
2: /* $Header: PNRCEXTB.pls 120.5.12010000.2 2010/04/26 18:57:26 asahoo ship $ */
3:
4:
5:
82: l_area NUMBER := p_area;
83: l_index NUMBER;
84: l_flag BOOLEAN := FALSE;
85: l_info VARCHAR2(100);
86: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.process_vacancy';
87:
88: BEGIN
89:
90: pnp_debug_pkg.log(l_desc ||' (+)');
263: p_keep_override VARCHAR2
264: )
265: IS
266: l_info VARCHAR2(300);
267: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.find_area_ovr_values' ;
268: BEGIN
269:
270: pnp_debug_pkg.log(l_desc ||' (+)');
271:
357: p_exc_area_flag OUT NOCOPY pn_rec_arcl_dtlln.exclude_area_flag%TYPE,
358: p_include_flag OUT NOCOPY pn_rec_arcl_dtlln.include_flag%TYPE)
359: IS
360: l_info VARCHAR2(300);
361: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.get_area_cls_dtl_calc' ;
362: BEGIN
363:
364: pnp_debug_pkg.log(l_desc ||' (+)');
365:
448: p_num_tbl number_table_type
449: ) RETURN BOOLEAN
450: IS
451: l_result BOOLEAN := FALSE;
452: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.is_totally_vacant' ;
453: l_info VARCHAR2(300);
454: BEGIN
455:
456: pnp_debug_pkg.log(l_desc ||' (+)');
535: l_excl_prorata_ovr_flag VARCHAR2(1);
536: l_excl_area_ovr_flag VARCHAR2(1);
537: l_dummy NUMBER;
538: l_info VARCHAR2(300);
539: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.insert_vacancy_data' ;
540:
541: BEGIN
542:
543: pnp_debug_pkg.log(l_desc ||' (+)');
728: delete_table number_table_type;
729: l_area_cls_dtl_line_id NUMBER;
730: l_is_in BOOLEAN;
731: l_info VARCHAR2(300);
732: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.process_area_tables';
733:
734: BEGIN
735:
736: pnp_debug_pkg.log(l_desc ||' (+)');
1086: l_arcl_propid pn_rec_arcl.property_id%TYPE;
1087: l_arcl_exc_table area_cls_exc_tbl;
1088: l_uom_code pn_locations_all.uom_code%TYPE;
1089: l_info VARCHAR2(100);
1090: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.extract_area' ;
1091:
1092:
1093: BEGIN
1094:
1901: p_attribute13 pn_rec_exp_itf.attribute13%TYPE,
1902: p_attribute14 pn_rec_exp_itf.attribute14%TYPE,
1903: p_attribute15 pn_rec_exp_itf.attribute15%TYPE)
1904: IS
1905: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.validate_and_process_lines' ;
1906: l_info VARCHAR2(300);
1907: l_is_valid BOOLEAN;
1908:
1909: BEGIN
2086: WHERE hdr.expense_extract_code = p_extract_code
2087: AND p_extract_code IS NOT NULL
2088: AND rownum < 2;
2089:
2090: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.extract_expense_lines' ;
2091: l_info VARCHAR2(300);
2092: l_is_header_set BOOLEAN;
2093: l_reextract BOOLEAN;
2094: l_expense_line_dtl_id pn_rec_exp_line_dtl.expense_line_dtl_id%TYPE;
2264: p_use_prior_ovr BOOLEAN
2265: )
2266: IS
2267: l_info VARCHAR2(300);
2268: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.process_exp_cls_dtl_mst_data' ;
2269: temp_rec pn_rec_expcl_dtlln%ROWTYPE;
2270:
2271: BEGIN
2272:
2370: IS
2371:
2372: l_info VARCHAR2(300);
2373: l_id NUMBER;
2374: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.process_exp_cls_dtl_dtl_data' ;
2375:
2376: BEGIN
2377:
2378: pnp_debug_pkg.log(l_desc ||' (+)');
2435: l_is_in BOOLEAN;
2436: l_use_share_pct_flag VARCHAR2(1);
2437: l_use_fee_pct_flag VARCHAR2(1);
2438: l_info VARCHAR2(300);
2439: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.process_exp_class_line_data';
2440:
2441: BEGIN
2442:
2443: pnp_debug_pkg.log(l_desc ||' (+)');
2696: share_use_tbl num_tbl;
2697: l_update BOOLEAN;
2698: l_count NUMBER;
2699: l_info VARCHAR2(300);
2700: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.dismantle_exp_line_from_dtl' ;
2701:
2702: BEGIN
2703:
2704: pnp_debug_pkg.log(l_desc ||' (+)');
2836:
2837: l_propid pn_rec_exp_line.property_id%TYPE;
2838: l_dummy VARCHAR2(300);
2839: l_info VARCHAR2(100);
2840: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.populate_expense_class_details' ;
2841: l_total NUMBER := 0;
2842: l_failed NUMBER := 0;
2843:
2844: BEGIN
2980: START WITH location_id = p_location_id
2981: CONNECT BY location_id = PRIOR parent_location_id;
2982:
2983: l_propid pn_rec_exp_line.property_id%TYPE;
2984: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.populate_area_class_details' ;
2985: l_info VARCHAR2(100);
2986: l_dummy VARCHAR2(300);
2987: l_total NUMBER := 0;
2988: l_failed NUMBER := 0;
3104: p_found IN OUT NOCOPY BOOLEAN,
3105: p_keep_override VARCHAR2
3106: )
3107: IS
3108: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.find_expense_ovr_values' ;
3109: l_info VARCHAR2(300);
3110: BEGIN
3111:
3112: pnp_debug_pkg.log(l_desc ||' (+)');
3351:
3352: l_regenerate VARCHAR2(1);
3353: l_info VARCHAR2(300);
3354: l_dummy VARCHAR2(300);
3355: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.extract_expense' ;
3356: l_token VARCHAR2(100);
3357:
3358: l_master_data_id NUMBER;
3359: l_count NUMBER;
3787: l_from_date DATE;
3788: l_to_date DATE;
3789: l_currency pn_rec_exp_line.currency_code%TYPE;
3790: l_info VARCHAR2(300);
3791: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.extract_line_expense_area' ;
3792: l_err VARCHAR2(100);
3793: l_location_id pn_locations.location_id%TYPE;
3794: l_property_id pn_locations.property_id%TYPE;
3795: l_extract_code pn_rec_exp_line.expense_extract_code%TYPE;
3966: l_prop_id pn_locations.property_id%TYPE;
3967: l_sqlhead VARCHAR2(300);
3968: l_sqltail VARCHAR2(900) := null;
3969: l_info VARCHAR2(300);
3970: l_desc VARCHAR2(100) := 'pn_recovery_extract_pkg.purge_expense_lines_itf_data' ;
3971: l_extract_code pn_rec_exp_line.expense_extract_code%TYPE;
3972: l_transfer_flag pn_rec_exp_itf.transfer_flag%TYPE;
3973: l_from_date DATE;
3974: l_to_date DATE;
4106: pnp_debug_pkg.log(l_desc || ': Error while ' || l_info);
4107: raise;
4108: END;
4109:
4110: END pn_recovery_extract_pkg;