272: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
273: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
274: )IS
275:
276: --******** Save_Perz_Data local variable for standards **********
277: l_api_name CONSTANT VARCHAR2(30) := 'Save PerzData';
278: l_api_version_number NUMBER := p_api_version_number;
279:
280: --******** Save_Perz_Data local variable for implementation *****
289: l_commit VARCHAR2(1) := FND_API.G_FALSE;
290: l_object_version_number NUMBER :=NULL;
291:
292: BEGIN
293: -- ******* Standard Begins ********
294:
295: -- Standard Start of API savepoint
296: SAVEPOINT SAVE_PERZ_DATA_PVT;
297:
291:
292: BEGIN
293: -- ******* Standard Begins ********
294:
295: -- Standard Start of API savepoint
296: SAVEPOINT SAVE_PERZ_DATA_PVT;
297:
298: -- -- Standard call to check for call compatibility.
299: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
294:
295: -- Standard Start of API savepoint
296: SAVEPOINT SAVE_PERZ_DATA_PVT;
297:
298: -- -- Standard call to check for call compatibility.
299: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
300: -- THEN
301: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
302: -- END IF;
439: );
440:
441: END IF;
442:
443: -- ******** Standard Ends ***********
444: --
445: -- End of main API body.
446:
447: -- Standard check of p_commit.
443: -- ******** Standard Ends ***********
444: --
445: -- End of main API body.
446:
447: -- Standard check of p_commit.
448: IF (FND_API.To_Boolean(p_commit)) THEN
449: COMMIT WORK;
450: END IF;
451:
448: IF (FND_API.To_Boolean(p_commit)) THEN
449: COMMIT WORK;
450: END IF;
451:
452: -- Standard call to get message count and if count is 1, get message info.
453: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
454: p_data => x_msg_data );
455:
456: EXCEPTION
515: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
516: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
517: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
518: )IS
519: --******** Create_Perz_Data local variable for standards **********
520: l_api_name CONSTANT VARCHAR2(30) := 'Create PerzData';
521: l_api_version_number NUMBER := p_api_version_number;
522:
523: -- ******* Create_Perz_Data Local Variables ********
528: l_object_version_number NUMBER := NULL;
529:
530:
531: BEGIN
532: -- ******* Standard Begins ********
533:
534: -- Standard Start of API savepoint
535: SAVEPOINT CREATE_PERZ_DATA_PVT;
536:
530:
531: BEGIN
532: -- ******* Standard Begins ********
533:
534: -- Standard Start of API savepoint
535: SAVEPOINT CREATE_PERZ_DATA_PVT;
536:
537: -- -- Standard call to check for call compatibility.
538: -- IF NOT FND_API.Compatible_API_Call
533:
534: -- Standard Start of API savepoint
535: SAVEPOINT CREATE_PERZ_DATA_PVT;
536:
537: -- -- Standard call to check for call compatibility.
538: -- IF NOT FND_API.Compatible_API_Call
539: -- ( l_api_version_number,
540: -- p_api_version_number, l_api_name, G_PKG_NAME)
541: -- THEN
617:
618: END LOOP;
619: END IF;
620:
621: -- ******** Standard Ends ***********
622: --
623: -- End of main API body.
624:
625: -- Standard check of p_commit.
621: -- ******** Standard Ends ***********
622: --
623: -- End of main API body.
624:
625: -- Standard check of p_commit.
626: IF (FND_API.To_Boolean(p_commit)) THEN
627: COMMIT WORK;
628: END IF;
629:
626: IF (FND_API.To_Boolean(p_commit)) THEN
627: COMMIT WORK;
628: END IF;
629:
630: -- Standard call to get message count and if count is 1, get message info.
631: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
632: p_data => x_msg_data );
633:
634: EXCEPTION
690: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
691: )IS
692:
693:
694: --******** Get_Perz_Data local variable for standards **********
695: l_api_name CONSTANT VARCHAR2(30) := 'Get PerzData';
696: l_api_version_number NUMBER := p_api_version_number;
697:
698: -- ******* Get_Perz_Data Local Variables ********
717: WHERE perz_data_id = p_perz_data_id;
718:
719:
720: BEGIN
721: -- ******* Standard Begins ********
722:
723: -- -- Standard call to check for call compatibility.
724: -- IF NOT FND_API.Compatible_API_Call
725: -- ( l_api_version_number,
719:
720: BEGIN
721: -- ******* Standard Begins ********
722:
723: -- -- Standard call to check for call compatibility.
724: -- IF NOT FND_API.Compatible_API_Call
725: -- ( l_api_version_number,
726: -- p_api_version_number, l_api_name, G_PKG_NAME)
727: -- THEN
818: end if;
819: end if;
820:
821:
822: -- ******** Standard Ends ***********
823: -- Standard call to get message count and if count is 1, get message info.
824: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
825: p_data => x_msg_data );
826:
819: end if;
820:
821:
822: -- ******** Standard Ends ***********
823: -- Standard call to get message count and if count is 1, get message info.
824: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
825: p_data => x_msg_data );
826:
827: EXCEPTION
874: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
875: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
876: )IS
877:
878: --******** Get_Perz_Data_Summary local variable for standards **********
879: l_api_name CONSTANT VARCHAR2(30) := 'Create PerzData';
880: l_api_version_number NUMBER := p_api_version_number;
881:
882: -- ******* Get_Perz_Data_Summary Local Variables ********
947:
948: -- SMATTEGU Enhancement #1165283 ENDS
949:
950: BEGIN
951: -- ******* Standard Begins ********
952:
953: -- -- Standard call to check for call compatibility.
954: -- IF NOT FND_API.Compatible_API_Call
955: -- ( l_api_version_number,
949:
950: BEGIN
951: -- ******* Standard Begins ********
952:
953: -- -- Standard call to check for call compatibility.
954: -- IF NOT FND_API.Compatible_API_Call
955: -- ( l_api_version_number,
956: -- p_api_version_number, l_api_name, G_PKG_NAME)
957: -- THEN
1184: end if;
1185:
1186:
1187:
1188: -- ******** Standard Ends ***********
1189: -- Standard call to get message count and if count is 1, get message info.
1190: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1191: p_data => x_msg_data );
1192:
1185:
1186:
1187:
1188: -- ******** Standard Ends ***********
1189: -- Standard call to get message count and if count is 1, get message info.
1190: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1191: p_data => x_msg_data );
1192:
1193: EXCEPTION
1244: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1245: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1246: )IS
1247:
1248: --******** Update_Perz_Data local variable for standards **********
1249: l_api_name CONSTANT VARCHAR2(30) := 'Update PerzData';
1250: l_api_version_number NUMBER := p_api_version_number;
1251:
1252: -- ******* Update_Perz_Data Local Variables ********
1257: l_object_version_number NUMBER := NULL;
1258:
1259:
1260: BEGIN
1261: -- ******* Standard Begins ********
1262:
1263: -- Standard Start of API savepoint
1264: SAVEPOINT UPDATE_PERZ_DATA_PVT;
1265:
1259:
1260: BEGIN
1261: -- ******* Standard Begins ********
1262:
1263: -- Standard Start of API savepoint
1264: SAVEPOINT UPDATE_PERZ_DATA_PVT;
1265:
1266: -- -- Standard call to check for call compatibility.
1267: -- IF NOT FND_API.Compatible_API_Call
1262:
1263: -- Standard Start of API savepoint
1264: SAVEPOINT UPDATE_PERZ_DATA_PVT;
1265:
1266: -- -- Standard call to check for call compatibility.
1267: -- IF NOT FND_API.Compatible_API_Call
1268: -- ( l_api_version_number,
1269: -- p_api_version_number, l_api_name, G_PKG_NAME)
1270: -- THEN
1346:
1347: x_perz_data_id := l_perz_data_id;
1348:
1349:
1350: -- ******** Standard Ends ***********
1351: --
1352: -- End of main API body.
1353:
1354: -- Standard check of p_commit.
1350: -- ******** Standard Ends ***********
1351: --
1352: -- End of main API body.
1353:
1354: -- Standard check of p_commit.
1355: IF (FND_API.To_Boolean(p_commit)) THEN
1356: COMMIT WORK;
1357: END IF;
1358:
1355: IF (FND_API.To_Boolean(p_commit)) THEN
1356: COMMIT WORK;
1357: END IF;
1358:
1359: -- Standard call to get message count and if count is 1, get message info.
1360: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1361: p_data => x_msg_data );
1362:
1363: EXCEPTION
1406: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1407: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1408: )IS
1409:
1410: --******** Update_Perz_Data local variable for standards **********
1411: l_api_name CONSTANT VARCHAR2(30) := 'Create PerzData';
1412: l_api_version_number NUMBER := p_api_version_number;
1413:
1414: -- ******* Update_Perz_Data Local Variables ********
1414: -- ******* Update_Perz_Data Local Variables ********
1415: -- l_perz_data_id NUMBER := p_perz_data_id;
1416: BEGIN
1417:
1418: -- ******* Standard Begins ********
1419:
1420: -- Standard Start of API savepoint
1421: SAVEPOINT DELETE_PERZ_DATA_PVT;
1422:
1416: BEGIN
1417:
1418: -- ******* Standard Begins ********
1419:
1420: -- Standard Start of API savepoint
1421: SAVEPOINT DELETE_PERZ_DATA_PVT;
1422:
1423: -- -- Standard call to check for call compatibility.
1424: -- IF NOT FND_API.Compatible_API_Call
1419:
1420: -- Standard Start of API savepoint
1421: SAVEPOINT DELETE_PERZ_DATA_PVT;
1422:
1423: -- -- Standard call to check for call compatibility.
1424: -- IF NOT FND_API.Compatible_API_Call
1425: -- ( l_api_version_number,
1426: -- p_api_version_number, l_api_name, G_PKG_NAME)
1427: -- THEN
1447: DELETE FROM JTF_PERZ_DATA WHERE
1448: PERZ_DATA_ID = p_perz_data_id;
1449:
1450:
1451: -- ******** Standard Ends ***********
1452: --
1453: -- End of main API body.
1454:
1455: -- Standard check of p_commit.
1451: -- ******** Standard Ends ***********
1452: --
1453: -- End of main API body.
1454:
1455: -- Standard check of p_commit.
1456: IF (FND_API.To_Boolean(p_commit)) THEN
1457: COMMIT WORK;
1458: END IF;
1459:
1456: IF (FND_API.To_Boolean(p_commit)) THEN
1457: COMMIT WORK;
1458: END IF;
1459:
1460: -- Standard call to get message count and if count is 1, get message info.
1461: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1462: p_data => x_msg_data );
1463:
1464: EXCEPTION