DBA Data[Home] [Help]

PACKAGE: APPS.OKL_QA_DATA_INTEGRITY

Source


1 PACKAGE OKL_QA_DATA_INTEGRITY AUTHID CURRENT_USER AS
2 /* $Header: OKLRQADS.pls 120.29.12020000.2 2012/08/07 13:41:57 rpillay ship $ */
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     --Bug# 8652738
98     -- Modified cursor to only fetch contract header level rules
99     cursor l_hdrrl_csr( rgcode OKC_RULE_GROUPS_B.RGD_CODE%TYPE,
100                        rlcat  OKC_RULES_B.RULE_INFORMATION_CATEGORY%TYPE,
101                        chrId NUMBER) IS
102     select crl.object1_id1,
103            crl.RULE_INFORMATION1,
104            crl.RULE_INFORMATION2,
105            crl.RULE_INFORMATION3,
106            crl.RULE_INFORMATION4,
107            crl.RULE_INFORMATION5,
108            crl.RULE_INFORMATION6,
109            crl.RULE_INFORMATION7,
110            crl.RULE_INFORMATION10,
111            crl.RULE_INFORMATION11
112     from   OKC_RULE_GROUPS_B crg,
113            OKC_RULES_B crl
114     where  crl.rgp_id = crg.id
115            and crg.RGD_CODE = rgcode
116            and crl.RULE_INFORMATION_CATEGORY = rlcat
117            and crg.chr_id = chrId;
118 
119     cursor l_oksrl_csr(rlcat  OKC_RULES_B.RULE_INFORMATION_CATEGORY%TYPE,
120                        chrId NUMBER,
121 		       cleId NUMBER) IS
122     select crl.object1_id1,
123            crl.RULE_INFORMATION1,
124            crl.RULE_INFORMATION2,
125            crl.RULE_INFORMATION3,
126            crl.RULE_INFORMATION4,
127            crl.RULE_INFORMATION5,
128            crl.RULE_INFORMATION6,
129            crl.RULE_INFORMATION7,
130            crl.RULE_INFORMATION10,
131            crl.RULE_INFORMATION11
132     from   OKC_RULE_GROUPS_B crg,
133            OKC_RULES_B crl
134     where  crl.rgp_id = crg.id
135            and crl.RULE_INFORMATION_CATEGORY = rlcat
136            and crg.dnz_chr_id = chrId
137 	   and nvl(crg.cle_id, -1) = cleId;
138 
139     Cursor supp_csr ( faid VARCHAR2 ) IS
140     Select inv.date_invoiced
141     From okl_supp_invoice_dtls inv
142     Where inv.fa_cle_id = faid;
143 
144     --Bug#3877032
145     CURSOR l_hdr_csr(chrid OKL_K_HEADERS.KHR_ID%TYPE) IS
146         SELECT chr.SCS_CODE,
147                chr.START_DATE,
148                chr.DATE_SIGNED,
149                chr.CURRENCY_CODE,
150                chr.TEMPLATE_YN,
151                chr.contract_number,
152                khr.accepted_date,
153                khr.syndicatable_yn,
154                khr.DEAL_TYPE,
155                khr.term_duration term,
156 	       nvl(pdt.reporting_pdt_id, -1) report_pdt_id
157         FROM OKC_K_HEADERS_B chr,
158 	     OKL_K_HEADERS khr,
159 	     OKL_PRODUCTS_V pdt
160         WHERE chr.id = chrid
161            AND chr.id = khr.id
162 	   --AND khr.pdt_id = pdt.id(+);
163 	   AND khr.pdt_id = pdt.id;
164 
165     CURSOR l_line_name ( n VARCHAR2 ) IS
166     Select count(*) cnt
167         FROM OKL_K_LINES_FULL_V kle,
168              OKC_LINE_STYLES_B ls
169         WHERE kle.lse_id = ls.id
170               AND ls.lty_code = 'FREE_FORM1'
171               AND kle.name = n;
172     l_ln l_line_name%ROWTYPE;
173 
174     CURSOR l_topsvclne_csr(ltycode VARCHAR2, chrid OKL_K_HEADERS.KHR_ID%TYPE, lineId NUMBER) IS
175         SELECT cle.id,
176 	       sub_kle.price_negotiated amount
177         FROM OKC_K_LINES_B cle,
178              OKC_K_LINES_B sub_kle,
179              OKC_LINE_STYLES_B ls,
180 	     OKC_STATUSES_B sts
181         WHERE cle.lse_id = ls.id
182               AND ls.lty_code = ltycode
183               AND cle.dnz_chr_id = chrid
184 	      AND sts.code = cle.sts_code
185 	      AND sub_kle.id = lineId
186 	      AND cle.id = sub_kle.cle_id
187 	      AND sts.ste_code not in ( 'HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED');
188 
189     CURSOR l_svclne_csr(ltycode VARCHAR2, chrid OKL_K_HEADERS.KHR_ID%TYPE) IS
190         SELECT cle.id,
191 	       cle.price_negotiated amount
192         FROM OKC_K_LINES_B cle,
193              OKC_LINE_STYLES_B ls,
194 	     OKC_STATUSES_B sts
195         WHERE cle.lse_id = ls.id
196               AND ls.lty_code = ltycode
197               AND cle.dnz_chr_id = chrid
198 	      AND sts.code = cle.sts_code
199 	      AND sts.ste_code not in ( 'HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED');
200 
201     CURSOR l_toplne_csr(ltycode VARCHAR2, chrid OKL_K_HEADERS.KHR_ID%TYPE, lineId NUMBER) IS
202         SELECT kle.name,
203                kle.CURRENCY_CODE,
204                kle.id,
205                kle.RESIDUAL_VALUE,
206                kle.TRACKED_RESIDUAL,
207                kle.CAPITAL_REDUCTION,
208                kle.TRADEIN_AMOUNT,
209                kle.RVI_PREMIUM,
210                kle.OEC,
211                kle.residual_code,
212                kle.residual_grnty_amount,
213 	       sub_kle.capital_amount amount,
214                sub_kle.line_number
215         FROM OKL_K_LINES_FULL_V kle,
216              OKL_K_LINES_FULL_V sub_kle,
217              OKC_LINE_STYLES_B ls,
218 	     OKC_STATUSES_B sts
219         WHERE kle.lse_id = ls.id
220               AND ls.lty_code = ltycode
221               AND kle.dnz_chr_id = chrid
222 	      AND sts.code = kle.sts_code
223 	      AND sub_kle.id = lineId
224 	      AND kle.id = sub_kle.cle_id
225 	      AND sts.ste_code not in ( 'HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED');
226 
227     CURSOR l_lne_csr(ltycode VARCHAR2, chrid OKL_K_HEADERS.KHR_ID%TYPE) IS
228         SELECT kle.name,
229 	             kle.amount,
230                kle.CURRENCY_CODE,
231                kle.id,
232                kle.RESIDUAL_VALUE,
233                kle.TRACKED_RESIDUAL,
234                kle.CAPITAL_REDUCTION,
235                kle.TRADEIN_AMOUNT,
236                kle.RVI_PREMIUM,
237                kle.OEC,
238                kle.residual_code,
239                kle.residual_grnty_amount,
240                -- bug 5034519
241                kle.start_date,
242                --Bug# 4631549
243                kle.expected_asset_cost
244         FROM OKL_K_LINES_FULL_V kle,
245              OKC_LINE_STYLES_B ls,
246 	     OKC_STATUSES_B sts
247         WHERE kle.lse_id = ls.id
248               AND ls.lty_code = ltycode
249               AND kle.dnz_chr_id = chrid
250 	      AND sts.code = kle.sts_code
251 	      AND sts.ste_code not in ( 'HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED');
252 
253    cursor l_subline_csr( kleId  NUMBER) is
254    select cim.object1_id1,
255           cim.number_of_items,
256 	  kle.name
257    from okl_k_lines_full_v kle,
258         OKC_LINE_STYLES_B LS,
259         okc_k_items cim,
260         okl_k_lines_full_v kle1
261    where LS.ID = KLE.LSE_ID
262        and ls.lty_code = 'ITEM'
263        and kle.id = cim.cle_id
264        and kle.id = kle1.id
265        and kle1.cle_id = (select cim.object1_id1
266                           from okl_k_lines_full_v kle,
267                                OKC_LINE_STYLES_B LS,
268                                okc_k_items cim
269                           where LS.ID = KLE.LSE_ID
270                               and ls.lty_code = 'LINK_SERV_ASSET'
271                               and kle.id = cim.cle_id
272                               and kle.id = kleId);
273 
274     Cursor l_svcline_csr( kleId NUMBER) is
275     select okx.inventory_item_id,
276            okx.quantity
277     from  csi_item_instances okx,
278           okc_k_lines_b kle,
279           OKC_LINE_STYLES_B LS,
280           okc_k_items cim
281     where okx.instance_ID = cim.object1_id1
282 	 and  LS.ID = KLE.LSE_ID
283          and ls.lty_code = 'COVER_PROD'
284          and kle.id = cim.cle_id
285          and kle.id = kleId;
286 
287 
288      cursor l_txl_csr( kleid NUMBER ) is
289      select txl.life_in_months,
290            txl.deprn_method,
291            txl.in_service_date,
292            txl.salvage_value,
293            txl.percent_salvage_value,
294            txl.depreciation_cost,
295            txl.fa_location_id,
296            txl.deprn_rate,
297            --Bug# 4103361:
298            txl.corporate_book,
299            txl.depreciation_id
300     from okl_txl_assets_b txl
301     where txl.kle_id = kleid;
302 
303      cursor l_txd_csr( kleid NUMBER ) is
304      select txd.cost,
305            txd.deprn_method_tax,
306            --bug# 4103361
307            txd.tax_book
308     from okl_txd_assets_v txd,
309          okl_txl_assets_b txl
310     where txd.tal_id = txl.id
311         and txl.kle_id = kleid;
312 
313 
314      Cursor l_struct_csr( chrId NUMBER ) is
315      select distinct(nvl(crl.RULE_INFORMATION5,-1)) structure
316      from   OKC_RULE_GROUPS_B crg,
317             OKC_RULES_B crl
318      where  crl.rgp_id = crg.id
319             and crg.RGD_CODE = 'LALEVL'
320             and crl.RULE_INFORMATION_CATEGORY = 'LASLL'
321             and crg.dnz_chr_id = chrId
322             and crl.RULE_INFORMATION1 is not null;
323 
324      Cursor l_itms_csr( ltycode VARCHAR2, kleId NUMBER, chrId NUMBER ) IS
325      Select cim.object1_id1 FinAssetId,
326             cim.number_of_items number_of_items
327      From okc_K_items cim,
328 	  okl_K_lines_full_v kle,
329 	  okc_line_styles_b lse
330      Where kle.lse_id = lse.id
331 	and lse.lty_code = ltycode
332         and cim.jtot_object1_code = 'OKX_COVASST'
333         and cim.cle_id = kle.id
334 	and kle.cle_id = kleId
335         and kle.dnz_chr_id = chrId;
336 
337 
338     cursor fee_strm_type_csr ( kleid NUMBER,
339                                linestyle VARCHAR2 ) is
340     select tl.name strm_name,
341            sty.capitalize_yn capitalize_yn,
342            kle.id   line_id,
343            sty.id   styp_id,
344            sty.stream_type_class stream_type_class
345     from okl_strm_type_tl tl,
346          okl_strm_type_v sty,
347          okc_k_items cim,
348          okl_k_lines_full_v kle,
349          okc_line_styles_b ls
350     where tl.id = sty.id
351          and tl.language = USERENV('LANG')
352          and cim.cle_id = kle.id
353          and ls.id = kle.lse_id
354          and ls.lty_code = 'FEE'
355          and cim.object1_id1 = sty.id
356          and cim.object1_id2 = '#'
357          and kle.id = kleid;
358 
359 --Bug#3931587
360     cursor strm_name_csr ( styid NUMBER ) is
361         select tl.name name,
362            stm.stream_type_purpose,
363            stm.stream_type_class stream_type_class,
364            tl.description ALLOC_BASIS,
365            stm.capitalize_yn capitalize_yn,
366            stm.periodic_yn  periodic_yn
367     from okl_strm_type_b stm,
368          OKL_STRM_TYPE_TL tl
369     where tl.id = stm.id
370          and tl.language = USERENV('LANG')
371          and stm.id = styid;
372 
373    --cursor to check usage line instance quantities
374    Cursor asst_qty_csr (FinAsstid NUMBER) is
375    select cim.number_of_items,
376           fa.id fa_id
377    from   okc_k_items cim,
378           okc_k_lines_b fa,
379           okc_line_styles_b fa_lse
380    where  cim.cle_id = fa.id
381      and    cim.dnz_chr_id = fa.dnz_chr_id
382      and    fa.lse_id      = fa_lse.id
383      and    fa_lse.lty_code = 'FIXED_ASSET'
384      and    fa.cle_id = FinAsstId;
385 
386 
387    Cursor ib_qty_csr (FinAsstid NUMBER) is
388    select  count(inst.id)
389    from    okc_k_lines_b inst,
390            okc_line_styles_b inst_lse
391    where   inst.cle_id = FinAsstId
392        and     inst.lse_id = inst_lse.id
393        and     inst_lse.lty_code = 'FREE_FORM2';
394 
395    Cursor cust_csr ( rleCode VARCHAR2, chrId NUMBER ) IS
396    Select object1_id1
397    From OKC_K_PARTY_ROLES_B
398    Where dnz_chr_id = chrId
399       and rle_code = rleCode;
400 
401    Cursor index_csr( idxId NUMBER ) IS
402    Select a.name,
403           b.datetime_valid
404    from okl_indices a,
405         okl_index_values b
406    where a.id = b.idx_id
407       and a.id = idxId
408    order by b.datetime_valid;
409 
410 
411    Cursor cust_site_csr( siteId NUMBER, accntId NUMBER, rleCode VARCHAR2 ) IS
412    Select 'Y' isThere
413    From dual
414    where Exists (
415        Select a.cust_acct_site_id
416        From   HZ_CUST_SITE_USES_ALL  a,
417               HZ_CUST_ACCT_SITES_ALL b
418        Where b.cust_acct_site_id = a.cust_acct_site_id
419            and a.site_use_id = siteId
420 	   and a.site_use_code = rleCode
421 	   and b.cust_account_id = accntId);
422 
423    Cursor fnd_csr( fndType VARCHAR2, fndCode VARCHAR2 ) IS
424    Select meaning,
425           description
426    From  fnd_lookups
427    Where lookup_type = fndType
428        and lookup_code = fndCode;
429 
430 --Added by rkuttiya for bug 5716089
431   CURSOR l_payment_strm_csr (p_chr_id number) IS
432 SELECT tl.NAME stream_name, styb.id sty_id,styb.stream_type_purpose, rgpb.cle_id
433 kle_id,
434        rulb2.rule_information2 start_date,rulb2.rule_information3 level_periods,
435        rulb2.rule_information7 stub_days,rulb2.rule_information8 stub_amount,
436        rulb2.rule_information10 arrear_yn
437   FROM okc_k_lines_b cleb,
438        okc_rule_groups_b rgpb,
439        okc_rules_b rulb,
440        okc_rules_b rulb2,
441        okl_strm_type_b styb,
442        okl_strm_type_tl tl
443  WHERE rgpb.chr_id IS NULL
444    AND rgpb.dnz_chr_id = cleb.dnz_chr_id
445    AND rgpb.cle_id = cleb.ID
446    AND cleb.dnz_chr_id = p_chr_id
447    AND rgpb.rgd_code = 'LALEVL'
448    AND rulb.rgp_id = rgpb.ID
449    AND rulb.rule_information_category = 'LASLH'
450    AND TO_CHAR (styb.ID) = rulb.object1_id1
451    AND rulb2.object2_id1 = TO_CHAR (rulb.ID)
452    AND rulb2.rgp_id = rgpb.ID
453    AND rulb2.rule_information_category = 'LASLL'
454    AND tl.ID = styb.ID
455    AND tl.LANGUAGE = 'US';
456 
457    CURSOR l_product_csr (p_chr_id number) IS
458 SELECT khr.pdt_id, khr.start_date, prod.reporting_pdt_id
459   FROM okl_products prod, okl_k_headers_full_v khr
460  WHERE khr.ID = p_chr_id AND prod.ID = khr.pdt_id;
461 
462 
463 CURSOR l_rep_strm_csr (rep_pdt_id number,styid number,primary_sty_purpose
464 varchar2,contract_start_date date ) IS
465 SELECT primary_sty_id
466   FROM okl_strm_tmpt_lines_uv stl
467  WHERE stl.primary_yn = 'Y'
468    AND stl.pdt_id = rep_pdt_id
469    AND (stl.start_date <= contract_start_date)
470    AND (stl.end_date >= contract_start_date OR stl.end_date IS NULL)
471    AND primary_sty_purpose = primary_sty_purpose
472    AND primary_sty_id = styid;
473 
474 -- rkuttiya end changes for BUG # 5716089
475 
476  -- rviriyal bug 5982201 start
477    cursor contract_dtls(chrId Number) is
478        select start_date, end_date
479        from okc_k_headers_b
480        where id =chrId;
481 
482    cursor vend_dtls(OBJECT1_ID1 NUMBER) is
483        select START_DATE_ACTIVE, END_DATE_ACTIVE, NAME
484        from okx_vendors_v
485        where ID1 = OBJECT1_ID1;
486 
487    Cursor party_id_csr (role_code varchar2, chrId NUMBER ) IS
488       Select distinct OBJECT1_ID1
489       From OKC_K_PARTY_ROLES_B
490       Where dnz_chr_id = chrId
491          and rle_code = role_code;
492 
493    --rviriyal bug 5982201 end
494 
495 
496 
497   PROCEDURE check_variable_rate(
498     x_return_status            OUT NOCOPY VARCHAR2,
499     p_chr_id                   IN  NUMBER);
500 
501   PROCEDURE check_prefunding_status(
502     x_return_status            OUT NOCOPY VARCHAR2,
503     p_chr_id                   IN  NUMBER);
504 
505   PROCEDURE check_advanced_rentals(
506     x_return_status            OUT NOCOPY VARCHAR2,
507     p_chr_id                   IN  NUMBER);
508 
509 
510   PROCEDURE check_fee_lines(
511     x_return_status            OUT NOCOPY VARCHAR2,
512     p_chr_id                   IN  NUMBER);
513 
514 
515   PROCEDURE check_rule_constraints(
516     x_return_status            OUT NOCOPY VARCHAR2,
517     p_chr_id                   IN  NUMBER);
518 
519   PROCEDURE check_functional_constraints(
520     x_return_status            OUT NOCOPY VARCHAR2,
521     p_chr_id                   IN  NUMBER);
522 
523   PROCEDURE check_acceptance_date(
524     x_return_status            OUT NOCOPY VARCHAR2,
525     p_chr_id                   IN  NUMBER);
526 
527   PROCEDURE check_pmnt_start_dt(
528     x_return_status            OUT NOCOPY VARCHAR2,
529     p_chr_id                   IN  NUMBER);
530 
531   PROCEDURE check_srvc_amnt(
532     x_return_status            OUT NOCOPY VARCHAR2,
533     p_chr_id                   IN  NUMBER);
534 
535   PROCEDURE check_service_lines(
536     x_return_status            OUT NOCOPY VARCHAR2,
537     p_chr_id                   IN  NUMBER);
538 
539   PROCEDURE check_cov_service_lines(
540     x_return_status            OUT NOCOPY VARCHAR2,
541     p_chr_id                   IN  NUMBER);
542 
543   PROCEDURE check_service_line_hdr(
544     x_return_status            OUT NOCOPY VARCHAR2,
545     p_chr_id                   IN  NUMBER);
546 
547   PROCEDURE check_fee_service_payment(
548     x_return_status            OUT NOCOPY VARCHAR2,
549     p_chr_id                   IN  NUMBER);
550 
551   PROCEDURE check_tax_book_cost(
552     x_return_status            OUT NOCOPY VARCHAR2,
553     p_chr_id                   IN  NUMBER);
554 
555   PROCEDURE check_capital_fee(
556     x_return_status            OUT NOCOPY VARCHAR2,
557     p_chr_id                   IN  NUMBER);
558 
559   PROCEDURE check_asset_tax(
560     x_return_status            OUT NOCOPY VARCHAR2,
561     p_chr_id                   IN  NUMBER);
562 
563   PROCEDURE check_subsidies(
564     x_return_status            OUT NOCOPY VARCHAR2,
565     p_chr_id                   IN  NUMBER);
566 
567   PROCEDURE check_subsidies_errors(
568     x_return_status            OUT NOCOPY VARCHAR2,
569     p_chr_id                   IN  NUMBER);
570 
571   PROCEDURE check_credit_line(
572     x_return_status            OUT NOCOPY VARCHAR2,
573     p_chr_id                   IN  NUMBER);
574 
575   PROCEDURE check_invoice_format(
576     x_return_status            OUT NOCOPY VARCHAR2,
577     p_chr_id                   IN  NUMBER);
578 
579   PROCEDURE check_tax_book_mapping(
580     x_return_status            OUT NOCOPY VARCHAR2,
581     p_chr_id                   IN  NUMBER);
582 
583   --Bug# 3504680
584   PROCEDURE check_sales_type_lease(
585     x_return_status            OUT NOCOPY VARCHAR2,
586     p_chr_id                   IN  NUMBER);
587 
588   -- Bug 3325126
589   PROCEDURE check_payment_struct(
590     x_return_status            OUT NOCOPY VARCHAR2,
591     p_chr_id                   IN  NUMBER);
592 
593   -- Bug 4017608
594   PROCEDURE check_rollover_lines(
595     x_return_status            OUT NOCOPY VARCHAR2,
596     p_chr_id                   IN NUMBER);
597 
598   -- Bug 3670104
599   PROCEDURE check_contract_dt_signed(
600     x_return_status            OUT NOCOPY VARCHAR2,
601     p_chr_id                   IN NUMBER);
602 
603   -- Bug 4186455
604   PROCEDURE check_residual_value(
605     x_return_status            OUT NOCOPY VARCHAR2,
606     p_chr_id                   IN NUMBER);
607 
608   -- Bug 4670841
609   PROCEDURE check_purchase_option(
610     x_return_status            OUT NOCOPY VARCHAR2,
611     p_chr_id                   IN NUMBER);
612 
613   --Bug# 4899328
614   PROCEDURE check_asset_deprn_cost(
615     x_return_status            OUT NOCOPY VARCHAR2,
616     p_chr_id                   IN  NUMBER
617   );
618 
619   -- Bug 5032883
620   PROCEDURE check_late_int_date(
621     x_return_status            OUT NOCOPY VARCHAR2,
622     p_chr_id                   IN  NUMBER
623   );
624 
625   -- Bug 5032883
626   PROCEDURE check_late_charge_date(
627     x_return_status            OUT NOCOPY VARCHAR2,
628     p_chr_id                   IN  NUMBER
629   );
630 
631 --added bu rkuttiya for bug #5716089
632    PROCEDURE check_reporting_pdt_strm(
633     x_return_status            OUT NOCOPY VARCHAR2,
634     p_chr_id                   IN  NUMBER
635   );
636 --
637 
638    --akrangan bug 5362977 start
639 PROCEDURE check_asset_category(	x_return_status            OUT NOCOPY VARCHAR2,
640 				p_chr_id                   IN NUMBER);
641  --akrangan bug 5362977 end
642 
643   -- rviriyal bug 5982201 start
644      procedure check_vendor_active(
645        x_return_status             OUT NOCOPY VARCHAR2,
646        p_chr_id                    IN NUMBER
647      );
648       procedure check_vendor_end_date(
649        x_return_status             OUT NOCOPY VARCHAR2,
650        p_chr_id                    IN NUMBER
651      );
652      procedure check_cust_active(
653        x_return_status             OUT NOCOPY VARCHAR2,
654        p_chr_id                    IN NUMBER
655      );
656 
657    -- rviriyal bug 5982201 end
658         --Bug# 6711559 -- start
659   PROCEDURE check_book_class_cmptblty(
660     x_return_status            OUT NOCOPY VARCHAR2,
661     p_chr_id                   IN  NUMBER
662   );
663    --Bug# 6711559 -- end
664 
665   -- Bug 8652738
666   PROCEDURE check_exp_delivery_date(
667     x_return_status            OUT NOCOPY VARCHAR2,
668     p_chr_id                   IN  NUMBER
669   );
670 
671   -- Bug# 5690875
672   PROCEDURE check_pre_funding(
673     x_return_status            OUT NOCOPY VARCHAR2,
674     p_chr_id                   IN  NUMBER
675   );
676 
677   -- Bug# 9690217
678   PROCEDURE check_loan_payment(
679     x_return_status            OUT NOCOPY VARCHAR2,
680     p_chr_id                   IN  NUMBER
681   );
682 
683   -- Bug 11787205
684   PROCEDURE check_fee_evergreen_bill(
685     x_return_status            OUT NOCOPY VARCHAR2,
686 	p_chr_id                   IN  NUMBER
687   );
688 
689   -- Bug# 12807203
690   PROCEDURE check_rbk_financed_cost(
691     x_return_status            OUT NOCOPY VARCHAR2,
692     p_chr_id                   IN  NUMBER,
693     p_upfront_tax_fee_yn       IN  VARCHAR2 DEFAULT 'N'
694   );
695 
696   -- Bug# 12807203
697   PROCEDURE check_rbk_pymt_structure(
698     x_return_status            OUT NOCOPY VARCHAR2,
699     p_chr_id                   IN  NUMBER,
700     p_upfront_tax_fee_yn       IN  VARCHAR2 DEFAULT 'N'
701   );
702 
703   -- Bug# 12807203
704   PROCEDURE check_exp_dlvry_fund_date(
705     x_return_status            OUT NOCOPY VARCHAR2,
706     p_chr_id                   IN  NUMBER
707   );
708 
709   --Bug# 13243190
710   PROCEDURE check_zero_asset_cost(
711     x_return_status            OUT NOCOPY VARCHAR2,
712     p_chr_id                   IN  NUMBER
713   );
714 
715   --Bug# 13478101
716   PROCEDURE check_interest_start_date(
717     x_return_status            OUT NOCOPY VARCHAR2,
718     p_chr_id                   IN  NUMBER
719   );
720 
721 END OKL_QA_DATA_INTEGRITY;