1 PACKAGE BODY JMF_SHIKYU_RCV_TRANSACTIONS_CP AS
2 -- $Header: JMFCSKTB.pls 120.1 2005/06/30 07:11 nesoni noship $
3 --+=======================================================================+
4 --| Copyright (c) 2005 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| JMFCSKTB.pls |
10 --| |
11 --| DESCRIPTION |
12 --| Concurrent Program wrapper for SHIKYU operations triggered by |
13 --| RCV transactions. |
14 --| HISTORY |
15 --| 23-JUN-05 Neelam Soni created |
16 --+======================================================================--
17
18 --===================
19 -- PROCEDURES AND FUNCTIONS
20 --===================
21
22 --========================================================================
23 -- PROCEDURE : Process_Shikyu_Rcv_Trx_Cp PUBLIC
24 -- PARAMETERS: x_retcode OUT NOCOPY Return status
25 -- x_errbuff OUT NOCOPY Return error message
26 -- p_reuqest_id IN Request Id
27 -- p_group_id IN Group Id
28 -- COMMENT : This is the concurrent program wrapper for SHIKYU operations
29 -- triggered after RCV transactions. Currently it handles OSA
30 -- Receipt, OSA Transactions and RTV at MP site against SHIKYU RMA.
31 --=========================================================================
32 PROCEDURE Process_Shikyu_Rcv_Trx_Cp
33 ( x_retcode OUT NOCOPY VARCHAR2
34 , x_errbuff OUT NOCOPY VARCHAR2
35 , p_request_id IN NUMBER
36 , p_group_id IN NUMBER
37 )
38 IS
39
40 l_return_status VARCHAR2(1);
41
42 BEGIN
43 -- Call method from private package.
44 JMF_PROCESS_SHIKYU_RCV_TRX_PVT.Process_Shikyu_Rcv_trx
45 ( p_api_version =>1.0,
46 p_init_msg_list => FND_API.G_FALSE,
47 p_request_id => p_request_id,
48 p_group_id => p_group_id,
49 x_return_Status => l_return_status );
50
51 -- If return status is not Success then raise exception
52 -- to propogate error to concurrent program
53 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
54 raise FND_API.G_EXC_ERROR;
55 END IF;
56
57 EXCEPTION
58
59 WHEN OTHERS THEN
60 x_retcode := 2;
61 x_errbuff := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE)
62 ,1
63 ,250);
64
65
66 END Process_Shikyu_Rcv_Trx_Cp;
67
68
69
70 END JMF_SHIKYU_RCV_TRANSACTIONS_CP;