[Home] [Help]
PACKAGE BODY: APPS.OKS_OMIB_INT_EXTNS_PUB
Source
1 PACKAGE BODY OKS_OMIB_INT_EXTNS_PUB AS
2 /* $Header: OKSPOIXB.pls 120.1 2005/06/28 23:57:02 upillai noship $ */
3
4 /* GLOBAL Variables for the procedures and functions of this package body */
5 G_APP_NAME CONSTANT VARCHAR2(200) := 'OKS';
6 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
7 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
8 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
9 G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(200) := FND_API.G_RET_STS_UNEXP_ERROR;
10 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKS_OMIB_INT_EXTNS_PUB';
11 G_MODULE_CURRENT CONSTANT VARCHAR2(255) := 'oks.plsql.oks_omib_int_extns_pub';
12
13 PROCEDURE pre_integration(p_api_version IN NUMBER
14 ,p_init_msg_list IN VARCHAR2
15 ,p_from_integration IN VARCHAR2
16 ,p_transaction_type IN VARCHAR2
17 ,p_transaction_date IN DATE
18 ,p_order_line_id IN NUMBER
19 ,p_old_instance_id IN NUMBER
20 ,p_new_instance_id IN NUMBER
21 ,x_process_status OUT NOCOPY VARCHAR2
22 ,x_return_status OUT NOCOPY VARCHAR2
23 ,x_msg_count OUT NOCOPY NUMBER
24 ,x_msg_data OUT NOCOPY VARCHAR2)
25 IS
26 l_api_name CONSTANT VARCHAR2(30) := 'pre_integration';
27 BEGIN
28 IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
29 fnd_log.string(FND_LOG.LEVEL_PROCEDURE
30 ,G_MODULE_CURRENT||'.pre_integration.begin'
31 ,'p_api_version = '|| p_api_version ||
32 ' ,p_init_msg_list = ' || p_init_msg_list ||
33 ' ,p_from_integration = ' || p_from_integration ||
34 ' ,p_transaction_type = ' || p_transaction_type ||
35 ' ,p_transaction_date = ' || p_transaction_date ||
36 ' ,p_order_line_id = ' || p_order_line_id ||
37 ' ,p_old_instance_id = ' || p_old_instance_id ||
38 ' ,p_new_instance_id = ' || p_new_instance_id);
39 END IF;
40
41 IF (FND_API.to_boolean(p_init_msg_list)) THEN
42 FND_MSG_PUB.initialize;
43 END IF;
44 x_process_status := 'C'; -- C - Continue the existing logic on the caller
45 x_return_status := FND_API.G_RET_STS_SUCCESS;
46
47 IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
48 fnd_log.string(FND_LOG.LEVEL_PROCEDURE
49 ,G_MODULE_CURRENT||'.pre_integration.end'
50 ,'x_process_status = ' || x_process_status ||
51 ' ,x_return_status = ' || x_return_status);
52 END IF;
53 EXCEPTION
54 WHEN OTHERS THEN
55 IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
56 fnd_log.string(FND_LOG.LEVEL_UNEXPECTED
57 ,G_MODULE_CURRENT||'.post_integration.UNEXPECTED'
58 ,'sqlcode = '||sqlcode||' ,sqlerrm = '||sqlerrm);
59 END IF;
60 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
61 OKC_API.set_message
62 ( p_app_name => 'OKC',
63 p_msg_name => 'OKC_CONTRACTS_UNEXP_ERROR',
64 p_token1 => G_SQLCODE_TOKEN,
65 p_token1_value => sqlcode,
66 p_token2 => G_SQLERRM_TOKEN,
67 p_token2_value => sqlerrm
68 );
69 FND_MSG_PUB.Count_And_Get
70 (
71 p_count => x_msg_count,
72 p_data => x_msg_data
73 );
74 x_process_status := 'U'; -- U - Unexpected Error
75 END pre_integration;
76
77 PROCEDURE post_integration(p_api_version IN NUMBER
78 ,p_init_msg_list IN VARCHAR2
79 ,p_from_integration IN VARCHAR2
80 ,p_transaction_type IN VARCHAR2
81 ,p_transaction_date IN DATE
82 ,p_order_line_id IN NUMBER
83 ,p_old_instance_id IN NUMBER
84 ,p_new_instance_id IN NUMBER
85 ,p_chr_id IN NUMBER
86 ,p_topline_id IN NUMBER
87 ,p_subline_id IN NUMBER
88 ,x_return_status OUT NOCOPY VARCHAR2
89 ,x_msg_count OUT NOCOPY NUMBER
90 ,x_msg_data OUT NOCOPY VARCHAR2)
91 IS
92 BEGIN
93
94 IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
95 fnd_log.string(FND_LOG.LEVEL_PROCEDURE
96 ,G_MODULE_CURRENT||'.post_integration.begin'
97 ,'p_api_version = '|| p_api_version ||
98 ' ,p_init_msg_list = ' || p_init_msg_list ||
99 ' ,p_from_integration = ' || p_from_integration ||
100 ' ,p_transaction_type = ' || p_transaction_type ||
101 ' ,p_transaction_date = ' || p_transaction_type ||
102 ' ,p_order_line_id = ' || p_order_line_id ||
103 ' ,p_old_instance_id = ' || p_old_instance_id ||
104 ' ,p_new_instance_id = ' || p_new_instance_id ||
105 ' ,p_chr_id = ' || p_chr_id ||
106 ' ,p_topline_id = ' || p_topline_id ||
107 ' ,p_subline_id = ' || p_subline_id);
108 END IF;
109
110 IF (FND_API.to_boolean(p_init_msg_list)) THEN
111 FND_MSG_PUB.initialize;
112 END IF;
113 x_return_status := FND_API.G_RET_STS_SUCCESS;
114
115 IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
116 fnd_log.string(FND_LOG.LEVEL_PROCEDURE
117 ,G_MODULE_CURRENT||'.post_integration.end'
118 ,'x_return_status = ' || x_return_status);
119 END IF;
120 EXCEPTION
121 WHEN OTHERS THEN
122 IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
123 fnd_log.string(FND_LOG.LEVEL_UNEXPECTED
124 ,G_MODULE_CURRENT||'.post_integration.UNEXPECTED'
125 ,'sqlcode = '||sqlcode||' ,sqlerrm = '||sqlerrm);
126 END IF;
127 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
128 OKC_API.set_message
129 ( p_app_name => 'OKC',
130 p_msg_name => 'OKC_CONTRACTS_UNEXP_ERROR',
131 p_token1 => G_SQLCODE_TOKEN,
132 p_token1_value => sqlcode,
133 p_token2 => G_SQLERRM_TOKEN,
134 p_token2_value => sqlerrm
135 );
136 FND_MSG_PUB.Count_And_Get
137 (
138 p_count => x_msg_count,
139 p_data => x_msg_data
140 );
141 END post_integration;
142
143 END OKS_OMIB_INT_EXTNS_PUB;