[Home] [Help]
PACKAGE: APPS.OKL_AM_RV_WRITEDOWN_PVT
Source
1 PACKAGE OKL_AM_RV_WRITEDOWN_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRRVWS.pls 115.6 2002/11/04 20:47:37 sechawla noship $ */
3
4
5 TYPE assets_rec_type IS RECORD( p_id NUMBER DEFAULT OKL_API.G_MISS_NUM,
6 p_new_residual_value NUMBER DEFAULT OKL_API.G_MISS_NUM);
7
8 TYPE assets_tbl_type IS TABLE OF assets_rec_type INDEX BY BINARY_INTEGER;
9
10
11 ---------------------------------------------------------------------------
12 -- GLOBAL CONSTANTS
13 ---------------------------------------------------------------------------
14
15 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_AM_RV_WRITEDOWN_PVT';
16 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
17 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
18 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
19 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
20
21
22
23 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := okc_api.G_REQUIRED_VALUE;
24 G_INVALID_VALUE CONSTANT VARCHAR2(200) := okc_api.G_INVALID_VALUE;
25 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := okc_api.G_COL_NAME_TOKEN;
26
27
28
29 -- The main body of OKL_AM_RV_WRITEDOWN_PVT
30 PROCEDURE create_residual_value_trx( p_api_version IN NUMBER,
31 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
32 x_return_status OUT NOCOPY VARCHAR2,
33 x_msg_count OUT NOCOPY NUMBER,
34 x_msg_data OUT NOCOPY VARCHAR2,
35 p_assets_tbl IN assets_tbl_type,
36 x_residual_value_status OUT NOCOPY VARCHAR2); -- this flag is redundant,
37 -- we are keeping it for the time
38 -- being to avoid
39 -- rosetta regeneration
40
41
42
43 END OKL_AM_RV_WRITEDOWN_PVT;