143: --
144:
145: PROCEDURE Classify_Territories
146: (p_Api_Version_Number IN NUMBER,
147: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
148: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
149: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
150:
151: x_Return_Status OUT NOCOPY VARCHAR2,
144:
145: PROCEDURE Classify_Territories
146: (p_Api_Version_Number IN NUMBER,
147: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
148: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
149: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
150:
151: x_Return_Status OUT NOCOPY VARCHAR2,
152: x_Msg_Count OUT NOCOPY NUMBER,
145: PROCEDURE Classify_Territories
146: (p_Api_Version_Number IN NUMBER,
147: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
148: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
149: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
150:
151: x_Return_Status OUT NOCOPY VARCHAR2,
152: x_Msg_Count OUT NOCOPY NUMBER,
153: x_Msg_Data OUT NOCOPY VARCHAR2,
255:
256: BEGIN
257:
258: -- Standard call to check for call compatibility.
259: IF NOT fnd_api.compatible_api_call (
260: l_api_version_number,
261: p_api_version_number,
262: l_api_name,
263: g_pkg_name
262: l_api_name,
263: g_pkg_name
264: )
265: THEN
266: RAISE fnd_api.g_exc_unexpected_error;
267: END IF;
268: -- Initialize API return status to success
269: x_return_status := FND_API.G_RET_STS_SUCCESS;
270:
265: THEN
266: RAISE fnd_api.g_exc_unexpected_error;
267: END IF;
268: -- Initialize API return status to success
269: x_return_status := FND_API.G_RET_STS_SUCCESS;
270:
271: ---------------------------------------------------------------
272: -- API BODY BEGINS
273: ---------------------------------------------------------------
323: WHEN NO_DATA_FOUND THEN
324: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [1] NO_DATA_FOUND: ' ||
325: 'NO territories exist for this Usage/Transaction combination.';
326: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
327: RAISE FND_API.G_EXC_ERROR;
328:
329: WHEN OTHERS THEN
330: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [1] OTHERS: ' ||
331: SQLERRM;
329: WHEN OTHERS THEN
330: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [1] OTHERS: ' ||
331: SQLERRM;
332: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
334: END;
335:
336:
337: --dbms_output.put_line('*** Rel Prod Init Complete - Time: ' || trunc((sysdate - startime) * 86400, 5) || ' seconds');
426: WHEN NO_DATA_FOUND THEN
427: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [2] NO_DATA_FOUND: ' ||
428: 'UPDATE JTF_TERR_DENORM_RULES_ALL.QUAL_RELATION_PRODUCT.';
429: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
430: RAISE FND_API.G_EXC_ERROR;
431:
432: WHEN OTHERS THEN
433: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [2] OTHERS: ' ||
434: SQLERRM;
432: WHEN OTHERS THEN
433: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [2] OTHERS: ' ||
434: SQLERRM;
435: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
437: END;
438: --dbms_output.put_line(' Update time: ' ||
439: --trunc((sysdate - looptime) * 86400, 3) || ' seconds');
440:
479: WHEN NO_DATA_FOUND THEN
480: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [3] NO_DATA_FOUND: ' ||
481: 'Clearing Qualifier Combination data.';
482: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
483: RAISE FND_API.G_EXC_ERROR;
484:
485: WHEN OTHERS THEN
486: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [3] OTHERS: ' ||
487: SQLERRM;
485: WHEN OTHERS THEN
486: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [3] OTHERS: ' ||
487: SQLERRM;
488: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
490: END;
491:
492: l_counter_qtype_offset := 0;
493: l_counter := 0;
544: WHEN NO_DATA_FOUND THEN
545: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [4] NO_DATA_FOUND: ' ||
546: 'Populating JTF_TAE_QUAL_PRODUCTS table.';
547: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
548: RAISE FND_API.G_EXC_ERROR;
549:
550: WHEN OTHERS THEN
551: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [4] OTHERS: ' ||
552: SQLERRM;
550: WHEN OTHERS THEN
551: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [4] OTHERS: ' ||
552: SQLERRM;
553: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
555: END;
556:
557: --dbms_output.put_line(' Qualifier used in this cursor: ');
558: ll_counter := 0;
629: WHEN NO_DATA_FOUND THEN
630: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [5] NO_DATA_FOUND: ' ||
631: 'Populating JTF_TAE_QUAL_FACTORS table.';
632: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
633: RAISE FND_API.G_EXC_ERROR;
634:
635: WHEN OTHERS THEN
636: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [5] OTHERS: ' ||
637: SQLERRM;
635: WHEN OTHERS THEN
636: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [5] OTHERS: ' ||
637: SQLERRM;
638: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
640: END;
641:
642: end if;
643:
691: WHEN NO_DATA_FOUND THEN
692: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [6] NO_DATA_FOUND: ' ||
693: 'Populating JTF_TAE_QUAL_PROD_FACTORS table.';
694: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
695: RAISE FND_API.G_EXC_ERROR;
696:
697: WHEN OTHERS THEN
698: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [6] OTHERS: ' ||
699: SQLERRM;
697: WHEN OTHERS THEN
698: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [6] OTHERS: ' ||
699: SQLERRM;
700: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
702: END;
703:
704: end loop; -- all factors per combination
705: end if; -- product combination <> 1 (for srinibas)
707: l_counter_qtype_offset := l_counter;
708: --end loop; -- per transaction type
709:
710: -- completion:API return status to success
711: x_return_status := FND_API.G_RET_STS_SUCCESS;
712: --dbms_output.put_line(' ');
713:
714:
715: EXCEPTION
713:
714:
715: EXCEPTION
716:
717: WHEN FND_API.G_EXC_ERROR THEN
718: x_return_status := FND_API.G_RET_STS_ERROR;
719: RETCODE := 1;
720:
721: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
714:
715: EXCEPTION
716:
717: WHEN FND_API.G_EXC_ERROR THEN
718: x_return_status := FND_API.G_RET_STS_ERROR;
719: RETCODE := 1;
720:
721: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
722:
719: RETCODE := 1;
720:
721: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
722:
723: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
725: RETCODE := 2;
726:
727: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
720:
721: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
722:
723: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
725: RETCODE := 2;
726:
727: JTF_TAE_CONTROL_PVT.Write_Log(2, ERRBUF);
728:
732: utl_file.invalid_filehandle OR
733: utl_file.invalid_operation OR
734: utl_file.write_error THEN
735:
736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
737: RETCODE := 2;
738: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [END] UTL_FILE: ' ||
739: SQLERRM;
740:
742:
743:
744: WHEN OTHERS THEN
745:
746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
747: RETCODE := 2;
748: ERRBUF := 'JTF_TAE_CONTROL.Classify_Territories: [END] OTHERS: ' ||
749: SQLERRM;
750:
781: --
782:
783: PROCEDURE Reduce_TX_OIN_Index_Set
784: (p_Api_Version_Number IN NUMBER,
785: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
786: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
787: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
788: p_source_id IN NUMBER,
789: p_trans_id IN NUMBER,
782:
783: PROCEDURE Reduce_TX_OIN_Index_Set
784: (p_Api_Version_Number IN NUMBER,
785: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
786: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
787: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
788: p_source_id IN NUMBER,
789: p_trans_id IN NUMBER,
790: x_Return_Status OUT NOCOPY VARCHAR2,
783: PROCEDURE Reduce_TX_OIN_Index_Set
784: (p_Api_Version_Number IN NUMBER,
785: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
786: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
787: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
788: p_source_id IN NUMBER,
789: p_trans_id IN NUMBER,
790: x_Return_Status OUT NOCOPY VARCHAR2,
791: x_Msg_Count OUT NOCOPY NUMBER,
1006:
1007: COMMIT;
1008:
1009: -- completion:API return status to success
1010: x_return_status := FND_API.G_RET_STS_SUCCESS;
1011:
1012: EXCEPTION
1013:
1014: WHEN FND_API.G_EXC_ERROR THEN
1010: x_return_status := FND_API.G_RET_STS_SUCCESS;
1011:
1012: EXCEPTION
1013:
1014: WHEN FND_API.G_EXC_ERROR THEN
1015: x_return_status := FND_API.G_RET_STS_ERROR;
1016:
1017: IF G_Debug THEN
1018: Write_Log(2, ERRBUF);
1011:
1012: EXCEPTION
1013:
1014: WHEN FND_API.G_EXC_ERROR THEN
1015: x_return_status := FND_API.G_RET_STS_ERROR;
1016:
1017: IF G_Debug THEN
1018: Write_Log(2, ERRBUF);
1019: END IF;
1017: IF G_Debug THEN
1018: Write_Log(2, ERRBUF);
1019: END IF;
1020:
1021: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1023:
1024: IF G_Debug THEN
1025: Write_Log(2, ERRBUF);
1018: Write_Log(2, ERRBUF);
1019: END IF;
1020:
1021: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1023:
1024: IF G_Debug THEN
1025: Write_Log(2, ERRBUF);
1026: END IF;
1030: utl_file.invalid_filehandle OR
1031: utl_file.invalid_operation OR
1032: utl_file.write_error THEN
1033:
1034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1035: RETCODE := 2;
1036: ERRBUF := 'JTF_TAE_CONTROL.Reduce_TX_OIN_Index_Set: [END] UTL_FILE: ' ||
1037: SQLERRM;
1038:
1041: End If;
1042:
1043: WHEN OTHERS THEN
1044:
1045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1046: RETCODE := 2;
1047: ERRBUF := 'JTF_TAE_CONTROL.Reduce_TX_OIN_Index_Set: [END] OTHERS: ' ||
1048: SQLERRM;
1049:
1075: -- combinations.
1076: --
1077: PROCEDURE Decompose_Terr_Defns
1078: (p_Api_Version_Number IN NUMBER,
1079: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1080: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
1081: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1082: x_Return_Status OUT NOCOPY VARCHAR2,
1083: x_Msg_Count OUT NOCOPY NUMBER,
1076: --
1077: PROCEDURE Decompose_Terr_Defns
1078: (p_Api_Version_Number IN NUMBER,
1079: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1080: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
1081: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1082: x_Return_Status OUT NOCOPY VARCHAR2,
1083: x_Msg_Count OUT NOCOPY NUMBER,
1084: x_Msg_Data OUT NOCOPY VARCHAR2,
1077: PROCEDURE Decompose_Terr_Defns
1078: (p_Api_Version_Number IN NUMBER,
1079: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1080: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
1081: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1082: x_Return_Status OUT NOCOPY VARCHAR2,
1083: x_Msg_Count OUT NOCOPY NUMBER,
1084: x_Msg_Data OUT NOCOPY VARCHAR2,
1085: p_run_mode IN VARCHAR2 := 'FULL',
1158: END IF;
1159:
1160: -- check if source_id is valid
1161: if (l_source_id <> -1001) then
1162: raise FND_API.G_EXC_ERROR;
1163: end if;
1164:
1165: /*
1166: --dbms_output.put_line('p_classify_terr_comb = ' || p_classify_terr_comb);
1174: -- must do this for all qual_types
1175: -- Classify_Territories
1176: Classify_Territories
1177: (p_Api_Version_Number => 1.0,
1178: p_Init_Msg_List => FND_API.G_FALSE,
1179: p_Commit => FND_API.G_FALSE,
1180: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1181: x_Return_Status => l_return_status,
1182: x_Msg_Count => x_msg_count,
1175: -- Classify_Territories
1176: Classify_Territories
1177: (p_Api_Version_Number => 1.0,
1178: p_Init_Msg_List => FND_API.G_FALSE,
1179: p_Commit => FND_API.G_FALSE,
1180: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1181: x_Return_Status => l_return_status,
1182: x_Msg_Count => x_msg_count,
1183: x_Msg_Data => x_msg_data,
1176: Classify_Territories
1177: (p_Api_Version_Number => 1.0,
1178: p_Init_Msg_List => FND_API.G_FALSE,
1179: p_Commit => FND_API.G_FALSE,
1180: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1181: x_Return_Status => l_return_status,
1182: x_Msg_Count => x_msg_count,
1183: x_Msg_Data => x_msg_data,
1184: p_source_id => l_source_id,
1187: retcode => RETCODE
1188: );
1189:
1190: --dbms_output.put_line('JTF_TAE_CONTROL_PVT.Decompose_Terr_Defns: l_return_status= ' || l_return_status);
1191: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1192:
1193: ERRBUF := 'JTF_TAE_CONTROL_PVT.DECOMPOSE_TERR_DEFNS: [1]' ||
1194: 'CALL to JTF_TAE_CONTROL.Classify_Territories API has failed.';
1195: RAISE FND_API.G_EXC_ERROR;
1191: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1192:
1193: ERRBUF := 'JTF_TAE_CONTROL_PVT.DECOMPOSE_TERR_DEFNS: [1]' ||
1194: 'CALL to JTF_TAE_CONTROL.Classify_Territories API has failed.';
1195: RAISE FND_API.G_EXC_ERROR;
1196:
1197: END IF;
1198:
1199: update JTF_TAE_QUAL_factors
1209: --dbms_output.put_line(' Analyze Selectivity and Get ordinals ');
1210: l_selectivity_return_val := jtf_tae_index_creation_pvt.selectivity(l_trans_input_target);
1211:
1212: IF l_selectivity_return_val <> 1 THEN
1213: RAISE FND_API.G_EXC_ERROR;
1214: END IF;
1215:
1216: end if;
1217:
1218: --dbms_output.put_line(' Reducing Sets ');
1219: -- Reduce Sets
1220: Reduce_TX_OIN_Index_Set
1221: (p_Api_Version_Number => 1.0,
1222: p_Init_Msg_List => FND_API.G_FALSE,
1223: p_Commit => FND_API.G_FALSE,
1224: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1225: p_source_id => l_source_id,
1226: p_trans_id => l_trans_id,
1219: -- Reduce Sets
1220: Reduce_TX_OIN_Index_Set
1221: (p_Api_Version_Number => 1.0,
1222: p_Init_Msg_List => FND_API.G_FALSE,
1223: p_Commit => FND_API.G_FALSE,
1224: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1225: p_source_id => l_source_id,
1226: p_trans_id => l_trans_id,
1227: x_Return_Status => l_return_status,
1220: Reduce_TX_OIN_Index_Set
1221: (p_Api_Version_Number => 1.0,
1222: p_Init_Msg_List => FND_API.G_FALSE,
1223: p_Commit => FND_API.G_FALSE,
1224: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1225: p_source_id => l_source_id,
1226: p_trans_id => l_trans_id,
1227: x_Return_Status => l_return_status,
1228: x_Msg_Count => x_msg_count,
1228: x_Msg_Count => x_msg_count,
1229: x_Msg_Data => x_msg_data
1230: );
1231:
1232: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1233:
1234: ERRBUF := 'JTF_TAE_CONTROL_PVT.DECOMPOSE_TERR_DEFNS: [2]' ||
1235: 'CALL to JTF_TAE_CONTROL.Reduce_TX_OIN_Index_Set API has failed.';
1236: RAISE FND_API.G_EXC_ERROR;
1232: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1233:
1234: ERRBUF := 'JTF_TAE_CONTROL_PVT.DECOMPOSE_TERR_DEFNS: [2]' ||
1235: 'CALL to JTF_TAE_CONTROL.Reduce_TX_OIN_Index_Set API has failed.';
1236: RAISE FND_API.G_EXC_ERROR;
1237:
1238: END IF;
1239:
1240: end if; -- p_process_tx_oin_sel?
1245: jtf_tae_index_creation_pvt.drop_table_indexes(
1246: p_table_name => l_trans_input_target
1247: , x_return_status => l_return_status);
1248:
1249: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1250:
1251: ERRBUF := 'JTF_TAE_CONTROL_PVT.DECOMPOSE_TERR_DEFNS: [3]' ||
1252: 'CALL to JTF_TAE_INDEX_CREATION_PVT.DROP_TABLE_INDEXES ' ||
1253: 'API has failed.';
1250:
1251: ERRBUF := 'JTF_TAE_CONTROL_PVT.DECOMPOSE_TERR_DEFNS: [3]' ||
1252: 'CALL to JTF_TAE_INDEX_CREATION_PVT.DROP_TABLE_INDEXES ' ||
1253: 'API has failed.';
1254: RAISE FND_API.G_EXC_ERROR;
1255:
1256: END IF;
1257:
1258: -- Build Indexes
1262: , p_source_id => l_source_id
1263: , x_Return_Status => l_return_status
1264: , p_run_mode => p_run_mode );
1265:
1266: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1267:
1268: ERRBUF := 'JTF_TAE_CONTROL_PVT.DECOMPOSE_TERR_DEFNS: [4]' ||
1269: 'CALL to JTF_TAE_INDEX_CREATION_PVT.CREATE_INDEX ' ||
1270: 'API has failed.';
1267:
1268: ERRBUF := 'JTF_TAE_CONTROL_PVT.DECOMPOSE_TERR_DEFNS: [4]' ||
1269: 'CALL to JTF_TAE_INDEX_CREATION_PVT.CREATE_INDEX ' ||
1270: 'API has failed.';
1271: RAISE FND_API.G_EXC_ERROR;
1272:
1273: END IF;
1274:
1275: -- Analyze Trans Input Target
1277: --JTF_TAE_INDEX_CREATION_PVT.ANALYZE_TABLE_INDEX(
1278: -- p_table_name => l_trans_input_target
1279: -- , p_percent => 5
1280: -- , x_Return_Status => l_return_status );
1281: -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1282: -- ERRBUF := 'JTF_TAE_CONTROL_PVT.DECOMPOSE_TERR_DEFNS: [5]' ||
1283: -- 'CALL to JTF_TAE_INDEX_CREATION_PVT.ANALYZE_TABLE_INDEX ' ||
1284: -- 'API has failed.';
1285: -- RAISE FND_API.G_EXC_ERROR;
1281: -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1282: -- ERRBUF := 'JTF_TAE_CONTROL_PVT.DECOMPOSE_TERR_DEFNS: [5]' ||
1283: -- 'CALL to JTF_TAE_INDEX_CREATION_PVT.ANALYZE_TABLE_INDEX ' ||
1284: -- 'API has failed.';
1285: -- RAISE FND_API.G_EXC_ERROR;
1286: -- END IF;
1287: --
1288:
1289:
1293: x_return_status := l_return_status;
1294:
1295: EXCEPTION
1296:
1297: WHEN FND_API.G_EXC_ERROR THEN
1298: x_return_status := FND_API.G_RET_STS_ERROR;
1299:
1300: RETCODE := 2;
1301:
1294:
1295: EXCEPTION
1296:
1297: WHEN FND_API.G_EXC_ERROR THEN
1298: x_return_status := FND_API.G_RET_STS_ERROR;
1299:
1300: RETCODE := 2;
1301:
1302: IF G_Debug THEN
1308: utl_file.invalid_filehandle OR
1309: utl_file.invalid_operation OR
1310: utl_file.write_error THEN
1311:
1312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1313: RETCODE := 2;
1314: ERRBUF := 'JTF_TAE_CONTROL.Decompose_Terr_Defns: [END] UTL_FILE: ' ||
1315: SQLERRM;
1316:
1319: End If;
1320:
1321: WHEN OTHERS THEN
1322:
1323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1324: RETCODE := 2;
1325: ERRBUF := 'JTF_TAE_CONTROL.Decompose_Terr_Defns: [END] OTHERS: ' ||
1326: SQLERRM;
1327: