23: l_org_assign_tbl CSI_DATASTRUCTURES_PUB.ORGANIZATION_UNITS_TBL;
24: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
25: l_grp_error_tbl CSI_DATASTRUCTURES_PUB.GRP_ERROR_TBL;
26: l_api_version NUMBER := 1.0;
27: l_commit VARCHAR2(1) := fnd_api.g_false;
28: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
29: l_validation_level NUMBER := fnd_api.g_valid_level_full;
30: l_msg_count NUMBER;
31: l_msg_data VARCHAR2(2000);
24: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
25: l_grp_error_tbl CSI_DATASTRUCTURES_PUB.GRP_ERROR_TBL;
26: l_api_version NUMBER := 1.0;
27: l_commit VARCHAR2(1) := fnd_api.g_false;
28: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
29: l_validation_level NUMBER := fnd_api.g_valid_level_full;
30: l_msg_count NUMBER;
31: l_msg_data VARCHAR2(2000);
32: l_msg_index NUMBER;
25: l_grp_error_tbl CSI_DATASTRUCTURES_PUB.GRP_ERROR_TBL;
26: l_api_version NUMBER := 1.0;
27: l_commit VARCHAR2(1) := fnd_api.g_false;
28: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
29: l_validation_level NUMBER := fnd_api.g_valid_level_full;
30: l_msg_count NUMBER;
31: l_msg_data VARCHAR2(2000);
32: l_msg_index NUMBER;
33: l_sql_error VARCHAR2(2000);
30: l_msg_count NUMBER;
31: l_msg_data VARCHAR2(2000);
32: l_msg_index NUMBER;
33: l_sql_error VARCHAR2(2000);
34: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
35: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
36: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
37: l_api_name VARCHAR2(255) :=
38: 'CSI_ML_CREATE_PUB.CREATE_INSTANCES';
31: l_msg_data VARCHAR2(2000);
32: l_msg_index NUMBER;
33: l_sql_error VARCHAR2(2000);
34: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
35: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
36: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
37: l_api_name VARCHAR2(255) :=
38: 'CSI_ML_CREATE_PUB.CREATE_INSTANCES';
39: x_count NUMBER := 0;
32: l_msg_index NUMBER;
33: l_sql_error VARCHAR2(2000);
34: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
35: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
36: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
37: l_api_name VARCHAR2(255) :=
38: 'CSI_ML_CREATE_PUB.CREATE_INSTANCES';
39: x_count NUMBER := 0;
40: l_count NUMBER := 0;
129: l_return_status,
130: l_error_message);
131:
132: IF NOT l_return_status = l_fnd_success THEN
133: RAISE RESOLVE_ERROR; --fnd_api.g_exc_error;
134: END IF;
135: END IF;
136: -- After getting IDs now create PL/SQL Tables
137:
154: l_return_status,
155: l_error_message);
156:
157: IF NOT l_return_status = l_fnd_success THEN
158: RAISE fnd_api.g_exc_error;
159: END IF;
160:
161: -- commented the following unnecessary code
162: /*
197: l_msg_index := 1;
198: l_Error_Message := l_Msg_Data;
199: WHILE l_msg_count > 0 LOOP
200: l_Error_Message := l_Error_Message||FND_MSG_PUB.GET(l_msg_index,
201: FND_API.G_FALSE);
202: l_msg_index := l_msg_index + 1;
203: l_Msg_Count := l_Msg_Count - 1;
204: END LOOP;
205: RAISE fnd_api.g_exc_error;
201: FND_API.G_FALSE);
202: l_msg_index := l_msg_index + 1;
203: l_Msg_Count := l_Msg_Count - 1;
204: END LOOP;
205: RAISE fnd_api.g_exc_error;
206: END IF;
207:
208: l_tbl_count := 0;
209: l_tbl_count := l_instance_tbl.count;
244: FND_File.Put_Line(Fnd_File.LOG,l_error_message);
245: END IF;
246: x_return_status := l_fnd_error;
247: x_msg_data := l_error_message;
248: WHEN fnd_api.g_exc_error THEN
249: ROLLBACK to create_instances;
250: IF(l_debug_level>1) THEN
251: FND_File.Put_Line(Fnd_File.LOG,'In EXPECTED Exception in:'||l_api_name);
252: FND_File.Put_Line(Fnd_File.LOG,l_error_message);
291: l_org_assign_tbl CSI_DATASTRUCTURES_PUB.ORGANIZATION_UNITS_TBL;
292: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
293: l_grp_error_tbl CSI_DATASTRUCTURES_PUB.GRP_ERROR_TBL;
294: l_api_version NUMBER := 1.0;
295: l_commit VARCHAR2(1) := fnd_api.g_false;
296: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
297: l_validation_level NUMBER := fnd_api.g_valid_level_full;
298: l_msg_count NUMBER;
299: l_msg_data VARCHAR2(2000);
292: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
293: l_grp_error_tbl CSI_DATASTRUCTURES_PUB.GRP_ERROR_TBL;
294: l_api_version NUMBER := 1.0;
295: l_commit VARCHAR2(1) := fnd_api.g_false;
296: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
297: l_validation_level NUMBER := fnd_api.g_valid_level_full;
298: l_msg_count NUMBER;
299: l_msg_data VARCHAR2(2000);
300: l_msg_index NUMBER;
293: l_grp_error_tbl CSI_DATASTRUCTURES_PUB.GRP_ERROR_TBL;
294: l_api_version NUMBER := 1.0;
295: l_commit VARCHAR2(1) := fnd_api.g_false;
296: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
297: l_validation_level NUMBER := fnd_api.g_valid_level_full;
298: l_msg_count NUMBER;
299: l_msg_data VARCHAR2(2000);
300: l_msg_index NUMBER;
301: l_sql_error VARCHAR2(2000);
298: l_msg_count NUMBER;
299: l_msg_data VARCHAR2(2000);
300: l_msg_index NUMBER;
301: l_sql_error VARCHAR2(2000);
302: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
303: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
304: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
305: l_api_name VARCHAR2(255) :=
306: 'CSI_ML_CREATE_PUB.CREATE_PARALLEL_INSTANCES';
299: l_msg_data VARCHAR2(2000);
300: l_msg_index NUMBER;
301: l_sql_error VARCHAR2(2000);
302: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
303: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
304: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
305: l_api_name VARCHAR2(255) :=
306: 'CSI_ML_CREATE_PUB.CREATE_PARALLEL_INSTANCES';
307: x_count NUMBER := 0;
300: l_msg_index NUMBER;
301: l_sql_error VARCHAR2(2000);
302: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
303: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
304: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
305: l_api_name VARCHAR2(255) :=
306: 'CSI_ML_CREATE_PUB.CREATE_PARALLEL_INSTANCES';
307: x_count NUMBER := 0;
308: l_count NUMBER := 0;
437: to_char(sysdate,'DD-MON-YYYY HH:MI:SS:SS'));
438: END IF;
439:
440: IF NOT l_return_status = l_fnd_success THEN
441: RAISE RESOLVE_ERROR; --fnd_api.g_exc_error;
442: END IF;
443: END IF;
444:
445: -- After getting IDs now create PL/SQL Tables
471: to_char(sysdate,'DD-MON-YYYY HH:MI:SS:SS'));
472: END IF;
473:
474: IF NOT l_return_status = l_fnd_success THEN
475: RAISE fnd_api.g_exc_error;
476: END IF;
477:
478: IF(l_debug_level>1) THEN
479: FND_File.Put_Line(Fnd_File.LOG,'Before Contact Loop: '||
526: l_msg_index := 1;
527: l_Error_Message := l_Msg_Data;
528: WHILE l_msg_count > 0 LOOP
529: l_Error_Message := l_Error_Message||FND_MSG_PUB.GET(l_msg_index,
530: FND_API.G_FALSE);
531: l_msg_index := l_msg_index + 1;
532: l_Msg_Count := l_Msg_Count - 1;
533: END LOOP;
534: RAISE fnd_api.g_exc_error;
530: FND_API.G_FALSE);
531: l_msg_index := l_msg_index + 1;
532: l_Msg_Count := l_Msg_Count - 1;
533: END LOOP;
534: RAISE fnd_api.g_exc_error;
535: END IF;
536: IF(l_debug_level>1) THEN
537: FND_File.Put_Line(Fnd_File.LOG,'After GRP API: '||
538: to_char(sysdate,'DD-MON-YYYY HH:MI:SS:SS'));
580: WHERE inst_interface_id = l_inst_id_tbl(j).inst_interface_id;
581:
582: END LOOP;
583: COMMIT;
584: WHEN fnd_api.g_exc_error THEN
585: ROLLBACK to create_parallel_instances;
586:
587: IF(l_debug_level>1) THEN
588: FND_File.Put_Line(Fnd_File.LOG,'In EXPECTED Exception in:'||l_api_name);
639: l_relationship_tbl CSI_DATASTRUCTURES_PUB.II_RELATIONSHIP_TBL;
640: l_txn_tbl CSI_DATASTRUCTURES_PUB.TRANSACTION_TBL;
641: l_txn_rec CSI_DATASTRUCTURES_PUB.TRANSACTION_REC;
642: l_api_version NUMBER := 1.0;
643: l_commit VARCHAR2(1) := fnd_api.g_false;
644: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
645: l_validation_level NUMBER := fnd_api.g_valid_level_full;
646: l_msg_count NUMBER;
647: l_msg_data VARCHAR2(2000);
640: l_txn_tbl CSI_DATASTRUCTURES_PUB.TRANSACTION_TBL;
641: l_txn_rec CSI_DATASTRUCTURES_PUB.TRANSACTION_REC;
642: l_api_version NUMBER := 1.0;
643: l_commit VARCHAR2(1) := fnd_api.g_false;
644: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
645: l_validation_level NUMBER := fnd_api.g_valid_level_full;
646: l_msg_count NUMBER;
647: l_msg_data VARCHAR2(2000);
648: l_msg_index NUMBER;
641: l_txn_rec CSI_DATASTRUCTURES_PUB.TRANSACTION_REC;
642: l_api_version NUMBER := 1.0;
643: l_commit VARCHAR2(1) := fnd_api.g_false;
644: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
645: l_validation_level NUMBER := fnd_api.g_valid_level_full;
646: l_msg_count NUMBER;
647: l_msg_data VARCHAR2(2000);
648: l_msg_index NUMBER;
649: l_sql_error VARCHAR2(2000);
646: l_msg_count NUMBER;
647: l_msg_data VARCHAR2(2000);
648: l_msg_index NUMBER;
649: l_sql_error VARCHAR2(2000);
650: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
651: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
652: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
653: l_api_name VARCHAR2(255) :=
654: 'CSI_ML_CREATE_PUB.CREATE_RELATIONSHIPS';
647: l_msg_data VARCHAR2(2000);
648: l_msg_index NUMBER;
649: l_sql_error VARCHAR2(2000);
650: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
651: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
652: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
653: l_api_name VARCHAR2(255) :=
654: 'CSI_ML_CREATE_PUB.CREATE_RELATIONSHIPS';
655: x_count NUMBER := 0;
648: l_msg_index NUMBER;
649: l_sql_error VARCHAR2(2000);
650: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
651: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
652: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
653: l_api_name VARCHAR2(255) :=
654: 'CSI_ML_CREATE_PUB.CREATE_RELATIONSHIPS';
655: x_count NUMBER := 0;
656: l_count NUMBER := 0;
666:
667: x_return_status := l_fnd_success;
668:
669: EXCEPTION
670: WHEN fnd_api.g_exc_error THEN
671: ROLLBACK to create_relationships;
672:
673: IF(l_debug_level>1) THEN
674: FND_File.Put_Line(Fnd_File.LOG,'In EXPECTED Exception in:'||l_api_name);