[Home] [Help]
28: END IF;
29:
30: x_return_status := FND_API.G_RET_STS_SUCCESS;
31:
32: INSERT INTO zx_party_tax_profile (
33: collecting_authority_flag,
34: provider_type_code,
35: create_awt_dists_type_code,
36: create_awt_invoices_type_code,
146: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
147: END IF;
148: END insert_ptp;
149:
150: -- Procedure to create TCA Party and ZX Party Tax Profile record for Vertex --
151: PROCEDURE CREATE_VERTEX_TCA_ZX (x_return_status OUT NOCOPY VARCHAR2) IS
152: l_api_name CONSTANT VARCHAR2(50) := 'CREATE_VERTEX_TCA_ZX';
153: p_organization_rec HZ_PARTY_V2PUB.organization_rec_type;
154: l_return_status VARCHAR2(2000);
169:
170: BEGIN
171: SELECT 1
172: INTO l_exists
173: FROM zx_party_tax_profile
174: WHERE party_tax_profile_id = 1;
175:
176: EXCEPTION
177: WHEN NO_DATA_FOUND THEN
218: -- END LOOP;
219: --END IF;
220:
221: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
222: /*Insert into zx_party_tax_profile*/
223: insert_ptp (p_party_id => l_party_id,
224: p_ptp_id => 1,
225: x_return_status => l_return_status
226: );
232: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
233: END IF;
234: END CREATE_VERTEX_TCA_ZX;
235:
236: -- Procedure to create TCA Party and ZX Party Tax Profile record for Taxware --
237: PROCEDURE CREATE_TAXWARE_TCA_ZX(x_return_status OUT NOCOPY VARCHAR2) IS
238: l_api_name CONSTANT VARCHAR2(50) := 'CREATE_TAXWARE_TCA_ZX';
239: p_organization_rec HZ_PARTY_V2PUB.organization_rec_type;
240: l_return_status VARCHAR2(2000);
255:
256: BEGIN
257: SELECT 1
258: INTO l_exists
259: FROM zx_party_tax_profile
260: WHERE party_tax_profile_id = 2;
261:
262: EXCEPTION
263: WHEN NO_DATA_FOUND THEN
302: -- DBMS_OUTPUT.PUT_LINE(SubStr('x_msg_count = '||TO_CHAR(l_msg_count), 1, 255));
303: -- DBMS_OUTPUT.PUT_LINE(SubStr('x_msg_data = '||l_msg_data,1,255));
304:
305: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
306: /*Insert into zx_party_tax_profile*/
307: insert_ptp (p_party_id => l_party_id,
308: p_ptp_id => 2,
309: x_return_status => l_return_status
310: );
316: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
317: END IF;
318: END CREATE_TAXWARE_TCA_ZX;
319:
320: -- Procedure to create TCA Party and ZX Party Tax Profile record for Other Tax Partners --
321: PROCEDURE CREATE_OTHERS_TCA_ZX(x_return_status OUT NOCOPY VARCHAR2) IS
322: l_api_name CONSTANT VARCHAR2(50) := 'CREATE_OTHERS_TCA_ZX';
323: p_organization_rec HZ_PARTY_V2PUB.organization_rec_type;
324: l_return_status VARCHAR2(2000);
339:
340: BEGIN
341: SELECT 1
342: INTO l_exists
343: FROM zx_party_tax_profile
344: WHERE party_tax_profile_id = 3;
345:
346: EXCEPTION
347: WHEN NO_DATA_FOUND THEN
377: x_party_number => l_party_number,
378: x_profile_id => l_profile_id);
379:
380: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
381: /*Insert into zx_party_tax_profile*/
382: insert_ptp (p_party_id => l_party_id,
383: p_ptp_id => 3,
384: x_return_status => l_return_status
385: );
391: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
392: END IF;
393: END CREATE_OTHERS_TCA_ZX;
394:
395: -- Procedure to create TCA Party and ZX Party Tax Profile record for CCH --
396: PROCEDURE CREATE_CCH_TCA_ZX(x_return_status OUT NOCOPY VARCHAR2) IS
397: l_api_name CONSTANT VARCHAR2(50) := 'CREATE_CCH_TCA_ZX';
398: p_organization_rec HZ_PARTY_V2PUB.organization_rec_type;
399: l_return_status VARCHAR2(2000);
414:
415: BEGIN
416: SELECT 1
417: INTO l_exists
418: FROM zx_party_tax_profile
419: WHERE party_tax_profile_id = 4;
420:
421: EXCEPTION
422: WHEN NO_DATA_FOUND THEN
452: x_party_number => l_party_number,
453: x_profile_id => l_profile_id);
454:
455: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
456: /*Insert into zx_party_tax_profile*/
457: insert_ptp (p_party_id => l_party_id,
458: p_ptp_id => 4,
459: x_return_status => l_return_status
460: );