1 PACKAGE pn_var_natural_bp_pkg AUTHID CURRENT_USER AS
2 -- $Header: PNVRNBPS.pls 120.0 2007/10/03 14:29:35 rthumma noship $
3
4 TYPE var_lease_rec IS RECORD (var_rent_id NUMBER,
5 lease_id NUMBER,
6 var_rent_num VARCHAR2(30));
7
8 TYPE bkpt_rec IS RECORD (start_date DATE,
9 end_date DATE,
10 amount NUMBER,
11 bkpt_rate NUMBER);
12
13 TYPE date_table_type IS TABLE OF DATE INDEX BY BINARY_INTEGER;
14 TYPE number_table_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
15 TYPE var_lease_type IS TABLE OF var_lease_rec INDEX BY BINARY_INTEGER;
16 TYPE bkpt_rec_type IS TABLE OF bkpt_rec INDEX BY BINARY_INTEGER;
17
18 PROCEDURE build_bkpt_details_main(errbuf OUT NOCOPY VARCHAR2,
19 retcode OUT NOCOPY VARCHAR2,
20 p_var_rent_id IN NUMBER);
21
22 PROCEDURE build_bkpt_details(errbuf OUT NOCOPY VARCHAR2,
23 retcode OUT NOCOPY VARCHAR2,
24 p_lease_id IN NUMBER,
25 p_var_rent_id IN NUMBER,
26 p_head_dflt_id IN NUMBER,
27 p_header_id IN NUMBER,
28 p_bkpt_rec IN OUT NOCOPY bkpt_rec_type
29 );
30
31
32
33 PROCEDURE PN_VAR_NAT_TO_ARTIFICIAL(errbuf OUT NOCOPY VARCHAR2
34 ,retcode OUT NOCOPY VARCHAR2
35 ,p_mode IN VARCHAR2
36 ,p_prop_id IN NUMBER DEFAULT NULL
37 ,p_loc_id IN NUMBER DEFAULT NULL
38 ,p_lease_id IN NUMBER DEFAULT NULL
39 ,p_var_rent_id IN NUMBER DEFAULT NULL);
40
41
42 END pn_var_natural_bp_pkg;