DBA Data[Home] [Help]

APPS.OKL_SUBSIDY_POOL_TRX_PVT dependencies on OKL_API

Line 72: x_return_status := OKL_API.G_RET_STS_SUCCESS;

68: l_debug_enabled VARCHAR2(10);
69: is_debug_procedure_on BOOLEAN;
70: is_debug_statement_on BOOLEAN;
71: BEGIN
72: x_return_status := OKL_API.G_RET_STS_SUCCESS;
73:
74: l_debug_enabled := okl_debug_pub.check_log_enabled;
75: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
76:

Line 83: lv_pool_expired := OKL_API.G_FALSE;

79: END IF;
80: -- check for logging on STATEMENT level
81: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
82:
83: lv_pool_expired := OKL_API.G_FALSE;
84: l_sixv_rec := p_sixv_rec;
85:
86: -- call START_ACTIVITY to create savepoint, check compatibility
87: -- and initialize message list

Line 88: l_return_status := OKL_API.START_ACTIVITY(

84: l_sixv_rec := p_sixv_rec;
85:
86: -- call START_ACTIVITY to create savepoint, check compatibility
87: -- and initialize message list
88: l_return_status := OKL_API.START_ACTIVITY(
89: p_api_name => l_api_name
90: ,p_pkg_name => G_PKG_NAME
91: ,p_init_msg_list => p_init_msg_list
92: ,l_api_version => l_api_version

Line 97: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

93: ,p_api_version => p_api_version
94: ,p_api_type => g_api_type
95: ,x_return_status => x_return_status);
96: -- check if activity started successfully
97: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
98: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
99: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
100: RAISE OKL_API.G_EXCEPTION_ERROR;
101: END IF;

Line 98: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

94: ,p_api_type => g_api_type
95: ,x_return_status => x_return_status);
96: -- check if activity started successfully
97: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
98: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
99: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
100: RAISE OKL_API.G_EXCEPTION_ERROR;
101: END IF;
102:

Line 99: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN

95: ,x_return_status => x_return_status);
96: -- check if activity started successfully
97: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
98: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
99: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
100: RAISE OKL_API.G_EXCEPTION_ERROR;
101: END IF;
102:
103: -- check if the subsidy id is passed, all further logic depend on subsidy id

Line 100: RAISE OKL_API.G_EXCEPTION_ERROR;

96: -- check if activity started successfully
97: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
98: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
99: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
100: RAISE OKL_API.G_EXCEPTION_ERROR;
101: END IF;
102:
103: -- check if the subsidy id is passed, all further logic depend on subsidy id
104: IF(p_sixv_rec.subsidy_id IS NULL OR p_sixv_rec.subsidy_id = OKL_API.G_MISS_NUM)THEN

Line 104: IF(p_sixv_rec.subsidy_id IS NULL OR p_sixv_rec.subsidy_id = OKL_API.G_MISS_NUM)THEN

100: RAISE OKL_API.G_EXCEPTION_ERROR;
101: END IF;
102:
103: -- check if the subsidy id is passed, all further logic depend on subsidy id
104: IF(p_sixv_rec.subsidy_id IS NULL OR p_sixv_rec.subsidy_id = OKL_API.G_MISS_NUM)THEN
105: OKC_API.set_message(G_APP_NAME, G_NO_SUBSIDY_ID);
106: x_return_status := OKC_API.G_RET_STS_ERROR;
107: RAISE OKL_API.G_EXCEPTION_ERROR;
108: END IF;

Line 107: RAISE OKL_API.G_EXCEPTION_ERROR;

103: -- check if the subsidy id is passed, all further logic depend on subsidy id
104: IF(p_sixv_rec.subsidy_id IS NULL OR p_sixv_rec.subsidy_id = OKL_API.G_MISS_NUM)THEN
105: OKC_API.set_message(G_APP_NAME, G_NO_SUBSIDY_ID);
106: x_return_status := OKC_API.G_RET_STS_ERROR;
107: RAISE OKL_API.G_EXCEPTION_ERROR;
108: END IF;
109:
110: -- fetch the subsidy and associated pool details if any
111: OPEN c_get_pool_dates_csr; FETCH c_get_pool_dates_csr INTO cv_pool_details;

