DBA Data[Home] [Help]

PACKAGE BODY: APPS.CSI_CLIENT_EXT_PUB

Source


1 package body CSI_CLIENT_EXT_PUB AS
2 -- $Header: csiclexb.pls 120.0 2005/05/25 02:35:08 appldev noship $
3 
4 l_debug NUMBER := csi_t_gen_utility_pvt.g_debug_level;
5 
6 PROCEDURE mtl_post_transaction(p_transaction_id  IN NUMBER,
7                                x_return_status   OUT NOCOPY VARCHAR2,
8                                x_error_message   OUT NOCOPY VARCHAR2)
9 IS
10 BEGIN
11 
12    -- Replace this with your code here
13 
14    x_return_status := FND_API.G_RET_STS_SUCCESS;
15    x_error_message := NULL;
16 
17 EXCEPTION
18 
19    WHEN OTHERS THEN
20        x_return_status := FND_API.G_RET_STS_ERROR;
21        x_error_message := sqlerrm;
22 
23 END mtl_post_transaction;
24 
25 
26 PROCEDURE rcv_post_transaction(p_transaction_id  IN NUMBER,
27                                x_return_status   OUT NOCOPY VARCHAR2,
28                                x_error_message   OUT NOCOPY VARCHAR2)
29 IS
30 BEGIN
31 
32    -- Replace this with your code here
33 
34    x_return_status := FND_API.G_RET_STS_SUCCESS;
35    x_error_message := NULL;
36 
37 EXCEPTION
38 
39    WHEN OTHERS THEN
40        x_return_status := FND_API.G_RET_STS_ERROR;
41        x_error_message := sqlerrm;
42 
43 END rcv_post_transaction;
44 
45 PROCEDURE csi_error_resubmit(p_transaction_id  IN NUMBER,
46                              x_return_status   OUT NOCOPY VARCHAR2,
47                              x_error_message   OUT NOCOPY VARCHAR2)
48 IS
49 BEGIN
50 
51    -- Replace this with your code here
52 
53    x_return_status := FND_API.G_RET_STS_ERROR;
54    x_error_message := NULL;
55 
56    -- After you put your custom code here you should then replace the x_return_status
57    -- with the following line of commented out code . Initially "E" is being passed
58    -- out in the return status so that the error will be retained in csi_txn_errors table.
59 
60    --x_return_status := FND_API.G_RET_STS_SUCCESS;
61 
62 EXCEPTION
63 
64    WHEN OTHERS THEN
65        x_return_status := FND_API.G_RET_STS_ERROR;
66        x_error_message := sqlerrm;
67 
68 END csi_error_resubmit;
69 
70 end CSI_CLIENT_EXT_PUB;