1062: END IF;
1063:
1064: -- Start processing
1065: IF (p_concurrent_flag = 'Y') THEN
1066: fnd_file.put_line(fnd_file.log, 'Starting PO Synch process...');
1067: END IF;
1068:
1069: -- First make all associations (PO Header Id, PO Line Id, Status updates)
1070: ASSOCIATE_ALL_OSP_POs(p_api_version => 1.0,
1072: x_return_status => x_return_status,
1073: x_msg_count => x_msg_count,
1074: x_msg_data => x_msg_data);
1075: IF (p_concurrent_flag = 'Y') THEN
1076: fnd_file.put_line(fnd_file.log, 'Completed Associating OSPs with POs');
1077: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1078: END IF;
1079: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1080: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Associating OSPs with POs, Return Status = ' || x_return_status);
1073: x_msg_count => x_msg_count,
1074: x_msg_data => x_msg_data);
1075: IF (p_concurrent_flag = 'Y') THEN
1076: fnd_file.put_line(fnd_file.log, 'Completed Associating OSPs with POs');
1077: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1078: END IF;
1079: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1080: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Associating OSPs with POs, Return Status = ' || x_return_status);
1081: END IF;
1086: -- Handle Deleted PO Headers
1087: HANDLE_DELETED_PO_HEADERS(p_commit => p_commit, --Commit this independent of other operations
1088: x_return_status => x_return_status);
1089: IF (p_concurrent_flag = 'Y') THEN
1090: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted PO Headers');
1091: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1092: END IF;
1093: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted PO Headers, Return Status = ' || x_return_status);
1087: HANDLE_DELETED_PO_HEADERS(p_commit => p_commit, --Commit this independent of other operations
1088: x_return_status => x_return_status);
1089: IF (p_concurrent_flag = 'Y') THEN
1090: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted PO Headers');
1091: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1092: END IF;
1093: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted PO Headers, Return Status = ' || x_return_status);
1095: END IF;
1097: -- Handle Deleted Sales Orders
1098: HANDLE_DELETED_SALES_ORDERS(p_commit => p_commit, --Commit this independent of other operations
1099: x_return_status => x_return_status);
1100: IF (p_concurrent_flag = 'Y') THEN
1101: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted Sales Orders');
1102: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1103: END IF;
1104: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1105: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted Sales Orders, Return Status = ' || x_return_status);
1098: HANDLE_DELETED_SALES_ORDERS(p_commit => p_commit, --Commit this independent of other operations
1099: x_return_status => x_return_status);
1100: IF (p_concurrent_flag = 'Y') THEN
1101: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted Sales Orders');
1102: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1103: END IF;
1104: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1105: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted Sales Orders, Return Status = ' || x_return_status);
1106: END IF;
1108: -- Handle Canceled POs
1109: HANDLE_CANCELLED_PO_LINES(p_commit => p_commit, --Commit this independent of other operations
1110: x_return_status => x_return_status);
1111: IF (p_concurrent_flag = 'Y') THEN
1112: fnd_file.put_line(fnd_file.log, 'Completed Handling Cancelled PO Lines');
1113: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1114: END IF;
1115: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1116: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Cancelled PO Lines, Return Status = ' || x_return_status);
1109: HANDLE_CANCELLED_PO_LINES(p_commit => p_commit, --Commit this independent of other operations
1110: x_return_status => x_return_status);
1111: IF (p_concurrent_flag = 'Y') THEN
1112: fnd_file.put_line(fnd_file.log, 'Completed Handling Cancelled PO Lines');
1113: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1114: END IF;
1115: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1116: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Cancelled PO Lines, Return Status = ' || x_return_status);
1117: END IF;
1119: -- Handle Deleted PO Lines
1120: HANDLE_DELETED_PO_LINES(p_commit => p_commit, --Commit this independent of other operations
1121: x_return_status => x_return_status);
1122: IF (p_concurrent_flag = 'Y') THEN
1123: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted PO Lines');
1124: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1125: END IF;
1126: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1127: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted PO Lines, Return Status = ' || x_return_status);
1120: HANDLE_DELETED_PO_LINES(p_commit => p_commit, --Commit this independent of other operations
1121: x_return_status => x_return_status);
1122: IF (p_concurrent_flag = 'Y') THEN
1123: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted PO Lines');
1124: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1125: END IF;
1126: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1127: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted PO Lines, Return Status = ' || x_return_status);
1128: END IF;
1130: -- Handle Approved POs
1131: HANDLE_APPROVED_POs(p_commit => p_commit, --Commit this independent of other operations
1132: x_return_status => x_return_status);
1133: IF (p_concurrent_flag = 'Y') THEN
1134: fnd_file.put_line(fnd_file.log, 'Completed Handling Approved POs');
1135: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1136: END IF;
1137: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1138: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Approved POs, Return Status = ' || x_return_status);
1131: HANDLE_APPROVED_POs(p_commit => p_commit, --Commit this independent of other operations
1132: x_return_status => x_return_status);
1133: IF (p_concurrent_flag = 'Y') THEN
1134: fnd_file.put_line(fnd_file.log, 'Completed Handling Approved POs');
1135: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1136: END IF;
1137: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1138: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Approved POs, Return Status = ' || x_return_status);
1139: END IF;
1142: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing Purchase Orders. About to start processing Requisitions.');
1144: END IF;
1145: IF (p_concurrent_flag = 'Y') THEN
1146: fnd_file.put_line(fnd_file.log, 'Completed PO Synch Process. About to start processing Requisitions by calling AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions.');
1147: END IF;
1148: AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions(p_api_version => 1.0,
1149: p_init_msg_list => FND_API.G_FALSE,
1150: p_commit => p_commit, --Commit this independent of other operations
1156: x_msg_count => x_msg_count,
1157: x_msg_data => x_msg_data);
1158:
1159: IF (p_concurrent_flag = 'Y') THEN
1160: fnd_file.put_line(fnd_file.log, 'Completed processing Requisitions.');
1161: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1162: END IF;
1163: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1164: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions, Return Status = ' || x_return_status);
1157: x_msg_data => x_msg_data);
1158:
1159: IF (p_concurrent_flag = 'Y') THEN
1160: fnd_file.put_line(fnd_file.log, 'Completed processing Requisitions.');
1161: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1162: END IF;
1163: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1164: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions, Return Status = ' || x_return_status);
1165: END IF;
1176: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1177: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing Requisitions. About to check for errors.');
1178: END IF;
1179: IF (p_concurrent_flag = 'Y') THEN
1180: fnd_file.put_line(fnd_file.log, 'Completed Requisition Synch Process. Checking for errors');
1181: END IF;
1182: -- End changes by jaramana on January 7, 2008 for the Requisition ER 6034236
1183: -- Check Error Message stack.
1184: x_msg_count := FND_MSG_PUB.count_msg;
1213: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1214: p_data => x_msg_data,
1215: p_encoded => fnd_api.g_false);
1216: IF (p_concurrent_flag = 'Y') THEN
1217: fnd_file.put_line(fnd_file.log, 'Caught Execution Exception: ' || x_msg_data);
1218: END IF;
1219: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1220: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Caught Execution Exception: ' || x_msg_data);
1221: END IF;
1228: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1229: p_data => x_msg_data,
1230: p_encoded => fnd_api.g_false);
1231: IF (p_concurrent_flag = 'Y') THEN
1232: fnd_file.put_line(fnd_file.log, 'Caught Unexpected Exception: ' || x_msg_data);
1233: END IF;
1234: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1235: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Caught Unexpected Exception: ' || x_msg_data);
1236: END IF;
1248: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1249: p_data => x_msg_data,
1250: p_encoded => fnd_api.g_false);
1251: IF (p_concurrent_flag = 'Y') THEN
1252: fnd_file.put_line(fnd_file.log, 'Caught Unknown Exception: ' || x_msg_data);
1253: END IF;
1254: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1255: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Caught Unknown Exception: ' || x_msg_data);
1256: END IF;