[Home] [Help]
PACKAGE: APPS.OKL_AM_AMORTIZE_PVT
Source
1 PACKAGE OKL_AM_AMORTIZE_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRTATS.pls 120.6 2006/07/11 10:03:57 dkagrawa noship $ */
3
4 SUBTYPE thpv_rec_type IS okl_trx_assets_pub.thpv_rec_type;
5 SUBTYPE tlpv_rec_type IS okl_txl_assets_pub.tlpv_rec_type;
6
7 SUBTYPE thpv_tbl_type IS okl_trx_assets_pub.thpv_tbl_type;
8 SUBTYPE tlpv_tbl_type IS okl_txl_assets_pub.tlpv_tbl_type;
9
10 ---------------------------------------------------------------------------
11 -- GLOBAL CONSTANTS
12 ---------------------------------------------------------------------- -----
13 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := okc_api.G_REQUIRED_VALUE;
14 G_INVALID_VALUE CONSTANT VARCHAR2(200) := okc_api.G_INVALID_VALUE;
15 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := okc_api.G_COL_NAME_TOKEN;
16 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_AM_AMORTIZE_PVT';
17 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
18 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
19 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
20 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
21 G_NET_INVESTMENT_FORMULA CONSTANT VARCHAR2(150) := 'LINE_ASSET_NET_INVESTMENT';
22
23
24 -- create off-lease transaction
25 PROCEDURE create_offlease_asset_trx( p_api_version IN NUMBER,
26 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
27 x_return_status OUT NOCOPY VARCHAR2,
28 x_msg_count OUT NOCOPY NUMBER,
29 x_msg_data OUT NOCOPY VARCHAR2,
30 p_kle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
31 p_early_termination_yn IN VARCHAR2,
32 p_quote_eff_date IN DATE DEFAULT NULL, -- rmunjulu EDAT Added parameter
33 p_quote_accpt_date IN DATE DEFAULT NULL); -- rmunjulu EDAT Added parameter
34
35 -- create off-lease transaction
36 PROCEDURE create_offlease_asset_trx( p_api_version IN NUMBER,
37 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
38 x_return_status OUT NOCOPY VARCHAR2,
39 x_msg_count OUT NOCOPY NUMBER,
40 x_msg_data OUT NOCOPY VARCHAR2,
41 p_contract_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
42 p_early_termination_yn IN VARCHAR2,
43 p_quote_eff_date IN DATE DEFAULT NULL, -- rmunjulu EDAT Added parameter
44 p_quote_accpt_date IN DATE DEFAULT NULL); -- rmunjulu EDAT Added parameter
45
46
47 -- update off-lease transaction
48 PROCEDURE update_offlease_asset_trx( p_api_version IN NUMBER,
49 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
50 x_return_status OUT NOCOPY VARCHAR2,
51 x_msg_count OUT NOCOPY NUMBER,
52 x_msg_data OUT NOCOPY VARCHAR2,
53 p_header_rec IN thpv_rec_type,
54 p_lines_rec IN tlpv_rec_type);
55
56 -- update off-lease transaction
57 PROCEDURE update_offlease_asset_trx( p_api_version IN NUMBER,
58 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
59 x_return_status OUT NOCOPY VARCHAR2,
60 x_msg_count OUT NOCOPY NUMBER,
61 x_msg_data OUT NOCOPY VARCHAR2,
62 p_header_tbl IN thpv_tbl_type,
63 p_lines_tbl IN tlpv_tbl_type,
64 x_record_status OUT NOCOPY VARCHAR2);
65
66 -- RMUNJULU 3608615
67 -- new rec type for depreciation info
68 TYPE deprn_rec_type IS RECORD (
69 p_tas_id OKL_TRX_ASSETS.id%TYPE,
70 p_tal_id OKL_TXL_ASSETS_V.id%TYPE,
71 p_dep_method OKL_TXL_ASSETS_V.deprn_method%TYPE,
72 p_life_in_months OKL_TXL_ASSETS_V.life_in_months%TYPE,
73 --SECHAWLA 28-MAY-04 3645574 : Added deprn_rate
74 p_deprn_rate_percent OKL_TXL_ASSETS_V.deprn_rate%TYPE, -- SECHAWLA 03-JUN-04 3657624 : changed p_deprn_rate to p_deprn_rate_percent
75 p_date_trns_occured OKL_TRX_ASSETS.date_trans_occurred%TYPE,
76 p_salvage_value OKL_TXL_ASSETS_V.salvage_value%TYPE);
77
78 -- RMUNJULU 3608615
79 -- update off-lease transaction
80 PROCEDURE update_depreciation(
81 p_api_version IN NUMBER,
82 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
83 x_return_status OUT NOCOPY VARCHAR2,
84 x_msg_count OUT NOCOPY NUMBER,
85 x_msg_data OUT NOCOPY VARCHAR2,
86 p_deprn_rec IN deprn_rec_type);
87
88
89
90 END OKL_AM_AMORTIZE_PVT;