[Home] [Help]
287: l_log_msg := 'B: p_fsc_rec.classification_category='|| p_fsc_rec.classification_category;
288: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
289: END IF;
290: --Bug fix 4774215 Case 1.Return Status must be initialized.
291: P_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
292: --End of Bug fix 4774215 Case 1.
293: -- arp_util_tax.debug('classification_type = ' || p_fsc_rec.classification_type);
294: -- arp_util_tax.debug('regime_code = ' || p_fsc_rec.tax_regime_code);
295:
329:
330: END IF; -- check inventory installed
331:
332: IF zx_global_Structures_pkg.g_inventory_installed_flag = 'N' THEN
333: --p_return_status:=FND_API.G_RET_STS_ERROR;
334: --p_error_buffer:='Inventory is not enabled';
335: fnd_message.set_name('ZX','ZX_INV_NOT_ENABLED');
336:
337: p_fsc_rec.fsc_code:= null;
343: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
344: END IF;
345:
346: --return;
347: RAISE FND_API.G_EXC_ERROR;
348: END IF;
349:
350: -- 1:
351: Open c_regime_assoc;
373: l_log_msg);
374: END IF;
375:
376: if c_parent_regime_assoc%notfound then
377: --p_return_status:=FND_API.G_RET_STS_ERROR;
378: --p_error_buffer:='Regime for the given Fiscal Type is not valid ';
379: fnd_message.set_name('ZX','ZX_REGIME_NOT_VALID');
380: p_fsc_rec.fsc_code:= null;
381: close c_parent_regime_assoc;
379: fnd_message.set_name('ZX','ZX_REGIME_NOT_VALID');
380: p_fsc_rec.fsc_code:= null;
381: close c_parent_regime_assoc;
382: --return;
383: RAISE FND_API.G_EXC_ERROR;
384: end if;
385: else
386: close c_regime_assoc;
387: end if;
399: l_log_msg);
400: END IF;
401:
402: if c_inventory_set%notfound then
403: --p_return_status:=FND_API.G_RET_STS_ERROR;
404: p_fsc_rec.fsc_code:= null;
405: --p_error_buffer:='Fiscal Type Code does not exits';
406: fnd_message.set_name('ZX','ZX_FC_TYPE_NOT_EXIST');
407: close c_inventory_set;
405: --p_error_buffer:='Fiscal Type Code does not exits';
406: fnd_message.set_name('ZX','ZX_FC_TYPE_NOT_EXIST');
407: close c_inventory_set;
408: --return;
409: RAISE FND_API.G_EXC_ERROR;
410: else
411: close c_inventory_set;
412: end if;
413:
411: close c_inventory_set;
412: end if;
413:
414: if l_category_set_id = null then
415: --p_return_status:=FND_API.G_RET_STS_ERROR;
416: p_fsc_rec.fsc_code:= null;
417: --p_error_buffer:='Foreign Key broken:Fiscal Type Code does not have Inventory Category Set associated';
418: fnd_message.set_name('ZX','ZX_FC_INV_CAT_NOT_EXIST');
419:
424: G_MODULE_NAME || l_procedure_name,
425: l_log_msg);
426: END IF;
427: --return;
428: RAISE FND_API.G_EXC_ERROR;
429: end if;
430:
431: Open c_inventory_structure;
432: fetch c_inventory_structure into l_structure_id;
431: Open c_inventory_structure;
432: fetch c_inventory_structure into l_structure_id;
433:
434: if c_inventory_structure%notfound then
435: --p_return_status:=FND_API.G_RET_STS_ERROR;
436: p_fsc_rec.fsc_code:= null;
437: --p_error_buffer:='Foreign Key broken: Inventory Structure ID not found';
438: fnd_message.set_name('ZX','ZX_FC_INV_STRUCT_NOT_EXIST');
439: close c_inventory_structure;
445: G_MODULE_NAME || l_procedure_name,
446: l_log_msg);
447: END IF;
448: --return;
449: RAISE FND_API.G_EXC_ERROR;
450: else
451: close c_inventory_structure;
452: end if;
453:
469: if c_category%notfound then
470: --p_error_buffer:= 'Fiscal Classification Code does not have an equivalent Item Category Code';
471: fnd_message.set_name('ZX','ZX_ITEM_CAT_NOT_EXIST');
472: p_fsc_rec.fsc_code:= null;
473: --p_return_status:=FND_API.G_RET_STS_SUCCESS;
474: close c_category;
475: --return;
476: RAISE FND_API.G_EXC_ERROR;
477: else
472: p_fsc_rec.fsc_code:= null;
473: --p_return_status:=FND_API.G_RET_STS_SUCCESS;
474: close c_category;
475: --return;
476: RAISE FND_API.G_EXC_ERROR;
477: else
478: close c_category;
479: end if;
480:
513: l_log_msg);
514: END IF;
515:
516: --return;
517: RAISE FND_API.G_EXC_ERROR;
518: else
519: p_fsc_rec.fsc_code:= p_fsc_rec.condition_value;
520: close c_item_category_child;
521:
531:
532: end if; -- parent query
533:
534: else
535: --p_return_status:=FND_API.G_RET_STS_SUCCESS;
536: --p_error_buffer:='Fiscal Code is allocated to the Entity ID';
537: p_fsc_rec.fsc_code:= p_fsc_rec.condition_value;
538: close c_item_category;
539:
588: l_log_msg);
589: END IF;
590:
591: if c_parent_regime_assoc%notfound then
592: --p_return_status:=FND_API.G_RET_STS_ERROR;
593: --p_error_buffer:='Regime for the given Fiscal Type is not valid ';
594: fnd_message.set_name('ZX','ZX_REGIME_NOT_VALID');
595: p_fsc_rec.fsc_code:= null;
596: close c_parent_regime_assoc;
594: fnd_message.set_name('ZX','ZX_REGIME_NOT_VALID');
595: p_fsc_rec.fsc_code:= null;
596: close c_parent_regime_assoc;
597: --return;
598: RAISE FND_API.G_EXC_ERROR;
599: end if;
600: else
601: close c_regime_assoc;
602: end if;
613: l_log_msg);
614: END IF;
615:
616: if c_tca_class_category%notfound then
617: --p_return_status:=FND_API.G_RET_STS_ERROR;
618: --p_error_buffer:='Fiscal Type Code does not exits';
619: fnd_message.set_name('ZX','ZX_FC_TYPE_NOT_EXIST');
620: p_fsc_rec.fsc_code:= null;
621: close c_tca_class_category;
619: fnd_message.set_name('ZX','ZX_FC_TYPE_NOT_EXIST');
620: p_fsc_rec.fsc_code:= null;
621: close c_tca_class_category;
622: --return;
623: RAISE FND_API.G_EXC_ERROR;
624: else
625: close c_tca_class_category;
626: end if;
627:
625: close c_tca_class_category;
626: end if;
627:
628: if l_tca_class_category_code = null then
629: --p_return_status:=FND_API.G_RET_STS_ERROR;
630: --p_error_buffer:='Foreign Key broken:Fiscal Type Code does not have Class Category associated';
631: fnd_message.set_name('ZX','ZX_FC_INV_CAT_NOT_EXIST');
632: p_fsc_rec.fsc_code:= null;
633:
639: G_MODULE_NAME || l_procedure_name,
640: l_log_msg);
641: END IF;
642: --return;
643: RAISE FND_API.G_EXC_ERROR;
644: end if;
645:
646: -- 3:
647: --Bug 5373773
668: l_log_msg);
669: END IF;
670:
671: if c_party_tax_profile_id%notfound then
672: --p_return_status:=FND_API.G_RET_STS_ERROR;
673: --p_error_buffer:='Party Tax Profile ID not found';
674: fnd_message.set_name('ZX','ZX_PTP_ID_NOT_EXIST');
675: p_fsc_rec.fsc_code:= null;
676: close c_party_tax_profile_id;
674: fnd_message.set_name('ZX','ZX_PTP_ID_NOT_EXIST');
675: p_fsc_rec.fsc_code:= null;
676: close c_party_tax_profile_id;
677: --return;
678: RAISE FND_API.G_EXC_ERROR;
679: else
680: close c_party_tax_profile_id;
681: end if;
682: END IF; -- 5373773 lxzhang
694: END IF;
695:
696: if c_class_code%notfound then
697: p_fsc_rec.fsc_code:= null;
698: --p_return_status:=FND_API.G_RET_STS_SUCCESS;
699: --p_error_buffer:='Parameter value does not have a corresponding Fiscal Code';
700: fnd_message.set_name('ZX','ZX_FC_CODE_PARAM_NOT_EXIST');
701: close c_class_code;
702: --return;
699: --p_error_buffer:='Parameter value does not have a corresponding Fiscal Code';
700: fnd_message.set_name('ZX','ZX_FC_CODE_PARAM_NOT_EXIST');
701: close c_class_code;
702: --return;
703: RAISE FND_API.G_EXC_ERROR;
704: else
705: close c_class_code;
706: end if;
707:
755: Open c_pty_fc_assgn_exists;
756: fetch c_pty_fc_assgn_exists into l_allocated_flag;
757:
758: IF c_pty_fc_assgn_exists%NOTFOUND THEN
759: p_fsc_rec.fsc_code := FND_API.G_MISS_CHAR;
760: -- Logging Infra: YK: 3/5: c_party_category notfound
761: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
762: l_log_msg := 'S: c_party_category: notfound: class_category=' || l_tca_class_category_code||
763: ', class_code='|| l_class_code ||
785: close c_pty_fc_assgn_exists;
786:
787: p_fsc_rec.effective_from :=l_effective_from;
788: p_fsc_rec.effective_to :=l_effective_to;
789: --p_return_status:=FND_API.G_RET_STS_SUCCESS;
790: --p_error_buffer:='Fiscal Code is not allocated to the Entity ID';
791: --fnd_message.set_name('ZX','ZX_FC_NOT_ALLOC_ENTITY_ID');
792: close c_party_category;
793:
791: --fnd_message.set_name('ZX','ZX_FC_NOT_ALLOC_ENTITY_ID');
792: close c_party_category;
793:
794: --return;
795: --RAISE FND_API.G_EXC_ERROR;
796: else
797: p_fsc_rec.fsc_code:= p_fsc_rec.condition_value;
798: p_fsc_rec.effective_from :=l_effective_from;
799: p_fsc_rec.effective_to :=l_effective_to;
796: else
797: p_fsc_rec.fsc_code:= p_fsc_rec.condition_value;
798: p_fsc_rec.effective_from :=l_effective_from;
799: p_fsc_rec.effective_to :=l_effective_to;
800: --p_return_status:=FND_API.G_RET_STS_SUCCESS;
801: --p_error_buffer:='Fiscal Code is allocated to the Entity ID';
802: close c_party_category;
803:
804: end if;
953: l_table_id := l_ptp_id;
954: Open c_pty_fc_assgn_exists;
955: fetch c_pty_fc_assgn_exists into l_allocated_flag;
956: IF c_pty_fc_assgn_exists%NOTFOUND THEN
957: p_fsc_rec.fsc_code := FND_API.G_MISS_CHAR;
958: -- Logging Infra: YK: 3/4: c_party_category notfound
959: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
960: l_log_msg := 'S: CUR: c_party_category: notfound: class_category=' || l_tca_class_category_code||
961: ', class_code='|| l_class_code ||
985: end if; -- end check for l_le_other_fc_status
986:
987: p_fsc_rec.effective_from := null;
988: p_fsc_rec.effective_to := null;
989: --p_return_status:=FND_API.G_RET_STS_SUCCESS;
990: --p_error_buffer:='Fiscal Code is not allocated to the Entity ID';
991: --fnd_message.set_name('ZX','ZX_FC_NOT_ALLOC_ENTITY_ID');
992: close c_party_category;
993:
991: --fnd_message.set_name('ZX','ZX_FC_NOT_ALLOC_ENTITY_ID');
992: close c_party_category;
993:
994: --return;
995: --RAISE FND_API.G_EXC_ERROR;
996: else
997: p_fsc_rec.fsc_code:= p_fsc_rec.condition_value;
998: p_fsc_rec.effective_from :=l_effective_from;
999: p_fsc_rec.effective_to :=l_effective_to;
996: else
997: p_fsc_rec.fsc_code:= p_fsc_rec.condition_value;
998: p_fsc_rec.effective_from :=l_effective_from;
999: p_fsc_rec.effective_to :=l_effective_to;
1000: --p_return_status:=FND_API.G_RET_STS_SUCCESS;
1001: --p_error_buffer:='Fiscal Code is allocated to the Entity ID';
1002: close c_party_category;
1003:
1004: end if;
1025: END IF;
1026:
1027: if c_classification_type_code%notfound then
1028: p_fsc_rec.fsc_code:= null;
1029: --p_return_status:=FND_API.G_RET_STS_ERROR;
1030: --p_error_buffer:='Fiscal Type Code does not exists';
1031: fnd_message.set_name('ZX','ZX_FC_TYPE_NOT_EXIST');
1032: close c_classification_type_code;
1033: --return;
1030: --p_error_buffer:='Fiscal Type Code does not exists';
1031: fnd_message.set_name('ZX','ZX_FC_TYPE_NOT_EXIST');
1032: close c_classification_type_code;
1033: --return;
1034: RAISE FND_API.G_EXC_ERROR;
1035: else
1036: close c_classification_type_code;
1037: end if;
1038:
1063:
1064:
1065: if c_parent_regime_assoc%notfound then
1066: p_fsc_rec.fsc_code:= null;
1067: --p_return_status:=FND_API.G_RET_STS_ERROR;
1068: --p_error_buffer:='Regime for the given Fiscal Type is not valid ';
1069: fnd_message.set_name('ZX','ZX_REGIME_NOT_VALID');
1070: close c_parent_regime_assoc;
1071: --return;
1068: --p_error_buffer:='Regime for the given Fiscal Type is not valid ';
1069: fnd_message.set_name('ZX','ZX_REGIME_NOT_VALID');
1070: close c_parent_regime_assoc;
1071: --return;
1072: RAISE FND_API.G_EXC_ERROR;
1073: end if;
1074: else
1075: close c_regime_assoc;
1076: end if;
1109: p_fsc_rec.effective_from := null;
1110: p_fsc_rec.effective_to := null;
1111: fnd_message.set_name('ZX','ZX_FC_NOT_ALLOC_ENTITY_ID');
1112: close c_parent_trxbizcat_fiscalclass;
1113: RAISE FND_API.G_EXC_ERROR;
1114: else
1115: p_fsc_rec.effective_from :=l_effective_from;
1116: p_fsc_rec.effective_to :=l_effective_to;
1117: p_fsc_rec.fsc_code:= p_fsc_rec.condition_value;
1136: G_MODULE_NAME || l_procedure_name,
1137: l_log_msg);
1138: END IF;
1139:
1140: RAISE FND_API.G_EXC_ERROR;
1141: end if;
1142:
1143: -- Logging Infra: YK: 3/5: Put output value here
1144: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1152: END IF;
1153:
1154: EXCEPTION
1155: WHEN INVALID_CURSOR THEN
1156: p_return_status := FND_API.G_RET_STS_ERROR;
1157: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
1158: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
1159:
1160: if c_regime_assoc%isopen then close c_regime_assoc; end if;
1176: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1177: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,SQLCODE || ': ' || SQLERRM);
1178: END IF;
1179:
1180: WHEN FND_API.G_EXC_ERROR THEN
1181: p_return_status := FND_API.G_RET_STS_ERROR;
1182: if c_regime_assoc%isopen then close c_regime_assoc; end if;
1183: if c_parent_regime_assoc%isopen then close c_parent_regime_assoc; end if;
1184: if c_inventory_set%isopen then close c_inventory_set; end if;
1177: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,SQLCODE || ': ' || SQLERRM);
1178: END IF;
1179:
1180: WHEN FND_API.G_EXC_ERROR THEN
1181: p_return_status := FND_API.G_RET_STS_ERROR;
1182: if c_regime_assoc%isopen then close c_regime_assoc; end if;
1183: if c_parent_regime_assoc%isopen then close c_parent_regime_assoc; end if;
1184: if c_inventory_set%isopen then close c_inventory_set; end if;
1185: if c_inventory_structure%isopen then close c_inventory_structure; end if;
1200: END IF;
1201:
1202:
1203: WHEN OTHERS THEN
1204: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1205: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
1206: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
1207:
1208: if c_regime_assoc%isopen then close c_regime_assoc; end if;
1282: END IF;
1283:
1284: -- arp_util_tax.debug('in GET_PROD_TRX_CATE_VALUE');
1285: -- need to hard code return value here
1286: p_return_status := FND_API.G_RET_STS_SUCCESS;
1287:
1288: if p_fsc_cat_rec.classification_category = 'TRX_GENERIC_CLASSIFICATION' or
1289: p_fsc_cat_rec.classification_category = 'PRODUCT_GENERIC_CLASSIFICATION' or
1290: p_fsc_cat_rec.classification_category = 'DOCUMENT'then
1300: l_log_msg);
1301: END IF;
1302:
1303: if c_delimiter%notfound then
1304: p_return_status:=FND_API.G_RET_STS_ERROR;
1305: --p_error_buffer:='Classification Type does not exist';
1306: fnd_message.set_name('ZX','ZX_FC_TYPE_NOT_EXIST');
1307: close c_delimiter;
1308:
1315: G_MODULE_NAME || l_procedure_name,
1316: l_log_msg);
1317: END IF;
1318: --return;
1319: RAISE FND_API.G_EXC_ERROR;
1320: else
1321: close c_delimiter;
1322: end if;
1323:
1353: if c_classification_code%notfound then
1354: p_fsc_cat_rec.condition_value := Null;
1355: p_fsc_cat_rec.effective_from := Null;
1356: p_fsc_cat_rec.effective_to := Null;
1357: p_return_status:=FND_API.G_RET_STS_SUCCESS;
1358: close c_classification_code;
1359:
1360: -- Logging Infra: YK: 3/5: c_classification_code notfound
1361: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1368: G_MODULE_NAME || l_procedure_name,
1369: l_log_msg);
1370: END IF;
1371: --return;
1372: RAISE FND_API.G_EXC_ERROR;
1373:
1374: else
1375: if p_fsc_cat_rec.condition_subclass='1' then
1376: p_fsc_cat_rec.condition_value :=l_segment1;
1390: end if;
1391:
1392: p_fsc_cat_rec.effective_from :=l_effective_from;
1393: p_fsc_cat_rec.effective_to :=l_effective_to;
1394: p_return_status:=FND_API.G_RET_STS_SUCCESS;
1395: --p_error_buffer:='Classification Code found';
1396: close c_classification_code;
1397:
1398: -- Logging Infra: YK:3/5: Break point for l_delimiter
1412: -- value is null
1413: p_fsc_cat_rec.condition_value := null;
1414: p_fsc_cat_rec.effective_from := Null;
1415: p_fsc_cat_rec.effective_to := Null;
1416: p_return_status:=FND_API.G_RET_STS_SUCCESS;
1417:
1418: end if;
1419:
1420: else
1417:
1418: end if;
1419:
1420: else
1421: --p_return_status:=FND_API.G_RET_STS_ERROR;
1422: --p_error_buffer:='Classification Category not supported by this procedure';
1423: fnd_message.set_name('ZX','ZX_FC_CATEG_NOT_SUPPORTED');
1424: p_return_status:=FND_API.G_RET_STS_ERROR;
1425:
1420: else
1421: --p_return_status:=FND_API.G_RET_STS_ERROR;
1422: --p_error_buffer:='Classification Category not supported by this procedure';
1423: fnd_message.set_name('ZX','ZX_FC_CATEG_NOT_SUPPORTED');
1424: p_return_status:=FND_API.G_RET_STS_ERROR;
1425:
1426: -- Logging Infra: YK: 3/5:
1427: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1428: l_log_msg := 'E: unspported category: p_fsc_cat_rec.classification_category= '
1430: FND_LOG.STRING(G_LEVEL_STATEMENT,
1431: G_MODULE_NAME || l_procedure_name,
1432: l_log_msg);
1433: END IF;
1434: RAISE FND_API.G_EXC_ERROR;
1435:
1436: end if;
1437:
1438: -- Logging Infra: YK: 3/5: Procedure level message
1444: G_MODULE_NAME || l_procedure_name, l_log_msg);
1445: END IF;
1446: EXCEPTION
1447: WHEN INVALID_CURSOR THEN
1448: p_return_status := FND_API.G_RET_STS_ERROR;
1449: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
1450: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
1451:
1452: if c_classification_code%isopen then close c_classification_code; end if;
1458: G_MODULE_NAME || l_procedure_name,
1459: SQLCODE || ': ' || SQLERRM);
1460: END IF;
1461:
1462: WHEN FND_API.G_EXC_ERROR THEN
1463: p_fsc_cat_rec.condition_value := Null;
1464: p_fsc_cat_rec.effective_from := Null;
1465: p_fsc_cat_rec.effective_to := Null;
1466:
1474: SQLCODE || ': ' || SQLERRM);
1475: END IF;
1476:
1477: WHEN OTHERS THEN
1478: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1479: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
1480: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
1481:
1482: if c_classification_code%isopen then close c_classification_code; end if;
1721: -- Logging Infra: Setting up runtime level
1722: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1723:
1724: -- Initialize return status
1725: x_return_status := FND_API.G_RET_STS_SUCCESS;
1726:
1727: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1728: l_log_msg := l_procedure_name||'(+)';
1729: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
1778: p_getone:=1;
1779: -- Bug#5520167- set status to SUCCESS as a record
1780: -- is found in cache structure and not dummy
1781: --
1782: x_return_status := FND_API.G_RET_STS_SUCCESS;
1783:
1784:
1785: IF x_get_registration_rec.tax_jurisdiction_code is NOT NULL then
1786: x_ret_record_level := 'JURISDICTION';
1865: ZX_GLOBAL_STRUCTURES_PKG.g_registration_info_tbl(l_index) := DUMMY_REGISTRATION_REC;
1866:
1867: ELSE
1868: p_getone:=1;
1869: x_return_status := FND_API.G_RET_STS_SUCCESS;
1870:
1871: l_index := DBMS_UTILITY.get_hash_value(to_char(p_ptp_id)||
1872: nvl(x_get_registration_rec.tax_regime_code,c_tax_regime_code_dummy)||
1873: nvl(x_get_registration_rec.tax,c_tax_dummy)||
1899: EXCEPTION
1900: WHEN NO_DATA_FOUND THEN
1901: NULL;
1902: WHEN OTHERS THEN
1903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1904: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
1905: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
1906:
1907: -- Logging Infra: Statement level
1972: -- Logging Infra: Setting up runtime level
1973: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1974:
1975: -- Initialize return status
1976: x_return_status := FND_API.G_RET_STS_SUCCESS;
1977:
1978: -- Logging Infra: Procedure level
1979: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1980: l_log_msg := l_procedure_name||'(+)';
2021: IF c_supplier_ptp%NOTFOUND THEN
2022: p_getone := 0;
2023: ELSE
2024: p_getone:=1;
2025: x_return_status := FND_API.G_RET_STS_SUCCESS;
2026: -- Pupulate the stucture
2027: x_get_registration_rec.Rounding_Rule_Code := l_ap_tax_rounding_rule;
2028: x_get_registration_rec.process_for_applicability_flag := l_auto_tax_calc_flag;
2029: x_get_registration_rec.tax_classification_code := l_vat_code;
2052: EXCEPTION
2053: WHEN NO_DATA_FOUND THEN
2054: NULL;
2055: WHEN OTHERS THEN
2056: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2057: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
2058: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
2059:
2060: -- Logging Infra: Statement level
2119: -- Logging Infra: Setting up runtime level
2120: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2121:
2122: -- Initialize return status
2123: x_return_status := FND_API.G_RET_STS_SUCCESS;
2124:
2125: -- Logging Infra: Procedure level
2126: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2127: l_log_msg := l_procedure_name||'(+)';
2158: ELSE
2159: For my_reg IN c_site_uses Loop
2160: -- Got registration
2161: p_getone:=1;
2162: x_return_status := FND_API.G_RET_STS_SUCCESS;
2163:
2164: -- Populate the stucture
2165: x_get_registration_rec.Rounding_Rule_Code:= my_reg.tax_rounding_rule;
2166: x_get_registration_rec.rounding_level_code := my_reg.tax_header_level_flag;
2188: EXCEPTION
2189: WHEN NO_DATA_FOUND THEN
2190: NULL;
2191: WHEN OTHERS THEN
2192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2193: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
2194: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
2195:
2196: -- Logging Infra: Statement level
2244: -- Logging Infra: Setting up runtime level
2245: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2246:
2247: -- Initialize return status
2248: x_return_status := FND_API.G_RET_STS_SUCCESS;
2249:
2250: -- Logging Infra: Procedure level
2251: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2252: l_log_msg := l_procedure_name||'(+)';
2277: ELSE
2278: For my_reg IN c_customer_account Loop
2279: -- Got registration
2280: p_getone:=1;
2281: x_return_status := FND_API.G_RET_STS_SUCCESS;
2282: -- Pupulate the stucture
2283: x_get_registration_rec.Rounding_Rule_Code:= my_reg.tax_rounding_rule;
2284: x_get_registration_rec.rounding_level_code := my_reg.tax_header_level_flag;
2285: x_get_registration_rec.tax_classification_code := my_reg.tax_code;
2301: EXCEPTION
2302: WHEN NO_DATA_FOUND THEN
2303: NULL;
2304: WHEN OTHERS THEN
2305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2306: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
2307: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
2308:
2309: -- Logging Infra: Statement level
2341: -- Logging Infra: Setting up runtime level
2342: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2343:
2344: -- Initialize return status
2345: x_return_status := FND_API.G_RET_STS_SUCCESS;
2346:
2347: -- Logging Infra: Procedure level
2348: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2349: l_log_msg := l_procedure_name||'(+)';
2390: x_get_registration_rec.party_id:=
2391: ZX_GLOBAL_STRUCTURES_PKG.G_PARTY_TAX_PROF_INFO_TBL(p_party_tax_profile_id).party_id;
2392:
2393: ELSE
2394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2395:
2396: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2397: l_log_msg := 'Party Tax Profile Id is not valid: '||p_party_tax_profile_id;
2398: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2409: EXCEPTION
2410: WHEN NO_DATA_FOUND THEN
2411: NULL;
2412: WHEN OTHERS THEN
2413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2414: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
2415: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
2416:
2417: -- Logging Infra: Statement level
2488: -- Logging Infra: Statement level
2489:
2490: -- Initialize Return Status and Error Buffer
2491: --
2492: p_return_status := FND_API.G_RET_STS_SUCCESS;
2493: l_getone := 0;
2494: --
2495: -- Always PTP_ID parameter can NOT be NULL
2496: --
2497: IF p_parent_ptp_id IS NULL THEN -- if 1
2498: -- Bug 4939819 - Return error only if the third party account id is also NULL.
2499: -- PTP setup is not mandatory for third parties.
2500: IF p_account_id IS NULL THEN
2501: p_return_status := FND_API.G_RET_STS_ERROR;
2502: p_ret_record_level := NULL;
2503: return;
2504: END IF;
2505: ELSE -- if 1
2622: ,l_getone);
2623: IF l_getone = 1 THEN -- if15
2624: return;
2625: ELSE -- if15 getone
2626: p_return_status := FND_API.G_RET_STS_ERROR;
2627: p_ret_record_level := NULL;
2628:
2629: -- Logging Infra: Procedure level
2630: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN -- if16
2646: EXCEPTION
2647: WHEN NO_DATA_FOUND THEN
2648: NULL;
2649: WHEN OTHERS THEN
2650: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2651: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
2652: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
2653:
2654: -- Logging Infra: Statement level
2672: -- Logging Infra: Setting up runtime level
2673: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2674:
2675: -- Initialize return status
2676: p_return_status := FND_API.G_RET_STS_SUCCESS;
2677:
2678: -- Logging Infra: Procedure level
2679: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2680: l_log_msg := l_procedure_name||'(+)';
2764: END IF;
2765:
2766:
2767: EXCEPTION WHEN OTHERS THEN
2768: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2769: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
2770: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
2771:
2772: -- Logging Infra: Statement level