[Home] [Help]
503:
504: /* Return error status if violation occurs */
505: IF l_sch_res_cur%FOUND THEN
506: p_ret_res_id := l_resource_id;
507: x_return_status := Error_Handler.G_STATUS_ERROR;
508: END IF;
509:
510: IF l_sch_res_cur%ISOPEN THEN
511: CLOSE l_sch_res_cur;
520:
521: /* Return error status if violation occurs */
522: IF l_sch_sub_res_cur%FOUND THEN
523: p_ret_res_id := l_resource_id;
524: x_return_status := Error_Handler.G_STATUS_ERROR;
525: END IF;
526:
527: IF l_sch_sub_res_cur%ISOPEN THEN
528: CLOSE l_sch_sub_res_cur;
550: ( p_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
551: , p_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
552: , x_old_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Resource_Rec_Type
553: , x_old_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
554: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
555: , x_return_status IN OUT NOCOPY VARCHAR2
556: )
557:
558: IS
615: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type
616: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
617: , x_old_rev_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type
618: , x_old_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
619: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
620: , x_return_status IN OUT NOCOPY VARCHAR2
621: )
622: IS
623: l_Token_Tbl Error_Handler.Token_Tbl_Type;
619: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
620: , x_return_status IN OUT NOCOPY VARCHAR2
621: )
622: IS
623: l_Token_Tbl Error_Handler.Token_Tbl_Type;
624: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
625: l_return_status VARCHAR2(1);
626: l_default_basis_type NUMBER;
627:
620: , x_return_status IN OUT NOCOPY VARCHAR2
621: )
622: IS
623: l_Token_Tbl Error_Handler.Token_Tbl_Type;
624: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
625: l_return_status VARCHAR2(1);
626: l_default_basis_type NUMBER;
627:
628: BEGIN
674:
675: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND
676: p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
677: THEN
678: Error_Handler.Add_Error_Token
679: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
680: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
681: , p_message_name => 'BOM_SUB_RES_ALREADY_EXISTS'
682: , p_token_tbl => l_token_tbl
686: ELSIF l_return_status = BOM_Rtg_Globals.G_RECORD_NOT_FOUND AND
687: p_rev_sub_resource_rec.transaction_type IN
688: (BOM_Rtg_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE)
689: THEN
690: Error_Handler.Add_Error_Token
691: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
692: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
693: , p_message_name => 'BOM_SUB_RES_DOESNOT_EXIST'
694: , p_token_tbl => l_token_tbl
696: l_return_status := FND_API.G_RET_STS_ERROR ;
697:
698: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
699: THEN
700: Error_Handler.Add_Error_Token
701: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
702: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
703: , p_message_name => NULL
704: , p_message_text => 'Unexpected error while existence verification of '
733: ********************************************************************/
734: PROCEDURE Check_Attributes
735: ( p_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
736: , p_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
737: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
738: , x_return_status IN OUT NOCOPY VARCHAR2
739: )
740: IS
741:
781: *********************************************************************/
782: PROCEDURE Check_Attributes
783: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type
784: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
785: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
786: , x_return_status IN OUT NOCOPY VARCHAR2
787: )
788: IS
789:
788: IS
789:
790: l_return_status VARCHAR2(1) ;
791: l_err_text VARCHAR2(2000) ;
792: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
793: l_Token_Tbl Error_Handler.Token_Tbl_Type ;
794:
795: BEGIN
796:
789:
790: l_return_status VARCHAR2(1) ;
791: l_err_text VARCHAR2(2000) ;
792: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
793: l_Token_Tbl Error_Handler.Token_Tbl_Type ;
794:
795: BEGIN
796:
797: l_return_status := FND_API.G_RET_STS_SUCCESS;
811: --
812: IF p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
813: THEN
814:
815: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
816: ('Sub Operation Resource Attr Validation: Missing Value. . . ' ) ;
817: END IF;
818:
819: -- New Sub Resource Code
818:
819: -- New Sub Resource Code
820: IF p_rev_sub_resource_rec.new_sub_resource_code = FND_API.G_MISS_CHAR
821: THEN
822: Error_Handler.Add_Error_Token
823: ( p_Message_Name => 'BOM_SUB_RESCODE_MISSING'
824: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
825: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
826: , p_Token_Tbl => l_Token_Tbl
832:
833: -- Replacement Group Number
834: IF p_rev_sub_resource_rec.replacement_group_number = FND_API.G_MISS_NUM
835: THEN
836: Error_Handler.Add_Error_Token
837: ( p_Message_Name => 'BOM_SUB_RES_RPLAC_GNUM_MISSING'
838: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
839: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
840: , p_Token_Tbl => l_Token_Tbl
845:
846: -- New Replacement Group Number -- bug 3741570
847: IF p_rev_sub_resource_rec.new_replacement_group_number = FND_API.G_MISS_NUM
848: THEN
849: Error_Handler.Add_Error_Token
850: ( p_Message_Name => 'BOM_SUB_RES_RPLAC_GNUM_MISSING'
851: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
852: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
853: , p_Token_Tbl => l_Token_Tbl
858:
859: -- Standard Rate Flag
860: IF p_rev_sub_resource_rec.standard_rate_flag = FND_API.G_MISS_NUM
861: THEN
862: Error_Handler.Add_Error_Token
863: ( p_Message_Name => 'BOM_SUB_RES_STD_RATE_MISSING'
864: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
865: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
866: , p_Token_Tbl => l_Token_Tbl
871:
872: -- Assigned Units
873: IF p_rev_sub_resource_rec.assigned_units = FND_API.G_MISS_NUM
874: THEN
875: Error_Handler.Add_Error_Token
876: ( p_Message_Name => 'BOM_SUB_RES_ASGND_UNTS_MISSING'
877: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
878: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
879: , p_Token_Tbl => l_Token_Tbl
884:
885: -- Usage Rate or Amount
886: IF p_rev_sub_resource_rec.usage_rate_or_amount = FND_API.G_MISS_NUM
887: THEN
888: Error_Handler.Add_Error_Token
889: ( p_Message_Name => 'BOM_SUB_RES_RATE_AMT_MISSING'
890: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
891: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
892: , p_Token_Tbl => l_Token_Tbl
896:
897: -- Usage Rate or Amount Inverse
898: IF p_rev_sub_resource_rec.usage_rate_or_amount_inverse = FND_API.G_MISS_NUM
899: THEN
900: Error_Handler.Add_Error_Token
901: ( p_Message_Name => 'BOM_SUB_RES_RTAMT_INVR_MISSING'
902: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
903: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
904: , p_Token_Tbl => l_Token_Tbl
908:
909: -- Basis Type
910: IF p_rev_sub_resource_rec.basis_type = FND_API.G_MISS_NUM
911: THEN
912: Error_Handler.Add_Error_Token
913: ( p_Message_Name => 'BOM_SUB_RES_BASISTYPE_MISSING'
914: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
915: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
916: , p_Token_Tbl => l_Token_Tbl
920:
921: -- New Basis Type
922: IF p_rev_sub_resource_rec.new_basis_type = FND_API.G_MISS_NUM
923: THEN
924: Error_Handler.Add_Error_Token
925: ( p_Message_Name => 'BOM_SUB_RES_BASISTYPE_MISSING'
926: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
927: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
928: , p_Token_Tbl => l_Token_Tbl
932:
933: -- Schedule Flag
934: IF p_rev_sub_resource_rec.schedule_flag = FND_API.G_MISS_NUM
935: THEN
936: Error_Handler.Add_Error_Token
937: ( p_Message_Name => 'BOM_SUB_RES_SCHED_FLAG_MISSING'
938: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
939: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
940: , p_Token_Tbl => l_Token_Tbl
944:
945: -- Added for bug 13005178, New Schedule Flag validation
946: IF p_rev_sub_resource_rec.new_schedule_flag = FND_API.G_MISS_NUM
947: THEN
948: Error_Handler.Add_Error_Token
949: ( p_Message_Name => 'BOM_SUB_RES_SCHED_FLAG_MISSING'
950: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
951: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
952: , p_Token_Tbl => l_Token_Tbl
956:
957: -- Autocharge Type
958: IF p_rev_sub_resource_rec.autocharge_type = FND_API.G_MISS_NUM
959: THEN
960: Error_Handler.Add_Error_Token
961: ( p_Message_Name => 'BOM_SUB_RES_ACHRG_TYPE_MISSING'
962: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
963: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
964: , p_Token_Tbl => l_Token_Tbl
972: -- Check if the user is trying to create/update a record with
973: -- invalid value.
974: --
975:
976: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
977: ('Sub Operation Resource Attr Validation: Invalid Value. . . ' || l_return_status) ;
978: END IF;
979:
980:
982: IF p_rev_sub_resource_rec.new_sub_resource_code IS NOT NULL
983: AND p_rev_sub_resource_rec.new_sub_resource_code <> FND_API.G_MISS_CHAR
984: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
985: THEN
986: Error_Handler.Add_Error_Token
987: ( p_Message_Name => 'BOM_SUB_RES_CODE_NOTUPDATE'
988: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
989: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
990: , p_Token_Tbl => l_Token_Tbl
997: IF p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
998: AND (p_rev_sub_resource_rec.replacement_group_number IS NULL
999: OR p_rev_sub_resource_rec.replacement_group_number = FND_API.G_MISS_NUM)
1000: THEN
1001: Error_Handler.Add_Error_Token
1002: ( p_Message_Name => 'BOM_SUB_RES_REPLCMNT_GNUM_NULL'
1003: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1004: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1005: , p_Token_Tbl => l_Token_Tbl
1010: p_rev_sub_resource_rec.replacement_group_number <> FND_API.G_MISS_NUM AND
1011: ( p_rev_sub_resource_rec.replacement_group_number < 1
1012: OR p_rev_sub_resource_rec.replacement_group_number > 9999 )
1013: THEN
1014: Error_Handler.Add_Error_Token
1015: ( p_Message_Name => 'BOM_SUB_RES_RPLMT_GNUM_INVALID'
1016: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1017: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1018: , p_Token_Tbl => l_Token_Tbl
1026: AND p_rev_sub_resource_rec.replacement_group_number <> FND_API.G_MISS_NUM
1027: AND ( p_rev_sub_resource_rec.replacement_group_number < 1
1028: OR p_rev_sub_resource_rec.replacement_group_number > 9999 )
1029: THEN
1030: Error_Handler.Add_Error_Token
1031: ( p_Message_Name => 'BOM_SUB_RES_RPLMT_GNUM_INVALID'
1032: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1033: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1034: , p_Token_Tbl => l_Token_Tbl
1041: IF p_rev_sub_resource_rec.standard_rate_flag IS NOT NULL
1042: AND p_rev_sub_resource_rec.standard_rate_flag NOT IN (1,2)
1043: AND p_rev_sub_resource_rec.standard_rate_flag <> FND_API.G_MISS_NUM
1044: THEN
1045: Error_Handler.Add_Error_Token
1046: ( p_Message_Name => 'BOM_SUB_RES_STD_RATE_INVALID'
1047: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1048: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1049: , p_Token_Tbl => l_Token_Tbl
1056: IF p_rev_sub_resource_rec.principle_flag IS NOT NULL
1057: AND p_rev_sub_resource_rec.principle_flag NOT IN (1,2)
1058: AND p_rev_sub_resource_rec.principle_flag <> FND_API.G_MISS_NUM
1059: THEN
1060: Error_Handler.Add_Error_Token
1061: ( p_Message_Name => 'BOM_SUB_RES_PCLFLAG_INVALID'
1062: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1063: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1064: , p_Token_Tbl => l_Token_Tbl
1073: AND p_rev_sub_resource_rec.resource_offset_percent <> FND_API.G_MISS_NUM
1074: THEN
1075: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1076: THEN
1077: Error_Handler.Add_Error_Token
1078: ( p_Message_Name => 'BOM_SUB_RES_OFFSET_PCT_INVALID'
1079: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1080: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1081: , p_Token_Tbl => l_Token_Tbl
1089: IF p_rev_sub_resource_rec.assigned_units IS NOT NULL
1090: AND p_rev_sub_resource_rec.assigned_units <= 0.00001
1091: AND p_rev_sub_resource_rec.assigned_units <> FND_API.G_MISS_NUM
1092: THEN
1093: Error_Handler.Add_Error_Token
1094: ( p_Message_Name => 'BOM_SUB_RES_ASSGN_UNTS_INVALID'
1095: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1096: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1097: , p_Token_Tbl => l_Token_Tbl
1104: IF p_rev_sub_resource_rec.basis_type IS NOT NULL
1105: AND p_rev_sub_resource_rec.basis_type NOT IN (1,2)
1106: AND p_rev_sub_resource_rec.basis_type <> FND_API.G_MISS_NUM
1107: THEN
1108: Error_Handler.Add_Error_Token
1109: ( p_Message_Name => 'BOM_SUB_RES_BASISTYPE_INVALID'
1110: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1111: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1112: , p_Token_Tbl => l_Token_Tbl
1118: IF p_rev_sub_resource_rec.new_basis_type IS NOT NULL
1119: AND p_rev_sub_resource_rec.new_basis_type NOT IN (1,2)
1120: AND p_rev_sub_resource_rec.new_basis_type <> FND_API.G_MISS_NUM
1121: THEN
1122: Error_Handler.Add_Error_Token
1123: ( p_Message_Name => 'BOM_SUB_RES_BASISTYPE_INVALID'
1124: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1125: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1126: , p_Token_Tbl => l_Token_Tbl
1132: IF p_rev_sub_resource_rec.schedule_flag IS NOT NULL
1133: AND p_rev_sub_resource_rec.schedule_flag NOT IN (1,2,3,4)
1134: AND p_rev_sub_resource_rec.schedule_flag <> FND_API.G_MISS_NUM
1135: THEN
1136: Error_Handler.Add_Error_Token
1137: ( p_Message_Name => 'BOM_SUB_RES_SCHED_FLAG_INVALID'
1138: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1139: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1140: , p_Token_Tbl => l_Token_Tbl
1146: IF p_rev_sub_resource_rec.new_schedule_flag IS NOT NULL
1147: AND p_rev_sub_resource_rec.new_schedule_flag NOT IN (1,2,3,4)
1148: AND p_rev_sub_resource_rec.new_schedule_flag <> FND_API.G_MISS_NUM
1149: THEN
1150: Error_Handler.Add_Error_Token
1151: ( p_Message_Name => 'BOM_SUB_RES_SCHED_FLAG_INVALID'
1152: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1153: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1154: , p_Token_Tbl => l_Token_Tbl
1160: IF p_rev_sub_resource_rec.autocharge_type IS NOT NULL
1161: AND p_rev_sub_resource_rec.autocharge_type NOT IN (1,2,3,4)
1162: AND p_rev_sub_resource_rec.autocharge_type <> FND_API.G_MISS_NUM
1163: THEN
1164: Error_Handler.Add_Error_Token
1165: ( p_Message_Name => 'BOM_SUB_RES_ACHRG_TYPE_INVALID'
1166: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1167: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1168: , p_Token_Tbl => l_Token_Tbl
1180:
1181: l_token_tbl(2).token_name := 'ACD_TYPE';
1182: l_token_tbl(2).token_value := p_rev_sub_resource_rec.acd_type;
1183:
1184: Error_Handler.Add_Error_Token
1185: ( p_Message_Name => 'BOM_SUB_RES_ACD_TYPE_INVALID'
1186: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1187: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1188: , p_Token_Tbl => l_Token_Tbl
1196: OR (p_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
1197: AND p_rev_sub_resource_rec.schedule_sequence_number = FND_API.G_MISS_NUM)
1198: OR p_rev_sub_resource_rec.schedule_sequence_number = 0
1199: THEN
1200: Error_Handler.Add_Error_Token
1201: ( p_Message_Name => 'BOM_SSN_ZERO_VALUE'
1202: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1203: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1204: --, p_Token_Tbl => l_Token_Tbl
1206: l_return_status := FND_API.G_RET_STS_ERROR ;
1207: END IF;
1208:
1209: -- Done validating attributes
1210: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1211: ('Sub Operation Resource Attr Validation completed with return_status: ' || l_return_status) ;
1212: END IF;
1213:
1214: x_return_status := l_return_status;
1215: x_mesg_token_tbl := l_Mesg_Token_Tbl;
1216:
1217: EXCEPTION
1218: WHEN OTHERS THEN
1219: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1220: ('Some unknown error in Attribute Validation . . .' || SQLERRM );
1221: END IF ;
1222:
1223:
1224: l_err_text := G_PKG_NAME || ' Validation (Attr. Validation) '
1225: || substrb(SQLERRM,1,200);
1226: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
1227:
1228: Error_Handler.Add_Error_Token
1229: ( p_message_name => NULL
1230: , p_message_text => l_err_text
1231: , p_mesg_token_tbl => l_mesg_token_tbl
1232: , x_mesg_token_tbl => l_mesg_token_tbl
1259: , p_old_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
1260: , p_old_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
1261: , x_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Resource_Rec_Type
1262: , x_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
1263: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1264: , x_return_status IN OUT NOCOPY VARCHAR2
1265: )
1266: IS
1267: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type ;
1334: , p_old_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
1335: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
1336: , x_rev_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type
1337: , x_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
1338: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1339: , x_return_status IN OUT NOCOPY VARCHAR2
1340: )
1341: IS
1342:
1359:
1360: -- Error Handlig Variables
1361: l_return_status VARCHAR2(1);
1362: l_err_text VARCHAR2(2000) ;
1363: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
1364: l_token_tbl Error_Handler.Token_Tbl_Type;
1365:
1366: l_get_setups NUMBER;
1367: l_batchable NUMBER;
1360: -- Error Handlig Variables
1361: l_return_status VARCHAR2(1);
1362: l_err_text VARCHAR2(2000) ;
1363: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
1364: l_token_tbl Error_Handler.Token_Tbl_Type;
1365:
1366: l_get_setups NUMBER;
1367: l_batchable NUMBER;
1368:
1429: l_rev_sub_res_unexp_rec := p_rev_sub_res_unexp_rec ;
1430: l_return_status := FND_API.G_RET_STS_SUCCESS;
1431: x_return_status := FND_API.G_RET_STS_SUCCESS;
1432:
1433: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1434: ('Performing Sub Op Resource Check Entitity Validation . . .') ;
1435: END IF ;
1436:
1437: --
1448: -- The ECO can be updated but a warning needs to be generated and
1449: -- scheduled revised items need to be update to Open
1450: -- and the ECO status need to be changed to Not Submitted for Approval
1451:
1452: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1453: ('Check if ECO has been approved and has a workflow process. . . ' || l_return_status) ;
1454: END IF ;
1455:
1456: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
1478: -- Performing Entity Validation in Revised Sub Op Resource(ECO BO)
1479: --
1480: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
1481: THEN
1482: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1483: ('Performing Entitity Validation for Eco Routing :ACD Type. . .') ;
1484: END IF ;
1485:
1486: --
1501: LOOP
1502: l_token_tbl(3).token_name := 'OP_SEQ_NUMBER';
1503: l_token_tbl(3).token_value := l_rev_sub_resource_rec.operation_sequence_number ;
1504:
1505: Error_Handler.Add_Error_Token
1506: ( p_message_name => 'BOM_SUB_RES_DSBL_RES_NOT_FOUND'
1507: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1508: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1509: , p_token_tbl => l_token_tbl
1531: THEN
1532: l_token_tbl(3).token_name := 'OP_SEQ_NUMBER';
1533: l_token_tbl(3).token_value := l_rev_sub_resource_rec.operation_sequence_number ;
1534:
1535: Error_Handler.Add_Error_Token
1536: ( p_message_name => 'BOM_SUB_RES_ACD_NOT_COMPATIBLE'
1537: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1538: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1539: , p_token_tbl => l_token_tbl
1552: AND l_rev_sub_resource_rec.acd_type <> p_old_rev_sub_resource_rec.acd_type
1553: THEN
1554: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1555: THEN
1556: Error_Handler.Add_Error_Token
1557: ( p_message_name => 'BOM_SUB_RES_ACDTPNT_UPDATEABLE'
1558: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1559: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1560: , p_token_tbl => l_token_tbl
1584: nvl(p_rev_sub_resource_rec.substitute_group_number, p_rev_sub_res_unexp_rec.substitute_group_number) ;
1585: l_token_tbl(3).token_name := 'REVISED_ITEM_NAME';
1586: l_token_tbl(3).token_value := l_rev_sub_resource_rec.revised_item_name;
1587:
1588: Error_Handler.Add_Error_Token
1589: ( p_message_name => 'BOM_SUB_RES_RITECOWOEF_INVALID'
1590: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1591: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1592: , p_token_tbl => l_token_tbl
1608:
1609:
1610: -- Validation for Assigned Units
1611: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1612: Error_Handler.Write_Debug ('Validating the Assigned Units for a Batchable Alternate Resource . . .') ;
1613: END IF;
1614:
1615: IF l_rev_sub_resource_rec.Transaction_Type IN
1616: (BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE)
1631: IF p_rev_sub_resource_rec.assigned_units <> 1 THEN
1632: l_Token_Tbl(2).token_name := 'RES_SEQ_NUMBER';
1633: --l_Token_Tbl(2).token_value := p_rev_sub_resource_rec.Sub_Resource_Code;
1634: l_Token_Tbl(2).token_value := p_rev_sub_resource_rec.Schedule_Sequence_Number;
1635: Error_Handler.Add_Error_Token
1636: ( p_Message_Name => 'BOM_SUBRES_ASSIGND_UNITS_WRONG'
1637: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1638: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1639: , p_Token_Tbl => l_Token_Tbl
1661: NULL ;
1662: END IF ; -- Transation: UPDATE
1663:
1664:
1665: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1666: ('End of Validation specific to the Transaction Type of Update' || l_return_status) ;
1667: END IF ;
1668:
1669: --
1672: IF l_rev_sub_resource_rec.transaction_type IN
1673: ( BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE )
1674: THEN
1675:
1676: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1677: ('Common Validateion for Transaction Type : Create and Update . . . . ' || l_return_status) ;
1678: END IF ;
1679:
1680: --
1703: IF l_temp_status = FND_API.G_RET_STS_ERROR
1704: THEN
1705: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1706: THEN
1707: Error_Handler.Add_Error_Token
1708: ( p_message_name => 'BOM_SUB_RES_RESID_INVALID'
1709: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1710: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1711: , p_Token_Tbl => l_Token_Tbl
1713: END IF ;
1714:
1715: l_return_status := FND_API.G_RET_STS_ERROR ;
1716:
1717: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1718: ('Check if Resource is enabled. . . . ' || l_return_status) ;
1719: END IF ;
1720:
1721: END IF ;
1763: l_token_tbl(3).token_value := l_rev_sub_resource_rec.operation_sequence_number ;
1764:
1765: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1766: THEN
1767: Error_Handler.Add_Error_Token
1768: ( p_message_name => 'BOM_SUB_RES_NOTUNIQUE'
1769: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1770: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1771: , p_Token_Tbl => l_Token_Tbl
1807: l_token_tbl(3).token_value := l_rev_sub_resource_rec.operation_sequence_number ;
1808:
1809: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1810: THEN
1811: Error_Handler.Add_Error_Token
1812: ( p_message_name => 'BOM_SUB_RES_NOTUNIQUE'
1813: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1814: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1815: , p_Token_Tbl => l_Token_Tbl
1826: END LOOP ;
1827:
1828: IF l_old_op_seq_id IS NULL THEN
1829: -- This is an unexpected error.
1830: Error_Handler.Add_Error_Token
1831: ( p_Message_Name => NULL
1832: , p_Message_Text => 'Unexpected error occurred. Sinse
1833: Parent Revised Operation does not have old operation
1834: sequence id' || ' in ' ||
1840: END IF;
1841:
1842: END IF ;
1843:
1844: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1845: ('Check uniquness of Sub Op Resource Record. . . . ' || l_return_status) ;
1846: END IF ;
1847:
1848: END IF ;
1860: AND ( l_rev_sub_res_unexp_rec.activity_id IS NOT NULL AND
1861: l_rev_sub_res_unexp_rec.activity_id <> FND_API.G_MISS_NUM )
1862: THEN
1863:
1864: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1865: ('Activity_Id : ' || to_char(l_rev_sub_res_unexp_rec.activity_id)) ;
1866: END IF ;
1867:
1868:
1877: IF l_temp_status = FND_API.G_RET_STS_ERROR
1878: THEN
1879: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1880: THEN
1881: Error_Handler.Add_Error_Token
1882: ( p_message_name => 'BOM_SUB_RES_ACTID_INVALID'
1883: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1884: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1885: , p_Token_Tbl => l_Token_Tbl
1889: l_return_status := FND_API.G_RET_STS_ERROR ;
1890:
1891: END IF ;
1892:
1893: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1894: ('Check if Activity is enabled. . . . ' || l_return_status) ;
1895: END IF ;
1896:
1897: END IF ;
1910: AND ( l_rev_sub_res_unexp_rec.setup_id IS NOT NULL AND
1911: l_rev_sub_res_unexp_rec.setup_Id <> FND_API.G_MISS_NUM )
1912: THEN
1913:
1914: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1915: ('Setup_Id : ' || to_char(l_rev_sub_res_unexp_rec.setup_id )) ;
1916: END IF ;
1917:
1918:
1935: l_token_tbl(3).token_name := 'SETUP_CODE';
1936: l_token_tbl(3).token_value :=
1937: l_rev_sub_resource_rec.setup_type ;
1938:
1939: Error_Handler.Add_Error_Token
1940: ( p_message_name => 'BOM_SUB_RES_SETUPID_INVALID'
1941: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1942: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1943: , p_Token_Tbl => l_Token_Tbl
1948: l_return_status := FND_API.G_RET_STS_ERROR ;
1949:
1950: END IF ;
1951:
1952: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1953: ('Check if Setup is enabled. . . . ' || l_return_status) ;
1954: END IF ;
1955:
1956: END IF ;
1998: IF l_temp_status = FND_API.G_RET_STS_ERROR
1999: THEN
2000: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2001: THEN
2002: Error_Handler.Add_Error_Token
2003: ( p_message_name => 'BOM_SUB_RES_SCHEDULE_MUSTBE_NO'
2004: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2005: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2006: , p_Token_Tbl => l_Token_Tbl
2010: l_return_status := FND_API.G_RET_STS_ERROR ;
2011:
2012: END IF ;
2013:
2014: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2015: ('Check if schedule flag is valid. . . . ' || l_return_status) ;
2016: END IF ;
2017:
2018: END IF ;
2050: IF l_temp_status = FND_API.G_RET_STS_ERROR
2051: THEN
2052: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2053: THEN
2054: Error_Handler.Add_Error_Token
2055: ( p_message_name => 'BOM_SUB_RES_PRIOR_INVALID'
2056: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2057: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2058: , p_Token_Tbl => l_Token_Tbl
2080: IF l_temp_status = FND_API.G_RET_STS_ERROR
2081: THEN
2082: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2083: THEN
2084: Error_Handler.Add_Error_Token
2085: ( p_message_name => 'BOM_SUB_RES_NEXT_INVALID'
2086: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2087: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2088: , p_Token_Tbl => l_Token_Tbl
2092: l_return_status := FND_API.G_RET_STS_ERROR ;
2093:
2094: END IF ;
2095:
2096: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2097: ('Check next or prior scheduled resource. . . . ' || l_return_status) ;
2098: END IF ;
2099:
2100: END IF ;
2123: IF l_temp_status = FND_API.G_RET_STS_ERROR
2124: THEN
2125: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2126: THEN
2127: Error_Handler.Add_Error_Token
2128: ( p_message_name => 'BOM_SUB_RES_POAUTO_LOC_INVALID'
2129: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2130: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2131: , p_Token_Tbl => l_Token_Tbl
2135: l_return_status := FND_API.G_RET_STS_ERROR ;
2136:
2137: END IF ;
2138:
2139: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2140: ('Check if Dept has a location for PO Receipt Res. . . . ' || l_return_status) ;
2141: END IF ;
2142:
2143: END IF ;
2168: IF l_temp_status = FND_API.G_RET_STS_ERROR
2169: THEN
2170: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2171: THEN
2172: Error_Handler.Add_Error_Token
2173: ( p_message_name => 'BOM_SUB_RES_AUTO_CSTCD_INVALID'
2174: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2175: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2176: , p_Token_Tbl => l_Token_Tbl
2180: l_return_status := FND_API.G_RET_STS_ERROR ;
2181:
2182: END IF ;
2183:
2184: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2185: ('Check if resource is OSP resource when autocharge is PO Move or PO Receipt. . . . ' || l_return_status) ;
2186: END IF ;
2187:
2188: END IF ;
2214: THEN
2215:
2216: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2217: THEN
2218: Error_Handler.Add_Error_Token
2219: ( p_message_name => 'BOM_SUB_RES_POMOVE_INVALID'
2220: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2221: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2222: , p_Token_Tbl => l_Token_Tbl
2225:
2226: l_return_status := FND_API.G_RET_STS_ERROR ;
2227: END IF ;
2228:
2229: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2230: ('Check if Autocharge Type is enabled. . . . ' || l_return_status) ;
2231: END IF ;
2232:
2233:
2259: IF l_temp_status = FND_API.G_RET_STS_ERROR
2260: THEN
2261: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2262: THEN
2263: Error_Handler.Add_Error_Token
2264: ( p_message_name => 'BOM_SUB_RES_RATEORAMT_INVALID'
2265: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2266: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2267: , p_Token_Tbl => l_Token_Tbl
2271: l_return_status := FND_API.G_RET_STS_ERROR ;
2272:
2273: END IF ;
2274:
2275: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2276: ('Check round value for Usage Rate or Amount and the Inverse . . . ' || l_return_status) ;
2277: END IF ;
2278:
2279: END IF ;
2328: IF l_temp_status = FND_API.G_RET_STS_ERROR
2329: THEN
2330: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2331: THEN
2332: Error_Handler.Add_Error_Token
2333: ( p_message_name => 'BOM_SUB_RES_NEG_USAGRT_INVALID'
2334: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2335: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2336: , p_Token_Tbl => l_Token_Tbl
2340: l_return_status := FND_API.G_RET_STS_ERROR ;
2341:
2342: END IF ;
2343:
2344: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2345: ('Check negative usage rate. . . . ' || l_return_status) ;
2346: END IF ;
2347:
2348: END IF ;
2382: THEN
2383: -- dbms_output.put_line('found error in principal flag for sub resources');
2384: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2385: THEN
2386: Error_Handler.Add_Error_Token
2387: ( p_message_name => 'BOM_SUB_RES_PCFLAG_DUPLICATE'
2388: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2389: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2390: , p_Token_Tbl => l_Token_Tbl
2394: l_return_status := FND_API.G_RET_STS_ERROR ;
2395:
2396: END IF ;
2397:
2398: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2399: ('Check principal flag . . . . ' || l_return_status) ;
2400: END IF ;
2401:
2402: END IF ;
2449: l_Token_Tbl(2).Token_Value:= l_res_code_2;
2450: l_Token_Tbl(3).Token_Name := 'OP_SEQ';
2451: l_Token_Tbl(3).Token_Value := l_rev_sub_resource_rec.operation_sequence_number;
2452:
2453: Error_Handler.Add_Error_Token
2454: ( p_message_name => 'BOM_SIM_RES_SAME_PRIOR_NEXT'
2455: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2456: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2457: , p_Token_Tbl => l_Token_Tbl
2465:
2466: END IF ; -- Transaction Type : Create and Update
2467:
2468:
2469: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2470: ('Entity Validation was processed. . . ' || l_return_status);
2471: END IF ;
2472:
2473:
2486:
2487:
2488: EXCEPTION
2489: WHEN OTHERS THEN
2490: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2491: ('Some unknown error in Entity Validation . . .' || SQLERRM );
2492: END IF ;
2493:
2494:
2495: l_err_text := G_PKG_NAME || ' Validation (Entity Validation) '
2496: || substrb(SQLERRM,1,200);
2497: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
2498:
2499: Error_Handler.Add_Error_Token
2500: ( p_message_name => NULL
2501: , p_message_text => l_err_text
2502: , p_mesg_token_tbl => l_mesg_token_tbl
2503: , x_mesg_token_tbl => l_mesg_token_tbl