1 PACKAGE OKL_SERVICE_INTEGRATION_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRSRIS.pls 120.2 2005/10/30 03:42:06 appldev noship $*/
3
4 G_INVALID_VALUE CONSTANT VARCHAR2(1000) := 'OKL_INVALID_VALUE';
5 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(1000) := 'OKL_UNEXPECTED_ERROR';
6 G_OKL_ITEM_MISMATCH CONSTANT VARCHAR2(1000) := 'OKL_LLA_ITEM_MISMATCH';
7 G_OKL_LINK_CON_ERROR CONSTANT VARCHAR2(1000) := 'OKL_LLA_INVALID_LINK_CONTRACT';
8 G_OKL_MULTI_LINK_ERROR CONSTANT VARCHAR2(1000) := 'OKL_LLA_MULTI_LINK_ERROR';
9 G_OKL_ITEM_QTY_MISMATCH CONSTANT VARCHAR2(1000) := 'OKL_LLA_ITEM_QTY_MISMATCH';
10 G_LLA_SERV_LINE_LINK_ERROR CONSTANT VARCHAR2(1000) := 'OKL_LLA_SERV_LINE_LINK_ERROR';
11 G_LLA_CURR_MISMATCH CONSTANT VARCHAR2(1000) := 'OKL_LLA_CURR_MISMATCH';
12 G_LLA_CUST_MISMATCH CONSTANT VARCHAR2(1000) := 'OKL_LLA_CUST_MISMATCH';
13 G_LLA_BILL_TO_MISMATCH CONSTANT VARCHAR2(1000) := 'OKL_LLA_BILL_TO_MISMATCH';
14 G_LLA_COV_ASSET_ERROR CONSTANT VARCHAR2(1000) := 'OKL_LLA_COV_ASSET_ERROR';
15 G_SERVICE_LINK_EXIST CONSTANT VARCHAR2(1000) := 'OKL_LLA_SERVICE_LINK_EXIST';
16 G_SRV_NO_ASSET_MATCH CONSTANT VARCHAR2(1000) := 'OKL_SRV_NO_ASSET_MATCH';
17
18
19 SUBTYPE clev_rec_type IS okl_okc_migration_pvt.clev_rec_type;
20 SUBTYPE clev_tbl_type IS okl_okc_migration_pvt.clev_tbl_type;
21 SUBTYPE klev_rec_type IS okl_contract_pub.klev_rec_type;
22 SUBTYPE klev_tbl_type IS okl_contract_pub.klev_tbl_type;
23 SUBTYPE cimv_tbl_type IS okl_okc_migration_pvt.cimv_tbl_type;
24
25 TYPE link_line_rec_type IS RECORD (
26 okl_service_line_id OKC_K_LINES_V.ID%TYPE,
27 oks_service_line_id OKC_K_LINES_V.ID%TYPE
28 );
29
30 TYPE link_line_tbl_type IS TABLE OF link_line_rec_type INDEX BY BINARY_INTEGER;
31
32 TYPE srv_cov_rec_type IS RECORD (
33 oks_cov_prod_line_id OKC_K_LINES_V.ID%TYPE
34 );
35
36 TYPE srv_cov_tbl_type IS TABLE OF srv_cov_rec_type INDEX BY BINARY_INTEGER;
37
38 PROCEDURE Report_Error(
39 x_msg_count OUT NOCOPY NUMBER,
40 x_msg_data OUT NOCOPY VARCHAR2
41 );
42
43 PROCEDURE create_service_line(
44 p_api_version IN NUMBER,
45 p_init_msg_list IN VARCHAR2,
46 x_return_status OUT NOCOPY VARCHAR2,
47 x_msg_count OUT NOCOPY NUMBER,
48 x_msg_data OUT NOCOPY VARCHAR2,
49 p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
50 p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
51 p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE, -- Service Contract Service Top Line ID
52 p_supplier_id IN NUMBER,
53 x_okl_service_line_id OUT NOCOPY OKC_K_LINES_V.ID%TYPE -- Returns Lease Service TOP Line ID
54 );
55
56 PROCEDURE link_service_line(
57 p_api_version IN NUMBER,
58 p_init_msg_list IN VARCHAR2,
59 x_return_status OUT NOCOPY VARCHAR2,
60 x_msg_count OUT NOCOPY NUMBER,
61 x_msg_data OUT NOCOPY VARCHAR2,
62 p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
63 p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
64 p_okl_service_line_id IN OKC_K_LINES_V.ID%TYPE, -- Lease Service Top Line ID
65 p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE -- Service Contract - Service TOP Line ID
66 );
67
68 PROCEDURE delete_service_line(
69 p_api_version IN NUMBER,
70 p_init_msg_list IN VARCHAR2,
71 x_return_status OUT NOCOPY VARCHAR2,
72 x_msg_count OUT NOCOPY NUMBER,
73 x_msg_data OUT NOCOPY VARCHAR2,
74 p_clev_rec IN clev_rec_type,
75 p_klev_rec IN klev_rec_type
76 );
77
78 PROCEDURE check_service_link (
79 p_api_version IN NUMBER,
80 p_init_msg_list IN VARCHAR2,
81 x_return_status OUT NOCOPY VARCHAR2,
82 x_msg_count OUT NOCOPY NUMBER,
83 x_msg_data OUT NOCOPY VARCHAR2,
84 p_lease_contract_id IN OKC_K_HEADERS_V.ID%TYPE,
85 x_service_contract_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE
86 );
87
88 PROCEDURE check_service_line_link (
89 p_api_version IN NUMBER,
90 p_init_msg_list IN VARCHAR2,
91 x_return_status OUT NOCOPY VARCHAR2,
92 x_msg_count OUT NOCOPY NUMBER,
93 x_msg_data OUT NOCOPY VARCHAR2,
94 p_lease_contract_id IN OKC_K_HEADERS_V.ID%TYPE,
95 p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE,
96 x_service_contract_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE
97 );
98
99 PROCEDURE get_service_link_line (
100 p_api_version IN NUMBER,
101 p_init_msg_list IN VARCHAR2,
102 x_return_status OUT NOCOPY VARCHAR2,
103 x_msg_count OUT NOCOPY NUMBER,
104 x_msg_data OUT NOCOPY VARCHAR2,
105 p_lease_contract_id IN OKC_K_HEADERS_V.ID%TYPE,
106 x_link_line_tbl OUT NOCOPY LINK_LINE_TBL_TYPE,
107 x_service_contract_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE
108 );
109
110 PROCEDURE create_link_service_line(
111 p_api_version IN NUMBER,
112 p_init_msg_list IN VARCHAR2,
113 x_return_status OUT NOCOPY VARCHAR2,
114 x_msg_count OUT NOCOPY NUMBER,
115 x_msg_data OUT NOCOPY VARCHAR2,
116 p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
117 p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
118 p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE, -- Service Contract Service Top Line ID
119 p_supplier_id IN NUMBER,
120 x_okl_service_line_id OUT NOCOPY OKC_K_LINES_V.ID%TYPE -- Returns Contract Service TOP Line ID
121 );
122
123 PROCEDURE update_service_line(
124 p_api_version IN NUMBER,
125 p_init_msg_list IN VARCHAR2,
126 x_return_status OUT NOCOPY VARCHAR2,
127 x_msg_count OUT NOCOPY NUMBER,
128 x_msg_data OUT NOCOPY VARCHAR2,
129 p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
130 p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
131 p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE, -- Service Contract Service Top Line ID
132 p_supplier_id IN NUMBER,
133 p_clev_rec IN clev_rec_type,
134 p_klev_rec IN klev_rec_type,
135 x_okl_service_line_id OUT NOCOPY OKC_K_LINES_V.ID%TYPE
136 );
137
138 PROCEDURE create_cov_asset_line(
139 p_api_version IN NUMBER,
140 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.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_clev_tbl IN clev_tbl_type,
145 p_klev_tbl IN klev_tbl_type,
146 p_cimv_tbl IN cimv_tbl_type,
147 p_cov_tbl IN srv_cov_tbl_type,
148 x_clev_tbl OUT NOCOPY clev_tbl_type,
149 x_klev_tbl OUT NOCOPY klev_tbl_type,
150 x_cimv_tbl OUT NOCOPY cimv_tbl_type
151 );
152
153 PROCEDURE update_cov_asset_line(
154 p_api_version IN NUMBER,
155 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
156 x_return_status OUT NOCOPY VARCHAR2,
157 x_msg_count OUT NOCOPY NUMBER,
158 x_msg_data OUT NOCOPY VARCHAR2,
159 p_clev_tbl IN clev_tbl_type,
160 p_klev_tbl IN klev_tbl_type,
161 p_cimv_tbl IN cimv_tbl_type,
162 p_cov_tbl IN srv_cov_tbl_type,
163 x_clev_tbl OUT NOCOPY clev_tbl_type,
164 x_klev_tbl OUT NOCOPY klev_tbl_type,
165 x_cimv_tbl OUT NOCOPY cimv_tbl_type);
166
167 PROCEDURE update_jtf_code(
168 p_api_version IN NUMBER,
169 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
170 x_return_status OUT NOCOPY VARCHAR2,
171 x_msg_count OUT NOCOPY NUMBER,
172 x_msg_data OUT NOCOPY VARCHAR2,
173 p_okl_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
174 p_oks_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
175 p_jtf_code IN VARCHAR2
176 );
177
178 PROCEDURE initiate_service_booking(
179 p_api_version IN NUMBER,
180 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
181 x_return_status OUT NOCOPY VARCHAR2,
182 x_msg_count OUT NOCOPY NUMBER,
183 x_msg_data OUT NOCOPY VARCHAR2,
184 p_okl_chr_id IN OKC_K_HEADERS_B.ID%TYPE
185 );
186
187 PROCEDURE create_service_from_oks(
188 p_api_version IN NUMBER,
189 p_init_msg_list IN VARCHAR2,
190 x_return_status OUT NOCOPY VARCHAR2,
191 x_msg_count OUT NOCOPY NUMBER,
192 x_msg_data OUT NOCOPY VARCHAR2,
193 p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
194 p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
195 p_supplier_id IN NUMBER,
196 p_sty_id IN OKL_K_LINES.STY_ID%TYPE DEFAULT NULL,
197 x_okl_service_line_id OUT NOCOPY OKC_K_LINES_V.ID%TYPE
198 );
199
200 PROCEDURE delink_service_contract(
201 p_api_version IN NUMBER,
202 p_init_msg_list IN VARCHAR2,
203 x_return_status OUT NOCOPY VARCHAR2,
204 x_msg_count OUT NOCOPY NUMBER,
205 x_msg_data OUT NOCOPY VARCHAR2,
206 p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE
207 );
208
209 PROCEDURE expire_lease_instance(
210 p_api_version IN NUMBER,
211 p_init_msg_list IN VARCHAR2,
212 x_return_status OUT NOCOPY VARCHAR2,
213 x_msg_count OUT NOCOPY NUMBER,
214 x_msg_data OUT NOCOPY VARCHAR2,
215 p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE
216 );
217
218 PROCEDURE relink_service_contract(
219 p_api_version IN NUMBER,
220 p_init_msg_list IN VARCHAR2,
221 x_return_status OUT NOCOPY VARCHAR2,
222 x_msg_count OUT NOCOPY NUMBER,
223 x_msg_data OUT NOCOPY VARCHAR2,
224 p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
225 p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
226 p_supplier_id IN NUMBER,
227 p_sty_id IN OKL_K_LINES.STY_ID%TYPE DEFAULT NULL,
228 x_okl_service_line_id OUT NOCOPY OKC_K_LINES_V.ID%TYPE
229 );
230
231 END OKL_SERVICE_INTEGRATION_PVT;