[Home] [Help]
PACKAGE: APPS.OKL_LEASE_QUOTE_FEE_PVT
Source
1 PACKAGE OKL_LEASE_QUOTE_FEE_PVT AS
2 /* $Header: OKLRQUFS.pls 120.4 2005/10/27 03:29:52 rravikir noship $ */
3
4 --------------------
5 -- PACKAGE CONSTANTS
6 --------------------
7 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OKL_LEASE_QUOTE_FEE_PVT';
8 G_APP_NAME CONSTANT VARCHAR2(30) := OKL_API.G_APP_NAME;
9 G_API_VERSION CONSTANT NUMBER := 1;
10 G_USER_ID CONSTANT NUMBER := FND_GLOBAL.USER_ID;
11 G_LOGIN_ID CONSTANT NUMBER := FND_GLOBAL.LOGIN_ID;
12 G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
13 G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
14 G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
15 G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
16 G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
17 G_DB_ERROR CONSTANT VARCHAR2(30) := 'OKL_DB_ERROR';
18 G_PKG_NAME_TOKEN CONSTANT VARCHAR2(30) := 'PKG_NAME';
19 G_PROG_NAME_TOKEN CONSTANT VARCHAR2(30) := 'PROG_NAME';
20 G_SQLCODE_TOKEN CONSTANT VARCHAR2(30) := 'SQLCODE';
21 G_SQLERRM_TOKEN CONSTANT VARCHAR2(30) := 'SQLERRM';
22
23
24 ------------------
25 -- DATA STRUCTURES
26 ------------------
27 subtype fee_rec_type is okl_fee_pvt.feev_rec_type;
28 subtype assoc_asset_tbl_type is okl_lre_pvt.lrev_tbl_type;
29 subtype cashflow_hdr_rec_type is okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
30 subtype cashflow_level_tbl_type is okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
31
32 subtype cf_object_rec_type is okl_cfo_pvt.cfov_rec_type;
33 subtype cf_header_rec_type is okl_caf_pvt.cafv_rec_type;
34 subtype cf_level_tbl_type is okl_cfl_pvt.cflv_tbl_type;
35
36 subtype lr_tbl_type is okl_lre_pvt.lrev_tbl_type;
37
38 TYPE line_relation_rec_type IS RECORD (
39 id okl_line_relationships_b.id%TYPE
40 ,object_version_number okl_line_relationships_b.object_version_number%TYPE
41 ,source_line_type okl_line_relationships_b.source_line_type%TYPE
42 ,source_line_id okl_line_relationships_b.source_line_id%TYPE
43 ,related_line_type okl_line_relationships_b.related_line_type%TYPE
44 ,related_line_id okl_line_relationships_b.related_line_id%TYPE
45 ,amount okl_line_relationships_b.amount%TYPE
46 ,short_description okl_line_relationships_tl.short_description%TYPE
47 ,description okl_line_relationships_tl.description%TYPE
48 ,comments okl_line_relationships_tl.comments%TYPE
49 ,record_mode varchar2(10));
50
51 TYPE line_relation_tbl_type IS TABLE OF line_relation_rec_type INDEX BY PLS_INTEGER;
52 ----------------
53 -- PROGRAM UNITS
54 ----------------
55 PROCEDURE create_fee (
56 p_api_version IN NUMBER
57 ,p_init_msg_list IN VARCHAR2
58 ,p_transaction_control IN VARCHAR2
59 ,p_fee_rec IN fee_rec_type
60 ,p_assoc_asset_tbl IN line_relation_tbl_type
61 ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
62 ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
63 ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
64 ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
65 ,x_fee_id OUT NOCOPY NUMBER
66 ,x_return_status OUT NOCOPY VARCHAR2
67 ,x_msg_count OUT NOCOPY NUMBER
68 ,x_msg_data OUT NOCOPY VARCHAR2
69 );
70
71 PROCEDURE update_fee (
72 p_api_version IN NUMBER
73 ,p_init_msg_list IN VARCHAR2
74 ,p_transaction_control IN VARCHAR2
75 ,p_fee_rec IN fee_rec_type
76 ,p_sync_fee_header IN VARCHAR2 DEFAULT 'Y'
77 ,p_sync_line_relations IN VARCHAR2 DEFAULT 'N'
78 ,x_return_status OUT NOCOPY VARCHAR2
79 ,x_msg_count OUT NOCOPY NUMBER
80 ,x_msg_data OUT NOCOPY VARCHAR2 );
81
82 PROCEDURE update_fee (
83 p_api_version IN NUMBER
84 ,p_init_msg_list IN VARCHAR2
85 ,p_transaction_control IN VARCHAR2
86 ,p_fee_rec IN fee_rec_type
87 ,p_assoc_asset_tbl IN line_relation_tbl_type
88 ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
89 ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
90 ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
91 ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
92 ,x_return_status OUT NOCOPY VARCHAR2
93 ,x_msg_count OUT NOCOPY NUMBER
94 ,x_msg_data OUT NOCOPY VARCHAR2
95 );
96
97
98 PROCEDURE duplicate_fee (
99 p_api_version IN NUMBER
100 ,p_init_msg_list IN VARCHAR2
101 ,p_transaction_control IN VARCHAR2
102 ,p_source_fee_id IN NUMBER
103 ,p_fee_rec IN fee_rec_type
104 ,p_assoc_asset_tbl IN line_relation_tbl_type
105 ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
106 ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
107 ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
108 ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
109 ,x_fee_id OUT NOCOPY NUMBER
110 ,x_return_status OUT NOCOPY VARCHAR2
111 ,x_msg_count OUT NOCOPY NUMBER
112 ,x_msg_data OUT NOCOPY VARCHAR2
113 );
114
115 PROCEDURE duplicate_fee (
116 p_api_version IN NUMBER
117 ,p_init_msg_list IN VARCHAR2
118 ,p_transaction_control IN VARCHAR2
119 ,p_source_fee_id IN NUMBER
120 ,p_target_quote_id IN NUMBER
121 ,x_fee_id OUT NOCOPY NUMBER
122 ,x_return_status OUT NOCOPY VARCHAR2
123 ,x_msg_count OUT NOCOPY NUMBER
124 ,x_msg_data OUT NOCOPY VARCHAR2
125 );
126
127
128 PROCEDURE delete_fee (
129 p_api_version IN NUMBER
130 ,p_init_msg_list IN VARCHAR2
131 ,p_transaction_control IN VARCHAR2
132 ,p_fee_id IN NUMBER
133 ,x_return_status OUT NOCOPY VARCHAR2
134 ,x_msg_count OUT NOCOPY NUMBER
135 ,x_msg_data OUT NOCOPY VARCHAR2
136 );
137
138 END OKL_LEASE_QUOTE_FEE_PVT;