[Home] [Help]
PACKAGE BODY: APPS.OKC_OKS_INT_GRP
Source
1 PACKAGE BODY OKC_OKS_INT_GRP AS
2 /* $Header: OKCGIOKSB.pls 120.0 2005/05/25 18:29:41 appldev noship $ */
3
4 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5
6 ---------------------------------------------------------------------------
7 -- GLOBAL MESSAGE CONSTANTS
8 ---------------------------------------------------------------------------
9 G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
10 ---------------------------------------------------------------------------
11 -- GLOBAL VARIABLES
12 ---------------------------------------------------------------------------
13 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_OKS_INT_GRP';
14 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
15
16 ------------------------------------------------------------------------------
17 -- GLOBAL CONSTANTS
18 ------------------------------------------------------------------------------
19 G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20 G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21 G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
22 G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR ;
23 G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
24 G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
25 G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
26 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
27
28
29 Procedure get_article_variable_values(
30 p_api_version IN Number,
31 p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
32 p_doc_id IN Number,
33 p_sys_var_value_tbl IN OUT NOCOPY sys_var_value_tbl_type,
34 x_return_status OUT NOCOPY Varchar2,
35 x_msg_data OUT NOCOPY Varchar2,
36 x_msg_count OUT NOCOPY Number
37 )IS
38 l_api_version CONSTANT NUMBER := 1;
39 l_api_name CONSTANT VARCHAR2(30) := 'g_get_article_variable_values';
40 BEGIN
41 x_return_status := FND_API.G_RET_STS_SUCCESS;
42
43 IF l_debug='Y' THEN
44 okc_util.print_trace(1,' Calling OKS_AUTH_INT_PUB.Get_PO_Attribute_values');
45 END IF;
46 NULL;
47 IF l_debug='Y' THEN
48 okc_util.print_trace(1,' Leaving OKS_AUTH_INT_PUB.Get_PO_Attribute_values');
49 END IF;
50 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
51
52 EXCEPTION
53 WHEN FND_API.G_EXC_ERROR THEN
54
55 IF (l_debug = 'Y') THEN
56 okc_debug.log('2400: Leaving get_article_variable_values: OKC_API.G_EXCEPTION_ERROR Exception', 2);
57 END IF;
58
59 x_return_status := G_RET_STS_ERROR ;
60 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
61
62 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
63 IF (l_debug = 'Y') THEN
64 okc_debug.log('2500: Leaving get_article_variable_values: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
65 END IF;
66
67 x_return_status := G_RET_STS_UNEXP_ERROR ;
68 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
69 WHEN OTHERS THEN
70 IF (l_debug = 'Y') THEN
71 okc_debug.log('2600: Leaving get_article_variable_values because of EXCEPTION: '||sqlerrm, 2);
72 END IF;
73
74 x_return_status := G_RET_STS_UNEXP_ERROR ;
75
76 IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
77 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
78 END IF;
79 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
80 END get_article_variable_values;
81
82 Procedure get_item_dtl_for_expert(
83 p_api_version IN Number,
84 p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
85 p_doc_id IN Number,
86 x_category_tbl OUT NOCOPY item_tbl_type,
87 x_item_tbl OUT NOCOPY item_tbl_type,
88 x_return_status OUT NOCOPY Varchar2,
89 x_msg_data OUT NOCOPY Varchar2,
90 x_msg_count OUT NOCOPY Number
91 )IS
92 l_api_version CONSTANT NUMBER := 1;
93 l_api_name CONSTANT VARCHAR2(30) := 'g_get_item_dtl_for_expert';
94 BEGIN
95 x_return_status := FND_API.G_RET_STS_SUCCESS;
96
97 IF l_debug='Y' THEN
98 okc_util.print_trace(1,' Calling OKS_AUTH_INT_PUB.get_item_dtl_for_expert');
99 END IF;
100
101 NULL;
102
103 IF l_debug='Y' THEN
104 okc_util.print_trace(1,' Leaving OKS_AUTH_INT_PUB.get_item_dtl_for_expert');
105 END IF;
106 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
107
108 EXCEPTION
109 WHEN FND_API.G_EXC_ERROR THEN
110
111 IF (l_debug = 'Y') THEN
112 okc_debug.log('2400: Leaving get_item_dtl_for_expert: OKC_API.G_EXCEPTION_ERROR Exception', 2);
113 END IF;
114
115 x_return_status := G_RET_STS_ERROR ;
116 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
117
118 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
119 IF (l_debug = 'Y') THEN
120 okc_debug.log('2500: Leaving get_item_dtl_for_expert: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
121 END IF;
122
123 x_return_status := G_RET_STS_UNEXP_ERROR ;
124 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
125 WHEN OTHERS THEN
126 IF (l_debug = 'Y') THEN
127 okc_debug.log('2600: Leaving get_item_dtl_for_expert because of EXCEPTION: '||sqlerrm, 2);
128 END IF;
129
130 x_return_status := G_RET_STS_UNEXP_ERROR ;
131
132 IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
133 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
134 END IF;
135 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
136 END get_item_dtl_for_expert;
137
138 Function ok_to_commit (
139 p_api_version IN Number,
140 p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
141 p_doc_id IN Number,
142 p_validation_string IN Varchar2 default NULL,
143 x_return_status OUT NOCOPY Varchar2,
144 x_msg_data OUT NOCOPY Varchar2,
145 x_msg_count OUT NOCOPY Number
146 )
147 Return Varchar2 IS
148
149 l_api_version CONSTANT NUMBER := 1;
150 l_api_name CONSTANT VARCHAR2(30) := 'g_ok_to_commit';
151 l_update_allowed Boolean;
152 l_return_value varchar2(1);
153 BEGIN
154
155 x_return_status := FND_API.G_RET_STS_SUCCESS;
156
157 l_update_allowed :=OKS_AUTH_INT_PUB.ok_to_commit(
158 p_api_version => l_api_version,
159 p_init_msg_list => FND_API.G_FALSE,
160 p_doc_id => p_doc_id,
161 p_doc_validation_string=> p_validation_string,
162 x_return_status => x_return_status,
163 x_msg_data => x_msg_data,
164 x_msg_count => x_msg_count);
165
166 --------------------------------------------
167 IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
168 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
169 ELSIF (x_return_status = G_RET_STS_ERROR) THEN
170 RAISE FND_API.G_EXC_ERROR ;
171 END IF;
172 --------------------------------------------
173
174 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
175
176 IF l_update_allowed then
177 l_return_value :=FND_API.G_TRUE;
178 ELSE
179 l_return_value :=FND_API.G_FALSE;
180 END IF;
181
182 return l_return_value;
183
184 EXCEPTION
185 WHEN FND_API.G_EXC_ERROR THEN
186 IF (l_debug = 'Y') THEN
187 okc_debug.log('2400: Leaving ok_to_commit: OKC_API.G_EXCEPTION_ERROR Exception', 2);
188 END IF;
189
190 x_return_status := G_RET_STS_ERROR ;
191 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
192 return FND_API.G_FALSE;
193
194 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
195 IF (l_debug = 'Y') THEN
196 okc_debug.log('2500: Leaving ok_to_commit: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
197 END IF;
198
199 x_return_status := G_RET_STS_UNEXP_ERROR ;
200 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
201 return FND_API.G_FALSE;
202 WHEN OTHERS THEN
203 IF (l_debug = 'Y') THEN
204 okc_debug.log('2600: Leaving ok_to_commit because of EXCEPTION: '||sqlerrm, 2);
205 END IF;
206
207 x_return_status := G_RET_STS_UNEXP_ERROR ;
208
209 IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
210 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
211 END IF;
212 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
213 return FND_API.G_FALSE;
214
215 END ok_to_commit;
216 END OKC_OKS_INT_GRP;