[Home] [Help]
62: * */
63: PROCEDURE Execute_ProcCP
64: (
65: p_api_version IN NUMBER := 1.0 --
66: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
67: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
68: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
69: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
70: ,p_output_dir IN VARCHAR2
63: PROCEDURE Execute_ProcCP
64: (
65: p_api_version IN NUMBER := 1.0 --
66: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
67: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
68: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
69: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
70: ,p_output_dir IN VARCHAR2
71: ,p_debug_filename IN VARCHAR2
64: (
65: p_api_version IN NUMBER := 1.0 --
66: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
67: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
68: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
69: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
70: ,p_output_dir IN VARCHAR2
71: ,p_debug_filename IN VARCHAR2
72: ,x_return_status OUT NOCOPY VARCHAR2 --
65: p_api_version IN NUMBER := 1.0 --
66: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
67: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
68: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
69: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
70: ,p_output_dir IN VARCHAR2
71: ,p_debug_filename IN VARCHAR2
72: ,x_return_status OUT NOCOPY VARCHAR2 --
73: ,x_msg_count OUT NOCOPY NUMBER --
111: -- Standard Start of API savepoint
112: SAVEPOINT Implement_ECO_PUB;
113:
114: -- Standard call to check for call compatibility
115: IF NOT FND_API.Compatible_API_Call ( l_api_version
116: ,p_api_version
117: ,l_api_name
118: ,G_PKG_NAME )
119: THEN
116: ,p_api_version
117: ,l_api_name
118: ,G_PKG_NAME )
119: THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;
122:
123: -- Initialize message list if p_init_msg_list is set to TRUE.
124: IF FND_API.to_Boolean( p_init_msg_list ) THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;
122:
123: -- Initialize message list if p_init_msg_list is set to TRUE.
124: IF FND_API.to_Boolean( p_init_msg_list ) THEN
125: FND_MSG_PUB.initialize;
126: END IF ;
127:
128: -- For Test/Debug
125: FND_MSG_PUB.initialize;
126: END IF ;
127:
128: -- For Test/Debug
129: IF FND_API.to_Boolean( p_debug ) THEN
130: ENG_CHANGE_ACTIONS_UTIL.Open_Debug_Session
131: ( p_file_name => p_debug_filename
132: , p_output_dir => p_output_dir
133: );
133: );
134: END IF ;
135:
136: -- Write debug message if debug mode is on
137: --IF FND_API.to_Boolean( p_debug ) THEN
138: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_Eco_Util.Execute_ProcCP log');
139: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('-----------------------------------------------------');
140: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_api_version ' || p_api_version);
141: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_init_msg_list '|| p_init_msg_list );
156: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Initializing return status... ' );
157: --END IF ;
158:
159: -- Initialize API return status to success
160: x_return_status := FND_API.G_RET_STS_SUCCESS;
161:
162: -- Real pl/sql code starts here
163:
164:
328: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CONCURRENT_PRGM');
329: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EN'||'G.ENCACNC(Implement ECO)');
330: -- concatenating to work around GSCC validation error without changing esisting behaviour
331: FND_MSG_PUB.Add;
332: RAISE FND_API.G_EXC_ERROR;
333: ELSE
334: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('setting x_request_id' );
335: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' x_request_id = ' || to_char(x_request_id) );
336: IF (p_rev_item_seq_id IS NOT NULL ) THEN
342: SET implementation_req_id = x_request_id
343: WHERE change_notice = p_change_notice
344: AND organization_id = p_org_id;
345: END IF ;
346: x_return_status := FND_API.G_RET_STS_SUCCESS;
347: END IF;
348:
349:
350: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Successful: calling Fnd_Request.Submit_Request' );
355: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Fnd_Request.Submit_Request not called ... ' );
356:
357: FND_MESSAGE.Set_Name('ENG', 'ENG_CANT_IMPL_WO_REV_ITEMS');
358: FND_MSG_PUB.Add;
359: x_return_status := FND_API.G_RET_STS_ERROR ;
360: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Done - adding error message ... ' );
361:
362: END IF ;
363:
362: END IF ;
363:
364:
365: -- Standard ending code ------------------------------------------------
366: -- IF FND_API.To_Boolean ( p_commit ) THEN
367: --Always commit to save request id.
368: COMMIT ;
369: -- END IF;
370:
376: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
377:
378:
379: EXCEPTION
380: WHEN FND_API.G_EXC_ERROR THEN
381: ROLLBACK TO Implement_ECO_PUB;
382: x_return_status := FND_API.G_RET_STS_ERROR;
383: FND_MSG_PUB.Count_And_Get
384: ( p_count => x_msg_count
378:
379: EXCEPTION
380: WHEN FND_API.G_EXC_ERROR THEN
381: ROLLBACK TO Implement_ECO_PUB;
382: x_return_status := FND_API.G_RET_STS_ERROR;
383: FND_MSG_PUB.Count_And_Get
384: ( p_count => x_msg_count
385: ,p_data => x_msg_data );
386: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with expected error.') ;
384: ( p_count => x_msg_count
385: ,p_data => x_msg_data );
386: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with expected error.') ;
387: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
388: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
389: ROLLBACK TO Implement_ECO_PUB;
390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
391: FND_MSG_PUB.Count_And_Get
392: ( p_count => x_msg_count
386: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with expected error.') ;
387: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
388: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
389: ROLLBACK TO Implement_ECO_PUB;
390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
391: FND_MSG_PUB.Count_And_Get
392: ( p_count => x_msg_count
393: ,p_data => x_msg_data );
394: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
394: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
395: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
396: WHEN OTHERS THEN
397: ROLLBACK TO Implement_ECO_PUB;
398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
399: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
400: THEN
401: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
402: END IF;
424: */
425: PROCEDURE Implement_ECO
426: (
427: p_api_version IN NUMBER --
428: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
429: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
430: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
431: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
432: ,p_output_dir IN VARCHAR2
425: PROCEDURE Implement_ECO
426: (
427: p_api_version IN NUMBER --
428: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
429: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
430: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
431: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
432: ,p_output_dir IN VARCHAR2
433: ,p_debug_filename IN VARCHAR2
426: (
427: p_api_version IN NUMBER --
428: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
429: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
430: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
431: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
432: ,p_output_dir IN VARCHAR2
433: ,p_debug_filename IN VARCHAR2
434: ,x_return_status OUT NOCOPY VARCHAR2 --
427: p_api_version IN NUMBER --
428: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
429: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
430: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
431: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
432: ,p_output_dir IN VARCHAR2
433: ,p_debug_filename IN VARCHAR2
434: ,x_return_status OUT NOCOPY VARCHAR2 --
435: ,x_msg_count OUT NOCOPY NUMBER --
462: -- Standard Start of API savepoint
463: SAVEPOINT Implement_ECO_PUB;
464:
465: -- Standard call to check for call compatibility
466: IF NOT FND_API.Compatible_API_Call ( l_api_version
467: ,p_api_version
468: ,l_api_name
469: ,G_PKG_NAME )
470: THEN
467: ,p_api_version
468: ,l_api_name
469: ,G_PKG_NAME )
470: THEN
471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
472: END IF;
473:
474: -- Initialize message list if p_init_msg_list is set to TRUE.
475: IF FND_API.to_Boolean( p_init_msg_list ) THEN
471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
472: END IF;
473:
474: -- Initialize message list if p_init_msg_list is set to TRUE.
475: IF FND_API.to_Boolean( p_init_msg_list ) THEN
476: FND_MSG_PUB.initialize;
477: END IF ;
478:
479: -- For Test/Debug
476: FND_MSG_PUB.initialize;
477: END IF ;
478:
479: -- For Test/Debug
480: IF FND_API.to_Boolean( p_debug ) THEN
481: ENG_CHANGE_ACTIONS_UTIL.Open_Debug_Session
482: ( p_file_name => p_debug_filename
483: , p_output_dir => p_output_dir
484: );
484: );
485: END IF ;
486:
487: -- Write debug message if debug mode is on
488: IF FND_API.to_Boolean( p_debug ) THEN
489: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_Eco_Util.Implement_ECO log');
490: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('-----------------------------------------------------');
491: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_change_id : ' || to_char(p_change_id) );
492: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_change_notice : ' || p_change_notice );
500: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Initializing return status... ' );
501: END IF ;
502:
503: -- Initialize API return status to success
504: x_return_status := FND_API.G_RET_STS_SUCCESS;
505:
506: -- Real pl/sql code starts here
507:
508:
646: argument99 => null,
647: argument100 => null
648: );
649:
650: IF FND_API.to_Boolean( p_debug ) THEN
651: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('After: calling Fnd_Request.Submit_Request' );
652: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' x_request_id = ' || to_char(x_request_id) );
653: END IF ;
654:
656: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CONCURRENT_PRGM');
657: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EN'||'G.ENCACN(Implement ECO)');
658: -- concatenating to work around GSCC validation error without changing esisting behaviour
659: FND_MSG_PUB.Add;
660: RAISE FND_API.G_EXC_ERROR;
661: ELSE
662: x_return_status := FND_API.G_RET_STS_SUCCESS;
663: END IF;
664:
658: -- concatenating to work around GSCC validation error without changing esisting behaviour
659: FND_MSG_PUB.Add;
660: RAISE FND_API.G_EXC_ERROR;
661: ELSE
662: x_return_status := FND_API.G_RET_STS_SUCCESS;
663: END IF;
664:
665: IF FND_API.to_Boolean( p_debug ) THEN
666: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Successful: calling Fnd_Request.Submit_Request' );
661: ELSE
662: x_return_status := FND_API.G_RET_STS_SUCCESS;
663: END IF;
664:
665: IF FND_API.to_Boolean( p_debug ) THEN
666: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Successful: calling Fnd_Request.Submit_Request' );
667: END IF ;
668:
669: ELSE
666: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Successful: calling Fnd_Request.Submit_Request' );
667: END IF ;
668:
669: ELSE
670: IF FND_API.to_Boolean( p_debug ) THEN
671: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('No implementable revised item found ... ' );
672: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Fnd_Request.Submit_Request not called ... ' );
673: END IF ;
674:
673: END IF ;
674:
675: FND_MESSAGE.Set_Name('ENG', 'ENG_CANT_IMPL_WO_REV_ITEMS');
676: FND_MSG_PUB.Add;
677: x_return_status := FND_API.G_RET_STS_ERROR ;
678:
679: IF FND_API.to_Boolean( p_debug ) THEN
680: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Done - adding error message ... ' );
681: END IF ;
675: FND_MESSAGE.Set_Name('ENG', 'ENG_CANT_IMPL_WO_REV_ITEMS');
676: FND_MSG_PUB.Add;
677: x_return_status := FND_API.G_RET_STS_ERROR ;
678:
679: IF FND_API.to_Boolean( p_debug ) THEN
680: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Done - adding error message ... ' );
681: END IF ;
682:
683: END IF ;
683: END IF ;
684:
685:
686: -- Standard ending code ------------------------------------------------
687: IF FND_API.To_Boolean ( p_commit ) THEN
688: COMMIT WORK;
689: END IF;
690:
691: FND_MSG_PUB.Count_And_Get
691: FND_MSG_PUB.Count_And_Get
692: ( p_count => x_msg_count,
693: p_data => x_msg_data );
694:
695: IF FND_API.to_Boolean( p_debug ) THEN
696: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Finish. Eng Of Proc') ;
697: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
698: END IF ;
699:
698: END IF ;
699:
700:
701: EXCEPTION
702: WHEN FND_API.G_EXC_ERROR THEN
703: ROLLBACK TO Implement_ECO_PUB;
704: x_return_status := FND_API.G_RET_STS_ERROR;
705: FND_MSG_PUB.Count_And_Get
706: ( p_count => x_msg_count
700:
701: EXCEPTION
702: WHEN FND_API.G_EXC_ERROR THEN
703: ROLLBACK TO Implement_ECO_PUB;
704: x_return_status := FND_API.G_RET_STS_ERROR;
705: FND_MSG_PUB.Count_And_Get
706: ( p_count => x_msg_count
707: ,p_data => x_msg_data );
708: IF FND_API.to_Boolean( p_debug ) THEN
704: x_return_status := FND_API.G_RET_STS_ERROR;
705: FND_MSG_PUB.Count_And_Get
706: ( p_count => x_msg_count
707: ,p_data => x_msg_data );
708: IF FND_API.to_Boolean( p_debug ) THEN
709: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with expected error.') ;
710: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
711: END IF ;
712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
708: IF FND_API.to_Boolean( p_debug ) THEN
709: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with expected error.') ;
710: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
711: END IF ;
712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
713: ROLLBACK TO Implement_ECO_PUB;
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: FND_MSG_PUB.Count_And_Get
716: ( p_count => x_msg_count
710: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
711: END IF ;
712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
713: ROLLBACK TO Implement_ECO_PUB;
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: FND_MSG_PUB.Count_And_Get
716: ( p_count => x_msg_count
717: ,p_data => x_msg_data );
718: IF FND_API.to_Boolean( p_debug ) THEN
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: FND_MSG_PUB.Count_And_Get
716: ( p_count => x_msg_count
717: ,p_data => x_msg_data );
718: IF FND_API.to_Boolean( p_debug ) THEN
719: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
720: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
721: END IF ;
722: WHEN OTHERS THEN
720: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
721: END IF ;
722: WHEN OTHERS THEN
723: ROLLBACK TO Implement_ECO_PUB;
724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
725: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
726: THEN
727: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
728: END IF;
728: END IF;
729: FND_MSG_PUB.Count_And_Get
730: ( p_count => x_msg_count
731: ,p_data => x_msg_data );
732: IF FND_API.to_Boolean( p_debug ) THEN
733: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with other errors.') ;
734: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
735: END IF ;
736:
743: */
744: PROCEDURE Execute_ProcCP
745: (
746: p_api_version IN NUMBER --
747: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
748: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
749: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
750: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
751: ,p_output_dir IN VARCHAR2
744: PROCEDURE Execute_ProcCP
745: (
746: p_api_version IN NUMBER --
747: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
748: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
749: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
750: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
751: ,p_output_dir IN VARCHAR2
752: ,p_debug_filename IN VARCHAR2
745: (
746: p_api_version IN NUMBER --
747: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
748: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
749: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
750: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
751: ,p_output_dir IN VARCHAR2
752: ,p_debug_filename IN VARCHAR2
753: ,x_return_status OUT NOCOPY VARCHAR2 --
746: p_api_version IN NUMBER --
747: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
748: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
749: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
750: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
751: ,p_output_dir IN VARCHAR2
752: ,p_debug_filename IN VARCHAR2
753: ,x_return_status OUT NOCOPY VARCHAR2 --
754: ,x_msg_count OUT NOCOPY NUMBER --
778: -- Standard Start of API savepoint
779: SAVEPOINT Implement_ECO_PUB;
780:
781: -- Standard call to check for call compatibility
782: IF NOT FND_API.Compatible_API_Call ( l_api_version
783: ,p_api_version
784: ,l_api_name
785: ,G_PKG_NAME )
786: THEN
783: ,p_api_version
784: ,l_api_name
785: ,G_PKG_NAME )
786: THEN
787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
788: END IF;
789:
790: -- Initialize message list if p_init_msg_list is set to TRUE.
791: IF FND_API.to_Boolean( p_init_msg_list ) THEN
787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
788: END IF;
789:
790: -- Initialize message list if p_init_msg_list is set to TRUE.
791: IF FND_API.to_Boolean( p_init_msg_list ) THEN
792: FND_MSG_PUB.initialize;
793: END IF ;
794:
795: -- For Test/Debug
792: FND_MSG_PUB.initialize;
793: END IF ;
794:
795: -- For Test/Debug
796: IF FND_API.to_Boolean( p_debug ) THEN
797: ENG_CHANGE_ACTIONS_UTIL.Open_Debug_Session
798: ( p_file_name => p_debug_filename
799: , p_output_dir => p_output_dir
800: );
800: );
801: END IF ;
802:
803: -- Write debug message if debug mode is on
804: IF FND_API.to_Boolean( p_debug ) THEN
805: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_Eco_Util.Execute_ProcCP log');
806: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('-----------------------------------------------------');
807: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_change_id : ' || to_char(p_change_id) );
808: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_change_notice : ' || p_change_notice );
816: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Initializing return status... ' );
817: END IF ;
818:
819: -- Initialize API return status to success
820: x_return_status := FND_API.G_RET_STS_SUCCESS;
821:
822: -- Real pl/sql code starts here
823:
824:
957: argument100 => null
958: );
959:
960:
961: IF FND_API.to_Boolean( p_debug ) THEN
962: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('After: calling Fnd_Request.Submit_Request' );
963: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' x_request_id = ' || to_char(x_request_id) );
964: END IF ;
965:
970: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CONCURRENT_PRGM');
971: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EN'||'G.ENCACN(Implement ECO)');
972: -- concatenating to work around GSCC validation error without changing esisting behaviour
973: FND_MSG_PUB.Add;
974: RAISE FND_API.G_EXC_ERROR;
975: ELSE
976:
977: x_return_status := FND_API.G_RET_STS_SUCCESS;
978: END IF;
973: FND_MSG_PUB.Add;
974: RAISE FND_API.G_EXC_ERROR;
975: ELSE
976:
977: x_return_status := FND_API.G_RET_STS_SUCCESS;
978: END IF;
979:
980: IF FND_API.to_Boolean( p_debug ) THEN
981: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Successful: calling Fnd_Request.Submit_Request' );
976:
977: x_return_status := FND_API.G_RET_STS_SUCCESS;
978: END IF;
979:
980: IF FND_API.to_Boolean( p_debug ) THEN
981: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Successful: calling Fnd_Request.Submit_Request' );
982: END IF ;
983:
984: ELSE
982: END IF ;
983:
984: ELSE
985:
986: IF FND_API.to_Boolean( p_debug ) THEN
987: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('No implementable revised item found ... ' );
988: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Fnd_Request.Submit_Request not called ... ' );
989: END IF ;
990:
989: END IF ;
990:
991: FND_MESSAGE.Set_Name('ENG', 'ENG_CANT_IMPL_WO_REV_ITEMS');
992: FND_MSG_PUB.Add;
993: x_return_status := FND_API.G_RET_STS_ERROR ;
994:
995: IF FND_API.to_Boolean( p_debug ) THEN
996: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Done - adding error message ... ' );
997: END IF ;
991: FND_MESSAGE.Set_Name('ENG', 'ENG_CANT_IMPL_WO_REV_ITEMS');
992: FND_MSG_PUB.Add;
993: x_return_status := FND_API.G_RET_STS_ERROR ;
994:
995: IF FND_API.to_Boolean( p_debug ) THEN
996: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Done - adding error message ... ' );
997: END IF ;
998:
999: END IF ;
1001:
1002:
1003:
1004: -- Standard ending code ------------------------------------------------
1005: IF FND_API.To_Boolean ( p_commit ) THEN
1006: COMMIT WORK;
1007: END IF;
1008:
1009: FND_MSG_PUB.Count_And_Get
1009: FND_MSG_PUB.Count_And_Get
1010: ( p_count => x_msg_count,
1011: p_data => x_msg_data );
1012:
1013: IF FND_API.to_Boolean( p_debug ) THEN
1014: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Finish. Eng Of Proc') ;
1015: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1016: END IF ;
1017:
1016: END IF ;
1017:
1018:
1019: EXCEPTION
1020: WHEN FND_API.G_EXC_ERROR THEN
1021:
1022: ROLLBACK TO Implement_ECO_PUB;
1023: x_return_status := FND_API.G_RET_STS_ERROR;
1024: FND_MSG_PUB.Count_And_Get
1019: EXCEPTION
1020: WHEN FND_API.G_EXC_ERROR THEN
1021:
1022: ROLLBACK TO Implement_ECO_PUB;
1023: x_return_status := FND_API.G_RET_STS_ERROR;
1024: FND_MSG_PUB.Count_And_Get
1025: ( p_count => x_msg_count
1026: ,p_data => x_msg_data );
1027: IF FND_API.to_Boolean( p_debug ) THEN
1023: x_return_status := FND_API.G_RET_STS_ERROR;
1024: FND_MSG_PUB.Count_And_Get
1025: ( p_count => x_msg_count
1026: ,p_data => x_msg_data );
1027: IF FND_API.to_Boolean( p_debug ) THEN
1028: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with expected error.') ;
1029: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1030: END IF ;
1031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1027: IF FND_API.to_Boolean( p_debug ) THEN
1028: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with expected error.') ;
1029: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1030: END IF ;
1031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1032:
1033: ROLLBACK TO Implement_ECO_PUB;
1034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1035: FND_MSG_PUB.Count_And_Get
1030: END IF ;
1031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1032:
1033: ROLLBACK TO Implement_ECO_PUB;
1034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1035: FND_MSG_PUB.Count_And_Get
1036: ( p_count => x_msg_count
1037: ,p_data => x_msg_data );
1038: IF FND_API.to_Boolean( p_debug ) THEN
1034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1035: FND_MSG_PUB.Count_And_Get
1036: ( p_count => x_msg_count
1037: ,p_data => x_msg_data );
1038: IF FND_API.to_Boolean( p_debug ) THEN
1039: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1040: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1041: END IF ;
1042: WHEN OTHERS THEN
1041: END IF ;
1042: WHEN OTHERS THEN
1043:
1044: ROLLBACK TO Implement_ECO_PUB;
1045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1046: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1047: THEN
1048: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1049: END IF;
1049: END IF;
1050: FND_MSG_PUB.Count_And_Get
1051: ( p_count => x_msg_count
1052: ,p_data => x_msg_data );
1053: IF FND_API.to_Boolean( p_debug ) THEN
1054: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with other errors.') ;
1055: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1056: END IF ;
1057:
1092: -- Standard Start of API savepoint
1093: SAVEPOINT Propagate_ECO_PUB;
1094:
1095: -- Standard call to check for call compatibility
1096: IF NOT FND_API.Compatible_API_Call ( l_api_version
1097: ,p_api_version
1098: ,l_api_name
1099: ,G_PKG_NAME )
1100: THEN
1097: ,p_api_version
1098: ,l_api_name
1099: ,G_PKG_NAME )
1100: THEN
1101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1102: END IF;
1103:
1104: -- Initialize message list if p_init_msg_list is set to TRUE.
1105: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1102: END IF;
1103:
1104: -- Initialize message list if p_init_msg_list is set to TRUE.
1105: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1106: FND_MSG_PUB.initialize;
1107: END IF ;
1108:
1109: -- For Test/Debug
1106: FND_MSG_PUB.initialize;
1107: END IF ;
1108:
1109: -- For Test/Debug
1110: IF FND_API.to_Boolean( p_debug ) THEN
1111: ENG_CHANGE_ACTIONS_UTIL.Open_Debug_Session
1112: ( p_file_name => p_debug_filename
1113: , p_output_dir => p_output_dir
1114: );
1114: );
1115: END IF ;
1116:
1117: -- Write debug message if debug mode is on
1118: IF FND_API.to_Boolean( p_debug ) THEN
1119: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_Eco_Util.Propagate_ECO log');
1120: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('-----------------------------------------------------');
1121: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_change_id : ' || to_char(p_change_id) );
1122: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_change_notice : ' || p_change_notice );
1127: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Initializing return status... ' );
1128: END IF ;
1129:
1130: -- Initialize API return status to success
1131: x_return_status := FND_API.G_RET_STS_SUCCESS;
1132:
1133:
1134: -- Real pl/sql code starts here
1135: x_request_id := Fnd_Request.Submit_Request (
1238: argument98 => null,
1239: argument99 => null,
1240: argument100 => null);
1241:
1242: IF FND_API.to_Boolean( p_debug ) THEN
1243: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('After: calling Fnd_Request.Submit_Request' );
1244: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' x_request_id = ' || to_char(x_request_id) );
1245: END IF ;
1246:
1248: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CONCURRENT_PRGM');
1249: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EN'||'G.ENGECOBO(Propagate ECO)');
1250: -- concatenating to work around GSCC validation error without changing esisting behaviour
1251: FND_MSG_PUB.Add;
1252: RAISE FND_API.G_EXC_ERROR;
1253: ELSE
1254: x_return_status := FND_API.G_RET_STS_SUCCESS;
1255: END IF;
1256:
1250: -- concatenating to work around GSCC validation error without changing esisting behaviour
1251: FND_MSG_PUB.Add;
1252: RAISE FND_API.G_EXC_ERROR;
1253: ELSE
1254: x_return_status := FND_API.G_RET_STS_SUCCESS;
1255: END IF;
1256:
1257: IF FND_API.to_Boolean( p_debug ) THEN
1258: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Successful: calling Fnd_Request.Submit_Request' );
1253: ELSE
1254: x_return_status := FND_API.G_RET_STS_SUCCESS;
1255: END IF;
1256:
1257: IF FND_API.to_Boolean( p_debug ) THEN
1258: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Successful: calling Fnd_Request.Submit_Request' );
1259: END IF ;
1260:
1261: ENGECOBO.PreProcess_Propagate_Request (
1259: END IF ;
1260:
1261: ENGECOBO.PreProcess_Propagate_Request (
1262: p_api_version => 1.0
1263: , p_init_msg_list => FND_API.G_FALSE
1264: , p_commit => FND_API.G_FALSE
1265: , p_request_id => x_request_id
1266: , p_change_id => p_change_id
1267: , p_org_hierarchy_name => p_hierarchy_name
1260:
1261: ENGECOBO.PreProcess_Propagate_Request (
1262: p_api_version => 1.0
1263: , p_init_msg_list => FND_API.G_FALSE
1264: , p_commit => FND_API.G_FALSE
1265: , p_request_id => x_request_id
1266: , p_change_id => p_change_id
1267: , p_org_hierarchy_name => p_hierarchy_name
1268: , p_local_organization_id => p_local_organization_id
1272: , x_msg_data => x_msg_data
1273: ) ;
1274:
1275: -- Standard ending code ------------------------------------------------
1276: IF FND_API.To_Boolean ( p_commit ) THEN
1277: COMMIT WORK;
1278: END IF;
1279:
1280: FND_MSG_PUB.Count_And_Get
1280: FND_MSG_PUB.Count_And_Get
1281: ( p_count => x_msg_count,
1282: p_data => x_msg_data );
1283:
1284: IF FND_API.to_Boolean( p_debug ) THEN
1285: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Finish. Eng Of Proc') ;
1286: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1287: END IF ;
1288:
1287: END IF ;
1288:
1289:
1290: EXCEPTION
1291: WHEN FND_API.G_EXC_ERROR THEN
1292: ROLLBACK TO Propagate_ECO_PUB;
1293: x_return_status := FND_API.G_RET_STS_ERROR;
1294: FND_MSG_PUB.Count_And_Get
1295: ( p_count => x_msg_count
1289:
1290: EXCEPTION
1291: WHEN FND_API.G_EXC_ERROR THEN
1292: ROLLBACK TO Propagate_ECO_PUB;
1293: x_return_status := FND_API.G_RET_STS_ERROR;
1294: FND_MSG_PUB.Count_And_Get
1295: ( p_count => x_msg_count
1296: ,p_data => x_msg_data );
1297: IF FND_API.to_Boolean( p_debug ) THEN
1293: x_return_status := FND_API.G_RET_STS_ERROR;
1294: FND_MSG_PUB.Count_And_Get
1295: ( p_count => x_msg_count
1296: ,p_data => x_msg_data );
1297: IF FND_API.to_Boolean( p_debug ) THEN
1298: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1299: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1300: END IF ;
1301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1297: IF FND_API.to_Boolean( p_debug ) THEN
1298: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1299: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1300: END IF ;
1301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1302: ROLLBACK TO Propagate_ECO_PUB;
1303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1304: FND_MSG_PUB.Count_And_Get
1305: ( p_count => x_msg_count
1299: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1300: END IF ;
1301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1302: ROLLBACK TO Propagate_ECO_PUB;
1303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1304: FND_MSG_PUB.Count_And_Get
1305: ( p_count => x_msg_count
1306: ,p_data => x_msg_data );
1307: IF FND_API.to_Boolean( p_debug ) THEN
1303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1304: FND_MSG_PUB.Count_And_Get
1305: ( p_count => x_msg_count
1306: ,p_data => x_msg_data );
1307: IF FND_API.to_Boolean( p_debug ) THEN
1308: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1309: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1310: END IF ;
1311: WHEN OTHERS THEN
1309: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1310: END IF ;
1311: WHEN OTHERS THEN
1312: ROLLBACK TO Propagate_ECO_PUB;
1313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1314: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1315: THEN
1316: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1317: END IF;
1317: END IF;
1318: FND_MSG_PUB.Count_And_Get
1319: ( p_count => x_msg_count
1320: ,p_data => x_msg_data );
1321: IF FND_API.to_Boolean( p_debug ) THEN
1322: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1323: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1324: END IF ;
1325:
1396: THEN
1397: FND_MESSAGE.Set_Name('ENG','ENG_DUP_REV_ITEM_WITH_NEW_REV'); -- create and use a new message
1398: --FND_MESSAGE.Set_Token('ITEM_NAMES', item_names);
1399: FND_MSG_PUB.Add;
1400: RAISE FND_API.G_EXC_ERROR;
1401: END IF;
1402: -- end of vamohan changes
1403:
1404:
1402: -- end of vamohan changes
1403:
1404:
1405: -- Standard call to check for call compatibility
1406: IF NOT FND_API.Compatible_API_Call ( l_api_version
1407: ,p_api_version
1408: ,l_api_name
1409: ,G_PKG_NAME )
1410: THEN
1407: ,p_api_version
1408: ,l_api_name
1409: ,G_PKG_NAME )
1410: THEN
1411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1412: END IF;
1413:
1414: -- Initialize message list if p_init_msg_list is set to TRUE.
1415: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1412: END IF;
1413:
1414: -- Initialize message list if p_init_msg_list is set to TRUE.
1415: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1416: FND_MSG_PUB.initialize;
1417: END IF ;
1418:
1419: -- For Test/Debug
1416: FND_MSG_PUB.initialize;
1417: END IF ;
1418:
1419: -- For Test/Debug
1420: IF FND_API.to_Boolean( p_debug ) THEN
1421: ENG_CHANGE_ACTIONS_UTIL.Open_Debug_Session
1422: ( p_file_name => p_debug_filename
1423: , p_output_dir => p_output_dir
1424: );
1424: );
1425: END IF ;
1426:
1427: -- Write debug message if debug mode is on
1428: IF FND_API.to_Boolean( p_debug ) THEN
1429: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_Eco_Util.Reschedule_ECO log');
1430: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('-----------------------------------------------------');
1431: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_change_id : ' || to_char(p_change_id) );
1432: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_effectivity_date : ' || to_char(p_effectivity_date) );
1436: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Initializing return status... ' );
1437: END IF ;
1438:
1439: -- Initialize API return status to success
1440: x_return_status := FND_API.G_RET_STS_SUCCESS;
1441:
1442:
1443: -- Real pl/sql code starts here
1444: IF x_planning_item_access = 2 THEN
1477: And msi.organization_id = eri.organization_Id
1478: And msi.bom_item_type in (X_Model, X_OptionClass, X_Planning, X_Standard)
1479: );
1480:
1481: IF FND_API.to_Boolean( p_debug ) THEN
1482: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Eng_Revised_Items updated ... ' );
1483: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1484: END IF ;
1485:
1483: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1484: END IF ;
1485:
1486: IF SQL%FOUND THEN
1487: IF FND_API.to_Boolean( p_debug ) THEN
1488: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_REVISED_ITEMS rows found, updating: ' );
1489: END IF ;
1490:
1491: -- Insert records in the history table
1530: )
1531: And msi.bom_item_type in
1532: (X_Model, X_OptionClass, X_Planning, X_Standard);
1533:
1534: IF FND_API.to_Boolean( p_debug ) THEN
1535: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Eng_Current_Scheduled_Dates inserted ... ' );
1536: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1537: END IF ;
1538:
1549: where bill_sequence_id = bic.bill_sequence_id
1550: and organization_id = x_organization_id )
1551: AND bic.IMPLEMENTATION_DATE IS NULL;
1552:
1553: IF FND_API.to_Boolean( p_debug ) THEN
1554: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_INVENTORY_COMPONENTS.EFFECTIVITY_DATE updated ... ' );
1555: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1556: END IF ;
1557:
1576: , x_Return_Status => l_return_status);
1577: END LOOP;
1578: -- End changes for R12
1579:
1580: IF FND_API.to_Boolean( p_debug ) THEN
1581: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_INVENTORY_COMPONENTS.DISABLE_DATE updated ... ' );
1582: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1583: END IF ;
1584:
1591: where routing_sequence_id = bos.routing_sequence_id
1592: and organization_id = x_organization_id )
1593: AND bos.IMPLEMENTATION_DATE IS NULL;
1594:
1595: IF FND_API.to_Boolean( p_debug ) THEN
1596: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_OPERATION_SEQUENCES.EFFECTIVITY_DATE updated ... ' );
1597: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1598: END IF ;
1599:
1607: where routing_sequence_id = bos1.routing_sequence_id
1608: and organization_id = x_organization_id )
1609: AND bos1.IMPLEMENTATION_DATE IS NULL;
1610:
1611: IF FND_API.to_Boolean( p_debug ) THEN
1612: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_OPERATION_SEQUENCES.DISABLE_DATE updated ... ' );
1613: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1614: END IF ;
1615:
1643:
1644:
1645:
1646:
1647: IF FND_API.to_Boolean( p_debug ) THEN
1648: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('MTL_ITEM_REVISIONS updated ... ' );
1649: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1650: END IF ;
1651:
1672: AND msi.organization_id = eri.organization_Id
1673: AND msi.bom_item_type in (X_Model, X_OptionClass,
1674: X_Planning, X_Standard)));
1675:
1676: IF FND_API.to_Boolean( p_debug ) THEN
1677: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('MTL_RTG_ITEM_REVISIONS updated ... ' );
1678: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1679: END IF ;
1680:
1680:
1681:
1682:
1683: ELSE
1684: IF FND_API.to_Boolean( p_debug ) THEN
1685: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_REVISED_ITEMS rows NOT found. NO updates. ' );
1686: END IF ;
1687:
1688: END IF;
1688: END IF;
1689:
1690:
1691: -- Standard ending code ------------------------------------------------
1692: IF FND_API.To_Boolean ( p_commit ) THEN
1693: COMMIT WORK;
1694: END IF;
1695:
1696: FND_MSG_PUB.Count_And_Get
1696: FND_MSG_PUB.Count_And_Get
1697: ( p_count => x_msg_count,
1698: p_data => x_msg_data );
1699:
1700: IF FND_API.to_Boolean( p_debug ) THEN
1701: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Finish. Eng Of Proc') ;
1702: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1703: END IF ;
1704:
1703: END IF ;
1704:
1705:
1706: EXCEPTION
1707: WHEN FND_API.G_EXC_ERROR THEN
1708: ROLLBACK TO Reschedule_ECO_PUB;
1709: x_return_status := FND_API.G_RET_STS_ERROR;
1710: FND_MSG_PUB.Count_And_Get
1711: ( p_count => x_msg_count
1705:
1706: EXCEPTION
1707: WHEN FND_API.G_EXC_ERROR THEN
1708: ROLLBACK TO Reschedule_ECO_PUB;
1709: x_return_status := FND_API.G_RET_STS_ERROR;
1710: FND_MSG_PUB.Count_And_Get
1711: ( p_count => x_msg_count
1712: ,p_data => x_msg_data );
1713: IF FND_API.to_Boolean( p_debug ) THEN
1709: x_return_status := FND_API.G_RET_STS_ERROR;
1710: FND_MSG_PUB.Count_And_Get
1711: ( p_count => x_msg_count
1712: ,p_data => x_msg_data );
1713: IF FND_API.to_Boolean( p_debug ) THEN
1714: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1715: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1716: END IF ;
1717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1713: IF FND_API.to_Boolean( p_debug ) THEN
1714: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1715: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1716: END IF ;
1717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1718: ROLLBACK TO Reschedule_ECO_PUB;
1719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1720: FND_MSG_PUB.Count_And_Get
1721: ( p_count => x_msg_count
1715: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1716: END IF ;
1717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1718: ROLLBACK TO Reschedule_ECO_PUB;
1719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1720: FND_MSG_PUB.Count_And_Get
1721: ( p_count => x_msg_count
1722: ,p_data => x_msg_data );
1723: IF FND_API.to_Boolean( p_debug ) THEN
1719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1720: FND_MSG_PUB.Count_And_Get
1721: ( p_count => x_msg_count
1722: ,p_data => x_msg_data );
1723: IF FND_API.to_Boolean( p_debug ) THEN
1724: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1725: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1726: END IF ;
1727: WHEN OTHERS THEN
1725: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1726: END IF ;
1727: WHEN OTHERS THEN
1728: ROLLBACK TO Reschedule_ECO_PUB;
1729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1730: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1731: THEN
1732: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1733: END IF;
1733: END IF;
1734: FND_MSG_PUB.Count_And_Get
1735: ( p_count => x_msg_count
1736: ,p_data => x_msg_data );
1737: IF FND_API.to_Boolean( p_debug ) THEN
1738: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1739: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1740: END IF ;
1741:
1815: -- Standard Start of API savepoint
1816: SAVEPOINT Change_Effectivity_Date_PUB;
1817:
1818: -- Standard call to check for call compatibility
1819: IF NOT FND_API.Compatible_API_Call ( l_api_version
1820: ,p_api_version
1821: ,l_api_name
1822: ,G_PKG_NAME )
1823: THEN
1820: ,p_api_version
1821: ,l_api_name
1822: ,G_PKG_NAME )
1823: THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826:
1827: -- Initialize message list if p_init_msg_list is set to TRUE.
1828: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826:
1827: -- Initialize message list if p_init_msg_list is set to TRUE.
1828: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1829: FND_MSG_PUB.initialize;
1830: END IF ;
1831:
1832: -- For Test/Debug
1829: FND_MSG_PUB.initialize;
1830: END IF ;
1831:
1832: -- For Test/Debug
1833: IF FND_API.to_Boolean( p_debug ) THEN
1834: ENG_CHANGE_ACTIONS_UTIL.Open_Debug_Session
1835: ( p_file_name => p_debug_filename
1836: , p_output_dir => p_output_dir
1837: );
1837: );
1838: END IF ;
1839:
1840: -- Write debug message if debug mode is on
1841: IF FND_API.to_Boolean( p_debug ) THEN
1842: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_Eco_Util.Change_Effectivity_Date log');
1843: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('-----------------------------------------------------');
1844: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_change_id : ' || to_char(p_change_id) );
1845: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_effectivity_date : ' || to_char(p_effectivity_date) );
1848: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Initializing return status... ' );
1849: END IF ;
1850:
1851: -- Initialize API return status to success
1852: x_return_status := FND_API.G_RET_STS_SUCCESS;
1853:
1854:
1855: -- Real pl/sql code starts here
1856: -- bug 14548151
1870:
1871: IF p_effectivity_date <= l_max_smaller_eff_date OR p_effectivity_date >= l_min_bigger_eff_date THEN
1872: FND_MESSAGE.Set_Name('ENG','ENG_REVISION_ORDER');
1873: FND_MSG_PUB.Add;
1874: RAISE FND_API.G_EXC_ERROR;
1875: END IF;
1876:
1877: FETCH c_item_revisions INTO l_organization_id, l_revision, l_item_id;
1878: END LOOP;
1914: And msi.organization_id = eri.organization_Id
1915: And msi.bom_item_type in (X_Model, X_OptionClass, X_Planning, X_Standard)
1916: );
1917:
1918: IF FND_API.to_Boolean( p_debug ) THEN
1919: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Eng_Revised_Items updated ... ' );
1920: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1921: END IF ;
1922:
1920: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1921: END IF ;
1922:
1923: IF SQL%FOUND THEN
1924: IF FND_API.to_Boolean( p_debug ) THEN
1925: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_REVISED_ITEMS rows found, updating: ' );
1926: END IF ;
1927:
1928:
1939: where bill_sequence_id = bic.bill_sequence_id
1940: and organization_id = x_organization_id )
1941: AND bic.IMPLEMENTATION_DATE IS NULL;
1942:
1943: IF FND_API.to_Boolean( p_debug ) THEN
1944: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_INVENTORY_COMPONENTS.EFFECTIVITY_DATE updated ... ' );
1945: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1946: END IF ;
1947:
1966: , x_Return_Status => l_return_status);
1967: END LOOP;
1968: -- End changes for R12
1969:
1970: IF FND_API.to_Boolean( p_debug ) THEN
1971: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_INVENTORY_COMPONENTS.DISABLE_DATE updated ... ' );
1972: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1973: END IF ;
1974:
1981: where routing_sequence_id = bos.routing_sequence_id
1982: and organization_id = x_organization_id )
1983: AND bos.IMPLEMENTATION_DATE IS NULL;
1984:
1985: IF FND_API.to_Boolean( p_debug ) THEN
1986: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_OPERATION_SEQUENCES.EFFECTIVITY_DATE updated ... ' );
1987: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1988: END IF ;
1989:
1997: where routing_sequence_id = bos1.routing_sequence_id
1998: and organization_id = x_organization_id )
1999: AND bos1.IMPLEMENTATION_DATE IS NULL;
2000:
2001: IF FND_API.to_Boolean( p_debug ) THEN
2002: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_OPERATION_SEQUENCES.DISABLE_DATE updated ... ' );
2003: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
2004: END IF ;
2005:
2029: X_Planning, X_Standard)));
2030: --no updation of mtl_item_revisions_tl
2031:
2032:
2033: IF FND_API.to_Boolean( p_debug ) THEN
2034: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('MTL_ITEM_REVISIONS updated ... ' );
2035: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
2036: END IF ;
2037:
2058: AND msi.organization_id = eri.organization_Id
2059: AND msi.bom_item_type in (X_Model, X_OptionClass,
2060: X_Planning, X_Standard)));
2061:
2062: IF FND_API.to_Boolean( p_debug ) THEN
2063: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('MTL_RTG_ITEM_REVISIONS updated ... ' );
2064: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
2065: END IF ;
2066:
2066:
2067:
2068:
2069: ELSE
2070: IF FND_API.to_Boolean( p_debug ) THEN
2071: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_REVISED_ITEMS rows NOT found. NO updates. ' );
2072: END IF ;
2073:
2074: END IF;
2074: END IF;
2075:
2076:
2077: -- Standard ending code ------------------------------------------------
2078: IF FND_API.To_Boolean ( p_commit ) THEN
2079: COMMIT WORK;
2080: END IF;
2081:
2082: FND_MSG_PUB.Count_And_Get
2082: FND_MSG_PUB.Count_And_Get
2083: ( p_count => x_msg_count,
2084: p_data => x_msg_data );
2085:
2086: IF FND_API.to_Boolean( p_debug ) THEN
2087: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Finish. Eng Of Proc') ;
2088: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
2089: END IF ;
2090:
2089: END IF ;
2090:
2091:
2092: EXCEPTION
2093: WHEN FND_API.G_EXC_ERROR THEN
2094: ROLLBACK TO Change_Effectivity_Date_PUB;
2095: x_return_status := FND_API.G_RET_STS_ERROR;
2096: FND_MSG_PUB.Count_And_Get
2097: ( p_count => x_msg_count
2091:
2092: EXCEPTION
2093: WHEN FND_API.G_EXC_ERROR THEN
2094: ROLLBACK TO Change_Effectivity_Date_PUB;
2095: x_return_status := FND_API.G_RET_STS_ERROR;
2096: FND_MSG_PUB.Count_And_Get
2097: ( p_count => x_msg_count
2098: ,p_data => x_msg_data );
2099: IF FND_API.to_Boolean( p_debug ) THEN
2095: x_return_status := FND_API.G_RET_STS_ERROR;
2096: FND_MSG_PUB.Count_And_Get
2097: ( p_count => x_msg_count
2098: ,p_data => x_msg_data );
2099: IF FND_API.to_Boolean( p_debug ) THEN
2100: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
2101: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
2102: END IF ;
2103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2099: IF FND_API.to_Boolean( p_debug ) THEN
2100: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
2101: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
2102: END IF ;
2103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2104: ROLLBACK TO Change_Effectivity_Date_PUB;
2105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2106: FND_MSG_PUB.Count_And_Get
2107: ( p_count => x_msg_count
2101: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
2102: END IF ;
2103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2104: ROLLBACK TO Change_Effectivity_Date_PUB;
2105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2106: FND_MSG_PUB.Count_And_Get
2107: ( p_count => x_msg_count
2108: ,p_data => x_msg_data );
2109: IF FND_API.to_Boolean( p_debug ) THEN
2105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2106: FND_MSG_PUB.Count_And_Get
2107: ( p_count => x_msg_count
2108: ,p_data => x_msg_data );
2109: IF FND_API.to_Boolean( p_debug ) THEN
2110: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
2111: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
2112: END IF ;
2113: WHEN OTHERS THEN
2111: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
2112: END IF ;
2113: WHEN OTHERS THEN
2114: ROLLBACK TO Change_Effectivity_Date_PUB;
2115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2116: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2117: THEN
2118: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
2119: END IF;
2119: END IF;
2120: FND_MSG_PUB.Count_And_Get
2121: ( p_count => x_msg_count
2122: ,p_data => x_msg_data );
2123: IF FND_API.to_Boolean( p_debug ) THEN
2124: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
2125: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
2126: END IF ;
2127:
2710: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2711: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
2712: );
2713:
2714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2715: END Cancel_ECO;
2716:
2717: -- Procedure Update_Row
2718:
2737: l_mdl_item_access NUMBER := Eng_Globals.Get_MDL_Item_Access;
2738: l_change_name VARCHAR2(240); -- Bug 3032565
2739: BEGIN
2740:
2741: x_return_status := FND_API.G_RET_STS_SUCCESS;
2742:
2743: l_user_id := Eng_Globals.Get_User_Id;
2744: l_login_id := Eng_Globals.Get_Login_Id;
2745: l_request_id := ENG_GLOBALS.Get_request_id;
2825: -- End Changes
2826: WHERE change_notice = p_eco_rec.eco_name
2827: AND organization_id = p_unexp_eco_rec.organization_id;
2828:
2829: x_return_status := FND_API.G_RET_STS_SUCCESS;
2830:
2831: EXCEPTION
2832: WHEN OTHERS THEN
2833:
2832: WHEN OTHERS THEN
2833:
2834: IF G_CONTROL_REC.caller_type = 'FORM'
2835: THEN
2836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2837: RAISE;
2838: END IF;
2839:
2840: l_err_text := G_PKG_NAME || ' : Utility (ECO Update) '
2844: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2845: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
2846: );
2847:
2848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2849: RETURN;
2850: END;
2851: END IF;
2852:
2957: ,l_PLN_Item_Access
2958: ,l_MDL_Item_Access));
2959: END IF;
2960:
2961: x_return_status := FND_API.G_RET_STS_SUCCESS;
2962:
2963: EXCEPTION
2964: WHEN NO_DATA_FOUND THEN
2965: NULL;
2967: WHEN OTHERS THEN
2968:
2969: IF G_CONTROL_REC.caller_type = 'FORM'
2970: THEN
2971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2972: RAISE;
2973: END IF;
2974:
2975: l_err_text := G_PKG_NAME || ' : Utility (ECO Update) '
2980: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2981: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
2982: );
2983:
2984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2985: RETURN;
2986: END;
2987: END IF;
2988:
3091: l_change_name VARCHAR2(240); -- Bug 3032565
3092: l_change_id NUMBER;
3093: BEGIN
3094:
3095: x_return_status := FND_API.G_RET_STS_SUCCESS;
3096:
3097: l_user_id := Eng_Globals.Get_User_Id;
3098: l_login_id := Eng_Globals.Get_Login_Id;
3099: l_request_id := ENG_GLOBALS.Get_request_id;
3284: Error_Handler.Close_Debug_Session;
3285:
3286: IF G_CONTROL_REC.caller_type = 'FORM'
3287: THEN
3288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3289: RAISE;
3290: END IF;
3291:
3292: l_err_text := G_PKG_NAME || ' : Utility (ECO Insert) '
3297: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3298: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
3299: );
3300:
3301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3302:
3303:
3304:
3305:
3322:
3323: l_token_tbl(1).token_name := 'ECO_NAME';
3324: l_token_tbl(1).token_value := p_change_notice;
3325:
3326: x_return_status := FND_API.G_RET_STS_SUCCESS;
3327:
3328: BEGIN
3329: DELETE FROM ENG_ENGINEERING_CHANGES
3330: WHERE CHANGE_NOTICE = p_change_notice
3334: WHEN OTHERS THEN
3335:
3336: IF G_CONTROL_REC.caller_type = 'FORM'
3337: THEN
3338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3339: RAISE;
3340: END IF;
3341:
3342: l_err_text := G_PKG_NAME || ' : Utility (ECO Delete) '
3346: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3347: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
3348: );
3349:
3350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3351: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3352: RETURN;
3353: END;
3354:
3365: WHEN OTHERS THEN
3366:
3367: IF G_CONTROL_REC.caller_type = 'FORM'
3368: THEN
3369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3370: RAISE;
3371: END IF;
3372:
3373: l_err_text := G_PKG_NAME || ' : Utility (ECO Revisions Delete) '
3377: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3378: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
3379: );
3380:
3381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3382: RETURN;
3383: END;
3384:
3385: BEGIN
3415: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3416: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
3417: );
3418:
3419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3420: RETURN;
3421: END;
3422: END Delete_Row;
3423:
3682: ' Utility (ECO Header Query_Row)' ||
3683: SUBSTR(SQLERRM, 1, 100);
3684: x_ECO_rec := l_ECO_rec;
3685: x_ECO_Unexp_rec := l_ECO_Unexp_Rec;
3686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3687: END Query_Row;
3688:
3689:
3690: -- Procedure Perform_Approval_Status_Change
3704: l_request_id NUMBER;
3705:
3706: BEGIN
3707:
3708: x_return_status := FND_API.G_RET_STS_SUCCESS;
3709:
3710: IF p_caller_type = 'WF' THEN
3711:
3712: l_user_id := p_user_id ;
3787:
3788: EXCEPTION
3789:
3790: WHEN OTHERS THEN
3791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3792: x_err_text := G_PKG_NAME ||
3793: ' Utility (ECO Header Perform_Approval_Status_Change)' ||
3794: SUBSTR(SQLERRM, 1, 100);
3795:
3797:
3798: PROCEDURE submit_ECO
3799: (
3800: p_api_version IN NUMBER --
3801: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3802: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3803: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3804: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3805: ,p_output_dir IN VARCHAR2 --
3798: PROCEDURE submit_ECO
3799: (
3800: p_api_version IN NUMBER --
3801: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3802: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3803: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3804: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3805: ,p_output_dir IN VARCHAR2 --
3806: ,p_debug_filename IN VARCHAR2
3799: (
3800: p_api_version IN NUMBER --
3801: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3802: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3803: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3804: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3805: ,p_output_dir IN VARCHAR2 --
3806: ,p_debug_filename IN VARCHAR2
3807: ,x_return_status OUT NOCOPY VARCHAR2 --
3800: p_api_version IN NUMBER --
3801: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3802: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3803: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3804: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3805: ,p_output_dir IN VARCHAR2 --
3806: ,p_debug_filename IN VARCHAR2
3807: ,x_return_status OUT NOCOPY VARCHAR2 --
3808: ,x_msg_count OUT NOCOPY NUMBER --
3815: update eng_revised_items
3816: set STATUS_TYPE = 1
3817: where CHANGE_ID = p_change_id;
3818:
3819: if (p_commit = FND_API.G_TRUE )
3820: then commit;
3821: end if;
3822:
3823: /*
3941: -- Row locked. Compare IN attributes to DB attributes.
3942:
3943: IF ( (l_ECO_rec.attribute7 =
3944: p_ECO_rec.attribute7) OR
3945: ((p_ECO_rec.attribute7 = FND_API.G_MISS_CHAR) OR
3946: ( (l_ECO_rec.attribute7 IS NULL) AND
3947: (p_ECO_rec.attribute7 IS NULL))))
3948: AND ( (l_ECO_rec.attribute8 =
3949: p_ECO_rec.attribute8) OR
3946: ( (l_ECO_rec.attribute7 IS NULL) AND
3947: (p_ECO_rec.attribute7 IS NULL))))
3948: AND ( (l_ECO_rec.attribute8 =
3949: p_ECO_rec.attribute8) OR
3950: ((p_ECO_rec.attribute8 = FND_API.G_MISS_CHAR) OR
3951: ( (l_ECO_rec.attribute8 IS NULL) AND
3952: (p_ECO_rec.attribute8 IS NULL))))
3953: AND ( (l_ECO_rec.attribute9 =
3954: p_ECO_rec.attribute9) OR
3951: ( (l_ECO_rec.attribute8 IS NULL) AND
3952: (p_ECO_rec.attribute8 IS NULL))))
3953: AND ( (l_ECO_rec.attribute9 =
3954: p_ECO_rec.attribute9) OR
3955: ((p_ECO_rec.attribute9 = FND_API.G_MISS_CHAR) OR
3956: ( (l_ECO_rec.attribute9 IS NULL) AND
3957: (p_ECO_rec.attribute9 IS NULL))))
3958: AND ( (l_ECO_rec.attribute10 =
3959: p_ECO_rec.attribute10) OR
3956: ( (l_ECO_rec.attribute9 IS NULL) AND
3957: (p_ECO_rec.attribute9 IS NULL))))
3958: AND ( (l_ECO_rec.attribute10 =
3959: p_ECO_rec.attribute10) OR
3960: ((p_ECO_rec.attribute10 = FND_API.G_MISS_CHAR) OR
3961: ( (l_ECO_rec.attribute10 IS NULL) AND
3962: (p_ECO_rec.attribute10 IS NULL))))
3963: AND ( (l_ECO_rec.attribute11 =
3964: p_ECO_rec.attribute11) OR
3961: ( (l_ECO_rec.attribute10 IS NULL) AND
3962: (p_ECO_rec.attribute10 IS NULL))))
3963: AND ( (l_ECO_rec.attribute11 =
3964: p_ECO_rec.attribute11) OR
3965: ((p_ECO_rec.attribute11 = FND_API.G_MISS_CHAR) OR
3966: ( (l_ECO_rec.attribute11 IS NULL) AND
3967: (p_ECO_rec.attribute11 IS NULL))))
3968: AND ( (l_ECO_rec.attribute12 =
3969: p_ECO_rec.attribute12) OR
3966: ( (l_ECO_rec.attribute11 IS NULL) AND
3967: (p_ECO_rec.attribute11 IS NULL))))
3968: AND ( (l_ECO_rec.attribute12 =
3969: p_ECO_rec.attribute12) OR
3970: ((p_ECO_rec.attribute12 = FND_API.G_MISS_CHAR) OR
3971: ( (l_ECO_rec.attribute12 IS NULL) AND
3972: (p_ECO_rec.attribute12 IS NULL))))
3973: AND ( (l_ECO_rec.attribute13 =
3974: p_ECO_rec.attribute13) OR
3971: ( (l_ECO_rec.attribute12 IS NULL) AND
3972: (p_ECO_rec.attribute12 IS NULL))))
3973: AND ( (l_ECO_rec.attribute13 =
3974: p_ECO_rec.attribute13) OR
3975: ((p_ECO_rec.attribute13 = FND_API.G_MISS_CHAR) OR
3976: ( (l_ECO_rec.attribute13 IS NULL) AND
3977: (p_ECO_rec.attribute13 IS NULL))))
3978: AND ( (l_ECO_rec.attribute14 =
3979: p_ECO_rec.attribute14) OR
3976: ( (l_ECO_rec.attribute13 IS NULL) AND
3977: (p_ECO_rec.attribute13 IS NULL))))
3978: AND ( (l_ECO_rec.attribute14 =
3979: p_ECO_rec.attribute14) OR
3980: ((p_ECO_rec.attribute14 = FND_API.G_MISS_CHAR) OR
3981: ( (l_ECO_rec.attribute14 IS NULL) AND
3982: (p_ECO_rec.attribute14 IS NULL))))
3983: AND ( (l_ECO_rec.attribute15 =
3984: p_ECO_rec.attribute15) OR
3981: ( (l_ECO_rec.attribute14 IS NULL) AND
3982: (p_ECO_rec.attribute14 IS NULL))))
3983: AND ( (l_ECO_rec.attribute15 =
3984: p_ECO_rec.attribute15) OR
3985: ((p_ECO_rec.attribute15 = FND_API.G_MISS_CHAR) OR
3986: ( (l_ECO_rec.attribute15 IS NULL) AND
3987: (p_ECO_rec.attribute15 IS NULL))))
3988: AND ( (l_ECO_rec.request_id =
3989: p_ECO_rec.request_id) OR
3986: ( (l_ECO_rec.attribute15 IS NULL) AND
3987: (p_ECO_rec.attribute15 IS NULL))))
3988: AND ( (l_ECO_rec.request_id =
3989: p_ECO_rec.request_id) OR
3990: ((p_ECO_rec.request_id = FND_API.G_MISS_NUM) OR
3991: ( (l_ECO_rec.request_id IS NULL) AND
3992: (p_ECO_rec.request_id IS NULL))))
3993: AND ( (l_ECO_rec.program_application_id =
3994: p_ECO_rec.program_application_id) OR
3991: ( (l_ECO_rec.request_id IS NULL) AND
3992: (p_ECO_rec.request_id IS NULL))))
3993: AND ( (l_ECO_rec.program_application_id =
3994: p_ECO_rec.program_application_id) OR
3995: ((p_ECO_rec.program_application_id = FND_API.G_MISS_NUM) OR
3996: ( (l_ECO_rec.program_application_id IS NULL) AND
3997: (p_ECO_rec.program_application_id IS NULL))))
3998: AND ( (l_ECO_rec.program_id =
3999: p_ECO_rec.program_id) OR
3996: ( (l_ECO_rec.program_application_id IS NULL) AND
3997: (p_ECO_rec.program_application_id IS NULL))))
3998: AND ( (l_ECO_rec.program_id =
3999: p_ECO_rec.program_id) OR
4000: ((p_ECO_rec.program_id = FND_API.G_MISS_NUM) OR
4001: ( (l_ECO_rec.program_id IS NULL) AND
4002: (p_ECO_rec.program_id IS NULL))))
4003: AND ( (l_ECO_rec.program_update_date =
4004: p_ECO_rec.program_update_date) OR
4001: ( (l_ECO_rec.program_id IS NULL) AND
4002: (p_ECO_rec.program_id IS NULL))))
4003: AND ( (l_ECO_rec.program_update_date =
4004: p_ECO_rec.program_update_date) OR
4005: ((p_ECO_rec.program_update_date = FND_API.G_MISS_DATE) OR
4006: ( (l_ECO_rec.program_update_date IS NULL) AND
4007: (p_ECO_rec.program_update_date IS NULL))))
4008: AND ( (l_ECO_rec.approval_status_type =
4009: p_ECO_rec.approval_status_type) OR
4006: ( (l_ECO_rec.program_update_date IS NULL) AND
4007: (p_ECO_rec.program_update_date IS NULL))))
4008: AND ( (l_ECO_rec.approval_status_type =
4009: p_ECO_rec.approval_status_type) OR
4010: ((p_ECO_rec.approval_status_type = FND_API.G_MISS_NUM) OR
4011: ( (l_ECO_rec.approval_status_type IS NULL) AND
4012: (p_ECO_rec.approval_status_type IS NULL))))
4013: AND ( (l_ECO_rec.approval_date =
4014: p_ECO_rec.approval_date) OR
4011: ( (l_ECO_rec.approval_status_type IS NULL) AND
4012: (p_ECO_rec.approval_status_type IS NULL))))
4013: AND ( (l_ECO_rec.approval_date =
4014: p_ECO_rec.approval_date) OR
4015: ((p_ECO_rec.approval_date = FND_API.G_MISS_DATE) OR
4016: ( (l_ECO_rec.approval_date IS NULL) AND
4017: (p_ECO_rec.approval_date IS NULL))))
4018: AND ( (l_ECO_rec.approval_list_id =
4019: p_ECO_rec.approval_list_id) OR
4016: ( (l_ECO_rec.approval_date IS NULL) AND
4017: (p_ECO_rec.approval_date IS NULL))))
4018: AND ( (l_ECO_rec.approval_list_id =
4019: p_ECO_rec.approval_list_id) OR
4020: ((p_ECO_rec.approval_list_id = FND_API.G_MISS_NUM) OR
4021: ( (l_ECO_rec.approval_list_id IS NULL) AND
4022: (p_ECO_rec.approval_list_id IS NULL))))
4023: AND ( (l_ECO_rec.change_order_type_id =
4024: p_ECO_rec.change_order_type_id) OR
4021: ( (l_ECO_rec.approval_list_id IS NULL) AND
4022: (p_ECO_rec.approval_list_id IS NULL))))
4023: AND ( (l_ECO_rec.change_order_type_id =
4024: p_ECO_rec.change_order_type_id) OR
4025: ((p_ECO_rec.change_order_type_id = FND_API.G_MISS_NUM) OR
4026: ( (l_ECO_rec.change_order_type_id IS NULL) AND
4027: (p_ECO_rec.change_order_type_id IS NULL))))
4028: AND ( (l_ECO_rec.responsible_org_id =
4029: p_ECO_rec.responsible_org_id) OR
4026: ( (l_ECO_rec.change_order_type_id IS NULL) AND
4027: (p_ECO_rec.change_order_type_id IS NULL))))
4028: AND ( (l_ECO_rec.responsible_org_id =
4029: p_ECO_rec.responsible_org_id) OR
4030: ((p_ECO_rec.responsible_org_id = FND_API.G_MISS_NUM) OR
4031: ( (l_ECO_rec.responsible_org_id IS NULL) AND
4032: (p_ECO_rec.responsible_org_id IS NULL))))
4033: AND ( (l_ECO_rec.approval_request_date =
4034: p_ECO_rec.approval_request_date) OR
4031: ( (l_ECO_rec.responsible_org_id IS NULL) AND
4032: (p_ECO_rec.responsible_org_id IS NULL))))
4033: AND ( (l_ECO_rec.approval_request_date =
4034: p_ECO_rec.approval_request_date) OR
4035: ((p_ECO_rec.approval_request_date = FND_API.G_MISS_DATE) OR
4036: ( (l_ECO_rec.approval_request_date IS NULL) AND
4037: (p_ECO_rec.approval_request_date IS NULL))))
4038: AND ( (l_ECO_rec.change_notice =
4039: p_ECO_rec.change_notice) OR
4036: ( (l_ECO_rec.approval_request_date IS NULL) AND
4037: (p_ECO_rec.approval_request_date IS NULL))))
4038: AND ( (l_ECO_rec.change_notice =
4039: p_ECO_rec.change_notice) OR
4040: ((p_ECO_rec.change_notice = FND_API.G_MISS_CHAR) OR
4041: ( (l_ECO_rec.change_notice IS NULL) AND
4042: (p_ECO_rec.change_notice IS NULL))))
4043: AND ( (l_ECO_rec.organization_id =
4044: p_ECO_rec.organization_id) OR
4041: ( (l_ECO_rec.change_notice IS NULL) AND
4042: (p_ECO_rec.change_notice IS NULL))))
4043: AND ( (l_ECO_rec.organization_id =
4044: p_ECO_rec.organization_id) OR
4045: ((p_ECO_rec.organization_id = FND_API.G_MISS_NUM) OR
4046: ( (l_ECO_rec.organization_id IS NULL) AND
4047: (p_ECO_rec.organization_id IS NULL))))
4048: AND ( (l_ECO_rec.last_update_date =
4049: p_ECO_rec.last_update_date) OR
4046: ( (l_ECO_rec.organization_id IS NULL) AND
4047: (p_ECO_rec.organization_id IS NULL))))
4048: AND ( (l_ECO_rec.last_update_date =
4049: p_ECO_rec.last_update_date) OR
4050: ((p_ECO_rec.last_update_date = FND_API.G_MISS_DATE) OR
4051: ( (l_ECO_rec.last_update_date IS NULL) AND
4052: (p_ECO_rec.last_update_date IS NULL))))
4053: AND ( (l_ECO_rec.last_updated_by =
4054: p_ECO_rec.last_updated_by) OR
4051: ( (l_ECO_rec.last_update_date IS NULL) AND
4052: (p_ECO_rec.last_update_date IS NULL))))
4053: AND ( (l_ECO_rec.last_updated_by =
4054: p_ECO_rec.last_updated_by) OR
4055: ((p_ECO_rec.last_updated_by = FND_API.G_MISS_NUM) OR
4056: ( (l_ECO_rec.last_updated_by IS NULL) AND
4057: (p_ECO_rec.last_updated_by IS NULL))))
4058: AND ( (l_ECO_rec.creation_date =
4059: p_ECO_rec.creation_date) OR
4056: ( (l_ECO_rec.last_updated_by IS NULL) AND
4057: (p_ECO_rec.last_updated_by IS NULL))))
4058: AND ( (l_ECO_rec.creation_date =
4059: p_ECO_rec.creation_date) OR
4060: ((p_ECO_rec.creation_date = FND_API.G_MISS_DATE) OR
4061: ( (l_ECO_rec.creation_date IS NULL) AND
4062: (p_ECO_rec.creation_date IS NULL))))
4063: AND ( (l_ECO_rec.created_by =
4064: p_ECO_rec.created_by) OR
4061: ( (l_ECO_rec.creation_date IS NULL) AND
4062: (p_ECO_rec.creation_date IS NULL))))
4063: AND ( (l_ECO_rec.created_by =
4064: p_ECO_rec.created_by) OR
4065: ((p_ECO_rec.created_by = FND_API.G_MISS_NUM) OR
4066: ( (l_ECO_rec.created_by IS NULL) AND
4067: (p_ECO_rec.created_by IS NULL))))
4068: AND ( (l_ECO_rec.last_update_login =
4069: p_ECO_rec.last_update_login) OR
4066: ( (l_ECO_rec.created_by IS NULL) AND
4067: (p_ECO_rec.created_by IS NULL))))
4068: AND ( (l_ECO_rec.last_update_login =
4069: p_ECO_rec.last_update_login) OR
4070: ((p_ECO_rec.last_update_login = FND_API.G_MISS_NUM) OR
4071: ( (l_ECO_rec.last_update_login IS NULL) AND
4072: (p_ECO_rec.last_update_login IS NULL))))
4073: AND ( (l_ECO_rec.description =
4074: p_ECO_rec.description) OR
4071: ( (l_ECO_rec.last_update_login IS NULL) AND
4072: (p_ECO_rec.last_update_login IS NULL))))
4073: AND ( (l_ECO_rec.description =
4074: p_ECO_rec.description) OR
4075: ((p_ECO_rec.description = FND_API.G_MISS_CHAR) OR
4076: ( (l_ECO_rec.description IS NULL) AND
4077: (p_ECO_rec.description IS NULL))))
4078: AND ( (l_ECO_rec.status_type =
4079: p_ECO_rec.status_type) OR
4076: ( (l_ECO_rec.description IS NULL) AND
4077: (p_ECO_rec.description IS NULL))))
4078: AND ( (l_ECO_rec.status_type =
4079: p_ECO_rec.status_type) OR
4080: ((p_ECO_rec.status_type = FND_API.G_MISS_NUM) OR
4081: ( (l_ECO_rec.status_type IS NULL) AND
4082: (p_ECO_rec.status_type IS NULL))))
4083: AND ( (l_ECO_rec.initiation_date =
4084: p_ECO_rec.initiation_date) OR
4081: ( (l_ECO_rec.status_type IS NULL) AND
4082: (p_ECO_rec.status_type IS NULL))))
4083: AND ( (l_ECO_rec.initiation_date =
4084: p_ECO_rec.initiation_date) OR
4085: ((p_ECO_rec.initiation_date = FND_API.G_MISS_DATE) OR
4086: ( (l_ECO_rec.initiation_date IS NULL) AND
4087: (p_ECO_rec.initiation_date IS NULL))))
4088: AND ( (l_ECO_rec.implementation_date =
4089: p_ECO_rec.implementation_date) OR
4086: ( (l_ECO_rec.initiation_date IS NULL) AND
4087: (p_ECO_rec.initiation_date IS NULL))))
4088: AND ( (l_ECO_rec.implementation_date =
4089: p_ECO_rec.implementation_date) OR
4090: ((p_ECO_rec.implementation_date = FND_API.G_MISS_DATE) OR
4091: ( (l_ECO_rec.implementation_date IS NULL) AND
4092: (p_ECO_rec.implementation_date IS NULL))))
4093: AND ( (l_ECO_rec.cancellation_date =
4094: p_ECO_rec.cancellation_date) OR
4091: ( (l_ECO_rec.implementation_date IS NULL) AND
4092: (p_ECO_rec.implementation_date IS NULL))))
4093: AND ( (l_ECO_rec.cancellation_date =
4094: p_ECO_rec.cancellation_date) OR
4095: ((p_ECO_rec.cancellation_date = FND_API.G_MISS_DATE) OR
4096: ( (l_ECO_rec.cancellation_date IS NULL) AND
4097: (p_ECO_rec.cancellation_date IS NULL))))
4098: AND ( (l_ECO_rec.cancellation_comments =
4099: p_ECO_rec.cancellation_comments) OR
4096: ( (l_ECO_rec.cancellation_date IS NULL) AND
4097: (p_ECO_rec.cancellation_date IS NULL))))
4098: AND ( (l_ECO_rec.cancellation_comments =
4099: p_ECO_rec.cancellation_comments) OR
4100: ((p_ECO_rec.cancellation_comments = FND_API.G_MISS_CHAR) OR
4101: ( (l_ECO_rec.cancellation_comments IS NULL) AND
4102: (p_ECO_rec.cancellation_comments IS NULL))))
4103: AND ( (l_ECO_rec.priority_code =
4104: p_ECO_rec.priority_code) OR
4101: ( (l_ECO_rec.cancellation_comments IS NULL) AND
4102: (p_ECO_rec.cancellation_comments IS NULL))))
4103: AND ( (l_ECO_rec.priority_code =
4104: p_ECO_rec.priority_code) OR
4105: ((p_ECO_rec.priority_code = FND_API.G_MISS_CHAR) OR
4106: ( (l_ECO_rec.priority_code IS NULL) AND
4107: (p_ECO_rec.priority_code IS NULL))))
4108: AND ( (l_ECO_rec.reason_code =
4109: p_ECO_rec.reason_code) OR
4106: ( (l_ECO_rec.priority_code IS NULL) AND
4107: (p_ECO_rec.priority_code IS NULL))))
4108: AND ( (l_ECO_rec.reason_code =
4109: p_ECO_rec.reason_code) OR
4110: ((p_ECO_rec.reason_code = FND_API.G_MISS_CHAR) OR
4111: ( (l_ECO_rec.reason_code IS NULL) AND
4112: (p_ECO_rec.reason_code IS NULL))))
4113: AND ( (l_ECO_rec.estimated_eng_cost =
4114: p_ECO_rec.estimated_eng_cost) OR
4111: ( (l_ECO_rec.reason_code IS NULL) AND
4112: (p_ECO_rec.reason_code IS NULL))))
4113: AND ( (l_ECO_rec.estimated_eng_cost =
4114: p_ECO_rec.estimated_eng_cost) OR
4115: ((p_ECO_rec.estimated_eng_cost = FND_API.G_MISS_NUM) OR
4116: ( (l_ECO_rec.estimated_eng_cost IS NULL) AND
4117: (p_ECO_rec.estimated_eng_cost IS NULL))))
4118: AND ( (l_ECO_rec.estimated_mfg_cost =
4119: p_ECO_rec.estimated_mfg_cost) OR
4116: ( (l_ECO_rec.estimated_eng_cost IS NULL) AND
4117: (p_ECO_rec.estimated_eng_cost IS NULL))))
4118: AND ( (l_ECO_rec.estimated_mfg_cost =
4119: p_ECO_rec.estimated_mfg_cost) OR
4120: ((p_ECO_rec.estimated_mfg_cost = FND_API.G_MISS_NUM) OR
4121: ( (l_ECO_rec.estimated_mfg_cost IS NULL) AND
4122: (p_ECO_rec.estimated_mfg_cost IS NULL))))
4123: AND ( (l_ECO_rec.requestor_id =
4124: p_ECO_rec.requestor_id) OR
4121: ( (l_ECO_rec.estimated_mfg_cost IS NULL) AND
4122: (p_ECO_rec.estimated_mfg_cost IS NULL))))
4123: AND ( (l_ECO_rec.requestor_id =
4124: p_ECO_rec.requestor_id) OR
4125: ((p_ECO_rec.requestor_id = FND_API.G_MISS_NUM) OR
4126: ( (l_ECO_rec.requestor_id IS NULL) AND
4127: (p_ECO_rec.requestor_id IS NULL))))
4128: AND ( (l_ECO_rec.attribute_category =
4129: p_ECO_rec.attribute_category) OR
4126: ( (l_ECO_rec.requestor_id IS NULL) AND
4127: (p_ECO_rec.requestor_id IS NULL))))
4128: AND ( (l_ECO_rec.attribute_category =
4129: p_ECO_rec.attribute_category) OR
4130: ((p_ECO_rec.attribute_category = FND_API.G_MISS_CHAR) OR
4131: ( (l_ECO_rec.attribute_category IS NULL) AND
4132: (p_ECO_rec.attribute_category IS NULL))))
4133: AND ( (l_ECO_rec.attribute1 =
4134: p_ECO_rec.attribute1) OR
4131: ( (l_ECO_rec.attribute_category IS NULL) AND
4132: (p_ECO_rec.attribute_category IS NULL))))
4133: AND ( (l_ECO_rec.attribute1 =
4134: p_ECO_rec.attribute1) OR
4135: ((p_ECO_rec.attribute1 = FND_API.G_MISS_CHAR) OR
4136: ( (l_ECO_rec.attribute1 IS NULL) AND
4137: (p_ECO_rec.attribute1 IS NULL))))
4138: AND ( (l_ECO_rec.attribute2 =
4139: p_ECO_rec.attribute2) OR
4136: ( (l_ECO_rec.attribute1 IS NULL) AND
4137: (p_ECO_rec.attribute1 IS NULL))))
4138: AND ( (l_ECO_rec.attribute2 =
4139: p_ECO_rec.attribute2) OR
4140: ((p_ECO_rec.attribute2 = FND_API.G_MISS_CHAR) OR
4141: ( (l_ECO_rec.attribute2 IS NULL) AND
4142: (p_ECO_rec.attribute2 IS NULL))))
4143: AND ( (l_ECO_rec.attribute3 =
4144: p_ECO_rec.attribute3) OR
4141: ( (l_ECO_rec.attribute2 IS NULL) AND
4142: (p_ECO_rec.attribute2 IS NULL))))
4143: AND ( (l_ECO_rec.attribute3 =
4144: p_ECO_rec.attribute3) OR
4145: ((p_ECO_rec.attribute3 = FND_API.G_MISS_CHAR) OR
4146: ( (l_ECO_rec.attribute3 IS NULL) AND
4147: (p_ECO_rec.attribute3 IS NULL))))
4148: AND ( (l_ECO_rec.attribute4 =
4149: p_ECO_rec.attribute4) OR
4146: ( (l_ECO_rec.attribute3 IS NULL) AND
4147: (p_ECO_rec.attribute3 IS NULL))))
4148: AND ( (l_ECO_rec.attribute4 =
4149: p_ECO_rec.attribute4) OR
4150: ((p_ECO_rec.attribute4 = FND_API.G_MISS_CHAR) OR
4151: ( (l_ECO_rec.attribute4 IS NULL) AND
4152: (p_ECO_rec.attribute4 IS NULL))))
4153: AND ( (l_ECO_rec.attribute5 =
4154: p_ECO_rec.attribute5) OR
4151: ( (l_ECO_rec.attribute4 IS NULL) AND
4152: (p_ECO_rec.attribute4 IS NULL))))
4153: AND ( (l_ECO_rec.attribute5 =
4154: p_ECO_rec.attribute5) OR
4155: ((p_ECO_rec.attribute5 = FND_API.G_MISS_CHAR) OR
4156: ( (l_ECO_rec.attribute5 IS NULL) AND
4157: (p_ECO_rec.attribute5 IS NULL))))
4158: AND ( (l_ECO_rec.attribute6 =
4159: p_ECO_rec.attribute6) OR
4156: ( (l_ECO_rec.attribute5 IS NULL) AND
4157: (p_ECO_rec.attribute5 IS NULL))))
4158: AND ( (l_ECO_rec.attribute6 =
4159: p_ECO_rec.attribute6) OR
4160: ((p_ECO_rec.attribute6 = FND_API.G_MISS_CHAR) OR
4161: ( (l_ECO_rec.attribute6 IS NULL) AND
4162: (p_ECO_rec.attribute6 IS NULL))))
4163: THEN
4164:
4167: x_ECO_rec := l_ECO_rec;
4168:
4169: -- Set return status
4170:
4171: x_return_status := FND_API.G_RET_STS_SUCCESS;
4172: x_ECO_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4173:
4174: ELSE
4175:
4168:
4169: -- Set return status
4170:
4171: x_return_status := FND_API.G_RET_STS_SUCCESS;
4172: x_ECO_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4173:
4174: ELSE
4175:
4176: -- Row has changed by another user.
4174: ELSE
4175:
4176: -- Row has changed by another user.
4177:
4178: x_return_status := FND_API.G_RET_STS_ERROR;
4179: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
4180:
4181: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4182: THEN
4175:
4176: -- Row has changed by another user.
4177:
4178: x_return_status := FND_API.G_RET_STS_ERROR;
4179: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
4180:
4181: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4182: THEN
4183:
4191: EXCEPTION
4192:
4193: WHEN NO_DATA_FOUND THEN
4194:
4195: x_return_status := FND_API.G_RET_STS_ERROR;
4196: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
4197:
4198: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4199: THEN
4192:
4193: WHEN NO_DATA_FOUND THEN
4194:
4195: x_return_status := FND_API.G_RET_STS_ERROR;
4196: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
4197:
4198: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4199: THEN
4200: Error_Handler.Log_Error ( p_who_rec => ENG_GLOBALS.G_WHO_REC
4203: END IF;
4204:
4205: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
4206:
4207: x_return_status := FND_API.G_RET_STS_ERROR;
4208: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
4209:
4210: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4211: THEN
4204:
4205: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
4206:
4207: x_return_status := FND_API.G_RET_STS_ERROR;
4208: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
4209:
4210: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4211: THEN
4212: Error_Handler.Log_Error( p_who_rec => ENG_GLOBALS.G_WHO_REC
4215: END IF;
4216:
4217: WHEN OTHERS THEN
4218:
4219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4220: x_ECO_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4221:
4222: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4223: THEN
4216:
4217: WHEN OTHERS THEN
4218:
4219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4220: x_ECO_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4221:
4222: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4223: THEN
4224: x_err_text := G_PKG_NAME || '(Lock Row) - ECO Header' || substrb(SQLERRM,1,60);
4289: l_sub_id NUMBER;
4290: l_item_catalog_group_id NUMBER;
4291: BEGIN
4292:
4293: l_return_status := FND_API.G_RET_STS_SUCCESS;
4294:
4295: l_user_id := Eng_Globals.Get_User_Id;
4296: l_login_id := Eng_Globals.Get_Login_Id;
4297: l_request_id := ENG_GLOBALS.Get_request_id;
4316: --AND p_eco_rec.pk3_name IS NOT NULL
4317: THEN
4318: --l_org_id := ENG_Val_To_Id.Organization(p_eco_rec.pk2_name, l_err_text);
4319: l_change_subject_unexp_rec.pk2_value := l_org_id;
4320: IF (l_org_id IS NOT NULL AND l_org_id <> fnd_api.g_miss_num) THEN
4321: l_inv_item_id := ENG_Val_To_Id.revised_item (p_eco_rec.pk1_name,
4322: l_org_id,
4323: l_err_text);
4324: l_change_subject_unexp_rec.pk1_value := l_inv_item_id;
4322: l_org_id,
4323: l_err_text);
4324: l_change_subject_unexp_rec.pk1_value := l_inv_item_id;
4325: IF l_inv_item_id IS NOT NULL
4326: AND l_inv_item_id <> fnd_api.g_miss_num
4327: THEN
4328: IF p_eco_rec.pk3_name IS NOT NULL -- bug 3572721 If the inventory_item_id and org_id is not null, then validate pk3value
4329: THEN
4330: l_rev_id := ENG_Val_To_Id.revised_item_code (l_inv_item_id,
4330: l_rev_id := ENG_Val_To_Id.revised_item_code (l_inv_item_id,
4331: l_org_id,
4332: p_eco_rec.pk3_name);
4333: l_change_subject_unexp_rec.pk3_value := l_rev_id;
4334: IF (l_rev_id IS NOT NULL AND l_rev_id <> fnd_api.g_miss_num)
4335: THEN
4336: l_return_status := 'S'; --FND_API.G_RET_STS_SUCCESS;
4337: ELSE
4338: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE'; --token added for bug 3572721
4332: p_eco_rec.pk3_name);
4333: l_change_subject_unexp_rec.pk3_value := l_rev_id;
4334: IF (l_rev_id IS NOT NULL AND l_rev_id <> fnd_api.g_miss_num)
4335: THEN
4336: l_return_status := 'S'; --FND_API.G_RET_STS_SUCCESS;
4337: ELSE
4338: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE'; --token added for bug 3572721
4339: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
4340: Error_Handler.add_error_token (
4342: p_mesg_token_tbl=> l_mesg_token_tbl,
4343: x_mesg_token_tbl=> l_mesg_token_tbl,
4344: p_token_tbl=> l_token_tbl
4345: );
4346: l_return_status := FND_API.G_RET_STS_ERROR;
4347: END IF; --end of l_rev_id IS NOT NULL
4348: END IF; -- end of pk3_name is not null
4349: ELSE
4350: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4354: p_mesg_token_tbl=> l_mesg_token_tbl,
4355: x_mesg_token_tbl=> l_mesg_token_tbl,
4356: p_token_tbl=> l_token_tbl
4357: );
4358: l_return_status := FND_API.G_RET_STS_ERROR;
4359: END IF; -- l_inv_item_id IS NOT NULL
4360: ELSE
4361: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4362: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
4365: p_mesg_token_tbl=> l_mesg_token_tbl,
4366: x_mesg_token_tbl=> l_mesg_token_tbl,
4367: p_token_tbl=> l_token_tbl
4368: );
4369: l_return_status := FND_API.G_RET_STS_ERROR;
4370: END IF; --l_org_id IS NOT NULL
4371: ELSE
4372: -- Commented error handling code as pk values are not mandatory
4373: l_change_subject_unexp_rec.pk2_value := NULL; --org_id;
4373: l_change_subject_unexp_rec.pk2_value := NULL; --org_id;
4374: l_change_subject_unexp_rec.pk1_value := NULL; --inv_item_id;
4375: l_change_subject_unexp_rec.pk3_value := NULL; --rev_id;
4376: /* IF p_eco_rec.pk1_name IS NULL
4377: OR p_eco_rec.pk1_name = fnd_api.g_miss_char THEN
4378: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4379: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
4380: Error_Handler.add_error_token (
4381: p_message_name=> 'ENG_PK1_NAME_INVALID',
4382: p_mesg_token_tbl=> l_mesg_token_tbl,
4383: x_mesg_token_tbl=> l_mesg_token_tbl,
4384: p_token_tbl=> l_token_tbl
4385: );
4386: l_return_status := FND_API.G_RET_STS_ERROR;
4387: END IF;
4388: IF p_eco_rec.pk3_name IS NULL
4389: OR p_eco_rec.pk3_name = fnd_api.g_miss_char THEN
4390: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4385: );
4386: l_return_status := FND_API.G_RET_STS_ERROR;
4387: END IF;
4388: IF p_eco_rec.pk3_name IS NULL
4389: OR p_eco_rec.pk3_name = fnd_api.g_miss_char THEN
4390: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4391: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
4392: Error_Handler.add_error_token (
4393: p_message_name=> 'ENG_PK3_NAME_INVALID',
4394: p_mesg_token_tbl=> l_mesg_token_tbl,
4395: x_mesg_token_tbl=> l_mesg_token_tbl,
4396: p_token_tbl=> l_token_tbl
4397: );
4398: l_return_status := FND_API.G_RET_STS_ERROR;
4399: END IF;
4400: IF p_eco_rec.pk2_name IS NULL
4401: OR p_eco_rec.pk2_name = fnd_api.g_miss_char THEN
4402: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4397: );
4398: l_return_status := FND_API.G_RET_STS_ERROR;
4399: END IF;
4400: IF p_eco_rec.pk2_name IS NULL
4401: OR p_eco_rec.pk2_name = fnd_api.g_miss_char THEN
4402: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4403: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
4404: Error_Handler.add_error_token (
4405: p_message_name=> 'ENG_PK2_NAME_INVALID',
4406: p_mesg_token_tbl=> l_mesg_token_tbl,
4407: x_mesg_token_tbl=> l_mesg_token_tbl,
4408: p_token_tbl=> l_token_tbl
4409: );
4410: l_return_status := FND_API.G_RET_STS_ERROR;
4411: END IF;*/
4412:
4413: END IF; -- p_eco_rec.Pk1_Name is not null
4414: ELSIF l_entity_name = 'EGO_ITEM' THEN
4417: -- AND p_eco_rec.pk2_name IS NOT NULL
4418: THEN
4419: --l_org_id := ENG_Val_To_Id.ORGANIZATION (p_eco_rec.pk2_name, l_err_text);
4420: l_change_subject_unexp_rec.pk2_value := l_org_id;
4421: IF (l_org_id IS NOT NULL AND l_org_id <> fnd_api.g_miss_num) THEN
4422: l_rev_id := ENG_Val_To_Id.revised_item (p_eco_rec.pk1_name,
4423: l_org_id,
4424: l_err_text);
4425: l_change_subject_unexp_rec.pk1_value := l_rev_id;
4422: l_rev_id := ENG_Val_To_Id.revised_item (p_eco_rec.pk1_name,
4423: l_org_id,
4424: l_err_text);
4425: l_change_subject_unexp_rec.pk1_value := l_rev_id;
4426: IF (l_rev_id IS NOT NULL AND l_rev_id <> fnd_api.g_miss_num) THEN
4427: l_return_status := 'S';
4428: ELSE
4429: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4430: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
4433: p_mesg_token_tbl=> l_mesg_token_tbl,
4434: x_mesg_token_tbl=> l_mesg_token_tbl,
4435: p_token_tbl=> l_token_tbl
4436: );
4437: l_return_status := FND_API.G_RET_STS_ERROR;
4438: END IF; --l_rev_id IS NOT NULL
4439: ELSE
4440: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4441: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
4444: p_mesg_token_tbl=> l_mesg_token_tbl,
4445: x_mesg_token_tbl=> l_mesg_token_tbl,
4446: p_token_tbl=> l_token_tbl
4447: );
4448: l_return_status := FND_API.G_RET_STS_ERROR;
4449: END IF; --l_org_id IS NOT NULL
4450: ELSE
4451: l_change_subject_unexp_rec.pk1_value := NULL;
4452: l_change_subject_unexp_rec.pk2_value := NULL;
4451: l_change_subject_unexp_rec.pk1_value := NULL;
4452: l_change_subject_unexp_rec.pk2_value := NULL;
4453: -- Commented out code as pk values are not mandatory
4454: /* IF p_eco_rec.pk1_name IS NULL
4455: OR p_eco_rec.pk1_name = fnd_api.g_miss_char THEN
4456: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4457: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
4458: Error_Handler.add_error_token (
4459: p_message_name=> 'ENG_PK1_NAME_INVALID',
4460: p_mesg_token_tbl=> l_mesg_token_tbl,
4461: x_mesg_token_tbl=> l_mesg_token_tbl,
4462: p_token_tbl=> l_token_tbl
4463: );
4464: l_return_status := FND_API.G_RET_STS_ERROR;
4465: END IF;
4466:
4467: IF p_eco_rec.pk2_name IS NULL
4468: OR p_eco_rec.pk2_name = fnd_api.g_miss_char THEN
4464: l_return_status := FND_API.G_RET_STS_ERROR;
4465: END IF;
4466:
4467: IF p_eco_rec.pk2_name IS NULL
4468: OR p_eco_rec.pk2_name = fnd_api.g_miss_char THEN
4469: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4470: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
4471: Error_Handler.add_error_token (
4472: p_message_name=> 'ENG_PK3_NAME_INVALID',
4473: p_mesg_token_tbl=> l_mesg_token_tbl,
4474: x_mesg_token_tbl=> l_mesg_token_tbl,
4475: p_token_tbl=> l_token_tbl
4476: );
4477: l_return_status := FND_API.G_RET_STS_ERROR;
4478: END IF;*/
4479: END IF; -- p_eco_rec.Pk1_Name is not null
4480: END IF; --End Of If of check for l_entity_name
4481:
4695: -- procedure to delete all changeheader related rows
4696: PROCEDURE delete_ECO
4697: (
4698: p_api_version IN NUMBER --
4699: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4700: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4701: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4702: ,x_return_status OUT NOCOPY VARCHAR2 --
4703: ,x_msg_count OUT NOCOPY NUMBER --
4696: PROCEDURE delete_ECO
4697: (
4698: p_api_version IN NUMBER --
4699: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4700: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4701: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4702: ,x_return_status OUT NOCOPY VARCHAR2 --
4703: ,x_msg_count OUT NOCOPY NUMBER --
4704: ,x_msg_data OUT NOCOPY VARCHAR2 --
4697: (
4698: p_api_version IN NUMBER --
4699: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4700: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4701: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4702: ,x_return_status OUT NOCOPY VARCHAR2 --
4703: ,x_msg_count OUT NOCOPY NUMBER --
4704: ,x_msg_data OUT NOCOPY VARCHAR2 --
4705: ,p_change_id IN NUMBER -- header's change_id
4720: -- Standard Start of API savepoint
4721: -- Standard Start of API savepoint
4722: SAVEPOINT Init_Lifecycle;
4723: -- Standard call to check for call compatibility
4724: IF NOT FND_API.Compatible_API_Call ( l_api_version
4725: ,p_api_version
4726: ,l_api_name
4727: ,G_PKG_NAME )
4728: THEN
4725: ,p_api_version
4726: ,l_api_name
4727: ,G_PKG_NAME )
4728: THEN
4729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4730: END IF;
4731: -- Initialize message list if p_init_msg_list is set to TRUE.
4732: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4733: FND_MSG_PUB.initialize;
4728: THEN
4729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4730: END IF;
4731: -- Initialize message list if p_init_msg_list is set to TRUE.
4732: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4733: FND_MSG_PUB.initialize;
4734: END IF ;
4735:
4736: -- Initialize API return status to success
4733: FND_MSG_PUB.initialize;
4734: END IF ;
4735:
4736: -- Initialize API return status to success
4737: x_return_status := FND_API.G_RET_STS_SUCCESS;
4738:
4739:
4740: -- Real code starts here -----------------------------------------------
4741: DELETE FROM ENG_CHANGE_ROUTE_ASSOCS
4855:
4856: delete from eng_engineering_changes
4857: where change_id = p_change_id ;
4858:
4859: IF FND_API.To_Boolean ( p_commit ) THEN
4860: COMMIT WORK;
4861: END IF;
4862:
4863: EXCEPTION
4860: COMMIT WORK;
4861: END IF;
4862:
4863: EXCEPTION
4864: WHEN FND_API.G_EXC_ERROR THEN
4865: --ROLLBACK TO Init_Lifecycle;
4866: x_return_status := FND_API.G_RET_STS_ERROR;
4867: FND_MSG_PUB.Count_And_Get
4868: ( p_count => x_msg_count
4862:
4863: EXCEPTION
4864: WHEN FND_API.G_EXC_ERROR THEN
4865: --ROLLBACK TO Init_Lifecycle;
4866: x_return_status := FND_API.G_RET_STS_ERROR;
4867: FND_MSG_PUB.Count_And_Get
4868: ( p_count => x_msg_count
4869: ,p_data => x_msg_data );
4870: --IF g_debug_flag THEN
4869: ,p_data => x_msg_data );
4870: --IF g_debug_flag THEN
4871: -- Write_Debug('Rollback and Finish with expected error.') ;
4872: --END IF ;
4873: --IF FND_API.to_Boolean( p_debug ) THEN
4874: -- Close_Debug_Session ;
4875: --END IF ;
4876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4877: --ROLLBACK TO Init_Lifecycle;
4872: --END IF ;
4873: --IF FND_API.to_Boolean( p_debug ) THEN
4874: -- Close_Debug_Session ;
4875: --END IF ;
4876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4877: --ROLLBACK TO Init_Lifecycle;
4878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4879: FND_MSG_PUB.Count_And_Get
4880: ( p_count => x_msg_count
4874: -- Close_Debug_Session ;
4875: --END IF ;
4876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4877: --ROLLBACK TO Init_Lifecycle;
4878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4879: FND_MSG_PUB.Count_And_Get
4880: ( p_count => x_msg_count
4881: ,p_data => x_msg_data );
4882: /*
4882: /*
4883: IF g_debug_flag THEN
4884: Write_Debug('Rollback and Finish with unexpected error.') ;
4885: END IF ;
4886: IF FND_API.to_Boolean( p_debug ) THEN
4887: Close_Debug_Session ;
4888: END IF ;
4889: */
4890: WHEN OTHERS THEN
4888: END IF ;
4889: */
4890: WHEN OTHERS THEN
4891: --ROLLBACK TO Init_Lifecycle;
4892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4893: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4894: THEN
4895: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4896: END IF;
4901: IF g_debug_flag THEN
4902: Write_Debug('Rollback and Finish with other error.') ;
4903: END IF ;
4904:
4905: IF FND_API.to_Boolean( p_debug ) THEN
4906: Close_Debug_Session ;
4907: END IF ;
4908: */
4909: END delete_ECO;