1 PACKAGE BODY INV_THIRD_PARTY_STOCK_CP AS
2 -- $Header: INVCCCPB.pls 115.0 2002/12/03 02:27:29 dherring noship $
3 --+=======================================================================+
4 --| Copyright (c) 2002 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| INVCCCPB.pls |
10 --| |
11 --| DESCRIPTION |
12 --| Consigned Inventory Consumption Concurrent Program Wrapper |
13 --| |
14 --| PROCEDURE LIST |
15 --| cons_txn_work |
16 --| consumption_txn_manager |
17 --| |
18 --| HISTORY |
19 --| 11/13/02 dherring Created |
20 --+========================================================================
21
22 --===================
23 -- CONSTANTS
24 --===================
25 G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_THIRD_PARTY_STOCK_CP';
26
27 --=================
28 -- TYPES
29 --=================
30
31 TYPE g_cons_tbl_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
32 TYPE g_cons_date_tbl_type IS TABLE OF DATE INDEX BY BINARY_INTEGER;
33 TYPE g_cons_varchar_tbl_type IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
34
35 TYPE g_request_tbl_type IS TABLE OF NUMBER
36 INDEX BY BINARY_INTEGER;
37
38 --========================================================================
39 -- PROCEDURE : Consumption_Transaction_Work PRIVATE
40 -- COMMENT : This procedure will copy all the records of a context batch
41 -- from MTL_CONSUMPTION_TRANSACTIONS to
42 -- MTL_CONSUMPTION_TRANSACTIONS_TEMP
43 -- summarize the net quantity and call the create consumption
44 -- advice procedure
45 --=========================================================================
46 PROCEDURE cons_txn_work
47 ( x_retcode OUT NOCOPY VARCHAR2
48 , x_errbuff OUT NOCOPY VARCHAR2
49 , p_batch_id IN NUMBER
50 )
51 IS
52 BEGIN
53
54 x_retcode := FND_API.G_RET_STS_SUCCESS;
55
56 INV_THIRD_PARTY_STOCK_CAD_PVT.cons_txn_work
57 (x_retcode
58 ,p_batch_id
59 );
60
61 EXCEPTION
62
63 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
64 x_retcode := 2;
65 x_errbuff := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
66 RAISE;
67
68 WHEN OTHERS THEN
69 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
70 THEN
71 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
72 ,'consumption_txn_worker'
73 );
74 x_retcode := 2;
75 x_errbuff :=
76 substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
77 RAISE;
78
79 END IF;
80
81 END cons_txn_work;
82
83 --========================================================================
84 -- PROCEDURE : Consumption_Txn_Manager PUBLIC
85 -- COMMENT : This procedure will assign each unprocessed record in
86 -- MTL_CONSUMPTION_TRANSACTIONS to a batch and then call the
87 -- Consumption_Transaction_Worker for that batch. The manager
88 -- will continue until all records
89 -- in MTL_CONSUMPTION_TRANSACTIONS
90 -- have been assigned to a batch.
91 --=========================================================================
92 PROCEDURE consumption_txn_manager
93 ( x_retcode OUT NOCOPY VARCHAR2
94 , x_errbuff OUT NOCOPY VARCHAR2
95 , p_batch_size IN NUMBER
96 , p_max_workers IN NUMBER
97 , p_vendor_name IN VARCHAR2
98 , p_vendor_site_id IN NUMBER
99 , p_item_id IN NUMBER
100 , p_org_id IN NUMBER
101 )
102 IS
103 BEGIN
104
105 x_retcode := FND_API.G_RET_STS_SUCCESS;
106
107 INV_THIRD_PARTY_STOCK_CAD_PVT.consumption_txn_manager
108 (x_retcode
109 ,p_batch_size
110 ,p_max_workers
111 ,p_vendor_site_id
112 ,p_item_id
113 ,p_org_id
114 );
115
116 EXCEPTION
117
118 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
119 x_retcode := 2;
120 x_errbuff := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
121 RAISE;
122
123 WHEN OTHERS THEN
124 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
125 THEN
126 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
127 , 'consumption_txn_manager'
128 );
129 x_retcode := 2;
130 x_errbuff :=
131 substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
132 RAISE;
133
134 END IF;
135
136 END consumption_txn_manager;
137
138 END INV_THIRD_PARTY_STOCK_CP;