DBA Data[Home] [Help]

PACKAGE: APPS.OKL_QA_DATA_INTEGRITY

Source


1 PACKAGE OKL_QA_DATA_INTEGRITY AS
2 /* $Header: OKLRQADS.pls 120.21 2008/02/19 22:11:51 smereddy noship $ */
3 
4   ---------------------------------------------------------------------------
5   -- GLOBAL MESSAGE CONSTANTS
6   ---------------------------------------------------------------------------
7   G_FND_APP			CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
8   G_NO_PARENT_RECORD            CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
9   G_FORM_UNABLE_TO_RESERVE_REC	CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
10   G_FORM_RECORD_DELETED		CONSTANT VARCHAR2(200) := OKC_API.G_FORM_RECORD_DELETED;
11   G_FORM_RECORD_CHANGED		CONSTANT VARCHAR2(200) := OKC_API.G_FORM_RECORD_CHANGED;
12   G_RECORD_LOGICALLY_DELETED	CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
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_PARENT_TABLE_TOKEN		CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
17   G_CHILD_TABLE_TOKEN		CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
18   G_UNEXPECTED_ERROR            CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
19   G_SQLERRM_TOKEN               CONSTANT VARCHAR2(200) := 'SQLerrm';
20   G_SQLCODE_TOKEN               CONSTANT VARCHAR2(200) := 'SQLcode';
21   G_UPPERCASE_REQUIRED		CONSTANT VARCHAR2(200) := 'OKC_UPPERCASE_REQUIRED';
22   G_INVALID_END_DATE            CONSTANT VARCHAR2(200) := 'OKC_INVALID_END_DATE';
23 --
24   G_QA_SUCCESS   		CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_QA_SUCCESS';
25   G_PARTY_COUNT   		CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_PARTY_COUNT';
26   G_REQUIRED_RULE   		CONSTANT VARCHAR2(200) := 'OKC_REQUIRED_RULE';
27   G_REQUIRED_RULE_GROUP         CONSTANT VARCHAR2(200) := 'OKC_REQUIRED_RULE_GROUP';
28   G_REQUIRED_RULE_VALUES        CONSTANT VARCHAR2(200) := 'OKC_REQUIRED_RULE_VALUES';
29   G_REQUIRED_RULE_PARTY_ROLE    CONSTANT VARCHAR2(200) := 'OKC_REQUIRED_RULE_PARTY_ROLE';
30   G_RULE_DEPENDENT_VALUE        CONSTANT VARCHAR2(200) := 'OKC_RULE_DEPENDENT_VALUE';
31   G_INVALID_LINE_DATES          CONSTANT VARCHAR2(200) := 'OKC_INVALID_LINE_DATES';
32   G_REQUIRED_LINE_VALUE		CONSTANT VARCHAR2(200) := 'OKC_REQUIRED_LINE_FIELD';
33   G_INVALID_LINE_CURRENCY       CONSTANT VARCHAR2(200) := 'OKC_INVALID_LINE_CURRENCY';
34   G_RULE_ROLE_DELETED   		CONSTANT VARCHAR2(200) := 'OKC_RULE_ROLE_DELETED';
35   G_RULE_ROLE_CHANGED   		CONSTANT VARCHAR2(200) := 'OKC_RULE_ROLE_CHANGED';
36   G_NO_SUBLINE_PARTY   		CONSTANT VARCHAR2(200) := 'OKC_NO_PARTY_SUBLINE';
37   G_NO_HEADER_PARTY   		CONSTANT VARCHAR2(200) := 'OKC_NO_PARTY_HEADER';
38   G_NO_SUBLINE_RULE   		CONSTANT VARCHAR2(200) := 'OKC_NO_RULE_SUBLINE';
39   G_NOT_ALLOWED_RULE            CONSTANT VARCHAR2(200) := 'OKC_NOT_ALLOWED_RULE';
40   ------------------------------------------------------------------------------------
41   -- GLOBAL EXCEPTION
42   ---------------------------------------------------------------------------
43   G_EXCEPTION_HALT_VALIDATION	EXCEPTION;
44 
45   -- GLOBAL VARIABLES
46   ---------------------------------------------------------------------------
47   G_PKG_NAME			CONSTANT VARCHAR2(200) := 'OKL_QA_CHECK_PVT';
48   G_APP_NAME   CONSTANT VARCHAR2(3)   :=  OKL_API.G_APP_NAME;
49   ---------------------------------------------------------------------------
50     cursor l_rl_csr( shid NUMBER,
51                      rgcode OKC_RULE_GROUPS_B.RGD_CODE%TYPE,
52                      rlcat  OKC_RULES_B.RULE_INFORMATION_CATEGORY%TYPE,
53                      chrId NUMBER,
54                      cleId NUMBER ) IS
55     select crl.id slh_id,
56            crl.object1_id1,
57            crl.RULE_INFORMATION1,
58            crl.RULE_INFORMATION2,
59            crl.RULE_INFORMATION3,
60            crl.RULE_INFORMATION5,
61            crl.RULE_INFORMATION6,
62            crl.RULE_INFORMATION7,
63            crl.RULE_INFORMATION10
64     from   OKC_RULE_GROUPS_B crg,
65            OKC_RULES_B crl
66     where  crl.object2_id1 = shid
67            and crl.rgp_id = crg.id
68            and crg.RGD_CODE = rgcode
69            and crl.RULE_INFORMATION_CATEGORY = rlcat
70            and crg.dnz_chr_id = chrId
71            and nvl(crg.cle_id,-1) = cleId
72     order by crl.RULE_INFORMATION1;
73 
74     cursor l_rl_csr1( rgcode OKC_RULE_GROUPS_B.RGD_CODE%TYPE,
75                      rlcat  OKC_RULES_B.RULE_INFORMATION_CATEGORY%TYPE,
76                      chrId NUMBER,
77                      cleId NUMBER ) IS
78     select crl.id slh_id,
79            crl.object1_id1,
80            crl.RULE_INFORMATION1,
81            crl.RULE_INFORMATION2,
82            crl.RULE_INFORMATION3,
83            crl.RULE_INFORMATION5,
84            crl.RULE_INFORMATION6,
85            crl.RULE_INFORMATION7,
86            crl.RULE_INFORMATION8,
87            crl.RULE_INFORMATION10
88     from   OKC_RULE_GROUPS_B crg,
89            OKC_RULES_B crl
90     where  crl.rgp_id = crg.id
91            and crg.RGD_CODE = rgcode
92            and crl.RULE_INFORMATION_CATEGORY = rlcat
93            and crg.dnz_chr_id = chrId
94            and nvl(crg.cle_id,-1) = cleId
95     order by crl.RULE_INFORMATION1;
96 
97     cursor l_hdrrl_csr( rgcode OKC_RULE_GROUPS_B.RGD_CODE%TYPE,
98                        rlcat  OKC_RULES_B.RULE_INFORMATION_CATEGORY%TYPE,
99                        chrId NUMBER) IS
100     select crl.object1_id1,
101            crl.RULE_INFORMATION1,
102            crl.RULE_INFORMATION2,
103            crl.RULE_INFORMATION3,
104            crl.RULE_INFORMATION4,
105            crl.RULE_INFORMATION5,
106            crl.RULE_INFORMATION6,
107            crl.RULE_INFORMATION7,
108            crl.RULE_INFORMATION10,
109            crl.RULE_INFORMATION11
110     from   OKC_RULE_GROUPS_B crg,
111            OKC_RULES_B crl
112     where  crl.rgp_id = crg.id
113            and crg.RGD_CODE = rgcode
114            and crl.RULE_INFORMATION_CATEGORY = rlcat
115            and crg.dnz_chr_id = chrId;
116 
117     cursor l_oksrl_csr(rlcat  OKC_RULES_B.RULE_INFORMATION_CATEGORY%TYPE,
118                        chrId NUMBER,
119 		       cleId NUMBER) IS
120     select crl.object1_id1,
121            crl.RULE_INFORMATION1,
122            crl.RULE_INFORMATION2,
123            crl.RULE_INFORMATION3,
124            crl.RULE_INFORMATION4,
125            crl.RULE_INFORMATION5,
126            crl.RULE_INFORMATION6,
127            crl.RULE_INFORMATION7,
128            crl.RULE_INFORMATION10,
129            crl.RULE_INFORMATION11
130     from   OKC_RULE_GROUPS_B crg,
131            OKC_RULES_B crl
132     where  crl.rgp_id = crg.id
133            and crl.RULE_INFORMATION_CATEGORY = rlcat
134            and crg.dnz_chr_id = chrId
135 	   and nvl(crg.cle_id, -1) = cleId;
136 
137     Cursor supp_csr ( faid VARCHAR2 ) IS
138     Select inv.date_invoiced
139     From okl_supp_invoice_dtls inv
140     Where inv.fa_cle_id = faid;
141 
142     --Bug#3877032
143     CURSOR l_hdr_csr(chrid OKL_K_HEADERS.KHR_ID%TYPE) IS
144         SELECT chr.SCS_CODE,
145                chr.START_DATE,
146                chr.DATE_SIGNED,
147                chr.CURRENCY_CODE,
148                chr.TEMPLATE_YN,
149                chr.contract_number,
150                khr.accepted_date,
151                khr.syndicatable_yn,
152                khr.DEAL_TYPE,
153                khr.term_duration term,
154 	       nvl(pdt.reporting_pdt_id, -1) report_pdt_id
155         FROM OKC_K_HEADERS_B chr,
156 	     OKL_K_HEADERS khr,
157 	     OKL_PRODUCTS_V pdt
158         WHERE chr.id = chrid
159            AND chr.id = khr.id
160 	   --AND khr.pdt_id = pdt.id(+);
161 	   AND khr.pdt_id = pdt.id;
162 
163     CURSOR l_line_name ( n VARCHAR2 ) IS
164     Select count(*) cnt
165         FROM OKL_K_LINES_FULL_V kle,
166              OKC_LINE_STYLES_B ls
167         WHERE kle.lse_id = ls.id
168               AND ls.lty_code = 'FREE_FORM1'
169               AND kle.name = n;
170     l_ln l_line_name%ROWTYPE;
171 
172     CURSOR l_topsvclne_csr(ltycode VARCHAR2, chrid OKL_K_HEADERS.KHR_ID%TYPE, lineId NUMBER) IS
173         SELECT cle.id,
174 	       sub_kle.price_negotiated amount
175         FROM OKC_K_LINES_B cle,
176              OKC_K_LINES_B sub_kle,
177              OKC_LINE_STYLES_B ls,
178 	     OKC_STATUSES_B sts
179         WHERE cle.lse_id = ls.id
180               AND ls.lty_code = ltycode
181               AND cle.dnz_chr_id = chrid
182 	      AND sts.code = cle.sts_code
183 	      AND sub_kle.id = lineId
184 	      AND cle.id = sub_kle.cle_id
185 	      AND sts.ste_code not in ( 'HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED');
186 
187     CURSOR l_svclne_csr(ltycode VARCHAR2, chrid OKL_K_HEADERS.KHR_ID%TYPE) IS
188         SELECT cle.id,
189 	       cle.price_negotiated amount
190         FROM OKC_K_LINES_B cle,
191              OKC_LINE_STYLES_B ls,
192 	     OKC_STATUSES_B sts
193         WHERE cle.lse_id = ls.id
194               AND ls.lty_code = ltycode
195               AND cle.dnz_chr_id = chrid
196 	      AND sts.code = cle.sts_code
197 	      AND sts.ste_code not in ( 'HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED');
198 
199     CURSOR l_toplne_csr(ltycode VARCHAR2, chrid OKL_K_HEADERS.KHR_ID%TYPE, lineId NUMBER) IS
200         SELECT kle.name,
201                kle.CURRENCY_CODE,
202                kle.id,
203                kle.RESIDUAL_VALUE,
204                kle.TRACKED_RESIDUAL,
205                kle.CAPITAL_REDUCTION,
206                kle.TRADEIN_AMOUNT,
207                kle.RVI_PREMIUM,
208                kle.OEC,
209                kle.residual_code,
210                kle.residual_grnty_amount,
211 	       sub_kle.capital_amount amount,
212                sub_kle.line_number
213         FROM OKL_K_LINES_FULL_V kle,
214              OKL_K_LINES_FULL_V sub_kle,
215              OKC_LINE_STYLES_B ls,
216 	     OKC_STATUSES_B sts
217         WHERE kle.lse_id = ls.id
218               AND ls.lty_code = ltycode
219               AND kle.dnz_chr_id = chrid
220 	      AND sts.code = kle.sts_code
221 	      AND sub_kle.id = lineId
222 	      AND kle.id = sub_kle.cle_id
223 	      AND sts.ste_code not in ( 'HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED');
224 
225     CURSOR l_lne_csr(ltycode VARCHAR2, chrid OKL_K_HEADERS.KHR_ID%TYPE) IS
226         SELECT kle.name,
227 	       kle.amount,
228                kle.CURRENCY_CODE,
229                kle.id,
230                kle.RESIDUAL_VALUE,
231                kle.TRACKED_RESIDUAL,
232                kle.CAPITAL_REDUCTION,
233                kle.TRADEIN_AMOUNT,
234                kle.RVI_PREMIUM,
235                kle.OEC,
236                kle.residual_code,
237                kle.residual_grnty_amount,
238                -- bug 5034519
239                kle.start_date,
240                --Bug# 4631549
241                kle.expected_asset_cost
242         FROM OKL_K_LINES_FULL_V kle,
243              OKC_LINE_STYLES_B ls,
244 	     OKC_STATUSES_B sts
245         WHERE kle.lse_id = ls.id
246               AND ls.lty_code = ltycode
247               AND kle.dnz_chr_id = chrid
248 	      AND sts.code = kle.sts_code
249 	      AND sts.ste_code not in ( 'HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED');
250 
251    cursor l_subline_csr( kleId  NUMBER) is
252    select cim.object1_id1,
253           cim.number_of_items,
254 	  kle.name
255    from okl_k_lines_full_v kle,
256         OKC_LINE_STYLES_B LS,
257         okc_k_items cim,
258         okl_k_lines_full_v kle1
259    where LS.ID = KLE.LSE_ID
260        and ls.lty_code = 'ITEM'
261        and kle.id = cim.cle_id
262        and kle.id = kle1.id
263        and kle1.cle_id = (select cim.object1_id1
264                           from okl_k_lines_full_v kle,
265                                OKC_LINE_STYLES_B LS,
266                                okc_k_items cim
267                           where LS.ID = KLE.LSE_ID
268                               and ls.lty_code = 'LINK_SERV_ASSET'
269                               and kle.id = cim.cle_id
270                               and kle.id = kleId);
271 
272     Cursor l_svcline_csr( kleId NUMBER) is
273     select okx.inventory_item_id,
274            okx.quantity
275     from  csi_item_instances okx,
276           okc_k_lines_b kle,
277           OKC_LINE_STYLES_B LS,
278           okc_k_items cim
279     where okx.instance_ID = cim.object1_id1
280 	 and  LS.ID = KLE.LSE_ID
281          and ls.lty_code = 'COVER_PROD'
282          and kle.id = cim.cle_id
283          and kle.id = kleId;
284 
285 
286      cursor l_txl_csr( kleid NUMBER ) is
287      select txl.life_in_months,
288            txl.deprn_method,
289            txl.in_service_date,
290            txl.salvage_value,
291            txl.percent_salvage_value,
292            txl.depreciation_cost,
293            txl.fa_location_id,
294            txl.deprn_rate,
295            --Bug# 4103361:
296            txl.corporate_book,
297            txl.depreciation_id
298     from okl_txl_assets_b txl
299     where txl.kle_id = kleid;
300 
301      cursor l_txd_csr( kleid NUMBER ) is
302      select txd.cost,
303            txd.deprn_method_tax,
304            --bug# 4103361
305            txd.tax_book
306     from okl_txd_assets_v txd,
307          okl_txl_assets_b txl
308     where txd.tal_id = txl.id
309         and txl.kle_id = kleid;
310 
311 
312      Cursor l_struct_csr( chrId NUMBER ) is
313      select distinct(nvl(crl.RULE_INFORMATION5,-1)) structure
314      from   OKC_RULE_GROUPS_B crg,
315             OKC_RULES_B crl
316      where  crl.rgp_id = crg.id
317             and crg.RGD_CODE = 'LALEVL'
318             and crl.RULE_INFORMATION_CATEGORY = 'LASLL'
319             and crg.dnz_chr_id = chrId
320             and crl.RULE_INFORMATION1 is not null;
321 
322      Cursor l_itms_csr( ltycode VARCHAR2, kleId NUMBER, chrId NUMBER ) IS
323      Select cim.object1_id1 FinAssetId,
324             cim.number_of_items number_of_items
325      From okc_K_items cim,
326 	  okl_K_lines_full_v kle,
327 	  okc_line_styles_b lse
328      Where kle.lse_id = lse.id
329 	and lse.lty_code = ltycode
330         and cim.jtot_object1_code = 'OKX_COVASST'
331         and cim.cle_id = kle.id
332 	and kle.cle_id = kleId
333         and kle.dnz_chr_id = chrId;
334 
335 
336     cursor fee_strm_type_csr ( kleid NUMBER,
337                                linestyle VARCHAR2 ) is
338     select tl.name strm_name,
339            sty.capitalize_yn capitalize_yn,
340            kle.id   line_id,
341            sty.id   styp_id,
342            sty.stream_type_class stream_type_class
343     from okl_strm_type_tl tl,
344          okl_strm_type_v sty,
345          okc_k_items cim,
346          okl_k_lines_full_v kle,
347          okc_line_styles_b ls
348     where tl.id = sty.id
349          and tl.language = USERENV('LANG')
350          and cim.cle_id = kle.id
351          and ls.id = kle.lse_id
352          and ls.lty_code = 'FEE'
353          and cim.object1_id1 = sty.id
354          and cim.object1_id2 = '#'
355          and kle.id = kleid;
356 
357 --Bug#3931587
358     cursor strm_name_csr ( styid NUMBER ) is
359         select tl.name name,
360            stm.stream_type_purpose,
361            stm.stream_type_class stream_type_class,
362            tl.description ALLOC_BASIS,
363            stm.capitalize_yn capitalize_yn,
364            stm.periodic_yn  periodic_yn
365     from okl_strm_type_b stm,
366          OKL_STRM_TYPE_TL tl
367     where tl.id = stm.id
368          and tl.language = USERENV('LANG')
369          and stm.id = styid;
370 
371    --cursor to check usage line instance quantities
372    Cursor asst_qty_csr (FinAsstid NUMBER) is
373    select cim.number_of_items,
374           fa.id fa_id
375    from   okc_k_items cim,
376           okc_k_lines_b fa,
377           okc_line_styles_b fa_lse
378    where  cim.cle_id = fa.id
379      and    cim.dnz_chr_id = fa.dnz_chr_id
380      and    fa.lse_id      = fa_lse.id
381      and    fa_lse.lty_code = 'FIXED_ASSET'
382      and    fa.cle_id = FinAsstId;
383 
384 
385    Cursor ib_qty_csr (FinAsstid NUMBER) is
386    select  count(inst.id)
387    from    okc_k_lines_b inst,
388            okc_line_styles_b inst_lse
389    where   inst.cle_id = FinAsstId
390        and     inst.lse_id = inst_lse.id
391        and     inst_lse.lty_code = 'FREE_FORM2';
392 
393    Cursor cust_csr ( rleCode VARCHAR2, chrId NUMBER ) IS
394    Select object1_id1
395    From OKC_K_PARTY_ROLES_B
396    Where dnz_chr_id = chrId
397       and rle_code = rleCode;
398 
399    Cursor index_csr( idxId NUMBER ) IS
400    Select a.name,
401           b.datetime_valid
402    from okl_indices a,
403         okl_index_values b
404    where a.id = b.idx_id
405       and a.id = idxId
406    order by b.datetime_valid;
407 
408 
409    Cursor cust_site_csr( siteId NUMBER, accntId NUMBER, rleCode VARCHAR2 ) IS
410    Select 'Y' isThere
411    From dual
412    where Exists (
413        Select a.cust_acct_site_id
414        From   HZ_CUST_SITE_USES_ALL  a,
415               HZ_CUST_ACCT_SITES_ALL b
416        Where b.cust_acct_site_id = a.cust_acct_site_id
417            and a.site_use_id = siteId
418 	   and a.site_use_code = rleCode
419 	   and b.cust_account_id = accntId);
420 
421    Cursor fnd_csr( fndType VARCHAR2, fndCode VARCHAR2 ) IS
422    Select meaning,
423           description
424    From  fnd_lookups
425    Where lookup_type = fndType
426        and lookup_code = fndCode;
427 
428  -- rviriyal bug 5982201 start
429    cursor contract_dtls(chrId Number) is
430        select start_date, end_date
431        from okc_k_headers_b
432        where id =chrId;
433 
434    cursor vend_dtls(OBJECT1_ID1 NUMBER) is
435        select START_DATE_ACTIVE, END_DATE_ACTIVE, NAME
436        from okx_vendors_v
437        where ID1 = OBJECT1_ID1;
438 
439    Cursor party_id_csr (role_code varchar2, chrId NUMBER ) IS
440       Select distinct OBJECT1_ID1
441       From OKC_K_PARTY_ROLES_B
442       Where dnz_chr_id = chrId
443          and rle_code = role_code;
444 
445    --rviriyal bug 5982201 end
446 
447 
448 
449   PROCEDURE check_variable_rate(
450     x_return_status            OUT NOCOPY VARCHAR2,
451     p_chr_id                   IN  NUMBER);
452 
453   PROCEDURE check_prefunding_status(
454     x_return_status            OUT NOCOPY VARCHAR2,
455     p_chr_id                   IN  NUMBER);
456 
457   PROCEDURE check_advanced_rentals(
458     x_return_status            OUT NOCOPY VARCHAR2,
459     p_chr_id                   IN  NUMBER);
460 
461 
462   PROCEDURE check_fee_lines(
463     x_return_status            OUT NOCOPY VARCHAR2,
464     p_chr_id                   IN  NUMBER);
465 
466 
467   PROCEDURE check_rule_constraints(
468     x_return_status            OUT NOCOPY VARCHAR2,
469     p_chr_id                   IN  NUMBER);
470 
471   PROCEDURE check_functional_constraints(
472     x_return_status            OUT NOCOPY VARCHAR2,
473     p_chr_id                   IN  NUMBER);
474 
475   PROCEDURE check_acceptance_date(
476     x_return_status            OUT NOCOPY VARCHAR2,
477     p_chr_id                   IN  NUMBER);
478 
479   PROCEDURE check_pmnt_start_dt(
480     x_return_status            OUT NOCOPY VARCHAR2,
481     p_chr_id                   IN  NUMBER);
482 
483   PROCEDURE check_srvc_amnt(
484     x_return_status            OUT NOCOPY VARCHAR2,
485     p_chr_id                   IN  NUMBER);
486 
487   PROCEDURE check_service_lines(
488     x_return_status            OUT NOCOPY VARCHAR2,
489     p_chr_id                   IN  NUMBER);
490 
491   PROCEDURE check_cov_service_lines(
492     x_return_status            OUT NOCOPY VARCHAR2,
493     p_chr_id                   IN  NUMBER);
494 
495   PROCEDURE check_service_line_hdr(
496     x_return_status            OUT NOCOPY VARCHAR2,
497     p_chr_id                   IN  NUMBER);
498 
499   PROCEDURE check_fee_service_payment(
500     x_return_status            OUT NOCOPY VARCHAR2,
501     p_chr_id                   IN  NUMBER);
502 
503   PROCEDURE check_tax_book_cost(
504     x_return_status            OUT NOCOPY VARCHAR2,
505     p_chr_id                   IN  NUMBER);
506 
507   PROCEDURE check_capital_fee(
508     x_return_status            OUT NOCOPY VARCHAR2,
509     p_chr_id                   IN  NUMBER);
510 
511   PROCEDURE check_asset_tax(
512     x_return_status            OUT NOCOPY VARCHAR2,
513     p_chr_id                   IN  NUMBER);
514 
515   PROCEDURE check_subsidies(
516     x_return_status            OUT NOCOPY VARCHAR2,
517     p_chr_id                   IN  NUMBER);
518 
519   PROCEDURE check_subsidies_errors(
520     x_return_status            OUT NOCOPY VARCHAR2,
521     p_chr_id                   IN  NUMBER);
522 
523   PROCEDURE check_credit_line(
524     x_return_status            OUT NOCOPY VARCHAR2,
525     p_chr_id                   IN  NUMBER);
526 
527   PROCEDURE check_invoice_format(
528     x_return_status            OUT NOCOPY VARCHAR2,
529     p_chr_id                   IN  NUMBER);
530 
531   PROCEDURE check_tax_book_mapping(
532     x_return_status            OUT NOCOPY VARCHAR2,
533     p_chr_id                   IN  NUMBER);
534 
535   --Bug# 3504680
536   PROCEDURE check_sales_type_lease(
537     x_return_status            OUT NOCOPY VARCHAR2,
538     p_chr_id                   IN  NUMBER);
539 
540   -- Bug 3325126
541   PROCEDURE check_payment_struct(
542     x_return_status            OUT NOCOPY VARCHAR2,
543     p_chr_id                   IN  NUMBER);
544 
545   -- Bug 4017608
546   PROCEDURE check_rollover_lines(
547     x_return_status            OUT NOCOPY VARCHAR2,
548     p_chr_id                   IN NUMBER);
549 
550   -- Bug 3670104
551   PROCEDURE check_contract_dt_signed(
552     x_return_status            OUT NOCOPY VARCHAR2,
553     p_chr_id                   IN NUMBER);
554 
555   -- Bug 4186455
556   PROCEDURE check_residual_value(
557     x_return_status            OUT NOCOPY VARCHAR2,
558     p_chr_id                   IN NUMBER);
559 
560   -- Bug 4670841
561   PROCEDURE check_purchase_option(
562     x_return_status            OUT NOCOPY VARCHAR2,
563     p_chr_id                   IN NUMBER);
564 
565   --Bug# 4899328
566   PROCEDURE check_asset_deprn_cost(
567     x_return_status            OUT NOCOPY VARCHAR2,
568     p_chr_id                   IN  NUMBER
569   );
570 
571   -- Bug 5032883
572   PROCEDURE check_late_int_date(
573     x_return_status            OUT NOCOPY VARCHAR2,
574     p_chr_id                   IN  NUMBER
575   );
576 
577   -- Bug 5032883
578   PROCEDURE check_late_charge_date(
579     x_return_status            OUT NOCOPY VARCHAR2,
580     p_chr_id                   IN  NUMBER
581   );
582    --akrangan bug 5362977 start
583 PROCEDURE check_asset_category(	x_return_status            OUT NOCOPY VARCHAR2,
584 				p_chr_id                   IN NUMBER);
585  --akrangan bug 5362977 end
586 
587   -- rviriyal bug 5982201 start
588      procedure check_vendor_active(
589        x_return_status             OUT NOCOPY VARCHAR2,
590        p_chr_id                    IN NUMBER
591      );
592       procedure check_vendor_end_date(
593        x_return_status             OUT NOCOPY VARCHAR2,
594        p_chr_id                    IN NUMBER
595      );
596      procedure check_cust_active(
597        x_return_status             OUT NOCOPY VARCHAR2,
598        p_chr_id                    IN NUMBER
599      );
600 
601    -- rviriyal bug 5982201 end
602         --Bug# 6711559 -- start
603   PROCEDURE check_book_class_cmptblty(
604     x_return_status            OUT NOCOPY VARCHAR2,
605     p_chr_id                   IN  NUMBER
606   );
607    --Bug# 6711559 -- end
608 
609 
610 END OKL_QA_DATA_INTEGRITY;