[Home] [Help]
PACKAGE: APPS.OKL_AM_TERMNT_QUOTE_PVT
Source
1 PACKAGE OKL_AM_TERMNT_QUOTE_PVT AS
2 /* $Header: OKLRTNQS.pls 120.3 2005/10/30 04:39:13 appldev noship $ */
3
4 ---------------------------------------------------------------------------
5 -- GLOBAL CONSTANTS
6 ---------------------------------------------------------------------------
7 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_AM_TERMNT_QUOTE_PVT';
8 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
9 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
10 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
11 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
12
13 G_YES CONSTANT VARCHAR2(200) := 'Y';
14 G_NO CONSTANT VARCHAR2(200) := 'N';
15 G_TERM_QTE CONSTANT VARCHAR2(200) := 'TERMINATE_QUOTE';
16 G_FALSE CONSTANT VARCHAR2(1) := OKC_API.G_FALSE;
17 ---------------------------------------------------------------------------
18 -- GLOBAL EXCEPTIONS
19 ---------------------------------------------------------------------------
20 G_EXCEPTION_CANNOT_TERM_CNT EXCEPTION;
21
22 ---------------------------------------------------------------------------
23 -- GLOBAL DATASTRUCTURES
24 ---------------------------------------------------------------------------
25 TYPE qte_ln_dtl_rec IS RECORD (qst_code OKL_TRX_QUOTES_B.QST_CODE%TYPE := OKL_API.G_MISS_CHAR,
26 qte_id OKL_TRX_QUOTES_B.ID%TYPE := OKL_API.G_MISS_NUM,
27 instance_quantity OKL_TXD_QUOTE_LINE_DTLS.NUMBER_OF_UNITS%TYPE,
28 tql_id OKL_TXL_QUOTE_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM,
29 tqd_id OKL_TXD_QUOTE_LINE_DTLS.ID%TYPE := OKL_API.G_MISS_NUM,
30 select_yn VARCHAR2(3) := NULL,
31 ib_line_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM,
32 fin_line_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM,
33 dnz_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE := OKL_API.G_MISS_NUM);
34 TYPE qte_ln_dtl_tbl IS TABLE OF qte_ln_dtl_rec
35 INDEX BY BINARY_INTEGER;
36 SUBTYPE term_rec_type IS OKL_TRX_QUOTES_PUB.qtev_rec_type;
37 SUBTYPE term_tbl_type IS OKL_TRX_QUOTES_PUB.qtev_tbl_type;
38 SUBTYPE clev_tbl_type IS OKL_OKC_MIGRATION_PVT.clev_tbl_type;
39
40 -- SUBTYPE term_rec_type IS OKL_QTE_PVT.qtev_rec_type;
41 -- SUBTYPE term_tbl_type IS OKL_QTE_PVT.qtev_tbl_type;
42 ---------------------------------------------------------------------------
43 -- Procedures and Functions
44 ---------------------------------------------------------------------------
45
46 -- terminates the quote.
47 -- checks if accepted_yn is set to 'Y' then calls the terminate contract
48 --Bug #3921591: pagarg +++ Rollover +++
49 -- additional parameter has been added to the call, to identify the acceptance source
50 PROCEDURE terminate_quote(
51 p_api_version IN NUMBER,
52 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
53 x_return_status OUT NOCOPY VARCHAR2,
54 x_msg_count OUT NOCOPY NUMBER,
55 x_msg_data OUT NOCOPY VARCHAR2,
56 p_term_rec IN term_rec_type,
57 x_term_rec OUT NOCOPY term_rec_type,
58 x_err_msg OUT NOCOPY VARCHAR2,
59 p_acceptance_source IN VARCHAR2 DEFAULT null);
60
61 -- terminates the quote for a input of tbl type
62 --Bug #3921591: pagarg +++ Rollover +++
63 -- additional parameter has been added to the call, to identify the acceptance source
64 PROCEDURE terminate_quote(
65 p_api_version IN NUMBER,
66 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
67 x_return_status OUT NOCOPY VARCHAR2,
68 x_msg_count OUT NOCOPY NUMBER,
69 x_msg_data OUT NOCOPY VARCHAR2,
70 p_term_tbl IN term_tbl_type,
71 x_term_tbl OUT NOCOPY term_tbl_type,
72 x_err_msg OUT NOCOPY VARCHAR2,
73 p_acceptance_source IN VARCHAR2 DEFAULT null);
74
75 -- calls send quote workflow
76 PROCEDURE submit_for_approval(
77 p_api_version IN NUMBER,
78 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
79 x_return_status OUT NOCOPY VARCHAR2,
80 x_msg_count OUT NOCOPY NUMBER,
81 x_msg_data OUT NOCOPY VARCHAR2,
82 p_term_rec IN term_rec_type,
83 x_term_rec OUT NOCOPY term_rec_type);
84
85 -- Checks If the given asset line is serialized or not
86 FUNCTION check_asset_sno(p_asset_line IN OKL_K_LINES.ID%TYPE,
87 x_sno_yn OUT NOCOPY VARCHAR2,
88 x_clev_tbl OUT NOCOPY clev_tbl_type) RETURN VARCHAR2;
89
90 -- Create records in Quote Line details after proper validation
91 PROCEDURE quote_line_dtls(p_api_version IN NUMBER,
92 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
93 x_return_status OUT NOCOPY VARCHAR2,
94 x_msg_count OUT NOCOPY NUMBER,
95 x_msg_data OUT NOCOPY VARCHAR2,
96 p_qld_tbl IN OUT NOCOPY qte_ln_dtl_tbl);
97
98
99 -- RMUNJULU 23-DEC-02 2726739 Added 2 new Subtypes and 4 new procedures for
100 -- inserting and updating quote lines table
101 SUBTYPE tqlv_rec_type IS OKL_TXL_QUOTE_LINES_PUB.tqlv_rec_type;
102 SUBTYPE tqlv_tbl_type IS OKL_TXL_QUOTE_LINES_PUB.tqlv_tbl_type;
103
104 -- Creates quote line
105 PROCEDURE create_quote_line(
106 p_api_version IN NUMBER,
107 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
108 x_return_status OUT NOCOPY VARCHAR2,
109 x_msg_count OUT NOCOPY NUMBER,
110 x_msg_data OUT NOCOPY VARCHAR2,
111 p_tqlv_rec IN tqlv_rec_type,
112 x_tqlv_rec OUT NOCOPY tqlv_rec_type);
113
114
115 -- Creates multiple quote lines
116 PROCEDURE create_quote_line(
117 p_api_version IN NUMBER,
118 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
119 x_return_status OUT NOCOPY VARCHAR2,
120 x_msg_count OUT NOCOPY NUMBER,
121 x_msg_data OUT NOCOPY VARCHAR2,
122 p_tqlv_tbl IN tqlv_tbl_type,
123 x_tqlv_tbl OUT NOCOPY tqlv_tbl_type);
124
125
126 -- Updates quote line
127 PROCEDURE update_quote_line(
128 p_api_version IN NUMBER,
129 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
130 x_return_status OUT NOCOPY VARCHAR2,
131 x_msg_count OUT NOCOPY NUMBER,
132 x_msg_data OUT NOCOPY VARCHAR2,
133 p_tqlv_rec IN tqlv_rec_type,
134 x_tqlv_rec OUT NOCOPY tqlv_rec_type);
135
136
137 -- Updates multiple quote lines
138 PROCEDURE update_quote_line(
139 p_api_version IN NUMBER,
140 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
141 x_return_status OUT NOCOPY VARCHAR2,
142 x_msg_count OUT NOCOPY NUMBER,
143 x_msg_data OUT NOCOPY VARCHAR2,
144 p_tqlv_tbl IN tqlv_tbl_type,
145 x_tqlv_tbl OUT NOCOPY tqlv_tbl_type);
146
147 -- RMUNJULU 08-JAN-03 2736865 New rec type and procedure for quote units
148 -- Rec type to populate the quote units data
149 TYPE unit_rec_type IS RECORD(
150 quote_number NUMBER,
151 qst_code VARCHAR2(30),
152 qtp_code VARCHAR2(30),
153 tql_id NUMBER,
154 tqd_id NUMBER,
155 asset_quantity NUMBER,
156 quote_quantity NUMBER,
157 ib_line_id NUMBER,
158 fin_line_id NUMBER,
159 dnz_chr_id NUMBER,
160 serial_number VARCHAR2(300),
161 instance_quantity NUMBER,
162 instance_number NUMBER,
163 asset_number VARCHAR2(300),
164 asset_description VARCHAR2(2000),
165 location_description VARCHAR2(2000),
166 qte_id NUMBER);
167
168 TYPE unit_tbl_type IS TABLE OF unit_rec_type INDEX BY BINARY_INTEGER;
169
170 -- gets the quote units for the quote line
171 PROCEDURE get_quote_units(
172 p_api_version IN NUMBER,
173 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
174 x_return_status OUT NOCOPY VARCHAR2,
175 x_msg_count OUT NOCOPY NUMBER,
176 x_msg_data OUT NOCOPY VARCHAR2,
177 p_tql_id IN NUMBER,
178 x_unit_tbl OUT NOCOPY unit_tbl_type);
179
180 -- RMUNJULU 16-JAN-03 2754574 Added delete procedures
181 PROCEDURE delete_quote_line(
182 p_api_version IN NUMBER,
183 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
184 x_return_status OUT NOCOPY VARCHAR2,
185 x_msg_count OUT NOCOPY NUMBER,
186 x_msg_data OUT NOCOPY VARCHAR2,
187 p_tqlv_rec IN tqlv_rec_type);
188
189 PROCEDURE delete_quote_line(
190 p_api_version IN NUMBER,
191 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
192 x_return_status OUT NOCOPY VARCHAR2,
193 x_msg_count OUT NOCOPY NUMBER,
194 x_msg_data OUT NOCOPY VARCHAR2,
195 p_tqlv_tbl IN tqlv_tbl_type);
196
197 -- rmunjulu EDAT checks asset validity in Fixed Assets
198 PROCEDURE check_asset_validity_in_fa(
199 p_kle_id IN NUMBER,
200 p_trn_date IN DATE, -- quote eff from date will be passed
201 p_check_fa_year IN VARCHAR2,
202 p_check_fa_trn IN VARCHAR2,
203 p_contract_number IN VARCHAR2,
204 x_return_status OUT NOCOPY VARCHAR2);
205
206
207 END OKL_AM_TERMNT_QUOTE_PVT;