[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;
1333: routingstep_id = vRoutingStep_id;
1334:
1335: BEGIN
1336: IF (l_debug = 'Y') THEN
1337: gmd_debug.log_initialize('CalcCharges');
1338: END IF;
1339: /* Initialize variables */
1340: /* Get the Routing Scale Factor */
1341: IF (l_debug = 'Y') THEN
1338: END IF;
1339: /* Initialize variables */
1340: /* Get the Routing Scale Factor */
1341: IF (l_debug = 'Y') THEN
1342: gmd_debug.put_line('In calc_charges proc initializing the variables ');
1343: END IF;
1344: x_return_status := FND_API.g_ret_sts_success;
1345:
1346: /* Get the Routing Scale Factor */
1344: x_return_status := FND_API.g_ret_sts_success;
1345:
1346: /* Get the Routing Scale Factor */
1347: IF (l_debug = 'Y') THEN
1348: gmd_debug.put_line('In calc_charges proc - before calling routing scale fact '
1349: ||Recipe_id);
1350: END IF;
1351: l_rout_scale_factor := Get_Routing_Scale_Factor(vRecipe_Id => Recipe_id,
1352: x_return_status => l_return_status);
1352: x_return_status => l_return_status);
1353:
1354:
1355: IF (l_debug = 'Y') THEN
1356: gmd_debug.put_line('In calc_charges proc - after calling routing scale fact '
1357: ||l_rout_scale_factor||' '||l_return_status);
1358: END IF;
1359:
1360: /* Step1: Get all step details based on the routing_id */
1366: l_step_tbl(l_row).step_qty := Step_qty_rec.qty * NVL(l_rout_scale_factor, 1);
1367: l_step_tbl(l_row).step_qty_uom := Step_qty_rec.step_um;
1368:
1369: IF (l_debug = 'Y') THEN
1370: gmd_debug.put_line('In CalcCharges Proc - the step qty and its uom is '
1371: ||l_step_tbl(l_row).step_qty||' '||l_step_tbl(l_row).step_qty_uom);
1372: END IF;
1373:
1374: /* At Recipe_Routing_Step_level, we store the step qty in three uom */
1391: l_step_tbl(l_row).step_vol_qty := Get_Recipe_Step_rec.volume_qty;
1392: l_step_tbl(l_row).step_vol_uom := Get_Recipe_Step_rec.volume_std_uom;
1393:
1394: IF (l_debug = 'Y') THEN
1395: gmd_debug.put_line('In CalcCharges Proc - the override step qty and its uom is '
1396: ||l_step_tbl(l_row).step_qty||' '||l_step_tbl(l_row).step_qty_uom);
1397: END IF;
1398:
1399: END LOOP; /* End loop when routing step details exists at recipe level */
1408: ,p_step_tbl => l_step_tbl
1409: ,x_charge_tbl => x_charge_tbl
1410: ,x_return_status => x_return_status);
1411: IF (l_debug = 'Y') THEN
1412: gmd_debug.put_line('In CalcCharges Proc - after calling Calc_step_chr '
1413: ||x_return_status);
1414: END IF;
1415: END IF; /* If their are rows in the step table */
1416:
1497: GROUP BY crres.capacity_um;
1498:
1499: BEGIN
1500: IF (l_debug = 'Y') THEN
1501: gmd_debug.put_line('In CalcCharges Step Proc - ');
1502: END IF;
1503: /* Initialize variables */
1504: x_return_status := FND_API.g_ret_sts_success;
1505: FOR i IN 1..P_step_tbl.COUNT LOOP
1531: ,from_name => NULL
1532: ,to_name => NULL);
1533:
1534: IF (l_debug = 'Y') THEN
1535: gmd_debug.put_line('In CalcCharges Step Proc - 1. the max cap and its uom '
1536: ||l_max_capacity||' ' ||l_capacity_uom);
1537: END IF;
1538:
1539: IF (l_max_capacity < 0) THEN
1560: ,to_unit => l_step_qty_uom
1561: ,from_name => NULL
1562: ,to_name => NULL);
1563: IF (l_debug = 'Y') THEN
1564: gmd_debug.put_line('In CalcCharges Step Proc - 2. the max cap and its uom '
1565: ||l_max_capacity||' ' ||l_capacity_uom);
1566: END IF;
1567: END IF; /* when max cap is < 0 */
1568:
1580: ,from_name => NULL
1581: ,to_name => NULL);
1582:
1583: IF (l_debug = 'Y') THEN
1584: gmd_debug.put_line('In CalcCharges Step Proc - 3. the max cap and its uom '
1585: ||l_max_capacity||' ' ||l_capacity_uom);
1586: END IF;
1587: END IF; /* when max cap is < 0 */
1588:
1586: END IF;
1587: END IF; /* when max cap is < 0 */
1588:
1589: IF (l_debug = 'Y') THEN
1590: gmd_debug.put_line('In CalcCharges Step Proc - 4. the max cap and step_qty '
1591: ||l_max_capacity||' ' ||l_step_qty);
1592: END IF;
1593: /* Calculations after step qty and UOM is found */
1594: IF ((l_step_qty > 0) AND (l_max_capacity > 0)) THEN
1721: AND organization_id = vOwner_orgn_id;
1722:
1723: BEGIN
1724: IF (l_debug = 'Y') THEN
1725: gmd_debug.put_line('In GMD_COMMON_VAL.UPDATE_ALLOWED - '
1726: ||' Entity = '||Entity||' and Entity id = '
1727: ||Entity_id);
1728: END IF;
1729: IF (Entity = 'FORMULA') THEN