Line 124: lv_pool_expired := OKL_API.G_TRUE;

120: -- the code check before date check actually save a DML call
121: -- also, for ADDITION type transaction, the expiration check is not required as the pool balance is being
122: -- augmented and no harm is being done.
123: IF(NVL(cv_pool_details.effective_to_date,to_date('31/12/4712','DD/MM/RRRR')) < TRUNC(SYSDATE) AND p_sixv_rec.trx_type_code <> 'ADDITION')THEN
124: lv_pool_expired := OKL_API.G_TRUE;
125: IF(cv_pool_details.decision_status_code <> 'EXPIRED')THEN
126: -- pool though expired by dates, is not set to status EXPIRED. set the status and do not permit this transaction
127: -- THE EXPIRATION IS AN AUTONOMOUS TRANSACTION, see okl_subsidy_pools_pvt for more details
128: okl_subsidy_pool_pvt.expire_sub_pool(p_api_version => p_api_version

Line 144: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN

140: ' expiring subsidy pool with ret status '||x_return_status||' x_msg_data '||x_msg_data
141: );
142: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
143:
144: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
147: RAISE OKL_API.G_EXCEPTION_ERROR;
148: END IF;

Line 145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

141: );
142: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
143:
144: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
147: RAISE OKL_API.G_EXCEPTION_ERROR;
148: END IF;
149: END IF; -- end decision status code check

Line 146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN

142: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
143:
144: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
147: RAISE OKL_API.G_EXCEPTION_ERROR;
148: END IF;
149: END IF; -- end decision status code check
150: END IF; -- end effective to date check

Line 147: RAISE OKL_API.G_EXCEPTION_ERROR;

143:
144: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
147: RAISE OKL_API.G_EXCEPTION_ERROR;
148: END IF;
149: END IF; -- end decision status code check
150: END IF; -- end effective to date check
151: IF(lv_pool_expired = OKL_API.G_TRUE)THEN

Line 151: IF(lv_pool_expired = OKL_API.G_TRUE)THEN

147: RAISE OKL_API.G_EXCEPTION_ERROR;
148: END IF;
149: END IF; -- end decision status code check
150: END IF; -- end effective to date check
151: IF(lv_pool_expired = OKL_API.G_TRUE)THEN
152: OKL_API.set_message(G_APP_NAME, G_SUB_POOL_EXIPRED, 'SUB_NAME', cv_pool_details.name, 'ASSET', p_sixv_rec.dnz_asset_number);
153: RAISE OKL_API.G_EXCEPTION_ERROR;
154: END IF;
155:

Line 152: OKL_API.set_message(G_APP_NAME, G_SUB_POOL_EXIPRED, 'SUB_NAME', cv_pool_details.name, 'ASSET', p_sixv_rec.dnz_asset_number);

148: END IF;
149: END IF; -- end decision status code check
150: END IF; -- end effective to date check
151: IF(lv_pool_expired = OKL_API.G_TRUE)THEN
152: OKL_API.set_message(G_APP_NAME, G_SUB_POOL_EXIPRED, 'SUB_NAME', cv_pool_details.name, 'ASSET', p_sixv_rec.dnz_asset_number);
153: RAISE OKL_API.G_EXCEPTION_ERROR;
154: END IF;
155:
156: -- commenting this for there are no lookups as of now

Line 153: RAISE OKL_API.G_EXCEPTION_ERROR;

149: END IF; -- end decision status code check
150: END IF; -- end effective to date check
151: IF(lv_pool_expired = OKL_API.G_TRUE)THEN
152: OKL_API.set_message(G_APP_NAME, G_SUB_POOL_EXIPRED, 'SUB_NAME', cv_pool_details.name, 'ASSET', p_sixv_rec.dnz_asset_number);
153: RAISE OKL_API.G_EXCEPTION_ERROR;
154: END IF;
155:
156: -- commenting this for there are no lookups as of now
157: -- call validations on the transaction record

