[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 --
626: -- Standard Start of API savepoint
627: --SAVEPOINT Update_Header_Appr_Status;
628: Error_Handler.Initialize; --added for bug 10128347
629: -- Standard call to check for call compatibility
630: IF NOT FND_API.Compatible_API_Call ( l_api_version
631: ,p_api_version
632: ,l_api_name
633: ,G_PKG_NAME )
634: THEN
631: ,p_api_version
632: ,l_api_name
633: ,G_PKG_NAME )
634: THEN
635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
636: END IF;
637: -- Initialize message list if p_init_msg_list is set to TRUE.
638: IF FND_API.to_Boolean( p_init_msg_list ) THEN
639: FND_MSG_PUB.initialize;
634: THEN
635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
636: END IF;
637: -- Initialize message list if p_init_msg_list is set to TRUE.
638: IF FND_API.to_Boolean( p_init_msg_list ) THEN
639: FND_MSG_PUB.initialize;
640: END IF;
641:
642: -- For Test/Debug
641:
642: -- For Test/Debug
643: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
644: -- R12 Comment out
645: -- IF FND_API.to_Boolean( p_debug ) THEN
646: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
647: -- END IF;
648:
649: -- Write debug message if debug mode is on
659: Write_Debug('Initializing return status... ' );
660: END IF;
661:
662: -- Initialize API return status to success
663: x_return_status := FND_API.G_RET_STS_SUCCESS;
664:
665: -- FND_PROFILE package is not available for workflow (WF),
666: -- therefore manually set WHO column values
667: IF p_api_caller = 'WF' THEN
854: END IF;
855:
856: Eng_Workflow_Util.StartWorkflow
857: ( p_api_version => 1.0
858: , p_init_msg_list => FND_API.G_FALSE
859: , p_commit => FND_API.G_FALSE
860: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
861: , x_return_status => l_return_status
862: , x_msg_count => l_msg_count
855:
856: Eng_Workflow_Util.StartWorkflow
857: ( p_api_version => 1.0
858: , p_init_msg_list => FND_API.G_FALSE
859: , p_commit => FND_API.G_FALSE
860: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
861: , x_return_status => l_return_status
862: , x_msg_count => l_msg_count
863: , x_msg_data => l_msg_data
856: Eng_Workflow_Util.StartWorkflow
857: ( p_api_version => 1.0
858: , p_init_msg_list => FND_API.G_FALSE
859: , p_commit => FND_API.G_FALSE
860: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
861: , x_return_status => l_return_status
862: , x_msg_count => l_msg_count
863: , x_msg_data => l_msg_data
864: , p_item_type => Eng_Workflow_Util.G_CHANGE_ACTION_ITEM_TYPE
866: , p_process_name => Eng_Workflow_Util.G_APPROVAL_STATUS_CHANGE_PROC
867: , p_change_id => p_change_id
868: , p_wf_user_id => l_fnd_user_id
869: , p_route_id => 0 --l_wf_route_id
870: , p_debug => p_debug --FND_API.G_FALSE
871: , p_output_dir => p_output_dir
872: , p_debug_filename => NULL --p_debug_filename
873: ) ;
874:
875: IF g_debug_flag THEN
876: Write_Debug('After: Launch header approval status change workflow: ' || l_return_status );
877: END IF;
878:
879: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
880: THEN
881: x_return_status := l_return_status;
882: x_msg_count := l_msg_count;
883: x_msg_data := l_msg_data;
882: x_msg_count := l_msg_count;
883: x_msg_data := l_msg_data;
884: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
885: --#FND_MSG_PUB.Add;
886: RAISE FND_API.G_EXC_ERROR;
887: END IF;
888: l_wf_item_key := NULL;
889: IF g_debug_flag THEN
890: Write_Debug('Successful: Launch header approval status change workflow');
932: IF g_debug_flag THEN
933: Write_Debug('After: calling new item request API: ' || l_return_status) ;
934: END IF;
935:
936: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
937: THEN
938: x_return_status := l_return_status;
939: x_msg_count := l_msg_count;
940: x_msg_data := l_msg_data;
940: x_msg_data := l_msg_data;
941: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
942: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_NIR_UTIL_PKG.set_nir_item_approval_status');
943: --#FND_MSG_PUB.Add;
944: RAISE FND_API.G_EXC_ERROR;
945: END IF;
946: l_wf_item_key := NULL;
947: IF g_debug_flag THEN
948: Write_Debug('Successful: calling new item request API');
983: END IF;
984: ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status
985: (
986: p_api_version => 1.0
987: ,p_init_msg_list => FND_API.G_FALSE
988: ,p_commit => FND_API.G_FALSE
989: ,p_validation_level => p_validation_level
990: ,p_debug => p_debug --FND_API.G_FALSE
991: ,p_output_dir => p_output_dir
984: ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status
985: (
986: p_api_version => 1.0
987: ,p_init_msg_list => FND_API.G_FALSE
988: ,p_commit => FND_API.G_FALSE
989: ,p_validation_level => p_validation_level
990: ,p_debug => p_debug --FND_API.G_FALSE
991: ,p_output_dir => p_output_dir
992: ,p_debug_filename => NULL --p_debug_filename
986: p_api_version => 1.0
987: ,p_init_msg_list => FND_API.G_FALSE
988: ,p_commit => FND_API.G_FALSE
989: ,p_validation_level => p_validation_level
990: ,p_debug => p_debug --FND_API.G_FALSE
991: ,p_output_dir => p_output_dir
992: ,p_debug_filename => NULL --p_debug_filename
993: ,x_return_status => l_return_status
994: ,x_msg_count => l_msg_count
1003: Write_Debug('After: calling update DM attachment approval/review API: ' || l_return_status) ;
1004: END IF;
1005:
1006:
1007: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1008: x_return_status := l_return_status;
1009: x_msg_count := l_msg_count;
1010: x_msg_data := l_msg_data;
1011: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1010: x_msg_data := l_msg_data;
1011: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1012: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status');
1013: --#FND_MSG_PUB.Add;
1014: RAISE FND_API.G_EXC_ERROR;
1015: END IF;
1016: END IF;
1017:
1018:
1047: IF g_debug_flag THEN
1048: Write_Debug('After: calling ENG_ICMDB_APIS_UTIL.Update_Approval_Status: ' || l_return_status) ;
1049: END IF;
1050:
1051: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1052: THEN
1053: x_return_status := l_return_status;
1054: x_msg_count := l_msg_count;
1055: x_msg_data := l_msg_data;
1055: x_msg_data := l_msg_data;
1056: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1057: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_NIR_UTIL_PKG.set_nir_item_approval_status');
1058: --#FND_MSG_PUB.Add;
1059: RAISE FND_API.G_EXC_ERROR;
1060: END IF;
1061:
1062: IF g_debug_flag THEN
1063: Write_Debug('Successful: ENG_ICMDB_APIS_UTIL.Update_Approval_Status');
1088:
1089:
1090: ENG_DOCUMENT_UTIL.Update_Approval_Status
1091: ( p_api_version => 1.0
1092: ,p_init_msg_list => FND_API.G_FALSE
1093: ,p_commit => FND_API.G_FALSE
1094: ,p_validation_level => p_validation_level
1095: ,p_debug => FND_API.G_FALSE
1096: ,p_output_dir => p_output_dir
1089:
1090: ENG_DOCUMENT_UTIL.Update_Approval_Status
1091: ( p_api_version => 1.0
1092: ,p_init_msg_list => FND_API.G_FALSE
1093: ,p_commit => FND_API.G_FALSE
1094: ,p_validation_level => p_validation_level
1095: ,p_debug => FND_API.G_FALSE
1096: ,p_output_dir => p_output_dir
1097: ,p_debug_filename => p_debug_filename
1091: ( p_api_version => 1.0
1092: ,p_init_msg_list => FND_API.G_FALSE
1093: ,p_commit => FND_API.G_FALSE
1094: ,p_validation_level => p_validation_level
1095: ,p_debug => FND_API.G_FALSE
1096: ,p_output_dir => p_output_dir
1097: ,p_debug_filename => p_debug_filename
1098: ,x_return_status => l_return_status --
1099: ,x_msg_count => l_msg_count --
1107: IF g_debug_flag THEN
1108: Write_Debug('After: calling ENG_DOCUMENT_UTIL.Update_Approval_Status: ' || l_return_status) ;
1109: END IF;
1110:
1111: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1112: THEN
1113: x_return_status := l_return_status;
1114: x_msg_count := l_msg_count;
1115: x_msg_data := l_msg_data;
1112: THEN
1113: x_return_status := l_return_status;
1114: x_msg_count := l_msg_count;
1115: x_msg_data := l_msg_data;
1116: RAISE FND_API.G_EXC_ERROR;
1117: END IF;
1118:
1119: IF g_debug_flag THEN
1120: Write_Debug('Successful: ENG_DOCUMENT_UTIL.Update_Approval_Status');
1129:
1130:
1131:
1132: -- Standard ending code ------------------------------------------------
1133: IF FND_API.To_Boolean ( p_commit ) THEN
1134: COMMIT WORK;
1135: END IF;
1136:
1137: FND_MSG_PUB.Count_And_Get
1141: IF g_debug_flag THEN
1142: Write_Debug('Finish. End Of procedure: Update_Header_Appr_Status') ;
1143: END IF;
1144:
1145: IF FND_API.to_Boolean( p_debug ) THEN
1146: Close_Debug_Session;
1147: END IF;
1148:
1149: EXCEPTION
1148:
1149: EXCEPTION
1150: WHEN EGO_USER_ATTRS_COMMON_PVT.G_SUBSCRIPTION_EXC then -- bug 10128347, when catch G_SUBSCRIPTION_EXC exception
1151: ROLLBACK WORK;
1152: x_return_status := FND_API.G_RET_STS_ERROR;
1153: ERROR_HANDLER.Get_Message_List(l_message_list);
1154: FOR i IN l_message_list.FIRST..l_message_list.LAST
1155: LOOP
1156: x_msg_data := x_msg_data || l_message_list(i).message_text;
1157: END LOOP;
1158: IF g_debug_flag THEN
1159: Write_Debug('Rollback and Finish with expected error.') ;
1160: END IF;
1161: IF FND_API.to_Boolean( p_debug ) THEN
1162: Close_Debug_Session;
1163: END IF;
1164: WHEN FND_API.G_EXC_ERROR THEN
1165: --ROLLBACK TO Update_Header_Appr_Status;
1160: END IF;
1161: IF FND_API.to_Boolean( p_debug ) THEN
1162: Close_Debug_Session;
1163: END IF;
1164: WHEN FND_API.G_EXC_ERROR THEN
1165: --ROLLBACK TO Update_Header_Appr_Status;
1166: x_return_status := FND_API.G_RET_STS_ERROR;
1167: FND_MSG_PUB.Count_And_Get
1168: ( p_count => x_msg_count
1162: Close_Debug_Session;
1163: END IF;
1164: WHEN FND_API.G_EXC_ERROR THEN
1165: --ROLLBACK TO Update_Header_Appr_Status;
1166: x_return_status := FND_API.G_RET_STS_ERROR;
1167: FND_MSG_PUB.Count_And_Get
1168: ( p_count => x_msg_count
1169: ,p_data => x_msg_data );
1170: IF g_debug_flag THEN
1169: ,p_data => x_msg_data );
1170: IF g_debug_flag THEN
1171: Write_Debug('Rollback and Finish with expected error.') ;
1172: END IF;
1173: IF FND_API.to_Boolean( p_debug ) THEN
1174: Close_Debug_Session;
1175: END IF;
1176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1177: --ROLLBACK TO Update_Header_Appr_Status;
1172: END IF;
1173: IF FND_API.to_Boolean( p_debug ) THEN
1174: Close_Debug_Session;
1175: END IF;
1176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1177: --ROLLBACK TO Update_Header_Appr_Status;
1178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1179: FND_MSG_PUB.Count_And_Get
1180: ( p_count => x_msg_count
1174: Close_Debug_Session;
1175: END IF;
1176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1177: --ROLLBACK TO Update_Header_Appr_Status;
1178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1179: FND_MSG_PUB.Count_And_Get
1180: ( p_count => x_msg_count
1181: ,p_data => x_msg_data );
1182: IF g_debug_flag THEN
1181: ,p_data => x_msg_data );
1182: IF g_debug_flag THEN
1183: Write_Debug('Rollback and Finish with unexpected error.') ;
1184: END IF;
1185: IF FND_API.to_Boolean( p_debug ) THEN
1186: Close_Debug_Session;
1187: END IF;
1188: WHEN OTHERS THEN
1189: --ROLLBACK TO Update_Header_Appr_Status;
1186: Close_Debug_Session;
1187: END IF;
1188: WHEN OTHERS THEN
1189: --ROLLBACK TO Update_Header_Appr_Status;
1190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1191: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1192: THEN
1193: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1194: END IF;
1197: ,p_data => x_msg_data );
1198: IF g_debug_flag THEN
1199: Write_Debug('Rollback and Finish with other error.') ;
1200: END IF;
1201: IF FND_API.to_Boolean( p_debug ) THEN
1202: Close_Debug_Session;
1203: END IF;
1204:
1205: END Update_Header_Appr_Status;
1206:
1207: PROCEDURE Update_Header_Appr_Status
1208: (
1209: p_api_version IN NUMBER --
1210: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1211: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1212: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1213: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1214: ,p_output_dir IN VARCHAR2 := NULL
1207: PROCEDURE Update_Header_Appr_Status
1208: (
1209: p_api_version IN NUMBER --
1210: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1211: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1212: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1213: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1214: ,p_output_dir IN VARCHAR2 := NULL
1215: ,p_debug_filename IN VARCHAR2 := NULL
1208: (
1209: p_api_version IN NUMBER --
1210: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1211: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1212: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1213: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1214: ,p_output_dir IN VARCHAR2 := NULL
1215: ,p_debug_filename IN VARCHAR2 := NULL
1216: ,x_return_status OUT NOCOPY VARCHAR2 --
1209: p_api_version IN NUMBER --
1210: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1211: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1212: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1213: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1214: ,p_output_dir IN VARCHAR2 := NULL
1215: ,p_debug_filename IN VARCHAR2 := NULL
1216: ,x_return_status OUT NOCOPY VARCHAR2 --
1217: ,x_msg_count OUT NOCOPY NUMBER --
1255: --
1256: PROCEDURE Start_Line_Workflow
1257: (
1258: p_api_version IN NUMBER --
1259: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1260: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1261: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1262: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1263: ,p_output_dir IN VARCHAR2 := NULL
1256: PROCEDURE Start_Line_Workflow
1257: (
1258: p_api_version IN NUMBER --
1259: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1260: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1261: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1262: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1263: ,p_output_dir IN VARCHAR2 := NULL
1264: ,p_debug_filename IN VARCHAR2 := NULL
1257: (
1258: p_api_version IN NUMBER --
1259: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1260: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1261: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1262: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1263: ,p_output_dir IN VARCHAR2 := NULL
1264: ,p_debug_filename IN VARCHAR2 := NULL
1265: ,x_return_status OUT NOCOPY VARCHAR2 --
1258: p_api_version IN NUMBER --
1259: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1260: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1261: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1262: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1263: ,p_output_dir IN VARCHAR2 := NULL
1264: ,p_debug_filename IN VARCHAR2 := NULL
1265: ,x_return_status OUT NOCOPY VARCHAR2 --
1266: ,x_msg_count OUT NOCOPY NUMBER --
1329: BEGIN
1330: -- Standard Start of API savepoint
1331: --SAVEPOINT Start_Line_Workflow;
1332: -- Standard call to check for call compatibility
1333: IF NOT FND_API.Compatible_API_Call ( l_api_version
1334: ,p_api_version
1335: ,l_api_name
1336: ,G_PKG_NAME )
1337: THEN
1334: ,p_api_version
1335: ,l_api_name
1336: ,G_PKG_NAME )
1337: THEN
1338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1339: END IF;
1340: -- Initialize message list if p_init_msg_list is set to TRUE.
1341: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1342: FND_MSG_PUB.initialize;
1337: THEN
1338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1339: END IF;
1340: -- Initialize message list if p_init_msg_list is set to TRUE.
1341: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1342: FND_MSG_PUB.initialize;
1343: END IF;
1344:
1345: -- For Test/Debug
1344:
1345: -- For Test/Debug
1346: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
1347: -- R12 Comment out
1348: -- IF FND_API.to_Boolean( p_debug ) THEN
1349: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
1350: -- END IF;
1351:
1352: -- Write debug message if debug mode is on
1360: Write_Debug('Initializing return status... ' );
1361: END IF;
1362:
1363: -- Initialize API return status to success
1364: x_return_status := FND_API.G_RET_STS_SUCCESS;
1365:
1366: -- FND_PROFILE package is not available for workflow (WF),
1367: -- therefore manually set WHO column values
1368: IF p_api_caller = 'WF' THEN
1411:
1412: -- start phase-level workflow
1413: Eng_Workflow_Util.StartWorkflow
1414: ( p_api_version => 1.0
1415: , p_init_msg_list => FND_API.G_FALSE
1416: , p_commit => FND_API.G_FALSE
1417: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1418: , x_return_status => l_return_status
1419: , x_msg_count => l_msg_count
1412: -- start phase-level workflow
1413: Eng_Workflow_Util.StartWorkflow
1414: ( p_api_version => 1.0
1415: , p_init_msg_list => FND_API.G_FALSE
1416: , p_commit => FND_API.G_FALSE
1417: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1418: , x_return_status => l_return_status
1419: , x_msg_count => l_msg_count
1420: , x_msg_data => l_msg_data
1413: Eng_Workflow_Util.StartWorkflow
1414: ( p_api_version => 1.0
1415: , p_init_msg_list => FND_API.G_FALSE
1416: , p_commit => FND_API.G_FALSE
1417: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1418: , x_return_status => l_return_status
1419: , x_msg_count => l_msg_count
1420: , x_msg_data => l_msg_data
1421: , p_item_type => Eng_Workflow_Util.G_CHANGE_ROUTE_ITEM_TYPE
1424: , p_change_id => p_change_id
1425: , p_change_line_id => l_change_line_id
1426: , p_wf_user_id => l_fnd_user_id
1427: , p_route_id => l_line_wf_route_id
1428: , p_debug => p_debug --FND_API.G_FALSE
1429: , p_output_dir => p_output_dir
1430: , p_debug_filename => NULL
1431: ) ;
1432:
1434: Write_Debug('After: calling Eng_Workflow_Util.StartWorkflow API for ' || TO_CHAR(l_change_line_id) || l_return_status) ;
1435: Write_Debug('l_line_wf_item_key: ' || l_line_wf_item_key) ;
1436: END IF;
1437:
1438: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1439: THEN
1440: x_return_status := l_return_status;
1441: x_msg_count := l_msg_count;
1442: x_msg_data := l_msg_data;
1450:
1451: END IF; -- if (action = PROMOTE)
1452:
1453: -- Standard ending code ------------------------------------------------
1454: IF FND_API.To_Boolean ( p_commit ) THEN
1455: COMMIT WORK;
1456: END IF;
1457:
1458: FND_MSG_PUB.Count_And_Get
1462: IF g_debug_flag THEN
1463: Write_Debug('Finish. End Of procedure: Start_Line_Workflow');
1464: END IF;
1465:
1466: IF FND_API.to_Boolean( p_debug ) THEN
1467: Close_Debug_Session;
1468: END IF;
1469:
1470: EXCEPTION
1467: Close_Debug_Session;
1468: END IF;
1469:
1470: EXCEPTION
1471: WHEN FND_API.G_EXC_ERROR THEN
1472: --ROLLBACK TO Start_Line_Workflow;
1473: x_return_status := FND_API.G_RET_STS_ERROR;
1474: FND_MSG_PUB.Count_And_Get
1475: ( p_count => x_msg_count
1469:
1470: EXCEPTION
1471: WHEN FND_API.G_EXC_ERROR THEN
1472: --ROLLBACK TO Start_Line_Workflow;
1473: x_return_status := FND_API.G_RET_STS_ERROR;
1474: FND_MSG_PUB.Count_And_Get
1475: ( p_count => x_msg_count
1476: ,p_data => x_msg_data );
1477: IF g_debug_flag THEN
1476: ,p_data => x_msg_data );
1477: IF g_debug_flag THEN
1478: Write_Debug('Rollback and Finish with expected error.') ;
1479: END IF;
1480: IF FND_API.to_Boolean( p_debug ) THEN
1481: Close_Debug_Session;
1482: END IF;
1483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1484: --ROLLBACK TO Start_Line_Workflow;
1479: END IF;
1480: IF FND_API.to_Boolean( p_debug ) THEN
1481: Close_Debug_Session;
1482: END IF;
1483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1484: --ROLLBACK TO Start_Line_Workflow;
1485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1486: FND_MSG_PUB.Count_And_Get
1487: ( p_count => x_msg_count
1481: Close_Debug_Session;
1482: END IF;
1483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1484: --ROLLBACK TO Start_Line_Workflow;
1485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1486: FND_MSG_PUB.Count_And_Get
1487: ( p_count => x_msg_count
1488: ,p_data => x_msg_data );
1489: IF g_debug_flag THEN
1488: ,p_data => x_msg_data );
1489: IF g_debug_flag THEN
1490: Write_Debug('Rollback and Finish with unexpected error.') ;
1491: END IF;
1492: IF FND_API.to_Boolean( p_debug ) THEN
1493: Close_Debug_Session;
1494: END IF;
1495: WHEN OTHERS THEN
1496: --ROLLBACK TO Start_Line_Workflow;
1493: Close_Debug_Session;
1494: END IF;
1495: WHEN OTHERS THEN
1496: --ROLLBACK TO Start_Line_Workflow;
1497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1498: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1499: THEN
1500: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1501: END IF;
1504: ,p_data => x_msg_data );
1505: IF g_debug_flag THEN
1506: Write_Debug('Rollback and Finish with other error.') ;
1507: END IF;
1508: IF FND_API.to_Boolean( p_debug ) THEN
1509: Close_Debug_Session;
1510: END IF;
1511: END Start_Line_Workflow ;
1512:
1519: -- implementing ECO as well!!!
1520: PROCEDURE Start_WF_OnlyIf_Necessary
1521: (
1522: p_api_version IN NUMBER --
1523: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1524: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1525: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1526: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1527: ,p_output_dir IN VARCHAR2 := NULL
1520: PROCEDURE Start_WF_OnlyIf_Necessary
1521: (
1522: p_api_version IN NUMBER --
1523: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1524: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1525: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1526: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1527: ,p_output_dir IN VARCHAR2 := NULL
1528: ,p_debug_filename IN VARCHAR2 := NULL
1521: (
1522: p_api_version IN NUMBER --
1523: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1524: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1525: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1526: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1527: ,p_output_dir IN VARCHAR2 := NULL
1528: ,p_debug_filename IN VARCHAR2 := NULL
1529: ,x_return_status OUT NOCOPY VARCHAR2 --
1522: p_api_version IN NUMBER --
1523: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1524: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1525: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1526: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1527: ,p_output_dir IN VARCHAR2 := NULL
1528: ,p_debug_filename IN VARCHAR2 := NULL
1529: ,x_return_status OUT NOCOPY VARCHAR2 --
1530: ,x_msg_count OUT NOCOPY NUMBER --
1568: BEGIN
1569: -- Standard Start of API savepoint
1570: --SAVEPOINT Start_WF_OnlyIf_Necessary;
1571: -- Standard call to check for call compatibility
1572: IF NOT FND_API.Compatible_API_Call ( l_api_version
1573: ,p_api_version
1574: ,l_api_name
1575: ,G_PKG_NAME )
1576: THEN
1573: ,p_api_version
1574: ,l_api_name
1575: ,G_PKG_NAME )
1576: THEN
1577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1578: END IF;
1579: -- Initialize message list if p_init_msg_list is set to TRUE.
1580: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1581: FND_MSG_PUB.initialize;
1576: THEN
1577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1578: END IF;
1579: -- Initialize message list if p_init_msg_list is set to TRUE.
1580: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1581: FND_MSG_PUB.initialize;
1582: END IF;
1583:
1584: -- For Test/Debug
1583:
1584: -- For Test/Debug
1585: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
1586: -- R12 Comment out
1587: -- IF FND_API.to_Boolean( p_debug ) THEN
1588: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
1589: -- END IF;
1590:
1591: -- Write debug message if debug mode is on
1603: Write_Debug('Initializing return status... ' );
1604: END IF;
1605:
1606: -- Initialize API return status to success
1607: x_return_status := FND_API.G_RET_STS_SUCCESS;
1608:
1609: -- FND_PROFILE package is not available for workflow (WF),
1610: -- therefore manually set WHO column values
1611: IF p_api_caller = 'WF' THEN
1635: l_action_id := 0;
1636: -- create new action log
1637: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
1638: ( p_api_version => 1.0
1639: , p_init_msg_list => FND_API.G_FALSE --
1640: , p_commit => FND_API.G_FALSE --
1641: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1642: , p_debug => p_debug --FND_API.G_FALSE
1643: , p_output_dir => p_output_dir
1636: -- create new action log
1637: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
1638: ( p_api_version => 1.0
1639: , p_init_msg_list => FND_API.G_FALSE --
1640: , p_commit => FND_API.G_FALSE --
1641: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1642: , p_debug => p_debug --FND_API.G_FALSE
1643: , p_output_dir => p_output_dir
1644: , p_debug_filename => NULL
1637: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
1638: ( p_api_version => 1.0
1639: , p_init_msg_list => FND_API.G_FALSE --
1640: , p_commit => FND_API.G_FALSE --
1641: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1642: , p_debug => p_debug --FND_API.G_FALSE
1643: , p_output_dir => p_output_dir
1644: , p_debug_filename => NULL
1645: , x_return_status => l_return_status
1638: ( p_api_version => 1.0
1639: , p_init_msg_list => FND_API.G_FALSE --
1640: , p_commit => FND_API.G_FALSE --
1641: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1642: , p_debug => p_debug --FND_API.G_FALSE
1643: , p_output_dir => p_output_dir
1644: , p_debug_filename => NULL
1645: , x_return_status => l_return_status
1646: , x_msg_count => l_msg_count
1663: IF g_debug_flag THEN
1664: Write_Debug('After: saving action log: ' || l_return_status) ;
1665: Write_Debug('l_action_id : ' || l_action_id );
1666: END IF;
1667: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1668: THEN
1669: x_return_status := l_return_status;
1670: x_msg_count := l_msg_count;
1671: x_msg_data := l_msg_data;
1671: x_msg_data := l_msg_data;
1672: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1673: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
1674: --#FND_MSG_PUB.Add;
1675: RAISE FND_API.G_EXC_ERROR;
1676: END IF;
1677: IF g_debug_flag THEN
1678: Write_Debug('Successful: saving action log');
1679: END IF;
1698: );
1699:
1700:
1701: -- Force commit to make sure workflow picks up the latest phase
1702: IF FND_API.To_Boolean ( p_commit ) THEN -- fix by 14018580, in PIP session, using XA Datsource and hard commits will cause this subordination session error.
1703: COMMIT WORK;
1704: END IF;
1705:
1706: -- launch the standard action workflow for new action if needed
1709: END IF;
1710:
1711: Eng_Workflow_Util.StartWorkflow
1712: ( p_api_version => 1.0
1713: , p_init_msg_list => FND_API.G_FALSE
1714: , p_commit => FND_API.G_FALSE
1715: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1716: , x_return_status => l_return_status
1717: , x_msg_count => l_msg_count
1710:
1711: Eng_Workflow_Util.StartWorkflow
1712: ( p_api_version => 1.0
1713: , p_init_msg_list => FND_API.G_FALSE
1714: , p_commit => FND_API.G_FALSE
1715: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1716: , x_return_status => l_return_status
1717: , x_msg_count => l_msg_count
1718: , x_msg_data => l_msg_data
1711: Eng_Workflow_Util.StartWorkflow
1712: ( p_api_version => 1.0
1713: , p_init_msg_list => FND_API.G_FALSE
1714: , p_commit => FND_API.G_FALSE
1715: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1716: , x_return_status => l_return_status
1717: , x_msg_count => l_msg_count
1718: , x_msg_data => l_msg_data
1719: , p_item_type => Eng_Workflow_Util.G_CHANGE_ACTION_ITEM_TYPE
1722: , p_change_id => p_change_id
1723: , p_action_id => l_action_id
1724: , p_wf_user_id => l_fnd_user_id
1725: , p_route_id => 0 --l_wf_route_id
1726: , p_debug => p_debug --FND_API.G_FALSE
1727: , p_output_dir => p_output_dir
1728: , p_debug_filename => NULL
1729: ) ;
1730: -- note that the returned wf item_key won't be saved on the ENG side
1731: IF g_debug_flag THEN
1732: Write_Debug('After: calling status change workflow API: ' || l_return_status) ;
1733: END IF;
1734:
1735: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1736: THEN
1737: x_return_status := l_return_status;
1738: x_msg_count := l_msg_count;
1739: x_msg_data := l_msg_data;
1738: x_msg_count := l_msg_count;
1739: x_msg_data := l_msg_data;
1740: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
1741: --#FND_MSG_PUB.Add;
1742: --#RAISE FND_API.G_EXC_ERROR;
1743: END IF;
1744: l_wf_item_key := NULL;
1745:
1746: IF g_debug_flag THEN
1786:
1787: -- start phase-level workflow
1788: Eng_Workflow_Util.StartWorkflow
1789: ( p_api_version => 1.0
1790: , p_init_msg_list => FND_API.G_FALSE
1791: , p_commit => FND_API.G_FALSE
1792: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1793: , x_return_status => l_return_status
1794: , x_msg_count => l_msg_count
1787: -- start phase-level workflow
1788: Eng_Workflow_Util.StartWorkflow
1789: ( p_api_version => 1.0
1790: , p_init_msg_list => FND_API.G_FALSE
1791: , p_commit => FND_API.G_FALSE
1792: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1793: , x_return_status => l_return_status
1794: , x_msg_count => l_msg_count
1795: , x_msg_data => l_msg_data
1788: Eng_Workflow_Util.StartWorkflow
1789: ( p_api_version => 1.0
1790: , p_init_msg_list => FND_API.G_FALSE
1791: , p_commit => FND_API.G_FALSE
1792: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1793: , x_return_status => l_return_status
1794: , x_msg_count => l_msg_count
1795: , x_msg_data => l_msg_data
1796: , p_item_type => Eng_Workflow_Util.G_CHANGE_ROUTE_ITEM_TYPE
1798: , p_process_name => Eng_Workflow_Util.G_ROUTE_AGENT_PROC
1799: , p_change_id => p_change_id
1800: , p_wf_user_id => l_fnd_user_id
1801: , p_route_id => l_wf_route_id
1802: , p_debug => p_debug --FND_API.G_FALSE
1803: , p_output_dir => p_output_dir
1804: , p_debug_filename => NULL
1805: ) ;
1806:
1808: Write_Debug('After: calling Eng_Workflow_Util.StartWorkflow API: ' || l_return_status) ;
1809: END IF;
1810:
1811:
1812: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1813: THEN
1814: x_return_status := l_return_status;
1815: x_msg_count := l_msg_count;
1816: x_msg_data := l_msg_data;
1815: x_msg_count := l_msg_count;
1816: x_msg_data := l_msg_data;
1817: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
1818: --#FND_MSG_PUB.Add;
1819: --#RAISE FND_API.G_EXC_ERROR;
1820: ELSE
1821: IF g_debug_flag THEN
1822: Write_Debug('Successful: calling workflow routing agent');
1823: END IF;
1849: -- Do post workflow update right away
1850: Update_Lifecycle_States
1851: (
1852: p_api_version => 1.0
1853: ,p_init_msg_list => FND_API.G_FALSE
1854: ,p_commit => FND_API.G_FALSE
1855: ,p_validation_level => p_validation_level
1856: ,p_debug => FND_API.G_FALSE
1857: ,p_output_dir => p_output_dir
1850: Update_Lifecycle_States
1851: (
1852: p_api_version => 1.0
1853: ,p_init_msg_list => FND_API.G_FALSE
1854: ,p_commit => FND_API.G_FALSE
1855: ,p_validation_level => p_validation_level
1856: ,p_debug => FND_API.G_FALSE
1857: ,p_output_dir => p_output_dir
1858: ,p_debug_filename => p_debug_filename
1852: p_api_version => 1.0
1853: ,p_init_msg_list => FND_API.G_FALSE
1854: ,p_commit => FND_API.G_FALSE
1855: ,p_validation_level => p_validation_level
1856: ,p_debug => FND_API.G_FALSE
1857: ,p_output_dir => p_output_dir
1858: ,p_debug_filename => p_debug_filename
1859: ,x_return_status => l_return_status
1860: ,x_msg_count => l_msg_count
1870: Write_Debug('After: calling Update_Lifecycle_States API: ' || l_return_status) ;
1871: END IF;
1872:
1873:
1874: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1875: x_return_status := l_return_status;
1876: x_msg_count := l_msg_count;
1877: x_msg_data := l_msg_data;
1878: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1877: x_msg_data := l_msg_data;
1878: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1879: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Update_Lifecycle_States');
1880: --#FND_MSG_PUB.Add;
1881: RAISE FND_API.G_EXC_ERROR;
1882: END IF;
1883:
1884: END IF; -- if (phase workflow instance id and workflow template id)
1885:
1885:
1886: END IF; -- if (action = PROMOTE)
1887:
1888: -- Standard ending code ------------------------------------------------
1889: IF FND_API.To_Boolean ( p_commit ) THEN
1890: COMMIT WORK;
1891: END IF;
1892:
1893: FND_MSG_PUB.Count_And_Get
1897: IF g_debug_flag THEN
1898: Write_Debug('Finish. End Of procedure: Start_WF_OnlyIf_Necessary');
1899: END IF;
1900:
1901: IF FND_API.to_Boolean( p_debug ) THEN
1902: Close_Debug_Session;
1903: END IF;
1904:
1905: EXCEPTION
1902: Close_Debug_Session;
1903: END IF;
1904:
1905: EXCEPTION
1906: WHEN FND_API.G_EXC_ERROR THEN
1907: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1908: x_return_status := FND_API.G_RET_STS_ERROR;
1909: FND_MSG_PUB.Count_And_Get
1910: ( p_count => x_msg_count
1904:
1905: EXCEPTION
1906: WHEN FND_API.G_EXC_ERROR THEN
1907: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1908: x_return_status := FND_API.G_RET_STS_ERROR;
1909: FND_MSG_PUB.Count_And_Get
1910: ( p_count => x_msg_count
1911: ,p_data => x_msg_data );
1912: IF g_debug_flag THEN
1911: ,p_data => x_msg_data );
1912: IF g_debug_flag THEN
1913: Write_Debug('Rollback and Finish with expected error.') ;
1914: END IF;
1915: IF FND_API.to_Boolean( p_debug ) THEN
1916: Close_Debug_Session;
1917: END IF;
1918: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1919: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1914: END IF;
1915: IF FND_API.to_Boolean( p_debug ) THEN
1916: Close_Debug_Session;
1917: END IF;
1918: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1919: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1921: FND_MSG_PUB.Count_And_Get
1922: ( p_count => x_msg_count
1916: Close_Debug_Session;
1917: END IF;
1918: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1919: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1921: FND_MSG_PUB.Count_And_Get
1922: ( p_count => x_msg_count
1923: ,p_data => x_msg_data );
1924: IF g_debug_flag THEN
1923: ,p_data => x_msg_data );
1924: IF g_debug_flag THEN
1925: Write_Debug('Rollback and Finish with unexpected error.') ;
1926: END IF;
1927: IF FND_API.to_Boolean( p_debug ) THEN
1928: Close_Debug_Session;
1929: END IF;
1930: WHEN OTHERS THEN
1931: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1928: Close_Debug_Session;
1929: END IF;
1930: WHEN OTHERS THEN
1931: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1933: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1934: THEN
1935: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1936: END IF;
1939: ,p_data => x_msg_data );
1940: IF g_debug_flag THEN
1941: Write_Debug('Rollback and Finish with other error.') ;
1942: END IF;
1943: IF FND_API.to_Boolean( p_debug ) THEN
1944: Close_Debug_Session;
1945: END IF;
1946: END Start_WF_OnlyIf_Necessary;
1947:
1949: -- Internal procedure for promotion of change header (inc. revItems)
1950: PROCEDURE Promote_Header
1951: (
1952: p_api_version IN NUMBER --
1953: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1954: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1955: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1956: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1957: ,p_output_dir IN VARCHAR2 := NULL
1950: PROCEDURE Promote_Header
1951: (
1952: p_api_version IN NUMBER --
1953: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1954: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1955: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1956: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1957: ,p_output_dir IN VARCHAR2 := NULL
1958: ,p_debug_filename IN VARCHAR2 := NULL
1951: (
1952: p_api_version IN NUMBER --
1953: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1954: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1955: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1956: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1957: ,p_output_dir IN VARCHAR2 := NULL
1958: ,p_debug_filename IN VARCHAR2 := NULL
1959: ,x_return_status OUT NOCOPY VARCHAR2 --
1952: p_api_version IN NUMBER --
1953: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1954: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1955: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1956: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1957: ,p_output_dir IN VARCHAR2 := NULL
1958: ,p_debug_filename IN VARCHAR2 := NULL
1959: ,x_return_status OUT NOCOPY VARCHAR2 --
1960: ,x_msg_count OUT NOCOPY NUMBER --
2116:
2117: -- Standard Start of API savepoint
2118: SAVEPOINT Promote_Header;
2119: -- Standard call to check for call compatibility
2120: IF NOT FND_API.Compatible_API_Call ( l_api_version
2121: ,p_api_version
2122: ,l_api_name
2123: ,G_PKG_NAME )
2124: THEN
2121: ,p_api_version
2122: ,l_api_name
2123: ,G_PKG_NAME )
2124: THEN
2125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2126: END IF;
2127: -- Initialize message list if p_init_msg_list is set to TRUE.
2128: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2129: FND_MSG_PUB.initialize;
2124: THEN
2125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2126: END IF;
2127: -- Initialize message list if p_init_msg_list is set to TRUE.
2128: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2129: FND_MSG_PUB.initialize;
2130: END IF;
2131:
2132:
2133: -- For Test/Debug
2134: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
2135:
2136: -- R12 Comment out
2137: -- IF FND_API.to_Boolean( p_debug ) THEN
2138: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
2139: -- END IF;
2140:
2141:
2151: Write_Debug('Initializing return status... ' );
2152: END IF;
2153:
2154: -- Initialize API return status to success
2155: x_return_status := FND_API.G_RET_STS_SUCCESS;
2156:
2157: -- FND_PROFILE package is not available for workflow (WF),
2158: -- therefore manually set WHO column values
2159: IF p_api_caller = 'WF' THEN
2175:
2176: if ((l_temp_flag = 'N' or l_temp_flag = 'H') and l_obj_id1 = 0) then
2177: FND_MESSAGE.Set_Name('ENG','ENG_ROUTE_APPLY_NO_TEMP');
2178: FND_MSG_PUB.Add;
2179: RAISE FND_API.G_EXC_ERROR;
2180: end if;
2181: end loop;
2182: -- bug 6695079 end
2183:
2198: Write_Debug('Before: calling Refresh_WF_Route procedure ');
2199: END IF;
2200: Refresh_WF_Route
2201: ( p_api_version => 1.0
2202: ,p_init_msg_list => FND_API.G_FALSE
2203: ,p_commit => FND_API.G_FALSE --
2204: ,p_validation_level => p_validation_level
2205: ,p_debug => FND_API.G_FALSE
2206: ,p_output_dir => p_output_dir
2199: END IF;
2200: Refresh_WF_Route
2201: ( p_api_version => 1.0
2202: ,p_init_msg_list => FND_API.G_FALSE
2203: ,p_commit => FND_API.G_FALSE --
2204: ,p_validation_level => p_validation_level
2205: ,p_debug => FND_API.G_FALSE
2206: ,p_output_dir => p_output_dir
2207: ,p_debug_filename => p_debug_filename
2201: ( p_api_version => 1.0
2202: ,p_init_msg_list => FND_API.G_FALSE
2203: ,p_commit => FND_API.G_FALSE --
2204: ,p_validation_level => p_validation_level
2205: ,p_debug => FND_API.G_FALSE
2206: ,p_output_dir => p_output_dir
2207: ,p_debug_filename => p_debug_filename
2208: ,x_return_status => l_return_status
2209: ,x_msg_count => l_msg_count
2284: IF (l_new_phase_sn <= l_curr_phase_sn
2285: and l_new_wf_status = Eng_Workflow_Util.G_RT_COMPLETED)THEN
2286: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
2287: FND_MSG_PUB.Add;
2288: RAISE FND_API.G_EXC_ERROR;
2289: END IF;
2290:
2291:
2292: --
2348: -- status_code, raise error
2349: IF (l_phase_sn <= l_new_phase_sn ) THEN
2350: FND_MESSAGE.Set_Name('ENG','ENG_EXIST_LINE_COMP_BF');
2351: FND_MSG_PUB.Add;
2352: RAISE FND_API.G_EXC_ERROR;
2353: END IF;
2354:
2355: END IF;
2356: END LOOP;
2442: ELSE
2443: -- Stop and return error message
2444: FND_MESSAGE.Set_Name('ENG','ENG_EXIST_ACTIVE_LINES');
2445: FND_MSG_PUB.Add;
2446: RAISE FND_API.G_EXC_ERROR;
2447: END IF;
2448:
2449: END IF;
2450: END LOOP;
2477: END IF;
2478: -- Raise error message to the caller
2479: FND_MESSAGE.Set_Name('ENG','ENG_IMP_STOP_WO_ACT_REV_ITEM');
2480: FND_MSG_PUB.Add;
2481: RAISE FND_API.G_EXC_ERROR;
2482:
2483: END IF;
2484:
2485:
2497: END IF;
2498: -- Raise error message to the caller
2499: FND_MESSAGE.Set_Name('ENG','ENG_IMP_STOP_APPR_REJECTED');
2500: FND_MSG_PUB.Add;
2501: RAISE FND_API.G_EXC_ERROR;
2502:
2503: END IF;
2504: -- End of fix for 3769329
2505:
2605: IF g_debug_flag THEN
2606: Write_Debug('After: calling ENG_ATTACHMENT_IMPLEMENTATION.Validate_floating_version API: ' || l_return_status) ;
2607: END IF;*/
2608:
2609: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2610: x_return_status := l_return_status;
2611: x_msg_count := l_msg_count;
2612: x_msg_data := l_msg_data;
2613: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2612: x_msg_data := l_msg_data;
2613: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2614: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Propagate_ECO');
2615: --#FND_MSG_PUB.Add;
2616: RAISE FND_API.G_EXC_ERROR;
2617: END IF;
2618: -- End of Bug4967289 Fix
2619:
2620: ELSE
2636: -- Sanity check, only one record can qualify the condition
2637: IF SQL%ROWCOUNT <> 1 THEN
2638: FND_MESSAGE.Set_Name('ENG','ENG_NOT_EXACTLY_ONE_RECORD');
2639: FND_MSG_PUB.Add;
2640: RAISE FND_API.G_EXC_ERROR;
2641: END IF;
2642: IF g_debug_flag THEN
2643: Write_Debug('After: Completing the current phase and promote to the next phase');
2644: END IF;
2788:
2789: ENG_ECO_UTIL.Propagate_ECO
2790: (
2791: p_api_version => 1.0
2792: ,p_init_msg_list => FND_API.G_FALSE
2793: ,p_commit => FND_API.G_FALSE
2794: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2795: ,p_debug => p_debug --FND_API.G_FALSE
2796: ,p_output_dir => p_output_dir
2789: ENG_ECO_UTIL.Propagate_ECO
2790: (
2791: p_api_version => 1.0
2792: ,p_init_msg_list => FND_API.G_FALSE
2793: ,p_commit => FND_API.G_FALSE
2794: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2795: ,p_debug => p_debug --FND_API.G_FALSE
2796: ,p_output_dir => p_output_dir
2797: ,p_debug_filename => NULL --p_debug_filename
2790: (
2791: p_api_version => 1.0
2792: ,p_init_msg_list => FND_API.G_FALSE
2793: ,p_commit => FND_API.G_FALSE
2794: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2795: ,p_debug => p_debug --FND_API.G_FALSE
2796: ,p_output_dir => p_output_dir
2797: ,p_debug_filename => NULL --p_debug_filename
2798: ,x_return_status => l_return_status
2791: p_api_version => 1.0
2792: ,p_init_msg_list => FND_API.G_FALSE
2793: ,p_commit => FND_API.G_FALSE
2794: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2795: ,p_debug => p_debug --FND_API.G_FALSE
2796: ,p_output_dir => p_output_dir
2797: ,p_debug_filename => NULL --p_debug_filename
2798: ,x_return_status => l_return_status
2799: ,x_msg_count => l_msg_count
2808: IF g_debug_flag THEN
2809: Write_Debug('After: calling propagate_eco API: ' || l_return_status) ;
2810: END IF;
2811:
2812: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2813: x_return_status := l_return_status;
2814: x_msg_count := l_msg_count;
2815: x_msg_data := l_msg_data;
2816: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2815: x_msg_data := l_msg_data;
2816: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2817: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Propagate_ECO');
2818: --#FND_MSG_PUB.Add;
2819: RAISE FND_API.G_EXC_ERROR;
2820: END IF;
2821:
2822: IF g_debug_flag THEN
2823: Write_Debug('Successful: calling propagate_eco API');
2833: -- In case of Auto-Propgation Action Log
2834: -- Who column is Workflow
2835: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
2836: ( p_api_version => 1.0
2837: , p_init_msg_list => FND_API.G_FALSE --
2838: , p_commit => FND_API.G_FALSE --
2839: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2840: , p_debug => p_debug --FND_API.G_FALSE
2841: , p_output_dir => p_output_dir
2834: -- Who column is Workflow
2835: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
2836: ( p_api_version => 1.0
2837: , p_init_msg_list => FND_API.G_FALSE --
2838: , p_commit => FND_API.G_FALSE --
2839: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2840: , p_debug => p_debug --FND_API.G_FALSE
2841: , p_output_dir => p_output_dir
2842: , p_debug_filename => NULL
2835: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
2836: ( p_api_version => 1.0
2837: , p_init_msg_list => FND_API.G_FALSE --
2838: , p_commit => FND_API.G_FALSE --
2839: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2840: , p_debug => p_debug --FND_API.G_FALSE
2841: , p_output_dir => p_output_dir
2842: , p_debug_filename => NULL
2843: , x_return_status => l_return_status
2836: ( p_api_version => 1.0
2837: , p_init_msg_list => FND_API.G_FALSE --
2838: , p_commit => FND_API.G_FALSE --
2839: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2840: , p_debug => p_debug --FND_API.G_FALSE
2841: , p_output_dir => p_output_dir
2842: , p_debug_filename => NULL
2843: , x_return_status => l_return_status
2844: , x_msg_count => l_msg_count
2864: Write_Debug('After: saving action log: ' || l_return_status) ;
2865: Write_Debug('l_action_id : ' || l_action_id );
2866: END IF;
2867:
2868: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
2869: THEN
2870: x_return_status := l_return_status;
2871: x_msg_count := l_msg_count;
2872: x_msg_data := l_msg_data;
2872: x_msg_data := l_msg_data;
2873: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2874: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
2875: --#FND_MSG_PUB.Add;
2876: RAISE FND_API.G_EXC_ERROR;
2877: END IF;
2878:
2879: IF g_debug_flag THEN
2880: Write_Debug('Successful: saving action log');
2911: END IF;
2912:
2913: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase
2914: ( p_api_version => 1.0
2915: ,p_init_msg_list => FND_API.G_FALSE
2916: ,p_commit => FND_API.G_FALSE
2917: ,p_validation_level => p_validation_level
2918: ,p_debug => FND_API.G_FALSE
2919: ,p_output_dir => p_output_dir
2912:
2913: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase
2914: ( p_api_version => 1.0
2915: ,p_init_msg_list => FND_API.G_FALSE
2916: ,p_commit => FND_API.G_FALSE
2917: ,p_validation_level => p_validation_level
2918: ,p_debug => FND_API.G_FALSE
2919: ,p_output_dir => p_output_dir
2920: ,p_debug_filename => p_debug_filename
2914: ( p_api_version => 1.0
2915: ,p_init_msg_list => FND_API.G_FALSE
2916: ,p_commit => FND_API.G_FALSE
2917: ,p_validation_level => p_validation_level
2918: ,p_debug => FND_API.G_FALSE
2919: ,p_output_dir => p_output_dir
2920: ,p_debug_filename => p_debug_filename
2921: ,x_return_status => l_return_status
2922: ,x_msg_count => l_msg_count
2931: IF g_debug_flag THEN
2932: Write_Debug('After: calling ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase: ' || l_return_status) ;
2933: END IF;
2934:
2935: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
2936: THEN
2937: x_return_status := l_return_status;
2938: x_msg_count := l_msg_count;
2939: x_msg_data := l_msg_data;
2936: THEN
2937: x_return_status := l_return_status;
2938: x_msg_count := l_msg_count;
2939: x_msg_data := l_msg_data;
2940: RAISE FND_API.G_EXC_ERROR;
2941: END IF;
2942:
2943: IF g_debug_flag THEN
2944: Write_Debug('Successful: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase');
2957: or l_new_wf_status <> Eng_Workflow_Util.G_RT_IN_PROGRESS) THEN
2958: -- Start workflow for new phase if necessary
2959: Start_WF_OnlyIf_Necessary
2960: ( p_api_version => 1.0
2961: ,p_init_msg_list => FND_API.G_FALSE
2962: ,p_commit => FND_API.G_FALSE
2963: ,p_validation_level => p_validation_level
2964: ,p_debug => FND_API.G_FALSE
2965: ,p_output_dir => p_output_dir
2958: -- Start workflow for new phase if necessary
2959: Start_WF_OnlyIf_Necessary
2960: ( p_api_version => 1.0
2961: ,p_init_msg_list => FND_API.G_FALSE
2962: ,p_commit => FND_API.G_FALSE
2963: ,p_validation_level => p_validation_level
2964: ,p_debug => FND_API.G_FALSE
2965: ,p_output_dir => p_output_dir
2966: ,p_debug_filename => p_debug_filename
2960: ( p_api_version => 1.0
2961: ,p_init_msg_list => FND_API.G_FALSE
2962: ,p_commit => FND_API.G_FALSE
2963: ,p_validation_level => p_validation_level
2964: ,p_debug => FND_API.G_FALSE
2965: ,p_output_dir => p_output_dir
2966: ,p_debug_filename => p_debug_filename
2967: ,x_return_status => l_return_status
2968: ,x_msg_count => l_msg_count
2981: IF g_debug_flag THEN
2982: Write_Debug('After call to procedure Start_WF_OnlyIf_Necessary');
2983: END IF;
2984:
2985: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2986: x_return_status := l_return_status;
2987: x_msg_count := l_msg_count;
2988: x_msg_data := l_msg_data;
2989: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
2987: x_msg_count := l_msg_count;
2988: x_msg_data := l_msg_data;
2989: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
2990: --#FND_MSG_PUB.Add;
2991: RAISE FND_API.G_EXC_ERROR;
2992: END IF;
2993: END IF; -- IF l_new_phase_sn ... or l_new_wf_statusor ...
2994: -- Bug 13810488 End
2995:
3014: END IF;
3015:
3016: Start_Line_Workflow
3017: ( p_api_version => 1.0
3018: ,p_init_msg_list => FND_API.G_FALSE
3019: ,p_commit => FND_API.G_FALSE
3020: ,p_validation_level => p_validation_level
3021: ,p_debug => FND_API.G_FALSE
3022: ,p_output_dir => p_output_dir
3015:
3016: Start_Line_Workflow
3017: ( p_api_version => 1.0
3018: ,p_init_msg_list => FND_API.G_FALSE
3019: ,p_commit => FND_API.G_FALSE
3020: ,p_validation_level => p_validation_level
3021: ,p_debug => FND_API.G_FALSE
3022: ,p_output_dir => p_output_dir
3023: ,p_debug_filename => p_debug_filename
3017: ( p_api_version => 1.0
3018: ,p_init_msg_list => FND_API.G_FALSE
3019: ,p_commit => FND_API.G_FALSE
3020: ,p_validation_level => p_validation_level
3021: ,p_debug => FND_API.G_FALSE
3022: ,p_output_dir => p_output_dir
3023: ,p_debug_filename => p_debug_filename
3024: ,x_return_status => l_return_status
3025: ,x_msg_count => l_msg_count
3034: IF g_debug_flag THEN
3035: Write_Debug('After call to procedure Start_Line_Workflow');
3036: END IF;
3037:
3038: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3039: x_return_status := l_return_status;
3040: x_msg_count := l_msg_count;
3041: x_msg_data := l_msg_data;
3042: RAISE FND_API.G_EXC_ERROR;
3038: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3039: x_return_status := l_return_status;
3040: x_msg_count := l_msg_count;
3041: x_msg_data := l_msg_data;
3042: RAISE FND_API.G_EXC_ERROR;
3043: END IF;
3044: END IF ;
3045: --
3046: -- End of R12B Change Line and Line Workflow Enhancement
3049: END IF; -- if (p_skip_promotion='Y')
3050:
3051:
3052: -- Standard ending code ------------------------------------------------
3053: IF FND_API.To_Boolean ( p_commit ) THEN
3054: COMMIT WORK;
3055: END IF;
3056:
3057: FND_MSG_PUB.Count_And_Get
3061: IF g_debug_flag THEN
3062: Write_Debug('Finish. End Of procedure: Promote_Header');
3063: END IF;
3064:
3065: IF FND_API.to_Boolean( p_debug ) THEN
3066: Close_Debug_Session;
3067: END IF;
3068:
3069: EXCEPTION
3066: Close_Debug_Session;
3067: END IF;
3068:
3069: EXCEPTION
3070: WHEN FND_API.G_EXC_ERROR THEN
3071: --ROLLBACK TO Promote_Header;
3072: x_return_status := FND_API.G_RET_STS_ERROR;
3073: FND_MSG_PUB.Count_And_Get
3074: ( p_count => x_msg_count
3068:
3069: EXCEPTION
3070: WHEN FND_API.G_EXC_ERROR THEN
3071: --ROLLBACK TO Promote_Header;
3072: x_return_status := FND_API.G_RET_STS_ERROR;
3073: FND_MSG_PUB.Count_And_Get
3074: ( p_count => x_msg_count
3075: ,p_data => x_msg_data );
3076: IF g_debug_flag THEN
3075: ,p_data => x_msg_data );
3076: IF g_debug_flag THEN
3077: Write_Debug('Rollback and Finish with expected error.') ;
3078: END IF;
3079: IF FND_API.to_Boolean( p_debug ) THEN
3080: Close_Debug_Session;
3081: END IF;
3082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3083: --ROLLBACK TO Promote_Header;
3078: END IF;
3079: IF FND_API.to_Boolean( p_debug ) THEN
3080: Close_Debug_Session;
3081: END IF;
3082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3083: --ROLLBACK TO Promote_Header;
3084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3085: FND_MSG_PUB.Count_And_Get
3086: ( p_count => x_msg_count
3080: Close_Debug_Session;
3081: END IF;
3082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3083: --ROLLBACK TO Promote_Header;
3084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3085: FND_MSG_PUB.Count_And_Get
3086: ( p_count => x_msg_count
3087: ,p_data => x_msg_data );
3088: IF g_debug_flag THEN
3087: ,p_data => x_msg_data );
3088: IF g_debug_flag THEN
3089: Write_Debug('Rollback and Finish with unexpected error.') ;
3090: END IF;
3091: IF FND_API.to_Boolean( p_debug ) THEN
3092: Close_Debug_Session;
3093: END IF;
3094: WHEN OTHERS THEN
3095: --ROLLBACK TO Promote_Header;
3092: Close_Debug_Session;
3093: END IF;
3094: WHEN OTHERS THEN
3095: --ROLLBACK TO Promote_Header;
3096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3097: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3098: THEN
3099: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3100: END IF;
3103: ,p_data => x_msg_data );
3104: IF g_debug_flag THEN
3105: Write_Debug('Rollback and Finish with other error.') ;
3106: END IF;
3107: IF FND_API.to_Boolean( p_debug ) THEN
3108: Close_Debug_Session;
3109: END IF;
3110: END Promote_Header;
3111:
3115: -- so it is written as a seperate procedure for easier understanding.
3116: PROCEDURE Demote_Header
3117: (
3118: p_api_version IN NUMBER --
3119: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3120: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3121: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3122: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3123: ,p_output_dir IN VARCHAR2 := NULL
3116: PROCEDURE Demote_Header
3117: (
3118: p_api_version IN NUMBER --
3119: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3120: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3121: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3122: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3123: ,p_output_dir IN VARCHAR2 := NULL
3124: ,p_debug_filename IN VARCHAR2 := NULL
3117: (
3118: p_api_version IN NUMBER --
3119: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3120: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3121: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3122: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3123: ,p_output_dir IN VARCHAR2 := NULL
3124: ,p_debug_filename IN VARCHAR2 := NULL
3125: ,x_return_status OUT NOCOPY VARCHAR2 --
3118: p_api_version IN NUMBER --
3119: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3120: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3121: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3122: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3123: ,p_output_dir IN VARCHAR2 := NULL
3124: ,p_debug_filename IN VARCHAR2 := NULL
3125: ,x_return_status OUT NOCOPY VARCHAR2 --
3126: ,x_msg_count OUT NOCOPY NUMBER --
3225: select status_type, status_code into l_old_status_code, l_old_status_type from eng_engineering_changes where change_id = p_change_id;
3226: -- Standard Start of API savepoint
3227: SAVEPOINT Demote_Header;
3228: -- Standard call to check for call compatibility
3229: IF NOT FND_API.Compatible_API_Call ( l_api_version
3230: ,p_api_version
3231: ,l_api_name
3232: ,G_PKG_NAME )
3233: THEN
3230: ,p_api_version
3231: ,l_api_name
3232: ,G_PKG_NAME )
3233: THEN
3234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3235: END IF;
3236: -- Initialize message list if p_init_msg_list is set to TRUE.
3237: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3238: FND_MSG_PUB.initialize;
3233: THEN
3234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3235: END IF;
3236: -- Initialize message list if p_init_msg_list is set to TRUE.
3237: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3238: FND_MSG_PUB.initialize;
3239: END IF;
3240:
3241: -- For Test/Debug
3240:
3241: -- For Test/Debug
3242: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
3243: -- R12 Comment out
3244: -- IF FND_API.to_Boolean( p_debug ) THEN
3245: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
3246: -- END IF;
3247:
3248: -- Write debug message if debug mode is on
3256: Write_Debug('Initializing return status... ' );
3257: END IF;
3258:
3259: -- Initialize API return status to success
3260: x_return_status := FND_API.G_RET_STS_SUCCESS;
3261:
3262: -- FND_PROFILE package is not available for workflow (WF),
3263: -- therefore manually set WHO column values
3264: IF p_api_caller = 'WF' THEN
3280:
3281: if ((l_temp_flag = 'N' or l_temp_flag = 'H') and l_obj_id1 = 0) then
3282: FND_MESSAGE.Set_Name('ENG','ENG_ROUTE_APPLY_NO_TEMP');
3283: FND_MSG_PUB.Add;
3284: RAISE FND_API.G_EXC_ERROR;
3285: end if;
3286: end loop;
3287: -- Bug 6695079 end
3288: -- Get the current header approval status
3338: -- Sanity check to make sure the new phase is after the current phase
3339: IF ( l_new_phase_sn >= l_curr_phase_sn ) THEN
3340: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
3341: FND_MSG_PUB.Add;
3342: RAISE FND_API.G_EXC_ERROR;
3343: END IF;
3344:
3345: -- Finish the current phase before demotion
3346: UPDATE eng_lifecycle_statuses
3375: IF (l_lcStatuses_row.iteration_number IS NULL) THEN
3376: FND_MESSAGE.Set_Name('ENG','ENG_OBJECT_CANT_BE_NULL');
3377: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ITERATION_NUMBER');
3378: FND_MSG_PUB.Add;
3379: RAISE FND_API.G_EXC_ERROR;
3380: END IF;
3381: l_old_iter_num := l_lcStatuses_row.iteration_number;
3382: ELSE
3383: IF ( l_lcStatuses_row.iteration_number <> l_old_iter_num ) THEN
3388: Write_Debug('l_old_iter_num : ' || l_old_iter_num );
3389: END IF;
3390: FND_MESSAGE.Set_Name('ENG','ENG_SN_INCONSISTENT');
3391: FND_MSG_PUB.Add;
3392: RAISE FND_API.G_EXC_ERROR;
3393: END IF;
3394: END IF;
3395: */
3396:
3544: IF (l_lcStatuses_row.iteration_number IS NULL) THEN
3545: FND_MESSAGE.Set_Name('ENG','ENG_OBJECT_CANT_BE_NULL');
3546: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ITERATION_NUMBER');
3547: FND_MSG_PUB.Add;
3548: RAISE FND_API.G_EXC_ERROR;
3549: END IF;
3550: l_old_iter_num := l_lcStatuses_row.iteration_number;
3551:
3552: -- Increment sequence number of the active phases
3592: -- Launch header approval status change workflow
3593: Update_Header_Appr_Status
3594: (
3595: p_api_version => 1.0
3596: ,p_init_msg_list => FND_API.G_FALSE
3597: ,p_commit => FND_API.G_FALSE
3598: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3599: ,p_debug => FND_API.G_FALSE
3600: ,p_output_dir => p_output_dir
3593: Update_Header_Appr_Status
3594: (
3595: p_api_version => 1.0
3596: ,p_init_msg_list => FND_API.G_FALSE
3597: ,p_commit => FND_API.G_FALSE
3598: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3599: ,p_debug => FND_API.G_FALSE
3600: ,p_output_dir => p_output_dir
3601: ,p_debug_filename => p_debug_filename
3594: (
3595: p_api_version => 1.0
3596: ,p_init_msg_list => FND_API.G_FALSE
3597: ,p_commit => FND_API.G_FALSE
3598: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3599: ,p_debug => FND_API.G_FALSE
3600: ,p_output_dir => p_output_dir
3601: ,p_debug_filename => p_debug_filename
3602: ,x_return_status => l_return_status
3595: p_api_version => 1.0
3596: ,p_init_msg_list => FND_API.G_FALSE
3597: ,p_commit => FND_API.G_FALSE
3598: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3599: ,p_debug => FND_API.G_FALSE
3600: ,p_output_dir => p_output_dir
3601: ,p_debug_filename => p_debug_filename
3602: ,x_return_status => l_return_status
3603: ,x_msg_count => l_msg_count
3615: Write_Debug('After: calling Update_Header_Appr_Status: ' || l_return_status) ;
3616: END IF;
3617:
3618:
3619: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
3620: THEN
3621: x_return_status := l_return_status;
3622: x_msg_count := l_msg_count;
3623: x_msg_data := l_msg_data;
3620: THEN
3621: x_return_status := l_return_status;
3622: x_msg_count := l_msg_count;
3623: x_msg_data := l_msg_data;
3624: RAISE FND_API.G_EXC_ERROR;
3625: END IF;
3626: IF g_debug_flag THEN
3627: Write_Debug('After: calling Update_Header_Appr_Status');
3628: END IF;
3699: END IF;
3700:
3701: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase
3702: ( p_api_version => 1.0
3703: ,p_init_msg_list => FND_API.G_FALSE
3704: ,p_commit => FND_API.G_FALSE
3705: ,p_validation_level => p_validation_level
3706: ,p_debug => FND_API.G_FALSE
3707: ,p_output_dir => p_output_dir
3700:
3701: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase
3702: ( p_api_version => 1.0
3703: ,p_init_msg_list => FND_API.G_FALSE
3704: ,p_commit => FND_API.G_FALSE
3705: ,p_validation_level => p_validation_level
3706: ,p_debug => FND_API.G_FALSE
3707: ,p_output_dir => p_output_dir
3708: ,p_debug_filename => p_debug_filename
3702: ( p_api_version => 1.0
3703: ,p_init_msg_list => FND_API.G_FALSE
3704: ,p_commit => FND_API.G_FALSE
3705: ,p_validation_level => p_validation_level
3706: ,p_debug => FND_API.G_FALSE
3707: ,p_output_dir => p_output_dir
3708: ,p_debug_filename => p_debug_filename
3709: ,x_return_status => l_return_status
3710: ,x_msg_count => l_msg_count
3719: IF g_debug_flag THEN
3720: Write_Debug('After: calling ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase: ' || l_return_status) ;
3721: END IF;
3722:
3723: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
3724: THEN
3725: x_return_status := l_return_status;
3726: x_msg_count := l_msg_count;
3727: x_msg_data := l_msg_data;
3724: THEN
3725: x_return_status := l_return_status;
3726: x_msg_count := l_msg_count;
3727: x_msg_data := l_msg_data;
3728: RAISE FND_API.G_EXC_ERROR;
3729: END IF;
3730:
3731: IF g_debug_flag THEN
3732: Write_Debug('Successful: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase');
3738:
3739: -- Start workflow for new phase if necessary
3740: Start_WF_OnlyIf_Necessary
3741: ( p_api_version => 1.0
3742: ,p_init_msg_list => FND_API.G_FALSE
3743: ,p_commit => FND_API.G_FALSE
3744: ,p_validation_level => p_validation_level
3745: ,p_debug => FND_API.G_FALSE
3746: ,p_output_dir => p_output_dir
3739: -- Start workflow for new phase if necessary
3740: Start_WF_OnlyIf_Necessary
3741: ( p_api_version => 1.0
3742: ,p_init_msg_list => FND_API.G_FALSE
3743: ,p_commit => FND_API.G_FALSE
3744: ,p_validation_level => p_validation_level
3745: ,p_debug => FND_API.G_FALSE
3746: ,p_output_dir => p_output_dir
3747: ,p_debug_filename => p_debug_filename
3741: ( p_api_version => 1.0
3742: ,p_init_msg_list => FND_API.G_FALSE
3743: ,p_commit => FND_API.G_FALSE
3744: ,p_validation_level => p_validation_level
3745: ,p_debug => FND_API.G_FALSE
3746: ,p_output_dir => p_output_dir
3747: ,p_debug_filename => p_debug_filename
3748: ,x_return_status => l_return_status
3749: ,x_msg_count => l_msg_count
3762: Write_Debug('After: calling Start_WF_OnlyIf_Necessary: ' || l_return_status) ;
3763: END IF;
3764:
3765:
3766: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3767: x_return_status := l_return_status;
3768: x_msg_count := l_msg_count;
3769: x_msg_data := l_msg_data;
3770: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
3768: x_msg_count := l_msg_count;
3769: x_msg_data := l_msg_data;
3770: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
3771: --#FND_MSG_PUB.Add;
3772: RAISE FND_API.G_EXC_ERROR;
3773: END IF;
3774:
3775: -- Standard ending code ------------------------------------------------
3776: IF FND_API.To_Boolean ( p_commit ) THEN
3772: RAISE FND_API.G_EXC_ERROR;
3773: END IF;
3774:
3775: -- Standard ending code ------------------------------------------------
3776: IF FND_API.To_Boolean ( p_commit ) THEN
3777: COMMIT WORK;
3778: END IF;
3779:
3780: FND_MSG_PUB.Count_And_Get
3784: IF g_debug_flag THEN
3785: Write_Debug('Finish. End Of procedure: Demote_Header');
3786: END IF;
3787:
3788: IF FND_API.to_Boolean( p_debug ) THEN
3789: Close_Debug_Session;
3790: END IF;
3791:
3792: EXCEPTION
3789: Close_Debug_Session;
3790: END IF;
3791:
3792: EXCEPTION
3793: WHEN FND_API.G_EXC_ERROR THEN
3794: --ROLLBACK TO Demote_Header;
3795: x_return_status := FND_API.G_RET_STS_ERROR;
3796: FND_MSG_PUB.Count_And_Get
3797: ( p_count => x_msg_count
3791:
3792: EXCEPTION
3793: WHEN FND_API.G_EXC_ERROR THEN
3794: --ROLLBACK TO Demote_Header;
3795: x_return_status := FND_API.G_RET_STS_ERROR;
3796: FND_MSG_PUB.Count_And_Get
3797: ( p_count => x_msg_count
3798: ,p_data => x_msg_data );
3799: IF g_debug_flag THEN
3798: ,p_data => x_msg_data );
3799: IF g_debug_flag THEN
3800: Write_Debug('Rollback and Finish with expected error.') ;
3801: END IF;
3802: IF FND_API.to_Boolean( p_debug ) THEN
3803: Close_Debug_Session;
3804: END IF;
3805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3806: --ROLLBACK TO Demote_Header;
3801: END IF;
3802: IF FND_API.to_Boolean( p_debug ) THEN
3803: Close_Debug_Session;
3804: END IF;
3805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3806: --ROLLBACK TO Demote_Header;
3807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3808: FND_MSG_PUB.Count_And_Get
3809: ( p_count => x_msg_count
3803: Close_Debug_Session;
3804: END IF;
3805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3806: --ROLLBACK TO Demote_Header;
3807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3808: FND_MSG_PUB.Count_And_Get
3809: ( p_count => x_msg_count
3810: ,p_data => x_msg_data );
3811: IF g_debug_flag THEN
3810: ,p_data => x_msg_data );
3811: IF g_debug_flag THEN
3812: Write_Debug('Rollback and Finish with unexpected error.') ;
3813: END IF;
3814: IF FND_API.to_Boolean( p_debug ) THEN
3815: Close_Debug_Session;
3816: END IF;
3817: WHEN OTHERS THEN
3818: --ROLLBACK TO Demote_Header;
3815: Close_Debug_Session;
3816: END IF;
3817: WHEN OTHERS THEN
3818: --ROLLBACK TO Demote_Header;
3819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3820: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3821: THEN
3822: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3823: END IF;
3826: ,p_data => x_msg_data );
3827: IF g_debug_flag THEN
3828: Write_Debug('Rollback and Finish with other error.') ;
3829: END IF;
3830: IF FND_API.to_Boolean( p_debug ) THEN
3831: Close_Debug_Session;
3832: END IF;
3833: END Demote_Header;
3834:
3834:
3835: PROCEDURE Demote_Header
3836: (
3837: p_api_version IN NUMBER --
3838: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3839: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3840: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3841: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3842: ,p_output_dir IN VARCHAR2 := NULL
3835: PROCEDURE Demote_Header
3836: (
3837: p_api_version IN NUMBER --
3838: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3839: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3840: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3841: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3842: ,p_output_dir IN VARCHAR2 := NULL
3843: ,p_debug_filename IN VARCHAR2 := NULL
3836: (
3837: p_api_version IN NUMBER --
3838: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3839: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3840: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3841: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3842: ,p_output_dir IN VARCHAR2 := NULL
3843: ,p_debug_filename IN VARCHAR2 := NULL
3844: ,x_return_status OUT NOCOPY VARCHAR2 --
3837: p_api_version IN NUMBER --
3838: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3839: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3840: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3841: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3842: ,p_output_dir IN VARCHAR2 := NULL
3843: ,p_debug_filename IN VARCHAR2 := NULL
3844: ,x_return_status OUT NOCOPY VARCHAR2 --
3845: ,x_msg_count OUT NOCOPY NUMBER --
3874: -- Internal procedure for promotion of a revised item
3875: PROCEDURE Promote_Revised_Item
3876: (
3877: p_api_version IN NUMBER --
3878: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3879: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3880: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3881: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3882: ,p_output_dir IN VARCHAR2 := NULL
3875: PROCEDURE Promote_Revised_Item
3876: (
3877: p_api_version IN NUMBER --
3878: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3879: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3880: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3881: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3882: ,p_output_dir IN VARCHAR2 := NULL
3883: ,p_debug_filename IN VARCHAR2 := NULL
3876: (
3877: p_api_version IN NUMBER --
3878: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3879: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3880: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3881: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3882: ,p_output_dir IN VARCHAR2 := NULL
3883: ,p_debug_filename IN VARCHAR2 := NULL
3884: ,x_return_status OUT NOCOPY VARCHAR2 --
3877: p_api_version IN NUMBER --
3878: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
3879: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
3880: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3881: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
3882: ,p_output_dir IN VARCHAR2 := NULL
3883: ,p_debug_filename IN VARCHAR2 := NULL
3884: ,x_return_status OUT NOCOPY VARCHAR2 --
3885: ,x_msg_count OUT NOCOPY NUMBER --
3919: BEGIN
3920: -- Standard Start of API savepoint
3921: SAVEPOINT Promote_Revised_Item;
3922: -- Standard call to check for call compatibility
3923: IF NOT FND_API.Compatible_API_Call ( l_api_version
3924: ,p_api_version
3925: ,l_api_name
3926: ,G_PKG_NAME )
3927: THEN
3924: ,p_api_version
3925: ,l_api_name
3926: ,G_PKG_NAME )
3927: THEN
3928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3929: END IF;
3930: -- Initialize message list if p_init_msg_list is set to TRUE.
3931: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3932: FND_MSG_PUB.initialize;
3927: THEN
3928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3929: END IF;
3930: -- Initialize message list if p_init_msg_list is set to TRUE.
3931: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3932: FND_MSG_PUB.initialize;
3933: END IF;
3934:
3935: -- For Test/Debug
3934:
3935: -- For Test/Debug
3936: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
3937: -- R12 Comment out
3938: -- IF FND_API.to_Boolean( p_debug ) THEN
3939: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
3940: -- END IF;
3941:
3942: -- Write debug message if debug mode is on
3951: Write_Debug('Initializing return status... ' );
3952: END IF;
3953:
3954: -- Initialize API return status to success
3955: x_return_status := FND_API.G_RET_STS_SUCCESS;
3956:
3957: -- FND_PROFILE package is not available for workflow (WF),
3958: -- therefore manually set WHO column values
3959: IF p_api_caller = 'WF' THEN
4012: -- Sanity check to make sure the new phase is after the current phase
4013: IF l_new_phase_sn <= l_ri_phase_sn THEN
4014: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
4015: FND_MSG_PUB.Add;
4016: RAISE FND_API.G_EXC_ERROR;
4017: END IF;
4018:
4019: IF g_debug_flag THEN
4020: Write_Debug('Before comparing l_new_phase_sn = l_max_sn');
4030: -- Sanity check: the new phase must be of status_type = 'IMPLEMENTED'
4031: IF (l_new_status_type <> G_ENG_IMPLEMENTED) THEN
4032: FND_MESSAGE.Set_Name('ENG','ENG_LAST_PHASE_NOT_IMP');
4033: FND_MSG_PUB.Add;
4034: RAISE FND_API.G_EXC_ERROR;
4035: END IF;
4036:
4037: -- Set the flag
4038: l_last_imp_flag := 'Y';
4057: OR l_ri_status_type = G_ENG_CANCELLED)
4058: THEN
4059: FND_MESSAGE.Set_Name('ENG','ENG_REVITEM_IMP_OR_CNCL');
4060: FND_MSG_PUB.Add;
4061: RAISE FND_API.G_EXC_ERROR;
4062: ELSE
4063: -- Case: promoting revised item to the last implement phase
4064: IF ( l_last_imp_flag = 'Y' ) THEN
4065:
4078:
4079: -- Call concurrent program to implement revised item
4080: ENG_ECO_UTIL.Implement_ECO
4081: ( p_api_version => 1.0
4082: ,p_init_msg_list => FND_API.G_FALSE
4083: ,p_commit => FND_API.G_FALSE
4084: ,p_validation_level => p_validation_level
4085: ,p_debug => p_debug --FND_API.G_FALSE
4086: ,p_output_dir => p_output_dir
4079: -- Call concurrent program to implement revised item
4080: ENG_ECO_UTIL.Implement_ECO
4081: ( p_api_version => 1.0
4082: ,p_init_msg_list => FND_API.G_FALSE
4083: ,p_commit => FND_API.G_FALSE
4084: ,p_validation_level => p_validation_level
4085: ,p_debug => p_debug --FND_API.G_FALSE
4086: ,p_output_dir => p_output_dir
4087: ,p_debug_filename => NULL --p_debug_filename
4081: ( p_api_version => 1.0
4082: ,p_init_msg_list => FND_API.G_FALSE
4083: ,p_commit => FND_API.G_FALSE
4084: ,p_validation_level => p_validation_level
4085: ,p_debug => p_debug --FND_API.G_FALSE
4086: ,p_output_dir => p_output_dir
4087: ,p_debug_filename => NULL --p_debug_filename
4088: ,x_return_status => l_return_status
4089: ,x_msg_count => l_msg_count
4098: IF g_debug_flag THEN
4099: Write_Debug('After: calling ENG_ECO_UTIL.Implement_ECO (for revised item): ' || l_return_status);
4100: END IF;
4101:
4102: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4103: x_return_status := l_return_status;
4104: x_msg_count := l_msg_count;
4105: x_msg_data := l_msg_data;
4106: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_IMP_ECO');
4104: x_msg_count := l_msg_count;
4105: x_msg_data := l_msg_data;
4106: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_IMP_ECO');
4107: --#FND_MSG_PUB.Add;
4108: RAISE FND_API.G_EXC_ERROR;
4109:
4110: ELSIF (l_request_id = 0) THEN
4111: x_return_status := l_return_status;
4112: x_msg_count := l_msg_count;
4113: x_msg_data := l_msg_data;
4114: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CONCURRENT_PRGM');
4115: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Implement_ECO(for revised item)');
4116: FND_MSG_PUB.Add;
4117: RAISE FND_API.G_EXC_ERROR;
4118: END IF;
4119:
4120: IF g_debug_flag THEN
4121: Write_Debug('Successful: calling ENG_ECO_UTIL.Implement_ECO (for revised item)');
4186: END IF;
4187:
4188:
4189: -- Standard ending code ------------------------------------------------
4190: IF FND_API.To_Boolean ( p_commit ) THEN
4191: COMMIT WORK;
4192: END IF;
4193:
4194: FND_MSG_PUB.Count_And_Get
4198: IF g_debug_flag THEN
4199: Write_Debug('Finish. End Of procedure: Promote_Revised_Item');
4200: END IF;
4201:
4202: IF FND_API.to_Boolean( p_debug ) THEN
4203: Close_Debug_Session;
4204: END IF;
4205:
4206: EXCEPTION
4203: Close_Debug_Session;
4204: END IF;
4205:
4206: EXCEPTION
4207: WHEN FND_API.G_EXC_ERROR THEN
4208: --ROLLBACK TO Promote_Revised_Item;
4209: x_return_status := FND_API.G_RET_STS_ERROR;
4210: FND_MSG_PUB.Count_And_Get
4211: ( p_count => x_msg_count
4205:
4206: EXCEPTION
4207: WHEN FND_API.G_EXC_ERROR THEN
4208: --ROLLBACK TO Promote_Revised_Item;
4209: x_return_status := FND_API.G_RET_STS_ERROR;
4210: FND_MSG_PUB.Count_And_Get
4211: ( p_count => x_msg_count
4212: ,p_data => x_msg_data );
4213: IF g_debug_flag THEN
4212: ,p_data => x_msg_data );
4213: IF g_debug_flag THEN
4214: Write_Debug('Rollback and Finish with expected error.') ;
4215: END IF;
4216: IF FND_API.to_Boolean( p_debug ) THEN
4217: Close_Debug_Session;
4218: END IF;
4219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4220: --ROLLBACK TO Promote_Revised_Item;
4215: END IF;
4216: IF FND_API.to_Boolean( p_debug ) THEN
4217: Close_Debug_Session;
4218: END IF;
4219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4220: --ROLLBACK TO Promote_Revised_Item;
4221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4222: FND_MSG_PUB.Count_And_Get
4223: ( p_count => x_msg_count
4217: Close_Debug_Session;
4218: END IF;
4219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4220: --ROLLBACK TO Promote_Revised_Item;
4221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4222: FND_MSG_PUB.Count_And_Get
4223: ( p_count => x_msg_count
4224: ,p_data => x_msg_data );
4225: IF g_debug_flag THEN
4224: ,p_data => x_msg_data );
4225: IF g_debug_flag THEN
4226: Write_Debug('Rollback and Finish with unexpected error.') ;
4227: END IF;
4228: IF FND_API.to_Boolean( p_debug ) THEN
4229: Close_Debug_Session;
4230: END IF;
4231: WHEN OTHERS THEN
4232: --ROLLBACK TO Promote_Revised_Item;
4229: Close_Debug_Session;
4230: END IF;
4231: WHEN OTHERS THEN
4232: --ROLLBACK TO Promote_Revised_Item;
4233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4234: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4235: THEN
4236: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4237: END IF;
4240: ,p_data => x_msg_data );
4241: IF g_debug_flag THEN
4242: Write_Debug('Rollback and Finish with other error.') ;
4243: END IF;
4244: IF FND_API.to_Boolean( p_debug ) THEN
4245: Close_Debug_Session;
4246: END IF;
4247: END Promote_Revised_Item;
4248:
4250: -- Internal procedure for demotion of change header (inc. revItems)
4251: PROCEDURE Demote_Revised_Item
4252: (
4253: p_api_version IN NUMBER --
4254: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4255: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4256: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4257: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4258: ,p_output_dir IN VARCHAR2 := NULL
4251: PROCEDURE Demote_Revised_Item
4252: (
4253: p_api_version IN NUMBER --
4254: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4255: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4256: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4257: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4258: ,p_output_dir IN VARCHAR2 := NULL
4259: ,p_debug_filename IN VARCHAR2 := NULL
4252: (
4253: p_api_version IN NUMBER --
4254: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4255: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4256: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4257: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4258: ,p_output_dir IN VARCHAR2 := NULL
4259: ,p_debug_filename IN VARCHAR2 := NULL
4260: ,x_return_status OUT NOCOPY VARCHAR2 --
4253: p_api_version IN NUMBER --
4254: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4255: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4256: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4257: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4258: ,p_output_dir IN VARCHAR2 := NULL
4259: ,p_debug_filename IN VARCHAR2 := NULL
4260: ,x_return_status OUT NOCOPY VARCHAR2 --
4261: ,x_msg_count OUT NOCOPY NUMBER --
4292: BEGIN
4293: -- Standard Start of API savepoint
4294: SAVEPOINT Demote_Revised_Item;
4295: -- Standard call to check for call compatibility
4296: IF NOT FND_API.Compatible_API_Call ( l_api_version
4297: ,p_api_version
4298: ,l_api_name
4299: ,G_PKG_NAME )
4300: THEN
4297: ,p_api_version
4298: ,l_api_name
4299: ,G_PKG_NAME )
4300: THEN
4301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4302: END IF;
4303: -- Initialize message list if p_init_msg_list is set to TRUE.
4304: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4305: FND_MSG_PUB.initialize;
4300: THEN
4301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4302: END IF;
4303: -- Initialize message list if p_init_msg_list is set to TRUE.
4304: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4305: FND_MSG_PUB.initialize;
4306: END IF;
4307:
4308:
4308:
4309: -- For Test/Debug
4310: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
4311: -- R12 Comment out
4312: -- IF FND_API.to_Boolean( p_debug ) THEN
4313: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
4314: -- END IF;
4315:
4316: -- Write debug message if debug mode is on
4325: Write_Debug('Initializing return status... ' );
4326: END IF;
4327:
4328: -- Initialize API return status to success
4329: x_return_status := FND_API.G_RET_STS_SUCCESS;
4330:
4331: -- FND_PROFILE package is not available for workflow (WF),
4332: -- therefore manually set WHO column values
4333: IF p_api_caller = 'WF' THEN
4368: -- Sanity check to make sure the new phase is after the current phase
4369: IF l_new_phase_sn >= l_ri_phase_sn THEN
4370: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
4371: FND_MSG_PUB.Add;
4372: RAISE FND_API.G_EXC_ERROR;
4373: END IF;
4374:
4375: -- Get the status_type of the new phase
4376: SELECT status_type
4391: OR l_ri_status_type = G_ENG_CANCELLED)
4392: THEN
4393: FND_MESSAGE.Set_Name('ENG','ENG_REVITEM_IMP_OR_CNCL');
4394: FND_MSG_PUB.Add;
4395: RAISE FND_API.G_EXC_ERROR;
4396: ELSE
4397: -- update parent revised item
4398: UPDATE eng_revised_items
4399: SET status_code = p_status_code,
4454: END IF;
4455:
4456: Demote_Header
4457: ( p_api_version => 1.0
4458: ,p_init_msg_list => FND_API.G_FALSE
4459: ,p_commit => FND_API.G_FALSE
4460: ,p_validation_level => p_validation_level
4461: ,p_debug => FND_API.G_FALSE
4462: ,p_output_dir => p_output_dir
4455:
4456: Demote_Header
4457: ( p_api_version => 1.0
4458: ,p_init_msg_list => FND_API.G_FALSE
4459: ,p_commit => FND_API.G_FALSE
4460: ,p_validation_level => p_validation_level
4461: ,p_debug => FND_API.G_FALSE
4462: ,p_output_dir => p_output_dir
4463: ,p_debug_filename => p_debug_filename
4457: ( p_api_version => 1.0
4458: ,p_init_msg_list => FND_API.G_FALSE
4459: ,p_commit => FND_API.G_FALSE
4460: ,p_validation_level => p_validation_level
4461: ,p_debug => FND_API.G_FALSE
4462: ,p_output_dir => p_output_dir
4463: ,p_debug_filename => p_debug_filename
4464: ,x_return_status => l_return_status
4465: ,x_msg_count => l_msg_count
4473: IF g_debug_flag THEN
4474: Write_Debug('After: calling Demote_Header procedure: ' || l_return_status);
4475: END IF;
4476:
4477: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4478: x_return_status := l_return_status;
4479: x_msg_count := l_msg_count;
4480: x_msg_data := l_msg_data;
4481: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4480: x_msg_data := l_msg_data;
4481: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4482: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
4483: --#FND_MSG_PUB.Add;
4484: RAISE FND_API.G_EXC_ERROR;
4485: END IF;
4486:
4487: IF g_debug_flag THEN
4488: Write_Debug('Successful: calling Demote_Header procedure');
4495: Write_Debug('Done: Updating revised items to the new phase');
4496: END IF;
4497:
4498: -- Standard ending code ------------------------------------------------
4499: IF FND_API.To_Boolean ( p_commit ) THEN
4500: COMMIT WORK;
4501: END IF;
4502:
4503: FND_MSG_PUB.Count_And_Get
4507: IF g_debug_flag THEN
4508: Write_Debug('Finish. End Of procedure: Demote_Revised_Item');
4509: END IF;
4510:
4511: IF FND_API.to_Boolean( p_debug ) THEN
4512: Close_Debug_Session;
4513: END IF;
4514:
4515: EXCEPTION
4512: Close_Debug_Session;
4513: END IF;
4514:
4515: EXCEPTION
4516: WHEN FND_API.G_EXC_ERROR THEN
4517: --ROLLBACK TO Demote_Revised_Item;
4518: x_return_status := FND_API.G_RET_STS_ERROR;
4519: FND_MSG_PUB.Count_And_Get
4520: ( p_count => x_msg_count
4514:
4515: EXCEPTION
4516: WHEN FND_API.G_EXC_ERROR THEN
4517: --ROLLBACK TO Demote_Revised_Item;
4518: x_return_status := FND_API.G_RET_STS_ERROR;
4519: FND_MSG_PUB.Count_And_Get
4520: ( p_count => x_msg_count
4521: ,p_data => x_msg_data );
4522: IF g_debug_flag THEN
4521: ,p_data => x_msg_data );
4522: IF g_debug_flag THEN
4523: Write_Debug('Rollback and Finish with expected error.') ;
4524: END IF;
4525: IF FND_API.to_Boolean( p_debug ) THEN
4526: Close_Debug_Session;
4527: END IF;
4528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4529: --ROLLBACK TO Demote_Revised_Item;
4524: END IF;
4525: IF FND_API.to_Boolean( p_debug ) THEN
4526: Close_Debug_Session;
4527: END IF;
4528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4529: --ROLLBACK TO Demote_Revised_Item;
4530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4531: FND_MSG_PUB.Count_And_Get
4532: ( p_count => x_msg_count
4526: Close_Debug_Session;
4527: END IF;
4528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4529: --ROLLBACK TO Demote_Revised_Item;
4530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4531: FND_MSG_PUB.Count_And_Get
4532: ( p_count => x_msg_count
4533: ,p_data => x_msg_data );
4534: IF g_debug_flag THEN
4533: ,p_data => x_msg_data );
4534: IF g_debug_flag THEN
4535: Write_Debug('Rollback and Finish with unexpected error.') ;
4536: END IF;
4537: IF FND_API.to_Boolean( p_debug ) THEN
4538: Close_Debug_Session;
4539: END IF;
4540: WHEN OTHERS THEN
4541: --ROLLBACK TO Demote_Revised_Item;
4538: Close_Debug_Session;
4539: END IF;
4540: WHEN OTHERS THEN
4541: --ROLLBACK TO Demote_Revised_Item;
4542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4543: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4544: THEN
4545: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4546: END IF;
4549: ,p_data => x_msg_data );
4550: IF g_debug_flag THEN
4551: Write_Debug('Rollback and Finish with other error.') ;
4552: END IF;
4553: IF FND_API.to_Boolean( p_debug ) THEN
4554: Close_Debug_Session;
4555: END IF;
4556: END Demote_Revised_Item;
4557:
4560: -- Note that this procedure can ONLY be called directly from UI
4561: PROCEDURE Change_Phase
4562: (
4563: p_api_version IN NUMBER --
4564: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4565: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4566: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4567: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4568: ,p_output_dir IN VARCHAR2 := NULL
4561: PROCEDURE Change_Phase
4562: (
4563: p_api_version IN NUMBER --
4564: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4565: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4566: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4567: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4568: ,p_output_dir IN VARCHAR2 := NULL
4569: ,p_debug_filename IN VARCHAR2 := NULL
4562: (
4563: p_api_version IN NUMBER --
4564: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4565: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4566: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4567: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4568: ,p_output_dir IN VARCHAR2 := NULL
4569: ,p_debug_filename IN VARCHAR2 := NULL
4570: ,x_return_status OUT NOCOPY VARCHAR2 --
4563: p_api_version IN NUMBER --
4564: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4565: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4566: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4567: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4568: ,p_output_dir IN VARCHAR2 := NULL
4569: ,p_debug_filename IN VARCHAR2 := NULL
4570: ,x_return_status OUT NOCOPY VARCHAR2 --
4571: ,x_msg_count OUT NOCOPY NUMBER --
4595: BEGIN
4596: -- Standard Start of API savepoint
4597: SAVEPOINT Change_Phase;
4598: -- Standard call to check for call compatibility
4599: IF NOT FND_API.Compatible_API_Call ( l_api_version
4600: ,p_api_version
4601: ,l_api_name
4602: ,G_PKG_NAME )
4603: THEN
4600: ,p_api_version
4601: ,l_api_name
4602: ,G_PKG_NAME )
4603: THEN
4604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4605: END IF;
4606: -- Initialize message list if p_init_msg_list is set to TRUE.
4607: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4608: FND_MSG_PUB.initialize;
4603: THEN
4604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4605: END IF;
4606: -- Initialize message list if p_init_msg_list is set to TRUE.
4607: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4608: FND_MSG_PUB.initialize;
4609: END IF;
4610:
4611:
4611:
4612: -- For Test/Debug
4613: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
4614: -- R12 Comment out
4615: -- IF FND_API.to_Boolean( p_debug ) THEN
4616: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
4617: -- END IF;
4618:
4619: -- Write debug message if debug mode is on
4630: Write_Debug('Initializing return status... ' );
4631: END IF;
4632:
4633: -- Initialize API return status to success
4634: x_return_status := FND_API.G_RET_STS_SUCCESS;
4635:
4636:
4637: -- Real code starts here -----------------------------------------------
4638: IF (p_object_name = G_ENG_CHANGE) THEN
4660: AND l_wf_status = Eng_Workflow_Util.G_RT_IN_PROGRESS)
4661: THEN
4662: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
4663: FND_MSG_PUB.Add;
4664: RAISE FND_API.G_EXC_ERROR;
4665: END IF;
4666:
4667: IF ( p_action_type = G_ENG_PROMOTE ) THEN
4668: Promote_Header
4666:
4667: IF ( p_action_type = G_ENG_PROMOTE ) THEN
4668: Promote_Header
4669: ( p_api_version => 1.0
4670: ,p_init_msg_list => FND_API.G_FALSE
4671: ,p_commit => FND_API.G_FALSE
4672: ,p_validation_level => p_validation_level
4673: ,p_debug => FND_API.G_FALSE
4674: ,p_output_dir => p_output_dir
4667: IF ( p_action_type = G_ENG_PROMOTE ) THEN
4668: Promote_Header
4669: ( p_api_version => 1.0
4670: ,p_init_msg_list => FND_API.G_FALSE
4671: ,p_commit => FND_API.G_FALSE
4672: ,p_validation_level => p_validation_level
4673: ,p_debug => FND_API.G_FALSE
4674: ,p_output_dir => p_output_dir
4675: ,p_debug_filename => p_debug_filename
4669: ( p_api_version => 1.0
4670: ,p_init_msg_list => FND_API.G_FALSE
4671: ,p_commit => FND_API.G_FALSE
4672: ,p_validation_level => p_validation_level
4673: ,p_debug => FND_API.G_FALSE
4674: ,p_output_dir => p_output_dir
4675: ,p_debug_filename => p_debug_filename
4676: ,x_return_status => l_return_status
4677: ,x_msg_count => l_msg_count
4688: END IF;
4689:
4690:
4691:
4692: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4693: x_return_status := l_return_status;
4694: x_msg_count := l_msg_count;
4695: x_msg_data := l_msg_data;
4696: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4695: x_msg_data := l_msg_data;
4696: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4697: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Promote_Header');
4698: --#FND_MSG_PUB.Add;
4699: RAISE FND_API.G_EXC_ERROR;
4700: END IF;
4701: ELSIF ( p_action_type = G_ENG_DEMOTE ) THEN
4702:
4703: Demote_Header
4701: ELSIF ( p_action_type = G_ENG_DEMOTE ) THEN
4702:
4703: Demote_Header
4704: ( p_api_version => 1.0
4705: ,p_init_msg_list => FND_API.G_FALSE
4706: ,p_commit => FND_API.G_FALSE
4707: ,p_validation_level => p_validation_level
4708: ,p_debug => FND_API.G_FALSE
4709: ,p_output_dir => p_output_dir
4702:
4703: Demote_Header
4704: ( p_api_version => 1.0
4705: ,p_init_msg_list => FND_API.G_FALSE
4706: ,p_commit => FND_API.G_FALSE
4707: ,p_validation_level => p_validation_level
4708: ,p_debug => FND_API.G_FALSE
4709: ,p_output_dir => p_output_dir
4710: ,p_debug_filename => p_debug_filename
4704: ( p_api_version => 1.0
4705: ,p_init_msg_list => FND_API.G_FALSE
4706: ,p_commit => FND_API.G_FALSE
4707: ,p_validation_level => p_validation_level
4708: ,p_debug => FND_API.G_FALSE
4709: ,p_output_dir => p_output_dir
4710: ,p_debug_filename => p_debug_filename
4711: ,x_return_status => l_return_status
4712: ,x_msg_count => l_msg_count
4722: Write_Debug('After: calling Demote_Header procedure: ' || l_return_status);
4723: END IF;
4724:
4725:
4726: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4727: x_return_status := l_return_status;
4728: x_msg_count := l_msg_count;
4729: x_msg_data := l_msg_data;
4730: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4729: x_msg_data := l_msg_data;
4730: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4731: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
4732: --#FND_MSG_PUB.Add;
4733: RAISE FND_API.G_EXC_ERROR;
4734: END IF;
4735: ELSE
4736: IF g_debug_flag THEN
4737: Write_Debug('Error: action is neither promotion nor demotion') ;
4742:
4743: IF ( p_action_type = G_ENG_PROMOTE ) THEN
4744: Promote_Revised_Item
4745: ( p_api_version => 1.0
4746: ,p_init_msg_list => FND_API.G_FALSE
4747: ,p_commit => FND_API.G_FALSE
4748: ,p_validation_level => p_validation_level
4749: ,p_debug => FND_API.G_FALSE
4750: ,p_output_dir => p_output_dir
4743: IF ( p_action_type = G_ENG_PROMOTE ) THEN
4744: Promote_Revised_Item
4745: ( p_api_version => 1.0
4746: ,p_init_msg_list => FND_API.G_FALSE
4747: ,p_commit => FND_API.G_FALSE
4748: ,p_validation_level => p_validation_level
4749: ,p_debug => FND_API.G_FALSE
4750: ,p_output_dir => p_output_dir
4751: ,p_debug_filename => p_debug_filename
4745: ( p_api_version => 1.0
4746: ,p_init_msg_list => FND_API.G_FALSE
4747: ,p_commit => FND_API.G_FALSE
4748: ,p_validation_level => p_validation_level
4749: ,p_debug => FND_API.G_FALSE
4750: ,p_output_dir => p_output_dir
4751: ,p_debug_filename => p_debug_filename
4752: ,x_return_status => l_return_status
4753: ,x_msg_count => l_msg_count
4764: END IF;
4765:
4766:
4767:
4768: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4769: x_return_status := l_return_status;
4770: x_msg_count := l_msg_count;
4771: x_msg_data := l_msg_data;
4772: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4771: x_msg_data := l_msg_data;
4772: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4773: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Promote_Revised_Item');
4774: --#FND_MSG_PUB.Add;
4775: RAISE FND_API.G_EXC_ERROR;
4776: END IF;
4777:
4778: ELSIF ( p_action_type = G_ENG_DEMOTE ) THEN
4779: Demote_Revised_Item
4777:
4778: ELSIF ( p_action_type = G_ENG_DEMOTE ) THEN
4779: Demote_Revised_Item
4780: ( p_api_version => 1.0
4781: ,p_init_msg_list => FND_API.G_FALSE
4782: ,p_commit => FND_API.G_FALSE
4783: ,p_validation_level => p_validation_level
4784: ,p_debug => FND_API.G_FALSE
4785: ,p_output_dir => p_output_dir
4778: ELSIF ( p_action_type = G_ENG_DEMOTE ) THEN
4779: Demote_Revised_Item
4780: ( p_api_version => 1.0
4781: ,p_init_msg_list => FND_API.G_FALSE
4782: ,p_commit => FND_API.G_FALSE
4783: ,p_validation_level => p_validation_level
4784: ,p_debug => FND_API.G_FALSE
4785: ,p_output_dir => p_output_dir
4786: ,p_debug_filename => p_debug_filename
4780: ( p_api_version => 1.0
4781: ,p_init_msg_list => FND_API.G_FALSE
4782: ,p_commit => FND_API.G_FALSE
4783: ,p_validation_level => p_validation_level
4784: ,p_debug => FND_API.G_FALSE
4785: ,p_output_dir => p_output_dir
4786: ,p_debug_filename => p_debug_filename
4787: ,x_return_status => l_return_status
4788: ,x_msg_count => l_msg_count
4797: Write_Debug('After: calling Demote_Revised_Item procedure: ' || l_return_status);
4798: END IF;
4799:
4800:
4801: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4802: x_return_status := l_return_status;
4803: x_msg_count := l_msg_count;
4804: x_msg_data := l_msg_data;
4805: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4804: x_msg_data := l_msg_data;
4805: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4806: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Revised_Item');
4807: --#FND_MSG_PUB.Add;
4808: RAISE FND_API.G_EXC_ERROR;
4809: END IF;
4810: ELSE
4811: IF g_debug_flag THEN
4812: Write_Debug('Error: action is neither promotion nor demotion') ;
4818: END IF;
4819: END IF;
4820:
4821: -- Standard ending code ------------------------------------------------
4822: IF FND_API.To_Boolean ( p_commit ) THEN
4823: COMMIT WORK;
4824: END IF;
4825:
4826: FND_MSG_PUB.Count_And_Get
4830: IF g_debug_flag THEN
4831: Write_Debug('Finish. End Of procedure: Change_Phase');
4832: END IF;
4833:
4834: IF FND_API.to_Boolean( p_debug ) THEN
4835: Close_Debug_Session;
4836: END IF;
4837:
4838: EXCEPTION
4835: Close_Debug_Session;
4836: END IF;
4837:
4838: EXCEPTION
4839: WHEN FND_API.G_EXC_ERROR THEN
4840: --ROLLBACK TO Change_Phase;
4841: x_return_status := FND_API.G_RET_STS_ERROR;
4842: FND_MSG_PUB.Count_And_Get
4843: ( p_count => x_msg_count
4837:
4838: EXCEPTION
4839: WHEN FND_API.G_EXC_ERROR THEN
4840: --ROLLBACK TO Change_Phase;
4841: x_return_status := FND_API.G_RET_STS_ERROR;
4842: FND_MSG_PUB.Count_And_Get
4843: ( p_count => x_msg_count
4844: ,p_data => x_msg_data );
4845: IF g_debug_flag THEN
4844: ,p_data => x_msg_data );
4845: IF g_debug_flag THEN
4846: Write_Debug('Rollback and Finish with expected error.') ;
4847: END IF;
4848: IF FND_API.to_Boolean( p_debug ) THEN
4849: Close_Debug_Session;
4850: END IF;
4851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4852: --ROLLBACK TO Change_Phase;
4847: END IF;
4848: IF FND_API.to_Boolean( p_debug ) THEN
4849: Close_Debug_Session;
4850: END IF;
4851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4852: --ROLLBACK TO Change_Phase;
4853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4854: FND_MSG_PUB.Count_And_Get
4855: ( p_count => x_msg_count
4849: Close_Debug_Session;
4850: END IF;
4851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4852: --ROLLBACK TO Change_Phase;
4853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4854: FND_MSG_PUB.Count_And_Get
4855: ( p_count => x_msg_count
4856: ,p_data => x_msg_data );
4857: IF g_debug_flag THEN
4856: ,p_data => x_msg_data );
4857: IF g_debug_flag THEN
4858: Write_Debug('Rollback and Finish with unexpected error.') ;
4859: END IF;
4860: IF FND_API.to_Boolean( p_debug ) THEN
4861: Close_Debug_Session;
4862: END IF;
4863: WHEN OTHERS THEN
4864: --ROLLBACK TO Change_Phase;
4861: Close_Debug_Session;
4862: END IF;
4863: WHEN OTHERS THEN
4864: --ROLLBACK TO Change_Phase;
4865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4866: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4867: THEN
4868: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4869: END IF;
4872: ,p_data => x_msg_data );
4873: IF g_debug_flag THEN
4874: Write_Debug('Rollback and Finish with other error.') ;
4875: END IF;
4876: IF FND_API.to_Boolean( p_debug ) THEN
4877: Close_Debug_Session;
4878: END IF;
4879:
4880: END Change_Phase;
4881:
4882: PROCEDURE Change_Phase
4883: (
4884: p_api_version IN NUMBER --
4885: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4886: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4887: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4888: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4889: ,p_output_dir IN VARCHAR2 := NULL
4882: PROCEDURE Change_Phase
4883: (
4884: p_api_version IN NUMBER --
4885: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4886: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4887: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4888: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4889: ,p_output_dir IN VARCHAR2 := NULL
4890: ,p_debug_filename IN VARCHAR2 := NULL
4883: (
4884: p_api_version IN NUMBER --
4885: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4886: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4887: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4888: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4889: ,p_output_dir IN VARCHAR2 := NULL
4890: ,p_debug_filename IN VARCHAR2 := NULL
4891: ,x_return_status OUT NOCOPY VARCHAR2 --
4884: p_api_version IN NUMBER --
4885: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4886: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4887: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4888: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4889: ,p_output_dir IN VARCHAR2 := NULL
4890: ,p_debug_filename IN VARCHAR2 := NULL
4891: ,x_return_status OUT NOCOPY VARCHAR2 --
4892: ,x_msg_count OUT NOCOPY NUMBER --
4934: -- revised items, tasks and lines lifecycle states
4935: PROCEDURE Update_Lifecycle_States
4936: (
4937: p_api_version IN NUMBER --
4938: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4939: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4940: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4941: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4942: ,p_output_dir IN VARCHAR2 := NULL
4935: PROCEDURE Update_Lifecycle_States
4936: (
4937: p_api_version IN NUMBER --
4938: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4939: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4940: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4941: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4942: ,p_output_dir IN VARCHAR2 := NULL
4943: ,p_debug_filename IN VARCHAR2 := NULL
4936: (
4937: p_api_version IN NUMBER --
4938: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4939: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4940: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4941: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4942: ,p_output_dir IN VARCHAR2 := NULL
4943: ,p_debug_filename IN VARCHAR2 := NULL
4944: ,x_return_status OUT NOCOPY VARCHAR2 --
4937: p_api_version IN NUMBER --
4938: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
4939: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
4940: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4941: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
4942: ,p_output_dir IN VARCHAR2 := NULL
4943: ,p_debug_filename IN VARCHAR2 := NULL
4944: ,x_return_status OUT NOCOPY VARCHAR2 --
4945: ,x_msg_count OUT NOCOPY NUMBER --
5011:
5012: -- Standard Start of API savepoint
5013: SAVEPOINT Update_Lifecycle_States;
5014: -- Standard call to check for call compatibility
5015: IF NOT FND_API.Compatible_API_Call ( l_api_version
5016: ,p_api_version
5017: ,l_api_name
5018: ,G_PKG_NAME )
5019: THEN
5016: ,p_api_version
5017: ,l_api_name
5018: ,G_PKG_NAME )
5019: THEN
5020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5021: END IF;
5022: -- Initialize message list if p_init_msg_list is set to TRUE.
5023: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5024: FND_MSG_PUB.initialize;
5019: THEN
5020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5021: END IF;
5022: -- Initialize message list if p_init_msg_list is set to TRUE.
5023: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5024: FND_MSG_PUB.initialize;
5025: END IF;
5026:
5027:
5027:
5028: -- For Test/Debug
5029: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
5030: -- R12 Comment out
5031: -- IF FND_API.to_Boolean( p_debug ) THEN
5032: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
5033: -- END IF;
5034:
5035: -- Write debug message if debug mode is on
5047: Write_Debug('Initializing return status... ' );
5048: END IF;
5049:
5050: -- Initialize API return status to success
5051: x_return_status := FND_API.G_RET_STS_SUCCESS;
5052:
5053: -- FND_PROFILE package is not available for workflow (WF),
5054: -- therefore manually set WHO column values
5055: IF p_api_caller = 'WF' THEN
5213: Write_Debug(' l_org_id = ' || l_org_id);
5214: END IF;
5215: ENG_ECO_UTIL.Implement_ECO
5216: ( p_api_version => 1.0
5217: ,p_init_msg_list => FND_API.G_FALSE
5218: ,p_commit => FND_API.G_FALSE
5219: ,p_validation_level => p_validation_level
5220: ,p_debug => p_debug --FND_API.G_FALSE
5221: ,p_output_dir => p_output_dir
5214: END IF;
5215: ENG_ECO_UTIL.Implement_ECO
5216: ( p_api_version => 1.0
5217: ,p_init_msg_list => FND_API.G_FALSE
5218: ,p_commit => FND_API.G_FALSE
5219: ,p_validation_level => p_validation_level
5220: ,p_debug => p_debug --FND_API.G_FALSE
5221: ,p_output_dir => p_output_dir
5222: ,p_debug_filename => 'engact.impECO.log' --p_debug_filename
5216: ( p_api_version => 1.0
5217: ,p_init_msg_list => FND_API.G_FALSE
5218: ,p_commit => FND_API.G_FALSE
5219: ,p_validation_level => p_validation_level
5220: ,p_debug => p_debug --FND_API.G_FALSE
5221: ,p_output_dir => p_output_dir
5222: ,p_debug_filename => 'engact.impECO.log' --p_debug_filename
5223: ,x_return_status => l_return_status
5224: ,x_msg_count => l_msg_count
5249: SET implementation_req_id = l_request_id
5250: WHERE change_id = p_change_id;
5251: END IF;
5252:
5253: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS
5254: OR l_request_id IS NULL
5255: OR l_request_id = 0 )
5256: THEN
5257: l_flag_imp_failed := 'Y';
5271: l_action_id := 0;
5272: -- create new action log
5273: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
5274: ( p_api_version => 1.0
5275: , p_init_msg_list => FND_API.G_FALSE --
5276: , p_commit => FND_API.G_FALSE --
5277: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5278: , p_debug => p_debug --FND_API.G_FALSE
5279: , p_output_dir => p_output_dir
5272: -- create new action log
5273: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
5274: ( p_api_version => 1.0
5275: , p_init_msg_list => FND_API.G_FALSE --
5276: , p_commit => FND_API.G_FALSE --
5277: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5278: , p_debug => p_debug --FND_API.G_FALSE
5279: , p_output_dir => p_output_dir
5280: , p_debug_filename => NULL
5273: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
5274: ( p_api_version => 1.0
5275: , p_init_msg_list => FND_API.G_FALSE --
5276: , p_commit => FND_API.G_FALSE --
5277: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5278: , p_debug => p_debug --FND_API.G_FALSE
5279: , p_output_dir => p_output_dir
5280: , p_debug_filename => NULL
5281: , x_return_status => l_return_status
5274: ( p_api_version => 1.0
5275: , p_init_msg_list => FND_API.G_FALSE --
5276: , p_commit => FND_API.G_FALSE --
5277: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5278: , p_debug => p_debug --FND_API.G_FALSE
5279: , p_output_dir => p_output_dir
5280: , p_debug_filename => NULL
5281: , x_return_status => l_return_status
5282: , x_msg_count => l_msg_count
5302: Write_Debug('l_action_id : ' || l_action_id );
5303: END IF;
5304:
5305:
5306: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
5307: THEN
5308: x_return_status := l_return_status;
5309: x_msg_count := l_msg_count;
5310: x_msg_data := l_msg_data;
5310: x_msg_data := l_msg_data;
5311: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5312: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
5313: --#FND_MSG_PUB.Add;
5314: RAISE FND_API.G_EXC_ERROR;
5315: END IF;
5316: IF g_debug_flag THEN
5317: Write_Debug('Successful: saving action log');
5318: END IF;
5322: x_msg_data := l_msg_data;
5323: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CONCURRENT_PRGM');
5324: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Implement_ECO');
5325: FND_MSG_PUB.Add;
5326: RAISE FND_API.G_EXC_ERROR;
5327: END IF;
5328: END IF;
5329:
5330: IF (l_flag_imp_failed = 'N') THEN
5352: l_action_id := 0;
5353: -- create new action log
5354: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
5355: ( p_api_version => 1.0
5356: , p_init_msg_list => FND_API.G_FALSE --
5357: , p_commit => FND_API.G_FALSE --
5358: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5359: , p_debug => p_debug --FND_API.G_FALSE
5360: , p_output_dir => p_output_dir
5353: -- create new action log
5354: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
5355: ( p_api_version => 1.0
5356: , p_init_msg_list => FND_API.G_FALSE --
5357: , p_commit => FND_API.G_FALSE --
5358: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5359: , p_debug => p_debug --FND_API.G_FALSE
5360: , p_output_dir => p_output_dir
5361: , p_debug_filename => NULL
5354: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
5355: ( p_api_version => 1.0
5356: , p_init_msg_list => FND_API.G_FALSE --
5357: , p_commit => FND_API.G_FALSE --
5358: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5359: , p_debug => p_debug --FND_API.G_FALSE
5360: , p_output_dir => p_output_dir
5361: , p_debug_filename => NULL
5362: , x_return_status => l_return_status
5355: ( p_api_version => 1.0
5356: , p_init_msg_list => FND_API.G_FALSE --
5357: , p_commit => FND_API.G_FALSE --
5358: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5359: , p_debug => p_debug --FND_API.G_FALSE
5360: , p_output_dir => p_output_dir
5361: , p_debug_filename => NULL
5362: , x_return_status => l_return_status
5363: , x_msg_count => l_msg_count
5382: Write_Debug('After: saving action log: ' || l_return_status );
5383: Write_Debug('l_action_id : ' || l_action_id );
5384: END IF;
5385:
5386: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
5387: THEN
5388: x_return_status := l_return_status;
5389: x_msg_count := l_msg_count;
5390: x_msg_data := l_msg_data;
5390: x_msg_data := l_msg_data;
5391: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5392: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
5393: --#FND_MSG_PUB.Add;
5394: RAISE FND_API.G_EXC_ERROR;
5395: END IF;
5396: IF g_debug_flag THEN
5397: Write_Debug('Successful: saving action log');
5398: END IF;
5476: -- Force commit to prevent stucking on a phase in case of auto-promotion
5477: -- or auto-demotion failure triggered by workflow background engine
5478: IF (p_api_caller = 'WF' AND l_chg_appr_status = G_ENG_APPR_APPROVED)
5479: THEN
5480: IF FND_API.To_Boolean ( p_commit ) THEN -- fix by 14018580, in PIP session, using XA Datsource and hard commits will cause this subordination session error.
5481: COMMIT WORK;
5482: END IF;
5483: END IF;
5484:
5553: -- Launch header approval status change workflow
5554: Update_Header_Appr_Status
5555: (
5556: p_api_version => 1.0
5557: ,p_init_msg_list => FND_API.G_FALSE
5558: ,p_commit => FND_API.G_FALSE
5559: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5560: ,p_debug => FND_API.G_FALSE
5561: ,p_output_dir => p_output_dir
5554: Update_Header_Appr_Status
5555: (
5556: p_api_version => 1.0
5557: ,p_init_msg_list => FND_API.G_FALSE
5558: ,p_commit => FND_API.G_FALSE
5559: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5560: ,p_debug => FND_API.G_FALSE
5561: ,p_output_dir => p_output_dir
5562: ,p_debug_filename => p_debug_filename
5555: (
5556: p_api_version => 1.0
5557: ,p_init_msg_list => FND_API.G_FALSE
5558: ,p_commit => FND_API.G_FALSE
5559: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5560: ,p_debug => FND_API.G_FALSE
5561: ,p_output_dir => p_output_dir
5562: ,p_debug_filename => p_debug_filename
5563: ,x_return_status => l_return_status
5556: p_api_version => 1.0
5557: ,p_init_msg_list => FND_API.G_FALSE
5558: ,p_commit => FND_API.G_FALSE
5559: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5560: ,p_debug => FND_API.G_FALSE
5561: ,p_output_dir => p_output_dir
5562: ,p_debug_filename => p_debug_filename
5563: ,x_return_status => l_return_status
5564: ,x_msg_count => l_msg_count
5576: Write_Debug('After: Update_Header_Appr_Status: ' || l_return_status );
5577: END IF;
5578:
5579:
5580: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
5581: THEN
5582: x_return_status := l_return_status;
5583: x_msg_count := l_msg_count;
5584: x_msg_data := l_msg_data;
5581: THEN
5582: x_return_status := l_return_status;
5583: x_msg_count := l_msg_count;
5584: x_msg_data := l_msg_data;
5585: RAISE FND_API.G_EXC_ERROR;
5586: END IF;
5587: IF g_debug_flag THEN
5588: Write_Debug('After: calling Update_Header_Appr_Status');
5589: END IF;
5623: Write_Debug('Branch: Exists non completed/implemented/cancelled lines');
5624: END IF;
5625: FND_MESSAGE.Set_Name('ENG','ENG_EXIST_ACTIVE_LINES');
5626: FND_MSG_PUB.Add;
5627: RAISE FND_API.G_EXC_ERROR;
5628: END IF;
5629: END LOOP;
5630: CLOSE c_lines;
5631:
5660:
5661: ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status
5662: (
5663: p_api_version => 1.0
5664: ,p_init_msg_list => FND_API.G_FALSE
5665: ,p_commit => FND_API.G_FALSE
5666: ,p_validation_level => p_validation_level
5667: ,p_debug => p_debug --FND_API.G_FALSE
5668: ,p_output_dir => p_output_dir
5661: ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status
5662: (
5663: p_api_version => 1.0
5664: ,p_init_msg_list => FND_API.G_FALSE
5665: ,p_commit => FND_API.G_FALSE
5666: ,p_validation_level => p_validation_level
5667: ,p_debug => p_debug --FND_API.G_FALSE
5668: ,p_output_dir => p_output_dir
5669: ,p_debug_filename => NULL --p_debug_filename
5663: p_api_version => 1.0
5664: ,p_init_msg_list => FND_API.G_FALSE
5665: ,p_commit => FND_API.G_FALSE
5666: ,p_validation_level => p_validation_level
5667: ,p_debug => p_debug --FND_API.G_FALSE
5668: ,p_output_dir => p_output_dir
5669: ,p_debug_filename => NULL --p_debug_filename
5670: ,x_return_status => l_return_status
5671: ,x_msg_count => l_msg_count
5682:
5683:
5684:
5685:
5686: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5687: x_return_status := l_return_status;
5688: x_msg_count := l_msg_count;
5689: x_msg_data := l_msg_data;
5690: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5689: x_msg_data := l_msg_data;
5690: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5691: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status');
5692: --#FND_MSG_PUB.Add;
5693: RAISE FND_API.G_EXC_ERROR;
5694: END IF;
5695: END IF;
5696: IF g_debug_flag THEN
5697: Write_Debug('After: calling DM attachment approval/review API');
5742:
5743: Promote_Header
5744: (
5745: p_api_version => 1.0
5746: ,p_init_msg_list => FND_API.G_FALSE
5747: ,p_commit => FND_API.G_FALSE
5748: ,p_validation_level => p_validation_level
5749: ,p_debug => FND_API.G_FALSE
5750: ,p_output_dir => p_output_dir
5743: Promote_Header
5744: (
5745: p_api_version => 1.0
5746: ,p_init_msg_list => FND_API.G_FALSE
5747: ,p_commit => FND_API.G_FALSE
5748: ,p_validation_level => p_validation_level
5749: ,p_debug => FND_API.G_FALSE
5750: ,p_output_dir => p_output_dir
5751: ,p_debug_filename => p_debug_filename
5745: p_api_version => 1.0
5746: ,p_init_msg_list => FND_API.G_FALSE
5747: ,p_commit => FND_API.G_FALSE
5748: ,p_validation_level => p_validation_level
5749: ,p_debug => FND_API.G_FALSE
5750: ,p_output_dir => p_output_dir
5751: ,p_debug_filename => p_debug_filename
5752: ,x_return_status => l_return_status
5753: ,x_msg_count => l_msg_count
5761: Write_Debug('After: Promote_Header: ' || l_return_status );
5762: END IF;
5763:
5764:
5765: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5766: x_return_status := l_return_status;
5767: x_msg_count := l_msg_count;
5768: x_msg_data := l_msg_data;
5769: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5768: x_msg_data := l_msg_data;
5769: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5770: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Promote_Header');
5771: --#FND_MSG_PUB.Add;
5772: RAISE FND_API.G_EXC_ERROR;
5773: END IF;
5774:
5775: IF g_debug_flag THEN
5776: Write_Debug('After: calling PROMOTE_HEADER');
5860: END IF;
5861: Update_Header_Appr_Status
5862: (
5863: p_api_version => 1.0
5864: ,p_init_msg_list => FND_API.G_FALSE
5865: ,p_commit => FND_API.G_FALSE
5866: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5867: ,p_debug => FND_API.G_FALSE
5868: ,p_output_dir => p_output_dir
5861: Update_Header_Appr_Status
5862: (
5863: p_api_version => 1.0
5864: ,p_init_msg_list => FND_API.G_FALSE
5865: ,p_commit => FND_API.G_FALSE
5866: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5867: ,p_debug => FND_API.G_FALSE
5868: ,p_output_dir => p_output_dir
5869: ,p_debug_filename => p_debug_filename
5862: (
5863: p_api_version => 1.0
5864: ,p_init_msg_list => FND_API.G_FALSE
5865: ,p_commit => FND_API.G_FALSE
5866: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5867: ,p_debug => FND_API.G_FALSE
5868: ,p_output_dir => p_output_dir
5869: ,p_debug_filename => p_debug_filename
5870: ,x_return_status => l_return_status
5863: p_api_version => 1.0
5864: ,p_init_msg_list => FND_API.G_FALSE
5865: ,p_commit => FND_API.G_FALSE
5866: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5867: ,p_debug => FND_API.G_FALSE
5868: ,p_output_dir => p_output_dir
5869: ,p_debug_filename => p_debug_filename
5870: ,x_return_status => l_return_status
5871: ,x_msg_count => l_msg_count
5880: IF g_debug_flag THEN
5881: Write_Debug('After: calling Update_Header_Appr_Status: ' || l_return_status);
5882: END IF;
5883:
5884: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
5885: THEN
5886: x_return_status := l_return_status;
5887: x_msg_count := l_msg_count;
5888: x_msg_data := l_msg_data;
5885: THEN
5886: x_return_status := l_return_status;
5887: x_msg_count := l_msg_count;
5888: x_msg_data := l_msg_data;
5889: RAISE FND_API.G_EXC_ERROR;
5890: ELSE
5891: IF g_debug_flag THEN
5892: Write_Debug('Successful: calling Update_Header_Appr_Status');
5893: END IF;
5914:
5915: Demote_Header
5916: (
5917: p_api_version => 1.0
5918: ,p_init_msg_list => FND_API.G_FALSE
5919: ,p_commit => FND_API.G_FALSE
5920: ,p_validation_level => p_validation_level
5921: ,p_debug => FND_API.G_FALSE
5922: ,p_output_dir => p_output_dir
5915: Demote_Header
5916: (
5917: p_api_version => 1.0
5918: ,p_init_msg_list => FND_API.G_FALSE
5919: ,p_commit => FND_API.G_FALSE
5920: ,p_validation_level => p_validation_level
5921: ,p_debug => FND_API.G_FALSE
5922: ,p_output_dir => p_output_dir
5923: ,p_debug_filename => p_debug_filename
5917: p_api_version => 1.0
5918: ,p_init_msg_list => FND_API.G_FALSE
5919: ,p_commit => FND_API.G_FALSE
5920: ,p_validation_level => p_validation_level
5921: ,p_debug => FND_API.G_FALSE
5922: ,p_output_dir => p_output_dir
5923: ,p_debug_filename => p_debug_filename
5924: ,x_return_status => l_return_status
5925: ,x_msg_count => l_msg_count
5930: );
5931: IF g_debug_flag THEN
5932: Write_Debug('After: calling DEMOTE_HEADER procedure: ' || l_return_status);
5933: END IF;
5934: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5935: x_return_status := l_return_status;
5936: x_msg_count := l_msg_count;
5937: x_msg_data := l_msg_data;
5938: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5937: x_msg_data := l_msg_data;
5938: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5939: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
5940: --#FND_MSG_PUB.Add;
5941: RAISE FND_API.G_EXC_ERROR;
5942: END IF;
5943: IF g_debug_flag THEN
5944: Write_Debug('Successful: calling Demote_Header procedure');
5945: END IF;
5998: -- Launch header approval status change workflow
5999: Update_Header_Appr_Status
6000: (
6001: p_api_version => 1.0
6002: ,p_init_msg_list => FND_API.G_FALSE
6003: ,p_commit => FND_API.G_FALSE
6004: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6005: ,p_debug => FND_API.G_FALSE
6006: ,p_output_dir => p_output_dir
5999: Update_Header_Appr_Status
6000: (
6001: p_api_version => 1.0
6002: ,p_init_msg_list => FND_API.G_FALSE
6003: ,p_commit => FND_API.G_FALSE
6004: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6005: ,p_debug => FND_API.G_FALSE
6006: ,p_output_dir => p_output_dir
6007: ,p_debug_filename => p_debug_filename
6000: (
6001: p_api_version => 1.0
6002: ,p_init_msg_list => FND_API.G_FALSE
6003: ,p_commit => FND_API.G_FALSE
6004: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6005: ,p_debug => FND_API.G_FALSE
6006: ,p_output_dir => p_output_dir
6007: ,p_debug_filename => p_debug_filename
6008: ,x_return_status => l_return_status
6001: p_api_version => 1.0
6002: ,p_init_msg_list => FND_API.G_FALSE
6003: ,p_commit => FND_API.G_FALSE
6004: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6005: ,p_debug => FND_API.G_FALSE
6006: ,p_output_dir => p_output_dir
6007: ,p_debug_filename => p_debug_filename
6008: ,x_return_status => l_return_status
6009: ,x_msg_count => l_msg_count
6018: IF g_debug_flag THEN
6019: Write_Debug('After: calling Update_Header_Appr_Status: ' || l_return_status);
6020: END IF;
6021:
6022: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
6023: THEN
6024: x_return_status := l_return_status;
6025: x_msg_count := l_msg_count;
6026: x_msg_data := l_msg_data;
6023: THEN
6024: x_return_status := l_return_status;
6025: x_msg_count := l_msg_count;
6026: x_msg_data := l_msg_data;
6027: RAISE FND_API.G_EXC_ERROR;
6028: END IF;
6029: IF g_debug_flag THEN
6030: Write_Debug('After: calling Update_Header_Appr_Status');
6031: END IF;
6038: IF (p_status_code IS NULL) THEN
6039: FND_MESSAGE.Set_Name('ENG','ENG_OBJECT_CANT_BE_NULL');
6040: FND_MESSAGE.Set_Token('OBJECT_NAME', 'p_status_code passed by workflow');
6041: FND_MSG_PUB.Add;
6042: RAISE FND_API.G_EXC_ERROR;
6043: END IF;
6044: -- update phase workflow status
6045: UPDATE eng_lifecycle_statuses
6046: SET workflow_status = p_route_status,
6077: END IF;
6078: Update_Header_Appr_Status
6079: (
6080: p_api_version => 1.0
6081: ,p_init_msg_list => FND_API.G_FALSE
6082: ,p_commit => FND_API.G_FALSE
6083: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6084: ,p_debug => FND_API.G_FALSE
6085: ,p_output_dir => p_output_dir
6078: Update_Header_Appr_Status
6079: (
6080: p_api_version => 1.0
6081: ,p_init_msg_list => FND_API.G_FALSE
6082: ,p_commit => FND_API.G_FALSE
6083: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6084: ,p_debug => FND_API.G_FALSE
6085: ,p_output_dir => p_output_dir
6086: ,p_debug_filename => p_debug_filename
6079: (
6080: p_api_version => 1.0
6081: ,p_init_msg_list => FND_API.G_FALSE
6082: ,p_commit => FND_API.G_FALSE
6083: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6084: ,p_debug => FND_API.G_FALSE
6085: ,p_output_dir => p_output_dir
6086: ,p_debug_filename => p_debug_filename
6087: ,x_return_status => l_return_status
6080: p_api_version => 1.0
6081: ,p_init_msg_list => FND_API.G_FALSE
6082: ,p_commit => FND_API.G_FALSE
6083: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6084: ,p_debug => FND_API.G_FALSE
6085: ,p_output_dir => p_output_dir
6086: ,p_debug_filename => p_debug_filename
6087: ,x_return_status => l_return_status
6088: ,x_msg_count => l_msg_count
6098: Write_Debug('After: calling Update_Header_Appr_Status: ' || l_return_status);
6099: END IF;
6100:
6101:
6102: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
6103: THEN
6104: x_return_status := l_return_status;
6105: x_msg_count := l_msg_count;
6106: x_msg_data := l_msg_data;
6103: THEN
6104: x_return_status := l_return_status;
6105: x_msg_count := l_msg_count;
6106: x_msg_data := l_msg_data;
6107: RAISE FND_API.G_EXC_ERROR;
6108: ELSE
6109: IF g_debug_flag THEN
6110: Write_Debug('Successful: calling Update_Header_Appr_Status');
6111: END IF;
6135: l_action_id := 0;
6136: -- create new action log
6137: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
6138: ( p_api_version => 1.0
6139: , p_init_msg_list => FND_API.G_FALSE --
6140: , p_commit => FND_API.G_FALSE --
6141: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
6142: , p_debug => p_debug --FND_API.G_FALSE
6143: , p_output_dir => p_output_dir
6136: -- create new action log
6137: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
6138: ( p_api_version => 1.0
6139: , p_init_msg_list => FND_API.G_FALSE --
6140: , p_commit => FND_API.G_FALSE --
6141: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
6142: , p_debug => p_debug --FND_API.G_FALSE
6143: , p_output_dir => p_output_dir
6144: , p_debug_filename => NULL
6137: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
6138: ( p_api_version => 1.0
6139: , p_init_msg_list => FND_API.G_FALSE --
6140: , p_commit => FND_API.G_FALSE --
6141: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
6142: , p_debug => p_debug --FND_API.G_FALSE
6143: , p_output_dir => p_output_dir
6144: , p_debug_filename => NULL
6145: , x_return_status => l_return_status
6138: ( p_api_version => 1.0
6139: , p_init_msg_list => FND_API.G_FALSE --
6140: , p_commit => FND_API.G_FALSE --
6141: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
6142: , p_debug => p_debug --FND_API.G_FALSE
6143: , p_output_dir => p_output_dir
6144: , p_debug_filename => NULL
6145: , x_return_status => l_return_status
6146: , x_msg_count => l_msg_count
6164: IF g_debug_flag THEN
6165: Write_Debug('After: saving action log: ' || l_return_status);
6166: Write_Debug('l_action_id : ' || l_action_id );
6167: END IF;
6168: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
6169: THEN
6170: x_return_status := l_return_status;
6171: x_msg_count := l_msg_count;
6172: x_msg_data := l_msg_data;
6172: x_msg_data := l_msg_data;
6173: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6174: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
6175: --#FND_MSG_PUB.Add;
6176: RAISE FND_API.G_EXC_ERROR;
6177: END IF;
6178: IF g_debug_flag THEN
6179: Write_Debug('Successful: saving action log');
6180: END IF;
6181:
6182: -- Commit anyway to make sure implementation failure action message is logged
6183: -- Note that since this branch is not invoked by workflow, no addtional check
6184: -- on p_api_caller = WF is needed, and commit is allowed
6185: IF FND_API.To_Boolean ( p_commit ) THEN -- fix by 14018580, in PIP session, using XA Datsource and hard commits will cause this subordination session error.
6186: COMMIT WORK;
6187: END IF;
6188:
6189: -- Check whether the header category is CO and it's on last implement phase
6229: END IF;
6230:
6231: Demote_Header
6232: ( p_api_version => 1.0
6233: ,p_init_msg_list => FND_API.G_FALSE
6234: ,p_commit => FND_API.G_FALSE
6235: ,p_validation_level => p_validation_level
6236: ,p_debug => FND_API.G_FALSE
6237: ,p_output_dir => p_output_dir
6230:
6231: Demote_Header
6232: ( p_api_version => 1.0
6233: ,p_init_msg_list => FND_API.G_FALSE
6234: ,p_commit => FND_API.G_FALSE
6235: ,p_validation_level => p_validation_level
6236: ,p_debug => FND_API.G_FALSE
6237: ,p_output_dir => p_output_dir
6238: ,p_debug_filename => p_debug_filename
6232: ( p_api_version => 1.0
6233: ,p_init_msg_list => FND_API.G_FALSE
6234: ,p_commit => FND_API.G_FALSE
6235: ,p_validation_level => p_validation_level
6236: ,p_debug => FND_API.G_FALSE
6237: ,p_output_dir => p_output_dir
6238: ,p_debug_filename => p_debug_filename
6239: ,x_return_status => l_return_status
6240: ,x_msg_count => l_msg_count
6245: );
6246: IF g_debug_flag THEN
6247: Write_Debug('After: calling Demote_Header procedure: ' || l_return_status);
6248: END IF;
6249: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
6250: x_return_status := l_return_status;
6251: x_msg_count := l_msg_count;
6252: x_msg_data := l_msg_data;
6253: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6252: x_msg_data := l_msg_data;
6253: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6254: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
6255: --#FND_MSG_PUB.Add;
6256: RAISE FND_API.G_EXC_ERROR;
6257: END IF;
6258: IF g_debug_flag THEN
6259: Write_Debug('Successful: calling DEMOTE_HEADER procedure ');
6260: END IF;
6277: Write_Debug('Before: calling Refresh_WF_Route procedure ');
6278: END IF;
6279: Refresh_WF_Route
6280: ( p_api_version => 1.0
6281: ,p_init_msg_list => FND_API.G_FALSE
6282: ,p_commit => FND_API.G_FALSE --
6283: ,p_validation_level => p_validation_level
6284: ,p_debug => FND_API.G_FALSE
6285: ,p_output_dir => p_output_dir
6278: END IF;
6279: Refresh_WF_Route
6280: ( p_api_version => 1.0
6281: ,p_init_msg_list => FND_API.G_FALSE
6282: ,p_commit => FND_API.G_FALSE --
6283: ,p_validation_level => p_validation_level
6284: ,p_debug => FND_API.G_FALSE
6285: ,p_output_dir => p_output_dir
6286: ,p_debug_filename => p_debug_filename
6280: ( p_api_version => 1.0
6281: ,p_init_msg_list => FND_API.G_FALSE
6282: ,p_commit => FND_API.G_FALSE --
6283: ,p_validation_level => p_validation_level
6284: ,p_debug => FND_API.G_FALSE
6285: ,p_output_dir => p_output_dir
6286: ,p_debug_filename => p_debug_filename
6287: ,x_return_status => l_return_status
6288: ,x_msg_count => l_msg_count
6310: AND l_curr_status_type =12)
6311: THEN
6312: ENG_DOCUMENT_UTIL.Update_Approval_Status
6313: ( p_api_version => 1.0
6314: ,p_init_msg_list => FND_API.G_FALSE
6315: ,p_commit => FND_API.G_FALSE
6316: ,p_validation_level => p_validation_level
6317: ,p_debug => FND_API.G_FALSE
6318: ,p_output_dir => p_output_dir
6311: THEN
6312: ENG_DOCUMENT_UTIL.Update_Approval_Status
6313: ( p_api_version => 1.0
6314: ,p_init_msg_list => FND_API.G_FALSE
6315: ,p_commit => FND_API.G_FALSE
6316: ,p_validation_level => p_validation_level
6317: ,p_debug => FND_API.G_FALSE
6318: ,p_output_dir => p_output_dir
6319: ,p_debug_filename => p_debug_filename
6313: ( p_api_version => 1.0
6314: ,p_init_msg_list => FND_API.G_FALSE
6315: ,p_commit => FND_API.G_FALSE
6316: ,p_validation_level => p_validation_level
6317: ,p_debug => FND_API.G_FALSE
6318: ,p_output_dir => p_output_dir
6319: ,p_debug_filename => p_debug_filename
6320: ,x_return_status => l_return_status --
6321: ,x_msg_count => l_msg_count --
6331:
6332:
6333: ENG_DOCUMENT_UTIL.Update_Approval_Status
6334: ( p_api_version => 1.0
6335: ,p_init_msg_list => FND_API.G_FALSE
6336: ,p_commit => FND_API.G_FALSE
6337: ,p_validation_level => p_validation_level
6338: ,p_debug => FND_API.G_FALSE
6339: ,p_output_dir => p_output_dir
6332:
6333: ENG_DOCUMENT_UTIL.Update_Approval_Status
6334: ( p_api_version => 1.0
6335: ,p_init_msg_list => FND_API.G_FALSE
6336: ,p_commit => FND_API.G_FALSE
6337: ,p_validation_level => p_validation_level
6338: ,p_debug => FND_API.G_FALSE
6339: ,p_output_dir => p_output_dir
6340: ,p_debug_filename => p_debug_filename
6334: ( p_api_version => 1.0
6335: ,p_init_msg_list => FND_API.G_FALSE
6336: ,p_commit => FND_API.G_FALSE
6337: ,p_validation_level => p_validation_level
6338: ,p_debug => FND_API.G_FALSE
6339: ,p_output_dir => p_output_dir
6340: ,p_debug_filename => p_debug_filename
6341: ,x_return_status => l_return_status --
6342: ,x_msg_count => l_msg_count --
6347: ,p_api_caller => p_api_caller -- Optionnal for future use
6348: );
6349: END IF;
6350: -- Standard ending code ------------------------------------------------
6351: IF FND_API.To_Boolean ( p_commit ) THEN
6352: COMMIT WORK;
6353: END IF;
6354:
6355: FND_MSG_PUB.Count_And_Get
6359: IF g_debug_flag THEN
6360: Write_Debug('Finish. End Of procedure: Update_Lifecycle_States');
6361: END IF;
6362:
6363: IF FND_API.to_Boolean( p_debug ) THEN
6364: Close_Debug_Session;
6365: END IF;
6366:
6367: EXCEPTION
6364: Close_Debug_Session;
6365: END IF;
6366:
6367: EXCEPTION
6368: WHEN FND_API.G_EXC_ERROR THEN
6369: --ROLLBACK TO Update_Lifecycle_States;
6370: x_return_status := FND_API.G_RET_STS_ERROR;
6371: FND_MSG_PUB.Count_And_Get
6372: ( p_count => x_msg_count
6366:
6367: EXCEPTION
6368: WHEN FND_API.G_EXC_ERROR THEN
6369: --ROLLBACK TO Update_Lifecycle_States;
6370: x_return_status := FND_API.G_RET_STS_ERROR;
6371: FND_MSG_PUB.Count_And_Get
6372: ( p_count => x_msg_count
6373: ,p_data => x_msg_data );
6374: IF g_debug_flag THEN
6373: ,p_data => x_msg_data );
6374: IF g_debug_flag THEN
6375: Write_Debug('Rollback and Finish with expected error.') ;
6376: END IF;
6377: IF FND_API.to_Boolean( p_debug ) THEN
6378: Close_Debug_Session;
6379: END IF;
6380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6381: --ROLLBACK TO Update_Lifecycle_States;
6376: END IF;
6377: IF FND_API.to_Boolean( p_debug ) THEN
6378: Close_Debug_Session;
6379: END IF;
6380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6381: --ROLLBACK TO Update_Lifecycle_States;
6382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6383: FND_MSG_PUB.Count_And_Get
6384: ( p_count => x_msg_count
6378: Close_Debug_Session;
6379: END IF;
6380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6381: --ROLLBACK TO Update_Lifecycle_States;
6382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6383: FND_MSG_PUB.Count_And_Get
6384: ( p_count => x_msg_count
6385: ,p_data => x_msg_data );
6386: IF g_debug_flag THEN
6385: ,p_data => x_msg_data );
6386: IF g_debug_flag THEN
6387: Write_Debug('Rollback and Finish with unexpected error.') ;
6388: END IF;
6389: IF FND_API.to_Boolean( p_debug ) THEN
6390: Close_Debug_Session;
6391: END IF;
6392: WHEN OTHERS THEN
6393: --ROLLBACK TO Update_Lifecycle_States;
6390: Close_Debug_Session;
6391: END IF;
6392: WHEN OTHERS THEN
6393: --ROLLBACK TO Update_Lifecycle_States;
6394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6395: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6396: THEN
6397: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6398: END IF;
6401: ,p_data => x_msg_data );
6402: IF g_debug_flag THEN
6403: Write_Debug('Rollback and Finish with other error.') ;
6404: END IF;
6405: IF FND_API.to_Boolean( p_debug ) THEN
6406: Close_Debug_Session;
6407: END IF;
6408: END Update_Lifecycle_States;
6409:
6412: -- change header, called by WF only
6413: PROCEDURE Refresh_WF_Route
6414: (
6415: p_api_version IN NUMBER --
6416: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6417: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6418: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6419: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6420: ,p_output_dir IN VARCHAR2 := NULL
6413: PROCEDURE Refresh_WF_Route
6414: (
6415: p_api_version IN NUMBER --
6416: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6417: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6418: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6419: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6420: ,p_output_dir IN VARCHAR2 := NULL
6421: ,p_debug_filename IN VARCHAR2 := NULL
6414: (
6415: p_api_version IN NUMBER --
6416: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6417: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6418: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6419: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6420: ,p_output_dir IN VARCHAR2 := NULL
6421: ,p_debug_filename IN VARCHAR2 := NULL
6422: ,x_return_status OUT NOCOPY VARCHAR2 --
6415: p_api_version IN NUMBER --
6416: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6417: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6418: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6419: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6420: ,p_output_dir IN VARCHAR2 := NULL
6421: ,p_debug_filename IN VARCHAR2 := NULL
6422: ,x_return_status OUT NOCOPY VARCHAR2 --
6423: ,x_msg_count OUT NOCOPY NUMBER --
6455: BEGIN
6456: -- Standard Start of API savepoint
6457: SAVEPOINT Refresh_WF_Route;
6458: -- Standard call to check for call compatibility
6459: IF NOT FND_API.Compatible_API_Call ( l_api_version
6460: ,p_api_version
6461: ,l_api_name
6462: ,G_PKG_NAME )
6463: THEN
6460: ,p_api_version
6461: ,l_api_name
6462: ,G_PKG_NAME )
6463: THEN
6464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6465: END IF;
6466: -- Initialize message list if p_init_msg_list is set to TRUE.
6467: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6468: FND_MSG_PUB.initialize;
6463: THEN
6464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6465: END IF;
6466: -- Initialize message list if p_init_msg_list is set to TRUE.
6467: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6468: FND_MSG_PUB.initialize;
6469: END IF;
6470:
6471:
6471:
6472: -- For Test/Debug
6473: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
6474: -- R12 Comment out
6475: -- IF FND_API.to_Boolean( p_debug ) THEN
6476: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
6477: -- END IF;
6478:
6479: -- Write debug message if debug mode is on
6493: Write_Debug('Initializing return status... ' );
6494: END IF;
6495:
6496: -- Initialize API return status to success
6497: x_return_status := FND_API.G_RET_STS_SUCCESS;
6498:
6499: -- FND_PROFILE package is not available for workflow (WF),
6500: -- therefore manually set WHO column values
6501: IF p_api_caller = 'WF' THEN
6521: -- Make sure a workflow is already associated with the current phase
6522: IF (l_wf_route_id IS NULL) THEN
6523: FND_MESSAGE.Set_Name('ENG','ENG_WF_NOT_DEFINED_ON_PHASE');
6524: FND_MSG_PUB.Add;
6525: RAISE FND_API.G_EXC_ERROR;
6526: END IF;
6527: */
6528:
6529: -- if passed wf route id is null, it means to generate new id
6579: -- One and only one record should be found with the cursor
6580: IF (l_row_counter <> 1) THEN
6581: FND_MESSAGE.Set_Name('ENG','ENG_NOT_EXACTLY_ONE_RECORD');
6582: FND_MSG_PUB.Add;
6583: RAISE FND_API.G_EXC_ERROR;
6584: END IF;
6585:
6586: -- Standard ending code ------------------------------------------------
6587: IF FND_API.To_Boolean ( p_commit ) THEN
6583: RAISE FND_API.G_EXC_ERROR;
6584: END IF;
6585:
6586: -- Standard ending code ------------------------------------------------
6587: IF FND_API.To_Boolean ( p_commit ) THEN
6588: COMMIT WORK;
6589: END IF;
6590:
6591: FND_MSG_PUB.Count_And_Get
6595: IF g_debug_flag THEN
6596: Write_Debug('Finish. End Of procedure: Refresh_WF_Route') ;
6597: END IF;
6598:
6599: IF FND_API.to_Boolean( p_debug ) THEN
6600: Close_Debug_Session;
6601: END IF;
6602:
6603: EXCEPTION
6600: Close_Debug_Session;
6601: END IF;
6602:
6603: EXCEPTION
6604: WHEN FND_API.G_EXC_ERROR THEN
6605: --ROLLBACK TO Refresh_WF_Route;
6606: x_return_status := FND_API.G_RET_STS_ERROR;
6607: FND_MSG_PUB.Count_And_Get
6608: ( p_count => x_msg_count
6602:
6603: EXCEPTION
6604: WHEN FND_API.G_EXC_ERROR THEN
6605: --ROLLBACK TO Refresh_WF_Route;
6606: x_return_status := FND_API.G_RET_STS_ERROR;
6607: FND_MSG_PUB.Count_And_Get
6608: ( p_count => x_msg_count
6609: ,p_data => x_msg_data );
6610: IF g_debug_flag THEN
6609: ,p_data => x_msg_data );
6610: IF g_debug_flag THEN
6611: Write_Debug('Rollback and Finish with expected error.') ;
6612: END IF;
6613: IF FND_API.to_Boolean( p_debug ) THEN
6614: Close_Debug_Session;
6615: END IF;
6616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6617: --ROLLBACK TO Refresh_WF_Route;
6612: END IF;
6613: IF FND_API.to_Boolean( p_debug ) THEN
6614: Close_Debug_Session;
6615: END IF;
6616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6617: --ROLLBACK TO Refresh_WF_Route;
6618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6619: FND_MSG_PUB.Count_And_Get
6620: ( p_count => x_msg_count
6614: Close_Debug_Session;
6615: END IF;
6616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6617: --ROLLBACK TO Refresh_WF_Route;
6618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6619: FND_MSG_PUB.Count_And_Get
6620: ( p_count => x_msg_count
6621: ,p_data => x_msg_data );
6622: IF g_debug_flag THEN
6621: ,p_data => x_msg_data );
6622: IF g_debug_flag THEN
6623: Write_Debug('Rollback and Finish with unexpected error.') ;
6624: END IF;
6625: IF FND_API.to_Boolean( p_debug ) THEN
6626: Close_Debug_Session;
6627: END IF;
6628: WHEN OTHERS THEN
6629: --ROLLBACK TO Refresh_WF_Route;
6626: Close_Debug_Session;
6627: END IF;
6628: WHEN OTHERS THEN
6629: --ROLLBACK TO Refresh_WF_Route;
6630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6631: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6632: THEN
6633: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6634: END IF;
6637: ,p_data => x_msg_data );
6638: IF g_debug_flag THEN
6639: Write_Debug('Rollback and Finish with other error.') ;
6640: END IF;
6641: IF FND_API.to_Boolean( p_debug ) THEN
6642: Close_Debug_Session;
6643: END IF;
6644:
6645: END Refresh_WF_Route;
6653: -- In R12, Added p_init_option 'WF_ONLY' Start Only WF
6654: PROCEDURE Init_Lifecycle
6655: (
6656: p_api_version IN NUMBER --
6657: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6658: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6659: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6660: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6661: ,p_output_dir IN VARCHAR2 := NULL
6654: PROCEDURE Init_Lifecycle
6655: (
6656: p_api_version IN NUMBER --
6657: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6658: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6659: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6660: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6661: ,p_output_dir IN VARCHAR2 := NULL
6662: ,p_debug_filename IN VARCHAR2 := NULL
6655: (
6656: p_api_version IN NUMBER --
6657: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6658: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6659: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6660: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6661: ,p_output_dir IN VARCHAR2 := NULL
6662: ,p_debug_filename IN VARCHAR2 := NULL
6663: ,x_return_status OUT NOCOPY VARCHAR2 --
6656: p_api_version IN NUMBER --
6657: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
6658: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
6659: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6660: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
6661: ,p_output_dir IN VARCHAR2 := NULL
6662: ,p_debug_filename IN VARCHAR2 := NULL
6663: ,x_return_status OUT NOCOPY VARCHAR2 --
6664: ,x_msg_count OUT NOCOPY NUMBER --
6735: -- Standard Start of API savepoint
6736: SAVEPOINT Init_Lifecycle;
6737: --Error_Handler.Initialize; --Bug 11825003
6738: -- Standard call to check for call compatibility
6739: IF NOT FND_API.Compatible_API_Call ( l_api_version
6740: ,p_api_version
6741: ,l_api_name
6742: ,G_PKG_NAME )
6743: THEN
6740: ,p_api_version
6741: ,l_api_name
6742: ,G_PKG_NAME )
6743: THEN
6744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6745: END IF;
6746: -- Initialize message list if p_init_msg_list is set to TRUE.
6747: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6748: FND_MSG_PUB.initialize;
6743: THEN
6744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6745: END IF;
6746: -- Initialize message list if p_init_msg_list is set to TRUE.
6747: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6748: FND_MSG_PUB.initialize;
6749: END IF;
6750:
6751: -- For Test/Debug
6750:
6751: -- For Test/Debug
6752: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
6753: -- R12 Comment out
6754: -- IF FND_API.to_Boolean( p_debug ) THEN
6755: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
6756: -- END IF;
6757:
6758: -- Write debug message if debug mode is on
6766: Write_Debug('Initializing return status... ' );
6767: END IF;
6768:
6769: -- Initialize API return status to success
6770: x_return_status := FND_API.G_RET_STS_SUCCESS;
6771:
6772: -- FND_PROFILE package is not available for workflow (WF),
6773: -- therefore manually set WHO column values
6774: IF p_api_caller = 'WF' THEN
6852:
6853: Promote_Header
6854: (
6855: p_api_version => 1.0
6856: ,p_init_msg_list => FND_API.G_FALSE
6857: ,p_commit => FND_API.G_FALSE
6858: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6859: ,p_debug => FND_API.G_FALSE
6860: ,p_output_dir => p_output_dir
6853: Promote_Header
6854: (
6855: p_api_version => 1.0
6856: ,p_init_msg_list => FND_API.G_FALSE
6857: ,p_commit => FND_API.G_FALSE
6858: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6859: ,p_debug => FND_API.G_FALSE
6860: ,p_output_dir => p_output_dir
6861: ,p_debug_filename => p_debug_filename
6854: (
6855: p_api_version => 1.0
6856: ,p_init_msg_list => FND_API.G_FALSE
6857: ,p_commit => FND_API.G_FALSE
6858: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6859: ,p_debug => FND_API.G_FALSE
6860: ,p_output_dir => p_output_dir
6861: ,p_debug_filename => p_debug_filename
6862: ,x_return_status => l_return_status
6855: p_api_version => 1.0
6856: ,p_init_msg_list => FND_API.G_FALSE
6857: ,p_commit => FND_API.G_FALSE
6858: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6859: ,p_debug => FND_API.G_FALSE
6860: ,p_output_dir => p_output_dir
6861: ,p_debug_filename => p_debug_filename
6862: ,x_return_status => l_return_status
6863: ,x_msg_count => l_msg_count
6870: IF g_debug_flag THEN
6871: Write_Debug('After: Promote_Header: ' || l_return_status );
6872: END IF;
6873:
6874: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
6875: x_return_status := l_return_status;
6876: x_msg_count := l_msg_count;
6877: x_msg_data := l_msg_data;
6878: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6877: x_msg_data := l_msg_data;
6878: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6879: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Promote_Header');
6880: --#FND_MSG_PUB.Add;
6881: RAISE FND_API.G_EXC_ERROR;
6882: END IF;
6883:
6884: IF g_debug_flag THEN
6885: Write_Debug('After: calling PROMOTE_HEADER');
6942: -- Sanity check
6943: IF (l_sequence_number <> l_initial_phase_sn) THEN
6944: FND_MESSAGE.Set_Name('ENG','ENG_CURR_PHASE_NOT_FIRST');
6945: FND_MSG_PUB.Add;
6946: RAISE FND_API.G_EXC_ERROR;
6947: END IF;
6948: IF g_debug_flag THEN
6949: Write_Debug('After: sanity check of the current phase as the first phase');
6950: END IF;
7020: l_action_id := 0;
7021: -- create new action log
7022: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
7023: ( p_api_version => 1.0
7024: , p_init_msg_list => FND_API.G_FALSE --
7025: , p_commit => FND_API.G_FALSE --
7026: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
7027: , p_debug => p_debug --FND_API.G_FALSE
7028: , p_output_dir => p_output_dir
7021: -- create new action log
7022: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
7023: ( p_api_version => 1.0
7024: , p_init_msg_list => FND_API.G_FALSE --
7025: , p_commit => FND_API.G_FALSE --
7026: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
7027: , p_debug => p_debug --FND_API.G_FALSE
7028: , p_output_dir => p_output_dir
7029: , p_debug_filename => 'engact.CreateAction.log'
7022: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
7023: ( p_api_version => 1.0
7024: , p_init_msg_list => FND_API.G_FALSE --
7025: , p_commit => FND_API.G_FALSE --
7026: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
7027: , p_debug => p_debug --FND_API.G_FALSE
7028: , p_output_dir => p_output_dir
7029: , p_debug_filename => 'engact.CreateAction.log'
7030: , x_return_status => l_return_status
7023: ( p_api_version => 1.0
7024: , p_init_msg_list => FND_API.G_FALSE --
7025: , p_commit => FND_API.G_FALSE --
7026: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
7027: , p_debug => p_debug --FND_API.G_FALSE
7028: , p_output_dir => p_output_dir
7029: , p_debug_filename => 'engact.CreateAction.log'
7030: , x_return_status => l_return_status
7031: , x_msg_count => l_msg_count
7048: IF g_debug_flag THEN
7049: Write_Debug('After: saving action log: ' || l_return_status);
7050: Write_Debug('l_action_id : ' || l_action_id );
7051: END IF;
7052: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
7053: THEN
7054: x_return_status := l_return_status;
7055: x_msg_count := l_msg_count;
7056: x_msg_data := l_msg_data;
7056: x_msg_data := l_msg_data;
7057: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
7058: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
7059: --#FND_MSG_PUB.Add;
7060: RAISE FND_API.G_EXC_ERROR;
7061: END IF;
7062: IF g_debug_flag THEN
7063: Write_Debug('Successful: saving action log');
7064: END IF;
7108: WHEN OTHERS THEN
7109: ERROR_HANDLER.Add_Error_Message(
7110: p_message_name => 'EGO_EVENT_SUBSCR'
7111: ,p_application_id => 'EGO'
7112: ,p_message_type => FND_API.G_RET_STS_ERROR
7113: ,p_addto_fnd_stack => 'Y');
7114: raise EGO_USER_ATTRS_COMMON_PVT.G_SUBSCRIPTION_EXC;
7115: End;
7116:
7149:
7150: ENG_ECO_UTIL.Propagate_ECO
7151: (
7152: p_api_version => 1.0
7153: ,p_init_msg_list => FND_API.G_FALSE
7154: ,p_commit => FND_API.G_FALSE
7155: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7156: ,p_debug => p_debug --FND_API.G_FALSE
7157: ,p_output_dir => p_output_dir
7150: ENG_ECO_UTIL.Propagate_ECO
7151: (
7152: p_api_version => 1.0
7153: ,p_init_msg_list => FND_API.G_FALSE
7154: ,p_commit => FND_API.G_FALSE
7155: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7156: ,p_debug => p_debug --FND_API.G_FALSE
7157: ,p_output_dir => p_output_dir
7158: ,p_debug_filename => NULL --p_debug_filename
7151: (
7152: p_api_version => 1.0
7153: ,p_init_msg_list => FND_API.G_FALSE
7154: ,p_commit => FND_API.G_FALSE
7155: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7156: ,p_debug => p_debug --FND_API.G_FALSE
7157: ,p_output_dir => p_output_dir
7158: ,p_debug_filename => NULL --p_debug_filename
7159: ,x_return_status => l_return_status
7152: p_api_version => 1.0
7153: ,p_init_msg_list => FND_API.G_FALSE
7154: ,p_commit => FND_API.G_FALSE
7155: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7156: ,p_debug => p_debug --FND_API.G_FALSE
7157: ,p_output_dir => p_output_dir
7158: ,p_debug_filename => NULL --p_debug_filename
7159: ,x_return_status => l_return_status
7160: ,x_msg_count => l_msg_count
7169: IF g_debug_flag THEN
7170: Write_Debug('After: calling propagate_eco API: ' || l_return_status);
7171: END IF;
7172:
7173: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
7174: x_return_status := l_return_status;
7175: x_msg_count := l_msg_count;
7176: x_msg_data := l_msg_data;
7177: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
7176: x_msg_data := l_msg_data;
7177: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
7178: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Propagate_ECO');
7179: --#FND_MSG_PUB.Add;
7180: RAISE FND_API.G_EXC_ERROR;
7181: END IF;
7182:
7183: IF g_debug_flag THEN
7184: Write_Debug('Successful: calling propagate_eco API');
7194: -- In case of Auto-Propgation Action Log
7195: -- Who column is Workflow
7196: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
7197: ( p_api_version => 1.0
7198: , p_init_msg_list => FND_API.G_FALSE --
7199: , p_commit => FND_API.G_FALSE --
7200: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
7201: , p_debug => p_debug --FND_API.G_FALSE
7202: , p_output_dir => p_output_dir
7195: -- Who column is Workflow
7196: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
7197: ( p_api_version => 1.0
7198: , p_init_msg_list => FND_API.G_FALSE --
7199: , p_commit => FND_API.G_FALSE --
7200: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
7201: , p_debug => p_debug --FND_API.G_FALSE
7202: , p_output_dir => p_output_dir
7203: , p_debug_filename => NULL
7196: ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action
7197: ( p_api_version => 1.0
7198: , p_init_msg_list => FND_API.G_FALSE --
7199: , p_commit => FND_API.G_FALSE --
7200: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
7201: , p_debug => p_debug --FND_API.G_FALSE
7202: , p_output_dir => p_output_dir
7203: , p_debug_filename => NULL
7204: , x_return_status => l_return_status
7197: ( p_api_version => 1.0
7198: , p_init_msg_list => FND_API.G_FALSE --
7199: , p_commit => FND_API.G_FALSE --
7200: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
7201: , p_debug => p_debug --FND_API.G_FALSE
7202: , p_output_dir => p_output_dir
7203: , p_debug_filename => NULL
7204: , x_return_status => l_return_status
7205: , x_msg_count => l_msg_count
7224: Write_Debug('After: saving action log: ' || l_return_status);
7225: Write_Debug('l_action_id : ' || l_action_id );
7226: END IF;
7227:
7228: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
7229: THEN
7230: x_return_status := l_return_status;
7231: x_msg_count := l_msg_count;
7232: x_msg_data := l_msg_data;
7232: x_msg_data := l_msg_data;
7233: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
7234: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
7235: --#FND_MSG_PUB.Add;
7236: RAISE FND_API.G_EXC_ERROR;
7237: END IF;
7238: IF g_debug_flag THEN
7239: Write_Debug('Successful: saving action log');
7240: END IF;
7256:
7257: -- Start workflow for new phase if necessary
7258: Start_WF_OnlyIf_Necessary
7259: ( p_api_version => 1.0
7260: ,p_init_msg_list => FND_API.G_FALSE
7261: ,p_commit => FND_API.G_FALSE
7262: ,p_validation_level => p_validation_level
7263: ,p_debug => FND_API.G_FALSE
7264: ,p_output_dir => p_output_dir
7257: -- Start workflow for new phase if necessary
7258: Start_WF_OnlyIf_Necessary
7259: ( p_api_version => 1.0
7260: ,p_init_msg_list => FND_API.G_FALSE
7261: ,p_commit => FND_API.G_FALSE
7262: ,p_validation_level => p_validation_level
7263: ,p_debug => FND_API.G_FALSE
7264: ,p_output_dir => p_output_dir
7265: ,p_debug_filename => p_debug_filename
7259: ( p_api_version => 1.0
7260: ,p_init_msg_list => FND_API.G_FALSE
7261: ,p_commit => FND_API.G_FALSE
7262: ,p_validation_level => p_validation_level
7263: ,p_debug => FND_API.G_FALSE
7264: ,p_output_dir => p_output_dir
7265: ,p_debug_filename => p_debug_filename
7266: ,x_return_status => l_return_status
7267: ,x_msg_count => l_msg_count
7278: IF g_debug_flag THEN
7279: Write_Debug('After call to procedure Start_WF_OnlyIf_Necessary: ' || l_return_status);
7280: END IF;
7281:
7282: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
7283: x_return_status := l_return_status;
7284: x_msg_count := l_msg_count;
7285: x_msg_data := l_msg_data;
7286: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
7284: x_msg_count := l_msg_count;
7285: x_msg_data := l_msg_data;
7286: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
7287: --#FND_MSG_PUB.Add;
7288: RAISE FND_API.G_EXC_ERROR;
7289: END IF;
7290:
7291: -- Standard ending code ------------------------------------------------
7292: IF FND_API.To_Boolean ( p_commit ) THEN
7288: RAISE FND_API.G_EXC_ERROR;
7289: END IF;
7290:
7291: -- Standard ending code ------------------------------------------------
7292: IF FND_API.To_Boolean ( p_commit ) THEN
7293: COMMIT WORK;
7294: END IF;
7295:
7296: FND_MSG_PUB.Count_And_Get
7300: IF g_debug_flag THEN
7301: Write_Debug('Finish. End Of procedure: Init_Lifecycle') ;
7302: END IF;
7303:
7304: IF FND_API.to_Boolean( p_debug ) THEN
7305: Close_Debug_Session;
7306: END IF;
7307:
7308: EXCEPTION
7307:
7308: EXCEPTION
7309: WHEN EGO_USER_ATTRS_COMMON_PVT.G_SUBSCRIPTION_EXC then --Bug 11825003
7310: --ROLLBACK WORK;
7311: x_return_status := FND_API.G_RET_STS_ERROR;
7312: ERROR_HANDLER.Get_Message_List(l_message_list);
7313: FOR i IN l_message_list.FIRST..l_message_list.LAST
7314: LOOP
7315: x_msg_data := x_msg_data || l_message_list(i).message_text;
7316: END LOOP;
7317: IF g_debug_flag THEN
7318: Write_Debug('Rollback and Finish with expected error.') ;
7319: END IF;
7320: IF FND_API.to_Boolean( p_debug ) THEN
7321: Close_Debug_Session;
7322: END IF;
7323: WHEN FND_API.G_EXC_ERROR THEN
7324: --ROLLBACK TO Init_Lifecycle;
7319: END IF;
7320: IF FND_API.to_Boolean( p_debug ) THEN
7321: Close_Debug_Session;
7322: END IF;
7323: WHEN FND_API.G_EXC_ERROR THEN
7324: --ROLLBACK TO Init_Lifecycle;
7325: x_return_status := FND_API.G_RET_STS_ERROR;
7326: FND_MSG_PUB.Count_And_Get
7327: ( p_count => x_msg_count
7321: Close_Debug_Session;
7322: END IF;
7323: WHEN FND_API.G_EXC_ERROR THEN
7324: --ROLLBACK TO Init_Lifecycle;
7325: x_return_status := FND_API.G_RET_STS_ERROR;
7326: FND_MSG_PUB.Count_And_Get
7327: ( p_count => x_msg_count
7328: ,p_data => x_msg_data );
7329: IF g_debug_flag THEN
7328: ,p_data => x_msg_data );
7329: IF g_debug_flag THEN
7330: Write_Debug('Rollback and Finish with expected error.') ;
7331: END IF;
7332: IF FND_API.to_Boolean( p_debug ) THEN
7333: Close_Debug_Session;
7334: END IF;
7335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7336: --ROLLBACK TO Init_Lifecycle;
7331: END IF;
7332: IF FND_API.to_Boolean( p_debug ) THEN
7333: Close_Debug_Session;
7334: END IF;
7335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7336: --ROLLBACK TO Init_Lifecycle;
7337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7338: FND_MSG_PUB.Count_And_Get
7339: ( p_count => x_msg_count
7333: Close_Debug_Session;
7334: END IF;
7335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7336: --ROLLBACK TO Init_Lifecycle;
7337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7338: FND_MSG_PUB.Count_And_Get
7339: ( p_count => x_msg_count
7340: ,p_data => x_msg_data );
7341: IF g_debug_flag THEN
7340: ,p_data => x_msg_data );
7341: IF g_debug_flag THEN
7342: Write_Debug('Rollback and Finish with unexpected error.') ;
7343: END IF;
7344: IF FND_API.to_Boolean( p_debug ) THEN
7345: Close_Debug_Session;
7346: END IF;
7347: WHEN OTHERS THEN
7348: --ROLLBACK TO Init_Lifecycle;
7345: Close_Debug_Session;
7346: END IF;
7347: WHEN OTHERS THEN
7348: --ROLLBACK TO Init_Lifecycle;
7349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7350: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7351: THEN
7352: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7353: END IF;
7356: ,p_data => x_msg_data );
7357: IF g_debug_flag THEN
7358: Write_Debug('Rollback and Finish with other error.') ;
7359: END IF;
7360: IF FND_API.to_Boolean( p_debug ) THEN
7361: Close_Debug_Session;
7362: END IF;
7363:
7364: END Init_Lifecycle;
7370: -- program to set its status_type
7371: PROCEDURE Update_RevItem_Lifecycle
7372: (
7373: p_api_version IN NUMBER --
7374: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7375: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7376: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7377: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7378: ,p_output_dir IN VARCHAR2 := NULL
7371: PROCEDURE Update_RevItem_Lifecycle
7372: (
7373: p_api_version IN NUMBER --
7374: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7375: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7376: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7377: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7378: ,p_output_dir IN VARCHAR2 := NULL
7379: ,p_debug_filename IN VARCHAR2 := NULL
7372: (
7373: p_api_version IN NUMBER --
7374: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7375: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7376: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7377: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7378: ,p_output_dir IN VARCHAR2 := NULL
7379: ,p_debug_filename IN VARCHAR2 := NULL
7380: ,x_return_status OUT NOCOPY VARCHAR2 --
7373: p_api_version IN NUMBER --
7374: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7375: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7376: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7377: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7378: ,p_output_dir IN VARCHAR2 := NULL
7379: ,p_debug_filename IN VARCHAR2 := NULL
7380: ,x_return_status OUT NOCOPY VARCHAR2 --
7381: ,x_msg_count OUT NOCOPY NUMBER --
7398: BEGIN
7399: -- Standard Start of API savepoint
7400: --SAVEPOINT Update_RevItem_Lifecycle;
7401: -- Standard call to check for call compatibility
7402: IF NOT FND_API.Compatible_API_Call ( l_api_version
7403: ,p_api_version
7404: ,l_api_name
7405: ,G_PKG_NAME )
7406: THEN
7403: ,p_api_version
7404: ,l_api_name
7405: ,G_PKG_NAME )
7406: THEN
7407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7408: END IF;
7409: -- Initialize message list if p_init_msg_list is set to TRUE.
7410: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7411: FND_MSG_PUB.initialize;
7406: THEN
7407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7408: END IF;
7409: -- Initialize message list if p_init_msg_list is set to TRUE.
7410: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7411: FND_MSG_PUB.initialize;
7412: END IF;
7413:
7414:
7414:
7415: -- For Test/Debug
7416: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
7417: -- R12 Comment out
7418: -- IF FND_API.to_Boolean( p_debug ) THEN
7419: -- Open_Debug_Session(p_output_dir, p_debug_filename ) ;
7420: -- END IF;
7421:
7422: -- Write debug message if debug mode is on
7429: Write_Debug('Initializing return status... ' );
7430: END IF;
7431:
7432: -- Initialize API return status to success
7433: x_return_status := FND_API.G_RET_STS_SUCCESS;
7434:
7435: -- FND_PROFILE package is not available for workflow (WF),
7436: -- therefore manually set WHO column values
7437: IF p_api_caller = 'WF' THEN
7452: WHERE revised_item_sequence_id = p_rev_item_seq_id;
7453:
7454:
7455: -- Standard ending code ------------------------------------------------
7456: IF FND_API.To_Boolean ( p_commit ) THEN
7457: COMMIT WORK;
7458: END IF;
7459:
7460: FND_MSG_PUB.Count_And_Get
7464: IF g_debug_flag THEN
7465: Write_Debug('Finish. End Of procedure: Update_RevItem_Lifecycle') ;
7466: END IF;
7467:
7468: IF FND_API.to_Boolean( p_debug ) THEN
7469: Close_Debug_Session;
7470: END IF;
7471:
7472: EXCEPTION
7469: Close_Debug_Session;
7470: END IF;
7471:
7472: EXCEPTION
7473: WHEN FND_API.G_EXC_ERROR THEN
7474: --ROLLBACK TO Update_RevItem_Lifecycle;
7475: x_return_status := FND_API.G_RET_STS_ERROR;
7476: FND_MSG_PUB.Count_And_Get
7477: ( p_count => x_msg_count
7471:
7472: EXCEPTION
7473: WHEN FND_API.G_EXC_ERROR THEN
7474: --ROLLBACK TO Update_RevItem_Lifecycle;
7475: x_return_status := FND_API.G_RET_STS_ERROR;
7476: FND_MSG_PUB.Count_And_Get
7477: ( p_count => x_msg_count
7478: ,p_data => x_msg_data );
7479: IF g_debug_flag THEN
7478: ,p_data => x_msg_data );
7479: IF g_debug_flag THEN
7480: Write_Debug('Rollback and Finish with expected error.') ;
7481: END IF;
7482: IF FND_API.to_Boolean( p_debug ) THEN
7483: Close_Debug_Session;
7484: END IF;
7485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7486: --ROLLBACK TO Update_RevItem_Lifecycle;
7481: END IF;
7482: IF FND_API.to_Boolean( p_debug ) THEN
7483: Close_Debug_Session;
7484: END IF;
7485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7486: --ROLLBACK TO Update_RevItem_Lifecycle;
7487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7488: FND_MSG_PUB.Count_And_Get
7489: ( p_count => x_msg_count
7483: Close_Debug_Session;
7484: END IF;
7485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7486: --ROLLBACK TO Update_RevItem_Lifecycle;
7487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7488: FND_MSG_PUB.Count_And_Get
7489: ( p_count => x_msg_count
7490: ,p_data => x_msg_data );
7491: IF g_debug_flag THEN
7490: ,p_data => x_msg_data );
7491: IF g_debug_flag THEN
7492: Write_Debug('Rollback and Finish with unexpected error.') ;
7493: END IF;
7494: IF FND_API.to_Boolean( p_debug ) THEN
7495: Close_Debug_Session;
7496: END IF;
7497: WHEN OTHERS THEN
7498: --ROLLBACK TO Update_RevItem_Lifecycle;
7495: Close_Debug_Session;
7496: END IF;
7497: WHEN OTHERS THEN
7498: --ROLLBACK TO Update_RevItem_Lifecycle;
7499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7500: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7501: THEN
7502: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7503: END IF;
7506: ,p_data => x_msg_data );
7507: IF g_debug_flag THEN
7508: Write_Debug('Rollback and Finish with other error.') ;
7509: END IF;
7510: IF FND_API.to_Boolean( p_debug ) THEN
7511: Close_Debug_Session;
7512: END IF;
7513:
7514: END Update_RevItem_Lifecycle;
7523: -- If Change Object is Document LC Object, Call Document API to reset the phase
7524: PROCEDURE Reset_Phase
7525: (
7526: p_api_version IN NUMBER --
7527: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7528: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7529: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7530: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7531: ,p_output_dir IN VARCHAR2 := NULL
7524: PROCEDURE Reset_Phase
7525: (
7526: p_api_version IN NUMBER --
7527: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7528: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7529: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7530: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7531: ,p_output_dir IN VARCHAR2 := NULL
7532: ,p_debug_filename IN VARCHAR2 := NULL
7525: (
7526: p_api_version IN NUMBER --
7527: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7528: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7529: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7530: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7531: ,p_output_dir IN VARCHAR2 := NULL
7532: ,p_debug_filename IN VARCHAR2 := NULL
7533: ,x_return_status OUT NOCOPY VARCHAR2 --
7526: p_api_version IN NUMBER --
7527: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7528: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7529: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7530: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7531: ,p_output_dir IN VARCHAR2 := NULL
7532: ,p_debug_filename IN VARCHAR2 := NULL
7533: ,x_return_status OUT NOCOPY VARCHAR2 --
7534: ,x_msg_count OUT NOCOPY NUMBER --
7584:
7585: -- Standard Start of API savepoint
7586: SAVEPOINT Reset_Phase ;
7587: -- Standard call to check for call compatibility
7588: IF NOT FND_API.Compatible_API_Call ( l_api_version
7589: ,p_api_version
7590: ,l_api_name
7591: ,G_PKG_NAME )
7592: THEN
7589: ,p_api_version
7590: ,l_api_name
7591: ,G_PKG_NAME )
7592: THEN
7593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7594: END IF;
7595:
7596: -- Initialize message list if p_init_msg_list is set to TRUE.
7597: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7594: END IF;
7595:
7596: -- Initialize message list if p_init_msg_list is set to TRUE.
7597: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7598: FND_MSG_PUB.initialize;
7599: END IF;
7600:
7601:
7614: Write_Debug('Initializing return status... ' );
7615: END IF;
7616:
7617: -- Initialize API return status to success
7618: x_return_status := FND_API.G_RET_STS_SUCCESS;
7619:
7620: -- FND_PROFILE package is not available for workflow (WF),
7621: -- therefore manually set WHO column values
7622: IF p_api_caller = 'WF' THEN
7657: IF l_reset_status_code IS NULL THEN
7658: -- This should not happen
7659: FND_MESSAGE.SET_NAME('ENG', 'ENG_STATUS_CODE_NULL') ;
7660: FND_MSG_PUB.Add ;
7661: RAISE FND_API.G_EXC_ERROR ;
7662: END IF ;
7663:
7664: IF (p_status_code IS NOT NULL AND l_reset_status_code <> p_status_code )
7665: THEN
7666:
7667: -- This should not happen
7668: FND_MESSAGE.SET_NAME('ENG', 'ENG_RESET_STATUS_NOT_CUR') ;
7669: FND_MSG_PUB.Add ;
7670: RAISE FND_API.G_EXC_ERROR ;
7671:
7672: END IF ;
7673:
7674: -- Get the current phase status_type
7704: -- Launch header approval status change workflow
7705: Update_Header_Appr_Status
7706: (
7707: p_api_version => 1.0
7708: ,p_init_msg_list => FND_API.G_FALSE
7709: ,p_commit => FND_API.G_FALSE
7710: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7711: ,p_debug => FND_API.G_FALSE
7712: ,p_output_dir => p_output_dir
7705: Update_Header_Appr_Status
7706: (
7707: p_api_version => 1.0
7708: ,p_init_msg_list => FND_API.G_FALSE
7709: ,p_commit => FND_API.G_FALSE
7710: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7711: ,p_debug => FND_API.G_FALSE
7712: ,p_output_dir => p_output_dir
7713: ,p_debug_filename => p_debug_filename
7706: (
7707: p_api_version => 1.0
7708: ,p_init_msg_list => FND_API.G_FALSE
7709: ,p_commit => FND_API.G_FALSE
7710: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7711: ,p_debug => FND_API.G_FALSE
7712: ,p_output_dir => p_output_dir
7713: ,p_debug_filename => p_debug_filename
7714: ,x_return_status => l_return_status
7707: p_api_version => 1.0
7708: ,p_init_msg_list => FND_API.G_FALSE
7709: ,p_commit => FND_API.G_FALSE
7710: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7711: ,p_debug => FND_API.G_FALSE
7712: ,p_output_dir => p_output_dir
7713: ,p_debug_filename => p_debug_filename
7714: ,x_return_status => l_return_status
7715: ,x_msg_count => l_msg_count
7725:
7726:
7727: ENG_DOCUMENT_UTIL.Update_Approval_Status
7728: ( p_api_version => 1.0
7729: ,p_init_msg_list => FND_API.G_FALSE
7730: ,p_commit => FND_API.G_FALSE
7731: ,p_validation_level => p_validation_level
7732: ,p_debug => FND_API.G_FALSE
7733: ,p_output_dir => p_output_dir
7726:
7727: ENG_DOCUMENT_UTIL.Update_Approval_Status
7728: ( p_api_version => 1.0
7729: ,p_init_msg_list => FND_API.G_FALSE
7730: ,p_commit => FND_API.G_FALSE
7731: ,p_validation_level => p_validation_level
7732: ,p_debug => FND_API.G_FALSE
7733: ,p_output_dir => p_output_dir
7734: ,p_debug_filename => p_debug_filename
7728: ( p_api_version => 1.0
7729: ,p_init_msg_list => FND_API.G_FALSE
7730: ,p_commit => FND_API.G_FALSE
7731: ,p_validation_level => p_validation_level
7732: ,p_debug => FND_API.G_FALSE
7733: ,p_output_dir => p_output_dir
7734: ,p_debug_filename => p_debug_filename
7735: ,x_return_status => l_return_status --
7736: ,x_msg_count => l_msg_count --
7747: Write_Debug('After: Update_Header_Appr_Status: ' || l_return_status );
7748: END IF;
7749:
7750:
7751: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
7752: THEN
7753: x_return_status := l_return_status;
7754: x_msg_count := l_msg_count;
7755: x_msg_data := l_msg_data;
7752: THEN
7753: x_return_status := l_return_status;
7754: x_msg_count := l_msg_count;
7755: x_msg_data := l_msg_data;
7756: RAISE FND_API.G_EXC_ERROR;
7757: END IF;
7758:
7759: IF g_debug_flag THEN
7760: Write_Debug('After: calling Update_Header_Appr_Status');
7800: IF l_reset_status_code IS NULL THEN
7801: -- This should not happen
7802: FND_MESSAGE.SET_NAME('ENG', 'ENG_STATUS_CODE_NULL') ;
7803: FND_MSG_PUB.Add ;
7804: RAISE FND_API.G_EXC_ERROR ;
7805: END IF ;
7806:
7807: END IF ;
7808:
7812: END IF;
7813:
7814: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase
7815: ( p_api_version => 1.0
7816: ,p_init_msg_list => FND_API.G_FALSE
7817: ,p_commit => FND_API.G_FALSE
7818: ,p_validation_level => p_validation_level
7819: ,p_debug => FND_API.G_FALSE
7820: ,p_output_dir => p_output_dir
7813:
7814: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase
7815: ( p_api_version => 1.0
7816: ,p_init_msg_list => FND_API.G_FALSE
7817: ,p_commit => FND_API.G_FALSE
7818: ,p_validation_level => p_validation_level
7819: ,p_debug => FND_API.G_FALSE
7820: ,p_output_dir => p_output_dir
7821: ,p_debug_filename => p_debug_filename
7815: ( p_api_version => 1.0
7816: ,p_init_msg_list => FND_API.G_FALSE
7817: ,p_commit => FND_API.G_FALSE
7818: ,p_validation_level => p_validation_level
7819: ,p_debug => FND_API.G_FALSE
7820: ,p_output_dir => p_output_dir
7821: ,p_debug_filename => p_debug_filename
7822: ,x_return_status => l_return_status
7823: ,x_msg_count => l_msg_count
7831: IF g_debug_flag THEN
7832: Write_Debug('After: calling ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase: ' || l_return_status) ;
7833: END IF;
7834:
7835: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
7836: THEN
7837: x_return_status := l_return_status;
7838: x_msg_count := l_msg_count;
7839: x_msg_data := l_msg_data;
7836: THEN
7837: x_return_status := l_return_status;
7838: x_msg_count := l_msg_count;
7839: x_msg_data := l_msg_data;
7840: RAISE FND_API.G_EXC_ERROR;
7841: END IF;
7842:
7843: IF g_debug_flag THEN
7844: Write_Debug('Successful: ENG_DOCUMENT_UTIL.Change_Doc_LC_Phase');
7847: END IF ; -- if ( Change Object is Documet LC Object)
7848:
7849:
7850: -- Standard ending code ------------------------------------------------
7851: IF FND_API.To_Boolean ( p_commit ) THEN
7852: COMMIT WORK;
7853: END IF;
7854:
7855: FND_MSG_PUB.Count_And_Get
7859: IF g_debug_flag THEN
7860: Write_Debug('Finish. End Of procedure: Promote_Header');
7861: END IF;
7862:
7863: IF FND_API.to_Boolean( p_debug ) THEN
7864: Close_Debug_Session;
7865: END IF;
7866:
7867: EXCEPTION
7864: Close_Debug_Session;
7865: END IF;
7866:
7867: EXCEPTION
7868: WHEN FND_API.G_EXC_ERROR THEN
7869: -- Standard check of p_commit.
7870: IF FND_API.To_Boolean( p_commit ) THEN
7871: IF g_debug_flag THEN
7872: Write_Debug('Rollback . . .') ;
7866:
7867: EXCEPTION
7868: WHEN FND_API.G_EXC_ERROR THEN
7869: -- Standard check of p_commit.
7870: IF FND_API.To_Boolean( p_commit ) THEN
7871: IF g_debug_flag THEN
7872: Write_Debug('Rollback . . .') ;
7873: END IF ;
7874: ROLLBACK TO Reset_Phase ;
7873: END IF ;
7874: ROLLBACK TO Reset_Phase ;
7875: END IF;
7876:
7877: x_return_status := FND_API.G_RET_STS_ERROR;
7878:
7879: FND_MSG_PUB.Count_And_Get
7880: ( p_count => x_msg_count
7881: ,p_data => x_msg_data );
7883: IF g_debug_flag THEN
7884: Write_Debug('Finish with expected error.') ;
7885: END IF;
7886:
7887: IF FND_API.to_Boolean( p_debug ) THEN
7888: Close_Debug_Session;
7889: END IF;
7890:
7891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7887: IF FND_API.to_Boolean( p_debug ) THEN
7888: Close_Debug_Session;
7889: END IF;
7890:
7891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7892:
7893: -- Standard check of p_commit.
7894: IF FND_API.To_Boolean( p_commit ) THEN
7895: IF g_debug_flag THEN
7890:
7891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7892:
7893: -- Standard check of p_commit.
7894: IF FND_API.To_Boolean( p_commit ) THEN
7895: IF g_debug_flag THEN
7896: Write_Debug('Rollback . . .') ;
7897: END IF ;
7898: ROLLBACK TO Reset_Phase ;
7897: END IF ;
7898: ROLLBACK TO Reset_Phase ;
7899: END IF;
7900:
7901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7902:
7903: FND_MSG_PUB.Count_And_Get
7904: ( p_count => x_msg_count
7905: ,p_data => x_msg_data );
7908: Write_Debug('Rollback and Finish with unexpected error.') ;
7909: END IF;
7910:
7911:
7912: IF FND_API.to_Boolean( p_debug ) THEN
7913: Close_Debug_Session;
7914: END IF;
7915:
7916:
7916:
7917: WHEN OTHERS THEN
7918:
7919: -- Standard check of p_commit.
7920: IF FND_API.To_Boolean( p_commit ) THEN
7921: IF g_debug_flag THEN
7922: Write_Debug('Rollback . . .') ;
7923: END IF ;
7924: ROLLBACK TO Reset_Phase ;
7923: END IF ;
7924: ROLLBACK TO Reset_Phase ;
7925: END IF;
7926:
7927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7928:
7929: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7930: THEN
7931: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7939: IF g_debug_flag THEN
7940: Write_Debug('Finish with other error.') ;
7941: END IF;
7942:
7943: IF FND_API.to_Boolean( p_debug ) THEN
7944: Close_Debug_Session;
7945: END IF;
7946:
7947: END Reset_Phase ;
7969: --
7970: PROCEDURE Sync_LC_Phase_Setup
7971: (
7972: p_api_version IN NUMBER --
7973: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7974: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7975: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7976: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7977: ,p_output_dir IN VARCHAR2 := NULL
7970: PROCEDURE Sync_LC_Phase_Setup
7971: (
7972: p_api_version IN NUMBER --
7973: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7974: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7975: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7976: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7977: ,p_output_dir IN VARCHAR2 := NULL
7978: ,p_debug_filename IN VARCHAR2 := NULL
7971: (
7972: p_api_version IN NUMBER --
7973: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7974: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7975: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7976: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7977: ,p_output_dir IN VARCHAR2 := NULL
7978: ,p_debug_filename IN VARCHAR2 := NULL
7979: ,x_return_status OUT NOCOPY VARCHAR2 --
7972: p_api_version IN NUMBER --
7973: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
7974: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
7975: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
7976: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
7977: ,p_output_dir IN VARCHAR2 := NULL
7978: ,p_debug_filename IN VARCHAR2 := NULL
7979: ,x_return_status OUT NOCOPY VARCHAR2 --
7980: ,x_msg_count OUT NOCOPY NUMBER --
8019:
8020: -- Standard Start of API savepoint
8021: SAVEPOINT Sync_LC_Phase_Setup ;
8022: -- Standard call to check for call compatibility
8023: IF NOT FND_API.Compatible_API_Call ( l_api_version
8024: ,p_api_version
8025: ,l_api_name
8026: ,G_PKG_NAME )
8027: THEN
8024: ,p_api_version
8025: ,l_api_name
8026: ,G_PKG_NAME )
8027: THEN
8028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8029: END IF;
8030:
8031: -- Initialize message list if p_init_msg_list is set to TRUE.
8032: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8029: END IF;
8030:
8031: -- Initialize message list if p_init_msg_list is set to TRUE.
8032: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8033: FND_MSG_PUB.initialize;
8034: END IF;
8035:
8036:
8047: Write_Debug('Initializing return status... ' );
8048: END IF;
8049:
8050: -- Initialize API return status to success
8051: x_return_status := FND_API.G_RET_STS_SUCCESS;
8052:
8053: -- FND_PROFILE package is not available for workflow (WF),
8054: -- therefore manually set WHO column values
8055: IF p_api_caller = 'WF' THEN
8383:
8384:
8385:
8386: -- Standard ending code ------------------------------------------------
8387: IF FND_API.To_Boolean ( p_commit ) THEN
8388: COMMIT WORK;
8389: END IF;
8390:
8391: FND_MSG_PUB.Count_And_Get
8395: IF g_debug_flag THEN
8396: Write_Debug('Finish. End Of procedure: ' || l_api_name);
8397: END IF;
8398:
8399: IF FND_API.to_Boolean( p_debug ) THEN
8400: Close_Debug_Session;
8401: END IF;
8402:
8403: EXCEPTION
8400: Close_Debug_Session;
8401: END IF;
8402:
8403: EXCEPTION
8404: WHEN FND_API.G_EXC_ERROR THEN
8405: -- Standard check of p_commit.
8406: IF FND_API.To_Boolean( p_commit ) THEN
8407: IF g_debug_flag THEN
8408: Write_Debug('Rollback . . .') ;
8402:
8403: EXCEPTION
8404: WHEN FND_API.G_EXC_ERROR THEN
8405: -- Standard check of p_commit.
8406: IF FND_API.To_Boolean( p_commit ) THEN
8407: IF g_debug_flag THEN
8408: Write_Debug('Rollback . . .') ;
8409: END IF ;
8410: ROLLBACK TO Sync_LC_Phase_Setup ;
8409: END IF ;
8410: ROLLBACK TO Sync_LC_Phase_Setup ;
8411: END IF;
8412:
8413: x_return_status := FND_API.G_RET_STS_ERROR;
8414:
8415: FND_MSG_PUB.Count_And_Get
8416: ( p_count => x_msg_count
8417: ,p_data => x_msg_data );
8419: IF g_debug_flag THEN
8420: Write_Debug('Finish with expected error.') ;
8421: END IF;
8422:
8423: IF FND_API.to_Boolean( p_debug ) THEN
8424: Close_Debug_Session;
8425: END IF;
8426:
8427: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8423: IF FND_API.to_Boolean( p_debug ) THEN
8424: Close_Debug_Session;
8425: END IF;
8426:
8427: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8428:
8429: -- Standard check of p_commit.
8430: IF FND_API.To_Boolean( p_commit ) THEN
8431: IF g_debug_flag THEN
8426:
8427: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8428:
8429: -- Standard check of p_commit.
8430: IF FND_API.To_Boolean( p_commit ) THEN
8431: IF g_debug_flag THEN
8432: Write_Debug('Rollback . . .') ;
8433: END IF ;
8434: ROLLBACK TO Sync_LC_Phase_Setup ;
8433: END IF ;
8434: ROLLBACK TO Sync_LC_Phase_Setup ;
8435: END IF;
8436:
8437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8438:
8439: FND_MSG_PUB.Count_And_Get
8440: ( p_count => x_msg_count
8441: ,p_data => x_msg_data );
8444: Write_Debug('Rollback and Finish with unexpected error.') ;
8445: END IF;
8446:
8447:
8448: IF FND_API.to_Boolean( p_debug ) THEN
8449: Close_Debug_Session;
8450: END IF;
8451:
8452:
8452:
8453: WHEN OTHERS THEN
8454:
8455: -- Standard check of p_commit.
8456: IF FND_API.To_Boolean( p_commit ) THEN
8457: IF g_debug_flag THEN
8458: Write_Debug('Rollback . . .') ;
8459: END IF ;
8460: ROLLBACK TO Sync_LC_Phase_Setup ;
8459: END IF ;
8460: ROLLBACK TO Sync_LC_Phase_Setup ;
8461: END IF;
8462:
8463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8464:
8465: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
8466: THEN
8467: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
8475: IF g_debug_flag THEN
8476: Write_Debug('Finish with other error.') ;
8477: END IF;
8478:
8479: IF FND_API.to_Boolean( p_debug ) THEN
8480: Close_Debug_Session;
8481: END IF;
8482:
8483: END Sync_LC_Phase_Setup ;