33: );
34:
35: PROCEDURE Pre_Create_Data_Extract
36: ( p_api_version IN NUMBER,
37: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
38: p_commit IN VARCHAR2 := FND_API.G_FALSE,
39: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
40: p_return_status OUT NOCOPY VARCHAR2,
41: p_msg_count OUT NOCOPY NUMBER,
34:
35: PROCEDURE Pre_Create_Data_Extract
36: ( p_api_version IN NUMBER,
37: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
38: p_commit IN VARCHAR2 := FND_API.G_FALSE,
39: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
40: p_return_status OUT NOCOPY VARCHAR2,
41: p_msg_count OUT NOCOPY NUMBER,
42: p_msg_data OUT NOCOPY VARCHAR2,
35: PROCEDURE Pre_Create_Data_Extract
36: ( p_api_version IN NUMBER,
37: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
38: p_commit IN VARCHAR2 := FND_API.G_FALSE,
39: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
40: p_return_status OUT NOCOPY VARCHAR2,
41: p_msg_count OUT NOCOPY NUMBER,
42: p_msg_data OUT NOCOPY VARCHAR2,
43: p_data_extract_id IN NUMBER);
69:
70:
71: PROCEDURE Perform_Data_Extract
72: ( p_api_version IN NUMBER,
73: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
74: p_commit IN VARCHAR2 := FND_API.G_FALSE,
75: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
76: p_return_status OUT NOCOPY VARCHAR2,
77: p_msg_count OUT NOCOPY NUMBER,
70:
71: PROCEDURE Perform_Data_Extract
72: ( p_api_version IN NUMBER,
73: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
74: p_commit IN VARCHAR2 := FND_API.G_FALSE,
75: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
76: p_return_status OUT NOCOPY VARCHAR2,
77: p_msg_count OUT NOCOPY NUMBER,
78: p_msg_data OUT NOCOPY VARCHAR2,
71: PROCEDURE Perform_Data_Extract
72: ( p_api_version IN NUMBER,
73: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
74: p_commit IN VARCHAR2 := FND_API.G_FALSE,
75: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
76: p_return_status OUT NOCOPY VARCHAR2,
77: p_msg_count OUT NOCOPY NUMBER,
78: p_msg_data OUT NOCOPY VARCHAR2,
79: p_data_extract_id IN NUMBER
115: BEGIN
116:
117: -- Standard call to check for call compatibility.
118:
119: if not FND_API.Compatible_API_Call (l_api_version,
120: p_api_version,
121: l_api_name,
122: G_PKG_NAME)
123: then
120: p_api_version,
121: l_api_name,
122: G_PKG_NAME)
123: then
124: raise FND_API.G_EXC_UNEXPECTED_ERROR;
125: end if;
126:
127: -- Initialize message list if p_init_msg_list is set to TRUE.
128:
125: end if;
126:
127: -- Initialize message list if p_init_msg_list is set to TRUE.
128:
129: if FND_API.to_Boolean (p_init_msg_list) then
130: FND_MSG_PUB.initialize;
131: end if;
132:
133: -- Initialize API return status to success
131: end if;
132:
133: -- Initialize API return status to success
134:
135: p_return_status := FND_API.G_RET_STS_SUCCESS;
136:
137: -- API body
138:
139:
160: if (C_DataRec.default_data_flag = 'Y') then
161: if (C_DataRec.default_data_status <> 'C') then
162: PSB_HR_POPULATE_DATA_PVT.Apply_Defaults
163: ( p_api_version => 1.0,
164: p_init_msg_list => FND_API.G_FALSE,
165: p_commit => FND_API.G_FALSE,
166: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
167: p_return_status => l_return_status,
168: p_msg_count => l_msg_count,
161: if (C_DataRec.default_data_status <> 'C') then
162: PSB_HR_POPULATE_DATA_PVT.Apply_Defaults
163: ( p_api_version => 1.0,
164: p_init_msg_list => FND_API.G_FALSE,
165: p_commit => FND_API.G_FALSE,
166: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
167: p_return_status => l_return_status,
168: p_msg_count => l_msg_count,
169: p_msg_data => l_msg_data,
162: PSB_HR_POPULATE_DATA_PVT.Apply_Defaults
163: ( p_api_version => 1.0,
164: p_init_msg_list => FND_API.G_FALSE,
165: p_commit => FND_API.G_FALSE,
166: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
167: p_return_status => l_return_status,
168: p_msg_count => l_msg_count,
169: p_msg_data => l_msg_data,
170: p_data_extract_id => p_data_extract_id,
170: p_data_extract_id => p_data_extract_id,
171: p_extract_method => C_DataRec.data_extract_method
172: );
173:
174: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
175: message_token('PROCESS', 'Apply Defaults');
176: add_message('PSB', 'PSB_EXTRACT_FAILURE_MESSAGE');
177: p_return_status := FND_API.G_RET_STS_ERROR;
178: --raise FND_API.G_EXC_ERROR;
173:
174: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
175: message_token('PROCESS', 'Apply Defaults');
176: add_message('PSB', 'PSB_EXTRACT_FAILURE_MESSAGE');
177: p_return_status := FND_API.G_RET_STS_ERROR;
178: --raise FND_API.G_EXC_ERROR;
179: else
180: message_token('PROCESS', 'Apply Defaults');
181: add_message('PSB', 'PSB_EXTRACT_SUCCESS_MESSAGE');
174: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
175: message_token('PROCESS', 'Apply Defaults');
176: add_message('PSB', 'PSB_EXTRACT_FAILURE_MESSAGE');
177: p_return_status := FND_API.G_RET_STS_ERROR;
178: --raise FND_API.G_EXC_ERROR;
179: else
180: message_token('PROCESS', 'Apply Defaults');
181: add_message('PSB', 'PSB_EXTRACT_SUCCESS_MESSAGE');
182: end if;
199: IF l_msg_count > 0 THEN
200:
201: l_msg_data := FND_MSG_PUB.Get
202: (p_msg_index => FND_MSG_PUB.G_NEXT,
203: p_encoded => FND_API.G_FALSE);
204:
205: PSB_MESSAGE_S.INSERT_ERROR
206: (p_source_process => 'DATA_EXTRACT_VALIDATION',
207: p_process_id => p_data_extract_id,
210:
211: END IF;
212:
213: -- Standard check of p_commit.
214: if FND_API.to_Boolean (p_commit) then
215: commit work;
216: end if;
217:
218: if (l_msg_count > 0) then
232: --
233: if l_rep_req_id = 0 then
234: --
235: fnd_message.set_name('PSB', 'PSB_FAIL_TO_SUBMIT_REQUEST');
236: raise FND_API.G_EXC_ERROR ;
237: --
238: end if;
239:
240: end if;
245: p_data => p_msg_data);
246:
247: EXCEPTION
248:
249: when FND_API.G_EXC_ERROR then
250:
251: p_return_status := FND_API.G_RET_STS_ERROR;
252:
253: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
247: EXCEPTION
248:
249: when FND_API.G_EXC_ERROR then
250:
251: p_return_status := FND_API.G_RET_STS_ERROR;
252:
253: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
254: p_data => p_msg_data);
255:
253: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
254: p_data => p_msg_data);
255:
256:
257: when FND_API.G_EXC_UNEXPECTED_ERROR then
258:
259: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
260:
261: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
255:
256:
257: when FND_API.G_EXC_UNEXPECTED_ERROR then
258:
259: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
260:
261: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
262: p_data => p_msg_data);
263:
263:
264:
265: when OTHERS then
266:
267: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
268:
269: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
270:
271: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
279:
280:
281: PROCEDURE Interface_Purge
282: ( p_api_version IN NUMBER,
283: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
284: p_commit IN VARCHAR2 := FND_API.G_FALSE,
285: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
286: /* Start bug #4386374 */
287: p_data_extract_id IN NUMBER := null, -- Fixed for Bug#4683895
280:
281: PROCEDURE Interface_Purge
282: ( p_api_version IN NUMBER,
283: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
284: p_commit IN VARCHAR2 := FND_API.G_FALSE,
285: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
286: /* Start bug #4386374 */
287: p_data_extract_id IN NUMBER := null, -- Fixed for Bug#4683895
288: p_populate_interface_flag IN VARCHAR2 := null, -- Added this for Bug#4683895
281: PROCEDURE Interface_Purge
282: ( p_api_version IN NUMBER,
283: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
284: p_commit IN VARCHAR2 := FND_API.G_FALSE,
285: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
286: /* Start bug #4386374 */
287: p_data_extract_id IN NUMBER := null, -- Fixed for Bug#4683895
288: p_populate_interface_flag IN VARCHAR2 := null, -- Added this for Bug#4683895
289: /* End bug #4386374 */
333: Begin
334:
335: -- Standard call to check for call compatibility.
336:
337: if not FND_API.Compatible_API_Call (l_api_version,
338: p_api_version,
339: l_api_name,
340: G_PKG_NAME)
341: then
338: p_api_version,
339: l_api_name,
340: G_PKG_NAME)
341: then
342: raise FND_API.G_EXC_UNEXPECTED_ERROR;
343: end if;
344:
345: -- Initialize message list if p_init_msg_list is set to TRUE.
346:
343: end if;
344:
345: -- Initialize message list if p_init_msg_list is set to TRUE.
346:
347: if FND_API.to_Boolean (p_init_msg_list) then
348: FND_MSG_PUB.initialize;
349: end if;
350:
351: -- Initialize API return status to success
349: end if;
350:
351: -- Initialize API return status to success
352:
353: p_return_status := FND_API.G_RET_STS_SUCCESS;
354:
355: -- API body
356:
357: For C_Interface_Rec in C_Interface
436: p_data => p_msg_data);
437:
438: EXCEPTION
439:
440: when FND_API.G_EXC_ERROR then
441:
442: p_return_status := FND_API.G_RET_STS_ERROR;
443:
444: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
438: EXCEPTION
439:
440: when FND_API.G_EXC_ERROR then
441:
442: p_return_status := FND_API.G_RET_STS_ERROR;
443:
444: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
445: p_data => p_msg_data);
446:
444: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
445: p_data => p_msg_data);
446:
447:
448: when FND_API.G_EXC_UNEXPECTED_ERROR then
449:
450: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
451:
452: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
446:
447:
448: when FND_API.G_EXC_UNEXPECTED_ERROR then
449:
450: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
451:
452: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
453: p_data => p_msg_data);
454:
454:
455:
456: when OTHERS then
457:
458: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
459:
460: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
461:
462: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
474: -- belonging to a Business Group.
475:
476: PROCEDURE Insert_Organizations
477: ( p_api_version IN NUMBER,
478: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
479: p_commit IN VARCHAR2 := FND_API.G_FALSE,
480: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
481: p_data_extract_id IN NUMBER,
482: p_as_of_date IN DATE,
475:
476: PROCEDURE Insert_Organizations
477: ( p_api_version IN NUMBER,
478: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
479: p_commit IN VARCHAR2 := FND_API.G_FALSE,
480: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
481: p_data_extract_id IN NUMBER,
482: p_as_of_date IN DATE,
483: p_business_group_id IN NUMBER,
476: PROCEDURE Insert_Organizations
477: ( p_api_version IN NUMBER,
478: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
479: p_commit IN VARCHAR2 := FND_API.G_FALSE,
480: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
481: p_data_extract_id IN NUMBER,
482: p_as_of_date IN DATE,
483: p_business_group_id IN NUMBER,
484: p_return_status OUT NOCOPY VARCHAR2,
503: Begin
504:
505: -- Standard call to check for call compatibility.
506:
507: if not FND_API.Compatible_API_Call (l_api_version,
508: p_api_version,
509: l_api_name,
510: G_PKG_NAME)
511: then
508: p_api_version,
509: l_api_name,
510: G_PKG_NAME)
511: then
512: raise FND_API.G_EXC_UNEXPECTED_ERROR;
513: end if;
514:
515: -- Initialize message list if p_init_msg_list is set to TRUE.
516:
513: end if;
514:
515: -- Initialize message list if p_init_msg_list is set to TRUE.
516:
517: if FND_API.to_Boolean (p_init_msg_list) then
518: FND_MSG_PUB.initialize;
519: end if;
520:
521: -- Initialize API return status to success
519: end if;
520:
521: -- Initialize API return status to success
522:
523: p_return_status := FND_API.G_RET_STS_SUCCESS;
524:
525: -- API body
526:
527:
577: p_data => p_msg_data);
578: COMMIT WORK;
579:
580: EXCEPTION
581: when FND_API.G_EXC_ERROR then
582:
583: p_return_status := FND_API.G_RET_STS_ERROR;
584:
585: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
579:
580: EXCEPTION
581: when FND_API.G_EXC_ERROR then
582:
583: p_return_status := FND_API.G_RET_STS_ERROR;
584:
585: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
586: p_data => p_msg_data);
587:
585: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
586: p_data => p_msg_data);
587:
588:
589: when FND_API.G_EXC_UNEXPECTED_ERROR then
590:
591: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592:
593: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
587:
588:
589: when FND_API.G_EXC_UNEXPECTED_ERROR then
590:
591: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592:
593: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
594: p_data => p_msg_data);
595:
595:
596:
597: when OTHERS then
598:
599: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
600:
601: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
602:
603: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
665: p_concurrency_class => 'DATAEXTRACT_CREATION',
666: p_concurrency_entity_name => 'DATA_EXTRACT',
667: p_concurrency_entity_id => p_data_extract_id);
668:
669: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
670: raise FND_API.G_EXC_ERROR;
671: end if;
672:
673:
666: p_concurrency_entity_name => 'DATA_EXTRACT',
667: p_concurrency_entity_id => p_data_extract_id);
668:
669: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
670: raise FND_API.G_EXC_ERROR;
671: end if;
672:
673:
674: PSB_WRHR_EXTRACT_PROCESS.Perform_Data_Extract
672:
673:
674: PSB_WRHR_EXTRACT_PROCESS.Perform_Data_Extract
675: ( p_api_version => 1.0,
676: p_init_msg_list => FND_API.G_TRUE,
677: p_commit => FND_API.G_TRUE,
678: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
679: p_return_status => l_return_status,
680: p_msg_count => l_msg_count,
673:
674: PSB_WRHR_EXTRACT_PROCESS.Perform_Data_Extract
675: ( p_api_version => 1.0,
676: p_init_msg_list => FND_API.G_TRUE,
677: p_commit => FND_API.G_TRUE,
678: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
679: p_return_status => l_return_status,
680: p_msg_count => l_msg_count,
681: p_msg_data => l_msg_data,
674: PSB_WRHR_EXTRACT_PROCESS.Perform_Data_Extract
675: ( p_api_version => 1.0,
676: p_init_msg_list => FND_API.G_TRUE,
677: p_commit => FND_API.G_TRUE,
678: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
679: p_return_status => l_return_status,
680: p_msg_count => l_msg_count,
681: p_msg_data => l_msg_data,
682: p_data_extract_id => p_data_extract_id
681: p_msg_data => l_msg_data,
682: p_data_extract_id => p_data_extract_id
683: ) ;
684:
685: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
686: raise FND_API.G_EXC_ERROR;
687: END IF;
688: --
689:
682: p_data_extract_id => p_data_extract_id
683: ) ;
684:
685: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
686: raise FND_API.G_EXC_ERROR;
687: END IF;
688: --
689:
690: PSB_CONCURRENCY_CONTROL_PVT.Release_Concurrency_Control
693: p_concurrency_class => 'DATAEXTRACT_CREATION',
694: p_concurrency_entity_name => 'DATA_EXTRACT',
695: p_concurrency_entity_id => p_data_extract_id);
696:
697: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
698: raise FND_API.G_EXC_ERROR;
699: end if;
700:
701: PSB_MESSAGE_S.Print_Success;
694: p_concurrency_entity_name => 'DATA_EXTRACT',
695: p_concurrency_entity_id => p_data_extract_id);
696:
697: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
698: raise FND_API.G_EXC_ERROR;
699: end if;
700:
701: PSB_MESSAGE_S.Print_Success;
702: PSB_MESSAGE_S.Print_Error( p_mode => FND_FILE.OUTPUT,
699: end if;
700:
701: PSB_MESSAGE_S.Print_Success;
702: PSB_MESSAGE_S.Print_Error( p_mode => FND_FILE.OUTPUT,
703: p_print_header => FND_API.G_FALSE);
704: retcode := 0 ;
705: --
706: COMMIT WORK;
707:
706: COMMIT WORK;
707:
708: EXCEPTION
709:
710: WHEN FND_API.G_EXC_ERROR THEN
711: --
712:
713: PSB_CONCURRENCY_CONTROL_PVT.Release_Concurrency_Control
714: (p_api_version => 1.0 ,
718: p_concurrency_entity_id => p_data_extract_id);
719:
720:
721: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
722: p_print_header => FND_API.G_TRUE );
723: retcode := 2 ;
724: COMMIT WORK ;
725: --
726: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
722: p_print_header => FND_API.G_TRUE );
723: retcode := 2 ;
724: COMMIT WORK ;
725: --
726: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
727: --
728:
729: PSB_CONCURRENCY_CONTROL_PVT.Release_Concurrency_Control
730: (p_api_version => 1.0 ,
733: p_concurrency_entity_name => 'DATA_EXTRACT',
734: p_concurrency_entity_id => p_data_extract_id);
735:
736: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
737: p_print_header => FND_API.G_TRUE );
738: retcode := 2 ;
739: COMMIT WORK ;
740: --
741: WHEN OTHERS THEN
754: l_api_name ) ;
755: END IF ;
756: --
757: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
758: p_print_header => FND_API.G_TRUE );
759: --
760: retcode := 2 ;
761: COMMIT WORK ;
762:
827: ) then
828:
829: PSB_BUDGET_POSITION_PVT.Populate_Budget_Positions
830: (p_api_version => 1.0,
831: p_commit => FND_API.G_TRUE,
832: p_return_status => l_return_status,
833: p_msg_count => l_msg_count,
834: p_msg_data => l_msg_data,
835: p_data_extract_id => p_data_extract_id);
833: p_msg_count => l_msg_count,
834: p_msg_data => l_msg_data,
835: p_data_extract_id => p_data_extract_id);
836:
837: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
838: raise FND_API.G_EXC_ERROR;
839: end if;
840: end if;
841:
834: p_msg_data => l_msg_data,
835: p_data_extract_id => p_data_extract_id);
836:
837: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
838: raise FND_API.G_EXC_ERROR;
839: end if;
840: end if;
841:
842: if ( (p_request_set_flag = 'Y') and (l_default_data_flag = 'Y') ) then -- for Pre MPA DE
849: p_concurrency_class => 'DATAEXTRACT_CREATION',
850: p_concurrency_entity_name => 'DATA_EXTRACT',
851: p_concurrency_entity_id => p_data_extract_id);
852:
853: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
854: raise FND_API.G_EXC_ERROR;
855: end if;
856:
857: -- Bug 4649730 removed the extra in parameter p_ruleset_id
850: p_concurrency_entity_name => 'DATA_EXTRACT',
851: p_concurrency_entity_id => p_data_extract_id);
852:
853: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
854: raise FND_API.G_EXC_ERROR;
855: end if;
856:
857: -- Bug 4649730 removed the extra in parameter p_ruleset_id
858: PSB_HR_POPULATE_DATA_PVT.Apply_Defaults
856:
857: -- Bug 4649730 removed the extra in parameter p_ruleset_id
858: PSB_HR_POPULATE_DATA_PVT.Apply_Defaults
859: ( p_api_version => 1.0,
860: p_init_msg_list => FND_API.G_FALSE,
861: p_commit => FND_API.G_FALSE,
862: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
863: p_return_status => l_return_status,
864: p_msg_count => l_msg_count,
857: -- Bug 4649730 removed the extra in parameter p_ruleset_id
858: PSB_HR_POPULATE_DATA_PVT.Apply_Defaults
859: ( p_api_version => 1.0,
860: p_init_msg_list => FND_API.G_FALSE,
861: p_commit => FND_API.G_FALSE,
862: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
863: p_return_status => l_return_status,
864: p_msg_count => l_msg_count,
865: p_msg_data => l_msg_data,
858: PSB_HR_POPULATE_DATA_PVT.Apply_Defaults
859: ( p_api_version => 1.0,
860: p_init_msg_list => FND_API.G_FALSE,
861: p_commit => FND_API.G_FALSE,
862: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
863: p_return_status => l_return_status,
864: p_msg_count => l_msg_count,
865: p_msg_data => l_msg_data,
866: p_data_extract_id => p_data_extract_id,
866: p_data_extract_id => p_data_extract_id,
867: p_extract_method => l_data_extract_method
868: );
869:
870: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
871: raise FND_API.G_EXC_ERROR;
872: END IF;
873:
874: PSB_CONCURRENCY_CONTROL_PVT.Release_Concurrency_Control
867: p_extract_method => l_data_extract_method
868: );
869:
870: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
871: raise FND_API.G_EXC_ERROR;
872: END IF;
873:
874: PSB_CONCURRENCY_CONTROL_PVT.Release_Concurrency_Control
875: (p_api_version => 1.0 ,
877: p_concurrency_class => 'DATAEXTRACT_CREATION',
878: p_concurrency_entity_name => 'DATA_EXTRACT',
879: p_concurrency_entity_id => p_data_extract_id);
880:
881: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
882: raise FND_API.G_EXC_ERROR;
883: end if;
884:
885: end if;
878: p_concurrency_entity_name => 'DATA_EXTRACT',
879: p_concurrency_entity_id => p_data_extract_id);
880:
881: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
882: raise FND_API.G_EXC_ERROR;
883: end if;
884:
885: end if;
886:
891: if (p_request_set_flag = 'N') then
892:
893: PSB_POSITIONS_PVT.Create_Default_Assignments(
894: p_api_version => 1.0,
895: p_init_msg_list => FND_API.G_TRUE,
896: p_commit => FND_API.G_TRUE,
897: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
898: p_return_status => l_return_status,
899: p_msg_count => l_msg_count,
892:
893: PSB_POSITIONS_PVT.Create_Default_Assignments(
894: p_api_version => 1.0,
895: p_init_msg_list => FND_API.G_TRUE,
896: p_commit => FND_API.G_TRUE,
897: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
898: p_return_status => l_return_status,
899: p_msg_count => l_msg_count,
900: p_msg_data => l_msg_data,
893: PSB_POSITIONS_PVT.Create_Default_Assignments(
894: p_api_version => 1.0,
895: p_init_msg_list => FND_API.G_TRUE,
896: p_commit => FND_API.G_TRUE,
897: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
898: p_return_status => l_return_status,
899: p_msg_count => l_msg_count,
900: p_msg_data => l_msg_data,
901: p_data_extract_id => p_data_extract_id,
900: p_msg_data => l_msg_data,
901: p_data_extract_id => p_data_extract_id,
902: p_ruleset_id => p_ruleset_id) ; --1308558
903:
904: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
905: raise FND_API.G_EXC_ERROR;
906: END IF;
907:
908: end if;
901: p_data_extract_id => p_data_extract_id,
902: p_ruleset_id => p_ruleset_id) ; --1308558
903:
904: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
905: raise FND_API.G_EXC_ERROR;
906: END IF;
907:
908: end if;
909: --
931: l_api_name ) ;
932: END IF ;
933: --
934: PSB_MESSAGE_S.Print_Error( p_mode => FND_FILE.LOG,
935: p_print_header => FND_API.G_TRUE);
936: --
937: retcode := 2 ;
938: --
939: END Assign_Position_Defaults_CP;
995:
996: END add_message;
997:
998: PROCEDURE Pre_Create_Data_Extract( p_api_version IN NUMBER,
999: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1000: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1001: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1002: p_return_status OUT NOCOPY VARCHAR2,
1003: p_msg_count OUT NOCOPY NUMBER,
996: END add_message;
997:
998: PROCEDURE Pre_Create_Data_Extract( p_api_version IN NUMBER,
999: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1000: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1001: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1002: p_return_status OUT NOCOPY VARCHAR2,
1003: p_msg_count OUT NOCOPY NUMBER,
1004: p_msg_data OUT NOCOPY VARCHAR2,
997:
998: PROCEDURE Pre_Create_Data_Extract( p_api_version IN NUMBER,
999: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1000: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1001: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1002: p_return_status OUT NOCOPY VARCHAR2,
1003: p_msg_count OUT NOCOPY NUMBER,
1004: p_msg_data OUT NOCOPY VARCHAR2,
1005: p_data_extract_id IN NUMBER)
1035: l_extract_by_org VARCHAR2(1);
1036:
1037: BEGIN
1038:
1039: p_return_status := FND_API.G_RET_STS_SUCCESS;
1040:
1041: DELETE FROM PSB_ERROR_MESSAGES
1042: WHERE process_id = p_data_extract_id;
1043:
1078: p_return_status => l_return_status,
1079: p_msg_count => l_msg_count,
1080: p_msg_data => l_msg_data);
1081:
1082: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1083: raise FND_API.G_EXC_ERROR;
1084: end if;
1085: end if;
1086:
1079: p_msg_count => l_msg_count,
1080: p_msg_data => l_msg_data);
1081:
1082: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1083: raise FND_API.G_EXC_ERROR;
1084: end if;
1085: end if;
1086:
1087: message_token('DATA_EXTRACT_NAME',g_data_extract_name);
1089:
1090: FND_FILE.Put_Line( FND_FILE.OUTPUT,
1091: 'Processing the given Data Extract : ' ||g_data_extract_name);
1092:
1093: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1094: raise FND_API.G_EXC_ERROR;
1095: end if;
1096:
1097:
1090: FND_FILE.Put_Line( FND_FILE.OUTPUT,
1091: 'Processing the given Data Extract : ' ||g_data_extract_name);
1092:
1093: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1094: raise FND_API.G_EXC_ERROR;
1095: end if;
1096:
1097:
1098: EXCEPTION
1096:
1097:
1098: EXCEPTION
1099:
1100: when FND_API.G_EXC_ERROR then
1101:
1102: p_return_status := FND_API.G_RET_STS_ERROR;
1103:
1104: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1098: EXCEPTION
1099:
1100: when FND_API.G_EXC_ERROR then
1101:
1102: p_return_status := FND_API.G_RET_STS_ERROR;
1103:
1104: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1105: p_data => p_msg_data);
1106:
1104: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1105: p_data => p_msg_data);
1106:
1107:
1108: when FND_API.G_EXC_UNEXPECTED_ERROR then
1109:
1110: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1111:
1112: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1106:
1107:
1108: when FND_API.G_EXC_UNEXPECTED_ERROR then
1109:
1110: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1111:
1112: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1113: p_data => p_msg_data);
1114:
1114:
1115:
1116: when OTHERS then
1117:
1118: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1119:
1120: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
1121:
1122: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1148:
1149: BEGIN
1150: Pre_Create_Data_Extract
1151: (p_api_version => 1.0,
1152: p_init_msg_list => FND_API.G_TRUE,
1153: p_commit => FND_API.G_TRUE,
1154: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1155: p_return_status => l_return_status,
1156: p_msg_count => l_msg_count,
1149: BEGIN
1150: Pre_Create_Data_Extract
1151: (p_api_version => 1.0,
1152: p_init_msg_list => FND_API.G_TRUE,
1153: p_commit => FND_API.G_TRUE,
1154: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1155: p_return_status => l_return_status,
1156: p_msg_count => l_msg_count,
1157: p_msg_data => l_msg_data,
1150: Pre_Create_Data_Extract
1151: (p_api_version => 1.0,
1152: p_init_msg_list => FND_API.G_TRUE,
1153: p_commit => FND_API.G_TRUE,
1154: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1155: p_return_status => l_return_status,
1156: p_msg_count => l_msg_count,
1157: p_msg_data => l_msg_data,
1158: p_data_extract_id => p_data_extract_id);
1156: p_msg_count => l_msg_count,
1157: p_msg_data => l_msg_data,
1158: p_data_extract_id => p_data_extract_id);
1159:
1160: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1161: raise FND_API.G_EXC_ERROR;
1162: end if;
1163:
1164: PSB_HR_EXTRACT_DATA_PVT.Final_Process;
1157: p_msg_data => l_msg_data,
1158: p_data_extract_id => p_data_extract_id);
1159:
1160: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1161: raise FND_API.G_EXC_ERROR;
1162: end if;
1163:
1164: PSB_HR_EXTRACT_DATA_PVT.Final_Process;
1165:
1168: IF l_msg_count > 0 THEN
1169:
1170: l_msg_data := FND_MSG_PUB.Get
1171: (p_msg_index => FND_MSG_PUB.G_NEXT,
1172: p_encoded => FND_API.G_FALSE);
1173:
1174: PSB_MESSAGE_S.INSERT_ERROR
1175: (p_source_process => 'DATA_EXTRACT_VALIDATION',
1176: p_process_id => p_data_extract_id,
1185: COMMIT WORK;
1186:
1187: EXCEPTION
1188:
1189: WHEN FND_API.G_EXC_ERROR THEN
1190: --
1191: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1192: p_print_header => FND_API.G_TRUE );
1193: retcode := 2 ;
1188:
1189: WHEN FND_API.G_EXC_ERROR THEN
1190: --
1191: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1192: p_print_header => FND_API.G_TRUE );
1193: retcode := 2 ;
1194: COMMIT WORK ;
1195: --
1196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1192: p_print_header => FND_API.G_TRUE );
1193: retcode := 2 ;
1194: COMMIT WORK ;
1195: --
1196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1197: --
1198: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1199: p_print_header => FND_API.G_TRUE );
1200: retcode := 2 ;
1195: --
1196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1197: --
1198: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1199: p_print_header => FND_API.G_TRUE );
1200: retcode := 2 ;
1201: COMMIT WORK ;
1202: --
1203: WHEN OTHERS THEN
1208: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
1209: l_api_name ) ;
1210: END IF ;
1211: --
1212: l_return_status := FND_API.G_RET_STS_ERROR;
1213:
1214: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1215: p_print_header => FND_API.G_TRUE );
1216: --
1211: --
1212: l_return_status := FND_API.G_RET_STS_ERROR;
1213:
1214: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1215: p_print_header => FND_API.G_TRUE );
1216: --
1217: retcode := 2 ;
1218: COMMIT WORK ;
1219: --
1259: p_concurrency_class => 'DATAEXTRACT_CREATION',
1260: p_concurrency_entity_name => 'DATA_EXTRACT',
1261: p_concurrency_entity_id => p_data_extract_id);
1262:
1263: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1264: raise FND_API.G_EXC_ERROR;
1265: end if;
1266:
1267: PSB_COPY_DATA_EXTRACT_PVT.Copy_Attributes
1260: p_concurrency_entity_name => 'DATA_EXTRACT',
1261: p_concurrency_entity_id => p_data_extract_id);
1262:
1263: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1264: raise FND_API.G_EXC_ERROR;
1265: end if;
1266:
1267: PSB_COPY_DATA_EXTRACT_PVT.Copy_Attributes
1268: (p_api_version => 1.0,
1265: end if;
1266:
1267: PSB_COPY_DATA_EXTRACT_PVT.Copy_Attributes
1268: (p_api_version => 1.0,
1269: p_init_msg_list => FND_API.G_TRUE,
1270: p_commit => FND_API.G_TRUE,
1271: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1272: p_return_status => l_return_status,
1273: p_msg_count => l_msg_count,
1266:
1267: PSB_COPY_DATA_EXTRACT_PVT.Copy_Attributes
1268: (p_api_version => 1.0,
1269: p_init_msg_list => FND_API.G_TRUE,
1270: p_commit => FND_API.G_TRUE,
1271: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1272: p_return_status => l_return_status,
1273: p_msg_count => l_msg_count,
1274: p_msg_data => l_msg_data,
1267: PSB_COPY_DATA_EXTRACT_PVT.Copy_Attributes
1268: (p_api_version => 1.0,
1269: p_init_msg_list => FND_API.G_TRUE,
1270: p_commit => FND_API.G_TRUE,
1271: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1272: p_return_status => l_return_status,
1273: p_msg_count => l_msg_count,
1274: p_msg_data => l_msg_data,
1275: p_extract_method => p_data_extract_method,
1276: p_src_data_extract_id => p_copy_data_extract_id,
1277: p_data_extract_id => p_data_extract_id
1278: );
1279:
1280: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1281: FND_FILE.put_line(FND_FILE.LOG,'Copy Attribute Values Failed');
1282: end if;
1283:
1284:
1288: p_concurrency_class => 'DATAEXTRACT_CREATION',
1289: p_concurrency_entity_name => 'DATA_EXTRACT',
1290: p_concurrency_entity_id => p_data_extract_id);
1291:
1292: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1293: raise FND_API.G_EXC_ERROR;
1294: end if;
1295:
1296: end if;
1289: p_concurrency_entity_name => 'DATA_EXTRACT',
1290: p_concurrency_entity_id => p_data_extract_id);
1291:
1292: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1293: raise FND_API.G_EXC_ERROR;
1294: end if;
1295:
1296: end if;
1297: end if;
1301: IF l_msg_count > 0 THEN
1302:
1303: l_msg_data := FND_MSG_PUB.Get
1304: (p_msg_index => FND_MSG_PUB.G_NEXT,
1305: p_encoded => FND_API.G_FALSE);
1306:
1307: PSB_MESSAGE_S.INSERT_ERROR
1308: (p_source_process => 'DATA_EXTRACT_VALIDATION',
1309: p_process_id => p_data_extract_id,
1319: COMMIT WORK;
1320:
1321: EXCEPTION
1322:
1323: WHEN FND_API.G_EXC_ERROR THEN
1324: --
1325: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1326: p_print_header => FND_API.G_TRUE );
1327: retcode := 2 ;
1322:
1323: WHEN FND_API.G_EXC_ERROR THEN
1324: --
1325: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1326: p_print_header => FND_API.G_TRUE );
1327: retcode := 2 ;
1328: COMMIT WORK ;
1329: --
1330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1326: p_print_header => FND_API.G_TRUE );
1327: retcode := 2 ;
1328: COMMIT WORK ;
1329: --
1330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1331: --
1332: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1333: p_print_header => FND_API.G_TRUE );
1334: retcode := 2 ;
1329: --
1330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1331: --
1332: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1333: p_print_header => FND_API.G_TRUE );
1334: retcode := 2 ;
1335: COMMIT WORK ;
1336: --
1337: WHEN OTHERS THEN
1342: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
1343: l_api_name ) ;
1344: END IF ;
1345: --
1346: l_return_status := FND_API.G_RET_STS_ERROR;
1347:
1348: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1349: p_print_header => FND_API.G_TRUE );
1350: --
1345: --
1346: l_return_status := FND_API.G_RET_STS_ERROR;
1347:
1348: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1349: p_print_header => FND_API.G_TRUE );
1350: --
1351: retcode := 2 ;
1352: COMMIT WORK ;
1353: --
1385: p_concurrency_class => 'DATAEXTRACT_CREATION',
1386: p_concurrency_entity_name => 'DATA_EXTRACT',
1387: p_concurrency_entity_id => p_data_extract_id);
1388:
1389: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1390: raise FND_API.G_EXC_ERROR;
1391: end if;
1392:
1393:
1386: p_concurrency_entity_name => 'DATA_EXTRACT',
1387: p_concurrency_entity_id => p_data_extract_id);
1388:
1389: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1390: raise FND_API.G_EXC_ERROR;
1391: end if;
1392:
1393:
1394: PSB_COPY_DATA_EXTRACT_PVT.Copy_Elements
1392:
1393:
1394: PSB_COPY_DATA_EXTRACT_PVT.Copy_Elements
1395: ( p_api_version => 1.0,
1396: p_init_msg_list => FND_API.G_TRUE,
1397: p_commit => FND_API.G_TRUE,
1398: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1399: p_return_status => l_return_status,
1400: p_msg_count => l_msg_count,
1393:
1394: PSB_COPY_DATA_EXTRACT_PVT.Copy_Elements
1395: ( p_api_version => 1.0,
1396: p_init_msg_list => FND_API.G_TRUE,
1397: p_commit => FND_API.G_TRUE,
1398: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1399: p_return_status => l_return_status,
1400: p_msg_count => l_msg_count,
1401: p_msg_data => l_msg_data,
1394: PSB_COPY_DATA_EXTRACT_PVT.Copy_Elements
1395: ( p_api_version => 1.0,
1396: p_init_msg_list => FND_API.G_TRUE,
1397: p_commit => FND_API.G_TRUE,
1398: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1399: p_return_status => l_return_status,
1400: p_msg_count => l_msg_count,
1401: p_msg_data => l_msg_data,
1402: p_extract_method => p_data_extract_method,
1404: p_copy_salary_flag => p_copy_salary_flag,
1405: p_data_extract_id => p_data_extract_id
1406: );
1407:
1408: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1409: FND_FILE.put_line(FND_FILE.LOG,'Copy Elements Failed');
1410: end if;
1411:
1412: PSB_CONCURRENCY_CONTROL_PVT.Release_Concurrency_Control
1415: p_concurrency_class => 'DATAEXTRACT_CREATION',
1416: p_concurrency_entity_name => 'DATA_EXTRACT',
1417: p_concurrency_entity_id => p_data_extract_id);
1418:
1419: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1420: raise FND_API.G_EXC_ERROR;
1421: end if;
1422:
1423: end if;
1416: p_concurrency_entity_name => 'DATA_EXTRACT',
1417: p_concurrency_entity_id => p_data_extract_id);
1418:
1419: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1420: raise FND_API.G_EXC_ERROR;
1421: end if;
1422:
1423: end if;
1424: end if;
1428: IF l_msg_count > 0 THEN
1429:
1430: l_msg_data := FND_MSG_PUB.Get
1431: (p_msg_index => FND_MSG_PUB.G_NEXT,
1432: p_encoded => FND_API.G_FALSE);
1433:
1434: PSB_MESSAGE_S.INSERT_ERROR
1435: (p_source_process => 'DATA_EXTRACT_VALIDATION',
1436: p_process_id => p_data_extract_id,
1443: retcode := 0 ;
1444:
1445: EXCEPTION
1446:
1447: WHEN FND_API.G_EXC_ERROR THEN
1448: --
1449: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1450: p_print_header => FND_API.G_TRUE );
1451: retcode := 2 ;
1446:
1447: WHEN FND_API.G_EXC_ERROR THEN
1448: --
1449: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1450: p_print_header => FND_API.G_TRUE );
1451: retcode := 2 ;
1452: COMMIT WORK ;
1453: --
1454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1450: p_print_header => FND_API.G_TRUE );
1451: retcode := 2 ;
1452: COMMIT WORK ;
1453: --
1454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1455: --
1456: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1457: p_print_header => FND_API.G_TRUE );
1458: retcode := 2 ;
1453: --
1454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1455: --
1456: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1457: p_print_header => FND_API.G_TRUE );
1458: retcode := 2 ;
1459: COMMIT WORK ;
1460: --
1461: WHEN OTHERS THEN
1466: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
1467: l_api_name ) ;
1468: END IF ;
1469: --
1470: l_return_status := FND_API.G_RET_STS_ERROR;
1471:
1472: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1473: p_print_header => FND_API.G_TRUE );
1474: --
1469: --
1470: l_return_status := FND_API.G_RET_STS_ERROR;
1471:
1472: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1473: p_print_header => FND_API.G_TRUE );
1474: --
1475: retcode := 2 ;
1476: COMMIT WORK ;
1477: --
1509: p_concurrency_class => 'DATAEXTRACT_CREATION',
1510: p_concurrency_entity_name => 'DATA_EXTRACT',
1511: p_concurrency_entity_id => p_data_extract_id);
1512:
1513: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1514: raise FND_API.G_EXC_ERROR;
1515: end if;
1516:
1517: PSB_COPY_DATA_EXTRACT_PVT.Copy_Position_Sets
1510: p_concurrency_entity_name => 'DATA_EXTRACT',
1511: p_concurrency_entity_id => p_data_extract_id);
1512:
1513: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1514: raise FND_API.G_EXC_ERROR;
1515: end if;
1516:
1517: PSB_COPY_DATA_EXTRACT_PVT.Copy_Position_Sets
1518: ( p_api_version => 1.0,
1515: end if;
1516:
1517: PSB_COPY_DATA_EXTRACT_PVT.Copy_Position_Sets
1518: ( p_api_version => 1.0,
1519: p_init_msg_list => FND_API.G_TRUE,
1520: p_commit => FND_API.G_TRUE,
1521: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1522: p_return_status => l_return_status,
1523: p_msg_count => l_msg_count,
1516:
1517: PSB_COPY_DATA_EXTRACT_PVT.Copy_Position_Sets
1518: ( p_api_version => 1.0,
1519: p_init_msg_list => FND_API.G_TRUE,
1520: p_commit => FND_API.G_TRUE,
1521: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1522: p_return_status => l_return_status,
1523: p_msg_count => l_msg_count,
1524: p_msg_data => l_msg_data,
1517: PSB_COPY_DATA_EXTRACT_PVT.Copy_Position_Sets
1518: ( p_api_version => 1.0,
1519: p_init_msg_list => FND_API.G_TRUE,
1520: p_commit => FND_API.G_TRUE,
1521: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1522: p_return_status => l_return_status,
1523: p_msg_count => l_msg_count,
1524: p_msg_data => l_msg_data,
1525: p_extract_method => p_data_extract_method,
1526: p_src_data_extract_id => p_copy_data_extract_id,
1527: p_data_extract_id => p_data_extract_id
1528: );
1529:
1530: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1531: FND_FILE.put_line(FND_FILE.LOG,'Copy Position Sets Failed');
1532: end if;
1533:
1534: PSB_CONCURRENCY_CONTROL_PVT.Release_Concurrency_Control
1537: p_concurrency_class => 'DATAEXTRACT_CREATION',
1538: p_concurrency_entity_name => 'DATA_EXTRACT',
1539: p_concurrency_entity_id => p_data_extract_id);
1540:
1541: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1542: raise FND_API.G_EXC_ERROR;
1543: end if;
1544:
1545: end if;
1538: p_concurrency_entity_name => 'DATA_EXTRACT',
1539: p_concurrency_entity_id => p_data_extract_id);
1540:
1541: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1542: raise FND_API.G_EXC_ERROR;
1543: end if;
1544:
1545: end if;
1546: end if;
1550: IF l_msg_count > 0 THEN
1551:
1552: l_msg_data := FND_MSG_PUB.Get
1553: (p_msg_index => FND_MSG_PUB.G_NEXT,
1554: p_encoded => FND_API.G_FALSE);
1555:
1556: PSB_MESSAGE_S.INSERT_ERROR
1557: (p_source_process => 'DATA_EXTRACT_VALIDATION',
1558: p_process_id => p_data_extract_id,
1565: retcode := 0 ;
1566:
1567: EXCEPTION
1568:
1569: WHEN FND_API.G_EXC_ERROR THEN
1570: --
1571: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1572: p_print_header => FND_API.G_TRUE );
1573: retcode := 2 ;
1568:
1569: WHEN FND_API.G_EXC_ERROR THEN
1570: --
1571: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1572: p_print_header => FND_API.G_TRUE );
1573: retcode := 2 ;
1574: COMMIT WORK ;
1575: --
1576: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1572: p_print_header => FND_API.G_TRUE );
1573: retcode := 2 ;
1574: COMMIT WORK ;
1575: --
1576: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1577: --
1578: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1579: p_print_header => FND_API.G_TRUE );
1580: retcode := 2 ;
1575: --
1576: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1577: --
1578: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1579: p_print_header => FND_API.G_TRUE );
1580: retcode := 2 ;
1581: COMMIT WORK ;
1582: --
1583: WHEN OTHERS THEN
1588: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
1589: l_api_name ) ;
1590: END IF ;
1591: --
1592: l_return_status := FND_API.G_RET_STS_ERROR;
1593:
1594: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1595: p_print_header => FND_API.G_TRUE );
1596: --
1591: --
1592: l_return_status := FND_API.G_RET_STS_ERROR;
1593:
1594: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1595: p_print_header => FND_API.G_TRUE );
1596: --
1597: retcode := 2 ;
1598: COMMIT WORK ;
1599: --
1632: p_concurrency_class => 'DATAEXTRACT_CREATION',
1633: p_concurrency_entity_name => 'DATA_EXTRACT',
1634: p_concurrency_entity_id => p_data_extract_id);
1635:
1636: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1637: raise FND_API.G_EXC_ERROR;
1638: end if;
1639:
1640: PSB_COPY_DATA_EXTRACT_PVT.Copy_Default_Rules
1633: p_concurrency_entity_name => 'DATA_EXTRACT',
1634: p_concurrency_entity_id => p_data_extract_id);
1635:
1636: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1637: raise FND_API.G_EXC_ERROR;
1638: end if;
1639:
1640: PSB_COPY_DATA_EXTRACT_PVT.Copy_Default_Rules
1641: ( p_api_version => 1.0,
1638: end if;
1639:
1640: PSB_COPY_DATA_EXTRACT_PVT.Copy_Default_Rules
1641: ( p_api_version => 1.0,
1642: p_init_msg_list => FND_API.G_TRUE,
1643: p_commit => FND_API.G_TRUE,
1644: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1645: p_return_status => l_return_status,
1646: p_msg_count => l_msg_count,
1639:
1640: PSB_COPY_DATA_EXTRACT_PVT.Copy_Default_Rules
1641: ( p_api_version => 1.0,
1642: p_init_msg_list => FND_API.G_TRUE,
1643: p_commit => FND_API.G_TRUE,
1644: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1645: p_return_status => l_return_status,
1646: p_msg_count => l_msg_count,
1647: p_msg_data => l_msg_data,
1640: PSB_COPY_DATA_EXTRACT_PVT.Copy_Default_Rules
1641: ( p_api_version => 1.0,
1642: p_init_msg_list => FND_API.G_TRUE,
1643: p_commit => FND_API.G_TRUE,
1644: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1645: p_return_status => l_return_status,
1646: p_msg_count => l_msg_count,
1647: p_msg_data => l_msg_data,
1648: p_extract_method => p_data_extract_method,
1649: p_src_data_extract_id => p_copy_data_extract_id,
1650: p_data_extract_id => p_data_extract_id
1651: );
1652:
1653: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1654: FND_FILE.put_line(FND_FILE.LOG,'Copy Default Rules Failed');
1655: end if;
1656:
1657: PSB_CONCURRENCY_CONTROL_PVT.Release_Concurrency_Control
1660: p_concurrency_class => 'DATAEXTRACT_CREATION',
1661: p_concurrency_entity_name => 'DATA_EXTRACT',
1662: p_concurrency_entity_id => p_data_extract_id);
1663:
1664: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1665: raise FND_API.G_EXC_ERROR;
1666: end if;
1667: end if;
1668: end if;
1661: p_concurrency_entity_name => 'DATA_EXTRACT',
1662: p_concurrency_entity_id => p_data_extract_id);
1663:
1664: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1665: raise FND_API.G_EXC_ERROR;
1666: end if;
1667: end if;
1668: end if;
1669:
1672: IF l_msg_count > 0 THEN
1673:
1674: l_msg_data := FND_MSG_PUB.Get
1675: (p_msg_index => FND_MSG_PUB.G_NEXT,
1676: p_encoded => FND_API.G_FALSE);
1677:
1678: PSB_MESSAGE_S.INSERT_ERROR
1679: (p_source_process => 'DATA_EXTRACT_VALIDATION',
1680: p_process_id => p_data_extract_id,
1686: retcode := 0 ;
1687:
1688: EXCEPTION
1689:
1690: WHEN FND_API.G_EXC_ERROR THEN
1691: --
1692: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1693: p_print_header => FND_API.G_TRUE );
1694: retcode := 2 ;
1689:
1690: WHEN FND_API.G_EXC_ERROR THEN
1691: --
1692: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1693: p_print_header => FND_API.G_TRUE );
1694: retcode := 2 ;
1695: COMMIT WORK ;
1696: --
1697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1693: p_print_header => FND_API.G_TRUE );
1694: retcode := 2 ;
1695: COMMIT WORK ;
1696: --
1697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1698: --
1699: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1700: p_print_header => FND_API.G_TRUE );
1701: retcode := 2 ;
1696: --
1697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1698: --
1699: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1700: p_print_header => FND_API.G_TRUE );
1701: retcode := 2 ;
1702: COMMIT WORK ;
1703: --
1704: WHEN OTHERS THEN
1709: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
1710: l_api_name ) ;
1711: END IF ;
1712: --
1713: l_return_status := FND_API.G_RET_STS_ERROR;
1714:
1715: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1716: p_print_header => FND_API.G_TRUE );
1717: --
1712: --
1713: l_return_status := FND_API.G_RET_STS_ERROR;
1714:
1715: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1716: p_print_header => FND_API.G_TRUE );
1717: --
1718: retcode := 2 ;
1719: COMMIT WORK ;
1720: --
1758: PSB_HR_EXTRACT_DATA_PVT.Init(l_effective_date);
1759:
1760: PSB_HR_EXTRACT_DATA_PVT.Get_Position_Information
1761: ( p_api_version => 1.0,
1762: p_init_msg_list => FND_API.G_TRUE,
1763: p_commit => FND_API.G_TRUE,
1764: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1765: p_return_status => l_return_status,
1766: p_msg_count => l_msg_count,
1759:
1760: PSB_HR_EXTRACT_DATA_PVT.Get_Position_Information
1761: ( p_api_version => 1.0,
1762: p_init_msg_list => FND_API.G_TRUE,
1763: p_commit => FND_API.G_TRUE,
1764: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1765: p_return_status => l_return_status,
1766: p_msg_count => l_msg_count,
1767: p_msg_data => l_msg_data,
1760: PSB_HR_EXTRACT_DATA_PVT.Get_Position_Information
1761: ( p_api_version => 1.0,
1762: p_init_msg_list => FND_API.G_TRUE,
1763: p_commit => FND_API.G_TRUE,
1764: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1765: p_return_status => l_return_status,
1766: p_msg_count => l_msg_count,
1767: p_msg_data => l_msg_data,
1768: p_data_extract_id => p_data_extract_id,
1774: p_business_group_id => p_business_group_id,
1775: p_set_of_books_id => p_set_of_books_id
1776: );
1777:
1778: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1779: FND_FILE.put_line(FND_FILE.LOG,'Get Position Information Failed');
1780: end if;
1781:
1782: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
1780: end if;
1781:
1782: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
1783: ( p_api_version => 1.0,
1784: p_init_msg_list => FND_API.G_FALSE,
1785: p_commit => FND_API.G_TRUE,
1786: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1787: x_return_status => l_return_status,
1788: x_msg_count => l_msg_count,
1781:
1782: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
1783: ( p_api_version => 1.0,
1784: p_init_msg_list => FND_API.G_FALSE,
1785: p_commit => FND_API.G_TRUE,
1786: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1787: x_return_status => l_return_status,
1788: x_msg_count => l_msg_count,
1789: x_msg_data => l_msg_data,
1782: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
1783: ( p_api_version => 1.0,
1784: p_init_msg_list => FND_API.G_FALSE,
1785: p_commit => FND_API.G_TRUE,
1786: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1787: x_return_status => l_return_status,
1788: x_msg_count => l_msg_count,
1789: x_msg_data => l_msg_data,
1790: p_data_extract_id => p_data_extract_id,
1790: p_data_extract_id => p_data_extract_id,
1791: p_mode => 'P'
1792: );
1793:
1794: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1795: FND_FILE.put_line(FND_FILE.LOG,'The Client Extension for Position Interface Failed');
1796: raise FND_API.G_EXC_ERROR;
1797: end if;
1798:
1792: );
1793:
1794: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1795: FND_FILE.put_line(FND_FILE.LOG,'The Client Extension for Position Interface Failed');
1796: raise FND_API.G_EXC_ERROR;
1797: end if;
1798:
1799: end if;
1800: end if;
1807: p_concurrency_class => 'DATAEXTRACT_CREATION',
1808: p_concurrency_entity_name => 'DATA_EXTRACT',
1809: p_concurrency_entity_id => p_data_extract_id);
1810:
1811: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1812: raise FND_API.G_EXC_ERROR;
1813: end if;
1814:
1815: PSB_HR_POPULATE_DATA_PVT.Populate_Position_Information
1808: p_concurrency_entity_name => 'DATA_EXTRACT',
1809: p_concurrency_entity_id => p_data_extract_id);
1810:
1811: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1812: raise FND_API.G_EXC_ERROR;
1813: end if;
1814:
1815: PSB_HR_POPULATE_DATA_PVT.Populate_Position_Information
1816: ( p_api_version => 1.0,
1813: end if;
1814:
1815: PSB_HR_POPULATE_DATA_PVT.Populate_Position_Information
1816: ( p_api_version => 1.0,
1817: p_init_msg_list => FND_API.G_FALSE,
1818: p_commit => FND_API.G_TRUE,
1819: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1820: p_return_status => l_return_status,
1821: p_msg_count => l_msg_count,
1814:
1815: PSB_HR_POPULATE_DATA_PVT.Populate_Position_Information
1816: ( p_api_version => 1.0,
1817: p_init_msg_list => FND_API.G_FALSE,
1818: p_commit => FND_API.G_TRUE,
1819: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1820: p_return_status => l_return_status,
1821: p_msg_count => l_msg_count,
1822: p_msg_data => l_msg_data,
1815: PSB_HR_POPULATE_DATA_PVT.Populate_Position_Information
1816: ( p_api_version => 1.0,
1817: p_init_msg_list => FND_API.G_FALSE,
1818: p_commit => FND_API.G_TRUE,
1819: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1820: p_return_status => l_return_status,
1821: p_msg_count => l_msg_count,
1822: p_msg_data => l_msg_data,
1823: p_data_extract_id => p_data_extract_id,
1827: p_business_group_id => p_business_group_id,
1828: p_set_of_books_id => p_set_of_books_id
1829: );
1830:
1831: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1832: FND_FILE.put_line(FND_FILE.LOG,'Populate Position Failed');
1833:
1834: end if;
1835:
1839: p_concurrency_class => 'DATAEXTRACT_CREATION',
1840: p_concurrency_entity_name => 'DATA_EXTRACT',
1841: p_concurrency_entity_id => p_data_extract_id);
1842:
1843: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1844: raise FND_API.G_EXC_ERROR;
1845: end if;
1846: end if;
1847: end if;
1840: p_concurrency_entity_name => 'DATA_EXTRACT',
1841: p_concurrency_entity_id => p_data_extract_id);
1842:
1843: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1844: raise FND_API.G_EXC_ERROR;
1845: end if;
1846: end if;
1847: end if;
1848:
1853: IF l_msg_count > 0 THEN
1854:
1855: l_msg_data := FND_MSG_PUB.Get
1856: (p_msg_index => FND_MSG_PUB.G_NEXT,
1857: p_encoded => FND_API.G_FALSE);
1858:
1859: PSB_MESSAGE_S.INSERT_ERROR
1860: (p_source_process => 'DATA_EXTRACT_VALIDATION',
1861: p_process_id => p_data_extract_id,
1869: COMMIT WORK ;
1870:
1871: EXCEPTION
1872:
1873: WHEN FND_API.G_EXC_ERROR THEN
1874: --
1875: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1876: p_print_header => FND_API.G_TRUE );
1877: retcode := 2 ;
1872:
1873: WHEN FND_API.G_EXC_ERROR THEN
1874: --
1875: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1876: p_print_header => FND_API.G_TRUE );
1877: retcode := 2 ;
1878: COMMIT WORK ;
1879: --
1880: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1876: p_print_header => FND_API.G_TRUE );
1877: retcode := 2 ;
1878: COMMIT WORK ;
1879: --
1880: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1881: --
1882: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1883: p_print_header => FND_API.G_TRUE );
1884: retcode := 2 ;
1879: --
1880: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1881: --
1882: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1883: p_print_header => FND_API.G_TRUE );
1884: retcode := 2 ;
1885: COMMIT WORK ;
1886: --
1887: WHEN OTHERS THEN
1894: END IF ;
1895: --
1896:
1897: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1898: p_print_header => FND_API.G_TRUE );
1899: --
1900: retcode := 2 ;
1901: COMMIT WORK ;
1902: --
1946: PSB_HR_EXTRACT_DATA_PVT.Init(l_effective_date);
1947:
1948: PSB_HR_EXTRACT_DATA_PVT.Get_Salary_Information
1949: ( p_api_version => 1.0,
1950: p_init_msg_list => FND_API.G_TRUE,
1951: p_commit => FND_API.G_TRUE,
1952: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1953: p_return_status => l_return_status,
1954: p_msg_count => l_msg_count,
1947:
1948: PSB_HR_EXTRACT_DATA_PVT.Get_Salary_Information
1949: ( p_api_version => 1.0,
1950: p_init_msg_list => FND_API.G_TRUE,
1951: p_commit => FND_API.G_TRUE,
1952: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1953: p_return_status => l_return_status,
1954: p_msg_count => l_msg_count,
1955: p_msg_data => l_msg_data,
1948: PSB_HR_EXTRACT_DATA_PVT.Get_Salary_Information
1949: ( p_api_version => 1.0,
1950: p_init_msg_list => FND_API.G_TRUE,
1951: p_commit => FND_API.G_TRUE,
1952: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1953: p_return_status => l_return_status,
1954: p_msg_count => l_msg_count,
1955: p_msg_data => l_msg_data,
1956: p_data_extract_id => p_data_extract_id,
1957: p_extract_method => p_data_extract_method,
1958: p_business_group_id => p_business_group_id
1959: );
1960:
1961: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1962: FND_FILE.put_line(FND_FILE.LOG,'Get Salary Information Failed');
1963: raise FND_API.G_EXC_ERROR;
1964: end if;
1965:
1959: );
1960:
1961: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1962: FND_FILE.put_line(FND_FILE.LOG,'Get Salary Information Failed');
1963: raise FND_API.G_EXC_ERROR;
1964: end if;
1965:
1966: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
1967: ( p_api_version => 1.0,
1964: end if;
1965:
1966: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
1967: ( p_api_version => 1.0,
1968: p_init_msg_list => FND_API.G_FALSE,
1969: p_commit => FND_API.G_TRUE,
1970: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1971: x_return_status => l_return_status,
1972: x_msg_count => l_msg_count,
1965:
1966: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
1967: ( p_api_version => 1.0,
1968: p_init_msg_list => FND_API.G_FALSE,
1969: p_commit => FND_API.G_TRUE,
1970: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1971: x_return_status => l_return_status,
1972: x_msg_count => l_msg_count,
1973: x_msg_data => l_msg_data,
1966: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
1967: ( p_api_version => 1.0,
1968: p_init_msg_list => FND_API.G_FALSE,
1969: p_commit => FND_API.G_TRUE,
1970: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1971: x_return_status => l_return_status,
1972: x_msg_count => l_msg_count,
1973: x_msg_data => l_msg_data,
1974: p_data_extract_id => p_data_extract_id,
1974: p_data_extract_id => p_data_extract_id,
1975: p_mode => 'S'
1976: );
1977:
1978: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1979: FND_FILE.put_line(FND_FILE.LOG,'The Client Extension for Salary Interface Failed');
1980: raise FND_API.G_EXC_ERROR;
1981: end if;
1982:
1976: );
1977:
1978: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1979: FND_FILE.put_line(FND_FILE.LOG,'The Client Extension for Salary Interface Failed');
1980: raise FND_API.G_EXC_ERROR;
1981: end if;
1982:
1983: end if;
1984: end if;
1992: p_concurrency_class => 'DATAEXTRACT_CREATION',
1993: p_concurrency_entity_name => 'DATA_EXTRACT',
1994: p_concurrency_entity_id => p_data_extract_id);
1995:
1996: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1997: raise FND_API.G_EXC_ERROR;
1998: end if;
1999:
2000: PSB_HR_POPULATE_DATA_PVT.Populate_Element_Information
1993: p_concurrency_entity_name => 'DATA_EXTRACT',
1994: p_concurrency_entity_id => p_data_extract_id);
1995:
1996: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1997: raise FND_API.G_EXC_ERROR;
1998: end if;
1999:
2000: PSB_HR_POPULATE_DATA_PVT.Populate_Element_Information
2001: ( p_api_version => 1.0,
1998: end if;
1999:
2000: PSB_HR_POPULATE_DATA_PVT.Populate_Element_Information
2001: ( p_api_version => 1.0,
2002: p_init_msg_list => FND_API.G_FALSE,
2003: p_commit => FND_API.G_TRUE,
2004: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2005: p_return_status => l_return_status,
2006: p_msg_count => l_msg_count,
1999:
2000: PSB_HR_POPULATE_DATA_PVT.Populate_Element_Information
2001: ( p_api_version => 1.0,
2002: p_init_msg_list => FND_API.G_FALSE,
2003: p_commit => FND_API.G_TRUE,
2004: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2005: p_return_status => l_return_status,
2006: p_msg_count => l_msg_count,
2007: p_msg_data => l_msg_data,
2000: PSB_HR_POPULATE_DATA_PVT.Populate_Element_Information
2001: ( p_api_version => 1.0,
2002: p_init_msg_list => FND_API.G_FALSE,
2003: p_commit => FND_API.G_TRUE,
2004: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2005: p_return_status => l_return_status,
2006: p_msg_count => l_msg_count,
2007: p_msg_data => l_msg_data,
2008: p_data_extract_id => p_data_extract_id,
2010: p_business_group_id => p_business_group_id,
2011: p_set_of_books_id => p_set_of_books_id
2012: );
2013:
2014: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2015: FND_FILE.put_line(FND_FILE.LOG,'Populate Elements Failed');
2016: raise FND_API.G_EXC_ERROR;
2017: end if;
2018:
2012: );
2013:
2014: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2015: FND_FILE.put_line(FND_FILE.LOG,'Populate Elements Failed');
2016: raise FND_API.G_EXC_ERROR;
2017: end if;
2018:
2019: PSB_CONCURRENCY_CONTROL_PVT.Release_Concurrency_Control
2020: (p_api_version => 1.0 ,
2022: p_concurrency_class => 'DATAEXTRACT_CREATION',
2023: p_concurrency_entity_name => 'DATA_EXTRACT',
2024: p_concurrency_entity_id => p_data_extract_id);
2025:
2026: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2027: raise FND_API.G_EXC_ERROR;
2028: end if;
2029: end if;
2030: end if;
2023: p_concurrency_entity_name => 'DATA_EXTRACT',
2024: p_concurrency_entity_id => p_data_extract_id);
2025:
2026: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2027: raise FND_API.G_EXC_ERROR;
2028: end if;
2029: end if;
2030: end if;
2031:
2036: IF l_msg_count > 0 THEN
2037:
2038: l_msg_data := FND_MSG_PUB.Get
2039: (p_msg_index => FND_MSG_PUB.G_NEXT,
2040: p_encoded => FND_API.G_FALSE);
2041:
2042: PSB_MESSAGE_S.INSERT_ERROR
2043: (p_source_process => 'DATA_EXTRACT_VALIDATION',
2044: p_process_id => p_data_extract_id,
2052: COMMIT WORK;
2053:
2054: EXCEPTION
2055:
2056: WHEN FND_API.G_EXC_ERROR THEN
2057: --
2058: FND_MSG_PUB.Count_And_Get ( p_count => l_msg_count,
2059: p_data => l_msg_data );
2060: IF l_msg_count > 0 THEN
2060: IF l_msg_count > 0 THEN
2061:
2062: l_msg_data := FND_MSG_PUB.Get
2063: (p_msg_index => FND_MSG_PUB.G_NEXT,
2064: p_encoded => FND_API.G_FALSE);
2065:
2066: PSB_MESSAGE_S.INSERT_ERROR
2067: (p_source_process => 'DATA_EXTRACT_VALIDATION',
2068: p_process_id => p_data_extract_id,
2071:
2072: END IF;
2073:
2074: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2075: p_print_header => FND_API.G_TRUE );
2076: retcode := 2 ;
2077: COMMIT WORK ;
2078: --
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2075: p_print_header => FND_API.G_TRUE );
2076: retcode := 2 ;
2077: COMMIT WORK ;
2078: --
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2080: --
2081: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2082: p_print_header => FND_API.G_TRUE );
2083: retcode := 2 ;
2078: --
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2080: --
2081: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2082: p_print_header => FND_API.G_TRUE );
2083: retcode := 2 ;
2084: COMMIT WORK ;
2085: --
2086: WHEN OTHERS THEN
2093: END IF ;
2094: --
2095:
2096: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2097: p_print_header => FND_API.G_TRUE );
2098: --
2099: retcode := 2 ;
2100: COMMIT WORK ;
2101: --
2148: PSB_HR_EXTRACT_DATA_PVT.Init(l_effective_date);
2149:
2150: PSB_HR_EXTRACT_DATA_PVT.Get_Attributes
2151: ( p_api_version => 1.0,
2152: p_init_msg_list => FND_API.G_TRUE,
2153: p_commit => FND_API.G_TRUE,
2154: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2155: p_return_status => l_return_status,
2156: p_msg_count => l_msg_count,
2149:
2150: PSB_HR_EXTRACT_DATA_PVT.Get_Attributes
2151: ( p_api_version => 1.0,
2152: p_init_msg_list => FND_API.G_TRUE,
2153: p_commit => FND_API.G_TRUE,
2154: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2155: p_return_status => l_return_status,
2156: p_msg_count => l_msg_count,
2157: p_msg_data => l_msg_data,
2150: PSB_HR_EXTRACT_DATA_PVT.Get_Attributes
2151: ( p_api_version => 1.0,
2152: p_init_msg_list => FND_API.G_TRUE,
2153: p_commit => FND_API.G_TRUE,
2154: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2155: p_return_status => l_return_status,
2156: p_msg_count => l_msg_count,
2157: p_msg_data => l_msg_data,
2158: p_data_extract_id => p_data_extract_id,
2159: p_extract_method => p_data_extract_method,
2160: p_business_group_id => p_business_group_id
2161: );
2162:
2163: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2164: FND_FILE.put_line(FND_FILE.LOG,'Get Attributes Failed');
2165: end if;
2166:
2167: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
2165: end if;
2166:
2167: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
2168: ( p_api_version => 1.0,
2169: p_init_msg_list => FND_API.G_FALSE,
2170: p_commit => FND_API.G_TRUE,
2171: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2172: x_return_status => l_return_status,
2173: x_msg_count => l_msg_count,
2166:
2167: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
2168: ( p_api_version => 1.0,
2169: p_init_msg_list => FND_API.G_FALSE,
2170: p_commit => FND_API.G_TRUE,
2171: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2172: x_return_status => l_return_status,
2173: x_msg_count => l_msg_count,
2174: x_msg_data => l_msg_data,
2167: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
2168: ( p_api_version => 1.0,
2169: p_init_msg_list => FND_API.G_FALSE,
2170: p_commit => FND_API.G_TRUE,
2171: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2172: x_return_status => l_return_status,
2173: x_msg_count => l_msg_count,
2174: x_msg_data => l_msg_data,
2175: p_data_extract_id => p_data_extract_id,
2175: p_data_extract_id => p_data_extract_id,
2176: p_mode => 'V'
2177: );
2178:
2179: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2180: FND_FILE.put_line(FND_FILE.LOG,'The Client Extension for Attribute Values Interface Failed');
2181: raise FND_API.G_EXC_ERROR;
2182: end if;
2183:
2177: );
2178:
2179: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2180: FND_FILE.put_line(FND_FILE.LOG,'The Client Extension for Attribute Values Interface Failed');
2181: raise FND_API.G_EXC_ERROR;
2182: end if;
2183:
2184: end if;
2185: end if;
2193: p_concurrency_class => 'DATAEXTRACT_CREATION',
2194: p_concurrency_entity_name => 'DATA_EXTRACT',
2195: p_concurrency_entity_id => p_data_extract_id);
2196:
2197: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2198: raise FND_API.G_EXC_ERROR;
2199: end if;
2200:
2201: PSB_HR_POPULATE_DATA_PVT.Populate_Attribute_Values
2194: p_concurrency_entity_name => 'DATA_EXTRACT',
2195: p_concurrency_entity_id => p_data_extract_id);
2196:
2197: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2198: raise FND_API.G_EXC_ERROR;
2199: end if;
2200:
2201: PSB_HR_POPULATE_DATA_PVT.Populate_Attribute_Values
2202: ( p_api_version => 1.0,
2199: end if;
2200:
2201: PSB_HR_POPULATE_DATA_PVT.Populate_Attribute_Values
2202: ( p_api_version => 1.0,
2203: p_init_msg_list => FND_API.G_FALSE,
2204: p_commit => FND_API.G_TRUE,
2205: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2206: p_return_status => l_return_status,
2207: p_msg_count => l_msg_count,
2200:
2201: PSB_HR_POPULATE_DATA_PVT.Populate_Attribute_Values
2202: ( p_api_version => 1.0,
2203: p_init_msg_list => FND_API.G_FALSE,
2204: p_commit => FND_API.G_TRUE,
2205: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2206: p_return_status => l_return_status,
2207: p_msg_count => l_msg_count,
2208: p_msg_data => l_msg_data,
2201: PSB_HR_POPULATE_DATA_PVT.Populate_Attribute_Values
2202: ( p_api_version => 1.0,
2203: p_init_msg_list => FND_API.G_FALSE,
2204: p_commit => FND_API.G_TRUE,
2205: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2206: p_return_status => l_return_status,
2207: p_msg_count => l_msg_count,
2208: p_msg_data => l_msg_data,
2209: p_data_extract_id => p_data_extract_id,
2210: p_extract_method => p_data_extract_method,
2211: p_business_group_id => p_business_group_id
2212: );
2213:
2214: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2215: FND_FILE.put_line(FND_FILE.LOG,'Populate Attribute Values Failed');
2216: end if;
2217:
2218: PSB_CONCURRENCY_CONTROL_PVT.Release_Concurrency_Control
2221: p_concurrency_class => 'DATAEXTRACT_CREATION',
2222: p_concurrency_entity_name => 'DATA_EXTRACT',
2223: p_concurrency_entity_id => p_data_extract_id);
2224:
2225: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2226: raise FND_API.G_EXC_ERROR;
2227: end if;
2228: end if;
2229: end if;
2222: p_concurrency_entity_name => 'DATA_EXTRACT',
2223: p_concurrency_entity_id => p_data_extract_id);
2224:
2225: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2226: raise FND_API.G_EXC_ERROR;
2227: end if;
2228: end if;
2229: end if;
2230:
2235: IF l_msg_count > 0 THEN
2236:
2237: l_msg_data := FND_MSG_PUB.Get
2238: (p_msg_index => FND_MSG_PUB.G_NEXT,
2239: p_encoded => FND_API.G_FALSE);
2240:
2241: PSB_MESSAGE_S.INSERT_ERROR
2242: (p_source_process => 'DATA_EXTRACT_VALIDATION',
2243: p_process_id => p_data_extract_id,
2250: COMMIT WORK ;
2251:
2252: EXCEPTION
2253:
2254: WHEN FND_API.G_EXC_ERROR THEN
2255: --
2256: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2257: p_print_header => FND_API.G_TRUE );
2258: retcode := 2 ;
2253:
2254: WHEN FND_API.G_EXC_ERROR THEN
2255: --
2256: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2257: p_print_header => FND_API.G_TRUE );
2258: retcode := 2 ;
2259: COMMIT WORK ;
2260: --
2261: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2257: p_print_header => FND_API.G_TRUE );
2258: retcode := 2 ;
2259: COMMIT WORK ;
2260: --
2261: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2262: --
2263: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2264: p_print_header => FND_API.G_TRUE );
2265: retcode := 2 ;
2260: --
2261: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2262: --
2263: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2264: p_print_header => FND_API.G_TRUE );
2265: retcode := 2 ;
2266: COMMIT WORK ;
2267: --
2268: WHEN OTHERS THEN
2275: END IF ;
2276: --
2277:
2278: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2279: p_print_header => FND_API.G_TRUE );
2280: --
2281: retcode := 2 ;
2282: COMMIT WORK ;
2283: --
2321: PSB_HR_EXTRACT_DATA_PVT.Init(l_effective_date);
2322:
2323: PSB_HR_EXTRACT_DATA_PVT.Get_Employee_Information
2324: ( p_api_version => 1.0,
2325: p_init_msg_list => FND_API.G_TRUE,
2326: p_commit => FND_API.G_TRUE,
2327: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2328: p_return_status => l_return_status,
2329: p_msg_count => l_msg_count,
2322:
2323: PSB_HR_EXTRACT_DATA_PVT.Get_Employee_Information
2324: ( p_api_version => 1.0,
2325: p_init_msg_list => FND_API.G_TRUE,
2326: p_commit => FND_API.G_TRUE,
2327: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2328: p_return_status => l_return_status,
2329: p_msg_count => l_msg_count,
2330: p_msg_data => l_msg_data,
2323: PSB_HR_EXTRACT_DATA_PVT.Get_Employee_Information
2324: ( p_api_version => 1.0,
2325: p_init_msg_list => FND_API.G_TRUE,
2326: p_commit => FND_API.G_TRUE,
2327: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2328: p_return_status => l_return_status,
2329: p_msg_count => l_msg_count,
2330: p_msg_data => l_msg_data,
2331: p_data_extract_id => p_data_extract_id,
2338: p_copy_defaults_flag => p_copy_defaults_flag,
2339: p_copy_salary_flag => p_copy_salary_flag
2340: );
2341:
2342: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2343: FND_FILE.put_line(FND_FILE.LOG,'Get Employee Information Failed');
2344: raise FND_API.G_EXC_ERROR;
2345: end if;
2346:
2340: );
2341:
2342: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2343: FND_FILE.put_line(FND_FILE.LOG,'Get Employee Information Failed');
2344: raise FND_API.G_EXC_ERROR;
2345: end if;
2346:
2347: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
2348: ( p_api_version => 1.0,
2345: end if;
2346:
2347: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
2348: ( p_api_version => 1.0,
2349: p_init_msg_list => FND_API.G_FALSE,
2350: p_commit => FND_API.G_TRUE,
2351: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2352: x_return_status => l_return_status,
2353: x_msg_count => l_msg_count,
2346:
2347: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
2348: ( p_api_version => 1.0,
2349: p_init_msg_list => FND_API.G_FALSE,
2350: p_commit => FND_API.G_TRUE,
2351: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2352: x_return_status => l_return_status,
2353: x_msg_count => l_msg_count,
2354: x_msg_data => l_msg_data,
2347: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
2348: ( p_api_version => 1.0,
2349: p_init_msg_list => FND_API.G_FALSE,
2350: p_commit => FND_API.G_TRUE,
2351: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2352: x_return_status => l_return_status,
2353: x_msg_count => l_msg_count,
2354: x_msg_data => l_msg_data,
2355: p_data_extract_id => p_data_extract_id,
2355: p_data_extract_id => p_data_extract_id,
2356: p_mode => 'E'
2357: );
2358:
2359: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2360: FND_FILE.put_line(FND_FILE.LOG,'The Client Extension for Employee Interface Failed');
2361: raise FND_API.G_EXC_ERROR;
2362: end if;
2363:
2357: );
2358:
2359: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2360: FND_FILE.put_line(FND_FILE.LOG,'The Client Extension for Employee Interface Failed');
2361: raise FND_API.G_EXC_ERROR;
2362: end if;
2363:
2364: end if;
2365: end if;
2373: p_concurrency_class => 'DATAEXTRACT_CREATION',
2374: p_concurrency_entity_name => 'DATA_EXTRACT',
2375: p_concurrency_entity_id => p_data_extract_id);
2376:
2377: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2378: raise FND_API.G_EXC_ERROR;
2379: end if;
2380:
2381: PSB_HR_POPULATE_DATA_PVT.Populate_Employee_Information
2374: p_concurrency_entity_name => 'DATA_EXTRACT',
2375: p_concurrency_entity_id => p_data_extract_id);
2376:
2377: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2378: raise FND_API.G_EXC_ERROR;
2379: end if;
2380:
2381: PSB_HR_POPULATE_DATA_PVT.Populate_Employee_Information
2382: ( p_api_version => 1.0,
2379: end if;
2380:
2381: PSB_HR_POPULATE_DATA_PVT.Populate_Employee_Information
2382: ( p_api_version => 1.0,
2383: p_init_msg_list => FND_API.G_FALSE,
2384: p_commit => FND_API.G_TRUE,
2385: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2386: p_return_status => l_return_status,
2387: p_msg_count => l_msg_count,
2380:
2381: PSB_HR_POPULATE_DATA_PVT.Populate_Employee_Information
2382: ( p_api_version => 1.0,
2383: p_init_msg_list => FND_API.G_FALSE,
2384: p_commit => FND_API.G_TRUE,
2385: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2386: p_return_status => l_return_status,
2387: p_msg_count => l_msg_count,
2388: p_msg_data => l_msg_data,
2381: PSB_HR_POPULATE_DATA_PVT.Populate_Employee_Information
2382: ( p_api_version => 1.0,
2383: p_init_msg_list => FND_API.G_FALSE,
2384: p_commit => FND_API.G_TRUE,
2385: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2386: p_return_status => l_return_status,
2387: p_msg_count => l_msg_count,
2388: p_msg_data => l_msg_data,
2389: p_data_extract_id => p_data_extract_id,
2393: p_business_group_id => p_business_group_id,
2394: p_set_of_books_id => p_set_of_books_id
2395: );
2396:
2397: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2398: FND_FILE.put_line(FND_FILE.LOG,'Populate Employees Failed');
2399: raise FND_API.G_EXC_ERROR;
2400: end if;
2401:
2395: );
2396:
2397: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2398: FND_FILE.put_line(FND_FILE.LOG,'Populate Employees Failed');
2399: raise FND_API.G_EXC_ERROR;
2400: end if;
2401:
2402: PSB_CONCURRENCY_CONTROL_PVT.Release_Concurrency_Control
2403: (p_api_version => 1.0 ,
2405: p_concurrency_class => 'DATAEXTRACT_CREATION',
2406: p_concurrency_entity_name => 'DATA_EXTRACT',
2407: p_concurrency_entity_id => p_data_extract_id);
2408:
2409: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2410: raise FND_API.G_EXC_ERROR;
2411: end if;
2412: end if;
2413: end if;
2406: p_concurrency_entity_name => 'DATA_EXTRACT',
2407: p_concurrency_entity_id => p_data_extract_id);
2408:
2409: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2410: raise FND_API.G_EXC_ERROR;
2411: end if;
2412: end if;
2413: end if;
2414:
2417: IF l_msg_count > 0 THEN
2418:
2419: l_msg_data := FND_MSG_PUB.Get
2420: (p_msg_index => FND_MSG_PUB.G_NEXT,
2421: p_encoded => FND_API.G_FALSE);
2422:
2423: PSB_MESSAGE_S.INSERT_ERROR
2424: (p_source_process => 'DATA_EXTRACT_VALIDATION',
2425: p_process_id => p_data_extract_id,
2434: COMMIT WORK ;
2435:
2436: EXCEPTION
2437:
2438: WHEN FND_API.G_EXC_ERROR THEN
2439: --
2440: FND_MSG_PUB.Count_And_Get ( p_count => l_msg_count,
2441: p_data => l_msg_data );
2442: IF l_msg_count > 0 THEN
2442: IF l_msg_count > 0 THEN
2443:
2444: l_msg_data := FND_MSG_PUB.Get
2445: (p_msg_index => FND_MSG_PUB.G_NEXT,
2446: p_encoded => FND_API.G_FALSE);
2447:
2448: PSB_MESSAGE_S.INSERT_ERROR
2449: (p_source_process => 'DATA_EXTRACT_VALIDATION',
2450: p_process_id => p_data_extract_id,
2452: p_msg_data => l_msg_data);
2453: END IF;
2454:
2455: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2456: p_print_header => FND_API.G_TRUE );
2457: retcode := 2 ;
2458: COMMIT WORK ;
2459: --
2460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2456: p_print_header => FND_API.G_TRUE );
2457: retcode := 2 ;
2458: COMMIT WORK ;
2459: --
2460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2461: --
2462: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2463: p_print_header => FND_API.G_TRUE );
2464: retcode := 2 ;
2459: --
2460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2461: --
2462: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2463: p_print_header => FND_API.G_TRUE );
2464: retcode := 2 ;
2465: COMMIT WORK ;
2466: --
2467: WHEN OTHERS THEN
2474: END IF ;
2475: --
2476:
2477: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2478: p_print_header => FND_API.G_TRUE );
2479: --
2480: retcode := 2 ;
2481: COMMIT WORK ;
2482: --
2520: PSB_HR_EXTRACT_DATA_PVT.Init(l_effective_date);
2521:
2522: PSB_HR_EXTRACT_DATA_PVT.Get_Costing_Information
2523: ( p_api_version => 1.0,
2524: p_init_msg_list => FND_API.G_TRUE,
2525: p_commit => FND_API.G_TRUE,
2526: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2527: p_return_status => l_return_status,
2528: p_msg_count => l_msg_count,
2521:
2522: PSB_HR_EXTRACT_DATA_PVT.Get_Costing_Information
2523: ( p_api_version => 1.0,
2524: p_init_msg_list => FND_API.G_TRUE,
2525: p_commit => FND_API.G_TRUE,
2526: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2527: p_return_status => l_return_status,
2528: p_msg_count => l_msg_count,
2529: p_msg_data => l_msg_data,
2522: PSB_HR_EXTRACT_DATA_PVT.Get_Costing_Information
2523: ( p_api_version => 1.0,
2524: p_init_msg_list => FND_API.G_TRUE,
2525: p_commit => FND_API.G_TRUE,
2526: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2527: p_return_status => l_return_status,
2528: p_msg_count => l_msg_count,
2529: p_msg_data => l_msg_data,
2530: p_data_extract_id => p_data_extract_id,
2535: p_business_group_id => p_business_group_id,
2536: p_set_of_books_id => p_set_of_books_id
2537: );
2538:
2539: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2540: /* Bug 3677529 Start */
2541: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2542: p_print_header => FND_API.G_TRUE );
2543: /* Bug 3677529 End */
2538:
2539: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2540: /* Bug 3677529 Start */
2541: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2542: p_print_header => FND_API.G_TRUE );
2543: /* Bug 3677529 End */
2544: FND_FILE.put_line(FND_FILE.LOG,'Get Cost Distributions Failed');
2545: FND_MSG_PUB.Initialize;
2546: end if;
2546: end if;
2547:
2548: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
2549: ( p_api_version => 1.0,
2550: p_init_msg_list => FND_API.G_FALSE,
2551: p_commit => FND_API.G_TRUE,
2552: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2553: x_return_status => l_return_status,
2554: x_msg_count => l_msg_count,
2547:
2548: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
2549: ( p_api_version => 1.0,
2550: p_init_msg_list => FND_API.G_FALSE,
2551: p_commit => FND_API.G_TRUE,
2552: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2553: x_return_status => l_return_status,
2554: x_msg_count => l_msg_count,
2555: x_msg_data => l_msg_data,
2548: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
2549: ( p_api_version => 1.0,
2550: p_init_msg_list => FND_API.G_FALSE,
2551: p_commit => FND_API.G_TRUE,
2552: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2553: x_return_status => l_return_status,
2554: x_msg_count => l_msg_count,
2555: x_msg_data => l_msg_data,
2556: p_data_extract_id => p_data_extract_id,
2556: p_data_extract_id => p_data_extract_id,
2557: p_mode => 'C'
2558: );
2559:
2560: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2561: FND_FILE.put_line(FND_FILE.LOG,'The Client Extension for Cost Distributions Interface Failed');
2562: raise FND_API.G_EXC_ERROR;
2563: end if;
2564:
2558: );
2559:
2560: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2561: FND_FILE.put_line(FND_FILE.LOG,'The Client Extension for Cost Distributions Interface Failed');
2562: raise FND_API.G_EXC_ERROR;
2563: end if;
2564:
2565: end if;
2566: end if;
2573: p_concurrency_class => 'DATAEXTRACT_CREATION',
2574: p_concurrency_entity_name => 'DATA_EXTRACT',
2575: p_concurrency_entity_id => p_data_extract_id);
2576:
2577: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2578: raise FND_API.G_EXC_ERROR;
2579: end if;
2580:
2581: PSB_HR_POPULATE_DATA_PVT.Populate_Costing_Information
2574: p_concurrency_entity_name => 'DATA_EXTRACT',
2575: p_concurrency_entity_id => p_data_extract_id);
2576:
2577: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2578: raise FND_API.G_EXC_ERROR;
2579: end if;
2580:
2581: PSB_HR_POPULATE_DATA_PVT.Populate_Costing_Information
2582: ( p_api_version => 1.0,
2579: end if;
2580:
2581: PSB_HR_POPULATE_DATA_PVT.Populate_Costing_Information
2582: ( p_api_version => 1.0,
2583: p_init_msg_list => FND_API.G_FALSE,
2584: p_commit => FND_API.G_TRUE,
2585: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2586: p_return_status => l_return_status,
2587: p_msg_count => l_msg_count,
2580:
2581: PSB_HR_POPULATE_DATA_PVT.Populate_Costing_Information
2582: ( p_api_version => 1.0,
2583: p_init_msg_list => FND_API.G_FALSE,
2584: p_commit => FND_API.G_TRUE,
2585: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2586: p_return_status => l_return_status,
2587: p_msg_count => l_msg_count,
2588: p_msg_data => l_msg_data,
2581: PSB_HR_POPULATE_DATA_PVT.Populate_Costing_Information
2582: ( p_api_version => 1.0,
2583: p_init_msg_list => FND_API.G_FALSE,
2584: p_commit => FND_API.G_TRUE,
2585: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2586: p_return_status => l_return_status,
2587: p_msg_count => l_msg_count,
2588: p_msg_data => l_msg_data,
2589: p_data_extract_id => p_data_extract_id,
2592: p_extract_method => p_data_extract_method,
2593: p_business_group_id => p_business_group_id
2594: );
2595:
2596: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2597: FND_FILE.put_line(FND_FILE.LOG,'Populate Costing Failed');
2598: end if;
2599:
2600: PSB_CONCURRENCY_CONTROL_PVT.Release_Concurrency_Control
2603: p_concurrency_class => 'DATAEXTRACT_CREATION',
2604: p_concurrency_entity_name => 'DATA_EXTRACT',
2605: p_concurrency_entity_id => p_data_extract_id);
2606:
2607: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2608: raise FND_API.G_EXC_ERROR;
2609: end if;
2610: end if;
2611: end if;
2604: p_concurrency_entity_name => 'DATA_EXTRACT',
2605: p_concurrency_entity_id => p_data_extract_id);
2606:
2607: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2608: raise FND_API.G_EXC_ERROR;
2609: end if;
2610: end if;
2611: end if;
2612:
2615: IF l_msg_count > 0 THEN
2616:
2617: l_msg_data := FND_MSG_PUB.Get
2618: (p_msg_index => FND_MSG_PUB.G_NEXT,
2619: p_encoded => FND_API.G_FALSE);
2620:
2621: PSB_MESSAGE_S.INSERT_ERROR
2622: (p_source_process => 'DATA_EXTRACT_VALIDATION',
2623: p_process_id => p_data_extract_id,
2633: COMMIT WORK;
2634:
2635: EXCEPTION
2636:
2637: WHEN FND_API.G_EXC_ERROR THEN
2638: --
2639: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2640: p_print_header => FND_API.G_TRUE );
2641: retcode := 2 ;
2636:
2637: WHEN FND_API.G_EXC_ERROR THEN
2638: --
2639: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2640: p_print_header => FND_API.G_TRUE );
2641: retcode := 2 ;
2642: COMMIT WORK ;
2643: --
2644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2640: p_print_header => FND_API.G_TRUE );
2641: retcode := 2 ;
2642: COMMIT WORK ;
2643: --
2644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2645: --
2646: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2647: p_print_header => FND_API.G_TRUE );
2648: retcode := 2 ;
2643: --
2644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2645: --
2646: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2647: p_print_header => FND_API.G_TRUE );
2648: retcode := 2 ;
2649: COMMIT WORK ;
2650: --
2651: WHEN OTHERS THEN
2658: END IF ;
2659: --
2660:
2661: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2662: p_print_header => FND_API.G_TRUE );
2663: --
2664: retcode := 2 ;
2665: COMMIT WORK ;
2666: --
2702: PSB_HR_EXTRACT_DATA_PVT.Init(l_effective_date);
2703:
2704: PSB_HR_EXTRACT_DATA_PVT.Get_Employee_Attributes
2705: ( p_api_version => 1.0,
2706: p_init_msg_list => FND_API.G_TRUE,
2707: p_commit => FND_API.G_TRUE,
2708: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2709: p_return_status => l_return_status,
2710: p_msg_count => l_msg_count,
2703:
2704: PSB_HR_EXTRACT_DATA_PVT.Get_Employee_Attributes
2705: ( p_api_version => 1.0,
2706: p_init_msg_list => FND_API.G_TRUE,
2707: p_commit => FND_API.G_TRUE,
2708: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2709: p_return_status => l_return_status,
2710: p_msg_count => l_msg_count,
2711: p_msg_data => l_msg_data,
2704: PSB_HR_EXTRACT_DATA_PVT.Get_Employee_Attributes
2705: ( p_api_version => 1.0,
2706: p_init_msg_list => FND_API.G_TRUE,
2707: p_commit => FND_API.G_TRUE,
2708: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2709: p_return_status => l_return_status,
2710: p_msg_count => l_msg_count,
2711: p_msg_data => l_msg_data,
2712: p_data_extract_id => p_data_extract_id,
2716: p_business_group_id => p_business_group_id,
2717: p_set_of_books_id => p_set_of_books_id
2718: );
2719:
2720: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2721: FND_FILE.put_line(FND_FILE.LOG,'Get Employee Attributes Failed');
2722: end if;
2723:
2724: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
2722: end if;
2723:
2724: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
2725: ( p_api_version => 1.0,
2726: p_init_msg_list => FND_API.G_FALSE,
2727: p_commit => FND_API.G_TRUE,
2728: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2729: x_return_status => l_return_status,
2730: x_msg_count => l_msg_count,
2723:
2724: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
2725: ( p_api_version => 1.0,
2726: p_init_msg_list => FND_API.G_FALSE,
2727: p_commit => FND_API.G_TRUE,
2728: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2729: x_return_status => l_return_status,
2730: x_msg_count => l_msg_count,
2731: x_msg_data => l_msg_data,
2724: PSB_DE_Client_Extensions_Pub.Run_Client_Extension_Pub
2725: ( p_api_version => 1.0,
2726: p_init_msg_list => FND_API.G_FALSE,
2727: p_commit => FND_API.G_TRUE,
2728: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2729: x_return_status => l_return_status,
2730: x_msg_count => l_msg_count,
2731: x_msg_data => l_msg_data,
2732: p_data_extract_id => p_data_extract_id,
2732: p_data_extract_id => p_data_extract_id,
2733: p_mode => 'A'
2734: );
2735:
2736: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2737: FND_FILE.put_line(FND_FILE.LOG,'The Client Extension for Employee Attributes Interface Failed');
2738: raise FND_API.G_EXC_ERROR;
2739: end if;
2740:
2734: );
2735:
2736: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2737: FND_FILE.put_line(FND_FILE.LOG,'The Client Extension for Employee Attributes Interface Failed');
2738: raise FND_API.G_EXC_ERROR;
2739: end if;
2740:
2741: end if;
2742: end if;
2749: p_concurrency_class => 'DATAEXTRACT_CREATION',
2750: p_concurrency_entity_name => 'DATA_EXTRACT',
2751: p_concurrency_entity_id => p_data_extract_id);
2752:
2753: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2754: raise FND_API.G_EXC_ERROR;
2755: end if;
2756:
2757: PSB_HR_POPULATE_DATA_PVT.Populate_Pos_Assignments
2750: p_concurrency_entity_name => 'DATA_EXTRACT',
2751: p_concurrency_entity_id => p_data_extract_id);
2752:
2753: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2754: raise FND_API.G_EXC_ERROR;
2755: end if;
2756:
2757: PSB_HR_POPULATE_DATA_PVT.Populate_Pos_Assignments
2758: ( p_api_version => 1.0,
2755: end if;
2756:
2757: PSB_HR_POPULATE_DATA_PVT.Populate_Pos_Assignments
2758: ( p_api_version => 1.0,
2759: p_init_msg_list => FND_API.G_FALSE,
2760: p_commit => FND_API.G_TRUE,
2761: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2762: p_return_status => l_return_status,
2763: p_msg_count => l_msg_count,
2756:
2757: PSB_HR_POPULATE_DATA_PVT.Populate_Pos_Assignments
2758: ( p_api_version => 1.0,
2759: p_init_msg_list => FND_API.G_FALSE,
2760: p_commit => FND_API.G_TRUE,
2761: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2762: p_return_status => l_return_status,
2763: p_msg_count => l_msg_count,
2764: p_msg_data => l_msg_data,
2757: PSB_HR_POPULATE_DATA_PVT.Populate_Pos_Assignments
2758: ( p_api_version => 1.0,
2759: p_init_msg_list => FND_API.G_FALSE,
2760: p_commit => FND_API.G_TRUE,
2761: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2762: p_return_status => l_return_status,
2763: p_msg_count => l_msg_count,
2764: p_msg_data => l_msg_data,
2765: p_data_extract_id => p_data_extract_id,
2769: p_business_group_id => p_business_group_id,
2770: p_set_of_books_id => p_set_of_books_id
2771: );
2772:
2773: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2774: FND_FILE.put_line(FND_FILE.LOG,'Populate Position Assign Failed');
2775: end if;
2776:
2777: PSB_CONCURRENCY_CONTROL_PVT.Release_Concurrency_Control
2780: p_concurrency_class => 'DATAEXTRACT_CREATION',
2781: p_concurrency_entity_name => 'DATA_EXTRACT',
2782: p_concurrency_entity_id => p_data_extract_id);
2783:
2784: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2785: raise FND_API.G_EXC_ERROR;
2786: end if;
2787: end if;
2788: end if;
2781: p_concurrency_entity_name => 'DATA_EXTRACT',
2782: p_concurrency_entity_id => p_data_extract_id);
2783:
2784: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2785: raise FND_API.G_EXC_ERROR;
2786: end if;
2787: end if;
2788: end if;
2789:
2793: IF l_msg_count > 0 THEN
2794:
2795: l_msg_data := FND_MSG_PUB.Get
2796: (p_msg_index => FND_MSG_PUB.G_NEXT,
2797: p_encoded => FND_API.G_FALSE);
2798:
2799: PSB_MESSAGE_S.INSERT_ERROR
2800: (p_source_process => 'DATA_EXTRACT_VALIDATION',
2801: p_process_id => p_data_extract_id,
2810: COMMIT WORK;
2811:
2812: EXCEPTION
2813:
2814: WHEN FND_API.G_EXC_ERROR THEN
2815: --
2816: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2817: p_print_header => FND_API.G_TRUE );
2818: retcode := 2 ;
2813:
2814: WHEN FND_API.G_EXC_ERROR THEN
2815: --
2816: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2817: p_print_header => FND_API.G_TRUE );
2818: retcode := 2 ;
2819: COMMIT WORK ;
2820: --
2821: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2817: p_print_header => FND_API.G_TRUE );
2818: retcode := 2 ;
2819: COMMIT WORK ;
2820: --
2821: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2822: --
2823: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2824: p_print_header => FND_API.G_TRUE );
2825: retcode := 2 ;
2820: --
2821: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2822: --
2823: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2824: p_print_header => FND_API.G_TRUE );
2825: retcode := 2 ;
2826: COMMIT WORK ;
2827: --
2828: WHEN OTHERS THEN
2835: END IF ;
2836: --
2837:
2838: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2839: p_print_header => FND_API.G_TRUE );
2840: --
2841: retcode := 2 ;
2842: COMMIT WORK ;
2843: --
2875: PSB_HR_EXTRACT_DATA_PVT.Init(l_effective_date);
2876:
2877: PSB_VALIDATE_DATA_EXTRACT_PVT.Data_Extract_Summary
2878: ( p_api_version => 1.0,
2879: p_init_msg_list => FND_API.G_FALSE,
2880: p_commit => FND_API.G_TRUE,
2881: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2882: p_return_status => l_return_status,
2883: p_msg_count => l_msg_count,
2876:
2877: PSB_VALIDATE_DATA_EXTRACT_PVT.Data_Extract_Summary
2878: ( p_api_version => 1.0,
2879: p_init_msg_list => FND_API.G_FALSE,
2880: p_commit => FND_API.G_TRUE,
2881: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2882: p_return_status => l_return_status,
2883: p_msg_count => l_msg_count,
2884: p_msg_data => l_msg_data,
2877: PSB_VALIDATE_DATA_EXTRACT_PVT.Data_Extract_Summary
2878: ( p_api_version => 1.0,
2879: p_init_msg_list => FND_API.G_FALSE,
2880: p_commit => FND_API.G_TRUE,
2881: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2882: p_return_status => l_return_status,
2883: p_msg_count => l_msg_count,
2884: p_msg_data => l_msg_data,
2885: p_extract_method => p_data_extract_method,
2886: p_data_extract_id => p_data_extract_id
2887: );
2888:
2889:
2890: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2891: FND_FILE.put_line(FND_FILE.LOG,'Data Extract Summary failed');
2892: end if;
2893:
2894: PSB_VALIDATE_DATA_EXTRACT_PVT.Validate_Data_Extract
2892: end if;
2893:
2894: PSB_VALIDATE_DATA_EXTRACT_PVT.Validate_Data_Extract
2895: ( p_api_version => 1.0,
2896: p_init_msg_list => FND_API.G_FALSE,
2897: p_commit => FND_API.G_TRUE,
2898: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2899: p_return_status => l_return_status,
2900: p_msg_count => l_msg_count,
2893:
2894: PSB_VALIDATE_DATA_EXTRACT_PVT.Validate_Data_Extract
2895: ( p_api_version => 1.0,
2896: p_init_msg_list => FND_API.G_FALSE,
2897: p_commit => FND_API.G_TRUE,
2898: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2899: p_return_status => l_return_status,
2900: p_msg_count => l_msg_count,
2901: p_msg_data => l_msg_data,
2894: PSB_VALIDATE_DATA_EXTRACT_PVT.Validate_Data_Extract
2895: ( p_api_version => 1.0,
2896: p_init_msg_list => FND_API.G_FALSE,
2897: p_commit => FND_API.G_TRUE,
2898: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2899: p_return_status => l_return_status,
2900: p_msg_count => l_msg_count,
2901: p_msg_data => l_msg_data,
2902: p_extract_method => p_data_extract_method,
2903: p_data_extract_id => p_data_extract_id,
2904: p_business_group_id => p_business_group_id
2905: );
2906:
2907: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2908: FND_FILE.put_line(FND_FILE.LOG,'Validate Data Extract failed');
2909: end if;
2910: end if;
2911:
2914: IF l_msg_count > 0 THEN
2915:
2916: l_msg_data := FND_MSG_PUB.Get
2917: (p_msg_index => FND_MSG_PUB.G_NEXT,
2918: p_encoded => FND_API.G_FALSE);
2919:
2920: PSB_MESSAGE_S.INSERT_ERROR
2921: (p_source_process => 'DATA_EXTRACT_VALIDATION',
2922: p_process_id => p_data_extract_id,
2944: --
2945: if l_rep_req_id = 0 then
2946: --
2947: fnd_message.set_name('PSB', 'PSB_FAIL_TO_SUBMIT_REQUEST');
2948: raise FND_API.G_EXC_ERROR ;
2949: --
2950: end if;
2951:
2952: end if;
2956:
2957:
2958: EXCEPTION
2959:
2960: WHEN FND_API.G_EXC_ERROR THEN
2961: --
2962: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2963: p_print_header => FND_API.G_TRUE );
2964: retcode := 2 ;
2959:
2960: WHEN FND_API.G_EXC_ERROR THEN
2961: --
2962: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2963: p_print_header => FND_API.G_TRUE );
2964: retcode := 2 ;
2965: COMMIT WORK ;
2966: --
2967: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2963: p_print_header => FND_API.G_TRUE );
2964: retcode := 2 ;
2965: COMMIT WORK ;
2966: --
2967: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2968: --
2969: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2970: p_print_header => FND_API.G_TRUE );
2971: retcode := 2 ;
2966: --
2967: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2968: --
2969: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2970: p_print_header => FND_API.G_TRUE );
2971: retcode := 2 ;
2972: COMMIT WORK ;
2973: --
2974: WHEN OTHERS THEN
2981: END IF ;
2982: --
2983:
2984: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
2985: p_print_header => FND_API.G_TRUE );
2986: --
2987: retcode := 2 ;
2988: COMMIT WORK ;
2989: --
3151: --PSB_HR_EXTRACT_DATA_PVT.Final_Process;
3152:
3153: /* Bug 3451357 Start */
3154: IF (lc_return_status = 'E') then
3155: l_return_status := FND_API.G_RET_STS_ERROR;
3156:
3157: UPDATE psb_data_extracts
3158: SET data_extract_status = 'I'
3159: WHERE data_extract_id = p_data_extract_id;
3169:
3170: -- Bug 3451357 Start (commented the following code as part of bug fix)
3171: /*
3172: IF (lc_return_status = 'E') then
3173: l_return_status := FND_API.G_RET_STS_ERROR;
3174: ELSE
3175: Begin
3176: Select nvl(sp9_status,'I'),
3177: nvl(sp10_status,'I'),
3257: retcode := 0 ;
3258:
3259: EXCEPTION
3260:
3261: WHEN FND_API.G_EXC_ERROR THEN
3262: --
3263: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
3264: p_print_header => FND_API.G_TRUE );
3265: retcode := 2 ;
3260:
3261: WHEN FND_API.G_EXC_ERROR THEN
3262: --
3263: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
3264: p_print_header => FND_API.G_TRUE );
3265: retcode := 2 ;
3266: COMMIT WORK ;
3267: --
3268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3264: p_print_header => FND_API.G_TRUE );
3265: retcode := 2 ;
3266: COMMIT WORK ;
3267: --
3268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3269: --
3270: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
3271: p_print_header => FND_API.G_TRUE );
3272: retcode := 2 ;
3267: --
3268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3269: --
3270: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
3271: p_print_header => FND_API.G_TRUE );
3272: retcode := 2 ;
3273: COMMIT WORK ;
3274: --
3275: WHEN OTHERS THEN
3282: END IF ;
3283: --
3284:
3285: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
3286: p_print_header => FND_API.G_TRUE );
3287: --
3288: retcode := 2 ;
3289: COMMIT WORK ;
3290: --
3315:
3316: PROCEDURE Submit_Data_Extract
3317: (
3318: p_api_version IN NUMBER,
3319: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3320: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3321: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3322: p_return_status OUT NOCOPY VARCHAR2,
3323: p_msg_count OUT NOCOPY NUMBER,
3316: PROCEDURE Submit_Data_Extract
3317: (
3318: p_api_version IN NUMBER,
3319: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3320: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3321: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3322: p_return_status OUT NOCOPY VARCHAR2,
3323: p_msg_count OUT NOCOPY NUMBER,
3324: p_msg_data OUT NOCOPY VARCHAR2,
3317: (
3318: p_api_version IN NUMBER,
3319: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3320: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3321: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3322: p_return_status OUT NOCOPY VARCHAR2,
3323: p_msg_count OUT NOCOPY NUMBER,
3324: p_msg_data OUT NOCOPY VARCHAR2,
3325: p_data_extract_id IN NUMBER,
3354:
3355: BEGIN
3356: p_request_id := 0; -- Bug #4451621
3357:
3358: IF FND_API.to_Boolean ( p_init_msg_list )
3359: THEN
3360: FND_MSG_PUB.initialize ;
3361: END IF;
3362:
3371: FND_MESSAGE.SET_NAME('PSB','PSB_DEBUG_MESSAGE');
3372: FND_MESSAGE.SET_TOKEN('MESSAGE', 'Set_Request_Set Failed');
3373: FND_MSG_PUB.Add;
3374:
3375: RAISE FND_API.G_EXC_ERROR; -- Bug #4451621
3376: END IF;
3377:
3378: IF (l_success)
3379: THEN -- SET_REQUEST_SET Successful.
3706: END IF; -- SET_REQUEST_SET Successful.
3707:
3708: EXCEPTION
3709:
3710: WHEN FND_API.G_EXC_ERROR THEN
3711: P_return_status := FND_API.G_RET_STS_ERROR;
3712: FND_MSG_PUB.Count_And_Get (p_count => P_msg_count,
3713: p_data => P_msg_data);
3714:
3707:
3708: EXCEPTION
3709:
3710: WHEN FND_API.G_EXC_ERROR THEN
3711: P_return_status := FND_API.G_RET_STS_ERROR;
3712: FND_MSG_PUB.Count_And_Get (p_count => P_msg_count,
3713: p_data => P_msg_data);
3714:
3715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3711: P_return_status := FND_API.G_RET_STS_ERROR;
3712: FND_MSG_PUB.Count_And_Get (p_count => P_msg_count,
3713: p_data => P_msg_data);
3714:
3715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3716: P_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3717: FND_MSG_PUB.Count_And_Get (p_count => P_msg_count,
3718: p_data => P_msg_data);
3719:
3712: FND_MSG_PUB.Count_And_Get (p_count => P_msg_count,
3713: p_data => P_msg_data);
3714:
3715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3716: P_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3717: FND_MSG_PUB.Count_And_Get (p_count => P_msg_count,
3718: p_data => P_msg_data);
3719:
3720: WHEN OTHERS THEN
3718: p_data => P_msg_data);
3719:
3720: WHEN OTHERS THEN
3721:
3722: P_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3723:
3724: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3725: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
3726: l_api_name);
3737: PROCEDURE Create_Default_Rule_Set
3738: ( x_return_status OUT NOCOPY VARCHAR2,
3739: x_msg_count OUT NOCOPY NUMBER,
3740: x_msg_data OUT NOCOPY VARCHAR2,
3741: x_msg_init_list IN VARCHAR2 := FND_API.G_TRUE,
3742: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3743: p_api_version IN NUMBER,
3744: p_data_extract_id IN NUMBER,
3745: p_rule_set_name IN VARCHAR2
3738: ( x_return_status OUT NOCOPY VARCHAR2,
3739: x_msg_count OUT NOCOPY NUMBER,
3740: x_msg_data OUT NOCOPY VARCHAR2,
3741: x_msg_init_list IN VARCHAR2 := FND_API.G_TRUE,
3742: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3743: p_api_version IN NUMBER,
3744: p_data_extract_id IN NUMBER,
3745: p_rule_set_name IN VARCHAR2
3746: )
3770: WHERE data_extract_id = p_data_extract_id;
3771:
3772: BEGIN
3773: -- check for compatibility
3774: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,
3775: l_api_name, G_PKG_NAME)
3776: THEN
3777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3778: END IF;
3773: -- check for compatibility
3774: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,
3775: l_api_name, G_PKG_NAME)
3776: THEN
3777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3778: END IF;
3779:
3780: -- check whether we need to initialize message list
3781: IF FND_API.to_boolean(x_msg_init_list) THEN
3777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3778: END IF;
3779:
3780: -- check whether we need to initialize message list
3781: IF FND_API.to_boolean(x_msg_init_list) THEN
3782: FND_MSG_PUB.initialize;
3783: END IF;
3784:
3785: SAVEPOINT create_default_rule_set;
3799: --user through the logs generated
3800: IF l_name_already_exist > 0 THEN
3801: FND_MESSAGE.SET_NAME('PSB', 'PSB_DUPLICATE_NAME');
3802: FND_MSG_PUB.ADD;
3803: RAISE FND_API.G_EXC_ERROR;
3804: END IF;
3805:
3806: --get a new PSB_ENTITY_SET_ID for the new rule set
3807: FOR l_entity_set_rec IN (SELECT psb_entity_set_s.NEXTVAL entity_set_id
3820: END LOOP;
3821:
3822: PSB_ENTITY_SET_PVT.Insert_Row
3823: ( p_api_version => 1.0,
3824: p_init_msg_list => FND_API.G_FALSE,
3825: p_commit => FND_API.G_FALSE,
3826: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3827: p_return_status => l_return_status,
3828: p_msg_count => l_msg_count,
3821:
3822: PSB_ENTITY_SET_PVT.Insert_Row
3823: ( p_api_version => 1.0,
3824: p_init_msg_list => FND_API.G_FALSE,
3825: p_commit => FND_API.G_FALSE,
3826: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3827: p_return_status => l_return_status,
3828: p_msg_count => l_msg_count,
3829: p_msg_data => l_msg_data,
3822: PSB_ENTITY_SET_PVT.Insert_Row
3823: ( p_api_version => 1.0,
3824: p_init_msg_list => FND_API.G_FALSE,
3825: p_commit => FND_API.G_FALSE,
3826: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3827: p_return_status => l_return_status,
3828: p_msg_count => l_msg_count,
3829: p_msg_data => l_msg_data,
3830: P_ROWID => l_dummy_rowid,
3854: p_Created_By => l_created_by,
3855: p_Creation_Date => l_creation_date
3856: );
3857:
3858: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3859: RAISE FND_API.G_EXC_ERROR;
3860: END IF;
3861:
3862: FOR l_defaults_rec in l_defaults_csr
3855: p_Creation_Date => l_creation_date
3856: );
3857:
3858: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3859: RAISE FND_API.G_EXC_ERROR;
3860: END IF;
3861:
3862: FOR l_defaults_rec in l_defaults_csr
3863: LOOP
3862: FOR l_defaults_rec in l_defaults_csr
3863: LOOP
3864: PSB_ENTITY_ASSIGNMENT_PVT.Insert_Row
3865: ( p_api_version => 1.0,
3866: p_init_msg_list => FND_API.G_FALSE,
3867: p_commit => FND_API.G_FALSE,
3868: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3869: p_return_status => l_return_status,
3870: p_msg_count => l_msg_count,
3863: LOOP
3864: PSB_ENTITY_ASSIGNMENT_PVT.Insert_Row
3865: ( p_api_version => 1.0,
3866: p_init_msg_list => FND_API.G_FALSE,
3867: p_commit => FND_API.G_FALSE,
3868: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3869: p_return_status => l_return_status,
3870: p_msg_count => l_msg_count,
3871: p_msg_data => l_msg_data,
3864: PSB_ENTITY_ASSIGNMENT_PVT.Insert_Row
3865: ( p_api_version => 1.0,
3866: p_init_msg_list => FND_API.G_FALSE,
3867: p_commit => FND_API.G_FALSE,
3868: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3869: p_return_status => l_return_status,
3870: p_msg_count => l_msg_count,
3871: p_msg_data => l_msg_data,
3872: P_ROWID => l_dummy_rowid,
3882: p_Created_By => l_created_by,
3883: p_Creation_Date => l_creation_date
3884: );
3885:
3886: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3887: RAISE FND_API.G_EXC_ERROR;
3888: END IF;
3889:
3890: END LOOP;
3883: p_Creation_Date => l_creation_date
3884: );
3885:
3886: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3887: RAISE FND_API.G_EXC_ERROR;
3888: END IF;
3889:
3890: END LOOP;
3891:
3888: END IF;
3889:
3890: END LOOP;
3891:
3892: IF FND_API.TO_BOOLEAN(p_commit) THEN
3893: COMMIT WORK;
3894: END IF;
3895:
3896: EXCEPTION
3893: COMMIT WORK;
3894: END IF;
3895:
3896: EXCEPTION
3897: WHEN FND_API.G_EXC_ERROR THEN
3898: ROLLBACK TO create_default_rule_set;
3899: x_return_status := FND_API.G_RET_STS_ERROR;
3900: FND_MSG_PUB.Count_And_Get
3901: ( p_count => x_msg_count,
3895:
3896: EXCEPTION
3897: WHEN FND_API.G_EXC_ERROR THEN
3898: ROLLBACK TO create_default_rule_set;
3899: x_return_status := FND_API.G_RET_STS_ERROR;
3900: FND_MSG_PUB.Count_And_Get
3901: ( p_count => x_msg_count,
3902: p_data => x_msg_data
3903: );
3901: ( p_count => x_msg_count,
3902: p_data => x_msg_data
3903: );
3904:
3905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3906: ROLLBACK TO create_default_rule_set;
3907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3908: FND_MSG_PUB.Count_And_Get
3909: ( p_count => x_msg_count,
3903: );
3904:
3905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3906: ROLLBACK TO create_default_rule_set;
3907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3908: FND_MSG_PUB.Count_And_Get
3909: ( p_count => x_msg_count,
3910: p_data => x_msg_data
3911: );
3911: );
3912:
3913: WHEN OTHERS THEN
3914: ROLLBACK TO create_default_rule_set;
3915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3916: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3917: FND_MSG_PUB.Add_Exc_Msg
3918: ( G_PKG_NAME,
3919: l_api_name
3947: Create_Default_Rule_Set
3948: ( x_return_status => l_return_status,
3949: x_msg_count => l_msg_count,
3950: x_msg_data => l_msg_data,
3951: x_msg_init_list => FND_API.G_TRUE,
3952: p_commit => FND_API.G_TRUE,
3953: p_api_version => 1.0,
3954: p_data_extract_id => p_data_extract_id,
3955: p_rule_set_name => p_rule_set_name
3948: ( x_return_status => l_return_status,
3949: x_msg_count => l_msg_count,
3950: x_msg_data => l_msg_data,
3951: x_msg_init_list => FND_API.G_TRUE,
3952: p_commit => FND_API.G_TRUE,
3953: p_api_version => 1.0,
3954: p_data_extract_id => p_data_extract_id,
3955: p_rule_set_name => p_rule_set_name
3956: );
3954: p_data_extract_id => p_data_extract_id,
3955: p_rule_set_name => p_rule_set_name
3956: );
3957:
3958: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3959: RAISE FND_API.G_EXC_ERROR;
3960: END IF;
3961:
3962: EXCEPTION
3955: p_rule_set_name => p_rule_set_name
3956: );
3957:
3958: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3959: RAISE FND_API.G_EXC_ERROR;
3960: END IF;
3961:
3962: EXCEPTION
3963: WHEN FND_API.G_EXC_ERROR THEN
3959: RAISE FND_API.G_EXC_ERROR;
3960: END IF;
3961:
3962: EXCEPTION
3963: WHEN FND_API.G_EXC_ERROR THEN
3964: PSB_MESSAGE_S.Print_Error
3965: ( p_mode => FND_FILE.LOG,
3966: p_print_header => FND_API.G_TRUE
3967: );
3962: EXCEPTION
3963: WHEN FND_API.G_EXC_ERROR THEN
3964: PSB_MESSAGE_S.Print_Error
3965: ( p_mode => FND_FILE.LOG,
3966: p_print_header => FND_API.G_TRUE
3967: );
3968: retcode := 2;
3969:
3970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3966: p_print_header => FND_API.G_TRUE
3967: );
3968: retcode := 2;
3969:
3970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3971: PSB_MESSAGE_S.Print_Error
3972: ( p_mode => FND_FILE.LOG,
3973: p_print_header => FND_API.G_TRUE
3974: );
3969:
3970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3971: PSB_MESSAGE_S.Print_Error
3972: ( p_mode => FND_FILE.LOG,
3973: p_print_header => FND_API.G_TRUE
3974: );
3975: retcode := 2;
3976:
3977: WHEN OTHERS THEN
3980: end if;
3981:
3982: PSB_MESSAGE_S.Print_Error
3983: ( p_mode => FND_FILE.LOG,
3984: p_print_header => FND_API.G_TRUE
3985: );
3986: retcode := 2;
3987: END;
3988: /* Bug No. 1308558 End */