DBA Data[Home] [Help]

PACKAGE: APPS.JAI_RCV_TRX_PROCESSING_PKG

Source


1 PACKAGE jai_rcv_trx_processing_pkg AUTHID CURRENT_USER AS
2 /* $Header: jai_rcv_trx_prc.pls 120.11 2012/05/23 09:45:13 zxin ship $ */
3 
4   gv_func_curr CONSTANT  VARCHAR2(3) := 'INR';
5   lb_debug      CONSTANT BOOLEAN     := TRUE;
6   lv_debug      CONSTANT VARCHAR2(1)     := 'Y';
7 
8   /* Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. */
9   INDIA_RMA_RECEIPT  CONSTANT           VARCHAR2(30) := 'India RMA Receipt';
10   INDIA_RECEIPT      CONSTANT           VARCHAR2(30) := 'India Receipt';
11   SOURCE_RMA         CONSTANT           VARCHAR2(30) := 'RMA';
12 
13   /* Excise/VAT Invoice generation Status for RTV */
14   INV_GEN_STATUS_PENDING        CONSTANT VARCHAR2(30) := 'PENDING';
15   INV_GEN_STATUS_NA             CONSTANT VARCHAR2(30) := 'NOT_APPLICABLE';
16   INV_GEN_STATUS_GENERATE       CONSTANT VARCHAR2(30) := 'GENERATE';
17   INV_GEN_STATUS_INV_NA         CONSTANT VARCHAR2(30) := 'INVOICE_NOT_APPLICABLE';
18   INV_GEN_STATUS_INV_GENERATED  CONSTANT VARCHAR2(30) := 'INVOICE_GENERATED';
19 
20   CALLED_FROM_RCV_TRIGGER  CONSTANT VARCHAR2(30)  := 'RECEIPT_TAX_INSERT_TRG';
21   CALLED_FROM_JAINPORE     CONSTANT VARCHAR2(30)  := 'JAINPORE';
22   CALLED_FROM_JAINMVAT     CONSTANT VARCHAR2(30)  := 'JAINMVAT';
23   CALLED_FROM_JAINRTVN     CONSTANT VARCHAR2(30)  := 'JAINRTVN';
24   CALLED_FROM_JAITIGRTV    CONSTANT VARCHAR2(30)  := 'JAITIGRTV';
25   CALLED_FROM_FND_REQUEST  CONSTANT VARCHAR2(30)  := 'Batch';
26 
27   /* MAPPING for JAI_RCV_TRANSACTIONS Attributes incase of transaction_type = 'RETURN TO VENDOR'
28     attribute1 => EXCISE_INVOICE_GENERATION_ACTION
29     attribute2 => VAT_INVOICE_GENERATION_ACTION
30     attribute3 => EXCISE_INVOICE_GENERATION_BATCH_NO
31     attribute4 => VAT_INVOICE_GENERATION_BATCH_NO
32   */
33 
34   /* Vijay Shankar for Bug#4250171 */
35   CALLED_FROM_OPM     CONSTANT VARCHAR2(15) := 'OPM';
36   OPM_RECEIPT         CONSTANT VARCHAR2(15) := 'OPM RECEIPT';
37   OPM_RETURNS         CONSTANT VARCHAR2(30) := 'OPM Receipt Correction';
38 
39   NO_ITEM_CLASS   CONSTANT VARCHAR2(4) := 'OTIN';    -- Vijay Shankar for Bug#4070938
40   NO_SETUP   CONSTANT VARCHAR(1) := 'X';
41 
42   gv_shipment_header_id NUMBER ;  -- added, CSahoo for Bug 5344225
43   gv_group_id 					NUMBER ;  -- added, CSahoo for Bug 5344225
44 
45 
46 
47   /*bgowrava for forward porting Bug#5756676..start*/
48 		lv_online_qty_flag     VARCHAR2(1);
49 		lv_qty_upd_event       VARCHAR2(30);
50 		lv_excise_flag         VARCHAR2(1);
51 		ln_part_i_register_id  NUMBER;
52 		lv_cgin_code           VARCHAR2(100);
53 		lv_register_type       VARCHAR2(1);
54 		lv_process_status      VARCHAR2(15);
55 		lv_process_message     VARCHAR2(4000);
56 		CURSOR cur_qty_setup( cp_organization_id NUMBER,
57 													cp_location_id     NUMBER
58 												 )
59 		IS
60 		SELECT quantity_register_update_event
61 			FROM JAI_CMN_INVENTORY_ORGS
62 		 WHERE organization_id = cp_organization_id
63 			 AND location_id     = cp_location_id ;
64 
65 		CURSOR cur_item_excise_flag( cp_organization_id   NUMBER,
66 																 cp_inventory_item_id NUMBER
67 															 )
68 		IS
69 		SELECT excise_flag
70 			FROM JAI_INV_ITM_SETUPS
71 		 WHERE organization_id   = cp_organization_id
72 			 AND inventory_item_id = cp_inventory_item_id;
73 
74  /*bgowrava for forward porting Bug#5756676..end*/
75 
76   CURSOR c_trx(cp_transaction_id IN NUMBER) IS
77     SELECT *
78     FROM JAI_RCV_TRANSACTIONS
79     WHERE transaction_id = cp_transaction_id;
80 
81   CURSOR c_base_trx(cp_transaction_id IN NUMBER) IS
82     SELECT shipment_header_id, shipment_line_id, transaction_type, quantity, unit_of_measure, uom_code,
83       parent_transaction_id, organization_id, location_id, subinventory, currency_conversion_rate,currency_code, --Added by nprashar for bug # 10155836
84       transaction_date, currency_conversion_type /*Bug 12543504*/
85       -- Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. attribute_category attr_cat, nvl(attribute5, 'XX') rma_type, nvl(attribute4, 'N') generate_excise_invoice
86       , routing_header_id   -- porting of Bug#3949109 (3927371)
87       -- Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. , attribute3  online_claim_flag
88       , source_document_code, po_header_id   -- Vijay Shankar for Bug#3940588
89       , po_line_location_id --pramasub FP of Bug #4281841
90       , po_distribution_id     /*added for bug 8538155 (FP for 8466620)*/
91     FROM rcv_transactions
92     WHERE transaction_id = cp_transaction_id;
93 
94   CURSOR c_excise_invoice_no(cp_shipment_line_id IN NUMBER) IS
95     SELECT excise_invoice_no, excise_invoice_date, online_claim_flag
96     FROM JAI_RCV_LINES
97     WHERE shipment_line_id = cp_shipment_line_id;
98     -- pramasub FP start
99    /*
100    || Start additions by ssumaith - Iprocurement Bug#4281841.
101    */
102 
103    CURSOR check_rcpt_source(p_line_location_id IN NUMBER) IS
104    SELECT apps_source_code
105    FROM   po_requisition_headers_all
106    WHERE  requisition_header_id IN
107   (SELECT requisition_header_id
108    FROM   po_requisition_lines_all
109    WHERE  line_location_id = p_line_location_id
110   );
111 
112    lv_apps_source_code  VARCHAR2(30);
113 
114    /*
115    || End additions by ssumaith - Iprocurement Bug#4281841
116    */
117     -- pramasub FP end
118 
119   -- Constants that will be returned from functions or procedures. returned values should be compared with these values
120   MFG_ORGN          CONSTANT  VARCHAR2(1) := 'M';
121   TRADING_ORGN      CONSTANT  VARCHAR2(1) := 'T';
122   BONDED_SUBINV     CONSTANT  VARCHAR2(1) := 'B';
123   TRADING_SUBINV    CONSTANT  VARCHAR2(1) := 'T';
124 
125   -- added by Vijay Shankar for Bug#3940588.
126   -- to support the deferred cenvat claim functionality. this is required because we obsoleted the old receipts code
127   PROCEDURE process_deferred_cenvat_claim(
128     p_batch_id            IN  NUMBER,
129     p_called_from         IN  VARCHAR2,
130     p_simulate_flag       IN  VARCHAR2, --File.Sql.35 Cbabu  DEFAULT 'N',
131     p_process_flag OUT NOCOPY VARCHAR2,
132     p_process_message OUT NOCOPY VARCHAR2
133   );
134 
135   PROCEDURE process_batch(
136     errbuf OUT NOCOPY VARCHAR2,
137     retcode OUT NOCOPY VARCHAR2,
138     p_organization_id       IN  NUMBER,
139     pv_transaction_from      IN  VARCHAR2, /* rallamse bug#4336482 changed to VARCHAR2 from DATE */
140     pv_transaction_to        IN  VARCHAR2, /* rallamse bug#4336482 changed to VARCHAR2 from DATE */
141     p_transaction_type      IN  VARCHAR2,
142     p_parent_trx_type       IN  VARCHAR2,
143     p_shipment_header_id    IN  NUMBER,     -- New parameter added by Vijay Shankar for Bug#3940588
144     p_receipt_num           IN  VARCHAR2,
145     p_shipment_line_id      IN  NUMBER,     -- New parameter added by Vijay Shankar for Bug#3940588
146     p_transaction_id        IN  NUMBER,
147     p_commit_switch         IN  VARCHAR2, --File.Sql.35 Cbabu  DEFAULT 'Y',
148     p_called_from           IN  VARCHAR2, --File.Sql.35 Cbabu  DEFAULT 'Batch',
149     p_simulate_flag         IN  VARCHAR2, --File.Sql.35 Cbabu  DEFAULT 'N',
150     p_trace_switch          IN  VARCHAR2, --File.Sql.35 Cbabu  DEFAULT 'N'
151     p_request_id            IN  NUMBER   DEFAULT NULL, -- CSahoo for Bug 5344225
152     p_group_id              IN  NUMBER   DEFAULT NULL -- CSahoo for Bug 5344225
153   );
154 
155   PROCEDURE process_transaction(
156     p_transaction_id      IN      NUMBER,
157     p_process_flag        IN OUT NOCOPY VARCHAR2,
158     p_process_message     IN OUT NOCOPY VARCHAR2,
159     p_cenvat_rg_flag      IN OUT NOCOPY VARCHAR2,
160     p_cenvat_rg_message   IN OUT NOCOPY VARCHAR2,
161     p_common_err_mesg OUT NOCOPY VARCHAR2,
162     p_called_from         IN  VARCHAR2,
163     p_simulate_flag       IN      VARCHAR2,
164     p_codepath            IN OUT NOCOPY VARCHAR2,
165     -- following parameters introduced for second claim of receive transaction
166     p_process_special_reason    IN        VARCHAR2    DEFAULT NULL,
167     p_process_special_qty       IN        NUMBER      DEFAULT NULL,
168     /*Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh.*/
169     p_excise_processing_reqd    IN        VARCHAR2, --File.Sql.35 Cbabu     DEFAULT jai_constants.yes,
170     p_vat_processing_reqd       IN        VARCHAR2 --File.Sql.35 Cbabu     DEFAULT jai_constants.yes
171   );
172 
173   PROCEDURE populate_details(
174     p_transaction_id      IN      NUMBER,
175     p_process_status OUT NOCOPY VARCHAR2,
176     p_process_message OUT NOCOPY VARCHAR2,
177     p_simulate_flag       IN      VARCHAR2,
178     p_codepath            IN OUT NOCOPY VARCHAR2
179   );
180 
181   PROCEDURE validate_transaction(
182     p_transaction_id      IN      NUMBER,
183     p_process_flag        IN OUT NOCOPY VARCHAR2,
184     p_process_message     IN OUT NOCOPY VARCHAR2,
185     p_cenvat_rg_flag      IN OUT NOCOPY VARCHAR2,
186     p_cenvat_rg_message   IN OUT NOCOPY VARCHAR2,
187     /* following two flags introduced by Vijay Shankar for Bug#4250236(4245089). VAT Implementation */
188     p_process_vat_flag    IN OUT NOCOPY VARCHAR2,
189     p_process_vat_message IN OUT NOCOPY VARCHAR2,
190     p_called_from         IN      VARCHAR2,
191     p_simulate_flag       IN      VARCHAR2,
192     p_codepath            IN OUT NOCOPY VARCHAR2
193   );
194 
195   PROCEDURE process_rtv(
196     pv_errbuf OUT NOCOPY VARCHAR2,
197     pv_retcode OUT NOCOPY VARCHAR2,
198     pn_batch_num            IN  NUMBER,
199     pn_min_transaction_id   IN  NUMBER,
200     pn_max_transaction_id   IN  NUMBER,
201     pv_called_from          IN  VARCHAR2, --File.Sql.35 Cbabu   DEFAULT 'Y',
202     pv_commit_switch        IN  VARCHAR2, --File.Sql.35 Cbabu   DEFAULT 'Y',
203     pv_debug_switch         IN  VARCHAR2 --File.Sql.35 Cbabu   DEFAULT 'N'
204   );
205 
206   FUNCTION process_iso_transaction(
207     p_transaction_id      IN NUMBER,
208     p_shipment_line_id    IN NUMBER
209   ) RETURN BOOLEAN;
210 
211   FUNCTION get_trxn_tax_amount(
212     p_transaction_id      IN  NUMBER,
213     p_shipment_line_id    IN  NUMBER,
214     p_curr_conv_rate      IN  NUMBER,
215     p_return_in_inr_curr  IN  VARCHAR2  --File.Sql.35 Cbabu  DEFAULT 'Y'
216   ) RETURN NUMBER;
217 
218   FUNCTION get_trxn_cenvat_amount(
219     p_transaction_id      IN  NUMBER,
220     p_shipment_line_id    IN  NUMBER,
221     p_organization_type   IN  VARCHAR2,
222     p_curr_conv_rate      IN  NUMBER
223   ) RETURN NUMBER;
224 
225   FUNCTION get_apportion_factor(
226     p_transaction_id      IN NUMBER
227   ) RETURN NUMBER;
228 
229   -- Vijay Shankar for Bug#3940588. RECEIPTS DEPLUG
230   FUNCTION get_equivalent_qty_of_receive(
231     p_transaction_id IN NUMBER
232   ) RETURN NUMBER;
233 
234   FUNCTION get_message(
235     p_message_code        IN VARCHAR2
236   ) RETURN VARCHAR2;
237 
238   FUNCTION get_object_code(
239     p_object_name         IN VARCHAR2,
240     p_event_name          IN VARCHAR2
241   ) RETURN VARCHAR2;
242 
243   FUNCTION get_ancestor_id(
244     p_transaction_id      IN NUMBER,
245     p_shipment_line_id    IN NUMBER,
246     p_required_trx_type   IN VARCHAR2
247   ) RETURN NUMBER;
248 
249   FUNCTION get_accrue_on_receipt(
250     p_po_distribution_id  IN NUMBER,
251     p_po_line_location_id IN  NUMBER DEFAULT NULL
252   ) RETURN VARCHAR2;
253 
254 END jai_rcv_trx_processing_pkg;