738: EXCEPTION
739:
740: WHEN Incompatible_API_Version_Error THEN
741: x_return_status := FND_API.G_RET_STS_ERROR;
742: FND_MESSAGE.SET_NAME('GR',
743: 'GR_API_VERSION_ERROR');
744: FND_MESSAGE.SET_TOKEN('VERSION',
745: p_api_version,
746: FALSE);
740: WHEN Incompatible_API_Version_Error THEN
741: x_return_status := FND_API.G_RET_STS_ERROR;
742: FND_MESSAGE.SET_NAME('GR',
743: 'GR_API_VERSION_ERROR');
744: FND_MESSAGE.SET_TOKEN('VERSION',
745: p_api_version,
746: FALSE);
747: X_msg_data := FND_MESSAGE.GET;
748: FND_FILE.PUT(FND_FILE.LOG,'API version error');
743: 'GR_API_VERSION_ERROR');
744: FND_MESSAGE.SET_TOKEN('VERSION',
745: p_api_version,
746: FALSE);
747: X_msg_data := FND_MESSAGE.GET;
748: FND_FILE.PUT(FND_FILE.LOG,'API version error');
749: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
750:
751: WHEN Item_To_Print_Error THEN
749: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
750:
751: WHEN Item_To_Print_Error THEN
752: x_return_status := FND_API.G_RET_STS_ERROR;
753: FND_MESSAGE.SET_NAME('GR',
754: 'GR_PRINT_ITEM_NULL');
755: X_msg_data := FND_MESSAGE.GET;
756: FND_FILE.PUT(FND_FILE.LOG,'Item code to explode is null');
757: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
751: WHEN Item_To_Print_Error THEN
752: x_return_status := FND_API.G_RET_STS_ERROR;
753: FND_MESSAGE.SET_NAME('GR',
754: 'GR_PRINT_ITEM_NULL');
755: X_msg_data := FND_MESSAGE.GET;
756: FND_FILE.PUT(FND_FILE.LOG,'Item code to explode is null');
757: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
758:
759: WHEN Invalid_UOM_Error THEN
757: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
758:
759: WHEN Invalid_UOM_Error THEN
760: x_return_status := FND_API.G_RET_STS_ERROR;
761: FND_MESSAGE.SET_NAME('GR',
762: 'GR_INVALID_UOM');
763: FND_MESSAGE.SET_TOKEN('UOM',
764: 'System UOM',
765: FALSE);
759: WHEN Invalid_UOM_Error THEN
760: x_return_status := FND_API.G_RET_STS_ERROR;
761: FND_MESSAGE.SET_NAME('GR',
762: 'GR_INVALID_UOM');
763: FND_MESSAGE.SET_TOKEN('UOM',
764: 'System UOM',
765: FALSE);
766: X_msg_data := FND_MESSAGE.GET;
767: FND_FILE.PUT(FND_FILE.LOG,'Invalid system unit of measure');
762: 'GR_INVALID_UOM');
763: FND_MESSAGE.SET_TOKEN('UOM',
764: 'System UOM',
765: FALSE);
766: X_msg_data := FND_MESSAGE.GET;
767: FND_FILE.PUT(FND_FILE.LOG,'Invalid system unit of measure');
768: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
769:
770: WHEN No_Effective_Formula_Error THEN
768: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
769:
770: WHEN No_Effective_Formula_Error THEN
771: x_return_status := FND_API.G_RET_STS_ERROR;
772: FND_MESSAGE.SET_NAME('GR',
773: 'GR_NO_EFFECTIVE_FORMULA');
774: FND_MESSAGE.SET_TOKEN('ITEM',
775: l_item_code,
776: FALSE);
770: WHEN No_Effective_Formula_Error THEN
771: x_return_status := FND_API.G_RET_STS_ERROR;
772: FND_MESSAGE.SET_NAME('GR',
773: 'GR_NO_EFFECTIVE_FORMULA');
774: FND_MESSAGE.SET_TOKEN('ITEM',
775: l_item_code,
776: FALSE);
777: X_msg_data := FND_MESSAGE.GET;
778: FND_FILE.PUT(FND_FILE.LOG,'No effective formula for ' || l_item_code);
773: 'GR_NO_EFFECTIVE_FORMULA');
774: FND_MESSAGE.SET_TOKEN('ITEM',
775: l_item_code,
776: FALSE);
777: X_msg_data := FND_MESSAGE.GET;
778: FND_FILE.PUT(FND_FILE.LOG,'No effective formula for ' || l_item_code);
779: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
780:
781: WHEN Item_Concentration_Error THEN
779: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
780:
781: WHEN Item_Concentration_Error THEN
782: x_return_status := FND_API.G_RET_STS_ERROR;
783: FND_MESSAGE.SET_NAME('GR',
784: 'GR_ITEM_CONCENTRATION');
785: FND_MESSAGE.SET_TOKEN('CODE',
786: l_item_code,
787: FALSE);
781: WHEN Item_Concentration_Error THEN
782: x_return_status := FND_API.G_RET_STS_ERROR;
783: FND_MESSAGE.SET_NAME('GR',
784: 'GR_ITEM_CONCENTRATION');
785: FND_MESSAGE.SET_TOKEN('CODE',
786: l_item_code,
787: FALSE);
788: X_msg_data := FND_MESSAGE.GET;
789: FND_FILE.PUT(FND_FILE.LOG,'Error finding concentration details for ' || l_item_code);
784: 'GR_ITEM_CONCENTRATION');
785: FND_MESSAGE.SET_TOKEN('CODE',
786: l_item_code,
787: FALSE);
788: X_msg_data := FND_MESSAGE.GET;
789: FND_FILE.PUT(FND_FILE.LOG,'Error finding concentration details for ' || l_item_code);
790: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
791:
792: WHEN Concentration_Delete_Error THEN
790: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
791:
792: WHEN Concentration_Delete_Error THEN
793: x_return_status := FND_API.G_RET_STS_ERROR;
794: FND_MESSAGE.SET_NAME('GR',
795: 'GR_UNEXPECTED_ERROR');
796: FND_MESSAGE.SET_TOKEN('TEXT',
797: l_msg_data||sqlerrm,
798: FALSE);
792: WHEN Concentration_Delete_Error THEN
793: x_return_status := FND_API.G_RET_STS_ERROR;
794: FND_MESSAGE.SET_NAME('GR',
795: 'GR_UNEXPECTED_ERROR');
796: FND_MESSAGE.SET_TOKEN('TEXT',
797: l_msg_data||sqlerrm,
798: FALSE);
799: X_msg_data := FND_MESSAGE.GET;
800: FND_FILE.PUT(FND_FILE.LOG,'Error clearing concentration detail tables');
795: 'GR_UNEXPECTED_ERROR');
796: FND_MESSAGE.SET_TOKEN('TEXT',
797: l_msg_data||sqlerrm,
798: FALSE);
799: X_msg_data := FND_MESSAGE.GET;
800: FND_FILE.PUT(FND_FILE.LOG,'Error clearing concentration detail tables');
801: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
802:
803: WHEN UOM_CONVERSION_ERROR THEN
801: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
802:
803: WHEN UOM_CONVERSION_ERROR THEN
804: x_return_status := FND_API.G_RET_STS_ERROR;
805: FND_MESSAGE.SET_NAME('GMI',
806: 'IC_API_UOM_CONVERSION_ERROR');
807: FND_MESSAGE.SET_TOKEN('FROM_UOM',
808: FormulaDetailRecord.item_um,
809: FALSE);
803: WHEN UOM_CONVERSION_ERROR THEN
804: x_return_status := FND_API.G_RET_STS_ERROR;
805: FND_MESSAGE.SET_NAME('GMI',
806: 'IC_API_UOM_CONVERSION_ERROR');
807: FND_MESSAGE.SET_TOKEN('FROM_UOM',
808: FormulaDetailRecord.item_um,
809: FALSE);
810: FND_MESSAGE.SET_TOKEN('TO_UOM',
811: l_system_uom,
806: 'IC_API_UOM_CONVERSION_ERROR');
807: FND_MESSAGE.SET_TOKEN('FROM_UOM',
808: FormulaDetailRecord.item_um,
809: FALSE);
810: FND_MESSAGE.SET_TOKEN('TO_UOM',
811: l_system_uom,
812: FALSE);
813: FND_MESSAGE.SET_TOKEN('ITEM_NO',
814: FormulaDetailRecord.item_no,
809: FALSE);
810: FND_MESSAGE.SET_TOKEN('TO_UOM',
811: l_system_uom,
812: FALSE);
813: FND_MESSAGE.SET_TOKEN('ITEM_NO',
814: FormulaDetailRecord.item_no,
815: FALSE);
816: X_msg_data := FND_MESSAGE.GET;
817: --
812: FALSE);
813: FND_MESSAGE.SET_TOKEN('ITEM_NO',
814: FormulaDetailRecord.item_no,
815: FALSE);
816: X_msg_data := FND_MESSAGE.GET;
817: --
818: WHEN EX_GET_GMD_PARAM_EXCEPTION THEN
819: x_return_status := FND_API.G_RET_STS_ERROR;
820: fnd_message.set_name ('GMD', 'GMD_PARM_NOT_FOUND');
816: X_msg_data := FND_MESSAGE.GET;
817: --
818: WHEN EX_GET_GMD_PARAM_EXCEPTION THEN
819: x_return_status := FND_API.G_RET_STS_ERROR;
820: fnd_message.set_name ('GMD', 'GMD_PARM_NOT_FOUND');
821: X_msg_data := FND_MESSAGE.GET;
822:
823: FND_FILE.PUT(FND_FILE.LOG,'Error finding gmd_parameter value for ' || l_parameter_name);
824: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
817: --
818: WHEN EX_GET_GMD_PARAM_EXCEPTION THEN
819: x_return_status := FND_API.G_RET_STS_ERROR;
820: fnd_message.set_name ('GMD', 'GMD_PARM_NOT_FOUND');
821: X_msg_data := FND_MESSAGE.GET;
822:
823: FND_FILE.PUT(FND_FILE.LOG,'Error finding gmd_parameter value for ' || l_parameter_name);
824: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
825:
826:
827: WHEN OTHERS THEN
828: l_oracle_error := SQLCODE;
829: l_code_block := l_code_block || ' ' || TO_CHAR(l_oracle_error);
830: FND_MESSAGE.SET_NAME('GR',
831: 'GR_UNEXPECTED_ERROR');
832: FND_MESSAGE.SET_TOKEN('TEXT',
833: l_code_block||sqlerrm,
834: FALSE);
828: l_oracle_error := SQLCODE;
829: l_code_block := l_code_block || ' ' || TO_CHAR(l_oracle_error);
830: FND_MESSAGE.SET_NAME('GR',
831: 'GR_UNEXPECTED_ERROR');
832: FND_MESSAGE.SET_TOKEN('TEXT',
833: l_code_block||sqlerrm,
834: FALSE);
835: X_msg_data := FND_MESSAGE.GET;
836: FND_FILE.PUT(FND_FILE.LOG,' Others '||sqlerrm);
831: 'GR_UNEXPECTED_ERROR');
832: FND_MESSAGE.SET_TOKEN('TEXT',
833: l_code_block||sqlerrm,
834: FALSE);
835: X_msg_data := FND_MESSAGE.GET;
836: FND_FILE.PUT(FND_FILE.LOG,' Others '||sqlerrm);
837: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
838:
839: END OPM_410_MSDS_Formula;
874:
875: WHEN OTHERS THEN
876: l_oracle_error := SQLCODE;
877: l_code_block := l_code_block || ' ' || TO_CHAR(l_oracle_error);
878: FND_MESSAGE.SET_NAME('GR',
879: 'GR_UNEXPECTED_ERROR');
880: FND_MESSAGE.SET_TOKEN('TEXT',
881: l_code_block||sqlerrm,
882: FALSE);
876: l_oracle_error := SQLCODE;
877: l_code_block := l_code_block || ' ' || TO_CHAR(l_oracle_error);
878: FND_MESSAGE.SET_NAME('GR',
879: 'GR_UNEXPECTED_ERROR');
880: FND_MESSAGE.SET_TOKEN('TEXT',
881: l_code_block||sqlerrm,
882: FALSE);
883: APP_EXCEPTION.Raise_Exception;
884:
971:
972: WHEN OTHERS THEN
973: l_oracle_error := SQLCODE;
974: l_code_block := l_code_block || ' ' || TO_CHAR(l_oracle_error);
975: FND_MESSAGE.SET_NAME('GR',
976: 'GR_UNEXPECTED_ERROR');
977: FND_MESSAGE.SET_TOKEN('TEXT',
978: l_code_block||sqlerrm,
979: FALSE);
973: l_oracle_error := SQLCODE;
974: l_code_block := l_code_block || ' ' || TO_CHAR(l_oracle_error);
975: FND_MESSAGE.SET_NAME('GR',
976: 'GR_UNEXPECTED_ERROR');
977: FND_MESSAGE.SET_TOKEN('TEXT',
978: l_code_block||sqlerrm,
979: FALSE);
980: APP_EXCEPTION.Raise_Exception;
981:
1003:
1004: BEGIN
1005:
1006: x_return_status := FND_API.G_RET_STS_ERROR;
1007: FND_MESSAGE.SET_NAME('GR',
1008: p_message_code);
1009: IF p_token_name IS NOT NULL THEN
1010: FND_MESSAGE.SET_TOKEN(p_token_name,
1011: p_token_value,
1006: x_return_status := FND_API.G_RET_STS_ERROR;
1007: FND_MESSAGE.SET_NAME('GR',
1008: p_message_code);
1009: IF p_token_name IS NOT NULL THEN
1010: FND_MESSAGE.SET_TOKEN(p_token_name,
1011: p_token_value,
1012: FALSE);
1013: END IF;
1014:
1305: WHEN Concentration_Insert_Error THEN
1306: ROLLBACK TO SAVEPOINT process_concentrations;
1307:
1308: x_return_status := FND_API.G_RET_STS_ERROR;
1309: FND_MESSAGE.SET_NAME('GR',
1310: 'GR_UNEXPECTED_ERROR');
1311: FND_MESSAGE.SET_TOKEN('TEXT',
1312: l_msg_data||sqlerrm,
1313: FALSE);
1307:
1308: x_return_status := FND_API.G_RET_STS_ERROR;
1309: FND_MESSAGE.SET_NAME('GR',
1310: 'GR_UNEXPECTED_ERROR');
1311: FND_MESSAGE.SET_TOKEN('TEXT',
1312: l_msg_data||sqlerrm,
1313: FALSE);
1314: FND_MSG_PUB.Add;
1315: FND_MSG_PUB.Count_and_Get
1317: p_data => x_msg_data);
1318: WHEN OTHERS THEN
1319: l_oracle_error := SQLCODE;
1320: l_code_block := l_code_block || ' ' || TO_CHAR(l_oracle_error);
1321: FND_MESSAGE.SET_NAME('GR',
1322: 'GR_UNEXPECTED_ERROR');
1323: FND_MESSAGE.SET_TOKEN('TEXT',
1324: l_code_block||sqlerrm,
1325: FALSE);
1319: l_oracle_error := SQLCODE;
1320: l_code_block := l_code_block || ' ' || TO_CHAR(l_oracle_error);
1321: FND_MESSAGE.SET_NAME('GR',
1322: 'GR_UNEXPECTED_ERROR');
1323: FND_MESSAGE.SET_TOKEN('TEXT',
1324: l_code_block||sqlerrm,
1325: FALSE);
1326:
1327: END process_concentrations;