DBA Data[Home] [Help]

APPS.GR_EXPLOSIONS dependencies on FND_FILE

Line 408: FND_FILE.PUT(FND_FILE.LOG,'Processing item:' || l_inventory_item_id);

404: l_current_yield := 0;
405: l_formula_use := 3;
406: l_inventory_item_id := l_explosion_list(l_current_record).inventory_item_id;
407:
408: FND_FILE.PUT(FND_FILE.LOG,'Processing item:' || l_inventory_item_id);
409: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
410:
411: IF c_get_item_safety%ISOPEN THEN
412: CLOSE c_get_item_safety;

Line 409: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

405: l_formula_use := 3;
406: l_inventory_item_id := l_explosion_list(l_current_record).inventory_item_id;
407:
408: FND_FILE.PUT(FND_FILE.LOG,'Processing item:' || l_inventory_item_id);
409: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
410:
411: IF c_get_item_safety%ISOPEN THEN
412: CLOSE c_get_item_safety;
413: END IF;

Line 418: -- FND_FILE.PUT(FND_FILE.LOG,' No safety information for:' || l_inventory_item_id);

414:
415: OPEN c_get_item_safety;
416: FETCH c_get_item_safety INTO ItemSafetyRecord;
417: IF c_get_item_safety%NOTFOUND THEN
418: -- FND_FILE.PUT(FND_FILE.LOG,' No safety information for:' || l_inventory_item_id);
419: -- FND_FILE.NEW_LINE(FND_FILE.LOG,1);
420: ItemSafetyRecord.inventory_item_id := l_inventory_item_id;
421: ItemSafetyRecord.ingredient_flag := 'Y';
422: ItemSafetyRecord.explode_ingredient_flag := 'N';

Line 419: -- FND_FILE.NEW_LINE(FND_FILE.LOG,1);

415: OPEN c_get_item_safety;
416: FETCH c_get_item_safety INTO ItemSafetyRecord;
417: IF c_get_item_safety%NOTFOUND THEN
418: -- FND_FILE.PUT(FND_FILE.LOG,' No safety information for:' || l_inventory_item_id);
419: -- FND_FILE.NEW_LINE(FND_FILE.LOG,1);
420: ItemSafetyRecord.inventory_item_id := l_inventory_item_id;
421: ItemSafetyRecord.ingredient_flag := 'Y';
422: ItemSafetyRecord.explode_ingredient_flag := 'N';
423: ItemSafetyRecord.actual_hazard := 100;

Line 439: FND_FILE.PUT(FND_FILE.LOG, l_code_block);

435: END IF;
436: /* Fix for B1323983 */
437: l_organization_id := p_organization_id; --l_default_orgn;
438: l_code_block := 'Trying for Regulatory Formula, for default organization '||l_orgn_code;
439: FND_FILE.PUT(FND_FILE.LOG, l_code_block);
440: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
441: OPEN c_get_effective_formula;
442: FETCH c_get_effective_formula INTO EffectiveFormulaRecord;
443: IF c_get_effective_formula%NOTFOUND THEN

Line 440: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

436: /* Fix for B1323983 */
437: l_organization_id := p_organization_id; --l_default_orgn;
438: l_code_block := 'Trying for Regulatory Formula, for default organization '||l_orgn_code;
439: FND_FILE.PUT(FND_FILE.LOG, l_code_block);
440: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
441: OPEN c_get_effective_formula;
442: FETCH c_get_effective_formula INTO EffectiveFormulaRecord;
443: IF c_get_effective_formula%NOTFOUND THEN
444: CLOSE c_get_effective_formula;

Line 447: FND_FILE.PUT(FND_FILE.LOG, l_code_block);

443: IF c_get_effective_formula%NOTFOUND THEN
444: CLOSE c_get_effective_formula;
445: l_code_block := 'No Regulatory Formula for default orgn, trying Regulatory formula without default ';
446: l_organization_id := NULL;
447: FND_FILE.PUT(FND_FILE.LOG, l_code_block);
448: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
449: OPEN c_get_effective_formula;
450: FETCH c_get_effective_formula INTO EffectiveFormulaRecord;
451: IF c_get_effective_formula%NOTFOUND THEN

