104:
105: l_return_status := FND_API.G_RET_STS_ERROR;
106:
107: /* Debug message */
108: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
109: FND_MESSAGE.Set_Name ('JTF', 'PVTQUAL API:Miss req itms');
110: FND_MESSAGE.Set_Token ('COLUMN', 'NAME, DESCRIPTION');
111: FND_MSG_PUB.ADD;
112: END IF;
107: /* Debug message */
108: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
109: FND_MESSAGE.Set_Name ('JTF', 'PVTQUAL API:Miss req itms');
110: FND_MESSAGE.Set_Token ('COLUMN', 'NAME, DESCRIPTION');
111: FND_MSG_PUB.ADD;
112: END IF;
113:
114: END IF;
115:
182:
183: l_seed_qual_out_rec.seeded_qual_id := l_seeded_qual_id_csr;
184:
185: -- Debug message
186: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
187: FND_MESSAGE.Set_Name ('JTF', 'PVTQUAL API:name exists');
188: FND_MESSAGE.Set_Token ('ROW', 'JTF_SEEDED_QUAL_B');
189: FND_MSG_PUB.ADD;
190: END IF;
185: -- Debug message
186: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
187: FND_MESSAGE.Set_Name ('JTF', 'PVTQUAL API:name exists');
188: FND_MESSAGE.Set_Token ('ROW', 'JTF_SEEDED_QUAL_B');
189: FND_MSG_PUB.ADD;
190: END IF;
191:
192: END IF;
193:
305:
306: IF c_column_datatype%NOTFOUND THEN
307:
308: -- Debug message
309: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
310: FND_MESSAGE.Set_Name ('JTF', 'PVTQUAL API:Col dtype noexist');
311: FND_MESSAGE.Set_Token ( 'COLUMN', 'QUAL_TABLE1');
312: FND_MSG_PUB.ADD;
313: END IF;
308: -- Debug message
309: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
310: FND_MESSAGE.Set_Name ('JTF', 'PVTQUAL API:Col dtype noexist');
311: FND_MESSAGE.Set_Token ( 'COLUMN', 'QUAL_TABLE1');
312: FND_MSG_PUB.ADD;
313: END IF;
314:
315: l_column_datatype_csr := NULL;
316:
429: p_qual_usgs_rec.qual_col1_table_alias = FND_API.G_MISS_CHAR
430: )
431: THEN
432: -- Debug message
433: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
434: FND_MESSAGE.Set_Name ('JTF', 'PVTQUAL API:Miss mandtry itms');
435: FND_MESSAGE.Set_Token ( 'COLUMN',
436: 'QUAL_TYPE_USG_ID, ' ||
437: 'QUAL_COL1, QUAL_COL1_ALIAS, QUAL_COL1_DATATYPE, ' ||
435: FND_MESSAGE.Set_Token ( 'COLUMN',
436: 'QUAL_TYPE_USG_ID, ' ||
437: 'QUAL_COL1, QUAL_COL1_ALIAS, QUAL_COL1_DATATYPE, ' ||
438: 'QUAL_COL1_TABLE, QUAL_COL1_TABLE_ALIAS');
439: FND_MSG_PUB.ADD;
440: END IF;
441:
442: RETURN FND_API.G_TRUE;
443: ELSE
497:
498: l_return_variable := FND_API.G_FALSE;
499:
500: /* Debug message */
501: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
502: FND_MESSAGE.Set_Name ('JTF', 'PVTQUAL API:Table dnot exist');
503: FND_MESSAGE.Set_Token ('TABLE', p_table_name);
504: FND_MSG_PUB.ADD;
505: END IF;
500: /* Debug message */
501: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
502: FND_MESSAGE.Set_Name ('JTF', 'PVTQUAL API:Table dnot exist');
503: FND_MESSAGE.Set_Token ('TABLE', p_table_name);
504: FND_MSG_PUB.ADD;
505: END IF;
506:
507: END IF;
508:
520:
521: l_return_variable := FND_API.G_FALSE;
522:
523: /* Debug message */
524: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
525: FND_MESSAGE.Set_Name ('JTF', 'PVTQUAL API:Column dnot exist');
526: FND_MESSAGE.Set_Token ('COLUMN', p_col_name);
527: FND_MSG_PUB.ADD;
528: END IF;
523: /* Debug message */
524: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
525: FND_MESSAGE.Set_Name ('JTF', 'PVTQUAL API:Column dnot exist');
526: FND_MESSAGE.Set_Token ('COLUMN', p_col_name);
527: FND_MSG_PUB.ADD;
528: END IF;
529:
530: END IF;
531:
682:
683: l_return_status := FND_API.G_RET_STS_ERROR;
684:
685: /* Debug message */
686: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
687: FND_MESSAGE.Set_Name ('JTF', 'PVTQUAL API:UK Violation');
688: FND_MESSAGE.Set_Token ('TABLE', 'JTF_QUAL_USGS');
689: FND_MSG_PUB.ADD;
690: END IF;
685: /* Debug message */
686: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
687: FND_MESSAGE.Set_Name ('JTF', 'PVTQUAL API:UK Violation');
688: FND_MESSAGE.Set_Token ('TABLE', 'JTF_QUAL_USGS');
689: FND_MSG_PUB.ADD;
690: END IF;
691:
692: END IF; /* c_chk_uk_violation%FOUND */
693:
1006: FETCH c_chk_sq_child INTO dummy_csr;
1007: IF c_chk_sq_child%FOUND THEN
1008:
1009: /* Debug Message */
1010: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1011: THEN
1012: FND_MESSAGE.Set_Name('JTF', 'DELETE QUAL PVT: CHECK_DEL1');
1013: FND_MSG_PUB.Add;
1014: END IF;
1009: /* Debug Message */
1010: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1011: THEN
1012: FND_MESSAGE.Set_Name('JTF', 'DELETE QUAL PVT: CHECK_DEL1');
1013: FND_MSG_PUB.Add;
1014: END IF;
1015:
1016: l_return_status := FND_API.G_RET_STS_ERROR;
1017: END IF;
1024: FETCH c_chk_seeded_flag INTO dummy_csr;
1025: IF c_chk_seeded_flag%FOUND THEN
1026:
1027: /* Debug Message */
1028: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1029: THEN
1030: FND_MESSAGE.Set_Name('JTF', 'DELETE QUAL PVT: CHECK_DEL2');
1031: FND_MSG_PUB.Add;
1032: END IF;
1027: /* Debug Message */
1028: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1029: THEN
1030: FND_MESSAGE.Set_Name('JTF', 'DELETE QUAL PVT: CHECK_DEL2');
1031: FND_MSG_PUB.Add;
1032: END IF;
1033:
1034: l_return_status := FND_API.G_RET_STS_ERROR;
1035: END IF;
1041:
1042:
1043: IF c_chk_terr%FOUND THEN
1044: /* Debug Message */
1045: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1046: THEN
1047: FND_MESSAGE.Set_Name('JTF', 'DELETE QUAL PVT: CHECK_DEL3');
1048: FND_MSG_PUB.Add;
1049: END IF;
1044: /* Debug Message */
1045: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1046: THEN
1047: FND_MESSAGE.Set_Name('JTF', 'DELETE QUAL PVT: CHECK_DEL3');
1048: FND_MSG_PUB.Add;
1049: END IF;
1050:
1051: l_return_status := FND_API.G_RET_STS_ERROR;
1052: END IF;
1060: FETCH c_chk_terr_type INTO dummy_csr;
1061: IF c_chk_terr_type%FOUND THEN
1062:
1063: /* Debug Message */
1064: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1065: THEN
1066: FND_MESSAGE.Set_Name('JTF', 'DELETE QUAL PVT: CHECK_DEL4');
1067: FND_MSG_PUB.Add;
1068: END IF;
1063: /* Debug Message */
1064: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1065: THEN
1066: FND_MESSAGE.Set_Name('JTF', 'DELETE QUAL PVT: CHECK_DEL4');
1067: FND_MSG_PUB.Add;
1068: END IF;
1069:
1070: l_return_status := FND_API.G_RET_STS_ERROR;
1071: END IF;
1188:
1189: -- Initialize message list if p_init_msg_list is set to TRUE.
1190: IF FND_API.to_Boolean( p_init_msg_list )
1191: THEN
1192: FND_MSG_PUB.initialize;
1193: END IF;
1194:
1195: /* Debug Message */
1196: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1192: FND_MSG_PUB.initialize;
1193: END IF;
1194:
1195: /* Debug Message */
1196: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1197: THEN
1198: FND_MESSAGE.Set_Name('JTF', 'PVT Create Qual: Start');
1199: FND_MSG_PUB.Add;
1200: END IF;
1195: /* Debug Message */
1196: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1197: THEN
1198: FND_MESSAGE.Set_Name('JTF', 'PVT Create Qual: Start');
1199: FND_MSG_PUB.Add;
1200: END IF;
1201:
1202:
1203: -- ******************************************************************
1227:
1228: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
1229:
1230: -- Debug message
1231: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1232: FND_MESSAGE.Set_Name('JTF', 'PVTQUAL API:Validate Rec');
1233: FND_MSG_PUB.ADD;
1234: END IF;
1235:
1229:
1230: -- Debug message
1231: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1232: FND_MESSAGE.Set_Name('JTF', 'PVTQUAL API:Validate Rec');
1233: FND_MSG_PUB.ADD;
1234: END IF;
1235:
1236:
1237: -- validate the seeded qualifier record
1261: -- Process Seeded Qualifier Record
1262: ----------------------------------
1263:
1264: -- Debug message
1265: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1266: FND_MESSAGE.Set_Name('JTF', 'PVT QUALIFIER API:');
1267: FND_MSG_PUB.ADD;
1268: END IF;
1269:
1263:
1264: -- Debug message
1265: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1266: FND_MESSAGE.Set_Name('JTF', 'PVT QUALIFIER API:');
1267: FND_MSG_PUB.ADD;
1268: END IF;
1269:
1270: -- Insert seeded qualifier record into database
1271: create_seed_qual_record ( l_seed_qual_rec,
1284: -- Process Qualifier Usages Record
1285: ----------------------------------
1286:
1287: -- Debug message
1288: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1289: FND_MESSAGE.Set_Name('JTF', 'PVT API: Ins');
1290: FND_MSG_PUB.ADD;
1291: END IF;
1292:
1286:
1287: -- Debug message
1288: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1289: FND_MESSAGE.Set_Name('JTF', 'PVT API: Ins');
1290: FND_MSG_PUB.ADD;
1291: END IF;
1292:
1293: create_qual_usgs_record ( l_seed_qual_out_rec.seeded_qual_id,
1294: l_qual_usgs_rec,
1315: -- *************************************************************************************
1316:
1317:
1318: -- Success Message
1319: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) AND
1320: l_return_status = FND_API.G_RET_STS_SUCCESS
1321: THEN
1322: FND_MESSAGE.Set_Name('JTF', 'API_SUCCESS');
1323: FND_MESSAGE.Set_Token('ROW', 'JTF_QUALIFIER', TRUE);
1320: l_return_status = FND_API.G_RET_STS_SUCCESS
1321: THEN
1322: FND_MESSAGE.Set_Name('JTF', 'API_SUCCESS');
1323: FND_MESSAGE.Set_Token('ROW', 'JTF_QUALIFIER', TRUE);
1324: FND_MSG_PUB.Add;
1325: END IF;
1326:
1327: -- Standard check of p_commit.
1328: IF FND_API.To_Boolean ( p_commit )
1330: COMMIT WORK;
1331: END IF;
1332:
1333: -- Debug Message
1334: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1335: THEN
1336: FND_MESSAGE.Set_Name('JTF', 'PVT Create Qual API: End');
1337: FND_MSG_PUB.Add;
1338: END IF;
1333: -- Debug Message
1334: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1335: THEN
1336: FND_MESSAGE.Set_Name('JTF', 'PVT Create Qual API: End');
1337: FND_MSG_PUB.Add;
1338: END IF;
1339:
1340: -- Standard call to get message count and if count is 1, get message info.
1341: FND_MSG_PUB.Count_And_Get
1337: FND_MSG_PUB.Add;
1338: END IF;
1339:
1340: -- Standard call to get message count and if count is 1, get message info.
1341: FND_MSG_PUB.Count_And_Get
1342: ( p_count => x_msg_count,
1343: p_data => x_msg_data
1344: );
1345:
1348: WHEN FND_API.G_EXC_ERROR THEN
1349: ROLLBACK TO CREATE_QUALIFIER_PVT;
1350: x_return_status := FND_API.G_RET_STS_ERROR ;
1351:
1352: FND_MSG_PUB.Count_And_Get
1353: ( p_count => x_msg_count,
1354: p_data => x_msg_data
1355: );
1356:
1358: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1359: ROLLBACK TO CREATE_QUALIFIER_PVT;
1360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1361:
1362: FND_MSG_PUB.Count_And_Get
1363: ( p_count => x_msg_count,
1364: p_data => x_msg_data
1365: );
1366:
1368: WHEN OTHERS THEN
1369: ROLLBACK TO CREATE_QUALIFIER_PVT;
1370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1371:
1372: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1373: THEN
1374: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
1375: END IF;
1376:
1370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1371:
1372: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1373: THEN
1374: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
1375: END IF;
1376:
1377: FND_MSG_PUB.Count_And_Get
1378: ( p_count => x_msg_count,
1373: THEN
1374: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
1375: END IF;
1376:
1377: FND_MSG_PUB.Count_And_Get
1378: ( p_count => x_msg_count,
1379: p_data => x_msg_data
1380: );
1381:
1461:
1462: -- Initialize message list if p_init_msg_list is set to TRUE.
1463: IF FND_API.to_Boolean( p_init_msg_list )
1464: THEN
1465: FND_MSG_PUB.initialize;
1466: END IF;
1467:
1468: -- Debug Message
1469: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1465: FND_MSG_PUB.initialize;
1466: END IF;
1467:
1468: -- Debug Message
1469: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1470: THEN
1471: FND_MESSAGE.Set_Name('JTF', 'PVT UpdateQual API: Start');
1472: FND_MSG_PUB.Add;
1473: END IF;
1468: -- Debug Message
1469: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1470: THEN
1471: FND_MESSAGE.Set_Name('JTF', 'PVT UpdateQual API: Start');
1472: FND_MSG_PUB.Add;
1473: END IF;
1474:
1475:
1476: -- ******************************************************************
1492:
1493: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
1494:
1495: -- Debug message
1496: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1497: FND_MESSAGE.Set_Name('JTF', 'PVT QUAL API: Valdte Record');
1498: FND_MSG_PUB.ADD;
1499: END IF;
1500:
1494:
1495: -- Debug message
1496: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1497: FND_MESSAGE.Set_Name('JTF', 'PVT QUAL API: Valdte Record');
1498: FND_MSG_PUB.ADD;
1499: END IF;
1500:
1501: -- validate the seeded qualifier record
1502: validate_seed_qual_rec ( l_seed_qual_rec,
1532: -- Process Seeded Qualifier Record
1533: ----------------------------------
1534:
1535: -- Debug message
1536: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1537: FND_MESSAGE.Set_Name('JTF', 'PVTQUAL API:Updte SeedQualRec');
1538: FND_MSG_PUB.ADD;
1539: END IF;
1540:
1534:
1535: -- Debug message
1536: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1537: FND_MESSAGE.Set_Name('JTF', 'PVTQUAL API:Updte SeedQualRec');
1538: FND_MSG_PUB.ADD;
1539: END IF;
1540:
1541: -- Update seeded qualifier record into database
1542: update_seed_qual_record ( l_seed_qual_rec,
1552: -- Process Qualifier Usages Record
1553: ----------------------------------
1554:
1555: -- Debug message
1556: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1557: FND_MESSAGE.Set_Name('JTF', 'PVTQUAL API:Update QualUsgRec');
1558: FND_MSG_PUB.ADD;
1559: END IF;
1560:
1554:
1555: -- Debug message
1556: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1557: FND_MESSAGE.Set_Name('JTF', 'PVTQUAL API:Update QualUsgRec');
1558: FND_MSG_PUB.ADD;
1559: END IF;
1560:
1561: update_qual_usgs_record ( l_qual_usgs_rec,
1562: l_qual_usgs_out_rec);
1577: -- *************************************************************************************
1578:
1579:
1580: -- Success Message
1581: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) AND
1582: l_return_status = FND_API.G_RET_STS_SUCCESS
1583: THEN
1584: FND_MESSAGE.Set_Name('JTF', 'API_SUCCESS');
1585: FND_MESSAGE.Set_Token('ROW', 'JTF_QUALIFIER', TRUE);
1582: l_return_status = FND_API.G_RET_STS_SUCCESS
1583: THEN
1584: FND_MESSAGE.Set_Name('JTF', 'API_SUCCESS');
1585: FND_MESSAGE.Set_Token('ROW', 'JTF_QUALIFIER', TRUE);
1586: FND_MSG_PUB.Add;
1587: END IF;
1588:
1589:
1590:
1594: COMMIT WORK;
1595: END IF;
1596:
1597: -- Debug Message
1598: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1599: THEN
1600: FND_MESSAGE.Set_Name('JTF', 'PVT Update Qual API: End');
1601: FND_MSG_PUB.Add;
1602: END IF;
1597: -- Debug Message
1598: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1599: THEN
1600: FND_MESSAGE.Set_Name('JTF', 'PVT Update Qual API: End');
1601: FND_MSG_PUB.Add;
1602: END IF;
1603:
1604: -- Standard call to get message count and if count is 1, get message info.
1605: FND_MSG_PUB.Count_And_Get
1601: FND_MSG_PUB.Add;
1602: END IF;
1603:
1604: -- Standard call to get message count and if count is 1, get message info.
1605: FND_MSG_PUB.Count_And_Get
1606: ( p_count => x_msg_count,
1607: p_data => x_msg_data
1608: );
1609:
1612: WHEN FND_API.G_EXC_ERROR THEN
1613: ROLLBACK TO UPDATE_QUALIFIER_PVT;
1614: x_return_status := FND_API.G_RET_STS_ERROR ;
1615:
1616: FND_MSG_PUB.Count_And_Get
1617: ( p_count => x_msg_count,
1618: p_data => x_msg_data
1619: );
1620:
1622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1623: ROLLBACK TO UPDATE_QUALIFIER_PVT;
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1625:
1626: FND_MSG_PUB.Count_And_Get
1627: ( p_count => x_msg_count,
1628: p_data => x_msg_data
1629: );
1630:
1632: WHEN OTHERS THEN
1633: ROLLBACK TO UPDATE_QUALIFIER_PVT;
1634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1635:
1636: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1637: THEN
1638: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
1639: END IF;
1640:
1634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1635:
1636: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1637: THEN
1638: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
1639: END IF;
1640:
1641: FND_MSG_PUB.Count_And_Get
1642: ( p_count => x_msg_count,
1637: THEN
1638: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
1639: END IF;
1640:
1641: FND_MSG_PUB.Count_And_Get
1642: ( p_count => x_msg_count,
1643: p_data => x_msg_data
1644: );
1645:
1720:
1721: -- Initialize message list if p_init_msg_list is set to TRUE.
1722: IF FND_API.to_Boolean( p_init_msg_list )
1723: THEN
1724: FND_MSG_PUB.initialize;
1725: END IF;
1726:
1727: -- Debug Message
1728: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1724: FND_MSG_PUB.initialize;
1725: END IF;
1726:
1727: -- Debug Message
1728: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1729: THEN
1730: FND_MESSAGE.Set_Name('JTF', 'Delete Qualifier PVT: Start');
1731: FND_MSG_PUB.Add;
1732: END IF;
1727: -- Debug Message
1728: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1729: THEN
1730: FND_MESSAGE.Set_Name('JTF', 'Delete Qualifier PVT: Start');
1731: FND_MSG_PUB.Add;
1732: END IF;
1733:
1734: -- ******************************************************************
1735: -- API BODY START
1766: -- Process Seeded Qualifier Record
1767: ----------------------------------
1768:
1769: -- Debug message
1770: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1771: FND_MESSAGE.Set_Name('JTF', 'Delete Qualifier PVT: Debug1');
1772: FND_MSG_PUB.ADD;
1773: END IF;
1774:
1768:
1769: -- Debug message
1770: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1771: FND_MESSAGE.Set_Name('JTF', 'Delete Qualifier PVT: Debug1');
1772: FND_MSG_PUB.ADD;
1773: END IF;
1774:
1775:
1776:
1789: -- Process Qualifier Usages Record
1790: ----------------------------------
1791:
1792: -- Debug message
1793: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1794: FND_MESSAGE.Set_Name('JTF', 'Delete Qualifier PVT: Debug2');
1795: FND_MSG_PUB.ADD;
1796: END IF;
1797:
1791:
1792: -- Debug message
1793: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1794: FND_MESSAGE.Set_Name('JTF', 'Delete Qualifier PVT: Debug2');
1795: FND_MSG_PUB.ADD;
1796: END IF;
1797:
1798:
1799:
1813: -- *************************************************************************************
1814:
1815:
1816: -- Success Message
1817: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) AND
1818: l_return_status = FND_API.G_RET_STS_SUCCESS
1819: THEN
1820: FND_MESSAGE.Set_Name('JTF', 'API_SUCCESS');
1821: FND_MESSAGE.Set_Token('ROW', 'JTF_QUALIFIER', TRUE);
1818: l_return_status = FND_API.G_RET_STS_SUCCESS
1819: THEN
1820: FND_MESSAGE.Set_Name('JTF', 'API_SUCCESS');
1821: FND_MESSAGE.Set_Token('ROW', 'JTF_QUALIFIER', TRUE);
1822: FND_MSG_PUB.Add;
1823: END IF;
1824:
1825: -- Standard check of p_commit.
1826: IF FND_API.To_Boolean ( p_commit )
1828: COMMIT WORK;
1829: END IF;
1830:
1831: -- Debug Message
1832: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1833: THEN
1834: FND_MESSAGE.Set_Name('JTF', 'PVT Delete Qual API: End');
1835: FND_MSG_PUB.Add;
1836: END IF;
1831: -- Debug Message
1832: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1833: THEN
1834: FND_MESSAGE.Set_Name('JTF', 'PVT Delete Qual API: End');
1835: FND_MSG_PUB.Add;
1836: END IF;
1837:
1838: -- Standard call to get message count and if count is 1, get message info.
1839: FND_MSG_PUB.Count_And_Get
1835: FND_MSG_PUB.Add;
1836: END IF;
1837:
1838: -- Standard call to get message count and if count is 1, get message info.
1839: FND_MSG_PUB.Count_And_Get
1840: ( p_count => x_msg_count,
1841: p_data => x_msg_data
1842: );
1843:
1846: WHEN FND_API.G_EXC_ERROR THEN
1847: ROLLBACK TO DELETE_QUALIFIER_PVT;
1848: x_return_status := FND_API.G_RET_STS_ERROR ;
1849:
1850: FND_MSG_PUB.Count_And_Get
1851: ( p_count => x_msg_count,
1852: p_data => x_msg_data
1853: );
1854:
1856: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1857: ROLLBACK TO DELETE_QUALIFIER_PVT;
1858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1859:
1860: FND_MSG_PUB.Count_And_Get
1861: ( p_count => x_msg_count,
1862: p_data => x_msg_data
1863: );
1864:
1866: WHEN OTHERS THEN
1867: ROLLBACK TO DELETE_QUALIFIER_PVT;
1868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1869:
1870: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1871: THEN
1872: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
1873: END IF;
1874:
1868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1869:
1870: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1871: THEN
1872: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
1873: END IF;
1874:
1875: FND_MSG_PUB.Count_And_Get
1876: ( p_count => x_msg_count,
1871: THEN
1872: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
1873: END IF;
1874:
1875: FND_MSG_PUB.Count_And_Get
1876: ( p_count => x_msg_count,
1877: p_data => x_msg_data
1878: );
1879: