[Home] [Help]
123: );
124:
125: FND_FILE.put_line(FND_FILE.LOG, 'Log file location --> '||l_log_output_dir||'/'||g_debug_filename ||' created with status '|| l_log_return_status);
126:
127: IF (l_log_return_status <> FND_API.G_RET_STS_SUCCESS)
128: THEN
129: FND_FILE.put_line(FND_FILE.LOG, 'Unable to open error log file. Error => '||l_errbuff) ;
130: END IF;
131:
165: g_profile_debug_option := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'), TO_CHAR(0));
166: g_profile_debug_level := NVL(FND_PROFILE.VALUE('INV_DEBUG_LEVEL'), TO_CHAR(0));
167:
168: IF (g_profile_debug_option = '1' AND TO_NUMBER(g_profile_debug_level) >= 20)
169: OR FND_API.to_Boolean(p_debug_flag)
170: THEN
171:
172: ----------------------------------------------------------------------------------
173: -- Opens Error_Handler debug session, only if Debug session is not already open.
262: , p_item_key
263: , '.DEBUG_FLAG'
264: );
265:
266: IF FND_API.to_Boolean( l_debug_flag ) THEN
267: x_debug_flag := TRUE ;
268: END IF;
269:
270: -- Get Debug Output Directory
573: -- together with launching associated workflow
574: PROCEDURE Update_Header_Appr_Status
575: (
576: p_api_version IN NUMBER --
577: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
578: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
579: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
580: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
581: ,p_output_dir IN VARCHAR2 := NULL
574: PROCEDURE Update_Header_Appr_Status
575: (
576: p_api_version IN NUMBER --
577: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
578: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
579: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
580: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
581: ,p_output_dir IN VARCHAR2 := NULL
582: ,p_debug_filename IN VARCHAR2 := NULL
575: (
576: p_api_version IN NUMBER --
577: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
578: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
579: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
580: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
581: ,p_output_dir IN VARCHAR2 := NULL
582: ,p_debug_filename IN VARCHAR2 := NULL
583: ,x_return_status OUT NOCOPY VARCHAR2 --
576: p_api_version IN NUMBER --
577: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
578: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
579: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
580: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
581: ,p_output_dir IN VARCHAR2 := NULL
582: ,p_debug_filename IN VARCHAR2 := NULL
583: ,x_return_status OUT NOCOPY VARCHAR2 --
584: ,x_msg_count OUT NOCOPY NUMBER --
624: BEGIN
625: -- Standard Start of API savepoint
626: --SAVEPOINT Update_Header_Appr_Status;
627: -- Standard call to check for call compatibility
628: IF NOT FND_API.Compatible_API_Call ( l_api_version
629: ,p_api_version
630: ,l_api_name
631: ,G_PKG_NAME )
632: THEN
629: ,p_api_version
630: ,l_api_name
631: ,G_PKG_NAME )
632: THEN
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
635: -- Initialize message list if p_init_msg_list is set to TRUE.
636: IF FND_API.to_Boolean( p_init_msg_list ) THEN
637: FND_MSG_PUB.initialize;
632: THEN
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
635: -- Initialize message list if p_init_msg_list is set to TRUE.
636: IF FND_API.to_Boolean( p_init_msg_list ) THEN
637: FND_MSG_PUB.initialize;
638: END IF;
639:
640: -- For Test/Debug
639:
640: -- For Test/Debug
641: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
642: -- R12 Comment out
643: -- IF FND_API.to_Boolean( p_debug ) THEN
644: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
645: -- END IF;
646:
647: -- Write debug message if debug mode is on
657: Write_Debug('Initializing return status... ' );
658: END IF;
659:
660: -- Initialize API return status to success
661: x_return_status := FND_API.G_RET_STS_SUCCESS;
662:
663: -- FND_PROFILE package is not available for workflow (WF),
664: -- therefore manually set WHO column values
665: IF p_api_caller = 'WF' THEN
852: END IF;
853:
854: Eng_Workflow_Util.StartWorkflow
855: ( p_api_version => 1.0
856: , p_init_msg_list => FND_API.G_FALSE
857: , p_commit => FND_API.G_FALSE
858: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
859: , x_return_status => l_return_status
860: , x_msg_count => l_msg_count
853:
854: Eng_Workflow_Util.StartWorkflow
855: ( p_api_version => 1.0
856: , p_init_msg_list => FND_API.G_FALSE
857: , p_commit => FND_API.G_FALSE
858: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
859: , x_return_status => l_return_status
860: , x_msg_count => l_msg_count
861: , x_msg_data => l_msg_data
854: Eng_Workflow_Util.StartWorkflow
855: ( p_api_version => 1.0
856: , p_init_msg_list => FND_API.G_FALSE
857: , p_commit => FND_API.G_FALSE
858: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
859: , x_return_status => l_return_status
860: , x_msg_count => l_msg_count
861: , x_msg_data => l_msg_data
862: , p_item_type => Eng_Workflow_Util.G_CHANGE_ACTION_ITEM_TYPE
864: , p_process_name => Eng_Workflow_Util.G_APPROVAL_STATUS_CHANGE_PROC
865: , p_change_id => p_change_id
866: , p_wf_user_id => l_fnd_user_id
867: , p_route_id => 0 --l_wf_route_id
868: , p_debug => p_debug --FND_API.G_FALSE
869: , p_output_dir => p_output_dir
870: , p_debug_filename => NULL --p_debug_filename
871: ) ;
872:
873: IF g_debug_flag THEN
874: Write_Debug('After: Launch header approval status change workflow: ' || l_return_status );
875: END IF;
876:
877: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
878: THEN
879: x_return_status := l_return_status;
880: x_msg_count := l_msg_count;
881: x_msg_data := l_msg_data;
880: x_msg_count := l_msg_count;
881: x_msg_data := l_msg_data;
882: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
883: --#FND_MSG_PUB.Add;
884: RAISE FND_API.G_EXC_ERROR;
885: END IF;
886: l_wf_item_key := NULL;
887: IF g_debug_flag THEN
888: Write_Debug('Successful: Launch header approval status change workflow');
930: IF g_debug_flag THEN
931: Write_Debug('After: calling new item request API: ' || l_return_status) ;
932: END IF;
933:
934: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
935: THEN
936: x_return_status := l_return_status;
937: x_msg_count := l_msg_count;
938: x_msg_data := l_msg_data;
938: x_msg_data := l_msg_data;
939: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
940: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_NIR_UTIL_PKG.set_nir_item_approval_status');
941: --#FND_MSG_PUB.Add;
942: RAISE FND_API.G_EXC_ERROR;
943: END IF;
944: l_wf_item_key := NULL;
945: IF g_debug_flag THEN
946: Write_Debug('Successful: calling new item request API');
981: END IF;
982: ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status
983: (
984: p_api_version => 1.0
985: ,p_init_msg_list => FND_API.G_FALSE
986: ,p_commit => FND_API.G_FALSE
987: ,p_validation_level => p_validation_level
988: ,p_debug => p_debug --FND_API.G_FALSE
989: ,p_output_dir => p_output_dir
982: ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status
983: (
984: p_api_version => 1.0
985: ,p_init_msg_list => FND_API.G_FALSE
986: ,p_commit => FND_API.G_FALSE
987: ,p_validation_level => p_validation_level
988: ,p_debug => p_debug --FND_API.G_FALSE
989: ,p_output_dir => p_output_dir
990: ,p_debug_filename => NULL --p_debug_filename
984: p_api_version => 1.0
985: ,p_init_msg_list => FND_API.G_FALSE
986: ,p_commit => FND_API.G_FALSE
987: ,p_validation_level => p_validation_level
988: ,p_debug => p_debug --FND_API.G_FALSE
989: ,p_output_dir => p_output_dir
990: ,p_debug_filename => NULL --p_debug_filename
991: ,x_return_status => l_return_status
992: ,x_msg_count => l_msg_count
1001: Write_Debug('After: calling update DM attachment approval/review API: ' || l_return_status) ;
1002: END IF;
1003:
1004:
1005: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1006: x_return_status := l_return_status;
1007: x_msg_count := l_msg_count;
1008: x_msg_data := l_msg_data;
1009: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1008: x_msg_data := l_msg_data;
1009: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1010: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status');
1011: --#FND_MSG_PUB.Add;
1012: RAISE FND_API.G_EXC_ERROR;
1013: END IF;
1014: END IF;
1015:
1016:
1045: IF g_debug_flag THEN
1046: Write_Debug('After: calling ENG_ICMDB_APIS_UTIL.Update_Approval_Status: ' || l_return_status) ;
1047: END IF;
1048:
1049: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1050: THEN
1051: x_return_status := l_return_status;
1052: x_msg_count := l_msg_count;
1053: x_msg_data := l_msg_data;
1053: x_msg_data := l_msg_data;
1054: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1055: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_NIR_UTIL_PKG.set_nir_item_approval_status');
1056: --#FND_MSG_PUB.Add;
1057: RAISE FND_API.G_EXC_ERROR;
1058: END IF;
1059:
1060: IF g_debug_flag THEN
1061: Write_Debug('Successful: ENG_ICMDB_APIS_UTIL.Update_Approval_Status');
1086:
1087:
1088: ENG_DOCUMENT_UTIL.Update_Approval_Status
1089: ( p_api_version => 1.0
1090: ,p_init_msg_list => FND_API.G_FALSE
1091: ,p_commit => FND_API.G_FALSE
1092: ,p_validation_level => p_validation_level
1093: ,p_debug => FND_API.G_FALSE
1094: ,p_output_dir => p_output_dir
1087:
1088: ENG_DOCUMENT_UTIL.Update_Approval_Status
1089: ( p_api_version => 1.0
1090: ,p_init_msg_list => FND_API.G_FALSE
1091: ,p_commit => FND_API.G_FALSE
1092: ,p_validation_level => p_validation_level
1093: ,p_debug => FND_API.G_FALSE
1094: ,p_output_dir => p_output_dir
1095: ,p_debug_filename => p_debug_filename
1089: ( p_api_version => 1.0
1090: ,p_init_msg_list => FND_API.G_FALSE
1091: ,p_commit => FND_API.G_FALSE
1092: ,p_validation_level => p_validation_level
1093: ,p_debug => FND_API.G_FALSE
1094: ,p_output_dir => p_output_dir
1095: ,p_debug_filename => p_debug_filename
1096: ,x_return_status => l_return_status --
1097: ,x_msg_count => l_msg_count --
1105: IF g_debug_flag THEN
1106: Write_Debug('After: calling ENG_DOCUMENT_UTIL.Update_Approval_Status: ' || l_return_status) ;
1107: END IF;
1108:
1109: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1110: THEN
1111: x_return_status := l_return_status;
1112: x_msg_count := l_msg_count;
1113: x_msg_data := l_msg_data;
1110: THEN
1111: x_return_status := l_return_status;
1112: x_msg_count := l_msg_count;
1113: x_msg_data := l_msg_data;
1114: RAISE FND_API.G_EXC_ERROR;
1115: END IF;
1116:
1117: IF g_debug_flag THEN
1118: Write_Debug('Successful: ENG_DOCUMENT_UTIL.Update_Approval_Status');
1127:
1128:
1129:
1130: -- Standard ending code ------------------------------------------------
1131: IF FND_API.To_Boolean ( p_commit ) THEN
1132: COMMIT WORK;
1133: END IF;
1134:
1135: FND_MSG_PUB.Count_And_Get
1139: IF g_debug_flag THEN
1140: Write_Debug('Finish. End Of procedure: Update_Header_Appr_Status') ;
1141: END IF;
1142:
1143: IF FND_API.to_Boolean( p_debug ) THEN
1144: Close_Debug_Session;
1145: END IF;
1146:
1147: EXCEPTION
1144: Close_Debug_Session;
1145: END IF;
1146:
1147: EXCEPTION
1148: WHEN FND_API.G_EXC_ERROR THEN
1149: --ROLLBACK TO Update_Header_Appr_Status;
1150: x_return_status := FND_API.G_RET_STS_ERROR;
1151: FND_MSG_PUB.Count_And_Get
1152: ( p_count => x_msg_count
1146:
1147: EXCEPTION
1148: WHEN FND_API.G_EXC_ERROR THEN
1149: --ROLLBACK TO Update_Header_Appr_Status;
1150: x_return_status := FND_API.G_RET_STS_ERROR;
1151: FND_MSG_PUB.Count_And_Get
1152: ( p_count => x_msg_count
1153: ,p_data => x_msg_data );
1154: IF g_debug_flag THEN
1153: ,p_data => x_msg_data );
1154: IF g_debug_flag THEN
1155: Write_Debug('Rollback and Finish with expected error.') ;
1156: END IF;
1157: IF FND_API.to_Boolean( p_debug ) THEN
1158: Close_Debug_Session;
1159: END IF;
1160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1161: --ROLLBACK TO Update_Header_Appr_Status;
1156: END IF;
1157: IF FND_API.to_Boolean( p_debug ) THEN
1158: Close_Debug_Session;
1159: END IF;
1160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1161: --ROLLBACK TO Update_Header_Appr_Status;
1162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1163: FND_MSG_PUB.Count_And_Get
1164: ( p_count => x_msg_count
1158: Close_Debug_Session;
1159: END IF;
1160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1161: --ROLLBACK TO Update_Header_Appr_Status;
1162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1163: FND_MSG_PUB.Count_And_Get
1164: ( p_count => x_msg_count
1165: ,p_data => x_msg_data );
1166: IF g_debug_flag THEN
1165: ,p_data => x_msg_data );
1166: IF g_debug_flag THEN
1167: Write_Debug('Rollback and Finish with unexpected error.') ;
1168: END IF;
1169: IF FND_API.to_Boolean( p_debug ) THEN
1170: Close_Debug_Session;
1171: END IF;
1172: WHEN OTHERS THEN
1173: --ROLLBACK TO Update_Header_Appr_Status;
1170: Close_Debug_Session;
1171: END IF;
1172: WHEN OTHERS THEN
1173: --ROLLBACK TO Update_Header_Appr_Status;
1174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1175: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1176: THEN
1177: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1178: END IF;
1181: ,p_data => x_msg_data );
1182: IF g_debug_flag THEN
1183: Write_Debug('Rollback and Finish with other error.') ;
1184: END IF;
1185: IF FND_API.to_Boolean( p_debug ) THEN
1186: Close_Debug_Session;
1187: END IF;
1188:
1189: END Update_Header_Appr_Status;
1190:
1191: PROCEDURE Update_Header_Appr_Status
1192: (
1193: p_api_version IN NUMBER --
1194: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1195: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1196: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1197: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1198: ,p_output_dir IN VARCHAR2 := NULL
1191: PROCEDURE Update_Header_Appr_Status
1192: (
1193: p_api_version IN NUMBER --
1194: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1195: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1196: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1197: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1198: ,p_output_dir IN VARCHAR2 := NULL
1199: ,p_debug_filename IN VARCHAR2 := NULL
1192: (
1193: p_api_version IN NUMBER --
1194: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1195: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1196: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1197: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1198: ,p_output_dir IN VARCHAR2 := NULL
1199: ,p_debug_filename IN VARCHAR2 := NULL
1200: ,x_return_status OUT NOCOPY VARCHAR2 --
1193: p_api_version IN NUMBER --
1194: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1195: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1196: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1197: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1198: ,p_output_dir IN VARCHAR2 := NULL
1199: ,p_debug_filename IN VARCHAR2 := NULL
1200: ,x_return_status OUT NOCOPY VARCHAR2 --
1201: ,x_msg_count OUT NOCOPY NUMBER --
1239: --
1240: PROCEDURE Start_Line_Workflow
1241: (
1242: p_api_version IN NUMBER --
1243: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1244: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1245: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1246: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1247: ,p_output_dir IN VARCHAR2 := NULL
1240: PROCEDURE Start_Line_Workflow
1241: (
1242: p_api_version IN NUMBER --
1243: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1244: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1245: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1246: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1247: ,p_output_dir IN VARCHAR2 := NULL
1248: ,p_debug_filename IN VARCHAR2 := NULL
1241: (
1242: p_api_version IN NUMBER --
1243: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1244: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1245: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1246: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1247: ,p_output_dir IN VARCHAR2 := NULL
1248: ,p_debug_filename IN VARCHAR2 := NULL
1249: ,x_return_status OUT NOCOPY VARCHAR2 --
1242: p_api_version IN NUMBER --
1243: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1244: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1245: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1246: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1247: ,p_output_dir IN VARCHAR2 := NULL
1248: ,p_debug_filename IN VARCHAR2 := NULL
1249: ,x_return_status OUT NOCOPY VARCHAR2 --
1250: ,x_msg_count OUT NOCOPY NUMBER --
1313: BEGIN
1314: -- Standard Start of API savepoint
1315: --SAVEPOINT Start_Line_Workflow;
1316: -- Standard call to check for call compatibility
1317: IF NOT FND_API.Compatible_API_Call ( l_api_version
1318: ,p_api_version
1319: ,l_api_name
1320: ,G_PKG_NAME )
1321: THEN
1318: ,p_api_version
1319: ,l_api_name
1320: ,G_PKG_NAME )
1321: THEN
1322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1323: END IF;
1324: -- Initialize message list if p_init_msg_list is set to TRUE.
1325: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1326: FND_MSG_PUB.initialize;
1321: THEN
1322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1323: END IF;
1324: -- Initialize message list if p_init_msg_list is set to TRUE.
1325: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1326: FND_MSG_PUB.initialize;
1327: END IF;
1328:
1329: -- For Test/Debug
1328:
1329: -- For Test/Debug
1330: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
1331: -- R12 Comment out
1332: -- IF FND_API.to_Boolean( p_debug ) THEN
1333: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
1334: -- END IF;
1335:
1336: -- Write debug message if debug mode is on
1344: Write_Debug('Initializing return status... ' );
1345: END IF;
1346:
1347: -- Initialize API return status to success
1348: x_return_status := FND_API.G_RET_STS_SUCCESS;
1349:
1350: -- FND_PROFILE package is not available for workflow (WF),
1351: -- therefore manually set WHO column values
1352: IF p_api_caller = 'WF' THEN
1395:
1396: -- start phase-level workflow
1397: Eng_Workflow_Util.StartWorkflow
1398: ( p_api_version => 1.0
1399: , p_init_msg_list => FND_API.G_FALSE
1400: , p_commit => FND_API.G_FALSE
1401: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1402: , x_return_status => l_return_status
1403: , x_msg_count => l_msg_count
1396: -- start phase-level workflow
1397: Eng_Workflow_Util.StartWorkflow
1398: ( p_api_version => 1.0
1399: , p_init_msg_list => FND_API.G_FALSE
1400: , p_commit => FND_API.G_FALSE
1401: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1402: , x_return_status => l_return_status
1403: , x_msg_count => l_msg_count
1404: , x_msg_data => l_msg_data
1397: Eng_Workflow_Util.StartWorkflow
1398: ( p_api_version => 1.0
1399: , p_init_msg_list => FND_API.G_FALSE
1400: , p_commit => FND_API.G_FALSE
1401: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1402: , x_return_status => l_return_status
1403: , x_msg_count => l_msg_count
1404: , x_msg_data => l_msg_data
1405: , p_item_type => Eng_Workflow_Util.G_CHANGE_ROUTE_ITEM_TYPE
1408: , p_change_id => p_change_id
1409: , p_change_line_id => l_change_line_id
1410: , p_wf_user_id => l_fnd_user_id
1411: , p_route_id => l_line_wf_route_id
1412: , p_debug => p_debug --FND_API.G_FALSE
1413: , p_output_dir => p_output_dir
1414: , p_debug_filename => NULL
1415: ) ;
1416:
1418: Write_Debug('After: calling Eng_Workflow_Util.StartWorkflow API for ' || TO_CHAR(l_change_line_id) || l_return_status) ;
1419: Write_Debug('l_line_wf_item_key: ' || l_line_wf_item_key) ;
1420: END IF;
1421:
1422: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1423: THEN
1424: x_return_status := l_return_status;
1425: x_msg_count := l_msg_count;
1426: x_msg_data := l_msg_data;
1434:
1435: END IF; -- if (action = PROMOTE)
1436:
1437: -- Standard ending code ------------------------------------------------
1438: IF FND_API.To_Boolean ( p_commit ) THEN
1439: COMMIT WORK;
1440: END IF;
1441:
1442: FND_MSG_PUB.Count_And_Get
1446: IF g_debug_flag THEN
1447: Write_Debug('Finish. End Of procedure: Start_Line_Workflow');
1448: END IF;
1449:
1450: IF FND_API.to_Boolean( p_debug ) THEN
1451: Close_Debug_Session;
1452: END IF;
1453:
1454: EXCEPTION
1451: Close_Debug_Session;
1452: END IF;
1453:
1454: EXCEPTION
1455: WHEN FND_API.G_EXC_ERROR THEN
1456: --ROLLBACK TO Start_Line_Workflow;
1457: x_return_status := FND_API.G_RET_STS_ERROR;
1458: FND_MSG_PUB.Count_And_Get
1459: ( p_count => x_msg_count
1453:
1454: EXCEPTION
1455: WHEN FND_API.G_EXC_ERROR THEN
1456: --ROLLBACK TO Start_Line_Workflow;
1457: x_return_status := FND_API.G_RET_STS_ERROR;
1458: FND_MSG_PUB.Count_And_Get
1459: ( p_count => x_msg_count
1460: ,p_data => x_msg_data );
1461: IF g_debug_flag THEN
1460: ,p_data => x_msg_data );
1461: IF g_debug_flag THEN
1462: Write_Debug('Rollback and Finish with expected error.') ;
1463: END IF;
1464: IF FND_API.to_Boolean( p_debug ) THEN
1465: Close_Debug_Session;
1466: END IF;
1467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1468: --ROLLBACK TO Start_Line_Workflow;
1463: END IF;
1464: IF FND_API.to_Boolean( p_debug ) THEN
1465: Close_Debug_Session;
1466: END IF;
1467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1468: --ROLLBACK TO Start_Line_Workflow;
1469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1470: FND_MSG_PUB.Count_And_Get
1471: ( p_count => x_msg_count
1465: Close_Debug_Session;
1466: END IF;
1467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1468: --ROLLBACK TO Start_Line_Workflow;
1469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1470: FND_MSG_PUB.Count_And_Get
1471: ( p_count => x_msg_count
1472: ,p_data => x_msg_data );
1473: IF g_debug_flag THEN
1472: ,p_data => x_msg_data );
1473: IF g_debug_flag THEN
1474: Write_Debug('Rollback and Finish with unexpected error.') ;
1475: END IF;
1476: IF FND_API.to_Boolean( p_debug ) THEN
1477: Close_Debug_Session;
1478: END IF;
1479: WHEN OTHERS THEN
1480: --ROLLBACK TO Start_Line_Workflow;
1477: Close_Debug_Session;
1478: END IF;
1479: WHEN OTHERS THEN
1480: --ROLLBACK TO Start_Line_Workflow;
1481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1482: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1483: THEN
1484: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1485: END IF;
1488: ,p_data => x_msg_data );
1489: IF g_debug_flag THEN
1490: Write_Debug('Rollback and Finish with other error.') ;
1491: END IF;
1492: IF FND_API.to_Boolean( p_debug ) THEN
1493: Close_Debug_Session;
1494: END IF;
1495: END Start_Line_Workflow ;
1496:
1503: -- implementing ECO as well!!!
1504: PROCEDURE Start_WF_OnlyIf_Necessary
1505: (
1506: p_api_version IN NUMBER --
1507: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1508: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1509: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1510: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1511: ,p_output_dir IN VARCHAR2 := NULL
1504: PROCEDURE Start_WF_OnlyIf_Necessary
1505: (
1506: p_api_version IN NUMBER --
1507: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1508: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1509: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1510: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1511: ,p_output_dir IN VARCHAR2 := NULL
1512: ,p_debug_filename IN VARCHAR2 := NULL
1505: (
1506: p_api_version IN NUMBER --
1507: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1508: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1509: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1510: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1511: ,p_output_dir IN VARCHAR2 := NULL
1512: ,p_debug_filename IN VARCHAR2 := NULL
1513: ,x_return_status OUT NOCOPY VARCHAR2 --
1506: p_api_version IN NUMBER --
1507: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1508: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1509: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1510: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1511: ,p_output_dir IN VARCHAR2 := NULL
1512: ,p_debug_filename IN VARCHAR2 := NULL
1513: ,x_return_status OUT NOCOPY VARCHAR2 --
1514: ,x_msg_count OUT NOCOPY NUMBER --
1552: BEGIN
1553: -- Standard Start of API savepoint
1554: --SAVEPOINT Start_WF_OnlyIf_Necessary;
1555: -- Standard call to check for call compatibility
1556: IF NOT FND_API.Compatible_API_Call ( l_api_version
1557: ,p_api_version
1558: ,l_api_name
1559: ,G_PKG_NAME )
1560: THEN
1557: ,p_api_version
1558: ,l_api_name
1559: ,G_PKG_NAME )
1560: THEN
1561: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1562: END IF;
1563: -- Initialize message list if p_init_msg_list is set to TRUE.
1564: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1565: FND_MSG_PUB.initialize;
1560: THEN
1561: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1562: END IF;
1563: -- Initialize message list if p_init_msg_list is set to TRUE.
1564: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1565: FND_MSG_PUB.initialize;
1566: END IF;
1567:
1568: -- For Test/Debug
1567:
1568: -- For Test/Debug
1569: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
1570: -- R12 Comment out
1571: -- IF FND_API.to_Boolean( p_debug ) THEN
1572: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
1573: -- END IF;
1574:
1575: -- Write debug message if debug mode is on
1582: Write_Debug('Initializing return status... ' );
1583: END IF;
1584:
1585: -- Initialize API return status to success
1586: x_return_status := FND_API.G_RET_STS_SUCCESS;
1587:
1588: -- FND_PROFILE package is not available for workflow (WF),
1589: -- therefore manually set WHO column values
1590: IF p_api_caller = 'WF' THEN
1614: l_action_id := 0;
1615: -- create new action log
1616: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
1617: ( p_api_version => 1.0
1618: , p_init_msg_list => FND_API.G_FALSE --
1619: , p_commit => FND_API.G_FALSE --
1620: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1621: , p_debug => p_debug --FND_API.G_FALSE
1622: , p_output_dir => p_output_dir
1615: -- create new action log
1616: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
1617: ( p_api_version => 1.0
1618: , p_init_msg_list => FND_API.G_FALSE --
1619: , p_commit => FND_API.G_FALSE --
1620: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1621: , p_debug => p_debug --FND_API.G_FALSE
1622: , p_output_dir => p_output_dir
1623: , p_debug_filename => NULL
1616: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
1617: ( p_api_version => 1.0
1618: , p_init_msg_list => FND_API.G_FALSE --
1619: , p_commit => FND_API.G_FALSE --
1620: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1621: , p_debug => p_debug --FND_API.G_FALSE
1622: , p_output_dir => p_output_dir
1623: , p_debug_filename => NULL
1624: , x_return_status => l_return_status
1617: ( p_api_version => 1.0
1618: , p_init_msg_list => FND_API.G_FALSE --
1619: , p_commit => FND_API.G_FALSE --
1620: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1621: , p_debug => p_debug --FND_API.G_FALSE
1622: , p_output_dir => p_output_dir
1623: , p_debug_filename => NULL
1624: , x_return_status => l_return_status
1625: , x_msg_count => l_msg_count
1642: IF g_debug_flag THEN
1643: Write_Debug('After: saving action log: ' || l_return_status) ;
1644: Write_Debug('l_action_id : ' || l_action_id );
1645: END IF;
1646: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1647: THEN
1648: x_return_status := l_return_status;
1649: x_msg_count := l_msg_count;
1650: x_msg_data := l_msg_data;
1650: x_msg_data := l_msg_data;
1651: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1652: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
1653: --#FND_MSG_PUB.Add;
1654: RAISE FND_API.G_EXC_ERROR;
1655: END IF;
1656: IF g_debug_flag THEN
1657: Write_Debug('Successful: saving action log');
1658: END IF;
1686: END IF;
1687:
1688: Eng_Workflow_Util.StartWorkflow
1689: ( p_api_version => 1.0
1690: , p_init_msg_list => FND_API.G_FALSE
1691: , p_commit => FND_API.G_FALSE
1692: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1693: , x_return_status => l_return_status
1694: , x_msg_count => l_msg_count
1687:
1688: Eng_Workflow_Util.StartWorkflow
1689: ( p_api_version => 1.0
1690: , p_init_msg_list => FND_API.G_FALSE
1691: , p_commit => FND_API.G_FALSE
1692: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1693: , x_return_status => l_return_status
1694: , x_msg_count => l_msg_count
1695: , x_msg_data => l_msg_data
1688: Eng_Workflow_Util.StartWorkflow
1689: ( p_api_version => 1.0
1690: , p_init_msg_list => FND_API.G_FALSE
1691: , p_commit => FND_API.G_FALSE
1692: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1693: , x_return_status => l_return_status
1694: , x_msg_count => l_msg_count
1695: , x_msg_data => l_msg_data
1696: , p_item_type => Eng_Workflow_Util.G_CHANGE_ACTION_ITEM_TYPE
1699: , p_change_id => p_change_id
1700: , p_action_id => l_action_id
1701: , p_wf_user_id => l_fnd_user_id
1702: , p_route_id => 0 --l_wf_route_id
1703: , p_debug => p_debug --FND_API.G_FALSE
1704: , p_output_dir => p_output_dir
1705: , p_debug_filename => NULL
1706: ) ;
1707: -- note that the returned wf item_key won't be saved on the ENG side
1708: IF g_debug_flag THEN
1709: Write_Debug('After: calling status change workflow API: ' || l_return_status) ;
1710: END IF;
1711:
1712: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1713: THEN
1714: x_return_status := l_return_status;
1715: x_msg_count := l_msg_count;
1716: x_msg_data := l_msg_data;
1715: x_msg_count := l_msg_count;
1716: x_msg_data := l_msg_data;
1717: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
1718: --#FND_MSG_PUB.Add;
1719: --#RAISE FND_API.G_EXC_ERROR;
1720: END IF;
1721: l_wf_item_key := NULL;
1722:
1723: IF g_debug_flag THEN
1763:
1764: -- start phase-level workflow
1765: Eng_Workflow_Util.StartWorkflow
1766: ( p_api_version => 1.0
1767: , p_init_msg_list => FND_API.G_FALSE
1768: , p_commit => FND_API.G_FALSE
1769: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1770: , x_return_status => l_return_status
1771: , x_msg_count => l_msg_count
1764: -- start phase-level workflow
1765: Eng_Workflow_Util.StartWorkflow
1766: ( p_api_version => 1.0
1767: , p_init_msg_list => FND_API.G_FALSE
1768: , p_commit => FND_API.G_FALSE
1769: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1770: , x_return_status => l_return_status
1771: , x_msg_count => l_msg_count
1772: , x_msg_data => l_msg_data
1765: Eng_Workflow_Util.StartWorkflow
1766: ( p_api_version => 1.0
1767: , p_init_msg_list => FND_API.G_FALSE
1768: , p_commit => FND_API.G_FALSE
1769: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1770: , x_return_status => l_return_status
1771: , x_msg_count => l_msg_count
1772: , x_msg_data => l_msg_data
1773: , p_item_type => Eng_Workflow_Util.G_CHANGE_ROUTE_ITEM_TYPE
1775: , p_process_name => Eng_Workflow_Util.G_ROUTE_AGENT_PROC
1776: , p_change_id => p_change_id
1777: , p_wf_user_id => l_fnd_user_id
1778: , p_route_id => l_wf_route_id
1779: , p_debug => p_debug --FND_API.G_FALSE
1780: , p_output_dir => p_output_dir
1781: , p_debug_filename => NULL
1782: ) ;
1783:
1785: Write_Debug('After: calling Eng_Workflow_Util.StartWorkflow API: ' || l_return_status) ;
1786: END IF;
1787:
1788:
1789: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1790: THEN
1791: x_return_status := l_return_status;
1792: x_msg_count := l_msg_count;
1793: x_msg_data := l_msg_data;
1792: x_msg_count := l_msg_count;
1793: x_msg_data := l_msg_data;
1794: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
1795: --#FND_MSG_PUB.Add;
1796: --#RAISE FND_API.G_EXC_ERROR;
1797: ELSE
1798: IF g_debug_flag THEN
1799: Write_Debug('Successful: calling workflow routing agent');
1800: END IF;
1826: -- Do post workflow update right away
1827: Update_Lifecycle_States
1828: (
1829: p_api_version => 1.0
1830: ,p_init_msg_list => FND_API.G_FALSE
1831: ,p_commit => FND_API.G_FALSE
1832: ,p_validation_level => p_validation_level
1833: ,p_debug => FND_API.G_FALSE
1834: ,p_output_dir => p_output_dir
1827: Update_Lifecycle_States
1828: (
1829: p_api_version => 1.0
1830: ,p_init_msg_list => FND_API.G_FALSE
1831: ,p_commit => FND_API.G_FALSE
1832: ,p_validation_level => p_validation_level
1833: ,p_debug => FND_API.G_FALSE
1834: ,p_output_dir => p_output_dir
1835: ,p_debug_filename => p_debug_filename
1829: p_api_version => 1.0
1830: ,p_init_msg_list => FND_API.G_FALSE
1831: ,p_commit => FND_API.G_FALSE
1832: ,p_validation_level => p_validation_level
1833: ,p_debug => FND_API.G_FALSE
1834: ,p_output_dir => p_output_dir
1835: ,p_debug_filename => p_debug_filename
1836: ,x_return_status => l_return_status
1837: ,x_msg_count => l_msg_count
1847: Write_Debug('After: calling Update_Lifecycle_States API: ' || l_return_status) ;
1848: END IF;
1849:
1850:
1851: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1852: x_return_status := l_return_status;
1853: x_msg_count := l_msg_count;
1854: x_msg_data := l_msg_data;
1855: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1854: x_msg_data := l_msg_data;
1855: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1856: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Update_Lifecycle_States');
1857: --#FND_MSG_PUB.Add;
1858: RAISE FND_API.G_EXC_ERROR;
1859: END IF;
1860:
1861: END IF; -- if (phase workflow instance id and workflow template id)
1862:
1862:
1863: END IF; -- if (action = PROMOTE)
1864:
1865: -- Standard ending code ------------------------------------------------
1866: IF FND_API.To_Boolean ( p_commit ) THEN
1867: COMMIT WORK;
1868: END IF;
1869:
1870: FND_MSG_PUB.Count_And_Get
1874: IF g_debug_flag THEN
1875: Write_Debug('Finish. End Of procedure: Start_WF_OnlyIf_Necessary');
1876: END IF;
1877:
1878: IF FND_API.to_Boolean( p_debug ) THEN
1879: Close_Debug_Session;
1880: END IF;
1881:
1882: EXCEPTION
1879: Close_Debug_Session;
1880: END IF;
1881:
1882: EXCEPTION
1883: WHEN FND_API.G_EXC_ERROR THEN
1884: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1885: x_return_status := FND_API.G_RET_STS_ERROR;
1886: FND_MSG_PUB.Count_And_Get
1887: ( p_count => x_msg_count
1881:
1882: EXCEPTION
1883: WHEN FND_API.G_EXC_ERROR THEN
1884: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1885: x_return_status := FND_API.G_RET_STS_ERROR;
1886: FND_MSG_PUB.Count_And_Get
1887: ( p_count => x_msg_count
1888: ,p_data => x_msg_data );
1889: IF g_debug_flag THEN
1888: ,p_data => x_msg_data );
1889: IF g_debug_flag THEN
1890: Write_Debug('Rollback and Finish with expected error.') ;
1891: END IF;
1892: IF FND_API.to_Boolean( p_debug ) THEN
1893: Close_Debug_Session;
1894: END IF;
1895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1896: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1891: END IF;
1892: IF FND_API.to_Boolean( p_debug ) THEN
1893: Close_Debug_Session;
1894: END IF;
1895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1896: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1898: FND_MSG_PUB.Count_And_Get
1899: ( p_count => x_msg_count
1893: Close_Debug_Session;
1894: END IF;
1895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1896: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1898: FND_MSG_PUB.Count_And_Get
1899: ( p_count => x_msg_count
1900: ,p_data => x_msg_data );
1901: IF g_debug_flag THEN
1900: ,p_data => x_msg_data );
1901: IF g_debug_flag THEN
1902: Write_Debug('Rollback and Finish with unexpected error.') ;
1903: END IF;
1904: IF FND_API.to_Boolean( p_debug ) THEN
1905: Close_Debug_Session;
1906: END IF;
1907: WHEN OTHERS THEN
1908: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1905: Close_Debug_Session;
1906: END IF;
1907: WHEN OTHERS THEN
1908: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1910: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1911: THEN
1912: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1913: END IF;
1916: ,p_data => x_msg_data );
1917: IF g_debug_flag THEN
1918: Write_Debug('Rollback and Finish with other error.') ;
1919: END IF;
1920: IF FND_API.to_Boolean( p_debug ) THEN
1921: Close_Debug_Session;
1922: END IF;
1923: END Start_WF_OnlyIf_Necessary;
1924:
1926: -- Internal procedure for promotion of change header (inc. revItems)
1927: PROCEDURE Promote_Header
1928: (
1929: p_api_version IN NUMBER --
1930: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1931: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1932: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1933: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1934: ,p_output_dir IN VARCHAR2 := NULL
1927: PROCEDURE Promote_Header
1928: (
1929: p_api_version IN NUMBER --
1930: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1931: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1932: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1933: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1934: ,p_output_dir IN VARCHAR2 := NULL
1935: ,p_debug_filename IN VARCHAR2 := NULL
1928: (
1929: p_api_version IN NUMBER --
1930: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1931: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1932: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1933: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1934: ,p_output_dir IN VARCHAR2 := NULL
1935: ,p_debug_filename IN VARCHAR2 := NULL
1936: ,x_return_status OUT NOCOPY VARCHAR2 --
1929: p_api_version IN NUMBER --
1930: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1931: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1932: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1933: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1934: ,p_output_dir IN VARCHAR2 := NULL
1935: ,p_debug_filename IN VARCHAR2 := NULL
1936: ,x_return_status OUT NOCOPY VARCHAR2 --
1937: ,x_msg_count OUT NOCOPY NUMBER --
2076:
2077: -- Standard Start of API savepoint
2078: SAVEPOINT Promote_Header;
2079: -- Standard call to check for call compatibility
2080: IF NOT FND_API.Compatible_API_Call ( l_api_version
2081: ,p_api_version
2082: ,l_api_name
2083: ,G_PKG_NAME )
2084: THEN
2081: ,p_api_version
2082: ,l_api_name
2083: ,G_PKG_NAME )
2084: THEN
2085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2086: END IF;
2087: -- Initialize message list if p_init_msg_list is set to TRUE.
2088: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2089: FND_MSG_PUB.initialize;
2084: THEN
2085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2086: END IF;
2087: -- Initialize message list if p_init_msg_list is set to TRUE.
2088: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2089: FND_MSG_PUB.initialize;
2090: END IF;
2091:
2092:
2093: -- For Test/Debug
2094: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
2095:
2096: -- R12 Comment out
2097: -- IF FND_API.to_Boolean( p_debug ) THEN
2098: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
2099: -- END IF;
2100:
2101:
2111: Write_Debug('Initializing return status... ' );
2112: END IF;
2113:
2114: -- Initialize API return status to success
2115: x_return_status := FND_API.G_RET_STS_SUCCESS;
2116:
2117: -- FND_PROFILE package is not available for workflow (WF),
2118: -- therefore manually set WHO column values
2119: IF p_api_caller = 'WF' THEN
2142: Write_Debug('Before: calling Refresh_WF_Route procedure ');
2143: END IF;
2144: Refresh_WF_Route
2145: ( p_api_version => 1.0
2146: ,p_init_msg_list => FND_API.G_FALSE
2147: ,p_commit => FND_API.G_FALSE --
2148: ,p_validation_level => p_validation_level
2149: ,p_debug => FND_API.G_FALSE
2150: ,p_output_dir => p_output_dir
2143: END IF;
2144: Refresh_WF_Route
2145: ( p_api_version => 1.0
2146: ,p_init_msg_list => FND_API.G_FALSE
2147: ,p_commit => FND_API.G_FALSE --
2148: ,p_validation_level => p_validation_level
2149: ,p_debug => FND_API.G_FALSE
2150: ,p_output_dir => p_output_dir
2151: ,p_debug_filename => p_debug_filename
2145: ( p_api_version => 1.0
2146: ,p_init_msg_list => FND_API.G_FALSE
2147: ,p_commit => FND_API.G_FALSE --
2148: ,p_validation_level => p_validation_level
2149: ,p_debug => FND_API.G_FALSE
2150: ,p_output_dir => p_output_dir
2151: ,p_debug_filename => p_debug_filename
2152: ,x_return_status => l_return_status
2153: ,x_msg_count => l_msg_count
2223: -- Sanity check to make sure the new phase is after the current phase
2224: IF l_new_phase_sn <= l_curr_phase_sn THEN
2225: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
2226: FND_MSG_PUB.Add;
2227: RAISE FND_API.G_EXC_ERROR;
2228: END IF;
2229:
2230:
2231: --
2287: -- status_code, raise error
2288: IF (l_phase_sn <= l_new_phase_sn ) THEN
2289: FND_MESSAGE.Set_Name('ENG','ENG_EXIST_LINE_COMP_BF');
2290: FND_MSG_PUB.Add;
2291: RAISE FND_API.G_EXC_ERROR;
2292: END IF;
2293:
2294: END IF;
2295: END LOOP;
2369: ELSE
2370: -- Stop and return error message
2371: FND_MESSAGE.Set_Name('ENG','ENG_EXIST_ACTIVE_LINES');
2372: FND_MSG_PUB.Add;
2373: RAISE FND_API.G_EXC_ERROR;
2374: END IF;
2375:
2376: END IF;
2377: END LOOP;
2404: END IF;
2405: -- Raise error message to the caller
2406: FND_MESSAGE.Set_Name('ENG','ENG_IMP_STOP_WO_ACT_REV_ITEM');
2407: FND_MSG_PUB.Add;
2408: RAISE FND_API.G_EXC_ERROR;
2409:
2410: END IF;
2411:
2412:
2424: END IF;
2425: -- Raise error message to the caller
2426: FND_MESSAGE.Set_Name('ENG','ENG_IMP_STOP_APPR_REJECTED');
2427: FND_MSG_PUB.Add;
2428: RAISE FND_API.G_EXC_ERROR;
2429:
2430: END IF;
2431: -- End of fix for 3769329
2432:
2532: IF g_debug_flag THEN
2533: Write_Debug('After: calling ENG_ATTACHMENT_IMPLEMENTATION.Validate_floating_version API: ' || l_return_status) ;
2534: END IF;*/
2535:
2536: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2537: x_return_status := l_return_status;
2538: x_msg_count := l_msg_count;
2539: x_msg_data := l_msg_data;
2540: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2539: x_msg_data := l_msg_data;
2540: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2541: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Propagate_ECO');
2542: --#FND_MSG_PUB.Add;
2543: RAISE FND_API.G_EXC_ERROR;
2544: END IF;
2545: -- End of Bug4967289 Fix
2546:
2547: ELSE
2563: -- Sanity check, only one record can qualify the condition
2564: IF SQL%ROWCOUNT <> 1 THEN
2565: FND_MESSAGE.Set_Name('ENG','ENG_NOT_EXACTLY_ONE_RECORD');
2566: FND_MSG_PUB.Add;
2567: RAISE FND_API.G_EXC_ERROR;
2568: END IF;
2569: IF g_debug_flag THEN
2570: Write_Debug('After: Completing the current phase and promote to the next phase');
2571: END IF;
2703:
2704: ENG_ECO_UTIL.Propagate_ECO
2705: (
2706: p_api_version => 1.0
2707: ,p_init_msg_list => FND_API.G_FALSE
2708: ,p_commit => FND_API.G_FALSE
2709: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2710: ,p_debug => p_debug --FND_API.G_FALSE
2711: ,p_output_dir => p_output_dir
2704: ENG_ECO_UTIL.Propagate_ECO
2705: (
2706: p_api_version => 1.0
2707: ,p_init_msg_list => FND_API.G_FALSE
2708: ,p_commit => FND_API.G_FALSE
2709: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2710: ,p_debug => p_debug --FND_API.G_FALSE
2711: ,p_output_dir => p_output_dir
2712: ,p_debug_filename => NULL --p_debug_filename
2705: (
2706: p_api_version => 1.0
2707: ,p_init_msg_list => FND_API.G_FALSE
2708: ,p_commit => FND_API.G_FALSE
2709: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2710: ,p_debug => p_debug --FND_API.G_FALSE
2711: ,p_output_dir => p_output_dir
2712: ,p_debug_filename => NULL --p_debug_filename
2713: ,x_return_status => l_return_status
2706: p_api_version => 1.0
2707: ,p_init_msg_list => FND_API.G_FALSE
2708: ,p_commit => FND_API.G_FALSE
2709: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2710: ,p_debug => p_debug --FND_API.G_FALSE
2711: ,p_output_dir => p_output_dir
2712: ,p_debug_filename => NULL --p_debug_filename
2713: ,x_return_status => l_return_status
2714: ,x_msg_count => l_msg_count
2723: IF g_debug_flag THEN
2724: Write_Debug('After: calling propagate_eco API: ' || l_return_status) ;
2725: END IF;
2726:
2727: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2728: x_return_status := l_return_status;
2729: x_msg_count := l_msg_count;
2730: x_msg_data := l_msg_data;
2731: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2730: x_msg_data := l_msg_data;
2731: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2732: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Propagate_ECO');
2733: --#FND_MSG_PUB.Add;
2734: RAISE FND_API.G_EXC_ERROR;
2735: END IF;
2736:
2737: IF g_debug_flag THEN
2738: Write_Debug('Successful: calling propagate_eco API');
2748: -- In case of Auto-Propgation Action Log
2749: -- Who column is Workflow
2750: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
2751: ( p_api_version => 1.0
2752: , p_init_msg_list => FND_API.G_FALSE --
2753: , p_commit => FND_API.G_FALSE --
2754: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2755: , p_debug => p_debug --FND_API.G_FALSE
2756: , p_output_dir => p_output_dir
2749: -- Who column is Workflow
2750: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
2751: ( p_api_version => 1.0
2752: , p_init_msg_list => FND_API.G_FALSE --
2753: , p_commit => FND_API.G_FALSE --
2754: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2755: , p_debug => p_debug --FND_API.G_FALSE
2756: , p_output_dir => p_output_dir
2757: , p_debug_filename => NULL
2750: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
2751: ( p_api_version => 1.0
2752: , p_init_msg_list => FND_API.G_FALSE --
2753: , p_commit => FND_API.G_FALSE --
2754: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2755: , p_debug => p_debug --FND_API.G_FALSE
2756: , p_output_dir => p_output_dir
2757: , p_debug_filename => NULL
2758: , x_return_status => l_return_status
2751: ( p_api_version => 1.0
2752: , p_init_msg_list => FND_API.G_FALSE --
2753: , p_commit => FND_API.G_FALSE --
2754: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2755: , p_debug => p_debug --FND_API.G_FALSE
2756: , p_output_dir => p_output_dir
2757: , p_debug_filename => NULL
2758: , x_return_status => l_return_status
2759: , x_msg_count => l_msg_count
2779: Write_Debug('After: saving action log: ' || l_return_status) ;
2780: Write_Debug('l_action_id : ' || l_action_id );
2781: END IF;
2782:
2783: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
2784: THEN
2785: x_return_status := l_return_status;
2786: x_msg_count := l_msg_count;
2787: x_msg_data := l_msg_data;
2787: x_msg_data := l_msg_data;
2788: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2789: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
2790: --#FND_MSG_PUB.Add;
2791: RAISE FND_API.G_EXC_ERROR;
2792: END IF;
2793:
2794: IF g_debug_flag THEN
2795: Write_Debug('Successful: saving action log');
2826: END IF;
2827:
2828: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase
2829: ( p_api_version => 1.0
2830: ,p_init_msg_list => FND_API.G_FALSE
2831: ,p_commit => FND_API.G_FALSE
2832: ,p_validation_level => p_validation_level
2833: ,p_debug => FND_API.G_FALSE
2834: ,p_output_dir => p_output_dir
2827:
2828: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase
2829: ( p_api_version => 1.0
2830: ,p_init_msg_list => FND_API.G_FALSE
2831: ,p_commit => FND_API.G_FALSE
2832: ,p_validation_level => p_validation_level
2833: ,p_debug => FND_API.G_FALSE
2834: ,p_output_dir => p_output_dir
2835: ,p_debug_filename => p_debug_filename
2829: ( p_api_version => 1.0
2830: ,p_init_msg_list => FND_API.G_FALSE
2831: ,p_commit => FND_API.G_FALSE
2832: ,p_validation_level => p_validation_level
2833: ,p_debug => FND_API.G_FALSE
2834: ,p_output_dir => p_output_dir
2835: ,p_debug_filename => p_debug_filename
2836: ,x_return_status => l_return_status
2837: ,x_msg_count => l_msg_count
2846: IF g_debug_flag THEN
2847: Write_Debug('After: calling ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase: ' || l_return_status) ;
2848: END IF;
2849:
2850: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
2851: THEN
2852: x_return_status := l_return_status;
2853: x_msg_count := l_msg_count;
2854: x_msg_data := l_msg_data;
2851: THEN
2852: x_return_status := l_return_status;
2853: x_msg_count := l_msg_count;
2854: x_msg_data := l_msg_data;
2855: RAISE FND_API.G_EXC_ERROR;
2856: END IF;
2857:
2858: IF g_debug_flag THEN
2859: Write_Debug('Successful: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase');
2868:
2869: -- Start workflow for new phase if necessary
2870: Start_WF_OnlyIf_Necessary
2871: ( p_api_version => 1.0
2872: ,p_init_msg_list => FND_API.G_FALSE
2873: ,p_commit => FND_API.G_FALSE
2874: ,p_validation_level => p_validation_level
2875: ,p_debug => FND_API.G_FALSE
2876: ,p_output_dir => p_output_dir
2869: -- Start workflow for new phase if necessary
2870: Start_WF_OnlyIf_Necessary
2871: ( p_api_version => 1.0
2872: ,p_init_msg_list => FND_API.G_FALSE
2873: ,p_commit => FND_API.G_FALSE
2874: ,p_validation_level => p_validation_level
2875: ,p_debug => FND_API.G_FALSE
2876: ,p_output_dir => p_output_dir
2877: ,p_debug_filename => p_debug_filename
2871: ( p_api_version => 1.0
2872: ,p_init_msg_list => FND_API.G_FALSE
2873: ,p_commit => FND_API.G_FALSE
2874: ,p_validation_level => p_validation_level
2875: ,p_debug => FND_API.G_FALSE
2876: ,p_output_dir => p_output_dir
2877: ,p_debug_filename => p_debug_filename
2878: ,x_return_status => l_return_status
2879: ,x_msg_count => l_msg_count
2892: IF g_debug_flag THEN
2893: Write_Debug('After call to procedure Start_WF_OnlyIf_Necessary');
2894: END IF;
2895:
2896: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2897: x_return_status := l_return_status;
2898: x_msg_count := l_msg_count;
2899: x_msg_data := l_msg_data;
2900: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
2898: x_msg_count := l_msg_count;
2899: x_msg_data := l_msg_data;
2900: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
2901: --#FND_MSG_PUB.Add;
2902: RAISE FND_API.G_EXC_ERROR;
2903: END IF;
2904:
2905:
2906: --
2923: END IF;
2924:
2925: Start_Line_Workflow
2926: ( p_api_version => 1.0
2927: ,p_init_msg_list => FND_API.G_FALSE
2928: ,p_commit => FND_API.G_FALSE
2929: ,p_validation_level => p_validation_level
2930: ,p_debug => FND_API.G_FALSE
2931: ,p_output_dir => p_output_dir
2924:
2925: Start_Line_Workflow
2926: ( p_api_version => 1.0
2927: ,p_init_msg_list => FND_API.G_FALSE
2928: ,p_commit => FND_API.G_FALSE
2929: ,p_validation_level => p_validation_level
2930: ,p_debug => FND_API.G_FALSE
2931: ,p_output_dir => p_output_dir
2932: ,p_debug_filename => p_debug_filename
2926: ( p_api_version => 1.0
2927: ,p_init_msg_list => FND_API.G_FALSE
2928: ,p_commit => FND_API.G_FALSE
2929: ,p_validation_level => p_validation_level
2930: ,p_debug => FND_API.G_FALSE
2931: ,p_output_dir => p_output_dir
2932: ,p_debug_filename => p_debug_filename
2933: ,x_return_status => l_return_status
2934: ,x_msg_count => l_msg_count
2943: IF g_debug_flag THEN
2944: Write_Debug('After call to procedure Start_Line_Workflow');
2945: END IF;
2946:
2947: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2948: x_return_status := l_return_status;
2949: x_msg_count := l_msg_count;
2950: x_msg_data := l_msg_data;
2951: RAISE FND_API.G_EXC_ERROR;
2947: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2948: x_return_status := l_return_status;
2949: x_msg_count := l_msg_count;
2950: x_msg_data := l_msg_data;
2951: RAISE FND_API.G_EXC_ERROR;
2952: END IF;
2953: END IF ;
2954: --
2955: -- End of R12B Change Line and Line Workflow Enhancement
2958: END IF; -- if (p_skip_promotion='Y')
2959:
2960:
2961: -- Standard ending code ------------------------------------------------
2962: IF FND_API.To_Boolean ( p_commit ) THEN
2963: COMMIT WORK;
2964: END IF;
2965:
2966: FND_MSG_PUB.Count_And_Get
2970: IF g_debug_flag THEN
2971: Write_Debug('Finish. End Of procedure: Promote_Header');
2972: END IF;
2973:
2974: IF FND_API.to_Boolean( p_debug ) THEN
2975: Close_Debug_Session;
2976: END IF;
2977:
2978: EXCEPTION
2975: Close_Debug_Session;
2976: END IF;
2977:
2978: EXCEPTION
2979: WHEN FND_API.G_EXC_ERROR THEN
2980: --ROLLBACK TO Promote_Header;
2981: x_return_status := FND_API.G_RET_STS_ERROR;
2982: FND_MSG_PUB.Count_And_Get
2983: ( p_count => x_msg_count
2977:
2978: EXCEPTION
2979: WHEN FND_API.G_EXC_ERROR THEN
2980: --ROLLBACK TO Promote_Header;
2981: x_return_status := FND_API.G_RET_STS_ERROR;
2982: FND_MSG_PUB.Count_And_Get
2983: ( p_count => x_msg_count
2984: ,p_data => x_msg_data );
2985: IF g_debug_flag THEN
2984: ,p_data => x_msg_data );
2985: IF g_debug_flag THEN
2986: Write_Debug('Rollback and Finish with expected error.') ;
2987: END IF;
2988: IF FND_API.to_Boolean( p_debug ) THEN
2989: Close_Debug_Session;
2990: END IF;
2991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2992: --ROLLBACK TO Promote_Header;
2987: END IF;
2988: IF FND_API.to_Boolean( p_debug ) THEN
2989: Close_Debug_Session;
2990: END IF;
2991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2992: --ROLLBACK TO Promote_Header;
2993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2994: FND_MSG_PUB.Count_And_Get
2995: ( p_count => x_msg_count
2989: Close_Debug_Session;
2990: END IF;
2991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2992: --ROLLBACK TO Promote_Header;
2993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2994: FND_MSG_PUB.Count_And_Get
2995: ( p_count => x_msg_count
2996: ,p_data => x_msg_data );
2997: IF g_debug_flag THEN
2996: ,p_data => x_msg_data );
2997: IF g_debug_flag THEN
2998: Write_Debug('Rollback and Finish with unexpected error.') ;
2999: END IF;
3000: IF FND_API.to_Boolean( p_debug ) THEN
3001: Close_Debug_Session;
3002: END IF;
3003: WHEN OTHERS THEN
3004: --ROLLBACK TO Promote_Header;
3001: Close_Debug_Session;
3002: END IF;
3003: WHEN OTHERS THEN
3004: --ROLLBACK TO Promote_Header;
3005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3006: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3007: THEN
3008: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3009: END IF;
3012: ,p_data => x_msg_data );
3013: IF g_debug_flag THEN
3014: Write_Debug('Rollback and Finish with other error.') ;
3015: END IF;
3016: IF FND_API.to_Boolean( p_debug ) THEN
3017: Close_Debug_Session;
3018: END IF;
3019: END Promote_Header;
3020:
3024: -- so it is written as a seperate procedure for easier understanding.
3025: PROCEDURE Demote_Header
3026: (
3027: p_api_version IN NUMBER --
3028: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3029: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3030: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3031: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3032: ,p_output_dir IN VARCHAR2 := NULL
3025: PROCEDURE Demote_Header
3026: (
3027: p_api_version IN NUMBER --
3028: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3029: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3030: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3031: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3032: ,p_output_dir IN VARCHAR2 := NULL
3033: ,p_debug_filename IN VARCHAR2 := NULL
3026: (
3027: p_api_version IN NUMBER --
3028: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3029: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3030: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3031: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3032: ,p_output_dir IN VARCHAR2 := NULL
3033: ,p_debug_filename IN VARCHAR2 := NULL
3034: ,x_return_status OUT NOCOPY VARCHAR2 --
3027: p_api_version IN NUMBER --
3028: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3029: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3030: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3031: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3032: ,p_output_dir IN VARCHAR2 := NULL
3033: ,p_debug_filename IN VARCHAR2 := NULL
3034: ,x_return_status OUT NOCOPY VARCHAR2 --
3035: ,x_msg_count OUT NOCOPY NUMBER --
3121: select status_type, status_code into l_old_status_code, l_old_status_type from eng_engineering_changes where change_id = p_change_id;
3122: -- Standard Start of API savepoint
3123: SAVEPOINT Demote_Header;
3124: -- Standard call to check for call compatibility
3125: IF NOT FND_API.Compatible_API_Call ( l_api_version
3126: ,p_api_version
3127: ,l_api_name
3128: ,G_PKG_NAME )
3129: THEN
3126: ,p_api_version
3127: ,l_api_name
3128: ,G_PKG_NAME )
3129: THEN
3130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3131: END IF;
3132: -- Initialize message list if p_init_msg_list is set to TRUE.
3133: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3134: FND_MSG_PUB.initialize;
3129: THEN
3130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3131: END IF;
3132: -- Initialize message list if p_init_msg_list is set to TRUE.
3133: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3134: FND_MSG_PUB.initialize;
3135: END IF;
3136:
3137: -- For Test/Debug
3136:
3137: -- For Test/Debug
3138: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
3139: -- R12 Comment out
3140: -- IF FND_API.to_Boolean( p_debug ) THEN
3141: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
3142: -- END IF;
3143:
3144: -- Write debug message if debug mode is on
3152: Write_Debug('Initializing return status... ' );
3153: END IF;
3154:
3155: -- Initialize API return status to success
3156: x_return_status := FND_API.G_RET_STS_SUCCESS;
3157:
3158: -- FND_PROFILE package is not available for workflow (WF),
3159: -- therefore manually set WHO column values
3160: IF p_api_caller = 'WF' THEN
3220: -- Sanity check to make sure the new phase is after the current phase
3221: IF ( l_new_phase_sn >= l_curr_phase_sn ) THEN
3222: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
3223: FND_MSG_PUB.Add;
3224: RAISE FND_API.G_EXC_ERROR;
3225: END IF;
3226:
3227: -- Finish the current phase before demotion
3228: UPDATE eng_lifecycle_statuses
3257: IF (l_lcStatuses_row.iteration_number IS NULL) THEN
3258: FND_MESSAGE.Set_Name('ENG','ENG_OBJECT_CANT_BE_NULL');
3259: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ITERATION_NUMBER');
3260: FND_MSG_PUB.Add;
3261: RAISE FND_API.G_EXC_ERROR;
3262: END IF;
3263: l_old_iter_num := l_lcStatuses_row.iteration_number;
3264: ELSE
3265: IF ( l_lcStatuses_row.iteration_number <> l_old_iter_num ) THEN
3270: Write_Debug('l_old_iter_num : ' || l_old_iter_num );
3271: END IF;
3272: FND_MESSAGE.Set_Name('ENG','ENG_SN_INCONSISTENT');
3273: FND_MSG_PUB.Add;
3274: RAISE FND_API.G_EXC_ERROR;
3275: END IF;
3276: END IF;
3277: */
3278:
3426: IF (l_lcStatuses_row.iteration_number IS NULL) THEN
3427: FND_MESSAGE.Set_Name('ENG','ENG_OBJECT_CANT_BE_NULL');
3428: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ITERATION_NUMBER');
3429: FND_MSG_PUB.Add;
3430: RAISE FND_API.G_EXC_ERROR;
3431: END IF;
3432: l_old_iter_num := l_lcStatuses_row.iteration_number;
3433:
3434: -- Increment sequence number of the active phases
3474: -- Launch header approval status change workflow
3475: Update_Header_Appr_Status
3476: (
3477: p_api_version => 1.0
3478: ,p_init_msg_list => FND_API.G_FALSE
3479: ,p_commit => FND_API.G_FALSE
3480: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3481: ,p_debug => FND_API.G_FALSE
3482: ,p_output_dir => p_output_dir
3475: Update_Header_Appr_Status
3476: (
3477: p_api_version => 1.0
3478: ,p_init_msg_list => FND_API.G_FALSE
3479: ,p_commit => FND_API.G_FALSE
3480: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3481: ,p_debug => FND_API.G_FALSE
3482: ,p_output_dir => p_output_dir
3483: ,p_debug_filename => p_debug_filename
3476: (
3477: p_api_version => 1.0
3478: ,p_init_msg_list => FND_API.G_FALSE
3479: ,p_commit => FND_API.G_FALSE
3480: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3481: ,p_debug => FND_API.G_FALSE
3482: ,p_output_dir => p_output_dir
3483: ,p_debug_filename => p_debug_filename
3484: ,x_return_status => l_return_status
3477: p_api_version => 1.0
3478: ,p_init_msg_list => FND_API.G_FALSE
3479: ,p_commit => FND_API.G_FALSE
3480: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3481: ,p_debug => FND_API.G_FALSE
3482: ,p_output_dir => p_output_dir
3483: ,p_debug_filename => p_debug_filename
3484: ,x_return_status => l_return_status
3485: ,x_msg_count => l_msg_count
3497: Write_Debug('After: calling Update_Header_Appr_Status: ' || l_return_status) ;
3498: END IF;
3499:
3500:
3501: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
3502: THEN
3503: x_return_status := l_return_status;
3504: x_msg_count := l_msg_count;
3505: x_msg_data := l_msg_data;
3502: THEN
3503: x_return_status := l_return_status;
3504: x_msg_count := l_msg_count;
3505: x_msg_data := l_msg_data;
3506: RAISE FND_API.G_EXC_ERROR;
3507: END IF;
3508: IF g_debug_flag THEN
3509: Write_Debug('After: calling Update_Header_Appr_Status');
3510: END IF;
3581: END IF;
3582:
3583: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase
3584: ( p_api_version => 1.0
3585: ,p_init_msg_list => FND_API.G_FALSE
3586: ,p_commit => FND_API.G_FALSE
3587: ,p_validation_level => p_validation_level
3588: ,p_debug => FND_API.G_FALSE
3589: ,p_output_dir => p_output_dir
3582:
3583: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase
3584: ( p_api_version => 1.0
3585: ,p_init_msg_list => FND_API.G_FALSE
3586: ,p_commit => FND_API.G_FALSE
3587: ,p_validation_level => p_validation_level
3588: ,p_debug => FND_API.G_FALSE
3589: ,p_output_dir => p_output_dir
3590: ,p_debug_filename => p_debug_filename
3584: ( p_api_version => 1.0
3585: ,p_init_msg_list => FND_API.G_FALSE
3586: ,p_commit => FND_API.G_FALSE
3587: ,p_validation_level => p_validation_level
3588: ,p_debug => FND_API.G_FALSE
3589: ,p_output_dir => p_output_dir
3590: ,p_debug_filename => p_debug_filename
3591: ,x_return_status => l_return_status
3592: ,x_msg_count => l_msg_count
3601: IF g_debug_flag THEN
3602: Write_Debug('After: calling ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase: ' || l_return_status) ;
3603: END IF;
3604:
3605: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
3606: THEN
3607: x_return_status := l_return_status;
3608: x_msg_count := l_msg_count;
3609: x_msg_data := l_msg_data;
3606: THEN
3607: x_return_status := l_return_status;
3608: x_msg_count := l_msg_count;
3609: x_msg_data := l_msg_data;
3610: RAISE FND_API.G_EXC_ERROR;
3611: END IF;
3612:
3613: IF g_debug_flag THEN
3614: Write_Debug('Successful: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase');
3620:
3621: -- Start workflow for new phase if necessary
3622: Start_WF_OnlyIf_Necessary
3623: ( p_api_version => 1.0
3624: ,p_init_msg_list => FND_API.G_FALSE
3625: ,p_commit => FND_API.G_FALSE
3626: ,p_validation_level => p_validation_level
3627: ,p_debug => FND_API.G_FALSE
3628: ,p_output_dir => p_output_dir
3621: -- Start workflow for new phase if necessary
3622: Start_WF_OnlyIf_Necessary
3623: ( p_api_version => 1.0
3624: ,p_init_msg_list => FND_API.G_FALSE
3625: ,p_commit => FND_API.G_FALSE
3626: ,p_validation_level => p_validation_level
3627: ,p_debug => FND_API.G_FALSE
3628: ,p_output_dir => p_output_dir
3629: ,p_debug_filename => p_debug_filename
3623: ( p_api_version => 1.0
3624: ,p_init_msg_list => FND_API.G_FALSE
3625: ,p_commit => FND_API.G_FALSE
3626: ,p_validation_level => p_validation_level
3627: ,p_debug => FND_API.G_FALSE
3628: ,p_output_dir => p_output_dir
3629: ,p_debug_filename => p_debug_filename
3630: ,x_return_status => l_return_status
3631: ,x_msg_count => l_msg_count
3644: Write_Debug('After: calling Start_WF_OnlyIf_Necessary: ' || l_return_status) ;
3645: END IF;
3646:
3647:
3648: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3649: x_return_status := l_return_status;
3650: x_msg_count := l_msg_count;
3651: x_msg_data := l_msg_data;
3652: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
3650: x_msg_count := l_msg_count;
3651: x_msg_data := l_msg_data;
3652: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
3653: --#FND_MSG_PUB.Add;
3654: RAISE FND_API.G_EXC_ERROR;
3655: END IF;
3656:
3657: -- Standard ending code ------------------------------------------------
3658: IF FND_API.To_Boolean ( p_commit ) THEN
3654: RAISE FND_API.G_EXC_ERROR;
3655: END IF;
3656:
3657: -- Standard ending code ------------------------------------------------
3658: IF FND_API.To_Boolean ( p_commit ) THEN
3659: COMMIT WORK;
3660: END IF;
3661:
3662: FND_MSG_PUB.Count_And_Get
3666: IF g_debug_flag THEN
3667: Write_Debug('Finish. End Of procedure: Demote_Header');
3668: END IF;
3669:
3670: IF FND_API.to_Boolean( p_debug ) THEN
3671: Close_Debug_Session;
3672: END IF;
3673:
3674: EXCEPTION
3671: Close_Debug_Session;
3672: END IF;
3673:
3674: EXCEPTION
3675: WHEN FND_API.G_EXC_ERROR THEN
3676: --ROLLBACK TO Demote_Header;
3677: x_return_status := FND_API.G_RET_STS_ERROR;
3678: FND_MSG_PUB.Count_And_Get
3679: ( p_count => x_msg_count
3673:
3674: EXCEPTION
3675: WHEN FND_API.G_EXC_ERROR THEN
3676: --ROLLBACK TO Demote_Header;
3677: x_return_status := FND_API.G_RET_STS_ERROR;
3678: FND_MSG_PUB.Count_And_Get
3679: ( p_count => x_msg_count
3680: ,p_data => x_msg_data );
3681: IF g_debug_flag THEN
3680: ,p_data => x_msg_data );
3681: IF g_debug_flag THEN
3682: Write_Debug('Rollback and Finish with expected error.') ;
3683: END IF;
3684: IF FND_API.to_Boolean( p_debug ) THEN
3685: Close_Debug_Session;
3686: END IF;
3687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3688: --ROLLBACK TO Demote_Header;
3683: END IF;
3684: IF FND_API.to_Boolean( p_debug ) THEN
3685: Close_Debug_Session;
3686: END IF;
3687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3688: --ROLLBACK TO Demote_Header;
3689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3690: FND_MSG_PUB.Count_And_Get
3691: ( p_count => x_msg_count
3685: Close_Debug_Session;
3686: END IF;
3687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3688: --ROLLBACK TO Demote_Header;
3689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3690: FND_MSG_PUB.Count_And_Get
3691: ( p_count => x_msg_count
3692: ,p_data => x_msg_data );
3693: IF g_debug_flag THEN
3692: ,p_data => x_msg_data );
3693: IF g_debug_flag THEN
3694: Write_Debug('Rollback and Finish with unexpected error.') ;
3695: END IF;
3696: IF FND_API.to_Boolean( p_debug ) THEN
3697: Close_Debug_Session;
3698: END IF;
3699: WHEN OTHERS THEN
3700: --ROLLBACK TO Demote_Header;
3697: Close_Debug_Session;
3698: END IF;
3699: WHEN OTHERS THEN
3700: --ROLLBACK TO Demote_Header;
3701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3702: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3703: THEN
3704: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3705: END IF;
3708: ,p_data => x_msg_data );
3709: IF g_debug_flag THEN
3710: Write_Debug('Rollback and Finish with other error.') ;
3711: END IF;
3712: IF FND_API.to_Boolean( p_debug ) THEN
3713: Close_Debug_Session;
3714: END IF;
3715: END Demote_Header;
3716:
3716:
3717: PROCEDURE Demote_Header
3718: (
3719: p_api_version IN NUMBER --
3720: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3721: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3722: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3723: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3724: ,p_output_dir IN VARCHAR2 := NULL
3717: PROCEDURE Demote_Header
3718: (
3719: p_api_version IN NUMBER --
3720: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3721: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3722: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3723: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3724: ,p_output_dir IN VARCHAR2 := NULL
3725: ,p_debug_filename IN VARCHAR2 := NULL
3718: (
3719: p_api_version IN NUMBER --
3720: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3721: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3722: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3723: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3724: ,p_output_dir IN VARCHAR2 := NULL
3725: ,p_debug_filename IN VARCHAR2 := NULL
3726: ,x_return_status OUT NOCOPY VARCHAR2 --
3719: p_api_version IN NUMBER --
3720: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3721: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3722: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3723: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3724: ,p_output_dir IN VARCHAR2 := NULL
3725: ,p_debug_filename IN VARCHAR2 := NULL
3726: ,x_return_status OUT NOCOPY VARCHAR2 --
3727: ,x_msg_count OUT NOCOPY NUMBER --
3756: -- Internal procedure for promotion of a revised item
3757: PROCEDURE Promote_Revised_Item
3758: (
3759: p_api_version IN NUMBER --
3760: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3761: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3762: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3763: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3764: ,p_output_dir IN VARCHAR2 := NULL
3757: PROCEDURE Promote_Revised_Item
3758: (
3759: p_api_version IN NUMBER --
3760: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3761: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3762: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3763: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3764: ,p_output_dir IN VARCHAR2 := NULL
3765: ,p_debug_filename IN VARCHAR2 := NULL
3758: (
3759: p_api_version IN NUMBER --
3760: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3761: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3762: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3763: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3764: ,p_output_dir IN VARCHAR2 := NULL
3765: ,p_debug_filename IN VARCHAR2 := NULL
3766: ,x_return_status OUT NOCOPY VARCHAR2 --
3759: p_api_version IN NUMBER --
3760: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3761: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3762: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3763: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3764: ,p_output_dir IN VARCHAR2 := NULL
3765: ,p_debug_filename IN VARCHAR2 := NULL
3766: ,x_return_status OUT NOCOPY VARCHAR2 --
3767: ,x_msg_count OUT NOCOPY NUMBER --
3801: BEGIN
3802: -- Standard Start of API savepoint
3803: SAVEPOINT Promote_Revised_Item;
3804: -- Standard call to check for call compatibility
3805: IF NOT FND_API.Compatible_API_Call ( l_api_version
3806: ,p_api_version
3807: ,l_api_name
3808: ,G_PKG_NAME )
3809: THEN
3806: ,p_api_version
3807: ,l_api_name
3808: ,G_PKG_NAME )
3809: THEN
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: END IF;
3812: -- Initialize message list if p_init_msg_list is set to TRUE.
3813: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3814: FND_MSG_PUB.initialize;
3809: THEN
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: END IF;
3812: -- Initialize message list if p_init_msg_list is set to TRUE.
3813: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3814: FND_MSG_PUB.initialize;
3815: END IF;
3816:
3817: -- For Test/Debug
3816:
3817: -- For Test/Debug
3818: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
3819: -- R12 Comment out
3820: -- IF FND_API.to_Boolean( p_debug ) THEN
3821: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
3822: -- END IF;
3823:
3824: -- Write debug message if debug mode is on
3833: Write_Debug('Initializing return status... ' );
3834: END IF;
3835:
3836: -- Initialize API return status to success
3837: x_return_status := FND_API.G_RET_STS_SUCCESS;
3838:
3839: -- FND_PROFILE package is not available for workflow (WF),
3840: -- therefore manually set WHO column values
3841: IF p_api_caller = 'WF' THEN
3894: -- Sanity check to make sure the new phase is after the current phase
3895: IF l_new_phase_sn <= l_ri_phase_sn THEN
3896: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
3897: FND_MSG_PUB.Add;
3898: RAISE FND_API.G_EXC_ERROR;
3899: END IF;
3900:
3901: IF g_debug_flag THEN
3902: Write_Debug('Before comparing l_new_phase_sn = l_max_sn');
3912: -- Sanity check: the new phase must be of status_type = 'IMPLEMENTED'
3913: IF (l_new_status_type <> G_ENG_IMPLEMENTED) THEN
3914: FND_MESSAGE.Set_Name('ENG','ENG_LAST_PHASE_NOT_IMP');
3915: FND_MSG_PUB.Add;
3916: RAISE FND_API.G_EXC_ERROR;
3917: END IF;
3918:
3919: -- Set the flag
3920: l_last_imp_flag := 'Y';
3939: OR l_ri_status_type = G_ENG_CANCELLED)
3940: THEN
3941: FND_MESSAGE.Set_Name('ENG','ENG_REVITEM_IMP_OR_CNCL');
3942: FND_MSG_PUB.Add;
3943: RAISE FND_API.G_EXC_ERROR;
3944: ELSE
3945: -- Case: promoting revised item to the last implement phase
3946: IF ( l_last_imp_flag = 'Y' ) THEN
3947:
3960:
3961: -- Call concurrent program to implement revised item
3962: ENG_ECO_UTIL.Implement_ECO
3963: ( p_api_version => 1.0
3964: ,p_init_msg_list => FND_API.G_FALSE
3965: ,p_commit => FND_API.G_FALSE
3966: ,p_validation_level => p_validation_level
3967: ,p_debug => p_debug --FND_API.G_FALSE
3968: ,p_output_dir => p_output_dir
3961: -- Call concurrent program to implement revised item
3962: ENG_ECO_UTIL.Implement_ECO
3963: ( p_api_version => 1.0
3964: ,p_init_msg_list => FND_API.G_FALSE
3965: ,p_commit => FND_API.G_FALSE
3966: ,p_validation_level => p_validation_level
3967: ,p_debug => p_debug --FND_API.G_FALSE
3968: ,p_output_dir => p_output_dir
3969: ,p_debug_filename => NULL --p_debug_filename
3963: ( p_api_version => 1.0
3964: ,p_init_msg_list => FND_API.G_FALSE
3965: ,p_commit => FND_API.G_FALSE
3966: ,p_validation_level => p_validation_level
3967: ,p_debug => p_debug --FND_API.G_FALSE
3968: ,p_output_dir => p_output_dir
3969: ,p_debug_filename => NULL --p_debug_filename
3970: ,x_return_status => l_return_status
3971: ,x_msg_count => l_msg_count
3980: IF g_debug_flag THEN
3981: Write_Debug('After: calling ENG_ECO_UTIL.Implement_ECO (for revised item): ' || l_return_status);
3982: END IF;
3983:
3984: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3985: x_return_status := l_return_status;
3986: x_msg_count := l_msg_count;
3987: x_msg_data := l_msg_data;
3988: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_IMP_ECO');
3986: x_msg_count := l_msg_count;
3987: x_msg_data := l_msg_data;
3988: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_IMP_ECO');
3989: --#FND_MSG_PUB.Add;
3990: RAISE FND_API.G_EXC_ERROR;
3991:
3992: ELSIF (l_request_id = 0) THEN
3993: x_return_status := l_return_status;
3994: x_msg_count := l_msg_count;
3995: x_msg_data := l_msg_data;
3996: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CONCURRENT_PRGM');
3997: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Implement_ECO(for revised item)');
3998: FND_MSG_PUB.Add;
3999: RAISE FND_API.G_EXC_ERROR;
4000: END IF;
4001:
4002: IF g_debug_flag THEN
4003: Write_Debug('Successful: calling ENG_ECO_UTIL.Implement_ECO (for revised item)');
4068: END IF;
4069:
4070:
4071: -- Standard ending code ------------------------------------------------
4072: IF FND_API.To_Boolean ( p_commit ) THEN
4073: COMMIT WORK;
4074: END IF;
4075:
4076: FND_MSG_PUB.Count_And_Get
4080: IF g_debug_flag THEN
4081: Write_Debug('Finish. End Of procedure: Promote_Revised_Item');
4082: END IF;
4083:
4084: IF FND_API.to_Boolean( p_debug ) THEN
4085: Close_Debug_Session;
4086: END IF;
4087:
4088: EXCEPTION
4085: Close_Debug_Session;
4086: END IF;
4087:
4088: EXCEPTION
4089: WHEN FND_API.G_EXC_ERROR THEN
4090: --ROLLBACK TO Promote_Revised_Item;
4091: x_return_status := FND_API.G_RET_STS_ERROR;
4092: FND_MSG_PUB.Count_And_Get
4093: ( p_count => x_msg_count
4087:
4088: EXCEPTION
4089: WHEN FND_API.G_EXC_ERROR THEN
4090: --ROLLBACK TO Promote_Revised_Item;
4091: x_return_status := FND_API.G_RET_STS_ERROR;
4092: FND_MSG_PUB.Count_And_Get
4093: ( p_count => x_msg_count
4094: ,p_data => x_msg_data );
4095: IF g_debug_flag THEN
4094: ,p_data => x_msg_data );
4095: IF g_debug_flag THEN
4096: Write_Debug('Rollback and Finish with expected error.') ;
4097: END IF;
4098: IF FND_API.to_Boolean( p_debug ) THEN
4099: Close_Debug_Session;
4100: END IF;
4101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4102: --ROLLBACK TO Promote_Revised_Item;
4097: END IF;
4098: IF FND_API.to_Boolean( p_debug ) THEN
4099: Close_Debug_Session;
4100: END IF;
4101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4102: --ROLLBACK TO Promote_Revised_Item;
4103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4104: FND_MSG_PUB.Count_And_Get
4105: ( p_count => x_msg_count
4099: Close_Debug_Session;
4100: END IF;
4101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4102: --ROLLBACK TO Promote_Revised_Item;
4103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4104: FND_MSG_PUB.Count_And_Get
4105: ( p_count => x_msg_count
4106: ,p_data => x_msg_data );
4107: IF g_debug_flag THEN
4106: ,p_data => x_msg_data );
4107: IF g_debug_flag THEN
4108: Write_Debug('Rollback and Finish with unexpected error.') ;
4109: END IF;
4110: IF FND_API.to_Boolean( p_debug ) THEN
4111: Close_Debug_Session;
4112: END IF;
4113: WHEN OTHERS THEN
4114: --ROLLBACK TO Promote_Revised_Item;
4111: Close_Debug_Session;
4112: END IF;
4113: WHEN OTHERS THEN
4114: --ROLLBACK TO Promote_Revised_Item;
4115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4116: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4117: THEN
4118: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4119: END IF;
4122: ,p_data => x_msg_data );
4123: IF g_debug_flag THEN
4124: Write_Debug('Rollback and Finish with other error.') ;
4125: END IF;
4126: IF FND_API.to_Boolean( p_debug ) THEN
4127: Close_Debug_Session;
4128: END IF;
4129: END Promote_Revised_Item;
4130:
4132: -- Internal procedure for demotion of change header (inc. revItems)
4133: PROCEDURE Demote_Revised_Item
4134: (
4135: p_api_version IN NUMBER --
4136: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4137: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4138: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4139: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4140: ,p_output_dir IN VARCHAR2 := NULL
4133: PROCEDURE Demote_Revised_Item
4134: (
4135: p_api_version IN NUMBER --
4136: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4137: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4138: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4139: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4140: ,p_output_dir IN VARCHAR2 := NULL
4141: ,p_debug_filename IN VARCHAR2 := NULL
4134: (
4135: p_api_version IN NUMBER --
4136: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4137: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4138: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4139: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4140: ,p_output_dir IN VARCHAR2 := NULL
4141: ,p_debug_filename IN VARCHAR2 := NULL
4142: ,x_return_status OUT NOCOPY VARCHAR2 --
4135: p_api_version IN NUMBER --
4136: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4137: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4138: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4139: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4140: ,p_output_dir IN VARCHAR2 := NULL
4141: ,p_debug_filename IN VARCHAR2 := NULL
4142: ,x_return_status OUT NOCOPY VARCHAR2 --
4143: ,x_msg_count OUT NOCOPY NUMBER --
4174: BEGIN
4175: -- Standard Start of API savepoint
4176: SAVEPOINT Demote_Revised_Item;
4177: -- Standard call to check for call compatibility
4178: IF NOT FND_API.Compatible_API_Call ( l_api_version
4179: ,p_api_version
4180: ,l_api_name
4181: ,G_PKG_NAME )
4182: THEN
4179: ,p_api_version
4180: ,l_api_name
4181: ,G_PKG_NAME )
4182: THEN
4183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4184: END IF;
4185: -- Initialize message list if p_init_msg_list is set to TRUE.
4186: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4187: FND_MSG_PUB.initialize;
4182: THEN
4183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4184: END IF;
4185: -- Initialize message list if p_init_msg_list is set to TRUE.
4186: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4187: FND_MSG_PUB.initialize;
4188: END IF;
4189:
4190:
4190:
4191: -- For Test/Debug
4192: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
4193: -- R12 Comment out
4194: -- IF FND_API.to_Boolean( p_debug ) THEN
4195: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
4196: -- END IF;
4197:
4198: -- Write debug message if debug mode is on
4207: Write_Debug('Initializing return status... ' );
4208: END IF;
4209:
4210: -- Initialize API return status to success
4211: x_return_status := FND_API.G_RET_STS_SUCCESS;
4212:
4213: -- FND_PROFILE package is not available for workflow (WF),
4214: -- therefore manually set WHO column values
4215: IF p_api_caller = 'WF' THEN
4250: -- Sanity check to make sure the new phase is after the current phase
4251: IF l_new_phase_sn >= l_ri_phase_sn THEN
4252: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
4253: FND_MSG_PUB.Add;
4254: RAISE FND_API.G_EXC_ERROR;
4255: END IF;
4256:
4257: -- Get the status_type of the new phase
4258: SELECT status_type
4273: OR l_ri_status_type = G_ENG_CANCELLED)
4274: THEN
4275: FND_MESSAGE.Set_Name('ENG','ENG_REVITEM_IMP_OR_CNCL');
4276: FND_MSG_PUB.Add;
4277: RAISE FND_API.G_EXC_ERROR;
4278: ELSE
4279: -- update parent revised item
4280: UPDATE eng_revised_items
4281: SET status_code = p_status_code,
4336: END IF;
4337:
4338: Demote_Header
4339: ( p_api_version => 1.0
4340: ,p_init_msg_list => FND_API.G_FALSE
4341: ,p_commit => FND_API.G_FALSE
4342: ,p_validation_level => p_validation_level
4343: ,p_debug => FND_API.G_FALSE
4344: ,p_output_dir => p_output_dir
4337:
4338: Demote_Header
4339: ( p_api_version => 1.0
4340: ,p_init_msg_list => FND_API.G_FALSE
4341: ,p_commit => FND_API.G_FALSE
4342: ,p_validation_level => p_validation_level
4343: ,p_debug => FND_API.G_FALSE
4344: ,p_output_dir => p_output_dir
4345: ,p_debug_filename => p_debug_filename
4339: ( p_api_version => 1.0
4340: ,p_init_msg_list => FND_API.G_FALSE
4341: ,p_commit => FND_API.G_FALSE
4342: ,p_validation_level => p_validation_level
4343: ,p_debug => FND_API.G_FALSE
4344: ,p_output_dir => p_output_dir
4345: ,p_debug_filename => p_debug_filename
4346: ,x_return_status => l_return_status
4347: ,x_msg_count => l_msg_count
4355: IF g_debug_flag THEN
4356: Write_Debug('After: calling Demote_Header procedure: ' || l_return_status);
4357: END IF;
4358:
4359: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4360: x_return_status := l_return_status;
4361: x_msg_count := l_msg_count;
4362: x_msg_data := l_msg_data;
4363: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4362: x_msg_data := l_msg_data;
4363: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4364: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
4365: --#FND_MSG_PUB.Add;
4366: RAISE FND_API.G_EXC_ERROR;
4367: END IF;
4368:
4369: IF g_debug_flag THEN
4370: Write_Debug('Successful: calling Demote_Header procedure');
4377: Write_Debug('Done: Updating revised items to the new phase');
4378: END IF;
4379:
4380: -- Standard ending code ------------------------------------------------
4381: IF FND_API.To_Boolean ( p_commit ) THEN
4382: COMMIT WORK;
4383: END IF;
4384:
4385: FND_MSG_PUB.Count_And_Get
4389: IF g_debug_flag THEN
4390: Write_Debug('Finish. End Of procedure: Demote_Revised_Item');
4391: END IF;
4392:
4393: IF FND_API.to_Boolean( p_debug ) THEN
4394: Close_Debug_Session;
4395: END IF;
4396:
4397: EXCEPTION
4394: Close_Debug_Session;
4395: END IF;
4396:
4397: EXCEPTION
4398: WHEN FND_API.G_EXC_ERROR THEN
4399: --ROLLBACK TO Demote_Revised_Item;
4400: x_return_status := FND_API.G_RET_STS_ERROR;
4401: FND_MSG_PUB.Count_And_Get
4402: ( p_count => x_msg_count
4396:
4397: EXCEPTION
4398: WHEN FND_API.G_EXC_ERROR THEN
4399: --ROLLBACK TO Demote_Revised_Item;
4400: x_return_status := FND_API.G_RET_STS_ERROR;
4401: FND_MSG_PUB.Count_And_Get
4402: ( p_count => x_msg_count
4403: ,p_data => x_msg_data );
4404: IF g_debug_flag THEN
4403: ,p_data => x_msg_data );
4404: IF g_debug_flag THEN
4405: Write_Debug('Rollback and Finish with expected error.') ;
4406: END IF;
4407: IF FND_API.to_Boolean( p_debug ) THEN
4408: Close_Debug_Session;
4409: END IF;
4410: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4411: --ROLLBACK TO Demote_Revised_Item;
4406: END IF;
4407: IF FND_API.to_Boolean( p_debug ) THEN
4408: Close_Debug_Session;
4409: END IF;
4410: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4411: --ROLLBACK TO Demote_Revised_Item;
4412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4413: FND_MSG_PUB.Count_And_Get
4414: ( p_count => x_msg_count
4408: Close_Debug_Session;
4409: END IF;
4410: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4411: --ROLLBACK TO Demote_Revised_Item;
4412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4413: FND_MSG_PUB.Count_And_Get
4414: ( p_count => x_msg_count
4415: ,p_data => x_msg_data );
4416: IF g_debug_flag THEN
4415: ,p_data => x_msg_data );
4416: IF g_debug_flag THEN
4417: Write_Debug('Rollback and Finish with unexpected error.') ;
4418: END IF;
4419: IF FND_API.to_Boolean( p_debug ) THEN
4420: Close_Debug_Session;
4421: END IF;
4422: WHEN OTHERS THEN
4423: --ROLLBACK TO Demote_Revised_Item;
4420: Close_Debug_Session;
4421: END IF;
4422: WHEN OTHERS THEN
4423: --ROLLBACK TO Demote_Revised_Item;
4424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4425: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4426: THEN
4427: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4428: END IF;
4431: ,p_data => x_msg_data );
4432: IF g_debug_flag THEN
4433: Write_Debug('Rollback and Finish with other error.') ;
4434: END IF;
4435: IF FND_API.to_Boolean( p_debug ) THEN
4436: Close_Debug_Session;
4437: END IF;
4438: END Demote_Revised_Item;
4439:
4442: -- Note that this procedure can ONLY be called directly from UI
4443: PROCEDURE Change_Phase
4444: (
4445: p_api_version IN NUMBER --
4446: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4447: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4448: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4449: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4450: ,p_output_dir IN VARCHAR2 := NULL
4443: PROCEDURE Change_Phase
4444: (
4445: p_api_version IN NUMBER --
4446: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4447: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4448: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4449: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4450: ,p_output_dir IN VARCHAR2 := NULL
4451: ,p_debug_filename IN VARCHAR2 := NULL
4444: (
4445: p_api_version IN NUMBER --
4446: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4447: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4448: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4449: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4450: ,p_output_dir IN VARCHAR2 := NULL
4451: ,p_debug_filename IN VARCHAR2 := NULL
4452: ,x_return_status OUT NOCOPY VARCHAR2 --
4445: p_api_version IN NUMBER --
4446: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4447: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4448: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4449: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4450: ,p_output_dir IN VARCHAR2 := NULL
4451: ,p_debug_filename IN VARCHAR2 := NULL
4452: ,x_return_status OUT NOCOPY VARCHAR2 --
4453: ,x_msg_count OUT NOCOPY NUMBER --
4477: BEGIN
4478: -- Standard Start of API savepoint
4479: SAVEPOINT Change_Phase;
4480: -- Standard call to check for call compatibility
4481: IF NOT FND_API.Compatible_API_Call ( l_api_version
4482: ,p_api_version
4483: ,l_api_name
4484: ,G_PKG_NAME )
4485: THEN
4482: ,p_api_version
4483: ,l_api_name
4484: ,G_PKG_NAME )
4485: THEN
4486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4487: END IF;
4488: -- Initialize message list if p_init_msg_list is set to TRUE.
4489: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4490: FND_MSG_PUB.initialize;
4485: THEN
4486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4487: END IF;
4488: -- Initialize message list if p_init_msg_list is set to TRUE.
4489: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4490: FND_MSG_PUB.initialize;
4491: END IF;
4492:
4493:
4493:
4494: -- For Test/Debug
4495: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
4496: -- R12 Comment out
4497: -- IF FND_API.to_Boolean( p_debug ) THEN
4498: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
4499: -- END IF;
4500:
4501: -- Write debug message if debug mode is on
4512: Write_Debug('Initializing return status... ' );
4513: END IF;
4514:
4515: -- Initialize API return status to success
4516: x_return_status := FND_API.G_RET_STS_SUCCESS;
4517:
4518:
4519: -- Real code starts here -----------------------------------------------
4520: IF (p_object_name = G_ENG_CHANGE) THEN
4542: AND l_wf_status = Eng_Workflow_Util.G_RT_IN_PROGRESS)
4543: THEN
4544: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
4545: FND_MSG_PUB.Add;
4546: RAISE FND_API.G_EXC_ERROR;
4547: END IF;
4548:
4549: IF ( p_action_type = G_ENG_PROMOTE ) THEN
4550: Promote_Header
4548:
4549: IF ( p_action_type = G_ENG_PROMOTE ) THEN
4550: Promote_Header
4551: ( p_api_version => 1.0
4552: ,p_init_msg_list => FND_API.G_FALSE
4553: ,p_commit => FND_API.G_FALSE
4554: ,p_validation_level => p_validation_level
4555: ,p_debug => FND_API.G_FALSE
4556: ,p_output_dir => p_output_dir
4549: IF ( p_action_type = G_ENG_PROMOTE ) THEN
4550: Promote_Header
4551: ( p_api_version => 1.0
4552: ,p_init_msg_list => FND_API.G_FALSE
4553: ,p_commit => FND_API.G_FALSE
4554: ,p_validation_level => p_validation_level
4555: ,p_debug => FND_API.G_FALSE
4556: ,p_output_dir => p_output_dir
4557: ,p_debug_filename => p_debug_filename
4551: ( p_api_version => 1.0
4552: ,p_init_msg_list => FND_API.G_FALSE
4553: ,p_commit => FND_API.G_FALSE
4554: ,p_validation_level => p_validation_level
4555: ,p_debug => FND_API.G_FALSE
4556: ,p_output_dir => p_output_dir
4557: ,p_debug_filename => p_debug_filename
4558: ,x_return_status => l_return_status
4559: ,x_msg_count => l_msg_count
4570: END IF;
4571:
4572:
4573:
4574: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4575: x_return_status := l_return_status;
4576: x_msg_count := l_msg_count;
4577: x_msg_data := l_msg_data;
4578: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4577: x_msg_data := l_msg_data;
4578: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4579: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Promote_Header');
4580: --#FND_MSG_PUB.Add;
4581: RAISE FND_API.G_EXC_ERROR;
4582: END IF;
4583: ELSIF ( p_action_type = G_ENG_DEMOTE ) THEN
4584:
4585: Demote_Header
4583: ELSIF ( p_action_type = G_ENG_DEMOTE ) THEN
4584:
4585: Demote_Header
4586: ( p_api_version => 1.0
4587: ,p_init_msg_list => FND_API.G_FALSE
4588: ,p_commit => FND_API.G_FALSE
4589: ,p_validation_level => p_validation_level
4590: ,p_debug => FND_API.G_FALSE
4591: ,p_output_dir => p_output_dir
4584:
4585: Demote_Header
4586: ( p_api_version => 1.0
4587: ,p_init_msg_list => FND_API.G_FALSE
4588: ,p_commit => FND_API.G_FALSE
4589: ,p_validation_level => p_validation_level
4590: ,p_debug => FND_API.G_FALSE
4591: ,p_output_dir => p_output_dir
4592: ,p_debug_filename => p_debug_filename
4586: ( p_api_version => 1.0
4587: ,p_init_msg_list => FND_API.G_FALSE
4588: ,p_commit => FND_API.G_FALSE
4589: ,p_validation_level => p_validation_level
4590: ,p_debug => FND_API.G_FALSE
4591: ,p_output_dir => p_output_dir
4592: ,p_debug_filename => p_debug_filename
4593: ,x_return_status => l_return_status
4594: ,x_msg_count => l_msg_count
4604: Write_Debug('After: calling Demote_Header procedure: ' || l_return_status);
4605: END IF;
4606:
4607:
4608: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4609: x_return_status := l_return_status;
4610: x_msg_count := l_msg_count;
4611: x_msg_data := l_msg_data;
4612: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4611: x_msg_data := l_msg_data;
4612: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4613: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
4614: --#FND_MSG_PUB.Add;
4615: RAISE FND_API.G_EXC_ERROR;
4616: END IF;
4617: ELSE
4618: IF g_debug_flag THEN
4619: Write_Debug('Error: action is neither promotion nor demotion') ;
4624:
4625: IF ( p_action_type = G_ENG_PROMOTE ) THEN
4626: Promote_Revised_Item
4627: ( p_api_version => 1.0
4628: ,p_init_msg_list => FND_API.G_FALSE
4629: ,p_commit => FND_API.G_FALSE
4630: ,p_validation_level => p_validation_level
4631: ,p_debug => FND_API.G_FALSE
4632: ,p_output_dir => p_output_dir
4625: IF ( p_action_type = G_ENG_PROMOTE ) THEN
4626: Promote_Revised_Item
4627: ( p_api_version => 1.0
4628: ,p_init_msg_list => FND_API.G_FALSE
4629: ,p_commit => FND_API.G_FALSE
4630: ,p_validation_level => p_validation_level
4631: ,p_debug => FND_API.G_FALSE
4632: ,p_output_dir => p_output_dir
4633: ,p_debug_filename => p_debug_filename
4627: ( p_api_version => 1.0
4628: ,p_init_msg_list => FND_API.G_FALSE
4629: ,p_commit => FND_API.G_FALSE
4630: ,p_validation_level => p_validation_level
4631: ,p_debug => FND_API.G_FALSE
4632: ,p_output_dir => p_output_dir
4633: ,p_debug_filename => p_debug_filename
4634: ,x_return_status => l_return_status
4635: ,x_msg_count => l_msg_count
4646: END IF;
4647:
4648:
4649:
4650: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4651: x_return_status := l_return_status;
4652: x_msg_count := l_msg_count;
4653: x_msg_data := l_msg_data;
4654: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4653: x_msg_data := l_msg_data;
4654: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4655: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Promote_Revised_Item');
4656: --#FND_MSG_PUB.Add;
4657: RAISE FND_API.G_EXC_ERROR;
4658: END IF;
4659:
4660: ELSIF ( p_action_type = G_ENG_DEMOTE ) THEN
4661: Demote_Revised_Item
4659:
4660: ELSIF ( p_action_type = G_ENG_DEMOTE ) THEN
4661: Demote_Revised_Item
4662: ( p_api_version => 1.0
4663: ,p_init_msg_list => FND_API.G_FALSE
4664: ,p_commit => FND_API.G_FALSE
4665: ,p_validation_level => p_validation_level
4666: ,p_debug => FND_API.G_FALSE
4667: ,p_output_dir => p_output_dir
4660: ELSIF ( p_action_type = G_ENG_DEMOTE ) THEN
4661: Demote_Revised_Item
4662: ( p_api_version => 1.0
4663: ,p_init_msg_list => FND_API.G_FALSE
4664: ,p_commit => FND_API.G_FALSE
4665: ,p_validation_level => p_validation_level
4666: ,p_debug => FND_API.G_FALSE
4667: ,p_output_dir => p_output_dir
4668: ,p_debug_filename => p_debug_filename
4662: ( p_api_version => 1.0
4663: ,p_init_msg_list => FND_API.G_FALSE
4664: ,p_commit => FND_API.G_FALSE
4665: ,p_validation_level => p_validation_level
4666: ,p_debug => FND_API.G_FALSE
4667: ,p_output_dir => p_output_dir
4668: ,p_debug_filename => p_debug_filename
4669: ,x_return_status => l_return_status
4670: ,x_msg_count => l_msg_count
4679: Write_Debug('After: calling Demote_Revised_Item procedure: ' || l_return_status);
4680: END IF;
4681:
4682:
4683: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4684: x_return_status := l_return_status;
4685: x_msg_count := l_msg_count;
4686: x_msg_data := l_msg_data;
4687: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4686: x_msg_data := l_msg_data;
4687: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4688: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Revised_Item');
4689: --#FND_MSG_PUB.Add;
4690: RAISE FND_API.G_EXC_ERROR;
4691: END IF;
4692: ELSE
4693: IF g_debug_flag THEN
4694: Write_Debug('Error: action is neither promotion nor demotion') ;
4700: END IF;
4701: END IF;
4702:
4703: -- Standard ending code ------------------------------------------------
4704: IF FND_API.To_Boolean ( p_commit ) THEN
4705: COMMIT WORK;
4706: END IF;
4707:
4708: FND_MSG_PUB.Count_And_Get
4712: IF g_debug_flag THEN
4713: Write_Debug('Finish. End Of procedure: Change_Phase');
4714: END IF;
4715:
4716: IF FND_API.to_Boolean( p_debug ) THEN
4717: Close_Debug_Session;
4718: END IF;
4719:
4720: EXCEPTION
4717: Close_Debug_Session;
4718: END IF;
4719:
4720: EXCEPTION
4721: WHEN FND_API.G_EXC_ERROR THEN
4722: --ROLLBACK TO Change_Phase;
4723: x_return_status := FND_API.G_RET_STS_ERROR;
4724: FND_MSG_PUB.Count_And_Get
4725: ( p_count => x_msg_count
4719:
4720: EXCEPTION
4721: WHEN FND_API.G_EXC_ERROR THEN
4722: --ROLLBACK TO Change_Phase;
4723: x_return_status := FND_API.G_RET_STS_ERROR;
4724: FND_MSG_PUB.Count_And_Get
4725: ( p_count => x_msg_count
4726: ,p_data => x_msg_data );
4727: IF g_debug_flag THEN
4726: ,p_data => x_msg_data );
4727: IF g_debug_flag THEN
4728: Write_Debug('Rollback and Finish with expected error.') ;
4729: END IF;
4730: IF FND_API.to_Boolean( p_debug ) THEN
4731: Close_Debug_Session;
4732: END IF;
4733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4734: --ROLLBACK TO Change_Phase;
4729: END IF;
4730: IF FND_API.to_Boolean( p_debug ) THEN
4731: Close_Debug_Session;
4732: END IF;
4733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4734: --ROLLBACK TO Change_Phase;
4735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4736: FND_MSG_PUB.Count_And_Get
4737: ( p_count => x_msg_count
4731: Close_Debug_Session;
4732: END IF;
4733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4734: --ROLLBACK TO Change_Phase;
4735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4736: FND_MSG_PUB.Count_And_Get
4737: ( p_count => x_msg_count
4738: ,p_data => x_msg_data );
4739: IF g_debug_flag THEN
4738: ,p_data => x_msg_data );
4739: IF g_debug_flag THEN
4740: Write_Debug('Rollback and Finish with unexpected error.') ;
4741: END IF;
4742: IF FND_API.to_Boolean( p_debug ) THEN
4743: Close_Debug_Session;
4744: END IF;
4745: WHEN OTHERS THEN
4746: --ROLLBACK TO Change_Phase;
4743: Close_Debug_Session;
4744: END IF;
4745: WHEN OTHERS THEN
4746: --ROLLBACK TO Change_Phase;
4747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4748: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4749: THEN
4750: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4751: END IF;
4754: ,p_data => x_msg_data );
4755: IF g_debug_flag THEN
4756: Write_Debug('Rollback and Finish with other error.') ;
4757: END IF;
4758: IF FND_API.to_Boolean( p_debug ) THEN
4759: Close_Debug_Session;
4760: END IF;
4761:
4762: END Change_Phase;
4763:
4764: PROCEDURE Change_Phase
4765: (
4766: p_api_version IN NUMBER --
4767: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4768: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4769: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4770: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4771: ,p_output_dir IN VARCHAR2 := NULL
4764: PROCEDURE Change_Phase
4765: (
4766: p_api_version IN NUMBER --
4767: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4768: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4769: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4770: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4771: ,p_output_dir IN VARCHAR2 := NULL
4772: ,p_debug_filename IN VARCHAR2 := NULL
4765: (
4766: p_api_version IN NUMBER --
4767: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4768: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4769: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4770: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4771: ,p_output_dir IN VARCHAR2 := NULL
4772: ,p_debug_filename IN VARCHAR2 := NULL
4773: ,x_return_status OUT NOCOPY VARCHAR2 --
4766: p_api_version IN NUMBER --
4767: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4768: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4769: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4770: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4771: ,p_output_dir IN VARCHAR2 := NULL
4772: ,p_debug_filename IN VARCHAR2 := NULL
4773: ,x_return_status OUT NOCOPY VARCHAR2 --
4774: ,x_msg_count OUT NOCOPY NUMBER --
4816: -- revised items, tasks and lines lifecycle states
4817: PROCEDURE Update_Lifecycle_States
4818: (
4819: p_api_version IN NUMBER --
4820: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4821: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4822: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4823: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4824: ,p_output_dir IN VARCHAR2 := NULL
4817: PROCEDURE Update_Lifecycle_States
4818: (
4819: p_api_version IN NUMBER --
4820: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4821: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4822: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4823: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4824: ,p_output_dir IN VARCHAR2 := NULL
4825: ,p_debug_filename IN VARCHAR2 := NULL
4818: (
4819: p_api_version IN NUMBER --
4820: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4821: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4822: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4823: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4824: ,p_output_dir IN VARCHAR2 := NULL
4825: ,p_debug_filename IN VARCHAR2 := NULL
4826: ,x_return_status OUT NOCOPY VARCHAR2 --
4819: p_api_version IN NUMBER --
4820: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4821: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4822: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4823: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4824: ,p_output_dir IN VARCHAR2 := NULL
4825: ,p_debug_filename IN VARCHAR2 := NULL
4826: ,x_return_status OUT NOCOPY VARCHAR2 --
4827: ,x_msg_count OUT NOCOPY NUMBER --
4893:
4894: -- Standard Start of API savepoint
4895: SAVEPOINT Update_Lifecycle_States;
4896: -- Standard call to check for call compatibility
4897: IF NOT FND_API.Compatible_API_Call ( l_api_version
4898: ,p_api_version
4899: ,l_api_name
4900: ,G_PKG_NAME )
4901: THEN
4898: ,p_api_version
4899: ,l_api_name
4900: ,G_PKG_NAME )
4901: THEN
4902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4903: END IF;
4904: -- Initialize message list if p_init_msg_list is set to TRUE.
4905: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4906: FND_MSG_PUB.initialize;
4901: THEN
4902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4903: END IF;
4904: -- Initialize message list if p_init_msg_list is set to TRUE.
4905: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4906: FND_MSG_PUB.initialize;
4907: END IF;
4908:
4909:
4909:
4910: -- For Test/Debug
4911: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
4912: -- R12 Comment out
4913: -- IF FND_API.to_Boolean( p_debug ) THEN
4914: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
4915: -- END IF;
4916:
4917: -- Write debug message if debug mode is on
4927: Write_Debug('Initializing return status... ' );
4928: END IF;
4929:
4930: -- Initialize API return status to success
4931: x_return_status := FND_API.G_RET_STS_SUCCESS;
4932:
4933: -- FND_PROFILE package is not available for workflow (WF),
4934: -- therefore manually set WHO column values
4935: IF p_api_caller = 'WF' THEN
5072: Write_Debug(' l_org_id = ' || l_org_id);
5073: END IF;
5074: ENG_ECO_UTIL.Implement_ECO
5075: ( p_api_version => 1.0
5076: ,p_init_msg_list => FND_API.G_FALSE
5077: ,p_commit => FND_API.G_FALSE
5078: ,p_validation_level => p_validation_level
5079: ,p_debug => p_debug --FND_API.G_FALSE
5080: ,p_output_dir => p_output_dir
5073: END IF;
5074: ENG_ECO_UTIL.Implement_ECO
5075: ( p_api_version => 1.0
5076: ,p_init_msg_list => FND_API.G_FALSE
5077: ,p_commit => FND_API.G_FALSE
5078: ,p_validation_level => p_validation_level
5079: ,p_debug => p_debug --FND_API.G_FALSE
5080: ,p_output_dir => p_output_dir
5081: ,p_debug_filename => 'engact.impECO.log' --p_debug_filename
5075: ( p_api_version => 1.0
5076: ,p_init_msg_list => FND_API.G_FALSE
5077: ,p_commit => FND_API.G_FALSE
5078: ,p_validation_level => p_validation_level
5079: ,p_debug => p_debug --FND_API.G_FALSE
5080: ,p_output_dir => p_output_dir
5081: ,p_debug_filename => 'engact.impECO.log' --p_debug_filename
5082: ,x_return_status => l_return_status
5083: ,x_msg_count => l_msg_count
5108: SET implementation_req_id = l_request_id
5109: WHERE change_id = p_change_id;
5110: END IF;
5111:
5112: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS
5113: OR l_request_id IS NULL
5114: OR l_request_id = 0 )
5115: THEN
5116: l_flag_imp_failed := 'Y';
5130: l_action_id := 0;
5131: -- create new action log
5132: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
5133: ( p_api_version => 1.0
5134: , p_init_msg_list => FND_API.G_FALSE --
5135: , p_commit => FND_API.G_FALSE --
5136: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5137: , p_debug => p_debug --FND_API.G_FALSE
5138: , p_output_dir => p_output_dir
5131: -- create new action log
5132: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
5133: ( p_api_version => 1.0
5134: , p_init_msg_list => FND_API.G_FALSE --
5135: , p_commit => FND_API.G_FALSE --
5136: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5137: , p_debug => p_debug --FND_API.G_FALSE
5138: , p_output_dir => p_output_dir
5139: , p_debug_filename => NULL
5132: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
5133: ( p_api_version => 1.0
5134: , p_init_msg_list => FND_API.G_FALSE --
5135: , p_commit => FND_API.G_FALSE --
5136: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5137: , p_debug => p_debug --FND_API.G_FALSE
5138: , p_output_dir => p_output_dir
5139: , p_debug_filename => NULL
5140: , x_return_status => l_return_status
5133: ( p_api_version => 1.0
5134: , p_init_msg_list => FND_API.G_FALSE --
5135: , p_commit => FND_API.G_FALSE --
5136: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5137: , p_debug => p_debug --FND_API.G_FALSE
5138: , p_output_dir => p_output_dir
5139: , p_debug_filename => NULL
5140: , x_return_status => l_return_status
5141: , x_msg_count => l_msg_count
5161: Write_Debug('l_action_id : ' || l_action_id );
5162: END IF;
5163:
5164:
5165: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
5166: THEN
5167: x_return_status := l_return_status;
5168: x_msg_count := l_msg_count;
5169: x_msg_data := l_msg_data;
5169: x_msg_data := l_msg_data;
5170: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5171: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
5172: --#FND_MSG_PUB.Add;
5173: RAISE FND_API.G_EXC_ERROR;
5174: END IF;
5175: IF g_debug_flag THEN
5176: Write_Debug('Successful: saving action log');
5177: END IF;
5181: x_msg_data := l_msg_data;
5182: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CONCURRENT_PRGM');
5183: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Implement_ECO');
5184: FND_MSG_PUB.Add;
5185: RAISE FND_API.G_EXC_ERROR;
5186: END IF;
5187: END IF;
5188:
5189: IF (l_flag_imp_failed = 'N') THEN
5211: l_action_id := 0;
5212: -- create new action log
5213: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
5214: ( p_api_version => 1.0
5215: , p_init_msg_list => FND_API.G_FALSE --
5216: , p_commit => FND_API.G_FALSE --
5217: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5218: , p_debug => p_debug --FND_API.G_FALSE
5219: , p_output_dir => p_output_dir
5212: -- create new action log
5213: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
5214: ( p_api_version => 1.0
5215: , p_init_msg_list => FND_API.G_FALSE --
5216: , p_commit => FND_API.G_FALSE --
5217: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5218: , p_debug => p_debug --FND_API.G_FALSE
5219: , p_output_dir => p_output_dir
5220: , p_debug_filename => NULL
5213: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
5214: ( p_api_version => 1.0
5215: , p_init_msg_list => FND_API.G_FALSE --
5216: , p_commit => FND_API.G_FALSE --
5217: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5218: , p_debug => p_debug --FND_API.G_FALSE
5219: , p_output_dir => p_output_dir
5220: , p_debug_filename => NULL
5221: , x_return_status => l_return_status
5214: ( p_api_version => 1.0
5215: , p_init_msg_list => FND_API.G_FALSE --
5216: , p_commit => FND_API.G_FALSE --
5217: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5218: , p_debug => p_debug --FND_API.G_FALSE
5219: , p_output_dir => p_output_dir
5220: , p_debug_filename => NULL
5221: , x_return_status => l_return_status
5222: , x_msg_count => l_msg_count
5241: Write_Debug('After: saving action log: ' || l_return_status );
5242: Write_Debug('l_action_id : ' || l_action_id );
5243: END IF;
5244:
5245: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
5246: THEN
5247: x_return_status := l_return_status;
5248: x_msg_count := l_msg_count;
5249: x_msg_data := l_msg_data;
5249: x_msg_data := l_msg_data;
5250: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5251: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
5252: --#FND_MSG_PUB.Add;
5253: RAISE FND_API.G_EXC_ERROR;
5254: END IF;
5255: IF g_debug_flag THEN
5256: Write_Debug('Successful: saving action log');
5257: END IF;
5391: -- Launch header approval status change workflow
5392: Update_Header_Appr_Status
5393: (
5394: p_api_version => 1.0
5395: ,p_init_msg_list => FND_API.G_FALSE
5396: ,p_commit => FND_API.G_FALSE
5397: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5398: ,p_debug => FND_API.G_FALSE
5399: ,p_output_dir => p_output_dir
5392: Update_Header_Appr_Status
5393: (
5394: p_api_version => 1.0
5395: ,p_init_msg_list => FND_API.G_FALSE
5396: ,p_commit => FND_API.G_FALSE
5397: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5398: ,p_debug => FND_API.G_FALSE
5399: ,p_output_dir => p_output_dir
5400: ,p_debug_filename => p_debug_filename
5393: (
5394: p_api_version => 1.0
5395: ,p_init_msg_list => FND_API.G_FALSE
5396: ,p_commit => FND_API.G_FALSE
5397: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5398: ,p_debug => FND_API.G_FALSE
5399: ,p_output_dir => p_output_dir
5400: ,p_debug_filename => p_debug_filename
5401: ,x_return_status => l_return_status
5394: p_api_version => 1.0
5395: ,p_init_msg_list => FND_API.G_FALSE
5396: ,p_commit => FND_API.G_FALSE
5397: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5398: ,p_debug => FND_API.G_FALSE
5399: ,p_output_dir => p_output_dir
5400: ,p_debug_filename => p_debug_filename
5401: ,x_return_status => l_return_status
5402: ,x_msg_count => l_msg_count
5414: Write_Debug('After: Update_Header_Appr_Status: ' || l_return_status );
5415: END IF;
5416:
5417:
5418: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
5419: THEN
5420: x_return_status := l_return_status;
5421: x_msg_count := l_msg_count;
5422: x_msg_data := l_msg_data;
5419: THEN
5420: x_return_status := l_return_status;
5421: x_msg_count := l_msg_count;
5422: x_msg_data := l_msg_data;
5423: RAISE FND_API.G_EXC_ERROR;
5424: END IF;
5425: IF g_debug_flag THEN
5426: Write_Debug('After: calling Update_Header_Appr_Status');
5427: END IF;
5461: Write_Debug('Branch: Exists non completed/implemented/cancelled lines');
5462: END IF;
5463: FND_MESSAGE.Set_Name('ENG','ENG_EXIST_ACTIVE_LINES');
5464: FND_MSG_PUB.Add;
5465: RAISE FND_API.G_EXC_ERROR;
5466: END IF;
5467: END LOOP;
5468: CLOSE c_lines;
5469:
5498:
5499: ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status
5500: (
5501: p_api_version => 1.0
5502: ,p_init_msg_list => FND_API.G_FALSE
5503: ,p_commit => FND_API.G_FALSE
5504: ,p_validation_level => p_validation_level
5505: ,p_debug => p_debug --FND_API.G_FALSE
5506: ,p_output_dir => p_output_dir
5499: ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status
5500: (
5501: p_api_version => 1.0
5502: ,p_init_msg_list => FND_API.G_FALSE
5503: ,p_commit => FND_API.G_FALSE
5504: ,p_validation_level => p_validation_level
5505: ,p_debug => p_debug --FND_API.G_FALSE
5506: ,p_output_dir => p_output_dir
5507: ,p_debug_filename => NULL --p_debug_filename
5501: p_api_version => 1.0
5502: ,p_init_msg_list => FND_API.G_FALSE
5503: ,p_commit => FND_API.G_FALSE
5504: ,p_validation_level => p_validation_level
5505: ,p_debug => p_debug --FND_API.G_FALSE
5506: ,p_output_dir => p_output_dir
5507: ,p_debug_filename => NULL --p_debug_filename
5508: ,x_return_status => l_return_status
5509: ,x_msg_count => l_msg_count
5520:
5521:
5522:
5523:
5524: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5525: x_return_status := l_return_status;
5526: x_msg_count := l_msg_count;
5527: x_msg_data := l_msg_data;
5528: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5527: x_msg_data := l_msg_data;
5528: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5529: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status');
5530: --#FND_MSG_PUB.Add;
5531: RAISE FND_API.G_EXC_ERROR;
5532: END IF;
5533: END IF;
5534: IF g_debug_flag THEN
5535: Write_Debug('After: calling DM attachment approval/review API');
5580:
5581: Promote_Header
5582: (
5583: p_api_version => 1.0
5584: ,p_init_msg_list => FND_API.G_FALSE
5585: ,p_commit => FND_API.G_FALSE
5586: ,p_validation_level => p_validation_level
5587: ,p_debug => FND_API.G_FALSE
5588: ,p_output_dir => p_output_dir
5581: Promote_Header
5582: (
5583: p_api_version => 1.0
5584: ,p_init_msg_list => FND_API.G_FALSE
5585: ,p_commit => FND_API.G_FALSE
5586: ,p_validation_level => p_validation_level
5587: ,p_debug => FND_API.G_FALSE
5588: ,p_output_dir => p_output_dir
5589: ,p_debug_filename => p_debug_filename
5583: p_api_version => 1.0
5584: ,p_init_msg_list => FND_API.G_FALSE
5585: ,p_commit => FND_API.G_FALSE
5586: ,p_validation_level => p_validation_level
5587: ,p_debug => FND_API.G_FALSE
5588: ,p_output_dir => p_output_dir
5589: ,p_debug_filename => p_debug_filename
5590: ,x_return_status => l_return_status
5591: ,x_msg_count => l_msg_count
5599: Write_Debug('After: Promote_Header: ' || l_return_status );
5600: END IF;
5601:
5602:
5603: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5604: x_return_status := l_return_status;
5605: x_msg_count := l_msg_count;
5606: x_msg_data := l_msg_data;
5607: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5606: x_msg_data := l_msg_data;
5607: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5608: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Promote_Header');
5609: --#FND_MSG_PUB.Add;
5610: RAISE FND_API.G_EXC_ERROR;
5611: END IF;
5612:
5613: IF g_debug_flag THEN
5614: Write_Debug('After: calling PROMOTE_HEADER');
5698: END IF;
5699: Update_Header_Appr_Status
5700: (
5701: p_api_version => 1.0
5702: ,p_init_msg_list => FND_API.G_FALSE
5703: ,p_commit => FND_API.G_FALSE
5704: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5705: ,p_debug => FND_API.G_FALSE
5706: ,p_output_dir => p_output_dir
5699: Update_Header_Appr_Status
5700: (
5701: p_api_version => 1.0
5702: ,p_init_msg_list => FND_API.G_FALSE
5703: ,p_commit => FND_API.G_FALSE
5704: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5705: ,p_debug => FND_API.G_FALSE
5706: ,p_output_dir => p_output_dir
5707: ,p_debug_filename => p_debug_filename
5700: (
5701: p_api_version => 1.0
5702: ,p_init_msg_list => FND_API.G_FALSE
5703: ,p_commit => FND_API.G_FALSE
5704: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5705: ,p_debug => FND_API.G_FALSE
5706: ,p_output_dir => p_output_dir
5707: ,p_debug_filename => p_debug_filename
5708: ,x_return_status => l_return_status
5701: p_api_version => 1.0
5702: ,p_init_msg_list => FND_API.G_FALSE
5703: ,p_commit => FND_API.G_FALSE
5704: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5705: ,p_debug => FND_API.G_FALSE
5706: ,p_output_dir => p_output_dir
5707: ,p_debug_filename => p_debug_filename
5708: ,x_return_status => l_return_status
5709: ,x_msg_count => l_msg_count
5718: IF g_debug_flag THEN
5719: Write_Debug('After: calling Update_Header_Appr_Status: ' || l_return_status);
5720: END IF;
5721:
5722: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
5723: THEN
5724: x_return_status := l_return_status;
5725: x_msg_count := l_msg_count;
5726: x_msg_data := l_msg_data;
5723: THEN
5724: x_return_status := l_return_status;
5725: x_msg_count := l_msg_count;
5726: x_msg_data := l_msg_data;
5727: RAISE FND_API.G_EXC_ERROR;
5728: ELSE
5729: IF g_debug_flag THEN
5730: Write_Debug('Successful: calling Update_Header_Appr_Status');
5731: END IF;
5752:
5753: Demote_Header
5754: (
5755: p_api_version => 1.0
5756: ,p_init_msg_list => FND_API.G_FALSE
5757: ,p_commit => FND_API.G_FALSE
5758: ,p_validation_level => p_validation_level
5759: ,p_debug => FND_API.G_FALSE
5760: ,p_output_dir => p_output_dir
5753: Demote_Header
5754: (
5755: p_api_version => 1.0
5756: ,p_init_msg_list => FND_API.G_FALSE
5757: ,p_commit => FND_API.G_FALSE
5758: ,p_validation_level => p_validation_level
5759: ,p_debug => FND_API.G_FALSE
5760: ,p_output_dir => p_output_dir
5761: ,p_debug_filename => p_debug_filename
5755: p_api_version => 1.0
5756: ,p_init_msg_list => FND_API.G_FALSE
5757: ,p_commit => FND_API.G_FALSE
5758: ,p_validation_level => p_validation_level
5759: ,p_debug => FND_API.G_FALSE
5760: ,p_output_dir => p_output_dir
5761: ,p_debug_filename => p_debug_filename
5762: ,x_return_status => l_return_status
5763: ,x_msg_count => l_msg_count
5768: );
5769: IF g_debug_flag THEN
5770: Write_Debug('After: calling DEMOTE_HEADER procedure: ' || l_return_status);
5771: END IF;
5772: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5773: x_return_status := l_return_status;
5774: x_msg_count := l_msg_count;
5775: x_msg_data := l_msg_data;
5776: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5775: x_msg_data := l_msg_data;
5776: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5777: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
5778: --#FND_MSG_PUB.Add;
5779: RAISE FND_API.G_EXC_ERROR;
5780: END IF;
5781: IF g_debug_flag THEN
5782: Write_Debug('Successful: calling Demote_Header procedure');
5783: END IF;
5836: -- Launch header approval status change workflow
5837: Update_Header_Appr_Status
5838: (
5839: p_api_version => 1.0
5840: ,p_init_msg_list => FND_API.G_FALSE
5841: ,p_commit => FND_API.G_FALSE
5842: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5843: ,p_debug => FND_API.G_FALSE
5844: ,p_output_dir => p_output_dir
5837: Update_Header_Appr_Status
5838: (
5839: p_api_version => 1.0
5840: ,p_init_msg_list => FND_API.G_FALSE
5841: ,p_commit => FND_API.G_FALSE
5842: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5843: ,p_debug => FND_API.G_FALSE
5844: ,p_output_dir => p_output_dir
5845: ,p_debug_filename => p_debug_filename
5838: (
5839: p_api_version => 1.0
5840: ,p_init_msg_list => FND_API.G_FALSE
5841: ,p_commit => FND_API.G_FALSE
5842: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5843: ,p_debug => FND_API.G_FALSE
5844: ,p_output_dir => p_output_dir
5845: ,p_debug_filename => p_debug_filename
5846: ,x_return_status => l_return_status
5839: p_api_version => 1.0
5840: ,p_init_msg_list => FND_API.G_FALSE
5841: ,p_commit => FND_API.G_FALSE
5842: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5843: ,p_debug => FND_API.G_FALSE
5844: ,p_output_dir => p_output_dir
5845: ,p_debug_filename => p_debug_filename
5846: ,x_return_status => l_return_status
5847: ,x_msg_count => l_msg_count
5856: IF g_debug_flag THEN
5857: Write_Debug('After: calling Update_Header_Appr_Status: ' || l_return_status);
5858: END IF;
5859:
5860: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
5861: THEN
5862: x_return_status := l_return_status;
5863: x_msg_count := l_msg_count;
5864: x_msg_data := l_msg_data;
5861: THEN
5862: x_return_status := l_return_status;
5863: x_msg_count := l_msg_count;
5864: x_msg_data := l_msg_data;
5865: RAISE FND_API.G_EXC_ERROR;
5866: END IF;
5867: IF g_debug_flag THEN
5868: Write_Debug('After: calling Update_Header_Appr_Status');
5869: END IF;
5876: IF (p_status_code IS NULL) THEN
5877: FND_MESSAGE.Set_Name('ENG','ENG_OBJECT_CANT_BE_NULL');
5878: FND_MESSAGE.Set_Token('OBJECT_NAME', 'p_status_code passed by workflow');
5879: FND_MSG_PUB.Add;
5880: RAISE FND_API.G_EXC_ERROR;
5881: END IF;
5882: -- update phase workflow status
5883: UPDATE eng_lifecycle_statuses
5884: SET workflow_status = p_route_status,
5915: END IF;
5916: Update_Header_Appr_Status
5917: (
5918: p_api_version => 1.0
5919: ,p_init_msg_list => FND_API.G_FALSE
5920: ,p_commit => FND_API.G_FALSE
5921: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5922: ,p_debug => FND_API.G_FALSE
5923: ,p_output_dir => p_output_dir
5916: Update_Header_Appr_Status
5917: (
5918: p_api_version => 1.0
5919: ,p_init_msg_list => FND_API.G_FALSE
5920: ,p_commit => FND_API.G_FALSE
5921: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5922: ,p_debug => FND_API.G_FALSE
5923: ,p_output_dir => p_output_dir
5924: ,p_debug_filename => p_debug_filename
5917: (
5918: p_api_version => 1.0
5919: ,p_init_msg_list => FND_API.G_FALSE
5920: ,p_commit => FND_API.G_FALSE
5921: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5922: ,p_debug => FND_API.G_FALSE
5923: ,p_output_dir => p_output_dir
5924: ,p_debug_filename => p_debug_filename
5925: ,x_return_status => l_return_status
5918: p_api_version => 1.0
5919: ,p_init_msg_list => FND_API.G_FALSE
5920: ,p_commit => FND_API.G_FALSE
5921: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5922: ,p_debug => FND_API.G_FALSE
5923: ,p_output_dir => p_output_dir
5924: ,p_debug_filename => p_debug_filename
5925: ,x_return_status => l_return_status
5926: ,x_msg_count => l_msg_count
5936: Write_Debug('After: calling Update_Header_Appr_Status: ' || l_return_status);
5937: END IF;
5938:
5939:
5940: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
5941: THEN
5942: x_return_status := l_return_status;
5943: x_msg_count := l_msg_count;
5944: x_msg_data := l_msg_data;
5941: THEN
5942: x_return_status := l_return_status;
5943: x_msg_count := l_msg_count;
5944: x_msg_data := l_msg_data;
5945: RAISE FND_API.G_EXC_ERROR;
5946: ELSE
5947: IF g_debug_flag THEN
5948: Write_Debug('Successful: calling Update_Header_Appr_Status');
5949: END IF;
5973: l_action_id := 0;
5974: -- create new action log
5975: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
5976: ( p_api_version => 1.0
5977: , p_init_msg_list => FND_API.G_FALSE --
5978: , p_commit => FND_API.G_FALSE --
5979: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5980: , p_debug => p_debug --FND_API.G_FALSE
5981: , p_output_dir => p_output_dir
5974: -- create new action log
5975: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
5976: ( p_api_version => 1.0
5977: , p_init_msg_list => FND_API.G_FALSE --
5978: , p_commit => FND_API.G_FALSE --
5979: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5980: , p_debug => p_debug --FND_API.G_FALSE
5981: , p_output_dir => p_output_dir
5982: , p_debug_filename => NULL
5975: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
5976: ( p_api_version => 1.0
5977: , p_init_msg_list => FND_API.G_FALSE --
5978: , p_commit => FND_API.G_FALSE --
5979: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5980: , p_debug => p_debug --FND_API.G_FALSE
5981: , p_output_dir => p_output_dir
5982: , p_debug_filename => NULL
5983: , x_return_status => l_return_status
5976: ( p_api_version => 1.0
5977: , p_init_msg_list => FND_API.G_FALSE --
5978: , p_commit => FND_API.G_FALSE --
5979: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5980: , p_debug => p_debug --FND_API.G_FALSE
5981: , p_output_dir => p_output_dir
5982: , p_debug_filename => NULL
5983: , x_return_status => l_return_status
5984: , x_msg_count => l_msg_count
6002: IF g_debug_flag THEN
6003: Write_Debug('After: saving action log: ' || l_return_status);
6004: Write_Debug('l_action_id : ' || l_action_id );
6005: END IF;
6006: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
6007: THEN
6008: x_return_status := l_return_status;
6009: x_msg_count := l_msg_count;
6010: x_msg_data := l_msg_data;
6010: x_msg_data := l_msg_data;
6011: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6012: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
6013: --#FND_MSG_PUB.Add;
6014: RAISE FND_API.G_EXC_ERROR;
6015: END IF;
6016: IF g_debug_flag THEN
6017: Write_Debug('Successful: saving action log');
6018: END IF;
6065: END IF;
6066:
6067: Demote_Header
6068: ( p_api_version => 1.0
6069: ,p_init_msg_list => FND_API.G_FALSE
6070: ,p_commit => FND_API.G_FALSE
6071: ,p_validation_level => p_validation_level
6072: ,p_debug => FND_API.G_FALSE
6073: ,p_output_dir => p_output_dir
6066:
6067: Demote_Header
6068: ( p_api_version => 1.0
6069: ,p_init_msg_list => FND_API.G_FALSE
6070: ,p_commit => FND_API.G_FALSE
6071: ,p_validation_level => p_validation_level
6072: ,p_debug => FND_API.G_FALSE
6073: ,p_output_dir => p_output_dir
6074: ,p_debug_filename => p_debug_filename
6068: ( p_api_version => 1.0
6069: ,p_init_msg_list => FND_API.G_FALSE
6070: ,p_commit => FND_API.G_FALSE
6071: ,p_validation_level => p_validation_level
6072: ,p_debug => FND_API.G_FALSE
6073: ,p_output_dir => p_output_dir
6074: ,p_debug_filename => p_debug_filename
6075: ,x_return_status => l_return_status
6076: ,x_msg_count => l_msg_count
6081: );
6082: IF g_debug_flag THEN
6083: Write_Debug('After: calling Demote_Header procedure: ' || l_return_status);
6084: END IF;
6085: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
6086: x_return_status := l_return_status;
6087: x_msg_count := l_msg_count;
6088: x_msg_data := l_msg_data;
6089: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6088: x_msg_data := l_msg_data;
6089: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6090: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
6091: --#FND_MSG_PUB.Add;
6092: RAISE FND_API.G_EXC_ERROR;
6093: END IF;
6094: IF g_debug_flag THEN
6095: Write_Debug('Successful: calling DEMOTE_HEADER procedure ');
6096: END IF;
6113: Write_Debug('Before: calling Refresh_WF_Route procedure ');
6114: END IF;
6115: Refresh_WF_Route
6116: ( p_api_version => 1.0
6117: ,p_init_msg_list => FND_API.G_FALSE
6118: ,p_commit => FND_API.G_FALSE --
6119: ,p_validation_level => p_validation_level
6120: ,p_debug => FND_API.G_FALSE
6121: ,p_output_dir => p_output_dir
6114: END IF;
6115: Refresh_WF_Route
6116: ( p_api_version => 1.0
6117: ,p_init_msg_list => FND_API.G_FALSE
6118: ,p_commit => FND_API.G_FALSE --
6119: ,p_validation_level => p_validation_level
6120: ,p_debug => FND_API.G_FALSE
6121: ,p_output_dir => p_output_dir
6122: ,p_debug_filename => p_debug_filename
6116: ( p_api_version => 1.0
6117: ,p_init_msg_list => FND_API.G_FALSE
6118: ,p_commit => FND_API.G_FALSE --
6119: ,p_validation_level => p_validation_level
6120: ,p_debug => FND_API.G_FALSE
6121: ,p_output_dir => p_output_dir
6122: ,p_debug_filename => p_debug_filename
6123: ,x_return_status => l_return_status
6124: ,x_msg_count => l_msg_count
6146: AND l_curr_status_type =12)
6147: THEN
6148: ENG_DOCUMENT_UTIL.Update_Approval_Status
6149: ( p_api_version => 1.0
6150: ,p_init_msg_list => FND_API.G_FALSE
6151: ,p_commit => FND_API.G_FALSE
6152: ,p_validation_level => p_validation_level
6153: ,p_debug => FND_API.G_FALSE
6154: ,p_output_dir => p_output_dir
6147: THEN
6148: ENG_DOCUMENT_UTIL.Update_Approval_Status
6149: ( p_api_version => 1.0
6150: ,p_init_msg_list => FND_API.G_FALSE
6151: ,p_commit => FND_API.G_FALSE
6152: ,p_validation_level => p_validation_level
6153: ,p_debug => FND_API.G_FALSE
6154: ,p_output_dir => p_output_dir
6155: ,p_debug_filename => p_debug_filename
6149: ( p_api_version => 1.0
6150: ,p_init_msg_list => FND_API.G_FALSE
6151: ,p_commit => FND_API.G_FALSE
6152: ,p_validation_level => p_validation_level
6153: ,p_debug => FND_API.G_FALSE
6154: ,p_output_dir => p_output_dir
6155: ,p_debug_filename => p_debug_filename
6156: ,x_return_status => l_return_status --
6157: ,x_msg_count => l_msg_count --
6167:
6168:
6169: ENG_DOCUMENT_UTIL.Update_Approval_Status
6170: ( p_api_version => 1.0
6171: ,p_init_msg_list => FND_API.G_FALSE
6172: ,p_commit => FND_API.G_FALSE
6173: ,p_validation_level => p_validation_level
6174: ,p_debug => FND_API.G_FALSE
6175: ,p_output_dir => p_output_dir
6168:
6169: ENG_DOCUMENT_UTIL.Update_Approval_Status
6170: ( p_api_version => 1.0
6171: ,p_init_msg_list => FND_API.G_FALSE
6172: ,p_commit => FND_API.G_FALSE
6173: ,p_validation_level => p_validation_level
6174: ,p_debug => FND_API.G_FALSE
6175: ,p_output_dir => p_output_dir
6176: ,p_debug_filename => p_debug_filename
6170: ( p_api_version => 1.0
6171: ,p_init_msg_list => FND_API.G_FALSE
6172: ,p_commit => FND_API.G_FALSE
6173: ,p_validation_level => p_validation_level
6174: ,p_debug => FND_API.G_FALSE
6175: ,p_output_dir => p_output_dir
6176: ,p_debug_filename => p_debug_filename
6177: ,x_return_status => l_return_status --
6178: ,x_msg_count => l_msg_count --
6183: ,p_api_caller => p_api_caller -- Optionnal for future use
6184: );
6185: END IF;
6186: -- Standard ending code ------------------------------------------------
6187: IF FND_API.To_Boolean ( p_commit ) THEN
6188: COMMIT WORK;
6189: END IF;
6190:
6191: FND_MSG_PUB.Count_And_Get
6195: IF g_debug_flag THEN
6196: Write_Debug('Finish. End Of procedure: Update_Lifecycle_States');
6197: END IF;
6198:
6199: IF FND_API.to_Boolean( p_debug ) THEN
6200: Close_Debug_Session;
6201: END IF;
6202:
6203: EXCEPTION
6200: Close_Debug_Session;
6201: END IF;
6202:
6203: EXCEPTION
6204: WHEN FND_API.G_EXC_ERROR THEN
6205: --ROLLBACK TO Update_Lifecycle_States;
6206: x_return_status := FND_API.G_RET_STS_ERROR;
6207: FND_MSG_PUB.Count_And_Get
6208: ( p_count => x_msg_count
6202:
6203: EXCEPTION
6204: WHEN FND_API.G_EXC_ERROR THEN
6205: --ROLLBACK TO Update_Lifecycle_States;
6206: x_return_status := FND_API.G_RET_STS_ERROR;
6207: FND_MSG_PUB.Count_And_Get
6208: ( p_count => x_msg_count
6209: ,p_data => x_msg_data );
6210: IF g_debug_flag THEN
6209: ,p_data => x_msg_data );
6210: IF g_debug_flag THEN
6211: Write_Debug('Rollback and Finish with expected error.') ;
6212: END IF;
6213: IF FND_API.to_Boolean( p_debug ) THEN
6214: Close_Debug_Session;
6215: END IF;
6216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6217: --ROLLBACK TO Update_Lifecycle_States;
6212: END IF;
6213: IF FND_API.to_Boolean( p_debug ) THEN
6214: Close_Debug_Session;
6215: END IF;
6216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6217: --ROLLBACK TO Update_Lifecycle_States;
6218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6219: FND_MSG_PUB.Count_And_Get
6220: ( p_count => x_msg_count
6214: Close_Debug_Session;
6215: END IF;
6216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6217: --ROLLBACK TO Update_Lifecycle_States;
6218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6219: FND_MSG_PUB.Count_And_Get
6220: ( p_count => x_msg_count
6221: ,p_data => x_msg_data );
6222: IF g_debug_flag THEN
6221: ,p_data => x_msg_data );
6222: IF g_debug_flag THEN
6223: Write_Debug('Rollback and Finish with unexpected error.') ;
6224: END IF;
6225: IF FND_API.to_Boolean( p_debug ) THEN
6226: Close_Debug_Session;
6227: END IF;
6228: WHEN OTHERS THEN
6229: --ROLLBACK TO Update_Lifecycle_States;
6226: Close_Debug_Session;
6227: END IF;
6228: WHEN OTHERS THEN
6229: --ROLLBACK TO Update_Lifecycle_States;
6230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6231: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6232: THEN
6233: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6234: END IF;
6237: ,p_data => x_msg_data );
6238: IF g_debug_flag THEN
6239: Write_Debug('Rollback and Finish with other error.') ;
6240: END IF;
6241: IF FND_API.to_Boolean( p_debug ) THEN
6242: Close_Debug_Session;
6243: END IF;
6244: END Update_Lifecycle_States;
6245:
6248: -- change header, called by WF only
6249: PROCEDURE Refresh_WF_Route
6250: (
6251: p_api_version IN NUMBER --
6252: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6253: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6254: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6255: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6256: ,p_output_dir IN VARCHAR2 := NULL
6249: PROCEDURE Refresh_WF_Route
6250: (
6251: p_api_version IN NUMBER --
6252: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6253: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6254: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6255: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6256: ,p_output_dir IN VARCHAR2 := NULL
6257: ,p_debug_filename IN VARCHAR2 := NULL
6250: (
6251: p_api_version IN NUMBER --
6252: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6253: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6254: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6255: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6256: ,p_output_dir IN VARCHAR2 := NULL
6257: ,p_debug_filename IN VARCHAR2 := NULL
6258: ,x_return_status OUT NOCOPY VARCHAR2 --
6251: p_api_version IN NUMBER --
6252: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6253: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6254: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6255: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6256: ,p_output_dir IN VARCHAR2 := NULL
6257: ,p_debug_filename IN VARCHAR2 := NULL
6258: ,x_return_status OUT NOCOPY VARCHAR2 --
6259: ,x_msg_count OUT NOCOPY NUMBER --
6291: BEGIN
6292: -- Standard Start of API savepoint
6293: SAVEPOINT Refresh_WF_Route;
6294: -- Standard call to check for call compatibility
6295: IF NOT FND_API.Compatible_API_Call ( l_api_version
6296: ,p_api_version
6297: ,l_api_name
6298: ,G_PKG_NAME )
6299: THEN
6296: ,p_api_version
6297: ,l_api_name
6298: ,G_PKG_NAME )
6299: THEN
6300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6301: END IF;
6302: -- Initialize message list if p_init_msg_list is set to TRUE.
6303: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6304: FND_MSG_PUB.initialize;
6299: THEN
6300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6301: END IF;
6302: -- Initialize message list if p_init_msg_list is set to TRUE.
6303: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6304: FND_MSG_PUB.initialize;
6305: END IF;
6306:
6307:
6307:
6308: -- For Test/Debug
6309: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
6310: -- R12 Comment out
6311: -- IF FND_API.to_Boolean( p_debug ) THEN
6312: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
6313: -- END IF;
6314:
6315: -- Write debug message if debug mode is on
6329: Write_Debug('Initializing return status... ' );
6330: END IF;
6331:
6332: -- Initialize API return status to success
6333: x_return_status := FND_API.G_RET_STS_SUCCESS;
6334:
6335: -- FND_PROFILE package is not available for workflow (WF),
6336: -- therefore manually set WHO column values
6337: IF p_api_caller = 'WF' THEN
6357: -- Make sure a workflow is already associated with the current phase
6358: IF (l_wf_route_id IS NULL) THEN
6359: FND_MESSAGE.Set_Name('ENG','ENG_WF_NOT_DEFINED_ON_PHASE');
6360: FND_MSG_PUB.Add;
6361: RAISE FND_API.G_EXC_ERROR;
6362: END IF;
6363: */
6364:
6365: -- if passed wf route id is null, it means to generate new id
6415: -- One and only one record should be found with the cursor
6416: IF (l_row_counter <> 1) THEN
6417: FND_MESSAGE.Set_Name('ENG','ENG_NOT_EXACTLY_ONE_RECORD');
6418: FND_MSG_PUB.Add;
6419: RAISE FND_API.G_EXC_ERROR;
6420: END IF;
6421:
6422: -- Standard ending code ------------------------------------------------
6423: IF FND_API.To_Boolean ( p_commit ) THEN
6419: RAISE FND_API.G_EXC_ERROR;
6420: END IF;
6421:
6422: -- Standard ending code ------------------------------------------------
6423: IF FND_API.To_Boolean ( p_commit ) THEN
6424: COMMIT WORK;
6425: END IF;
6426:
6427: FND_MSG_PUB.Count_And_Get
6431: IF g_debug_flag THEN
6432: Write_Debug('Finish. End Of procedure: Refresh_WF_Route') ;
6433: END IF;
6434:
6435: IF FND_API.to_Boolean( p_debug ) THEN
6436: Close_Debug_Session;
6437: END IF;
6438:
6439: EXCEPTION
6436: Close_Debug_Session;
6437: END IF;
6438:
6439: EXCEPTION
6440: WHEN FND_API.G_EXC_ERROR THEN
6441: --ROLLBACK TO Refresh_WF_Route;
6442: x_return_status := FND_API.G_RET_STS_ERROR;
6443: FND_MSG_PUB.Count_And_Get
6444: ( p_count => x_msg_count
6438:
6439: EXCEPTION
6440: WHEN FND_API.G_EXC_ERROR THEN
6441: --ROLLBACK TO Refresh_WF_Route;
6442: x_return_status := FND_API.G_RET_STS_ERROR;
6443: FND_MSG_PUB.Count_And_Get
6444: ( p_count => x_msg_count
6445: ,p_data => x_msg_data );
6446: IF g_debug_flag THEN
6445: ,p_data => x_msg_data );
6446: IF g_debug_flag THEN
6447: Write_Debug('Rollback and Finish with expected error.') ;
6448: END IF;
6449: IF FND_API.to_Boolean( p_debug ) THEN
6450: Close_Debug_Session;
6451: END IF;
6452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6453: --ROLLBACK TO Refresh_WF_Route;
6448: END IF;
6449: IF FND_API.to_Boolean( p_debug ) THEN
6450: Close_Debug_Session;
6451: END IF;
6452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6453: --ROLLBACK TO Refresh_WF_Route;
6454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6455: FND_MSG_PUB.Count_And_Get
6456: ( p_count => x_msg_count
6450: Close_Debug_Session;
6451: END IF;
6452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6453: --ROLLBACK TO Refresh_WF_Route;
6454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6455: FND_MSG_PUB.Count_And_Get
6456: ( p_count => x_msg_count
6457: ,p_data => x_msg_data );
6458: IF g_debug_flag THEN
6457: ,p_data => x_msg_data );
6458: IF g_debug_flag THEN
6459: Write_Debug('Rollback and Finish with unexpected error.') ;
6460: END IF;
6461: IF FND_API.to_Boolean( p_debug ) THEN
6462: Close_Debug_Session;
6463: END IF;
6464: WHEN OTHERS THEN
6465: --ROLLBACK TO Refresh_WF_Route;
6462: Close_Debug_Session;
6463: END IF;
6464: WHEN OTHERS THEN
6465: --ROLLBACK TO Refresh_WF_Route;
6466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6467: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6468: THEN
6469: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6470: END IF;
6473: ,p_data => x_msg_data );
6474: IF g_debug_flag THEN
6475: Write_Debug('Rollback and Finish with other error.') ;
6476: END IF;
6477: IF FND_API.to_Boolean( p_debug ) THEN
6478: Close_Debug_Session;
6479: END IF;
6480:
6481: END Refresh_WF_Route;
6489: -- In R12, Added p_init_option 'WF_ONLY' Start Only WF
6490: PROCEDURE Init_Lifecycle
6491: (
6492: p_api_version IN NUMBER --
6493: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6494: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6495: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6496: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6497: ,p_output_dir IN VARCHAR2 := NULL
6490: PROCEDURE Init_Lifecycle
6491: (
6492: p_api_version IN NUMBER --
6493: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6494: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6495: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6496: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6497: ,p_output_dir IN VARCHAR2 := NULL
6498: ,p_debug_filename IN VARCHAR2 := NULL
6491: (
6492: p_api_version IN NUMBER --
6493: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6494: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6495: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6496: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6497: ,p_output_dir IN VARCHAR2 := NULL
6498: ,p_debug_filename IN VARCHAR2 := NULL
6499: ,x_return_status OUT NOCOPY VARCHAR2 --
6492: p_api_version IN NUMBER --
6493: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6494: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6495: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6496: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6497: ,p_output_dir IN VARCHAR2 := NULL
6498: ,p_debug_filename IN VARCHAR2 := NULL
6499: ,x_return_status OUT NOCOPY VARCHAR2 --
6500: ,x_msg_count OUT NOCOPY NUMBER --
6564: BEGIN
6565: -- Standard Start of API savepoint
6566: SAVEPOINT Init_Lifecycle;
6567: -- Standard call to check for call compatibility
6568: IF NOT FND_API.Compatible_API_Call ( l_api_version
6569: ,p_api_version
6570: ,l_api_name
6571: ,G_PKG_NAME )
6572: THEN
6569: ,p_api_version
6570: ,l_api_name
6571: ,G_PKG_NAME )
6572: THEN
6573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6574: END IF;
6575: -- Initialize message list if p_init_msg_list is set to TRUE.
6576: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6577: FND_MSG_PUB.initialize;
6572: THEN
6573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6574: END IF;
6575: -- Initialize message list if p_init_msg_list is set to TRUE.
6576: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6577: FND_MSG_PUB.initialize;
6578: END IF;
6579:
6580: -- For Test/Debug
6579:
6580: -- For Test/Debug
6581: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
6582: -- R12 Comment out
6583: -- IF FND_API.to_Boolean( p_debug ) THEN
6584: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
6585: -- END IF;
6586:
6587: -- Write debug message if debug mode is on
6595: Write_Debug('Initializing return status... ' );
6596: END IF;
6597:
6598: -- Initialize API return status to success
6599: x_return_status := FND_API.G_RET_STS_SUCCESS;
6600:
6601: -- FND_PROFILE package is not available for workflow (WF),
6602: -- therefore manually set WHO column values
6603: IF p_api_caller = 'WF' THEN
6677: -- Sanity check
6678: IF (l_sequence_number <> l_initial_phase_sn) THEN
6679: FND_MESSAGE.Set_Name('ENG','ENG_CURR_PHASE_NOT_FIRST');
6680: FND_MSG_PUB.Add;
6681: RAISE FND_API.G_EXC_ERROR;
6682: END IF;
6683: IF g_debug_flag THEN
6684: Write_Debug('After: sanity check of the current phase as the first phase');
6685: END IF;
6755: l_action_id := 0;
6756: -- create new action log
6757: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
6758: ( p_api_version => 1.0
6759: , p_init_msg_list => FND_API.G_FALSE --
6760: , p_commit => FND_API.G_FALSE --
6761: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
6762: , p_debug => p_debug --FND_API.G_FALSE
6763: , p_output_dir => p_output_dir
6756: -- create new action log
6757: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
6758: ( p_api_version => 1.0
6759: , p_init_msg_list => FND_API.G_FALSE --
6760: , p_commit => FND_API.G_FALSE --
6761: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
6762: , p_debug => p_debug --FND_API.G_FALSE
6763: , p_output_dir => p_output_dir
6764: , p_debug_filename => 'engact.CreateAction.log'
6757: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
6758: ( p_api_version => 1.0
6759: , p_init_msg_list => FND_API.G_FALSE --
6760: , p_commit => FND_API.G_FALSE --
6761: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
6762: , p_debug => p_debug --FND_API.G_FALSE
6763: , p_output_dir => p_output_dir
6764: , p_debug_filename => 'engact.CreateAction.log'
6765: , x_return_status => l_return_status
6758: ( p_api_version => 1.0
6759: , p_init_msg_list => FND_API.G_FALSE --
6760: , p_commit => FND_API.G_FALSE --
6761: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
6762: , p_debug => p_debug --FND_API.G_FALSE
6763: , p_output_dir => p_output_dir
6764: , p_debug_filename => 'engact.CreateAction.log'
6765: , x_return_status => l_return_status
6766: , x_msg_count => l_msg_count
6783: IF g_debug_flag THEN
6784: Write_Debug('After: saving action log: ' || l_return_status);
6785: Write_Debug('l_action_id : ' || l_action_id );
6786: END IF;
6787: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
6788: THEN
6789: x_return_status := l_return_status;
6790: x_msg_count := l_msg_count;
6791: x_msg_data := l_msg_data;
6791: x_msg_data := l_msg_data;
6792: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6793: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
6794: --#FND_MSG_PUB.Add;
6795: RAISE FND_API.G_EXC_ERROR;
6796: END IF;
6797: IF g_debug_flag THEN
6798: Write_Debug('Successful: saving action log');
6799: END IF;
6872:
6873: ENG_ECO_UTIL.Propagate_ECO
6874: (
6875: p_api_version => 1.0
6876: ,p_init_msg_list => FND_API.G_FALSE
6877: ,p_commit => FND_API.G_FALSE
6878: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6879: ,p_debug => p_debug --FND_API.G_FALSE
6880: ,p_output_dir => p_output_dir
6873: ENG_ECO_UTIL.Propagate_ECO
6874: (
6875: p_api_version => 1.0
6876: ,p_init_msg_list => FND_API.G_FALSE
6877: ,p_commit => FND_API.G_FALSE
6878: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6879: ,p_debug => p_debug --FND_API.G_FALSE
6880: ,p_output_dir => p_output_dir
6881: ,p_debug_filename => NULL --p_debug_filename
6874: (
6875: p_api_version => 1.0
6876: ,p_init_msg_list => FND_API.G_FALSE
6877: ,p_commit => FND_API.G_FALSE
6878: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6879: ,p_debug => p_debug --FND_API.G_FALSE
6880: ,p_output_dir => p_output_dir
6881: ,p_debug_filename => NULL --p_debug_filename
6882: ,x_return_status => l_return_status
6875: p_api_version => 1.0
6876: ,p_init_msg_list => FND_API.G_FALSE
6877: ,p_commit => FND_API.G_FALSE
6878: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6879: ,p_debug => p_debug --FND_API.G_FALSE
6880: ,p_output_dir => p_output_dir
6881: ,p_debug_filename => NULL --p_debug_filename
6882: ,x_return_status => l_return_status
6883: ,x_msg_count => l_msg_count
6892: IF g_debug_flag THEN
6893: Write_Debug('After: calling propagate_eco API: ' || l_return_status);
6894: END IF;
6895:
6896: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
6897: x_return_status := l_return_status;
6898: x_msg_count := l_msg_count;
6899: x_msg_data := l_msg_data;
6900: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6899: x_msg_data := l_msg_data;
6900: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6901: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Propagate_ECO');
6902: --#FND_MSG_PUB.Add;
6903: RAISE FND_API.G_EXC_ERROR;
6904: END IF;
6905:
6906: IF g_debug_flag THEN
6907: Write_Debug('Successful: calling propagate_eco API');
6917: -- In case of Auto-Propgation Action Log
6918: -- Who column is Workflow
6919: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
6920: ( p_api_version => 1.0
6921: , p_init_msg_list => FND_API.G_FALSE --
6922: , p_commit => FND_API.G_FALSE --
6923: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
6924: , p_debug => p_debug --FND_API.G_FALSE
6925: , p_output_dir => p_output_dir
6918: -- Who column is Workflow
6919: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
6920: ( p_api_version => 1.0
6921: , p_init_msg_list => FND_API.G_FALSE --
6922: , p_commit => FND_API.G_FALSE --
6923: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
6924: , p_debug => p_debug --FND_API.G_FALSE
6925: , p_output_dir => p_output_dir
6926: , p_debug_filename => NULL
6919: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
6920: ( p_api_version => 1.0
6921: , p_init_msg_list => FND_API.G_FALSE --
6922: , p_commit => FND_API.G_FALSE --
6923: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
6924: , p_debug => p_debug --FND_API.G_FALSE
6925: , p_output_dir => p_output_dir
6926: , p_debug_filename => NULL
6927: , x_return_status => l_return_status
6920: ( p_api_version => 1.0
6921: , p_init_msg_list => FND_API.G_FALSE --
6922: , p_commit => FND_API.G_FALSE --
6923: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
6924: , p_debug => p_debug --FND_API.G_FALSE
6925: , p_output_dir => p_output_dir
6926: , p_debug_filename => NULL
6927: , x_return_status => l_return_status
6928: , x_msg_count => l_msg_count
6947: Write_Debug('After: saving action log: ' || l_return_status);
6948: Write_Debug('l_action_id : ' || l_action_id );
6949: END IF;
6950:
6951: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
6952: THEN
6953: x_return_status := l_return_status;
6954: x_msg_count := l_msg_count;
6955: x_msg_data := l_msg_data;
6955: x_msg_data := l_msg_data;
6956: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6957: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
6958: --#FND_MSG_PUB.Add;
6959: RAISE FND_API.G_EXC_ERROR;
6960: END IF;
6961: IF g_debug_flag THEN
6962: Write_Debug('Successful: saving action log');
6963: END IF;
6979:
6980: -- Start workflow for new phase if necessary
6981: Start_WF_OnlyIf_Necessary
6982: ( p_api_version => 1.0
6983: ,p_init_msg_list => FND_API.G_FALSE
6984: ,p_commit => FND_API.G_FALSE
6985: ,p_validation_level => p_validation_level
6986: ,p_debug => FND_API.G_FALSE
6987: ,p_output_dir => p_output_dir
6980: -- Start workflow for new phase if necessary
6981: Start_WF_OnlyIf_Necessary
6982: ( p_api_version => 1.0
6983: ,p_init_msg_list => FND_API.G_FALSE
6984: ,p_commit => FND_API.G_FALSE
6985: ,p_validation_level => p_validation_level
6986: ,p_debug => FND_API.G_FALSE
6987: ,p_output_dir => p_output_dir
6988: ,p_debug_filename => p_debug_filename
6982: ( p_api_version => 1.0
6983: ,p_init_msg_list => FND_API.G_FALSE
6984: ,p_commit => FND_API.G_FALSE
6985: ,p_validation_level => p_validation_level
6986: ,p_debug => FND_API.G_FALSE
6987: ,p_output_dir => p_output_dir
6988: ,p_debug_filename => p_debug_filename
6989: ,x_return_status => l_return_status
6990: ,x_msg_count => l_msg_count
7001: IF g_debug_flag THEN
7002: Write_Debug('After call to procedure Start_WF_OnlyIf_Necessary: ' || l_return_status);
7003: END IF;
7004:
7005: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
7006: x_return_status := l_return_status;
7007: x_msg_count := l_msg_count;
7008: x_msg_data := l_msg_data;
7009: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
7007: x_msg_count := l_msg_count;
7008: x_msg_data := l_msg_data;
7009: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
7010: --#FND_MSG_PUB.Add;
7011: RAISE FND_API.G_EXC_ERROR;
7012: END IF;
7013:
7014: -- Standard ending code ------------------------------------------------
7015: IF FND_API.To_Boolean ( p_commit ) THEN
7011: RAISE FND_API.G_EXC_ERROR;
7012: END IF;
7013:
7014: -- Standard ending code ------------------------------------------------
7015: IF FND_API.To_Boolean ( p_commit ) THEN
7016: COMMIT WORK;
7017: END IF;
7018:
7019: FND_MSG_PUB.Count_And_Get
7023: IF g_debug_flag THEN
7024: Write_Debug('Finish. End Of procedure: Init_Lifecycle') ;
7025: END IF;
7026:
7027: IF FND_API.to_Boolean( p_debug ) THEN
7028: Close_Debug_Session;
7029: END IF;
7030:
7031: EXCEPTION
7028: Close_Debug_Session;
7029: END IF;
7030:
7031: EXCEPTION
7032: WHEN FND_API.G_EXC_ERROR THEN
7033: --ROLLBACK TO Init_Lifecycle;
7034: x_return_status := FND_API.G_RET_STS_ERROR;
7035: FND_MSG_PUB.Count_And_Get
7036: ( p_count => x_msg_count
7030:
7031: EXCEPTION
7032: WHEN FND_API.G_EXC_ERROR THEN
7033: --ROLLBACK TO Init_Lifecycle;
7034: x_return_status := FND_API.G_RET_STS_ERROR;
7035: FND_MSG_PUB.Count_And_Get
7036: ( p_count => x_msg_count
7037: ,p_data => x_msg_data );
7038: IF g_debug_flag THEN
7037: ,p_data => x_msg_data );
7038: IF g_debug_flag THEN
7039: Write_Debug('Rollback and Finish with expected error.') ;
7040: END IF;
7041: IF FND_API.to_Boolean( p_debug ) THEN
7042: Close_Debug_Session;
7043: END IF;
7044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7045: --ROLLBACK TO Init_Lifecycle;
7040: END IF;
7041: IF FND_API.to_Boolean( p_debug ) THEN
7042: Close_Debug_Session;
7043: END IF;
7044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7045: --ROLLBACK TO Init_Lifecycle;
7046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7047: FND_MSG_PUB.Count_And_Get
7048: ( p_count => x_msg_count
7042: Close_Debug_Session;
7043: END IF;
7044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7045: --ROLLBACK TO Init_Lifecycle;
7046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7047: FND_MSG_PUB.Count_And_Get
7048: ( p_count => x_msg_count
7049: ,p_data => x_msg_data );
7050: IF g_debug_flag THEN
7049: ,p_data => x_msg_data );
7050: IF g_debug_flag THEN
7051: Write_Debug('Rollback and Finish with unexpected error.') ;
7052: END IF;
7053: IF FND_API.to_Boolean( p_debug ) THEN
7054: Close_Debug_Session;
7055: END IF;
7056: WHEN OTHERS THEN
7057: --ROLLBACK TO Init_Lifecycle;
7054: Close_Debug_Session;
7055: END IF;
7056: WHEN OTHERS THEN
7057: --ROLLBACK TO Init_Lifecycle;
7058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7059: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7060: THEN
7061: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7062: END IF;
7065: ,p_data => x_msg_data );
7066: IF g_debug_flag THEN
7067: Write_Debug('Rollback and Finish with other error.') ;
7068: END IF;
7069: IF FND_API.to_Boolean( p_debug ) THEN
7070: Close_Debug_Session;
7071: END IF;
7072:
7073: END Init_Lifecycle;
7079: -- program to set its status_type
7080: PROCEDURE Update_RevItem_Lifecycle
7081: (
7082: p_api_version IN NUMBER --
7083: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7084: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7085: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7086: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7087: ,p_output_dir IN VARCHAR2 := NULL
7080: PROCEDURE Update_RevItem_Lifecycle
7081: (
7082: p_api_version IN NUMBER --
7083: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7084: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7085: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7086: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7087: ,p_output_dir IN VARCHAR2 := NULL
7088: ,p_debug_filename IN VARCHAR2 := NULL
7081: (
7082: p_api_version IN NUMBER --
7083: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7084: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7085: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7086: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7087: ,p_output_dir IN VARCHAR2 := NULL
7088: ,p_debug_filename IN VARCHAR2 := NULL
7089: ,x_return_status OUT NOCOPY VARCHAR2 --
7082: p_api_version IN NUMBER --
7083: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7084: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7085: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7086: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7087: ,p_output_dir IN VARCHAR2 := NULL
7088: ,p_debug_filename IN VARCHAR2 := NULL
7089: ,x_return_status OUT NOCOPY VARCHAR2 --
7090: ,x_msg_count OUT NOCOPY NUMBER --
7107: BEGIN
7108: -- Standard Start of API savepoint
7109: --SAVEPOINT Update_RevItem_Lifecycle;
7110: -- Standard call to check for call compatibility
7111: IF NOT FND_API.Compatible_API_Call ( l_api_version
7112: ,p_api_version
7113: ,l_api_name
7114: ,G_PKG_NAME )
7115: THEN
7112: ,p_api_version
7113: ,l_api_name
7114: ,G_PKG_NAME )
7115: THEN
7116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7117: END IF;
7118: -- Initialize message list if p_init_msg_list is set to TRUE.
7119: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7120: FND_MSG_PUB.initialize;
7115: THEN
7116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7117: END IF;
7118: -- Initialize message list if p_init_msg_list is set to TRUE.
7119: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7120: FND_MSG_PUB.initialize;
7121: END IF;
7122:
7123:
7123:
7124: -- For Test/Debug
7125: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
7126: -- R12 Comment out
7127: -- IF FND_API.to_Boolean( p_debug ) THEN
7128: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
7129: -- END IF;
7130:
7131: -- Write debug message if debug mode is on
7138: Write_Debug('Initializing return status... ' );
7139: END IF;
7140:
7141: -- Initialize API return status to success
7142: x_return_status := FND_API.G_RET_STS_SUCCESS;
7143:
7144: -- FND_PROFILE package is not available for workflow (WF),
7145: -- therefore manually set WHO column values
7146: IF p_api_caller = 'WF' THEN
7161: WHERE revised_item_sequence_id = p_rev_item_seq_id;
7162:
7163:
7164: -- Standard ending code ------------------------------------------------
7165: IF FND_API.To_Boolean ( p_commit ) THEN
7166: COMMIT WORK;
7167: END IF;
7168:
7169: FND_MSG_PUB.Count_And_Get
7173: IF g_debug_flag THEN
7174: Write_Debug('Finish. End Of procedure: Update_RevItem_Lifecycle') ;
7175: END IF;
7176:
7177: IF FND_API.to_Boolean( p_debug ) THEN
7178: Close_Debug_Session;
7179: END IF;
7180:
7181: EXCEPTION
7178: Close_Debug_Session;
7179: END IF;
7180:
7181: EXCEPTION
7182: WHEN FND_API.G_EXC_ERROR THEN
7183: --ROLLBACK TO Update_RevItem_Lifecycle;
7184: x_return_status := FND_API.G_RET_STS_ERROR;
7185: FND_MSG_PUB.Count_And_Get
7186: ( p_count => x_msg_count
7180:
7181: EXCEPTION
7182: WHEN FND_API.G_EXC_ERROR THEN
7183: --ROLLBACK TO Update_RevItem_Lifecycle;
7184: x_return_status := FND_API.G_RET_STS_ERROR;
7185: FND_MSG_PUB.Count_And_Get
7186: ( p_count => x_msg_count
7187: ,p_data => x_msg_data );
7188: IF g_debug_flag THEN
7187: ,p_data => x_msg_data );
7188: IF g_debug_flag THEN
7189: Write_Debug('Rollback and Finish with expected error.') ;
7190: END IF;
7191: IF FND_API.to_Boolean( p_debug ) THEN
7192: Close_Debug_Session;
7193: END IF;
7194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7195: --ROLLBACK TO Update_RevItem_Lifecycle;
7190: END IF;
7191: IF FND_API.to_Boolean( p_debug ) THEN
7192: Close_Debug_Session;
7193: END IF;
7194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7195: --ROLLBACK TO Update_RevItem_Lifecycle;
7196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7197: FND_MSG_PUB.Count_And_Get
7198: ( p_count => x_msg_count
7192: Close_Debug_Session;
7193: END IF;
7194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7195: --ROLLBACK TO Update_RevItem_Lifecycle;
7196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7197: FND_MSG_PUB.Count_And_Get
7198: ( p_count => x_msg_count
7199: ,p_data => x_msg_data );
7200: IF g_debug_flag THEN
7199: ,p_data => x_msg_data );
7200: IF g_debug_flag THEN
7201: Write_Debug('Rollback and Finish with unexpected error.') ;
7202: END IF;
7203: IF FND_API.to_Boolean( p_debug ) THEN
7204: Close_Debug_Session;
7205: END IF;
7206: WHEN OTHERS THEN
7207: --ROLLBACK TO Update_RevItem_Lifecycle;
7204: Close_Debug_Session;
7205: END IF;
7206: WHEN OTHERS THEN
7207: --ROLLBACK TO Update_RevItem_Lifecycle;
7208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7209: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7210: THEN
7211: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7212: END IF;
7215: ,p_data => x_msg_data );
7216: IF g_debug_flag THEN
7217: Write_Debug('Rollback and Finish with other error.') ;
7218: END IF;
7219: IF FND_API.to_Boolean( p_debug ) THEN
7220: Close_Debug_Session;
7221: END IF;
7222:
7223: END Update_RevItem_Lifecycle;
7232: -- If Change Object is Document LC Object, Call Document API to reset the phase
7233: PROCEDURE Reset_Phase
7234: (
7235: p_api_version IN NUMBER --
7236: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7237: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7238: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7239: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7240: ,p_output_dir IN VARCHAR2 := NULL
7233: PROCEDURE Reset_Phase
7234: (
7235: p_api_version IN NUMBER --
7236: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7237: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7238: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7239: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7240: ,p_output_dir IN VARCHAR2 := NULL
7241: ,p_debug_filename IN VARCHAR2 := NULL
7234: (
7235: p_api_version IN NUMBER --
7236: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7237: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7238: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7239: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7240: ,p_output_dir IN VARCHAR2 := NULL
7241: ,p_debug_filename IN VARCHAR2 := NULL
7242: ,x_return_status OUT NOCOPY VARCHAR2 --
7235: p_api_version IN NUMBER --
7236: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7237: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7238: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7239: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7240: ,p_output_dir IN VARCHAR2 := NULL
7241: ,p_debug_filename IN VARCHAR2 := NULL
7242: ,x_return_status OUT NOCOPY VARCHAR2 --
7243: ,x_msg_count OUT NOCOPY NUMBER --
7293:
7294: -- Standard Start of API savepoint
7295: SAVEPOINT Reset_Phase ;
7296: -- Standard call to check for call compatibility
7297: IF NOT FND_API.Compatible_API_Call ( l_api_version
7298: ,p_api_version
7299: ,l_api_name
7300: ,G_PKG_NAME )
7301: THEN
7298: ,p_api_version
7299: ,l_api_name
7300: ,G_PKG_NAME )
7301: THEN
7302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7303: END IF;
7304:
7305: -- Initialize message list if p_init_msg_list is set to TRUE.
7306: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7303: END IF;
7304:
7305: -- Initialize message list if p_init_msg_list is set to TRUE.
7306: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7307: FND_MSG_PUB.initialize;
7308: END IF;
7309:
7310:
7323: Write_Debug('Initializing return status... ' );
7324: END IF;
7325:
7326: -- Initialize API return status to success
7327: x_return_status := FND_API.G_RET_STS_SUCCESS;
7328:
7329: -- FND_PROFILE package is not available for workflow (WF),
7330: -- therefore manually set WHO column values
7331: IF p_api_caller = 'WF' THEN
7366: IF l_reset_status_code IS NULL THEN
7367: -- This should not happen
7368: FND_MESSAGE.SET_NAME('ENG', 'ENG_STATUS_CODE_NULL') ;
7369: FND_MSG_PUB.Add ;
7370: RAISE FND_API.G_EXC_ERROR ;
7371: END IF ;
7372:
7373: IF (p_status_code IS NOT NULL AND l_reset_status_code <> p_status_code )
7374: THEN
7375:
7376: -- This should not happen
7377: FND_MESSAGE.SET_NAME('ENG', 'ENG_RESET_STATUS_NOT_CUR') ;
7378: FND_MSG_PUB.Add ;
7379: RAISE FND_API.G_EXC_ERROR ;
7380:
7381: END IF ;
7382:
7383: -- Get the current phase status_type
7413: -- Launch header approval status change workflow
7414: Update_Header_Appr_Status
7415: (
7416: p_api_version => 1.0
7417: ,p_init_msg_list => FND_API.G_FALSE
7418: ,p_commit => FND_API.G_FALSE
7419: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7420: ,p_debug => FND_API.G_FALSE
7421: ,p_output_dir => p_output_dir
7414: Update_Header_Appr_Status
7415: (
7416: p_api_version => 1.0
7417: ,p_init_msg_list => FND_API.G_FALSE
7418: ,p_commit => FND_API.G_FALSE
7419: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7420: ,p_debug => FND_API.G_FALSE
7421: ,p_output_dir => p_output_dir
7422: ,p_debug_filename => p_debug_filename
7415: (
7416: p_api_version => 1.0
7417: ,p_init_msg_list => FND_API.G_FALSE
7418: ,p_commit => FND_API.G_FALSE
7419: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7420: ,p_debug => FND_API.G_FALSE
7421: ,p_output_dir => p_output_dir
7422: ,p_debug_filename => p_debug_filename
7423: ,x_return_status => l_return_status
7416: p_api_version => 1.0
7417: ,p_init_msg_list => FND_API.G_FALSE
7418: ,p_commit => FND_API.G_FALSE
7419: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7420: ,p_debug => FND_API.G_FALSE
7421: ,p_output_dir => p_output_dir
7422: ,p_debug_filename => p_debug_filename
7423: ,x_return_status => l_return_status
7424: ,x_msg_count => l_msg_count
7434:
7435:
7436: ENG_DOCUMENT_UTIL.Update_Approval_Status
7437: ( p_api_version => 1.0
7438: ,p_init_msg_list => FND_API.G_FALSE
7439: ,p_commit => FND_API.G_FALSE
7440: ,p_validation_level => p_validation_level
7441: ,p_debug => FND_API.G_FALSE
7442: ,p_output_dir => p_output_dir
7435:
7436: ENG_DOCUMENT_UTIL.Update_Approval_Status
7437: ( p_api_version => 1.0
7438: ,p_init_msg_list => FND_API.G_FALSE
7439: ,p_commit => FND_API.G_FALSE
7440: ,p_validation_level => p_validation_level
7441: ,p_debug => FND_API.G_FALSE
7442: ,p_output_dir => p_output_dir
7443: ,p_debug_filename => p_debug_filename
7437: ( p_api_version => 1.0
7438: ,p_init_msg_list => FND_API.G_FALSE
7439: ,p_commit => FND_API.G_FALSE
7440: ,p_validation_level => p_validation_level
7441: ,p_debug => FND_API.G_FALSE
7442: ,p_output_dir => p_output_dir
7443: ,p_debug_filename => p_debug_filename
7444: ,x_return_status => l_return_status --
7445: ,x_msg_count => l_msg_count --
7456: Write_Debug('After: Update_Header_Appr_Status: ' || l_return_status );
7457: END IF;
7458:
7459:
7460: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
7461: THEN
7462: x_return_status := l_return_status;
7463: x_msg_count := l_msg_count;
7464: x_msg_data := l_msg_data;
7461: THEN
7462: x_return_status := l_return_status;
7463: x_msg_count := l_msg_count;
7464: x_msg_data := l_msg_data;
7465: RAISE FND_API.G_EXC_ERROR;
7466: END IF;
7467:
7468: IF g_debug_flag THEN
7469: Write_Debug('After: calling Update_Header_Appr_Status');
7509: IF l_reset_status_code IS NULL THEN
7510: -- This should not happen
7511: FND_MESSAGE.SET_NAME('ENG', 'ENG_STATUS_CODE_NULL') ;
7512: FND_MSG_PUB.Add ;
7513: RAISE FND_API.G_EXC_ERROR ;
7514: END IF ;
7515:
7516: END IF ;
7517:
7521: END IF;
7522:
7523: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase
7524: ( p_api_version => 1.0
7525: ,p_init_msg_list => FND_API.G_FALSE
7526: ,p_commit => FND_API.G_FALSE
7527: ,p_validation_level => p_validation_level
7528: ,p_debug => FND_API.G_FALSE
7529: ,p_output_dir => p_output_dir
7522:
7523: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase
7524: ( p_api_version => 1.0
7525: ,p_init_msg_list => FND_API.G_FALSE
7526: ,p_commit => FND_API.G_FALSE
7527: ,p_validation_level => p_validation_level
7528: ,p_debug => FND_API.G_FALSE
7529: ,p_output_dir => p_output_dir
7530: ,p_debug_filename => p_debug_filename
7524: ( p_api_version => 1.0
7525: ,p_init_msg_list => FND_API.G_FALSE
7526: ,p_commit => FND_API.G_FALSE
7527: ,p_validation_level => p_validation_level
7528: ,p_debug => FND_API.G_FALSE
7529: ,p_output_dir => p_output_dir
7530: ,p_debug_filename => p_debug_filename
7531: ,x_return_status => l_return_status
7532: ,x_msg_count => l_msg_count
7540: IF g_debug_flag THEN
7541: Write_Debug('After: calling ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase: ' || l_return_status) ;
7542: END IF;
7543:
7544: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
7545: THEN
7546: x_return_status := l_return_status;
7547: x_msg_count := l_msg_count;
7548: x_msg_data := l_msg_data;
7545: THEN
7546: x_return_status := l_return_status;
7547: x_msg_count := l_msg_count;
7548: x_msg_data := l_msg_data;
7549: RAISE FND_API.G_EXC_ERROR;
7550: END IF;
7551:
7552: IF g_debug_flag THEN
7553: Write_Debug('Successful: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase');
7556: END IF ; -- if ( Change Object is Documet LC Object)
7557:
7558:
7559: -- Standard ending code ------------------------------------------------
7560: IF FND_API.To_Boolean ( p_commit ) THEN
7561: COMMIT WORK;
7562: END IF;
7563:
7564: FND_MSG_PUB.Count_And_Get
7568: IF g_debug_flag THEN
7569: Write_Debug('Finish. End Of procedure: Promote_Header');
7570: END IF;
7571:
7572: IF FND_API.to_Boolean( p_debug ) THEN
7573: Close_Debug_Session;
7574: END IF;
7575:
7576: EXCEPTION
7573: Close_Debug_Session;
7574: END IF;
7575:
7576: EXCEPTION
7577: WHEN FND_API.G_EXC_ERROR THEN
7578: -- Standard check of p_commit.
7579: IF FND_API.To_Boolean( p_commit ) THEN
7580: IF g_debug_flag THEN
7581: Write_Debug('Rollback . . .') ;
7575:
7576: EXCEPTION
7577: WHEN FND_API.G_EXC_ERROR THEN
7578: -- Standard check of p_commit.
7579: IF FND_API.To_Boolean( p_commit ) THEN
7580: IF g_debug_flag THEN
7581: Write_Debug('Rollback . . .') ;
7582: END IF ;
7583: ROLLBACK TO Reset_Phase ;
7582: END IF ;
7583: ROLLBACK TO Reset_Phase ;
7584: END IF;
7585:
7586: x_return_status := FND_API.G_RET_STS_ERROR;
7587:
7588: FND_MSG_PUB.Count_And_Get
7589: ( p_count => x_msg_count
7590: ,p_data => x_msg_data );
7592: IF g_debug_flag THEN
7593: Write_Debug('Finish with expected error.') ;
7594: END IF;
7595:
7596: IF FND_API.to_Boolean( p_debug ) THEN
7597: Close_Debug_Session;
7598: END IF;
7599:
7600: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7596: IF FND_API.to_Boolean( p_debug ) THEN
7597: Close_Debug_Session;
7598: END IF;
7599:
7600: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7601:
7602: -- Standard check of p_commit.
7603: IF FND_API.To_Boolean( p_commit ) THEN
7604: IF g_debug_flag THEN
7599:
7600: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7601:
7602: -- Standard check of p_commit.
7603: IF FND_API.To_Boolean( p_commit ) THEN
7604: IF g_debug_flag THEN
7605: Write_Debug('Rollback . . .') ;
7606: END IF ;
7607: ROLLBACK TO Reset_Phase ;
7606: END IF ;
7607: ROLLBACK TO Reset_Phase ;
7608: END IF;
7609:
7610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7611:
7612: FND_MSG_PUB.Count_And_Get
7613: ( p_count => x_msg_count
7614: ,p_data => x_msg_data );
7617: Write_Debug('Rollback and Finish with unexpected error.') ;
7618: END IF;
7619:
7620:
7621: IF FND_API.to_Boolean( p_debug ) THEN
7622: Close_Debug_Session;
7623: END IF;
7624:
7625:
7625:
7626: WHEN OTHERS THEN
7627:
7628: -- Standard check of p_commit.
7629: IF FND_API.To_Boolean( p_commit ) THEN
7630: IF g_debug_flag THEN
7631: Write_Debug('Rollback . . .') ;
7632: END IF ;
7633: ROLLBACK TO Reset_Phase ;
7632: END IF ;
7633: ROLLBACK TO Reset_Phase ;
7634: END IF;
7635:
7636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7637:
7638: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7639: THEN
7640: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7648: IF g_debug_flag THEN
7649: Write_Debug('Finish with other error.') ;
7650: END IF;
7651:
7652: IF FND_API.to_Boolean( p_debug ) THEN
7653: Close_Debug_Session;
7654: END IF;
7655:
7656: END Reset_Phase ;
7678: --
7679: PROCEDURE Sync_LC_Phase_Setup
7680: (
7681: p_api_version IN NUMBER --
7682: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7683: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7684: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7685: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7686: ,p_output_dir IN VARCHAR2 := NULL
7679: PROCEDURE Sync_LC_Phase_Setup
7680: (
7681: p_api_version IN NUMBER --
7682: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7683: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7684: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7685: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7686: ,p_output_dir IN VARCHAR2 := NULL
7687: ,p_debug_filename IN VARCHAR2 := NULL
7680: (
7681: p_api_version IN NUMBER --
7682: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7683: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7684: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7685: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7686: ,p_output_dir IN VARCHAR2 := NULL
7687: ,p_debug_filename IN VARCHAR2 := NULL
7688: ,x_return_status OUT NOCOPY VARCHAR2 --
7681: p_api_version IN NUMBER --
7682: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7683: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7684: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7685: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7686: ,p_output_dir IN VARCHAR2 := NULL
7687: ,p_debug_filename IN VARCHAR2 := NULL
7688: ,x_return_status OUT NOCOPY VARCHAR2 --
7689: ,x_msg_count OUT NOCOPY NUMBER --
7728:
7729: -- Standard Start of API savepoint
7730: SAVEPOINT Sync_LC_Phase_Setup ;
7731: -- Standard call to check for call compatibility
7732: IF NOT FND_API.Compatible_API_Call ( l_api_version
7733: ,p_api_version
7734: ,l_api_name
7735: ,G_PKG_NAME )
7736: THEN
7733: ,p_api_version
7734: ,l_api_name
7735: ,G_PKG_NAME )
7736: THEN
7737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7738: END IF;
7739:
7740: -- Initialize message list if p_init_msg_list is set to TRUE.
7741: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7738: END IF;
7739:
7740: -- Initialize message list if p_init_msg_list is set to TRUE.
7741: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7742: FND_MSG_PUB.initialize;
7743: END IF;
7744:
7745:
7756: Write_Debug('Initializing return status... ' );
7757: END IF;
7758:
7759: -- Initialize API return status to success
7760: x_return_status := FND_API.G_RET_STS_SUCCESS;
7761:
7762: -- FND_PROFILE package is not available for workflow (WF),
7763: -- therefore manually set WHO column values
7764: IF p_api_caller = 'WF' THEN
8092:
8093:
8094:
8095: -- Standard ending code ------------------------------------------------
8096: IF FND_API.To_Boolean ( p_commit ) THEN
8097: COMMIT WORK;
8098: END IF;
8099:
8100: FND_MSG_PUB.Count_And_Get
8104: IF g_debug_flag THEN
8105: Write_Debug('Finish. End Of procedure: ' || l_api_name);
8106: END IF;
8107:
8108: IF FND_API.to_Boolean( p_debug ) THEN
8109: Close_Debug_Session;
8110: END IF;
8111:
8112: EXCEPTION
8109: Close_Debug_Session;
8110: END IF;
8111:
8112: EXCEPTION
8113: WHEN FND_API.G_EXC_ERROR THEN
8114: -- Standard check of p_commit.
8115: IF FND_API.To_Boolean( p_commit ) THEN
8116: IF g_debug_flag THEN
8117: Write_Debug('Rollback . . .') ;
8111:
8112: EXCEPTION
8113: WHEN FND_API.G_EXC_ERROR THEN
8114: -- Standard check of p_commit.
8115: IF FND_API.To_Boolean( p_commit ) THEN
8116: IF g_debug_flag THEN
8117: Write_Debug('Rollback . . .') ;
8118: END IF ;
8119: ROLLBACK TO Sync_LC_Phase_Setup ;
8118: END IF ;
8119: ROLLBACK TO Sync_LC_Phase_Setup ;
8120: END IF;
8121:
8122: x_return_status := FND_API.G_RET_STS_ERROR;
8123:
8124: FND_MSG_PUB.Count_And_Get
8125: ( p_count => x_msg_count
8126: ,p_data => x_msg_data );
8128: IF g_debug_flag THEN
8129: Write_Debug('Finish with expected error.') ;
8130: END IF;
8131:
8132: IF FND_API.to_Boolean( p_debug ) THEN
8133: Close_Debug_Session;
8134: END IF;
8135:
8136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8132: IF FND_API.to_Boolean( p_debug ) THEN
8133: Close_Debug_Session;
8134: END IF;
8135:
8136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8137:
8138: -- Standard check of p_commit.
8139: IF FND_API.To_Boolean( p_commit ) THEN
8140: IF g_debug_flag THEN
8135:
8136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8137:
8138: -- Standard check of p_commit.
8139: IF FND_API.To_Boolean( p_commit ) THEN
8140: IF g_debug_flag THEN
8141: Write_Debug('Rollback . . .') ;
8142: END IF ;
8143: ROLLBACK TO Sync_LC_Phase_Setup ;
8142: END IF ;
8143: ROLLBACK TO Sync_LC_Phase_Setup ;
8144: END IF;
8145:
8146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8147:
8148: FND_MSG_PUB.Count_And_Get
8149: ( p_count => x_msg_count
8150: ,p_data => x_msg_data );
8153: Write_Debug('Rollback and Finish with unexpected error.') ;
8154: END IF;
8155:
8156:
8157: IF FND_API.to_Boolean( p_debug ) THEN
8158: Close_Debug_Session;
8159: END IF;
8160:
8161:
8161:
8162: WHEN OTHERS THEN
8163:
8164: -- Standard check of p_commit.
8165: IF FND_API.To_Boolean( p_commit ) THEN
8166: IF g_debug_flag THEN
8167: Write_Debug('Rollback . . .') ;
8168: END IF ;
8169: ROLLBACK TO Sync_LC_Phase_Setup ;
8168: END IF ;
8169: ROLLBACK TO Sync_LC_Phase_Setup ;
8170: END IF;
8171:
8172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8173:
8174: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
8175: THEN
8176: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
8184: IF g_debug_flag THEN
8185: Write_Debug('Finish with other error.') ;
8186: END IF;
8187:
8188: IF FND_API.to_Boolean( p_debug ) THEN
8189: Close_Debug_Session;
8190: END IF;
8191:
8192: END Sync_LC_Phase_Setup ;