47: AND ptp.provider_type_code in ('BOTH', 'SERVICE')
48: AND (ptp.party_tax_profile_id =1
49: OR ptp.party_tax_profile_id=2);
50: ELSE
51: fnd_message.set_name('ZX', 'ZX_SRVC_PROVIDER_REQUIRED');
52: p_error_msg_tbl(p_error_counter) := fnd_message.get;
53: x_return_status := FND_API.G_RET_STS_ERROR;
54: p_error_counter := p_error_counter+1;
55: END IF;
48: AND (ptp.party_tax_profile_id =1
49: OR ptp.party_tax_profile_id=2);
50: ELSE
51: fnd_message.set_name('ZX', 'ZX_SRVC_PROVIDER_REQUIRED');
52: p_error_msg_tbl(p_error_counter) := fnd_message.get;
53: x_return_status := FND_API.G_RET_STS_ERROR;
54: p_error_counter := p_error_counter+1;
55: END IF;
56:
55: END IF;
56:
57: EXCEPTION
58: WHEN NO_DATA_FOUND THEN
59: fnd_message.set_name('ZX', 'ZX_SRVC_PROVIDER_REQUIRED');
60: p_error_msg_tbl(p_error_counter) := fnd_message.get;
61: x_return_status := FND_API.G_RET_STS_ERROR;
62: p_error_counter := p_error_counter+1;
63: END;
56:
57: EXCEPTION
58: WHEN NO_DATA_FOUND THEN
59: fnd_message.set_name('ZX', 'ZX_SRVC_PROVIDER_REQUIRED');
60: p_error_msg_tbl(p_error_counter) := fnd_message.get;
61: x_return_status := FND_API.G_RET_STS_ERROR;
62: p_error_counter := p_error_counter+1;
63: END;
64:
63: END;
64:
65: /*Validate Service type code*/
66: IF p_srvc_type_code is null THEN
67: fnd_message.set_name('ZX', 'ZX_SRVC_TYPE_CODE_REQD');
68: p_error_msg_tbl(p_error_counter) := fnd_message.get;
69: x_return_status := FND_API.G_RET_STS_ERROR;
70: p_error_counter := p_error_counter+1;
71: ELSIF p_srvc_type_code NOT IN ('CALCULATE_TAX','DOCUMENT_LEVEL_CHANGES','SYNCHRONIZE_FOR_TAX','COMMIT_FOR_TAX','IMPORT_EXEMPTIONS') THEN
64:
65: /*Validate Service type code*/
66: IF p_srvc_type_code is null THEN
67: fnd_message.set_name('ZX', 'ZX_SRVC_TYPE_CODE_REQD');
68: p_error_msg_tbl(p_error_counter) := fnd_message.get;
69: x_return_status := FND_API.G_RET_STS_ERROR;
70: p_error_counter := p_error_counter+1;
71: ELSIF p_srvc_type_code NOT IN ('CALCULATE_TAX','DOCUMENT_LEVEL_CHANGES','SYNCHRONIZE_FOR_TAX','COMMIT_FOR_TAX','IMPORT_EXEMPTIONS') THEN
72: fnd_message.set_name('ZX', 'ZX_SRVC_TYPE_CODE_REQD');
68: p_error_msg_tbl(p_error_counter) := fnd_message.get;
69: x_return_status := FND_API.G_RET_STS_ERROR;
70: p_error_counter := p_error_counter+1;
71: ELSIF p_srvc_type_code NOT IN ('CALCULATE_TAX','DOCUMENT_LEVEL_CHANGES','SYNCHRONIZE_FOR_TAX','COMMIT_FOR_TAX','IMPORT_EXEMPTIONS') THEN
72: fnd_message.set_name('ZX', 'ZX_SRVC_TYPE_CODE_REQD');
73: p_error_msg_tbl(p_error_counter) := fnd_message.get;
74: x_return_status := FND_API.G_RET_STS_ERROR;
75: p_error_counter := p_error_counter+1;
76: Else
69: x_return_status := FND_API.G_RET_STS_ERROR;
70: p_error_counter := p_error_counter+1;
71: ELSIF p_srvc_type_code NOT IN ('CALCULATE_TAX','DOCUMENT_LEVEL_CHANGES','SYNCHRONIZE_FOR_TAX','COMMIT_FOR_TAX','IMPORT_EXEMPTIONS') THEN
72: fnd_message.set_name('ZX', 'ZX_SRVC_TYPE_CODE_REQD');
73: p_error_msg_tbl(p_error_counter) := fnd_message.get;
74: x_return_status := FND_API.G_RET_STS_ERROR;
75: p_error_counter := p_error_counter+1;
76: Else
77: select service_type_id
82: END IF;
83:
84: /*Validate the country code*/
85: IF p_country_code is null THEN
86: fnd_message.set_name('ZX', 'ZX_COUNTRY_CODE_REQD');
87: p_error_msg_tbl(p_error_counter) := fnd_message.get;
88: x_return_status := FND_API.G_RET_STS_ERROR;
89: p_error_counter := p_error_counter+1;
90: ELSE
83:
84: /*Validate the country code*/
85: IF p_country_code is null THEN
86: fnd_message.set_name('ZX', 'ZX_COUNTRY_CODE_REQD');
87: p_error_msg_tbl(p_error_counter) := fnd_message.get;
88: x_return_status := FND_API.G_RET_STS_ERROR;
89: p_error_counter := p_error_counter+1;
90: ELSE
91: BEGIN
95: WHERE tax_regime_code = p_country_code;
96:
97: EXCEPTION
98: WHEN NO_DATA_FOUND THEN
99: fnd_message.set_name('ZX', 'ZX_COUNTRY_CODE_REQD');
100: p_error_msg_tbl(p_error_counter) := fnd_message.get;
101: x_return_status := FND_API.G_RET_STS_ERROR;
102: p_error_counter := p_error_counter+1;
103: END ;
96:
97: EXCEPTION
98: WHEN NO_DATA_FOUND THEN
99: fnd_message.set_name('ZX', 'ZX_COUNTRY_CODE_REQD');
100: p_error_msg_tbl(p_error_counter) := fnd_message.get;
101: x_return_status := FND_API.G_RET_STS_ERROR;
102: p_error_counter := p_error_counter+1;
103: END ;
104: END IF;
104: END IF;
105:
106: /*Validate Business flow*/
107: IF p_business_flow is null THEN
108: fnd_message.set_name('ZX', 'ZX_BUSINESS_FLOW_REQUIRED');
109: p_error_msg_tbl(p_error_counter) := fnd_message.get;
110: x_return_status := FND_API.G_RET_STS_ERROR;
111: p_error_counter := p_error_counter+1;
112: ELSIF p_businesS_flow not in ('O2C', 'P2P') THEN
105:
106: /*Validate Business flow*/
107: IF p_business_flow is null THEN
108: fnd_message.set_name('ZX', 'ZX_BUSINESS_FLOW_REQUIRED');
109: p_error_msg_tbl(p_error_counter) := fnd_message.get;
110: x_return_status := FND_API.G_RET_STS_ERROR;
111: p_error_counter := p_error_counter+1;
112: ELSIF p_businesS_flow not in ('O2C', 'P2P') THEN
113: fnd_message.set_name('ZX', 'ZX_BUSINESS_FLOW_REQUIRED');
109: p_error_msg_tbl(p_error_counter) := fnd_message.get;
110: x_return_status := FND_API.G_RET_STS_ERROR;
111: p_error_counter := p_error_counter+1;
112: ELSIF p_businesS_flow not in ('O2C', 'P2P') THEN
113: fnd_message.set_name('ZX', 'ZX_BUSINESS_FLOW_REQUIRED');
114: p_error_msg_tbl(p_error_counter) := fnd_message.get;
115: x_return_status := FND_API.G_RET_STS_ERROR;
116: p_error_counter := p_error_counter+1;
117: END IF;
110: x_return_status := FND_API.G_RET_STS_ERROR;
111: p_error_counter := p_error_counter+1;
112: ELSIF p_businesS_flow not in ('O2C', 'P2P') THEN
113: fnd_message.set_name('ZX', 'ZX_BUSINESS_FLOW_REQUIRED');
114: p_error_msg_tbl(p_error_counter) := fnd_message.get;
115: x_return_status := FND_API.G_RET_STS_ERROR;
116: p_error_counter := p_error_counter+1;
117: END IF;
118:
175: );
176:
177: /*Validate package name*/
178: IF p_package_name is null THEN
179: fnd_message.set_name('ZX', 'ZX_PACKAGE_REQUIRED');
180: x_error_msg_tbl(l_error_counter) := fnd_message.get;
181: x_return_status := FND_API.G_RET_STS_ERROR;
182: l_error_counter := l_error_counter+1;
183: END IF;
176:
177: /*Validate package name*/
178: IF p_package_name is null THEN
179: fnd_message.set_name('ZX', 'ZX_PACKAGE_REQUIRED');
180: x_error_msg_tbl(l_error_counter) := fnd_message.get;
181: x_return_status := FND_API.G_RET_STS_ERROR;
182: l_error_counter := l_error_counter+1;
183: END IF;
184:
183: END IF;
184:
185: /*Validate procedure name*/
186: IF p_procedure_name is null THEN
187: fnd_message.set_name('ZX', 'ZX_PROCEDURE_REQUIRED');
188: x_error_msg_tbl(l_error_counter) := fnd_message.get;
189: x_return_status := FND_API.G_RET_STS_ERROR;
190: l_error_counter := l_error_counter+1;
191: END IF;
184:
185: /*Validate procedure name*/
186: IF p_procedure_name is null THEN
187: fnd_message.set_name('ZX', 'ZX_PROCEDURE_REQUIRED');
188: x_error_msg_tbl(l_error_counter) := fnd_message.get;
189: x_return_status := FND_API.G_RET_STS_ERROR;
190: l_error_counter := l_error_counter+1;
191: END IF;
192:
216: AND srvc.service_type_code = p_srvc_type_code
217: AND context_ccid = l_code_combination_id;
218:
219: IF l_exists = 1 THEN
220: fnd_message.set_name('ZX', 'ZX_SERVICE_RECORD_EXISTS');
221: x_error_msg_tbl(l_error_counter) := fnd_message.get;
222: x_return_status := FND_API.G_RET_STS_ERROR;
223: l_error_counter := l_error_counter+1;
224: END IF;
217: AND context_ccid = l_code_combination_id;
218:
219: IF l_exists = 1 THEN
220: fnd_message.set_name('ZX', 'ZX_SERVICE_RECORD_EXISTS');
221: x_error_msg_tbl(l_error_counter) := fnd_message.get;
222: x_return_status := FND_API.G_RET_STS_ERROR;
223: l_error_counter := l_error_counter+1;
224: END IF;
225:
250: segments => l_segments,
251: combination_id => l_code_combination_id
252: )) THEN
253:
254: fnd_message.set_name ('ZX', 'ZX_PTNR_SRVC_CCID_NOT_FOUND'); -- Bug 5216009
255: x_error_msg_tbl(l_error_counter) := fnd_message.get;
256: x_return_status := FND_API.G_RET_STS_ERROR;
257: l_error_counter := l_error_counter+1;
258: END IF;
251: combination_id => l_code_combination_id
252: )) THEN
253:
254: fnd_message.set_name ('ZX', 'ZX_PTNR_SRVC_CCID_NOT_FOUND'); -- Bug 5216009
255: x_error_msg_tbl(l_error_counter) := fnd_message.get;
256: x_return_status := FND_API.G_RET_STS_ERROR;
257: l_error_counter := l_error_counter+1;
258: END IF;
259: END IF; --create code combination
340: EXCEPTION
341: WHEN OTHERS THEN
342: ROLLBACK TO create_srvc_registration_pvt;
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
344: FND_MESSAGE.set_name('ZX','ZX_UNEXPECTED_ERROR');
345: x_error_msg_tbl(l_error_counter) := fnd_message.get;
346: l_error_counter := l_error_counter+1;
347: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
348: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
341: WHEN OTHERS THEN
342: ROLLBACK TO create_srvc_registration_pvt;
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
344: FND_MESSAGE.set_name('ZX','ZX_UNEXPECTED_ERROR');
345: x_error_msg_tbl(l_error_counter) := fnd_message.get;
346: l_error_counter := l_error_counter+1;
347: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
348: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
349: END IF;
399: AND service_type_id = l_srvc_type_id;
400:
401: EXCEPTION
402: WHEN NO_DATA_FOUND THEN
403: fnd_message.set_name('ZX', 'ZX_SRVC_RECORD_NOT_EXISTS');
404: x_error_msg_tbl(l_error_counter) := fnd_message.get;
405: x_return_status := FND_API.G_RET_STS_ERROR;
406: l_error_counter := l_error_counter+1;
407: END;
400:
401: EXCEPTION
402: WHEN NO_DATA_FOUND THEN
403: fnd_message.set_name('ZX', 'ZX_SRVC_RECORD_NOT_EXISTS');
404: x_error_msg_tbl(l_error_counter) := fnd_message.get;
405: x_return_status := FND_API.G_RET_STS_ERROR;
406: l_error_counter := l_error_counter+1;
407: END;
408:
457: EXCEPTION
458: WHEN OTHERS THEN
459: ROLLBACK TO insert_row_Pvt;
460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
461: FND_MESSAGE.set_name('ZX','ZX_UNEXPECTED_ERROR');
462: x_error_msg_tbl(l_error_counter) := fnd_message.get;
463: l_error_counter := l_error_counter+1;
464: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
465: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
458: WHEN OTHERS THEN
459: ROLLBACK TO insert_row_Pvt;
460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
461: FND_MESSAGE.set_name('ZX','ZX_UNEXPECTED_ERROR');
462: x_error_msg_tbl(l_error_counter) := fnd_message.get;
463: l_error_counter := l_error_counter+1;
464: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
465: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
466: END IF;
503: AND ptp.provider_type_code in ('BOTH', 'SERVICE')
504: AND (ptp.party_tax_profile_id =1
505: OR ptp.party_tax_profile_id=2);
506: ELSE
507: fnd_message.set_name('ZX', 'ZX_SRVC_PROVIDER_REQUIRED');
508: x_error_msg_tbl(l_error_counter) := fnd_message.get;
509: x_return_status := FND_API.G_RET_STS_ERROR;
510: l_error_counter := l_error_counter+1;
511: END IF;
504: AND (ptp.party_tax_profile_id =1
505: OR ptp.party_tax_profile_id=2);
506: ELSE
507: fnd_message.set_name('ZX', 'ZX_SRVC_PROVIDER_REQUIRED');
508: x_error_msg_tbl(l_error_counter) := fnd_message.get;
509: x_return_status := FND_API.G_RET_STS_ERROR;
510: l_error_counter := l_error_counter+1;
511: END IF;
512:
511: END IF;
512:
513: EXCEPTION
514: WHEN NO_DATA_FOUND THEN
515: fnd_message.set_name('ZX', 'ZX_SRVC_PROVIDER_REQUIRED');
516: x_error_msg_tbl(l_error_counter) := fnd_message.get;
517: x_return_status := FND_API.G_RET_STS_ERROR;
518: l_error_counter := l_error_counter+1;
519: END;
512:
513: EXCEPTION
514: WHEN NO_DATA_FOUND THEN
515: fnd_message.set_name('ZX', 'ZX_SRVC_PROVIDER_REQUIRED');
516: x_error_msg_tbl(l_error_counter) := fnd_message.get;
517: x_return_status := FND_API.G_RET_STS_ERROR;
518: l_error_counter := l_error_counter+1;
519: END;
520:
536: EXCEPTION
537: WHEN OTHERS THEN
538: ROLLBACK TO execute_srvc_plugin_pvt;
539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
540: fnd_message.set_name('ZX', 'ZX_UNEXPECTED_ERROR');
541: x_error_msg_tbl(l_error_counter) := fnd_message.get;
542: l_error_counter := l_error_counter+1;
543: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
544: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
537: WHEN OTHERS THEN
538: ROLLBACK TO execute_srvc_plugin_pvt;
539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
540: fnd_message.set_name('ZX', 'ZX_UNEXPECTED_ERROR');
541: x_error_msg_tbl(l_error_counter) := fnd_message.get;
542: l_error_counter := l_error_counter+1;
543: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
544: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
545: END IF;