Line 448: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

444: CLOSE c_get_effective_formula;
445: l_code_block := 'No Regulatory Formula for default orgn, trying Regulatory formula without default ';
446: l_organization_id := NULL;
447: FND_FILE.PUT(FND_FILE.LOG, l_code_block);
448: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
449: OPEN c_get_effective_formula;
450: FETCH c_get_effective_formula INTO EffectiveFormulaRecord;
451: IF c_get_effective_formula%NOTFOUND THEN
452: CLOSE c_get_effective_formula;

Line 456: FND_FILE.PUT(FND_FILE.LOG, l_code_block);

452: CLOSE c_get_effective_formula;
453: l_code_block := 'No Regulatory Formula, trying Production formula for default organization '||l_organization_id;
454: l_organization_id := p_organization_id;
455: l_formula_use := 0;
456: FND_FILE.PUT(FND_FILE.LOG, l_code_block);
457: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
458: OPEN c_get_effective_formula;
459: FETCH c_get_effective_formula INTO EffectiveFormulaRecord;
460: IF c_get_effective_formula%NOTFOUND THEN

Line 457: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

453: l_code_block := 'No Regulatory Formula, trying Production formula for default organization '||l_organization_id;
454: l_organization_id := p_organization_id;
455: l_formula_use := 0;
456: FND_FILE.PUT(FND_FILE.LOG, l_code_block);
457: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
458: OPEN c_get_effective_formula;
459: FETCH c_get_effective_formula INTO EffectiveFormulaRecord;
460: IF c_get_effective_formula%NOTFOUND THEN
461: CLOSE c_get_effective_formula;

Line 463: FND_FILE.PUT(FND_FILE.LOG, l_code_block);

459: FETCH c_get_effective_formula INTO EffectiveFormulaRecord;
460: IF c_get_effective_formula%NOTFOUND THEN
461: CLOSE c_get_effective_formula;
462: l_code_block := 'No production formula with default organization, trying Production formula without';
463: FND_FILE.PUT(FND_FILE.LOG, l_code_block);
464: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
465: l_organization_id := NULL;
466: OPEN c_get_effective_formula;
467: FETCH c_get_effective_formula INTO EffectiveFormulaRecord;

Line 464: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

460: IF c_get_effective_formula%NOTFOUND THEN
461: CLOSE c_get_effective_formula;
462: l_code_block := 'No production formula with default organization, trying Production formula without';
463: FND_FILE.PUT(FND_FILE.LOG, l_code_block);
464: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
465: l_organization_id := NULL;
466: OPEN c_get_effective_formula;
467: FETCH c_get_effective_formula INTO EffectiveFormulaRecord;
468: IF c_get_effective_formula%NOTFOUND THEN

Line 489: FND_FILE.PUT(FND_FILE.LOG,'Calculating yield');

485: ** then read the top level and calculate the yield for the
486: ** formula.
487: */
488: l_code_block := 'Read the top level of detail';
489: FND_FILE.PUT(FND_FILE.LOG,'Calculating yield');
490: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
491: IF c_get_formula_detail%ISOPEN THEN
492: CLOSE c_get_formula_detail;
493: END IF;

Line 490: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

486: ** formula.
487: */
488: l_code_block := 'Read the top level of detail';
489: FND_FILE.PUT(FND_FILE.LOG,'Calculating yield');
490: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
491: IF c_get_formula_detail%ISOPEN THEN
492: CLOSE c_get_formula_detail;
493: END IF;
494:

Line 567: FND_FILE.PUT(FND_FILE.LOG,'Yield is: ' || TO_CHAR(l_item_yield));

563: END LOOP;
564: CLOSE c_get_formula_detail;
565: END IF;
566:
567: FND_FILE.PUT(FND_FILE.LOG,'Yield is: ' || TO_CHAR(l_item_yield));
568: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
569: /*
570: ** Yield has been calculated, now go back and read all levels of
571: ** the formula to get the ingredient concentrations.

Line 568: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

564: CLOSE c_get_formula_detail;
565: END IF;
566:
567: FND_FILE.PUT(FND_FILE.LOG,'Yield is: ' || TO_CHAR(l_item_yield));
568: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
569: /*
570: ** Yield has been calculated, now go back and read all levels of
571: ** the formula to get the ingredient concentrations.
572: */

