786: IF l_lease_print = 0 THEN
787:
788: fnd_message.set_name ('PN','PN_LEASE_NUMBER');
789: l_message := fnd_message.get;
790: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
791: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
792: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
793: Fnd_File.Put_Line ( Fnd_File.OutPut,'================================================================================');
794: Fnd_File.Put_Line ( Fnd_File.OutPut,' '||l_message ||' : ' || l_lease_id);
787:
788: fnd_message.set_name ('PN','PN_LEASE_NUMBER');
789: l_message := fnd_message.get;
790: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
791: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
792: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
793: Fnd_File.Put_Line ( Fnd_File.OutPut,'================================================================================');
794: Fnd_File.Put_Line ( Fnd_File.OutPut,' '||l_message ||' : ' || l_lease_id);
795: Fnd_File.Put_Line ( Fnd_File.OutPut,'================================================================================');
788: fnd_message.set_name ('PN','PN_LEASE_NUMBER');
789: l_message := fnd_message.get;
790: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
791: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
792: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
793: Fnd_File.Put_Line ( Fnd_File.OutPut,'================================================================================');
794: Fnd_File.Put_Line ( Fnd_File.OutPut,' '||l_message ||' : ' || l_lease_id);
795: Fnd_File.Put_Line ( Fnd_File.OutPut,'================================================================================');
796: l_message := NULL;
789: l_message := fnd_message.get;
790: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
791: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
792: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
793: Fnd_File.Put_Line ( Fnd_File.OutPut,'================================================================================');
794: Fnd_File.Put_Line ( Fnd_File.OutPut,' '||l_message ||' : ' || l_lease_id);
795: Fnd_File.Put_Line ( Fnd_File.OutPut,'================================================================================');
796: l_message := NULL;
797: l_lease_print := 1; /* This is to ensure that the lease name is printed
790: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
791: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
792: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
793: Fnd_File.Put_Line ( Fnd_File.OutPut,'================================================================================');
794: Fnd_File.Put_Line ( Fnd_File.OutPut,' '||l_message ||' : ' || l_lease_id);
795: Fnd_File.Put_Line ( Fnd_File.OutPut,'================================================================================');
796: l_message := NULL;
797: l_lease_print := 1; /* This is to ensure that the lease name is printed
798: just once for all VRs belonging to that lease*/
791: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
792: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
793: Fnd_File.Put_Line ( Fnd_File.OutPut,'================================================================================');
794: Fnd_File.Put_Line ( Fnd_File.OutPut,' '||l_message ||' : ' || l_lease_id);
795: Fnd_File.Put_Line ( Fnd_File.OutPut,'================================================================================');
796: l_message := NULL;
797: l_lease_print := 1; /* This is to ensure that the lease name is printed
798: just once for all VRs belonging to that lease*/
799:
804:
805: fnd_message.set_name ('PN','PN_VARENT_NUM');
806: fnd_message.set_token('VAR_RENT_NUM',l_var_rent_num);
807: l_message := fnd_message.get;
808: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
809: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
810: Fnd_File.Put_Line ( Fnd_File.OutPut,' ---------------------------------------------------------------------------');
811: Fnd_File.Put_Line ( Fnd_File.OutPut,' ' || l_message);
812: Fnd_File.Put_Line ( Fnd_File.OutPut,' ---------------------------------------------------------------------------');
805: fnd_message.set_name ('PN','PN_VARENT_NUM');
806: fnd_message.set_token('VAR_RENT_NUM',l_var_rent_num);
807: l_message := fnd_message.get;
808: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
809: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
810: Fnd_File.Put_Line ( Fnd_File.OutPut,' ---------------------------------------------------------------------------');
811: Fnd_File.Put_Line ( Fnd_File.OutPut,' ' || l_message);
812: Fnd_File.Put_Line ( Fnd_File.OutPut,' ---------------------------------------------------------------------------');
813: l_message := NULL;
806: fnd_message.set_token('VAR_RENT_NUM',l_var_rent_num);
807: l_message := fnd_message.get;
808: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
809: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
810: Fnd_File.Put_Line ( Fnd_File.OutPut,' ---------------------------------------------------------------------------');
811: Fnd_File.Put_Line ( Fnd_File.OutPut,' ' || l_message);
812: Fnd_File.Put_Line ( Fnd_File.OutPut,' ---------------------------------------------------------------------------');
813: l_message := NULL;
814: l_var_print := 1; /* This is to ensure that the VR name is printed
807: l_message := fnd_message.get;
808: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
809: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
810: Fnd_File.Put_Line ( Fnd_File.OutPut,' ---------------------------------------------------------------------------');
811: Fnd_File.Put_Line ( Fnd_File.OutPut,' ' || l_message);
812: Fnd_File.Put_Line ( Fnd_File.OutPut,' ---------------------------------------------------------------------------');
813: l_message := NULL;
814: l_var_print := 1; /* This is to ensure that the VR name is printed
815: just once for all periods belonging to that VR*/
808: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
809: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
810: Fnd_File.Put_Line ( Fnd_File.OutPut,' ---------------------------------------------------------------------------');
811: Fnd_File.Put_Line ( Fnd_File.OutPut,' ' || l_message);
812: Fnd_File.Put_Line ( Fnd_File.OutPut,' ---------------------------------------------------------------------------');
813: l_message := NULL;
814: l_var_print := 1; /* This is to ensure that the VR name is printed
815: just once for all periods belonging to that VR*/
816:
832: l_message1 := l_message1|| ' '||fnd_message.get;
833: fnd_message.set_name ('PN','PN_VAR_BASE_RENT');
834: l_message1 := l_message1||' '||fnd_message.get;
835:
836: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ');
837: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------------');
838: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||l_message);
839: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||per_rec.start_date||' '||per_rec.end_date);
840: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------------');
833: fnd_message.set_name ('PN','PN_VAR_BASE_RENT');
834: l_message1 := l_message1||' '||fnd_message.get;
835:
836: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ');
837: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------------');
838: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||l_message);
839: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||per_rec.start_date||' '||per_rec.end_date);
840: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------------');
841: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||l_message1);
834: l_message1 := l_message1||' '||fnd_message.get;
835:
836: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ');
837: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------------');
838: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||l_message);
839: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||per_rec.start_date||' '||per_rec.end_date);
840: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------------');
841: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||l_message1);
842: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------');
835:
836: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ');
837: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------------');
838: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||l_message);
839: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||per_rec.start_date||' '||per_rec.end_date);
840: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------------');
841: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||l_message1);
842: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------');
843:
836: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ');
837: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------------');
838: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||l_message);
839: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||per_rec.start_date||' '||per_rec.end_date);
840: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------------');
841: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||l_message1);
842: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------');
843:
844: l_per_print :=1; /* This is to ensure that the period Header is printed
837: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------------');
838: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||l_message);
839: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||per_rec.start_date||' '||per_rec.end_date);
840: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------------');
841: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||l_message1);
842: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------');
843:
844: l_per_print :=1; /* This is to ensure that the period Header is printed
845: just once for all lines belonging to that period */
838: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||l_message);
839: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||per_rec.start_date||' '||per_rec.end_date);
840: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------------');
841: Fnd_File.Put_Line ( Fnd_File.OutPut, ' '||l_message1);
842: Fnd_File.Put_Line ( Fnd_File.OutPut, ' ---------------------------------------------------------------');
843:
844: l_per_print :=1; /* This is to ensure that the period Header is printed
845: just once for all lines belonging to that period */
846:
845: just once for all lines belonging to that period */
846:
847: END IF;
848:
849: Fnd_File.Put_Line ( Fnd_File.OutPut,' '
850: ||RPAD(l_sales_type,13,' ')||' '
851: ||RPAD(l_item_category,17,' ')||' '
852: ||LPAD(bkhd_rec.natural_break_rate,17,' ')
853: ||LPAD(bkhd_rec.base_rent,13,' '));
889: IF p_mode = 'U' and l_update_count > 0 THEN
890: pnp_debug_pkg.log(l_update_count||' records updated' );
891: COMMIT;
892: ELSIF p_mode = 'D' and l_diagnostic > 0 THEN
893: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
894: Fnd_File.Put_Line ( Fnd_File.OutPut,'================================================================================');
895: END IF;
896:
897:
890: pnp_debug_pkg.log(l_update_count||' records updated' );
891: COMMIT;
892: ELSIF p_mode = 'D' and l_diagnostic > 0 THEN
893: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
894: Fnd_File.Put_Line ( Fnd_File.OutPut,'================================================================================');
895: END IF;
896:
897:
898: pnp_debug_pkg.log('pn_var_natural_bp_pkg.pn_var_nat_to_artificial (-) : ');