Line 173: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN

169: 'OKL_SIX_PVT.validate_row returned with status '||x_return_status||' x_msg_data '||x_msg_data
170: );
171: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
172:
173: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
174: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
175: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
176: RAISE OKL_API.G_EXCEPTION_ERROR;
177: END IF;

Line 174: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

170: );
171: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
172:
173: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
174: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
175: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
176: RAISE OKL_API.G_EXCEPTION_ERROR;
177: END IF;
178:

Line 175: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN

171: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
172:
173: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
174: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
175: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
176: RAISE OKL_API.G_EXCEPTION_ERROR;
177: END IF;
178:
179: -- now validate if the ADDITION operation on the subsidy pool balance is not reducing the subsidy less than 0

Line 176: RAISE OKL_API.G_EXCEPTION_ERROR;

172:
173: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
174: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
175: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
176: RAISE OKL_API.G_EXCEPTION_ERROR;
177: END IF;
178:
179: -- now validate if the ADDITION operation on the subsidy pool balance is not reducing the subsidy less than 0
180: IF(l_sixv_rec.trx_type_code = 'ADDITION')THEN

Line 182: OKL_API.set_message(G_APP_NAME, G_TRX_AMT_GT_TOT_SUBSIDY

178:
179: -- now validate if the ADDITION operation on the subsidy pool balance is not reducing the subsidy less than 0
180: IF(l_sixv_rec.trx_type_code = 'ADDITION')THEN
181: IF(l_sixv_rec.subsidy_pool_amount > cv_pool_details.total_subsidy_amount)THEN
182: OKL_API.set_message(G_APP_NAME, G_TRX_AMT_GT_TOT_SUBSIDY
183: ,'TRX_AMOUNT', l_sixv_rec.trx_amount
184: ,'SUBSIDY', cv_pool_details.name
185: ,'POOL_NAME',cv_pool_details.subsidy_pool_name);
186: RAISE OKL_API.G_EXCEPTION_ERROR;

Line 186: RAISE OKL_API.G_EXCEPTION_ERROR;

182: OKL_API.set_message(G_APP_NAME, G_TRX_AMT_GT_TOT_SUBSIDY
183: ,'TRX_AMOUNT', l_sixv_rec.trx_amount
184: ,'SUBSIDY', cv_pool_details.name
185: ,'POOL_NAME',cv_pool_details.subsidy_pool_name);
186: RAISE OKL_API.G_EXCEPTION_ERROR;
187: END IF;
188: ELSIF(l_sixv_rec.trx_type_code = 'REDUCTION') THEN
189: -- determine the pool amount from the transaction amount.
190: IF(l_sixv_rec.trx_currency_code <> cv_pool_details.currency_code)THEN

Line 204: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN

200: ,p_con_date => TRUNC(SYSDATE)
201: ,p_con_type => cv_pool_details.currency_conversion_type
202: ,x_conv_rate => lv_conv_rate
203: );
204: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
207: RAISE OKL_API.G_EXCEPTION_ERROR;
208: END IF;

Line 205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

201: ,p_con_type => cv_pool_details.currency_conversion_type
202: ,x_conv_rate => lv_conv_rate
203: );
204: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
207: RAISE OKL_API.G_EXCEPTION_ERROR;
208: END IF;
209: -- compute pool amount

Line 206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN

202: ,x_conv_rate => lv_conv_rate
203: );
204: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
207: RAISE OKL_API.G_EXCEPTION_ERROR;
208: END IF;
209: -- compute pool amount
210: lv_subsidy_pool_amt := 0;

Line 207: RAISE OKL_API.G_EXCEPTION_ERROR;

