APPS.PSB_PURGE_DATA_EXTRACT_PVT dependencies on FND_API

Line 39: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

35: /* ----------------------------------------------------------------------- */
36:
37: PROCEDURE Purge_Data_Extract
38: ( p_api_version IN NUMBER,
39: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
40: p_commit IN VARCHAR2 := FND_API.G_FALSE,
41: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
42: p_return_status OUT NOCOPY VARCHAR2,
43: p_msg_count OUT NOCOPY NUMBER,

Line 40: p_commit IN VARCHAR2 := FND_API.G_FALSE,

36:
37: PROCEDURE Purge_Data_Extract
38: ( p_api_version IN NUMBER,
39: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
40: p_commit IN VARCHAR2 := FND_API.G_FALSE,
41: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
42: p_return_status OUT NOCOPY VARCHAR2,
43: p_msg_count OUT NOCOPY NUMBER,
44: p_msg_data OUT NOCOPY VARCHAR2,

Line 41: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

37: PROCEDURE Purge_Data_Extract
38: ( p_api_version IN NUMBER,
39: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
40: p_commit IN VARCHAR2 := FND_API.G_FALSE,
41: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
42: p_return_status OUT NOCOPY VARCHAR2,
43: p_msg_count OUT NOCOPY NUMBER,
44: p_msg_data OUT NOCOPY VARCHAR2,
45: p_data_extract_id IN NUMBER,

Line 120: if not FND_API.Compatible_API_Call (l_api_version,

116: SAVEPOINT Purge_Data_Extract;
117:
118: -- Standard call to check for call compatibility.
119:
120: if not FND_API.Compatible_API_Call (l_api_version,
121: p_api_version,
122: l_api_name,
123: G_PKG_NAME)
124: then

Line 125: raise FND_API.G_EXC_UNEXPECTED_ERROR;

121: p_api_version,
122: l_api_name,
123: G_PKG_NAME)
124: then
125: raise FND_API.G_EXC_UNEXPECTED_ERROR;
126: end if;
127:
128: -- Initialize message list if p_init_msg_list is set to TRUE.
129:

Line 130: if FND_API.to_Boolean (p_init_msg_list) then

126: end if;
127:
128: -- Initialize message list if p_init_msg_list is set to TRUE.
129:
130: if FND_API.to_Boolean (p_init_msg_list) then
131: FND_MSG_PUB.initialize;
132: end if;
133:
134: -- Initialize API return status to success

Line 136: p_return_status := FND_API.G_RET_STS_SUCCESS;

132: end if;
133:
134: -- Initialize API return status to success
135:
136: p_return_status := FND_API.G_RET_STS_SUCCESS;
137: p_purge := 'PURGE';
138:
139: -- API body
140: Begin

Line 217: raise FND_API.G_EXC_ERROR;

213: if (l_worksheet_cnt > 0) then
214: FND_MESSAGE.SET_NAME('PSB', 'PSB_DE_CANNOT_BE_DELETED');
215: FND_MSG_PUB.Add;
216: p_purge := 'NO_PURGE';
217: raise FND_API.G_EXC_ERROR;
218: End if;
219: End;
220:
221: For C_Entity_Set_Rec in C_Entity_Set

Line 477: if FND_API.to_Boolean (p_commit) then

473: -- End of API body.
474:
475: -- Standard check of p_commit.
476:
477: if FND_API.to_Boolean (p_commit) then
478: commit work;
479: end if;
480:
481: -- Standard call to get message count and if count is 1, get message info.

Line 488: when FND_API.G_EXC_ERROR then

484: p_data => p_msg_data);
485:
486: EXCEPTION
487:
488: when FND_API.G_EXC_ERROR then
489:
490: /*For Bug No : 2577889 Start*/
491: --rollback to Purge_Data_Extract;
492: rollback;

Line 495: p_return_status := FND_API.G_RET_STS_ERROR;

491: --rollback to Purge_Data_Extract;
492: rollback;
493: /*For Bug No : 2577889 End*/
494:
495: p_return_status := FND_API.G_RET_STS_ERROR;
496:
497: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
498: p_data => p_msg_data);
499:

Line 501: when FND_API.G_EXC_UNEXPECTED_ERROR then

497: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
498: p_data => p_msg_data);
499:
500:
501: when FND_API.G_EXC_UNEXPECTED_ERROR then
502:
503: /*For Bug No : 2577889 Start*/
504: --rollback to Purge_Data_Extract;
505: rollback;

Line 508: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

504: --rollback to Purge_Data_Extract;
505: rollback;
506: /*For Bug No : 2577889 End*/
507:
508: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509:
510: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
511: p_data => p_msg_data);
512:

Line 571: p_init_msg_list => FND_API.G_TRUE,

567: add_message('PSB', 'PSB_DATA_EXTRACT');
568:
569: PSB_PURGE_DATA_EXTRACT_PVT.Purge_Data_Extract
570: (p_api_version => 1.0,
571: p_init_msg_list => FND_API.G_TRUE,
572: p_return_status => l_return_status,
573: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
574: p_msg_count => l_msg_count,
575: p_msg_data => l_msg_data,

Line 573: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

569: PSB_PURGE_DATA_EXTRACT_PVT.Purge_Data_Extract
570: (p_api_version => 1.0,
571: p_init_msg_list => FND_API.G_TRUE,
572: p_return_status => l_return_status,
573: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
574: p_msg_count => l_msg_count,
575: p_msg_data => l_msg_data,
576: p_data_extract_id => p_data_extract_id,
577: p_purge => l_purge );

Line 583: raise FND_API.G_EXC_ERROR;

579:
580: if l_purge <> 'PURGE' THEN
581: message_token('PROCESS', 'Delete Data Extract');
582: add_message('PSB', 'PSB_EXTRACT_FAILURE_MESSAGE');
583: raise FND_API.G_EXC_ERROR;
584: end if;
585:
586: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
587: raise FND_API.G_EXC_ERROR;

Line 586: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

582: add_message('PSB', 'PSB_EXTRACT_FAILURE_MESSAGE');
583: raise FND_API.G_EXC_ERROR;
584: end if;
585:
586: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
587: raise FND_API.G_EXC_ERROR;
588: END IF;
589: --
590: PSB_MESSAGE_S.Print_Success;

Line 587: raise FND_API.G_EXC_ERROR;

583: raise FND_API.G_EXC_ERROR;
584: end if;
585:
586: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
587: raise FND_API.G_EXC_ERROR;
588: END IF;
589: --
590: PSB_MESSAGE_S.Print_Success;
591: retcode := 0 ;

Line 606: p_print_header => FND_API.G_TRUE);

602: l_api_name ) ;
603: END IF ;
604: --
605: PSB_MESSAGE_S.Print_Error( p_mode => FND_FILE.OUTPUT,
606: p_print_header => FND_API.G_TRUE);
607: --
608: retcode := 2 ;
609: --
610: END Purge_Data_Extract_CP;