[Home] [Help]
370: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
371: END IF;
372:
373: IF (p_concurrent_flag = 'Y') THEN
374: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- START ----');
375: END IF;
376:
377: -- Standard start of API savepoint
378: SAVEPOINT PROCESS_RA_DATA_SP;
395: fnd_log.string(fnd_log.level_statement,l_full_name,'RA -- PKG -- PROCESS_RA_DATA -------p_end_date-----------' || p_end_date);
396: END IF;
397:
398: IF (p_concurrent_flag = 'Y') THEN
399: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Validating Start / End Date ----');
400: END IF;
401:
402: -- Input Data Validation
403: -- p_start_date and p_end_date should not be null.
415: fnd_log.string(fnd_log.level_statement,l_full_name,'-- p_start_date -- '||p_start_date);
416: fnd_log.string(fnd_log.level_statement,l_full_name,'-- p_end_date -- '||p_end_date);
417: END IF;
418: IF (p_concurrent_flag = 'Y') THEN
419: fnd_file.put_line(fnd_file.log, '-- Invalid Param Passed -- Dates Validation Failed');
420: END IF;
421: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
422: FND_MESSAGE.Set_Token('NAME','ANALYSER.PROCESS_DATA');
423: FND_MSG_PUB.ADD;
424: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
425: END IF;
426:
427: IF (p_concurrent_flag = 'Y') THEN
428: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Fetching Counter Details Data from Setup ----');
429: END IF;
430:
431: -- Fetch Counter Details Data from Setup
432: OPEN c_setup_counter_data;
433: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
434: fnd_log.string(fnd_log.level_statement,l_full_name,' Bulk Fetching Counter Details Data from Setup');
435: END IF;
436: IF (p_concurrent_flag = 'Y') THEN
437: fnd_file.put_line(fnd_file.log, '-- Bulk Fetching Counter Details Data from Setup --');
438: END IF;
439: FETCH c_setup_counter_data
440: BULK COLLECT INTO l_tmp_new_ctr_id_tbl,
441: l_tmp_new_start_date_tbl,
447: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
448: fnd_log.string(fnd_log.level_statement,l_full_name,' No Setup Data Found for Counters');
449: END IF;
450: IF (p_concurrent_flag = 'Y') THEN
451: fnd_file.put_line(fnd_file.log, '-- No Setup Data Found for Counters --');
452: END IF;
453: END IF;
454: CLOSE c_setup_counter_data;
455:
462: fnd_log.string(fnd_log.level_statement,l_full_name,'Analyser End Date - '||p_end_date);
463: END IF;
464:
465: IF (p_concurrent_flag = 'Y') THEN
466: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Validating Active Dates of Counter Setup Data ----');
467: END IF;
468:
469: FOR i IN l_tmp_new_ctr_id_tbl.FIRST .. l_tmp_new_ctr_id_tbl.LAST LOOP -- loop for Setup Cunters fetched
470:
524:
525: ELSE
526:
527: IF (p_concurrent_flag = 'Y') THEN
528: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- No Counter Setup Done for Active Counters --');
529: END IF;
530:
531: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
532: fnd_log.string(fnd_log.level_statement,l_full_name,' No Setup Data Found for Counters - In Loop Else Clause');
538: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
539: fnd_log.string(fnd_log.level_statement,l_full_name,'None of the defined counters - are active as per date');
540: END IF;
541: IF (p_concurrent_flag = 'Y') THEN
542: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- No Counter Setup - Non Active afer Data Validation - so returning ----');
543: END IF;
544:
545: ELSE
546:
544:
545: ELSE
546:
547: IF (p_concurrent_flag = 'Y') THEN
548: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Fetching Flight Schedule Data ----');
549: END IF;
550:
551: /*
552: -- Comment Here Starts
557: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
558: fnd_log.string(fnd_log.level_statement,l_full_name,' Bulk Fetching Flight Schedules Data For Processing');
559: END IF;
560: IF (p_concurrent_flag = 'Y') THEN
561: fnd_file.put_line(fnd_file.log, ' Bulk Fetching Flight Schedules Data For Processing');
562: END IF;
563: FETCH c_flight_schedule_data
564: BULK COLLECT INTO l_fs_unit_sch_id_tbl,
565: l_fs_arr_org_id_tbl,
571: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
572: fnd_log.string(fnd_log.level_statement,l_full_name,' No Flight Schedules Data Retrieved');
573: END IF;
574: IF (p_concurrent_flag = 'Y') THEN
575: fnd_file.put_line(fnd_file.log, ' No Flight Schedules Data Retrieved');
576: END IF;
577: ELSE
578: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
579: fnd_log.string(fnd_log.level_statement,l_full_name,' Flight Schedules Data Retrieved'||l_fs_unit_sch_id_tbl.COUNT);
578: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
579: fnd_log.string(fnd_log.level_statement,l_full_name,' Flight Schedules Data Retrieved'||l_fs_unit_sch_id_tbl.COUNT);
580: END IF;
581: IF (p_concurrent_flag = 'Y') THEN
582: fnd_file.put_line(fnd_file.log, 'Flight Schedules Data Retrieved'||l_fs_unit_sch_id_tbl.COUNT);
583: END IF;
584: END IF;
585: CLOSE c_flight_schedule_data;
586: -- Comment Here Ends
589: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
590: fnd_log.string(fnd_log.level_statement,l_full_name,' Bulk Fetching Flight Schedules Data For Processing - UA API');
591: END IF;
592: IF (p_concurrent_flag = 'Y') THEN
593: fnd_file.put_line(fnd_file.log, ' Bulk Fetching Flight Schedules Data For Processing - UA API');
594: END IF;
595:
596: l_flight_search_rec_type.START_DATE := p_start_date - 1;
597: l_flight_search_rec_type.END_DATE := p_end_date + 1;
623: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
624: fnd_log.string(fnd_log.level_statement,l_full_name,'Called API AHL_UA_FLIGHT_SCHEDULES_PUB.Get_Flight_Schedule_Details Errored');
625: END IF;
626: IF (p_concurrent_flag = 'Y') THEN
627: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Error in getting Flight Scedule Details --');
628: END IF;
629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
630: END IF;
631:
646: END IF;
647: END LOOP;
648: END IF;
649: IF (p_concurrent_flag = 'Y') THEN
650: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Flight Schedule Data fetched ----'||l_fs_unit_sch_id_tbl.COUNT);
651: END IF;
652:
653: IF l_fs_unit_sch_id_tbl.COUNT > 0 THEN
654: -- Loop for each Unit in the Unit Schedule Record fetched above.
655: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
656: fnd_log.string(fnd_log.level_statement,l_full_name,' ----- LOOP FOR FLIGHT SCHEDULE BEGINS ----- '||l_fs_unit_sch_id_tbl.COUNT);
657: END IF;
658: IF (p_concurrent_flag = 'Y') THEN
659: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Processing Fligth Schedule Data ----');
660: END IF;
661:
662: FOR i in l_fs_unit_sch_id_tbl.FIRST .. l_fs_unit_sch_id_tbl.LAST LOOP -- Loop for each Unit in the Unit Schedule Record fetched above.
663: -- Fetch details of the Root node of the UC
671: fnd_log.string(fnd_log.level_statement,l_full_name,' ----- IN FS LOOP - l_fs_org_code_tbl ----- '||l_fs_org_code_tbl(i));
672: fnd_log.string(fnd_log.level_statement,l_full_name,' ----- IN FS LOOP - l_fs_arrival_date_tbl ----- '||l_fs_arrival_date_tbl(i));
673: END IF;
674: IF (p_concurrent_flag = 'Y') THEN
675: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Fetching UC Root Node Details ----');
676: END IF;
677:
678: Select MCR.RELATIONSHIP_ID,
679: CII.QUANTITY,
708: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
709: fnd_log.string(fnd_log.level_statement,l_full_name,' ----- Invalid -- UC_HEADER_ID ----- '||l_fs_uc_header_id_tbl(i));
710: END IF;
711: IF (p_concurrent_flag = 'Y') THEN
712: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Invalid UC Header Id - Data Corruption ----');
713: END IF;
714: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
715: WHEN OTHERS THEN
716: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
723: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
724: fnd_log.string(fnd_log.level_statement,l_full_name,' ----- Fetching UC Node Data -----Flight Schedule Id --- '||l_fs_unit_sch_id_tbl(i));
725: END IF;
726: IF (p_concurrent_flag = 'Y') THEN
727: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- For Each UC - Fetching Tree Structure ----');
728: END IF;
729:
730: OPEN c_uc_node_details(l_fs_csi_instance_id_tbl(i));
731: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
749: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
750: fnd_log.string(fnd_log.level_statement,l_full_name,' No Nodes are Returned - Inserting Root Node at FIRST - index 1');
751: END IF;
752: IF (p_concurrent_flag = 'Y') THEN
753: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- No Nodes Fetched --Inserting Root Node at FIRST --');
754: END IF;
755: l_dtls_object_id_tbl(1) := l_fs_csi_instance_id_tbl(i);
756: l_dtls_subject_id_tbl(1) := l_fs_csi_instance_id_tbl(i);
757: l_dtls_pos_ref_tbl(1) := l_root_pos_ref_code;
769: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
770: fnd_log.string(fnd_log.level_statement,l_full_name,' Nodes are Returned - Inserting Root Node at LAST - index LAST + 1');
771: END IF;
772: IF (p_concurrent_flag = 'Y') THEN
773: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- All Nodes Fetched --Inserting Root Node at LAST --');
774: END IF;
775: l_dtls_object_id_tbl(l_dtls_object_id_tbl.LAST + 1) := l_fs_csi_instance_id_tbl(i);
776: l_dtls_subject_id_tbl(l_dtls_subject_id_tbl.LAST + 1) := l_fs_csi_instance_id_tbl(i);
777: l_dtls_pos_ref_tbl(l_dtls_pos_ref_tbl.LAST + 1) := l_root_pos_ref_code;
789: CLOSE c_uc_node_details;
790:
791: IF l_dtls_subject_id_tbl.COUNT > 0 THEN
792: IF (p_concurrent_flag = 'Y') THEN
793: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Start Processing of Each Node --');
794: END IF;
795: FOR j IN l_dtls_subject_id_tbl.FIRST .. l_dtls_subject_id_tbl.LAST LOOP -- Loop for Each node in UC
796: l_ctr_index := 1; -- Reset if Index for Active Counters for each item instance.
797: l_mtbf_data_defined := 'N'; -- Reset if MTBF Data is defined or not indicator for each item instance.
817: fnd_log.string(fnd_log.level_statement,l_full_name,'l_dtls_pos_ref_his_tbl - ' ||l_dtls_pos_ref_his_tbl(j));
818: END IF;
819:
820: IF (p_concurrent_flag = 'Y') THEN
821: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Fetch Forecast Counter Value for Node in Context --');
822: END IF;
823:
824: AHL_UMP_PROCESSUNIT_PVT.Get_Forecasted_Counter_Values(
825: x_return_status => l_return_status,
834: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
835: fnd_log.string(fnd_log.level_statement,l_full_name,'Called API AHL_UMP_PROCESSUNIT_PVT.Get_Forecasted_Counter_Values Errored');
836: END IF;
837: IF (p_concurrent_flag = 'Y') THEN
838: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Error in getting Forecasted Counter Value for Node in Context --');
839: END IF;
840: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
841: END IF;
842:
873: fnd_log.string(fnd_log.level_statement,l_full_name,' - Deriving Active Counters - ');
874: END IF;
875:
876: IF (p_concurrent_flag = 'Y') THEN
877: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Ater fetching the Foprecast Counter details for instance in context --');
878: END IF;
879:
880: -- To hold the counter values.
881: -- Structure of l_ctr_values_tbl is
898: -- Increment counter assignment index and continue with outer loop
899: -- End Loop; - A
900:
901: IF (p_concurrent_flag = 'Y') THEN
902: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Deriving Active Counters for the Item Instance - BEFORE -');
903: END IF;
904:
905: IF (l_since_new_ctr_id_tbl.COUNT > 0 AND l_ctr_values_tbl.COUNT > 0) THEN
906: FOR m in l_since_new_ctr_id_tbl.FIRST .. l_since_new_ctr_id_tbl.LAST LOOP
968: l_ctr_index := l_ctr_index + 1; -- l_ctr_index is reset for each item instance
969: END LOOP; -- For l_since_new_ctr_id_tbl -- m
970:
971: IF (p_concurrent_flag = 'Y') THEN
972: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Deriving Active Counters for the Item Instance - AFTER -');
973: END IF;
974:
975: -- Active Counters are derived and Processing starts.
976: IF (l_active_ctr_id_tbl.COUNT > 0) THEN
998: --Added by mpothuku on 09-Nov-2006 for fixing the Bug# 5651645
999: fnd_log.string(fnd_log.level_statement,l_full_name,' --- Pos Reference for Historical Flow --- ' ||l_dtls_pos_ref_his_tbl(j));
1000: END IF;
1001: IF (p_concurrent_flag = 'Y') THEN
1002: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Deriving MTBF Data for Active Counter if present - BEFORE -');
1003: END IF;
1004:
1005: OPEN c_get_mtbf_data(l_dtls_pos_ref_tbl(j),
1006: l_dtls_inv_item_id_tbl(j),
1029: END IF;
1030: CLOSE c_get_mtbf_data;
1031:
1032: IF (p_concurrent_flag = 'Y') THEN
1033: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Deriving MTBF Data for Active Counter if present - BEFORE -');
1034: END IF;
1035:
1036: IF l_mtbf_data_defined = 'Y' THEN
1037: -- Compare Current Counter Value of Item with MTBF data defined for the corresponding Counter
1037: -- Compare Current Counter Value of Item with MTBF data defined for the corresponding Counter
1038: -- If Value Exceeds, Derive the Forecast Designator using the Forecast Association Setup
1039:
1040: IF (p_concurrent_flag = 'Y') THEN
1041: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Check in Ctr Value Exceeds MTBF Value');
1042: END IF;
1043:
1044: FOR r in l_active_ctr_temp_id_tbl.FIRST .. l_active_ctr_temp_id_tbl.LAST LOOP
1045: IF l_active_ctr_temp_id_tbl.EXISTS(r) THEN
1063:
1064: IF l_mtbf_value_exceeds = 'Y' THEN
1065:
1066: IF (p_concurrent_flag = 'Y') THEN
1067: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- MTBF Defined - Fetching Forecast Designator - BEFORE');
1068: END IF;
1069:
1070: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1071: fnd_log.string(fnd_log.level_statement,l_full_name,' ---- MTBF SETUP DATA IS DEFINED --VALUE EXCEEDS--');
1103: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1104: END;
1105:
1106: IF (p_concurrent_flag = 'Y') THEN
1107: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- MTBF Defined - Fetching Forecast Designator - AFTER ');
1108: END IF;
1109: ELSE
1110: l_fct_designator := null;
1111: IF (p_concurrent_flag = 'Y') THEN
1108: END IF;
1109: ELSE
1110: l_fct_designator := null;
1111: IF (p_concurrent_flag = 'Y') THEN
1112: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Ctr Value Does not Exceed MTBF Value');
1113: END IF;
1114: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1115: fnd_log.string(fnd_log.level_statement,l_full_name,'RA Analyser Process ---- Ctr Value Does not Exceed MTBF Value');
1116: END IF;
1123: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1124: fnd_log.string(fnd_log.level_statement,l_full_name,' ---- MTBF SETUP DATA IS NOT DEFINED --Processing--');
1125: END IF;
1126: IF (p_concurrent_flag = 'Y') THEN
1127: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- MTBF Not Defined - Fetching Path Positions Ids for Instance - BEFORE');
1128: END IF;
1129:
1130: --Modified by mpothuku on 09-Nov-2006 for fixing the Bug# 5651645
1131: --OPEN c_get_path_postions(l_dtls_pos_ref_tbl(j));
1148: END IF;
1149: CLOSE c_get_path_postions;
1150:
1151: IF (p_concurrent_flag = 'Y') THEN
1152: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- MTBF Not Defined - Fetching Path Positions Ids for Instance - After');
1153: END IF;
1154:
1155: IF l_path_pos_exist_flag = 'Y' THEN -- If NO then Move to Next Instance in Else Part
1156:
1154:
1155: IF l_path_pos_exist_flag = 'Y' THEN -- If NO then Move to Next Instance in Else Part
1156:
1157: IF (p_concurrent_flag = 'Y') THEN
1158: fnd_file.put_line(fnd_file.log, 'Deriving Probability of Failure for Each Active Counter of Item Instance');
1159: END IF;
1160:
1161: FOR p in l_active_ctr_id_tbl.FIRST .. l_active_ctr_id_tbl.LAST LOOP
1162: IF l_active_ctr_id_tbl.EXISTS(p) THEN
1188: l_prob_attrib_b_tmp := 0;
1189: l_prob_attrib_c_tmp := 0;
1190:
1191: IF (p_concurrent_flag = 'Y') THEN
1192: fnd_file.put_line(fnd_file.log, 'Deriving Attrib B and C for Each Path Position id mappip to Item Relationship Id');
1193: END IF;
1194:
1195: -- For deriving l_prob_attrib_c_tmp
1196: Select count(*)
1263: fnd_log.string(fnd_log.level_statement,l_full_name,' ----derived l_prob_attrib_b_tmp as 0 since l_prob_attrib_c is 0 ----');
1264: END IF;
1265:
1266: IF (p_concurrent_flag = 'Y') THEN
1267: fnd_file.put_line(fnd_file.log, 'Setting Attrib B to 0 as C is also 0');
1268: END IF;
1269:
1270: l_prob_attrib_b_tmp := 0;
1271: END IF;
1270: l_prob_attrib_b_tmp := 0;
1271: END IF;
1272:
1273: IF (p_concurrent_flag = 'Y') THEN
1274: fnd_file.put_line(fnd_file.log, 'Summing Up B and C retrieved for Each Path Position Id');
1275: END IF;
1276:
1277: l_prob_attrib_b := l_prob_attrib_b + l_prob_attrib_b_tmp;
1278: l_prob_attrib_c := l_prob_attrib_c + l_prob_attrib_c_tmp;
1282: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1283: fnd_log.string(fnd_log.level_statement,l_full_name,' ----deriving l_prob_attrib_d_tmp ----');
1284: END IF;
1285: IF (p_concurrent_flag = 'Y') THEN
1286: fnd_file.put_line(fnd_file.log, 'Derive Attribute D for Probability');
1287: END IF;
1288:
1289: -- For deriving l_prob_attrib_d
1290: SELECT count(*)
1323: fnd_log.string(fnd_log.level_statement,l_full_name,' ----derived l_prob_attrib_d as ----'|| l_prob_attrib_d);
1324: END IF;
1325:
1326: IF (p_concurrent_flag = 'Y') THEN
1327: fnd_file.put_line(fnd_file.log, 'Derive Probability using B C and D');
1328: END IF;
1329:
1330: IF ((l_prob_attrib_c + l_prob_attrib_d) > 0) THEN
1331: l_prob_value_tmp := (l_prob_attrib_b)/(l_prob_attrib_c + l_prob_attrib_d);
1340: l_prob_value_tmp := 0;
1341: END IF;
1342:
1343: IF (p_concurrent_flag = 'Y') THEN
1344: fnd_file.put_line(fnd_file.log, 'Retain Probability if Higher than Previous Value');
1345: END IF;
1346:
1347: IF l_prob_value_tmp > l_prob_value THEN
1348: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1349: fnd_log.string(fnd_log.level_statement,l_full_name,' ----higher value of prob found .. Set final value ----'||l_prob_value_tmp);
1350: END IF;
1351: l_prob_value := l_prob_value_tmp;
1352: IF (p_concurrent_flag = 'Y') THEN
1353: fnd_file.put_line(fnd_file.log, 'Retained Probability');
1354: END IF;
1355: END IF;
1356: ELSE -- l_path_position_id_tbl.COUNT = 0
1357: -- This should never be true due to l_path_pos_exist_flag = 'Y' check above
1360: fnd_log.string(fnd_log.level_statement,l_full_name,' ----Exit Counter Loop Jump to Next Item ----');
1361: fnd_log.string(fnd_log.level_statement,l_full_name,' ----This Code Should not be executed -- Extra redundant check ----');
1362: END IF;
1363: IF (p_concurrent_flag = 'Y') THEN
1364: fnd_file.put_line(fnd_file.log, ' ----No Path Position Found -- so ----');
1365: fnd_file.put_line(fnd_file.log, ' ----Exit Counter Loop Jump to Next Item ----');
1366: END IF;
1367: EXIT;
1368: END IF; -- l_path_position_id_tbl.COUNT > 0
1361: fnd_log.string(fnd_log.level_statement,l_full_name,' ----This Code Should not be executed -- Extra redundant check ----');
1362: END IF;
1363: IF (p_concurrent_flag = 'Y') THEN
1364: fnd_file.put_line(fnd_file.log, ' ----No Path Position Found -- so ----');
1365: fnd_file.put_line(fnd_file.log, ' ----Exit Counter Loop Jump to Next Item ----');
1366: END IF;
1367: EXIT;
1368: END IF; -- l_path_position_id_tbl.COUNT > 0
1369: END IF; -- l_active_ctr_id_tbl.EXISTS(p)
1384: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1385: fnd_log.string(fnd_log.level_statement,l_full_name,' ---- Deriving Fct Designator -- for historical--');
1386: END IF;
1387: IF (p_concurrent_flag = 'Y') THEN
1388: fnd_file.put_line(fnd_file.log, ' ----No MTBF Data Found -- Retreive Forecast Designator ----');
1389: END IF;
1390: Select FORECAST_DESIGNATOR
1391: into l_fct_designator
1392: from AHL_RA_FCT_ASSOCIATIONS
1400: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1401: fnd_log.string(fnd_log.level_statement,l_full_name,' ---- No Fct Designator Defined ----');
1402: END IF;
1403: IF (p_concurrent_flag = 'Y') THEN
1404: fnd_file.put_line(fnd_file.log, ' ----No MTBF Data Found -- No Forecast Designator Found ----');
1405: END IF;
1406: l_fct_designator := null;
1407: WHEN TOO_MANY_ROWS THEN
1408: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1431: fnd_log.string(fnd_log.level_statement,l_full_name,' ----Set Fct Assoc Designator to NULL and Continue ----');
1432: fnd_log.string(fnd_log.level_statement,l_full_name,' ----This Code Should not be executed -- Extra redundant check ----');
1433: END IF;
1434: IF (p_concurrent_flag = 'Y') THEN
1435: fnd_file.put_line(fnd_file.log, ' ----No Path Position Found -- so ----');
1436: fnd_file.put_line(fnd_file.log, ' ----Set Fct Assoc Designator to NULL and Continue ----');
1437: END IF;
1438: l_fct_designator := null;
1439: END IF;
1432: fnd_log.string(fnd_log.level_statement,l_full_name,' ----This Code Should not be executed -- Extra redundant check ----');
1433: END IF;
1434: IF (p_concurrent_flag = 'Y') THEN
1435: fnd_file.put_line(fnd_file.log, ' ----No Path Position Found -- so ----');
1436: fnd_file.put_line(fnd_file.log, ' ----Set Fct Assoc Designator to NULL and Continue ----');
1437: END IF;
1438: l_fct_designator := null;
1439: END IF;
1440: ELSE
1442: fnd_log.string(fnd_log.level_statement,l_full_name,' ----No Path Position Found -- First Check -- so bypass ----');
1443: fnd_log.string(fnd_log.level_statement,l_full_name,' ----Set Fct Assoc Designator to NULL and Continue ----');
1444: END IF;
1445: IF (p_concurrent_flag = 'Y') THEN
1446: fnd_file.put_line(fnd_file.log, ' ----No Path Position Found -- First Check -- so bypass ----');
1447: END IF;
1448: l_fct_designator := null;
1449: END IF; -- l_path_pos_exist_flag = 'Y'
1450: END IF; -- l_mtbf_data_defined -- Y or N
1454: fnd_log.string(fnd_log.level_statement,l_full_name,' -- Prepare IO Interface Data -- ');
1455: fnd_log.string(fnd_log.level_statement,l_full_name,' -- l_fct_designator -- ' || l_fct_designator);
1456: END IF;
1457: IF (p_concurrent_flag = 'Y') THEN
1458: fnd_file.put_line(fnd_file.log, ' -- Preparing IO Interface Data -- ');
1459: END IF;
1460:
1461: l_forecast_interface_tbl(l_fct_index).INVENTORY_ITEM_ID := l_dtls_inv_item_id_tbl(j);
1462: l_forecast_interface_tbl(l_fct_index).FORECAST_DESIGNATOR := l_fct_designator;
1503: l_forecast_interface_tbl(l_fct_index).ACTION := 'I';
1504: l_forecast_interface_tbl(l_fct_index).ATTRIBUTE_CATEGORY := null;
1505:
1506: IF (p_concurrent_flag = 'Y') THEN
1507: fnd_file.put_line(fnd_file.log, ' -- Preparing Designator Interface Data -- ');
1508: END IF;
1509: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1510: fnd_log.string(fnd_log.level_statement,l_full_name,' -- Preparing Designator Interface Data -- ');
1511: END IF;
1514: FOR d in l_forecast_designator_tbl.FIRST .. l_forecast_designator_tbl.LAST LOOP
1515: IF l_forecast_designator_tbl(d).FORECAST_DESIGNATOR = l_fct_designator THEN
1516: l_ds_rec_found := 'Y';
1517: IF (p_concurrent_flag = 'Y') THEN
1518: fnd_file.put_line(fnd_file.log, ' -- Designator already exists in Interface Data -- ');
1519: END IF;
1520: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1521: fnd_log.string(fnd_log.level_statement,l_full_name,' -- Designator already exists in Interface Data -- ');
1522: END IF;
1524: END IF;
1525: END LOOP;
1526: IF l_ds_rec_found = 'N' THEN
1527: IF (p_concurrent_flag = 'Y') THEN
1528: fnd_file.put_line(fnd_file.log, ' -- Designator does not exists in Interface Data -- ');
1529: END IF;
1530: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1531: fnd_log.string(fnd_log.level_statement,l_full_name,' -- Designator does not exists in Interface Data -- ');
1532: END IF;
1535: l_dsg_index := l_dsg_index + 1;
1536: END IF;
1537: ELSE
1538: IF (p_concurrent_flag = 'Y') THEN
1539: fnd_file.put_line(fnd_file.log, ' -- Inserting first rec in Designator Data -- ');
1540: END IF;
1541: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1542: fnd_log.string(fnd_log.level_statement,l_full_name,' -- Insertinf first rec in Designator Data -- ');
1543: END IF;
1563: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1564: fnd_log.string(fnd_log.level_statement,l_full_name,'Called API MSC_ATP_GLOBAL.GET_SESSION_ID U Errored');
1565: END IF;
1566: IF (p_concurrent_flag = 'Y') THEN
1567: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Error in getting on Session Id --');
1568: END IF;
1569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1570: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1571: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1571: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1572: fnd_log.string(fnd_log.level_statement,l_full_name,'Called API MSC_ATP_GLOBAL.GET_SESSION_ID E Errored');
1573: END IF;
1574: IF (p_concurrent_flag = 'Y') THEN
1575: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Error in getting on Session Id');
1576: END IF;
1577: RAISE FND_API.G_EXC_ERROR;
1578: END IF;
1579:
1594:
1595: l_atp_rec.Identifier := Mrp_Atp_Pub.number_arr(l_dummy_identifier);
1596:
1597: IF (p_concurrent_flag = 'Y') THEN
1598: fnd_file.put_line(fnd_file.log, ' - B - Calling ATP API -- ' || l_dtls_inv_item_id_tbl(j));
1599: END IF;
1600: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1601: fnd_log.string(fnd_log.level_statement,l_full_name,' -B- Calling ATP API -- ' || l_dtls_inv_item_id_tbl(j));
1602: END IF;
1616: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1617: fnd_log.string(fnd_log.level_statement,l_full_name,'Called API MRP_ATP_PUB.Call_ATP U Errored');
1618: END IF;
1619: IF (p_concurrent_flag = 'Y') THEN
1620: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Error in getting on Hand Quantity --' || l_session_id);
1621: END IF;
1622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1623: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1624: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1624: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1625: fnd_log.string(fnd_log.level_statement,l_full_name,'Called API MRP_ATP_PUB.Call_ATP E Errored');
1626: END IF;
1627: IF (p_concurrent_flag = 'Y') THEN
1628: fnd_file.put_line(fnd_file.log, 'RA Analyser Process ---- Error in getting on Hand Quantity --' || l_session_id);
1629: END IF;
1630: RAISE FND_API.G_EXC_ERROR;
1631: END IF;
1632:
1630: RAISE FND_API.G_EXC_ERROR;
1631: END IF;
1632:
1633: IF (p_concurrent_flag = 'Y') THEN
1634: fnd_file.put_line(fnd_file.log, ' - A - Calling ATP API -- ' || x_atp_rec.Requested_Date_Quantity(1));
1635: END IF;
1636: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1637: fnd_log.string(fnd_log.level_statement,l_full_name,' -A- Calling ATP API -- ' || l_dtls_inv_item_id_tbl(j));
1638: END IF;
1649: AND OSPL.INVENTORY_ORG_ID= l_fs_arr_org_id_tbl(i)
1650: AND NVL(TRUNC(OSPL.NEED_BY_DATE), FND_API.G_MISS_DATE) = l_fs_arrival_date_tbl(i);
1651:
1652: IF (p_concurrent_flag = 'Y') THEN
1653: fnd_file.put_line(fnd_file.log, ' - B - Deriving VWP Figure -- ');
1654: END IF;
1655: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1656: fnd_log.string(fnd_log.level_statement,l_full_name,' - B - Deriving VWP Figure -- ');
1657: fnd_log.string(fnd_log.level_statement,l_full_name,' - B - Param - Item ID -- '||l_dtls_inv_item_id_tbl(j));
1778: )
1779: );
1780:
1781: IF (p_concurrent_flag = 'Y') THEN
1782: fnd_file.put_line(fnd_file.log, ' - A - Deriving VWP Figure -- ' || l_forecast_vwp_qty_tbl(l_fct_index));
1783: END IF;
1784: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1785: fnd_log.string(fnd_log.level_statement,l_full_name,' - A - Deriving VWP Figure -- ' || l_forecast_vwp_qty_tbl(l_fct_index));
1786: END IF;
1807: -- with required quantity - 0, for these records.
1808: -- The constraint that Aggregate Probability Percentages of the Forecast sets sum upto
1809: -- 100% exactly, is marked as a User Setup Data Creation Outline.
1810: IF (p_concurrent_flag = 'Y') THEN
1811: fnd_file.put_line(fnd_file.log, ' -- Creating Dummy Data in FCT Interface Table -- ');
1812: END IF;
1813: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1814: fnd_log.string(fnd_log.level_statement,l_full_name,' -- Creating Dummy Data in FCT Interface Table -- ');
1815: END IF;
1819: -- In case in Fct is being created using MTBF data, only Fct Designator can be Associated
1820: -- to the arrival org, and the value of the associated designator would be 100% in IO Plan Setup.
1821:
1822: IF (p_concurrent_flag = 'Y') THEN
1823: fnd_file.put_line(fnd_file.log, ' ---- FETCHING FCT ASSOCIATIONS ----');
1824: END IF;
1825: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1826: fnd_log.string(fnd_log.level_statement,l_full_name,' ---- FETCHING FCT ASSOCIATIONS ----');
1827: END IF;
1843: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1844: fnd_log.string(fnd_log.level_statement,l_full_name,' ---- INSERTING MRP Recs for Dummy FCT ASSOCIATIONS ----');
1845: END IF;
1846: IF (p_concurrent_flag = 'Y') THEN
1847: fnd_file.put_line(fnd_file.log, ' ---- INSERTING MRP Recs for Dummy FCT ASSOCIATIONS ----');
1848: END IF;
1849: for f in l_dummy_fct_desg_tbl.FIRST .. l_dummy_fct_desg_tbl.LAST LOOP
1850: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1851: fnd_log.string(fnd_log.level_statement,l_full_name,' ---- INSERTING FOR DUMMY ASSOC ----' || l_dummy_fct_desg_tbl(f));
1946: END IF; -- l_mtbf_data_defined = 'N'
1947: -- End of creation of dummy data.
1948:
1949: IF (p_concurrent_flag = 'Y') THEN
1950: fnd_file.put_line(fnd_file.log, ' -- Prepared IO Interface Data -- ');
1951: END IF;
1952:
1953: ELSE -- l_fct_designator IS NULL
1954: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1956: fnd_log.string(fnd_log.level_statement,l_full_name,' -- Jump to Next instance -- ' || l_fct_designator);
1957: END IF;
1958:
1959: IF (p_concurrent_flag = 'Y') THEN
1960: fnd_file.put_line(fnd_file.log, ' -- No Fct Designator Found so No Interfacing to be done -- ');
1961: END IF;
1962:
1963: END IF;
1964:
1967: fnd_log.string(fnd_log.level_statement,l_full_name,' -- No Matching ACTIVE COUNTERS derived -- ');
1968: fnd_log.string(fnd_log.level_statement,l_full_name,' -- Move to next item instace -- l_dtls_subject_id_tbl - '||l_dtls_subject_id_tbl(j));
1969: END IF;
1970: IF (p_concurrent_flag = 'Y') THEN
1971: fnd_file.put_line(fnd_file.log, ' -- No Matching ACTIVE COUNTERS derived -- ');
1972: END IF;
1973:
1974: END IF; -- l_active_ctr_id_tbl.COUNT > 0
1975: ELSE -- Setup or Retrieved counters are NULL
1979: fnd_log.string(fnd_log.level_statement,l_full_name,'l_ctr_values_tbl - COUNT - '||l_ctr_values_tbl.COUNT);
1980: fnd_log.string(fnd_log.level_statement,l_full_name,'l_dtls_subject_id_tbl - '||l_dtls_subject_id_tbl(j));
1981: END IF;
1982: IF (p_concurrent_flag = 'Y') THEN
1983: fnd_file.put_line(fnd_file.log, ' -- Setup or Retrieved counters are NULL -- ');
1984: END IF;
1985: END IF; -- l_since_new_ctr_id_tbl.COUNT > 0 AND l_ctr_values_tbl.COUNT > 0
1986: END LOOP; -- Loop for Item Instance - UC Nodes - index j
1987: ELSE
1991: fnd_log.string(fnd_log.level_statement,l_full_name,'l_fs_uc_header_id_tbl - '||l_fs_uc_header_id_tbl(i));
1992: fnd_log.string(fnd_log.level_statement,l_full_name,'l_fs_csi_instance_id_tbl - '||l_fs_csi_instance_id_tbl(i));
1993: END IF;
1994: IF (p_concurrent_flag = 'Y') THEN
1995: fnd_file.put_line(fnd_file.log, ' -- No Nodes for Current Unit - Move to Next Sch-Unit -- ');
1996: END IF;
1997: END IF; -- l_dtls_subject_id_tbl.COUNT > 0
1998: END LOOP; -- Loop for Unit Schedules - i
1999: ELSE -- l_fs_unit_sch_id_tbl.COUNT = 0
2000: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2001: fnd_log.string(fnd_log.level_statement,l_full_name,'No Flight Schedules to Process');
2002: END IF;
2003: IF (p_concurrent_flag = 'Y') THEN
2004: fnd_file.put_line(fnd_file.log, ' -- No Flight Schedules to Process -- ');
2005: END IF;
2006: END IF; -- l_fs_unit_sch_id_tbl.COUNT > 0
2007: END IF; -- l_since_new_ctr_id_tbl.COUNT = 0
2008:
2035: END LOOP;
2036: END IF;
2037: END IF;
2038: IF (p_concurrent_flag = 'Y') THEN
2039: fnd_file.put_line(fnd_file.log, ' -- Calling MRP_FORECAST_INTERFACE_PK.MRP_FORECAST_INTERFACE -- Before -- ');
2040: END IF;
2041:
2042: IF (MRP_FORECAST_INTERFACE_PK.MRP_FORECAST_INTERFACE
2043: (l_forecast_interface_tbl,
2045: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2046: fnd_log.string(fnd_log.level_statement,l_full_name,'Calling MRP_FORECAST_INTERFACE_PK.MRP_FORECAST_INTERFACE -- After');
2047: END IF;
2048: IF (p_concurrent_flag = 'Y') THEN
2049: fnd_file.put_line(fnd_file.log, ' -- Calling MRP_FORECAST_INTERFACE_PK.MRP_FORECAST_INTERFACE -- After -- ');
2050: END IF;
2051: ELSE
2052: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2053: fnd_log.string(fnd_log.level_statement,l_full_name,'Failure Calling MRP_FORECAST_INTERFACE_PK.MRP_FORECAST_INTERFACE -- ');
2052: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2053: fnd_log.string(fnd_log.level_statement,l_full_name,'Failure Calling MRP_FORECAST_INTERFACE_PK.MRP_FORECAST_INTERFACE -- ');
2054: END IF;
2055: IF (p_concurrent_flag = 'Y') THEN
2056: fnd_file.put_line(fnd_file.log, ' -- Failure Calling MRP_FORECAST_INTERFACE_PK.MRP_FORECAST_INTERFACE ---- ');
2057: END IF;
2058: END IF;
2059:
2060: ELSE
2061: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2062: fnd_log.string(fnd_log.level_statement,l_full_name,'MRP_FORECAST_INTERFACE_PK.MRP_FORECAST_INTERFACE Not to be called');
2063: END IF;
2064: IF (p_concurrent_flag = 'Y') THEN
2065: fnd_file.put_line(fnd_file.log, ' -- MRP_FORECAST_INTERFACE_PK.MRP_FORECAST_INTERFACE Not to be called ---- ');
2066: END IF;
2067: END IF;
2068:
2069: -- Open a temporary lob for merging the contents.
2072:
2073: -- XML generated with dbms_xmlgen doesnt have encoding information. so we need to manually insert into the resultant CLOB.
2074: dbms_lob.write(l_fct_data_lob,length(''),1,'');
2075: /*
2076: mpothuku Added fnd_global.local_chr(10) (or new line) for the Bug 5724555 on 21-Dec-06. FND_FILE.put has a restriction of 32K characters.
2077: If there is no new-line in these 32K characters, it fails. So ensuring that there are new-line characters after every line
2078: of the XML
2079: */
2080: dbms_lob.write(l_fct_data_lob,length(fnd_global.local_chr(10)),length(l_fct_data_lob)+1,fnd_global.local_chr(10));
2091: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2092: fnd_log.string(fnd_log.level_statement,l_full_name,'Creating Clob for Output File');
2093: END IF;
2094: IF (p_concurrent_flag = 'Y') THEN
2095: fnd_file.put_line(fnd_file.log, ' -- Creating Clob for Output File -- ');
2096: END IF;
2097: --mpothuku added dbms_xmlgen.convert on 08-May-2007 to fix the Bug 6038466
2098: /*
2099: Note by mpothuku on 09-May-2007: Consider revising the string concat logic below and
2147: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2148: fnd_log.string(fnd_log.level_statement,l_full_name,' -- Clob content empty for Output File --');
2149: END IF;
2150: IF (p_concurrent_flag = 'Y') THEN
2151: fnd_file.put_line(fnd_file.log, ' -- Clob content empty for Output File ---- ');
2152: END IF;
2153: END IF;
2154:
2155: l_dummy_string := '
2168: COMMIT;
2169: END IF;
2170:
2171: IF (p_concurrent_flag = 'Y') THEN
2172: fnd_file.put_line(fnd_file.log, ' -- RA -- PKG -- PROCESS_RA_DATA -------END--------------- ');
2173: END IF;
2174: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2175: fnd_log.string(fnd_log.level_statement,l_full_name,'RA -- PKG -- PROCESS_RA_DATA -------END-----------');
2176: END IF;
2192: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2193: p_data => x_msg_data,
2194: p_encoded => fnd_api.g_false);
2195: IF (p_concurrent_flag = 'Y') THEN
2196: fnd_file.put_line(fnd_file.log, 'RA Analyser Process Failed. Refer to the error message below.');
2197: log_error_messages;
2198: END IF;
2199:
2200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2203: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2204: p_data => x_msg_data,
2205: p_encoded => fnd_api.g_false);
2206: IF (p_concurrent_flag = 'Y') THEN
2207: fnd_file.put_line(fnd_file.log, 'RA Analyser Process Failed. Refer to the error message below.');
2208: log_error_messages;
2209: END IF;
2210:
2211: WHEN OTHERS THEN
2219: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2220: p_data => x_msg_data,
2221: p_encoded => fnd_api.g_false);
2222: IF (p_concurrent_flag = 'Y') THEN
2223: fnd_file.put_line(fnd_file.log, 'RA Analyser Process Failed. Refer to the error message below.');
2224: log_error_messages;
2225: END IF;
2226:
2227: END PROCESS_RA_DATA;
2275:
2276: l_offset := 1;
2277: l_chunk_size := 3000;
2278: l_clob_size := dbms_lob.getlength(l_clob);
2279: fnd_file.put(fnd_file.log, 'l_clob_size - '||l_clob_size);
2280: WHILE (l_clob_size > 0) LOOP
2281: l_chunk := dbms_lob.substr (l_clob, l_chunk_size, l_offset);
2282: fnd_file.put(fnd_file.log, l_chunk);
2283: l_clob_size := l_clob_size - l_chunk_size;
2278: l_clob_size := dbms_lob.getlength(l_clob);
2279: fnd_file.put(fnd_file.log, 'l_clob_size - '||l_clob_size);
2280: WHILE (l_clob_size > 0) LOOP
2281: l_chunk := dbms_lob.substr (l_clob, l_chunk_size, l_offset);
2282: fnd_file.put(fnd_file.log, l_chunk);
2283: l_clob_size := l_clob_size - l_chunk_size;
2284: l_offset := l_offset + l_chunk_size;
2285: END LOOP;
2286:
2287: l_msg_count := FND_MSG_PUB.Count_Msg;
2288:
2289: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2290: retcode := 2; -- error based only on return status
2291: fnd_file.put(fnd_file.log, ' retcode - '||retcode);
2292: fnd_file.put(fnd_file.log, ' l_return_status - '||l_return_status);
2293: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2294: retcode := 1; -- warning based on return status + msg count
2295: fnd_file.put(fnd_file.log, ' retcode - '||retcode);
2288:
2289: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2290: retcode := 2; -- error based only on return status
2291: fnd_file.put(fnd_file.log, ' retcode - '||retcode);
2292: fnd_file.put(fnd_file.log, ' l_return_status - '||l_return_status);
2293: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2294: retcode := 1; -- warning based on return status + msg count
2295: fnd_file.put(fnd_file.log, ' retcode - '||retcode);
2296: fnd_file.put(fnd_file.log, ' l_msg_count - '||l_msg_count);
2291: fnd_file.put(fnd_file.log, ' retcode - '||retcode);
2292: fnd_file.put(fnd_file.log, ' l_return_status - '||l_return_status);
2293: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2294: retcode := 1; -- warning based on return status + msg count
2295: fnd_file.put(fnd_file.log, ' retcode - '||retcode);
2296: fnd_file.put(fnd_file.log, ' l_msg_count - '||l_msg_count);
2297: ELSE
2298: retcode := 0; -- success, since nothing is wrong
2299: fnd_file.put(fnd_file.log, ' retcode - '||retcode);
2292: fnd_file.put(fnd_file.log, ' l_return_status - '||l_return_status);
2293: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2294: retcode := 1; -- warning based on return status + msg count
2295: fnd_file.put(fnd_file.log, ' retcode - '||retcode);
2296: fnd_file.put(fnd_file.log, ' l_msg_count - '||l_msg_count);
2297: ELSE
2298: retcode := 0; -- success, since nothing is wrong
2299: fnd_file.put(fnd_file.log, ' retcode - '||retcode);
2300: l_offset := 1;
2295: fnd_file.put(fnd_file.log, ' retcode - '||retcode);
2296: fnd_file.put(fnd_file.log, ' l_msg_count - '||l_msg_count);
2297: ELSE
2298: retcode := 0; -- success, since nothing is wrong
2299: fnd_file.put(fnd_file.log, ' retcode - '||retcode);
2300: l_offset := 1;
2301: l_chunk_size := 3000;
2302: l_clob_size := dbms_lob.getlength(l_clob);
2303: WHILE (l_clob_size > 0) LOOP
2301: l_chunk_size := 3000;
2302: l_clob_size := dbms_lob.getlength(l_clob);
2303: WHILE (l_clob_size > 0) LOOP
2304: l_chunk := dbms_lob.substr (l_clob, l_chunk_size, l_offset);
2305: fnd_file.put(fnd_file.output, l_chunk);
2306: l_clob_size := l_clob_size - l_chunk_size;
2307: l_offset := l_offset + l_chunk_size;
2308: END LOOP;
2309: END IF;
2329: p_encoded => FND_API.G_FALSE,
2330: p_data => l_msg_data,
2331: p_msg_index_out => l_msg_index_out );
2332:
2333: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_msg_data);
2334: END LOOP;
2335:
2336: END log_error_messages;
2337: