[Home] [Help]
PACKAGE: APPS.JAI_RCV_RND_PKG
Source
1 PACKAGE jai_rcv_rnd_pkg AS
2 /* $Header: jai_rcv_rnd.pls 120.2 2007/04/19 06:50:28 bgowrava ship $ */
3 gb_debug CONSTANT BOOLEAN := true;
4 LV_RG23_REGISTER CONSTANT VARCHAR2(10) := 'RG23';
5 LV_PLA_REGISTER CONSTANT VARCHAR2(10) := 'PLA';
6
7 -- this cursor gives the no of ITEM_CLASSes present in an excise invoice
8 CURSOR c_cgin_chk_for_2nd_claim(p_shipment_header_id IN NUMBER,
9 p_excise_invoice_no in varchar2, p_excise_invoice_date in date,
10 p_vendor_id IN NUMBER,p_vendor_site_id IN NUMBER) IS
11 SELECT
12 nvl(sum(decode(cenvat_claimed_ptg, 100, 1, 0)), 0) cent_percent_cnt,
13 nvl(sum(decode(cenvat_claimed_ptg, 50, 1, 0)),0) fifty_percent_cnt,
14 nvl(sum(decode(cenvat_claimed_ptg, 0, 1, 0)),0) zero_percent_cnt,
15 count(1) tot_cnt
16 FROM JAI_RCV_LINES a, JAI_RCV_CENVAT_CLAIMS b, rcv_transactions c /*bgowrava for forward porting bug#5674376*/
17 WHERE a.shipment_line_id = b.shipment_line_id
18 AND a.excise_invoice_no = p_excise_invoice_no
19 AND a.excise_invoice_date = p_excise_invoice_date
20 AND a.shipment_header_id = p_shipment_header_id
21 AND ( (nvl(b.vendor_id,-999) = nvl(p_vendor_id,-999)
22 AND nvl(b.vendor_site_id,-999) = nvl(p_vendor_site_id,-999)
23 AND b.vendor_changed_flag = 'Y' )
24 OR (nvl(c.vendor_id,-999) = nvl(p_vendor_id,-999)
25 AND nvl(c.vendor_site_id,-999) = nvl(p_vendor_site_id,-999)
26 AND b.vendor_changed_flag = 'N' ) ); /*bgowrava for forward porting bug#5674376*/
27
28 CURSOR c_full_cgin_chk(cp_shipment_header_id IN NUMBER, cp_excise_invoice_no IN VARCHAR2,
29 cp_excise_invoice_date IN DATE,cp_vendor_id IN NUMBER ,
30 cp_vendor_site_id IN NUMBER) IS
31 SELECT nvl(sum(decode(c.item_class, 'CGIN', 1, 0)), 0) cgin_cnt, count(1) total_cnt
32 FROM JAI_RCV_LINES a, JAI_RCV_CENVAT_CLAIMS b,/*bgowrava for forward porting bug#5674376*/
33 JAI_INV_ITM_SETUPS c, RCV_TRANSACTIONS d /*bgowrava for forward porting bug#5674376*/
34 WHERE a.shipment_header_id = cp_shipment_header_id
35 AND b.transaction_id = d.transaction_id /*bgowrava for forward porting bug#5674376*/
36 AND a.transaction_id = b.transaction_id /*bgowrava for forward porting bug#5674376*/
37 AND a.organization_id = c.organization_id
38 AND a.inventory_item_id = c.inventory_item_id
39 AND a.excise_invoice_no = cp_excise_invoice_no
40 AND a.excise_invoice_date = cp_excise_invoice_date
41 AND ( (nvl(b.vendor_id,-999) = nvl(cp_vendor_id,-999)
42 AND nvl(b.vendor_site_id,-999) = nvl(cp_vendor_site_id,-999)
43 AND b.vendor_changed_flag = 'Y' )
44 OR (nvl(d.vendor_id,-999) = nvl(cp_vendor_id,-999)
45 AND nvl(d.vendor_site_id,-999) = nvl(cp_vendor_site_id,-999)
46 AND b.vendor_changed_flag = 'N' ) );/*bgowrava for forward porting bug#5674376*/
47
48 PROCEDURE do_rounding(
49 p_err_buf OUT NOCOPY VARCHAR2,
50 p_ret_code OUT NOCOPY NUMBER,
51 P_ORGANIZATION_ID IN NUMBER,
52 P_TRANSACTION_TYPE IN VARCHAR2,
53 P_REGISTER_TYPE IN VARCHAR2,
54 PV_EX_INVOICE_FROM_DATE IN VARCHAR2, /* rallamse bug#4336482 changed to VARCHAR2 from DATE */
55 PV_EX_INVOICE_TO_DATE IN VARCHAR2 /* rallamse bug#4336482 changed to VARCHAR2 from DATE */
56 );
57
58 FUNCTION get_parent_register_id(
59 p_register_id IN NUMBER
60 ) RETURN NUMBER;
61
62 PROCEDURE pass_accounting(
63 p_organization_id number,
64 p_transaction_id number,
65 p_transaction_date date,
66 p_shipment_line_id number,
67 p_acct_type varchar2,
68 p_acct_nature varchar2,
69 p_source varchar2,
70 p_category varchar2,
71 p_code_combination_id number,
72 p_entered_dr number,
73 p_entered_cr number,
74 p_created_by number,
75 p_currency_code varchar2,
76 p_currency_conversion_type varchar2,
77 p_currency_conversion_date varchar2,
78 p_currency_conversion_rate varchar2,
79 p_receipt_num varchar2
80 );
81
82 PROCEDURE do_rtv_rounding(
83 p_organization_id in number,
84 p_transaction_type in varchar2,
85 p_register_type in varchar2,
86 p_ex_invoice_from_date in date,
87 p_ex_invoice_to_date in date
88 );
89
90 END jai_rcv_rnd_pkg;