102: l_org_name hr_all_organization_units_tl.NAME%TYPE;
103: CURSOR c_consol_seq(l_status IN VARCHAR2) IS --Yao Zhang add for bug 14462789
104: SELECT jgct.seq FROM AR_gta_consol_temp jgct WHERE status = l_status;
105: BEGIN
106: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
107: THEN
108: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
109: , G_MODULE_PREFIX ||'.'|| l_procedure_name
110: ,'Begin Procedure. ');
104: SELECT jgct.seq FROM AR_gta_consol_temp jgct WHERE status = l_status;
105: BEGIN
106: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
107: THEN
108: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
109: , G_MODULE_PREFIX ||'.'|| l_procedure_name
110: ,'Begin Procedure. ');
111: END IF;
112: --parameters
125: AND otl.LANGUAGE = userenv('LANG')
126: AND o.organization_id = l_org_id;
127: EXCEPTION
128: WHEN no_data_found THEN
129: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
130: FND_LOG.String(FND_LOG.LEVEL_UNEXPECTED,
131: G_MODULE_PREFIX || l_procedure_name,
132: 'Wxception when retrive operating unit name' || SQLCODE || SQLERRM);
133: END IF;
126: AND o.organization_id = l_org_id;
127: EXCEPTION
128: WHEN no_data_found THEN
129: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
130: FND_LOG.String(FND_LOG.LEVEL_UNEXPECTED,
131: G_MODULE_PREFIX || l_procedure_name,
132: 'Wxception when retrive operating unit name' || SQLCODE || SQLERRM);
133: END IF;
134: RAISE;
350:
351: -- concurrent output
352: AR_GTA_TRX_UTIL.output_conc(l_report_XML.Getclobval);
353:
354: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
355: AR_GTA_TRX_UTIL.debug_output_conc(l_report_XML.Getclobval);
356: END IF;
357:
358:
355: AR_GTA_TRX_UTIL.debug_output_conc(l_report_XML.Getclobval);
356: END IF;
357:
358:
359: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
360: THEN
361: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
362: , G_MODULE_PREFIX ||'.'|| l_procedure_name
363: ,'End Procedure. ');
357:
358:
359: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
360: THEN
361: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
362: , G_MODULE_PREFIX ||'.'|| l_procedure_name
363: ,'End Procedure. ');
364: END IF;
365: EXCEPTION
363: ,'End Procedure. ');
364: END IF;
365: EXCEPTION
366: WHEN OTHERS THEN
367: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
368: FND_LOG.String(FND_LOG.LEVEL_UNEXPECTED,
369: G_MODULE_PREFIX || l_procedure_name ||
370: '. OTHER_EXCEPTION ',
371: 'Unknown error' || SQLCODE || SQLERRM);
364: END IF;
365: EXCEPTION
366: WHEN OTHERS THEN
367: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
368: FND_LOG.String(FND_LOG.LEVEL_UNEXPECTED,
369: G_MODULE_PREFIX || l_procedure_name ||
370: '. OTHER_EXCEPTION ',
371: 'Unknown error' || SQLCODE || SQLERRM);
372:
549: --Yao add end for bug9655856
550: ORDER BY jgth.gta_trx_number;
551: BEGIN
552: fnd_file.PUT_LINE(fnd_file.LOG,'Begin Procedure.'||l_procedure_name);
553: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
554: THEN
555: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
556: , G_MODULE_PREFIX ||'.'|| l_procedure_name
557: ,'Begin Procedure. ');
551: BEGIN
552: fnd_file.PUT_LINE(fnd_file.LOG,'Begin Procedure.'||l_procedure_name);
553: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
554: THEN
555: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
556: , G_MODULE_PREFIX ||'.'|| l_procedure_name
557: ,'Begin Procedure. ');
558: END IF;
559: --get procedure parameters
597:
598:
599:
600:
601: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
602: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
603: ,G_MODULE_PREFIX || l_procedure_name
604: ,'no data found for max_amt and mx_num_line'
605: );
598:
599:
600:
601: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
602: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
603: ,G_MODULE_PREFIX || l_procedure_name
604: ,'no data found for max_amt and mx_num_line'
605: );
606: END IF;
718: --l_csldted_invs.COUNT<=1 create consolidation invoice
719: l_csldted_invs_index:=l_csldted_invs.FIRST;
720:
721: --added by jixun begin
722: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
723: fnd_log.string(fnd_log.level_procedure,
724: g_module_prefix || '.' || l_procedure_name,
725: 'Consolidation process at the first time: begin');
726: END IF;
719: l_csldted_invs_index:=l_csldted_invs.FIRST;
720:
721: --added by jixun begin
722: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
723: fnd_log.string(fnd_log.level_procedure,
724: g_module_prefix || '.' || l_procedure_name,
725: 'Consolidation process at the first time: begin');
726: END IF;
727: --added by jixun end
752: LOOP
753: l_csldtion_inv_line:=l_csldtion_inv.trx_lines(l_csldtion_inv_lines_index);
754:
755: --added by jixun begin
756: IF (fnd_log.level_procedure >=
757: fnd_log.g_current_runtime_level) THEN
758: fnd_log.string(fnd_log.level_procedure,
759: g_module_prefix || '.' || l_procedure_name,
760: 'l_csldtion_inv_line.inventory_item_id: ' ||
753: l_csldtion_inv_line:=l_csldtion_inv.trx_lines(l_csldtion_inv_lines_index);
754:
755: --added by jixun begin
756: IF (fnd_log.level_procedure >=
757: fnd_log.g_current_runtime_level) THEN
758: fnd_log.string(fnd_log.level_procedure,
759: g_module_prefix || '.' || l_procedure_name,
760: 'l_csldtion_inv_line.inventory_item_id: ' ||
761: l_csldtion_inv_line.inventory_item_id);
754:
755: --added by jixun begin
756: IF (fnd_log.level_procedure >=
757: fnd_log.g_current_runtime_level) THEN
758: fnd_log.string(fnd_log.level_procedure,
759: g_module_prefix || '.' || l_procedure_name,
760: 'l_csldtion_inv_line.inventory_item_id: ' ||
761: l_csldtion_inv_line.inventory_item_id);
762:
759: g_module_prefix || '.' || l_procedure_name,
760: 'l_csldtion_inv_line.inventory_item_id: ' ||
761: l_csldtion_inv_line.inventory_item_id);
762:
763: fnd_log.string(fnd_log.level_procedure,
764: g_module_prefix || '.' || l_procedure_name,
765: 'l_csldtion_inv_line.item_number: ' ||
766: l_csldtion_inv_line.item_number);
767:
764: g_module_prefix || '.' || l_procedure_name,
765: 'l_csldtion_inv_line.item_number: ' ||
766: l_csldtion_inv_line.item_number);
767:
768: fnd_log.string(fnd_log.level_procedure,
769: g_module_prefix || '.' || l_procedure_name,
770: 'l_csldtion_inv_line.item_description: ' ||
771: l_csldtion_inv_line.item_description);
772:
769: g_module_prefix || '.' || l_procedure_name,
770: 'l_csldtion_inv_line.item_description: ' ||
771: l_csldtion_inv_line.item_description);
772:
773: fnd_log.string(fnd_log.level_procedure,
774: g_module_prefix || '.' || l_procedure_name,
775: 'l_csldtion_inv_line.tax_rate: ' ||
776: l_csldtion_inv_line.tax_rate);
777:
774: g_module_prefix || '.' || l_procedure_name,
775: 'l_csldtion_inv_line.tax_rate: ' ||
776: l_csldtion_inv_line.tax_rate);
777:
778: fnd_log.string(fnd_log.level_procedure,
779: g_module_prefix || '.' || l_procedure_name,
780: 'l_csldtion_inv_line.uom: ' ||
781: l_csldtion_inv_line.uom);
782:
779: g_module_prefix || '.' || l_procedure_name,
780: 'l_csldtion_inv_line.uom: ' ||
781: l_csldtion_inv_line.uom);
782:
783: fnd_log.string(fnd_log.level_procedure,
784: g_module_prefix || '.' || l_procedure_name,
785: 'l_csldtion_inv_line.item_model: ' ||
786: l_csldtion_inv_line.item_model);
787:
784: g_module_prefix || '.' || l_procedure_name,
785: 'l_csldtion_inv_line.item_model: ' ||
786: l_csldtion_inv_line.item_model);
787:
788: fnd_log.string(fnd_log.level_procedure,
789: g_module_prefix || '.' || l_procedure_name,
790: 'l_csldtion_inv_line.item_tax_denomination: ' ||
791: l_csldtion_inv_line.item_tax_denomination);
792:
789: g_module_prefix || '.' || l_procedure_name,
790: 'l_csldtion_inv_line.item_tax_denomination: ' ||
791: l_csldtion_inv_line.item_tax_denomination);
792:
793: fnd_log.string(fnd_log.level_procedure,
794: g_module_prefix || '.' || l_procedure_name,
795: 'l_csldted_inv_line.inventory_item_id: ' ||
796: l_csldted_inv_line.inventory_item_id);
797:
794: g_module_prefix || '.' || l_procedure_name,
795: 'l_csldted_inv_line.inventory_item_id: ' ||
796: l_csldted_inv_line.inventory_item_id);
797:
798: fnd_log.string(fnd_log.level_procedure,
799: g_module_prefix || '.' || l_procedure_name,
800: 'l_csldted_inv_line.item_number: ' ||
801: l_csldted_inv_line.item_number);
802:
799: g_module_prefix || '.' || l_procedure_name,
800: 'l_csldted_inv_line.item_number: ' ||
801: l_csldted_inv_line.item_number);
802:
803: fnd_log.string(fnd_log.level_procedure,
804: g_module_prefix || '.' || l_procedure_name,
805: 'l_csldted_inv_line.item_description: ' ||
806: l_csldted_inv_line.item_description);
807:
804: g_module_prefix || '.' || l_procedure_name,
805: 'l_csldted_inv_line.item_description: ' ||
806: l_csldted_inv_line.item_description);
807:
808: fnd_log.string(fnd_log.level_procedure,
809: g_module_prefix || '.' || l_procedure_name,
810: 'l_csldted_inv_line.tax_rate: ' ||
811: l_csldted_inv_line.tax_rate);
812:
809: g_module_prefix || '.' || l_procedure_name,
810: 'l_csldted_inv_line.tax_rate: ' ||
811: l_csldted_inv_line.tax_rate);
812:
813: fnd_log.string(fnd_log.level_procedure,
814: g_module_prefix || '.' || l_procedure_name,
815: 'l_csldted_inv_line.uom: ' ||
816: l_csldted_inv_line.uom);
817:
814: g_module_prefix || '.' || l_procedure_name,
815: 'l_csldted_inv_line.uom: ' ||
816: l_csldted_inv_line.uom);
817:
818: fnd_log.string(fnd_log.level_procedure,
819: g_module_prefix || '.' || l_procedure_name,
820: 'l_csldted_inv_line.item_model: ' ||
821: l_csldted_inv_line.item_model);
822:
819: g_module_prefix || '.' || l_procedure_name,
820: 'l_csldted_inv_line.item_model: ' ||
821: l_csldted_inv_line.item_model);
822:
823: fnd_log.string(fnd_log.level_procedure,
824: g_module_prefix || '.' || l_procedure_name,
825: 'l_csldted_inv_line.item_tax_denomination: ' ||
826: l_csldted_inv_line.item_tax_denomination);
827: END IF;
1035: l_csldted_invs_index:=l_csldted_invs.NEXT(l_csldted_invs_index);
1036: END LOOP; -- l_consol_invs_index
1037:
1038: --added by jixun begin
1039: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1040: fnd_log.string(fnd_log.level_procedure,
1041: g_module_prefix || '.' || l_procedure_name,
1042: 'Consolidation process at the first time: end');
1043: END IF;
1036: END LOOP; -- l_consol_invs_index
1037:
1038: --added by jixun begin
1039: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1040: fnd_log.string(fnd_log.level_procedure,
1041: g_module_prefix || '.' || l_procedure_name,
1042: 'Consolidation process at the first time: end');
1043: END IF;
1044: --added by jixun end
1043: END IF;
1044: --added by jixun end
1045:
1046: --added by Jixun for ER#16613351 begin
1047: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1048: fnd_log.string(fnd_log.level_procedure,
1049: g_module_prefix || '.' || l_procedure_name,
1050: 'Consolidation process at the second time: begin');
1051: END IF;
1044: --added by jixun end
1045:
1046: --added by Jixun for ER#16613351 begin
1047: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1048: fnd_log.string(fnd_log.level_procedure,
1049: g_module_prefix || '.' || l_procedure_name,
1050: 'Consolidation process at the second time: begin');
1051: END IF;
1052:
1058: l_csldtion_inv_lines_index := l_csldtion_inv.trx_lines.first;
1059: WHILE l_csldtion_inv_lines_index IS NOT NULL LOOP
1060: l_csldtion_inv_line := l_csldtion_inv.trx_lines(l_csldtion_inv_lines_index);
1061:
1062: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1063: fnd_log.string(fnd_log.level_procedure,
1064: g_module_prefix || '.' || l_procedure_name,
1065: 'l_csldtion_inv_lines_index: ' ||
1066: l_csldtion_inv_lines_index);
1059: WHILE l_csldtion_inv_lines_index IS NOT NULL LOOP
1060: l_csldtion_inv_line := l_csldtion_inv.trx_lines(l_csldtion_inv_lines_index);
1061:
1062: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1063: fnd_log.string(fnd_log.level_procedure,
1064: g_module_prefix || '.' || l_procedure_name,
1065: 'l_csldtion_inv_lines_index: ' ||
1066: l_csldtion_inv_lines_index);
1067:
1064: g_module_prefix || '.' || l_procedure_name,
1065: 'l_csldtion_inv_lines_index: ' ||
1066: l_csldtion_inv_lines_index);
1067:
1068: fnd_log.string(fnd_log.level_procedure,
1069: g_module_prefix || '.' || l_procedure_name,
1070: 'l_csldtion_type(' || l_csldtion_inv_lines_index ||
1071: '): ' ||
1072: l_csldtion_type(l_csldtion_inv_lines_index));
1070: 'l_csldtion_type(' || l_csldtion_inv_lines_index ||
1071: '): ' ||
1072: l_csldtion_type(l_csldtion_inv_lines_index));
1073:
1074: fnd_log.string(fnd_log.level_procedure,
1075: g_module_prefix || '.' || l_procedure_name,
1076: 'l_csldtion_inv_line.UOM: ' ||
1077: l_csldtion_inv_line.UOM);
1078: END IF;
1109: nvl(l_csldtion_inv_line1.discount_rate, 0) =
1110: nvl(l_csldtion_inv_line.discount_rate, 0) AND
1111: l_same_pri_same_dis = 'Y')) THEN
1112:
1113: IF (fnd_log.level_procedure >=
1114: fnd_log.g_current_runtime_level) THEN
1115:
1116: fnd_log.string(fnd_log.level_procedure,
1117: g_module_prefix || '.' ||
1110: nvl(l_csldtion_inv_line.discount_rate, 0) AND
1111: l_same_pri_same_dis = 'Y')) THEN
1112:
1113: IF (fnd_log.level_procedure >=
1114: fnd_log.g_current_runtime_level) THEN
1115:
1116: fnd_log.string(fnd_log.level_procedure,
1117: g_module_prefix || '.' ||
1118: l_procedure_name,
1112:
1113: IF (fnd_log.level_procedure >=
1114: fnd_log.g_current_runtime_level) THEN
1115:
1116: fnd_log.string(fnd_log.level_procedure,
1117: g_module_prefix || '.' ||
1118: l_procedure_name,
1119: 'l_csldtion_inv_lines_index1: ' ||
1120: l_csldtion_inv_lines_index1);
1118: l_procedure_name,
1119: 'l_csldtion_inv_lines_index1: ' ||
1120: l_csldtion_inv_lines_index1);
1121:
1122: fnd_log.string(fnd_log.level_procedure,
1123: g_module_prefix || '.' ||
1124: l_procedure_name,
1125: 'l_csldtion_type(' ||
1126: l_csldtion_inv_lines_index1 || '): ' ||
1125: 'l_csldtion_type(' ||
1126: l_csldtion_inv_lines_index1 || '): ' ||
1127: l_csldtion_type(l_csldtion_inv_lines_index1));
1128:
1129: fnd_log.string(fnd_log.level_procedure,
1130: g_module_prefix || '.' ||
1131: l_procedure_name,
1132: 'l_diff_uoms_flag: ' ||
1133: l_diff_uoms_flag);
1130: g_module_prefix || '.' ||
1131: l_procedure_name,
1132: 'l_diff_uoms_flag: ' ||
1133: l_diff_uoms_flag);
1134: END IF; --fnd_log.level_procedure >= fnd_log.g_current_runtime_level
1135:
1136: /*------------------------------------------------------------------
1137: Only positive invoices with same UOM can be consolidated with credit
1138: memos without UOM, if positive invoices with different UOMs, it will
1190: END IF; --l_csldtion_type(l_csldtion_inv_lines_index) = 'CM'
1191: l_csldtion_inv_lines_index := l_csldtion_inv.trx_lines.NEXT(l_csldtion_inv_lines_index);
1192: END LOOP; --l_csldtion_inv_lines_index IS NOT NULL
1193:
1194: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1195: fnd_log.string(fnd_log.level_procedure,
1196: g_module_prefix || '.' || l_procedure_name,
1197: 'l_diff_uoms_flag: ' || l_diff_uoms_flag);
1198:
1191: l_csldtion_inv_lines_index := l_csldtion_inv.trx_lines.NEXT(l_csldtion_inv_lines_index);
1192: END LOOP; --l_csldtion_inv_lines_index IS NOT NULL
1193:
1194: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1195: fnd_log.string(fnd_log.level_procedure,
1196: g_module_prefix || '.' || l_procedure_name,
1197: 'l_diff_uoms_flag: ' || l_diff_uoms_flag);
1198:
1199: fnd_log.string(fnd_log.level_procedure,
1195: fnd_log.string(fnd_log.level_procedure,
1196: g_module_prefix || '.' || l_procedure_name,
1197: 'l_diff_uoms_flag: ' || l_diff_uoms_flag);
1198:
1199: fnd_log.string(fnd_log.level_procedure,
1200: g_module_prefix || '.' || l_procedure_name,
1201: 'Consolidation process at the second time: end');
1202: END IF;
1203:
1437: FROM AR_GTA_TRX_HEADERS_V jgthv
1438: WHERE jgthv.GTA_TRX_HEADER_ID=l_csldted_invs(l_csldted_invs_index).trx_header.gta_trx_header_id;
1439: EXCEPTION
1440: WHEN no_data_found THEN
1441: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1442: FND_LOG.String(FND_LOG.LEVEL_UNEXPECTED,
1443: G_MODULE_PREFIX || l_procedure_name ||
1444: '. Can not get Transaction Type for GTA Invoice:'
1445: ||l_csldted_invs(l_csldted_invs_index).trx_header.gta_trx_header_id,
1438: WHERE jgthv.GTA_TRX_HEADER_ID=l_csldted_invs(l_csldted_invs_index).trx_header.gta_trx_header_id;
1439: EXCEPTION
1440: WHEN no_data_found THEN
1441: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1442: FND_LOG.String(FND_LOG.LEVEL_UNEXPECTED,
1443: G_MODULE_PREFIX || l_procedure_name ||
1444: '. Can not get Transaction Type for GTA Invoice:'
1445: ||l_csldted_invs(l_csldted_invs_index).trx_header.gta_trx_header_id,
1446: 'Unknown error' || SQLCODE || SQLERRM);
1468:
1469: END LOOP;
1470: CLOSE c_consolidation_groups;
1471:
1472: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1473: THEN
1474: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1475: , G_MODULE_PREFIX ||'.'|| l_procedure_name
1476: ,'End Procedure. ');
1470: CLOSE c_consolidation_groups;
1471:
1472: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1473: THEN
1474: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1475: , G_MODULE_PREFIX ||'.'|| l_procedure_name
1476: ,'End Procedure. ');
1477: END IF;
1478: EXCEPTION
1476: ,'End Procedure. ');
1477: END IF;
1478: EXCEPTION
1479: WHEN OTHERS THEN
1480: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1481: FND_LOG.String(FND_LOG.LEVEL_UNEXPECTED,
1482: G_MODULE_PREFIX || l_procedure_name ||
1483: '. OTHER_EXCEPTION ',
1484: 'Unknown error' || SQLCODE || SQLERRM);
1477: END IF;
1478: EXCEPTION
1479: WHEN OTHERS THEN
1480: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1481: FND_LOG.String(FND_LOG.LEVEL_UNEXPECTED,
1482: G_MODULE_PREFIX || l_procedure_name ||
1483: '. OTHER_EXCEPTION ',
1484: 'Unknown error' || SQLCODE || SQLERRM);
1485: