[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 --
98: -- Standard Start of API savepoint
99: SAVEPOINT Implement_ECO_PUB;
100:
101: -- Standard call to check for call compatibility
102: IF NOT FND_API.Compatible_API_Call ( l_api_version
103: ,p_api_version
104: ,l_api_name
105: ,G_PKG_NAME )
106: THEN
103: ,p_api_version
104: ,l_api_name
105: ,G_PKG_NAME )
106: THEN
107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
108: END IF;
109:
110: -- Initialize message list if p_init_msg_list is set to TRUE.
111: IF FND_API.to_Boolean( p_init_msg_list ) THEN
107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
108: END IF;
109:
110: -- Initialize message list if p_init_msg_list is set to TRUE.
111: IF FND_API.to_Boolean( p_init_msg_list ) THEN
112: FND_MSG_PUB.initialize;
113: END IF ;
114:
115: -- For Test/Debug
112: FND_MSG_PUB.initialize;
113: END IF ;
114:
115: -- For Test/Debug
116: IF FND_API.to_Boolean( p_debug ) THEN
117: ENG_CHANGE_ACTIONS_UTIL.Open_Debug_Session
118: ( p_file_name => p_debug_filename
119: , p_output_dir => p_output_dir
120: );
120: );
121: END IF ;
122:
123: -- Write debug message if debug mode is on
124: --IF FND_API.to_Boolean( p_debug ) THEN
125: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_Eco_Util.Execute_ProcCP log');
126: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('-----------------------------------------------------');
127: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_api_version ' || p_api_version);
128: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_init_msg_list '|| p_init_msg_list );
143: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Initializing return status... ' );
144: --END IF ;
145:
146: -- Initialize API return status to success
147: x_return_status := FND_API.G_RET_STS_SUCCESS;
148:
149: -- Real pl/sql code starts here
150:
151:
271: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CONCURRENT_PRGM');
272: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EN'||'G.ENCACNC(Implement ECO)');
273: -- concatenating to work around GSCC validation error without changing esisting behaviour
274: FND_MSG_PUB.Add;
275: RAISE FND_API.G_EXC_ERROR;
276: ELSE
277: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('setting x_request_id' );
278: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' x_request_id = ' || to_char(x_request_id) );
279: IF (p_rev_item_seq_id IS NOT NULL ) THEN
285: SET implementation_req_id = x_request_id
286: WHERE change_notice = p_change_notice
287: AND organization_id = p_org_id;
288: END IF ;
289: x_return_status := FND_API.G_RET_STS_SUCCESS;
290: END IF;
291:
292:
293: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Successful: calling Fnd_Request.Submit_Request' );
298: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Fnd_Request.Submit_Request not called ... ' );
299:
300: FND_MESSAGE.Set_Name('ENG', 'ENG_CANT_IMPL_WO_REV_ITEMS');
301: FND_MSG_PUB.Add;
302: x_return_status := FND_API.G_RET_STS_ERROR ;
303: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Done - adding error message ... ' );
304:
305: END IF ;
306:
305: END IF ;
306:
307:
308: -- Standard ending code ------------------------------------------------
309: -- IF FND_API.To_Boolean ( p_commit ) THEN
310: --Always commit to save request id.
311: COMMIT ;
312: -- END IF;
313:
319: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
320:
321:
322: EXCEPTION
323: WHEN FND_API.G_EXC_ERROR THEN
324: ROLLBACK TO Implement_ECO_PUB;
325: x_return_status := FND_API.G_RET_STS_ERROR;
326: FND_MSG_PUB.Count_And_Get
327: ( p_count => x_msg_count
321:
322: EXCEPTION
323: WHEN FND_API.G_EXC_ERROR THEN
324: ROLLBACK TO Implement_ECO_PUB;
325: x_return_status := FND_API.G_RET_STS_ERROR;
326: FND_MSG_PUB.Count_And_Get
327: ( p_count => x_msg_count
328: ,p_data => x_msg_data );
329: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with expected error.') ;
327: ( p_count => x_msg_count
328: ,p_data => x_msg_data );
329: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with expected error.') ;
330: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332: ROLLBACK TO Implement_ECO_PUB;
333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
334: FND_MSG_PUB.Count_And_Get
335: ( p_count => x_msg_count
329: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with expected error.') ;
330: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332: ROLLBACK TO Implement_ECO_PUB;
333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
334: FND_MSG_PUB.Count_And_Get
335: ( p_count => x_msg_count
336: ,p_data => x_msg_data );
337: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
337: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
338: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
339: WHEN OTHERS THEN
340: ROLLBACK TO Implement_ECO_PUB;
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
342: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
343: THEN
344: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
345: END IF;
367: */
368: PROCEDURE Implement_ECO
369: (
370: p_api_version IN NUMBER --
371: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
372: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
373: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
374: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
375: ,p_output_dir IN VARCHAR2
368: PROCEDURE Implement_ECO
369: (
370: p_api_version IN NUMBER --
371: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
372: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
373: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
374: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
375: ,p_output_dir IN VARCHAR2
376: ,p_debug_filename IN VARCHAR2
369: (
370: p_api_version IN NUMBER --
371: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
372: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
373: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
374: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
375: ,p_output_dir IN VARCHAR2
376: ,p_debug_filename IN VARCHAR2
377: ,x_return_status OUT NOCOPY VARCHAR2 --
370: p_api_version IN NUMBER --
371: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
372: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
373: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
374: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
375: ,p_output_dir IN VARCHAR2
376: ,p_debug_filename IN VARCHAR2
377: ,x_return_status OUT NOCOPY VARCHAR2 --
378: ,x_msg_count OUT NOCOPY NUMBER --
402: -- Standard Start of API savepoint
403: SAVEPOINT Implement_ECO_PUB;
404:
405: -- Standard call to check for call compatibility
406: IF NOT FND_API.Compatible_API_Call ( l_api_version
407: ,p_api_version
408: ,l_api_name
409: ,G_PKG_NAME )
410: THEN
407: ,p_api_version
408: ,l_api_name
409: ,G_PKG_NAME )
410: THEN
411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
412: END IF;
413:
414: -- Initialize message list if p_init_msg_list is set to TRUE.
415: IF FND_API.to_Boolean( p_init_msg_list ) THEN
411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
412: END IF;
413:
414: -- Initialize message list if p_init_msg_list is set to TRUE.
415: IF FND_API.to_Boolean( p_init_msg_list ) THEN
416: FND_MSG_PUB.initialize;
417: END IF ;
418:
419: -- For Test/Debug
416: FND_MSG_PUB.initialize;
417: END IF ;
418:
419: -- For Test/Debug
420: IF FND_API.to_Boolean( p_debug ) THEN
421: ENG_CHANGE_ACTIONS_UTIL.Open_Debug_Session
422: ( p_file_name => p_debug_filename
423: , p_output_dir => p_output_dir
424: );
424: );
425: END IF ;
426:
427: -- Write debug message if debug mode is on
428: IF FND_API.to_Boolean( p_debug ) THEN
429: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_Eco_Util.Implement_ECO log');
430: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('-----------------------------------------------------');
431: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_change_id : ' || to_char(p_change_id) );
432: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_change_notice : ' || p_change_notice );
440: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Initializing return status... ' );
441: END IF ;
442:
443: -- Initialize API return status to success
444: x_return_status := FND_API.G_RET_STS_SUCCESS;
445:
446: -- Real pl/sql code starts here
447:
448:
579: argument99 => null,
580: argument100 => null
581: );
582:
583: IF FND_API.to_Boolean( p_debug ) THEN
584: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('After: calling Fnd_Request.Submit_Request' );
585: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' x_request_id = ' || to_char(x_request_id) );
586: END IF ;
587:
589: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CONCURRENT_PRGM');
590: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EN'||'G.ENCACN(Implement ECO)');
591: -- concatenating to work around GSCC validation error without changing esisting behaviour
592: FND_MSG_PUB.Add;
593: RAISE FND_API.G_EXC_ERROR;
594: ELSE
595: x_return_status := FND_API.G_RET_STS_SUCCESS;
596: END IF;
597:
591: -- concatenating to work around GSCC validation error without changing esisting behaviour
592: FND_MSG_PUB.Add;
593: RAISE FND_API.G_EXC_ERROR;
594: ELSE
595: x_return_status := FND_API.G_RET_STS_SUCCESS;
596: END IF;
597:
598: IF FND_API.to_Boolean( p_debug ) THEN
599: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Successful: calling Fnd_Request.Submit_Request' );
594: ELSE
595: x_return_status := FND_API.G_RET_STS_SUCCESS;
596: END IF;
597:
598: IF FND_API.to_Boolean( p_debug ) THEN
599: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Successful: calling Fnd_Request.Submit_Request' );
600: END IF ;
601:
602: ELSE
599: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Successful: calling Fnd_Request.Submit_Request' );
600: END IF ;
601:
602: ELSE
603: IF FND_API.to_Boolean( p_debug ) THEN
604: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('No implementable revised item found ... ' );
605: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Fnd_Request.Submit_Request not called ... ' );
606: END IF ;
607:
606: END IF ;
607:
608: FND_MESSAGE.Set_Name('ENG', 'ENG_CANT_IMPL_WO_REV_ITEMS');
609: FND_MSG_PUB.Add;
610: x_return_status := FND_API.G_RET_STS_ERROR ;
611:
612: IF FND_API.to_Boolean( p_debug ) THEN
613: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Done - adding error message ... ' );
614: END IF ;
608: FND_MESSAGE.Set_Name('ENG', 'ENG_CANT_IMPL_WO_REV_ITEMS');
609: FND_MSG_PUB.Add;
610: x_return_status := FND_API.G_RET_STS_ERROR ;
611:
612: IF FND_API.to_Boolean( p_debug ) THEN
613: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Done - adding error message ... ' );
614: END IF ;
615:
616: END IF ;
616: END IF ;
617:
618:
619: -- Standard ending code ------------------------------------------------
620: IF FND_API.To_Boolean ( p_commit ) THEN
621: COMMIT WORK;
622: END IF;
623:
624: FND_MSG_PUB.Count_And_Get
624: FND_MSG_PUB.Count_And_Get
625: ( p_count => x_msg_count,
626: p_data => x_msg_data );
627:
628: IF FND_API.to_Boolean( p_debug ) THEN
629: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Finish. Eng Of Proc') ;
630: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
631: END IF ;
632:
631: END IF ;
632:
633:
634: EXCEPTION
635: WHEN FND_API.G_EXC_ERROR THEN
636: ROLLBACK TO Implement_ECO_PUB;
637: x_return_status := FND_API.G_RET_STS_ERROR;
638: FND_MSG_PUB.Count_And_Get
639: ( p_count => x_msg_count
633:
634: EXCEPTION
635: WHEN FND_API.G_EXC_ERROR THEN
636: ROLLBACK TO Implement_ECO_PUB;
637: x_return_status := FND_API.G_RET_STS_ERROR;
638: FND_MSG_PUB.Count_And_Get
639: ( p_count => x_msg_count
640: ,p_data => x_msg_data );
641: IF FND_API.to_Boolean( p_debug ) THEN
637: x_return_status := FND_API.G_RET_STS_ERROR;
638: FND_MSG_PUB.Count_And_Get
639: ( p_count => x_msg_count
640: ,p_data => x_msg_data );
641: IF FND_API.to_Boolean( p_debug ) THEN
642: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with expected error.') ;
643: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
644: END IF ;
645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
641: IF FND_API.to_Boolean( p_debug ) THEN
642: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with expected error.') ;
643: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
644: END IF ;
645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
646: ROLLBACK TO Implement_ECO_PUB;
647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
648: FND_MSG_PUB.Count_And_Get
649: ( p_count => x_msg_count
643: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
644: END IF ;
645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
646: ROLLBACK TO Implement_ECO_PUB;
647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
648: FND_MSG_PUB.Count_And_Get
649: ( p_count => x_msg_count
650: ,p_data => x_msg_data );
651: IF FND_API.to_Boolean( p_debug ) THEN
647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
648: FND_MSG_PUB.Count_And_Get
649: ( p_count => x_msg_count
650: ,p_data => x_msg_data );
651: IF FND_API.to_Boolean( p_debug ) THEN
652: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
653: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
654: END IF ;
655: WHEN OTHERS THEN
653: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
654: END IF ;
655: WHEN OTHERS THEN
656: ROLLBACK TO Implement_ECO_PUB;
657: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
658: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
659: THEN
660: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
661: END IF;
661: END IF;
662: FND_MSG_PUB.Count_And_Get
663: ( p_count => x_msg_count
664: ,p_data => x_msg_data );
665: IF FND_API.to_Boolean( p_debug ) THEN
666: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with other errors.') ;
667: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
668: END IF ;
669:
705: -- Standard Start of API savepoint
706: SAVEPOINT Propagate_ECO_PUB;
707:
708: -- Standard call to check for call compatibility
709: IF NOT FND_API.Compatible_API_Call ( l_api_version
710: ,p_api_version
711: ,l_api_name
712: ,G_PKG_NAME )
713: THEN
710: ,p_api_version
711: ,l_api_name
712: ,G_PKG_NAME )
713: THEN
714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
715: END IF;
716:
717: -- Initialize message list if p_init_msg_list is set to TRUE.
718: IF FND_API.to_Boolean( p_init_msg_list ) THEN
714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
715: END IF;
716:
717: -- Initialize message list if p_init_msg_list is set to TRUE.
718: IF FND_API.to_Boolean( p_init_msg_list ) THEN
719: FND_MSG_PUB.initialize;
720: END IF ;
721:
722: -- For Test/Debug
719: FND_MSG_PUB.initialize;
720: END IF ;
721:
722: -- For Test/Debug
723: IF FND_API.to_Boolean( p_debug ) THEN
724: ENG_CHANGE_ACTIONS_UTIL.Open_Debug_Session
725: ( p_file_name => p_debug_filename
726: , p_output_dir => p_output_dir
727: );
727: );
728: END IF ;
729:
730: -- Write debug message if debug mode is on
731: IF FND_API.to_Boolean( p_debug ) THEN
732: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_Eco_Util.Propagate_ECO log');
733: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('-----------------------------------------------------');
734: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_change_id : ' || to_char(p_change_id) );
735: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_change_notice : ' || p_change_notice );
740: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Initializing return status... ' );
741: END IF ;
742:
743: -- Initialize API return status to success
744: x_return_status := FND_API.G_RET_STS_SUCCESS;
745:
746:
747: -- Real pl/sql code starts here
748: x_request_id := Fnd_Request.Submit_Request (
851: argument98 => null,
852: argument99 => null,
853: argument100 => null);
854:
855: IF FND_API.to_Boolean( p_debug ) THEN
856: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('After: calling Fnd_Request.Submit_Request' );
857: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' x_request_id = ' || to_char(x_request_id) );
858: END IF ;
859:
861: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CONCURRENT_PRGM');
862: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EN'||'G.ENGECOBO(Propagate ECO)');
863: -- concatenating to work around GSCC validation error without changing esisting behaviour
864: FND_MSG_PUB.Add;
865: RAISE FND_API.G_EXC_ERROR;
866: ELSE
867: x_return_status := FND_API.G_RET_STS_SUCCESS;
868: END IF;
869:
863: -- concatenating to work around GSCC validation error without changing esisting behaviour
864: FND_MSG_PUB.Add;
865: RAISE FND_API.G_EXC_ERROR;
866: ELSE
867: x_return_status := FND_API.G_RET_STS_SUCCESS;
868: END IF;
869:
870: IF FND_API.to_Boolean( p_debug ) THEN
871: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Successful: calling Fnd_Request.Submit_Request' );
866: ELSE
867: x_return_status := FND_API.G_RET_STS_SUCCESS;
868: END IF;
869:
870: IF FND_API.to_Boolean( p_debug ) THEN
871: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Successful: calling Fnd_Request.Submit_Request' );
872: END IF ;
873:
874: ENGECOBO.PreProcess_Propagate_Request (
872: END IF ;
873:
874: ENGECOBO.PreProcess_Propagate_Request (
875: p_api_version => 1.0
876: , p_init_msg_list => FND_API.G_FALSE
877: , p_commit => FND_API.G_FALSE
878: , p_request_id => x_request_id
879: , p_change_id => p_change_id
880: , p_org_hierarchy_name => p_hierarchy_name
873:
874: ENGECOBO.PreProcess_Propagate_Request (
875: p_api_version => 1.0
876: , p_init_msg_list => FND_API.G_FALSE
877: , p_commit => FND_API.G_FALSE
878: , p_request_id => x_request_id
879: , p_change_id => p_change_id
880: , p_org_hierarchy_name => p_hierarchy_name
881: , p_local_organization_id => p_local_organization_id
885: , x_msg_data => x_msg_data
886: ) ;
887:
888: -- Standard ending code ------------------------------------------------
889: IF FND_API.To_Boolean ( p_commit ) THEN
890: COMMIT WORK;
891: END IF;
892:
893: FND_MSG_PUB.Count_And_Get
893: FND_MSG_PUB.Count_And_Get
894: ( p_count => x_msg_count,
895: p_data => x_msg_data );
896:
897: IF FND_API.to_Boolean( p_debug ) THEN
898: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Finish. Eng Of Proc') ;
899: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
900: END IF ;
901:
900: END IF ;
901:
902:
903: EXCEPTION
904: WHEN FND_API.G_EXC_ERROR THEN
905: ROLLBACK TO Propagate_ECO_PUB;
906: x_return_status := FND_API.G_RET_STS_ERROR;
907: FND_MSG_PUB.Count_And_Get
908: ( p_count => x_msg_count
902:
903: EXCEPTION
904: WHEN FND_API.G_EXC_ERROR THEN
905: ROLLBACK TO Propagate_ECO_PUB;
906: x_return_status := FND_API.G_RET_STS_ERROR;
907: FND_MSG_PUB.Count_And_Get
908: ( p_count => x_msg_count
909: ,p_data => x_msg_data );
910: IF FND_API.to_Boolean( p_debug ) THEN
906: x_return_status := FND_API.G_RET_STS_ERROR;
907: FND_MSG_PUB.Count_And_Get
908: ( p_count => x_msg_count
909: ,p_data => x_msg_data );
910: IF FND_API.to_Boolean( p_debug ) THEN
911: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
912: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
913: END IF ;
914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
910: IF FND_API.to_Boolean( p_debug ) THEN
911: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
912: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
913: END IF ;
914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
915: ROLLBACK TO Propagate_ECO_PUB;
916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
917: FND_MSG_PUB.Count_And_Get
918: ( p_count => x_msg_count
912: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
913: END IF ;
914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
915: ROLLBACK TO Propagate_ECO_PUB;
916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
917: FND_MSG_PUB.Count_And_Get
918: ( p_count => x_msg_count
919: ,p_data => x_msg_data );
920: IF FND_API.to_Boolean( p_debug ) THEN
916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
917: FND_MSG_PUB.Count_And_Get
918: ( p_count => x_msg_count
919: ,p_data => x_msg_data );
920: IF FND_API.to_Boolean( p_debug ) THEN
921: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
922: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
923: END IF ;
924: WHEN OTHERS THEN
922: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
923: END IF ;
924: WHEN OTHERS THEN
925: ROLLBACK TO Propagate_ECO_PUB;
926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
927: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
928: THEN
929: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
930: END IF;
930: END IF;
931: FND_MSG_PUB.Count_And_Get
932: ( p_count => x_msg_count
933: ,p_data => x_msg_data );
934: IF FND_API.to_Boolean( p_debug ) THEN
935: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
936: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
937: END IF ;
938:
1009: THEN
1010: FND_MESSAGE.Set_Name('ENG','ENG_DUP_REV_ITEM_WITH_NEW_REV'); -- create and use a new message
1011: --FND_MESSAGE.Set_Token('ITEM_NAMES', item_names);
1012: FND_MSG_PUB.Add;
1013: RAISE FND_API.G_EXC_ERROR;
1014: END IF;
1015: -- end of vamohan changes
1016:
1017:
1015: -- end of vamohan changes
1016:
1017:
1018: -- Standard call to check for call compatibility
1019: IF NOT FND_API.Compatible_API_Call ( l_api_version
1020: ,p_api_version
1021: ,l_api_name
1022: ,G_PKG_NAME )
1023: THEN
1020: ,p_api_version
1021: ,l_api_name
1022: ,G_PKG_NAME )
1023: THEN
1024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1025: END IF;
1026:
1027: -- Initialize message list if p_init_msg_list is set to TRUE.
1028: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1025: END IF;
1026:
1027: -- Initialize message list if p_init_msg_list is set to TRUE.
1028: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1029: FND_MSG_PUB.initialize;
1030: END IF ;
1031:
1032: -- For Test/Debug
1029: FND_MSG_PUB.initialize;
1030: END IF ;
1031:
1032: -- For Test/Debug
1033: IF FND_API.to_Boolean( p_debug ) THEN
1034: ENG_CHANGE_ACTIONS_UTIL.Open_Debug_Session
1035: ( p_file_name => p_debug_filename
1036: , p_output_dir => p_output_dir
1037: );
1037: );
1038: END IF ;
1039:
1040: -- Write debug message if debug mode is on
1041: IF FND_API.to_Boolean( p_debug ) THEN
1042: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_Eco_Util.Reschedule_ECO log');
1043: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('-----------------------------------------------------');
1044: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_change_id : ' || to_char(p_change_id) );
1045: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_effectivity_date : ' || to_char(p_effectivity_date) );
1049: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Initializing return status... ' );
1050: END IF ;
1051:
1052: -- Initialize API return status to success
1053: x_return_status := FND_API.G_RET_STS_SUCCESS;
1054:
1055:
1056: -- Real pl/sql code starts here
1057: IF x_planning_item_access = 2 THEN
1090: And msi.organization_id = eri.organization_Id
1091: And msi.bom_item_type in (X_Model, X_OptionClass, X_Planning, X_Standard)
1092: );
1093:
1094: IF FND_API.to_Boolean( p_debug ) THEN
1095: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Eng_Revised_Items updated ... ' );
1096: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1097: END IF ;
1098:
1096: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1097: END IF ;
1098:
1099: IF SQL%FOUND THEN
1100: IF FND_API.to_Boolean( p_debug ) THEN
1101: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_REVISED_ITEMS rows found, updating: ' );
1102: END IF ;
1103:
1104: -- Insert records in the history table
1143: )
1144: And msi.bom_item_type in
1145: (X_Model, X_OptionClass, X_Planning, X_Standard);
1146:
1147: IF FND_API.to_Boolean( p_debug ) THEN
1148: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Eng_Current_Scheduled_Dates inserted ... ' );
1149: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1150: END IF ;
1151:
1162: where bill_sequence_id = bic.bill_sequence_id
1163: and organization_id = x_organization_id )
1164: AND bic.IMPLEMENTATION_DATE IS NULL;
1165:
1166: IF FND_API.to_Boolean( p_debug ) THEN
1167: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_INVENTORY_COMPONENTS.EFFECTIVITY_DATE updated ... ' );
1168: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1169: END IF ;
1170:
1189: , x_Return_Status => l_return_status);
1190: END LOOP;
1191: -- End changes for R12
1192:
1193: IF FND_API.to_Boolean( p_debug ) THEN
1194: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_INVENTORY_COMPONENTS.DISABLE_DATE updated ... ' );
1195: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1196: END IF ;
1197:
1204: where routing_sequence_id = bos.routing_sequence_id
1205: and organization_id = x_organization_id )
1206: AND bos.IMPLEMENTATION_DATE IS NULL;
1207:
1208: IF FND_API.to_Boolean( p_debug ) THEN
1209: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_OPERATION_SEQUENCES.EFFECTIVITY_DATE updated ... ' );
1210: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1211: END IF ;
1212:
1220: where routing_sequence_id = bos1.routing_sequence_id
1221: and organization_id = x_organization_id )
1222: AND bos1.IMPLEMENTATION_DATE IS NULL;
1223:
1224: IF FND_API.to_Boolean( p_debug ) THEN
1225: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_OPERATION_SEQUENCES.DISABLE_DATE updated ... ' );
1226: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1227: END IF ;
1228:
1256:
1257:
1258:
1259:
1260: IF FND_API.to_Boolean( p_debug ) THEN
1261: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('MTL_ITEM_REVISIONS updated ... ' );
1262: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1263: END IF ;
1264:
1285: AND msi.organization_id = eri.organization_Id
1286: AND msi.bom_item_type in (X_Model, X_OptionClass,
1287: X_Planning, X_Standard)));
1288:
1289: IF FND_API.to_Boolean( p_debug ) THEN
1290: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('MTL_RTG_ITEM_REVISIONS updated ... ' );
1291: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1292: END IF ;
1293:
1293:
1294:
1295:
1296: ELSE
1297: IF FND_API.to_Boolean( p_debug ) THEN
1298: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_REVISED_ITEMS rows NOT found. NO updates. ' );
1299: END IF ;
1300:
1301: END IF;
1301: END IF;
1302:
1303:
1304: -- Standard ending code ------------------------------------------------
1305: IF FND_API.To_Boolean ( p_commit ) THEN
1306: COMMIT WORK;
1307: END IF;
1308:
1309: FND_MSG_PUB.Count_And_Get
1309: FND_MSG_PUB.Count_And_Get
1310: ( p_count => x_msg_count,
1311: p_data => x_msg_data );
1312:
1313: IF FND_API.to_Boolean( p_debug ) THEN
1314: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Finish. Eng Of Proc') ;
1315: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1316: END IF ;
1317:
1316: END IF ;
1317:
1318:
1319: EXCEPTION
1320: WHEN FND_API.G_EXC_ERROR THEN
1321: ROLLBACK TO Reschedule_ECO_PUB;
1322: x_return_status := FND_API.G_RET_STS_ERROR;
1323: FND_MSG_PUB.Count_And_Get
1324: ( p_count => x_msg_count
1318:
1319: EXCEPTION
1320: WHEN FND_API.G_EXC_ERROR THEN
1321: ROLLBACK TO Reschedule_ECO_PUB;
1322: x_return_status := FND_API.G_RET_STS_ERROR;
1323: FND_MSG_PUB.Count_And_Get
1324: ( p_count => x_msg_count
1325: ,p_data => x_msg_data );
1326: IF FND_API.to_Boolean( p_debug ) THEN
1322: x_return_status := FND_API.G_RET_STS_ERROR;
1323: FND_MSG_PUB.Count_And_Get
1324: ( p_count => x_msg_count
1325: ,p_data => x_msg_data );
1326: IF FND_API.to_Boolean( p_debug ) THEN
1327: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1328: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1329: END IF ;
1330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1326: IF FND_API.to_Boolean( p_debug ) THEN
1327: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1328: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1329: END IF ;
1330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1331: ROLLBACK TO Reschedule_ECO_PUB;
1332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1333: FND_MSG_PUB.Count_And_Get
1334: ( p_count => x_msg_count
1328: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1329: END IF ;
1330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1331: ROLLBACK TO Reschedule_ECO_PUB;
1332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1333: FND_MSG_PUB.Count_And_Get
1334: ( p_count => x_msg_count
1335: ,p_data => x_msg_data );
1336: IF FND_API.to_Boolean( p_debug ) THEN
1332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1333: FND_MSG_PUB.Count_And_Get
1334: ( p_count => x_msg_count
1335: ,p_data => x_msg_data );
1336: IF FND_API.to_Boolean( p_debug ) THEN
1337: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1338: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1339: END IF ;
1340: WHEN OTHERS THEN
1338: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1339: END IF ;
1340: WHEN OTHERS THEN
1341: ROLLBACK TO Reschedule_ECO_PUB;
1342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1343: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1344: THEN
1345: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1346: END IF;
1346: END IF;
1347: FND_MSG_PUB.Count_And_Get
1348: ( p_count => x_msg_count
1349: ,p_data => x_msg_data );
1350: IF FND_API.to_Boolean( p_debug ) THEN
1351: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1352: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1353: END IF ;
1354:
1413: -- Standard Start of API savepoint
1414: SAVEPOINT Change_Effectivity_Date_PUB;
1415:
1416: -- Standard call to check for call compatibility
1417: IF NOT FND_API.Compatible_API_Call ( l_api_version
1418: ,p_api_version
1419: ,l_api_name
1420: ,G_PKG_NAME )
1421: THEN
1418: ,p_api_version
1419: ,l_api_name
1420: ,G_PKG_NAME )
1421: THEN
1422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1423: END IF;
1424:
1425: -- Initialize message list if p_init_msg_list is set to TRUE.
1426: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1423: END IF;
1424:
1425: -- Initialize message list if p_init_msg_list is set to TRUE.
1426: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1427: FND_MSG_PUB.initialize;
1428: END IF ;
1429:
1430: -- For Test/Debug
1427: FND_MSG_PUB.initialize;
1428: END IF ;
1429:
1430: -- For Test/Debug
1431: IF FND_API.to_Boolean( p_debug ) THEN
1432: ENG_CHANGE_ACTIONS_UTIL.Open_Debug_Session
1433: ( p_file_name => p_debug_filename
1434: , p_output_dir => p_output_dir
1435: );
1435: );
1436: END IF ;
1437:
1438: -- Write debug message if debug mode is on
1439: IF FND_API.to_Boolean( p_debug ) THEN
1440: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_Eco_Util.Change_Effectivity_Date log');
1441: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('-----------------------------------------------------');
1442: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_change_id : ' || to_char(p_change_id) );
1443: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('p_effectivity_date : ' || to_char(p_effectivity_date) );
1446: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Initializing return status... ' );
1447: END IF ;
1448:
1449: -- Initialize API return status to success
1450: x_return_status := FND_API.G_RET_STS_SUCCESS;
1451:
1452:
1453: -- Real pl/sql code starts here
1454: IF x_planning_item_access = 2 THEN
1487: And msi.organization_id = eri.organization_Id
1488: And msi.bom_item_type in (X_Model, X_OptionClass, X_Planning, X_Standard)
1489: );
1490:
1491: IF FND_API.to_Boolean( p_debug ) THEN
1492: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Eng_Revised_Items updated ... ' );
1493: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1494: END IF ;
1495:
1493: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1494: END IF ;
1495:
1496: IF SQL%FOUND THEN
1497: IF FND_API.to_Boolean( p_debug ) THEN
1498: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_REVISED_ITEMS rows found, updating: ' );
1499: END IF ;
1500:
1501:
1512: where bill_sequence_id = bic.bill_sequence_id
1513: and organization_id = x_organization_id )
1514: AND bic.IMPLEMENTATION_DATE IS NULL;
1515:
1516: IF FND_API.to_Boolean( p_debug ) THEN
1517: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_INVENTORY_COMPONENTS.EFFECTIVITY_DATE updated ... ' );
1518: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1519: END IF ;
1520:
1539: , x_Return_Status => l_return_status);
1540: END LOOP;
1541: -- End changes for R12
1542:
1543: IF FND_API.to_Boolean( p_debug ) THEN
1544: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_INVENTORY_COMPONENTS.DISABLE_DATE updated ... ' );
1545: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1546: END IF ;
1547:
1554: where routing_sequence_id = bos.routing_sequence_id
1555: and organization_id = x_organization_id )
1556: AND bos.IMPLEMENTATION_DATE IS NULL;
1557:
1558: IF FND_API.to_Boolean( p_debug ) THEN
1559: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_OPERATION_SEQUENCES.EFFECTIVITY_DATE updated ... ' );
1560: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1561: END IF ;
1562:
1570: where routing_sequence_id = bos1.routing_sequence_id
1571: and organization_id = x_organization_id )
1572: AND bos1.IMPLEMENTATION_DATE IS NULL;
1573:
1574: IF FND_API.to_Boolean( p_debug ) THEN
1575: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('BOM_OPERATION_SEQUENCES.DISABLE_DATE updated ... ' );
1576: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1577: END IF ;
1578:
1602: X_Planning, X_Standard)));
1603: --no updation of mtl_item_revisions_tl
1604:
1605:
1606: IF FND_API.to_Boolean( p_debug ) THEN
1607: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('MTL_ITEM_REVISIONS updated ... ' );
1608: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1609: END IF ;
1610:
1631: AND msi.organization_id = eri.organization_Id
1632: AND msi.bom_item_type in (X_Model, X_OptionClass,
1633: X_Planning, X_Standard)));
1634:
1635: IF FND_API.to_Boolean( p_debug ) THEN
1636: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('MTL_RTG_ITEM_REVISIONS updated ... ' );
1637: ENG_CHANGE_ACTIONS_UTIL.Write_Debug(' SQL%ROWCOUNT = ' || to_char(SQL%ROWCOUNT));
1638: END IF ;
1639:
1639:
1640:
1641:
1642: ELSE
1643: IF FND_API.to_Boolean( p_debug ) THEN
1644: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('ENG_REVISED_ITEMS rows NOT found. NO updates. ' );
1645: END IF ;
1646:
1647: END IF;
1647: END IF;
1648:
1649:
1650: -- Standard ending code ------------------------------------------------
1651: IF FND_API.To_Boolean ( p_commit ) THEN
1652: COMMIT WORK;
1653: END IF;
1654:
1655: FND_MSG_PUB.Count_And_Get
1655: FND_MSG_PUB.Count_And_Get
1656: ( p_count => x_msg_count,
1657: p_data => x_msg_data );
1658:
1659: IF FND_API.to_Boolean( p_debug ) THEN
1660: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Finish. Eng Of Proc') ;
1661: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1662: END IF ;
1663:
1662: END IF ;
1663:
1664:
1665: EXCEPTION
1666: WHEN FND_API.G_EXC_ERROR THEN
1667: ROLLBACK TO Change_Effectivity_Date_PUB;
1668: x_return_status := FND_API.G_RET_STS_ERROR;
1669: FND_MSG_PUB.Count_And_Get
1670: ( p_count => x_msg_count
1664:
1665: EXCEPTION
1666: WHEN FND_API.G_EXC_ERROR THEN
1667: ROLLBACK TO Change_Effectivity_Date_PUB;
1668: x_return_status := FND_API.G_RET_STS_ERROR;
1669: FND_MSG_PUB.Count_And_Get
1670: ( p_count => x_msg_count
1671: ,p_data => x_msg_data );
1672: IF FND_API.to_Boolean( p_debug ) THEN
1668: x_return_status := FND_API.G_RET_STS_ERROR;
1669: FND_MSG_PUB.Count_And_Get
1670: ( p_count => x_msg_count
1671: ,p_data => x_msg_data );
1672: IF FND_API.to_Boolean( p_debug ) THEN
1673: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1674: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1675: END IF ;
1676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1672: IF FND_API.to_Boolean( p_debug ) THEN
1673: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1674: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1675: END IF ;
1676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1677: ROLLBACK TO Change_Effectivity_Date_PUB;
1678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1679: FND_MSG_PUB.Count_And_Get
1680: ( p_count => x_msg_count
1674: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1675: END IF ;
1676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1677: ROLLBACK TO Change_Effectivity_Date_PUB;
1678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1679: FND_MSG_PUB.Count_And_Get
1680: ( p_count => x_msg_count
1681: ,p_data => x_msg_data );
1682: IF FND_API.to_Boolean( p_debug ) THEN
1678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1679: FND_MSG_PUB.Count_And_Get
1680: ( p_count => x_msg_count
1681: ,p_data => x_msg_data );
1682: IF FND_API.to_Boolean( p_debug ) THEN
1683: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1684: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1685: END IF ;
1686: WHEN OTHERS THEN
1684: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1685: END IF ;
1686: WHEN OTHERS THEN
1687: ROLLBACK TO Change_Effectivity_Date_PUB;
1688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1689: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1690: THEN
1691: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1692: END IF;
1692: END IF;
1693: FND_MSG_PUB.Count_And_Get
1694: ( p_count => x_msg_count
1695: ,p_data => x_msg_data );
1696: IF FND_API.to_Boolean( p_debug ) THEN
1697: ENG_CHANGE_ACTIONS_UTIL.Write_Debug('Rollback and Finish with unexpected error.') ;
1698: ENG_CHANGE_ACTIONS_UTIL.Close_Debug_Session ;
1699: END IF ;
1700:
2283: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2284: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
2285: );
2286:
2287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2288: END Cancel_ECO;
2289:
2290: -- Procedure Update_Row
2291:
2310: l_mdl_item_access NUMBER := Eng_Globals.Get_MDL_Item_Access;
2311: l_change_name VARCHAR2(240); -- Bug 3032565
2312: BEGIN
2313:
2314: x_return_status := FND_API.G_RET_STS_SUCCESS;
2315:
2316: l_user_id := Eng_Globals.Get_User_Id;
2317: l_login_id := Eng_Globals.Get_Login_Id;
2318: l_request_id := ENG_GLOBALS.Get_request_id;
2398: -- End Changes
2399: WHERE change_notice = p_eco_rec.eco_name
2400: AND organization_id = p_unexp_eco_rec.organization_id;
2401:
2402: x_return_status := FND_API.G_RET_STS_SUCCESS;
2403:
2404: EXCEPTION
2405: WHEN OTHERS THEN
2406:
2405: WHEN OTHERS THEN
2406:
2407: IF G_CONTROL_REC.caller_type = 'FORM'
2408: THEN
2409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2410: RAISE;
2411: END IF;
2412:
2413: l_err_text := G_PKG_NAME || ' : Utility (ECO Update) '
2417: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2418: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
2419: );
2420:
2421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2422: RETURN;
2423: END;
2424: END IF;
2425:
2530: ,l_PLN_Item_Access
2531: ,l_MDL_Item_Access));
2532: END IF;
2533:
2534: x_return_status := FND_API.G_RET_STS_SUCCESS;
2535:
2536: EXCEPTION
2537: WHEN NO_DATA_FOUND THEN
2538: NULL;
2540: WHEN OTHERS THEN
2541:
2542: IF G_CONTROL_REC.caller_type = 'FORM'
2543: THEN
2544: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2545: RAISE;
2546: END IF;
2547:
2548: l_err_text := G_PKG_NAME || ' : Utility (ECO Update) '
2553: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2554: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
2555: );
2556:
2557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2558: RETURN;
2559: END;
2560: END IF;
2561:
2664: l_change_name VARCHAR2(240); -- Bug 3032565
2665: l_change_id NUMBER;
2666: BEGIN
2667:
2668: x_return_status := FND_API.G_RET_STS_SUCCESS;
2669:
2670: l_user_id := Eng_Globals.Get_User_Id;
2671: l_login_id := Eng_Globals.Get_Login_Id;
2672: l_request_id := ENG_GLOBALS.Get_request_id;
2857: Error_Handler.Close_Debug_Session;
2858:
2859: IF G_CONTROL_REC.caller_type = 'FORM'
2860: THEN
2861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2862: RAISE;
2863: END IF;
2864:
2865: l_err_text := G_PKG_NAME || ' : Utility (ECO Insert) '
2870: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2871: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
2872: );
2873:
2874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2875:
2876:
2877:
2878:
2895:
2896: l_token_tbl(1).token_name := 'ECO_NAME';
2897: l_token_tbl(1).token_value := p_change_notice;
2898:
2899: x_return_status := FND_API.G_RET_STS_SUCCESS;
2900:
2901: BEGIN
2902: DELETE FROM ENG_ENGINEERING_CHANGES
2903: WHERE CHANGE_NOTICE = p_change_notice
2907: WHEN OTHERS THEN
2908:
2909: IF G_CONTROL_REC.caller_type = 'FORM'
2910: THEN
2911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2912: RAISE;
2913: END IF;
2914:
2915: l_err_text := G_PKG_NAME || ' : Utility (ECO Delete) '
2919: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2920: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
2921: );
2922:
2923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2924: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2925: RETURN;
2926: END;
2927:
2938: WHEN OTHERS THEN
2939:
2940: IF G_CONTROL_REC.caller_type = 'FORM'
2941: THEN
2942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2943: RAISE;
2944: END IF;
2945:
2946: l_err_text := G_PKG_NAME || ' : Utility (ECO Revisions Delete) '
2950: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2951: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
2952: );
2953:
2954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2955: RETURN;
2956: END;
2957:
2958: BEGIN
2988: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2989: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
2990: );
2991:
2992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2993: RETURN;
2994: END;
2995: END Delete_Row;
2996:
3253: ' Utility (ECO Header Query_Row)' ||
3254: SUBSTR(SQLERRM, 1, 100);
3255: x_ECO_rec := l_ECO_rec;
3256: x_ECO_Unexp_rec := l_ECO_Unexp_Rec;
3257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3258: END Query_Row;
3259:
3260:
3261: -- Procedure Perform_Approval_Status_Change
3275: l_request_id NUMBER;
3276:
3277: BEGIN
3278:
3279: x_return_status := FND_API.G_RET_STS_SUCCESS;
3280:
3281: IF p_caller_type = 'WF' THEN
3282:
3283: l_user_id := p_user_id ;
3358:
3359: EXCEPTION
3360:
3361: WHEN OTHERS THEN
3362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3363: x_err_text := G_PKG_NAME ||
3364: ' Utility (ECO Header Perform_Approval_Status_Change)' ||
3365: SUBSTR(SQLERRM, 1, 100);
3366:
3368:
3369: PROCEDURE submit_ECO
3370: (
3371: p_api_version IN NUMBER --
3372: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3373: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3374: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3375: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3376: ,p_output_dir IN VARCHAR2 --
3369: PROCEDURE submit_ECO
3370: (
3371: p_api_version IN NUMBER --
3372: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3373: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3374: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3375: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3376: ,p_output_dir IN VARCHAR2 --
3377: ,p_debug_filename IN VARCHAR2
3370: (
3371: p_api_version IN NUMBER --
3372: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3373: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3374: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3375: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3376: ,p_output_dir IN VARCHAR2 --
3377: ,p_debug_filename IN VARCHAR2
3378: ,x_return_status OUT NOCOPY VARCHAR2 --
3371: p_api_version IN NUMBER --
3372: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3373: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3374: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3375: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3376: ,p_output_dir IN VARCHAR2 --
3377: ,p_debug_filename IN VARCHAR2
3378: ,x_return_status OUT NOCOPY VARCHAR2 --
3379: ,x_msg_count OUT NOCOPY NUMBER --
3386: update eng_revised_items
3387: set STATUS_TYPE = 1
3388: where CHANGE_ID = p_change_id;
3389:
3390: if (p_commit = FND_API.G_TRUE )
3391: then commit;
3392: end if;
3393:
3394: /*
3512: -- Row locked. Compare IN attributes to DB attributes.
3513:
3514: IF ( (l_ECO_rec.attribute7 =
3515: p_ECO_rec.attribute7) OR
3516: ((p_ECO_rec.attribute7 = FND_API.G_MISS_CHAR) OR
3517: ( (l_ECO_rec.attribute7 IS NULL) AND
3518: (p_ECO_rec.attribute7 IS NULL))))
3519: AND ( (l_ECO_rec.attribute8 =
3520: p_ECO_rec.attribute8) OR
3517: ( (l_ECO_rec.attribute7 IS NULL) AND
3518: (p_ECO_rec.attribute7 IS NULL))))
3519: AND ( (l_ECO_rec.attribute8 =
3520: p_ECO_rec.attribute8) OR
3521: ((p_ECO_rec.attribute8 = FND_API.G_MISS_CHAR) OR
3522: ( (l_ECO_rec.attribute8 IS NULL) AND
3523: (p_ECO_rec.attribute8 IS NULL))))
3524: AND ( (l_ECO_rec.attribute9 =
3525: p_ECO_rec.attribute9) OR
3522: ( (l_ECO_rec.attribute8 IS NULL) AND
3523: (p_ECO_rec.attribute8 IS NULL))))
3524: AND ( (l_ECO_rec.attribute9 =
3525: p_ECO_rec.attribute9) OR
3526: ((p_ECO_rec.attribute9 = FND_API.G_MISS_CHAR) OR
3527: ( (l_ECO_rec.attribute9 IS NULL) AND
3528: (p_ECO_rec.attribute9 IS NULL))))
3529: AND ( (l_ECO_rec.attribute10 =
3530: p_ECO_rec.attribute10) OR
3527: ( (l_ECO_rec.attribute9 IS NULL) AND
3528: (p_ECO_rec.attribute9 IS NULL))))
3529: AND ( (l_ECO_rec.attribute10 =
3530: p_ECO_rec.attribute10) OR
3531: ((p_ECO_rec.attribute10 = FND_API.G_MISS_CHAR) OR
3532: ( (l_ECO_rec.attribute10 IS NULL) AND
3533: (p_ECO_rec.attribute10 IS NULL))))
3534: AND ( (l_ECO_rec.attribute11 =
3535: p_ECO_rec.attribute11) OR
3532: ( (l_ECO_rec.attribute10 IS NULL) AND
3533: (p_ECO_rec.attribute10 IS NULL))))
3534: AND ( (l_ECO_rec.attribute11 =
3535: p_ECO_rec.attribute11) OR
3536: ((p_ECO_rec.attribute11 = FND_API.G_MISS_CHAR) OR
3537: ( (l_ECO_rec.attribute11 IS NULL) AND
3538: (p_ECO_rec.attribute11 IS NULL))))
3539: AND ( (l_ECO_rec.attribute12 =
3540: p_ECO_rec.attribute12) OR
3537: ( (l_ECO_rec.attribute11 IS NULL) AND
3538: (p_ECO_rec.attribute11 IS NULL))))
3539: AND ( (l_ECO_rec.attribute12 =
3540: p_ECO_rec.attribute12) OR
3541: ((p_ECO_rec.attribute12 = FND_API.G_MISS_CHAR) OR
3542: ( (l_ECO_rec.attribute12 IS NULL) AND
3543: (p_ECO_rec.attribute12 IS NULL))))
3544: AND ( (l_ECO_rec.attribute13 =
3545: p_ECO_rec.attribute13) OR
3542: ( (l_ECO_rec.attribute12 IS NULL) AND
3543: (p_ECO_rec.attribute12 IS NULL))))
3544: AND ( (l_ECO_rec.attribute13 =
3545: p_ECO_rec.attribute13) OR
3546: ((p_ECO_rec.attribute13 = FND_API.G_MISS_CHAR) OR
3547: ( (l_ECO_rec.attribute13 IS NULL) AND
3548: (p_ECO_rec.attribute13 IS NULL))))
3549: AND ( (l_ECO_rec.attribute14 =
3550: p_ECO_rec.attribute14) OR
3547: ( (l_ECO_rec.attribute13 IS NULL) AND
3548: (p_ECO_rec.attribute13 IS NULL))))
3549: AND ( (l_ECO_rec.attribute14 =
3550: p_ECO_rec.attribute14) OR
3551: ((p_ECO_rec.attribute14 = FND_API.G_MISS_CHAR) OR
3552: ( (l_ECO_rec.attribute14 IS NULL) AND
3553: (p_ECO_rec.attribute14 IS NULL))))
3554: AND ( (l_ECO_rec.attribute15 =
3555: p_ECO_rec.attribute15) OR
3552: ( (l_ECO_rec.attribute14 IS NULL) AND
3553: (p_ECO_rec.attribute14 IS NULL))))
3554: AND ( (l_ECO_rec.attribute15 =
3555: p_ECO_rec.attribute15) OR
3556: ((p_ECO_rec.attribute15 = FND_API.G_MISS_CHAR) OR
3557: ( (l_ECO_rec.attribute15 IS NULL) AND
3558: (p_ECO_rec.attribute15 IS NULL))))
3559: AND ( (l_ECO_rec.request_id =
3560: p_ECO_rec.request_id) OR
3557: ( (l_ECO_rec.attribute15 IS NULL) AND
3558: (p_ECO_rec.attribute15 IS NULL))))
3559: AND ( (l_ECO_rec.request_id =
3560: p_ECO_rec.request_id) OR
3561: ((p_ECO_rec.request_id = FND_API.G_MISS_NUM) OR
3562: ( (l_ECO_rec.request_id IS NULL) AND
3563: (p_ECO_rec.request_id IS NULL))))
3564: AND ( (l_ECO_rec.program_application_id =
3565: p_ECO_rec.program_application_id) OR
3562: ( (l_ECO_rec.request_id IS NULL) AND
3563: (p_ECO_rec.request_id IS NULL))))
3564: AND ( (l_ECO_rec.program_application_id =
3565: p_ECO_rec.program_application_id) OR
3566: ((p_ECO_rec.program_application_id = FND_API.G_MISS_NUM) OR
3567: ( (l_ECO_rec.program_application_id IS NULL) AND
3568: (p_ECO_rec.program_application_id IS NULL))))
3569: AND ( (l_ECO_rec.program_id =
3570: p_ECO_rec.program_id) OR
3567: ( (l_ECO_rec.program_application_id IS NULL) AND
3568: (p_ECO_rec.program_application_id IS NULL))))
3569: AND ( (l_ECO_rec.program_id =
3570: p_ECO_rec.program_id) OR
3571: ((p_ECO_rec.program_id = FND_API.G_MISS_NUM) OR
3572: ( (l_ECO_rec.program_id IS NULL) AND
3573: (p_ECO_rec.program_id IS NULL))))
3574: AND ( (l_ECO_rec.program_update_date =
3575: p_ECO_rec.program_update_date) OR
3572: ( (l_ECO_rec.program_id IS NULL) AND
3573: (p_ECO_rec.program_id IS NULL))))
3574: AND ( (l_ECO_rec.program_update_date =
3575: p_ECO_rec.program_update_date) OR
3576: ((p_ECO_rec.program_update_date = FND_API.G_MISS_DATE) OR
3577: ( (l_ECO_rec.program_update_date IS NULL) AND
3578: (p_ECO_rec.program_update_date IS NULL))))
3579: AND ( (l_ECO_rec.approval_status_type =
3580: p_ECO_rec.approval_status_type) OR
3577: ( (l_ECO_rec.program_update_date IS NULL) AND
3578: (p_ECO_rec.program_update_date IS NULL))))
3579: AND ( (l_ECO_rec.approval_status_type =
3580: p_ECO_rec.approval_status_type) OR
3581: ((p_ECO_rec.approval_status_type = FND_API.G_MISS_NUM) OR
3582: ( (l_ECO_rec.approval_status_type IS NULL) AND
3583: (p_ECO_rec.approval_status_type IS NULL))))
3584: AND ( (l_ECO_rec.approval_date =
3585: p_ECO_rec.approval_date) OR
3582: ( (l_ECO_rec.approval_status_type IS NULL) AND
3583: (p_ECO_rec.approval_status_type IS NULL))))
3584: AND ( (l_ECO_rec.approval_date =
3585: p_ECO_rec.approval_date) OR
3586: ((p_ECO_rec.approval_date = FND_API.G_MISS_DATE) OR
3587: ( (l_ECO_rec.approval_date IS NULL) AND
3588: (p_ECO_rec.approval_date IS NULL))))
3589: AND ( (l_ECO_rec.approval_list_id =
3590: p_ECO_rec.approval_list_id) OR
3587: ( (l_ECO_rec.approval_date IS NULL) AND
3588: (p_ECO_rec.approval_date IS NULL))))
3589: AND ( (l_ECO_rec.approval_list_id =
3590: p_ECO_rec.approval_list_id) OR
3591: ((p_ECO_rec.approval_list_id = FND_API.G_MISS_NUM) OR
3592: ( (l_ECO_rec.approval_list_id IS NULL) AND
3593: (p_ECO_rec.approval_list_id IS NULL))))
3594: AND ( (l_ECO_rec.change_order_type_id =
3595: p_ECO_rec.change_order_type_id) OR
3592: ( (l_ECO_rec.approval_list_id IS NULL) AND
3593: (p_ECO_rec.approval_list_id IS NULL))))
3594: AND ( (l_ECO_rec.change_order_type_id =
3595: p_ECO_rec.change_order_type_id) OR
3596: ((p_ECO_rec.change_order_type_id = FND_API.G_MISS_NUM) OR
3597: ( (l_ECO_rec.change_order_type_id IS NULL) AND
3598: (p_ECO_rec.change_order_type_id IS NULL))))
3599: AND ( (l_ECO_rec.responsible_org_id =
3600: p_ECO_rec.responsible_org_id) OR
3597: ( (l_ECO_rec.change_order_type_id IS NULL) AND
3598: (p_ECO_rec.change_order_type_id IS NULL))))
3599: AND ( (l_ECO_rec.responsible_org_id =
3600: p_ECO_rec.responsible_org_id) OR
3601: ((p_ECO_rec.responsible_org_id = FND_API.G_MISS_NUM) OR
3602: ( (l_ECO_rec.responsible_org_id IS NULL) AND
3603: (p_ECO_rec.responsible_org_id IS NULL))))
3604: AND ( (l_ECO_rec.approval_request_date =
3605: p_ECO_rec.approval_request_date) OR
3602: ( (l_ECO_rec.responsible_org_id IS NULL) AND
3603: (p_ECO_rec.responsible_org_id IS NULL))))
3604: AND ( (l_ECO_rec.approval_request_date =
3605: p_ECO_rec.approval_request_date) OR
3606: ((p_ECO_rec.approval_request_date = FND_API.G_MISS_DATE) OR
3607: ( (l_ECO_rec.approval_request_date IS NULL) AND
3608: (p_ECO_rec.approval_request_date IS NULL))))
3609: AND ( (l_ECO_rec.change_notice =
3610: p_ECO_rec.change_notice) OR
3607: ( (l_ECO_rec.approval_request_date IS NULL) AND
3608: (p_ECO_rec.approval_request_date IS NULL))))
3609: AND ( (l_ECO_rec.change_notice =
3610: p_ECO_rec.change_notice) OR
3611: ((p_ECO_rec.change_notice = FND_API.G_MISS_CHAR) OR
3612: ( (l_ECO_rec.change_notice IS NULL) AND
3613: (p_ECO_rec.change_notice IS NULL))))
3614: AND ( (l_ECO_rec.organization_id =
3615: p_ECO_rec.organization_id) OR
3612: ( (l_ECO_rec.change_notice IS NULL) AND
3613: (p_ECO_rec.change_notice IS NULL))))
3614: AND ( (l_ECO_rec.organization_id =
3615: p_ECO_rec.organization_id) OR
3616: ((p_ECO_rec.organization_id = FND_API.G_MISS_NUM) OR
3617: ( (l_ECO_rec.organization_id IS NULL) AND
3618: (p_ECO_rec.organization_id IS NULL))))
3619: AND ( (l_ECO_rec.last_update_date =
3620: p_ECO_rec.last_update_date) OR
3617: ( (l_ECO_rec.organization_id IS NULL) AND
3618: (p_ECO_rec.organization_id IS NULL))))
3619: AND ( (l_ECO_rec.last_update_date =
3620: p_ECO_rec.last_update_date) OR
3621: ((p_ECO_rec.last_update_date = FND_API.G_MISS_DATE) OR
3622: ( (l_ECO_rec.last_update_date IS NULL) AND
3623: (p_ECO_rec.last_update_date IS NULL))))
3624: AND ( (l_ECO_rec.last_updated_by =
3625: p_ECO_rec.last_updated_by) OR
3622: ( (l_ECO_rec.last_update_date IS NULL) AND
3623: (p_ECO_rec.last_update_date IS NULL))))
3624: AND ( (l_ECO_rec.last_updated_by =
3625: p_ECO_rec.last_updated_by) OR
3626: ((p_ECO_rec.last_updated_by = FND_API.G_MISS_NUM) OR
3627: ( (l_ECO_rec.last_updated_by IS NULL) AND
3628: (p_ECO_rec.last_updated_by IS NULL))))
3629: AND ( (l_ECO_rec.creation_date =
3630: p_ECO_rec.creation_date) OR
3627: ( (l_ECO_rec.last_updated_by IS NULL) AND
3628: (p_ECO_rec.last_updated_by IS NULL))))
3629: AND ( (l_ECO_rec.creation_date =
3630: p_ECO_rec.creation_date) OR
3631: ((p_ECO_rec.creation_date = FND_API.G_MISS_DATE) OR
3632: ( (l_ECO_rec.creation_date IS NULL) AND
3633: (p_ECO_rec.creation_date IS NULL))))
3634: AND ( (l_ECO_rec.created_by =
3635: p_ECO_rec.created_by) OR
3632: ( (l_ECO_rec.creation_date IS NULL) AND
3633: (p_ECO_rec.creation_date IS NULL))))
3634: AND ( (l_ECO_rec.created_by =
3635: p_ECO_rec.created_by) OR
3636: ((p_ECO_rec.created_by = FND_API.G_MISS_NUM) OR
3637: ( (l_ECO_rec.created_by IS NULL) AND
3638: (p_ECO_rec.created_by IS NULL))))
3639: AND ( (l_ECO_rec.last_update_login =
3640: p_ECO_rec.last_update_login) OR
3637: ( (l_ECO_rec.created_by IS NULL) AND
3638: (p_ECO_rec.created_by IS NULL))))
3639: AND ( (l_ECO_rec.last_update_login =
3640: p_ECO_rec.last_update_login) OR
3641: ((p_ECO_rec.last_update_login = FND_API.G_MISS_NUM) OR
3642: ( (l_ECO_rec.last_update_login IS NULL) AND
3643: (p_ECO_rec.last_update_login IS NULL))))
3644: AND ( (l_ECO_rec.description =
3645: p_ECO_rec.description) OR
3642: ( (l_ECO_rec.last_update_login IS NULL) AND
3643: (p_ECO_rec.last_update_login IS NULL))))
3644: AND ( (l_ECO_rec.description =
3645: p_ECO_rec.description) OR
3646: ((p_ECO_rec.description = FND_API.G_MISS_CHAR) OR
3647: ( (l_ECO_rec.description IS NULL) AND
3648: (p_ECO_rec.description IS NULL))))
3649: AND ( (l_ECO_rec.status_type =
3650: p_ECO_rec.status_type) OR
3647: ( (l_ECO_rec.description IS NULL) AND
3648: (p_ECO_rec.description IS NULL))))
3649: AND ( (l_ECO_rec.status_type =
3650: p_ECO_rec.status_type) OR
3651: ((p_ECO_rec.status_type = FND_API.G_MISS_NUM) OR
3652: ( (l_ECO_rec.status_type IS NULL) AND
3653: (p_ECO_rec.status_type IS NULL))))
3654: AND ( (l_ECO_rec.initiation_date =
3655: p_ECO_rec.initiation_date) OR
3652: ( (l_ECO_rec.status_type IS NULL) AND
3653: (p_ECO_rec.status_type IS NULL))))
3654: AND ( (l_ECO_rec.initiation_date =
3655: p_ECO_rec.initiation_date) OR
3656: ((p_ECO_rec.initiation_date = FND_API.G_MISS_DATE) OR
3657: ( (l_ECO_rec.initiation_date IS NULL) AND
3658: (p_ECO_rec.initiation_date IS NULL))))
3659: AND ( (l_ECO_rec.implementation_date =
3660: p_ECO_rec.implementation_date) OR
3657: ( (l_ECO_rec.initiation_date IS NULL) AND
3658: (p_ECO_rec.initiation_date IS NULL))))
3659: AND ( (l_ECO_rec.implementation_date =
3660: p_ECO_rec.implementation_date) OR
3661: ((p_ECO_rec.implementation_date = FND_API.G_MISS_DATE) OR
3662: ( (l_ECO_rec.implementation_date IS NULL) AND
3663: (p_ECO_rec.implementation_date IS NULL))))
3664: AND ( (l_ECO_rec.cancellation_date =
3665: p_ECO_rec.cancellation_date) OR
3662: ( (l_ECO_rec.implementation_date IS NULL) AND
3663: (p_ECO_rec.implementation_date IS NULL))))
3664: AND ( (l_ECO_rec.cancellation_date =
3665: p_ECO_rec.cancellation_date) OR
3666: ((p_ECO_rec.cancellation_date = FND_API.G_MISS_DATE) OR
3667: ( (l_ECO_rec.cancellation_date IS NULL) AND
3668: (p_ECO_rec.cancellation_date IS NULL))))
3669: AND ( (l_ECO_rec.cancellation_comments =
3670: p_ECO_rec.cancellation_comments) OR
3667: ( (l_ECO_rec.cancellation_date IS NULL) AND
3668: (p_ECO_rec.cancellation_date IS NULL))))
3669: AND ( (l_ECO_rec.cancellation_comments =
3670: p_ECO_rec.cancellation_comments) OR
3671: ((p_ECO_rec.cancellation_comments = FND_API.G_MISS_CHAR) OR
3672: ( (l_ECO_rec.cancellation_comments IS NULL) AND
3673: (p_ECO_rec.cancellation_comments IS NULL))))
3674: AND ( (l_ECO_rec.priority_code =
3675: p_ECO_rec.priority_code) OR
3672: ( (l_ECO_rec.cancellation_comments IS NULL) AND
3673: (p_ECO_rec.cancellation_comments IS NULL))))
3674: AND ( (l_ECO_rec.priority_code =
3675: p_ECO_rec.priority_code) OR
3676: ((p_ECO_rec.priority_code = FND_API.G_MISS_CHAR) OR
3677: ( (l_ECO_rec.priority_code IS NULL) AND
3678: (p_ECO_rec.priority_code IS NULL))))
3679: AND ( (l_ECO_rec.reason_code =
3680: p_ECO_rec.reason_code) OR
3677: ( (l_ECO_rec.priority_code IS NULL) AND
3678: (p_ECO_rec.priority_code IS NULL))))
3679: AND ( (l_ECO_rec.reason_code =
3680: p_ECO_rec.reason_code) OR
3681: ((p_ECO_rec.reason_code = FND_API.G_MISS_CHAR) OR
3682: ( (l_ECO_rec.reason_code IS NULL) AND
3683: (p_ECO_rec.reason_code IS NULL))))
3684: AND ( (l_ECO_rec.estimated_eng_cost =
3685: p_ECO_rec.estimated_eng_cost) OR
3682: ( (l_ECO_rec.reason_code IS NULL) AND
3683: (p_ECO_rec.reason_code IS NULL))))
3684: AND ( (l_ECO_rec.estimated_eng_cost =
3685: p_ECO_rec.estimated_eng_cost) OR
3686: ((p_ECO_rec.estimated_eng_cost = FND_API.G_MISS_NUM) OR
3687: ( (l_ECO_rec.estimated_eng_cost IS NULL) AND
3688: (p_ECO_rec.estimated_eng_cost IS NULL))))
3689: AND ( (l_ECO_rec.estimated_mfg_cost =
3690: p_ECO_rec.estimated_mfg_cost) OR
3687: ( (l_ECO_rec.estimated_eng_cost IS NULL) AND
3688: (p_ECO_rec.estimated_eng_cost IS NULL))))
3689: AND ( (l_ECO_rec.estimated_mfg_cost =
3690: p_ECO_rec.estimated_mfg_cost) OR
3691: ((p_ECO_rec.estimated_mfg_cost = FND_API.G_MISS_NUM) OR
3692: ( (l_ECO_rec.estimated_mfg_cost IS NULL) AND
3693: (p_ECO_rec.estimated_mfg_cost IS NULL))))
3694: AND ( (l_ECO_rec.requestor_id =
3695: p_ECO_rec.requestor_id) OR
3692: ( (l_ECO_rec.estimated_mfg_cost IS NULL) AND
3693: (p_ECO_rec.estimated_mfg_cost IS NULL))))
3694: AND ( (l_ECO_rec.requestor_id =
3695: p_ECO_rec.requestor_id) OR
3696: ((p_ECO_rec.requestor_id = FND_API.G_MISS_NUM) OR
3697: ( (l_ECO_rec.requestor_id IS NULL) AND
3698: (p_ECO_rec.requestor_id IS NULL))))
3699: AND ( (l_ECO_rec.attribute_category =
3700: p_ECO_rec.attribute_category) OR
3697: ( (l_ECO_rec.requestor_id IS NULL) AND
3698: (p_ECO_rec.requestor_id IS NULL))))
3699: AND ( (l_ECO_rec.attribute_category =
3700: p_ECO_rec.attribute_category) OR
3701: ((p_ECO_rec.attribute_category = FND_API.G_MISS_CHAR) OR
3702: ( (l_ECO_rec.attribute_category IS NULL) AND
3703: (p_ECO_rec.attribute_category IS NULL))))
3704: AND ( (l_ECO_rec.attribute1 =
3705: p_ECO_rec.attribute1) OR
3702: ( (l_ECO_rec.attribute_category IS NULL) AND
3703: (p_ECO_rec.attribute_category IS NULL))))
3704: AND ( (l_ECO_rec.attribute1 =
3705: p_ECO_rec.attribute1) OR
3706: ((p_ECO_rec.attribute1 = FND_API.G_MISS_CHAR) OR
3707: ( (l_ECO_rec.attribute1 IS NULL) AND
3708: (p_ECO_rec.attribute1 IS NULL))))
3709: AND ( (l_ECO_rec.attribute2 =
3710: p_ECO_rec.attribute2) OR
3707: ( (l_ECO_rec.attribute1 IS NULL) AND
3708: (p_ECO_rec.attribute1 IS NULL))))
3709: AND ( (l_ECO_rec.attribute2 =
3710: p_ECO_rec.attribute2) OR
3711: ((p_ECO_rec.attribute2 = FND_API.G_MISS_CHAR) OR
3712: ( (l_ECO_rec.attribute2 IS NULL) AND
3713: (p_ECO_rec.attribute2 IS NULL))))
3714: AND ( (l_ECO_rec.attribute3 =
3715: p_ECO_rec.attribute3) OR
3712: ( (l_ECO_rec.attribute2 IS NULL) AND
3713: (p_ECO_rec.attribute2 IS NULL))))
3714: AND ( (l_ECO_rec.attribute3 =
3715: p_ECO_rec.attribute3) OR
3716: ((p_ECO_rec.attribute3 = FND_API.G_MISS_CHAR) OR
3717: ( (l_ECO_rec.attribute3 IS NULL) AND
3718: (p_ECO_rec.attribute3 IS NULL))))
3719: AND ( (l_ECO_rec.attribute4 =
3720: p_ECO_rec.attribute4) OR
3717: ( (l_ECO_rec.attribute3 IS NULL) AND
3718: (p_ECO_rec.attribute3 IS NULL))))
3719: AND ( (l_ECO_rec.attribute4 =
3720: p_ECO_rec.attribute4) OR
3721: ((p_ECO_rec.attribute4 = FND_API.G_MISS_CHAR) OR
3722: ( (l_ECO_rec.attribute4 IS NULL) AND
3723: (p_ECO_rec.attribute4 IS NULL))))
3724: AND ( (l_ECO_rec.attribute5 =
3725: p_ECO_rec.attribute5) OR
3722: ( (l_ECO_rec.attribute4 IS NULL) AND
3723: (p_ECO_rec.attribute4 IS NULL))))
3724: AND ( (l_ECO_rec.attribute5 =
3725: p_ECO_rec.attribute5) OR
3726: ((p_ECO_rec.attribute5 = FND_API.G_MISS_CHAR) OR
3727: ( (l_ECO_rec.attribute5 IS NULL) AND
3728: (p_ECO_rec.attribute5 IS NULL))))
3729: AND ( (l_ECO_rec.attribute6 =
3730: p_ECO_rec.attribute6) OR
3727: ( (l_ECO_rec.attribute5 IS NULL) AND
3728: (p_ECO_rec.attribute5 IS NULL))))
3729: AND ( (l_ECO_rec.attribute6 =
3730: p_ECO_rec.attribute6) OR
3731: ((p_ECO_rec.attribute6 = FND_API.G_MISS_CHAR) OR
3732: ( (l_ECO_rec.attribute6 IS NULL) AND
3733: (p_ECO_rec.attribute6 IS NULL))))
3734: THEN
3735:
3738: x_ECO_rec := l_ECO_rec;
3739:
3740: -- Set return status
3741:
3742: x_return_status := FND_API.G_RET_STS_SUCCESS;
3743: x_ECO_rec.return_status := FND_API.G_RET_STS_SUCCESS;
3744:
3745: ELSE
3746:
3739:
3740: -- Set return status
3741:
3742: x_return_status := FND_API.G_RET_STS_SUCCESS;
3743: x_ECO_rec.return_status := FND_API.G_RET_STS_SUCCESS;
3744:
3745: ELSE
3746:
3747: -- Row has changed by another user.
3745: ELSE
3746:
3747: -- Row has changed by another user.
3748:
3749: x_return_status := FND_API.G_RET_STS_ERROR;
3750: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
3751:
3752: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3753: THEN
3746:
3747: -- Row has changed by another user.
3748:
3749: x_return_status := FND_API.G_RET_STS_ERROR;
3750: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
3751:
3752: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3753: THEN
3754:
3762: EXCEPTION
3763:
3764: WHEN NO_DATA_FOUND THEN
3765:
3766: x_return_status := FND_API.G_RET_STS_ERROR;
3767: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
3768:
3769: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3770: THEN
3763:
3764: WHEN NO_DATA_FOUND THEN
3765:
3766: x_return_status := FND_API.G_RET_STS_ERROR;
3767: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
3768:
3769: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3770: THEN
3771: Error_Handler.Log_Error ( p_who_rec => ENG_GLOBALS.G_WHO_REC
3774: END IF;
3775:
3776: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3777:
3778: x_return_status := FND_API.G_RET_STS_ERROR;
3779: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
3780:
3781: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3782: THEN
3775:
3776: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3777:
3778: x_return_status := FND_API.G_RET_STS_ERROR;
3779: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
3780:
3781: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3782: THEN
3783: Error_Handler.Log_Error( p_who_rec => ENG_GLOBALS.G_WHO_REC
3786: END IF;
3787:
3788: WHEN OTHERS THEN
3789:
3790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3791: x_ECO_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3792:
3793: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3794: THEN
3787:
3788: WHEN OTHERS THEN
3789:
3790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3791: x_ECO_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3792:
3793: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3794: THEN
3795: x_err_text := G_PKG_NAME || '(Lock Row) - ECO Header' || substrb(SQLERRM,1,60);
3860: l_sub_id NUMBER;
3861: l_item_catalog_group_id NUMBER;
3862: BEGIN
3863:
3864: l_return_status := FND_API.G_RET_STS_SUCCESS;
3865:
3866: l_user_id := Eng_Globals.Get_User_Id;
3867: l_login_id := Eng_Globals.Get_Login_Id;
3868: l_request_id := ENG_GLOBALS.Get_request_id;
3887: --AND p_eco_rec.pk3_name IS NOT NULL
3888: THEN
3889: --l_org_id := ENG_Val_To_Id.Organization(p_eco_rec.pk2_name, l_err_text);
3890: l_change_subject_unexp_rec.pk2_value := l_org_id;
3891: IF (l_org_id IS NOT NULL AND l_org_id <> fnd_api.g_miss_num) THEN
3892: l_inv_item_id := ENG_Val_To_Id.revised_item (p_eco_rec.pk1_name,
3893: l_org_id,
3894: l_err_text);
3895: l_change_subject_unexp_rec.pk1_value := l_inv_item_id;
3893: l_org_id,
3894: l_err_text);
3895: l_change_subject_unexp_rec.pk1_value := l_inv_item_id;
3896: IF l_inv_item_id IS NOT NULL
3897: AND l_inv_item_id <> fnd_api.g_miss_num
3898: THEN
3899: 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
3900: THEN
3901: l_rev_id := ENG_Val_To_Id.revised_item_code (l_inv_item_id,
3901: l_rev_id := ENG_Val_To_Id.revised_item_code (l_inv_item_id,
3902: l_org_id,
3903: p_eco_rec.pk3_name);
3904: l_change_subject_unexp_rec.pk3_value := l_rev_id;
3905: IF (l_rev_id IS NOT NULL AND l_rev_id <> fnd_api.g_miss_num)
3906: THEN
3907: l_return_status := 'S'; --FND_API.G_RET_STS_SUCCESS;
3908: ELSE
3909: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE'; --token added for bug 3572721
3903: p_eco_rec.pk3_name);
3904: l_change_subject_unexp_rec.pk3_value := l_rev_id;
3905: IF (l_rev_id IS NOT NULL AND l_rev_id <> fnd_api.g_miss_num)
3906: THEN
3907: l_return_status := 'S'; --FND_API.G_RET_STS_SUCCESS;
3908: ELSE
3909: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE'; --token added for bug 3572721
3910: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
3911: Error_Handler.add_error_token (
3913: p_mesg_token_tbl=> l_mesg_token_tbl,
3914: x_mesg_token_tbl=> l_mesg_token_tbl,
3915: p_token_tbl=> l_token_tbl
3916: );
3917: l_return_status := FND_API.G_RET_STS_ERROR;
3918: END IF; --end of l_rev_id IS NOT NULL
3919: END IF; -- end of pk3_name is not null
3920: ELSE
3921: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
3925: p_mesg_token_tbl=> l_mesg_token_tbl,
3926: x_mesg_token_tbl=> l_mesg_token_tbl,
3927: p_token_tbl=> l_token_tbl
3928: );
3929: l_return_status := FND_API.G_RET_STS_ERROR;
3930: END IF; -- l_inv_item_id IS NOT NULL
3931: ELSE
3932: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
3933: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
3936: p_mesg_token_tbl=> l_mesg_token_tbl,
3937: x_mesg_token_tbl=> l_mesg_token_tbl,
3938: p_token_tbl=> l_token_tbl
3939: );
3940: l_return_status := FND_API.G_RET_STS_ERROR;
3941: END IF; --l_org_id IS NOT NULL
3942: ELSE
3943: -- Commented error handling code as pk values are not mandatory
3944: l_change_subject_unexp_rec.pk2_value := NULL; --org_id;
3944: l_change_subject_unexp_rec.pk2_value := NULL; --org_id;
3945: l_change_subject_unexp_rec.pk1_value := NULL; --inv_item_id;
3946: l_change_subject_unexp_rec.pk3_value := NULL; --rev_id;
3947: /* IF p_eco_rec.pk1_name IS NULL
3948: OR p_eco_rec.pk1_name = fnd_api.g_miss_char THEN
3949: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
3950: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
3951: Error_Handler.add_error_token (
3952: p_message_name=> 'ENG_PK1_NAME_INVALID',
3953: p_mesg_token_tbl=> l_mesg_token_tbl,
3954: x_mesg_token_tbl=> l_mesg_token_tbl,
3955: p_token_tbl=> l_token_tbl
3956: );
3957: l_return_status := FND_API.G_RET_STS_ERROR;
3958: END IF;
3959: IF p_eco_rec.pk3_name IS NULL
3960: OR p_eco_rec.pk3_name = fnd_api.g_miss_char THEN
3961: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
3956: );
3957: l_return_status := FND_API.G_RET_STS_ERROR;
3958: END IF;
3959: IF p_eco_rec.pk3_name IS NULL
3960: OR p_eco_rec.pk3_name = fnd_api.g_miss_char THEN
3961: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
3962: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
3963: Error_Handler.add_error_token (
3964: p_message_name=> 'ENG_PK3_NAME_INVALID',
3965: p_mesg_token_tbl=> l_mesg_token_tbl,
3966: x_mesg_token_tbl=> l_mesg_token_tbl,
3967: p_token_tbl=> l_token_tbl
3968: );
3969: l_return_status := FND_API.G_RET_STS_ERROR;
3970: END IF;
3971: IF p_eco_rec.pk2_name IS NULL
3972: OR p_eco_rec.pk2_name = fnd_api.g_miss_char THEN
3973: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
3968: );
3969: l_return_status := FND_API.G_RET_STS_ERROR;
3970: END IF;
3971: IF p_eco_rec.pk2_name IS NULL
3972: OR p_eco_rec.pk2_name = fnd_api.g_miss_char THEN
3973: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
3974: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
3975: Error_Handler.add_error_token (
3976: p_message_name=> 'ENG_PK2_NAME_INVALID',
3977: p_mesg_token_tbl=> l_mesg_token_tbl,
3978: x_mesg_token_tbl=> l_mesg_token_tbl,
3979: p_token_tbl=> l_token_tbl
3980: );
3981: l_return_status := FND_API.G_RET_STS_ERROR;
3982: END IF;*/
3983:
3984: END IF; -- p_eco_rec.Pk1_Name is not null
3985: ELSIF l_entity_name = 'EGO_ITEM' THEN
3988: -- AND p_eco_rec.pk2_name IS NOT NULL
3989: THEN
3990: --l_org_id := ENG_Val_To_Id.ORGANIZATION (p_eco_rec.pk2_name, l_err_text);
3991: l_change_subject_unexp_rec.pk2_value := l_org_id;
3992: IF (l_org_id IS NOT NULL AND l_org_id <> fnd_api.g_miss_num) THEN
3993: l_rev_id := ENG_Val_To_Id.revised_item (p_eco_rec.pk1_name,
3994: l_org_id,
3995: l_err_text);
3996: l_change_subject_unexp_rec.pk1_value := l_rev_id;
3993: l_rev_id := ENG_Val_To_Id.revised_item (p_eco_rec.pk1_name,
3994: l_org_id,
3995: l_err_text);
3996: l_change_subject_unexp_rec.pk1_value := l_rev_id;
3997: IF (l_rev_id IS NOT NULL AND l_rev_id <> fnd_api.g_miss_num) THEN
3998: l_return_status := 'S';
3999: ELSE
4000: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4001: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
4004: p_mesg_token_tbl=> l_mesg_token_tbl,
4005: x_mesg_token_tbl=> l_mesg_token_tbl,
4006: p_token_tbl=> l_token_tbl
4007: );
4008: l_return_status := FND_API.G_RET_STS_ERROR;
4009: END IF; --l_rev_id IS NOT NULL
4010: ELSE
4011: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4012: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
4015: p_mesg_token_tbl=> l_mesg_token_tbl,
4016: x_mesg_token_tbl=> l_mesg_token_tbl,
4017: p_token_tbl=> l_token_tbl
4018: );
4019: l_return_status := FND_API.G_RET_STS_ERROR;
4020: END IF; --l_org_id IS NOT NULL
4021: ELSE
4022: l_change_subject_unexp_rec.pk1_value := NULL;
4023: l_change_subject_unexp_rec.pk2_value := NULL;
4022: l_change_subject_unexp_rec.pk1_value := NULL;
4023: l_change_subject_unexp_rec.pk2_value := NULL;
4024: -- Commented out code as pk values are not mandatory
4025: /* IF p_eco_rec.pk1_name IS NULL
4026: OR p_eco_rec.pk1_name = fnd_api.g_miss_char THEN
4027: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4028: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
4029: Error_Handler.add_error_token (
4030: p_message_name=> 'ENG_PK1_NAME_INVALID',
4031: p_mesg_token_tbl=> l_mesg_token_tbl,
4032: x_mesg_token_tbl=> l_mesg_token_tbl,
4033: p_token_tbl=> l_token_tbl
4034: );
4035: l_return_status := FND_API.G_RET_STS_ERROR;
4036: END IF;
4037:
4038: IF p_eco_rec.pk2_name IS NULL
4039: OR p_eco_rec.pk2_name = fnd_api.g_miss_char THEN
4035: l_return_status := FND_API.G_RET_STS_ERROR;
4036: END IF;
4037:
4038: IF p_eco_rec.pk2_name IS NULL
4039: OR p_eco_rec.pk2_name = fnd_api.g_miss_char THEN
4040: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4041: l_token_tbl (1).token_value := p_eco_rec.change_type_code;
4042: Error_Handler.add_error_token (
4043: p_message_name=> 'ENG_PK3_NAME_INVALID',
4044: p_mesg_token_tbl=> l_mesg_token_tbl,
4045: x_mesg_token_tbl=> l_mesg_token_tbl,
4046: p_token_tbl=> l_token_tbl
4047: );
4048: l_return_status := FND_API.G_RET_STS_ERROR;
4049: END IF;*/
4050: END IF; -- p_eco_rec.Pk1_Name is not null
4051: END IF; --End Of If of check for l_entity_name
4052:
4266: -- procedure to delete all changeheader related rows
4267: PROCEDURE delete_ECO
4268: (
4269: p_api_version IN NUMBER --
4270: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4271: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4272: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4273: ,x_return_status OUT NOCOPY VARCHAR2 --
4274: ,x_msg_count OUT NOCOPY NUMBER --
4267: PROCEDURE delete_ECO
4268: (
4269: p_api_version IN NUMBER --
4270: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4271: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4272: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4273: ,x_return_status OUT NOCOPY VARCHAR2 --
4274: ,x_msg_count OUT NOCOPY NUMBER --
4275: ,x_msg_data OUT NOCOPY VARCHAR2 --
4268: (
4269: p_api_version IN NUMBER --
4270: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4271: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4272: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4273: ,x_return_status OUT NOCOPY VARCHAR2 --
4274: ,x_msg_count OUT NOCOPY NUMBER --
4275: ,x_msg_data OUT NOCOPY VARCHAR2 --
4276: ,p_change_id IN NUMBER -- header's change_id
4291: -- Standard Start of API savepoint
4292: -- Standard Start of API savepoint
4293: SAVEPOINT Init_Lifecycle;
4294: -- Standard call to check for call compatibility
4295: IF NOT FND_API.Compatible_API_Call ( l_api_version
4296: ,p_api_version
4297: ,l_api_name
4298: ,G_PKG_NAME )
4299: THEN
4296: ,p_api_version
4297: ,l_api_name
4298: ,G_PKG_NAME )
4299: THEN
4300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4301: END IF;
4302: -- Initialize message list if p_init_msg_list is set to TRUE.
4303: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4304: FND_MSG_PUB.initialize;
4299: THEN
4300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4301: END IF;
4302: -- Initialize message list if p_init_msg_list is set to TRUE.
4303: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4304: FND_MSG_PUB.initialize;
4305: END IF ;
4306:
4307: -- Initialize API return status to success
4304: FND_MSG_PUB.initialize;
4305: END IF ;
4306:
4307: -- Initialize API return status to success
4308: x_return_status := FND_API.G_RET_STS_SUCCESS;
4309:
4310:
4311: -- Real code starts here -----------------------------------------------
4312: DELETE FROM ENG_CHANGE_ROUTE_ASSOCS
4426:
4427: delete from eng_engineering_changes
4428: where change_id = p_change_id ;
4429:
4430: IF FND_API.To_Boolean ( p_commit ) THEN
4431: COMMIT WORK;
4432: END IF;
4433:
4434: EXCEPTION
4431: COMMIT WORK;
4432: END IF;
4433:
4434: EXCEPTION
4435: WHEN FND_API.G_EXC_ERROR THEN
4436: --ROLLBACK TO Init_Lifecycle;
4437: x_return_status := FND_API.G_RET_STS_ERROR;
4438: FND_MSG_PUB.Count_And_Get
4439: ( p_count => x_msg_count
4433:
4434: EXCEPTION
4435: WHEN FND_API.G_EXC_ERROR THEN
4436: --ROLLBACK TO Init_Lifecycle;
4437: x_return_status := FND_API.G_RET_STS_ERROR;
4438: FND_MSG_PUB.Count_And_Get
4439: ( p_count => x_msg_count
4440: ,p_data => x_msg_data );
4441: --IF g_debug_flag THEN
4440: ,p_data => x_msg_data );
4441: --IF g_debug_flag THEN
4442: -- Write_Debug('Rollback and Finish with expected error.') ;
4443: --END IF ;
4444: --IF FND_API.to_Boolean( p_debug ) THEN
4445: -- Close_Debug_Session ;
4446: --END IF ;
4447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4448: --ROLLBACK TO Init_Lifecycle;
4443: --END IF ;
4444: --IF FND_API.to_Boolean( p_debug ) THEN
4445: -- Close_Debug_Session ;
4446: --END IF ;
4447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4448: --ROLLBACK TO Init_Lifecycle;
4449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4450: FND_MSG_PUB.Count_And_Get
4451: ( p_count => x_msg_count
4445: -- Close_Debug_Session ;
4446: --END IF ;
4447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4448: --ROLLBACK TO Init_Lifecycle;
4449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4450: FND_MSG_PUB.Count_And_Get
4451: ( p_count => x_msg_count
4452: ,p_data => x_msg_data );
4453: /*
4453: /*
4454: IF g_debug_flag THEN
4455: Write_Debug('Rollback and Finish with unexpected error.') ;
4456: END IF ;
4457: IF FND_API.to_Boolean( p_debug ) THEN
4458: Close_Debug_Session ;
4459: END IF ;
4460: */
4461: WHEN OTHERS THEN
4459: END IF ;
4460: */
4461: WHEN OTHERS THEN
4462: --ROLLBACK TO Init_Lifecycle;
4463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4464: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4465: THEN
4466: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4467: END IF;
4472: IF g_debug_flag THEN
4473: Write_Debug('Rollback and Finish with other error.') ;
4474: END IF ;
4475:
4476: IF FND_API.to_Boolean( p_debug ) THEN
4477: Close_Debug_Session ;
4478: END IF ;
4479: */
4480: END delete_ECO;