203: );
204: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
207: RAISE OKL_API.G_EXCEPTION_ERROR;
208: END IF;
209: -- compute pool amount
210: lv_subsidy_pool_amt := 0;
211: lv_subsidy_pool_amt := lv_conv_rate * l_sixv_rec.trx_amount;

Line 224: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN

220: ,p_amount => lv_subsidy_pool_amt
221: ,p_currency_code => cv_pool_details.currency_code
222: ,x_rounded_amount => lv_subsidy_pool_round_amt
223: );
224: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
227: RAISE OKL_API.G_EXCEPTION_ERROR;
228: END IF;

Line 225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

221: ,p_currency_code => cv_pool_details.currency_code
222: ,x_rounded_amount => lv_subsidy_pool_round_amt
223: );
224: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
227: RAISE OKL_API.G_EXCEPTION_ERROR;
228: END IF;
229: -- write to log

Line 226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN

222: ,x_rounded_amount => lv_subsidy_pool_round_amt
223: );
224: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
227: RAISE OKL_API.G_EXCEPTION_ERROR;
228: END IF;
229: -- write to log
230: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN

Line 227: RAISE OKL_API.G_EXCEPTION_ERROR;

223: );
224: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
227: RAISE OKL_API.G_EXCEPTION_ERROR;
228: END IF;
229: -- write to log
230: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
231: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,

Line 244: OKL_API.set_message(G_APP_NAME, G_TRX_AMT_GT_TOT_BUDGET

240:
241: -- REDUCTION operation on the pool balance is not overshooting the total budget
242: -- in other words, REDUCTION operation should not be more than the remaining balance
243: IF((lv_subsidy_pool_round_amt + cv_pool_details.total_subsidy_amount) > cv_pool_details.total_budgets)THEN
244: OKL_API.set_message(G_APP_NAME, G_TRX_AMT_GT_TOT_BUDGET
245: ,'TRX_AMOUNT', l_sixv_rec.trx_amount
246: ,'SUBSIDY', cv_pool_details.name
247: ,'POOL_NAME',cv_pool_details.subsidy_pool_name);
248: RAISE OKL_API.G_EXCEPTION_ERROR;

Line 248: RAISE OKL_API.G_EXCEPTION_ERROR;

244: OKL_API.set_message(G_APP_NAME, G_TRX_AMT_GT_TOT_BUDGET
245: ,'TRX_AMOUNT', l_sixv_rec.trx_amount
246: ,'SUBSIDY', cv_pool_details.name
247: ,'POOL_NAME',cv_pool_details.subsidy_pool_name);
248: RAISE OKL_API.G_EXCEPTION_ERROR;
249: END IF;
250: l_sixv_rec.subsidy_pool_currency_code := cv_pool_details.currency_code;
251: l_sixv_rec.subsidy_pool_amount := lv_subsidy_pool_round_amt;
252: END IF; -- end of trx_type_code check

Line 272: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN

268: 'created pool transaction record with status '||x_return_status || ' x_msg_data '||x_msg_data
269: );
270: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
271:
272: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
273: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
275: RAISE OKL_API.G_EXCEPTION_ERROR;
276: END IF;

Line 273: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

269: );
270: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
271:
272: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
273: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
275: RAISE OKL_API.G_EXCEPTION_ERROR;
276: END IF;
277: lv_total_subsidy_amt := 0;

Line 274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN

270: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
271:
272: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
273: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
275: RAISE OKL_API.G_EXCEPTION_ERROR;
276: END IF;
277: lv_total_subsidy_amt := 0;
278: IF(l_sixv_rec.trx_type_code = 'ADDITION')THEN

Line 275: RAISE OKL_API.G_EXCEPTION_ERROR;

271:
272: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
273: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
275: RAISE OKL_API.G_EXCEPTION_ERROR;
276: END IF;
277: lv_total_subsidy_amt := 0;
278: IF(l_sixv_rec.trx_type_code = 'ADDITION')THEN
279: lv_total_subsidy_amt := cv_pool_details.total_subsidy_amount - l_sixv_rec.subsidy_pool_amount;

