1 PACKAGE BODY INV_CONSUMPTION_ADVICE_CP AS
2 -- $Header: INVCCADB.pls 115.1 2003/02/03 23:09:32 dherring noship $
3 --+=======================================================================+
4 --| Copyright (c) 2002 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| INVCCADB.pls |
10 --| |
11 --| DESCRIPTION |
12 --| Consigned Inventory Consumption Concurrent Program Wrapper |
13 --| |
14 --| PROCEDURE LIST |
15 --| consumption_txn_worker |
16 --| consumption_txn_manager |
17 --| |
18 --| HISTORY |
19 --| 11/13/02 dherring Created |
20 --+========================================================================
21
22 --========================================================================
23 -- PROCEDURE : Consumption_Transaction_Work PRIVATE
24 -- COMMENT : This procedure will copy all the records of a context batch
25 -- from MTL_CONSUMPTION_TRANSACTIONS to
26 -- MTL_CONSUMPTION_TRANSACTIONS_TEMP
27 -- summarize the net quantity and call the create consumption
28 -- advice procedure
29 --=========================================================================
30 PROCEDURE consumption_txn_worker
31 ( x_retcode OUT NOCOPY VARCHAR2
32 , x_errbuff OUT NOCOPY VARCHAR2
33 , p_batch_id IN NUMBER
34 )
35 IS
36 BEGIN
37
38 INV_CONSUMPTION_ADVICE_PROC.consumption_txn_worker(p_batch_id);
39
40 EXCEPTION
41
42 WHEN OTHERS THEN
43 x_retcode := 2;
44 x_errbuff := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE)
45 ,1
46 ,250);
47
48 END consumption_txn_worker;
49
50 --========================================================================
51 -- PROCEDURE : Consumption_Txn_Manager PUBLIC
52 -- COMMENT : This procedure will assign each unprocessed record in
53 -- MTL_CONSUMPTION_TRANSACTIONS to a batch and then call the
54 -- Consumption_Transaction_Worker for that batch. The manager
55 -- will continue until all records
56 -- in MTL_CONSUMPTION_TRANSACTIONS
57 -- have been assigned to a batch.
58 --=========================================================================
59 PROCEDURE consumption_txn_manager
60 ( x_retcode OUT NOCOPY VARCHAR2
61 , x_errbuff OUT NOCOPY VARCHAR2
62 , p_batch_size IN NUMBER
63 , p_max_workers IN NUMBER
64 , p_vendor_id IN NUMBER
65 , p_vendor_site_id IN NUMBER
66 , p_item_id IN NUMBER
67 , p_org_id IN NUMBER
68 )
69 IS
70 BEGIN
71
72 INV_CONSUMPTION_ADVICE_PROC.consumption_txn_manager
73 ( p_batch_size
74 , p_max_workers
75 , p_vendor_id
76 , p_vendor_site_id
77 , p_item_id
78 , p_org_id
79 );
80
81 EXCEPTION
82
83 WHEN OTHERS THEN
84 x_retcode := 2;
85 x_errbuff := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE)
86 ,1
87 ,250);
88
89 END consumption_txn_manager;
90
91 END INV_CONSUMPTION_ADVICE_CP;