Line 591: FND_FILE.PUT(FND_FILE.LOG,' Processing ingredient: ' || l_inventory_item_id);

587: CLOSE c_get_item_safety;
588: END IF;
589:
590: l_inventory_item_id := FormulaDetailRecord.inventory_item_id;
591: FND_FILE.PUT(FND_FILE.LOG,' Processing ingredient: ' || l_inventory_item_id);
592: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
593:
594: OPEN c_get_item_safety;
595: FETCH c_get_item_safety INTO ItemSafetyRecord;

Line 592: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

588: END IF;
589:
590: l_inventory_item_id := FormulaDetailRecord.inventory_item_id;
591: FND_FILE.PUT(FND_FILE.LOG,' Processing ingredient: ' || l_inventory_item_id);
592: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
593:
594: OPEN c_get_item_safety;
595: FETCH c_get_item_safety INTO ItemSafetyRecord;
596: IF c_get_item_safety%NOTFOUND THEN

Line 600: -- FND_FILE.PUT(FND_FILE.LOG,' No item safety for ' || l_inventory_item_id);

596: IF c_get_item_safety%NOTFOUND THEN
597: -- CLOSE c_get_item_safety;
598: -- l_missing_ing := l_missing_ing + 1;
599: -- l_missing_ing_list(l_missing_ing) := l_item_code;
600: -- FND_FILE.PUT(FND_FILE.LOG,' No item safety for ' || l_inventory_item_id);
601: -- FND_FILE.NEW_LINE(FND_FILE.LOG,1);
602: ItemSafetyRecord.inventory_item_id := l_inventory_item_id;
603: ItemSafetyRecord.ingredient_flag := 'Y';
604: ItemSafetyRecord.explode_ingredient_flag := 'N';

Line 601: -- FND_FILE.NEW_LINE(FND_FILE.LOG,1);

597: -- CLOSE c_get_item_safety;
598: -- l_missing_ing := l_missing_ing + 1;
599: -- l_missing_ing_list(l_missing_ing) := l_item_code;
600: -- FND_FILE.PUT(FND_FILE.LOG,' No item safety for ' || l_inventory_item_id);
601: -- FND_FILE.NEW_LINE(FND_FILE.LOG,1);
602: ItemSafetyRecord.inventory_item_id := l_inventory_item_id;
603: ItemSafetyRecord.ingredient_flag := 'Y';
604: ItemSafetyRecord.explode_ingredient_flag := 'N';
605: ItemSafetyRecord.actual_hazard := 100;

Line 710: FND_FILE.PUT(FND_FILE.LOG,l_code_block);

706: l_explosion_list(l_maximum_record).inventory_item_id := l_inventory_item_id;
707: l_explosion_list(l_maximum_record).quantity := l_item_percent;
708: l_explosion_list(l_maximum_record).weight_pct := l_wt_percent;
709: l_explosion_list(l_maximum_record).parent_formula := EffectiveFormulaRecord.formula_id;
710: FND_FILE.PUT(FND_FILE.LOG,l_code_block);
711: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
712: ELSE
713: add_to_ingredient_list(p_organization_id, l_inventory_item_id, l_item_percent, l_wt_percent);
714: IF l_standalone = 'F' THEN

Line 711: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

707: l_explosion_list(l_maximum_record).quantity := l_item_percent;
708: l_explosion_list(l_maximum_record).weight_pct := l_wt_percent;
709: l_explosion_list(l_maximum_record).parent_formula := EffectiveFormulaRecord.formula_id;
710: FND_FILE.PUT(FND_FILE.LOG,l_code_block);
711: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
712: ELSE
713: add_to_ingredient_list(p_organization_id, l_inventory_item_id, l_item_percent, l_wt_percent);
714: IF l_standalone = 'F' THEN
715: process_concentrations

