161:
162: -- Checking parameters are not null
163: IF (p_party_type_code is null) THEN
164: p_return_status := FND_API.G_RET_STS_ERROR;
165: FND_MESSAGE.SET_NAME('ZX','ZX_GENERIC_MESSAGE');
166: RETURN;
167: END IF; -- Null parameters
168:
169: -- Initialize P_Ptp_ID
355: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_procedure_name, l_log_msg);
356: END IF;
357: ---------------------------------------------------------------------------------
358: -- Bug 4512462
359: FND_MESSAGE.SET_NAME('ZX', 'ZX_PARTY_NOT_EXISTS');
360: p_return_status := FND_API.G_RET_STS_ERROR;
361: END IF;
362: --close c_get_ptp_id;
363: ELSE
392: ||p_party_type_code||', '||to_char(p_party_id)||' ';
393: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_procedure_name, l_log_msg);
394: END IF;
395: -- Bug 4512462
396: FND_MESSAGE.SET_NAME('ZX', 'ZX_PARTY_NOT_EXISTS');
397: p_return_status := FND_API.G_RET_STS_ERROR;
398: WHEN INVALID_CURSOR THEN
399: p_return_status := FND_API.G_RET_STS_ERROR;
400: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
396: FND_MESSAGE.SET_NAME('ZX', 'ZX_PARTY_NOT_EXISTS');
397: p_return_status := FND_API.G_RET_STS_ERROR;
398: WHEN INVALID_CURSOR THEN
399: p_return_status := FND_API.G_RET_STS_ERROR;
400: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
401: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
402: WHEN OTHERS THEN
403: p_return_status := FND_API.G_RET_STS_ERROR;
404: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
397: p_return_status := FND_API.G_RET_STS_ERROR;
398: WHEN INVALID_CURSOR THEN
399: p_return_status := FND_API.G_RET_STS_ERROR;
400: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
401: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
402: WHEN OTHERS THEN
403: p_return_status := FND_API.G_RET_STS_ERROR;
404: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
405: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
400: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
401: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
402: WHEN OTHERS THEN
403: p_return_status := FND_API.G_RET_STS_ERROR;
404: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
405: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
406:
407: -- Logging Infra: Statement level
408: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
401: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
402: WHEN OTHERS THEN
403: p_return_status := FND_API.G_RET_STS_ERROR;
404: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
405: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
406:
407: -- Logging Infra: Statement level
408: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
409: l_log_msg := 'Error Message: '||SQLERRM;
474: END IF;
475:
476: IF P_PTP_ID is null Then
477: p_return_status := FND_API.G_RET_STS_ERROR;
478: FND_MESSAGE.SET_NAME('ZX', 'ZX_PARTY_NOT_EXISTS');
479: ELSE
480: p_return_status := FND_API.G_RET_STS_SUCCESS;
481: END IF;
482:
492: ---------------------------------------------------------------------------------
493: EXCEPTION
494: WHEN INVALID_CURSOR THEN
495: p_return_status := FND_API.G_RET_STS_ERROR;
496: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
497: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
498: WHEN OTHERS THEN
499: p_return_status := FND_API.G_RET_STS_ERROR;
500: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
493: EXCEPTION
494: WHEN INVALID_CURSOR THEN
495: p_return_status := FND_API.G_RET_STS_ERROR;
496: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
497: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
498: WHEN OTHERS THEN
499: p_return_status := FND_API.G_RET_STS_ERROR;
500: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
501: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
496: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
497: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
498: WHEN OTHERS THEN
499: p_return_status := FND_API.G_RET_STS_ERROR;
500: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
501: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
502:
503: -- Logging Infra: Statement level
504: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
497: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
498: WHEN OTHERS THEN
499: p_return_status := FND_API.G_RET_STS_ERROR;
500: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
501: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
502:
503: -- Logging Infra: Statement level
504: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
505: l_log_msg := 'Error Message: '||SQLERRM;
560: --
561: IF p_le_id IS NULL THEN
562: p_ptp_id := NULL;
563: p_return_status := FND_API.G_RET_STS_ERROR;
564: FND_MESSAGE.SET_NAME('ZX', 'ZX_PARTY_NOT_EXISTS');
565: --
566: -- Case: Get parameter LE_ID (Return PTP ID of LE)
567: --
568: ELSIF p_le_id IS NOT NULL AND p_org_id IS NULL THEN
572:
573: IF c_ptp_of_le%NOTFOUND THEN
574: p_ptp_id := NULL;
575: p_return_status := FND_API.G_RET_STS_ERROR;
576: FND_MESSAGE.SET_NAME('ZX', 'ZX_PARTY_NOT_EXISTS');
577: close c_ptp_of_le;
578: ELSE
579: p_return_status := FND_API.G_RET_STS_SUCCESS;
580: END IF;
623: --close c_get_ptp;
624: ELSE
625: p_ptp_id := NULL;
626: p_return_status := FND_API.G_RET_STS_ERROR;
627: FND_MESSAGE.SET_NAME('ZX', 'ZX_PARTY_NOT_EXISTS');
628: --close c_get_ptp;
629: END IF;
630:
631: --
638:
639: IF c_ptp_of_le%NOTFOUND THEN
640: p_ptp_id := NULL;
641: p_return_status := FND_API.G_RET_STS_ERROR;
642: FND_MESSAGE.SET_NAME('ZX', 'ZX_PARTY_NOT_EXISTS');
643: close c_ptp_of_le;
644: ELSE
645: p_return_status := FND_API.G_RET_STS_SUCCESS;
646: close c_ptp_of_le;
657: ---------------------------------------------------------------------------------
658:
659: ELSE
660: p_return_status := FND_API.G_RET_STS_ERROR;
661: FND_MESSAGE.SET_NAME('ZX', 'ZX_PARTY_NOT_EXISTS');
662: END IF;
663:
664: ELSE
665: Open c_ptp_of_le;
667:
668: IF c_ptp_of_le%NOTFOUND THEN
669: p_ptp_id := NULL;
670: p_return_status := FND_API.G_RET_STS_ERROR;
671: FND_MESSAGE.SET_NAME('ZX', 'ZX_PARTY_NOT_EXISTS');
672: close c_ptp_of_le;
673: ELSE
674: p_return_status := FND_API.G_RET_STS_SUCCESS;
675: close c_ptp_of_le;
687: END IF;
688: ELSE
689: p_ptp_id := NULL;
690: p_return_status := FND_API.G_RET_STS_ERROR;
691: FND_MESSAGE.SET_NAME('ZX', 'ZX_PARTY_NOT_EXISTS');
692: END IF;
693: ---------------------------------------------------------------------------------
694: -- Logging Infra: Procedure level
695: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
700:
701: EXCEPTION
702: WHEN INVALID_CURSOR THEN
703: p_return_status := FND_API.G_RET_STS_ERROR;
704: FND_MESSAGE.SET_NAME ('ZX','ZX_GENERIC_MESSAGE');
705: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', SQLERRM);
706: WHEN OTHERS THEN
707: p_return_status := FND_API.G_RET_STS_ERROR;
708: FND_MESSAGE.SET_NAME ('ZX','ZX_GENERIC_MESSAGE');
701: EXCEPTION
702: WHEN INVALID_CURSOR THEN
703: p_return_status := FND_API.G_RET_STS_ERROR;
704: FND_MESSAGE.SET_NAME ('ZX','ZX_GENERIC_MESSAGE');
705: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', SQLERRM);
706: WHEN OTHERS THEN
707: p_return_status := FND_API.G_RET_STS_ERROR;
708: FND_MESSAGE.SET_NAME ('ZX','ZX_GENERIC_MESSAGE');
709: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', SQLERRM);
704: FND_MESSAGE.SET_NAME ('ZX','ZX_GENERIC_MESSAGE');
705: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', SQLERRM);
706: WHEN OTHERS THEN
707: p_return_status := FND_API.G_RET_STS_ERROR;
708: FND_MESSAGE.SET_NAME ('ZX','ZX_GENERIC_MESSAGE');
709: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', SQLERRM);
710:
711: -- Logging Infra: Statement level
712: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
705: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', SQLERRM);
706: WHEN OTHERS THEN
707: p_return_status := FND_API.G_RET_STS_ERROR;
708: FND_MESSAGE.SET_NAME ('ZX','ZX_GENERIC_MESSAGE');
709: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', SQLERRM);
710:
711: -- Logging Infra: Statement level
712: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
713: l_log_msg := 'Error Message: '||SQLERRM;
771: END IF;
772: -- Logging Infra: Statement level
773: --------------------------------------------------------------------------------
774: p_return_status := FND_API.G_RET_STS_ERROR;
775: FND_MESSAGE.SET_NAME('ZX', 'ZX_LOCATION_NOT_EXIST');
776: close c_get_location_id;
777: ELSIF p_location_id IS NULL THEN
778: --------------------------------------------------------------------------------
779: -- Logging Infra: Statement level
783: END IF;
784: -- Logging Infra: Statement level
785: --------------------------------------------------------------------------------
786: p_return_status := FND_API.G_RET_STS_ERROR;
787: FND_MESSAGE.SET_NAME('ZX', 'ZX_LOCATION_NOT_EXIST');
788: close c_get_location_id;
789: ELSE
790: p_return_status := FND_API.G_RET_STS_SUCCESS;
791: close c_get_location_id;
810:
811: EXCEPTION
812: WHEN INVALID_CURSOR THEN
813: p_return_status := FND_API.G_RET_STS_ERROR;
814: FND_MESSAGE.SET_NAME ('ZX','ZX_GENERIC_MESSAGE');
815: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', SQLERRM);
816: WHEN OTHERS THEN
817: p_return_status := FND_API.G_RET_STS_ERROR;
818: FND_MESSAGE.SET_NAME ('ZX','ZX_GENERIC_MESSAGE');
811: EXCEPTION
812: WHEN INVALID_CURSOR THEN
813: p_return_status := FND_API.G_RET_STS_ERROR;
814: FND_MESSAGE.SET_NAME ('ZX','ZX_GENERIC_MESSAGE');
815: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', SQLERRM);
816: WHEN OTHERS THEN
817: p_return_status := FND_API.G_RET_STS_ERROR;
818: FND_MESSAGE.SET_NAME ('ZX','ZX_GENERIC_MESSAGE');
819: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', SQLERRM);
814: FND_MESSAGE.SET_NAME ('ZX','ZX_GENERIC_MESSAGE');
815: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', SQLERRM);
816: WHEN OTHERS THEN
817: p_return_status := FND_API.G_RET_STS_ERROR;
818: FND_MESSAGE.SET_NAME ('ZX','ZX_GENERIC_MESSAGE');
819: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', SQLERRM);
820:
821: -----------------------------------------------------------------------------
822: -- Logging Infra: Statement level
815: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', SQLERRM);
816: WHEN OTHERS THEN
817: p_return_status := FND_API.G_RET_STS_ERROR;
818: FND_MESSAGE.SET_NAME ('ZX','ZX_GENERIC_MESSAGE');
819: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', SQLERRM);
820:
821: -----------------------------------------------------------------------------
822: -- Logging Infra: Statement level
823: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
903: Fetch c_get_reg_id into l_tax_registration_id;
904:
905: IF c_get_reg_id%NOTFOUND THEN
906: x_return_status := FND_API.G_RET_STS_ERROR;
907: FND_MESSAGE.SET_NAME('ZX','ZX_GENERIC_MESSAGE');
908: close c_get_reg_id;
909:
910: -- Logging Infra: Statement level
911: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
943: END IF;
944:
945: WHEN INVALID_CURSOR THEN
946: x_return_status := FND_API.G_RET_STS_ERROR;
947: FND_MESSAGE.SET_NAME('ZX','ZX_GENERIC_MESSAGE');
948:
949: WHEN OTHERS THEN
950: x_return_status := FND_API.G_RET_STS_ERROR;
951: FND_MESSAGE.SET_NAME('ZX','ZX_GENERIC_MESSAGE');
947: FND_MESSAGE.SET_NAME('ZX','ZX_GENERIC_MESSAGE');
948:
949: WHEN OTHERS THEN
950: x_return_status := FND_API.G_RET_STS_ERROR;
951: FND_MESSAGE.SET_NAME('ZX','ZX_GENERIC_MESSAGE');
952:
953: -- Logging Infra: Statement level
954: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
955: l_log_msg := 'Error Message: '||SQLERRM;
1159: EXIT WHEN c_find_reg_num%NOTFOUND;
1160:
1161: IF c_find_reg_num%ROWCOUNT = 0 Then
1162: x_return_status := FND_API.G_RET_STS_ERROR;
1163: FND_MESSAGE.SET_NAME('ZX','ZX_GENERIC_MESSAGE');
1164:
1165: EXIT;
1166: CLOSE c_find_reg_num;
1167:
1445: END IF;
1446:
1447: WHEN INVALID_CURSOR THEN
1448: x_return_status := FND_API.G_RET_STS_ERROR;
1449: FND_MESSAGE.SET_NAME('ZX','ZX_GENERIC_MESSAGE');
1450:
1451: WHEN OTHERS THEN
1452: x_return_status := FND_API.G_RET_STS_ERROR;
1453: FND_MESSAGE.SET_NAME('ZX','ZX_GENERIC_MESSAGE');
1449: FND_MESSAGE.SET_NAME('ZX','ZX_GENERIC_MESSAGE');
1450:
1451: WHEN OTHERS THEN
1452: x_return_status := FND_API.G_RET_STS_ERROR;
1453: FND_MESSAGE.SET_NAME('ZX','ZX_GENERIC_MESSAGE');
1454:
1455: END SYNC_TAX_REGISTRATIONS;
1456:
1457: Procedure GET_PARTY_TAX_PROF_INFO(