[Home] [Help]
65: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_VP_SYNC_CR_PVT.SYNC_CHANGE_REQUEST';
66: l_debug_enabled VARCHAR2(10);
67:
68: BEGIN
69: x_return_status := OKL_API.G_RET_STS_SUCCESS;
70:
71: l_debug_enabled := okl_debug_pub.check_log_enabled;
72:
73: IF(l_debug_enabled='Y') THEN
74: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCRSB.pls call sync_change_request');
75: END IF;
76:
77: -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
78: x_return_status := OKL_API.START_ACTIVITY(
79: p_api_name => l_api_name
80: ,p_pkg_name => G_PKG_NAME
81: ,p_init_msg_list => p_init_msg_list
82: ,l_api_version => l_api_version
83: ,p_api_version => p_api_version
84: ,p_api_type => g_api_type
85: ,x_return_status => x_return_status);
86: -- check if activity started successfully
87: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
88: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
89: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
90: RAISE OKL_API.G_EXCEPTION_ERROR;
91: END IF;
84: ,p_api_type => g_api_type
85: ,x_return_status => x_return_status);
86: -- check if activity started successfully
87: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
88: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
89: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
90: RAISE OKL_API.G_EXCEPTION_ERROR;
91: END IF;
92:
85: ,x_return_status => x_return_status);
86: -- check if activity started successfully
87: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
88: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
89: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
90: RAISE OKL_API.G_EXCEPTION_ERROR;
91: END IF;
92:
93: -- fetch the change request information
86: -- check if activity started successfully
87: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
88: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
89: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
90: RAISE OKL_API.G_EXCEPTION_ERROR;
91: END IF;
92:
93: -- fetch the change request information
94: OPEN c_get_cr_details_csr(p_change_request_id); FETCH c_get_cr_details_csr INTO cv_get_cr_details;
95: CLOSE c_get_cr_details_csr;
96:
97: -- if the change request is not in Pending Approval status, error out
98: IF(cv_get_cr_details.status_code NOT IN (G_PENDING_STS_CODE, G_APPROVED_STS_CODE))THEN
99: OKL_API.set_message(G_APP_NAME, G_INVALID_STS_APPROVED, 'CHANGE_REQ_NUM',cv_get_cr_details.change_request_number);
100: RAISE OKL_API.G_EXCEPTION_ERROR;
101: END IF;
102:
103: -- store the value of the original agreement id here. this would be useful in calling the sync procedures
96:
97: -- if the change request is not in Pending Approval status, error out
98: IF(cv_get_cr_details.status_code NOT IN (G_PENDING_STS_CODE, G_APPROVED_STS_CODE))THEN
99: OKL_API.set_message(G_APP_NAME, G_INVALID_STS_APPROVED, 'CHANGE_REQ_NUM',cv_get_cr_details.change_request_number);
100: RAISE OKL_API.G_EXCEPTION_ERROR;
101: END IF;
102:
103: -- store the value of the original agreement id here. this would be useful in calling the sync procedures
104: lv_orig_chr_id := cv_get_cr_details.orig_agr_chr_id;
131: l_module,
132: 'sync_agr_header returned with status '||x_return_status
133: );
134: END IF;
135: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
138: RAISE OKL_API.G_EXCEPTION_ERROR;
139: END IF;
132: 'sync_agr_header returned with status '||x_return_status
133: );
134: END IF;
135: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
138: RAISE OKL_API.G_EXCEPTION_ERROR;
139: END IF;
140:
133: );
134: END IF;
135: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
138: RAISE OKL_API.G_EXCEPTION_ERROR;
139: END IF;
140:
141: -- 2. synchronize non primary parties
134: END IF;
135: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
138: RAISE OKL_API.G_EXCEPTION_ERROR;
139: END IF;
140:
141: -- 2. synchronize non primary parties
142: sync_non_primary_parties(p_api_version => p_api_version
152: l_module,
153: 'sync_non_primary_parties returned with status '||x_return_status
154: );
155: END IF;
156: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
159: RAISE OKL_API.G_EXCEPTION_ERROR;
160: END IF;
153: 'sync_non_primary_parties returned with status '||x_return_status
154: );
155: END IF;
156: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
159: RAISE OKL_API.G_EXCEPTION_ERROR;
160: END IF;
161:
154: );
155: END IF;
156: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
159: RAISE OKL_API.G_EXCEPTION_ERROR;
160: END IF;
161:
162: -- 3. synchronize contacts for all parties
155: END IF;
156: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
159: RAISE OKL_API.G_EXCEPTION_ERROR;
160: END IF;
161:
162: -- 3. synchronize contacts for all parties
163: sync_party_contacts(p_api_version => p_api_version
173: l_module,
174: 'sync_party_contacts returned with status '||x_return_status
175: );
176: END IF;
177: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
180: RAISE OKL_API.G_EXCEPTION_ERROR;
181: END IF;
174: 'sync_party_contacts returned with status '||x_return_status
175: );
176: END IF;
177: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
180: RAISE OKL_API.G_EXCEPTION_ERROR;
181: END IF;
182:
175: );
176: END IF;
177: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
180: RAISE OKL_API.G_EXCEPTION_ERROR;
181: END IF;
182:
183: -- 4. synchronize changes to articles
176: END IF;
177: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
180: RAISE OKL_API.G_EXCEPTION_ERROR;
181: END IF;
182:
183: -- 4. synchronize changes to articles
184: sync_article_changes(p_api_version => p_api_version
194: l_module,
195: 'sync_article_changes returned with status '||x_return_status
196: );
197: END IF;
198: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
201: RAISE OKL_API.G_EXCEPTION_ERROR;
202: END IF;
195: 'sync_article_changes returned with status '||x_return_status
196: );
197: END IF;
198: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
201: RAISE OKL_API.G_EXCEPTION_ERROR;
202: END IF;
203:
196: );
197: END IF;
198: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
201: RAISE OKL_API.G_EXCEPTION_ERROR;
202: END IF;
203:
204: -- 5. synchronize changes to the Vendor Billing Information
197: END IF;
198: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
201: RAISE OKL_API.G_EXCEPTION_ERROR;
202: END IF;
203:
204: -- 5. synchronize changes to the Vendor Billing Information
205: sync_vendor_billing(p_api_version => p_api_version
215: l_module,
216: 'sync_vendor_billing returned with status '||x_return_status
217: );
218: END IF;
219: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
222: RAISE OKL_API.G_EXCEPTION_ERROR;
223: END IF;
216: 'sync_vendor_billing returned with status '||x_return_status
217: );
218: END IF;
219: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
222: RAISE OKL_API.G_EXCEPTION_ERROR;
223: END IF;
224:
217: );
218: END IF;
219: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
222: RAISE OKL_API.G_EXCEPTION_ERROR;
223: END IF;
224:
225: END IF; -- end of G_OPERATING_SCS_CODE = cv_get_cr_details.agreement_category OR G_PROGRAM_SCS_CODE = cv_get_cr_details.agreement_category
218: END IF;
219: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
222: RAISE OKL_API.G_EXCEPTION_ERROR;
223: END IF;
224:
225: END IF; -- end of G_OPERATING_SCS_CODE = cv_get_cr_details.agreement_category OR G_PROGRAM_SCS_CODE = cv_get_cr_details.agreement_category
226:
241: l_module,
242: 'sync_agr_associations returned with status '||x_return_status
243: );
244: END IF;
245: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
248: RAISE OKL_API.G_EXCEPTION_ERROR;
249: END IF;
242: 'sync_agr_associations returned with status '||x_return_status
243: );
244: END IF;
245: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
248: RAISE OKL_API.G_EXCEPTION_ERROR;
249: END IF;
250:
243: );
244: END IF;
245: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
248: RAISE OKL_API.G_EXCEPTION_ERROR;
249: END IF;
250:
251: -- 2. synchronize changes to eligibility criteria
244: END IF;
245: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
248: RAISE OKL_API.G_EXCEPTION_ERROR;
249: END IF;
250:
251: -- 2. synchronize changes to eligibility criteria
252: sync_elig_criteria(p_api_version => p_api_version
262: l_module,
263: 'sync_elig_criteria returned with status '||x_return_status
264: );
265: END IF;
266: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
269: RAISE OKL_API.G_EXCEPTION_ERROR;
270: END IF;
263: 'sync_elig_criteria returned with status '||x_return_status
264: );
265: END IF;
266: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
269: RAISE OKL_API.G_EXCEPTION_ERROR;
270: END IF;
271:
264: );
265: END IF;
266: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
269: RAISE OKL_API.G_EXCEPTION_ERROR;
270: END IF;
271:
272:
265: END IF;
266: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
269: RAISE OKL_API.G_EXCEPTION_ERROR;
270: END IF;
271:
272:
273: -- 3. synchronize changes terms and conditions
284: l_module,
285: 'sync_terms returned with status '||x_return_status
286: );
287: END IF;
288: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
290: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
291: RAISE OKL_API.G_EXCEPTION_ERROR;
292: END IF;
285: 'sync_terms returned with status '||x_return_status
286: );
287: END IF;
288: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
290: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
291: RAISE OKL_API.G_EXCEPTION_ERROR;
292: END IF;
293:
286: );
287: END IF;
288: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
290: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
291: RAISE OKL_API.G_EXCEPTION_ERROR;
292: END IF;
293:
294:
287: END IF;
288: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
290: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
291: RAISE OKL_API.G_EXCEPTION_ERROR;
292: END IF;
293:
294:
295: -- 4. synchronize changes to the disbursement setup
306: l_module,
307: 'sync_vendor_disb_setup returned with status '||x_return_status
308: );
309: END IF;
310: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
312: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
313: RAISE OKL_API.G_EXCEPTION_ERROR;
314: END IF;
307: 'sync_vendor_disb_setup returned with status '||x_return_status
308: );
309: END IF;
310: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
312: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
313: RAISE OKL_API.G_EXCEPTION_ERROR;
314: END IF;
315:
308: );
309: END IF;
310: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
312: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
313: RAISE OKL_API.G_EXCEPTION_ERROR;
314: END IF;
315:
316: END IF; -- end of G_PROGRAM_SCS_CODE = cv_get_cr_details_csr.agreement_category
309: END IF;
310: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
312: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
313: RAISE OKL_API.G_EXCEPTION_ERROR;
314: END IF;
315:
316: END IF; -- end of G_PROGRAM_SCS_CODE = cv_get_cr_details_csr.agreement_category
317: -- now that synchronization has happened, the agreement status has to be updated to ABANDONED
328: l_module,
329: 'okl_contract_status_pub.update_contract_status G_ABANDONED_STS_CODE returned with status '||x_return_status
330: );
331: END IF;
332: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
335: RAISE OKL_API.G_EXCEPTION_ERROR;
336: END IF;
329: 'okl_contract_status_pub.update_contract_status G_ABANDONED_STS_CODE returned with status '||x_return_status
330: );
331: END IF;
332: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
335: RAISE OKL_API.G_EXCEPTION_ERROR;
336: END IF;
337: ELSIF(G_ASSOCIATE_TYPE_CODE = cv_get_cr_details.change_type_code)THEN
330: );
331: END IF;
332: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
335: RAISE OKL_API.G_EXCEPTION_ERROR;
336: END IF;
337: ELSIF(G_ASSOCIATE_TYPE_CODE = cv_get_cr_details.change_type_code)THEN
338: -- 1. synchronize changes to the associations
331: END IF;
332: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
335: RAISE OKL_API.G_EXCEPTION_ERROR;
336: END IF;
337: ELSIF(G_ASSOCIATE_TYPE_CODE = cv_get_cr_details.change_type_code)THEN
338: -- 1. synchronize changes to the associations
339: sync_associations(p_api_version => p_api_version
350: l_module,
351: 'sync_associations for ASSOCIATION returned with status '||x_return_status
352: );
353: END IF;
354: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
357: RAISE OKL_API.G_EXCEPTION_ERROR;
358: END IF;
351: 'sync_associations for ASSOCIATION returned with status '||x_return_status
352: );
353: END IF;
354: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
357: RAISE OKL_API.G_EXCEPTION_ERROR;
358: END IF;
359: END IF; -- end of G_ARGREEMENT_TYPE_CODE = cv_get_cr_details_csr.change_type_code
352: );
353: END IF;
354: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
357: RAISE OKL_API.G_EXCEPTION_ERROR;
358: END IF;
359: END IF; -- end of G_ARGREEMENT_TYPE_CODE = cv_get_cr_details_csr.change_type_code
360:
353: END IF;
354: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
357: RAISE OKL_API.G_EXCEPTION_ERROR;
358: END IF;
359: END IF; -- end of G_ARGREEMENT_TYPE_CODE = cv_get_cr_details_csr.change_type_code
360:
361: -- set the status of the change request to COMPLETED
377: 'okl_vp_change_request_pvt.update_change_request_header returned with status '||x_return_status
378: );
379: END IF;
380:
381: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
384: RAISE OKL_API.G_EXCEPTION_ERROR;
385: END IF;
378: );
379: END IF;
380:
381: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
384: RAISE OKL_API.G_EXCEPTION_ERROR;
385: END IF;
386:
379: END IF;
380:
381: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
384: RAISE OKL_API.G_EXCEPTION_ERROR;
385: END IF;
386:
387: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
380:
381: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
384: RAISE OKL_API.G_EXCEPTION_ERROR;
385: END IF;
386:
387: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
388:
383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
384: RAISE OKL_API.G_EXCEPTION_ERROR;
385: END IF;
386:
387: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
388:
389: IF(l_debug_enabled='Y') THEN
390: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_change_request');
391: END IF;
389: IF(l_debug_enabled='Y') THEN
390: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_change_request');
391: END IF;
392: EXCEPTION
393: WHEN OKL_API.G_EXCEPTION_ERROR THEN
394: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
395: p_api_name => l_api_name,
396: p_pkg_name => G_PKG_NAME,
397: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
390: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_change_request');
391: END IF;
392: EXCEPTION
393: WHEN OKL_API.G_EXCEPTION_ERROR THEN
394: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
395: p_api_name => l_api_name,
396: p_pkg_name => G_PKG_NAME,
397: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
398: x_msg_count => x_msg_count,
393: WHEN OKL_API.G_EXCEPTION_ERROR THEN
394: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
395: p_api_name => l_api_name,
396: p_pkg_name => G_PKG_NAME,
397: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
398: x_msg_count => x_msg_count,
399: x_msg_data => x_msg_data,
400: p_api_type => g_api_type);
401: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
397: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
398: x_msg_count => x_msg_count,
399: x_msg_data => x_msg_data,
400: p_api_type => g_api_type);
401: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
402: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
403: p_api_name => l_api_name,
404: p_pkg_name => G_PKG_NAME,
405: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
398: x_msg_count => x_msg_count,
399: x_msg_data => x_msg_data,
400: p_api_type => g_api_type);
401: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
402: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
403: p_api_name => l_api_name,
404: p_pkg_name => G_PKG_NAME,
405: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
406: x_msg_count => x_msg_count,
401: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
402: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
403: p_api_name => l_api_name,
404: p_pkg_name => G_PKG_NAME,
405: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
406: x_msg_count => x_msg_count,
407: x_msg_data => x_msg_data,
408: p_api_type => g_api_type);
409: WHEN OTHERS THEN
406: x_msg_count => x_msg_count,
407: x_msg_data => x_msg_data,
408: p_api_type => g_api_type);
409: WHEN OTHERS THEN
410: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
411: p_api_name => l_api_name,
412: p_pkg_name => G_PKG_NAME,
413: p_exc_name => 'OTHERS',
414: x_msg_count => x_msg_count,
467: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_VP_SYNC_CR_PVT.SYNC_AGR_HEADER';
468: l_debug_enabled VARCHAR2(10);
469:
470: BEGIN
471: x_return_status := OKL_API.G_RET_STS_SUCCESS;
472:
473: l_debug_enabled := okl_debug_pub.check_log_enabled;
474:
475: IF(l_debug_enabled='Y') THEN
476: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCRSB.pls call sync_agr_header');
477: END IF;
478:
479: -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
480: x_return_status := OKL_API.START_ACTIVITY(
481: p_api_name => l_api_name
482: ,p_pkg_name => G_PKG_NAME
483: ,p_init_msg_list => p_init_msg_list
484: ,l_api_version => l_api_version
485: ,p_api_version => p_api_version
486: ,p_api_type => g_api_type
487: ,x_return_status => x_return_status);
488: -- check if activity started successfully
489: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
492: RAISE OKL_API.G_EXCEPTION_ERROR;
493: END IF;
486: ,p_api_type => g_api_type
487: ,x_return_status => x_return_status);
488: -- check if activity started successfully
489: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
492: RAISE OKL_API.G_EXCEPTION_ERROR;
493: END IF;
494:
487: ,x_return_status => x_return_status);
488: -- check if activity started successfully
489: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
492: RAISE OKL_API.G_EXCEPTION_ERROR;
493: END IF;
494:
495: -- get the old and new values into the cursor variables
488: -- check if activity started successfully
489: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
492: RAISE OKL_API.G_EXCEPTION_ERROR;
493: END IF;
494:
495: -- get the old and new values into the cursor variables
496: OPEN c_hdr_attribs_csr(p_orig_chr_id); FETCH c_hdr_attribs_csr INTO cv_hdr_attribs_orig;
501:
502: -- now compare the attributes, and if there are any differences only then call the API.
503: -- the comparision would save a costly DML call
504: IF(
505: (NVL(cv_hdr_attribs_orig.short_description, OKL_API.G_MISS_CHAR) <> NVL(cv_hdr_attribs_new.short_description, OKL_API.G_MISS_CHAR))
506: OR (NVL(cv_hdr_attribs_orig.comments, OKL_API.G_MISS_CHAR) <> NVL(cv_hdr_attribs_new.comments, OKL_API.G_MISS_CHAR))
507: OR (NVL(cv_hdr_attribs_orig.description, OKL_API.G_MISS_CHAR) <> NVL(cv_hdr_attribs_new.description, OKL_API.G_MISS_CHAR))
508: OR (NVL(cv_hdr_attribs_orig.end_date, OKL_API.G_MISS_DATE) <> NVL(cv_hdr_attribs_new.end_date, OKL_API.G_MISS_DATE))
509: OR (NVL(cv_hdr_attribs_orig.chr_id_referred, OKL_API.G_MISS_NUM) <> NVL(cv_hdr_attribs_new.chr_id_referred, OKL_API.G_MISS_NUM))
502: -- now compare the attributes, and if there are any differences only then call the API.
503: -- the comparision would save a costly DML call
504: IF(
505: (NVL(cv_hdr_attribs_orig.short_description, OKL_API.G_MISS_CHAR) <> NVL(cv_hdr_attribs_new.short_description, OKL_API.G_MISS_CHAR))
506: OR (NVL(cv_hdr_attribs_orig.comments, OKL_API.G_MISS_CHAR) <> NVL(cv_hdr_attribs_new.comments, OKL_API.G_MISS_CHAR))
507: OR (NVL(cv_hdr_attribs_orig.description, OKL_API.G_MISS_CHAR) <> NVL(cv_hdr_attribs_new.description, OKL_API.G_MISS_CHAR))
508: OR (NVL(cv_hdr_attribs_orig.end_date, OKL_API.G_MISS_DATE) <> NVL(cv_hdr_attribs_new.end_date, OKL_API.G_MISS_DATE))
509: OR (NVL(cv_hdr_attribs_orig.chr_id_referred, OKL_API.G_MISS_NUM) <> NVL(cv_hdr_attribs_new.chr_id_referred, OKL_API.G_MISS_NUM))
510: )THEN
503: -- the comparision would save a costly DML call
504: IF(
505: (NVL(cv_hdr_attribs_orig.short_description, OKL_API.G_MISS_CHAR) <> NVL(cv_hdr_attribs_new.short_description, OKL_API.G_MISS_CHAR))
506: OR (NVL(cv_hdr_attribs_orig.comments, OKL_API.G_MISS_CHAR) <> NVL(cv_hdr_attribs_new.comments, OKL_API.G_MISS_CHAR))
507: OR (NVL(cv_hdr_attribs_orig.description, OKL_API.G_MISS_CHAR) <> NVL(cv_hdr_attribs_new.description, OKL_API.G_MISS_CHAR))
508: OR (NVL(cv_hdr_attribs_orig.end_date, OKL_API.G_MISS_DATE) <> NVL(cv_hdr_attribs_new.end_date, OKL_API.G_MISS_DATE))
509: OR (NVL(cv_hdr_attribs_orig.chr_id_referred, OKL_API.G_MISS_NUM) <> NVL(cv_hdr_attribs_new.chr_id_referred, OKL_API.G_MISS_NUM))
510: )THEN
511:
504: IF(
505: (NVL(cv_hdr_attribs_orig.short_description, OKL_API.G_MISS_CHAR) <> NVL(cv_hdr_attribs_new.short_description, OKL_API.G_MISS_CHAR))
506: OR (NVL(cv_hdr_attribs_orig.comments, OKL_API.G_MISS_CHAR) <> NVL(cv_hdr_attribs_new.comments, OKL_API.G_MISS_CHAR))
507: OR (NVL(cv_hdr_attribs_orig.description, OKL_API.G_MISS_CHAR) <> NVL(cv_hdr_attribs_new.description, OKL_API.G_MISS_CHAR))
508: OR (NVL(cv_hdr_attribs_orig.end_date, OKL_API.G_MISS_DATE) <> NVL(cv_hdr_attribs_new.end_date, OKL_API.G_MISS_DATE))
509: OR (NVL(cv_hdr_attribs_orig.chr_id_referred, OKL_API.G_MISS_NUM) <> NVL(cv_hdr_attribs_new.chr_id_referred, OKL_API.G_MISS_NUM))
510: )THEN
511:
512: l_agr_hdr_rec.p_agreement_number := cv_hdr_attribs_orig.contract_number;
505: (NVL(cv_hdr_attribs_orig.short_description, OKL_API.G_MISS_CHAR) <> NVL(cv_hdr_attribs_new.short_description, OKL_API.G_MISS_CHAR))
506: OR (NVL(cv_hdr_attribs_orig.comments, OKL_API.G_MISS_CHAR) <> NVL(cv_hdr_attribs_new.comments, OKL_API.G_MISS_CHAR))
507: OR (NVL(cv_hdr_attribs_orig.description, OKL_API.G_MISS_CHAR) <> NVL(cv_hdr_attribs_new.description, OKL_API.G_MISS_CHAR))
508: OR (NVL(cv_hdr_attribs_orig.end_date, OKL_API.G_MISS_DATE) <> NVL(cv_hdr_attribs_new.end_date, OKL_API.G_MISS_DATE))
509: OR (NVL(cv_hdr_attribs_orig.chr_id_referred, OKL_API.G_MISS_NUM) <> NVL(cv_hdr_attribs_new.chr_id_referred, OKL_API.G_MISS_NUM))
510: )THEN
511:
512: l_agr_hdr_rec.p_agreement_number := cv_hdr_attribs_orig.contract_number;
513: l_agr_hdr_rec.p_contract_category := cv_hdr_attribs_orig.scs_code;
556: 'okl_vendor_program_pvt.update_program returned with status '||x_return_status||' x_msg_data '||x_msg_data
557: );
558: END IF;
559:
560: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
562: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
563: RAISE OKL_API.G_EXCEPTION_ERROR;
564: END IF;
557: );
558: END IF;
559:
560: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
562: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
563: RAISE OKL_API.G_EXCEPTION_ERROR;
564: END IF;
565: END IF; -- end of difference check
558: END IF;
559:
560: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
562: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
563: RAISE OKL_API.G_EXCEPTION_ERROR;
564: END IF;
565: END IF; -- end of difference check
566:
559:
560: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
562: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
563: RAISE OKL_API.G_EXCEPTION_ERROR;
564: END IF;
565: END IF; -- end of difference check
566:
567:
564: END IF;
565: END IF; -- end of difference check
566:
567:
568: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
569:
570: IF(l_debug_enabled='Y') THEN
571: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_agr_header');
572: END IF;
570: IF(l_debug_enabled='Y') THEN
571: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_agr_header');
572: END IF;
573: EXCEPTION
574: WHEN OKL_API.G_EXCEPTION_ERROR THEN
575: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
576: p_api_name => l_api_name,
577: p_pkg_name => G_PKG_NAME,
578: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
571: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_agr_header');
572: END IF;
573: EXCEPTION
574: WHEN OKL_API.G_EXCEPTION_ERROR THEN
575: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
576: p_api_name => l_api_name,
577: p_pkg_name => G_PKG_NAME,
578: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
579: x_msg_count => x_msg_count,
574: WHEN OKL_API.G_EXCEPTION_ERROR THEN
575: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
576: p_api_name => l_api_name,
577: p_pkg_name => G_PKG_NAME,
578: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
579: x_msg_count => x_msg_count,
580: x_msg_data => x_msg_data,
581: p_api_type => g_api_type);
582: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
578: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
579: x_msg_count => x_msg_count,
580: x_msg_data => x_msg_data,
581: p_api_type => g_api_type);
582: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
583: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
584: p_api_name => l_api_name,
585: p_pkg_name => G_PKG_NAME,
586: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
579: x_msg_count => x_msg_count,
580: x_msg_data => x_msg_data,
581: p_api_type => g_api_type);
582: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
583: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
584: p_api_name => l_api_name,
585: p_pkg_name => G_PKG_NAME,
586: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
587: x_msg_count => x_msg_count,
582: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
583: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
584: p_api_name => l_api_name,
585: p_pkg_name => G_PKG_NAME,
586: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
587: x_msg_count => x_msg_count,
588: x_msg_data => x_msg_data,
589: p_api_type => g_api_type);
590: WHEN OTHERS THEN
587: x_msg_count => x_msg_count,
588: x_msg_data => x_msg_data,
589: p_api_type => g_api_type);
590: WHEN OTHERS THEN
591: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
592: p_api_name => l_api_name,
593: p_pkg_name => G_PKG_NAME,
594: p_exc_name => 'OTHERS',
595: x_msg_count => x_msg_count,
699: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_VP_SYNC_CR_PVT.SYNC_NON_PRIMARY_PARTIES';
700: l_debug_enabled VARCHAR2(10);
701:
702: BEGIN
703: x_return_status := OKL_API.G_RET_STS_SUCCESS;
704:
705: l_debug_enabled := okl_debug_pub.check_log_enabled;
706:
707: IF(l_debug_enabled='Y') THEN
708: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCRSB.pls call sync_non_primary_parties');
709: END IF;
710:
711: -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
712: x_return_status := OKL_API.START_ACTIVITY(
713: p_api_name => l_api_name
714: ,p_pkg_name => G_PKG_NAME
715: ,p_init_msg_list => p_init_msg_list
716: ,l_api_version => l_api_version
717: ,p_api_version => p_api_version
718: ,p_api_type => g_api_type
719: ,x_return_status => x_return_status);
720: -- check if activity started successfully
721: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
723: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
724: RAISE OKL_API.G_EXCEPTION_ERROR;
725: END IF;
718: ,p_api_type => g_api_type
719: ,x_return_status => x_return_status);
720: -- check if activity started successfully
721: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
723: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
724: RAISE OKL_API.G_EXCEPTION_ERROR;
725: END IF;
726:
719: ,x_return_status => x_return_status);
720: -- check if activity started successfully
721: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
723: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
724: RAISE OKL_API.G_EXCEPTION_ERROR;
725: END IF;
726:
727: -- find any changes that have happened on the non primary parties on the agreement
720: -- check if activity started successfully
721: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
723: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
724: RAISE OKL_API.G_EXCEPTION_ERROR;
725: END IF;
726:
727: -- find any changes that have happened on the non primary parties on the agreement
728: -- this includes deletion of non primary parties on the change request. these non primary parties have to be
738: CLOSE c_get_party_info_csr;
739: -- compare if the values of known as or alias have changed on the new change request from the agreement.
740: -- call the update api only if there are changes to these two fields
741: IF(
742: (NVL(cv_get_party_info_rec.party_known_as, OKL_API.G_MISS_CHAR) <> NVL(parties_rec.party_known_as,OKL_API.G_MISS_CHAR))
743: OR (NVL(cv_get_party_info_rec.alias, OKL_API.G_MISS_CHAR) <> NVL(parties_rec.alias, OKL_API.G_MISS_CHAR))
744: )THEN
745: lv_cplv_rec.id := parties_rec.id;
746: lv_cplv_rec.chr_id := parties_rec.chr_id;
739: -- compare if the values of known as or alias have changed on the new change request from the agreement.
740: -- call the update api only if there are changes to these two fields
741: IF(
742: (NVL(cv_get_party_info_rec.party_known_as, OKL_API.G_MISS_CHAR) <> NVL(parties_rec.party_known_as,OKL_API.G_MISS_CHAR))
743: OR (NVL(cv_get_party_info_rec.alias, OKL_API.G_MISS_CHAR) <> NVL(parties_rec.alias, OKL_API.G_MISS_CHAR))
744: )THEN
745: lv_cplv_rec.id := parties_rec.id;
746: lv_cplv_rec.chr_id := parties_rec.chr_id;
747: lv_cplv_rec.rle_code := parties_rec.rle_code;
790: l_module,
791: 'okl_contract_party_pub.update_k_party_role returned with status '||x_return_status
792: );
793: END IF;
794: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
796: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
797: RAISE OKL_API.G_EXCEPTION_ERROR;
798: END IF;
791: 'okl_contract_party_pub.update_k_party_role returned with status '||x_return_status
792: );
793: END IF;
794: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
796: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
797: RAISE OKL_API.G_EXCEPTION_ERROR;
798: END IF;
799: END IF; -- end of comparision
792: );
793: END IF;
794: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
796: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
797: RAISE OKL_API.G_EXCEPTION_ERROR;
798: END IF;
799: END IF; -- end of comparision
800: ELSE -- cursor not found case
793: END IF;
794: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
796: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
797: RAISE OKL_API.G_EXCEPTION_ERROR;
798: END IF;
799: END IF; -- end of comparision
800: ELSE -- cursor not found case
801: -- this is the case of the party record is not on the change request. this implies that the non primary party has been
820: l_module,
821: 'okl_contract_party_pub.delete_contact returned with status '||x_return_status||' contact_tbl_idx '||contact_tbl_idx
822: );
823: END IF;
824: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
827: RAISE OKL_API.G_EXCEPTION_ERROR;
828: END IF;
821: 'okl_contract_party_pub.delete_contact returned with status '||x_return_status||' contact_tbl_idx '||contact_tbl_idx
822: );
823: END IF;
824: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
827: RAISE OKL_API.G_EXCEPTION_ERROR;
828: END IF;
829: END IF;
822: );
823: END IF;
824: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
827: RAISE OKL_API.G_EXCEPTION_ERROR;
828: END IF;
829: END IF;
830: -- now its safe to delete the parent
823: END IF;
824: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
827: RAISE OKL_API.G_EXCEPTION_ERROR;
828: END IF;
829: END IF;
830: -- now its safe to delete the parent
831: lv_cplv_rec.id := parties_rec.id;
841: l_module,
842: 'okl_contract_party_pub.delete_k_party_role returned with status '||x_return_status
843: );
844: END IF;
845: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
847: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
848: RAISE OKL_API.G_EXCEPTION_ERROR;
849: END IF;
842: 'okl_contract_party_pub.delete_k_party_role returned with status '||x_return_status
843: );
844: END IF;
845: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
847: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
848: RAISE OKL_API.G_EXCEPTION_ERROR;
849: END IF;
850: END IF; -- end of cursor found case
843: );
844: END IF;
845: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
847: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
848: RAISE OKL_API.G_EXCEPTION_ERROR;
849: END IF;
850: END IF; -- end of cursor found case
851: END LOOP;
844: END IF;
845: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
847: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
848: RAISE OKL_API.G_EXCEPTION_ERROR;
849: END IF;
850: END IF; -- end of cursor found case
851: END LOOP;
852:
853: -- synchronize all the non primary parties that have been created on the change request
854: -- cannot rely on primary_yn of okc_k_party_roles_b as this value is null always
855: FOR new_parties_rec IN new_parties_csr(p_creq_chr_id, p_orig_chr_id) LOOP
856: okl_copy_contract_pub.copy_party_roles(p_api_version => 1.0
857: ,p_init_msg_list => OKL_API.G_FALSE
858: ,x_return_status => x_return_status
859: ,x_msg_count => x_msg_count
860: ,x_msg_data => x_msg_data
861: ,p_cpl_id => new_parties_rec.id
869: l_module,
870: 'okl_copy_contract_pub.copy_party_roles returned with status '||x_return_status
871: );
872: END IF;
873: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
875: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
876: RAISE OKL_API.G_EXCEPTION_ERROR;
877: END IF;
870: 'okl_copy_contract_pub.copy_party_roles returned with status '||x_return_status
871: );
872: END IF;
873: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
875: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
876: RAISE OKL_API.G_EXCEPTION_ERROR;
877: END IF;
878: END LOOP;
871: );
872: END IF;
873: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
875: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
876: RAISE OKL_API.G_EXCEPTION_ERROR;
877: END IF;
878: END LOOP;
879:
872: END IF;
873: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
875: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
876: RAISE OKL_API.G_EXCEPTION_ERROR;
877: END IF;
878: END LOOP;
879:
880: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
876: RAISE OKL_API.G_EXCEPTION_ERROR;
877: END IF;
878: END LOOP;
879:
880: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
881:
882: IF(l_debug_enabled='Y') THEN
883: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_non_primary_parties');
884: END IF;
882: IF(l_debug_enabled='Y') THEN
883: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_non_primary_parties');
884: END IF;
885: EXCEPTION
886: WHEN OKL_API.G_EXCEPTION_ERROR THEN
887: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
888: p_api_name => l_api_name,
889: p_pkg_name => G_PKG_NAME,
890: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
883: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_non_primary_parties');
884: END IF;
885: EXCEPTION
886: WHEN OKL_API.G_EXCEPTION_ERROR THEN
887: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
888: p_api_name => l_api_name,
889: p_pkg_name => G_PKG_NAME,
890: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
891: x_msg_count => x_msg_count,
886: WHEN OKL_API.G_EXCEPTION_ERROR THEN
887: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
888: p_api_name => l_api_name,
889: p_pkg_name => G_PKG_NAME,
890: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
891: x_msg_count => x_msg_count,
892: x_msg_data => x_msg_data,
893: p_api_type => g_api_type);
894: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
890: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
891: x_msg_count => x_msg_count,
892: x_msg_data => x_msg_data,
893: p_api_type => g_api_type);
894: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
895: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
896: p_api_name => l_api_name,
897: p_pkg_name => G_PKG_NAME,
898: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
891: x_msg_count => x_msg_count,
892: x_msg_data => x_msg_data,
893: p_api_type => g_api_type);
894: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
895: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
896: p_api_name => l_api_name,
897: p_pkg_name => G_PKG_NAME,
898: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
899: x_msg_count => x_msg_count,
894: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
895: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
896: p_api_name => l_api_name,
897: p_pkg_name => G_PKG_NAME,
898: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
899: x_msg_count => x_msg_count,
900: x_msg_data => x_msg_data,
901: p_api_type => g_api_type);
902: WHEN OTHERS THEN
899: x_msg_count => x_msg_count,
900: x_msg_data => x_msg_data,
901: p_api_type => g_api_type);
902: WHEN OTHERS THEN
903: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
904: p_api_name => l_api_name,
905: p_pkg_name => G_PKG_NAME,
906: p_exc_name => 'OTHERS',
907: x_msg_count => x_msg_count,
973: contact_tbl_idx PLS_INTEGER;
974: lv_cpl_id okc_k_party_roles_b.id%TYPE;
975:
976: BEGIN
977: x_return_status := OKL_API.G_RET_STS_SUCCESS;
978:
979: l_debug_enabled := okl_debug_pub.check_log_enabled;
980:
981: IF(l_debug_enabled='Y') THEN
982: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCRSB.pls call sync_party_contacts');
983: END IF;
984:
985: -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
986: x_return_status := OKL_API.START_ACTIVITY(
987: p_api_name => l_api_name
988: ,p_pkg_name => G_PKG_NAME
989: ,p_init_msg_list => p_init_msg_list
990: ,l_api_version => l_api_version
991: ,p_api_version => p_api_version
992: ,p_api_type => g_api_type
993: ,x_return_status => x_return_status);
994: -- check if activity started successfully
995: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
998: RAISE OKL_API.G_EXCEPTION_ERROR;
999: END IF;
992: ,p_api_type => g_api_type
993: ,x_return_status => x_return_status);
994: -- check if activity started successfully
995: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
998: RAISE OKL_API.G_EXCEPTION_ERROR;
999: END IF;
1000:
993: ,x_return_status => x_return_status);
994: -- check if activity started successfully
995: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
998: RAISE OKL_API.G_EXCEPTION_ERROR;
999: END IF;
1000:
1001: /* Logic for synchronization: All the Contacts at the Role level present on the Original Agreement and not present on the
994: -- check if activity started successfully
995: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
998: RAISE OKL_API.G_EXCEPTION_ERROR;
999: END IF;
1000:
1001: /* Logic for synchronization: All the Contacts at the Role level present on the Original Agreement and not present on the
1002: * Change Request Agreement are to be deleted. All the Contacts present on the Change Request Agreement and not on the
1027: l_module,
1028: 'okl_contract_party_pub.delete_contact returned with status '||x_return_status
1029: );
1030: END IF;
1031: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1034: RAISE OKL_API.G_EXCEPTION_ERROR;
1035: END IF;
1028: 'okl_contract_party_pub.delete_contact returned with status '||x_return_status
1029: );
1030: END IF;
1031: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1034: RAISE OKL_API.G_EXCEPTION_ERROR;
1035: END IF;
1036: END IF;
1029: );
1030: END IF;
1031: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1034: RAISE OKL_API.G_EXCEPTION_ERROR;
1035: END IF;
1036: END IF;
1037: contact_tbl_idx := 0;
1030: END IF;
1031: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1034: RAISE OKL_API.G_EXCEPTION_ERROR;
1035: END IF;
1036: END IF;
1037: contact_tbl_idx := 0;
1038: -- finding new contacts that are present on the change request and not on the original agreement
1067: l_module,
1068: 'okl_contract_party_pub.create_contact returned with status '||x_return_status
1069: );
1070: END IF;
1071: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1073: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1074: RAISE OKL_API.G_EXCEPTION_ERROR;
1075: END IF;
1068: 'okl_contract_party_pub.create_contact returned with status '||x_return_status
1069: );
1070: END IF;
1071: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1073: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1074: RAISE OKL_API.G_EXCEPTION_ERROR;
1075: END IF;
1076: END IF;
1069: );
1070: END IF;
1071: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1073: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1074: RAISE OKL_API.G_EXCEPTION_ERROR;
1075: END IF;
1076: END IF;
1077:
1070: END IF;
1071: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1073: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1074: RAISE OKL_API.G_EXCEPTION_ERROR;
1075: END IF;
1076: END IF;
1077:
1078: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1074: RAISE OKL_API.G_EXCEPTION_ERROR;
1075: END IF;
1076: END IF;
1077:
1078: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1079:
1080: IF(l_debug_enabled='Y') THEN
1081: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_party_contacts');
1082: END IF;
1080: IF(l_debug_enabled='Y') THEN
1081: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_party_contacts');
1082: END IF;
1083: EXCEPTION
1084: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1085: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1086: p_api_name => l_api_name,
1087: p_pkg_name => G_PKG_NAME,
1088: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1081: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_party_contacts');
1082: END IF;
1083: EXCEPTION
1084: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1085: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1086: p_api_name => l_api_name,
1087: p_pkg_name => G_PKG_NAME,
1088: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1089: x_msg_count => x_msg_count,
1084: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1085: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1086: p_api_name => l_api_name,
1087: p_pkg_name => G_PKG_NAME,
1088: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1089: x_msg_count => x_msg_count,
1090: x_msg_data => x_msg_data,
1091: p_api_type => g_api_type);
1092: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1088: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1089: x_msg_count => x_msg_count,
1090: x_msg_data => x_msg_data,
1091: p_api_type => g_api_type);
1092: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1093: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1094: p_api_name => l_api_name,
1095: p_pkg_name => G_PKG_NAME,
1096: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1089: x_msg_count => x_msg_count,
1090: x_msg_data => x_msg_data,
1091: p_api_type => g_api_type);
1092: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1093: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1094: p_api_name => l_api_name,
1095: p_pkg_name => G_PKG_NAME,
1096: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1097: x_msg_count => x_msg_count,
1092: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1093: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1094: p_api_name => l_api_name,
1095: p_pkg_name => G_PKG_NAME,
1096: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1097: x_msg_count => x_msg_count,
1098: x_msg_data => x_msg_data,
1099: p_api_type => g_api_type);
1100: WHEN OTHERS THEN
1097: x_msg_count => x_msg_count,
1098: x_msg_data => x_msg_data,
1099: p_api_type => g_api_type);
1100: WHEN OTHERS THEN
1101: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1102: p_api_name => l_api_name,
1103: p_pkg_name => G_PKG_NAME,
1104: p_exc_name => 'OTHERS',
1105: x_msg_count => x_msg_count,
1137: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_VP_SYNC_CR_PVT.SYNC_ARTICLE_CHANGES';
1138: l_debug_enabled VARCHAR2(10);
1139:
1140: BEGIN
1141: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1142:
1143: l_debug_enabled := okl_debug_pub.check_log_enabled;
1144:
1145: IF(l_debug_enabled='Y') THEN
1146: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCRSB.pls call sync_article_changes');
1147: END IF;
1148:
1149: -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
1150: x_return_status := OKL_API.START_ACTIVITY(
1151: p_api_name => l_api_name
1152: ,p_pkg_name => G_PKG_NAME
1153: ,p_init_msg_list => p_init_msg_list
1154: ,l_api_version => l_api_version
1155: ,p_api_version => p_api_version
1156: ,p_api_type => g_api_type
1157: ,x_return_status => x_return_status);
1158: -- check if activity started successfully
1159: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1162: RAISE OKL_API.G_EXCEPTION_ERROR;
1163: END IF;
1156: ,p_api_type => g_api_type
1157: ,x_return_status => x_return_status);
1158: -- check if activity started successfully
1159: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1162: RAISE OKL_API.G_EXCEPTION_ERROR;
1163: END IF;
1164:
1157: ,x_return_status => x_return_status);
1158: -- check if activity started successfully
1159: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1162: RAISE OKL_API.G_EXCEPTION_ERROR;
1163: END IF;
1164:
1165: /*
1158: -- check if activity started successfully
1159: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1162: RAISE OKL_API.G_EXCEPTION_ERROR;
1163: END IF;
1164:
1165: /*
1166: * Logic for deleting Articles: Article text is stored as CLOB. It is costlier to extract the Article text
1185: l_module,
1186: 'okl_vp_k_article_pub.delete_k_article returned with status '||x_return_status
1187: );
1188: END IF;
1189: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1191: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1192: RAISE OKL_API.G_EXCEPTION_ERROR;
1193: END IF;
1186: 'okl_vp_k_article_pub.delete_k_article returned with status '||x_return_status
1187: );
1188: END IF;
1189: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1191: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1192: RAISE OKL_API.G_EXCEPTION_ERROR;
1193: END IF;
1194: END LOOP;
1187: );
1188: END IF;
1189: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1191: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1192: RAISE OKL_API.G_EXCEPTION_ERROR;
1193: END IF;
1194: END LOOP;
1195:
1188: END IF;
1189: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1191: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1192: RAISE OKL_API.G_EXCEPTION_ERROR;
1193: END IF;
1194: END LOOP;
1195:
1196: -- now that the articles from the original agreement have been deleted, we need to copy all the articles from the
1261: l_module,
1262: 'okl_vp_k_article_pub.create_k_article returned with status '||x_return_status
1263: );
1264: END IF;
1265: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1266: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1267: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1268: RAISE OKL_API.G_EXCEPTION_ERROR;
1269: END IF;
1262: 'okl_vp_k_article_pub.create_k_article returned with status '||x_return_status
1263: );
1264: END IF;
1265: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1266: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1267: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1268: RAISE OKL_API.G_EXCEPTION_ERROR;
1269: END IF;
1270: END IF;
1263: );
1264: END IF;
1265: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1266: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1267: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1268: RAISE OKL_API.G_EXCEPTION_ERROR;
1269: END IF;
1270: END IF;
1271: END LOOP;
1264: END IF;
1265: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1266: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1267: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1268: RAISE OKL_API.G_EXCEPTION_ERROR;
1269: END IF;
1270: END IF;
1271: END LOOP;
1272:
1269: END IF;
1270: END IF;
1271: END LOOP;
1272:
1273: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1274:
1275: IF(l_debug_enabled='Y') THEN
1276: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_article_changes');
1277: END IF;
1275: IF(l_debug_enabled='Y') THEN
1276: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_article_changes');
1277: END IF;
1278: EXCEPTION
1279: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1280: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1281: p_api_name => l_api_name,
1282: p_pkg_name => G_PKG_NAME,
1283: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1276: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_article_changes');
1277: END IF;
1278: EXCEPTION
1279: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1280: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1281: p_api_name => l_api_name,
1282: p_pkg_name => G_PKG_NAME,
1283: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1284: x_msg_count => x_msg_count,
1279: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1280: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1281: p_api_name => l_api_name,
1282: p_pkg_name => G_PKG_NAME,
1283: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1284: x_msg_count => x_msg_count,
1285: x_msg_data => x_msg_data,
1286: p_api_type => g_api_type);
1287: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1283: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1284: x_msg_count => x_msg_count,
1285: x_msg_data => x_msg_data,
1286: p_api_type => g_api_type);
1287: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1288: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1289: p_api_name => l_api_name,
1290: p_pkg_name => G_PKG_NAME,
1291: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1284: x_msg_count => x_msg_count,
1285: x_msg_data => x_msg_data,
1286: p_api_type => g_api_type);
1287: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1288: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1289: p_api_name => l_api_name,
1290: p_pkg_name => G_PKG_NAME,
1291: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1292: x_msg_count => x_msg_count,
1287: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1288: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1289: p_api_name => l_api_name,
1290: p_pkg_name => G_PKG_NAME,
1291: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1292: x_msg_count => x_msg_count,
1293: x_msg_data => x_msg_data,
1294: p_api_type => g_api_type);
1295: WHEN OTHERS THEN
1292: x_msg_count => x_msg_count,
1293: x_msg_data => x_msg_data,
1294: p_api_type => g_api_type);
1295: WHEN OTHERS THEN
1296: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1297: p_api_name => l_api_name,
1298: p_pkg_name => G_PKG_NAME,
1299: p_exc_name => 'OTHERS',
1300: x_msg_count => x_msg_count,
1437:
1438: lv_review_until_date DATE;
1439:
1440: BEGIN
1441: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1442:
1443: l_debug_enabled := okl_debug_pub.check_log_enabled;
1444:
1445: IF(l_debug_enabled='Y') THEN
1446: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCRSB.pls call sync_vendor_billing');
1447: END IF;
1448:
1449: -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
1450: x_return_status := OKL_API.START_ACTIVITY(
1451: p_api_name => l_api_name
1452: ,p_pkg_name => G_PKG_NAME
1453: ,p_init_msg_list => p_init_msg_list
1454: ,l_api_version => l_api_version
1455: ,p_api_version => p_api_version
1456: ,p_api_type => g_api_type
1457: ,x_return_status => x_return_status);
1458: -- check if activity started successfully
1459: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1462: RAISE OKL_API.G_EXCEPTION_ERROR;
1463: END IF;
1456: ,p_api_type => g_api_type
1457: ,x_return_status => x_return_status);
1458: -- check if activity started successfully
1459: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1462: RAISE OKL_API.G_EXCEPTION_ERROR;
1463: END IF;
1464:
1457: ,x_return_status => x_return_status);
1458: -- check if activity started successfully
1459: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1462: RAISE OKL_API.G_EXCEPTION_ERROR;
1463: END IF;
1464:
1465: -- first fetch the party role information for original agreement and the change request.
1458: -- check if activity started successfully
1459: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1462: RAISE OKL_API.G_EXCEPTION_ERROR;
1463: END IF;
1464:
1465: -- first fetch the party role information for original agreement and the change request.
1466: -- cpl_id of these two entities should be the same as primary party information is not changed
1478: CLOSE c_get_cust_info_csr;
1479:
1480: -- update customer information only if the customer has changed on the change request, or customer account has been changed
1481: -- or the bill to site info has been changed on the change request. for all other changes, the update is not necessary
1482: IF( NVL(c_get_cust_info_orig_rec.cust_id,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_info_creq_rec.cust_id,OKL_API.G_MISS_NUM) OR
1483: NVL(c_get_cust_info_orig_rec.cust_acct_id,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_info_creq_rec.cust_acct_id,OKL_API.G_MISS_NUM) OR
1484: NVL(c_get_cust_info_orig_rec.bill_to_site_use_id,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_info_creq_rec.bill_to_site_use_id,OKL_API.G_MISS_NUM)
1485: )THEN
1486: lv_cplv_rec.id := lv_orig_chr_cpl_id;
1479:
1480: -- update customer information only if the customer has changed on the change request, or customer account has been changed
1481: -- or the bill to site info has been changed on the change request. for all other changes, the update is not necessary
1482: IF( NVL(c_get_cust_info_orig_rec.cust_id,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_info_creq_rec.cust_id,OKL_API.G_MISS_NUM) OR
1483: NVL(c_get_cust_info_orig_rec.cust_acct_id,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_info_creq_rec.cust_acct_id,OKL_API.G_MISS_NUM) OR
1484: NVL(c_get_cust_info_orig_rec.bill_to_site_use_id,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_info_creq_rec.bill_to_site_use_id,OKL_API.G_MISS_NUM)
1485: )THEN
1486: lv_cplv_rec.id := lv_orig_chr_cpl_id;
1487: lv_cplv_rec.chr_id := p_orig_chr_id;
1480: -- update customer information only if the customer has changed on the change request, or customer account has been changed
1481: -- or the bill to site info has been changed on the change request. for all other changes, the update is not necessary
1482: IF( NVL(c_get_cust_info_orig_rec.cust_id,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_info_creq_rec.cust_id,OKL_API.G_MISS_NUM) OR
1483: NVL(c_get_cust_info_orig_rec.cust_acct_id,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_info_creq_rec.cust_acct_id,OKL_API.G_MISS_NUM) OR
1484: NVL(c_get_cust_info_orig_rec.bill_to_site_use_id,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_info_creq_rec.bill_to_site_use_id,OKL_API.G_MISS_NUM)
1485: )THEN
1486: lv_cplv_rec.id := lv_orig_chr_cpl_id;
1487: lv_cplv_rec.chr_id := p_orig_chr_id;
1488: lv_cplv_rec.dnz_chr_id := p_orig_chr_id;
1514: 'okl_contract_party_pub.update_k_party_role returned with status '||x_return_status
1515: );
1516: END IF;
1517:
1518: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1521: RAISE OKL_API.G_EXCEPTION_ERROR;
1522: END IF;
1515: );
1516: END IF;
1517:
1518: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1521: RAISE OKL_API.G_EXCEPTION_ERROR;
1522: END IF;
1523:
1516: END IF;
1517:
1518: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1521: RAISE OKL_API.G_EXCEPTION_ERROR;
1522: END IF;
1523:
1524: -- if the customer has changed, then update the rule info too
1517:
1518: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1521: RAISE OKL_API.G_EXCEPTION_ERROR;
1522: END IF;
1523:
1524: -- if the customer has changed, then update the rule info too
1525: IF( NVL(c_get_cust_info_orig_rec.cust_id,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_info_creq_rec.cust_id,OKL_API.G_MISS_NUM))THEN
1521: RAISE OKL_API.G_EXCEPTION_ERROR;
1522: END IF;
1523:
1524: -- if the customer has changed, then update the rule info too
1525: IF( NVL(c_get_cust_info_orig_rec.cust_id,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_info_creq_rec.cust_id,OKL_API.G_MISS_NUM))THEN
1526: -- now we need to update the rule information with the above changes
1527: idx := 1;
1528: lv_rgr_tbl(idx).rgd_code := 'LAVENB';
1529: lv_rgr_tbl(idx).rule_information_category := 'LAVENC';
1536: lv_rgr_tbl(idx).last_updated_by := fnd_global.user_id;
1537: lv_rgr_tbl(idx).last_update_date := trunc(sysdate);
1538: lv_rgr_tbl(idx).last_update_login := fnd_global.login_id;
1539:
1540: IF(c_get_cust_info_orig_rec.rgp_id IS NOT NULL AND c_get_cust_info_orig_rec.rgp_id <> OKL_API.G_MISS_NUM)THEN
1541: lv_rgr_tbl(idx).rgp_id := c_get_cust_info_orig_rec.rgp_id;
1542: END IF;
1543:
1544: IF(c_get_cust_info_orig_rec.cust_rule_id IS NOT NULL AND c_get_cust_info_orig_rec.cust_rule_id <> OKL_API.G_MISS_NUM)THEN
1540: IF(c_get_cust_info_orig_rec.rgp_id IS NOT NULL AND c_get_cust_info_orig_rec.rgp_id <> OKL_API.G_MISS_NUM)THEN
1541: lv_rgr_tbl(idx).rgp_id := c_get_cust_info_orig_rec.rgp_id;
1542: END IF;
1543:
1544: IF(c_get_cust_info_orig_rec.cust_rule_id IS NOT NULL AND c_get_cust_info_orig_rec.cust_rule_id <> OKL_API.G_MISS_NUM)THEN
1545: lv_rgr_tbl(idx).rule_id := c_get_cust_info_orig_rec.cust_rule_id;
1546: END IF;
1547:
1548: lv_rgr_tbl(idx).object1_id1 := c_get_cust_info_creq_rec.cust_id;
1567: l_module,
1568: 'okl_rgrp_rules_process_pvt.process_rule_group_rules for customer info returned with status '||x_return_status
1569: );
1570: END IF;
1571: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1574: RAISE OKL_API.G_EXCEPTION_ERROR;
1575: END IF;
1568: 'okl_rgrp_rules_process_pvt.process_rule_group_rules for customer info returned with status '||x_return_status
1569: );
1570: END IF;
1571: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1574: RAISE OKL_API.G_EXCEPTION_ERROR;
1575: END IF;
1576:
1569: );
1570: END IF;
1571: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1574: RAISE OKL_API.G_EXCEPTION_ERROR;
1575: END IF;
1576:
1577: END IF; -- end of NVL(c_get_cust_info_orig_rec.cust_id,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_info_creq_rec.cust_id,OKL_API.G_MISS_NUM)
1570: END IF;
1571: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1574: RAISE OKL_API.G_EXCEPTION_ERROR;
1575: END IF;
1576:
1577: END IF; -- end of NVL(c_get_cust_info_orig_rec.cust_id,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_info_creq_rec.cust_id,OKL_API.G_MISS_NUM)
1578: END IF; -- end of value comparision
1573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1574: RAISE OKL_API.G_EXCEPTION_ERROR;
1575: END IF;
1576:
1577: END IF; -- end of NVL(c_get_cust_info_orig_rec.cust_id,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_info_creq_rec.cust_id,OKL_API.G_MISS_NUM)
1578: END IF; -- end of value comparision
1579:
1580: -- now fetch the billing information like bank account, payment method, review invoice from original agreement and change request
1581: -- and compare.
1592: lv_rgr_tbl.DELETE;
1593: idx := 0;
1594: -- compare the Vendor Billing information and update the rules information only if there is a change
1595: IF(
1596: NVL(c_get_cust_bill_orig_rec.rul_lainpr_ri1,OKL_API.G_MISS_CHAR) <> NVL(c_get_cust_bill_creq_rec.rul_lainpr_ri1,OKL_API.G_MISS_CHAR) OR
1597: NVL(c_get_cust_bill_orig_rec.rul_lainpr_ri2,OKL_API.G_MISS_DATE) <> NVL(c_get_cust_bill_creq_rec.rul_lainpr_ri2,OKL_API.G_MISS_DATE)
1598: )THEN
1599: idx := idx + 1;
1600:
1593: idx := 0;
1594: -- compare the Vendor Billing information and update the rules information only if there is a change
1595: IF(
1596: NVL(c_get_cust_bill_orig_rec.rul_lainpr_ri1,OKL_API.G_MISS_CHAR) <> NVL(c_get_cust_bill_creq_rec.rul_lainpr_ri1,OKL_API.G_MISS_CHAR) OR
1597: NVL(c_get_cust_bill_orig_rec.rul_lainpr_ri2,OKL_API.G_MISS_DATE) <> NVL(c_get_cust_bill_creq_rec.rul_lainpr_ri2,OKL_API.G_MISS_DATE)
1598: )THEN
1599: idx := idx + 1;
1600:
1601: -- check if the original record had vendor billing informaation and populate the rule group and rule ids accordingly.
1598: )THEN
1599: idx := idx + 1;
1600:
1601: -- check if the original record had vendor billing informaation and populate the rule group and rule ids accordingly.
1602: IF(c_get_cust_bill_orig_rec.lavenb_rgp_id IS NOT NULL AND c_get_cust_bill_orig_rec.lavenb_rgp_id <> OKL_API.G_MISS_NUM)THEN
1603: lv_rgr_tbl(idx).rgp_id := c_get_cust_bill_orig_rec.lavenb_rgp_id;
1604: END IF;
1605:
1606: IF(c_get_cust_bill_orig_rec.lainpr_rul_id IS NOT NULL AND c_get_cust_bill_orig_rec.lainpr_rul_id <> OKL_API.G_MISS_NUM)THEN
1602: IF(c_get_cust_bill_orig_rec.lavenb_rgp_id IS NOT NULL AND c_get_cust_bill_orig_rec.lavenb_rgp_id <> OKL_API.G_MISS_NUM)THEN
1603: lv_rgr_tbl(idx).rgp_id := c_get_cust_bill_orig_rec.lavenb_rgp_id;
1604: END IF;
1605:
1606: IF(c_get_cust_bill_orig_rec.lainpr_rul_id IS NOT NULL AND c_get_cust_bill_orig_rec.lainpr_rul_id <> OKL_API.G_MISS_NUM)THEN
1607: lv_rgr_tbl(idx).rule_id := c_get_cust_bill_orig_rec.lainpr_rul_id;
1608: END IF;
1609: lv_rgr_tbl(idx).rgd_code := 'LAVENB';
1610: lv_rgr_tbl(idx).rule_information_category := 'LAINPR';
1617: lv_rgr_tbl(idx).rule_information2 := c_get_cust_bill_creq_rec.rul_lainpr_ri2;
1618: END IF;
1619:
1620: IF(
1621: NVL(c_get_cust_bill_orig_rec.rul_lainvd_ri1,OKL_API.G_MISS_CHAR) <> NVL(c_get_cust_bill_creq_rec.rul_lainvd_ri1,OKL_API.G_MISS_CHAR) OR
1622: NVL(c_get_cust_bill_orig_rec.rul_lainvd_ri4,OKL_API.G_MISS_CHAR) <> NVL(c_get_cust_bill_creq_rec.rul_lainvd_ri4,OKL_API.G_MISS_CHAR)
1623: )THEN
1624: idx := idx + 1;
1625:
1618: END IF;
1619:
1620: IF(
1621: NVL(c_get_cust_bill_orig_rec.rul_lainvd_ri1,OKL_API.G_MISS_CHAR) <> NVL(c_get_cust_bill_creq_rec.rul_lainvd_ri1,OKL_API.G_MISS_CHAR) OR
1622: NVL(c_get_cust_bill_orig_rec.rul_lainvd_ri4,OKL_API.G_MISS_CHAR) <> NVL(c_get_cust_bill_creq_rec.rul_lainvd_ri4,OKL_API.G_MISS_CHAR)
1623: )THEN
1624: idx := idx + 1;
1625:
1626: -- check if the original record had vendor billing informaation and populate the rule group and rule ids accordingly.
1623: )THEN
1624: idx := idx + 1;
1625:
1626: -- check if the original record had vendor billing informaation and populate the rule group and rule ids accordingly.
1627: IF(c_get_cust_bill_orig_rec.lavenb_rgp_id IS NOT NULL AND c_get_cust_bill_orig_rec.lavenb_rgp_id <> OKL_API.G_MISS_NUM)THEN
1628: lv_rgr_tbl(idx).rgp_id := c_get_cust_bill_orig_rec.lavenb_rgp_id;
1629: END IF;
1630:
1631: IF(c_get_cust_bill_orig_rec.lainvd_rul_id IS NOT NULL AND c_get_cust_bill_orig_rec.lainvd_rul_id <> OKL_API.G_MISS_NUM)THEN
1627: IF(c_get_cust_bill_orig_rec.lavenb_rgp_id IS NOT NULL AND c_get_cust_bill_orig_rec.lavenb_rgp_id <> OKL_API.G_MISS_NUM)THEN
1628: lv_rgr_tbl(idx).rgp_id := c_get_cust_bill_orig_rec.lavenb_rgp_id;
1629: END IF;
1630:
1631: IF(c_get_cust_bill_orig_rec.lainvd_rul_id IS NOT NULL AND c_get_cust_bill_orig_rec.lainvd_rul_id <> OKL_API.G_MISS_NUM)THEN
1632: lv_rgr_tbl(idx).rule_id := c_get_cust_bill_orig_rec.lainvd_rul_id;
1633: END IF;
1634: lv_rgr_tbl(idx).rgd_code := 'LAVENB';
1635: lv_rgr_tbl(idx).rule_information_category := 'LAINVD';
1642: lv_rgr_tbl(idx).rule_information4 := c_get_cust_bill_creq_rec.rul_lainvd_ri4;
1643: END IF;
1644:
1645: IF(
1646: NVL(c_get_cust_bill_orig_rec.rul_labacc_o1id1,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_bill_creq_rec.rul_labacc_o1id1, OKL_API.G_MISS_NUM)
1647: )THEN
1648: idx := idx + 1;
1649:
1650: -- check if the original record had vendor billing informaation and populate the rule group and rule ids accordingly.
1647: )THEN
1648: idx := idx + 1;
1649:
1650: -- check if the original record had vendor billing informaation and populate the rule group and rule ids accordingly.
1651: IF(c_get_cust_bill_orig_rec.lavenb_rgp_id IS NOT NULL AND c_get_cust_bill_orig_rec.lavenb_rgp_id <> OKL_API.G_MISS_NUM)THEN
1652: lv_rgr_tbl(idx).rgp_id := c_get_cust_bill_orig_rec.lavenb_rgp_id;
1653: END IF;
1654:
1655: IF(c_get_cust_bill_orig_rec.labacc_rul_id IS NOT NULL AND c_get_cust_bill_orig_rec.labacc_rul_id <> OKL_API.G_MISS_NUM)THEN
1651: IF(c_get_cust_bill_orig_rec.lavenb_rgp_id IS NOT NULL AND c_get_cust_bill_orig_rec.lavenb_rgp_id <> OKL_API.G_MISS_NUM)THEN
1652: lv_rgr_tbl(idx).rgp_id := c_get_cust_bill_orig_rec.lavenb_rgp_id;
1653: END IF;
1654:
1655: IF(c_get_cust_bill_orig_rec.labacc_rul_id IS NOT NULL AND c_get_cust_bill_orig_rec.labacc_rul_id <> OKL_API.G_MISS_NUM)THEN
1656: lv_rgr_tbl(idx).rule_id := c_get_cust_bill_orig_rec.labacc_rul_id;
1657: END IF;
1658: lv_rgr_tbl(idx).rgd_code := 'LAVENB';
1659: lv_rgr_tbl(idx).rule_information_category := 'LABACC';
1668:
1669: END IF;
1670:
1671: IF(
1672: NVL(c_get_cust_bill_orig_rec.rul_lapmth_o1id1,OKL_API.G_MISS_NUM) <> NVL(c_get_cust_bill_creq_rec.rul_lapmth_o1id1, OKL_API.G_MISS_NUM)
1673: )THEN
1674: idx := idx + 1;
1675:
1676: -- check if the original record had vendor billing informaation and populate the rule group and rule ids accordingly.
1673: )THEN
1674: idx := idx + 1;
1675:
1676: -- check if the original record had vendor billing informaation and populate the rule group and rule ids accordingly.
1677: IF(c_get_cust_bill_orig_rec.lavenb_rgp_id IS NOT NULL AND c_get_cust_bill_orig_rec.lavenb_rgp_id <> OKL_API.G_MISS_NUM)THEN
1678: lv_rgr_tbl(idx).rgp_id := c_get_cust_bill_orig_rec.lavenb_rgp_id;
1679: END IF;
1680:
1681: IF(c_get_cust_bill_orig_rec.lapmth_rul_id IS NOT NULL AND c_get_cust_bill_orig_rec.lapmth_rul_id <> OKL_API.G_MISS_NUM)THEN
1677: IF(c_get_cust_bill_orig_rec.lavenb_rgp_id IS NOT NULL AND c_get_cust_bill_orig_rec.lavenb_rgp_id <> OKL_API.G_MISS_NUM)THEN
1678: lv_rgr_tbl(idx).rgp_id := c_get_cust_bill_orig_rec.lavenb_rgp_id;
1679: END IF;
1680:
1681: IF(c_get_cust_bill_orig_rec.lapmth_rul_id IS NOT NULL AND c_get_cust_bill_orig_rec.lapmth_rul_id <> OKL_API.G_MISS_NUM)THEN
1682: lv_rgr_tbl(idx).rule_id := c_get_cust_bill_orig_rec.lapmth_rul_id;
1683: END IF;
1684: lv_rgr_tbl(idx).rgd_code := 'LAVENB';
1685: lv_rgr_tbl(idx).rule_information_category := 'LAPMTH';
1710: l_module,
1711: 'okl_rgrp_rules_process_pvt.process_rule_group_rules for billing info returned with status '||x_return_status
1712: );
1713: END IF;
1714: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1717: RAISE OKL_API.G_EXCEPTION_ERROR;
1718: END IF;
1711: 'okl_rgrp_rules_process_pvt.process_rule_group_rules for billing info returned with status '||x_return_status
1712: );
1713: END IF;
1714: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1717: RAISE OKL_API.G_EXCEPTION_ERROR;
1718: END IF;
1719: END IF;
1712: );
1713: END IF;
1714: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1717: RAISE OKL_API.G_EXCEPTION_ERROR;
1718: END IF;
1719: END IF;
1720:
1713: END IF;
1714: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1717: RAISE OKL_API.G_EXCEPTION_ERROR;
1718: END IF;
1719: END IF;
1720:
1721: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1717: RAISE OKL_API.G_EXCEPTION_ERROR;
1718: END IF;
1719: END IF;
1720:
1721: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1722:
1723: IF(l_debug_enabled='Y') THEN
1724: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_vendor_billing');
1725: END IF;
1724: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_vendor_billing');
1725: END IF;
1726:
1727: EXCEPTION
1728: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1729: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1730: p_api_name => l_api_name,
1731: p_pkg_name => G_PKG_NAME,
1732: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1725: END IF;
1726:
1727: EXCEPTION
1728: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1729: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1730: p_api_name => l_api_name,
1731: p_pkg_name => G_PKG_NAME,
1732: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1733: x_msg_count => x_msg_count,
1728: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1729: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1730: p_api_name => l_api_name,
1731: p_pkg_name => G_PKG_NAME,
1732: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1733: x_msg_count => x_msg_count,
1734: x_msg_data => x_msg_data,
1735: p_api_type => g_api_type);
1736: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1732: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1733: x_msg_count => x_msg_count,
1734: x_msg_data => x_msg_data,
1735: p_api_type => g_api_type);
1736: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1737: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1738: p_api_name => l_api_name,
1739: p_pkg_name => G_PKG_NAME,
1740: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1733: x_msg_count => x_msg_count,
1734: x_msg_data => x_msg_data,
1735: p_api_type => g_api_type);
1736: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1737: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1738: p_api_name => l_api_name,
1739: p_pkg_name => G_PKG_NAME,
1740: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1741: x_msg_count => x_msg_count,
1736: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1737: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1738: p_api_name => l_api_name,
1739: p_pkg_name => G_PKG_NAME,
1740: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1741: x_msg_count => x_msg_count,
1742: x_msg_data => x_msg_data,
1743: p_api_type => g_api_type);
1744: WHEN OTHERS THEN
1741: x_msg_count => x_msg_count,
1742: x_msg_data => x_msg_data,
1743: p_api_type => g_api_type);
1744: WHEN OTHERS THEN
1745: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1746: p_api_name => l_api_name,
1747: p_pkg_name => G_PKG_NAME,
1748: p_exc_name => 'OTHERS',
1749: x_msg_count => x_msg_count,
1829: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_VP_SYNC_CR_PVT.SYNC_ASSOCIATIONS';
1830: l_debug_enabled VARCHAR2(10);
1831:
1832: BEGIN
1833: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1834:
1835: l_debug_enabled := okl_debug_pub.check_log_enabled;
1836:
1837: IF(l_debug_enabled='Y') THEN
1838: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCRSB.pls call sync_associations');
1839: END IF;
1840:
1841: -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
1842: x_return_status := OKL_API.START_ACTIVITY(
1843: p_api_name => l_api_name
1844: ,p_pkg_name => G_PKG_NAME
1845: ,p_init_msg_list => p_init_msg_list
1846: ,l_api_version => l_api_version
1847: ,p_api_version => p_api_version
1848: ,p_api_type => g_api_type
1849: ,x_return_status => x_return_status);
1850: -- check if activity started successfully
1851: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1853: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1854: RAISE OKL_API.G_EXCEPTION_ERROR;
1855: END IF;
1848: ,p_api_type => g_api_type
1849: ,x_return_status => x_return_status);
1850: -- check if activity started successfully
1851: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1853: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1854: RAISE OKL_API.G_EXCEPTION_ERROR;
1855: END IF;
1856:
1849: ,x_return_status => x_return_status);
1850: -- check if activity started successfully
1851: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1853: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1854: RAISE OKL_API.G_EXCEPTION_ERROR;
1855: END IF;
1856:
1857: -- technical note: for a change request of type AGREEMENT, the parameters p_orig_chr_id and p_creq_chr_id
1850: -- check if activity started successfully
1851: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1853: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1854: RAISE OKL_API.G_EXCEPTION_ERROR;
1855: END IF;
1856:
1857: -- technical note: for a change request of type AGREEMENT, the parameters p_orig_chr_id and p_creq_chr_id
1858: -- point to the original agreement and the agreement associated with the change request respectively.
1871: IF(c_get_creq_assoc%FOUND)THEN
1872: CLOSE c_get_creq_assoc;
1873: -- compare other attributes of the template now that it has not been removed. other attribs include start date, end date, comments
1874: IF((TRUNC(orig_assoc_rec.start_date) <> TRUNC(cv_creq_assoc_rec.start_date))
1875: OR(NVL(orig_assoc_rec.end_date,OKL_API.G_MISS_DATE) <> NVL(cv_creq_assoc_rec.end_date,OKL_API.G_MISS_DATE))
1876: OR(NVL(orig_assoc_rec.description,OKL_API.G_MISS_CHAR) <> NVL(cv_creq_assoc_rec.description,OKL_API.G_MISS_CHAR)))THEN
1877: -- if either of the start date, end date or comments have been updated on the change request, we need to sync them back to the
1878: -- agreement
1879: lv_vasv_rec := NULL;
1872: CLOSE c_get_creq_assoc;
1873: -- compare other attributes of the template now that it has not been removed. other attribs include start date, end date, comments
1874: IF((TRUNC(orig_assoc_rec.start_date) <> TRUNC(cv_creq_assoc_rec.start_date))
1875: OR(NVL(orig_assoc_rec.end_date,OKL_API.G_MISS_DATE) <> NVL(cv_creq_assoc_rec.end_date,OKL_API.G_MISS_DATE))
1876: OR(NVL(orig_assoc_rec.description,OKL_API.G_MISS_CHAR) <> NVL(cv_creq_assoc_rec.description,OKL_API.G_MISS_CHAR)))THEN
1877: -- if either of the start date, end date or comments have been updated on the change request, we need to sync them back to the
1878: -- agreement
1879: lv_vasv_rec := NULL;
1880: x_vasv_rec := NULL;
1899: l_module,
1900: 'okl_vp_associations_pvt.update_vp_associations returned with status '||x_return_status
1901: );
1902: END IF;
1903: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1904: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1905: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1906: RAISE OKL_API.G_EXCEPTION_ERROR;
1907: END IF;
1900: 'okl_vp_associations_pvt.update_vp_associations returned with status '||x_return_status
1901: );
1902: END IF;
1903: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1904: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1905: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1906: RAISE OKL_API.G_EXCEPTION_ERROR;
1907: END IF;
1908: END IF; -- end of attrib comparision
1901: );
1902: END IF;
1903: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1904: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1905: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1906: RAISE OKL_API.G_EXCEPTION_ERROR;
1907: END IF;
1908: END IF; -- end of attrib comparision
1909: ELSE
1902: END IF;
1903: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1904: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1905: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1906: RAISE OKL_API.G_EXCEPTION_ERROR;
1907: END IF;
1908: END IF; -- end of attrib comparision
1909: ELSE
1910: CLOSE c_get_creq_assoc;
1923: l_module,
1924: 'okl_vp_associations_pvt.delete_vp_associations returned with status '||x_return_status
1925: );
1926: END IF;
1927: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1930: RAISE OKL_API.G_EXCEPTION_ERROR;
1931: END IF;
1924: 'okl_vp_associations_pvt.delete_vp_associations returned with status '||x_return_status
1925: );
1926: END IF;
1927: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1930: RAISE OKL_API.G_EXCEPTION_ERROR;
1931: END IF;
1932: END IF; -- end of attribute comparision
1925: );
1926: END IF;
1927: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1930: RAISE OKL_API.G_EXCEPTION_ERROR;
1931: END IF;
1932: END IF; -- end of attribute comparision
1933: END LOOP;
1926: END IF;
1927: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1930: RAISE OKL_API.G_EXCEPTION_ERROR;
1931: END IF;
1932: END IF; -- end of attribute comparision
1933: END LOOP;
1934: -- now we need to add back all the new records that have been created or whose associated object has been changed by updating the
1956: l_module,
1957: 'okl_vp_associations_pvt.create_vp_associations returned with status '||x_return_status
1958: );
1959: END IF;
1960: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1963: RAISE OKL_API.G_EXCEPTION_ERROR;
1964: END IF;
1957: 'okl_vp_associations_pvt.create_vp_associations returned with status '||x_return_status
1958: );
1959: END IF;
1960: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1963: RAISE OKL_API.G_EXCEPTION_ERROR;
1964: END IF;
1965: END LOOP;
1958: );
1959: END IF;
1960: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1963: RAISE OKL_API.G_EXCEPTION_ERROR;
1964: END IF;
1965: END LOOP;
1966:
1959: END IF;
1960: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1963: RAISE OKL_API.G_EXCEPTION_ERROR;
1964: END IF;
1965: END LOOP;
1966:
1967: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1963: RAISE OKL_API.G_EXCEPTION_ERROR;
1964: END IF;
1965: END LOOP;
1966:
1967: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1968:
1969: IF(l_debug_enabled='Y') THEN
1970: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_associations');
1971: END IF;
1969: IF(l_debug_enabled='Y') THEN
1970: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_associations');
1971: END IF;
1972: EXCEPTION
1973: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1974: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1975: p_api_name => l_api_name,
1976: p_pkg_name => G_PKG_NAME,
1977: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1970: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_associations');
1971: END IF;
1972: EXCEPTION
1973: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1974: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1975: p_api_name => l_api_name,
1976: p_pkg_name => G_PKG_NAME,
1977: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1978: x_msg_count => x_msg_count,
1973: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1974: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1975: p_api_name => l_api_name,
1976: p_pkg_name => G_PKG_NAME,
1977: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1978: x_msg_count => x_msg_count,
1979: x_msg_data => x_msg_data,
1980: p_api_type => g_api_type);
1981: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1977: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1978: x_msg_count => x_msg_count,
1979: x_msg_data => x_msg_data,
1980: p_api_type => g_api_type);
1981: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1982: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1983: p_api_name => l_api_name,
1984: p_pkg_name => G_PKG_NAME,
1985: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1978: x_msg_count => x_msg_count,
1979: x_msg_data => x_msg_data,
1980: p_api_type => g_api_type);
1981: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1982: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1983: p_api_name => l_api_name,
1984: p_pkg_name => G_PKG_NAME,
1985: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1986: x_msg_count => x_msg_count,
1981: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1982: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1983: p_api_name => l_api_name,
1984: p_pkg_name => G_PKG_NAME,
1985: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1986: x_msg_count => x_msg_count,
1987: x_msg_data => x_msg_data,
1988: p_api_type => g_api_type);
1989: WHEN OTHERS THEN
1986: x_msg_count => x_msg_count,
1987: x_msg_data => x_msg_data,
1988: p_api_type => g_api_type);
1989: WHEN OTHERS THEN
1990: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1991: p_api_name => l_api_name,
1992: p_pkg_name => G_PKG_NAME,
1993: p_exc_name => 'OTHERS',
1994: x_msg_count => x_msg_count,
2072: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_VP_SYNC_CR_PVT.SYNC_ASSOCIATIONS';
2073: l_debug_enabled VARCHAR2(10);
2074:
2075: BEGIN
2076: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2077:
2078: l_debug_enabled := okl_debug_pub.check_log_enabled;
2079:
2080: IF(l_debug_enabled='Y') THEN
2081: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCRSB.pls call sync_associations');
2082: END IF;
2083:
2084: -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
2085: x_return_status := OKL_API.START_ACTIVITY(
2086: p_api_name => l_api_name
2087: ,p_pkg_name => G_PKG_NAME
2088: ,p_init_msg_list => p_init_msg_list
2089: ,l_api_version => l_api_version
2090: ,p_api_version => p_api_version
2091: ,p_api_type => g_api_type
2092: ,x_return_status => x_return_status);
2093: -- check if activity started successfully
2094: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2097: RAISE OKL_API.G_EXCEPTION_ERROR;
2098: END IF;
2091: ,p_api_type => g_api_type
2092: ,x_return_status => x_return_status);
2093: -- check if activity started successfully
2094: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2097: RAISE OKL_API.G_EXCEPTION_ERROR;
2098: END IF;
2099:
2092: ,x_return_status => x_return_status);
2093: -- check if activity started successfully
2094: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2097: RAISE OKL_API.G_EXCEPTION_ERROR;
2098: END IF;
2099:
2100: -- first find out if the original associations are on the change request too
2093: -- check if activity started successfully
2094: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2097: RAISE OKL_API.G_EXCEPTION_ERROR;
2098: END IF;
2099:
2100: -- first find out if the original associations are on the change request too
2101: FOR orig_assoc_rec IN c_get_orig_assoc(p_orig_chr_id) LOOP
2108: IF(c_get_creq_assoc%FOUND)THEN
2109: CLOSE c_get_creq_assoc;
2110: -- compare other attributes of the template now that it has not been removed. other attribs include start date, end date, comments
2111: IF((TRUNC(orig_assoc_rec.start_date) <> TRUNC(cv_creq_assoc_rec.start_date))
2112: OR(NVL(orig_assoc_rec.end_date,OKL_API.G_MISS_DATE) <> NVL(cv_creq_assoc_rec.end_date,OKL_API.G_MISS_DATE))
2113: OR(NVL(orig_assoc_rec.description,OKL_API.G_MISS_CHAR) <> NVL(cv_creq_assoc_rec.description,OKL_API.G_MISS_CHAR)))THEN
2114: -- if either of the start date, end date or comments have been updated on the change request, we need to sync them back to the
2115: -- agreement
2116: lv_vasv_rec := NULL;
2109: CLOSE c_get_creq_assoc;
2110: -- compare other attributes of the template now that it has not been removed. other attribs include start date, end date, comments
2111: IF((TRUNC(orig_assoc_rec.start_date) <> TRUNC(cv_creq_assoc_rec.start_date))
2112: OR(NVL(orig_assoc_rec.end_date,OKL_API.G_MISS_DATE) <> NVL(cv_creq_assoc_rec.end_date,OKL_API.G_MISS_DATE))
2113: OR(NVL(orig_assoc_rec.description,OKL_API.G_MISS_CHAR) <> NVL(cv_creq_assoc_rec.description,OKL_API.G_MISS_CHAR)))THEN
2114: -- if either of the start date, end date or comments have been updated on the change request, we need to sync them back to the
2115: -- agreement
2116: lv_vasv_rec := NULL;
2117: x_vasv_rec := NULL;
2136: l_module,
2137: 'okl_vp_associations_pvt.update_vp_associations returned with status '||x_return_status
2138: );
2139: END IF;
2140: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2143: RAISE OKL_API.G_EXCEPTION_ERROR;
2144: END IF;
2137: 'okl_vp_associations_pvt.update_vp_associations returned with status '||x_return_status
2138: );
2139: END IF;
2140: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2143: RAISE OKL_API.G_EXCEPTION_ERROR;
2144: END IF;
2145: END IF; -- end of attrib comparision
2138: );
2139: END IF;
2140: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2143: RAISE OKL_API.G_EXCEPTION_ERROR;
2144: END IF;
2145: END IF; -- end of attrib comparision
2146: ELSE
2139: END IF;
2140: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2143: RAISE OKL_API.G_EXCEPTION_ERROR;
2144: END IF;
2145: END IF; -- end of attrib comparision
2146: ELSE
2147: CLOSE c_get_creq_assoc;
2160: l_module,
2161: 'okl_vp_associations_pvt.delete_vp_associations returned with status '||x_return_status
2162: );
2163: END IF;
2164: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2167: RAISE OKL_API.G_EXCEPTION_ERROR;
2168: END IF;
2161: 'okl_vp_associations_pvt.delete_vp_associations returned with status '||x_return_status
2162: );
2163: END IF;
2164: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2167: RAISE OKL_API.G_EXCEPTION_ERROR;
2168: END IF;
2169: END IF; -- end of attribute comparision
2162: );
2163: END IF;
2164: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2167: RAISE OKL_API.G_EXCEPTION_ERROR;
2168: END IF;
2169: END IF; -- end of attribute comparision
2170: END LOOP;
2163: END IF;
2164: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2167: RAISE OKL_API.G_EXCEPTION_ERROR;
2168: END IF;
2169: END IF; -- end of attribute comparision
2170: END LOOP;
2171: -- now we need to add back all the new records that have been created or whose associated object has been changed by updating the
2193: l_module,
2194: 'okl_vp_associations_pvt.create_vp_associations returned with status '||x_return_status
2195: );
2196: END IF;
2197: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2198: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2200: RAISE OKL_API.G_EXCEPTION_ERROR;
2201: END IF;
2194: 'okl_vp_associations_pvt.create_vp_associations returned with status '||x_return_status
2195: );
2196: END IF;
2197: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2198: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2200: RAISE OKL_API.G_EXCEPTION_ERROR;
2201: END IF;
2202: END LOOP;
2195: );
2196: END IF;
2197: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2198: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2200: RAISE OKL_API.G_EXCEPTION_ERROR;
2201: END IF;
2202: END LOOP;
2203:
2196: END IF;
2197: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2198: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2200: RAISE OKL_API.G_EXCEPTION_ERROR;
2201: END IF;
2202: END LOOP;
2203:
2204: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2200: RAISE OKL_API.G_EXCEPTION_ERROR;
2201: END IF;
2202: END LOOP;
2203:
2204: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2205:
2206: IF(l_debug_enabled='Y') THEN
2207: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_associations');
2208: END IF;
2206: IF(l_debug_enabled='Y') THEN
2207: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_associations');
2208: END IF;
2209: EXCEPTION
2210: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2211: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2212: p_api_name => l_api_name,
2213: p_pkg_name => G_PKG_NAME,
2214: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2207: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_associations');
2208: END IF;
2209: EXCEPTION
2210: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2211: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2212: p_api_name => l_api_name,
2213: p_pkg_name => G_PKG_NAME,
2214: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2215: x_msg_count => x_msg_count,
2210: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2211: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2212: p_api_name => l_api_name,
2213: p_pkg_name => G_PKG_NAME,
2214: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2215: x_msg_count => x_msg_count,
2216: x_msg_data => x_msg_data,
2217: p_api_type => g_api_type);
2218: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2214: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2215: x_msg_count => x_msg_count,
2216: x_msg_data => x_msg_data,
2217: p_api_type => g_api_type);
2218: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2219: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2220: p_api_name => l_api_name,
2221: p_pkg_name => G_PKG_NAME,
2222: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2215: x_msg_count => x_msg_count,
2216: x_msg_data => x_msg_data,
2217: p_api_type => g_api_type);
2218: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2219: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2220: p_api_name => l_api_name,
2221: p_pkg_name => G_PKG_NAME,
2222: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2223: x_msg_count => x_msg_count,
2218: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2219: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2220: p_api_name => l_api_name,
2221: p_pkg_name => G_PKG_NAME,
2222: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2223: x_msg_count => x_msg_count,
2224: x_msg_data => x_msg_data,
2225: p_api_type => g_api_type);
2226: WHEN OTHERS THEN
2223: x_msg_count => x_msg_count,
2224: x_msg_data => x_msg_data,
2225: p_api_type => g_api_type);
2226: WHEN OTHERS THEN
2227: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2228: p_api_name => l_api_name,
2229: p_pkg_name => G_PKG_NAME,
2230: p_exc_name => 'OTHERS',
2231: x_msg_count => x_msg_count,
2262: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_VP_SYNC_CR_PVT.SYNC_ELIG_CRITERIA';
2263: l_debug_enabled VARCHAR2(10);
2264:
2265: BEGIN
2266: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2267:
2268: l_debug_enabled := okl_debug_pub.check_log_enabled;
2269:
2270: IF(l_debug_enabled='Y') THEN
2271: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCRSB.pls call sync_elig_criteria');
2272: END IF;
2273:
2274: -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
2275: x_return_status := OKL_API.START_ACTIVITY(
2276: p_api_name => l_api_name
2277: ,p_pkg_name => G_PKG_NAME
2278: ,p_init_msg_list => p_init_msg_list
2279: ,l_api_version => l_api_version
2280: ,p_api_version => p_api_version
2281: ,p_api_type => g_api_type
2282: ,x_return_status => x_return_status);
2283: -- check if activity started successfully
2284: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2287: RAISE OKL_API.G_EXCEPTION_ERROR;
2288: END IF;
2281: ,p_api_type => g_api_type
2282: ,x_return_status => x_return_status);
2283: -- check if activity started successfully
2284: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2287: RAISE OKL_API.G_EXCEPTION_ERROR;
2288: END IF;
2289:
2282: ,x_return_status => x_return_status);
2283: -- check if activity started successfully
2284: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2287: RAISE OKL_API.G_EXCEPTION_ERROR;
2288: END IF;
2289:
2290: -- the effective start and end dates of the original agreement are derived to pass to the eligibility criteria API
2283: -- check if activity started successfully
2284: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2287: RAISE OKL_API.G_EXCEPTION_ERROR;
2288: END IF;
2289:
2290: -- the effective start and end dates of the original agreement are derived to pass to the eligibility criteria API
2291: -- note that by the time control reaches this place, the extended effective end date on the change request would
2308: l_module,
2309: 'okl_ecc_values_pvt.delete_eligibility_criteria returned with status '||x_return_status
2310: );
2311: END IF;
2312: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2315: RAISE OKL_API.G_EXCEPTION_ERROR;
2316: END IF;
2309: 'okl_ecc_values_pvt.delete_eligibility_criteria returned with status '||x_return_status
2310: );
2311: END IF;
2312: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2315: RAISE OKL_API.G_EXCEPTION_ERROR;
2316: END IF;
2317:
2310: );
2311: END IF;
2312: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2315: RAISE OKL_API.G_EXCEPTION_ERROR;
2316: END IF;
2317:
2318: -- now that the eligibility criteria has been deleted successfully,
2311: END IF;
2312: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2315: RAISE OKL_API.G_EXCEPTION_ERROR;
2316: END IF;
2317:
2318: -- now that the eligibility criteria has been deleted successfully,
2319: -- get the eligibility criteria from the change request agreement
2333: l_module,
2334: 'okl_ecc_values_pvt.get_eligibility_criteria returned with status '||x_return_status
2335: );
2336: END IF;
2337: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2340: RAISE OKL_API.G_EXCEPTION_ERROR;
2341: END IF;
2334: 'okl_ecc_values_pvt.get_eligibility_criteria returned with status '||x_return_status
2335: );
2336: END IF;
2337: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2340: RAISE OKL_API.G_EXCEPTION_ERROR;
2341: END IF;
2342:
2335: );
2336: END IF;
2337: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2340: RAISE OKL_API.G_EXCEPTION_ERROR;
2341: END IF;
2342:
2343: IF(lx_ecl_tbl.count > 0)THEN
2336: END IF;
2337: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2340: RAISE OKL_API.G_EXCEPTION_ERROR;
2341: END IF;
2342:
2343: IF(lx_ecl_tbl.count > 0)THEN
2344: -- set the eligibility criteria headers id to the original agreement id
2382: l_module,
2383: 'okl_ecc_values_pvt.handle_eligibility_criteria returned with status '||x_return_status
2384: );
2385: END IF;
2386: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2389: RAISE OKL_API.G_EXCEPTION_ERROR;
2390: END IF;
2383: 'okl_ecc_values_pvt.handle_eligibility_criteria returned with status '||x_return_status
2384: );
2385: END IF;
2386: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2389: RAISE OKL_API.G_EXCEPTION_ERROR;
2390: END IF;
2391: END IF;
2384: );
2385: END IF;
2386: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2389: RAISE OKL_API.G_EXCEPTION_ERROR;
2390: END IF;
2391: END IF;
2392:
2385: END IF;
2386: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2389: RAISE OKL_API.G_EXCEPTION_ERROR;
2390: END IF;
2391: END IF;
2392:
2393: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2389: RAISE OKL_API.G_EXCEPTION_ERROR;
2390: END IF;
2391: END IF;
2392:
2393: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2394:
2395: IF(l_debug_enabled='Y') THEN
2396: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_elig_criteria');
2397: END IF;
2395: IF(l_debug_enabled='Y') THEN
2396: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_elig_criteria');
2397: END IF;
2398: EXCEPTION
2399: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2400: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2401: p_api_name => l_api_name,
2402: p_pkg_name => G_PKG_NAME,
2403: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2396: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_elig_criteria');
2397: END IF;
2398: EXCEPTION
2399: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2400: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2401: p_api_name => l_api_name,
2402: p_pkg_name => G_PKG_NAME,
2403: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2404: x_msg_count => x_msg_count,
2399: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2400: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2401: p_api_name => l_api_name,
2402: p_pkg_name => G_PKG_NAME,
2403: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2404: x_msg_count => x_msg_count,
2405: x_msg_data => x_msg_data,
2406: p_api_type => g_api_type);
2407: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2403: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2404: x_msg_count => x_msg_count,
2405: x_msg_data => x_msg_data,
2406: p_api_type => g_api_type);
2407: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2408: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2409: p_api_name => l_api_name,
2410: p_pkg_name => G_PKG_NAME,
2411: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2404: x_msg_count => x_msg_count,
2405: x_msg_data => x_msg_data,
2406: p_api_type => g_api_type);
2407: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2408: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2409: p_api_name => l_api_name,
2410: p_pkg_name => G_PKG_NAME,
2411: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2412: x_msg_count => x_msg_count,
2407: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2408: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2409: p_api_name => l_api_name,
2410: p_pkg_name => G_PKG_NAME,
2411: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2412: x_msg_count => x_msg_count,
2413: x_msg_data => x_msg_data,
2414: p_api_type => g_api_type);
2415: WHEN OTHERS THEN
2412: x_msg_count => x_msg_count,
2413: x_msg_data => x_msg_data,
2414: p_api_type => g_api_type);
2415: WHEN OTHERS THEN
2416: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2417: p_api_name => l_api_name,
2418: p_pkg_name => G_PKG_NAME,
2419: p_exc_name => 'OTHERS',
2420: x_msg_count => x_msg_count,
2568: RETURN lv_return_cpl_id;
2569: END get_original_cpl_id;
2570:
2571: BEGIN
2572: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2573:
2574: l_debug_enabled := okl_debug_pub.check_log_enabled;
2575:
2576: IF(l_debug_enabled='Y') THEN
2577: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCRSB.pls call sync_terms');
2578: END IF;
2579:
2580: -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
2581: x_return_status := OKL_API.START_ACTIVITY(
2582: p_api_name => l_api_name
2583: ,p_pkg_name => G_PKG_NAME
2584: ,p_init_msg_list => p_init_msg_list
2585: ,l_api_version => l_api_version
2586: ,p_api_version => p_api_version
2587: ,p_api_type => g_api_type
2588: ,x_return_status => x_return_status);
2589: -- check if activity started successfully
2590: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2591: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2592: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2593: RAISE OKL_API.G_EXCEPTION_ERROR;
2594: END IF;
2587: ,p_api_type => g_api_type
2588: ,x_return_status => x_return_status);
2589: -- check if activity started successfully
2590: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2591: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2592: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2593: RAISE OKL_API.G_EXCEPTION_ERROR;
2594: END IF;
2595:
2588: ,x_return_status => x_return_status);
2589: -- check if activity started successfully
2590: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2591: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2592: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2593: RAISE OKL_API.G_EXCEPTION_ERROR;
2594: END IF;
2595:
2596: -- since it is possible for the user to go and delete a party after associating a residual share percent to that party,
2589: -- check if activity started successfully
2590: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2591: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2592: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2593: RAISE OKL_API.G_EXCEPTION_ERROR;
2594: END IF;
2595:
2596: -- since it is possible for the user to go and delete a party after associating a residual share percent to that party,
2597: -- we have to delete the rule group and the information from the parent contract and get it re-created from the change request
2608: ,x_msg_count => x_msg_count
2609: ,x_msg_data => x_msg_data
2610: ,p_rgpv_tbl => lv_rgpv_del_tbl
2611: );
2612: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2615: RAISE OKL_API.G_EXCEPTION_ERROR;
2616: END IF;
2609: ,x_msg_data => x_msg_data
2610: ,p_rgpv_tbl => lv_rgpv_del_tbl
2611: );
2612: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2615: RAISE OKL_API.G_EXCEPTION_ERROR;
2616: END IF;
2617: ELSE
2610: ,p_rgpv_tbl => lv_rgpv_del_tbl
2611: );
2612: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2615: RAISE OKL_API.G_EXCEPTION_ERROR;
2616: END IF;
2617: ELSE
2618: CLOSE c_get_residual_grp;
2611: );
2612: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2615: RAISE OKL_API.G_EXCEPTION_ERROR;
2616: END IF;
2617: ELSE
2618: CLOSE c_get_residual_grp;
2619: END IF;
2636: ,x_msg_count => x_msg_count
2637: ,x_msg_data => x_msg_data
2638: ,p_rgpv_tbl => lv_rgpv_del_tbl
2639: );
2640: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2643: RAISE OKL_API.G_EXCEPTION_ERROR;
2644: END IF;
2637: ,x_msg_data => x_msg_data
2638: ,p_rgpv_tbl => lv_rgpv_del_tbl
2639: );
2640: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2643: RAISE OKL_API.G_EXCEPTION_ERROR;
2644: END IF;
2645: END IF;
2638: ,p_rgpv_tbl => lv_rgpv_del_tbl
2639: );
2640: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2643: RAISE OKL_API.G_EXCEPTION_ERROR;
2644: END IF;
2645: END IF;
2646: */
2639: );
2640: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2643: RAISE OKL_API.G_EXCEPTION_ERROR;
2644: END IF;
2645: END IF;
2646: */
2647: -- now find the rules that have been modified/created on the change request and whose rule groups
2671: l_module,
2672: 'okl_rule_apis_pvt.get_contract_rules returned with status '||x_return_status
2673: );
2674: END IF;
2675: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2678: RAISE OKL_API.G_EXCEPTION_ERROR;
2679: END IF;
2672: 'okl_rule_apis_pvt.get_contract_rules returned with status '||x_return_status
2673: );
2674: END IF;
2675: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2678: RAISE OKL_API.G_EXCEPTION_ERROR;
2679: END IF;
2680:
2673: );
2674: END IF;
2675: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2678: RAISE OKL_API.G_EXCEPTION_ERROR;
2679: END IF;
2680:
2681: lv_process_idx := 0;
2674: END IF;
2675: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2678: RAISE OKL_API.G_EXCEPTION_ERROR;
2679: END IF;
2680:
2681: lv_process_idx := 0;
2682: IF(lx_rulv_count > 0)THEN
2707: l_module,
2708: 'okl_rgrp_rules_process_pvt.get_header_rule_group_id returned with status '||x_return_status||' lv_rgp_id '||lv_rgp_id
2709: );
2710: END IF;
2711: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2714: RAISE OKL_API.G_EXCEPTION_ERROR;
2715: END IF;
2708: 'okl_rgrp_rules_process_pvt.get_header_rule_group_id returned with status '||x_return_status||' lv_rgp_id '||lv_rgp_id
2709: );
2710: END IF;
2711: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2714: RAISE OKL_API.G_EXCEPTION_ERROR;
2715: END IF;
2716: -- since we are creating the rule record, pass the rule_id as null
2709: );
2710: END IF;
2711: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2714: RAISE OKL_API.G_EXCEPTION_ERROR;
2715: END IF;
2716: -- since we are creating the rule record, pass the rule_id as null
2717: lv_rule_info_tbl(lv_process_idx).rule_id := null;
2710: END IF;
2711: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2714: RAISE OKL_API.G_EXCEPTION_ERROR;
2715: END IF;
2716: -- since we are creating the rule record, pass the rule_id as null
2717: lv_rule_info_tbl(lv_process_idx).rule_id := null;
2718: lv_rule_info_tbl(lv_process_idx).dnz_chr_id := p_orig_chr_id;
2775: l_module,
2776: 'okl_rgrp_rules_process_pvt.process_rule_group_rules returned with status '||x_return_status
2777: );
2778: END IF;
2779: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2782: RAISE OKL_API.G_EXCEPTION_ERROR;
2783: END IF;
2776: 'okl_rgrp_rules_process_pvt.process_rule_group_rules returned with status '||x_return_status
2777: );
2778: END IF;
2779: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2782: RAISE OKL_API.G_EXCEPTION_ERROR;
2783: END IF;
2784: END IF;
2777: );
2778: END IF;
2779: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2782: RAISE OKL_API.G_EXCEPTION_ERROR;
2783: END IF;
2784: END IF;
2785: END IF; -- end of lx_rulv_count > 0
2778: END IF;
2779: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2782: RAISE OKL_API.G_EXCEPTION_ERROR;
2783: END IF;
2784: END IF;
2785: END IF; -- end of lx_rulv_count > 0
2786: END LOOP; -- end of for loop
2803: l_module,
2804: 'okl_rule_apis_pvt.get_contract_rgs returned with status '||x_return_status
2805: );
2806: END IF;
2807: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2810: RAISE OKL_API.G_EXCEPTION_ERROR;
2811: END IF;
2804: 'okl_rule_apis_pvt.get_contract_rgs returned with status '||x_return_status
2805: );
2806: END IF;
2807: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2810: RAISE OKL_API.G_EXCEPTION_ERROR;
2811: END IF;
2812: IF(lx_new_rg_count > 0)THEN
2805: );
2806: END IF;
2807: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2810: RAISE OKL_API.G_EXCEPTION_ERROR;
2811: END IF;
2812: IF(lx_new_rg_count > 0)THEN
2813: lv_new_rgp_tbl := lx_new_rgp_tbl;
2806: END IF;
2807: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2810: RAISE OKL_API.G_EXCEPTION_ERROR;
2811: END IF;
2812: IF(lx_new_rg_count > 0)THEN
2813: lv_new_rgp_tbl := lx_new_rgp_tbl;
2814: FOR i IN 1..lv_new_rgp_tbl.COUNT LOOP
2829: l_module,
2830: 'okl_okc_migration_pvt.create_rule_group returned with status '||x_return_status
2831: );
2832: END IF;
2833: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2836: RAISE OKL_API.G_EXCEPTION_ERROR;
2837: END IF;
2830: 'okl_okc_migration_pvt.create_rule_group returned with status '||x_return_status
2831: );
2832: END IF;
2833: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2836: RAISE OKL_API.G_EXCEPTION_ERROR;
2837: END IF;
2838: -- this is a new rule group all together that has to be created on the original agreement
2831: );
2832: END IF;
2833: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2836: RAISE OKL_API.G_EXCEPTION_ERROR;
2837: END IF;
2838: -- this is a new rule group all together that has to be created on the original agreement
2839: -- for the older rule group on the change request, we need to determine the rules that
2832: END IF;
2833: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2836: RAISE OKL_API.G_EXCEPTION_ERROR;
2837: END IF;
2838: -- this is a new rule group all together that has to be created on the original agreement
2839: -- for the older rule group on the change request, we need to determine the rules that
2840: -- were present on the change request and copy those rules under this new rule group
2860: l_module,
2861: 'okl_rule_apis_pvt.get_contract_rules1 returned with status '||x_return_status
2862: );
2863: END IF;
2864: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2867: RAISE OKL_API.G_EXCEPTION_ERROR;
2868: END IF;
2861: 'okl_rule_apis_pvt.get_contract_rules1 returned with status '||x_return_status
2862: );
2863: END IF;
2864: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2867: RAISE OKL_API.G_EXCEPTION_ERROR;
2868: END IF;
2869: FOR j IN 1..lv_rulv2_count LOOP
2862: );
2863: END IF;
2864: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2867: RAISE OKL_API.G_EXCEPTION_ERROR;
2868: END IF;
2869: FOR j IN 1..lv_rulv2_count LOOP
2870: lx_rulv2_tbl(j).rgp_id := x_new_rgp_rec.id;
2863: END IF;
2864: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2867: RAISE OKL_API.G_EXCEPTION_ERROR;
2868: END IF;
2869: FOR j IN 1..lv_rulv2_count LOOP
2870: lx_rulv2_tbl(j).rgp_id := x_new_rgp_rec.id;
2871: lx_rulv2_tbl(j).dnz_chr_id := p_orig_chr_id;
2898: l_module,
2899: 'okl_rule_pub.create_rule returned with status '||x_return_status
2900: );
2901: END IF;
2902: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2905: RAISE OKL_API.G_EXCEPTION_ERROR;
2906: END IF;
2899: 'okl_rule_pub.create_rule returned with status '||x_return_status
2900: );
2901: END IF;
2902: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2905: RAISE OKL_API.G_EXCEPTION_ERROR;
2906: END IF;
2907: END IF;
2900: );
2901: END IF;
2902: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2905: RAISE OKL_API.G_EXCEPTION_ERROR;
2906: END IF;
2907: END IF;
2908: END LOOP;
2901: END IF;
2902: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2905: RAISE OKL_API.G_EXCEPTION_ERROR;
2906: END IF;
2907: END IF;
2908: END LOOP;
2909: END IF;
2908: END LOOP;
2909: END IF;
2910: END LOOP; -- end of for loop for processing new rule group and new rules
2911:
2912: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2913:
2914: IF(l_debug_enabled='Y') THEN
2915: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_terms');
2916: END IF;
2914: IF(l_debug_enabled='Y') THEN
2915: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_terms');
2916: END IF;
2917: EXCEPTION
2918: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2919: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2920: p_api_name => l_api_name,
2921: p_pkg_name => G_PKG_NAME,
2922: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2915: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_terms');
2916: END IF;
2917: EXCEPTION
2918: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2919: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2920: p_api_name => l_api_name,
2921: p_pkg_name => G_PKG_NAME,
2922: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2923: x_msg_count => x_msg_count,
2918: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2919: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2920: p_api_name => l_api_name,
2921: p_pkg_name => G_PKG_NAME,
2922: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2923: x_msg_count => x_msg_count,
2924: x_msg_data => x_msg_data,
2925: p_api_type => g_api_type);
2926: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2922: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2923: x_msg_count => x_msg_count,
2924: x_msg_data => x_msg_data,
2925: p_api_type => g_api_type);
2926: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2927: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2928: p_api_name => l_api_name,
2929: p_pkg_name => G_PKG_NAME,
2930: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2923: x_msg_count => x_msg_count,
2924: x_msg_data => x_msg_data,
2925: p_api_type => g_api_type);
2926: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2927: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2928: p_api_name => l_api_name,
2929: p_pkg_name => G_PKG_NAME,
2930: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2931: x_msg_count => x_msg_count,
2926: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2927: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2928: p_api_name => l_api_name,
2929: p_pkg_name => G_PKG_NAME,
2930: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2931: x_msg_count => x_msg_count,
2932: x_msg_data => x_msg_data,
2933: p_api_type => g_api_type);
2934: WHEN OTHERS THEN
2931: x_msg_count => x_msg_count,
2932: x_msg_data => x_msg_data,
2933: p_api_type => g_api_type);
2934: WHEN OTHERS THEN
2935: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2936: p_api_name => l_api_name,
2937: p_pkg_name => G_PKG_NAME,
2938: p_exc_name => 'OTHERS',
2939: x_msg_count => x_msg_count,
3014: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_VP_SYNC_CR_PVT.SYNC_VENDOR_DISB_SETUP';
3015: l_debug_enabled VARCHAR2(10);
3016:
3017: BEGIN
3018: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3019:
3020: l_debug_enabled := okl_debug_pub.check_log_enabled;
3021:
3022: IF(l_debug_enabled='Y') THEN
3023: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCRSB.pls call sync_vendor_disb_setup');
3024: END IF;
3025:
3026: -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
3027: x_return_status := OKL_API.START_ACTIVITY(
3028: p_api_name => l_api_name
3029: ,p_pkg_name => G_PKG_NAME
3030: ,p_init_msg_list => p_init_msg_list
3031: ,l_api_version => l_api_version
3032: ,p_api_version => p_api_version
3033: ,p_api_type => g_api_type
3034: ,x_return_status => x_return_status);
3035: -- check if activity started successfully
3036: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3039: RAISE OKL_API.G_EXCEPTION_ERROR;
3040: END IF;
3033: ,p_api_type => g_api_type
3034: ,x_return_status => x_return_status);
3035: -- check if activity started successfully
3036: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3039: RAISE OKL_API.G_EXCEPTION_ERROR;
3040: END IF;
3041:
3034: ,x_return_status => x_return_status);
3035: -- check if activity started successfully
3036: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3039: RAISE OKL_API.G_EXCEPTION_ERROR;
3040: END IF;
3041:
3042: -- by the time control reaches here, the party records would have been merged. therefore the logic of merging the
3035: -- check if activity started successfully
3036: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3039: RAISE OKL_API.G_EXCEPTION_ERROR;
3040: END IF;
3041:
3042: -- by the time control reaches here, the party records would have been merged. therefore the logic of merging the
3043: -- Disbursement setup is, to find the correct party record on PA and see if that party has disbursement info set, if so then update that info
3077: IF(l_debug_enabled='Y') THEN
3078: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT, l_module, 'okl_subsidy_rfnd_dtls_pvt.update_refund_dtls '|| x_return_status);
3079: END IF;
3080:
3081: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3082: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3083: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3084: RAISE OKL_API.G_EXCEPTION_ERROR;
3085: END IF;
3078: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT, l_module, 'okl_subsidy_rfnd_dtls_pvt.update_refund_dtls '|| x_return_status);
3079: END IF;
3080:
3081: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3082: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3083: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3084: RAISE OKL_API.G_EXCEPTION_ERROR;
3085: END IF;
3086: ELSE
3079: END IF;
3080:
3081: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3082: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3083: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3084: RAISE OKL_API.G_EXCEPTION_ERROR;
3085: END IF;
3086: ELSE
3087: CLOSE c_get_orig_disb_csr;
3080:
3081: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3082: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3083: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3084: RAISE OKL_API.G_EXCEPTION_ERROR;
3085: END IF;
3086: ELSE
3087: CLOSE c_get_orig_disb_csr;
3088: -- we need to create a Disbursement Setup Record for the Program Agreement
3117: IF(l_debug_enabled='Y') THEN
3118: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT, l_module, 'okl_subsidy_rfnd_dtls_pvt.create_refund_dtls '|| x_return_status);
3119: END IF;
3120:
3121: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3124: RAISE OKL_API.G_EXCEPTION_ERROR;
3125: END IF;
3118: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT, l_module, 'okl_subsidy_rfnd_dtls_pvt.create_refund_dtls '|| x_return_status);
3119: END IF;
3120:
3121: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3124: RAISE OKL_API.G_EXCEPTION_ERROR;
3125: END IF;
3126: ELSE
3119: END IF;
3120:
3121: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3124: RAISE OKL_API.G_EXCEPTION_ERROR;
3125: END IF;
3126: ELSE
3127: CLOSE c_get_party_role_csr;
3120:
3121: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3124: RAISE OKL_API.G_EXCEPTION_ERROR;
3125: END IF;
3126: ELSE
3127: CLOSE c_get_party_role_csr;
3128: IF(l_debug_enabled='Y') THEN
3134:
3135: END IF;
3136: END LOOP;
3137:
3138: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3139:
3140: IF(l_debug_enabled='Y') THEN
3141: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_vendor_disb_setup');
3142: END IF;
3141: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCRSB.pls call sync_vendor_disb_setup');
3142: END IF;
3143:
3144: EXCEPTION
3145: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3146: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3147: p_api_name => l_api_name,
3148: p_pkg_name => G_PKG_NAME,
3149: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3142: END IF;
3143:
3144: EXCEPTION
3145: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3146: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3147: p_api_name => l_api_name,
3148: p_pkg_name => G_PKG_NAME,
3149: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3150: x_msg_count => x_msg_count,
3145: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3146: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3147: p_api_name => l_api_name,
3148: p_pkg_name => G_PKG_NAME,
3149: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3150: x_msg_count => x_msg_count,
3151: x_msg_data => x_msg_data,
3152: p_api_type => g_api_type);
3153: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3149: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3150: x_msg_count => x_msg_count,
3151: x_msg_data => x_msg_data,
3152: p_api_type => g_api_type);
3153: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3154: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3155: p_api_name => l_api_name,
3156: p_pkg_name => G_PKG_NAME,
3157: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3150: x_msg_count => x_msg_count,
3151: x_msg_data => x_msg_data,
3152: p_api_type => g_api_type);
3153: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3154: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3155: p_api_name => l_api_name,
3156: p_pkg_name => G_PKG_NAME,
3157: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3158: x_msg_count => x_msg_count,
3153: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3154: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3155: p_api_name => l_api_name,
3156: p_pkg_name => G_PKG_NAME,
3157: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3158: x_msg_count => x_msg_count,
3159: x_msg_data => x_msg_data,
3160: p_api_type => g_api_type);
3161: WHEN OTHERS THEN
3158: x_msg_count => x_msg_count,
3159: x_msg_data => x_msg_data,
3160: p_api_type => g_api_type);
3161: WHEN OTHERS THEN
3162: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3163: p_api_name => l_api_name,
3164: p_pkg_name => G_PKG_NAME,
3165: p_exc_name => 'OTHERS',
3166: x_msg_count => x_msg_count,