DBA Data[Home] [Help]

APPS.BOM_VALIDATE_SUB_OP_RES dependencies on BOM_RTG_GLOBALS

Line 159: l_lot_number := BOM_Rtg_Globals.Get_Lot_Number;

155:
156: BEGIN
157:
158:
159: l_lot_number := BOM_Rtg_Globals.Get_Lot_Number;
160: l_from_wip_entity_id := BOM_Rtg_Globals.Get_From_Wip_Entity_Id;
161: l_to_wip_entity_id := BOM_Rtg_Globals.Get_To_Wip_Entity_Id;
162: l_from_cum_qty := BOM_Rtg_Globals.Get_From_Cum_Qty;
163:

Line 160: l_from_wip_entity_id := BOM_Rtg_Globals.Get_From_Wip_Entity_Id;

156: BEGIN
157:
158:
159: l_lot_number := BOM_Rtg_Globals.Get_Lot_Number;
160: l_from_wip_entity_id := BOM_Rtg_Globals.Get_From_Wip_Entity_Id;
161: l_to_wip_entity_id := BOM_Rtg_Globals.Get_To_Wip_Entity_Id;
162: l_from_cum_qty := BOM_Rtg_Globals.Get_From_Cum_Qty;
163:
164:

Line 161: l_to_wip_entity_id := BOM_Rtg_Globals.Get_To_Wip_Entity_Id;

157:
158:
159: l_lot_number := BOM_Rtg_Globals.Get_Lot_Number;
160: l_from_wip_entity_id := BOM_Rtg_Globals.Get_From_Wip_Entity_Id;
161: l_to_wip_entity_id := BOM_Rtg_Globals.Get_To_Wip_Entity_Id;
162: l_from_cum_qty := BOM_Rtg_Globals.Get_From_Cum_Qty;
163:
164:
165: -- Check if Op Seq Num is exist in ECO by Lot

Line 162: l_from_cum_qty := BOM_Rtg_Globals.Get_From_Cum_Qty;

158:
159: l_lot_number := BOM_Rtg_Globals.Get_Lot_Number;
160: l_from_wip_entity_id := BOM_Rtg_Globals.Get_From_Wip_Entity_Id;
161: l_to_wip_entity_id := BOM_Rtg_Globals.Get_To_Wip_Entity_Id;
162: l_from_cum_qty := BOM_Rtg_Globals.Get_From_Cum_Qty;
163:
164:
165: -- Check if Op Seq Num is exist in ECO by Lot
166: IF l_lot_number IS NOT NULL

Line 439: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO

435: x_return_status := FND_API.G_RET_STS_ERROR ;
436: END LOOP ;
437:
438: /*
439: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
440: THEN
441: null; -- Substitute resources cannot be added from ECOs
442: END IF ;
443: */

Line 669: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND

665: , x_mesg_token_tbl => l_mesg_token_tbl
666: , x_return_status => l_return_status
667: ) ;
668:
669: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND
670: p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
671: THEN
672: Error_Handler.Add_Error_Token
673: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl

Line 670: p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE

666: , x_return_status => l_return_status
667: ) ;
668:
669: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND
670: p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
671: THEN
672: Error_Handler.Add_Error_Token
673: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
674: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 680: ELSIF l_return_status = BOM_Rtg_Globals.G_RECORD_NOT_FOUND AND

676: , p_token_tbl => l_token_tbl
677: ) ;
678: l_return_status := FND_API.G_RET_STS_ERROR ;
679:
680: ELSIF l_return_status = BOM_Rtg_Globals.G_RECORD_NOT_FOUND AND
681: p_rev_sub_resource_rec.transaction_type IN
682: (BOM_Rtg_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE)
683: THEN
684: Error_Handler.Add_Error_Token

Line 682: (BOM_Rtg_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE)

678: l_return_status := FND_API.G_RET_STS_ERROR ;
679:
680: ELSIF l_return_status = BOM_Rtg_Globals.G_RECORD_NOT_FOUND AND
681: p_rev_sub_resource_rec.transaction_type IN
682: (BOM_Rtg_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE)
683: THEN
684: Error_Handler.Add_Error_Token
685: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
686: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 806: IF p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE

802: --
803: -- Check if the user is trying to update a record with
804: -- missing value when the column value is required.
805: --
806: IF p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
807: THEN
808:
809: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
810: ('Sub Operation Resource Attr Validation: Missing Value. . . ' ) ;

Line 809: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

