[Home] [Help]
498:
499: /* Return error status if violation occurs */
500: IF l_sch_res_cur%FOUND THEN
501: p_ret_res_id := l_resource_id;
502: x_return_status := Error_Handler.G_STATUS_ERROR;
503: END IF;
504:
505: IF l_sch_res_cur%ISOPEN THEN
506: CLOSE l_sch_res_cur;
515:
516: /* Return error status if violation occurs */
517: IF l_sch_sub_res_cur%FOUND THEN
518: p_ret_res_id := l_resource_id;
519: x_return_status := Error_Handler.G_STATUS_ERROR;
520: END IF;
521:
522: IF l_sch_sub_res_cur%ISOPEN THEN
523: CLOSE l_sch_sub_res_cur;
545: ( p_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
546: , p_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
547: , x_old_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Resource_Rec_Type
548: , x_old_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
549: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
550: , x_return_status IN OUT NOCOPY VARCHAR2
551: )
552:
553: IS
610: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type
611: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
612: , x_old_rev_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type
613: , x_old_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
614: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
615: , x_return_status IN OUT NOCOPY VARCHAR2
616: )
617: IS
618: l_Token_Tbl Error_Handler.Token_Tbl_Type;
614: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
615: , x_return_status IN OUT NOCOPY VARCHAR2
616: )
617: IS
618: l_Token_Tbl Error_Handler.Token_Tbl_Type;
619: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
620: l_return_status VARCHAR2(1);
621: l_default_basis_type NUMBER;
622:
615: , x_return_status IN OUT NOCOPY VARCHAR2
616: )
617: IS
618: l_Token_Tbl Error_Handler.Token_Tbl_Type;
619: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
620: l_return_status VARCHAR2(1);
621: l_default_basis_type NUMBER;
622:
623: BEGIN
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
675: , p_message_name => 'BOM_SUB_RES_ALREADY_EXISTS'
676: , p_token_tbl => l_token_tbl
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
687: , p_message_name => 'BOM_SUB_RES_DOESNOT_EXIST'
688: , p_token_tbl => l_token_tbl
690: l_return_status := FND_API.G_RET_STS_ERROR ;
691:
692: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
693: THEN
694: Error_Handler.Add_Error_Token
695: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
696: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
697: , p_message_name => NULL
698: , p_message_text => 'Unexpected error while existence verification of '
727: ********************************************************************/
728: PROCEDURE Check_Attributes
729: ( p_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
730: , p_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
731: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
732: , x_return_status IN OUT NOCOPY VARCHAR2
733: )
734: IS
735:
775: *********************************************************************/
776: PROCEDURE Check_Attributes
777: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type
778: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
779: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
780: , x_return_status IN OUT NOCOPY VARCHAR2
781: )
782: IS
783:
782: IS
783:
784: l_return_status VARCHAR2(1) ;
785: l_err_text VARCHAR2(2000) ;
786: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
787: l_Token_Tbl Error_Handler.Token_Tbl_Type ;
788:
789: BEGIN
790:
783:
784: l_return_status VARCHAR2(1) ;
785: l_err_text VARCHAR2(2000) ;
786: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
787: l_Token_Tbl Error_Handler.Token_Tbl_Type ;
788:
789: BEGIN
790:
791: l_return_status := FND_API.G_RET_STS_SUCCESS;
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
812:
813: -- New Sub Resource Code
814: IF p_rev_sub_resource_rec.new_sub_resource_code = FND_API.G_MISS_CHAR
815: THEN
816: Error_Handler.Add_Error_Token
817: ( p_Message_Name => 'BOM_SUB_RESCODE_MISSING'
818: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
819: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
820: , p_Token_Tbl => l_Token_Tbl
826:
827: -- Replacement Group Number
828: IF p_rev_sub_resource_rec.replacement_group_number = FND_API.G_MISS_NUM
829: THEN
830: Error_Handler.Add_Error_Token
831: ( p_Message_Name => 'BOM_SUB_RES_RPLAC_GNUM_MISSING'
832: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
833: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
834: , p_Token_Tbl => l_Token_Tbl
839:
840: -- New Replacement Group Number -- bug 3741570
841: IF p_rev_sub_resource_rec.new_replacement_group_number = FND_API.G_MISS_NUM
842: THEN
843: Error_Handler.Add_Error_Token
844: ( p_Message_Name => 'BOM_SUB_RES_RPLAC_GNUM_MISSING'
845: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
846: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
847: , p_Token_Tbl => l_Token_Tbl
852:
853: -- Standard Rate Flag
854: IF p_rev_sub_resource_rec.standard_rate_flag = FND_API.G_MISS_NUM
855: THEN
856: Error_Handler.Add_Error_Token
857: ( p_Message_Name => 'BOM_SUB_RES_STD_RATE_MISSING'
858: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
859: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
860: , p_Token_Tbl => l_Token_Tbl
865:
866: -- Assigned Units
867: IF p_rev_sub_resource_rec.assigned_units = FND_API.G_MISS_NUM
868: THEN
869: Error_Handler.Add_Error_Token
870: ( p_Message_Name => 'BOM_SUB_RES_ASGND_UNTS_MISSING'
871: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
872: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
873: , p_Token_Tbl => l_Token_Tbl
878:
879: -- Usage Rate or Amount
880: IF p_rev_sub_resource_rec.usage_rate_or_amount = FND_API.G_MISS_NUM
881: THEN
882: Error_Handler.Add_Error_Token
883: ( p_Message_Name => 'BOM_SUB_RES_RATE_AMT_MISSING'
884: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
885: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
886: , p_Token_Tbl => l_Token_Tbl
890:
891: -- Usage Rate or Amount Inverse
892: IF p_rev_sub_resource_rec.usage_rate_or_amount_inverse = FND_API.G_MISS_NUM
893: THEN
894: Error_Handler.Add_Error_Token
895: ( p_Message_Name => 'BOM_SUB_RES_RTAMT_INVR_MISSING'
896: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
897: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
898: , p_Token_Tbl => l_Token_Tbl
902:
903: -- Basis Type
904: IF p_rev_sub_resource_rec.basis_type = FND_API.G_MISS_NUM
905: THEN
906: Error_Handler.Add_Error_Token
907: ( p_Message_Name => 'BOM_SUB_RES_BASISTYPE_MISSING'
908: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
909: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
910: , p_Token_Tbl => l_Token_Tbl
914:
915: -- New Basis Type
916: IF p_rev_sub_resource_rec.new_basis_type = FND_API.G_MISS_NUM
917: THEN
918: Error_Handler.Add_Error_Token
919: ( p_Message_Name => 'BOM_SUB_RES_BASISTYPE_MISSING'
920: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
921: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
922: , p_Token_Tbl => l_Token_Tbl
926:
927: -- Schedule Flag
928: IF p_rev_sub_resource_rec.schedule_flag = FND_API.G_MISS_NUM
929: THEN
930: Error_Handler.Add_Error_Token
931: ( p_Message_Name => 'BOM_SUB_RES_SCHED_FLAG_MISSING'
932: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
933: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
934: , p_Token_Tbl => l_Token_Tbl
939:
940: -- Autocharge Type
941: IF p_rev_sub_resource_rec.autocharge_type = FND_API.G_MISS_NUM
942: THEN
943: Error_Handler.Add_Error_Token
944: ( p_Message_Name => 'BOM_SUB_RES_ACHRG_TYPE_MISSING'
945: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
946: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
947: , p_Token_Tbl => l_Token_Tbl
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:
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
972: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
973: , p_Token_Tbl => l_Token_Tbl
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
985: ( p_Message_Name => 'BOM_SUB_RES_REPLCMNT_GNUM_NULL'
986: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
987: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
988: , p_Token_Tbl => l_Token_Tbl
993: p_rev_sub_resource_rec.replacement_group_number <> FND_API.G_MISS_NUM AND
994: ( p_rev_sub_resource_rec.replacement_group_number < 1
995: OR p_rev_sub_resource_rec.replacement_group_number > 9999 )
996: THEN
997: Error_Handler.Add_Error_Token
998: ( p_Message_Name => 'BOM_SUB_RES_RPLMT_GNUM_INVALID'
999: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1000: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1001: , p_Token_Tbl => l_Token_Tbl
1009: AND p_rev_sub_resource_rec.replacement_group_number <> FND_API.G_MISS_NUM
1010: AND ( p_rev_sub_resource_rec.replacement_group_number < 1
1011: OR p_rev_sub_resource_rec.replacement_group_number > 9999 )
1012: THEN
1013: Error_Handler.Add_Error_Token
1014: ( p_Message_Name => 'BOM_SUB_RES_RPLMT_GNUM_INVALID'
1015: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1016: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1017: , p_Token_Tbl => l_Token_Tbl
1024: IF p_rev_sub_resource_rec.standard_rate_flag IS NOT NULL
1025: AND p_rev_sub_resource_rec.standard_rate_flag NOT IN (1,2)
1026: AND p_rev_sub_resource_rec.standard_rate_flag <> FND_API.G_MISS_NUM
1027: THEN
1028: Error_Handler.Add_Error_Token
1029: ( p_Message_Name => 'BOM_SUB_RES_STD_RATE_INVALID'
1030: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1031: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1032: , p_Token_Tbl => l_Token_Tbl
1039: IF p_rev_sub_resource_rec.principle_flag IS NOT NULL
1040: AND p_rev_sub_resource_rec.principle_flag NOT IN (1,2)
1041: AND p_rev_sub_resource_rec.principle_flag <> FND_API.G_MISS_NUM
1042: THEN
1043: Error_Handler.Add_Error_Token
1044: ( p_Message_Name => 'BOM_SUB_RES_PCLFLAG_INVALID'
1045: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1046: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1047: , p_Token_Tbl => l_Token_Tbl
1056: AND p_rev_sub_resource_rec.resource_offset_percent <> FND_API.G_MISS_NUM
1057: THEN
1058: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1059: THEN
1060: Error_Handler.Add_Error_Token
1061: ( p_Message_Name => 'BOM_SUB_RES_OFFSET_PCT_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
1072: IF p_rev_sub_resource_rec.assigned_units IS NOT NULL
1073: AND p_rev_sub_resource_rec.assigned_units <= 0.00001
1074: AND p_rev_sub_resource_rec.assigned_units <> FND_API.G_MISS_NUM
1075: THEN
1076: Error_Handler.Add_Error_Token
1077: ( p_Message_Name => 'BOM_SUB_RES_ASSGN_UNTS_INVALID'
1078: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1079: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1080: , p_Token_Tbl => l_Token_Tbl
1087: IF p_rev_sub_resource_rec.basis_type IS NOT NULL
1088: AND p_rev_sub_resource_rec.basis_type NOT IN (1,2)
1089: AND p_rev_sub_resource_rec.basis_type <> FND_API.G_MISS_NUM
1090: THEN
1091: Error_Handler.Add_Error_Token
1092: ( p_Message_Name => 'BOM_SUB_RES_BASISTYPE_INVALID'
1093: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1094: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1095: , p_Token_Tbl => l_Token_Tbl
1101: IF p_rev_sub_resource_rec.new_basis_type IS NOT NULL
1102: AND p_rev_sub_resource_rec.new_basis_type NOT IN (1,2)
1103: AND p_rev_sub_resource_rec.new_basis_type <> FND_API.G_MISS_NUM
1104: THEN
1105: Error_Handler.Add_Error_Token
1106: ( p_Message_Name => 'BOM_SUB_RES_BASISTYPE_INVALID'
1107: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1108: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1109: , p_Token_Tbl => l_Token_Tbl
1115: IF p_rev_sub_resource_rec.schedule_flag IS NOT NULL
1116: AND p_rev_sub_resource_rec.schedule_flag NOT IN (1,2,3,4)
1117: AND p_rev_sub_resource_rec.schedule_flag <> FND_API.G_MISS_NUM
1118: THEN
1119: Error_Handler.Add_Error_Token
1120: ( p_Message_Name => 'BOM_SUB_RES_SCHED_FLAG_INVALID'
1121: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1122: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1123: , p_Token_Tbl => l_Token_Tbl
1130: IF p_rev_sub_resource_rec.autocharge_type IS NOT NULL
1131: AND p_rev_sub_resource_rec.autocharge_type NOT IN (1,2,3,4)
1132: AND p_rev_sub_resource_rec.autocharge_type <> FND_API.G_MISS_NUM
1133: THEN
1134: Error_Handler.Add_Error_Token
1135: ( p_Message_Name => 'BOM_SUB_RES_ACHRG_TYPE_INVALID'
1136: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1137: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1138: , p_Token_Tbl => l_Token_Tbl
1150:
1151: l_token_tbl(2).token_name := 'ACD_TYPE';
1152: l_token_tbl(2).token_value := p_rev_sub_resource_rec.acd_type;
1153:
1154: Error_Handler.Add_Error_Token
1155: ( p_Message_Name => 'BOM_SUB_RES_ACD_TYPE_INVALID'
1156: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1157: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1158: , p_Token_Tbl => l_Token_Tbl
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
1171: ( p_Message_Name => 'BOM_SSN_ZERO_VALUE'
1172: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1173: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1174: --, p_Token_Tbl => l_Token_Tbl
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;
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:
1194: l_err_text := G_PKG_NAME || ' Validation (Attr. Validation) '
1195: || substrb(SQLERRM,1,200);
1196: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
1197:
1198: Error_Handler.Add_Error_Token
1199: ( p_message_name => NULL
1200: , p_message_text => l_err_text
1201: , p_mesg_token_tbl => l_mesg_token_tbl
1202: , x_mesg_token_tbl => l_mesg_token_tbl
1229: , p_old_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
1230: , p_old_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
1231: , x_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Resource_Rec_Type
1232: , x_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
1233: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1234: , x_return_status IN OUT NOCOPY VARCHAR2
1235: )
1236: IS
1237: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type ;
1304: , p_old_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
1305: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
1306: , x_rev_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type
1307: , x_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
1308: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1309: , x_return_status IN OUT NOCOPY VARCHAR2
1310: )
1311: IS
1312:
1329:
1330: -- Error Handlig Variables
1331: l_return_status VARCHAR2(1);
1332: l_err_text VARCHAR2(2000) ;
1333: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
1334: l_token_tbl Error_Handler.Token_Tbl_Type;
1335:
1336: l_get_setups NUMBER;
1337: l_batchable NUMBER;
1330: -- Error Handlig Variables
1331: l_return_status VARCHAR2(1);
1332: l_err_text VARCHAR2(2000) ;
1333: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
1334: l_token_tbl Error_Handler.Token_Tbl_Type;
1335:
1336: l_get_setups NUMBER;
1337: l_batchable NUMBER;
1338:
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: --
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
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: --
1469: LOOP
1470: l_token_tbl(3).token_name := 'OP_SEQ_NUMBER';
1471: l_token_tbl(3).token_value := l_rev_sub_resource_rec.operation_sequence_number ;
1472:
1473: Error_Handler.Add_Error_Token
1474: ( p_message_name => 'BOM_SUB_RES_DSBL_RES_NOT_FOUND'
1475: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1476: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1477: , p_token_tbl => l_token_tbl
1499: THEN
1500: l_token_tbl(3).token_name := 'OP_SEQ_NUMBER';
1501: l_token_tbl(3).token_value := l_rev_sub_resource_rec.operation_sequence_number ;
1502:
1503: Error_Handler.Add_Error_Token
1504: ( p_message_name => 'BOM_SUB_RES_ACD_NOT_COMPATIBLE'
1505: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1506: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1507: , p_token_tbl => l_token_tbl
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
1524: Error_Handler.Add_Error_Token
1525: ( p_message_name => 'BOM_SUB_RES_ACDTPNT_UPDATEABLE'
1526: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1527: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1528: , p_token_tbl => l_token_tbl
1552: nvl(p_rev_sub_resource_rec.substitute_group_number, p_rev_sub_res_unexp_rec.substitute_group_number) ;
1553: l_token_tbl(3).token_name := 'REVISED_ITEM_NAME';
1554: l_token_tbl(3).token_value := l_rev_sub_resource_rec.revised_item_name;
1555:
1556: Error_Handler.Add_Error_Token
1557: ( p_message_name => 'BOM_SUB_RES_RITECOWOEF_INVALID'
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
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
1584: (BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE)
1599: IF p_rev_sub_resource_rec.assigned_units <> 1 THEN
1600: l_Token_Tbl(2).token_name := 'RES_SEQ_NUMBER';
1601: --l_Token_Tbl(2).token_value := p_rev_sub_resource_rec.Sub_Resource_Code;
1602: l_Token_Tbl(2).token_value := p_rev_sub_resource_rec.Schedule_Sequence_Number;
1603: Error_Handler.Add_Error_Token
1604: ( p_Message_Name => 'BOM_SUBRES_ASSIGND_UNITS_WRONG'
1605: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1606: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1607: , p_Token_Tbl => l_Token_Tbl
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: --
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: --
1671: IF l_temp_status = FND_API.G_RET_STS_ERROR
1672: THEN
1673: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1674: THEN
1675: Error_Handler.Add_Error_Token
1676: ( p_message_name => 'BOM_SUB_RES_RESID_INVALID'
1677: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1678: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1679: , p_Token_Tbl => l_Token_Tbl
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 ;
1727: l_token_tbl(3).token_value := l_rev_sub_resource_rec.operation_sequence_number ;
1728:
1729: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1730: THEN
1731: Error_Handler.Add_Error_Token
1732: ( p_message_name => 'BOM_SUB_RES_NOTUNIQUE'
1733: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1734: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1735: , p_Token_Tbl => l_Token_Tbl
1770: l_token_tbl(3).token_value := l_rev_sub_resource_rec.operation_sequence_number ;
1771:
1772: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1773: THEN
1774: Error_Handler.Add_Error_Token
1775: ( p_message_name => 'BOM_SUB_RES_NOTUNIQUE'
1776: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1777: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1778: , p_Token_Tbl => l_Token_Tbl
1789: END LOOP ;
1790:
1791: IF l_old_op_seq_id IS NULL THEN
1792: -- This is an unexpected error.
1793: Error_Handler.Add_Error_Token
1794: ( p_Message_Name => NULL
1795: , p_Message_Text => 'Unexpected error occurred. Sinse
1796: Parent Revised Operation does not have old operation
1797: sequence id' || ' in ' ||
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 ;
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:
1840: IF l_temp_status = FND_API.G_RET_STS_ERROR
1841: THEN
1842: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1843: THEN
1844: Error_Handler.Add_Error_Token
1845: ( p_message_name => 'BOM_SUB_RES_ACTID_INVALID'
1846: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1847: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1848: , p_Token_Tbl => l_Token_Tbl
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 ;
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:
1898: l_token_tbl(3).token_name := 'SETUP_CODE';
1899: l_token_tbl(3).token_value :=
1900: l_rev_sub_resource_rec.setup_type ;
1901:
1902: Error_Handler.Add_Error_Token
1903: ( p_message_name => 'BOM_SUB_RES_SETUPID_INVALID'
1904: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1905: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1906: , p_Token_Tbl => l_Token_Tbl
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 ;
1961: IF l_temp_status = FND_API.G_RET_STS_ERROR
1962: THEN
1963: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1964: THEN
1965: Error_Handler.Add_Error_Token
1966: ( p_message_name => 'BOM_SUB_RES_SCHEDULE_MUSTBE_NO'
1967: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1968: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1969: , p_Token_Tbl => l_Token_Tbl
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 ;
2013: IF l_temp_status = FND_API.G_RET_STS_ERROR
2014: THEN
2015: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2016: THEN
2017: Error_Handler.Add_Error_Token
2018: ( p_message_name => 'BOM_SUB_RES_PRIOR_INVALID'
2019: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2020: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2021: , p_Token_Tbl => l_Token_Tbl
2043: IF l_temp_status = FND_API.G_RET_STS_ERROR
2044: THEN
2045: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2046: THEN
2047: Error_Handler.Add_Error_Token
2048: ( p_message_name => 'BOM_SUB_RES_NEXT_INVALID'
2049: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2050: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2051: , p_Token_Tbl => l_Token_Tbl
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 ;
2086: IF l_temp_status = FND_API.G_RET_STS_ERROR
2087: THEN
2088: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2089: THEN
2090: Error_Handler.Add_Error_Token
2091: ( p_message_name => 'BOM_SUB_RES_POAUTO_LOC_INVALID'
2092: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2093: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2094: , p_Token_Tbl => l_Token_Tbl
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 ;
2131: IF l_temp_status = FND_API.G_RET_STS_ERROR
2132: THEN
2133: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2134: THEN
2135: Error_Handler.Add_Error_Token
2136: ( p_message_name => 'BOM_SUB_RES_AUTO_CSTCD_INVALID'
2137: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2138: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2139: , p_Token_Tbl => l_Token_Tbl
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 ;
2177: THEN
2178:
2179: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2180: THEN
2181: Error_Handler.Add_Error_Token
2182: ( p_message_name => 'BOM_SUB_RES_POMOVE_INVALID'
2183: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2184: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2185: , p_Token_Tbl => l_Token_Tbl
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:
2222: IF l_temp_status = FND_API.G_RET_STS_ERROR
2223: THEN
2224: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2225: THEN
2226: Error_Handler.Add_Error_Token
2227: ( p_message_name => 'BOM_SUB_RES_RATEORAMT_INVALID'
2228: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2229: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2230: , p_Token_Tbl => l_Token_Tbl
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 ;
2291: IF l_temp_status = FND_API.G_RET_STS_ERROR
2292: THEN
2293: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2294: THEN
2295: Error_Handler.Add_Error_Token
2296: ( p_message_name => 'BOM_SUB_RES_NEG_USAGRT_INVALID'
2297: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2298: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2299: , p_Token_Tbl => l_Token_Tbl
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 ;
2342: THEN
2343: -- dbms_output.put_line('found error in principal flag for sub resources');
2344: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2345: THEN
2346: Error_Handler.Add_Error_Token
2347: ( p_message_name => 'BOM_SUB_RES_PCFLAG_DUPLICATE'
2348: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2349: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2350: , p_Token_Tbl => l_Token_Tbl
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 ;
2409: l_Token_Tbl(2).Token_Value:= l_res_code_2;
2410: l_Token_Tbl(3).Token_Name := 'OP_SEQ';
2411: l_Token_Tbl(3).Token_Value := l_rev_sub_resource_rec.operation_sequence_number;
2412:
2413: Error_Handler.Add_Error_Token
2414: ( p_message_name => 'BOM_SIM_RES_SAME_PRIOR_NEXT'
2415: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2416: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2417: , p_Token_Tbl => l_Token_Tbl
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:
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:
2455: l_err_text := G_PKG_NAME || ' Validation (Entity Validation) '
2456: || substrb(SQLERRM,1,200);
2457: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
2458:
2459: Error_Handler.Add_Error_Token
2460: ( p_message_name => NULL
2461: , p_message_text => l_err_text
2462: , p_mesg_token_tbl => l_mesg_token_tbl
2463: , x_mesg_token_tbl => l_mesg_token_tbl