[Home] [Help]
PACKAGE: APPS.OKL_AM_CREATE_QUOTE_PVT
Source
1 PACKAGE OKL_AM_CREATE_QUOTE_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRCQTS.pls 120.3.12010000.2 2009/06/15 21:58:55 sechawla ship $ */
3
4 ---------------------------------------------------------------------------
5 -- GLOBAL VARIABLES
6 ---------------------------------------------------------------------------
7 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_AM_CREATE_QUOTE_PVT';
8 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
9 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
10 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
11 G_INVALID_VALUE1 CONSTANT VARCHAR2(200) := 'OKL_INVALID_VALUE'; -- SECHAWLA 2699412 02-DEC-03 Moved from okl_am_util_pvt
12 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := okc_api.G_REQUIRED_VALUE; -- SECHAWLA 28-FEB-03 Bug # 2757175 : Added
13 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
14 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
15 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
16
17 G_YES CONSTANT VARCHAR2(1) := 'Y';
18 G_NO CONSTANT VARCHAR2(1) := 'N';
19
20 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
21 ---------------------------------------------------------------------------
22 -- GLOBAL DATASTRUCTURES
23 ---------------------------------------------------------------------------
24
25 SUBTYPE quot_rec_type IS OKL_TRX_QUOTES_PUB.qtev_rec_type;
26 SUBTYPE tqlv_tbl_type IS OKL_TXL_QUOTE_LINES_PUB.tqlv_tbl_type;
27 SUBTYPE qpyv_tbl_type IS OKL_QUOTE_PARTIES_PUB.qpyv_tbl_type;
28
29 G_EMPTY_QPYV_TBL qpyv_tbl_type;
30
31 TYPE assn_rec_type IS RECORD (
32 p_asset_id NUMBER := OKC_API.G_MISS_NUM,
33 p_asset_number VARCHAR2(200) := OKC_API.G_MISS_CHAR,
34 p_asset_qty NUMBER,
35 p_quote_qty NUMBER,
36 p_split_asset_number OKC_K_LINES_V.name%TYPE := OKC_API.G_MISS_CHAR); -- RMUNJULU 2757312 Added
37
38 TYPE assn_tbl_type IS TABLE OF assn_rec_type INDEX BY BINARY_INTEGER;
39
40 -- SECHAWLA 02-JAN-03 2699412 Added the following declarations as part of moving procedure advance_contract_search from
41 -- okl_am_util_pvt to create quote API
42
43
44
45 -- Record structure for contract details search.
46 TYPE achr_rec_type IS RECORD (
47 asset_number OKC_K_LINES_TL.NAME%TYPE := NULL,
48 serial_number CSI_ITEM_INSTANCES.SERIAL_NUMBER%TYPE := NULL,
49 chr_id OKC_K_HEADERS_B.ID%TYPE := NULL,
50 contract_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE := NULL,
51 from_start_date OKC_K_HEADERS_B.START_DATE%TYPE := NULL,
52 to_start_date OKC_K_HEADERS_B.START_DATE%TYPE := NULL,
53 from_end_date OKC_K_HEADERS_B.END_DATE%TYPE := NULL,
54 to_end_date OKC_K_HEADERS_B.END_DATE%TYPE := NULL,
55 sts_code OKC_K_HEADERS_B.STS_CODE%TYPE := NULL,
56 sts_meaning OKC_STATUSES_TL.MEANING%TYPE := NULL,
57 org_id OKC_K_HEADERS_B.AUTHORING_ORG_ID%TYPE := NULL,
58 party_name HZ_PARTIES.PARTY_NAME%TYPE := NULL);
59
60 TYPE achr_tbl_type IS TABLE OF achr_rec_type
61 INDEX BY BINARY_INTEGER;
62
63 ---------------------------------------------------------------------------
64 -- PROCEDURES
65 ---------------------------------------------------------------------------
66
67 -- To do the advance search for a given contract details.
68 PROCEDURE advance_contract_search(
69 p_api_version IN NUMBER,
70 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
71 x_return_status OUT NOCOPY VARCHAR2,
72 x_msg_count OUT NOCOPY NUMBER,
73 x_msg_data OUT NOCOPY VARCHAR2,
74 p_achr_rec IN achr_rec_type,
75 x_achr_tbl OUT NOCOPY achr_tbl_type);
76 -- SECHAWLA 02-JAN-03 2699412 end new declarations
77
78 PROCEDURE quote_effectivity(
79 p_quot_rec IN quot_rec_type,
80 p_rule_chr_id IN NUMBER DEFAULT NULL,
81 x_quote_eff_days OUT NOCOPY NUMBER,
82 x_quote_eff_max_days OUT NOCOPY NUMBER,
83 x_return_status OUT NOCOPY VARCHAR2);
84
85 PROCEDURE create_terminate_quote(
86 p_api_version IN NUMBER,
87 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
88 x_return_status OUT NOCOPY VARCHAR2,
89 x_msg_count OUT NOCOPY NUMBER,
90 x_msg_data OUT NOCOPY VARCHAR2,
91 p_quot_rec IN quot_rec_type,
92 p_assn_tbl IN assn_tbl_type,
93 p_qpyv_tbl IN qpyv_tbl_type DEFAULT G_EMPTY_QPYV_TBL,
94 x_quot_rec OUT NOCOPY quot_rec_type,
95 x_tqlv_tbl OUT NOCOPY tqlv_tbl_type,
96 x_assn_tbl OUT NOCOPY assn_tbl_type,
97 p_term_from_intf IN VARCHAR2 DEFAULT 'N'); --Added new parameter : sechawla bug 7383445
98
99 -- RMUNJULU 2757312 Added
100 -- Function to return if asset_number exists
101 FUNCTION asset_number_exists(p_asset_number IN VARCHAR2,
102 p_control IN VARCHAR2 DEFAULT NULL, -- RMUNJULU 3241502 Added p_control
103 x_asset_exists OUT NOCOPY VARCHAR2 ) RETURN VARCHAR2;
104
105 -- PAGARG Bug 4102565 Brought out the procedure to spec as it is now called
106 -- from OKL_AM_TERMNT_QUOTE_PVT
107 PROCEDURE get_net_gain_loss(
108 p_quote_rec IN quot_rec_type,
109 p_chr_id IN NUMBER,
110 x_return_status OUT NOCOPY VARCHAR2,
111 x_net_gain_loss OUT NOCOPY NUMBER);
112
113 --RKUTTIYA Added for Sprint 2 of Loans Repossession
114 -- Function to check whether Repossession
115 FUNCTION check_repo_quote(p_quote_id IN VARCHAR2,
116 x_return_status OUT NOCOPY VARCHAR2) RETURN VARCHAR2;
117
118 END OKL_AM_CREATE_QUOTE_PVT;