805: --
806: IF p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
807: THEN
808:
809: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
810: ('Sub Operation Resource Attr Validation: Missing Value. . . ' ) ;
811: END IF;
812:
813: -- New Sub Resource Code

Line 959: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

955: -- Check if the user is trying to create/update a record with
956: -- invalid value.
957: --
958:
959: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
960: ('Sub Operation Resource Attr Validation: Invalid Value. . . ' || l_return_status) ;
961: END IF;
962:
963:

Line 967: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO

963:
964: -- New Sub Resource Code
965: IF p_rev_sub_resource_rec.new_sub_resource_code IS NOT NULL
966: AND p_rev_sub_resource_rec.new_sub_resource_code <> FND_API.G_MISS_CHAR
967: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
968: THEN
969: Error_Handler.Add_Error_Token
970: ( p_Message_Name => 'BOM_SUB_RES_CODE_NOTUPDATE'
971: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 980: IF p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE

976: END IF ;
977:
978:
979: -- Replacement Group Num
980: IF p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
981: AND (p_rev_sub_resource_rec.replacement_group_number IS NULL
982: OR p_rev_sub_resource_rec.replacement_group_number = FND_API.G_MISS_NUM)
983: THEN
984: Error_Handler.Add_Error_Token

Line 1148: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO

1144: -- ACD Type
1145: IF p_rev_sub_resource_rec.acd_type IS NOT NULL
1146: AND p_rev_sub_resource_rec.acd_type NOT IN
1147: (l_ACD_ADD, l_ACD_DISABLE)
1148: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
1149: THEN
1150:
1151: l_token_tbl(2).token_name := 'ACD_TYPE';
1152: l_token_tbl(2).token_value := p_rev_sub_resource_rec.acd_type;

Line 1164: IF (p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE

1160: l_return_status := FND_API.G_RET_STS_ERROR ;
1161: END IF ;
1162:
1163: -- Schedule Sequence Number
1164: IF (p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
1165: AND p_rev_sub_resource_rec.schedule_sequence_number IS NULL)
1166: OR (p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
1167: AND p_rev_sub_resource_rec.schedule_sequence_number = FND_API.G_MISS_NUM)
1168: OR p_rev_sub_resource_rec.schedule_sequence_number = 0

Line 1166: OR (p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE

1162:
1163: -- Schedule Sequence Number
1164: IF (p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
1165: AND p_rev_sub_resource_rec.schedule_sequence_number IS NULL)
1166: OR (p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
1167: AND p_rev_sub_resource_rec.schedule_sequence_number = FND_API.G_MISS_NUM)
1168: OR p_rev_sub_resource_rec.schedule_sequence_number = 0
1169: THEN
1170: Error_Handler.Add_Error_Token

Line 1180: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1176: l_return_status := FND_API.G_RET_STS_ERROR ;
1177: END IF;
1178:
1179: -- Done validating attributes
1180: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1181: ('Sub Operation Resource Attr Validation completed with return_status: ' || l_return_status) ;
1182: END IF;
1183:
1184: x_return_status := l_return_status;

Line 1189: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1185: x_mesg_token_tbl := l_Mesg_Token_Tbl;
1186:
1187: EXCEPTION
1188: WHEN OTHERS THEN
1189: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1190: ('Some unknown error in Attribute Validation . . .' || SQLERRM );
1191: END IF ;
1192:
1193:

Line 1401: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1397: l_rev_sub_res_unexp_rec := p_rev_sub_res_unexp_rec ;
1398: l_return_status := FND_API.G_RET_STS_SUCCESS;
1399: x_return_status := FND_API.G_RET_STS_SUCCESS;
1400:
1401: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1402: ('Performing Sub Op Resource Check Entitity Validation . . .') ;
1403: END IF ;
1404:
1405: --

Line 1420: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1416: -- The ECO can be updated but a warning needs to be generated and
1417: -- scheduled revised items need to be update to Open
1418: -- and the ECO status need to be changed to Not Submitted for Approval
1419:
1420: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1421: ('Check if ECO has been approved and has a workflow process. . . ' || l_return_status) ;
1422: END IF ;
1423:
1424: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO

Line 1424: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO

1420: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1421: ('Check if ECO has been approved and has a workflow process. . . ' || l_return_status) ;
1422: END IF ;
1423:
1424: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
1425: THEN
1426: BOM_Rtg_Globals.Check_Approved_For_Process
1427: ( p_change_notice => l_rev_sub_resource_rec.eco_name
1428: , p_organization_id => l_rev_sub_res_unexp_rec.organization_id

Line 1426: BOM_Rtg_Globals.Check_Approved_For_Process

1422: END IF ;
1423:
1424: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
1425: THEN
1426: BOM_Rtg_Globals.Check_Approved_For_Process
1427: ( p_change_notice => l_rev_sub_resource_rec.eco_name
1428: , p_organization_id => l_rev_sub_res_unexp_rec.organization_id
1429: , x_processed => l_eco_processed
1430: , x_err_text => l_err_text

Line 1435: BOM_Rtg_Globals.Set_Request_For_Approval

1431: ) ;
1432:
1433: IF l_eco_processed THEN
1434: -- If the above process returns true then set the ECO approval.
1435: BOM_Rtg_Globals.Set_Request_For_Approval
1436: ( p_change_notice => l_rev_sub_resource_rec.eco_name
1437: , p_organization_id => l_rev_sub_res_unexp_rec.organization_id
1438: , x_err_text => l_err_text
1439: ) ;

Line 1448: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO

1444:
1445: --
1446: -- Performing Entity Validation in Revised Sub Op Resource(ECO BO)
1447: --
1448: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
1449: THEN
1450: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1451: ('Performing Entitity Validation for Eco Routing :ACD Type. . .') ;
1452: END IF ;

Line 1450: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1446: -- Performing Entity Validation in Revised Sub Op Resource(ECO BO)
1447: --
1448: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
1449: THEN
1450: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1451: ('Performing Entitity Validation for Eco Routing :ACD Type. . .') ;
1452: END IF ;
1453:
1454: --

Line 1459: IF l_rev_sub_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE

1455: -- ACD Type
1456: -- If the Transaction Type is CREATE and the ACD_Type = Disable, then
1457: -- the sub operation resource should already exist for the revised operation.
1458: --
1459: IF l_rev_sub_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
1460: AND ( NVL(l_rev_sub_resource_rec.acd_type,l_ACD_ADD ) = l_ACD_DISABLE )
1461: THEN
1462:
1463: FOR l_disable_subres_exist_rec IN l_disable_subres_exist_csr -- add replacement_group_num to this check??

Line 1492: IF l_rev_sub_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE

1488: -- operation is Add then,the ACD_Type must be Add.
1489: -- Call BOM_Validate_Op_Res.Get_Rev_Op_ACD(p_op_seq_id to get parent revised
1490: -- operation's ACD Type
1491: --
1492: IF l_rev_sub_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
1493: THEN
1494: IF
1495: l_ACD_ADD =
1496: BOM_Validate_Op_Res.Get_Rev_Op_ACD(p_op_seq_id

Line 1519: IF l_rev_sub_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE

1515:
1516: --
1517: -- For UPDATE, ACD Type not updateable
1518: --
1519: IF l_rev_sub_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE
1520: AND l_rev_sub_resource_rec.acd_type <> p_old_rev_sub_resource_rec.acd_type
1521: THEN
1522: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1523: THEN

Line 1539: IF l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE

1535: --
1536: -- Verify the ECO by WO Effectivity, If ECO by WO, Lot Num, Or Cum Qty, then
1537: -- Check if the operation resource exist in the WO or Lot Num.
1538: --
1539: IF l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
1540: THEN
1541: IF NOT Check_ECO_By_WO_Effectivity
1542: ( p_revised_item_sequence_id => l_rev_sub_res_unexp_rec.revised_item_sequence_id
1543: , p_operation_seq_num => l_rev_sub_resource_rec.operation_sequence_number

Line 1579: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN

1575: END IF ; -- ECO BO Validation
1576:
1577:
1578: -- Validation for Assigned Units
1579: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1580: Error_Handler.Write_Debug ('Validating the Assigned Units for a Batchable Alternate Resource . . .') ;
1581: END IF;
1582:
1583: IF l_rev_sub_resource_rec.Transaction_Type IN

Line 1584: (BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE)

1580: Error_Handler.Write_Debug ('Validating the Assigned Units for a Batchable Alternate Resource . . .') ;
1581: END IF;
1582:
1583: IF l_rev_sub_resource_rec.Transaction_Type IN
1584: (BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE)
1585: THEN
1586: --
1587: -- APS Enhancement for Routings.
1588: -- Verify that if a resource has setups defined, or is Batchable then

Line 1620: IF l_rev_sub_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE

1616: --
1617: -- For UPDATE
1618: -- Validation specific to the Transaction Type of Update
1619: --
1620: IF l_rev_sub_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE
1621:
1622: -- In this release, Acd type : Change is not allowed.
1623: --
1624: -- OR

Line 1625: -- (l_rev_sub_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE

1621:
1622: -- In this release, Acd type : Change is not allowed.
1623: --
1624: -- OR
1625: -- (l_rev_sub_resource_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
1626: -- AND l_rev_sub_resource_rec.acd_type = l_ACD_CHANGE
1627: -- )
1628: THEN
1629: NULL ;

Line 1633: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1629: NULL ;
1630: END IF ; -- Transation: UPDATE
1631:
1632:
1633: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1634: ('End of Validation specific to the Transaction Type of Update' || l_return_status) ;
1635: END IF ;
1636:
1637: --

Line 1641: ( BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE )

1637: --
1638: -- Validation for Transaction Type : Create and Update
1639: --
1640: IF l_rev_sub_resource_rec.transaction_type IN
1641: ( BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE )
1642: THEN
1643:
1644: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1645: ('Common Validateion for Transaction Type : Create and Update . . . . ' || l_return_status) ;

Line 1644: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1640: IF l_rev_sub_resource_rec.transaction_type IN
1641: ( BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE )
1642: THEN
1643:
1644: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1645: ('Common Validateion for Transaction Type : Create and Update . . . . ' || l_return_status) ;
1646: END IF ;
1647:
1648: --

Line 1655: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )

1651: -- Call BOM_Validate_Op_Res.Val_Resource_Id
1652: --
1653:
1654: IF ( ( NVL(l_rev_sub_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
1655: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
1656: OR l_rev_sub_res_unexp_rec.resource_id <>
1657: NVL(l_rev_sub_res_unexp_rec.new_resource_id, l_rev_sub_res_unexp_rec.resource_id )
1658: )
1659: THEN

Line 1685: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1681: END IF ;
1682:
1683: l_return_status := FND_API.G_RET_STS_ERROR ;
1684:
1685: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1686: ('Check if Resource is enabled. . . . ' || l_return_status) ;
1687: END IF ;
1688:
1689: END IF ;

Line 1696: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )

1692: --
1693: -- Check Uniqueness of Sub Op Resource Record
1694: --
1695: IF ( ( NVL(l_rev_sub_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
1696: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
1697: OR l_rev_sub_res_unexp_rec.resource_id <>
1698: NVL(l_rev_sub_res_unexp_rec.new_resource_id, l_rev_sub_res_unexp_rec.resource_id )
1699: OR l_rev_sub_resource_rec.replacement_Group_number <> -- bug 3741570
1700: NVL(l_rev_sub_resource_rec.new_replacement_Group_number, l_rev_sub_resource_rec.replacement_Group_number)

Line 1705: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO

1701: OR l_rev_sub_resource_rec.basis_type <>
1702: NVL(l_rev_sub_resource_rec.new_basis_type, l_rev_sub_resource_rec.basis_type)
1703: )
1704: THEN
1705: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO
1706: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
1707: THEN
1708:
1709: FOR l_duplicate_rec IN l_duplicate_csr

Line 1706: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE

1702: NVL(l_rev_sub_resource_rec.new_basis_type, l_rev_sub_resource_rec.basis_type)
1703: )
1704: THEN
1705: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO
1706: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
1707: THEN
1708:
1709: FOR l_duplicate_rec IN l_duplicate_csr
1710: ( p_resource_id => NVL(l_rev_sub_res_unexp_rec.new_resource_id,

Line 1746: ELSIF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO

1742: l_Token_Tbl(1).token_value :=
1743: p_rev_sub_resource_rec.sub_resource_code ;
1744: l_token_tbl.delete(3) ;
1745: END LOOP ;
1746: ELSIF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
1747: THEN
1748: l_old_op_seq_id := Get_Old_Op_Seq_Id
1749: (p_op_seq_id =>
1750: l_rev_sub_res_unexp_rec.operation_sequence_id ) ;

Line 1807: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1803: END IF;
1804:
1805: END IF ;
1806:
1807: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1808: ('Check uniquness of Sub Op Resource Record. . . . ' || l_return_status) ;
1809: END IF ;
1810:
1811: END IF ;

Line 1819: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )

1815: -- Check if Activity is enabled
1816: -- BOM_Validate_Op_Res.Val_Activity_Id
1817: --
1818: IF ( ( NVL(l_rev_sub_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
1819: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
1820: OR NVL(l_rev_sub_res_unexp_rec.activity_id, FND_API.G_MISS_NUM)
1821: <> NVL(p_old_rev_sub_res_unexp_rec.activity_id, FND_API.G_MISS_NUM)
1822: )
1823: AND ( l_rev_sub_res_unexp_rec.activity_id IS NOT NULL AND

Line 1827: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1823: AND ( l_rev_sub_res_unexp_rec.activity_id IS NOT NULL AND
1824: l_rev_sub_res_unexp_rec.activity_id <> FND_API.G_MISS_NUM )
1825: THEN
1826:
1827: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1828: ('Activity_Id : ' || to_char(l_rev_sub_res_unexp_rec.activity_id)) ;
1829: END IF ;
1830:
1831:

Line 1856: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1852: l_return_status := FND_API.G_RET_STS_ERROR ;
1853:
1854: END IF ;
1855:
1856: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1857: ('Check if Activity is enabled. . . . ' || l_return_status) ;
1858: END IF ;
1859:
1860: END IF ;

Line 1869: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )

1865: -- Check if Activity is enabled
1866: -- BOM_Validate_Op_Res.Val_Activity_Id
1867: --
1868: IF ( ( NVL(l_rev_sub_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
1869: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
1870: OR NVL(l_rev_sub_res_unexp_rec.setup_Id , FND_API.G_MISS_NUM)
1871: <> NVL(p_old_rev_sub_res_unexp_rec.setup_id, FND_API.G_MISS_NUM)
1872: )
1873: AND ( l_rev_sub_res_unexp_rec.setup_id IS NOT NULL AND

Line 1877: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1873: AND ( l_rev_sub_res_unexp_rec.setup_id IS NOT NULL AND
1874: l_rev_sub_res_unexp_rec.setup_Id <> FND_API.G_MISS_NUM )
1875: THEN
1876:
1877: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1878: ('Setup_Id : ' || to_char(l_rev_sub_res_unexp_rec.setup_id )) ;
1879: END IF ;
1880:
1881:

Line 1915: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1911: l_return_status := FND_API.G_RET_STS_ERROR ;
1912:
1913: END IF ;
1914:
1915: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1916: ('Check if Setup is enabled. . . . ' || l_return_status) ;
1917: END IF ;
1918:
1919: END IF ;

Line 1977: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1973: l_return_status := FND_API.G_RET_STS_ERROR ;
1974:
1975: END IF ;
1976:
1977: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1978: ('Check if schedule flag is valid. . . . ' || l_return_status) ;
1979: END IF ;
1980:
1981: END IF ;

Line 1993: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )

1989: -- and cannot have more than one next or prior sheduled sub resource
1990: -- whitin substitute group num.
1991: --
1992: IF ( ( NVL(l_rev_sub_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
1993: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
1994: OR l_rev_sub_resource_rec.schedule_flag
1995: <> p_old_rev_sub_resource_rec.schedule_flag
1996: )
1997: THEN

Line 2059: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

2055: l_return_status := FND_API.G_RET_STS_ERROR ;
2056:
2057: END IF ;
2058:
2059: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2060: ('Check next or prior scheduled resource. . . . ' || l_return_status) ;
2061: END IF ;
2062:
2063: END IF ;

Line 2074: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )

2070: -- department has no location.
2071: -- Call BOM_Validate_Op_Res.Val_Dept_Has_Location
2072: --
2073: IF ( ( NVL(l_rev_sub_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2074: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2075: OR l_rev_sub_resource_rec.autocharge_type <> p_old_rev_sub_resource_rec.autocharge_type
2076: )
2077: AND l_rev_sub_resource_rec.autocharge_type = l_PO_RECEIPT
2078: THEN

Line 2102: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

2098: l_return_status := FND_API.G_RET_STS_ERROR ;
2099:
2100: END IF ;
2101:
2102: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2103: ('Check if Dept has a location for PO Receipt Res. . . . ' || l_return_status) ;
2104: END IF ;
2105:
2106: END IF ;

Line 2116: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )

2112: -- is non-OSP resource
2113: -- Call BOM_Validate_Op_Res.Val_Autocharge_for_OSP_Res
2114: --
2115: IF ( ( NVL(l_rev_sub_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2116: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2117: OR l_rev_sub_resource_rec.autocharge_type <> p_old_rev_sub_resource_rec.autocharge_type
2118: )
2119: AND l_rev_sub_resource_rec.autocharge_type IN (l_PO_RECEIPT, l_PO_MOVE )
2120: THEN

Line 2147: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

2143: l_return_status := FND_API.G_RET_STS_ERROR ;
2144:
2145: END IF ;
2146:
2147: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2148: ('Check if resource is OSP resource when autocharge is PO Move or PO Receipt. . . . ' || l_return_status) ;
2149: END IF ;
2150:
2151: END IF ;

Line 2160: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )

2156: -- Hence, there must be related PO Move resource in operation resource
2157: -- and cannot have more than one PO Move whitin substitute group num.
2158: --
2159: IF ( ( NVL(l_rev_sub_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2160: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2161: OR l_rev_sub_resource_rec.autocharge_type <> p_old_rev_sub_resource_rec.autocharge_type
2162: )
2163: AND l_rev_sub_resource_rec.autocharge_type = l_PO_MOVE
2164: THEN

Line 2192: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

2188:
2189: l_return_status := FND_API.G_RET_STS_ERROR ;
2190: END IF ;
2191:
2192: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2193: ('Check if Autocharge Type is enabled. . . . ' || l_return_status) ;
2194: END IF ;
2195:
2196:

Line 2206: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )

2202: -- Check round values for Usage Rate or Amount and the Inverse.
2203: -- Call BOM_Validate_Op_Res.Val_Usage_Rate_or_Amount
2204: --
2205: IF ( ( NVL(l_rev_sub_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2206: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2207: OR l_rev_sub_resource_rec.usage_rate_or_amount
2208: <> p_old_rev_sub_resource_rec.usage_rate_or_amount
2209: OR l_rev_sub_resource_rec.usage_rate_or_amount_inverse
2210: <> p_old_rev_sub_resource_rec.usage_rate_or_amount_inverse

Line 2238: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

2234: l_return_status := FND_API.G_RET_STS_ERROR ;
2235:
2236: END IF ;
2237:
2238: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2239: ('Check round value for Usage Rate or Amount and the Inverse . . . ' || l_return_status) ;
2240: END IF ;
2241:
2242: END IF ;

Line 2255: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )

2251: -- Form allows No.3
2252: --
2253:
2254: IF ( ( NVL(l_rev_sub_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2255: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2256: OR l_rev_sub_resource_rec.usage_rate_or_amount
2257: <> p_old_rev_sub_resource_rec.usage_rate_or_amount
2258: OR l_rev_sub_resource_rec.usage_rate_or_amount_inverse
2259: <> p_old_rev_sub_resource_rec.usage_rate_or_amount_inverse

Line 2307: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

2303: l_return_status := FND_API.G_RET_STS_ERROR ;
2304:
2305: END IF ;
2306:
2307: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2308: ('Check negative usage rate. . . . ' || l_return_status) ;
2309: END IF ;
2310:
2311: END IF ;

Line 2320: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )

2316: --
2317: /* Added by deepu. Validation for Principal flag is required for patchset I Bug 2689249*/
2318:
2319: IF ( ( NVL(l_rev_sub_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2320: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2321: OR l_rev_sub_resource_rec.principle_flag
2322: <> p_old_rev_sub_resource_rec.principle_flag
2323: OR l_rev_sub_resource_rec.replacement_group_number
2324: <> p_old_rev_sub_resource_rec.replacement_group_number

Line 2358: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

2354: l_return_status := FND_API.G_RET_STS_ERROR ;
2355:
2356: END IF ;
2357:
2358: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2359: ('Check principal flag . . . . ' || l_return_status) ;
2360: END IF ;
2361:
2362: END IF ;

Line 2372: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )

2368:
2369: IF ( l_rev_sub_resource_rec.schedule_flag <> l_NO_SCHEDULE)
2370: AND
2371: ( ( NVL(l_rev_sub_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2372: AND l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2373: OR l_rev_sub_resource_rec.schedule_sequence_number <> p_old_rev_sub_resource_rec.schedule_sequence_number
2374: OR l_rev_sub_resource_rec.schedule_flag <> p_old_rev_sub_resource_rec.schedule_flag
2375: )
2376: THEN

Line 2429: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

2425:
2426: END IF ; -- Transaction Type : Create and Update
2427:
2428:
2429: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2430: ('Entity Validation was processed. . . ' || l_return_status);
2431: END IF ;
2432:
2433:

Line 2450: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

2446:
2447:
2448: EXCEPTION
2449: WHEN OTHERS THEN
2450: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2451: ('Some unknown error in Entity Validation . . .' || SQLERRM );
2452: END IF ;
2453:
2454: