[Home] [Help]
617: AND organization_id = vOrgn_code_id;
618:
619: BEGIN
620: IF (l_debug = 'Y') THEN
621: gmd_debug.log_initialize('CalcProcessLoss');
622: END IF;
623: /* Initialize the return status and the message list*/
624: x_return_status := 'S';
625: FND_MSG_PUB.initialize;
636: /* Condition when recipe_id is not passed */
637: IF ((NVL(l_recipe_id,0) > 0) AND (l_validity_rule_id IS NULL AND
638: l_formula_id IS NULL)) THEN
639: IF (l_debug = 'Y') THEN
640: gmd_debug.put_line(' Fetching the details using recipe id :'||l_recipe_id);
641: END IF;
642: /* Get the formula and routing information based on the recipe*/
643: OPEN Get_recipe_cur(l_Recipe_id);
644: FETCH Get_recipe_cur
646: CLOSE Get_recipe_cur;
647: l_item_id := process_loss.inventory_item_id;
648: ELSIF ((NVL(l_validity_rule_id, 0) > 0) AND (l_formula_id IS NULL)) THEN
649: IF (l_debug = 'Y') THEN
650: gmd_debug.put_line(' Fetching the details using validity rule id :' ||l_validity_rule_id);
651: END IF;
652: /* Get the formula and routing information based on the validity rule*/
653: OPEN Get_validity_cur(l_validity_rule_id);
654: FETCH Get_validity_cur
676: FND_MSG_PUB.Add;
677: END IF;
678: CLOSE Rout_hdr_cur;
679: IF (l_debug = 'Y') THEN
680: gmd_debug.put_line(' Rout Class:'||l_routing_class ||'Rout Qty:'||l_routing_qty ||' Planned Loss:'||l_routing_planned_loss);
681: END IF;
682: /* If Routing_class is not null then get its uom from fm_rout_cls table */
683: OPEN Rout_cls_cur(l_routing_class);
684: FETCH Rout_cls_cur INTO l_routing_uom;
689: FND_MSG_PUB.Add;
690: END IF;
691: CLOSE Rout_cls_cur;
692: IF (l_debug = 'Y') THEN
693: gmd_debug.put_line(' Routing UOM : '||l_routing_uom);
694: END IF;
695: /* IF routing qty is provided as opposed to the
696: routing_qty stored in the database */
697: IF ((UPPER(Entity_type) = 'ROUTING') AND l_qty > 0) THEN
724: FND_MSG_PUB.Add;
725: END IF;
726: CLOSE process_loss_cur;
727: IF (l_debug = 'Y') THEN
728: gmd_debug.put_line(' Routing Theoretical Loss:'||l_routing_theo_loss);
729: END IF;
730:
731: /* Calculation for recipe theoretical and planned process losses */
732: IF (Upper(Entity_type) <> 'ROUTING') THEN
737: set the proration to 1 */
738: l_routing_prorate_factor := 1;
739: END IF;
740: IF (l_debug = 'Y') THEN
741: gmd_debug.put_line(' Routing pro rate factor :'||l_routing_prorate_factor);
742: END IF;
743: /* Get the total product qty and convert it to routing UOM */
744: /* Are we sure about the total product qty UOM??? */
745: /* Is it the main product UOM ? Or Is it the formula UOM */
798: END IF;
799: close process_loss_cur;
800: END IF; /* recipe qty is < 0 */
801: IF (l_debug = 'Y') THEN
802: gmd_debug.put_line(' Recipe Theoretical Loss1:'||l_recipe_theo_loss);
803: END IF;
804: /* Bug 1683702 - Thomas Daniel */
805: /* Calculation for validity theoretical and planned process losses* */
806: IF (Upper(Entity_type) <> 'RECIPE') THEN
811: /* The planned process loss which should be used will also depend
812: on any process loss entered at the validity rule orgn level */
813: IF l_validity_orgn IS NOT NULL THEN
814: IF (l_debug = 'Y') THEN
815: gmd_debug.put_line(' Checking process loss for orgn:'||l_validity_orgn);
816: END IF;
817: OPEN Get_recipe_orgn_loss (l_recipe_id, l_validity_orgn);
818: FETCH Get_recipe_orgn_loss INTO l_orgn_process_loss;
819: CLOSE Get_recipe_orgn_loss;
831: set the proration to 1 */
832: l_recipe_prorate_factor := l_routing_prorate_factor;
833: END IF;
834: IF (l_debug = 'Y') THEN
835: gmd_debug.put_line(' Recipe prorate factor:'||l_recipe_prorate_factor);
836: END IF;
837: /* Lets check if we have to use the qty passed in or use the qty
838: in the database */
839: IF ((UPPER(Entity_type) = 'VALIDITY') AND l_qty > 0) THEN
855: ,p_std_um => l_validity_um
856: ,x_scale_factor => l_validity_scale_factor
857: ,x_return_status => x_return_status);
858: IF (l_debug = 'Y') THEN
859: gmd_debug.put_line(' Scale factor :'||l_validity_scale_factor);
860: END IF;
861: /* Get the total product qty and convert it to routing UOM */
862: Calculate_total_qty(formula_id => l_formula_id,
863: x_product_qty => l_validity_qty,
868: x_msg_data => x_msg_data,
869: p_scale_factor => l_validity_scale_factor,
870: p_primaries => 'OUTPUTS');
871: IF (l_debug = 'Y') THEN
872: gmd_debug.put_line(' total qty:'||l_validity_qty
873: ||' rout class:'||l_routing_class
874: ||' recipe prorate:'||l_recipe_prorate_factor);
875: END IF;
876: /* Get the theoretical/planned process loss for this recipe qty */
894: /* May be recipe qty caould not calculated */
895: x_process_loss := NULL;
896: END IF; /* validity qty is < 0 */
897: IF (l_debug = 'Y') THEN
898: gmd_debug.put_line(' Theoretical:'||x_recipe_theo_loss||' Planned:'||x_process_loss);
899: END IF;
900: ELSE
901: /* entity type is recipe */
902: x_recipe_theo_loss := l_recipe_theo_loss;
1384: routingstep_id = vRoutingStep_id;
1385:
1386: BEGIN
1387: IF (l_debug = 'Y') THEN
1388: gmd_debug.log_initialize('CalcCharges');
1389: END IF;
1390: /* Initialize variables */
1391: /* Get the Routing Scale Factor */
1392: IF (l_debug = 'Y') THEN
1389: END IF;
1390: /* Initialize variables */
1391: /* Get the Routing Scale Factor */
1392: IF (l_debug = 'Y') THEN
1393: gmd_debug.put_line('In calc_charges proc initializing the variables ');
1394: END IF;
1395: x_return_status := FND_API.g_ret_sts_success;
1396:
1397: /* Get the Routing Scale Factor */
1395: x_return_status := FND_API.g_ret_sts_success;
1396:
1397: /* Get the Routing Scale Factor */
1398: IF (l_debug = 'Y') THEN
1399: gmd_debug.put_line('In calc_charges proc - before calling routing scale fact '
1400: ||Recipe_id);
1401: END IF;
1402: l_rout_scale_factor := Get_Routing_Scale_Factor(vRecipe_Id => Recipe_id,
1403: x_return_status => l_return_status);
1403: x_return_status => l_return_status);
1404:
1405:
1406: IF (l_debug = 'Y') THEN
1407: gmd_debug.put_line('In calc_charges proc - after calling routing scale fact '
1408: ||l_rout_scale_factor||' '||l_return_status);
1409: END IF;
1410:
1411: /* Step1: Get all step details based on the routing_id */
1417: l_step_tbl(l_row).step_qty := Step_qty_rec.qty * NVL(l_rout_scale_factor, 1);
1418: l_step_tbl(l_row).step_qty_uom := Step_qty_rec.step_um;
1419:
1420: IF (l_debug = 'Y') THEN
1421: gmd_debug.put_line('In CalcCharges Proc - the step qty and its uom is '
1422: ||l_step_tbl(l_row).step_qty||' '||l_step_tbl(l_row).step_qty_uom);
1423: END IF;
1424:
1425: /* At Recipe_Routing_Step_level, we store the step qty in three uom */
1442: l_step_tbl(l_row).step_vol_qty := Get_Recipe_Step_rec.volume_qty;
1443: l_step_tbl(l_row).step_vol_uom := Get_Recipe_Step_rec.volume_std_uom;
1444:
1445: IF (l_debug = 'Y') THEN
1446: gmd_debug.put_line('In CalcCharges Proc - the override step qty and its uom is '
1447: ||l_step_tbl(l_row).step_qty||' '||l_step_tbl(l_row).step_qty_uom);
1448: END IF;
1449:
1450: END LOOP; /* End loop when routing step details exists at recipe level */
1459: ,p_step_tbl => l_step_tbl
1460: ,x_charge_tbl => x_charge_tbl
1461: ,x_return_status => x_return_status);
1462: IF (l_debug = 'Y') THEN
1463: gmd_debug.put_line('In CalcCharges Proc - after calling Calc_step_chr '
1464: ||x_return_status);
1465: END IF;
1466: END IF; /* If their are rows in the step table */
1467:
1548: GROUP BY crres.capacity_um;
1549:
1550: BEGIN
1551: IF (l_debug = 'Y') THEN
1552: gmd_debug.put_line('In CalcCharges Step Proc - ');
1553: END IF;
1554: /* Initialize variables */
1555: x_return_status := FND_API.g_ret_sts_success;
1556: FOR i IN 1..P_step_tbl.COUNT LOOP
1582: ,from_name => NULL
1583: ,to_name => NULL);
1584:
1585: IF (l_debug = 'Y') THEN
1586: gmd_debug.put_line('In CalcCharges Step Proc - 1. the max cap and its uom '
1587: ||l_max_capacity||' ' ||l_capacity_uom);
1588: END IF;
1589:
1590: IF (l_max_capacity < 0) THEN
1611: ,to_unit => l_step_qty_uom
1612: ,from_name => NULL
1613: ,to_name => NULL);
1614: IF (l_debug = 'Y') THEN
1615: gmd_debug.put_line('In CalcCharges Step Proc - 2. the max cap and its uom '
1616: ||l_max_capacity||' ' ||l_capacity_uom);
1617: END IF;
1618: END IF; /* when max cap is < 0 */
1619:
1631: ,from_name => NULL
1632: ,to_name => NULL);
1633:
1634: IF (l_debug = 'Y') THEN
1635: gmd_debug.put_line('In CalcCharges Step Proc - 3. the max cap and its uom '
1636: ||l_max_capacity||' ' ||l_capacity_uom);
1637: END IF;
1638: END IF; /* when max cap is < 0 */
1639:
1637: END IF;
1638: END IF; /* when max cap is < 0 */
1639:
1640: IF (l_debug = 'Y') THEN
1641: gmd_debug.put_line('In CalcCharges Step Proc - 4. the max cap and step_qty '
1642: ||l_max_capacity||' ' ||l_step_qty);
1643: END IF;
1644: /* Calculations after step qty and UOM is found */
1645: IF ((l_step_qty > 0) AND (l_max_capacity > 0)) THEN
1772: AND organization_id = vOwner_orgn_id;
1773:
1774: BEGIN
1775: IF (l_debug = 'Y') THEN
1776: gmd_debug.put_line('In GMD_COMMON_VAL.UPDATE_ALLOWED - '
1777: ||' Entity = '||Entity||' and Entity id = '
1778: ||Entity_id);
1779: END IF;
1780: IF (Entity = 'FORMULA') THEN