[Home] [Help]
PACKAGE BODY: APPS.INV_TRX_MGR
Source
1 PACKAGE BODY INV_TRX_MGR AS
2 /* $Header: INVJTRXB.pls 120.1 2005/06/21 19:45:57 appldev ship $ */
3
4
5
6 --
7 -- Name: PROCESS_TRX_BATCH
8 --
9 --
10 --
11 FUNCTION PROCESS_TRX_BATCH(p_header_id IN NUMBER,
12 p_commit IN NUMBER,
13 p_atomic IN NUMBER,
14 p_business_flow_code IN NUMBER,
15 x_proc_msg OUT NOCOPY VARCHAR2 ) RETURN NUMBER AS
16 LANGUAGE JAVA NAME 'oracle.apps.inv.transaction.server.TrxProcessor.processTrxBatch(java.lang.Long,
17 java.lang.Integer,
18 java.lang.Integer,
19 java.lang.Integer,
20 java.lang.String[]) return java.lang.Integer';
21
22
23 --
24 -- Name: PROCESS_TRX_BATCH
25 -- Overloaded Wrapper function
26 --
27 --
28 FUNCTION PROCESS_TRX_BATCH(p_header_id IN NUMBER,
29 p_commit IN NUMBER,
30 p_atomic IN NUMBER,
31 x_proc_msg OUT NOCOPY VARCHAR2 ) RETURN NUMBER AS
32 BEGIN
33 RETURN INV_TRX_MGR.PROCESS_TRX_BATCH ( p_header_id => p_header_id,
34 p_commit => p_commit,
35 p_atomic => p_atomic,
36 p_business_flow_code => 0,
37 x_proc_msg => x_proc_msg);
38 END;
39
40
41 -- Created to fix the G-I merge issues. Do not forward port
42 -- Name: GENERATE_SERIALS (Over Loaded. Version 1)
43 -- Wrapper for GENERATE_SERIALSJ with Autonomous Tramsaction support
44 --
45 -- Input parameters:
46 -- p_org_id Organization ID
47 -- p_item_id Item ID
48 -- p_qty Count of Serial Numbers
49 -- p_wip_id Wip Entity ID
50 -- p_rev Revision
51 -- p_lot Lot Number
52 --
53 -- Output parameters:
54 -- x_proc_msg Message from the Process-Manager
55 -- return_status 0 on Success, 1 on Error
56 --
57 --
58 FUNCTION GENERATE_SERIALS( p_org_id IN NUMBER ,
59 p_item_id IN NUMBER ,
60 p_qty IN NUMBER ,
61 p_wip_id IN NUMBER ,
62 p_rev IN VARCHAR2,
63 p_lot IN VARCHAR2,
64 x_start_ser OUT NOCOPY VARCHAR2,
65 x_end_ser OUT NOCOPY VARCHAR2,
66 x_proc_msg OUT NOCOPY VARCHAR2 ) RETURN NUMBER AS
67 PRAGMA AUTONOMOUS_TRANSACTION;
68 l_retval number;
69 BEGIN
70 l_retval := INV_SERIAL_NUMBER_PUB.GENERATE_SERIALS( p_org_id => p_org_id,
71 p_item_id =>p_item_id,
72 p_qty => p_qty,
73 p_wip_id=> p_wip_id,
74 p_rev => p_rev,
75 p_lot=>p_lot,
76 x_start_ser => x_start_ser,
77 x_end_ser => x_end_ser,
78 x_proc_msg => x_proc_msg);
79
80 COMMIT;
81 return l_retval;
82 END;
83
84
85 FUNCTION VALIDATE_SERIALS( p_org_id IN NUMBER ,
86 p_item_id IN NUMBER ,
87 p_qty IN NUMBER ,
88 p_rev IN VARCHAR2 ,
89 p_lot IN VARCHAR2,
90 p_start_ser IN VARCHAR2,
91 p_trx_src_id IN NUMBER,
92 p_trx_action_id IN NUMBER,
93 x_end_ser IN OUT NOCOPY VARCHAR2,
94 x_proc_msg OUT NOCOPY VARCHAR2 ) RETURN NUMBER AS
95 ret_number NUMBER := 0;
96 local_locator_id NUMBER;
97 l_qty NUMBER :=0 ;
98
99 BEGIN
100 l_qty := p_qty;
101 ret_number := INV_SERIAL_NUMBER_PUB.VALIDATE_SERIALS(
102 p_org_id => p_org_id ,
103 p_item_id => p_item_id ,
104 p_qty => l_qty ,
105 p_rev => p_rev ,
106 p_lot => p_lot,
107 p_start_ser => p_start_ser,
108 p_trx_src_id => p_trx_src_id,
109 p_trx_action_id => p_trx_action_id,
110 x_end_ser => x_end_ser,
111 x_proc_msg => x_proc_msg);
112 return ret_number;
113
114 END VALIDATE_SERIALS;
115
116 END INV_TRX_MGR;