Line 748: FND_FILE.PUT(FND_FILE.LOG,'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
752: x_return_status := FND_API.G_RET_STS_ERROR;

Line 749: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

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
752: x_return_status := FND_API.G_RET_STS_ERROR;
753: FND_MESSAGE.SET_NAME('GR',

Line 756: FND_FILE.PUT(FND_FILE.LOG,'Item code to explode is null');

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
760: x_return_status := FND_API.G_RET_STS_ERROR;

Line 757: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

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
760: x_return_status := FND_API.G_RET_STS_ERROR;
761: FND_MESSAGE.SET_NAME('GR',

Line 767: FND_FILE.PUT(FND_FILE.LOG,'Invalid system unit of measure');

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
771: x_return_status := FND_API.G_RET_STS_ERROR;

Line 768: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

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
771: x_return_status := FND_API.G_RET_STS_ERROR;
772: FND_MESSAGE.SET_NAME('GR',

Line 778: FND_FILE.PUT(FND_FILE.LOG,'No effective formula for ' || l_item_code);

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
782: x_return_status := FND_API.G_RET_STS_ERROR;

Line 779: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

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
782: x_return_status := FND_API.G_RET_STS_ERROR;
783: FND_MESSAGE.SET_NAME('GR',

Line 789: FND_FILE.PUT(FND_FILE.LOG,'Error finding concentration details for ' || l_item_code);

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
793: x_return_status := FND_API.G_RET_STS_ERROR;

Line 790: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

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
793: x_return_status := FND_API.G_RET_STS_ERROR;
794: FND_MESSAGE.SET_NAME('GR',

Line 800: FND_FILE.PUT(FND_FILE.LOG,'Error clearing concentration detail tables');

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
804: x_return_status := FND_API.G_RET_STS_ERROR;

Line 801: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

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
804: x_return_status := FND_API.G_RET_STS_ERROR;
805: FND_MESSAGE.SET_NAME('GMI',

Line 823: FND_FILE.PUT(FND_FILE.LOG,'Error finding gmd_parameter value for ' || l_parameter_name);

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

Line 824: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

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;

Line 836: FND_FILE.PUT(FND_FILE.LOG,' Others '||sqlerrm);

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;
840: /*

Line 837: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

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;
840: /*
841: **

Line 1186: FND_FILE.PUT(FND_FILE.LOG,l_code_block);

1182: l_item_percent := p_item_percent;
1183: l_det_item_percent := l_item_percent;
1184:
1185: l_code_block := ' Updating Item Concentrations Table';
1186: FND_FILE.PUT(FND_FILE.LOG,l_code_block);
1187: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1188:
1189: GR_INGRED_CONCENTRATIONS_PKG.Check_Primary_Key
1190: (p_organization_id,

Line 1187: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

1183: l_det_item_percent := l_item_percent;
1184:
1185: l_code_block := ' Updating Item Concentrations Table';
1186: FND_FILE.PUT(FND_FILE.LOG,l_code_block);
1187: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1188:
1189: GR_INGRED_CONCENTRATIONS_PKG.Check_Primary_Key
1190: (p_organization_id,
1191: p_inventory_item_id,

Line 1247: FND_FILE.PUT(FND_FILE.LOG,l_code_block);

1243: END IF;
1244: END IF;
1245:
1246: l_code_block := ' Updating Item Concentration Detail Table';
1247: FND_FILE.PUT(FND_FILE.LOG,l_code_block);
1248: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1249:
1250: GR_INGRED_CONC_DETAILS_PKG.Check_Primary_Key
1251: (p_organization_id,

Line 1248: FND_FILE.NEW_LINE(FND_FILE.LOG,1);

1244: END IF;
1245:
1246: l_code_block := ' Updating Item Concentration Detail Table';
1247: FND_FILE.PUT(FND_FILE.LOG,l_code_block);
1248: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1249:
1250: GR_INGRED_CONC_DETAILS_PKG.Check_Primary_Key
1251: (p_organization_id,
1252: p_inventory_item_id,