Line 302: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN

298: 'updated total_subsisy_amount '||lv_total_subsidy_amt||' with status '||x_return_status || ' x_msg_data '||x_msg_data
299: );
300: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
301:
302: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
304: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
305: RAISE OKL_API.G_EXCEPTION_ERROR;
306: END IF;

Line 303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

299: );
300: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
301:
302: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
304: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
305: RAISE OKL_API.G_EXCEPTION_ERROR;
306: END IF;
307: END IF; -- end of subsidy pool id is not null

Line 304: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN

300: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
301:
302: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
304: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
305: RAISE OKL_API.G_EXCEPTION_ERROR;
306: END IF;
307: END IF; -- end of subsidy pool id is not null
308:

Line 305: RAISE OKL_API.G_EXCEPTION_ERROR;

301:
302: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
304: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
305: RAISE OKL_API.G_EXCEPTION_ERROR;
306: END IF;
307: END IF; -- end of subsidy pool id is not null
308:
309: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);

Line 309: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);

305: RAISE OKL_API.G_EXCEPTION_ERROR;
306: END IF;
307: END IF; -- end of subsidy pool id is not null
308:
309: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
310:
311: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
312: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIXB.pls call create_pool_transaction');
313: END IF;

Line 316: WHEN OKL_API.G_EXCEPTION_ERROR THEN

312: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIXB.pls call create_pool_transaction');
313: END IF;
314:
315: EXCEPTION
316: WHEN OKL_API.G_EXCEPTION_ERROR THEN
317: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
318: p_api_name => l_api_name,
319: p_pkg_name => G_PKG_NAME,
320: p_exc_name => 'OKL_API.G_RET_STS_ERROR',

Line 317: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

313: END IF;
314:
315: EXCEPTION
316: WHEN OKL_API.G_EXCEPTION_ERROR THEN
317: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
318: p_api_name => l_api_name,
319: p_pkg_name => G_PKG_NAME,
320: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
321: x_msg_count => x_msg_count,

Line 320: p_exc_name => 'OKL_API.G_RET_STS_ERROR',

316: WHEN OKL_API.G_EXCEPTION_ERROR THEN
317: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
318: p_api_name => l_api_name,
319: p_pkg_name => G_PKG_NAME,
320: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
321: x_msg_count => x_msg_count,
322: x_msg_data => x_msg_data,
323: p_api_type => g_api_type);
324:

Line 325: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

321: x_msg_count => x_msg_count,
322: x_msg_data => x_msg_data,
323: p_api_type => g_api_type);
324:
325: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
326: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
327: p_api_name => l_api_name,
328: p_pkg_name => G_PKG_NAME,
329: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 326: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

322: x_msg_data => x_msg_data,
323: p_api_type => g_api_type);
324:
325: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
326: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
327: p_api_name => l_api_name,
328: p_pkg_name => G_PKG_NAME,
329: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
330: x_msg_count => x_msg_count,

Line 329: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',

325: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
326: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
327: p_api_name => l_api_name,
328: p_pkg_name => G_PKG_NAME,
329: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
330: x_msg_count => x_msg_count,
331: x_msg_data => x_msg_data,
332: p_api_type => g_api_type);
333:

Line 335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

331: x_msg_data => x_msg_data,
332: p_api_type => g_api_type);
333:
334: WHEN OTHERS THEN
335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
336: p_api_name => l_api_name,
337: p_pkg_name => G_PKG_NAME,
338: p_exc_name => 'OTHERS',
339: x_msg_count => x_msg_count,

Line 357: x_return_status := OKL_API.G_RET_STS_SUCCESS;

353: l_api_name CONSTANT varchar2(30) := 'CREATE_POOL_TRANSACTION';
354: i NUMBER := 0;
355: l_six_tbl sixv_tbl_type;
356: BEGIN
357: x_return_status := OKL_API.G_RET_STS_SUCCESS;
358:
359: l_six_tbl := p_sixv_tbl;
360: IF(l_six_tbl.COUNT > 0 )THEN
361: i := l_six_tbl.FIRST;

