1 PACKAGE PN_NORM_RENORM_PKG AS
2 -- $Header: PNRENRMS.pls 120.0 2005/05/29 12:21:56 appldev noship $
3
4 /* A Record to hold the neccessary attributes of norm items */
5 TYPE norm_item_rec IS RECORD (
6 schedule_id PN_PAYMENT_SCHEDULES_ALL.payment_schedule_id%TYPE
7 ,schedule_date PN_PAYMENT_SCHEDULES_ALL.schedule_date%TYPE
8 ,normalized_amount PN_PAYMENT_ITEMS_ALL.actual_amount%TYPE
9 );
10
11 /* Declare a PL/SQL table type of above record */
12 TYPE norm_item_tbl_type IS TABLE OF norm_item_rec INDEX BY BINARY_INTEGER;
13
14 /* Declare a variable of above PL/SQL table type */
15 g_norm_item_tbl norm_item_tbl_type;
16
17 /* Declare other global variables */
18 g_pr_rule PN_LEASES.payment_term_proration_rule%TYPE;
19 g_new_lea_term_dt PN_LEASE_DETAILS_ALL.lease_termination_date%TYPE;
20
21
22 /* Main procedure spec for the normalization / renormalization */
23 PROCEDURE NORMALIZE_RENORMALIZE
24 (p_lease_context IN VARCHAR2,
25 p_lease_id IN NUMBER,
26 p_term_id IN NUMBER,
27 p_vendor_id IN NUMBER,
28 p_cust_id IN NUMBER,
29 p_vendor_site_id IN NUMBER,
30 p_cust_site_use_id IN NUMBER,
31 p_cust_ship_site_id IN NUMBER,
32 p_sob_id IN NUMBER,
33 p_curr_code IN VARCHAR2,
34 p_sch_day IN NUMBER,
35 p_norm_str_dt IN DATE,
36 p_norm_end_dt IN DATE,
37 p_rate IN NUMBER,
38 p_lease_change_id IN NUMBER);
39
40 END PN_NORM_RENORM_PKG;