60: -- Standard Start of API savepoint
61: SAVEPOINT Create_DC_Domain;
62:
63: -- Standard call to check for call compatibility.
64: IF NOT FND_API.Compatible_API_Call (lc_api_version,
65: p_api_version,
66: lc_api_name ,
67: G_PKG_NAME )
68: THEN
65: p_api_version,
66: lc_api_name ,
67: G_PKG_NAME )
68: THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70: END IF;
71:
72: -- Initialize message list if p_init_msg_list is set to TRUE.
73: IF FND_API.to_Boolean( p_init_msg_list ) THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70: END IF;
71:
72: -- Initialize message list if p_init_msg_list is set to TRUE.
73: IF FND_API.to_Boolean( p_init_msg_list ) THEN
74: FND_MSG_PUB.initialize;
75: END IF;
76:
77: IF (lc_proc_level >= lc_debug_level) THEN
85: ( p_dc_domain_rec => p_dc_domain_rec);
86: END IF;
87:
88: -- Initialize API return status to success
89: x_return_status := FND_API.G_RET_STS_SUCCESS;
90:
91: -- Api body starts
92:
93: -- Check the required parameters
115: end if;
116:
117: -- Check if required parameter is passed in as G_MISS
118: IF (p_dc_domain_rec.domain_type_code = 'ITEM'
119: and (p_dc_domain_rec.inventory_item_id = FND_API.G_MISS_NUM
120: or p_dc_domain_rec.inventory_item_id is null)) THEN
121: RAISE CSD_DCD_ITEM_MISSING;
122: END IF;
123:
122: END IF;
123:
124: -- Check if required parameter is passed in as G_MISS
125: IF (p_dc_domain_rec.domain_type_code = 'CAT') THEN
126: IF (p_dc_domain_rec.category_set_id = FND_API.G_MISS_NUM
127: or p_dc_domain_rec.category_set_id is null) THEN
128: RAISE CSD_DCD_CATEGORY_SET_MISSING;
129: END IF;
130: IF (p_dc_domain_rec.category_id = FND_API.G_MISS_NUM
126: IF (p_dc_domain_rec.category_set_id = FND_API.G_MISS_NUM
127: or p_dc_domain_rec.category_set_id is null) THEN
128: RAISE CSD_DCD_CATEGORY_SET_MISSING;
129: END IF;
130: IF (p_dc_domain_rec.category_id = FND_API.G_MISS_NUM
131: or p_dc_domain_rec.category_id is null) THEN
132: RAISE CSD_DCD_CATEGORY_MISSING;
133: END IF;
134: END IF;
351: FND_LOG.STRING(lc_proc_level, lc_mod_name,
352: 'Domain type is CATEGORY, setting item id to G_MISS_NUM');
353: end if;
354:
355: l_inventory_item_id := FND_API.G_MISS_NUM;
356: l_category_id := p_dc_domain_rec.category_id;
357: l_category_set_id := p_dc_domain_rec.category_set_id;
358:
359: ELSIF (p_dc_domain_rec.domain_type_code = 'ITEM') then
362: FND_LOG.STRING(lc_proc_level, lc_mod_name,
363: 'Domain type is ITEM, setting category set and category ids to G_MISS_NUM');
364: end if;
365:
366: l_category_id := FND_API.G_MISS_NUM;
367: l_category_set_id := FND_API.G_MISS_NUM;
368: l_inventory_item_id := p_dc_domain_rec.inventory_item_id;
369: END IF;
370:
363: 'Domain type is ITEM, setting category set and category ids to G_MISS_NUM');
364: end if;
365:
366: l_category_id := FND_API.G_MISS_NUM;
367: l_category_set_id := FND_API.G_MISS_NUM;
368: l_inventory_item_id := p_dc_domain_rec.inventory_item_id;
369: END IF;
370:
371: -- Insert row
411: WHEN OTHERS THEN
412: IF ( lc_excep_level >= lc_debug_level) THEN
413: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_DC_DOMAINS_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
414: END IF;
415: x_return_status := FND_API.G_RET_STS_ERROR;
416: END;
417:
418: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
419: RAISE FND_API.G_EXC_ERROR;
414: END IF;
415: x_return_status := FND_API.G_RET_STS_ERROR;
416: END;
417:
418: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
419: RAISE FND_API.G_EXC_ERROR;
420: END IF;
421:
422: if (lc_proc_level >= lc_debug_level) then
415: x_return_status := FND_API.G_RET_STS_ERROR;
416: END;
417:
418: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
419: RAISE FND_API.G_EXC_ERROR;
420: END IF;
421:
422: if (lc_proc_level >= lc_debug_level) then
423: FND_LOG.STRING(lc_proc_level, lc_mod_name,
426:
427: -- Api body ends here
428:
429: -- Standard check of p_commit.
430: IF FND_API.To_Boolean( p_commit ) THEN
431: COMMIT WORK;
432: END IF;
433:
434: -- Standard call to get message count and IF count is get message info.
446: WHEN CSD_DCD_ITEM_MISSING THEN
447: ROLLBACK TO Create_DC_Domain;
448:
449: -- Diagnostic code domain item is missing
450: x_return_status := FND_API.G_RET_STS_ERROR ;
451:
452: -- save message in fnd stack
453: if (lc_stat_level >= lc_debug_level) then
454: FND_LOG.STRING(lc_stat_level, lc_mod_name,
472: WHEN CSD_DCD_CATEGORY_SET_MISSING THEN
473: ROLLBACK TO Create_DC_Domain;
474:
475: -- Diagnostic code domain category set is missing
476: x_return_status := FND_API.G_RET_STS_ERROR ;
477:
478: -- save message in fnd stack
479: if (lc_stat_level >= lc_debug_level) then
480: FND_LOG.STRING(lc_stat_level, lc_mod_name,
498: WHEN CSD_DCD_CATEGORY_MISSING THEN
499: ROLLBACK TO Create_DC_Domain;
500:
501: -- Diagnostic code domain category is missing
502: x_return_status := FND_API.G_RET_STS_ERROR ;
503:
504: -- save message in fnd stack
505: if (lc_stat_level >= lc_debug_level) then
506: FND_LOG.STRING(lc_stat_level, lc_mod_name,
524: WHEN CSD_DCD_DOMAIN_EXISTS THEN
525: ROLLBACK TO Create_DC_Domain;
526:
527: -- Diagnostic code domain already exists
528: x_return_status := FND_API.G_RET_STS_ERROR ;
529:
530: -- save message in fnd stack
531: if (lc_stat_level >= lc_debug_level) then
532: FND_LOG.STRING(lc_stat_level, lc_mod_name,
549: WHEN CSD_DCD_INVALID_ITEM THEN
550: ROLLBACK TO Create_DC_Domain;
551:
552: -- Diagnostic code domain item is invalid
553: x_return_status := FND_API.G_RET_STS_ERROR ;
554:
555: -- save message in fnd stack
556: if (lc_stat_level >= lc_debug_level) then
557: FND_LOG.STRING(lc_stat_level, lc_mod_name,
574: WHEN CSD_DCD_INVALID_CAT_SET THEN
575: ROLLBACK TO Create_DC_Domain;
576:
577: -- Diagnostic code domain category set is invalid
578: x_return_status := FND_API.G_RET_STS_ERROR ;
579:
580: -- save message in fnd stack
581: if (lc_stat_level >= lc_debug_level) then
582: FND_LOG.STRING(lc_stat_level, lc_mod_name,
599: WHEN CSD_DCD_INVALID_CATSET_FLAG THEN
600: ROLLBACK TO Create_DC_Domain;
601:
602: -- Diagnostic code domain category set validate flag is invalid
603: x_return_status := FND_API.G_RET_STS_ERROR ;
604:
605: -- save message in fnd stack
606: if (lc_stat_level >= lc_debug_level) then
607: FND_LOG.STRING(lc_stat_level, lc_mod_name,
624: WHEN CSD_DCD_INVALID_CATEGORY THEN
625: ROLLBACK TO Create_DC_Domain;
626:
627: -- Diagnostic code domain category is invalid
628: x_return_status := FND_API.G_RET_STS_ERROR ;
629:
630: -- save message in fnd stack
631: if (lc_stat_level >= lc_debug_level) then
632: FND_LOG.STRING(lc_stat_level, lc_mod_name,
645: FND_LOG.STRING(lc_excep_level, lc_mod_name,
646: 'Diagnostic code domain category is invalid');
647: END IF;
648:
649: WHEN FND_API.G_EXC_ERROR THEN
650: ROLLBACK TO Create_DC_Domain;
651:
652: x_return_status := FND_API.G_RET_STS_ERROR;
653:
648:
649: WHEN FND_API.G_EXC_ERROR THEN
650: ROLLBACK TO Create_DC_Domain;
651:
652: x_return_status := FND_API.G_RET_STS_ERROR;
653:
654: FND_MSG_PUB.Count_And_Get
655: (p_count => x_msg_count,
656: p_data => x_msg_data );
660: FND_LOG.STRING(lc_excep_level, lc_mod_name,
661: 'EXC_ERROR['||x_msg_data||']');
662: END IF;
663:
664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
665: ROLLBACK TO Create_DC_Domain;
666:
667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668:
663:
664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
665: ROLLBACK TO Create_DC_Domain;
666:
667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668:
669: IF FND_MSG_PUB.Check_Msg_Level
670: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
671: THEN
690:
691: WHEN OTHERS THEN
692: ROLLBACK TO Create_DC_Domain;
693:
694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
695:
696: -- save message in fnd stack
697: IF FND_MSG_PUB.Check_Msg_Level
698: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
784: -- Standard Start of API savepoint
785: SAVEPOINT Update_DC_Domain;
786:
787: -- Standard call to check for call compatibility.
788: IF NOT FND_API.Compatible_API_Call (lc_api_version,
789: p_api_version,
790: lc_api_name ,
791: G_PKG_NAME )
792: THEN
789: p_api_version,
790: lc_api_name ,
791: G_PKG_NAME )
792: THEN
793: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
794: END IF;
795:
796: -- Initialize message list if p_init_msg_list is set to TRUE.
797: IF FND_API.to_Boolean( p_init_msg_list ) THEN
793: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
794: END IF;
795:
796: -- Initialize message list if p_init_msg_list is set to TRUE.
797: IF FND_API.to_Boolean( p_init_msg_list ) THEN
798: FND_MSG_PUB.initialize;
799: END IF;
800:
801: IF (lc_proc_level >= lc_debug_level) THEN
809: ( p_dc_domain_rec => p_dc_domain_rec);
810: END IF;
811:
812: -- Initialize API return status to success
813: x_return_status := FND_API.G_RET_STS_SUCCESS;
814:
815: -- Api body starts
816:
817: -- Check the required parameters
832: 'Checking if required parameters are passed in as G_MISS');
833: end if;
834:
835: -- Check if required parameter is passed in as G_MISS
836: IF (p_dc_domain_rec.diagnostic_code_id = FND_API.G_MISS_NUM) THEN
837: RAISE CSD_DCD_DC_ID_MISSING;
838: END IF;
839:
840: -- Check if required parameter is passed in as G_MISS
837: RAISE CSD_DCD_DC_ID_MISSING;
838: END IF;
839:
840: -- Check if required parameter is passed in as G_MISS
841: IF (p_dc_domain_rec.domain_type_code = FND_API.G_MISS_CHAR) THEN
842: RAISE CSD_DCD_DOMAIN_TYPE_MISSING;
843: END IF;
844:
845: -- Check if required parameter is passed in as G_MISS
843: END IF;
844:
845: -- Check if required parameter is passed in as G_MISS
846: IF (p_dc_domain_rec.domain_type_code = 'ITEM'
847: and p_dc_domain_rec.inventory_item_id = FND_API.G_MISS_NUM) THEN
848: RAISE CSD_DCD_ITEM_MISSING;
849: END IF;
850:
851: -- Check if required parameter is passed in as G_MISS
849: END IF;
850:
851: -- Check if required parameter is passed in as G_MISS
852: IF (p_dc_domain_rec.domain_type_code = 'CAT') THEN
853: IF (p_dc_domain_rec.category_set_id = FND_API.G_MISS_NUM) THEN
854: RAISE CSD_DCD_CATEGORY_SET_MISSING;
855: END IF;
856:
857: IF (p_dc_domain_rec.category_id = FND_API.G_MISS_NUM) THEN
853: IF (p_dc_domain_rec.category_set_id = FND_API.G_MISS_NUM) THEN
854: RAISE CSD_DCD_CATEGORY_SET_MISSING;
855: END IF;
856:
857: IF (p_dc_domain_rec.category_id = FND_API.G_MISS_NUM) THEN
858: RAISE CSD_DCD_CATEGORY_MISSING;
859: END IF;
860: END IF;
861:
919: end if;
920: END IF;
921:
922: -- Validate if object version number for diagnostic code domain is same as the one passed in
923: IF NVL(p_dc_domain_rec.object_version_number,FND_API.G_MISS_NUM) <> l_obj_ver_num THEN
924: RAISE CSD_DCD_OVN_MISMATCH;
925: END IF;
926:
927: -- Validate the code for diagnostic code
1264: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1265: 'Domain type is CATEGORY, setting item id to G_MISS_NUM');
1266: end if;
1267:
1268: l_inventory_item_id := FND_API.G_MISS_NUM;
1269:
1270: ELSIF (p_dc_domain_rec.domain_type_code = 'ITEM') then
1271:
1272: if (lc_proc_level >= lc_debug_level) then
1273: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1274: 'Domain type is ITEM, setting category set and category ids to G_MISS_NUM');
1275: end if;
1276:
1277: l_category_id := FND_API.G_MISS_NUM;
1278: l_category_set_id := FND_API.G_MISS_NUM;
1279: END IF;
1280:
1281: -- Update row
1274: 'Domain type is ITEM, setting category set and category ids to G_MISS_NUM');
1275: end if;
1276:
1277: l_category_id := FND_API.G_MISS_NUM;
1278: l_category_set_id := FND_API.G_MISS_NUM;
1279: END IF;
1280:
1281: -- Update row
1282: if (lc_proc_level >= lc_debug_level) then
1323: WHEN OTHERS THEN
1324: IF ( lc_excep_level >= lc_debug_level) THEN
1325: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_DC_DOMAINS_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1326: END IF;
1327: x_return_status := FND_API.G_RET_STS_ERROR;
1328: END;
1329:
1330: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1331: RAISE FND_API.G_EXC_ERROR;
1326: END IF;
1327: x_return_status := FND_API.G_RET_STS_ERROR;
1328: END;
1329:
1330: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1331: RAISE FND_API.G_EXC_ERROR;
1332: END IF;
1333:
1334: if (lc_proc_level >= lc_debug_level) then
1327: x_return_status := FND_API.G_RET_STS_ERROR;
1328: END;
1329:
1330: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1331: RAISE FND_API.G_EXC_ERROR;
1332: END IF;
1333:
1334: if (lc_proc_level >= lc_debug_level) then
1335: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1338:
1339: -- Api body ends here
1340:
1341: -- Standard check of p_commit.
1342: IF FND_API.To_Boolean( p_commit ) THEN
1343: COMMIT WORK;
1344: END IF;
1345:
1346: -- Standard call to get message count and IF count is get message info.
1356: EXCEPTION
1357: WHEN CSD_DCD_DC_ID_MISSING THEN
1358: ROLLBACK TO Update_DC_Domain;
1359: -- Diagnostic code domain id is missing
1360: x_return_status := FND_API.G_RET_STS_ERROR ;
1361:
1362: -- save message in fnd stack
1363: if (lc_stat_level >= lc_debug_level) then
1364: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1382: WHEN CSD_DCD_DOMAIN_TYPE_MISSING THEN
1383: ROLLBACK TO Update_DC_Domain;
1384:
1385: -- Diagnostic code domain type is missing
1386: x_return_status := FND_API.G_RET_STS_ERROR ;
1387:
1388: -- save message in fnd stack
1389: if (lc_stat_level >= lc_debug_level) then
1390: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1408: WHEN CSD_DCD_INVALID_ID THEN
1409: ROLLBACK TO Update_DC_Domain;
1410:
1411: -- Diagnostic code domain id is invalid
1412: x_return_status := FND_API.G_RET_STS_ERROR ;
1413:
1414: -- save message in fnd stack
1415: if (lc_stat_level >= lc_debug_level) then
1416: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1433: WHEN CSD_DCD_GET_OVN_ERROR THEN
1434: ROLLBACK TO Update_DC_Domain;
1435:
1436: -- Diagnostic code domain get object version number error
1437: x_return_status := FND_API.G_RET_STS_ERROR ;
1438:
1439: -- save message in fnd stack
1440: if (lc_stat_level >= lc_debug_level) then
1441: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1458: WHEN CSD_DCD_OVN_MISMATCH THEN
1459: ROLLBACK TO Update_DC_Domain;
1460:
1461: -- Diagnostic code domain object version number mismatch
1462: x_return_status := FND_API.G_RET_STS_ERROR ;
1463:
1464: -- save message in fnd stack
1465: if (lc_stat_level >= lc_debug_level) then
1466: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1483: WHEN CSD_DCD_DOMAIN_EXISTS THEN
1484: ROLLBACK TO Update_DC_Domain;
1485:
1486: -- Diagnostic code domain already exists
1487: x_return_status := FND_API.G_RET_STS_ERROR ;
1488:
1489: -- save message in fnd stack
1490: if (lc_stat_level >= lc_debug_level) then
1491: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1508: WHEN CSD_DCD_GET_ITEM_ERROR THEN
1509: ROLLBACK TO Update_DC_Domain;
1510:
1511: -- Diagnostic code domain get item error
1512: x_return_status := FND_API.G_RET_STS_ERROR ;
1513:
1514: -- save message in fnd stack
1515: if (lc_stat_level >= lc_debug_level) then
1516: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1533: WHEN CSD_DCD_INVALID_ITEM THEN
1534: ROLLBACK TO Update_DC_Domain;
1535:
1536: -- Diagnostic code domain item is invalid
1537: x_return_status := FND_API.G_RET_STS_ERROR ;
1538:
1539: -- save message in fnd stack
1540: if (lc_stat_level >= lc_debug_level) then
1541: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1558: WHEN CSD_DCD_GET_CAT_SET_ERROR THEN
1559: ROLLBACK TO Update_DC_Domain;
1560:
1561: -- Diagnostic code domain get category set error
1562: x_return_status := FND_API.G_RET_STS_ERROR ;
1563:
1564: -- save message in fnd stack
1565: if (lc_stat_level >= lc_debug_level) then
1566: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1583: WHEN CSD_DCD_INVALID_CAT_SET THEN
1584: ROLLBACK TO Update_DC_Domain;
1585:
1586: -- Diagnostic code domain category set is invalid
1587: x_return_status := FND_API.G_RET_STS_ERROR ;
1588:
1589: -- save message in fnd stack
1590: if (lc_stat_level >= lc_debug_level) then
1591: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1608: WHEN CSD_DCD_GET_CATSET_FLAG_ERROR THEN
1609: ROLLBACK TO Update_DC_Domain;
1610:
1611: -- Diagnostic code domain category set validate flag is invalid
1612: x_return_status := FND_API.G_RET_STS_ERROR ;
1613:
1614: -- save message in fnd stack
1615: if (lc_stat_level >= lc_debug_level) then
1616: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1633: WHEN CSD_DCD_GET_CATEGORY_ERROR THEN
1634: ROLLBACK TO Update_DC_Domain;
1635:
1636: -- Diagnostic code domain get category error
1637: x_return_status := FND_API.G_RET_STS_ERROR ;
1638:
1639: -- save message in fnd stack
1640: if (lc_stat_level >= lc_debug_level) then
1641: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1658: WHEN CSD_DCD_INVALID_CATEGORY THEN
1659: ROLLBACK TO Update_DC_Domain;
1660:
1661: -- Diagnostic code domain category is invalid
1662: x_return_status := FND_API.G_RET_STS_ERROR ;
1663:
1664: -- save message in fnd stack
1665: if (lc_stat_level >= lc_debug_level) then
1666: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1679: FND_LOG.STRING(lc_excep_level, lc_mod_name,
1680: 'Diagnostic code domain category is invalid');
1681: END IF;
1682:
1683: WHEN FND_API.G_EXC_ERROR THEN
1684: ROLLBACK TO Update_DC_Domain;
1685:
1686: x_return_status := FND_API.G_RET_STS_ERROR;
1687:
1682:
1683: WHEN FND_API.G_EXC_ERROR THEN
1684: ROLLBACK TO Update_DC_Domain;
1685:
1686: x_return_status := FND_API.G_RET_STS_ERROR;
1687:
1688: FND_MSG_PUB.Count_And_Get
1689: (p_count => x_msg_count,
1690: p_data => x_msg_data );
1694: FND_LOG.STRING(lc_excep_level, lc_mod_name,
1695: 'EXC_ERROR['||x_msg_data||']');
1696: END IF;
1697:
1698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1699: ROLLBACK TO Update_DC_Domain;
1700:
1701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1702:
1697:
1698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1699: ROLLBACK TO Update_DC_Domain;
1700:
1701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1702:
1703: IF FND_MSG_PUB.Check_Msg_Level
1704: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1705: THEN
1724:
1725: WHEN OTHERS THEN
1726: ROLLBACK TO Update_DC_Domain;
1727:
1728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1729:
1730: -- save message in fnd stack
1731: IF FND_MSG_PUB.Check_Msg_Level
1732: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1792: -- Standard Start of API savepoint
1793: SAVEPOINT Delete_DC_Domain;
1794:
1795: -- Standard call to check for call compatibility.
1796: IF NOT FND_API.Compatible_API_Call (lc_api_version,
1797: p_api_version,
1798: lc_api_name ,
1799: G_PKG_NAME )
1800: THEN
1797: p_api_version,
1798: lc_api_name ,
1799: G_PKG_NAME )
1800: THEN
1801: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1802: END IF;
1803:
1804: -- Initialize message list if p_init_msg_list is set to TRUE.
1805: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1801: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1802: END IF;
1803:
1804: -- Initialize message list if p_init_msg_list is set to TRUE.
1805: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1806: FND_MSG_PUB.initialize;
1807: END IF;
1808:
1809: IF (lc_proc_level >= lc_debug_level) THEN
1811: 'Entered Delete_DC_Domain');
1812: END IF;
1813:
1814: -- Initialize API return status to success
1815: x_return_status := FND_API.G_RET_STS_SUCCESS;
1816:
1817: -- Api body starts
1818:
1819: -- Check the required parameters
1844: WHEN OTHERS THEN
1845: IF ( lc_excep_level >= lc_debug_level) THEN
1846: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_DC_DOMAINS_PKG.Delete_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1847: END IF;
1848: x_return_status := FND_API.G_RET_STS_ERROR;
1849: END;
1850:
1851: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1852: RAISE FND_API.G_EXC_ERROR;
1847: END IF;
1848: x_return_status := FND_API.G_RET_STS_ERROR;
1849: END;
1850:
1851: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1852: RAISE FND_API.G_EXC_ERROR;
1853: END IF;
1854:
1855: if (lc_proc_level >= lc_debug_level) then
1848: x_return_status := FND_API.G_RET_STS_ERROR;
1849: END;
1850:
1851: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1852: RAISE FND_API.G_EXC_ERROR;
1853: END IF;
1854:
1855: if (lc_proc_level >= lc_debug_level) then
1856: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1859:
1860: -- Api body ends here
1861:
1862: -- Standard check of p_commit.
1863: IF FND_API.To_Boolean( p_commit ) THEN
1864: COMMIT WORK;
1865: END IF;
1866:
1867: -- Standard call to get message count and IF count is get message info.
1875: END IF;
1876:
1877: EXCEPTION
1878:
1879: WHEN FND_API.G_EXC_ERROR THEN
1880: ROLLBACK TO Delete_DC_Domain;
1881:
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883:
1878:
1879: WHEN FND_API.G_EXC_ERROR THEN
1880: ROLLBACK TO Delete_DC_Domain;
1881:
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883:
1884: FND_MSG_PUB.Count_And_Get
1885: (p_count => x_msg_count,
1886: p_data => x_msg_data );
1890: FND_LOG.STRING(lc_excep_level, lc_mod_name,
1891: 'EXC_ERROR['||x_msg_data||']');
1892: END IF;
1893:
1894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1895: ROLLBACK TO Delete_DC_Domain;
1896:
1897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1898:
1893:
1894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1895: ROLLBACK TO Delete_DC_Domain;
1896:
1897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1898:
1899: IF FND_MSG_PUB.Check_Msg_Level
1900: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1901: THEN
1920:
1921: WHEN OTHERS THEN
1922: ROLLBACK TO Delete_DC_Domain;
1923:
1924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1925:
1926: -- save message in fnd stack
1927: IF FND_MSG_PUB.Check_Msg_Level
1928: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1988: -- Standard Start of API savepoint
1989: SAVEPOINT Lock_DC_Domain;
1990:
1991: -- Standard call to check for call compatibility.
1992: IF NOT FND_API.Compatible_API_Call (lc_api_version,
1993: p_api_version,
1994: lc_api_name ,
1995: G_PKG_NAME )
1996: THEN
1993: p_api_version,
1994: lc_api_name ,
1995: G_PKG_NAME )
1996: THEN
1997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1998: END IF;
1999:
2000: -- Initialize message list if p_init_msg_list is set to TRUE.
2001: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1998: END IF;
1999:
2000: -- Initialize message list if p_init_msg_list is set to TRUE.
2001: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2002: FND_MSG_PUB.initialize;
2003: END IF;
2004:
2005: IF (lc_proc_level >= lc_debug_level) THEN
2007: 'Entered Lock_DC_Domain');
2008: END IF;
2009:
2010: -- Initialize API return status to success
2011: x_return_status := FND_API.G_RET_STS_SUCCESS;
2012:
2013: -- Api body starts
2014:
2015: -- Check the required parameters
2079: WHEN OTHERS THEN
2080: IF ( lc_excep_level >= lc_debug_level) THEN
2081: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_DC_DOMAINS_PKG.Delete_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
2082: END IF;
2083: x_return_status := FND_API.G_RET_STS_ERROR;
2084: END;
2085:
2086: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2087: RAISE FND_API.G_EXC_ERROR;
2082: END IF;
2083: x_return_status := FND_API.G_RET_STS_ERROR;
2084: END;
2085:
2086: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2087: RAISE FND_API.G_EXC_ERROR;
2088: END IF;
2089:
2090: if (lc_proc_level >= lc_debug_level) then
2083: x_return_status := FND_API.G_RET_STS_ERROR;
2084: END;
2085:
2086: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2087: RAISE FND_API.G_EXC_ERROR;
2088: END IF;
2089:
2090: if (lc_proc_level >= lc_debug_level) then
2091: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2094:
2095: -- Api body ends here
2096:
2097: -- Standard check of p_commit.
2098: IF FND_API.To_Boolean( p_commit ) THEN
2099: COMMIT WORK;
2100: END IF;
2101:
2102: -- Standard call to get message count and IF count is get message info.
2110: END IF;
2111:
2112: EXCEPTION
2113:
2114: WHEN FND_API.G_EXC_ERROR THEN
2115: ROLLBACK TO Lock_DC_Domain;
2116:
2117: x_return_status := FND_API.G_RET_STS_ERROR;
2118:
2113:
2114: WHEN FND_API.G_EXC_ERROR THEN
2115: ROLLBACK TO Lock_DC_Domain;
2116:
2117: x_return_status := FND_API.G_RET_STS_ERROR;
2118:
2119: FND_MSG_PUB.Count_And_Get
2120: (p_count => x_msg_count,
2121: p_data => x_msg_data );
2125: FND_LOG.STRING(lc_excep_level, lc_mod_name,
2126: 'EXC_ERROR['||x_msg_data||']');
2127: END IF;
2128:
2129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2130: ROLLBACK TO Lock_DC_Domain;
2131:
2132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2133:
2128:
2129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2130: ROLLBACK TO Lock_DC_Domain;
2131:
2132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2133:
2134: IF FND_MSG_PUB.Check_Msg_Level
2135: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2136: THEN
2155:
2156: WHEN OTHERS THEN
2157: ROLLBACK TO Lock_DC_Domain;
2158:
2159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2160:
2161: -- save message in fnd stack
2162: IF FND_MSG_PUB.Check_Msg_Level
2163: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)