Line 371: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

367: x_msg_count => x_msg_count,
368: x_msg_data => x_msg_data,
369: p_sixv_rec => l_six_tbl(i),
370: x_sixv_rec => x_sixv_tbl(i));
371: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
373: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
374: RAISE OKL_API.G_EXCEPTION_ERROR;
375: END IF;

Line 372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

368: x_msg_data => x_msg_data,
369: p_sixv_rec => l_six_tbl(i),
370: x_sixv_rec => x_sixv_tbl(i));
371: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
373: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
374: RAISE OKL_API.G_EXCEPTION_ERROR;
375: END IF;
376: EXIT WHEN (i = l_six_tbl.LAST);

Line 373: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

369: p_sixv_rec => l_six_tbl(i),
370: x_sixv_rec => x_sixv_tbl(i));
371: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
373: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
374: RAISE OKL_API.G_EXCEPTION_ERROR;
375: END IF;
376: EXIT WHEN (i = l_six_tbl.LAST);
377: i := l_six_tbl.NEXT(i);

Line 374: RAISE OKL_API.G_EXCEPTION_ERROR;

370: x_sixv_rec => x_sixv_tbl(i));
371: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
373: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
374: RAISE OKL_API.G_EXCEPTION_ERROR;
375: END IF;
376: EXIT WHEN (i = l_six_tbl.LAST);
377: i := l_six_tbl.NEXT(i);
378: END LOOP;

Line 381: WHEN OKL_API.G_EXCEPTION_ERROR THEN

377: i := l_six_tbl.NEXT(i);
378: END LOOP;
379: END IF;
380: EXCEPTION
381: WHEN OKL_API.G_EXCEPTION_ERROR THEN
382: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
383: p_api_name => l_api_name,
384: p_pkg_name => G_PKG_NAME,
385: p_exc_name => 'OKL_API.G_RET_STS_ERROR',

Line 382: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

378: END LOOP;
379: END IF;
380: EXCEPTION
381: WHEN OKL_API.G_EXCEPTION_ERROR THEN
382: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
383: p_api_name => l_api_name,
384: p_pkg_name => G_PKG_NAME,
385: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
386: x_msg_count => x_msg_count,

Line 385: p_exc_name => 'OKL_API.G_RET_STS_ERROR',

381: WHEN OKL_API.G_EXCEPTION_ERROR THEN
382: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
383: p_api_name => l_api_name,
384: p_pkg_name => G_PKG_NAME,
385: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
386: x_msg_count => x_msg_count,
387: x_msg_data => x_msg_data,
388: p_api_type => g_api_type);
389:

Line 390: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

386: x_msg_count => x_msg_count,
387: x_msg_data => x_msg_data,
388: p_api_type => g_api_type);
389:
390: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
391: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
392: p_api_name => l_api_name,
393: p_pkg_name => G_PKG_NAME,
394: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 391: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

387: x_msg_data => x_msg_data,
388: p_api_type => g_api_type);
389:
390: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
391: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
392: p_api_name => l_api_name,
393: p_pkg_name => G_PKG_NAME,
394: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
395: x_msg_count => x_msg_count,

Line 394: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',

390: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
391: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
392: p_api_name => l_api_name,
393: p_pkg_name => G_PKG_NAME,
394: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
395: x_msg_count => x_msg_count,
396: x_msg_data => x_msg_data,
397: p_api_type => g_api_type);
398:

Line 400: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

396: x_msg_data => x_msg_data,
397: p_api_type => g_api_type);
398:
399: WHEN OTHERS THEN
400: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
401: p_api_name => l_api_name,
402: p_pkg_name => G_PKG_NAME,
403: p_exc_name => 'OTHERS',
404: x_msg_count => x_msg_count,