[Home] [Help]
423: AND br.resource_id = p_resource_id ) ;
424:
425: BEGIN
426:
427: x_return_status := FND_API.G_RET_STS_SUCCESS ;
428: FOR l_resource_rec IN l_resource_csr( p_resource_id
429: , p_op_seq_id )
430: LOOP
431: x_return_status := FND_API.G_RET_STS_ERROR ;
427: x_return_status := FND_API.G_RET_STS_SUCCESS ;
428: FOR l_resource_rec IN l_resource_csr( p_resource_id
429: , p_op_seq_id )
430: LOOP
431: x_return_status := FND_API.G_RET_STS_ERROR ;
432: END LOOP ;
433:
434: END Val_Resource_Id ;
435:
460: AND ca.activity_id = p_activity_id ) ;
461:
462: BEGIN
463:
464: x_return_status := FND_API.G_RET_STS_SUCCESS ;
465: FOR l_activity_rec IN l_activity_csr( p_activity_id
466: , p_op_seq_id )
467: LOOP
468: x_return_status := FND_API.G_RET_STS_ERROR ;
464: x_return_status := FND_API.G_RET_STS_SUCCESS ;
465: FOR l_activity_rec IN l_activity_csr( p_activity_id
466: , p_op_seq_id )
467: LOOP
468: x_return_status := FND_API.G_RET_STS_ERROR ;
469: END LOOP ;
470:
471: END Val_Activity_Id ;
472:
499: ) ;
500:
501: BEGIN
502:
503: x_return_status := FND_API.G_RET_STS_SUCCESS ;
504: FOR l_setup_rec IN l_setup_csr
505: ( p_setup_id
506: , p_resource_id
507: , p_organization_id
506: , p_resource_id
507: , p_organization_id
508: )
509: LOOP
510: x_return_status := FND_API.G_RET_STS_ERROR ;
511: END LOOP ;
512:
513: END Val_Setup_Id ;
514:
532: -- Bug 2624883
533:
534: BEGIN
535:
536: x_return_status := FND_API.G_RET_STS_SUCCESS ;
537:
538: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
539: Error_Handler.Write_Debug ('Usage : ' || to_char(p_usage_rate_or_amount) );
540: Error_Handler.Write_Debug ('Usage Inv : ' || to_char(p_usage_rate_or_amount_inverse ) );
570: NULL;
571: ELSIF (p_usage_rate_or_amount = 0 AND
572: p_usage_rate_or_amount_inverse <> 0)
573: THEN
574: x_return_status := FND_API.G_RET_STS_ERROR ;
575: ELSIF (p_usage_rate_or_amount_inverse = 0 AND
576: p_usage_rate_or_amount <> 0)
577: THEN
578: x_return_status := FND_API.G_RET_STS_ERROR ;
574: x_return_status := FND_API.G_RET_STS_ERROR ;
575: ELSIF (p_usage_rate_or_amount_inverse = 0 AND
576: p_usage_rate_or_amount <> 0)
577: THEN
578: x_return_status := FND_API.G_RET_STS_ERROR ;
579: ELSIF (round(p_usage_rate_or_amount,G_round_off_val) <> x_usage_inv_resiprocal) /* Bug 7322996 */
580: and
581: (x_usage_resiprocal <> round(p_usage_rate_or_amount_inverse,G_round_off_val)) /* Bug 7322996 */
582: THEN
579: ELSIF (round(p_usage_rate_or_amount,G_round_off_val) <> x_usage_inv_resiprocal) /* Bug 7322996 */
580: and
581: (x_usage_resiprocal <> round(p_usage_rate_or_amount_inverse,G_round_off_val)) /* Bug 7322996 */
582: THEN
583: x_return_status := FND_API.G_RET_STS_ERROR ;
584:
585: END IF;
586: /*
587: x_usage := ROUND(p_usage_rate_or_amount, 6) ;
611: IF NOT l_temp_status
612: AND x_usage_inverse = 0
613: AND p_usage_rate_or_amount <> 0
614: THEN
615: x_return_status := FND_API.G_RET_STS_ERROR ;
616:
617: --
618: -- Usate Rate or Amound and Inverse 's length is 42 in FORM
619: --
623: <> to_number(SUBSTR(to_char(x_usage_inverse), 1, 42))
624: OR p_usage_rate_or_amount
625: <> to_number( SUBSTR(to_char(ROUND( 1/ x_usage_inverse , 6 )), 1, 42 ))
626: THEN
627: x_return_status := FND_API.G_RET_STS_ERROR ;
628: END IF ;
629:
630: END IF ;
631: */
633: -- Check usage rate and usage rate inverse
634: IF p_usage_rate_or_amount <> 0 THEN
635: IF ROUND(p_usage_rate_or_amount, 6) <>
636: ROUND((1 / p_usage_rate_or_amount_inverse), 6) THEN
637: x_return_status := FND_API.G_RET_STS_ERROR ;
638: END IF ;
639: ELSIF p_usage_rate_or_amount = 0 then
640: IF p_usage_rate_or_amount_inverse <> 0 THEN
641: x_return_status := FND_API.G_RET_STS_ERROR ;
637: x_return_status := FND_API.G_RET_STS_ERROR ;
638: END IF ;
639: ELSIF p_usage_rate_or_amount = 0 then
640: IF p_usage_rate_or_amount_inverse <> 0 THEN
641: x_return_status := FND_API.G_RET_STS_ERROR ;
642: END IF ;
643: END IF ;
644: ***************************************************/
645:
690:
691:
692: BEGIN
693:
694: x_return_status := FND_API.G_RET_STS_SUCCESS ;
695:
696: FOR l_schedule_rec IN l_schedule_csr ( p_op_seq_id
697: , p_res_seq_num
698: , p_schedule_flag
697: , p_res_seq_num
698: , p_schedule_flag
699: )
700: LOOP
701: x_return_status := FND_API.G_RET_STS_ERROR ;
702: END LOOP ;
703:
704:
705: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
709: , p_res_seq_num
710: , p_schedule_flag
711: )
712: LOOP
713: x_return_status := FND_API.G_RET_STS_ERROR ;
714: END LOOP ;
715: END IF ;
716:
717:
800: ) ;
801:
802: BEGIN
803:
804: x_return_status := FND_API.G_RET_STS_SUCCESS ;
805: IF p_schedule_flag IN (L_PRIOR, L_NEXT) THEN
806: FOR l_schedule_rec IN l_schedule_csr ( p_op_seq_id
807: , p_res_seq_num
808: , p_sch_seq_num
808: , p_sch_seq_num
809: , p_schedule_flag
810: )
811: LOOP
812: x_return_status := FND_API.G_RET_STS_ERROR ;
813: END LOOP ;
814:
815: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
816: THEN
820: , p_sch_seq_num
821: , p_schedule_flag
822: )
823: LOOP
824: x_return_status := FND_API.G_RET_STS_ERROR ;
825: END LOOP ;
826: END IF ;
827: ELSIF p_schedule_flag = L_YES_SCHEDULE THEN
828: FOR l_schedule_rec IN l_yes_csr ( p_op_seq_id
830: , p_sch_seq_num
831: , p_schedule_flag
832: )
833: LOOP
834: x_return_status := FND_API.G_RET_STS_ERROR ;
835: END LOOP ;
836:
837: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
838: THEN
842: , p_sch_seq_num
843: , p_schedule_flag
844: )
845: LOOP
846: x_return_status := FND_API.G_RET_STS_ERROR ;
847: END LOOP ;
848: END IF ;
849: END IF;
850:
872:
873:
874: BEGIN
875:
876: x_return_status := FND_API.G_RET_STS_SUCCESS ;
877:
878: FOR l_res_osp_rec IN l_res_osp_csr ( p_resource_id
879: , p_organization_id
880: )
878: FOR l_res_osp_rec IN l_res_osp_csr ( p_resource_id
879: , p_organization_id
880: )
881: LOOP
882: x_return_status := FND_API.G_RET_STS_ERROR ;
883: END LOOP ;
884:
885:
886: END Val_Autocharge_for_OSP_Res ;
926:
927:
928: BEGIN
929:
930: x_return_status := FND_API.G_RET_STS_SUCCESS ;
931:
932: FOR l_pomove_rec IN l_pomove_csr ( p_op_seq_id
933: , p_res_seq_num
934: )
932: FOR l_pomove_rec IN l_pomove_csr ( p_op_seq_id
933: , p_res_seq_num
934: )
935: LOOP
936: x_return_status := FND_API.G_RET_STS_ERROR ;
937: END LOOP ;
938:
939:
940: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
943: FOR l_rev_pomove_rec IN l_rev_pomove_csr ( p_op_seq_id
944: , p_res_seq_num
945: )
946: LOOP
947: x_return_status := FND_API.G_RET_STS_ERROR ;
948: END LOOP ;
949:
950: END IF ;
951:
971: ) ;
972:
973:
974: BEGIN
975: x_return_status := FND_API.G_RET_STS_SUCCESS ;
976:
977: FOR l_dept_loc_rec IN l_dept_loc_csr ( p_op_seq_id )
978: LOOP
979: x_return_status := FND_API.G_RET_STS_ERROR ;
975: x_return_status := FND_API.G_RET_STS_SUCCESS ;
976:
977: FOR l_dept_loc_rec IN l_dept_loc_csr ( p_op_seq_id )
978: LOOP
979: x_return_status := FND_API.G_RET_STS_ERROR ;
980: END LOOP ;
981:
982:
983: END Val_Dept_Has_Location ;
1060: AND muc2.uom_class = muc1.uom_class ) ;
1061:
1062: BEGIN
1063:
1064: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1065:
1066:
1067: IF p_hour_uom_class <> p_res_uom_class THEN
1068: x_return_status := FND_API.G_RET_STS_ERROR ;
1064: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1065:
1066:
1067: IF p_hour_uom_class <> p_res_uom_class THEN
1068: x_return_status := FND_API.G_RET_STS_ERROR ;
1069: ELSE
1070: FOR l_conversion_rec IN l_conversion_csr
1071: ( p_res_uom_code
1072: , p_res_uom_class
1072: , p_res_uom_class
1073: , p_hour_uom_code )
1074:
1075: LOOP
1076: x_return_status := FND_API.G_RET_STS_ERROR ;
1077: END LOOP ;
1078: END IF ;
1079:
1080: END Val_Res_UOM_For_Schedule ;
1090: IS
1091:
1092: BEGIN
1093:
1094: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1095:
1096: IF ( p_autocharge_type IN (l_PO_RECEIPT, l_PO_MOVE)
1097: OR p_schedule_flag <> l_NO_SCHEDULE
1098: -- OR p_hour_uom_class = p_res_uom_class -- Form allows this case
1097: OR p_schedule_flag <> l_NO_SCHEDULE
1098: -- OR p_hour_uom_class = p_res_uom_class -- Form allows this case
1099: )
1100: THEN
1101: x_return_status := FND_API.G_RET_STS_ERROR ;
1102: END IF ;
1103:
1104: END Val_Negative_Usage_Rate ;
1105:
1147:
1148:
1149: BEGIN
1150:
1151: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1152:
1153: FOR l_principal_rec IN l_principal_csr ( p_op_seq_id
1154: , p_res_seq_num
1155: , p_sub_group_num
1154: , p_res_seq_num
1155: , p_sub_group_num
1156: )
1157: LOOP
1158: x_return_status := FND_API.G_RET_STS_ERROR ;
1159: END LOOP ;
1160:
1161:
1162: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
1166: , p_res_seq_num
1167: , p_sub_group_num
1168: )
1169: LOOP
1170: x_return_status := FND_API.G_RET_STS_ERROR ;
1171: END LOOP ;
1172: END IF ;
1173: END Val_Principal_Res_Unique ;
1174:
1194: and schedule_seq_num = p_sch_seq_num
1195: and substitute_group_num <> p_sub_grp_num /* is not null*/
1196: and resource_seq_num <> p_res_seq_num);
1197: BEGIN
1198: x_return_status := FND_API.G_RET_STS_SUCCESS;
1199:
1200: FOR c1 in c_same_sgn LOOP
1201: x_return_status := Error_Handler.G_STATUS_ERROR;
1202: END LOOP;
1240: first_row_outer := false;
1241: first_row_inner := false;
1242: temp_outer := 0;
1243: temp_inner := 0;
1244: x_return_status := FND_API.G_RET_STS_SUCCESS;
1245:
1246: FOR i IN Check1 LOOP
1247: IF first_row_outer = TRUE THEN
1248: IF nvl(i.mn_ssn1, i.mn_rsn1) > temp_outer
1399: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1400: , p_message_name => 'BOM_RES_ALREADY_EXISTS'
1401: , p_token_tbl => l_token_tbl
1402: ) ;
1403: l_return_status := FND_API.G_RET_STS_ERROR ;
1404:
1405: ELSIF l_return_status = BOM_Rtg_Globals.G_RECORD_NOT_FOUND AND
1406: p_rev_op_resource_rec.transaction_type IN
1407: ( BOM_Rtg_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE)
1411: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1412: , p_message_name => 'BOM_RES_DOESNOT_EXIST'
1413: , p_token_tbl => l_token_tbl
1414: ) ;
1415: l_return_status := FND_API.G_RET_STS_ERROR ;
1416:
1417: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1418: THEN
1419: Error_Handler.Add_Error_Token
1413: , p_token_tbl => l_token_tbl
1414: ) ;
1415: l_return_status := FND_API.G_RET_STS_ERROR ;
1416:
1417: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1418: THEN
1419: Error_Handler.Add_Error_Token
1420: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
1421: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1425: || p_rev_op_resource_rec.resource_sequence_number
1426: , p_token_tbl => l_token_tbl
1427: ) ;
1428: ELSE
1429: l_return_status := FND_API.G_RET_STS_SUCCESS;
1430: END IF ;
1431:
1432: x_return_status := l_return_status;
1433: x_mesg_token_tbl := l_Mesg_Token_Tbl;
1473: PRT_OP_NOT_EVENT EXCEPTION ;
1474: EAM_SUB_RES_NOT_ACCESS EXCEPTION ; -- Added for eAM enhancement
1475:
1476: BEGIN
1477: x_return_status := FND_API.G_RET_STS_SUCCESS;
1478: l_return_status := FND_API.G_RET_STS_SUCCESS;
1479:
1480: -- For eAM enhancement, currently maintenance routings do not
1481: -- support sub operation resources fanctionality.
1474: EAM_SUB_RES_NOT_ACCESS EXCEPTION ; -- Added for eAM enhancement
1475:
1476: BEGIN
1477: x_return_status := FND_API.G_RET_STS_SUCCESS;
1478: l_return_status := FND_API.G_RET_STS_SUCCESS;
1479:
1480: -- For eAM enhancement, currently maintenance routings do not
1481: -- support sub operation resources fanctionality.
1482: -- This validation will be removed in future.
1489: END IF ; -- end of eAM enhancement
1490:
1491:
1492: IF NVL(p_operation_type, 1) <> l_EVENT
1493: AND p_operation_type <> FND_API.G_MISS_NUM
1494: THEN
1495: RAISE PRT_OP_NOT_EVENT ;
1496: END IF ;
1497:
1500:
1501: IF l_event_cur%FOUND THEN
1502: IF l_event_rec.reference_flag = 1
1503: THEN
1504: l_return_status := FND_API.G_RET_STS_ERROR ;
1505: END IF ;
1506: ELSE
1507: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1508: END IF ;
1503: THEN
1504: l_return_status := FND_API.G_RET_STS_ERROR ;
1505: END IF ;
1506: ELSE
1507: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1508: END IF ;
1509:
1510: CLOSE l_event_cur ;
1511:
1525:
1526:
1527: WHEN PRT_OP_NOT_EVENT THEN
1528: -- Return the status and message table.
1529: x_return_status := FND_API.G_RET_STS_ERROR ;
1530:
1531:
1532: WHEN OTHERS THEN
1533: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1547: , x_mesg_token_tbl => l_mesg_token_tbl
1548: ) ;
1549:
1550: -- Return the status and message table.
1551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1552: x_mesg_token_tbl := l_mesg_token_tbl ;
1553:
1554: END Check_NonRefEvent ;
1555:
1628: l_Token_Tbl Error_Handler.Token_Tbl_Type ;
1629:
1630: BEGIN
1631:
1632: l_return_status := FND_API.G_RET_STS_SUCCESS;
1633: x_return_status := FND_API.G_RET_STS_SUCCESS;
1634:
1635: -- Set the first token to be equal to the operation sequence number
1636: l_Token_Tbl(1).token_name := 'RES_SEQ_NUMBER';
1629:
1630: BEGIN
1631:
1632: l_return_status := FND_API.G_RET_STS_SUCCESS;
1633: x_return_status := FND_API.G_RET_STS_SUCCESS;
1634:
1635: -- Set the first token to be equal to the operation sequence number
1636: l_Token_Tbl(1).token_name := 'RES_SEQ_NUMBER';
1637: l_Token_Tbl(1).token_value := p_rev_op_resource_rec.resource_sequence_number ;
1648: ('Operation Resource Attr Validation: Missing Value. . . ' || l_return_status) ;
1649: END IF;
1650:
1651: -- Resource Code
1652: IF p_rev_op_resource_rec.resource_code = FND_API.G_MISS_CHAR
1653: THEN
1654: Error_Handler.Add_Error_Token
1655: ( p_Message_Name => 'BOM_RES_RESCODE_MISSING'
1656: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1656: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1657: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1658: , p_Token_Tbl => l_Token_Tbl
1659: );
1660: l_return_status := FND_API.G_RET_STS_ERROR;
1661: END IF ;
1662:
1663:
1664: -- Standard Rate Flag
1661: END IF ;
1662:
1663:
1664: -- Standard Rate Flag
1665: IF p_rev_op_resource_rec.standard_rate_flag = FND_API.G_MISS_NUM
1666: THEN
1667: Error_Handler.Add_Error_Token
1668: ( p_Message_Name => 'BOM_RES_STD_RATE_MISSING'
1669: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1669: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1670: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1671: , p_Token_Tbl => l_Token_Tbl
1672: );
1673: l_return_status := FND_API.G_RET_STS_ERROR;
1674: END IF;
1675:
1676:
1677: -- Assigned Units
1674: END IF;
1675:
1676:
1677: -- Assigned Units
1678: IF p_rev_op_resource_rec.assigned_units = FND_API.G_MISS_NUM
1679: THEN
1680: Error_Handler.Add_Error_Token
1681: ( p_Message_Name => 'BOM_RES_ASSIGNED_UNITS_MISSING'
1682: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1682: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1683: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1684: , p_Token_Tbl => l_Token_Tbl
1685: );
1686: l_return_status := FND_API.G_RET_STS_ERROR;
1687: END IF;
1688:
1689:
1690: -- Usage Rate or Amount
1687: END IF;
1688:
1689:
1690: -- Usage Rate or Amount
1691: IF p_rev_op_resource_rec.usage_rate_or_amount = FND_API.G_MISS_NUM
1692: THEN
1693: Error_Handler.Add_Error_Token
1694: ( p_Message_Name => 'BOM_RES_RATE_AMT_MISSING'
1695: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1695: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1696: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1697: , p_Token_Tbl => l_Token_Tbl
1698: );
1699: l_return_status := FND_API.G_RET_STS_ERROR;
1700: END IF;
1701:
1702: -- Usage Rate or Amount Inverse
1703: IF p_rev_op_resource_rec.usage_rate_or_amount_inverse = FND_API.G_MISS_NUM
1699: l_return_status := FND_API.G_RET_STS_ERROR;
1700: END IF;
1701:
1702: -- Usage Rate or Amount Inverse
1703: IF p_rev_op_resource_rec.usage_rate_or_amount_inverse = FND_API.G_MISS_NUM
1704: THEN
1705: Error_Handler.Add_Error_Token
1706: ( p_Message_Name => 'BOM_RES_RATE_AMT_INVRS_MISSING'
1707: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1707: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1708: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1709: , p_Token_Tbl => l_Token_Tbl
1710: );
1711: l_return_status := FND_API.G_RET_STS_ERROR;
1712: END IF;
1713:
1714: -- Basis Type
1715: IF p_rev_op_resource_rec.basis_type = FND_API.G_MISS_NUM
1711: l_return_status := FND_API.G_RET_STS_ERROR;
1712: END IF;
1713:
1714: -- Basis Type
1715: IF p_rev_op_resource_rec.basis_type = FND_API.G_MISS_NUM
1716: THEN
1717: Error_Handler.Add_Error_Token
1718: ( p_Message_Name => 'BOM_RES_BASISTYPE_MISSING'
1719: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1719: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1720: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1721: , p_Token_Tbl => l_Token_Tbl
1722: );
1723: l_return_status := FND_API.G_RET_STS_ERROR;
1724: END IF;
1725:
1726:
1727: -- Schedule Flag
1724: END IF;
1725:
1726:
1727: -- Schedule Flag
1728: IF p_rev_op_resource_rec.schedule_flag = FND_API.G_MISS_NUM
1729: THEN
1730: Error_Handler.Add_Error_Token
1731: ( p_Message_Name => 'BOM_RES_SCHEDULEFLAG_MISSING'
1732: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1732: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1733: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1734: , p_Token_Tbl => l_Token_Tbl
1735: );
1736: l_return_status := FND_API.G_RET_STS_ERROR;
1737: END IF ;
1738:
1739:
1740: -- Autocharge Type
1737: END IF ;
1738:
1739:
1740: -- Autocharge Type
1741: IF p_rev_op_resource_rec.autocharge_type = FND_API.G_MISS_NUM
1742: THEN
1743: Error_Handler.Add_Error_Token
1744: ( p_Message_Name => 'BOM_RES_ACHARGE_TYPE_MISSING'
1745: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1745: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1746: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1747: , p_Token_Tbl => l_Token_Tbl
1748: );
1749: l_return_status := FND_API.G_RET_STS_ERROR;
1750: END IF ;
1751:
1752: END IF ;
1753:
1763: -- Resource Code or Resource Id
1764: IF p_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
1765: AND NVL(p_rev_op_resource_rec.acd_type, l_ACD_ADD) = l_ACD_ADD
1766: AND ( p_rev_op_res_unexp_rec.resource_id IS NULL
1767: OR p_rev_op_res_unexp_rec.resource_id = FND_API.G_MISS_NUM)
1768: THEN
1769:
1770: Error_Handler.Add_Error_Token
1771: ( p_Message_Name => 'BOM_RES_RESCODE_NULL'
1772: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1773: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1774: , p_Token_Tbl => l_Token_Tbl
1775: );
1776: l_return_status := FND_API.G_RET_STS_ERROR;
1777: END IF;
1778:
1779:
1780: -- Standard Rate Flag
1779:
1780: -- Standard Rate Flag
1781: IF p_rev_op_resource_rec.standard_rate_flag IS NOT NULL AND
1782: p_rev_op_resource_rec.standard_rate_flag NOT IN (1,2)
1783: AND p_rev_op_resource_rec.standard_rate_flag <> FND_API.G_MISS_NUM
1784: THEN
1785: Error_Handler.Add_Error_Token
1786: ( p_Message_Name => 'BOM_RES_STD_RATE_INVALID'
1787: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1787: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1788: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1789: , p_Token_Tbl => l_Token_Tbl
1790: );
1791: l_return_status := FND_API.G_RET_STS_ERROR;
1792: END IF;
1793:
1794:
1795: -- Principle Flag
1794:
1795: -- Principle Flag
1796: IF p_rev_op_resource_rec.principle_flag IS NOT NULL AND
1797: p_rev_op_resource_rec.principle_flag NOT IN (1,2)
1798: AND p_rev_op_resource_rec.principle_flag <> FND_API.G_MISS_NUM
1799: THEN
1800: Error_Handler.Add_Error_Token
1801: ( p_Message_Name => 'BOM_RES_PCLFLAG_INVALID'
1802: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1802: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1803: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1804: , p_Token_Tbl => l_Token_Tbl
1805: );
1806: l_return_status := FND_API.G_RET_STS_ERROR;
1807: END IF;
1808:
1809: -- Resource Offset Percent
1810: IF p_rev_op_resource_rec.resource_offset_percent IS NOT NULL AND
1809: -- Resource Offset Percent
1810: IF p_rev_op_resource_rec.resource_offset_percent IS NOT NULL AND
1811: (p_rev_op_resource_rec.resource_offset_percent < 0
1812: OR p_rev_op_resource_rec.resource_offset_percent > 100 )
1813: AND p_rev_op_resource_rec.resource_offset_percent <> FND_API.G_MISS_NUM
1814: THEN
1815: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1816: THEN
1817: Error_Handler.Add_Error_Token
1820: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1821: , p_Token_Tbl => l_Token_Tbl
1822: ) ;
1823: END IF ;
1824: l_return_status := FND_API.G_RET_STS_ERROR;
1825: END IF ;
1826:
1827:
1828: -- Assigned Units
1827:
1828: -- Assigned Units
1829: IF p_rev_op_resource_rec.assigned_units IS NOT NULL AND
1830: p_rev_op_resource_rec.assigned_units <= 0.00001
1831: AND p_rev_op_resource_rec.assigned_units <> FND_API.G_MISS_NUM
1832: THEN
1833: Error_Handler.Add_Error_Token
1834: ( p_Message_Name => 'BOM_RES_ASSIGNED_UNITS_INVALID'
1835: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1835: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1836: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1837: , p_Token_Tbl => l_Token_Tbl
1838: );
1839: l_return_status := FND_API.G_RET_STS_ERROR;
1840: END IF;
1841:
1842:
1843: -- Basis Type
1842:
1843: -- Basis Type
1844: IF p_rev_op_resource_rec.basis_type IS NOT NULL AND
1845: p_rev_op_resource_rec.basis_type NOT IN (1,2)
1846: AND p_rev_op_resource_rec.basis_type <> FND_API.G_MISS_NUM
1847: THEN
1848: Error_Handler.Add_Error_Token
1849: ( p_Message_Name => 'BOM_RES_BASISTYPE_INVALID'
1850: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1850: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1851: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1852: , p_Token_Tbl => l_Token_Tbl
1853: );
1854: l_return_status := FND_API.G_RET_STS_ERROR;
1855: END IF;
1856:
1857:
1858: -- Schedule Flag
1857:
1858: -- Schedule Flag
1859: IF p_rev_op_resource_rec.schedule_flag IS NOT NULL AND
1860: p_rev_op_resource_rec.schedule_flag NOT IN (1,2,3,4)
1861: AND p_rev_op_resource_rec.schedule_flag <> FND_API.G_MISS_NUM
1862: THEN
1863: Error_Handler.Add_Error_Token
1864: ( p_Message_Name => 'BOM_RES_SCHEDULEFLAG_INVALID'
1865: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1865: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1866: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1867: , p_Token_Tbl => l_Token_Tbl
1868: );
1869: l_return_status := FND_API.G_RET_STS_ERROR;
1870: END IF ;
1871:
1872:
1873: -- Autocharge Type
1872:
1873: -- Autocharge Type
1874: IF p_rev_op_resource_rec.autocharge_type IS NOT NULL AND
1875: p_rev_op_resource_rec.autocharge_type NOT IN (1,2,3,4)
1876: AND p_rev_op_resource_rec.autocharge_type <> FND_API.G_MISS_NUM
1877: THEN
1878: Error_Handler.Add_Error_Token
1879: ( p_Message_Name => 'BOM_RES_ACHARGE_TYPE_INVALID'
1880: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1880: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1881: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1882: , p_Token_Tbl => l_Token_Tbl
1883: );
1884: l_return_status := FND_API.G_RET_STS_ERROR;
1885: END IF ;
1886:
1887:
1888: -- ACD Type
1895: THEN
1896:
1897: l_token_tbl(2).token_name := 'ACD_TYPE';
1898:
1899: IF p_rev_op_resource_rec.acd_type <> FND_API.G_MISS_NUM
1900: THEN
1901: l_token_tbl(2).token_value := p_rev_op_resource_rec.acd_type;
1902: ELSE
1903: l_token_tbl(2).token_value := '' ;
1908: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1909: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1910: , p_Token_Tbl => l_Token_Tbl
1911: );
1912: l_return_status := FND_API.G_RET_STS_ERROR ;
1913: END IF ;
1914:
1915:
1916:
1940: , x_mesg_token_tbl => l_mesg_token_tbl
1941: ) ;
1942:
1943: -- Return the status and message table.
1944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1945: x_mesg_token_tbl := l_mesg_token_tbl ;
1946:
1947:
1948: END Check_Attributes ;
2201: --
2202:
2203: l_rev_op_resource_rec := p_rev_op_resource_rec ;
2204: l_rev_op_res_unexp_rec := p_rev_op_res_unexp_rec ;
2205: l_return_status := FND_API.G_RET_STS_SUCCESS ;
2206: x_return_status := FND_API.G_RET_STS_SUCCESS ;
2207:
2208: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2209: ('Performing Op Resource Check Entity Validation . . .') ;
2202:
2203: l_rev_op_resource_rec := p_rev_op_resource_rec ;
2204: l_rev_op_res_unexp_rec := p_rev_op_res_unexp_rec ;
2205: l_return_status := FND_API.G_RET_STS_SUCCESS ;
2206: x_return_status := FND_API.G_RET_STS_SUCCESS ;
2207:
2208: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2209: ('Performing Op Resource Check Entity Validation . . .') ;
2210: END IF ;
2278: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2279: , p_token_tbl => l_token_tbl
2280: ) ;
2281:
2282: l_return_status := FND_API.G_RET_STS_ERROR ;
2283: END LOOP ;
2284: END IF ;
2285: */
2286:
2309: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2310: , p_token_tbl => l_token_tbl
2311: ) ;
2312:
2313: l_return_status := FND_API.G_RET_STS_ERROR ;
2314: END IF ;
2315: END IF ;
2316:
2317:
2338: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2339: , p_token_tbl => l_token_tbl
2340: ) ;
2341: END IF ;
2342: l_return_status := FND_API.G_RET_STS_ERROR ;
2343: END IF ;
2344: END IF ;
2345: */
2346:
2358: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2359: , p_token_tbl => l_token_tbl
2360: ) ;
2361: END IF ;
2362: l_return_status := FND_API.G_RET_STS_ERROR ;
2363: END IF ;
2364:
2365: /* Moved the validation out of the If block as part of UT for R12.
2366: --
2410: , p_mesg_token_tbl => l_Mesg_Token_Tbl
2411: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2412: , p_token_tbl => l_token_tbl
2413: );
2414: l_return_status := FND_API.G_RET_STS_ERROR;
2415:
2416: END IF ;
2417: END IF ;
2418:
2432: -- APS Enhancement for Routings.
2433: -- Verify that if a resource has setups defined, or is Batchable then
2434: -- the Assigned Units for that Resource have to be 1.
2435: --
2436: IF p_rev_op_resource_rec.assigned_units <> FND_API.G_MISS_NUM THEN
2437: OPEN get_setups (p_rev_op_res_unexp_rec.resource_id, p_rev_op_res_unexp_rec.organization_id);
2438: FETCH get_setups INTO l_get_setups;
2439: CLOSE get_setups;
2440: SELECT nvl(batchable,2) INTO l_batchable
2450: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2451: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2452: , p_Token_Tbl => l_Token_Tbl
2453: );
2454: l_return_status := FND_API.G_RET_STS_ERROR ;
2455: END IF;
2456: END IF;
2457: END IF;
2458: END IF;
2502: , p_Token_Tbl => l_Token_Tbl
2503: ) ;
2504: END IF ;
2505:
2506: l_return_status := FND_API.G_RET_STS_ERROR ;
2507:
2508: END LOOP ;
2509:
2510: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
2525: , p_Token_Tbl => l_Token_Tbl
2526: ) ;
2527: END IF ;
2528:
2529: l_return_status := FND_API.G_RET_STS_ERROR ;
2530:
2531: END LOOP ;
2532: END IF ;
2533:
2551: , p_Token_Tbl => l_Token_Tbl
2552: ) ;
2553: END IF ;
2554:
2555: l_return_status := FND_API.G_RET_STS_ERROR ;
2556:
2557: END LOOP ;
2558:
2559: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
2574: , p_Token_Tbl => l_Token_Tbl
2575: ) ;
2576: END IF ;
2577:
2578: l_return_status := FND_API.G_RET_STS_ERROR ;
2579:
2580: END LOOP ;
2581: END IF ;
2582:
2615: , p_Token_Tbl => l_Token_Tbl
2616: ) ;
2617: END IF ;
2618:
2619: l_return_status := FND_API.G_RET_STS_ERROR ;
2620:
2621: END LOOP ;
2622:
2623: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
2638: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2639: , p_Token_Tbl => l_Token_Tbl
2640: ) ;
2641: END IF ;
2642: l_return_status := FND_API.G_RET_STS_ERROR ;
2643: END LOOP ;
2644: END IF ;
2645: END IF ;
2646: **** This validation is not required **** */
2675: , p_Token_Tbl => l_Token_Tbl
2676: ) ;
2677: END IF ;
2678:
2679: l_return_status := FND_API.G_RET_STS_ERROR ;
2680:
2681: END LOOP ;
2682:
2683: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
2699: , p_Token_Tbl => l_Token_Tbl
2700: ) ;
2701: END IF ;
2702:
2703: l_return_status := FND_API.G_RET_STS_ERROR ;
2704:
2705: END LOOP ;
2706: END IF ;
2707:
2741: , x_return_status => l_temp_status
2742: ) ;
2743:
2744:
2745: IF l_temp_status = FND_API.G_RET_STS_ERROR
2746: THEN
2747: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2748: THEN
2749: Error_Handler.Add_Error_Token
2753: , p_Token_Tbl => l_Token_Tbl
2754: ) ;
2755: END IF ;
2756:
2757: l_return_status := FND_API.G_RET_STS_ERROR ;
2758:
2759: END IF ;
2760:
2761: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2770: -- Check if Activity is enabled
2771: --
2772: IF ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2773: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2774: OR (NVL(l_rev_op_res_unexp_rec.activity_id, FND_API.G_MISS_NUM)
2775: <> NVL(p_old_rev_op_res_unexp_rec.activity_id, FND_API.G_MISS_NUM))
2776: )
2777: AND ( l_rev_op_res_unexp_rec.activity_id IS NOT NULL AND
2778: l_rev_op_res_unexp_rec.activity_id <> FND_API.G_MISS_NUM )
2771: --
2772: IF ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2773: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2774: OR (NVL(l_rev_op_res_unexp_rec.activity_id, FND_API.G_MISS_NUM)
2775: <> NVL(p_old_rev_op_res_unexp_rec.activity_id, FND_API.G_MISS_NUM))
2776: )
2777: AND ( l_rev_op_res_unexp_rec.activity_id IS NOT NULL AND
2778: l_rev_op_res_unexp_rec.activity_id <> FND_API.G_MISS_NUM )
2779: THEN
2774: OR (NVL(l_rev_op_res_unexp_rec.activity_id, FND_API.G_MISS_NUM)
2775: <> NVL(p_old_rev_op_res_unexp_rec.activity_id, FND_API.G_MISS_NUM))
2776: )
2777: AND ( l_rev_op_res_unexp_rec.activity_id IS NOT NULL AND
2778: l_rev_op_res_unexp_rec.activity_id <> FND_API.G_MISS_NUM )
2779: THEN
2780:
2781: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2782: ('Activity_Id : ' || to_char(l_rev_op_res_unexp_rec.activity_id)) ;
2788: , x_return_status => l_temp_status
2789: ) ;
2790:
2791:
2792: IF l_temp_status = FND_API.G_RET_STS_ERROR
2793: THEN
2794: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2795: THEN
2796: Error_Handler.Add_Error_Token
2800: , p_Token_Tbl => l_Token_Tbl
2801: ) ;
2802: END IF ;
2803:
2804: l_return_status := FND_API.G_RET_STS_ERROR ;
2805:
2806: END IF ;
2807:
2808: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2818: -- Check if Setup Id is valid on this operation resource
2819: --
2820: IF ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2821: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2822: OR (NVL(l_rev_op_res_unexp_rec.setup_id , FND_API.G_MISS_NUM)
2823: <> NVL(p_old_rev_op_res_unexp_rec.setup_id, FND_API.G_MISS_NUM))
2824: )
2825: AND ( l_rev_op_res_unexp_rec.setup_id IS NOT NULL AND
2826: l_rev_op_res_unexp_rec.setup_id <> FND_API.G_MISS_NUM )
2819: --
2820: IF ( ( NVL(l_rev_op_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2821: AND l_rev_op_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE )
2822: OR (NVL(l_rev_op_res_unexp_rec.setup_id , FND_API.G_MISS_NUM)
2823: <> NVL(p_old_rev_op_res_unexp_rec.setup_id, FND_API.G_MISS_NUM))
2824: )
2825: AND ( l_rev_op_res_unexp_rec.setup_id IS NOT NULL AND
2826: l_rev_op_res_unexp_rec.setup_id <> FND_API.G_MISS_NUM )
2827: THEN
2822: OR (NVL(l_rev_op_res_unexp_rec.setup_id , FND_API.G_MISS_NUM)
2823: <> NVL(p_old_rev_op_res_unexp_rec.setup_id, FND_API.G_MISS_NUM))
2824: )
2825: AND ( l_rev_op_res_unexp_rec.setup_id IS NOT NULL AND
2826: l_rev_op_res_unexp_rec.setup_id <> FND_API.G_MISS_NUM )
2827: THEN
2828:
2829: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2830: ('Setup Id : ' || to_char(l_rev_op_res_unexp_rec.setup_id)) ;
2837: , x_return_status => l_temp_status
2838: ) ;
2839:
2840:
2841: IF l_temp_status = FND_API.G_RET_STS_ERROR
2842: THEN
2843: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2844: THEN
2845:
2860:
2861: l_token_tbl.delete(2) ;
2862: l_token_tbl.delete(3) ;
2863:
2864: l_return_status := FND_API.G_RET_STS_ERROR ;
2865:
2866: END IF ;
2867:
2868: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2907: , p_res_uom_code => l_res_uom_code
2908: , x_return_status => l_temp_status
2909: ) ;
2910:
2911: IF l_temp_status = FND_API.G_RET_STS_ERROR
2912: THEN
2913: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2914: THEN
2915: Error_Handler.Add_Error_Token
2919: , p_Token_Tbl => l_Token_Tbl
2920: ) ;
2921: END IF ;
2922:
2923: l_return_status := FND_API.G_RET_STS_ERROR ;
2924:
2925: END IF ;
2926:
2927: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2949: , p_schedule_flag => l_rev_op_resource_rec.schedule_flag
2950: , x_return_status => l_temp_status
2951: ) ;
2952:
2953: IF l_temp_status = FND_API.G_RET_STS_ERROR
2954: AND FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2955: THEN
2956: IF p_rev_op_resource_rec.schedule_flag = l_YES_SCHEDULE -- 1: Yes
2957: THEN
2977: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2978: , p_Token_Tbl => l_Token_Tbl
2979: ) ;
2980: END IF ;
2981: l_return_status := FND_API.G_RET_STS_ERROR ;
2982: END IF ; -- If Error
2983:
2984: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2985: ('Check next or prior scheduled resource. . . . ' || l_return_status) ;
3004: ( p_op_seq_id => l_rev_op_res_unexp_rec.operation_sequence_id
3005: , x_return_status => l_temp_status
3006: ) ;
3007:
3008: IF l_temp_status = FND_API.G_RET_STS_ERROR
3009: THEN
3010: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3011: THEN
3012: Error_Handler.Add_Error_Token
3016: , p_Token_Tbl => l_Token_Tbl
3017: ) ;
3018: END IF ;
3019:
3020: l_return_status := FND_API.G_RET_STS_ERROR ;
3021:
3022: END IF ;
3023:
3024: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3047: , x_return_status => l_temp_status
3048: ) ;
3049:
3050:
3051: IF l_temp_status = FND_API.G_RET_STS_ERROR
3052: THEN
3053: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3054: THEN
3055: Error_Handler.Add_Error_Token
3059: , p_Token_Tbl => l_Token_Tbl
3060: ) ;
3061: END IF ;
3062:
3063: l_return_status := FND_API.G_RET_STS_ERROR ;
3064:
3065: END IF ;
3066:
3067: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3087: , p_res_seq_num => l_rev_op_resource_rec.resource_sequence_number
3088: , x_return_status => l_temp_status
3089: ) ;
3090:
3091: IF l_temp_status = FND_API.G_RET_STS_ERROR
3092: THEN
3093:
3094: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3095: THEN
3100: , p_Token_Tbl => l_Token_Tbl
3101: ) ;
3102: END IF ;
3103:
3104: l_return_status := FND_API.G_RET_STS_ERROR ;
3105: END IF ;
3106:
3107:
3108: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3132: , x_return_status => l_temp_status
3133: ) ;
3134:
3135:
3136: IF l_temp_status = FND_API.G_RET_STS_ERROR
3137: THEN
3138: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3139: THEN
3140: Error_Handler.Add_Error_Token
3144: , p_Token_Tbl => l_Token_Tbl
3145: ) ;
3146: END IF ;
3147:
3148: l_return_status := FND_API.G_RET_STS_ERROR ;
3149:
3150: END IF ;
3151:
3152: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3201: , x_return_status => l_temp_status
3202: ) ;
3203:
3204:
3205: IF l_temp_status = FND_API.G_RET_STS_ERROR
3206: THEN
3207: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3208: THEN
3209: Error_Handler.Add_Error_Token
3213: , p_Token_Tbl => l_Token_Tbl
3214: ) ;
3215: END IF ;
3216:
3217: l_return_status := FND_API.G_RET_STS_ERROR ;
3218:
3219: END IF ;
3220:
3221: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3252: , x_return_status => l_temp_status
3253: ) ;
3254:
3255:
3256: IF l_temp_status = FND_API.G_RET_STS_ERROR
3257: THEN
3258: --dbms_output.put_line('found error in principal flag for resources');
3259: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3260: THEN
3265: , p_Token_Tbl => l_Token_Tbl
3266: ) ;
3267: END IF ;
3268:
3269: l_return_status := FND_API.G_RET_STS_ERROR ;
3270:
3271: END IF ;
3272:
3273: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3293: , p_sub_grp_num => l_rev_op_resource_rec.substitute_group_number
3294: , x_return_status => l_temp_status
3295: );
3296:
3297: IF l_temp_status = FND_API.G_RET_STS_ERROR
3298: THEN
3299: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3300: THEN
3301: /* Fix for bug 4506885 - Changed the error msg shown to 'BOM_SAME_SUB_GRP_NUM' from 'BOM_LARGE_SGN_SSN'.
3311: , p_Token_Tbl => l_Token_Tbl
3312: );
3313: END IF;
3314:
3315: l_return_status := FND_API.G_RET_STS_ERROR ;
3316: END IF;
3317: END IF;
3318:
3319: /* bug:4638695 For an operation, do not allow same resource to be added more than once with same SSN */
3337: , p_resource_id => l_rev_op_res_unexp_rec.resource_id
3338: , x_return_status => l_temp_status
3339: );
3340:
3341: IF l_temp_status = FND_API.G_RET_STS_ERROR THEN
3342: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3343: IF ( l_rev_op_resource_rec.resource_code IS NOT NULL )
3344: THEN
3345: l_res_code := l_rev_op_resource_rec.resource_code;
3363: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3364: , p_Token_Tbl => l_Token_Tbl
3365: );
3366: END IF; /* end of check_msg_level */
3367: l_return_status := FND_API.G_RET_STS_ERROR ;
3368: END IF; /* end of l_temp_status */
3369:
3370: END IF; /* end of validation on resource and ssn*/
3371:
3384: and l_rev_op_resource_rec.schedule_sequence_number is null)
3385: OR ( l_rev_op_resource_rec.schedule_flag <> p_old_rev_op_resource_rec.schedule_flag)
3386: )
3387: THEN
3388: l_res_id := FND_API.G_MISS_NUM;
3389:
3390: Val_Schedule_Flag
3391: ( p_op_seq_id => l_rev_op_res_unexp_rec.operation_sequence_id
3392: , p_res_seq_num => l_rev_op_resource_rec.resource_sequence_number
3395: , p_ret_res_id => l_res_id
3396: , x_return_status => l_temp_status
3397: );
3398:
3399: IF l_temp_status = FND_API.G_RET_STS_ERROR THEN
3400: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3401: If (l_rev_op_resource_rec.resource_code is not null) Then
3402: l_res_code := l_rev_op_resource_rec.resource_code;
3403: Else
3423: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3424: , p_Token_Tbl => l_Token_Tbl
3425: );
3426: END IF; /* end of check_msg_level */
3427: l_return_status := FND_API.G_RET_STS_ERROR ;
3428: END IF; /* end of l_temp_status */
3429: END IF; /* end of validation on resource and ssn*/
3430: /*End of fix for bug 6074930 */
3431:
3468: , x_mesg_token_tbl => l_mesg_token_tbl
3469: ) ;
3470:
3471: -- Return the status and message table.
3472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3473: x_mesg_token_tbl := l_mesg_token_tbl ;
3474: END Check_Entity ;
3475:
3476: /* bug:4638695 For an operation do not allow same resource to be added more than once with same SSN */
3483: )
3484: IS
3485: l_same_rsc_ssn NUMBER;
3486: BEGIN
3487: x_return_status := FND_API.G_RET_STS_SUCCESS;
3488: l_same_rsc_ssn := 0;
3489:
3490: SELECT COUNT(1)
3491: INTO l_same_rsc_ssn
3542: AND schedule_flag not in (p_sch_flag,l_NO_SCHEDULE)
3543: AND rownum=1;
3544:
3545: BEGIN
3546: x_return_status := FND_API.G_RET_STS_SUCCESS;
3547: l_resource_id := FND_API.G_MISS_NUM;
3548:
3549: /* Verify whether the current resource violates the validation w.r.t to
3550: any existing resource. */
3543: AND rownum=1;
3544:
3545: BEGIN
3546: x_return_status := FND_API.G_RET_STS_SUCCESS;
3547: l_resource_id := FND_API.G_MISS_NUM;
3548:
3549: /* Verify whether the current resource violates the validation w.r.t to
3550: any existing resource. */
3551: OPEN l_sch_res_cur;
3562: END IF;
3563:
3564: /* If no violated resource is found above, then verify whether the current resource
3565: violates the validation w.r.t to any existing sub-resource. */
3566: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3567:
3568: OPEN l_sch_sub_res_cur;
3569: FETCH l_sch_sub_res_cur INTO l_resource_id;
3570: