784: IF p_mode = 'D' THEN
785:
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,' ');
785:
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,'================================================================================');
801:
802:
803: IF l_var_print = 0 THEN
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,' ');
802:
803: IF l_var_print = 0 THEN
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,' ---------------------------------------------------------------------------');
803: IF l_var_print = 0 THEN
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);
818:
819:
820: IF l_per_print = 0 THEN
821:
822: fnd_message.set_name ('PN','PN_VAR_PER_ST_DT');
823: l_message := fnd_message.get;
824: fnd_message.set_name ('PN','PN_VAR_PER_END_DT');
825: l_message := l_message||' '||fnd_message.get;
826:
819:
820: IF l_per_print = 0 THEN
821:
822: fnd_message.set_name ('PN','PN_VAR_PER_ST_DT');
823: l_message := fnd_message.get;
824: fnd_message.set_name ('PN','PN_VAR_PER_END_DT');
825: l_message := l_message||' '||fnd_message.get;
826:
827: fnd_message.set_name ('PN','PN_VAR_SALES_TYPE');
820: IF l_per_print = 0 THEN
821:
822: fnd_message.set_name ('PN','PN_VAR_PER_ST_DT');
823: l_message := fnd_message.get;
824: fnd_message.set_name ('PN','PN_VAR_PER_END_DT');
825: l_message := l_message||' '||fnd_message.get;
826:
827: fnd_message.set_name ('PN','PN_VAR_SALES_TYPE');
828: l_message1 := fnd_message.get;
821:
822: fnd_message.set_name ('PN','PN_VAR_PER_ST_DT');
823: l_message := fnd_message.get;
824: fnd_message.set_name ('PN','PN_VAR_PER_END_DT');
825: l_message := l_message||' '||fnd_message.get;
826:
827: fnd_message.set_name ('PN','PN_VAR_SALES_TYPE');
828: l_message1 := fnd_message.get;
829: fnd_message.set_name ('PN','PN_VAR_ITEM_CATEGORY');
823: l_message := fnd_message.get;
824: fnd_message.set_name ('PN','PN_VAR_PER_END_DT');
825: l_message := l_message||' '||fnd_message.get;
826:
827: fnd_message.set_name ('PN','PN_VAR_SALES_TYPE');
828: l_message1 := fnd_message.get;
829: fnd_message.set_name ('PN','PN_VAR_ITEM_CATEGORY');
830: l_message1 := l_message1|| ' '||fnd_message.get;
831: fnd_message.set_name ('PN','PN_VAR_NAT_BREAK_RATE');
824: fnd_message.set_name ('PN','PN_VAR_PER_END_DT');
825: l_message := l_message||' '||fnd_message.get;
826:
827: fnd_message.set_name ('PN','PN_VAR_SALES_TYPE');
828: l_message1 := fnd_message.get;
829: fnd_message.set_name ('PN','PN_VAR_ITEM_CATEGORY');
830: l_message1 := l_message1|| ' '||fnd_message.get;
831: fnd_message.set_name ('PN','PN_VAR_NAT_BREAK_RATE');
832: l_message1 := l_message1|| ' '||fnd_message.get;
825: l_message := l_message||' '||fnd_message.get;
826:
827: fnd_message.set_name ('PN','PN_VAR_SALES_TYPE');
828: l_message1 := fnd_message.get;
829: fnd_message.set_name ('PN','PN_VAR_ITEM_CATEGORY');
830: l_message1 := l_message1|| ' '||fnd_message.get;
831: fnd_message.set_name ('PN','PN_VAR_NAT_BREAK_RATE');
832: l_message1 := l_message1|| ' '||fnd_message.get;
833: fnd_message.set_name ('PN','PN_VAR_BASE_RENT');
826:
827: fnd_message.set_name ('PN','PN_VAR_SALES_TYPE');
828: l_message1 := fnd_message.get;
829: fnd_message.set_name ('PN','PN_VAR_ITEM_CATEGORY');
830: l_message1 := l_message1|| ' '||fnd_message.get;
831: fnd_message.set_name ('PN','PN_VAR_NAT_BREAK_RATE');
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;
827: fnd_message.set_name ('PN','PN_VAR_SALES_TYPE');
828: l_message1 := fnd_message.get;
829: fnd_message.set_name ('PN','PN_VAR_ITEM_CATEGORY');
830: l_message1 := l_message1|| ' '||fnd_message.get;
831: fnd_message.set_name ('PN','PN_VAR_NAT_BREAK_RATE');
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:
828: l_message1 := fnd_message.get;
829: fnd_message.set_name ('PN','PN_VAR_ITEM_CATEGORY');
830: l_message1 := l_message1|| ' '||fnd_message.get;
831: fnd_message.set_name ('PN','PN_VAR_NAT_BREAK_RATE');
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, ' ');
829: fnd_message.set_name ('PN','PN_VAR_ITEM_CATEGORY');
830: l_message1 := l_message1|| ' '||fnd_message.get;
831: fnd_message.set_name ('PN','PN_VAR_NAT_BREAK_RATE');
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, ' ---------------------------------------------------------------------');
830: l_message1 := l_message1|| ' '||fnd_message.get;
831: fnd_message.set_name ('PN','PN_VAR_NAT_BREAK_RATE');
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);